[cut: only the first 33554432 bytes of this file were read]
(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[  37626147,     659141]
NotebookOptionsPosition[  37450194,     656937]
NotebookOutlinePosition[  37450589,     656954]
CellTagsIndexPosition[  37450546,     656951]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.748317300033942*^9, 
  3.7483173013743777`*^9}},ExpressionUUID->"9d447b70-2f9c-4d3f-ac30-\
8b4647eac571"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{
    RowBox[{"EvaluationNotebook", "[", "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "White"}], ",", 
    RowBox[{"FontColor", "\[Rule]", "Black"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"SeedRandom", "[", "3", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Set", "[", 
   RowBox[{"$HistoryLength", ",", "1"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.7483104602377157`*^9, 3.748310468765374*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"875f2d19-a3ea-47d8-9903-62c7e6eedea8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.771736858288729*^9, 3.7717368750447297`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"1b573ea7-ae01-4a2c-ad34-740f9b8ca1ca"],

Cell[BoxData["\<\"C:\\\\Users\\\\windows\\\\Rui\\\\Dropbox\\\\Baldiri_4th_\
Paper\\\\Mathematica Scripts for Supplementary Materials\"\>"], "Output",
 CellChangeTimes->{3.7717368760897303`*^9, 3.771738717675335*^9, 
  3.7717496499315233`*^9, 3.7717548100185127`*^9, 3.771832475285784*^9, 
  3.7719052672236404`*^9, 3.7721648084286447`*^9, 3.7723434760791955`*^9, 
  3.772430559846986*^9, 3.7728585304112387`*^9, 3.7728727933925877`*^9, 
  3.784032365097557*^9, 3.7957659869404*^9, 3.7970585099286146`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"fffaf80c-1323-4a56-9b5c-3768f2c4b45b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["General Comparison", "Title",
 CellChangeTimes->{{3.7728703319449024`*^9, 
  3.772870351219902*^9}},ExpressionUUID->"960bd633-9320-4e1d-85e4-\
40fc28e79f37"],

Cell[CellGroupData[{

Cell["Loading Logarithmic gains", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 
  3.771739038932023*^9}},ExpressionUUID->"63a13d24-1595-4501-bc85-\
2d1a786770ba"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC1M1.txt\>\""}]], "Input",
 CellChangeTimes->{{3.761041654299574*^9, 3.7610416560598183`*^9}, 
   3.761298197600153*^9, {3.771738734372678*^9, 3.771738753988132*^9}, 
   3.7717388384511323`*^9},
 CellLabel->"In[5]:=",ExpressionUUID->"655e6104-c0d0-490d-92d5-93d7cf0f1e63"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC1M2.txt\>\""}]], "Input",
 CellChangeTimes->{3.771738756227133*^9, 3.771738907747023*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"ebd5b689-c7bd-4e28-b45c-113d8be0a935"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC2M1.txt\>\""}]], "Input",
 CellChangeTimes->{3.7717387584831324`*^9, 3.7717389119070234`*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"575ca040-77d2-47f1-ac2f-13e5ed83723a"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC2M22.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738760260132*^9, {3.7717389152190237`*^9, 3.7717389154750233`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"182ecc70-0a44-4bc9-8cda-05ebf789c9bb"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC3M2.txt\>\""}]], "Input",
 CellChangeTimes->{3.7717387618431325`*^9, 3.771738920019024*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"2953b760-d5f8-41f7-9b17-8c07352dfd7a"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC3M22.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738763588133*^9, {3.7717389235770235`*^9, 3.7717389237040234`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"a87fe398-c8cc-485e-81f3-ad6591159193"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC4M2.txt\>\""}]], "Input",
 CellChangeTimes->{3.7717387649011316`*^9, 3.7717389265150595`*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"fd7c5584-6d9a-45e2-bada-e741173d3a20"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC4M3.txt\>\""}]], "Input",
 CellChangeTimes->{3.771738766755132*^9, 3.771738937971024*^9},
 CellLabel->"In[12]:=",ExpressionUUID->"e2a97cbb-700e-4c36-a8b3-faa2c496c2e3"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC5M22.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387705331326`*^9, {3.771738942147024*^9, 3.7717389423550234`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"1690ccab-6ca8-467e-8e32-6d14dd2a141d"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC5M3.txt\>\""}]], "Input",
 CellChangeTimes->{3.7717387721321325`*^9, 3.7717389452040234`*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"f4409109-78e8-4890-8a4a-7a3d2c06f16c"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC6M3.txt\>\""}]], "Input",
 CellChangeTimes->{3.771738775923132*^9, 3.771738949747023*^9},
 CellLabel->"In[15]:=",ExpressionUUID->"fbf22798-0ebd-4559-8924-b57690d0ef69"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogCC6M4.txt\>\""}]], "Input",
 CellChangeTimes->{3.771738777492132*^9, 3.7717389530750237`*^9},
 CellLabel->"In[16]:=",ExpressionUUID->"1623e7e5-5561-47a0-abca-3b4079743933"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC1M1.txt\>\""}]], "Input",
 CellChangeTimes->{{3.761041654299574*^9, 3.7610416560598183`*^9}, 
   3.761298197600153*^9, {3.771738734372678*^9, 3.771738753988132*^9}, 
   3.771738794067133*^9, 3.7717389570270233`*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"20b9a237-c080-497b-a384-5702cb79de64"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC1M2.txt\>\""}]], "Input",
 CellChangeTimes->{3.771738756227133*^9, 3.771738797492132*^9, 
  3.7717389635390234`*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"a7ec26e4-ef3f-4bf8-9f09-1413abfb99f6"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC2M1.txt\>\""}]], "Input",
 CellChangeTimes->{3.7717387584831324`*^9, 3.7717388005311327`*^9, 
  3.771738968307023*^9},
 CellLabel->"In[19]:=",ExpressionUUID->"355b74cc-826b-410e-b4a1-8b8194328c4e"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC2M22.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738760260132*^9, 3.7717388055411325`*^9, {3.7717389740350237`*^9, 
   3.7717389742750235`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"f887c3e5-f7b3-4b63-9c73-56419406bbab"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC3M2.txt\>\""}]], "Input",
 CellChangeTimes->{3.7717387618431325`*^9, 3.771738809251132*^9, 
  3.771738978099023*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"0556b67c-fd3b-42c5-bc45-8da0bea3fc51"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC3M22.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738763588133*^9, 3.771738814067133*^9, {3.7717389811070237`*^9, 
   3.771738981331023*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"d6b62ccc-54d0-43c1-939d-a228ac187c74"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC4M2.txt\>\""}]], "Input",
 CellChangeTimes->{3.7717387649011316`*^9, 3.7717388178601327`*^9, 
  3.771738984771023*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"b702f67f-a802-4670-af78-0b871ceaf041"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC4M3.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738766755132*^9, {3.7717388205801325`*^9, 3.7717388216671324`*^9}, 
   3.7717389877950244`*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"1d43fbf0-fb32-4992-9c59-21edd83ed903"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC5M22.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387705331326`*^9, {3.771738823923133*^9, 3.7717388244351325`*^9}, {
   3.7717389907870235`*^9, 3.771738991027024*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"5f64e6e4-7c85-476d-b981-6a828b11cb35"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC5M3.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387721321325`*^9, {3.7717388273471327`*^9, 3.7717388276201315`*^9}, 
   3.771738995059024*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"a5a31dfa-abb5-4639-a9c6-855dff2287ed"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC6M3.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738775923132*^9, {3.7717388301631317`*^9, 3.771738830339133*^9}, 
   3.7717389986910243`*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"e3bc37a9-ad10-42ec-87bc-61762920b680"],

Cell[BoxData[
 RowBox[{"<<", "\"\<LogVC6M4.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738777492132*^9, {3.771738832723132*^9, 3.7717388328991327`*^9}, 
   3.771739002307023*^9, 3.7724306667652464`*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"68a68f4c-52c2-48ed-9363-3f66261c34e8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting Logarithmic gains", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 
  3.7717390561950235`*^9}},ExpressionUUID->"e7712573-6ec4-4560-8243-\
50f7a209f2a9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "LogCC1M1", "]"}]], "Input",
 CellChangeTimes->{{3.7840326906508293`*^9, 3.7840326941037726`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"eccdb6f5-796c-46a5-a9d2-8e163c3168f0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5147", ",", "4", ",", "6"}], "}"}]], "Output",
 CellChangeTimes->{3.784032694657773*^9, 3.7970586298210506`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"dbb06697-ebe1-4c7e-8ada-fcb46c165c99"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogCC1M1", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.784032697697817*^9, 3.7840327042267723`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"ad794475-3a93-4b75-9542-8e13b0392f32"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.5372614213483276`", ",", 
     RowBox[{"-", "18.000055929767754`"}], ",", "0.2876394189801293`", ",", 
     RowBox[{"-", "9.911608224288417`*^-9"}], ",", 
     RowBox[{"-", "1.3447273338655547`*^-19"}], ",", 
     RowBox[{"-", "5.480679346154707`*^-25"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.897834256684568`*^-10", ",", 
     RowBox[{"-", "1.6409384156748587`*^-8"}], ",", "2.622206143739355`*^-10",
      ",", "1.442379578100271`*^-10", ",", 
     RowBox[{"-", "1.3567196193008678`*^-11"}], ",", 
     RowBox[{"-", "5.5295560733865244`*^-17"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.00024713184468477237`", ",", 
     RowBox[{"-", "0.00827974399350837`"}], ",", "0.0001323096306416693`", 
     ",", "0.00007277868281987485`", ",", "9.87402668628413`*^-16", ",", 
     RowBox[{"-", "4.075680777901597`*^-6"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1441366288871511`", ",", 
     RowBox[{"-", "4.829059520011217`"}], ",", "0.07716797547608564`", ",", 
     "0.04244727752461256`", ",", "5.758905421185716`*^-13", ",", 
     "2.3503565986597534`*^-18"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7840327053207817`*^9, 3.7970586299410524`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"6c7f7402-061c-40d3-8d20-dbb6ad899a79"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 3.7717438210269485`*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"fac4698f-0e92-43ff-a77d-485dc5bca48f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M2x1x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC1M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC1M2", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x1x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC1M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC1M2", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x1xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "6"}], "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"e941c67c-556d-478f-aba3-e6d50177f20f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M2x2x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC1M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC1M2", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x2x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC1M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC1M2", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x2xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "6"}], "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"1ecb97f3-b5b1-4e73-b0af-ce4d0b8f8e65"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M2x3x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC1M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC1M2", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x3x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC1M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC1M2", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x3xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "6"}], "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"2830834b-a2f8-4a5d-8004-3840a0cfede1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M2x4x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC1M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC1M2", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x4x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC1M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC1M2", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x4xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
  3.7840327702638054`*^9, 3.784032809381795*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"fcb1a319-c6fa-44cd-adb0-8846ee07cabd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lx5M1M2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"LogCC1M1", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"LogCC1M2", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lx6M1M2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"LogCC1M1", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"LogCC1M2", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.784032852802772*^9, 3.7840328926877756`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"ff453597-b19e-474f-88f2-fdb4b05dc92b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1C1x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M1M2", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ">", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M1C1x6", "=", 
    RowBox[{
     RowBox[{"Dimensions", "[", 
      RowBox[{"Select", "[", 
       RowBox[{"Lx6M1M2", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ">", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
     "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2C1x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M1M2", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2C1x6", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx6M1M2", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7840328987087717`*^9, 3.7840330178987722`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"eafbe799-8286-4e16-9076-cdbd451f31cf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"C1SA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M1C1x5", ",", "M2C1x5", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M1M2", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M1C1x5", "+", "M2C1x5"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M1C1x5", ",", "M2C1x5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M1M2", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M1C1x5", "+", "M2C1x5"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M1M2", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"C1CTA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M1C1x6", ",", "M2C1x6", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M1M2", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M1C1x6", "+", "M2C1x6"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M1C1x6", ",", "M2C1x6", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M1M2", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M1C1x6", "+", "M2C1x6"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M1M2", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.7840330220668097`*^9, 3.784033200136828*^9}, {
  3.7840378045181*^9, 3.7840378062671003`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"0381336a-0000-47b2-87fb-1689929bed1a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2276", ",", "2871", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.44219933942102196`", ",", "0.557800660578978`", ",", "0.`"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7840378068740997`*^9, 3.797058632597829*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"ba7c34f1-da78-4c1c-a5fe-6a02e0c8e430"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2871", ",", "2276", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.557800660578978`", ",", "0.44219933942102196`", ",", "0.`"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7840378068740997`*^9, 3.7970586326178665`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"66f49776-77ce-49ad-b07e-bceb544a42b5"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M22x1x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC2M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC2M22", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x1x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC2M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC2M22", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x1xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "6"}], "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717396198608775`*^9, 
  3.7717396995236497`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"018f7bc9-688e-45bc-9b67-e3a3c01134af"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M22x2x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC2M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC2M22", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x2x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC2M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC2M22", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x2xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "6"}], "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717397086926746`*^9, 3.7717397824999356`*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"e7a3fdb2-34c8-42bf-a88b-95c7ecd30bde"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M22x3x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC2M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC2M22", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x3x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC2M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC2M22", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x3xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "6"}], "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M22", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
  3.771739791364935*^9, 3.771739835666936*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"3d11b37e-c5e8-461f-aa95-f708def62348"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M22x4x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC2M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC2M22", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x4x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LogCC2M1", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"LogCC2M22", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x4xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
           RowBox[{"LogCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
     "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739551186803*^9, 3.771739584087877*^9}, {
  3.771739840291936*^9, 3.7717398872348766`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"09bdb500-77b1-4c19-b356-6f38a053b861"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lx5M1M22", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"LogCC2M1", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"LogCC2M22", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lx6M1M22", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"LogCC2M1", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"LogCC2M22", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.784032852802772*^9, 3.7840328926877756`*^9}, {
  3.78403324816679*^9, 3.7840332877104387`*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"2da3193b-2be0-44ba-b389-ac1ec6ab268b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1C2x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M1M22", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ">", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M1C2x6", "=", 
    RowBox[{
     RowBox[{"Dimensions", "[", 
      RowBox[{"Select", "[", 
       RowBox[{"Lx6M1M22", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ">", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
     "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M22C2x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M1M22", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M22C2x6", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx6M1M22", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7840328987087717`*^9, 3.7840330178987722`*^9}, {
  3.784033275743415*^9, 3.784033333605497*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"8a1abfdf-8473-4d86-81e3-94829d44a9b4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"C2SA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M1C2x5", ",", "M22C2x5", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M1M22", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M1C2x5", "+", "M22C2x5"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M1C2x5", ",", "M22C2x5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M1M22", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M1C2x5", "+", "M22C2x5"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M1M22", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"C2CTA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M1C2x6", ",", "M22C2x6", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M1M22", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M1C2x6", "+", "M22C2x6"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M1C2x6", ",", "M22C2x6", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M1M22", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M1C2x6", "+", "M22C2x6"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M1M22", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.7840330220668097`*^9, 3.784033200136828*^9}, {
  3.784033352815485*^9, 3.7840334583824153`*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"1c33fe25-93cb-46d7-b70a-79fbaa66ce98"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3432", ",", "1568", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6864`", ",", "0.3136`", ",", "0.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7840330736497726`*^9, 3.7840331016007752`*^9}, 
   3.784033146588808*^9, 3.784033194058773*^9, {3.7840334471724167`*^9, 
   3.7840334590854516`*^9}, 3.797058637217991*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"d89db1b4-36a5-4517-93f3-538f06772542"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"509", ",", "4491", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1018`", ",", "0.8982`", ",", "0.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7840330736497726`*^9, 3.7840331016007752`*^9}, 
   3.784033146588808*^9, 3.784033194058773*^9, {3.7840334471724167`*^9, 
   3.7840334590854516`*^9}, 3.7970586372278924`*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"ca1e2db0-c052-4676-8e19-15b586fee818"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M22x1x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC3M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC3M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x1x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC3M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC3M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x1xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717399231888766`*^9, 
  3.771740019474829*^9}, {3.7717400784855833`*^9, 3.7717400972029295`*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"b77dce9c-ec4c-4a7f-a757-cbaa07b65ab3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M22x2x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC3M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC3M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x2x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC3M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC3M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x2xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717401028209295`*^9, 3.7717401995880985`*^9}, {3.7717402302770977`*^9, 
  3.771740268770564*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"878f9bf4-4268-4e13-9cef-152a501e3189"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M22x3x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC3M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC3M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x3x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC3M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC3M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x3xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
   3.7717402732365637`*^9, 3.771740368578739*^9}, 3.7717404503897395`*^9},
 CellLabel->"In[78]:=",ExpressionUUID->"af16be24-7bdc-4390-a968-800bd0db4b33"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M22x4x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC3M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC3M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x4x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC3M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC3M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x4xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739551186803*^9, 3.771739584087877*^9}, {
  3.77174037528374*^9, 3.7717404830424604`*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"9e85c895-50e8-44b3-9db2-a1c657a73180"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lx5M2M22", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{"LogCC3M2", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Re", "[", 
        RowBox[{"LogCC3M22", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lx6M2M22", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{"LogCC3M2", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Re", "[", 
        RowBox[{"LogCC3M22", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.784032852802772*^9, 3.7840328926877756`*^9}, {
  3.78403324816679*^9, 3.7840332877104387`*^9}, {3.784033497846466*^9, 
  3.7840335356084657`*^9}, {3.784034879383415*^9, 3.784034907189416*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"40402aa7-004a-466f-85c0-9c674c346ff0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M2C3x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M2M22", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ">", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M2C3x6", "=", 
    RowBox[{
     RowBox[{"Dimensions", "[", 
      RowBox[{"Select", "[", 
       RowBox[{"Lx6M2M22", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ">", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
     "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M22C3x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M2M22", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M22C3x6", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx6M2M22", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7840328987087717`*^9, 3.7840330178987722`*^9}, {
  3.784033275743415*^9, 3.784033333605497*^9}, {3.784033540453422*^9, 
  3.7840335675934625`*^9}, {3.784034828371415*^9, 3.7840348634664154`*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"d7dd2d6a-996c-4ea7-941c-6cb6fda0cf3f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"C3SA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M2C3x5", ",", "M22C3x5", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M2M22", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M2C3x5", "+", "M22C3x5"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M2C3x5", ",", "M22C3x5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M2M22", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M2C3x5", "+", "M22C3x5"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M2M22", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"C3CTA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M2C3x6", ",", "M22C3x6", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M2M22", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M2C3x6", "+", "M22C3x6"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M2C3x6", ",", "M22C3x6", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M2M22", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M2C3x6", "+", "M22C3x6"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M2M22", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.7840330220668097`*^9, 3.784033200136828*^9}, {
  3.784033352815485*^9, 3.7840334583824153`*^9}, {3.7840349191784163`*^9, 
  3.7840349892964616`*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"7b59f76b-21f2-49d9-8421-4c00ba6c1012"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2708", ",", "2292", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5416000000000001`", ",", "0.45840000000000003`", ",", "0.`"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7840330736497726`*^9, 3.7840331016007752`*^9}, 
   3.784033146588808*^9, 3.784033194058773*^9, {3.7840334471724167`*^9, 
   3.7840334590854516`*^9}, 3.784034990607416*^9, 3.797058642123784*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"a6519a08-be41-4a25-b4d8-b06e46e0d311"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"4578", ",", "422", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9156000000000001`", ",", "0.0844`", ",", "0.`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7840330736497726`*^9, 3.7840331016007752`*^9}, 
   3.784033146588808*^9, 3.784033194058773*^9, {3.7840334471724167`*^9, 
   3.7840334590854516`*^9}, 3.784034990607416*^9, 3.7970586421380196`*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"01a07280-7377-40a1-92c2-dedf12270200"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M3x1x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC4M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC4M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x1x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC4M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC4M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x1xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC4M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC4M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717399231888766`*^9, 
  3.771740019474829*^9}, {3.7717400784855833`*^9, 3.7717400972029295`*^9}, {
  3.77174050922046*^9, 3.771740573314315*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"5daa059d-27c9-429b-8368-f71184874613"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M3x2x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC4M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC4M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x2x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC4M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC4M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x2xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC4M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC4M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717401028209295`*^9, 3.7717401995880985`*^9}, {3.7717402302770977`*^9, 
  3.771740268770564*^9}, {3.7717405783723536`*^9, 3.771740627506379*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"3f46eb21-bdc7-41d9-8130-3510850c7bc5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M3x3x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC4M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC4M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x3x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC4M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC4M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x3xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC4M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC4M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
   3.7717402732365637`*^9, 3.771740368578739*^9}, 3.7717404503897395`*^9, {
   3.7717409774439797`*^9, 3.77174103753798*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"3f4c12d2-d02f-4f97-b8ce-0869697f7716"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M3x4x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC4M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC4M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x4x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC4M2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC4M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x4xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC4M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC4M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739551186803*^9, 3.771739584087877*^9}, {
  3.77174037528374*^9, 3.7717404830424604`*^9}, {3.7717410454609804`*^9, 
  3.7717410961303883`*^9}, {3.771743216307538*^9, 3.771743220113538*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"6df1c74a-b09a-43cd-8c38-d3582c517055"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lx5M2M3", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{"LogCC4M2", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Re", "[", 
        RowBox[{"LogCC4M3", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lx6M2M3", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{"LogCC4M2", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Re", "[", 
        RowBox[{"LogCC4M3", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.784032852802772*^9, 3.7840328926877756`*^9}, {
  3.78403324816679*^9, 3.7840332877104387`*^9}, {3.784033497846466*^9, 
  3.7840335356084657`*^9}, {3.784034879383415*^9, 3.784034907189416*^9}, {
  3.784035044988485*^9, 3.784035066071441*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"c446d84c-6c2a-42e0-9a4e-77b099ed6da6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M2C4x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M2M3", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ">", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M2C4x6", "=", 
    RowBox[{
     RowBox[{"Dimensions", "[", 
      RowBox[{"Select", "[", 
       RowBox[{"Lx6M2M3", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ">", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
     "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3C4x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M2M3", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3C4x6", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx6M2M3", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7840328987087717`*^9, 3.7840330178987722`*^9}, {
  3.784033275743415*^9, 3.784033333605497*^9}, {3.784033540453422*^9, 
  3.7840335675934625`*^9}, {3.784034828371415*^9, 3.7840348634664154`*^9}, {
  3.784035073217498*^9, 3.784035097241482*^9}, {3.7840351451764774`*^9, 
  3.784035162789441*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"7d6f8513-da7c-4a18-8fa2-ac8ab8b5bb07"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"C4SA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M2C4x5", ",", "M3C4x5", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M2M3", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M2C4x5", "+", "M3C4x5"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M2C4x5", ",", "M3C4x5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M2M3", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M2C4x5", "+", "M3C4x5"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M2M3", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"C4CTA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M2C4x6", ",", "M3C4x6", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M2M3", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M2C4x6", "+", "M3C4x6"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M2C4x6", ",", "M3C4x6", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M2M3", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M2C4x6", "+", "M3C4x6"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M2M3", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.7840330220668097`*^9, 3.784033200136828*^9}, {
  3.784033352815485*^9, 3.7840334583824153`*^9}, {3.7840349191784163`*^9, 
  3.7840349892964616`*^9}, {3.784035112128476*^9, 3.7840351325474973`*^9}, {
  3.784035171197442*^9, 3.784035195312481*^9}, {3.7840359303394814`*^9, 
  3.7840359325314927`*^9}, {3.7840359688994665`*^9, 3.7840359944724426`*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"145963eb-a835-4613-a5c3-dc39889cbcef"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1910", ",", "3090", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.382`", ",", "0.618`", ",", "0.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7840330736497726`*^9, 3.7840331016007752`*^9}, 
   3.784033146588808*^9, 3.784033194058773*^9, {3.7840334471724167`*^9, 
   3.7840334590854516`*^9}, 3.784034990607416*^9, 3.784035995348444*^9, 
   3.7970586442280293`*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"9a40648e-850f-45e8-9d93-21d167d060ae"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3612", ",", "1388", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7224`", ",", "0.2776`", ",", "0.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7840330736497726`*^9, 3.7840331016007752`*^9}, 
   3.784033146588808*^9, 3.784033194058773*^9, {3.7840334471724167`*^9, 
   3.7840334590854516`*^9}, 3.784034990607416*^9, 3.784035995348444*^9, 
   3.797058644237997*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"ea5ce07c-b073-494a-9aa2-1c8633479344"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM22M3x1x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC5M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC5M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x1x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC5M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC5M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x1xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC5M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717399231888766`*^9, 
  3.771740019474829*^9}, {3.7717400784855833`*^9, 3.7717400972029295`*^9}, {
  3.77174050922046*^9, 3.771740573314315*^9}, {3.7717411201166*^9, 
  3.7717411728344493`*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"8bf9e8af-ccff-4bc8-b2ce-4d407ddc3404"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM22M3x2x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC5M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC5M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x2x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC5M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC5M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x2xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC5M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717401028209295`*^9, 3.7717401995880985`*^9}, {3.7717402302770977`*^9, 
  3.771740268770564*^9}, {3.7717405783723536`*^9, 3.771740627506379*^9}, {
  3.7717411777789803`*^9, 3.7717412573946805`*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"de05038f-c9ba-4ad1-90c8-358b842cb5e5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM22M3x3x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC5M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC5M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x3x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC5M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC5M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x3xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC5M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
   3.7717402732365637`*^9, 3.771740368578739*^9}, 3.7717404503897395`*^9, {
   3.7717409774439797`*^9, 3.77174103753798*^9}, {3.7717412651716814`*^9, 
   3.7717413160346813`*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"62adcf2a-81a6-4d0f-837d-cd5046085582"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM22M3x4x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC5M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC5M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x4x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC5M22", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC5M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x4xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"LogCC5M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC5M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739551186803*^9, 3.771739584087877*^9}, {
  3.77174037528374*^9, 3.7717404830424604`*^9}, {3.7717410454609804`*^9, 
  3.7717410961303883`*^9}, {3.771741320403681*^9, 3.7717413864666815`*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"5c3f4c9e-10b3-402d-9158-c56a6b302853"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lx5M22M3", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{"LogCC5M22", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Re", "[", 
        RowBox[{"LogCC5M3", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC5M22", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lx6M22M3", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{"LogCC5M22", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Re", "[", 
        RowBox[{"LogCC5M3", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC5M22", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.784032852802772*^9, 3.7840328926877756`*^9}, {
  3.78403324816679*^9, 3.7840332877104387`*^9}, {3.784033497846466*^9, 
  3.7840335356084657`*^9}, {3.784034879383415*^9, 3.784034907189416*^9}, {
  3.784035044988485*^9, 3.784035066071441*^9}, {3.7840364182124414`*^9, 
  3.7840364488264923`*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"651e4143-851a-4068-98f2-75886c496a9a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M22C5x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M22M3", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ">", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M22C5x6", "=", 
    RowBox[{
     RowBox[{"Dimensions", "[", 
      RowBox[{"Select", "[", 
       RowBox[{"Lx6M22M3", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ">", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
     "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3C5x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M22M3", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3C5x6", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx6M22M3", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7840328987087717`*^9, 3.7840330178987722`*^9}, {
  3.784033275743415*^9, 3.784033333605497*^9}, {3.784033540453422*^9, 
  3.7840335675934625`*^9}, {3.784034828371415*^9, 3.7840348634664154`*^9}, {
  3.784035073217498*^9, 3.784035097241482*^9}, {3.7840351451764774`*^9, 
  3.784035162789441*^9}, {3.7840364565284414`*^9, 3.7840364808114424`*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"e01f5d4c-9e7d-44ac-892a-45f192c44f41"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"C5SA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M22C5x5", ",", "M3C5x5", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M22M3", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M22C5x5", "+", "M3C5x5"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M22C5x5", ",", "M3C5x5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M22M3", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M22C5x5", "+", "M3C5x5"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M22M3", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"C5CTA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M22C5x6", ",", "M3C5x6", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M22M3", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M22C5x6", "+", "M3C5x6"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M22C5x6", ",", "M3C5x6", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M22M3", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M22C5x6", "+", "M3C5x6"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M22M3", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.7840330220668097`*^9, 3.784033200136828*^9}, {
  3.784033352815485*^9, 3.7840334583824153`*^9}, {3.7840349191784163`*^9, 
  3.7840349892964616`*^9}, {3.784035112128476*^9, 3.7840351325474973`*^9}, {
  3.784035171197442*^9, 3.784035195312481*^9}, {3.7840359303394814`*^9, 
  3.7840359325314927`*^9}, {3.7840359688994665`*^9, 3.7840359944724426`*^9}, {
  3.784036485387494*^9, 3.784036569687477*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"e9a41938-dae9-4add-a6c9-aab6aefd411c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2222", ",", "2777", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4444`", ",", "0.5554`", ",", "0.0002`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7840330736497726`*^9, 3.7840331016007752`*^9}, 
   3.784033146588808*^9, 3.784033194058773*^9, {3.7840334471724167`*^9, 
   3.7840334590854516`*^9}, 3.784034990607416*^9, 3.784035995348444*^9, 
   3.784036570367442*^9, 3.797058654363544*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"ef7cc652-ad31-4707-a2bf-87131f998a90"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3134", ",", "1866", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6268`", ",", "0.37320000000000003`", ",", "0.`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7840330736497726`*^9, 3.7840331016007752`*^9}, 
   3.784033146588808*^9, 3.784033194058773*^9, {3.7840334471724167`*^9, 
   3.7840334590854516`*^9}, 3.784034990607416*^9, 3.784035995348444*^9, 
   3.784036570367442*^9, 3.797058654370544*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"5518318a-5f97-467a-b0e6-0221899e30b8"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM3M4x1x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC6M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC6M4", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x1x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC6M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC6M4", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x1xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}]}], ",", 
           RowBox[{"LogCC6M4", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717399231888766`*^9, 
  3.771740019474829*^9}, {3.7717400784855833`*^9, 3.7717400972029295`*^9}, {
  3.77174050922046*^9, 3.771740573314315*^9}, {3.7717411201166*^9, 
  3.7717411728344493`*^9}, {3.7717414087076807`*^9, 3.7717414748014956`*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"16f71097-9d97-4c0f-ab84-dccda0fc70f8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM3M4x2x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC6M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC6M4", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x2x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"LogCC6M3", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"LogCC6M4", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x2xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Re", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"LogCC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
            RowBox[{"LogCC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}]}], ",", 
           RowBox[{"LogCC6M4", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
     ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717401028209295`*^9, 3.7717401995880985`*^9}, {3.7717402302770977`*^9, 
  3.771740268770564*^9}, {3.7717405783723536`*^9, 3.771740627506379*^9}, {
  3.7717411777789803`*^9, 3.7717412573946805`*^9}, {3.771741486656495*^9, 
  3.771741558597496*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"09c3a230-4665-4933-8a33-f3d328a2a09f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM3M4x3x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC6M4", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x3x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC6M4", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x3xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"LogCC6M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC6M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}]}], ",", 
            RowBox[{"LogCC6M4", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
     "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717422806787443`*^9, 3.7717422915707445`*^9}, {
  3.7717423246107445`*^9, 3.7717423248187447`*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"96803840-5c24-4ee4-bade-b93a0a4de4d9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM3M4x4x5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC6M4", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x4x6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC6M4", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
     "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x4xt", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"LogCC6M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC6M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}], ",", 
            RowBox[{"LogCC6M4", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
     "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739551186803*^9, 3.771739584087877*^9}, {
  3.77174037528374*^9, 3.7717404830424604`*^9}, {3.7717410454609804`*^9, 
  3.7717410961303883`*^9}, {3.771741320403681*^9, 3.7717413864666815`*^9}, {
  3.771742353747744*^9, 3.7717424526425285`*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"afe04ccc-be27-4cfc-8df7-80ef5d7cc380"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Lx5M3M4", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{"LogCC6M3", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Re", "[", 
        RowBox[{"LogCC6M4", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lx6M3M4", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", 
        RowBox[{"LogCC6M3", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Re", "[", 
        RowBox[{"LogCC6M4", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.784032852802772*^9, 3.7840328926877756`*^9}, {
  3.78403324816679*^9, 3.7840332877104387`*^9}, {3.784033497846466*^9, 
  3.7840335356084657`*^9}, {3.784034879383415*^9, 3.784034907189416*^9}, {
  3.784035044988485*^9, 3.784035066071441*^9}, {3.7840364182124414`*^9, 
  3.7840364488264923`*^9}, {3.784037314733827*^9, 3.784037347803868*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"1ac0af9e-1fee-4b18-b74d-05db769187a3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M3C6x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M3M4", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ">", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M3C6x6", "=", 
    RowBox[{
     RowBox[{"Dimensions", "[", 
      RowBox[{"Select", "[", 
       RowBox[{"Lx6M3M4", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ">", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "]"}], 
     "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M4C6x5", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx5M3M4", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M4C6x6", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", 
     RowBox[{"Select", "[", 
      RowBox[{"Lx6M3M4", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
          RowBox[{"Re", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7840328987087717`*^9, 3.7840330178987722`*^9}, {
  3.784033275743415*^9, 3.784033333605497*^9}, {3.784033540453422*^9, 
  3.7840335675934625`*^9}, {3.784034828371415*^9, 3.7840348634664154`*^9}, {
  3.784035073217498*^9, 3.784035097241482*^9}, {3.7840351451764774`*^9, 
  3.784035162789441*^9}, {3.7840364565284414`*^9, 3.7840364808114424`*^9}, {
  3.7840372868874445`*^9, 3.7840373027638664`*^9}, {3.7840373624268637`*^9, 
  3.784037373564828*^9}, {3.7840374080498285`*^9, 3.7840374094028835`*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"967b3b3f-c8de-471c-a9cc-2954c44c07bb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"C6SA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M3C6x5", ",", "M4C6x5", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M3M4", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M3C6x5", "+", "M4C6x5"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M3C6x5", ",", "M4C6x5", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M3M4", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M3C6x5", "+", "M4C6x5"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M3M4", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"C6CTA", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"M3C6x6", ",", "M4C6x6", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "Lx5M3M4", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "-", 
       RowBox[{"(", 
        RowBox[{"M3C5x6", "+", "M4C6x6"}], ")"}]}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M3C6x6", ",", "M4C6x6", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "Lx5M3M4", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", 
        RowBox[{"(", 
         RowBox[{"M3C6x6", "+", "M4C6x6"}], ")"}]}]}], "}"}], "/", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Dimensions", "[", "Lx5M3M4", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.7840330220668097`*^9, 3.784033200136828*^9}, {
  3.784033352815485*^9, 3.7840334583824153`*^9}, {3.7840349191784163`*^9, 
  3.7840349892964616`*^9}, {3.784035112128476*^9, 3.7840351325474973`*^9}, {
  3.784035171197442*^9, 3.784035195312481*^9}, {3.7840359303394814`*^9, 
  3.7840359325314927`*^9}, {3.7840359688994665`*^9, 3.7840359944724426`*^9}, {
  3.784036485387494*^9, 3.784036569687477*^9}, {3.7840373812678275`*^9, 
  3.784037528450827*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"af6b4ef2-343d-4008-9e8e-ecbf02ae1bf9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2323", ",", "2675", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4646`", ",", "0.535`", ",", "0.0004`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7840330736497726`*^9, 3.7840331016007752`*^9}, 
   3.784033146588808*^9, 3.784033194058773*^9, {3.7840334471724167`*^9, 
   3.7840334590854516`*^9}, 3.784034990607416*^9, 3.784035995348444*^9, 
   3.784036570367442*^9, 3.7840375290298276`*^9, 3.7970586628906612`*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"4ff99bdb-9641-40e9-aa27-af85148a3019"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2336", ",", "2663", ",", "471"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.4672`", ",", "0.5326000000000001`", ",", "0.0002`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7840330736497726`*^9, 3.7840331016007752`*^9}, 
   3.784033146588808*^9, 3.784033194058773*^9, {3.7840334471724167`*^9, 
   3.7840334590854516`*^9}, 3.784034990607416*^9, 3.784035995348444*^9, 
   3.784036570367442*^9, 3.7840375290298276`*^9, 3.7970586628976603`*^9},
 CellLabel->
  "Out[151]=",ExpressionUUID->"65d94107-f727-4908-9a7e-7d9766f909ca"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "100", ",", "0.05"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
  3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
  3.771743933889916*^9}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"9fb0e7f6-d629-4829-ab48-9c933a862cbf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Gray", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow",
     ",", "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"a698c248-5744-4f29-8ba7-604f0c32ba00"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.33333333333333337`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0.5],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.7840325004818306`*^9, 
   3.784032554539773*^9, 3.797058663552739*^9},
 CellLabel->
  "Out[153]=",ExpressionUUID->"6be36b23-b135-42b5-8eda-d2023a2e423b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M2/M1\>\"", ",", " ", "\"\<M2'/M1\>\"",
      ",", " ", "\"\<M2'/M2\>\"", ",", " ", "\"\<M3/M2\>\"", ",", " ", 
     "\"\<M3/M2'\>\"", ",", "\"\<M4/M3\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"14cefbf5-955f-4a1d-92ec-18c0d7512032"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},
 CellLabel->
  "In[155]:=",ExpressionUUID->"192ae7ca-f3d4-4d7c-b602-1c24d3f7f91a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MWLCM1M2x1x5", ",", "MWLCM1M22x1x5", ",", 
     "MWLCM2M22x1x5", ",", "MWLCM2M3x1x5", ",", "MWLCM22M3x1x5", ",", 
     "MWLCM3M4x1x5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "100"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X1,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X1,S] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}},ExpressionUUID->"df389041-e9a0-4b4b-9497-\
ee90fcbdd188"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2F/oL/Ycx/FjYzOGcRhj2BzGGMaZ+Tc2xhjzb4exciELKUWdUsqFWinl
[encoded data, 5940 characters]
Xtq9tHtp99Lu3bz+B3YQ3Ng=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxE1nc8Vf8fB3AhIQmJQlkRQikJcV8ISSWEJEVWVrZo2Fv2zN5775lNSYlI
[encoded data, 87660 characters]
ykYUJpNzW5yb8S+hPp4r
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c81t//P3BJkmRTSWWTKMmqdJ2LyAjJCiGEZGeTbEK27IqEZCfJyl4h
[encoded data, 55680 characters]
Q/3/AfUypEA=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8l//3P3DZITtbZhKRTdR1IdmbzBZJkihZaZhZ2YQk2UVGZIfs7GQl
[encoded data, 54300 characters]
050o/z/vI87V
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM13c81e/7B3B7RJmhjGRkFSopUvchM5KdpIysECUkSVbKyMpOyE723mRl
[encoded data, 56280 characters]
ABA=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c41+37P3AkIyVklCQrJCtkFK6SkCIhKyFEA8kWyaqQZGcTsvfee5OQ
[encoded data, 54540 characters]
tuJH
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM13c81f/7P3B7JYQkya6EJIlwzut5lJSiFG8r2YWSECpkZ5OsZK+QkJWV
[encoded data, 57060 characters]
HKjGLladpC7nAR9aakuiEAb/8noQNyZZjVbsm5kXhgLR/wEhS4NN
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X1,S] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X1,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{0, 100}, {0, 100}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430565345383`*^9, 3.771743723630438*^9, {
   3.7717438681229663`*^9, 
   3.7717439489337597`*^9}},ExpressionUUID->"aa81143f-634c-4761-9b1d-\
140f7fec24d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MWLCM1M2x2x5", ",", "MWLCM1M22x2x5", ",", 
     "MWLCM2M22x2x5", ",", "MWLCM2M3x2x5", ",", "MWLCM22M3x2x5", ",", 
     "MWLCM3M4x2x5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "30"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "30"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X2,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X2,S] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.7717429847714577`*^9, 3.7717430060845375`*^9}, {3.7717430669685717`*^9, 
  3.7717430697135377`*^9}, {3.7717439702277594`*^9, 
  3.771743984257759*^9}},ExpressionUUID->"6dbff3cb-6f82-458a-a584-\
386d11a6f855"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2F/oL/Ycx/FjYzOGcRhj2BzGGMaZ+Tc2xhjzb4exciELKUWdUsqFWinl
[encoded data, 5940 characters]
Xtq9tHtp99Lu3bz+B3YQ3Ng=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxE13c4l98bB3ArCSGEJLILZSShz33bI0n2zt5kr5C9EqKSUiGrJVnZCkmy
[encoded data, 85080 characters]
hQLHvje8lD2D/g+p2Rjl
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c81u37P3ArO9lRyCaEjLKu94WQiJAkhKwkZYSkqKzMSFaSHbJXRLKS
[encoded data, 55500 characters]
qwrs/wCmnWjY
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM2Hc412/7P3A7eyeEpAjJSlG8rzeyMqKyQmRLJQlRimRENpVsKtlkJbJH
[encoded data, 55620 characters]
fL5270FWIar35+Z7o1oKLlWhH7HYdxW36Qjn/vZXF/s/F8YXIQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM13c81+v/P3BECmWGJNk7WUnG67KSRFF29grZpOxdkmSFrKzMsrJJGaFd
[encoded data, 55980 characters]
Sb7dF+BS29NsN9oicaqM0xe7h8nx/wGL1bku
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8l9//P3A7JCskRbKzk4S4LntkbyF7j0JIQkJIKSuEhMyM7JVdhCQr
[encoded data, 56160 characters]
xf4PH3xAOw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM13c8V+//P3AkK5tk75WskJDXOTbZpJKVnUpWVpLsJCSjrCRbIXtmz0RU
[encoded data, 56280 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X2,S] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X2,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{0, 30}, {0, 30}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430076935377`*^9, 3.771743071554538*^9, 
   3.7717437326844378`*^9, {3.7717439747067604`*^9, 
   3.7717439854331055`*^9}},ExpressionUUID->"f6ef27a0-ff2d-4992-b4f6-\
f71fcd94a7c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MWLCM1M2x3x5", ",", "MWLCM1M22x3x5", ",", 
     "MWLCM2M22x3x5", ",", "MWLCM2M3x3x5", ",", "MWLCM22M3x3x5", ",", 
     "MWLCM3M4x3x5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "30"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "30"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X3,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X3,S] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.7717430282915373`*^9, 3.7717430389475803`*^9}, {3.7717430890025377`*^9, 
  3.7717430957295938`*^9}, {3.7717431257325373`*^9, 
  3.7717431292835712`*^9}},ExpressionUUID->"5cc784e2-591a-40aa-ad73-\
0518037cfc03"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2F/oL/Ycx/FjYzOGcRhj2BzGGMaZ+Tc2xhjzb4exciELKUWdUsqFWinl
[encoded data, 5940 characters]
Xtq9tHtp99Lu3bz+B3YQ3Ng=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxM12c4l2/YB3CE7D1LspKQnUpdZ8iIQmZC9s7KziZEZO/sHbI32XvvHUIo
[encoded data, 81960 characters]
Vz77/Rs2+D+Mml1L
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c81u37P3AJkT0ahIgoK0mleJ9vKSMreyVRkazskOyskCQimSUJWVlJ
[encoded data, 56460 characters]
aP5IzuOsg1EH/ORCt7F2zBdsWoKmxmsH8v8Ht5SLGg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM1nc8l9//P3A7WdkkSUiSKCHkulASshKSlR0SkpWRLSQzQkj2JkpmIYTs
[encoded data, 55920 characters]
oqQA7fd/misqPA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM13c81t//P3A7JAkhZGcnW8nrXJIVKlllZJNsUiF7E7KyskckZCcke8/I
[encoded data, 58080 characters]
gSPY/wNWjhdz
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8l9//P3Cb7B2RvSJ7y+tcyAopKxSFkFAhIWTvRNmVbMqWHZGsZO+V
[encoded data, 57360 characters]
Qezdr3wjJFvRfor25lu3W+j/AAMP8z8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM23c41v/7P35Eyc6u7BVlhxDXU1aSVSErJNlkRWSv7OyRkb1DyKqQ7EoS
[encoded data, 54720 characters]
KPdhzPY/8P8BqzNPIQ==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X3,S] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X3,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{0, 30}, {0, 30}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430404035378`*^9, 3.7717430974075375`*^9, 
   3.7717431332645373`*^9, 3.7717432610825377`*^9, 3.771743736328438*^9, 
   3.7717440252000895`*^9},ExpressionUUID->"46a97c0b-ba28-472c-8eab-\
5590a474359a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MWLCM1M2x4x5", ",", "MWLCM1M22x4x5", ",", 
     "MWLCM2M22x4x5", ",", "MWLCM2M3x4x5", ",", "MWLCM22M3x4x5", ",", 
     "MWLCM3M4x4x5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "30"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "30"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X4,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X4,S] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.7717430282915373`*^9, 3.7717430389475803`*^9}, {3.7717430890025377`*^9, 
  3.7717430957295938`*^9}, {3.771743159250538*^9, 3.771743184050538*^9}, {
  3.771743299585538*^9, 
  3.7717433000345373`*^9}},ExpressionUUID->"15087854-8967-4648-ac6a-\
4a3f33228b3e"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2F/oL/Ycx/FjYzOGcRhj2BzGGMaZ+Tc2xhjzb4exciELKUWdUsqFWinl
[encoded data, 5940 characters]
Xtq9tHtp99Lu3bz+B3YQ3Ng=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxM13c8Vv/7B3CVSrKSkAqRkVVGEeWSTUKSSpIIkSIZmSEyiyQVQhKSkJWQ
[encoded data, 69180 characters]
U8b2a7pg08faoTH/HP8HMSN46g==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c8lu/bB3A7WdlZWUnICqlQ5y0jWRkpyUpWVkKSlSgrO1nJKkIkypa9
[encoded data, 54240 characters]
zp8pKnteuwSsNDMu07DRger9LkfstEl8Rfv+D18mejI=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM1nc81t//P3B7JTvZe68Kyex1JRkRZSebELKjJFkZZUV2ZCXZI0JSZpER
[encoded data, 54360 characters]
/wNsZXXA
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM2nc4l+37B3Cj7L33XtkrIblvW1aSR2YhKxUSKitKyMoKSUZJNiEhySaR
[encoded data, 53580 characters]
xYY+1w==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c81937B3B7RYQkm+wdkpXPQUZIZROy9woJISFUVjJKkhVShJZNkk0q
[encoded data, 55680 characters]
oLOdVE6Kyf/+P8P7pwOveCoqfkU9HVijif4Hu8q/6A==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM13c8V//bB3B775Vkj4xkk32OEZIkStIgm4RUthKSTWQXZZMZSULIysre
[encoded data, 54000 characters]
VkuM3dlBk7jsSILr/wcIba4P
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X4,S] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X4,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{0, 30}, {0, 30}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430404035378`*^9, 3.7717430974075375`*^9, 
   3.7717433102459416`*^9, 3.771743737630948*^9, 
   3.771744032730089*^9},ExpressionUUID->"af905ad1-7d1a-4f50-951d-\
c98091b334bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", "MWLCM22M3x4x5", "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X4,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X4,S] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.7717430282915373`*^9, 3.7717430389475803`*^9}, {3.7717430890025377`*^9, 
  3.7717430957295938`*^9}, {3.771743159250538*^9, 3.771743184050538*^9}, {
  3.771743299585538*^9, 3.7717433000345373`*^9}, {3.7717440877962265`*^9, 
  3.7717441110562644`*^9}},ExpressionUUID->"45513b8a-8105-4a8a-aad0-\
aea10b8aae47"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[0.004583333333333334], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxM13c81937B3B7RYQkm+wdkpXPQUZIZROy9woJISFUVjJKkhVShJZNkk0q
[encoded data, 55680 characters]
oLOdVE6Kyf/+P8P7pwOveCoqfkU9HVijif4Hu8q/6A==
         "]]}}, {{
        Directive[
         PointSize[0.004583333333333334], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {}}, {{
        Directive[
         PointSize[0.004583333333333334], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X4,S] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X4,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{0, 49077.9896610757}, {0, 5207.095035970139}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430404035378`*^9, 3.7717430974075375`*^9, 
   3.7717433102459416`*^9, 3.771743737630948*^9, 3.771744032730089*^9, {
   3.771744095031227*^9, 
   3.771744111908264*^9}},ExpressionUUID->"5e823f67-9ccd-4864-8fac-\
69f43659ec00"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "100", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717435987204533`*^9, 
  3.7717435996024537`*^9}},ExpressionUUID->"d92a9123-3c23-4750-9b3a-\
bd1e29e8d782"],

Cell[BoxData["LogCC2"], "Input",
 CellChangeTimes->{{3.771743664563102*^9, 
  3.771743666608235*^9}},ExpressionUUID->"39c42f90-bca9-4908-ae67-\
e85cce4baa38"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EqLine1", ",", 
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC1M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC2M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC3M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC4M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC4M3", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC5M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
     RowBox[{
      RowBox[{"Sort", "[", 
       RowBox[{"Re", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC6M4", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}]}], "}"}], 
   ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "30"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "30"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X4,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X4,S] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717430282915373`*^9, 3.7717430389475803`*^9}, {3.7717430890025377`*^9, 
   3.7717430957295938`*^9}, {3.771743159250538*^9, 3.771743184050538*^9}, {
   3.771743299585538*^9, 3.7717433000345373`*^9}, {3.7717434148984547`*^9, 
   3.771743559011454*^9}, {3.7717436148519754`*^9, 3.7717436185169754`*^9}, 
   3.7717436708440175`*^9},ExpressionUUID->"6ce64bdf-f4cd-452d-8208-\
96213e4a75a1"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxc3Xv8//dc+P85DXPYhs15c9yGMaexiDnOHGcTSUtFRqU2FS2KyrFSm0Ja
[encoded data, 31320 characters]
Hqx7sO7BugfrHqx7sO7BugfrHl/Lf0Pqv14=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJwUmXc81f8Xx40yMuIbSpIkIbuBSl6XkESpiDRlRiiR3aAhkSg0qIwSKioj
[encoded data, 103680 characters]
hlnUmHlv4VlGFtH/AV0qJkE=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJwU2Xc4V+8bB3ArhOyUitIgq5Ck6PM+FIpo2CWhiFJWyCYrvqRCy27Zq+y9
[encoded data, 102120 characters]
SSknu2jiSWtKfRujY0ef++79D1BY4qQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJwUl2VQlV0bhekOFQUJpaUkJBQQzv0cUEK6S1KkBKRDlA4FkW5EupHuOIfu
[encoded data, 103080 characters]
Bt5xuX21mKiTfge4/wE63hwn
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJwU12VYFk0XAGBCQlJakA7pEhApzzyilAooCgioiIRISCopYBEvjYQg0oJI
[encoded data, 101760 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxk13c0V/8fB3B7b0pJ0jBKCJEkr9eHSmVkFRVfRDKKQrJnVBQhKQrZSSLZ
[encoded data, 86820 characters]
SZ9yKNPPzF4qfqbkKvv/Aat7bL4=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJyEl/c/1+/3x5G9VwpJdpGZrZyLrMhOZSt7lygUSgkVsklkFdmFZL/svfd+
[encoded data, 101820 characters]
koyk6wnBRwfMv16JPBGusnWg95Ue+T+qD9Ct
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X4,S] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X4,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{0, 30}, {0, 30}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430404035378`*^9, 3.7717430974075375`*^9, 
   3.7717433102459416`*^9, 3.7717436245531025`*^9, 
   3.7717436747824373`*^9},ExpressionUUID->"ddf55cde-1bcc-4c7b-8173-\
70a013af6cd8"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting Logarithmic gains LogScale", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}},ExpressionUUID->"ba4dfc58-f532-4bed-82cf-\
77080f403052"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 
  3.7717438210269485`*^9},ExpressionUUID->"f59d22e3-3840-433a-8aaa-\
dcd8a8e3f3f1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M2x1x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC1M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x1x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC1M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x1xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "6"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717441480659943`*^9, 
  3.7717441643680105`*^9}},ExpressionUUID->"7247fab3-1572-4afd-ae2b-\
02f9dcac0a99"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M2x2x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC1M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x2x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC1M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x2xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "6"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717441698588557`*^9, 
  3.7717441798237977`*^9}},ExpressionUUID->"8fcc369d-a7fc-4086-ac59-\
93836380b611"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M2x3x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC1M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x3x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC1M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x3xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "6"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
  3.7717441833147984`*^9, 
  3.771744193247798*^9}},ExpressionUUID->"7ebb5937-9fe5-4946-9d6f-\
81295eaa568e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M2x4x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC1M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x4x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC1M2", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M2x4xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC1M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739551186803*^9, 3.771739584087877*^9}, {
  3.7717441965627975`*^9, 
  3.7717442110087976`*^9}},ExpressionUUID->"2c4648d7-6a71-47a8-b85c-\
05c5300694d3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M22x1x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC2M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x1x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC2M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x1xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "6"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717396198608775`*^9, 
  3.7717396995236497`*^9}, {3.771744214259798*^9, 
  3.771744224511798*^9}},ExpressionUUID->"318c65b1-ba37-4350-8902-\
bd6b7b4e93bb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M22x2x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC2M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x2x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC2M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x2xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "6"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717397086926746`*^9, 3.7717397824999356`*^9}, {3.7717442284347973`*^9, 
  3.7717442418417974`*^9}},ExpressionUUID->"672a8411-04ca-4835-b119-\
9252f1279a99"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M22x3x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC2M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x3x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC2M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x3xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "6"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M22", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
  3.771739791364935*^9, 3.771739835666936*^9}, {3.771744245923798*^9, 
  3.771744256736799*^9}},ExpressionUUID->"25520687-1495-47b1-9bc2-\
804bc776d388"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM1M22x4x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC2M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x4x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"LogCC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"LogCC2M22", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM1M22x4xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M1", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
             RowBox[{"LogCC2M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739551186803*^9, 3.771739584087877*^9}, {
  3.771739840291936*^9, 3.7717398872348766`*^9}, {3.7717442628507977`*^9, 
  3.7717442720157976`*^9}},ExpressionUUID->"5624e511-fef9-4cd5-b876-\
8b384fb1eb38"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M22x1x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC3M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC3M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x1x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC3M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC3M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x1xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717399231888766`*^9, 
  3.771740019474829*^9}, {3.7717400784855833`*^9, 3.7717400972029295`*^9}, {
  3.771744276962657*^9, 
  3.771744286832658*^9}},ExpressionUUID->"11b7ed6e-0228-44a0-90c3-\
91053e7aef69"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M22x2x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC3M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC3M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x2x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC3M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC3M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x2xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717401028209295`*^9, 3.7717401995880985`*^9}, {3.7717402302770977`*^9, 
  3.771740268770564*^9}, {3.7717442913637767`*^9, 
  3.7717443028477774`*^9}},ExpressionUUID->"402f0cdd-4133-4c5c-9ef0-\
ad8bed16a39f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M22x3x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC3M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC3M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x3x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC3M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC3M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x3xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
   3.7717402732365637`*^9, 3.771740368578739*^9}, 3.7717404503897395`*^9, {
   3.7717443085787773`*^9, 
   3.771744322863776*^9}},ExpressionUUID->"f00f8421-0413-44cf-804a-\
d2e7cf1e4841"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M22x4x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC3M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC3M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x4x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC3M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC3M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M22x4xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739551186803*^9, 3.771739584087877*^9}, {
  3.77174037528374*^9, 3.7717404830424604`*^9}, {3.7717443294747863`*^9, 
  3.7717443424477863`*^9}},ExpressionUUID->"edabfd16-cc49-469e-81df-\
b4f480e7eac1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M3x1x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC4M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC4M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x1x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC4M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC4M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x1xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC4M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC4M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC4M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC4M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC4M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717399231888766`*^9, 
  3.771740019474829*^9}, {3.7717400784855833`*^9, 3.7717400972029295`*^9}, {
  3.77174050922046*^9, 3.771740573314315*^9}, {3.7717443472027864`*^9, 
  3.7717443611037874`*^9}},ExpressionUUID->"d44a2a92-e27c-436b-8ea9-\
f3c018a89b88"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M3x2x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC4M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC4M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x2x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC4M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC4M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x2xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC4M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC4M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC3M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC4M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC4M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717401028209295`*^9, 3.7717401995880985`*^9}, {3.7717402302770977`*^9, 
  3.771740268770564*^9}, {3.7717405783723536`*^9, 3.771740627506379*^9}, {
  3.771744365106786*^9, 
  3.771744376607787*^9}},ExpressionUUID->"b11f8424-37a2-4fb6-9c2a-\
782a51f70605"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M3x3x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC4M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC4M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x3x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC4M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC4M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x3xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC4M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC4M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC4M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC4M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC4M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
   3.7717402732365637`*^9, 3.771740368578739*^9}, 3.7717404503897395`*^9, {
   3.7717409774439797`*^9, 3.77174103753798*^9}, {3.7717443810587864`*^9, 
   3.771744389951786*^9}},ExpressionUUID->"dea03b79-4633-414e-81ef-\
e8667a9e5632"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM2M3x4x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC4M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC4M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x4x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC4M2", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC4M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM2M3x4xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC4M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC4M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC4M2", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC4M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC4M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739551186803*^9, 3.771739584087877*^9}, {
  3.77174037528374*^9, 3.7717404830424604`*^9}, {3.7717410454609804`*^9, 
  3.7717410961303883`*^9}, {3.771743216307538*^9, 3.771743220113538*^9}, {
  3.771744392946788*^9, 
  3.7717444029767866`*^9}},ExpressionUUID->"8ad14e83-0c07-4f1d-b251-\
7fbc135dffb9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM22M3x1x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC5M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC5M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x1x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC5M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC5M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x1xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC5M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717399231888766`*^9, 
  3.771740019474829*^9}, {3.7717400784855833`*^9, 3.7717400972029295`*^9}, {
  3.77174050922046*^9, 3.771740573314315*^9}, {3.7717411201166*^9, 
  3.7717411728344493`*^9}, {3.7717444069630585`*^9, 
  3.771744417584059*^9}},ExpressionUUID->"abc00a3b-062e-41f6-ab5d-\
74691c96cc6c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM22M3x2x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC5M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC5M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x2x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC5M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC5M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x2xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC5M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717401028209295`*^9, 3.7717401995880985`*^9}, {3.7717402302770977`*^9, 
  3.771740268770564*^9}, {3.7717405783723536`*^9, 3.771740627506379*^9}, {
  3.7717411777789803`*^9, 3.7717412573946805`*^9}, {3.771744420803096*^9, 
  3.771744429536059*^9}},ExpressionUUID->"820fc38d-9faf-48bb-b96c-\
7c74790495a6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM22M3x3x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC5M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC5M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x3x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC5M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC5M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x3xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC5M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
   3.7717402732365637`*^9, 3.771740368578739*^9}, 3.7717404503897395`*^9, {
   3.7717409774439797`*^9, 3.77174103753798*^9}, {3.7717412651716814`*^9, 
   3.7717413160346813`*^9}, {3.771744433283059*^9, 
   3.7717444418720922`*^9}},ExpressionUUID->"7e5aa4a5-46a5-492e-982e-\
92b2bb310704"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM22M3x4x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC5M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC5M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x4x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC5M22", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC5M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM22M3x4xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M22", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"LogCC5M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC5M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739551186803*^9, 3.771739584087877*^9}, {
  3.77174037528374*^9, 3.7717404830424604`*^9}, {3.7717410454609804`*^9, 
  3.7717410961303883`*^9}, {3.771741320403681*^9, 3.7717413864666815`*^9}, {
  3.771744446755059*^9, 
  3.7717444575201006`*^9}},ExpressionUUID->"47667d34-4273-46c4-b0ea-\
c1a3d68418aa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM3M4x1x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC6M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC6M4", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x1x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC6M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC6M4", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x1xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC6M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC6M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}]}], ",", 
             RowBox[{"LogCC6M4", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717399231888766`*^9, 
  3.771740019474829*^9}, {3.7717400784855833`*^9, 3.7717400972029295`*^9}, {
  3.77174050922046*^9, 3.771740573314315*^9}, {3.7717411201166*^9, 
  3.7717411728344493`*^9}, {3.7717414087076807`*^9, 3.7717414748014956`*^9}, {
  3.771744460674572*^9, 
  3.7717444702715707`*^9}},ExpressionUUID->"248b6547-67fd-4c45-801a-\
d025d5adcdc2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM3M4x2x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC6M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC6M4", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x2x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"LogCC6M3", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"LogCC6M4", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x2xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"LogCC6M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"LogCC6M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}]}], ",", 
             RowBox[{"LogCC6M4", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717401028209295`*^9, 3.7717401995880985`*^9}, {3.7717402302770977`*^9, 
  3.771740268770564*^9}, {3.7717405783723536`*^9, 3.771740627506379*^9}, {
  3.7717411777789803`*^9, 3.7717412573946805`*^9}, {3.771741486656495*^9, 
  3.771741558597496*^9}, {3.7717444745315723`*^9, 
  3.7717444848966093`*^9}},ExpressionUUID->"2bc1ee98-a8bb-4a31-8d9d-\
cb79ebaa08af"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM3M4x3x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"LogCC6M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"LogCC6M4", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}],
         "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x3x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"LogCC6M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"LogCC6M4", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}],
         "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x3xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"LogCC6M3", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}], "+", 
               RowBox[{"LogCC6M3", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}]}], ",", 
              RowBox[{"LogCC6M4", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}],
         "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717422806787443`*^9, 3.7717422915707445`*^9}, {
  3.7717423246107445`*^9, 3.7717423248187447`*^9}, {3.771744488194992*^9, 
  3.7717444974239388`*^9}},ExpressionUUID->"b085196e-5bd8-406c-a038-\
dfb98c2e4397"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MWLCM3M4x4x5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"LogCC6M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"LogCC6M4", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}],
         "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x4x6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"LogCC6M3", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"LogCC6M4", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}],
         "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MWLCM3M4x4xt", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"LogCC6M3", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
               RowBox[{"LogCC6M3", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}], ",", 
              RowBox[{"LogCC6M4", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}],
         "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], ",", 
       "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739551186803*^9, 3.771739584087877*^9}, {
  3.77174037528374*^9, 3.7717404830424604`*^9}, {3.7717410454609804`*^9, 
  3.7717410961303883`*^9}, {3.771741320403681*^9, 3.7717413864666815`*^9}, {
  3.771742353747744*^9, 3.7717424526425285`*^9}, {3.7717445033469386`*^9, 
  3.7717445140319386`*^9}},ExpressionUUID->"56e8b623-e573-44ab-b316-\
8a051f89c102"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "10"}], ",", "6", ",", "0.05"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
  3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
  3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
  3.7717445687555103`*^9, 
  3.7717445706894703`*^9}},ExpressionUUID->"d8ecd7fa-1552-461b-8c9c-\
d04b28a0da1c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Gray", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow",
     ",", "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 
  3.762162734410307*^9}},ExpressionUUID->"eede4f8b-e72a-430c-8ddd-\
192bb3428738"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.33333333333333337`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0.5],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7721649210516896`*^9},ExpressionUUID->"9387ee13-0490-4525-9cf1-\
c9a7d3bd67d0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M2/M1\>\"", ",", " ", "\"\<M2'/M1\>\"",
      ",", " ", "\"\<M2'/M2\>\"", ",", " ", "\"\<M3/M2\>\"", ",", " ", 
     "\"\<M3/M2'\>\"", ",", "\"\<M4/M3\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 
   3.762674167944764*^9}},ExpressionUUID->"9efbf210-bc35-4a23-8c70-\
da4edba9e39e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"141d6c5e-7362-49fd-a03c-\
49fb5c65665b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MWLCM1M2x1x5", ",", "MWLCM1M22x1x5", ",", 
     "MWLCM2M22x1x5", ",", "MWLCM2M3x1x5", ",", "MWLCM22M3x1x5", ",", 
     "MWLCM3M4x1x5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X1,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X1,S] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 
  3.771744578434471*^9}},ExpressionUUID->"7e2f45d0-eb8f-415f-b684-\
9f31b078c4c3"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd18tKVXEARvHtLe/3e1etHiCyQbNs3qgniCBpVo/gIzTMaNDUcSNHBU0S
LAQhCBoohSSGZGVmZcb5r+23qD35geyz9uc5+2xx+va9m3eaq6q63lRVDTku
Pj92rnFsXoivVhqHzjSOp/pooXFoycxr6cxp6dzQ0pnR0plUdim7zkd2KbuU
XcouZZeyS9ml7FJ2KbumI7uUXcouZZeyS9ml7FJ2KbuUXVORXcouZZeyS9ml
7FJ2KbuUXVpmrJyLXFe5jtJVOkrnbKSjdJSO0lE6ZyIdpaN0lI7SOR3pKB2l
o3SUzqlIR+koHaWjdE5GOkpH6SgdpTMZ6SgdpaN0lM5EpKN0lI7SUb4H47Fk
FpSO0lE6Smcs0lE6SkfpKJ3RSEfpKB2lo7xvI5GO0lE6SkfpDEc6SkfpKB2l
MxTpKB2lo3SUzmCko3SUjtJROgORjtJROkpHH5bX9cfL5TzlOn2RrtJROr2R
jtLpiXSUjtLpjnSUTleko3SUTmeko3Q6Ih2lo3TaIx2lcyLSUTpKpy3SUTqt
kY7SUTotkY7SaY50lI7SaYp0lE4V6SgdvVRed/Ts2LvlvD+R6xzGl6X7O5JR
Or8inZ+RzkGk8yPSUTr7kc73SGcv0vkW6Sidr5HOl0hnN9L5HOnorfK6nbha
zvsUuc52fFC6W5HOx0hnM9L5EOm8j3Q2Ip31yI3wLs6X895GrvMmTpXuWqSz
GnndcqzKeS8iP1+KVXFR/z/KH+7Fa/+6FGfpRh60y7HeFTlvLc7ze8Un/N5x
nfcl1u9b5LyNSPd9rD+XeJ/PLdafa6SzFelsx/q+iXR2Yn3fRc5Turuxvq/j
Ve77WH8vIh2lsxfr712ksx/r722ko3QOYv1ciHR+xfq5EukoncNYP7cinaNY
33Wzx3Ke0tUrPFfjY567kUxzpKN0lE5LpKN0WiMdpaN02iIdpXMi0lE6Sqc9
0lE6HZGO0lE6nZGO0umKdJSO0umOdJROT6SjdJROb6SjdPoiHaWjdPojHaUz
EDlP6Sr/1+jrch2lMxjpKB2lo3SUzlCko3SUjtJROsORjtJROkpH6YxEOkpH
6SgdpTMa6SgdpaN0lM5YpKN0lI7SUTrjkY7SUTpKR+lMxL/e6he+
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxMl3k8lO/3/2fM2PelLFGKvCVEyJIlhWyhSCIVWSIlWRIJRckesoQKZSkk
[encoded data, 87720 characters]
JGO+LFArD0BeFCLmOcMPQIc6xm4=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c8V+//P3B7771XRtlRWelFlFFJlJBNIUXKCCF7hBJRyUokQvaKc7Kz
[encoded data, 55020 characters]
JGdURoAtnJW5D0ZC/f8Bl3mw5Q==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lu/bB3ArI3tHZIWSEDJS3ZTMkk1SSkQD2YqshlVCVsme2TMh3Rch
[encoded data, 53520 characters]
QptnZuWfupUT9l4UCBXigk2p2tJaqym0fUIP9h25vhH5/wFjmBkS
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM13c8Vu//B3B7Z4ZItjQoyk5OQkJFUZKdkKRSiBAqoUI22bIyysrWObKz
[encoded data, 55860 characters]
xA34/wCPMUGA
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lu/bB3B7Z5PVQESyJUkZmQ0z2XzJaJkZKaJEIqPMSqIIZZOd67J3
[encoded data, 54000 characters]
LoFDdRI3sXLB/wPFxtMc
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM13c81t/7B3B7770yMrJ3KdQdIUkisjMiJS00qFBkhKQiykikUlnZq/eR
[encoded data, 56460 characters]
qJjBmkEji8LN4bWxrox6C15Su5xTbKaMQf4Hkt8pDQ==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X1,S] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X1,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430565345383`*^9, 3.771743723630438*^9, {
   3.7717438681229663`*^9, 3.7717439489337597`*^9}, {3.771744532558939*^9, 
   3.771744579355576*^9}},ExpressionUUID->"661c710e-34b2-4c5a-9688-\
cc81322c8448"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MWLCM1M2x2x5", ",", "MWLCM1M22x2x5", ",", 
     "MWLCM2M22x2x5", ",", "MWLCM2M3x2x5", ",", "MWLCM22M3x2x5", ",", 
     "MWLCM3M4x2x5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X2,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X2,S] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717429847714577`*^9, 3.7717430060845375`*^9}, {3.7717430669685717`*^9, 
   3.7717430697135377`*^9}, {3.7717439702277594`*^9, 3.771743984257759*^9}, 
   3.771744597892576*^9},ExpressionUUID->"96f70fc9-154f-4ea4-8981-\
016aef6a6f31"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd18tKVXEARvHtLe/3e1etHiCyQbNs3qgniCBpVo/gIzTMaNDUcSNHBU0S
LAQhCBoohSSGZGVmZcb5r+23qD35geyz9uc5+2xx+va9m3eaq6q63lRVDTku
Pj92rnFsXoivVhqHzjSOp/pooXFoycxr6cxp6dzQ0pnR0plUdim7zkd2KbuU
XcouZZeyS9ml7FJ2KbumI7uUXcouZZeyS9ml7FJ2KbuUXVORXcouZZeyS9ml
7FJ2KbuUXVpmrJyLXFe5jtJVOkrnbKSjdJSO0lE6ZyIdpaN0lI7SOR3pKB2l
o3SUzqlIR+koHaWjdE5GOkpH6SgdpTMZ6SgdpaN0lM5EpKN0lI7SUb4H47Fk
FpSO0lE6Smcs0lE6SkfpKJ3RSEfpKB2lo7xvI5GO0lE6SkfpDEc6SkfpKB2l
MxTpKB2lo3SUzmCko3SUjtJROgORjtJROkpHH5bX9cfL5TzlOn2RrtJROr2R
jtLpiXSUjtLpjnSUTleko3SUTmeko3Q6Ih2lo3TaIx2lcyLSUTpKpy3SUTqt
kY7SUTotkY7SaY50lI7SaYp0lE4V6SgdvVRed/Ts2LvlvD+R6xzGl6X7O5JR
Or8inZ+RzkGk8yPSUTr7kc73SGcv0vkW6Sidr5HOl0hnN9L5HOnorfK6nbha
zvsUuc52fFC6W5HOx0hnM9L5EOm8j3Q2Ip31yI3wLs6X895GrvMmTpXuWqSz
GnndcqzKeS8iP1+KVXFR/z/KH+7Fa/+6FGfpRh60y7HeFTlvLc7ze8Un/N5x
nfcl1u9b5LyNSPd9rD+XeJ/PLdafa6SzFelsx/q+iXR2Yn3fRc5Turuxvq/j
Ve77WH8vIh2lsxfr712ksx/r722ko3QOYv1ciHR+xfq5EukoncNYP7cinaNY
33Wzx3Ke0tUrPFfjY567kUxzpKN0lE5LpKN0WiMdpaN02iIdpXMi0lE6Sqc9
0lE6HZGO0lE6nZGO0umKdJSO0umOdJROT6SjdJROb6SjdPoiHaWjdPojHaUz
EDlP6Sr/1+jrch2lMxjpKB2lo3SUzlCko3SUjtJROsORjtJROkpH6YxEOkpH
6SgdpTMa6SgdpaN0lM5YpKN0lI7SUTrjkY7SUTpKR+lMxL/e6he+
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxMl3c81e///yPJKCuqs/c+MkLK3juVEUpKRlGUEbJCNDQVouwUlZYt8RQZ
[encoded data, 83400 characters]
yXMOFzbg9tw4qfnpKvxqrlb31d+A/wOau5uq
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM2Xc81e/7B3BJsvfee0Y2ZSayy96EkN1QkZDskllJNhEhm1LkJntEyMqW
[encoded data, 54180 characters]
SA8m
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c81u/bBnCyQvbee+9QyEqyFSIzCYmQyCoyWkpKEqW+KmREJUoZxWVF
[encoded data, 54060 characters]
U2kJBT15T9giaNH/A0RDZC8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM13c81e/7B3B77723yGpQERJKIntlZIVUn+xVyJ4hZZadlVARMuLcRtlk
[encoded data, 55200 characters]
A5PIf6+NkRE=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM12c8lm8bB3BkZ4/svYqshGwSURGyZWSGZEcREjISFbJSZBNJy7zPZBNC
[encoded data, 54780 characters]
uoyS+Rx6nAjuh33U29FG5f8BvqPhHg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM22c81v/3B3B7Ze+9N2VERmVEKEJK+Eb2ysiMyAohm0J2SERGyHa9S0TZ
[encoded data, 55200 characters]
rBhgz32lW3UNqV/adg9lA/8PTQBc+A==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X2,S] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X2,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430076935377`*^9, 3.771743071554538*^9, 
   3.7717437326844378`*^9, {3.7717439747067604`*^9, 3.7717439854331055`*^9}, 
   3.7717446005175753`*^9},ExpressionUUID->"1a7c3dc1-5657-46e6-9255-\
dc7b7ea14df0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MWLCM1M2x3x5", ",", "MWLCM1M22x3x5", ",", 
     "MWLCM2M22x3x5", ",", "MWLCM2M3x3x5", ",", "MWLCM22M3x3x5", ",", 
     "MWLCM3M4x3x5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X3,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X3,S] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717430282915373`*^9, 3.7717430389475803`*^9}, {3.7717430890025377`*^9, 
   3.7717430957295938`*^9}, {3.7717431257325373`*^9, 3.7717431292835712`*^9}, 
   3.7717446091545763`*^9},ExpressionUUID->"fefdc61d-17ce-4952-838a-\
b91c045e9a71"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd18tKVXEARvHtLe/3e1etHiCyQbNs3qgniCBpVo/gIzTMaNDUcSNHBU0S
LAQhCBoohSSGZGVmZcb5r+23qD35geyz9uc5+2xx+va9m3eaq6q63lRVDTku
Pj92rnFsXoivVhqHzjSOp/pooXFoycxr6cxp6dzQ0pnR0plUdim7zkd2KbuU
XcouZZeyS9ml7FJ2KbumI7uUXcouZZeyS9ml7FJ2KbuUXVORXcouZZeyS9ml
7FJ2KbuUXVpmrJyLXFe5jtJVOkrnbKSjdJSO0lE6ZyIdpaN0lI7SOR3pKB2l
o3SUzqlIR+koHaWjdE5GOkpH6SgdpTMZ6SgdpaN0lM5EpKN0lI7SUb4H47Fk
FpSO0lE6Smcs0lE6SkfpKJ3RSEfpKB2lo7xvI5GO0lE6SkfpDEc6SkfpKB2l
MxTpKB2lo3SUzmCko3SUjtJROgORjtJROkpHH5bX9cfL5TzlOn2RrtJROr2R
jtLpiXSUjtLpjnSUTleko3SUTmeko3Q6Ih2lo3TaIx2lcyLSUTpKpy3SUTqt
kY7SUTotkY7SaY50lI7SaYp0lE4V6SgdvVRed/Ts2LvlvD+R6xzGl6X7O5JR
Or8inZ+RzkGk8yPSUTr7kc73SGcv0vkW6Sidr5HOl0hnN9L5HOnorfK6nbha
zvsUuc52fFC6W5HOx0hnM9L5EOm8j3Q2Ip31yI3wLs6X895GrvMmTpXuWqSz
GnndcqzKeS8iP1+KVXFR/z/KH+7Fa/+6FGfpRh60y7HeFTlvLc7ze8Un/N5x
nfcl1u9b5LyNSPd9rD+XeJ/PLdafa6SzFelsx/q+iXR2Yn3fRc5Turuxvq/j
Ve77WH8vIh2lsxfr712ksx/r722ko3QOYv1ciHR+xfq5EukoncNYP7cinaNY
33Wzx3Ke0tUrPFfjY567kUxzpKN0lE5LpKN0WiMdpaN02iIdpXMi0lE6Sqc9
0lE6HZGO0lE6nZGO0umKdJSO0umOdJROT6SjdJROb6SjdPoiHaWjdPojHaUz
EDlP6Sr/1+jrch2lMxjpKB2lo3SUzlCko3SUjtJROsORjtJROkpH6YxEOkpH
6SgdpTMa6SgdpaN0lM5YpKN0lI7SUTrjkY7SUTpKR+lMxL/e6he+
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxMl3c8lu/7xoWSQvHsPT1mQhIatmyhJBmRVDIimpQksiKyk6JEKRRSUWco
[encoded data, 80520 characters]
v05aiGPfgf8Bhs29VA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c8l9/7B3DZe++9KZKR7JUkocTHniV7lb1FJKOsrJAkQhQysw5CRlZW
[encoded data, 55380 characters]
Lh0hnd+D+TcbSVMKqYilTM2X/M2fDOBzN2gbgumJUf4/kYkCeA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8V28bB3Bb2XvvPSPZskJLWaVsmSE7ycwO2cnO3nsllXULoWFElJmU
[encoded data, 54300 characters]
M6HsePArRWPvN2ngN16DTUU5YFRM8dReMez3P2nnNL0=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM13c8l9/7B/CIJHvvvWf2CoWGyEwiSdmlpJSMkOzdkpCsSpIQmeGykhUi
[encoded data, 56640 characters]
7T9YFXsb/D8HD8Qh
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM2Xc81f//P37Ze++9t1SSPSMhES8pMxkpO3tTtmxRVlIyssko4xGRjCSK
[encoded data, 55800 characters]
iB5rPVUvk6HJjKVmuY8nXKfHhHz7HeINmbElyud7ZMPosf8Bey71Yg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lf//P3B777333hnJSmSv7KzIKCFb9s5KQkZZZYUQhYwyzoXITpRC
[encoded data, 53640 characters]
bIc4WxIedyPfvLiopF7w/wDgC2Lb
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X3,S] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X3,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430404035378`*^9, 3.7717430974075375`*^9, 
   3.7717431332645373`*^9, 3.7717432610825377`*^9, 3.771743736328438*^9, 
   3.7717440252000895`*^9, 
   3.771744610420576*^9},ExpressionUUID->"87935ea8-5f55-400b-b781-\
d5cc6313ed4a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MWLCM1M2x4x5", ",", "MWLCM1M22x4x5", ",", 
     "MWLCM2M22x4x5", ",", "MWLCM2M3x4x5", ",", "MWLCM22M3x4x5", ",", 
     "MWLCM3M4x4x5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X4,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X4,S] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.7717430282915373`*^9, 3.7717430389475803`*^9}, {3.7717430890025377`*^9, 
  3.7717430957295938`*^9}, {3.771743159250538*^9, 3.771743184050538*^9}, {
  3.771743299585538*^9, 3.7717433000345373`*^9}, {3.771744621699576*^9, 
  3.771744640561576*^9}},ExpressionUUID->"f056e0b8-4d61-4ef1-b012-\
ef019f0e852b"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd18tKVXEARvHtLe/3e1etHiCyQbNs3qgniCBpVo/gIzTMaNDUcSNHBU0S
LAQhCBoohSSGZGVmZcb5r+23qD35geyz9uc5+2xx+va9m3eaq6q63lRVDTku
Pj92rnFsXoivVhqHzjSOp/pooXFoycxr6cxp6dzQ0pnR0plUdim7zkd2KbuU
XcouZZeyS9ml7FJ2KbumI7uUXcouZZeyS9ml7FJ2KbuUXVORXcouZZeyS9ml
7FJ2KbuUXVpmrJyLXFe5jtJVOkrnbKSjdJSO0lE6ZyIdpaN0lI7SOR3pKB2l
o3SUzqlIR+koHaWjdE5GOkpH6SgdpTMZ6SgdpaN0lM5EpKN0lI7SUb4H47Fk
FpSO0lE6Smcs0lE6SkfpKJ3RSEfpKB2lo7xvI5GO0lE6SkfpDEc6SkfpKB2l
MxTpKB2lo3SUzmCko3SUjtJROgORjtJROkpHH5bX9cfL5TzlOn2RrtJROr2R
jtLpiXSUjtLpjnSUTleko3SUTmeko3Q6Ih2lo3TaIx2lcyLSUTpKpy3SUTqt
kY7SUTotkY7SaY50lI7SaYp0lE4V6SgdvVRed/Ts2LvlvD+R6xzGl6X7O5JR
Or8inZ+RzkGk8yPSUTr7kc73SGcv0vkW6Sidr5HOl0hnN9L5HOnorfK6nbha
zvsUuc52fFC6W5HOx0hnM9L5EOm8j3Q2Ip31yI3wLs6X895GrvMmTpXuWqSz
GnndcqzKeS8iP1+KVXFR/z/KH+7Fa/+6FGfpRh60y7HeFTlvLc7ze8Un/N5x
nfcl1u9b5LyNSPd9rD+XeJ/PLdafa6SzFelsx/q+iXR2Yn3fRc5Turuxvq/j
Ve77WH8vIh2lsxfr712ksx/r722ko3QOYv1ciHR+xfq5EukoncNYP7cinaNY
33Wzx3Ke0tUrPFfjY567kUxzpKN0lE5LpKN0WiMdpaN02iIdpXMi0lE6Sqc9
0lE6HZGO0lE6nZGO0umKdJSO0umOdJROT6SjdJROb6SjdPoiHaWjdPojHaUz
EDlP6Sr/1+jrch2lMxjpKB2lo3SUzlCko3SUjtJROsORjtJROkpH6YxEOkpH
6SgdpTMa6SgdpaN0lM5YpKN0lI7SUTrjkY7SUTpKR+lMxL/e6he+
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxM13c41u/bB3BpyGgoq0S2jIySFl1Gykh2yCiiocxkj0QJhSQZ2STJ3vOy
[encoded data, 69240 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c8UP/7N3AqMzIKkUQhiVBElCOZmVFmRmZWsiKZWSEUIqtQJHtvjr33
[encoded data, 53880 characters]
1d98uOJ5Tl/zrU3Avv8BhIEf9w==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8V+//P3Azu4GQZGZHslcOSrIrZYSyKZrIyEiysveWTUohex0re++R
[encoded data, 53340 characters]
JiDPcXUSkktCv3YL82h2MvL/AWxVZmc=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM3Xc4l+/7P3BRskdCGQ3JCllZ4UZGSikiRUbJKIoyMyuyaUhGZGRm7/2y
[encoded data, 53460 characters]
obpFUeSFlu7/9CRhsTmbK3xbWQm9SweqLKJJxP8BGj9zGQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM2Xc4lu0bB3AroohsDaOQCCXZ7qfMRBIiKVFEVmb2zI4QiYwSZWSP7MfM
[encoded data, 54540 characters]
rhR2rggiqRXmDcNcEvrU836AuF0I9V3/EthVQUL/A+NmFOY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lv3bB3DKyMzIVggNycgqo7NQoTIyIkR2yspIRJK9iggRIiN7JsRl
[encoded data, 53580 characters]
6e5qODPmj82WZtT/D3bbKgY=
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X4,S] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X4,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-6, 6}, {-6, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430404035378`*^9, 3.7717430974075375`*^9, 
   3.7717433102459416`*^9, 3.771743737630948*^9, 3.771744032730089*^9, {
   3.7717446237475758`*^9, 
   3.771744641818577*^9}},ExpressionUUID->"15f331bd-6475-42d4-b19c-\
8d60a9d8f954"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Plotting Logarithmic gains to signal vs to total concentration LogScale\
\>", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717496184596395`*^9, 
  3.7717496255636387`*^9}},ExpressionUUID->"10df434c-a6eb-44b7-936e-\
f4c98155a261"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 3.7717438210269485`*^9},
 CellLabel->
  "In[156]:=",ExpressionUUID->"c34a998d-b6ed-48ca-9cd8-47ac7d612d56"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC1M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC2M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC2M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC1M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC3M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC3M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC4M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC4M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771750255998108*^9, 3.771750261468157*^9}, {
  3.7717503143819046`*^9, 3.7717503204600935`*^9}, {3.77175036931011*^9, 
  3.7717505441723948`*^9}, {3.771750603868393*^9, 3.771750604625393*^9}, {
  3.771751006510023*^9, 3.771751028605259*^9}},
 CellLabel->
  "In[157]:=",ExpressionUUID->"b3a5ca62-531c-45fd-bce4-c0098a2cda0f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M22x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC2M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC2M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC2M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC3M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC3M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC3M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC5M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7717506180954275`*^9, 3.7717506509560704`*^9}, {
  3.771751036509768*^9, 3.771751040236768*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"f045b77c-7218-4d79-b5b6-a6cbbe0dc1b0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M3x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC4M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC4M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC4M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC5M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC6M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC6M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771750679324355*^9, 3.7717507969081774`*^9}, {
  3.771751042845768*^9, 3.7717510465227685`*^9}, {3.7717513148466735`*^9, 
  3.771751319725518*^9}, {3.7721651428211503`*^9, 3.7721651577230215`*^9}},
 CellLabel->
  "In[160]:=",ExpressionUUID->"7a647a77-b6b8-4845-80cf-477bb6c2444e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M4x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC6M4", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.7721651612252746`*^9},
 CellLabel->
  "In[161]:=",ExpressionUUID->"aa02d4c0-16c3-47cc-8729-05235f13a92e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "20"}], ",", "20", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.7717511216934023`*^9, 
   3.7717511260924387`*^9}, 3.7721650334036894`*^9},
 CellLabel->
  "In[162]:=",ExpressionUUID->"4228621c-071d-4c8c-826d-decf8cd2f494"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0.85", ",", "0.35", ",", "0.85"}], "]"}], ",", "Brown"}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.771750852590178*^9, 
  3.7717508545711784`*^9}, {3.771751187614402*^9, 3.771751188859313*^9}, {
  3.7721652014986377`*^9, 3.7721652698495054`*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"cba58a7b-c7ca-4fcb-851a-cbd5ac0326b4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.85, 0.35, 0.85], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5666666666666667, 0.23333333333333334`, 0.5666666666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.85, 0.35, 0.85]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.85, 0.35, 0.85],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6, 0.4, 0.2],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.771750812778178*^9, 3.771750855329178*^9, 3.771751054740206*^9, 
   3.7717511289154024`*^9, 3.7717511893793135`*^9, 3.7717513383657866`*^9, 
   3.772164926288689*^9, 3.772165035915758*^9, 3.7721651671652374`*^9, 
   3.7721652028576365`*^9, {3.772165241941507*^9, 3.772165270114541*^9}, 
   3.772858606936553*^9, 3.772867286843322*^9, 3.797058751769158*^9},
 CellLabel->
  "Out[163]=",ExpressionUUID->"f6e4ce7a-0205-4877-b5ff-0305fce335a3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", " ", "\"\<M4\>\""}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.771750818301215*^9, 3.7717508466352005`*^9}},
 CellLabel->
  "In[164]:=",ExpressionUUID->"0cfa97e5-7b2a-4026-9bb6-174f412efe11"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},
 CellLabel->
  "In[165]:=",ExpressionUUID->"a4d1cc24-84c8-4cdb-b0ba-401d4c3e2df0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"M1x5x6", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7970589126292048`*^9, 3.797058917354701*^9}},
 CellLabel->
  "In[166]:=",ExpressionUUID->"fc2558bf-e21a-4f95-b1a4-6a7f06087aef"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.9271341980885868`"}], ",", 
   RowBox[{"-", "0.1862631376246176`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.797058918354558*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"11089f61-1e9f-41f2-8636-821449bbfd2b"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.797060554190485*^9, 
  3.7970605604491854`*^9}},ExpressionUUID->"4d5d0913-b8f0-4643-80ee-\
b33f21bd0874"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5x6", ",", "M2x5x6", ",", "M22x5x6", ",", "M3x5x6", 
     ",", "M4x5x6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "}"}]}], 
   RowBox[{"(*", "All", "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.2", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X4,Dephosphorylation Signal]\>\"", ",", " ", 
      "\"\<L[X4,Phosphorylation Signal]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
   3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
   3.7717508837272377`*^9, 3.7717509486360235`*^9}, {3.771751100492814*^9, 
   3.771751109195403*^9}, {3.7717511480944023`*^9, 3.771751157707403*^9}, {
   3.771751219417819*^9, 3.7717512282398195`*^9}, {3.7721649030976887`*^9, 
   3.772164905951691*^9}, {3.772164951357689*^9, 3.77216497367369*^9}, {
   3.772165011388689*^9, 3.7721650205236893`*^9}, {3.7721650643391113`*^9, 
   3.7721650987794127`*^9}, 3.772165175242405*^9, {3.7728672946765184`*^9, 
   3.7728673007164516`*^9}},ExpressionUUID->"b13d115d-63eb-43cf-86a9-\
3fc3dae74a43"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3X2ILnhZx+HTpmm2peaabum6m2ar1rb5AhJZByEMEcwQSpDQJBEE24pA
[encoded data, 12840 characters]
G+xusLvB7ga7G+xusLvx6PX/AASo/78=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM3Gc8lu/7B3AjygglI5SolC0hpKwoOyuyEjJSmWVkZBQihOxkJMnM3qe9
[encoded data, 110580 characters]
Kdp+vaT7yPhYxtmbVLTocF6R9bLIPvI/4widMQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lu/bB3B7k81Xw8heISMjRRSSVGYkMiJSRCESlZKt7JE9IyMkcl52
[encoded data, 169080 characters]
nxDSZkzPCf8D5l1V/A==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM2Xc4lu0bB3Bk771HdioyoiQeJDIqMyOiiOwSokFWKpvIyB5RlJEy4rnI
[encoded data, 166680 characters]
BL9uu63JnYX6/wPsPaGu
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJxM1nc4l/37P3Cy917ZK7KFSPFOIipCocwKiRBCRilZqVAaSshOsiXb68qO
[encoded data, 165960 characters]
0+UKEhtW4P8BHzgziw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJxM13c8UP37P3BF2akIKZnJCGVkhIMo2SNlhkJkRGZWZCYrZGRk771HHHtk
[encoded data, 53400 characters]
TuZ2bJpG/YFa7vN6K5iXSe8acImeh+r/AbM9JIk=
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"L[X4,Phosphorylation Signal]\"", TraditionalForm], None}, {
        FormBox["\"L[X4,Dephosphorylation Signal]\"", TraditionalForm], 
        None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-15, 15}, {-15, 15}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430565345383`*^9, 3.771743723630438*^9, {
   3.7717438681229663`*^9, 3.7717439489337597`*^9}, {3.771744532558939*^9, 
   3.771744579355576*^9}, {3.771750913208289*^9, 3.7717509512870245`*^9}, 
   3.771751062363206*^9, 3.771751161304402*^9, {3.771751193757354*^9, 
   3.771751220868819*^9}, 3.771751344911786*^9, 3.7721649280606885`*^9, 
   3.772164975539689*^9, {3.7721650157766895`*^9, 3.7721651003794723`*^9}, 
   3.772165178142703*^9, 3.772165213456645*^9, 3.7721652759065065`*^9, 
   3.772867302876319*^9},ExpressionUUID->"72dfcb8a-4a87-4557-a5d3-\
78474e7ef198"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC1M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC2M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC2M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC1M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC3M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC3M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC4M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC4M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771750255998108*^9, 3.771750261468157*^9}, {
  3.7717503143819046`*^9, 3.7717503204600935`*^9}, {3.77175036931011*^9, 
  3.7717505441723948`*^9}, {3.771750603868393*^9, 3.771750604625393*^9}, {
  3.771751006510023*^9, 3.771751028605259*^9}, {3.772867032326607*^9, 
  3.7728670646030006`*^9}},ExpressionUUID->"58651367-631d-463c-a9d1-\
a7f642ea345d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M22x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC2M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC2M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC2M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC3M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC3M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC3M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC5M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7717506180954275`*^9, 3.7717506509560704`*^9}, {
  3.771751036509768*^9, 3.771751040236768*^9}, {3.772867074921971*^9, 
  3.77286709058314*^9}},ExpressionUUID->"e5040cfc-39a2-46f8-97cb-\
2f4b099f8885"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M3x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC4M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC4M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC4M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC5M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC6M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                 RowBox[{"LogCC6M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771750679324355*^9, 3.7717507969081774`*^9}, {
  3.771751042845768*^9, 3.7717510465227685`*^9}, {3.7717513148466735`*^9, 
  3.771751319725518*^9}, {3.7721651428211503`*^9, 3.7721651577230215`*^9}, {
  3.772867097396577*^9, 
  3.7728671111265583`*^9}},ExpressionUUID->"abc3ccfe-b18a-4f68-a4a9-\
ec84c8cbb54a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M4x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC6M4", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.7721651612252746`*^9, {3.772867117636605*^9, 
   3.772867119796254*^9}},ExpressionUUID->"13ae822a-ebb7-49b3-8760-\
aecb30c2a0ea"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "20"}], ",", "20", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.7717511216934023`*^9, 
   3.7717511260924387`*^9}, 
   3.7721650334036894`*^9},ExpressionUUID->"10ba7463-2001-4efc-83a5-\
0a8bcb236c32"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0.85", ",", "0.35", ",", "0.85"}], "]"}], ",", "Brown"}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.771750852590178*^9, 
  3.7717508545711784`*^9}, {3.771751187614402*^9, 3.771751188859313*^9}, {
  3.7721652014986377`*^9, 
  3.7721652698495054`*^9}},ExpressionUUID->"5acf2794-1ff8-42fe-bf45-\
12ef593fb51f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.85, 0.35, 0.85], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5666666666666667, 0.23333333333333334`, 0.5666666666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.85, 0.35, 0.85]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.85, 0.35, 0.85],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6, 0.4, 0.2],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.771750812778178*^9, 3.771750855329178*^9, 3.771751054740206*^9, 
   3.7717511289154024`*^9, 3.7717511893793135`*^9, 3.7717513383657866`*^9, 
   3.772164926288689*^9, 3.772165035915758*^9, 3.7721651671652374`*^9, 
   3.7721652028576365`*^9, {3.772165241941507*^9, 3.772165270114541*^9}, 
   3.772858606936553*^9, 
   3.7728671226810074`*^9},ExpressionUUID->"7b7b5bfe-e34b-46e3-9d4f-\
b5c8ee9daca4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", " ", "\"\<M4\>\""}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.771750818301215*^9, 
   3.7717508466352005`*^9}},ExpressionUUID->"01244e72-492f-4ded-a60c-\
4e03360aab94"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"d7c3784e-bc4e-4730-9f81-\
7407e1e9a424"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5x6", ",", "M2x5x6", ",", "M22x5x6", ",", "M3x5x6", 
     ",", "M4x5x6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "}"}]}], 
   RowBox[{"(*", "All", "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.2", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X4,Dephosphorylation Signal]\>\"", ",", " ", 
      "\"\<L[X4,Phosphorylation Signal]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
   3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
   3.7717508837272377`*^9, 3.7717509486360235`*^9}, {3.771751100492814*^9, 
   3.771751109195403*^9}, {3.7717511480944023`*^9, 3.771751157707403*^9}, {
   3.771751219417819*^9, 3.7717512282398195`*^9}, {3.7721649030976887`*^9, 
   3.772164905951691*^9}, {3.772164951357689*^9, 3.77216497367369*^9}, {
   3.772165011388689*^9, 3.7721650205236893`*^9}, {3.7721650643391113`*^9, 
   3.7721650987794127`*^9}, 3.772165175242405*^9, {3.7728671308365893`*^9, 
   3.7728671329966407`*^9}, {3.7728672509564734`*^9, 
   3.772867271196594*^9}},ExpressionUUID->"acf25c14-bcf5-40ab-b2a8-\
15dd37450dde"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3X2ILnhZx+HTpmm2peaabum6m2ar1rb5AhJZByEMEcwQSpDQJBEE24pA
[encoded data, 12840 characters]
G+xusLvB7ga7G+xusLvx6PX/AASo/78=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM2Hc8V+/7B3B7hShC2bOE+Fih3AdlJZK9VxmhjIySPSJbEWUke4/KyCgq
[encoded data, 111360 characters]
K1cf
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8l9/7B3B77713yAxl8z5WZcuKjIzIihSykpHskPIxsiUjJBUZkZGR
[encoded data, 169920 characters]
+n8hcM8S
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM13c8l9/7B3BZ2XtvPkLIzMioY5MtiYwyQikzM0JGFKIUijKzRxllJ3tU
[encoded data, 168060 characters]
eiVWACui1jpCiwjckorbqCu4IaXevFk4VxL+BwPuZDg=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJxM2nc81f37B3C77IPj2LKVrUJW3pQQbrJnshIyK4oyQghRUsjeFCUjJTPJ
[encoded data, 168120 characters]
/wfllOlW
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJxM13c81f/7P3B7r4xUZGVkJBlFxvOgQVaEzIjsZK/sjKK3rMxQUaElCqUk
[encoded data, 54540 characters]
SacA5P8DPvU74Q==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"L[X4,Phosphorylation Signal]\"", TraditionalForm], None}, {
        FormBox["\"L[X4,Dephosphorylation Signal]\"", TraditionalForm], 
        None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-15, 15}, {-15, 15}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430565345383`*^9, 3.771743723630438*^9, {
   3.7717438681229663`*^9, 3.7717439489337597`*^9}, {3.771744532558939*^9, 
   3.771744579355576*^9}, {3.771750913208289*^9, 3.7717509512870245`*^9}, 
   3.771751062363206*^9, 3.771751161304402*^9, {3.771751193757354*^9, 
   3.771751220868819*^9}, 3.771751344911786*^9, 3.7721649280606885`*^9, 
   3.772164975539689*^9, {3.7721650157766895`*^9, 3.7721651003794723`*^9}, 
   3.772165178142703*^9, 3.772165213456645*^9, 3.7721652759065065`*^9, 
   3.7728671354564557`*^9, 
   3.7728672735262117`*^9},ExpressionUUID->"2c5e537f-5a7e-489b-ade0-\
799feb66f318"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC2M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC3M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC4M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717514233558207`*^9, 
  3.7717517370354457`*^9}},ExpressionUUID->"21aac6e9-7d1c-4b75-8d81-\
4e6fd41af093"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M22x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC2M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC2M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC3M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC3M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC4M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC4M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC4M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC4M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC5M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC6M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC6M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC6M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717517508774014`*^9, 
  3.7717518666841464`*^9}},ExpressionUUID->"d50a943f-bb44-4d9a-9b0d-\
9be63cb8da40"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M4x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC6M4", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771751898235298*^9, 3.771751922427298*^9}, {
  3.771751976749327*^9, 
  3.77175197705035*^9}},ExpressionUUID->"21f63bec-aa01-4f0c-9354-\
c5bd3860a255"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5xt", ",", "M2x5xt", ",", "M22x5xt", ",", "M3x5xt", 
     ",", "M4x5xt"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "5", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X4,Signal] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X4,Total protein] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717429847714577`*^9, 3.7717430060845375`*^9}, {3.7717430669685717`*^9, 
   3.7717430697135377`*^9}, {3.7717439702277594`*^9, 3.771743984257759*^9}, 
   3.771744597892576*^9, {3.7717519320452976`*^9, 3.7717519920607595`*^9}, {
   3.772165381582179*^9, 3.7721654384891853`*^9}, {3.772165520795624*^9, 
   3.7721655249217105`*^9}, 
   3.7721655633071914`*^9},ExpressionUUID->"793868f5-1592-4056-97b2-\
2be879e91b1d"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3X2ILnhZx+HTpmm2peaabum6m2ar1rb5AhJZByEMEcwQSpDQJBEE24pA
[encoded data, 12840 characters]
G+xusLvB7ga7G+xusLvx6PX/AASo/78=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM12c8lm8bB3ARRULJCBGikPlHiJAQkaxsyd57REaoUELILBkJmUU2p5lZ
[encoded data, 111060 characters]
qemQ3YoMaYnqdcz/AB6lhiQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lu/bB3A7u2zZeyRCNolSslXml4yMFElCRktDIbPMkL1CMpLIddoz
[encoded data, 167400 characters]
0yOXklsS+EkaCnEOkaG60qP/AcQ9mYQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM2nc8lf/7B3Cb7L33pkiEJM6xs0L4oKwiyiwhUpQRWZGRkZ2iKCNC4V3Z
[encoded data, 168060 characters]
6P8B/nkojw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJxM13c8Vv/7B3B7kxmyV8MWIoWkjEQolJWZLYRCkREhFIlkryR7fGznIBEp
[encoded data, 165660 characters]
4Xs/zdFiS6x/l1jw4dJEU7geSMPmEk2VP3Z8MGYajjgaS8P/iYQtRQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJxM2Xc4V//7B3BF2XsmskpKKCMjvJFKRkYp2YSUQpkh2aSMJJtk701GnGMn
[encoded data, 54600 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X4,Total protein] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X4,Signal] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 10}, {-10, 10}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430076935377`*^9, 3.771743071554538*^9, 
   3.7717437326844378`*^9, {3.7717439747067604`*^9, 3.7717439854331055`*^9}, 
   3.7717446005175753`*^9, 3.7717519942942824`*^9, {3.772165367261058*^9, 
   3.7721654123512297`*^9}, 3.772165444054185*^9, 3.7721655269372306`*^9, 
   3.7721655653108234`*^9},ExpressionUUID->"72353ad2-15c7-424b-9455-\
a9fc93a10d33"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Loading Sensitivities", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.771739038932023*^9}, {3.7717548346485124`*^9, 
  3.7717548370485125`*^9}},ExpressionUUID->"13e9afd0-3c1a-4b80-a512-\
f32b5ee85f9f"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC1M1.txt\>\""}]], "Input",
 CellChangeTimes->{{3.761041654299574*^9, 3.7610416560598183`*^9}, 
   3.761298197600153*^9, {3.771738734372678*^9, 3.771738753988132*^9}, 
   3.7717388384511323`*^9, 3.771754883146345*^9},
 CellLabel->
  "In[265]:=",ExpressionUUID->"c13dbc38-90cd-472d-8354-99548af4e10a"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC1M2.txt\>\""}]], "Input",
 CellChangeTimes->{3.771738756227133*^9, 3.771738907747023*^9, 
  3.7717548879933453`*^9},
 CellLabel->
  "In[266]:=",ExpressionUUID->"3eea24e6-1549-4f3c-a07e-926cd8f885ee"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC2M1.txt\>\""}]], "Input",
 CellChangeTimes->{3.7717387584831324`*^9, 3.7717389119070234`*^9, 
  3.771754891658345*^9},
 CellLabel->
  "In[267]:=",ExpressionUUID->"c029e6fc-3542-4fdc-8e68-2318f7e06f36"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC2M1_alt.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718320588670683`*^9, 3.7718320598110294`*^9}},
 CellLabel->
  "In[268]:=",ExpressionUUID->"7851b7e7-5637-4564-993c-2394a829bb6b"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC2M22.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738760260132*^9, {3.7717389152190237`*^9, 3.7717389154750233`*^9}, 
   3.7717548952743464`*^9},
 CellLabel->
  "In[269]:=",ExpressionUUID->"aec269a5-3ac9-40b7-8dcf-599f2612b631"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC2M22_alt.txt\>\""}]], "Input",
 CellChangeTimes->{{3.771832095810793*^9, 3.7718320967708483`*^9}},
 CellLabel->
  "In[270]:=",ExpressionUUID->"bfcd198b-1ab1-47ec-a5e5-72d0dcfa515b"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC3M2.txt\>\""}]], "Input",
 CellChangeTimes->{3.7717387618431325`*^9, 3.771738920019024*^9, 
  3.7717549008093452`*^9},
 CellLabel->
  "In[271]:=",ExpressionUUID->"0313eb8b-71fd-476f-866f-5564c9551b25"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC3M2_alt.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718321052828274`*^9, 3.771832105971793*^9}},
 CellLabel->
  "In[272]:=",ExpressionUUID->"1305b088-b0f8-471a-9363-21332b593b0e"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC3M22.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738763588133*^9, {3.7717389235770235`*^9, 3.7717389237040234`*^9}, 
   3.771754904314346*^9},
 CellLabel->
  "In[273]:=",ExpressionUUID->"d165e7c4-edef-4641-b466-fb482516c5a6"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC3M22_alt.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718321109637923`*^9, 3.7718321117158265`*^9}},
 CellLabel->
  "In[274]:=",ExpressionUUID->"c759d07c-7889-4ca2-b7d1-cb6337d79b14"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC4M2.txt\>\""}]], "Input",
 CellChangeTimes->{3.7717387649011316`*^9, 3.7717389265150595`*^9, 
  3.771754908202346*^9},
 CellLabel->
  "In[275]:=",ExpressionUUID->"e770bbd2-b3e9-4b0a-91c4-e9fc83059afb"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC4M3.txt\>\""}]], "Input",
 CellChangeTimes->{3.771738766755132*^9, 3.771738937971024*^9, 
  3.771754914122347*^9},
 CellLabel->
  "In[276]:=",ExpressionUUID->"c4e5d4c7-f17f-4363-930a-6a45d8333929"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC5M22.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387705331326`*^9, {3.771738942147024*^9, 3.7717389423550234`*^9}, 
   3.7717549206973457`*^9},
 CellLabel->
  "In[277]:=",ExpressionUUID->"f8484365-74fa-4e09-b587-1bf5b0de4934"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC5M3.txt\>\""}]], "Input",
 CellChangeTimes->{3.7717387721321325`*^9, 3.7717389452040234`*^9, 
  3.7717549265063457`*^9},
 CellLabel->
  "In[278]:=",ExpressionUUID->"32453634-3152-4d60-8246-cc729bcfe827"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC6M3.txt\>\""}]], "Input",
 CellChangeTimes->{3.771738775923132*^9, 3.771738949747023*^9, 
  3.7717549311773453`*^9},
 CellLabel->
  "In[279]:=",ExpressionUUID->"7e2989dd-3fe7-43ae-a041-18a121e7567c"],

Cell[BoxData[
 RowBox[{"<<", "\"\<SC6M4.txt\>\""}]], "Input",
 CellChangeTimes->{3.771738777492132*^9, 3.7717389530750237`*^9, 
  3.7717549357223463`*^9},
 CellLabel->
  "In[280]:=",ExpressionUUID->"2040809f-f17e-4947-9d4f-ce64ca53ca79"]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting Aggregate sensitivities LogScale", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717550341040754`*^9, 
  3.771755042491076*^9}},ExpressionUUID->"9b38991d-d254-4911-9eb3-\
ba574c4dbcd9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 3.7717438210269485`*^9},
 CellLabel->
  "In[281]:=",ExpressionUUID->"65b2a55e-afaa-4b74-8239-085b328a3cb6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "SC1M1", "]"}]], "Input",
 CellChangeTimes->{{3.771755112507743*^9, 3.771755117979743*^9}},
 CellLabel->
  "In[282]:=",ExpressionUUID->"f2d3ca1f-78d7-42f5-9f07-bd4f8803ef97"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5147", ",", "4", ",", "21"}], "}"}]], "Output",
 CellChangeTimes->{3.7717551185017443`*^9, 3.7718325524635773`*^9, 
  3.797063832903326*^9},
 CellLabel->
  "Out[282]=",ExpressionUUID->"652cb46e-78c1-439a-a718-506064da86a3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SCM1M2x1", "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                RowBox[{
                 RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}],
              ",", 
             RowBox[{
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                RowBox[{
                 RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
               "}"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "SC1M1", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
        "WS"}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.77183269143185*^9, 3.771832702117215*^9}, {
   3.771832732816437*^9, 3.7718327663541636`*^9}, 3.7718328147763467`*^9},
 CellLabel->
  "In[283]:=",ExpressionUUID->"eaf7ff02-bd8e-4d90-bf75-a7c642f723bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SCM1M2x2", "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
              RowBox[{
               RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "SC1M1", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
        "WS"}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{3.771757257718585*^9, 3.771832774777156*^9, 
  3.7718328179095273`*^9},
 CellLabel->
  "In[284]:=",ExpressionUUID->"cb0c6fab-9c71-4ac9-8d88-e93657ab9bb8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SCM1M2x3", "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
              RowBox[{
               RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "SC1M1", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
        "WS"}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{
  3.7717572642945857`*^9, {3.771832668597601*^9, 3.771832670642689*^9}, 
   3.7718327790125027`*^9, 3.7718328207564983`*^9},
 CellLabel->
  "In[285]:=",ExpressionUUID->"35cda805-5509-4e9d-a20e-94581fa75d60"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SCM1M2x4", "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
              RowBox[{
               RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "SC1M1", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
        "WS"}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717391660515757`*^9, 3.7717392202659144`*^9}, {
  3.7717392567389145`*^9, 3.7717394371068025`*^9}, {3.7717441480659943`*^9, 
  3.7717441643680105`*^9}, {3.7717550762667427`*^9, 3.771755108920744*^9}, {
  3.771755143467744*^9, 3.7717552245083327`*^9}, {3.7717569535082746`*^9, 
  3.771757041499274*^9}, {3.7717572494442897`*^9, 3.7717572604915867`*^9}, {
  3.7718328385484724`*^9, 3.77183284045516*^9}},
 CellLabel->
  "In[286]:=",ExpressionUUID->"211cf268-7041-488d-8b10-9d381cbe0292"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SCM1M22x1", "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
              RowBox[{
               RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "SC2M1", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
        "WS"}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}]}], ";", 
  RowBox[{"SCM1M22x2", "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
              RowBox[{
               RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "SC2M1", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
        "WS"}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM1M22x3", "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
              RowBox[{
               RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "SC2M1", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
        "WS"}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM1M22x4", "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"N", "[", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"Total", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
              RowBox[{
               RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "SC2M1", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
        "WS"}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7717394711078024`*^9, 3.7717395053178024`*^9}, {
  3.7717441698588557`*^9, 3.7717441798237977`*^9}, {3.771755238671356*^9, 
  3.771755270344356*^9}, {3.7717570511223207`*^9, 3.771757127051529*^9}, {
  3.771832845971869*^9, 3.7718328676349163`*^9}},
 CellLabel->
  "In[287]:=",ExpressionUUID->"9ac250b0-dff6-415d-8aa0-105a8ecdfa0d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SCM2M22x1", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC3M2", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM2M22x2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC3M2", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM2M22x3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC3M2", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM2M22x4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC3M2", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771755481999817*^9, 3.7717555687281227`*^9}, {
  3.7717557239157295`*^9, 3.7717557993846836`*^9}},
 CellLabel->
  "In[290]:=",ExpressionUUID->"c966e52b-066a-4dd2-92eb-77fe1e9117d3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SCM2M3x1", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC4M2", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM2M3x2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC4M2", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM2M3x3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC4M2", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM2M3x4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC4M2", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
  3.7717441833147984`*^9, 3.771744193247798*^9}, {3.771755278493874*^9, 
  3.7717554224778166`*^9}, {3.771755817516635*^9, 3.771755855626634*^9}, {
  3.7717559102806745`*^9, 3.771755949944556*^9}},
 CellLabel->
  "In[294]:=",ExpressionUUID->"8b4399d0-7042-4b78-af0b-220143425ba3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SCM22M3x1", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC5M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM22M3x2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC5M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM22M3x3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC5M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM22M3x4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC5M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
  3.7717441833147984`*^9, 3.771744193247798*^9}, {3.771755278493874*^9, 
  3.7717554224778166`*^9}, {3.771755817516635*^9, 3.771755855626634*^9}, {
  3.7717559102806745`*^9, 3.771755949944556*^9}, {3.7717559935453863`*^9, 
  3.7717560359283857`*^9}},
 CellLabel->
  "In[298]:=",ExpressionUUID->"ee2b9f9a-74ea-48b2-b9b7-6ed51a2a6b0e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SCM3M4x1", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M4", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC6M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM3M4x2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M4", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC6M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM3M4x3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M4", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC6M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCM3M4x4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"Re", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Round", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"N", "[", 
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"Total", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M4", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}]}], "}"}], 
              ",", "0.0001"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "SC6M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         "]"}], ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771739516579804*^9, 3.771739539365802*^9}, {
  3.7717441833147984`*^9, 3.771744193247798*^9}, {3.771755278493874*^9, 
  3.7717554224778166`*^9}, {3.771755817516635*^9, 3.771755855626634*^9}, {
  3.7717559102806745`*^9, 3.771755949944556*^9}, {3.7717559935453863`*^9, 
  3.7717561288104897`*^9}},
 CellLabel->
  "In[302]:=",ExpressionUUID->"f63773b0-5a71-44d3-acb5-14a0a28b48e0"],

Cell[BoxData[
 TemplateBox[{
  "General","munfl",
   "\"\\!\\(\\*RowBox[{\\\"-\\\", \
FractionBox[\\\"8.30088241546536183349669452020542139442`15.954589770191005*^-\
328\\\", \\\"0.00001`\\\"]}]\\) is too small to represent as a normalized \
machine number; precision may be lost.\"",2,303,14,31874004547687760407,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.77175634502347*^9, 3.7717572670895853`*^9, 
  3.7718326324704676`*^9, 3.7718329663473444`*^9, 3.7970639253900433`*^9},
 CellLabel->
  "During evaluation of \
In[302]:=",ExpressionUUID->"03b28013-ae48-445e-97ab-09980ab998c1"],

Cell[BoxData[
 TemplateBox[{
  "General","munfl",
   "\"\\!\\(\\*FractionBox[\\\"5.7254210455194897008782866065914940424433`15.\
954589770191005*^-326\\\", \\\"0.00001`\\\"]\\) is too small to represent as \
a normalized machine number; precision may be lost.\"",2,303,15,
   31874004547687760407,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.77175634502347*^9, 3.7717572670895853`*^9, 
  3.7718326324704676`*^9, 3.7718329663473444`*^9, 3.797063925559043*^9},
 CellLabel->
  "During evaluation of \
In[302]:=",ExpressionUUID->"b689ea35-66d8-4ae5-8495-74a5b3fe33a2"],

Cell[BoxData[
 TemplateBox[{
  "General","munfl",
   "\"\\!\\(\\*RowBox[{\\\"-\\\", \
FractionBox[\\\"2.18902154985111522786859623904341889832703993`15.\
954589770191005*^-341\\\", \\\"0.00001`\\\"]}]\\) is too small to represent \
as a normalized machine number; precision may be lost.\"",2,303,16,
   31874004547687760407,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.77175634502347*^9, 3.7717572670895853`*^9, 
  3.7718326324704676`*^9, 3.7718329663473444`*^9, 3.7970639255780425`*^9},
 CellLabel->
  "During evaluation of \
In[302]:=",ExpressionUUID->"884d2042-7c2f-4cb5-bd79-b7d2b0561475"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,303,17,31874004547687760407,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.77175634502347*^9, 3.7717572670895853`*^9, 
  3.7718326324704676`*^9, 3.7718329663473444`*^9, 3.797063925645043*^9},
 CellLabel->
  "During evaluation of \
In[302]:=",ExpressionUUID->"c3ca4020-d068-44d8-81a2-e95163364703"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "10"}], ",", "10", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9},
 CellLabel->
  "In[306]:=",ExpressionUUID->"ad87e803-7066-430e-96b5-6b851e968a42"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Gray", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow",
     ",", "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}},
 CellLabel->
  "In[307]:=",ExpressionUUID->"99668fd8-9caf-457b-b62e-adaaa8827a9a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.33333333333333337`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0.5],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.797063940639913*^9},
 CellLabel->
  "Out[307]=",ExpressionUUID->"9a630fec-9e9e-4378-93e4-94d16b1b1df3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M2/M1\>\"", ",", " ", "\"\<M2'/M1\>\"",
      ",", " ", "\"\<M2'/M2\>\"", ",", " ", "\"\<M3/M2\>\"", ",", " ", 
     "\"\<M3/M2'\>\"", ",", "\"\<M4/M3\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}},
 CellLabel->
  "In[308]:=",ExpressionUUID->"39969553-b807-433b-a2ce-d44c9ce3c682"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},
 CellLabel->
  "In[309]:=",ExpressionUUID->"788102c3-fa03-4674-894e-df3d98c0d73a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "SCM1M2x1", ",", "SCM1M22x1", ",", "SCM2M22x1", ",", 
     "SCM2M3x1", ",", "SCM22M3x1", ",", "SCM3M4x1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[S X1]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Log10[S X1]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\
\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 
  3.7717564005848494`*^9}},ExpressionUUID->"546f9f26-37e8-4d33-a96d-\
251aea6ad77d"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3UvMbXdZwOFjoVxKoQVaoFwOh8ugOiBEHDAQPWGCAwaUmOCgg2IiMXFg
[encoded data, 6600 characters]
0lykuch57vhqLnKeW76aizQXL13/D6jPfxY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzst3k0ln/0733Ps5lkHkKiVAglMpdSQimRJEpSpgxliDKWoUGDDCEiYyoS
[encoded data, 83340 characters]
//1vX8p8lz940IMTOVobn+nTQkB+nKweb0P9f3lrxWY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzs2XVUln23L3q6WxAkBARJBZUQkFYkpQWkpUtRAREBpaUEFElpAQEF6Zbr
[encoded data, 52920 characters]
l3kawMrCdP54iuNexnvX4gme1S5jw/8DFXm83Q==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzU23k8VW/bN35jiIwhUTKEJGOGRGTKFAqhkrkSDaYIZcjQoDJkiMqQmQwJ
[encoded data, 51900 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzM3Hc8123fP3CzyCZUZIeQrKJtJ4VKRsNIyapQRkR2iMomGiplJCOUSh1U
[encoded data, 50340 characters]
p0KbhC1pFp+c+kbGtgQZ91zUJ2HXMJEre4bJmMnuM+/yDZD/B7Izm4w=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3HVUF1vbMH5CFKSkBKQblUYalFRCQRoBaZFQUSkFkRAJJUVCMCgJQUIE
[encoded data, 46680 characters]
Ow==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzM23c4133/P34zZKtQQnYJWSGSVVZCRpQ0NIRKREVlRBnJTBQVlZHKSKKk
[encoded data, 50160 characters]
k/1pLSHT8D+44i+Q
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[S \
X1]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[S X1]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9},ExpressionUUID->"e3142e87-b053-43ae-8be7-\
1660b5a65179"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.7718325182530146`*^9},ExpressionUUID->"1f8dfb60-dbbb-47d6-ae2c-\
6601623e6781"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3UvMbXdZwOFjoVxKoQVaoFwOh8ugOiBEHDAQPWGCAwaUmOCgg2IiMXFg
[encoded data, 6600 characters]
0lykuch57vhqLnKeW76aizQXL13/D6jPfxY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzct3k0lv/3/3vPs5lkHkKiVOYSmZuUUEokiRLKlKEMUcYKDRpkCBEZm0jI
[encoded data, 83340 characters]
iRyvi8/0aiUgP07XjLej/j9Xbbpz
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzE13k01X/7P3rznCkyRIiMRTIkYaOEZBYyRGRWKiShzGUIJfNcEYpkyJjX
[encoded data, 51300 characters]
9Q==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzU23k8VW/bN35jiIwhUTKEJGOGRGTKFAqhkrkSDaYIZcjQoDJkiMqQmQwJ
[encoded data, 51900 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzM3Hc8123fP3CzyCZUZIeQrKJtJ4VKRsNIyapQRkR2iMomGiplJCOUSh1U
[encoded data, 50340 characters]
p0KbhC1pFp+c+kbGtgQZ91zUJ2HXMJEre4bJmMnuM+/yDZD/B7Izm4w=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3HVUF1vbMH5CFKSkBKQblUYalFRCQRoBaZFQUSkFkRAJJUVCMCgJQUIE
[encoded data, 46680 characters]
Ow==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzM23c4133/P34zZKtQQnYJWSGSVVZCRpQ0NIRKREVlRBnJTBQVlZHKSKKk
[encoded data, 50160 characters]
k/1pLSHT8D+44i+Q
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[S \
X1]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[S X1]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430565345383`*^9, 3.771743723630438*^9, {
   3.7717438681229663`*^9, 3.7717439489337597`*^9}, {3.771744532558939*^9, 
   3.771744579355576*^9}, 3.771756405444849*^9, 
   3.7717573048575335`*^9},ExpressionUUID->"00c669cc-a325-47db-b0d4-\
19ea72b5b688"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "SCM1M2x2", ",", "SCM1M22x2", ",", "SCM2M22x2", ",", 
     "SCM2M3x2", ",", "SCM22M3x2", ",", "SCM3M4x2"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[S X2]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Log10[S X2]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\
\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717429847714577`*^9, 3.7717430060845375`*^9}, {3.7717430669685717`*^9, 
   3.7717430697135377`*^9}, {3.7717439702277594`*^9, 3.771743984257759*^9}, 
   3.771744597892576*^9, {3.771756425852889*^9, 3.7717564474208484`*^9}, {
   3.7718329712414064`*^9, 
   3.771832972211068*^9}},ExpressionUUID->"22de3774-72ee-4e29-a46e-\
93347160f70e"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3UvMbXdZwOFjoVxKoQVaoFwOh8ugOiBEHDAQPWGCAwaUmOCgg2IiMXFg
[encoded data, 6600 characters]
0lykuch57vhqLnKeW76aizQXL13/D6jPfxY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzsuHk41m+3/801z5cxISSSSKgMZaaBJBEhRKZUpoyVoUKGyJBQytAgmhOJ
[encoded data, 53880 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzs2nc8l//fMPyPvfdWViUzlL1HyIiSmZSZCkWDbLIVCRmRkhUVImQfbxnR
[encoded data, 47400 characters]
vFgQEC3F+EdOypHCYew7GzLKSJXifx2dGPA=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Xk0lX2/P3CEaBIqKimRVJIhSdI2pGhQmVMaNJEKKRUKRYgGZCjJmFCG
[encoded data, 26040 characters]
Dvid/mvy3dolZCbYodv5uB8tC7p6XtOX0IxDtA79wgD6FzX+We0=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs23k8lvvaP/zLlDEZSyFJIRFSSImiMkVmKXNkKCJSZEyhZAxFg0oZMyQU
[encoded data, 37980 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs/Xc81+v/AP5bhZYQDRq2FGVEQlbDCBUKCUlmpRSVysyKzEpoIFnJDBX1
[encoded data, 34980 characters]
wYB5PoklPdKiQ8/b6m4zFmwA/h/wIgo9
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs3Hk4Vl3bOH5jyJChNCCZS6IoQxqMRYkkEYlIiIpKmcqcBiXJUAoVUoRC
[encoded data, 36720 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[S \
X2]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[S X2]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329835971966`*^9},ExpressionUUID->"653bf9dc-71c1-4246-ae69-\
bd02841aa93e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.77183296978526*^9},ExpressionUUID->"80b0d8a6-43c4-4b70-801c-1d434dc5ddbe"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3UvMbXdZwOFjoVxKoQVaoFwOh8ugOiBEHDAQPWGCAwaUmOCgg2IiMXFg
[encoded data, 6600 characters]
0lykuch57vhqLnKeW76aizQXL13/D6jPfxY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzsuHk0l2/b7+8zz5+PMSEkkkioDGWmgSQRIUSmVESGVIYKmTMkFBkaRGkS
[encoded data, 53640 characters]
8D+ZnMwb
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzk2Hc4l///N/6XvbdkZJYto6zshIyQbCkzygiJZJYVISFkNWwVosg+nzJC
[encoded data, 45120 characters]
9XxtOPLIaBhbXg+3tfsxg2n468wLvR/G/g9Im1p+
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Xk0lX2/P3CEaBIqKimRVJIhSdI2pGhQmVMaNJEKKRUKRYgGZCjJmFCG
[encoded data, 26040 characters]
Dvid/mvy3dolZCbYodv5uB8tC7p6XtOX0IxDtA79wgD6FzX+We0=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs23k8lvvaP/zLlDEZSyFJIRFSSImiMkVmKXNkKCJSZEyhZAxFg0oZMyQU
[encoded data, 37980 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs/Xc81+v/AP5bhZYQDRq2FGVEQlbDCBUKCUlmpRSVysyKzEpoIFnJDBX1
[encoded data, 34980 characters]
wYB5PoklPdKiQ8/b6m4zFmwA/h/wIgo9
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs3Hk4Vl3bOH5jyJChNCCZS6IoQxqMRYkkEYlIiIpKmcqcBiXJUAoVUoRC
[encoded data, 36720 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[S \
X2]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[S X2]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430076935377`*^9, 3.771743071554538*^9, 
   3.7717437326844378`*^9, {3.7717439747067604`*^9, 3.7717439854331055`*^9}, 
   3.7717446005175753`*^9, 3.771756450619849*^9, 
   3.7717573113835335`*^9},ExpressionUUID->"3325fc66-0bbc-47f2-98e5-\
211de3a05294"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "SCM1M2x3", ",", "SCM1M22x3", ",", "SCM2M22x3", ",", 
     "SCM2M3x3", ",", "SCM22M3x3", ",", "SCM3M4x3"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[S X3]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Log10[S X3]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\
\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717430282915373`*^9, 3.7717430389475803`*^9}, {3.7717430890025377`*^9, 
   3.7717430957295938`*^9}, {3.7717431257325373`*^9, 3.7717431292835712`*^9}, 
   3.7717446091545763`*^9, {3.7717564648597617`*^9, 3.771756492089389*^9}, {
   3.7718329786503863`*^9, 
   3.7718329798534956`*^9}},ExpressionUUID->"8b848d82-2db6-4a6d-897a-\
3850fc7d95c8"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3UvMbXdZwOFjoVxKoQVaoFwOh8ugOiBEHDAQPWGCAwaUmOCgg2IiMXFg
[encoded data, 6600 characters]
0lykuch57vhqLnKeW76aizQXL13/D6jPfxY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzsuHk411/b96vvPBNKRBkaSKJIpUyVUKJMSTIUQqISGZIIlQwhc2SshAZk
[encoded data, 60660 characters]
C6DO+kzNL2UOQoeFVY0jFuB/GqhVOg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzs2Xk4lV+/OP5t783epm0WImSqFEIIKSRJk6mQISpD5jkUiURIhhIqJEmF
[encoded data, 51000 characters]
5hfw7Dh08aTZMEQ4fyk5pPQLOJKiSPEhw+BuGaY9aYn+Hw4ykjA=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Xk4l1vbMH5TIVNIyZiIRqWSRF3miFJpIkloQEVlyFAoklIZMjQrlCmR
[encoded data, 26520 characters]
pbXPvfCeNvwPYw2/2g==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzt3Hk4llvbOH5jKVNIpSgiSZM0yNQlSoZQVDSKJkIaqCgZS4bKkLlBRSEZ
[encoded data, 22740 characters]
1AVEarfwkPfRGuL/A2xbUjo=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Hc8123fOH4rVDJSqSgpK0pRRhpvGUVWpUIlI2Q0aCCUEVFpoCItESEZ
[encoded data, 26340 characters]
AM8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs3Xk8lmvbKH5DishYUomUhKIiUSkkZYrMKhmjUEmGQmWOIkPGUhlTZiWR
[encoded data, 36240 characters]
KjgfllLGIkJg9+0+rJO6jf4fvhwSRw==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[S \
X3]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[S X3]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.77183298639155*^9, 
  3.7718329890239973`*^9}},ExpressionUUID->"96fd5a91-fbac-4a9c-bccd-\
c1910062e18a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.771832977243878*^9},ExpressionUUID->"4a702dd8-7568-40a9-bc48-\
8a0b95530500"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3UvMbXdZwOFjoVxKoQVaoFwOh8ugOiBEHDAQPWGCAwaUmOCgg2IiMXFg
[encoded data, 6600 characters]
0lykuch57vhqLnKeW76aizQXL13/D6jPfxY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxMV2c41+/btsrIKOO790JKRlIohYpCCklkRZTIioYVKZsKlVFEoaGMyL5E
[encoded data, 92940 characters]
mOD00jexuB+f8ihbD+YM4n91KRL9
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzs2Hk0lW3/N/5t723vbdrmMUKmSiFzSCFJmkyFDFEZMs+hyJAIyVBCZUrS
[encoded data, 50520 characters]
3PGhY+BpFa49a4X+HxXPM7c=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Xk4l1vbMH5TIVNIyZiIRqWSRF3miFJpIkloQEVlyFAoklIZMjQrlCmR
[encoded data, 26520 characters]
pbXPvfCeNvwPYw2/2g==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzt3Hk4llvbOH5jKVNIpSgiSZM0yNQlSoZQVDSKJkIaqCgZS4bKkLlBRSEZ
[encoded data, 22740 characters]
1AVEarfwkPfRGuL/A2xbUjo=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Hc8123fOH4rVDJSqSgpK0pRRhpvGUVWpUIlI2Q0aCCUEVFpoCItESEZ
[encoded data, 26340 characters]
AM8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs3Xk8lmvbKH5DishYUomUhKIiUSkkZYrMKhmjUEmGQmWOIkPGUhlTZiWR
[encoded data, 36240 characters]
KjgfllLGIkJg9+0+rJO6jf4fvhwSRw==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[S \
X3]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[S X3]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430404035378`*^9, 3.7717430974075375`*^9, 
   3.7717431332645373`*^9, 3.7717432610825377`*^9, 3.771743736328438*^9, 
   3.7717440252000895`*^9, 3.771744610420576*^9, 3.7717564959423885`*^9, 
   3.7717573153625364`*^9},ExpressionUUID->"2f9dbdbc-5be5-4269-8f43-\
9e30437dfec9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "SCM1M2x4", ",", "SCM1M22x4", ",", "SCM2M22x4", ",", 
     "SCM2M3x4", ",", "SCM22M3x4", ",", "SCM3M4x4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "10"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[S X4]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Log10[S X4]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\
\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717430282915373`*^9, 3.7717430389475803`*^9}, {3.7717430890025377`*^9, 
   3.7717430957295938`*^9}, {3.7717431257325373`*^9, 3.7717431292835712`*^9}, 
   3.7717446091545763`*^9, {3.7717564648597617`*^9, 3.7717565569213896`*^9}, {
   3.7717573906825323`*^9, 
   3.771757393368067*^9}},ExpressionUUID->"5807642d-a65e-42cb-a5da-\
213cf2cac88a"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3UvMbXdZwOFjoVxKoQVaoFwOh8ugOiBEHDAQPWGCAwaUmOCgg2IiMXFg
[encoded data, 6600 characters]
0lykuch57vhqLnKeW76aizQXL13/D6jPfxY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxMmnlYDFDbxhPRQtmiXZRCSUlESIW0S/uKooQkIbJUQiKRrCkSya6NULmL
[encoded data, 86400 characters]
/wGE+w0N
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c8l9/7B3BSSBRCZVaKSEpCKW6kInsrkk2iskepUMkqKyuUMlL2yHbs
[encoded data, 55380 characters]
bil5RvQ/2jooEQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJyM13c4l+0bP3B7hIQSyS5JRqSUxm1LlJIdCWVEVkZRSLKyR1bZK5K9x43s
[encoded data, 54540 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJyM3Xc01v8fP36rELJVRkZmSkIUchHJSPZsWAlRtjKyN2VHUmQlkUQZydPe
[encoded data, 57060 characters]
EQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJyM23c4l2//P3CkMpJVSkRmCRmVyuiyojKSVcmWzEJGIVJkJntkVXZkZITC
[encoded data, 54780 characters]
FJ0s2YD+Pwwy668=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJyc3GVUlmvXN3o6lBZBBGlBkEZBFCVFBBFQQikJEQEFQQmVEpUSpREBSUFC
[encoded data, 57780 characters]
f63f6sXUJo9tc/7xih5VwP8H+ftHsw==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[S \
X4]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[S X4]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-5, 10}, {-5, 10}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329898490705`*^9},ExpressionUUID->"57925f70-b9f1-43f5-a871-\
764f759ed1a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.771832986279563*^9},ExpressionUUID->"5a3d16cd-8a8b-4c66-8731-\
75cc3056ce3f"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3UvMbXdZwOFjoVxKoQVaoFwOh8ugOiBEHDAQPWGCAwaUmOCgg2IiMXFg
[encoded data, 6600 characters]
0lykuch57vhqLnKeW76aizQXL13/D6jPfxY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxMmnlYDFDbxhNRoWxRqUQpFJVkC6mQdmlfUSohSYgsbUgkkrWFRLJrI1Tu
[encoded data, 86400 characters]
fhCg
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c8l9/7B3BSSBRCZVaKSEpCKW6kInsrkk2iskepUMkqKyuUMlL2yHbs
[encoded data, 55380 characters]
bil5RvQ/2jooEQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJyM13c4l+0bP3B7hIQSyS5JRqSUxm1LlJIdCWVEVkZRSLKyR1bZK5K9x43s
[encoded data, 54540 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJyM3Xc01v8fP36rELJVRkZmSkIUchHJSPZsWAlRtjKyN2VHUmQlkUQZydPe
[encoded data, 57060 characters]
EQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJyM23c4l2//P3CkMpJVSkRmCRmVyuiyojKSVcmWzEJGIVJkJntkVXZkZITC
[encoded data, 54780 characters]
FJ0s2YD+Pwwy668=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJyc3GVUlmvXN3o6lBZBBGlBkEZBFCVFBBFQQikJEQEFQQmVEpUSpREBSUFC
[encoded data, 57780 characters]
f63f6sXUJo9tc/7xih5VwP8H+ftHsw==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[S \
X4]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[S X4]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-5, 10}, {-5, 10}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.77175653287939*^9, 3.7717565579583893`*^9}, 
   3.7717565909045477`*^9, 3.7717573160965333`*^9, 
   3.7717573943210897`*^9},ExpressionUUID->"1aefa1cf-9c75-425c-803c-\
77cdcbc90a98"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting Aggregate sensitivities per model in LogScale", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717496184596395`*^9, 3.7717496255636387`*^9}, {
  3.771754973561076*^9, 3.7717549840240755`*^9}, {3.771755044088076*^9, 
  3.771755046152076*^9}},ExpressionUUID->"132e24f5-2602-45e6-a80a-\
f73423ec5186"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 
  3.7717438210269485`*^9},ExpressionUUID->"251dbd96-7c3b-4250-aced-\
7bfed9b5026e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC2M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC3M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC4M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771750255998108*^9, 3.771750261468157*^9}, {
   3.7717503143819046`*^9, 3.7717503204600935`*^9}, {3.77175036931011*^9, 
   3.7717505441723948`*^9}, {3.771750603868393*^9, 3.771750604625393*^9}, {
   3.771751006510023*^9, 3.771751028605259*^9}, 3.7718332443557005`*^9, {
   3.7718333130003257`*^9, 3.771833316172721*^9}, {3.7718333631565485`*^9, 
   3.771833498501051*^9}},ExpressionUUID->"4f9c4e4f-630b-4148-ba8a-\
b7c21c644b6a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M22x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC2M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC2M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC3M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC3M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7717506180954275`*^9, 3.7717506509560704`*^9}, {
  3.771751036509768*^9, 3.771751040236768*^9}, {3.7718335083982697`*^9, 
  3.7718335710843024`*^9}},ExpressionUUID->"a345563d-c442-44da-9a9e-\
116176d5bc93"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M3x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC4M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC4M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC6M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771750679324355*^9, 3.7717507969081774`*^9}, {
  3.771751042845768*^9, 3.7717510465227685`*^9}, {3.7717513148466735`*^9, 
  3.771751319725518*^9}, {3.7718335796261654`*^9, 3.7718336427750225`*^9}, {
  3.772530629123415*^9, 
  3.772530636069419*^9}},ExpressionUUID->"26aa00fb-d251-4535-b95f-\
82651244b5bc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M4x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M4", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC6M4", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.772530639333391*^9},ExpressionUUID->"3e0c1d3f-b758-442e-b24c-\
1fecabd47b85"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "5"}], ",", "20", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
  3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
  3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
  3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.7717511216934023`*^9, 
  3.7717511260924387`*^9}, {3.7718359393366876`*^9, 
  3.771835942401884*^9}},ExpressionUUID->"1b42ca1e-ed04-44db-8f35-\
0bf757fc7ce7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow", ",", 
    "Brown"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.771750852590178*^9, 
  3.7717508545711784`*^9}, {3.771751187614402*^9, 
  3.771751188859313*^9}},ExpressionUUID->"b799e008-fc3d-4313-b5e6-\
36b944a803c6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6, 0.4, 0.2],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.771750812778178*^9, 3.771750855329178*^9, 3.771751054740206*^9, 
   3.7717511289154024`*^9, 3.7717511893793135`*^9, 3.7717513383657866`*^9, 
   3.771833650649496*^9, 
   3.7725305396011333`*^9},ExpressionUUID->"5bbb2014-d751-466f-b452-\
b9ff52588bb6"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", " ", "\"\<M4\>\""}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.771750818301215*^9, 
   3.7717508466352005`*^9}},ExpressionUUID->"8562fa69-2311-4ff5-ba26-\
3539dd6be760"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"8c5166d7-2325-4723-804e-\
fd99902a72fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5x6", ",", "M2x5x6", ",", "M22x5x6", ",", "M3x5x6", 
     ",", "M4x5x6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "20"}], ",", "15"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "15"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Signal amplification\>\"", ",", " ", "\"\<Sensitivity\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717508837272377`*^9, 3.7717509486360235`*^9}, {3.771751100492814*^9, 
  3.771751109195403*^9}, {3.7717511480944023`*^9, 3.771751157707403*^9}, {
  3.771751219417819*^9, 3.7717512282398195`*^9}, {3.771833677547312*^9, 
  3.771833687830234*^9}, {3.771833724037511*^9, 3.7718337746856422`*^9}, {
  3.7718338063756437`*^9, 3.771833823745423*^9}, {3.7718357914634247`*^9, 
  3.7718359296885433`*^9}, {3.771835967878399*^9, 
  3.771835968379238*^9}},ExpressionUUID->"39c0a53c-6168-4b70-b4f3-\
116dd7ddb968"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3HuoP3Zdx/Ffy+ucbupMLZszy7yULTWQyBpCFCF4QbBAYhaVENQqArGC
[encoded data, 8040 characters]
7G6wu/GE9f8BJHrQBw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c4ln0bB3C7bCUjlKhkZGZE6k6iiBAiK9lCZkRRRiEzZCcjSWbZ82dm
[encoded data, 111900 characters]
/4aKql2UFv0dTj9ygZ4JXRXoI3vgTYv+B5pcBEk=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM3Hc4l3/7P3A7I8r2EWWPRJGRWaShJA0rIzJSSiXKamgoe5RIyMgsJSOp
[encoded data, 167880 characters]
6YKFG1jwfw1qlTU=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM1nc8V//7P3B7771ljyIlJHEOiYzKDGWVlV2SaNhStoxCmdkkpKh4vciK
[encoded data, 170340 characters]
8Kbn7hbuAjaYe5QIrwAT/gOBfLKA
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM1nc8V//7P3CrZCtklMykrDIywkGUjIwoGRkhpUj2zCYhISMjW/becey9
[encoded data, 55800 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJxM1nc8V//7P3CrZCtklMykrDIywkGUjIwoGRkhpUj2zCYhISMjW/becey9
[encoded data, 55800 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Sensitivity\"", TraditionalForm], None}, {
        FormBox["\"Signal amplification\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-20, 15}, {-3, 15}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7718337261485105`*^9, 3.7718337762064767`*^9}, {
   3.7718338083295183`*^9, 3.7718338256524253`*^9}, {3.7718358191969423`*^9, 
   3.7718358448122034`*^9}, 3.7718358796916904`*^9, {3.7718359138154554`*^9, 
   3.771835969707691*^9}},ExpressionUUID->"9efa16ad-0ae3-4c7a-a814-\
51b36d9d049a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5x6", ",", "M2x5x6", ",", "M22x5x6", ",", "M3x5x6", 
     ",", "M4x5x6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Signal amplification\>\"", ",", " ", "\"\<Sensitivity\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717508837272377`*^9, 3.7717509486360235`*^9}, {3.771751100492814*^9, 
  3.771751109195403*^9}, {3.7717511480944023`*^9, 3.771751157707403*^9}, {
  3.771751219417819*^9, 3.7717512282398195`*^9}, {3.771833677547312*^9, 
  3.771833687830234*^9}},ExpressionUUID->"bb061a67-7c2c-4e33-94ca-\
fe37498ce6a0"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2ctuVXUARvFTFBEBQe7l2nK/U9oOnMkDMPIJjImNM3yEPoLOxDjwHRgx
0qEk1Zg4YkZC0sTEgQRjIBBi+l+7a0X35Jc0+6z99dwaNouf3//0ix2z2eyb
udlsS47Vn7Zd2zo2V/SXja0jV7aOh/ndg60jR2Y9R2ctR+dernDo6Mwnu5Jd
y8quZFeyK9mV7Ep2JbOSXcmuZNcdZVeyK9mV7Ep2JbuSXcmuZFeya0nZlexK
diW7kl3JrmRXsivZlWPGxm3lusl1km7SSTq3lE7SSTpJJ+ncVDpJJ+kknaRz
Q+kknaSTdJLOdaWTdJJO0kk615RO0kk6SSfpXFU6SSfpJJ2kc0XpJJ2kk3SS
z8FlHZkHSSfpJJ2kc0npJJ2kk3SSzkWlk3SSTtJJnrcLSifpJJ2kk3TOK52k
k3SSTtI5p3SSTtJJOklnUekknaSTdJLOgtJJOkkn6eS343FndXmcl1znjNJN
OknntNJJOqeUTtJJOieVTtI5oXSSTtKZVzpJ57jSSTpJ55jSSTpHlU7SSTpH
lE7SOax0kk7SOaR0ks5BpZN0ks5HSifpHFA6SSeXxuP265fjvA+V6+zTn0d3
r9JJOnuUzgdKZ7fSeV/pJJ1dSuc9pbNT6byrdJLOO0pnh9KZUzozpZOfjce9
/XHb38Z5b5TrvNavR/eVknmpdP5ROn8rnRdK57nS+Ut5I/yp6+O8P5TrbOrC
6D5TOk+Vxz3R2Tjvd+Xnj3U2fJT/P8Yf7kef/NfHepeu8kX7RKddynnPdJ3f
S3/g99anPC86PW/Kec+V7gudXhf9itdNp9dV6bxSOq91et8onbc6PWt3t+W8
pDun0/taP+Z9r9PnQukknZ06fe6Uzi6dPrdKJ+ns1ul7QensUTp7lU7S2afT
95bS2a90DijnJd1c5XtVv+d7V+kcVDpJJ+kcUjpJ57DSSTpJ54jSSTpHlU7S
STrHlE7SOa50kk7SmVc6SeeE0kk6Seek0kk6p5RO0kk6p5VO0jmjdJJO0jmr
dJLOgnJe0k3+XZO/jusknUWlk3SSTtJJOueUTtJJOkkn6ZxXOkkn6SSdpHNB
6SSdpJN0ks5FpZN0kk7SSTqXlE7SSTpJJ+lcVjpJJ+kknaRzRekkneR9myOz
kXSuKp2kk3SSTtK5pnSSTtJJOknnutJJOkkn6SSdG0on6SSdpJN0biqdpJN0
kk7SuaV0kk7SSTpJ57bSSTpJJ+kknSWd7gsq3Rzv23s5LrOWI7Oe031LHZ2H
yecgR2Yz2XVHp/uqyq5kV7Ir2ZXTfV9lV7Ir2ZXsWtbpvrSyK9mVvE7Jrpzu
myu7kl05OpvJrhWd7usru5Jdya5kV07/76DsSnYlu5Jdq/ovZQa4xQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c4ln0bB3C7bCUjlKhkZGZE6k6iiBAiK9lCZkRRRiEzZCcjSWbZ82dm
[encoded data, 111900 characters]
/4aKql2UFv0dTj9ygZ4JXRXoI3vgTYv+B5pcBEk=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM3Hc4l3/7P3A7I8r2EWWPRJGRWaShJA0rIzJSSiXKamgoe5RIyMgsJSOp
[encoded data, 167880 characters]
6YKFG1jwfw1qlTU=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM1nc8V//7P3B7771ljyIlJHEOiYzKDGWVlV2SaNhStoxCmdkkpKh4vciK
[encoded data, 170340 characters]
8Kbn7hbuAjaYe5QIrwAT/gOBfLKA
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM1nc8V//7P3CrZCtklMykrDIywkGUjIwoGRkhpUj2zCYhISMjW/becey9
[encoded data, 55800 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJxM1nc8V//7P3CrZCtklMykrDIywkGUjIwoGRkhpUj2zCYhISMjW/becey9
[encoded data, 55800 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Sensitivity\"", TraditionalForm], None}, {
        FormBox["\"Signal amplification\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-20., 20.}, {-20., 20.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430565345383`*^9, 3.771743723630438*^9, {
   3.7717438681229663`*^9, 3.7717439489337597`*^9}, {3.771744532558939*^9, 
   3.771744579355576*^9}, {3.771750913208289*^9, 3.7717509512870245`*^9}, 
   3.771751062363206*^9, 3.771751161304402*^9, {3.771751193757354*^9, 
   3.771751220868819*^9}, 3.771751344911786*^9, 
   3.771833694441696*^9},ExpressionUUID->"3a87041d-01c6-4c20-a1e3-\
3e7a843c7d3d"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC2M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC3M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC4M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717514233558207`*^9, 
  3.7717517370354457`*^9}},ExpressionUUID->"9e916b0b-d1f4-4627-b83c-\
66b221fa0f85"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M22x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC2M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC2M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC3M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC3M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC4M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC4M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC4M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC4M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC5M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC6M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC6M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC6M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717517508774014`*^9, 
  3.7717518666841464`*^9}},ExpressionUUID->"d3c0ac2c-a692-48a9-a2ff-\
6ef8053ce84b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M4x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC6M4", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771751898235298*^9, 3.771751922427298*^9}, {
  3.771751976749327*^9, 
  3.77175197705035*^9}},ExpressionUUID->"a362b2db-8432-4216-a103-\
548308cb7eb1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5xt", ",", "M2x5xt", ",", "M22x5xt", ",", "M3x5xt", 
     ",", "M4x5xt"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X2,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X2,Total protein] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717429847714577`*^9, 3.7717430060845375`*^9}, {3.7717430669685717`*^9, 
   3.7717430697135377`*^9}, {3.7717439702277594`*^9, 3.771743984257759*^9}, 
   3.771744597892576*^9, {3.7717519320452976`*^9, 
   3.7717519920607595`*^9}},ExpressionUUID->"fcedd61a-59e9-4b04-9c42-\
944d8b2e4fa4"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2ctuVXUARvFTFBEBQe7l2nK/U9oOnMkDMPIJjImNM3yEPoLOxDjwHRgx
0qEk1Zg4YkZC0sTEgQRjIBBi+l+7a0X35Jc0+6z99dwaNouf3//0ix2z2eyb
udlsS47Vn7Zd2zo2V/SXja0jV7aOh/ndg60jR2Y9R2ctR+dernDo6Mwnu5Jd
y8quZFeyK9mV7Ep2JbOSXcmuZNcdZVeyK9mV7Ep2JbuSXcmuZFeya0nZlexK
diW7kl3JrmRXsivZlWPGxm3lusl1km7SSTq3lE7SSTpJJ+ncVDpJJ+kknaRz
Q+kknaSTdJLOdaWTdJJO0kk615RO0kk6SSfpXFU6SSfpJJ2kc0XpJJ2kk3SS
z8FlHZkHSSfpJJ2kc0npJJ2kk3SSzkWlk3SSTtJJnrcLSifpJJ2kk3TOK52k
k3SSTtI5p3SSTtJJOklnUekknaSTdJLOgtJJOkkn6eS343FndXmcl1znjNJN
OknntNJJOqeUTtJJOieVTtI5oXSSTtKZVzpJ57jSSTpJ55jSSTpHlU7SSTpH
lE7SOax0kk7SOaR0ks5BpZN0ks5HSifpHFA6SSeXxuP265fjvA+V6+zTn0d3
r9JJOnuUzgdKZ7fSeV/pJJ1dSuc9pbNT6byrdJLOO0pnh9KZUzozpZOfjce9
/XHb38Z5b5TrvNavR/eVknmpdP5ROn8rnRdK57nS+Ut5I/yp6+O8P5TrbOrC
6D5TOk+Vxz3R2Tjvd+Xnj3U2fJT/P8Yf7kef/NfHepeu8kX7RKddynnPdJ3f
S3/g99anPC86PW/Kec+V7gudXhf9itdNp9dV6bxSOq91et8onbc6PWt3t+W8
pDun0/taP+Z9r9PnQukknZ06fe6Uzi6dPrdKJ+ns1ul7QensUTp7lU7S2afT
95bS2a90DijnJd1c5XtVv+d7V+kcVDpJJ+kcUjpJ57DSSTpJ54jSSTpHlU7S
STrHlE7SOa50kk7SmVc6SeeE0kk6Seek0kk6p5RO0kk6p5VO0jmjdJJO0jmr
dJLOgnJe0k3+XZO/jusknUWlk3SSTtJJOueUTtJJOkkn6ZxXOkkn6SSdpHNB
6SSdpJN0ks5FpZN0kk7SSTqXlE7SSTpJJ+lcVjpJJ+kknaRzRekkneR9myOz
kXSuKp2kk3SSTtK5pnSSTtJJOknnutJJOkkn6SSdG0on6SSdpJN0biqdpJN0
kk7SuaV0kk7SSTpJ57bSSTpJJ+kknSWd7gsq3Rzv23s5LrOWI7Oe031LHZ2H
yecgR2Yz2XVHp/uqyq5kV7Ir2ZXTfV9lV7Ir2ZXsWtbpvrSyK9mVvE7Jrpzu
myu7kl05OpvJrhWd7usru5Jdya5kV07/76DsSnYlu5Jdq/ovZQa4xQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM12c8lm8bB3ARRULJCBGikPlHiJAQkaxsyd57REaoUELILBkJmUU2p5lZ
[encoded data, 111060 characters]
qemQ3YoMaYnqdcz/AB6lhiQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lu/bB3A7u2zZeyRCNolSslXml4yMFElCRktDIbPMkL1CMpLIddoz
[encoded data, 167400 characters]
0yOXklsS+EkaCnEOkaG60qP/AcQ9mYQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM2nc8lf/7B3Cb7L33pkiEJM6xs0L4oKwiyiwhUpQRWZGRkZ2iKCNC4V3Z
[encoded data, 168060 characters]
6P8B/nkojw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8Vv/7B3B7kxmyV8MWIoWkjEQolJWZLYRCkREhFIlkryR7fGznIBEp
[encoded data, 165660 characters]
4Xs/zdFiS6x/l1jw4dJEU7geSMPmEk2VP3Z8MGYajjgaS8P/iYQtRQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJxM2Xc4V//7B3BF2XsmskpKKCMjvJFKRkYp2YSUQpkh2aSMJJtk701GnGMn
[encoded data, 54600 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X2,Total protein] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X2,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430076935377`*^9, 3.771743071554538*^9, 
   3.7717437326844378`*^9, {3.7717439747067604`*^9, 3.7717439854331055`*^9}, 
   3.7717446005175753`*^9, 
   3.7717519942942824`*^9},ExpressionUUID->"7638155c-d2bf-4827-aac9-\
9b809ed43939"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Plotting Aggregate sensitivities per model in LogScale X1 vs X4\
\>", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717496184596395`*^9, 3.7717496255636387`*^9}, {
  3.771754973561076*^9, 3.7717549840240755`*^9}, {3.771755044088076*^9, 
  3.771755046152076*^9}, {3.772530824196784*^9, 
  3.772530827076805*^9}},ExpressionUUID->"6d06e81b-7c1a-40d6-bbc6-\
d8c40679642e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 3.7717438210269485`*^9},
 CellLabel->
  "In[310]:=",ExpressionUUID->"0d6a681a-448a-45dc-a427-edc5a27b90fa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771750255998108*^9, 3.771750261468157*^9}, {
   3.7717503143819046`*^9, 3.7717503204600935`*^9}, {3.77175036931011*^9, 
   3.7717505441723948`*^9}, {3.771750603868393*^9, 3.771750604625393*^9}, {
   3.771751006510023*^9, 3.771751028605259*^9}, 3.7718332443557005`*^9, {
   3.7718333130003257`*^9, 3.771833316172721*^9}, {3.7718333631565485`*^9, 
   3.771833498501051*^9}, {3.772530692106823*^9, 3.7725307151181064`*^9}, {
   3.7725307562837496`*^9, 3.772530809880747*^9}, 3.7725312363466854`*^9},
 CellLabel->
  "In[311]:=",ExpressionUUID->"27d06e2d-f9ff-40d0-945e-d6cd662ab72f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M22x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC2M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC3M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7717506180954275`*^9, 3.7717506509560704`*^9}, {
  3.771751036509768*^9, 3.771751040236768*^9}, {3.7718335083982697`*^9, 
  3.7718335710843024`*^9}, {3.77253084023478*^9, 3.772530891710169*^9}},
 CellLabel->
  "In[313]:=",ExpressionUUID->"631379d8-c7fa-4b73-a39d-ab4b4ddde81c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M3x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC4M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771750679324355*^9, 3.7717507969081774`*^9}, {
  3.771751042845768*^9, 3.7717510465227685`*^9}, {3.7717513148466735`*^9, 
  3.771751319725518*^9}, {3.7718335796261654`*^9, 3.7718336427750225`*^9}, {
  3.772530629123415*^9, 3.772530636069419*^9}, {3.772530886154092*^9, 
  3.7725309257576637`*^9}},
 CellLabel->
  "In[314]:=",ExpressionUUID->"59cb8da0-554a-4ff3-b00e-8cdd5334e4db"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M4x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M4", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M4", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC6M4", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.772530639333391*^9, 3.7725309449216795`*^9, 
  3.7725313383786497`*^9},
 CellLabel->
  "In[315]:=",ExpressionUUID->"432c4fbe-3ddd-4409-ab56-5fa6a02824fe"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "6"}], ",", "6", ",", "0.005"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
  3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
  3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
  3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.7717511216934023`*^9, 
  3.7717511260924387`*^9}, {3.7718359393366876`*^9, 3.771835942401884*^9}, {
  3.7725309568386307`*^9, 3.7725309627250814`*^9}, {3.772531030631628*^9, 
  3.7725310414935317`*^9}},
 CellLabel->
  "In[316]:=",ExpressionUUID->"d6a71d90-f80a-4cc0-86d0-d2f2f25ba2c5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow", ",", 
    "Brown"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.771750852590178*^9, 
  3.7717508545711784`*^9}, {3.771751187614402*^9, 3.771751188859313*^9}},
 CellLabel->
  "In[317]:=",ExpressionUUID->"9cb11e9f-1a5d-44ab-9342-7581686aa386"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 1.35 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
          Magnification]}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6, 0.4, 0.2],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.771750812778178*^9, 3.771750855329178*^9, 3.771751054740206*^9, 
   3.7717511289154024`*^9, 3.7717511893793135`*^9, 3.7717513383657866`*^9, 
   3.771833650649496*^9, 3.7725305396011333`*^9, 3.772530964598151*^9, 
   3.797063948728962*^9},
 CellLabel->
  "Out[317]=",ExpressionUUID->"98b92acb-3307-45e8-810a-fab85b33e256"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", " ", "\"\<M4\>\""}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.771750818301215*^9, 3.7717508466352005`*^9}},
 CellLabel->
  "In[318]:=",ExpressionUUID->"c6f6958a-5bb8-4c7e-ab3e-ae0a635326d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},
 CellLabel->
  "In[319]:=",ExpressionUUID->"a426f02b-84bb-48b9-b1b8-bb88b7e326fb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5x6", ",", "M2x5x6", ",", "M22x5x6", ",", "M3x5x6", 
     ",", "M4x5x6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log[10,S(X1,\[CenterDot])]\>\"", ",", " ", 
      "\"\<Log[S(X4, \[CenterDot])]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717508837272377`*^9, 3.7717509486360235`*^9}, {3.771751100492814*^9, 
  3.771751109195403*^9}, {3.7717511480944023`*^9, 3.771751157707403*^9}, {
  3.771751219417819*^9, 3.7717512282398195`*^9}, {3.771833677547312*^9, 
  3.771833687830234*^9}, {3.771833724037511*^9, 3.7718337746856422`*^9}, {
  3.7718338063756437`*^9, 3.771833823745423*^9}, {3.7718357914634247`*^9, 
  3.7718359296885433`*^9}, {3.771835967878399*^9, 3.771835968379238*^9}, {
  3.7725309770179677`*^9, 3.7725310074466515`*^9}, {3.7725310494485335`*^9, 
  3.772531054680703*^9}, {3.7725310876087055`*^9, 
  3.77253109546165*^9}},ExpressionUUID->"c79d764c-35c7-4f3a-8f4e-\
c0a01ee60588"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3UustXdZh+GPc1sOLVAOTmqNk+qAkOCAgdWmExwwoMQEBwyKUWLiwJpo
[encoded data, 7680 characters]
XaRdpF2kXaRdpF2kXaRdvHD9P3z+cP0=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzM13c41v//N35771WRmRCFrFDICkkKochWQmWP7J3skk1k74wk6/WyR7JX
[encoded data, 104520 characters]
efF87OwyPDy39cFBmg1rnpq1kJLcDJeIzQVHMMD/AwLNidg=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzM13c81v/bP357bxEhhOxEJdkjO0JCZVT2yF4lFIoQIhKSJCrZWRmvl71l
[encoded data, 162360 characters]
ZrcBTlG7mzQgIcDb5/D99eriUjBjiCVzZBv8f03wmnM=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzM13VUlevbL3pKGqQFRbqkRaREH1QkBJQSFEFauqUEpEVCSSkJBQQTVEBA
[encoded data, 162300 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzU1nc4l///P3x775GZvbcIoU4jI8qqjJAZIUlUZlayQ5JVRhQqe0XGaWVv
[encoded data, 162600 characters]
gP8HtvckbQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJx013c8lu/7P3B7rxARZZORESLpJiOjZCfJzIiUvUp2toyyN1mphGxdtxlZ
[encoded data, 54660 characters]
iDzEjCW39IlimfTY/wDMnChk
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Log[S(X4, \[CenterDot])]\"", TraditionalForm], None}, {
        FormBox["\"Log[10,S(X1,\[CenterDot])]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-6, 6}, {-6, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7718337261485105`*^9, 3.7718337762064767`*^9}, {
   3.7718338083295183`*^9, 3.7718338256524253`*^9}, {3.7718358191969423`*^9, 
   3.7718358448122034`*^9}, 3.7718358796916904`*^9, {3.7718359138154554`*^9, 
   3.771835969707691*^9}, 3.772531011223634*^9, 3.772531058195671*^9, 
   3.7725310988906493`*^9, 3.7725312484786673`*^9, 
   3.7725313534466825`*^9},ExpressionUUID->"0a23a713-9d31-41fa-992c-\
aaaa544a72ce"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5x6", ",", "M2x5x6", ",", "M22x5x6", ",", "M3x5x6", 
     ",", "M4x5x6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Signal amplification\>\"", ",", " ", "\"\<Sensitivity\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717508837272377`*^9, 3.7717509486360235`*^9}, {3.771751100492814*^9, 
  3.771751109195403*^9}, {3.7717511480944023`*^9, 3.771751157707403*^9}, {
  3.771751219417819*^9, 3.7717512282398195`*^9}, {3.771833677547312*^9, 
  3.771833687830234*^9}},ExpressionUUID->"d526b499-9474-44dc-9061-\
3fa05deac9cf"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3UustXdZh+GPc1sOLVAOTmqNk+qAkOCAgdWmExwwoMQEBwyKUWLiwJpo
[encoded data, 7680 characters]
XaRdpF2kXaRdpF2kXaRdvHD9P3z+cP0=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzM13c41v//N35771WRmRCFrFDICkkKochWQmWP7J3skk1k74wk6/WyR7JX
[encoded data, 104520 characters]
efF87OwyPDy39cFBmg1rnpq1kJLcDJeIzQVHMMD/AwLNidg=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzM13c81v/bP357bxEhhOxEJdkjO0JCZVT2yF4lFIoQIhKSJCrZWRmvl71l
[encoded data, 162360 characters]
ZrcBTlG7mzQgIcDb5/D99eriUjBjiCVzZBv8f03wmnM=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzM13VUlevbL3pKGqQFRbqkRaREH1QkBJQSFEFauqUEpEVCSSkJBQQTVEBA
[encoded data, 162300 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzU1nc4l///P3x775GZvbcIoU4jI8qqjJAZIUlUZlayQ5JVRhQqe0XGaWVv
[encoded data, 162600 characters]
gP8HtvckbQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJx013c8lu/7P3B7rxARZZORESLpJiOjZCfJzIiUvUp2toyyN1mphGxdtxlZ
[encoded data, 54660 characters]
iDzEjCW39IlimfTY/wDMnChk
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Sensitivity\"", TraditionalForm], None}, {
        FormBox["\"Signal amplification\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-6., 6.}, {-6., 6.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430565345383`*^9, 3.771743723630438*^9, {
   3.7717438681229663`*^9, 3.7717439489337597`*^9}, {3.771744532558939*^9, 
   3.771744579355576*^9}, {3.771750913208289*^9, 3.7717509512870245`*^9}, 
   3.771751062363206*^9, 3.771751161304402*^9, {3.771751193757354*^9, 
   3.771751220868819*^9}, 3.771751344911786*^9, 3.771833694441696*^9, 
   3.7725312791326694`*^9, 
   3.772531356802679*^9},ExpressionUUID->"494998f6-9c03-403d-97df-\
c1875a56efe0"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC2M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC3M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC4M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717514233558207`*^9, 
  3.7717517370354457`*^9}},ExpressionUUID->"d357bcf0-4e27-4867-8499-\
34a07a9c8a54"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M22x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC2M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC2M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC3M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC3M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC4M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC4M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC4M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC4M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC5M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC6M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC6M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC6M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717517508774014`*^9, 
  3.7717518666841464`*^9}},ExpressionUUID->"7a8c734c-a71e-4c9a-95e2-\
e992ee744e83"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M4x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC6M4", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771751898235298*^9, 3.771751922427298*^9}, {
  3.771751976749327*^9, 
  3.77175197705035*^9}},ExpressionUUID->"924781bf-3368-471c-9959-\
15308e1bf819"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5xt", ",", "M2x5xt", ",", "M22x5xt", ",", "M3x5xt", 
     ",", "M4x5xt"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X2,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X2,Total protein] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717429847714577`*^9, 3.7717430060845375`*^9}, {3.7717430669685717`*^9, 
   3.7717430697135377`*^9}, {3.7717439702277594`*^9, 3.771743984257759*^9}, 
   3.771744597892576*^9, {3.7717519320452976`*^9, 
   3.7717519920607595`*^9}},ExpressionUUID->"827e4f00-ef36-460a-83d8-\
abfd89aa2522"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2ctuVXUARvFTFBEBQe7l2nK/U9oOnMkDMPIJjImNM3yEPoLOxDjwHRgx
0qEk1Zg4YkZC0sTEgQRjIBBi+l+7a0X35Jc0+6z99dwaNouf3//0ix2z2eyb
udlsS47Vn7Zd2zo2V/SXja0jV7aOh/ndg60jR2Y9R2ctR+dernDo6Mwnu5Jd
y8quZFeyK9mV7Ep2JbOSXcmuZNcdZVeyK9mV7Ep2JbuSXcmuZFeya0nZlexK
diW7kl3JrmRXsivZlWPGxm3lusl1km7SSTq3lE7SSTpJJ+ncVDpJJ+kknaRz
Q+kknaSTdJLOdaWTdJJO0kk615RO0kk6SSfpXFU6SSfpJJ2kc0XpJJ2kk3SS
z8FlHZkHSSfpJJ2kc0npJJ2kk3SSzkWlk3SSTtJJnrcLSifpJJ2kk3TOK52k
k3SSTtI5p3SSTtJJOklnUekknaSTdJLOgtJJOkkn6eS343FndXmcl1znjNJN
OknntNJJOqeUTtJJOieVTtI5oXSSTtKZVzpJ57jSSTpJ55jSSTpHlU7SSTpH
lE7SOax0kk7SOaR0ks5BpZN0ks5HSifpHFA6SSeXxuP265fjvA+V6+zTn0d3
r9JJOnuUzgdKZ7fSeV/pJJ1dSuc9pbNT6byrdJLOO0pnh9KZUzozpZOfjce9
/XHb38Z5b5TrvNavR/eVknmpdP5ROn8rnRdK57nS+Ut5I/yp6+O8P5TrbOrC
6D5TOk+Vxz3R2Tjvd+Xnj3U2fJT/P8Yf7kef/NfHepeu8kX7RKddynnPdJ3f
S3/g99anPC86PW/Kec+V7gudXhf9itdNp9dV6bxSOq91et8onbc6PWt3t+W8
pDun0/taP+Z9r9PnQukknZ06fe6Uzi6dPrdKJ+ns1ul7QensUTp7lU7S2afT
95bS2a90DijnJd1c5XtVv+d7V+kcVDpJJ+kcUjpJ57DSSTpJ54jSSTpHlU7S
STrHlE7SOa50kk7SmVc6SeeE0kk6Seek0kk6p5RO0kk6p5VO0jmjdJJO0jmr
dJLOgnJe0k3+XZO/jusknUWlk3SSTtJJOueUTtJJOkkn6ZxXOkkn6SSdpHNB
6SSdpJN0ks5FpZN0kk7SSTqXlE7SSTpJJ+lcVjpJJ+kknaRzRekkneR9myOz
kXSuKp2kk3SSTtK5pnSSTtJJOknnutJJOkkn6SSdG0on6SSdpJN0biqdpJN0
kk7SuaV0kk7SSTpJ57bSSTpJJ+kknSWd7gsq3Rzv23s5LrOWI7Oe031LHZ2H
yecgR2Yz2XVHp/uqyq5kV7Ir2ZXTfV9lV7Ir2ZXsWtbpvrSyK9mVvE7Jrpzu
myu7kl05OpvJrhWd7usru5Jdya5kV07/76DsSnYlu5Jdq/ovZQa4xQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM12c8lm8bB3ARRULJCBGikPlHiJAQkaxsyd57REaoUELILBkJmUU2p5lZ
[encoded data, 111060 characters]
qemQ3YoMaYnqdcz/AB6lhiQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lu/bB3A7u2zZeyRCNolSslXml4yMFElCRktDIbPMkL1CMpLIddoz
[encoded data, 167400 characters]
0yOXklsS+EkaCnEOkaG60qP/AcQ9mYQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM2nc8lf/7B3Cb7L33pkiEJM6xs0L4oKwiyiwhUpQRWZGRkZ2iKCNC4V3Z
[encoded data, 168060 characters]
6P8B/nkojw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8Vv/7B3B7kxmyV8MWIoWkjEQolJWZLYRCkREhFIlkryR7fGznIBEp
[encoded data, 165660 characters]
4Xs/zdFiS6x/l1jw4dJEU7geSMPmEk2VP3Z8MGYajjgaS8P/iYQtRQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJxM2Xc4V//7B3BF2XsmskpKKCMjvJFKRkYp2YSUQpkh2aSMJJtk701GnGMn
[encoded data, 54600 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X2,Total protein] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X2,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430076935377`*^9, 3.771743071554538*^9, 
   3.7717437326844378`*^9, {3.7717439747067604`*^9, 3.7717439854331055`*^9}, 
   3.7717446005175753`*^9, 
   3.7717519942942824`*^9},ExpressionUUID->"2fc3f325-036d-4373-9269-\
ddc6485a2611"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Plotting Aggregate sensitivities per model in LogScale X4 vs X1\
\>", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717496184596395`*^9, 3.7717496255636387`*^9}, {
  3.771754973561076*^9, 3.7717549840240755`*^9}, {3.771755044088076*^9, 
  3.771755046152076*^9}, {3.772530824196784*^9, 3.772530827076805*^9}, {
  3.772531201828684*^9, 
  3.7725312036236515`*^9}},ExpressionUUID->"131ccd3e-6f58-4c2e-b893-\
9be13534d089"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 
  3.7717438210269485`*^9},ExpressionUUID->"93d86b00-0984-4cd0-92da-\
29d50d7b6fe2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M1", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC1M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M2", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771750255998108*^9, 3.771750261468157*^9}, {
   3.7717503143819046`*^9, 3.7717503204600935`*^9}, {3.77175036931011*^9, 
   3.7717505441723948`*^9}, {3.771750603868393*^9, 3.771750604625393*^9}, {
   3.771751006510023*^9, 3.771751028605259*^9}, 3.7718332443557005`*^9, {
   3.7718333130003257`*^9, 3.771833316172721*^9}, {3.7718333631565485`*^9, 
   3.771833498501051*^9}, {3.772530692106823*^9, 3.7725307151181064`*^9}, {
   3.7725307562837496`*^9, 3.772530809880747*^9}, {3.7725312120286865`*^9, 
   3.7725312230186996`*^9}},ExpressionUUID->"88a6a250-32fb-45d1-ae77-\
109cdc204884"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M22x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC2M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC2M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC3M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC3M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M22", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7717506180954275`*^9, 3.7717506509560704`*^9}, {
  3.771751036509768*^9, 3.771751040236768*^9}, {3.7718335083982697`*^9, 
  3.7718335710843024`*^9}, {3.77253084023478*^9, 
  3.772530891710169*^9}},ExpressionUUID->"1b33103e-3d12-4d76-a44d-\
1a1676364b7e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M3x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC4M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC4M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC5M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}], ",", 
                 RowBox[{
                  RowBox[{"N", "[", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M3", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                    RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                   "}"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771750679324355*^9, 3.7717507969081774`*^9}, {
  3.771751042845768*^9, 3.7717510465227685`*^9}, {3.7717513148466735`*^9, 
  3.771751319725518*^9}, {3.7718335796261654`*^9, 3.7718336427750225`*^9}, {
  3.772530629123415*^9, 3.772530636069419*^9}, {3.772530886154092*^9, 
  3.7725309257576637`*^9}},ExpressionUUID->"8e8a595e-5672-47d4-844f-\
8740c644fc9e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M4x5x6", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M4", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}], ",", 
                RowBox[{
                 RowBox[{"N", "[", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"Total", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"SC6M4", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", "0.00001"}], 
                    "]"}], ")"}], "^", "2"}], "]"}], "]"}], "]"}], "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Indeterminate", "\[Rule]", "0"}], ",", " ", 
                   RowBox[{
                    RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}]}], 
                  "}"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC6M4", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0.00001"}], "}"}]}],
           "]"}], "]"}], ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.772530639333391*^9, 
  3.7725309449216795`*^9},ExpressionUUID->"d02d341d-e298-4a04-87ae-\
26afffd29aa1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "6"}], ",", "6", ",", "0.005"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
  3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
  3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
  3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.7717511216934023`*^9, 
  3.7717511260924387`*^9}, {3.7718359393366876`*^9, 3.771835942401884*^9}, {
  3.7725309568386307`*^9, 3.7725309627250814`*^9}, {3.772531030631628*^9, 
  3.7725310414935317`*^9}},ExpressionUUID->"a7d43926-aa0c-44d6-ba5e-\
be94b1ac9365"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow", ",", 
    "Brown"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.771750852590178*^9, 
  3.7717508545711784`*^9}, {3.771751187614402*^9, 
  3.771751188859313*^9}},ExpressionUUID->"88a913b9-354b-4599-88e2-\
ad20cdbec915"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6, 0.4, 0.2],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.771750812778178*^9, 3.771750855329178*^9, 3.771751054740206*^9, 
   3.7717511289154024`*^9, 3.7717511893793135`*^9, 3.7717513383657866`*^9, 
   3.771833650649496*^9, 3.7725305396011333`*^9, 
   3.772530964598151*^9},ExpressionUUID->"7344ab99-108e-4ad5-adf3-\
922e074fabef"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", " ", "\"\<M4\>\""}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.771750818301215*^9, 
   3.7717508466352005`*^9}},ExpressionUUID->"21fdc001-7758-40db-950a-\
7b0c2e8acff7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"db176288-e049-4320-96dc-\
7c13352e7891"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5x6", ",", "M2x5x6", ",", "M22x5x6", ",", "M3x5x6", 
     ",", "M4x5x6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log[10,S(X1,\[CenterDot])]\>\"", ",", " ", 
      "\"\<Log[S(X4, \[CenterDot])]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717508837272377`*^9, 3.7717509486360235`*^9}, {3.771751100492814*^9, 
  3.771751109195403*^9}, {3.7717511480944023`*^9, 3.771751157707403*^9}, {
  3.771751219417819*^9, 3.7717512282398195`*^9}, {3.771833677547312*^9, 
  3.771833687830234*^9}, {3.771833724037511*^9, 3.7718337746856422`*^9}, {
  3.7718338063756437`*^9, 3.771833823745423*^9}, {3.7718357914634247`*^9, 
  3.7718359296885433`*^9}, {3.771835967878399*^9, 3.771835968379238*^9}, {
  3.7725309770179677`*^9, 3.7725310074466515`*^9}, {3.7725310494485335`*^9, 
  3.772531054680703*^9}, {3.7725310876087055`*^9, 
  3.77253109546165*^9}},ExpressionUUID->"c7bac8b3-e3b7-4913-8370-\
c90e51ef9f88"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3UustXdZh+GPc1sOLVAOTmqNk+qAkOCAgdWmExwwoMQEBwyKUWLiwJpo
[encoded data, 7680 characters]
XaRdpF2kXaRdpF2kXaRdvHD9P3z+cP0=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzM13c41v//N35771WRmRCFrFDICkkKochWQmWP7J3skk1k74wk6/WyR7JX
[encoded data, 104520 characters]
efF87OwyPDy39cFBmg1rnpq1kJLcDJeIzQVHMMD/AwLNidg=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzM13VUV/vXL3q6Q1I6VBpBSpAukVAJEUGkJERQKQUUQaSRUhGkpEQQkZaQ
[encoded data, 181680 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzM13VUlevbL3pKGqQFRbqkRaREH1QkBJQSFEFauqUEpEVCSSkJBQQTVEBA
[encoded data, 162300 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzU1nc4l///P3x775GZvbcIoU4jI8qqjJAZIUlUZlayQ5JVRhQqe0XGaWVv
[encoded data, 162600 characters]
gP8HtvckbQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJxMxWc4kA3DBmArlVGIkBGVZJMRZSWjFCKhEpkZidAkZGUmRApl72Qm2RkJ
[encoded data, 43800 characters]
FqmhFJtrGr+KJvB25beZLuHu5H9nkjYL
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Log[S(X4, \[CenterDot])]\"", TraditionalForm], None}, {
        FormBox["\"Log[10,S(X1,\[CenterDot])]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-6, 6}, {-6, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7718337261485105`*^9, 3.7718337762064767`*^9}, {
   3.7718338083295183`*^9, 3.7718338256524253`*^9}, {3.7718358191969423`*^9, 
   3.7718358448122034`*^9}, 3.7718358796916904`*^9, {3.7718359138154554`*^9, 
   3.771835969707691*^9}, 3.772531011223634*^9, 3.772531058195671*^9, 
   3.7725310988906493`*^9},ExpressionUUID->"7d7be72d-2f09-488c-bd9f-\
f0a62e616114"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5x6", ",", "M2x5x6", ",", "M22x5x6", ",", "M3x5x6", 
     ",", "M4x5x6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Signal amplification\>\"", ",", " ", "\"\<Sensitivity\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717508837272377`*^9, 3.7717509486360235`*^9}, {3.771751100492814*^9, 
  3.771751109195403*^9}, {3.7717511480944023`*^9, 3.771751157707403*^9}, {
  3.771751219417819*^9, 3.7717512282398195`*^9}, {3.771833677547312*^9, 
  3.771833687830234*^9}},ExpressionUUID->"67b5555c-a506-45fd-8100-\
6da0042768b0"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2ctuVXUARvFTFBEBQe7l2nK/U9oOnMkDMPIJjImNM3yEPoLOxDjwHRgx
0qEk1Zg4YkZC0sTEgQRjIBBi+l+7a0X35Jc0+6z99dwaNouf3//0ix2z2eyb
udlsS47Vn7Zd2zo2V/SXja0jV7aOh/ndg60jR2Y9R2ctR+dernDo6Mwnu5Jd
y8quZFeyK9mV7Ep2JbOSXcmuZNcdZVeyK9mV7Ep2JbuSXcmuZFeya0nZlexK
diW7kl3JrmRXsivZlWPGxm3lusl1km7SSTq3lE7SSTpJJ+ncVDpJJ+kknaRz
Q+kknaSTdJLOdaWTdJJO0kk615RO0kk6SSfpXFU6SSfpJJ2kc0XpJJ2kk3SS
z8FlHZkHSSfpJJ2kc0npJJ2kk3SSzkWlk3SSTtJJnrcLSifpJJ2kk3TOK52k
k3SSTtI5p3SSTtJJOklnUekknaSTdJLOgtJJOkkn6eS343FndXmcl1znjNJN
OknntNJJOqeUTtJJOieVTtI5oXSSTtKZVzpJ57jSSTpJ55jSSTpHlU7SSTpH
lE7SOax0kk7SOaR0ks5BpZN0ks5HSifpHFA6SSeXxuP265fjvA+V6+zTn0d3
r9JJOnuUzgdKZ7fSeV/pJJ1dSuc9pbNT6byrdJLOO0pnh9KZUzozpZOfjce9
/XHb38Z5b5TrvNavR/eVknmpdP5ROn8rnRdK57nS+Ut5I/yp6+O8P5TrbOrC
6D5TOk+Vxz3R2Tjvd+Xnj3U2fJT/P8Yf7kef/NfHepeu8kX7RKddynnPdJ3f
S3/g99anPC86PW/Kec+V7gudXhf9itdNp9dV6bxSOq91et8onbc6PWt3t+W8
pDun0/taP+Z9r9PnQukknZ06fe6Uzi6dPrdKJ+ns1ul7QensUTp7lU7S2afT
95bS2a90DijnJd1c5XtVv+d7V+kcVDpJJ+kcUjpJ57DSSTpJ54jSSTpHlU7S
STrHlE7SOa50kk7SmVc6SeeE0kk6Seek0kk6p5RO0kk6p5VO0jmjdJJO0jmr
dJLOgnJe0k3+XZO/jusknUWlk3SSTtJJOueUTtJJOkkn6ZxXOkkn6SSdpHNB
6SSdpJN0ks5FpZN0kk7SSTqXlE7SSTpJJ+lcVjpJJ+kknaRzRekkneR9myOz
kXSuKp2kk3SSTtK5pnSSTtJJOknnutJJOkkn6SSdG0on6SSdpJN0biqdpJN0
kk7SuaV0kk7SSTpJ57bSSTpJJ+kknSWd7gsq3Rzv23s5LrOWI7Oe031LHZ2H
yecgR2Yz2XVHp/uqyq5kV7Ir2ZXTfV9lV7Ir2ZXsWtbpvrSyK9mVvE7Jrpzu
myu7kl05OpvJrhWd7usru5Jdya5kV07/76DsSnYlu5Jdq/ovZQa4xQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c4ln0bB3C7bCUjlKhkZGZE6k6iiBAiK9lCZkRRRiEzZCcjSWbZ82dm
[encoded data, 111900 characters]
/4aKql2UFv0dTj9ygZ4JXRXoI3vgTYv+B5pcBEk=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM3Hc4l3/7P3A7I8r2EWWPRJGRWaShJA0rIzJSSiXKamgoe5RIyMgsJSOp
[encoded data, 167880 characters]
6YKFG1jwfw1qlTU=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM1nc8V//7P3B7771ljyIlJHEOiYzKDGWVlV2SaNhStoxCmdkkpKh4vciK
[encoded data, 170340 characters]
8Kbn7hbuAjaYe5QIrwAT/gOBfLKA
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM1nc8V//7P3CrZCtklMykrDIywkGUjIwoGRkhpUj2zCYhISMjW/becey9
[encoded data, 55800 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJxM1nc8V//7P3CrZCtklMykrDIywkGUjIwoGRkhpUj2zCYhISMjW/becey9
[encoded data, 55800 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Sensitivity\"", TraditionalForm], None}, {
        FormBox["\"Signal amplification\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-20., 20.}, {-20., 20.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430565345383`*^9, 3.771743723630438*^9, {
   3.7717438681229663`*^9, 3.7717439489337597`*^9}, {3.771744532558939*^9, 
   3.771744579355576*^9}, {3.771750913208289*^9, 3.7717509512870245`*^9}, 
   3.771751062363206*^9, 3.771751161304402*^9, {3.771751193757354*^9, 
   3.771751220868819*^9}, 3.771751344911786*^9, 
   3.771833694441696*^9},ExpressionUUID->"409ec2bd-2b43-4056-921f-\
991c709634b4"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC2M1", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC2M1", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "6"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC2M1", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC1M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC1M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC1M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC3M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC3M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC3M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC4M2", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                 RowBox[{"LogCC4M2", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC4M2", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717514233558207`*^9, 
  3.7717517370354457`*^9}},ExpressionUUID->"aafaad94-0288-4668-aa15-\
8f24961d7f32"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M22x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC2M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC2M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC2M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC3M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC3M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC3M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M22", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M22", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "5"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M22", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC4M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC4M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC4M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC4M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC5M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC5M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC5M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC5M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"LogCC6M3", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"LogCC6M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}], "+", 
                  RowBox[{"LogCC6M3", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}]}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{
                  RowBox[{"Dimensions", "[", "LogCC6M3", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7717517508774014`*^9, 
  3.7717518666841464`*^9}},ExpressionUUID->"991475e9-c38d-408e-b9e1-\
7ac785df3deb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M4x5xt", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"MovingMedian", "[", 
       RowBox[{
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Re", "[", 
           RowBox[{"Join", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"LogCC6M4", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", 
                RowBox[{
                 RowBox[{"Dimensions", "[", "LogCC6M4", "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], 
           "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Underflow", "[", "]"}], "\[Rule]", "0"}], "}"}]}], "]"}],
         ",", "WS"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771751898235298*^9, 3.771751922427298*^9}, {
  3.771751976749327*^9, 
  3.77175197705035*^9}},ExpressionUUID->"19f221b2-430c-4034-9af0-\
e1cc2f70534b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "M1x5xt", ",", "M2x5xt", ",", "M22x5xt", ",", "M3x5xt", 
     ",", "M4x5xt"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Signal Amplification\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<L[X2,S] \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<L[X2,Total protein] \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717429847714577`*^9, 3.7717430060845375`*^9}, {3.7717430669685717`*^9, 
   3.7717430697135377`*^9}, {3.7717439702277594`*^9, 3.771743984257759*^9}, 
   3.771744597892576*^9, {3.7717519320452976`*^9, 
   3.7717519920607595`*^9}},ExpressionUUID->"7e99b0d2-8caa-4942-a183-\
048ec1d91355"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2ctuVXUARvFTFBEBQe7l2nK/U9oOnMkDMPIJjImNM3yEPoLOxDjwHRgx
0qEk1Zg4YkZC0sTEgQRjIBBi+l+7a0X35Jc0+6z99dwaNouf3//0ix2z2eyb
udlsS47Vn7Zd2zo2V/SXja0jV7aOh/ndg60jR2Y9R2ctR+dernDo6Mwnu5Jd
y8quZFeyK9mV7Ep2JbOSXcmuZNcdZVeyK9mV7Ep2JbuSXcmuZFeya0nZlexK
diW7kl3JrmRXsivZlWPGxm3lusl1km7SSTq3lE7SSTpJJ+ncVDpJJ+kknaRz
Q+kknaSTdJLOdaWTdJJO0kk615RO0kk6SSfpXFU6SSfpJJ2kc0XpJJ2kk3SS
z8FlHZkHSSfpJJ2kc0npJJ2kk3SSzkWlk3SSTtJJnrcLSifpJJ2kk3TOK52k
k3SSTtI5p3SSTtJJOklnUekknaSTdJLOgtJJOkkn6eS343FndXmcl1znjNJN
OknntNJJOqeUTtJJOieVTtI5oXSSTtKZVzpJ57jSSTpJ55jSSTpHlU7SSTpH
lE7SOax0kk7SOaR0ks5BpZN0ks5HSifpHFA6SSeXxuP265fjvA+V6+zTn0d3
r9JJOnuUzgdKZ7fSeV/pJJ1dSuc9pbNT6byrdJLOO0pnh9KZUzozpZOfjce9
/XHb38Z5b5TrvNavR/eVknmpdP5ROn8rnRdK57nS+Ut5I/yp6+O8P5TrbOrC
6D5TOk+Vxz3R2Tjvd+Xnj3U2fJT/P8Yf7kef/NfHepeu8kX7RKddynnPdJ3f
S3/g99anPC86PW/Kec+V7gudXhf9itdNp9dV6bxSOq91et8onbc6PWt3t+W8
pDun0/taP+Z9r9PnQukknZ06fe6Uzi6dPrdKJ+ns1ul7QensUTp7lU7S2afT
95bS2a90DijnJd1c5XtVv+d7V+kcVDpJJ+kcUjpJ57DSSTpJ54jSSTpHlU7S
STrHlE7SOa50kk7SmVc6SeeE0kk6Seek0kk6p5RO0kk6p5VO0jmjdJJO0jmr
dJLOgnJe0k3+XZO/jusknUWlk3SSTtJJOueUTtJJOkkn6ZxXOkkn6SSdpHNB
6SSdpJN0ks5FpZN0kk7SSTqXlE7SSTpJJ+lcVjpJJ+kknaRzRekkneR9myOz
kXSuKp2kk3SSTtK5pnSSTtJJOknnutJJOkkn6SSdG0on6SSdpJN0biqdpJN0
kk7SuaV0kk7SSTpJ57bSSTpJJ+kknSWd7gsq3Rzv23s5LrOWI7Oe031LHZ2H
yecgR2Yz2XVHp/uqyq5kV7Ir2ZXTfV9lV7Ir2ZXsWtbpvrSyK9mVvE7Jrpzu
myu7kl05OpvJrhWd7usru5Jdya5kV07/76DsSnYlu5Jdq/ovZQa4xQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM12c8lm8bB3ARRULJCBGikPlHiJAQkaxsyd57REaoUELILBkJmUU2p5lZ
[encoded data, 111060 characters]
qemQ3YoMaYnqdcz/AB6lhiQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lu/bB3A7u2zZeyRCNolSslXml4yMFElCRktDIbPMkL1CMpLIddoz
[encoded data, 167400 characters]
0yOXklsS+EkaCnEOkaG60qP/AcQ9mYQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM2nc8lf/7B3Cb7L33pkiEJM6xs0L4oKwiyiwhUpQRWZGRkZ2iKCNC4V3Z
[encoded data, 168060 characters]
6P8B/nkojw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8Vv/7B3B7kxmyV8MWIoWkjEQolJWZLYRCkREhFIlkryR7fGznIBEp
[encoded data, 165660 characters]
4Xs/zdFiS6x/l1jw4dJEU7geSMPmEk2VP3Z8MGYajjgaS8P/iYQtRQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJxM2Xc4V//7B3BF2XsmskpKKCMjvJFKRkYp2YSUQpkh2aSMJJtk701GnGMn
[encoded data, 54600 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"L[X2,Total protein] \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"L[X2,S] \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Signal Amplification\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 6}, {-10, 6}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430076935377`*^9, 3.771743071554538*^9, 
   3.7717437326844378`*^9, {3.7717439747067604`*^9, 3.7717439854331055`*^9}, 
   3.7717446005175753`*^9, 
   3.7717519942942824`*^9},ExpressionUUID->"d57d6232-c2d0-4fce-a61e-\
3059119e3e14"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Loading Noise and plotting", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.771739125715023*^9, 
  3.7717391325150237`*^9}, {3.7718368536974144`*^9, 3.7718368545113907`*^9}, {
  3.771842842085018*^9, 
  3.7718428444847827`*^9}},ExpressionUUID->"ca56bae7-7749-4d33-b505-\
14bd9ca21c40"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C1M1Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718368871869726`*^9, 
  3.7718369134569807`*^9}},ExpressionUUID->"35fd3bad-4640-4868-88fa-\
6df0ec54e062"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C1M2Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.77183685922141*^9, 3.7718368829193907`*^9}, {
  3.7718369190409575`*^9, 
  3.771836922191945*^9}},ExpressionUUID->"98cc3304-b86a-4ca9-9203-\
d1ee0281da9e"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C2M1Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718369255369806`*^9, 
  3.771836925679964*^9}},ExpressionUUID->"5923cd7c-c360-4432-867a-\
b3e64e61e95e"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C2M22Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.77183692886395*^9, 
  3.77183693035291*^9}},ExpressionUUID->"650c1260-85fa-41ee-9bd1-\
611b28358ec3"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C3M2Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.771836933952938*^9, 
  3.7718369354889593`*^9}},ExpressionUUID->"78f49c4f-4b37-44f7-85de-\
071dc5399e06"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C3M22Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718369389439116`*^9, 
  3.7718369414729733`*^9}},ExpressionUUID->"a47649b9-14e9-4031-b007-\
472b7e4d4d44"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C4M2Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718369481439285`*^9, 
  3.771836950864333*^9}},ExpressionUUID->"cff9bb78-86e4-4dd1-aae9-\
54cc7fdd20e0"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C4M3Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718369539846053`*^9, 
  3.7718369558236184`*^9}},ExpressionUUID->"62f10dbf-179f-41ad-995b-\
e1ef529a0d5c"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C5M22Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718369604165964`*^9, 
  3.771836963008565*^9}},ExpressionUUID->"db9d11cc-da00-4705-b047-\
19db8415938e"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C5M3Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718369663206325`*^9, 
  3.7718369808966007`*^9}},ExpressionUUID->"3a5de6ed-16f5-45e6-a1f1-\
1c8ba488ddbe"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C6M3Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718369716316195`*^9, 
  3.771836975648633*^9}},ExpressionUUID->"673ac2f2-4217-4c7e-a99b-\
fba04954916f"],

Cell[BoxData[
 RowBox[{"<<", "\"\<New_5000_Cases\\\\C6M4Noise.txt\>\""}]], "Input",
 CellChangeTimes->{{3.771836988498291*^9, 
  3.771836988896254*^9}},ExpressionUUID->"3095227e-0450-4c70-82b1-\
067b18b22321"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"C1M1Noise", "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7718379964959574`*^9, 
  3.771837997436595*^9}},ExpressionUUID->"889e0195-aecb-48aa-89d9-\
412998d8a75e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.0015158980008383055`", ",", "0.009953370623142603`", ",", 
   "0.00916995635823176`", ",", "0.0089001031990614`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.771837998354964*^9},ExpressionUUID->"feddc289-1c3b-49dc-a539-\
f650b4b093c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"C1M1Noise", "[", 
  RowBox[{"[", "3", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7718369992282543`*^9, 
  3.7718370120343037`*^9}},ExpressionUUID->"655171be-4a03-4620-9651-\
f8d35195299d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"661.`", ",", "21.87798976158169`", ",", "682.`", ",", "694.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.5275973050625506`", ",", "0.`", ",", "1.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.3222715976842442`", ",", "0.`", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"125.`", ",", "0.9614692213917794`", ",", "126.`", ",", "126.`"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"635.`", ",", "21.87798976158169`", ",", "647.`", ",", "668.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "101038.`", ",", "0.5275973050625506`", ",", "101039.`", ",", 
     "101039.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "161279.`", ",", "0.3222715976842442`", ",", "161279.`", ",", 
     "161279.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "258973.`", ",", "0.9614692213917794`", ",", "258973.`", ",", 
     "258974.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7718370051413064`*^9, 
  3.7718370123443146`*^9}},ExpressionUUID->"21ffd391-c776-47f1-88e6-\
211a030a41a4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{{3.7718402502578444`*^9, 3.771840252701894*^9}, {
  3.7718424521920753`*^9, 3.7718424532922115`*^9}, {3.771842679804509*^9, 
  3.771842681324915*^9}, {3.7725134537626166`*^9, 
  3.772513455423617*^9}},ExpressionUUID->"78e56a42-252c-4f79-ac60-\
3506272602a0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"INX1C1", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C1M1Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C1M1Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C1M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C1M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C1M1Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX2C1", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C1M1Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C1M1Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C1M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C1M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C1M1Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX3C1", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C1M1Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C1M1Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C1M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C1M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C1M1Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX4C1", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C1M1Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C1M1Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C1M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C1M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C1M1Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771838044088209*^9, 3.7718381216906643`*^9}, {
  3.7718381730856514`*^9, 3.7718385685909452`*^9}, {3.7718389894741335`*^9, 
  3.7718389967363553`*^9}, {3.771841947938723*^9, 
  3.7718419854530573`*^9}},ExpressionUUID->"a4f81c12-ba23-4794-b3b5-\
0eecfe364d25"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,270,154,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134590568113`*^9},ExpressionUUID->"901820a3-3467-4e5b-8617-\
b7cb2ab1408f"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,270,155,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459077202*^9},ExpressionUUID->"66519d71-c7fb-427f-9b2b-\
fbbdb90c6785"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,270,156,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459086998*^9},ExpressionUUID->"f98ea4d5-0fde-4532-b1e9-\
1f24f3730bf3"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,270,157,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134591072664`*^9},ExpressionUUID->"b9f493e8-9929-423e-b7c1-\
8b527f90966d"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,270,158,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134591167874`*^9},ExpressionUUID->"2d1f1c13-d060-43c5-ae8e-\
f4922a8a8c40"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,270,159,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459137049*^9},ExpressionUUID->"1b7f2241-7c34-414a-8d26-\
931449c151cc"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,270,160,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134591567984`*^9},ExpressionUUID->"1788c82e-a391-4c6b-95bc-\
d40839d1c36e"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,270,161,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134591668763`*^9},ExpressionUUID->"eed76b27-d482-41f9-bc0e-\
038383ef2130"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,271,162,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134591870136`*^9},ExpressionUUID->"366a005f-1449-4b39-9769-\
51d69703f692"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,271,163,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134592067738`*^9},ExpressionUUID->"76595815-77b0-46a0-9d6a-\
f799b5734d1c"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,271,164,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459216782*^9},ExpressionUUID->"f3e3e5b9-a194-40a8-be42-\
6fed4f0d7b82"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,271,165,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459236752*^9},ExpressionUUID->"19907c9f-d91c-4c12-9223-\
1484ccc0eb42"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,271,166,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134592472043`*^9},ExpressionUUID->"f7ff1ffb-2ffc-4694-b7a9-\
19bb140c02e6"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,271,167,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134592571783`*^9},ExpressionUUID->"4c9b8d12-c246-4d21-a7fd-\
8b380275c382"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,271,168,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459276825*^9},ExpressionUUID->"abfaeed0-0750-4910-9cef-\
d5e76c2b37b9"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,271,169,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134592929115`*^9},ExpressionUUID->"2b63bbb3-67d5-4527-9c22-\
d4364ec65a51"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,272,170,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134594267683`*^9},ExpressionUUID->"13f4b029-87d4-4407-9f3c-\
8a10eb9db5e1"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,272,171,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459446789*^9},ExpressionUUID->"5eefabfc-aec9-4430-a5f3-\
14c30f2aeff6"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,272,172,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134594662485`*^9},ExpressionUUID->"a9b812b3-6bd8-4651-b1c5-\
cc51cf71fffb"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,272,173,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134594772778`*^9},ExpressionUUID->"a3bf8d73-5fcb-4bfc-b0b6-\
2f72e6aa909c"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,272,174,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134594972906`*^9},ExpressionUUID->"4aa30ec8-b57f-4615-85bb-\
0270b0b3b532"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,272,175,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459517234*^9},ExpressionUUID->"adae5d46-9b70-4643-af04-\
b10edade4d75"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,272,176,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134595270033`*^9},ExpressionUUID->"4f0ec28a-7506-42ed-86b7-\
9c9e0c82b772"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,272,177,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459537168*^9},ExpressionUUID->"3d382b7c-c39e-476a-8124-\
aee27f8d202b"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,273,178,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459546774*^9},ExpressionUUID->"8bf2baf6-5e68-4fb8-aa6c-\
06dbfc27ba71"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,273,179,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134595670743`*^9},ExpressionUUID->"abf0961b-5f5d-4492-a543-\
61e6458ccb65"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,273,180,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459577097*^9},ExpressionUUID->"eeb6d80b-a585-48db-a987-\
44546a0dd9ea"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,273,181,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459587029*^9},ExpressionUUID->"43673b25-453f-4bac-9547-\
82d05931e446"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,273,182,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134595968127`*^9},ExpressionUUID->"fe51b2ac-05e8-4d9c-bdfe-\
fd0c9235bf7b"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,273,183,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513459606801*^9},ExpressionUUID->"2ab7ec38-5beb-404a-85af-\
439d528719de"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,273,184,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134596271105`*^9},ExpressionUUID->"35e96bbd-36b7-4a7d-8f0c-\
8b881a70115e"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,273,185,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134596369877`*^9},ExpressionUUID->"b5014b18-f142-42f4-a319-\
f158b1004b50"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"INRX4X1C1", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"INX4C1", "/", "INX1C1"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"0", "\[Rule]", " ", 
       RowBox[{"(", 
        RowBox[{"10", "^", 
         RowBox[{"-", "5"}]}], ")"}]}], ",", 
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771842035920391*^9, 
  3.771842041708871*^9}},ExpressionUUID->"64855b58-7f6a-4896-b296-\
83565bd6d83a"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,274,186,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771841987880246*^9, 3.7718420440048704`*^9, 
  3.7725134637311754`*^9},ExpressionUUID->"a754b302-5246-466b-bdc6-\
dba1ec3581c2"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,274,187,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771841987880246*^9, 3.7718420440048704`*^9, 
  3.772513463778119*^9},ExpressionUUID->"90f7dfec-3b5e-4d1a-a1eb-\
752c34a158b8"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,274,188,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771841987880246*^9, 3.7718420440048704`*^9, 
  3.772513463792177*^9},ExpressionUUID->"864172bc-2e62-463c-8705-\
8f0f139b006c"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,274,189,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771841987880246*^9, 3.7718420440048704`*^9, 
  3.7725134638081193`*^9},ExpressionUUID->"ffb27e5b-acfe-408b-ab15-\
e57f7425e723"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,274,190,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771841987880246*^9, 3.7718420440048704`*^9, 
  3.772513463912157*^9},ExpressionUUID->"78a44411-72e1-4e4a-a00f-\
94e368d62345"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,274,191,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771841987880246*^9, 3.7718420440048704`*^9, 
  3.772513463924173*^9},ExpressionUUID->"efa99d2a-419d-4ba2-b630-\
713ce664a230"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,274,192,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771841987880246*^9, 3.7718420440048704`*^9, 
  3.7725134639361196`*^9},ExpressionUUID->"fa7e76e3-38c6-44b6-a7f1-\
e1a66c611607"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,274,193,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771841987880246*^9, 3.7718420440048704`*^9, 
  3.7725134640171204`*^9},ExpressionUUID->"1b1fda7b-b690-43a0-972c-\
047206f2d7fa"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MMINX1C1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX1C1", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX2C1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX2C1", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX3C1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX3C1", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4C1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX4C1", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4X1C1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INRX4X1C1", "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.771840223441084*^9, 3.771840307486412*^9}, {
   3.771840789392434*^9, 3.7718407992623806`*^9}, {3.77184199565497*^9, 
   3.7718419982178564`*^9}, 3.771842047974866*^9, {3.7725135766420193`*^9, 
   3.77251358439716*^9}},ExpressionUUID->"e3d6cd0c-1a66-4fa5-bce7-\
abc8c327ce51"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LMMINX4X1C1", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"INRX4X1C1", "/.", 
         RowBox[{"{", 
          RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}], ",", "WS"}],
       "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7718421271054044`*^9, 3.7718421338851595`*^9}, {
  3.771842284015171*^9, 
  3.77184230386473*^9}},ExpressionUUID->"cfaf4bb4-20e6-4e60-8e0d-\
80aad4206fb6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"INX1C2", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C2M1Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C2M1Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C2M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C2M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C2M1Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX2C2", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C2M1Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C2M1Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C2M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C2M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C2M1Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX3C2", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C2M1Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C2M1Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C2M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C2M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C2M1Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX4C2", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C2M1Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C2M1Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C2M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C2M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C2M1Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INRX4X1C2", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"INX4C2", "/", "INX1C2"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771838044088209*^9, 3.7718381216906643`*^9}, {
  3.7718381730856514`*^9, 3.7718385685909452`*^9}, {3.7718388974575653`*^9, 
  3.7718389854081564`*^9}, {3.7718390214402037`*^9, 
  3.7718391198718033`*^9}},ExpressionUUID->"e6cd60bb-1fdd-4504-aefd-\
0cbb8152774b"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,280,194,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513482954851*^9},ExpressionUUID->"3a850cab-468d-4ade-b11b-\
97d2f161ec38"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,280,195,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513482970796*^9},ExpressionUUID->"9a14e6e2-f00b-4c51-badc-\
28583422f0c2"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,280,196,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134829847975`*^9},ExpressionUUID->"04e76a40-1fd4-470c-8a52-\
c69c0af7aeb4"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,280,197,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134829997964`*^9},ExpressionUUID->"4c0e61cb-9cad-4353-8699-\
f2d61bc05da5"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,280,198,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483011797*^9},ExpressionUUID->"cca88ca9-1b35-4922-ae6a-\
045f2900276d"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,280,199,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134830258284`*^9},ExpressionUUID->"c127a67f-5523-404f-ac02-\
8b9dddf18d6c"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,280,200,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134830408545`*^9},ExpressionUUID->"082e7d33-f9a6-4d1e-acdf-\
e166750e97a2"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,280,201,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134830538535`*^9},ExpressionUUID->"4e221b43-0ae5-420c-9493-\
2f7f681d29a9"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,281,202,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134830677967`*^9},ExpressionUUID->"f158504a-79b9-413e-bfa6-\
f540f399dc3d"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,281,203,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134830808306`*^9},ExpressionUUID->"992aa399-5913-4c4c-98c8-\
6d75619bbd20"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,281,204,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483093853*^9},ExpressionUUID->"8dedd9ad-eb83-4b87-9ce6-\
84bed3c08410"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,281,205,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483107831*^9},ExpressionUUID->"0ddf589b-d96d-431e-b2cd-\
ced0dcac6843"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,281,206,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134831217985`*^9},ExpressionUUID->"a321164d-2d13-4f79-ac5e-\
0a49ec7e76df"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,281,207,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483134797*^9},ExpressionUUID->"5d4bca34-f280-4d39-b05f-\
20139f3ebf23"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,281,208,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134831477966`*^9},ExpressionUUID->"a89834b8-539b-45ea-a2f0-\
a49827ee8eb2"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,281,209,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134831608*^9},ExpressionUUID->"b0573626-950d-451e-9419-d2d81f0eb033"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,282,210,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483269836*^9},ExpressionUUID->"e154c6c6-8956-4c76-88f4-\
1e92a7664111"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,282,211,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134832828355`*^9},ExpressionUUID->"87e09be1-789a-41d5-bbd6-\
12ed6588edae"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,282,212,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483296797*^9},ExpressionUUID->"9c4f9ad4-9873-42d5-80ce-\
675dfbb6e78d"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,282,213,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483313835*^9},ExpressionUUID->"b501631e-a0e2-4fd8-920e-\
f9dca475c7a2"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,282,214,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134833258066`*^9},ExpressionUUID->"1b9c9b37-71d1-456d-89c3-\
4baeeb74e1f2"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,282,215,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483337837*^9},ExpressionUUID->"69f04ac2-7657-4b8b-a5fc-\
55ebce3e19ae"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,282,216,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134833498516`*^9},ExpressionUUID->"8c95f5e9-7fa2-4fcf-85e2-\
107300be54bd"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,282,217,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77251348336185*^9},ExpressionUUID->"e4b7af63-6fd3-4376-a881-2e6993138e1e"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,283,218,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134833738556`*^9},ExpressionUUID->"ccb9e75f-85fd-4189-97b9-\
255314040795"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,283,219,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483389851*^9},ExpressionUUID->"413894b4-6289-4ff1-8861-\
ad187cb23191"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,283,220,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134834018493`*^9},ExpressionUUID->"2f21ddea-8199-4c1e-b287-\
fb5caca404c4"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,283,221,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483413796*^9},ExpressionUUID->"b2767b72-40b8-46c2-a090-\
5b027ebf1d3d"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,283,222,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134834258213`*^9},ExpressionUUID->"2c6c7b87-bfbc-4de3-a42a-\
255d2d0dcb3a"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,283,223,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483438796*^9},ExpressionUUID->"5440811a-a947-4fc6-a9f4-\
126632d5ee1a"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,283,224,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483450853*^9},ExpressionUUID->"2ac86e76-afc9-4111-b53b-\
9fd6de15847d"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,283,225,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134834628515`*^9},ExpressionUUID->"93bf9839-e5a0-4949-942e-\
b9f19b5be5f0"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,284,226,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134834748597`*^9},ExpressionUUID->"c5783c8b-46ae-4117-b4a6-\
bbf439ed515b"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,284,227,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134834878645`*^9},ExpressionUUID->"cc260efb-4f7a-40c5-9f2b-\
ae54e5a7fb09"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,284,228,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483500797*^9},ExpressionUUID->"0474f0ca-9770-4a29-8a91-\
b891734d19c4"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,284,229,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134835128493`*^9},ExpressionUUID->"140afaf2-70c7-4e69-b7da-\
cad685dc4184"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,284,230,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134836187973`*^9},ExpressionUUID->"f76f6a98-369d-4e75-8f7e-\
c3b05c750c4e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,284,231,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134836307964`*^9},ExpressionUUID->"e38fec16-5c50-412c-8748-\
e6ea60bbf1ff"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,284,232,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134836427965`*^9},ExpressionUUID->"babafe9f-9b44-446b-95f6-\
744ef1a34457"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,284,233,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513483654831*^9},ExpressionUUID->"b3ca3192-c2da-4d00-b4b5-\
a69a00975016"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MMINX1C2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX1C2", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX2C2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX2C2", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX3C2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX3C2", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4C2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX4C2", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4X1C2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INRX4X1C2", "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.771840223441084*^9, 3.7718403358699207`*^9}, {
  3.7718407709764194`*^9, 
  3.7718407824293814`*^9}},ExpressionUUID->"f5496ccb-c837-4b8b-a93c-\
dac1678cf35d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LMMINX4X1C2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"INRX4X1C2", "/.", 
         RowBox[{"{", 
          RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}], ",", "WS"}],
       "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771842157415125*^9, 3.771842161485124*^9}, {
  3.7718422971349063`*^9, 
  3.7718423145050344`*^9}},ExpressionUUID->"ee1ab739-64d8-4032-841f-\
528e638aa20a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"INX1C3", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C3M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C3M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C3M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C3M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C3M2Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"INX2C3", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C3M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C3M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C3M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C3M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C3M2Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"INX3C3", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C3M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C3M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C3M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C3M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C3M2Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"INX4C3", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C3M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C3M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C3M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C3M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C3M2Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INRX4X1C3", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"INX4C3", "/", "INX1C3"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.7718407126777153`*^9},ExpressionUUID->"18c30441-1d00-4bfa-acda-\
301a0b6182fe"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,291,234,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134971213293`*^9},ExpressionUUID->"28246457-b9cc-4510-9209-\
1859fe6c39e4"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,291,235,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134971373296`*^9},ExpressionUUID->"77212624-70fd-4bb8-bf08-\
803d1219ed24"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,291,236,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134971503296`*^9},ExpressionUUID->"f314e760-4b97-43a0-87eb-\
89ff349e818c"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,291,237,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134971643286`*^9},ExpressionUUID->"f6910a77-1966-4a04-a0c1-\
636509692a72"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,291,238,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497177329*^9},ExpressionUUID->"bd0a5fe6-16c3-418c-9287-\
9f50a03bf70e"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,291,239,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497194329*^9},ExpressionUUID->"9ba16c26-587d-4089-94d5-\
2efca620dc8f"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,291,240,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134972103295`*^9},ExpressionUUID->"07658311-c76a-4aa4-84fc-\
2c658972da44"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,291,241,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497236329*^9},ExpressionUUID->"f40eef2d-24fc-4418-8359-\
d4b76a24c4d6"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,292,242,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497247138*^9},ExpressionUUID->"bb96c756-48b0-4269-beac-\
abe4b3fc4c29"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,292,243,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134972569313`*^9},ExpressionUUID->"8cffaf92-5dab-4750-803c-\
567aad73fe9c"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,292,244,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134972669153`*^9},ExpressionUUID->"be870e88-6821-4891-b84d-\
ea2cd1bc3275"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,292,245,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497286769*^9},ExpressionUUID->"56322dd0-28af-4350-8408-\
a73a2ec2dcff"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,292,246,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497296938*^9},ExpressionUUID->"69402d70-e037-4256-ae2e-\
ee5ba69fe659"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,292,247,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497307191*^9},ExpressionUUID->"7fa7819b-6baa-4ceb-8cf0-\
59740d9c1e6d"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,292,248,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134973243446`*^9},ExpressionUUID->"8a9acecc-77e3-4476-a412-\
16e8a3f6c3b1"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,292,249,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134973370953`*^9},ExpressionUUID->"7a88aae9-abdc-4b49-89c4-\
7bcb94e04323"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,293,250,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134974469624`*^9},ExpressionUUID->"c16428aa-b5b7-4cca-b7e3-\
b1bc9fceeb73"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,293,251,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134974570694`*^9},ExpressionUUID->"731f351a-271c-4a42-8b95-\
f332432b39e0"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,293,252,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134974768257`*^9},ExpressionUUID->"7c95fd12-f1a2-4e71-8d65-\
8ad5e37787c9"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,293,253,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134974971323`*^9},ExpressionUUID->"f0256331-6373-49ab-b318-\
15b39407bb38"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,293,254,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497506771*^9},ExpressionUUID->"086736ef-e6ee-475d-944e-\
b0d8878f374b"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,293,255,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497526926*^9},ExpressionUUID->"10019d9b-d65c-43ce-9702-\
33befcf914c9"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,293,256,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134975468197`*^9},ExpressionUUID->"63045029-2e93-482a-a8e6-\
b492dea66eeb"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,293,257,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497556913*^9},ExpressionUUID->"f4f9cf9d-7ad9-4a15-9467-\
c860c35e40c0"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,294,258,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497567214*^9},ExpressionUUID->"19ef09e6-a532-45ae-b128-\
90c56fcde4d0"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,294,259,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497577046*^9},ExpressionUUID->"ac82b8d0-219c-43f2-a2c2-\
dc344a552429"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,294,260,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134975871487`*^9},ExpressionUUID->"53354b20-4155-4392-a204-\
f9665f0c7a4f"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,294,261,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134976069984`*^9},ExpressionUUID->"f2cc9574-d652-46f7-befb-\
0af08bc988a0"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,294,262,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134976170797`*^9},ExpressionUUID->"57362747-0ec0-4f0c-acc8-\
fb4df7a02a5b"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,294,263,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497627329*^9},ExpressionUUID->"b8264598-b624-4f0c-b658-\
27105de1fd64"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,294,264,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134976372128`*^9},ExpressionUUID->"cdcabce7-252b-426d-88cc-\
9affefbd88ae"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,294,265,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497647153*^9},ExpressionUUID->"ff95d554-d00b-4464-ac0c-\
69a1e4c547aa"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,295,266,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497667056*^9},ExpressionUUID->"d95920c1-36cf-4db1-8924-\
1545a9bab9c7"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,295,267,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497677147*^9},ExpressionUUID->"28778e55-28e9-4b89-9387-\
74405b111d4a"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,295,268,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134976969757`*^9},ExpressionUUID->"23a56ee7-b5c7-497b-8c3e-\
45cb820abded"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,295,269,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725134977137413`*^9},ExpressionUUID->"d5dd1583-3abc-4858-ac51-\
2e51503c9a3b"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,295,270,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497724614*^9},ExpressionUUID->"e3cf059d-4c67-4cab-b81a-\
a2d59358935e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,295,271,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497827039*^9},ExpressionUUID->"625ecb37-97e9-4649-b262-\
4b60e7a46968"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,295,272,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497837205*^9},ExpressionUUID->"f3f08949-cd1c-4312-b311-\
225ef5c58d52"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,295,273,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513497847069*^9},ExpressionUUID->"08eed557-f1c9-4064-ae77-\
1abda2bfb458"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MMINX1C3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX1C3", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX2C3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX2C3", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX3C3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX3C3", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4C3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX4C3", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4X1C3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INRX4X1C3", "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.771840223441084*^9, 3.7718403358699207`*^9}, {
  3.771840736992285*^9, 
  3.7718407658382854`*^9}},ExpressionUUID->"bdfd6af5-6967-421e-ab79-\
78cbb6b0b9ab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LMMINX4X1C3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"INRX4X1C3", "/.", 
         RowBox[{"{", 
          RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}], ",", "WS"}],
       "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7718421729852557`*^9, 3.771842180794986*^9}, {
  3.7718423199649253`*^9, 
  3.771842325275173*^9}},ExpressionUUID->"a7629ccd-394d-44a4-9138-\
68695fcb3b9e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"INX1C4", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C4M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C4M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C4M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C4M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C4M2Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX2C4", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C4M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C4M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C4M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C4M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C4M2Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX3C4", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C4M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C4M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C4M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C4M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C4M2Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX4C4", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C4M2Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C4M2Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C4M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C4M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C4M2Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INRX4X1C4", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"INX4C4", "/", "INX1C4"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771838044088209*^9, 3.7718381216906643`*^9}, {
  3.7718381730856514`*^9, 3.7718385685909452`*^9}, {3.7718388974575653`*^9, 
  3.7718389854081564`*^9}, {3.7718390214402037`*^9, 3.7718391198718033`*^9}, {
  3.771839223904827*^9, 3.771839625903424*^9}, {3.7718396813153486`*^9, 
  3.7718396837273455`*^9}, {3.7718398200818043`*^9, 
  3.7718398203038216`*^9}},ExpressionUUID->"c736ec91-3d7c-4cf8-93e1-\
7ccb872a8f29"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,302,274,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135020427012`*^9},ExpressionUUID->"254da4ea-6e66-4039-b637-\
07bc07ed8ad6"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,302,275,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502056947*^9},ExpressionUUID->"94d5baf0-4888-433e-95f8-\
96ca3008dde1"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,302,276,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135020769053`*^9},ExpressionUUID->"2758bab4-54c1-41a2-8537-\
3ce26f36a2eb"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,302,277,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502086999*^9},ExpressionUUID->"db9fbe85-845f-4dd4-922b-\
e2c1031dbc3f"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,302,278,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135020969887`*^9},ExpressionUUID->"f7bd824c-0808-4923-beac-\
de57070bb456"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,302,279,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135021172915`*^9},ExpressionUUID->"709375ef-fa76-4a9b-8ac5-\
4919994a7f47"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,302,280,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502136799*^9},ExpressionUUID->"b8c1b130-c9e0-4669-bbf5-\
54c5372cc9e7"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,302,281,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502147355*^9},ExpressionUUID->"de785432-7f78-455e-995d-\
53f50c5d352c"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,303,282,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502236826*^9},ExpressionUUID->"c12e1b04-1e8a-43be-9e91-\
56609bad4a91"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,303,283,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502246928*^9},ExpressionUUID->"8f166821-c269-4dd4-ba4f-\
84d8c8a6a66a"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,303,284,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135022668114`*^9},ExpressionUUID->"ac6db6d0-a1ce-42e9-bba6-\
cb3ab3c29f17"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,303,285,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502276848*^9},ExpressionUUID->"1a5e36fa-da16-4595-aef6-\
5fb46540b351"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,303,286,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502287327*^9},ExpressionUUID->"3c93d209-b6d7-415d-af60-\
8ce3f9c67b82"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,303,287,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135023059998`*^9},ExpressionUUID->"9effd651-607d-4895-a07b-\
389e863ffcd3"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,303,288,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502316868*^9},ExpressionUUID->"8b5be766-c2b8-456c-8a40-\
99bfe63730de"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,303,289,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135023270864`*^9},ExpressionUUID->"9e1e8e5c-aa7e-448d-b0c5-\
8dc2c8af462a"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,304,290,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502442773*^9},ExpressionUUID->"8380e144-40fd-4d1b-8443-\
63813afa63c3"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,304,291,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135024573097`*^9},ExpressionUUID->"18639405-600a-4f32-833d-\
796e31b934a8"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,304,292,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135024670477`*^9},ExpressionUUID->"8a0c0fa7-1a2d-413a-8281-\
ae6b202747ef"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,304,293,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135024871645`*^9},ExpressionUUID->"220fb8cc-b32e-44dd-9608-\
21e3db8df419"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,304,294,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502497058*^9},ExpressionUUID->"36a723e7-70d9-4598-b33a-\
d3555fe87431"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,304,295,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135025069585`*^9},ExpressionUUID->"c139f2fd-263e-4e35-9215-\
4e6d9455e5f6"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,304,296,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135025168667`*^9},ExpressionUUID->"f3cf07cb-37f8-457b-8688-\
42671952b5e6"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,304,297,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135025271597`*^9},ExpressionUUID->"017a6aa5-570f-4678-a198-\
b5805166306e"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,305,298,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135026872125`*^9},ExpressionUUID->"b7749438-6338-4240-b3a6-\
3769f70ed4c7"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,305,299,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502703125*^9},ExpressionUUID->"ed519a49-5ad3-4b1e-939d-\
85a6fb8fc629"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,305,300,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502716791*^9},ExpressionUUID->"7d77e237-964e-4e51-97a0-\
73c7d9baec4e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,305,301,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502726855*^9},ExpressionUUID->"8896a5e9-a8fd-4e50-b25b-\
47d0b3b2bec2"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,305,302,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513502747292*^9},ExpressionUUID->"ae10211f-6724-4f06-a3df-\
d048bb0599a1"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,305,303,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135027571917`*^9},ExpressionUUID->"acbc9a68-5c80-4752-b83c-\
ba43cdea8fd1"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,305,304,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135027722225`*^9},ExpressionUUID->"d81bd31b-8e37-43d3-b776-\
7b7d7359bcd3"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,305,305,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135027868214`*^9},ExpressionUUID->"3f0a6fbf-4dad-46ee-a5dd-\
f45bf1e948af"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,306,306,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135028970823`*^9},ExpressionUUID->"124aa358-a525-478f-bbb6-\
6d9b152895ba"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,306,307,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135029171257`*^9},ExpressionUUID->"e6d3900a-369d-43fc-bbfb-\
24fc052b1464"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,306,308,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135029269047`*^9},ExpressionUUID->"dc1d2eb9-949a-49e6-8cee-\
9a3b1009f540"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,306,309,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135029425416`*^9},ExpressionUUID->"14fcbe35-5c45-4bd4-b894-\
bd271672e8d6"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,306,310,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135030426607`*^9},ExpressionUUID->"be886e10-8364-4fbe-95fd-\
1e85d828d119"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,306,311,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135030667343`*^9},ExpressionUUID->"53fbbf6b-75d1-43b4-b7f6-\
f8b9f4cf8aaf"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,306,312,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513503077216*^9},ExpressionUUID->"448fd18b-5cb4-4d19-87fa-\
7586304eb981"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,306,313,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135030872355`*^9},ExpressionUUID->"d1a9b316-564a-4053-8be0-\
0aefc9a5ac57"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MMINX1C4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX1C4", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX2C4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX2C4", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX3C4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX3C4", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4C4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX4C4", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4X1C4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INRX4X1C4", "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.771840223441084*^9, 3.7718403358699207`*^9}, {
  3.771840736992285*^9, 3.7718407658382854`*^9}, {3.7718408198869934`*^9, 
  3.771840834333087*^9}},ExpressionUUID->"4a283ea4-afba-41ba-b113-\
37bddfc30789"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LMMINX4X1C4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"INRX4X1C4", "/.", 
         RowBox[{"{", 
          RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}], ",", "WS"}],
       "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7718421878452425`*^9, 3.771842190774927*^9}, {
  3.7718423304553127`*^9, 
  3.7718423342953463`*^9}},ExpressionUUID->"174bc401-3626-4d4f-828e-\
c41b6150ab42"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"INX1C5", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C5M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C5M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C5M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C5M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C5M22Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX2C5", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C5M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C5M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C5M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C5M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C5M22Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX3C5", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C5M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C5M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C5M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C5M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C5M22Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX4C5", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C5M22Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C5M22Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C5M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C5M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C5M22Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INRX4X1C5", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"INX4C5", "/", "INX1C5"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771838044088209*^9, 3.7718381216906643`*^9}, {
  3.7718381730856514`*^9, 3.7718385685909452`*^9}, {3.7718388974575653`*^9, 
  3.7718389854081564`*^9}, {3.7718390214402037`*^9, 3.7718391198718033`*^9}, {
  3.771839223904827*^9, 3.771839625903424*^9}, {3.771839666097397*^9, 
  3.7718399225436716`*^9}},ExpressionUUID->"4ba57d6e-da01-41b4-ad05-\
647cd4663809"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,313,314,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506248622*^9},ExpressionUUID->"eca2398c-6f6b-44a0-9606-\
e84386d5ab93"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,313,315,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506265622*^9},ExpressionUUID->"5a2d2a68-0298-4bca-82ef-\
375c454cebb0"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,313,316,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135062766223`*^9},ExpressionUUID->"55d6bfb1-49be-42c2-8635-\
41456a36ff95"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,313,317,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506289631*^9},ExpressionUUID->"34b4784b-7af3-4d6b-ace9-\
0bdc96c01cde"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,313,318,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135063036227`*^9},ExpressionUUID->"1faf228a-6546-4461-bac0-\
fba8f300f95a"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,313,319,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135063176227`*^9},ExpressionUUID->"0f331715-e662-4ddf-90a2-\
3cd05dae5dd0"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,313,320,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506330622*^9},ExpressionUUID->"4005951d-b4dc-4d0a-9eaf-\
e004999b5319"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,313,321,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506343622*^9},ExpressionUUID->"49916b59-5674-4b24-be6e-\
98cc9cd68fe6"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,314,322,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135064336224`*^9},ExpressionUUID->"9cf55eb9-d8b8-4fe1-824d-\
5da506b2c1d9"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,314,323,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506446623*^9},ExpressionUUID->"eaa89c0f-6c96-48d5-a22c-\
892f374e81d5"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,314,324,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135064586215`*^9},ExpressionUUID->"9dfe61a7-9dbf-4865-a655-\
1355ec3dba2d"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,314,325,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506471622*^9},ExpressionUUID->"42ab295f-1186-4267-9f4b-\
266a98997620"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,314,326,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506482622*^9},ExpressionUUID->"1a1496dc-1c2e-46f0-9ea0-\
3b4ef4cf1b9a"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,314,327,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135064956226`*^9},ExpressionUUID->"e935e2d5-f21a-4d37-9526-\
2ed64252402a"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,314,328,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506507622*^9},ExpressionUUID->"1ffa00df-d208-42cb-890f-\
b80aafe9e44d"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,314,329,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506519622*^9},ExpressionUUID->"4c6bdb88-c7f4-4e75-b47a-\
0241d82831e1"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,315,330,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77251350667869*^9},ExpressionUUID->"bbb00ff1-2a26-43dd-95bb-a2e62065e507"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,315,331,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506691622*^9},ExpressionUUID->"fbf0e244-b4c7-48ae-84cd-\
e14275cb9199"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,315,332,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77251350670368*^9},ExpressionUUID->"ee222100-1ed2-4ecc-ba33-0108f2d601e0"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,315,333,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135067156773`*^9},ExpressionUUID->"924b424c-efc8-40c4-a906-\
e70cbcc34a31"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,315,334,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506727676*^9},ExpressionUUID->"fa073d71-8153-4a6b-b9f4-\
99f15eb7d577"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,315,335,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135067396836`*^9},ExpressionUUID->"efeff683-ee65-4273-a13b-\
9710c8cd040a"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,315,336,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135067516794`*^9},ExpressionUUID->"c0012736-ffb0-4022-8e7e-\
c61b2eed231e"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,315,337,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506762678*^9},ExpressionUUID->"936c18db-6514-4799-a80f-\
19fe4d38556b"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,316,338,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506942622*^9},ExpressionUUID->"44c017a1-6170-4e34-9fb2-\
48716d6be0e5"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,316,339,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135069556556`*^9},ExpressionUUID->"8aceb4af-ccf9-427c-838f-\
67f5d5a1db37"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,316,340,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506967676*^9},ExpressionUUID->"88d63baa-5f4e-43a8-a1a9-\
878a19ca5de1"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,316,341,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135069806767`*^9},ExpressionUUID->"28aa592c-1ed8-4cd5-a28f-\
186e7f62b3ae"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,316,342,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513506991623*^9},ExpressionUUID->"dc4adb77-7608-43e8-b605-\
aee16266d782"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,316,343,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135070056224`*^9},ExpressionUUID->"0b6de5a1-8b7e-42b0-8942-\
2718468fb6fd"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,316,344,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513507017623*^9},ExpressionUUID->"dc3e276f-295a-44dc-a15d-\
0f7659b69f6a"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,316,345,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135070306215`*^9},ExpressionUUID->"fce6c239-f34b-4630-8da8-\
6dbe59306dce"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,317,346,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135071429887`*^9},ExpressionUUID->"9f734c22-a791-479e-b423-\
6f36a48c782f"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,317,347,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135071667824`*^9},ExpressionUUID->"2906277c-1b83-4d35-b98f-\
24482a503eae"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,317,348,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513507194215*^9},ExpressionUUID->"cd372231-4d32-4609-a47c-\
7f301b97b965"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,317,349,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513507206736*^9},ExpressionUUID->"0f716551-9939-4efb-b798-\
bcec22a69c33"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,317,350,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513507316864*^9},ExpressionUUID->"f831e648-d847-4d6d-b36b-\
b23b012163c6"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,317,351,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513507326967*^9},ExpressionUUID->"4e766cda-15f0-4b46-8cc0-\
548f955006ef"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,317,352,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135074269896`*^9},ExpressionUUID->"c188ef07-7bc3-45a6-b01d-\
568f49ba1000"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,317,353,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135074427423`*^9},ExpressionUUID->"2360e65b-4ae5-4c94-9cab-\
e963f1f8d84e"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MMINX1C5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX1C5", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX2C5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX2C5", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX3C5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX3C5", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4C5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX4C5", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4X1C5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INRX4X1C5", "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.771840223441084*^9, 3.7718403358699207`*^9}, {
  3.771840736992285*^9, 3.7718407658382854`*^9}, {3.7718408583345966`*^9, 
  3.771840871453597*^9}},ExpressionUUID->"53cc895d-48fc-47c6-a4c7-\
4605929c4921"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LMMINX4X1C5", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"INRX4X1C5", "/.", 
         RowBox[{"{", 
          RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}], ",", "WS"}],
       "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771842198335059*^9, 3.771842200684816*^9}, {
  3.7718423422951436`*^9, 
  3.7718423466052527`*^9}},ExpressionUUID->"3db7540b-d953-4a6d-9899-\
fad07663bccd"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"INX1C6", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C6M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C6M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C6M4Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C6M4Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C6M3Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX2C6", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C6M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C6M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C6M4Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C6M4Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C6M3Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX3C6", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C6M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C6M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C6M4Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C6M4Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C6M3Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INX4C6", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C6M3Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C6M3Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Dimensions", "[", 
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
          RowBox[{"C6M4Noise", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
             RowBox[{"C6M4Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"C6M4Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C6M3Noise", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"INRX4X1C6", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"INX4C6", "/", "INX1C6"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771838044088209*^9, 3.7718381216906643`*^9}, {
  3.7718381730856514`*^9, 3.7718385685909452`*^9}, {3.7718388974575653`*^9, 
  3.7718389854081564`*^9}, {3.7718390214402037`*^9, 3.7718391198718033`*^9}, {
  3.771839223904827*^9, 3.771839625903424*^9}, {3.771839666097397*^9, 
  3.771840193967149*^9}},ExpressionUUID->"27fe7e45-96bc-46ad-838e-\
4cf49318c71d"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,324,354,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515274249*^9},ExpressionUUID->"6e468c59-fddd-426b-919c-\
59a235485f74"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,324,355,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515290247*^9},ExpressionUUID->"1427c541-cced-4ec4-84b3-\
9f4d1f1e00d0"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,324,356,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515302247*^9},ExpressionUUID->"d750eb36-eac5-4b35-b135-\
6b92010dfd86"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,324,357,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515316305*^9},ExpressionUUID->"39c58736-50d9-4ca8-952c-\
346ed43af40c"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,324,358,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135153292475`*^9},ExpressionUUID->"8b206133-6140-4146-9165-\
85f2a335c530"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,324,359,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135153422503`*^9},ExpressionUUID->"92b819a0-fc36-4566-9d1e-\
7824ee835052"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,324,360,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515354305*^9},ExpressionUUID->"81e5cf8a-78b3-44d3-84ad-\
544c256c55fa"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,324,361,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135153663025`*^9},ExpressionUUID->"9d361558-8bd9-413a-af38-\
89e1a1855da3"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,325,362,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135154682465`*^9},ExpressionUUID->"d303a8c6-5693-467b-9867-\
4b99aa2ab99d"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,325,363,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515482247*^9},ExpressionUUID->"1c3d5fb7-0005-40a2-b383-\
6599b0bc7d0a"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,325,364,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135154942465`*^9},ExpressionUUID->"64c3be0e-d587-4204-96f8-\
20a91ffb60de"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,325,365,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135155082855`*^9},ExpressionUUID->"92020a29-51a0-4b79-8cd8-\
4540a90540c1"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,325,366,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135155202827`*^9},ExpressionUUID->"00a299a9-2a9b-4abd-8b37-\
365b63fbf527"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,325,367,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515533247*^9},ExpressionUUID->"c450a3f5-f5e9-41da-ab49-\
3885fb31dfc3"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,325,368,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135155452466`*^9},ExpressionUUID->"3378c0e6-6c25-43ef-a8e6-\
ab09d87d20f0"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,325,369,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515558284*^9},ExpressionUUID->"c336ad2c-22cf-433f-ab9c-\
6ed96a0813ad"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,326,370,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515776247*^9},ExpressionUUID->"a7141887-8b0d-432e-b294-\
86323caf5fb8"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,326,371,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515790247*^9},ExpressionUUID->"c5c7bd6d-b33d-4351-b447-\
2774c1c13578"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,326,372,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515802281*^9},ExpressionUUID->"2ff3cff4-21a6-4184-bce6-\
d02631742ba4"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,326,373,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135158162813`*^9},ExpressionUUID->"9743ad9f-f56b-48f0-b799-\
c798aa40d071"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,326,374,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515828285*^9},ExpressionUUID->"6202388e-334a-4b06-8292-\
c43600368bcf"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,326,375,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135158412843`*^9},ExpressionUUID->"3f768e47-9f2f-4c6d-9c4f-\
228ce401d5f3"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,326,376,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515847283*^9},ExpressionUUID->"abcc720a-a14f-473b-9a39-\
225f5dbb3af8"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,326,377,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135158667703`*^9},ExpressionUUID->"a5450941-abb4-4dfe-a777-\
e4d1beaff151"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,327,378,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135159668007`*^9},ExpressionUUID->"33cffc2c-e0de-44f2-8963-\
09aad7192f70"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,327,379,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513515976949*^9},ExpressionUUID->"40dee5b2-abd0-4cb8-bf2f-\
cec79bb1962d"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,327,380,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135159869285`*^9},ExpressionUUID->"a34c7cc0-c2c2-4ba2-aebd-\
0c8f8f6266b7"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,327,381,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77251351599691*^9},ExpressionUUID->"76c8357f-ee6d-49b6-a4b4-8344545590c3"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,327,382,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77251351601703*^9},ExpressionUUID->"a7a980da-759c-4567-88ec-3f3bc7e38165"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,327,383,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513516027047*^9},ExpressionUUID->"951cbfaa-33b3-46c8-873f-\
45e83b47efe5"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,327,384,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513516044595*^9},ExpressionUUID->"fa7edb9a-279c-4a02-885c-\
43aed8100908"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,327,385,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513516057064*^9},ExpressionUUID->"6485e040-c1ae-41d9-b0c5-\
b07d25450be3"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,328,386,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513516144673*^9},ExpressionUUID->"b0c38091-86c2-45d4-8ad4-\
bb02b65a611e"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,328,387,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135161571703`*^9},ExpressionUUID->"035fa505-6fa0-4090-804e-\
e7f01d0b083b"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,328,388,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513516176832*^9},ExpressionUUID->"4fc29199-0395-4e8f-a744-\
4a69a8a01b89"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,328,389,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772513516187049*^9},ExpressionUUID->"b4337987-1238-40fa-a393-\
413981ad0aac"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,328,390,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135162070627`*^9},ExpressionUUID->"83f0b15a-39a3-4498-bcdb-\
c9f0621ace70"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,328,391,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135162971554`*^9},ExpressionUUID->"ab5d794b-e9b6-444e-badf-\
c8c889a674d9"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,328,392,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135163070917`*^9},ExpressionUUID->"761b54f2-e60f-4cac-bf4e-\
1bbad6412b20"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,328,393,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725135163171177`*^9},ExpressionUUID->"537740cf-6741-4b59-95d4-\
2d72759b4e92"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MMINX1C6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX1C6", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX2C6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX2C6", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX3C6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX3C6", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4C6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX4C6", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4X1C6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INRX4X1C6", "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.771840223441084*^9, 3.7718403358699207`*^9}, {
  3.771840736992285*^9, 3.7718407658382854`*^9}, {3.7718408795515957`*^9, 
  3.771840892493635*^9}},ExpressionUUID->"6450cabe-4bc5-470d-aa51-\
b367f250a9e5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LMMINX4X1C6", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{
       RowBox[{"Sort", "[", 
        RowBox[{"INRX4X1C6", "/.", 
         RowBox[{"{", 
          RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}], ",", "WS"}],
       "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.771842208475573*^9, 3.771842211145061*^9}, {
  3.7718423531232386`*^9, 
  3.7718423573348017`*^9}},ExpressionUUID->"efb2a233-fcd8-44fc-b734-\
cf8d425c2693"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "7"}], ",", "3", ",", "0.005"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7718387261623983`*^9, 3.7718387531194773`*^9}, {
  3.7718388719692593`*^9, 3.771838878576259*^9}, {3.7718414761764235`*^9, 
  3.7718414767984233`*^9}, {3.771841550224572*^9, 3.771841552063115*^9}, {
  3.7718422174250126`*^9, 
  3.771842250145027*^9}},ExpressionUUID->"ce9ee728-b57c-488c-a6d1-\
8f080bfc90b6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Gray", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow",
     ",", "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 
  3.762162734410307*^9}},ExpressionUUID->"ac114324-e372-4dc3-bb3b-\
4e07adb87076"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.33333333333333337`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0.5],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7718392003173866`*^9, 
   3.7718396359927177`*^9, 3.771840207484151*^9, 3.7718408957285957`*^9, 
   3.7718423599750032`*^9, 
   3.772513518977067*^9},ExpressionUUID->"e9127594-2e15-4eb0-ab78-\
5233a3886be3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M2/M1\>\"", ",", " ", "\"\<M2'/M1\>\"",
      ",", " ", "\"\<M2'/M2\>\"", ",", " ", "\"\<M3/M2\>\"", ",", " ", 
     "\"\<M3/M2'\>\"", ",", "\"\<M4/M3\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 
   3.762674167944764*^9}},ExpressionUUID->"7662b20b-5b0b-462d-862a-\
700e080e94c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"a57428a2-d073-473b-b56e-\
dba16f490de1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "EqLine1", ",", "INX1C1", ",", "INX1C2", ",", "INX1C3", ",", 
          "INX1C4", ",", "INX1C5", ",", "INX1C6"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"PlotLegends", "\[Rule]", 
           RowBox[{"Placed", "[", 
            RowBox[{"LegendG", ",", 
             RowBox[{"{", 
              RowBox[{"Above", ",", "Center"}], "}"}]}], "]"}]}], ","}], 
         "*)"}], 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<X1 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
           "\"\<X1 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\
\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
       "]"}], ",", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "EqLine1", ",", "INX2C1", ",", "INX2C2", ",", "INX2C3", ",", 
          "INX2C4", ",", "INX2C5", ",", "INX2C6"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"PlotLegends", "\[Rule]", 
           RowBox[{"Placed", "[", 
            RowBox[{"LegendG", ",", 
             RowBox[{"{", 
              RowBox[{"Above", ",", "Center"}], "}"}]}], "]"}]}], ","}], 
         "*)"}], 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<X2 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
           "\"\<X2 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\
\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
       "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "EqLine1", ",", "INX3C1", ",", "INX3C2", ",", "INX3C3", ",", 
          "INX3C4", ",", "INX3C5", ",", "INX3C6"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"PlotLegends", "\[Rule]", 
           RowBox[{"Placed", "[", 
            RowBox[{"LegendG", ",", 
             RowBox[{"{", 
              RowBox[{"Above", ",", "Center"}], "}"}]}], "]"}]}], ","}], 
         "*)"}], 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<X3 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
           "\"\<X3 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\
\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
       "]"}], ",", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "EqLine1", ",", "INX4C1", ",", "INX4C2", ",", "INX4C3", ",", 
          "INX4C4", ",", "INX4C5", ",", "INX4C6"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<X4 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
           "\"\<X4 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\
\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
       "]"}]}], "}"}]}], "}"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717430282915373`*^9, 3.7717430389475803`*^9}, {3.7717430890025377`*^9, 
   3.7717430957295938`*^9}, {3.7717431257325373`*^9, 3.7717431292835712`*^9}, 
   3.7717446091545763`*^9, {3.7717564648597617`*^9, 3.7717565569213896`*^9}, {
   3.7717573906825323`*^9, 3.771757393368067*^9}, {3.771838648529468*^9, 
   3.7718386514934473`*^9}, {3.771838713843397*^9, 3.7718387143693967`*^9}, {
   3.771838759270437*^9, 3.7718387902234545`*^9}, {3.7718388404992495`*^9, 
   3.7718388531842375`*^9}, 3.7718388855075645`*^9, {3.771839142065837*^9, 
   3.7718391513278027`*^9}, {3.7718396476823845`*^9, 3.771839656304387*^9}, {
   3.7718409007395964`*^9, 3.7718410034732027`*^9}, {3.771841157346159*^9, 
   3.771841172610757*^9}, {3.771841212690919*^9, 3.7718412141309185`*^9}, {
   3.771841245012511*^9, 
   3.7718413439993143`*^9}},ExpressionUUID->"1024719a-ce6c-4412-9194-\
9065bdb8e664"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{}, {{
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJxd1zmMlWUUgOEB93HXscXYYW3t0mkL9VQmYim22EqNhY0WNtDYTGJiIibE
qGhcAsZ93BV3BXcH94V7Hz1v9DbPhMx89z/n/WaGuebWO3bftn1lZWVr28rK
wv+/7lrbuPnEvrtv/K/3jod37D+56/ADo38/NN5/3+L14OjzNsZTuxYfPTT6
uofH1c2De69ffWR0zqPjtesHntzaeWR07mPjoTNftXnw8dH7PDFet3wdHb3v
U+PRrZ1nTn569BzPjLuXb/Ts6LmeG0/sWxz0/Og5j413Lh5r7/HRc78wqvDi
aI68ZXnwS6O5cvEu6wdeHs35yrgcYzPN/ep49eIxdrw22kPevmfxen20l81x
ccraRtrTG+PpxTFbaW9vjjcsD3prtMdcPtb+t0d7fWc8fmzxSnt+d7xq+WDv
jfaey2PW3x91+GA0R+qS5kqdTozmTN3S3B+OOqZjUtePRntJWdKePh51T3tL
9+CT0R7TvUh7/XR0T9Ke0735bLT3dI9Sh89HHVKH1CF1+GLUIXVIHb4c71l2
SB1Sh5OjDqlD6nBq1CF1SB2+GnVIHVKHr0cdUofU4ZtRh9Qhdfh2NEfqkuZK
ndKcqVua+7tRx7SH1DXtJXVOe/p+1D3tLX1fpj2me5H2+sPonqQ9p3uT9p7u
Uerw46hD6pA6pA6pQ+qQOmyNOqQOqUPqkDqkDqdHHVKH1CF1SB1Sh59GHVKH
1CF1SB1Sh59HHVKH1CF1SB1Sh9Thl1GH1CF1SB1Sh9Th11GH1CH9nEwdUofU
4bdRh9QhdUgdUofU4fdRh9QhdUgdUofUIXX4Y9QhdUgdUofUIXX4c9QhdUgd
UofUIXX4a9QhdUgdUofUIf/5s+OmfzVH6pLmSp1yOeae1C39XEgd0x5S17SX
1Dntaduoe9pbugdpj+lepL2me5L2nO5N2nu6RynD9lGH1CF1SB3SvUsdUofU
IXVIHVKH1CF1OGvUIXVIHVKH1CF1SB1Sh9QhdUgdUoezRx1Sh9QhdUgdUofU
IXVIHVKH1CF1SB3OGXVIHVKH1CF1SB1Sh9QhdUgdUofU4dxRh9QhdUgdUofU
IXVIHVKH1CF1SB1Sh/NGHVKH1CF1SB1Sh9QhdUgdUofUIXU4f9QhdUgdUofU
IXVIvzdTh9QhdUgdUofU4YJRh9QhdUgdUofUIXVIHVKH1CF1SB1WRx1Sh9Qh
dUgdUofUIXVIHVKH1CF1SI914ahD6pA6pA6pQ+qQOqQOqUPqkDqkDheNOqQO
qUPqkDqkDqlD6pA6pA6pQ+qQOlw86pA6pA6pQ+qQOqQOqUPqkDqkDqnDJaMO
qUPqkDqkDqlD6pA6pA6pQ+qQOqQOl446pA6pQ+qQOqQOqUPqkDqkDqlD6nDZ
aI7UJc2VOqU5U7c0d+qY9pD+jkl7SZ3TntL/G9Le0j1Ie0z3Iu013ZO053Rv
0t7TPUodLh91SB1Sh9QhdUgdUofUIXVI32epQ+qQOqQOqUPqkDqkDqlD6pA6
pA6pQ+qQOlwx6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPq
kDqkDqlD6nDlqEPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqcPa+DeAcLWZ
           "]]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzdPQlYTOv7KUu2S5SsJWuu5eLat3ds15b9XuGSfb0u2bdIyJItZF+7yVai
[encoded data, 16440 characters]
xNfX2OOXNPjE+A2if/jC/wGRnnMq
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJztPQc4le37iNAgpYjSVkqkpHylm7Ym1ZdSpDQUlUpUUkSlTUPbaBgRSVZk
[encoded data, 15480 characters]
xP/Tel/+DxraSBs=
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJztfQlYTV3UP0IlGZJCEvXS22CIzLRuGRJSZKooQ4aKZIwSZUjJrAFlKhFF
[encoded data, 16920 characters]
wvUjrnfpze/h+5XALpYr3mL9yY1DJXp/9bb6I7WkXxQ2/f8P9Rk7kw==
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJy0fQdcTf//P9mVVEoZUbISIauMXhdZkcyMjAiJKHsVSrYokmSVhkjR0tLe
[encoded data, 38760 characters]
AOBVDqI=
           "]]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJy1vQdcjv33OK6QJFSIZERWpayspFLISmQVGQkZIZGijEhCoYEQKiSklFJR
[encoded data, 26400 characters]
M4jPVjvcSvZ8X+7wIfP9gPxjUjA/ad1ja0Vu3RV8/39M0wkr
           "]]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJycfQc8le0ft0IpUkmIIqVJW5P6oT2kVEqhVJqaGhQqbSUjIVQahCLZe++9
[encoded data, 49200 characters]
d9++0t7XBTnNFTueNuH6GUeMr+55b1sB+95+TGyYXw3/B7uy6FE=
           "]]}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
         "\"X1 Noise \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}, {
         FormBox[
         "\"X1 Noise \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}},
      FrameStyle->{
        Directive[Bold, 15], 
        Directive[Bold, 15]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
        StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
        TraditionalForm],
      PlotRange->{{0, 5}, {0, 5}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{}, {{
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJxd1zmMlWUUgOEB93HXscXYYW3t0mkL9VQmYim22EqNhY0WNtDYTGJiIibE
qGhcAsZ93BV3BXcH94V7Hz1v9DbPhMx89z/n/WaGuebWO3bftn1lZWVr28rK
wv+/7lrbuPnEvrtv/K/3jod37D+56/ADo38/NN5/3+L14OjzNsZTuxYfPTT6
uofH1c2De69ffWR0zqPjtesHntzaeWR07mPjoTNftXnw8dH7PDFet3wdHb3v
U+PRrZ1nTn569BzPjLuXb/Ts6LmeG0/sWxz0/Og5j413Lh5r7/HRc78wqvDi
aI68ZXnwS6O5cvEu6wdeHs35yrgcYzPN/ep49eIxdrw22kPevmfxen20l81x
ccraRtrTG+PpxTFbaW9vjjcsD3prtMdcPtb+t0d7fWc8fmzxSnt+d7xq+WDv
jfaey2PW3x91+GA0R+qS5kqdTozmTN3S3B+OOqZjUtePRntJWdKePh51T3tL
9+CT0R7TvUh7/XR0T9Ke0735bLT3dI9Sh89HHVKH1CF1+GLUIXVIHb4c71l2
SB1Sh5OjDqlD6nBq1CF1SB2+GnVIHVKHr0cdUofU4ZtRh9Qhdfh2NEfqkuZK
ndKcqVua+7tRx7SH1DXtJXVOe/p+1D3tLX1fpj2me5H2+sPonqQ9p3uT9p7u
Uerw46hD6pA6pA6pQ+qQOmyNOqQOqUPqkDqkDqdHHVKH1CF1SB1Sh59GHVKH
1CF1SB1Sh59HHVKH1CF1SB1Sh9Thl1GH1CF1SB1Sh9Th11GH1CH9nEwdUofU
4bdRh9QhdUgdUofU4fdRh9QhdUgdUofUIXX4Y9QhdUgdUofUIXX4c9QhdUgd
UofUIXX4a9QhdUgdUofUIf/5s+OmfzVH6pLmSp1yOeae1C39XEgd0x5S17SX
1Dntaduoe9pbugdpj+lepL2me5L2nO5N2nu6RynD9lGH1CF1SB3SvUsdUofU
IXVIHVKH1CF1OGvUIXVIHVKH1CF1SB1Sh9QhdUgdUoezRx1Sh9QhdUgdUofU
IXVIHVKH1CF1SB3OGXVIHVKH1CF1SB1Sh9QhdUgdUofU4dxRh9QhdUgdUofU
IXVIHVKH1CF1SB1Sh/NGHVKH1CF1SB1Sh9QhdUgdUofUIXU4f9QhdUgdUofU
IXVIvzdTh9QhdUgdUofU4YJRh9QhdUgdUofUIXVIHVKH1CF1SB1WRx1Sh9Qh
dUgdUofUIXVIHVKH1CF1SI914ahD6pA6pA6pQ+qQOqQOqUPqkDqkDheNOqQO
qUPqkDqkDqlD6pA6pA6pQ+qQOlw86pA6pA6pQ+qQOqQOqUPqkDqkDqnDJaMO
qUPqkDqkDqlD6pA6pA6pQ+qQOqQOl446pA6pQ+qQOqQOqUPqkDqkDqlD6nDZ
aI7UJc2VOqU5U7c0d+qY9pD+jkl7SZ3TntL/G9Le0j1Ie0z3Iu013ZO053Rv
0t7TPUodLh91SB1Sh9QhdUgdUofUIXVI32epQ+qQOqQOqUPqkDqkDqlD6pA6
pA6pQ+qQOlwx6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPq
kDqkDqlD6nDlqEPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqcPa+DeAcLWZ
           "]]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzlHQuQFcXxeB5whLsE4vFRfpKiAlpR4ucolFi7kgASsQQtFKX4a0QFBQQu
[encoded data, 7320 characters]
4OK5If1Myxu5/rD1txaX/6j9mV6PbPMnnP//B/PnKJk=
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJztHQlUVsUaUdRe4ENFxYXSspdWah6lQHvvXnAp19PyfLmUhcuTjpJImAml
[encoded data, 5520 characters]
PqbdvcOyw5vIRvlHyu//AWVoUNA=
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJztXX1wVcUVD5GUOIUpaiyRJiKaacCJteUj2uaP+wJNKBXHUYeWtgMpsRRm
[encoded data, 4260 characters]
qd66+U9qf/gfwfLfXA==
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzVPQlYVbfSXIqiaFtUFEStte1TqT6rz6Uu1VzwudRHFXfccBfcRVFxq6BW
[encoded data, 10740 characters]
FAMQZr0fBuMqrJDiK1jimSO7rt76FPSL2IrZVcn6yv8BOMElbA==
           "]]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJztXQ1sltUVhkIGsVRBG0EGOJYllSyLZIDRdBkfEIERokACKUGoIEi3UYUI
[encoded data, 5040 characters]
vm4v0vnExewFDWn1if2r/wHR3N1V
           "]]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzlfQdYFTnUNmBXVOyIgh3sva/riWV3sSLqKjbsa10LKipW7NixYRdde6+s
[encoded data, 15900 characters]
m0G/dLGHJ/u2ZdwfJum5Tqg8H5viaf8vOIi9PA==
           "]]}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
         "\"X2 Noise \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}, {
         FormBox[
         "\"X2 Noise \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}},
      FrameStyle->{
        Directive[Bold, 15], 
        Directive[Bold, 15]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
        StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
        TraditionalForm],
      PlotRange->{{0, 5}, {0, 5}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}]},
    {
     GraphicsBox[{{}, {{
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJxd1zmMlWUUgOEB93HXscXYYW3t0mkL9VQmYim22EqNhY0WNtDYTGJiIibE
qGhcAsZ93BV3BXcH94V7Hz1v9DbPhMx89z/n/WaGuebWO3bftn1lZWVr28rK
wv+/7lrbuPnEvrtv/K/3jod37D+56/ADo38/NN5/3+L14OjzNsZTuxYfPTT6
uofH1c2De69ffWR0zqPjtesHntzaeWR07mPjoTNftXnw8dH7PDFet3wdHb3v
U+PRrZ1nTn569BzPjLuXb/Ts6LmeG0/sWxz0/Og5j413Lh5r7/HRc78wqvDi
aI68ZXnwS6O5cvEu6wdeHs35yrgcYzPN/ep49eIxdrw22kPevmfxen20l81x
ccraRtrTG+PpxTFbaW9vjjcsD3prtMdcPtb+t0d7fWc8fmzxSnt+d7xq+WDv
jfaey2PW3x91+GA0R+qS5kqdTozmTN3S3B+OOqZjUtePRntJWdKePh51T3tL
9+CT0R7TvUh7/XR0T9Ke0735bLT3dI9Sh89HHVKH1CF1+GLUIXVIHb4c71l2
SB1Sh5OjDqlD6nBq1CF1SB2+GnVIHVKHr0cdUofU4ZtRh9Qhdfh2NEfqkuZK
ndKcqVua+7tRx7SH1DXtJXVOe/p+1D3tLX1fpj2me5H2+sPonqQ9p3uT9p7u
Uerw46hD6pA6pA6pQ+qQOmyNOqQOqUPqkDqkDqdHHVKH1CF1SB1Sh59GHVKH
1CF1SB1Sh59HHVKH1CF1SB1Sh9Thl1GH1CF1SB1Sh9Th11GH1CH9nEwdUofU
4bdRh9QhdUgdUofU4fdRh9QhdUgdUofUIXX4Y9QhdUgdUofUIXX4c9QhdUgd
UofUIXX4a9QhdUgdUofUIf/5s+OmfzVH6pLmSp1yOeae1C39XEgd0x5S17SX
1Dntaduoe9pbugdpj+lepL2me5L2nO5N2nu6RynD9lGH1CF1SB3SvUsdUofU
IXVIHVKH1CF1OGvUIXVIHVKH1CF1SB1Sh9QhdUgdUoezRx1Sh9QhdUgdUofU
IXVIHVKH1CF1SB3OGXVIHVKH1CF1SB1Sh9QhdUgdUofU4dxRh9QhdUgdUofU
IXVIHVKH1CF1SB1Sh/NGHVKH1CF1SB1Sh9QhdUgdUofUIXU4f9QhdUgdUofU
IXVIvzdTh9QhdUgdUofU4YJRh9QhdUgdUofUIXVIHVKH1CF1SB1WRx1Sh9Qh
dUgdUofUIXVIHVKH1CF1SI914ahD6pA6pA6pQ+qQOqQOqUPqkDqkDheNOqQO
qUPqkDqkDqlD6pA6pA6pQ+qQOlw86pA6pA6pQ+qQOqQOqUPqkDqkDqnDJaMO
qUPqkDqkDqlD6pA6pA6pQ+qQOqQOl446pA6pQ+qQOqQOqUPqkDqkDqlD6nDZ
aI7UJc2VOqU5U7c0d+qY9pD+jkl7SZ3TntL/G9Le0j1Ie0z3Iu013ZO053Rv
0t7TPUodLh91SB1Sh9QhdUgdUofUIXVI32epQ+qQOqQOqUPqkDqkDqlD6pA6
pA6pQ+qQOlwx6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPq
kDqkDqlD6nDlqEPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqcPa+DeAcLWZ
           "]]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJztHQtwVcX18TAYFRQwElsDFUJbLZ36wc9UIHu1YgtlGMEpwiiMaBVHQ/mI
[encoded data, 6360 characters]
05e2ai8+QNGelILvv0RNU5I=
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJztXQlQVdcZflRR4pKIolCDAZEQrRkTq63G7VxtlKrELUbRDklqNBHBCoji
[encoded data, 4800 characters]
rycxskfN+f8PUGUSXQ==
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJztXQ9wlEcVvxSqaAD5czSpUoTAKBWHilCooLyTStE0FugfaNTCQGmbQioE
[encoded data, 4140 characters]
ZftT2WSG3+pW+eJub9j8ctMf9fzRNP//A5bCIYs=
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzlXXuMVsUVZwsIMS1vWaA8RDBBaMIf2KYshvkWBVokFqgUTYOIVEoQ6QJL
[encoded data, 4980 characters]
1P8BJ97gbw==
           "]]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzlXXuIlUUUX18papSrYoWGq4v5+KMlCkLBu9eo3G2RCkIlRNy0xCQV7aFi
uKGiC6mJjxTd1fARST42zNdKEoQrCG3iAylFwW0NEtRcQuyPrn6kNHmbOXOe
3+6PC+J+M2fOvM6cOefMTFHljNentC8oKFjas6Dgzr8ubj1ZXLr98KxMxSMD
98/r+nHG933A56/uqzv2SaZ8+sbeA8+M+096GlzLS9fHLxZQ+lh+sOXJ9Ec4
P9LlcwM6P6zxx50fW547fgevbjdwfM3kTMW5umGFxTMzt7qU9zixfmpmTJ+F
Haq7z8zcLupQenTs3MzO2cOn9/vs/TbX3jzy4mK0vOWRl/n5oQZ1e75xF6fZ
+IfKf+31Ytj5ac/u3Xp/nmLH04b1d3Du3t9fmPtw03OrzwLH78W8/GDbh3p+
x/HTGFwutj+g8hxbX2p+od99wPYflr9ed7GIbXz3PTYr99sYPJ+p64eFNX2b
ur7W+0Oavwd/D5ePWP6x9KXXa+r27jVib88Re78Jlke+9cJXnrS8dbHo0VFd
ihatFLNfuPQS/eh4tHym5ge7nmvzCx2P2PK46WnvX33odyqb+y0gk8/c8pO7
/dva/PCVT53eRTL+PiXbr1Lz5+KrEwOvT9o0hazdsfMnsX+0BPOzqrgs9zup
tl650C7fB2v7W2r60vTC5Fm8fdTF/F67Xr407zLb/kO6f7n3w9T6bBz/e5D2
FD1/poubnRZkJzbuILMPafszfOmT+q5Tk+PJeviDmf6HQkb/k5sf3PIDau+m
5ldaPmLtb2mTP1hwr6/a9hft/sSCun+s69vc/hB3/eMZ//nXD2uQsf+ei6ar
7Z+jhnV/InV50vqS+31o4eYB7YZWmhkXPnny50Orlw07P9+MPoKlZ23+8sj7
+Pgd7fnBbS+h9qdS88dTvt14wbTxw+2fxPJHjTD+wseX9fU5rpQr0fWX9r9y
07OmT/ryp8OeQie/qfl/qqj6u4bHv0X6H8Ltm9zxr9SwNv+k2xOqf/nOs9we
euGDwj8+zLRca1k8c+lH5vvXOj/W9Rdte6/2/EhS0fnXqSEd/5O2/Zd1+zR3
eXH04v2d3PZ6bP3Lq6d2zo6dRmbvp/anQsuH5seWx22vkfHnx5fn6kfY8nfc
rq0pqcyS7d+x+a3tHxP/3DYz+3vu8andP9rl+crnPk+sLf+gkN7/QelL15ea
HnV5XTq2ryrtvxBpr8kPa/IDC2v7DXd8Ty7qNr5h1NpovrTrh6Uvc9443v4q
vT/j5g9Kj9teIw1qfZ17v4qtH/V3a3D5hZ7H5uaH+js2PRTS+xXpeHPp+kDz
Y8uXTq8tX3TGA198rjV/j/Z4oZHf8f0FrX/zzvlb1xyfHW0vjuWTCtz2DGl7
KZY/7vLTDm37clu3h1jzD0LpW/OHcscTaN+norP+xvNbU3h5SLZmFdn6rb3/
T/5K5y/XXq+k/a/a/KZtffBBW/5D01sbb9bHg7Z9mjt+VBsy9uD764X2eMJC
e79gnT43tP09WPnu3sdmfT3Qtl+59wVhx9/VcVUlJ5evCc7X2ucTN7T9Q9r9
Q1MfO+cdpePNqPez0Pza/S8dL8G93vjuX6Pmlzu/Lz20fqHtEkovbH7mv/8L
yq+OfPHpF3LxVFhwtx/W/zV495b6JTcO3cuXvD9S79Ch81dSz7eX+kyY89OL
+4P1b2p+iwc1NR8YUxdtP7UGH7/u/VdQ+XHxtzN/7Rm9jEz/t7Z/jNR/Sv+/
lKNs8k57/xxbr1B+uN9/4D7PRZ1em7+4/khPfBO2fG563OMZWn6yf2gi2w9j
+Xliazb328Bm39aZP3pIO/8++Pzp2v5Mbf1Tu3woP9z7Ler00vSo+Un7/c7W
YC1eCpo/7eOfe//hfn9syaTc70sy+yuWH+r5nbb4KG15oj3esem19SUXyf7k
iBl7FbY+0Pzu9x53sZdtv8YNKD/Je2JzxOy7PPvD8PvftMejtfJc+qNPVzx/
4etjYvYo6fzUaOv8aOtL2PKw9cOmb+35qeNlpPV5a+clsfm137e3Fr+kbb8K
A51/iMd+kt8eLB3/hIVM/+5R0xOs6wfU9KnTa8e7W+PXuv7LrX9Q+0ustyc3
PZrywtfLtOmr0PTWxpML6/xBIa0vU0N7vU7beNC2j2LpSftTretPPlgfv9rr
Tzren7JzPo0b2utN2tsPCur5Zy2+RZsed/tg+ZOGNX60gW2POUffW7Gv+4Ro
fzj3fOD2Z2nPP2r+oOX7ztth62PNHqetH/jou/eNu0jil/aZtaenXV5wI+m/
0+b4+gfW9SVuftLGry+9djyItj6vHU/BXT9sfm79aFVxWe73fXS/c9eH+7wK
Ftb0G2z7cd/vAsX1rruv5X5k9jEXyf0Kx8niRdIGa+uttnxw07v3s1DPl5g2
wrSH7/y3dHyf9P7AV79kPfxCzd5izd9uTb/Mg9J//zf+/paWstqbZbWX2fSh
uPYJP08C/U4NtzzoflranhOW6wqZ/Y0a1uyx1KCWP+76/MyMd0af+Plg8Pyi
jsf31a++cN+w1w6H78+sjU8srNuDde7/pJOn1uzB2vd1Y79T77eh7yPc2lA3
vO+FcZlXF/d5+peDVZlLI398u2HEW5lXqg/NLB+5QMg+Ef++TdoBbQ+Z8uVg
Pf7Cmn6p3V9pA3Y8QN93lR5fNvfbDWTjknu/ou3PsoZsxa7+g8ZubjX7V27+
sffrU6eXpkcDufPBUH0ZWz53fbD0qWFNX5KGdf6wsGbP0/avWR/v0vYKbmi3
Bzd/PIi/X4z6/hhteys2PbY+POnl3ofm7j83vsYHbfkmM9/z968vvjwOvUrz
fUm7vy9t/Eivz9LxPFhYH2/W9Alt/x7P+JB7fwb6XRouP8l6mj9eQRpx+kz8
eXfu+Avt/RA10qYPpy1eFEvP+niLq//9+Y0dD9D3qqCAvq/IDZ/+T8RfaWjC
1mYP4/YfWIsH6ncqm/ttivZnY9ufGtjyVm789d2W3xc6+fjOF1nTz6Xz89CX
i6eCwmZ7UZcn995eHH8+0M136f1JKN+x+bXtx9bl5YO/y733AoV2e1GXZwN8
8gP6HVu+ND9h0NPHoPm1/WvU/ErT89HH0kuQ/zyoNf1Ye75Ljw9r8R9Yesl9
bWfz6sfNvRsPvNm8WE1/tmbPhZYXRj/c/mjT/8XHn3R+LKzJB2vQjgeSbl9t
+4r2fErWl2ay9UOnfxqjy6FeX6zdF0udXvt8NRba8tna/KJG2vezvu/W3n/Q
pgdNf2nF9vMjj0w2Y+93IW1fk54v5dVTO2fHTovez2ifn9F+74X6PTzu8qnL
o34feMft2pqSyiybfRaaX3s/4CKJV9oW3T5pe+9Ku3+0y/OVL31eSVr+QcHt
T/fFa0n7Y635x6Ho0rF9VWn/hcH6BxTW5AcW1vR7d3xPLuo2vmHUWjL7Sywd
Lno++jL2nvDzDWH06NJjwd3/1ux5WFDr69r+XSg/rV2+u/H61vQLbXs0FNL7
FW77iHZ9oPmx5Uun15YvOuNB7nys9vkQ7fGifZ4ZWv/mnfO3rjk+O9peHMsn
FbjtGdL2Uix/3OWnHdr25bZuD7HuH7em/2r7r6Xjv7j5hQLKb03h5SHZmlVk
67f2/j/5q9z9YtxIW7wT9/7T2vrgg7b8h6a3Nt6sjwdt+zT1fQrc/EMhYw+2
c94bC+39gnX63ND292DlexLf0xJs79deD7TtVzc7LchObFxHJj+ujqsqObl8
TXC+1j6fuKHtH9LuH5r6xN93SM2PdLwZ9X4Wml+7/6XjJWTen4x/Hwe736XO
70sPrV9ou4TSC5ufjcHrq0354tMv5OKpsOBuP6z/a/DuLfVLbhy6l6/vsVm5
X71Dh85fST3fkvOv+4P1b2p+iwc1NR8YU3fv738D06eowQ==
           "]]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzlXQdYFUfXFgXFEkXFEiOxt5iiiTEay1njbyNYY8QASbDFhgWVYg2gMfbe
[encoded data, 10980 characters]
FyHJPP78Cv8PM2lGWA==
           "]]}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
         "\"X3 Noise \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}, {
         FormBox[
         "\"X3 Noise \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}},
      FrameStyle->{
        Directive[Bold, 15], 
        Directive[Bold, 15]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
        StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
        TraditionalForm],
      PlotRange->{{0, 5}, {0, 5}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}], 
     TemplateBox[{GraphicsBox[{{}, {{{
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            PointBox[CompressedData["
1:eJxd1zmMlWUUgOEB93HXscXYYW3t0mkL9VQmYim22EqNhY0WNtDYTGJiIibE
qGhcAsZ93BV3BXcH94V7Hz1v9DbPhMx89z/n/WaGuebWO3bftn1lZWVr28rK
wv+/7lrbuPnEvrtv/K/3jod37D+56/ADo38/NN5/3+L14OjzNsZTuxYfPTT6
uofH1c2De69ffWR0zqPjtesHntzaeWR07mPjoTNftXnw8dH7PDFet3wdHb3v
U+PRrZ1nTn569BzPjLuXb/Ts6LmeG0/sWxz0/Og5j413Lh5r7/HRc78wqvDi
aI68ZXnwS6O5cvEu6wdeHs35yrgcYzPN/ep49eIxdrw22kPevmfxen20l81x
ccraRtrTG+PpxTFbaW9vjjcsD3prtMdcPtb+t0d7fWc8fmzxSnt+d7xq+WDv
jfaey2PW3x91+GA0R+qS5kqdTozmTN3S3B+OOqZjUtePRntJWdKePh51T3tL
9+CT0R7TvUh7/XR0T9Ke0735bLT3dI9Sh89HHVKH1CF1+GLUIXVIHb4c71l2
SB1Sh5OjDqlD6nBq1CF1SB2+GnVIHVKHr0cdUofU4ZtRh9Qhdfh2NEfqkuZK
ndKcqVua+7tRx7SH1DXtJXVOe/p+1D3tLX1fpj2me5H2+sPonqQ9p3uT9p7u
Uerw46hD6pA6pA6pQ+qQOmyNOqQOqUPqkDqkDqdHHVKH1CF1SB1Sh59GHVKH
1CF1SB1Sh59HHVKH1CF1SB1Sh9Thl1GH1CF1SB1Sh9Th11GH1CH9nEwdUofU
4bdRh9QhdUgdUofU4fdRh9QhdUgdUofUIXX4Y9QhdUgdUofUIXX4c9QhdUgd
UofUIXX4a9QhdUgdUofUIf/5s+OmfzVH6pLmSp1yOeae1C39XEgd0x5S17SX
1Dntaduoe9pbugdpj+lepL2me5L2nO5N2nu6RynD9lGH1CF1SB3SvUsdUofU
IXVIHVKH1CF1OGvUIXVIHVKH1CF1SB1Sh9QhdUgdUoezRx1Sh9QhdUgdUofU
IXVIHVKH1CF1SB3OGXVIHVKH1CF1SB1Sh9QhdUgdUofU4dxRh9QhdUgdUofU
IXVIHVKH1CF1SB1Sh/NGHVKH1CF1SB1Sh9QhdUgdUofUIXU4f9QhdUgdUofU
IXVIvzdTh9QhdUgdUofU4YJRh9QhdUgdUofUIXVIHVKH1CF1SB1WRx1Sh9Qh
dUgdUofUIXVIHVKH1CF1SI914ahD6pA6pA6pQ+qQOqQOqUPqkDqkDheNOqQO
qUPqkDqkDqlD6pA6pA6pQ+qQOlw86pA6pA6pQ+qQOqQOqUPqkDqkDqnDJaMO
qUPqkDqkDqlD6pA6pA6pQ+qQOqQOl446pA6pQ+qQOqQOqUPqkDqkDqlD6nDZ
aI7UJc2VOqU5U7c0d+qY9pD+jkl7SZ3TntL/G9Le0j1Ie0z3Iu013ZO053Rv
0t7TPUodLh91SB1Sh9QhdUgdUofUIXVI32epQ+qQOqQOqUPqkDqkDqlD6pA6
pA6pQ+qQOlwx6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPq
kDqkDqlD6nDlqEPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqcPa+DeAcLWZ
             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0.5]], 
            PointBox[CompressedData["
1:eJztPQdYFMf3YMBuxEgEjb0XbH81n1F0z24Se4m9YW8RjYgoFuyiwRJrbGBB
[encoded data, 9600 characters]
GPmTJPj+H3A6oxs=
             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            PointBox[CompressedData["
1:eJztXQlQFUcaBg3igS4qyBNFRc2KMUJM8CloGFAU462JUYkHIoIRRFQERFGe
[encoded data, 6360 characters]
f+j/ABggutg=
             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]], 
            PointBox[CompressedData["
1:eJztXQlUlcUev9fEfQswfKYC2rGFl0uioaADZmYuGe6JpKIcSK4KeRVeiXJF
[encoded data, 5040 characters]
/38AtL/1
             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]], 
            PointBox[CompressedData["
1:eJzVPQl4TkfXSSxRlIiQNAiCWkJR/NUiE7SoJRKq1gYlRChBRBJN5Q2CUBGx
[encoded data, 8700 characters]
QYOdVg==
             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 1, 0]], 
            PointBox[CompressedData["
1:eJzdXQtw1sURJxQEtUwDRBKVd7RIgUFH8IXiF15qfJBaqShTnrVESJW3QkT4
[encoded data, 6000 characters]
n+eV31vAAqs/c5eHzZ+8bnVFeUZm5P//A3unAv8=
             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0.5, 0]], 
            PointBox[CompressedData["
1:eJztfQdcFcf2PxcRCEZFRCWIiCUxlhc19sZZNBo1tthbxIYQJYpir2DDGlCx
[encoded data, 10860 characters]
r/f/B10hv0Q=
             "]]}}, {{
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0.5]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 1, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[
             1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0.5]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 1, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[
             1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         1, Axes -> {False, False}, AxesLabel -> {None, None}, 
         AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
         Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
            FormBox[
            "\"X4 Noise \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
             TraditionalForm], None}, {
            FormBox[
            "\"X4 Noise \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
             TraditionalForm], None}}, FrameStyle -> {
           Directive[Bold, 15], 
           Directive[Bold, 15]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotLabel -> FormBox[
           StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
           TraditionalForm], PlotRange -> {{0, 5}, {0, 5}}, PlotRangeClipping -> 
         True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}],FormBox[
        FormBox[
         TemplateBox[{
          "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
           "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
          DisplayFunction -> (FormBox[
            FrameBox[
             StyleBox[
              StyleBox[
               PaneBox[
                TagBox[
                 GridBox[{{
                    StyleBox[
                    "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                    Automatic, StripOnInput -> False]}, {
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                     "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}},
                   AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                 "Grid"], Alignment -> Left, AppearanceElements -> None, 
                ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
                "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
              False], RoundingRadius -> 5, StripOnInput -> False], 
            TraditionalForm]& ), 
          InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                    None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0.5], Editable -> False, Selectable -> False], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 1, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 1, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                    False]}], "}"}], ",", 
               RowBox[{"{", 
                 
                 RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                   ",", #7}], "}"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendFunction", "\[Rule]", 
                 RowBox[{"(", 
                   RowBox[{
                    FrameBox[
                    "#1", RoundingRadius -> 5, StripOnInput -> False], "&"}], 
                   ")"}]}], ",", 
               RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
               RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 GraphicsBox[{
                   EdgeForm[
                    GrayLevel[0]], 
                   Opacity[1], 
                   RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
         TraditionalForm], TraditionalForm]},
      "Legended",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"], 
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, GridBoxItemSize -> Automatic, 
        BaselinePosition -> {1, 1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.771838652471418*^9, 3.7718387153313975`*^9, {3.77183876996647*^9, 
   3.7718387909923987`*^9}, {3.7718388549162245`*^9, 
   3.7718388803012476`*^9}, {3.771839138995803*^9, 3.771839152274803*^9}, 
   3.7718392025892987`*^9, 3.771840213599083*^9, 3.771841219174916*^9, 
   3.7718412505924387`*^9, 3.7718413082083044`*^9, 
   3.771841347978506*^9},ExpressionUUID->"012501bd-46f6-4ae1-bac5-\
b048a3f84aa9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "EqLine1", ",", "MMINX1C1", ",", "MMINX1C2", ",", "MMINX1C3", ",", 
          "MMINX1C4", ",", "MMINX1C5", ",", "MMINX1C6"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.5"}], ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.5"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"PlotLegends", "\[Rule]", 
           RowBox[{"Placed", "[", 
            RowBox[{"LegendG", ",", 
             RowBox[{"{", 
              RowBox[{"Above", ",", "Center"}], "}"}]}], "]"}]}], ","}], 
         "*)"}], 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<X1 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
           "\"\<X1 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\
\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
       "]"}], ",", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "EqLine1", ",", "MMINX2C1", ",", "MMINX2C2", ",", "MMINX2C3", ",", 
          "MMINX2C4", ",", "MMINX2C5", ",", "MMINX2C6"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.5"}], ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.5"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"PlotLegends", "\[Rule]", 
           RowBox[{"Placed", "[", 
            RowBox[{"LegendG", ",", 
             RowBox[{"{", 
              RowBox[{"Above", ",", "Center"}], "}"}]}], "]"}]}], ","}], 
         "*)"}], 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<X2 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
           "\"\<X2 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\
\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
       "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "EqLine1", ",", "MMINX3C1", ",", "MMINX3C2", ",", "MMINX3C3", ",", 
          "MMINX3C4", ",", "MMINX3C5", ",", "MMINX3C6"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.5"}], ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.5"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"PlotLegends", "\[Rule]", 
           RowBox[{"Placed", "[", 
            RowBox[{"LegendG", ",", 
             RowBox[{"{", 
              RowBox[{"Above", ",", "Center"}], "}"}]}], "]"}]}], ","}], 
         "*)"}], 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<X3 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
           "\"\<X3 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\
\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
       "]"}], ",", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "EqLine1", ",", "MMINX4C1", ",", "MMINX4C2", ",", "MMINX4C3", ",", 
          "MMINX4C4", ",", "MMINX4C5", ",", "MMINX4C6"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.5"}], ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.5"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<X4 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
           "\"\<X4 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\
\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
       "]"}]}], "}"}]}], "}"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717430282915373`*^9, 3.7717430389475803`*^9}, {3.7717430890025377`*^9, 
   3.7717430957295938`*^9}, {3.7717431257325373`*^9, 3.7717431292835712`*^9}, 
   3.7717446091545763`*^9, {3.7717564648597617`*^9, 3.7717565569213896`*^9}, {
   3.7717573906825323`*^9, 3.771757393368067*^9}, {3.771838648529468*^9, 
   3.7718386514934473`*^9}, {3.771838713843397*^9, 3.7718387143693967`*^9}, {
   3.771838759270437*^9, 3.7718387902234545`*^9}, {3.7718388404992495`*^9, 
   3.7718388531842375`*^9}, 3.7718388855075645`*^9, {3.771839142065837*^9, 
   3.7718391513278027`*^9}, {3.7718396476823845`*^9, 3.771839656304387*^9}, {
   3.7718409007395964`*^9, 3.7718410034732027`*^9}, {3.771841157346159*^9, 
   3.771841172610757*^9}, {3.771841212690919*^9, 3.7718412141309185`*^9}, {
   3.771841245012511*^9, 3.771841440031184*^9}, {3.7718415160366244`*^9, 
   3.7718415367695394`*^9}},ExpressionUUID->"5b2f7257-bb66-459a-8159-\
47a48bdca448"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{}, {{
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJxd2V3s9/Ucx/FLQhJCDpyEOYkDMxx0IMxJDthoNiedsLnZHMiWzeKgg3Lg
QB10ILPGalObXauVKROXitxUJN1QUSFRyE1Jbvf/PD69n9P/5LG1q9/1+36f
39fv+/3/rle+/6OnfeCoQ4cOvfPoQ4cO9HPft57y8Kn3n3XC4V+Op5933WMn
nZ7H3nnxGaccm1efeO7D7776F+MH10+esF4oD17lvOvuHT92ysEr5csPXubE
vPmmg597xk+uF8pXrzeW623defe4XubcfMP6yYOjPPX+n4/rMM/LN68DzUcO
Xubhn42fv/DgJ9++XigfPzjMx+4aLzl4WxfnaevEpQ6pw52jDqlD6nDHqEPq
kDrcPq63dUaulzkxV4abfjrqkDqkt3XbqEPqkDr8ZDx/vbHUIXW4ddQhdUgd
fjzqkDqkDum8/2h0nm8Zndd0Hm8enbebxvU2Tspz1nn54fjAOg8/GB13Os7v
j47re6PjSNfRjaPrJl0n3x1dF98ZXQe53tZZN4x3rM7Xj69fXVPH60bdvj3q
lLocGXVI5/2bo/N87ei8fmO8b73Rr4+fW+ftmvFdXmg8Zp2Xr41H1tv+6vip
ddxXjW9cx3nl6LiuGB3H5aO/5vDofX5l9L4uG72PL4+fWH/vJeND6+/50nj5
et2LxvPX61w4nr3+vwvGI+vPfXb03895mmeOh572s//7W/7fc8b9uuP+e8cv
el+jP3fR+KjjGv1/l4zHOy+j17lsfJ3zOnrdw+Oluoz+nivGk3Udnferxn1d
jPu6Gfd1Ne7rbtzX5biv23Ff1+O+7se9i3HvZty7Gvfuxr3L0XV8/XiXXY+u
+xvGV/hcGG/wuTF+2OfKeJzPnfFyn0vje3xujU/4XBu/4HNvfJPPxdF5zP25
Ou7P3XF/Lo/7c3vcn+vj/twf931h3PeNcd9Xxn3fGfd9adz3rXHf18Z93xv3
fXHc983RfSR1vW38tPvyqHO+xn191D1v8Vwwug5uH/dzxbifO8b9XDLu55Zx
P9eM+7ln3M9F435uGvdz1bifu8b9XDbu57ZxP9eN+7lv3M+F435uHHVIHVKH
u0cdUofU4Z5Rh9Qhdbh31CH3c/m4n9vH/Vw/7uf+cf9eMO7fG8b9e8W4f+8Y
HUfqko4rdUqzTd3Sc8v9o47pPKSu6bykzuk8PTDqns5bug7SeUzXRTqvvxpd
J+k8p+smnfd0HaUOvx51SB1Sh9QhXXepQ+rwm1GH1CF1SB1Sh9ThwVGH1CF1
SB1Sh9Tht6MOqUPqkDqkDqnDQ6MOqUPqkDqkDqlD6vC7UYfUIXVIHVKH1OH3
ow6pQ+qQOqQOqcPDow6pQ+qQOqQOqcMjow6pQ+qQOqQOqUPq8IdRh9QhdUgd
UofU4Y+jDqlD6pA6pA6pw59GHVKH1CF1SB1Sh0fHl64/mL6HSMeVOuWH1nGm
7zXScaeO6Tyk763SbSZ1Tufpz6PvwdL3JOk6SOcxfa+WvndJ10k6z3n9um7S
Y1a6jlKHv4w6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6/HXUIXVIHVKH1CF1SB1S
h9QhdUgdUoe/jTqkDqlD6pA6pA6pQ+qQOqQOqUPqkDo8NuqQOqQOqUPqkDqk
DqlD6pA6pA6pw+OjDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDn8fdUgdUofUIXVI
HVKH1CF1SB1Sh9ThidF9MN3XU4fUId0n030/dUgdUof0e0y6r6YOqcM/Rs8N
6b6bOqQO6bki3ZdTh9QhPXek+3bqkDo8OeqQOqQOqUPqkDqkDqlD6pCe01KH
1CF1+OeoQ+qQOqQOqUPqkDqkDqlD6pA6pA7/GnVIHVKH1CF1SB1Sh9QhdUgd
UofUIXX496hD6pA6pA6pQ+qQOqQOqUPqkDqkDv8ZdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdfjvqEPqkDqkDqlD6pA6pA6pQ+qQOuT+Z4+3PqXjSPf1dF9M9/l0
n0zd0nGnjuk8pOeCdF9NzwnpPpv+HTydt3QdpPOYrot0X07PGek+nZ470nlP
11HK8IxRh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh6NGHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofU
IXVIHZ456pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqk
DqlD6nD0qEPqkDqkDqlD6pA6pA6pQ+qQOqQOqUN6bkgdUofUIXVIHVKH1CF1
SB1Sh9ThWaMOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOzx51SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVI
HVKH1CF1eM6oQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD
6pA6pA6pwzGjDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQO
qUPqkDqkDs8ddUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdTh21CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofU
IXVIHVKH1OF5o9OWOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkNesDqlD
6pA6pA6pQ+qQOhw36pC+V0zfy6XvGdP3dKlD6pA6pA7pe8n0vV76njJ9z5c6
pA6pQ+qQdpG+F0z/LpO+J0zfe6YOqUPq8PxRh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1ShxeMOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqUPqkDqkDqlD+neA1CF1SB1Sh9ThhaMOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOx4++Bkld0mlK9/lcx/mydN/P
ddyvSs8BuV7mtem5INd5OTl1znWffVvqnuu++450HeQ6zPem6yLXy7wvPWfk
Os8fSc8duc77x9NzSK4MZ6fnklyH+Zn0PWmuDhek6y5Xh4vSdZirw6XpusyV
4cp0nebqcG167snV4cb0HJSrw63puShXh3vSc1KuDg+m6z5Xh0fTDnJ1eDLt
4kWjXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2k
XaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRd
pF2kXaRdpF2kXaRdvHi0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0
i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SL
tIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLl4x2kXaRdpF2kXaRdpF2kXaRdpF2
kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaR
dpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXZxwvg/cs/eCQ==

           "]]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt2wlcTVvfB/AQhVQqMmTMEEKSQviTxG1CkikpUmSKmySVUqaESkhIGqmk
[encoded data, 9660 characters]
YjG29P60zxOqWuB/AIoqWM4=
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt2gk0lfv++HGZKmODkFRCiYQMpZKPpAFFSY6IBkLmopKUoRKSREVIMlVI
[encoded data, 10320 characters]
nVVCK//O/w8+WhoO
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt1wk41O/+8HFbSIoiyhYqlaWkkigfqZC1VEIokWxJIpKixZrUT5YIWUO2
[encoded data, 13260 characters]
JjlLIJ4M0uqiTpf952Dn+nsrvwaT4X8BzgDM1A==
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzs3QdQVdu2N3hEUEGRIBhAEBABE6IiKAgDEUEJiooIiKCIJBMgkiUHJUkS
[encoded data, 29100 characters]
6vHKx6v/o/7vx3Osifr/BfMlERk=
           "]]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt3Qk0Vf/+P35TCJkzJSWSkKQMUUiSJCQZM5eEhFAZkgxJQqiEhEwlYyqh
[encoded data, 20520 characters]
1w==
           "]]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzs3Qk0le37KH4pKpEoQhESGStTGrgkSVJJSNKgTAmZylCJUEKmhITMM5nn
[encoded data, 40560 characters]
/wOG3pDG
           "]]}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
         "\"X1 Noise \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}, {
         FormBox[
         "\"X1 Noise \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}},
      FrameStyle->{
        Directive[Bold, 15], 
        Directive[Bold, 15]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->{529., Automatic},
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
        StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
        TraditionalForm],
      PlotRange->{{-0.5, 3}, {-0.5, 3}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{}, {{
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJxd2V3s9/Ucx/FLQhJCDpyEOYkDMxx0IMxJDthoNiedsLnZHMiWzeKgg3Lg
QB10ILPGalObXauVKROXitxUJN1QUSFRyE1Jbvf/PD69n9P/5LG1q9/1+36f
39fv+/3/rle+/6OnfeCoQ4cOvfPoQ4cO9HPft57y8Kn3n3XC4V+Op5933WMn
nZ7H3nnxGaccm1efeO7D7776F+MH10+esF4oD17lvOvuHT92ysEr5csPXubE
vPmmg597xk+uF8pXrzeW623defe4XubcfMP6yYOjPPX+n4/rMM/LN68DzUcO
Xubhn42fv/DgJ9++XigfPzjMx+4aLzl4WxfnaevEpQ6pw52jDqlD6nDHqEPq
kDrcPq63dUaulzkxV4abfjrqkDqkt3XbqEPqkDr8ZDx/vbHUIXW4ddQhdUgd
fjzqkDqkDum8/2h0nm8Zndd0Hm8enbebxvU2Tspz1nn54fjAOg8/GB13Os7v
j47re6PjSNfRjaPrJl0n3x1dF98ZXQe53tZZN4x3rM7Xj69fXVPH60bdvj3q
lLocGXVI5/2bo/N87ei8fmO8b73Rr4+fW+ftmvFdXmg8Zp2Xr41H1tv+6vip
ddxXjW9cx3nl6LiuGB3H5aO/5vDofX5l9L4uG72PL4+fWH/vJeND6+/50nj5
et2LxvPX61w4nr3+vwvGI+vPfXb03895mmeOh572s//7W/7fc8b9uuP+e8cv
el+jP3fR+KjjGv1/l4zHOy+j17lsfJ3zOnrdw+Oluoz+nivGk3Udnferxn1d
jPu6Gfd1Ne7rbtzX5biv23Ff1+O+7se9i3HvZty7Gvfuxr3L0XV8/XiXXY+u
+xvGV/hcGG/wuTF+2OfKeJzPnfFyn0vje3xujU/4XBu/4HNvfJPPxdF5zP25
Ou7P3XF/Lo/7c3vcn+vj/twf931h3PeNcd9Xxn3fGfd9adz3rXHf18Z93xv3
fXHc983RfSR1vW38tPvyqHO+xn191D1v8Vwwug5uH/dzxbifO8b9XDLu55Zx
P9eM+7ln3M9F435uGvdz1bifu8b9XDbu57ZxP9eN+7lv3M+F435uHHVIHVKH
u0cdUofU4Z5Rh9Qhdbh31CH3c/m4n9vH/Vw/7uf+cf9eMO7fG8b9e8W4f+8Y
HUfqko4rdUqzTd3Sc8v9o47pPKSu6bykzuk8PTDqns5bug7SeUzXRTqvvxpd
J+k8p+smnfd0HaUOvx51SB1Sh9QhXXepQ+rwm1GH1CF1SB1Sh9ThwVGH1CF1
SB1Sh9Tht6MOqUPqkDqkDqnDQ6MOqUPqkDqkDqlD6vC7UYfUIXVIHVKH1OH3
ow6pQ+qQOqQOqcPDow6pQ+qQOqQOqcMjow6pQ+qQOqQOqUPq8IdRh9QhdUgd
UofU4Y+jDqlD6pA6pA6pw59GHVKH1CF1SB1Sh0fHl64/mL6HSMeVOuWH1nGm
7zXScaeO6Tyk763SbSZ1Tufpz6PvwdL3JOk6SOcxfa+WvndJ10k6z3n9um7S
Y1a6jlKHv4w6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6/HXUIXVIHVKH1CF1SB1S
h9QhdUgdUoe/jTqkDqlD6pA6pA6pQ+qQOqQOqUPqkDo8NuqQOqQOqUPqkDqk
DqlD6pA6pA6pw+OjDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDn8fdUgdUofUIXVI
HVKH1CF1SB1Sh9ThidF9MN3XU4fUId0n030/dUgdUof0e0y6r6YOqcM/Rs8N
6b6bOqQO6bki3ZdTh9QhPXek+3bqkDo8OeqQOqQOqUPqkDqkDqlD6pCe01KH
1CF1+OeoQ+qQOqQOqUPqkDqkDqlD6pA6pA7/GnVIHVKH1CF1SB1Sh9QhdUgd
UofUIXX496hD6pA6pA6pQ+qQOqQOqUPqkDqkDv8ZdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdfjvqEPqkDqkDqlD6pA6pA6pQ+qQOuT+Z4+3PqXjSPf1dF9M9/l0
n0zd0nGnjuk8pOeCdF9NzwnpPpv+HTydt3QdpPOYrot0X07PGek+nZ470nlP
11HK8IxRh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh6NGHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofU
IXVIHZ456pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqk
DqlD6nD0qEPqkDqkDqlD6pA6pA6pQ+qQOqQOqUN6bkgdUofUIXVIHVKH1CF1
SB1Sh9ThWaMOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOzx51SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVI
HVKH1CF1eM6oQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD
6pA6pA6pwzGjDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQO
qUPqkDqkDs8ddUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdTh21CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofU
IXVIHVKH1OF5o9OWOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkNesDqlD
6pA6pA6pQ+qQOhw36pC+V0zfy6XvGdP3dKlD6pA6pA7pe8n0vV76njJ9z5c6
pA6pQ+qQdpG+F0z/LpO+J0zfe6YOqUPq8PxRh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1ShxeMOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqUPqkDqkDqlD+neA1CF1SB1Sh9ThhaMOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOx4++Bkld0mlK9/lcx/mydN/P
ddyvSs8BuV7mtem5INd5OTl1znWffVvqnuu++450HeQ6zPem6yLXy7wvPWfk
Os8fSc8duc77x9NzSK4MZ6fnklyH+Zn0PWmuDhek6y5Xh4vSdZirw6XpusyV
4cp0nebqcG167snV4cb0HJSrw63puShXh3vSc1KuDg+m6z5Xh0fTDnJ1eDLt
4kWjXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2k
XaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRd
pF2kXaRdpF2kXaRdvHi0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0
i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SL
tIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLl4x2kXaRdpF2kXaRdpF2kXaRdpF2
kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaR
dpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXZxwvg/cs/eCQ==

           "]]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt2glQlOcdx/FdxIoBCQqoIcYO8UDBeDRK12LzIkaFwduQiCESkEPbFSOU
+wgg4FlQgooYiRCwEbaoeIAUREFZMCooMaiIoK6gLngG0DYx3d03PP/mnewM
43gA/f3nmfnMd3HW3YeX932Hxdx95QJPHZFIlG8sEqnFYDAYDAaDwWAwGAwG
g8FgMBgMBoPBYDCYnj67Niw8962eDffrdnzmfm3pk+odofNZTxc5FJ/zddLa
eXL9hCsDPmI9OuHskqbcRT2+O/b91+34zN2x7x3dsc/aOmZh0tbNTz9k3Wb2
kdeXqYtYQwghhBBCCGFPVbL2u9Li+E+YX9uuMJk1ya3HeNTm5GHdPPKy9VvO
RRJ3CCGEEEIIIYQQQgghhBC+QI0sirxmFnuwXl/bemhrrjfrxukbvpjivZz1
282nMmY4S1nPaO5n9lkvH27T5i1HBg5dxrq7GDegxMK8kto3q+nN1hMr2eOl
SX2r71r6ci21Va51pr5c4I7GjPlL/qZVZWmOS1sg6docYLJjM4QQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCP/XXbKg7NgTZIM0xO6z
dgg756TZpbo+VgHM9e8YyP/qGqhVkSiCa14WxPQ/fy9P6hsMIeyGSp3f7/0P
cQhzaUPygmubIIQQQghhV/Vt+4rKhXvIa3ufzCo7DiGEEHZtmxJT5Hceki3+
NnavDw+FsEcapn/AIMAwjGmQZllz5bF2L7ad/aT1aDgzc5afol9sxCtzzJ6h
Zo++/5x5SeemhTQpEkIIIYQQQgghhBBCCCGEEEIIIYSwx2gdYPrH6y1k4u3p
MxbNjIIQwm7vSPeH0cdCqAsupxaPyqHHOxq+HFMzzWJj91GnOSeMDM6K5grj
jd2GfBPNFdut1TFKXw0hhBBCCCGEEEIIu6hH26O9OJ0YZqEs/JSPO4QQQggh
hBBCCCGEEEIIIYQQQgghhBBCCCGEEEL4Yk06FhI5pnINa4vsp8n7xiWyPn3c
NmWd+TbWBoaKC3MXJ7M28ZPJvrXeznpPep2p/PZ2bpnvzz7VD1ZztcF53u/F
7mQdJ3NQKDN2cZvGhU628onm3ihuWPCnMWlcQqCTxM8+iosqs9LzdUrjJK4f
t96cHcnlJO+r2LQyjVuXfzE1QhbAXfYTx+e6pXMua5RK/4N/4eSmlbKNczK4
gt633LKbvDgnzWRyOr3XjlX09eAOzZSqFnVmTaR47N8zOZl3rEfb3CVcemv9
deOw3Vy/spT+esEzudyQ+3IL6Tec6Jex2ph46ZJlFuuGkmk1kgsy1qc+D23/
1Hwf6/f3eh7q+8Z+1hPtV6tWLn3dds0fKkoOsq7JlW+NMjvMerG8btukDOpr
do+Wlg/MY713jmtZdjX14Dg31cpnLU2Mk1x9/QjrcfZDPj1SRR3plDJl+bgC
en3N/cWy44WsvYsspaPPFbNOnxx6tuHBMdamysVewxxKWRsdiAzbPOoka37/
qa/WqYf6oHL17un/KmMdlT/Pb8BaOesJR6KTXaaWs34aO9dztGEFtSgr3jHo
FOvyNWcmrut7mvZXOviDZN0zrL/sM6gqbAv1a3LLLa0KakVA0ZzQxWfp9V1X
jKgzqmStnLY0fJmMOm6Mh7m+cxXrr7fbVZQWUe9u9Ro/tYXabpWVSZ7dOXp+
Mffm/QPU4//p1/D7P59nvesn2wK5jHqw/sj7H8dU0/Exy3vCzpPfCfb7gtbO
Uo/l9/R+JfE3JIY1rJNM3Zt7nb7I+r1jBttyAmoFz1fHepi4vjAl6Cprl4SS
1lEu9az5aeh0L8gfGqucT/1WW/ak8hHXWIvPe4htBl1nXfXOqjvtV6jLF0ZP
GVF+g/arrVfy6EIFvb/Gk1/ZS24K3g91RLh6qA1jGvvFNFK7eWbrG33YSK/v
tvO0HM8m1sY/vpswcMst+nka3thisO42/TzmVozcIb0j+P+VrDeOLbiVvqGZ
tfUljy9mW7ewTtmuHmrHiP2KQY53Bft/T7C/99FaerLq8I+/IewHgu/PQ9b3
7qqHWs9/Xh//eY9Y1x5eoVrU9e3hqkWtfnZJvPbWnWqkWj+wHu6QqFqd78fr
96oWdX/NtArez/NrN80Fh3qFZgOoU3YvV602Ol+eKNxpPqGddV5Z/ZlhH1Cb
2Ow3ttnfLvh+PUZ3sofIV6kWtebwuqG9bdWHm+4T1prDabj2fmjq+sDUlZo/
H3WdPnNaPU8E+/PvTjd/fFNrrpdZaPRvd8l4g9LxBv8RnP9fXPtoHqDm50c0
ulOtOf1LqH9w+Eq1qPnzJxr9283fT/4kuF6iX1bz99vU/P32y2vN5aiWmp+n
gv5Z0CJbNBqNRqPRaDQajUaj0f9nHSn8ulhraz7fHEBd+WiKalHzvx95dR0U
qB5q/vModE9p/vefwuNTB91Nmv/8mjq1KVi1qPnP89DoZ2v+74GoJ76rnl5d
tvnzGzU/umg0+jm05nLjQM3/PR41fz/x/Jr/PLY3a/7+9NU1f36k5ud3Wps/
Pwm7j+Df66HR3aL/C+2Qdpo=
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt1Qs01GkDx/HB6uaaJEkr7YZ2S7VLkfinJCRnaUupzdJbVO5lXHJPbVHI
8iqtiFZss0Kl3bIuRSgpl5i13oqU1pJc00vs0DvP8555j/N22kt2+/3Oc87n
fOfQmP/8Z1K2dbbYKsxisWZNYrGGxDAMwzAMwzAMwzAMwzAMwzAMwzAMwzAM
wzAMwzAMw7ChvbdGzUq2QYLht2m+7nwveTXSeznnpnbFz//NzX8efvOfh998
29Pl2mw5+qQTQteU3xi36ndv/vPwG74ZJ2x5Xnl8jznpFSzj3HK3tb9785+H
3393LxaJhdfJWBJnh5dtbspcDyGEEEIIIYQQwrfYgBNRbDPRDaSfSA7cNFlt
RTq5V3dadvVmRutA1dXcsM+YpKWOsqaaNhD+Lc3RKcx65yK1duH0DT9o2UII
IYQQQgghhBBCCCGEEMJXNHaVguclHdqri1MWR5X/g7SPje9q0xY70uPCH6zz
S7YnbRk6pr2Ka8/I10+cVXJgK+nR4tMD/s1rrXeSttcW8U/qcmTKdEL2zXTa
yRi2SCi4iDhBOCrdL3NFVfkW7WtabM2KWGfyOL//Kp5RYtcojXch3TlzQVS1
gQt5nN8j2fx5rGHuNdqZl6TGT/3clTw+oCV0r7XZjZkzvbvMp9KN8Tj+6JT5
5t1vjb9cTdvU40G1bmHLHj8CIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE
EEI4ekzgeJ7ZV0C97+C9zOUZhBDuZh41+GorL3cnHSttrK58lPbKYuk5Lifd
majYFYtcTN1Jv66PvcOeOwawSYfMFS/aae1BHuc3/HMccDtkrWbvSXr3ioGa
FFcvhsXyY1p4j7tXtF10cPOCEEII/1AdNhiInhbyJm65f9SiPgJCCCGEEEII
4Z/tTKOSW2tSqfVnn5tey4cQQgghhHB0Gnz2ZrBKLe2QSKdBE7E9TFNkbFFz
hzfT6q6zTOr9PRBC+NbpI3ZOnC3pQxQ/+UFNXS98VStksuLv9lO5tiFVtwN9
ifL6lUvzhf3+b78p7xomRTYtp/216a5GiX3/2/yf4zeEr+MY4Y+KlUJpc6x7
1nHV/EkPLJDavUslgJmT+q5CZ7U/45wRVHQwIID5UfihqkMUhBBCCCGEEEII
IYQQQgghhBBCCEeDeQdVjrHjaCu+WJfS0hPALGRPXtTQGsBE/rzCcP3KQAgh
hBBCot75aY77LWlXzClOfRISyKjYdgTleQcyl2pP5KqlQQhfR8/7U859eSSI
6B116NMvQvcSc5cdEJZOhBBCCCGEEEIIIYQQjgZ9s3ucWGVUH9f2innqwcRs
ju91J1sIIYQQQgghhBBCCCGEEEIIIYQQQgghhBC+Se0t0q0u59Ke3NvQPHb6
PtKejY8z05Rp75lRe72h+wvS7OirMRraobS9nFVC3Q6RvvJsjNvpxsOkCyy/
fxg1Ppy0dH+eVH8ebdbwIkhvCJxfETaZto2Iea30wgjG5cr2+qcWAYxeiJOj
gWUEc0XC75/b+9mM5OEn5kuDaW8rdF0upHmEtOHtjGjRB0eYqHq77uASR6aq
fYaXvHokI9z1rqhZvyWj4mBikLDkS0Zjet4qbw1dRi7HZHKOSTRpeQ/XKR6u
MaR7675bN0H12H/+bhbrx4+lo8NaaP/7lxTLqVNiSSuc0ucd2kttBzm6WbR9
xgUZWwvFkU4zsPosSC+B9MThnSRdofBtucK3tF/M7j5dFZ9I2n7eyR+Ce2jn
LFHe3nQjiTTHzuy2V80p0qaOKS7+C74mvUlnfo1kKW3PO4Ol1THJpM0KN8lO
lThN+gPxierh2rSbLJTiZk1JIb3rpmhBpeQ3pL+qv2HmZn6Gvv7mQt7hkJYa
3lnSB4aXLvD6M0hHvm/MO5mkK+e9qJj3graG0V7eOU967fAuCLxe2odXdo6d
Fp5FOmXvYt75jrRfasKdmAmXSOvliceksS+TVixy5Z3sETvsgRbv5JB+ubwR
u6R4aLRlNrZO3NiaL/D6r4zY+zcq9s2xpV287baOltxV0rI6GZN0MmiHxHEP
xnH/qxPVeKeA/j5ncO6kbbQfnw80m/a4QOD6FtL7x2NoRaRjjw2t5JV7d+KO
9wxUr5MuijBzDhikPXDW8pNrYTdIO3DvFSbMLCUtnOnmHsChLW1xt6tV/ib9
eY/6OoMG2rc6lwwdgffjtsD9SPvl57Nc4P6kfaLJi3cq6PO9U+FxuZh2upFc
9qB4Jb1fPx5apcD1oP3N8KoErved1+79NvK8U03v72VfRcdL15A2MLrAEXGk
fbTdaOuOVtoFQuGM4lMu6cXDH5ha0v05bX05bT+R7jKO55060gutkjStkv4l
cP3vCVz/+3/Zzg8UGSupSFuuZv2mLa71Au/HA4H3t5F+fpJz9S/ufEi6rE82
Rjz/EenEC30uYmqPSTsFFetyu2g3ztY/IdP4M+kOd8m85Opm+u+zZA8babeQ
bq3UGzqkx1gliFol0L42/IVN++X3dZvA63/61rZWal8HN4S226J7H9o5tZP+
yNnOqPQn2ukf1oiVszro51/1xkoNI9rlC24m9ETRzhkebZHhdQp8f9D+tM93
TZ8v7Us2jd/bNNLe8SQoN2RSF/3/4NjcHZo5tBXuKc0+WtpN7ze7lIwZa3vo
5/nMZvVP9tH20WjK4ko8I519eWjPBK5X74j9K/u/rCs=
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt0X9M1HUcx/ELfyJQRNjIKQwrxbTEUqSgfQQBKa8anE4kVIIsxo+T0LuD
45eIKEHjl5gBBYhQM0lKlpRiJ2lotSCR+SsjYRCZsAKdRLFq/fH9fDf/0rZM
xvP5z2Ov9+7uj/u4RmwIXm+l0Wgevk+j+UciIiIiIiIiIiIiIiIiIiIiIiIi
IiIiIiIiIiIiItJoHtS5hTp22Qlla5uedk9ycpM7s7b+gWsV7nIvSEv2Dpzx
uNwnS8wauxhfuStzdae+nrycfYtbeQePj9+3/dasFco7nBmqHnhnYbBQ3sFf
84zlVMJKobyDspV3ULbyuzfuhhM2+RcdVsk9J79lbe+BEPYNe0rk8Omy5CC5
lf/x327lf1c2IiIiIiIiIoYIz+z2Y5a8NdI9S+IctYteQvxP/Mzri4PjG1Qv
eMxYfcQzAhERERERERERERERccx6ZMELurAMddt/Ehyo7XpZ7vBOh8og06vy
c9oJ401xr0SJX1f61GjWrRercicOtJ+LkndlK7Z45WTN1MfIHdBnNy1+nF7e
lY2j020On892bVV3s6dxUVvpBnlXtuI+F+NZF+t4uY8vDC//Iz9e3ke6dNHO
TyWIRT/kTi8OShDe33dXzK3ZKExlP1YHrd0kAq4sD2uetEnu2+WVY/vDrpvU
va7P6FhWqN6VjYiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIg4VqysTdyXdVz1
UqzZN34IEUeDBbrsQ40eBlFc6r84XmsQfhm6usZcg1h20n5e/G7Vn8x5w3Gb
jdKcR21PxKwzjVktJX5be3aZRHlM5crqSJNwedGxpGpuomg7e87B+W2TCG96
bsXekUR5N7T90hCbkCTvykZExDvD2NV+E967yyyNvPRWcGcBIiIiIiLeCc4M
/LJVt1e1s25Y29yEiIiIiDdrb1HpiZ8HVfsNXr73PJSMiHjbTbGptzXenSK1
3f3I2Yu/jR7bHA5WdIyohtY2+Ya6pkpLc6bUPVul6uRzekmTVZq0I2BPUe9S
1Rrtxm67LPy/LPX5M+sjTbqYt9d52tUz6cK+tX3N8jmbxXmrntmxxYiIiIiI
iIiIiIiIiIiIiDga9TBOXdzVr1p02T8gZFkGIiIi3oKzIga3HDWrHrpQbnHb
jzg2/GBcwUQH7y3SaGvr31NcMqXm4jdWbM9VtfhmW9lXISIiIiIiIiIiImaK
1Mbrek2LasprA23zH9sqbaxN/UofgYiIiIiIiIiIiIiIiIiIiIiIiIiIN2tU
8Iehhy3qHv/X/DfrjdvkDk0S5ieez5W7e4LlVPflPPm9vvlRUw815IvohMGW
7ddeF30Vhm/0UwtFtt6mq0NfKPqGPnV3CdghZn3nf963b4c4c3VSbVb/ThHe
82Ta4bSd4oCh9WTb0lJReXTDu07pu8T0e+/XTx6pkPtvLc7EbA==
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt3Xk0Vev/B3CkkJKkSCjNShKNUp+SDN1SSZLMU6LMJURIxmSMkESKUIYk
[encoded data, 6840 characters]
88d3/h8ZjOhk
           "]]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt3Q9Q1vUBx3FCJ4qmJigMzMSwR8V/pVHM8lFEEgeIohvcCMIhoAOkhawl
kA8yQG0iaDBJRMgklP8iESAKIRClIv4JSA0JjREksKEyxYaQ3+/tuXvumGeX
a+/X/e4+9z5Pfc7f93t65x2YrF6/Yo22lpbWZD0trXsLAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAPMr2h2/vcu54Qnm/C9eWqL7fpRCdGRr39iyrF0R3
XZ775ohWpeipBU0dia4LRX8xODPFosJS/vicuolfeS8WvdF9UHyY7hLRFrW+
7wwNtBF907425J0rS0X7FNeejq+2F90R67PjnNty0SNsk4ZYNcnWTT90ofS2
o+g2J9Xsmu2rRA//Z0rFxYm/lZ8v6pTrNzlOD9x+IWFDn41xFV1v/qTz0RdX
/9fd/+suUf5nOz1w3/9c95sd2OYmLhzX3ii7dbDfgjMGHqJXvNb0jFmqbA+j
adkOgzxF+254rLTqN16io0YZn3V0k313uv8695uyRztfzHh+sb/o23Wr19yy
DhA94+vWIhufAOXnEb8o6U73Vbq1Buq/Fx3AsizLsizLsizLsizLsizLsizL
sizLsizLsizLsizLsizLsizLsizLsizLsizLsuwjvLF2DqmfNMpeMH1WdJNd
oOgDJt/ML9z0pujB9XP32Q16S7R3cG5QR4jsSUs+Pe2YKtvpyKUstxc2iq4u
KNHvTpNde9RkxKZLshuOqwbpjAwSfSPdsnzmG0FK92sRc+ZH/0kZflJlZeYT
In4fH1WnnvnSTcqqenf7ZV3ByjrtqwqfXZtYlmXZ/7HVGTvH//JmlejnFap8
hzdCRbfsea6jMlL23jFNUxfulZ0xzTx2ysTNoo9ZRmqPTt6s/DzZfOx841DR
P9VOH6a86vtYmGizYgubBPcwZfHNUE+ldpiyKC24ym81y7Isy7Isy7Isy7Is
+3PddVvf9v/29b/80AFKA2/VOG9VuPj632UB1hampbL9VcNdGrQjRI/XK/WL
tZZtYfvHylDjSNGlevNr3rfdIrpuzuh3t7fK3qW4YxqZsFV03pbPmovubhN9
56Vcm7SZfxV9tyzh13MNo0Tv0E2994geNX5RvoF5tOjHFRvcJvxOc/cs2X/9
QqHsaXYFE7ZuiRGtv9LzooPpTtHryhMjDA/LLoqPMvcze1e0h8lw50rLWI1d
7Jj3omJFnOhf5r38/emnd4tOqnp1uYNPvOgpmUlF4Z2ytQwjQlyHvSf63JNx
B+M8Zff/f5fsG8d3G742ao98XxWv9z4P3mP+ERheVpQgOsvdKnbZ8kTR01cM
2et3Una/faIn+F5OyfeQfaDLc/bCNtlP9EkSvcBwbYVumGwfRXZCWWCyaFfL
jcPaJu8XvbtyrSIt+QPRl+aFdGu3y45JbTNviT8gv3+AvVv5obMpog3D3Xuf
DwfcdVE9tVE9suN335OqsT3DtDpyCmTPiAoLnep1UO19y55UuKX1mZxDau8j
TWMndL7S+6TLP+8+GRp75wQ7nfYY2UOfCmov0cnU2OsdkzbYzJZ9IaL8X9VO
sr9d9Ptg77RMtfefJTqyT5ba+84ecK8sH2uxxkV27EYj949TZOtXZ3f73ZId
Y2rT++Ro7LOzempm9cjWn5etNy/78EPrypTMGSPH5crvL6Gf8cqVt2Q356rs
jZtlr+pzZMBtb17nsdMuT7S1wasBZxZ/pLH7z7vs/vOcr3aeZfef349/tA5J
3Xc+TrdAtFWuqdfIj2Tfyc1uPrasUPS2wjbtrHzZ2SUnhhgYF6ndh4fXi5fr
9z5HRZcHtZwIapE9O66tOG1Rseggg6QPynfIdokq7ZrickztPhz/0br/fsmu
MUo/Y5Reonb+Sx/Z7pnalXIuUXZnUor24fxP5N8Hztu33gotE53R7R79XLvs
/vtx4qF1//0qV7tPFRrb3+l2+JH1lWrn/dNHtk8tzVmlXynbz3nPjUk5VaK/
zPPtfT6T97H4+u3i67KtdRQGTxmfFJ3/9HeR8xpPqZ3P6v/btuk74GfUznuN
xv7arLjRrFi2VZ9zaufz/E/WNc62Xs8myHZwXfTnx6/Krlcq/t6id0H+/PG5
12zLZL+/bWZBc/IXooNHnKpoCKoVvbQufle6TZ3aeX14/asPN/c+9Wrn+UvR
Rn3/wL0oeozJ+ZyRuZdEh3caVf1hyldq77uB/pl2cohXQ87Lsl28dH2u3JS9
MvSlyZWOjWr3tUnt/lwdcB/sc030LWv9vwWsa1Hr79Q+bzv9g38DWawcWA==

           "]]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt3Qk8VV3fN3BTaJJQZGpSKiWVpIG/BpqLRpUipMFQhkSpECUkmSlzInNk
[encoded data, 11100 characters]
hVn0y3h0PuTedax714H9fwDSeVJu
           "]]}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
         "\"X2 Noise \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}, {
         FormBox[
         "\"X2 Noise \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}},
      FrameStyle->{
        Directive[Bold, 15], 
        Directive[Bold, 15]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->{516., Automatic},
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
        StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
        TraditionalForm],
      PlotRange->{{-0.5, 3}, {-0.5, 3}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic},
      ImageCache->GraphicsData["CompressedBitmap", "\<\
[encoded data, 8880 characters]
KkphWockt/Z55dwrg5pNArUJlzrJePik9tTZsv8HZHn3qg==\
\>"]]},
    {
     GraphicsBox[{{}, {{
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJxd2V3s9/Ucx/FLQhJCDpyEOYkDMxx0IMxJDthoNiedsLnZHMiWzeKgg3Lg
QB10ILPGalObXauVKROXitxUJN1QUSFRyE1Jbvf/PD69n9P/5LG1q9/1+36f
39fv+/3/rle+/6OnfeCoQ4cOvfPoQ4cO9HPft57y8Kn3n3XC4V+Op5933WMn
nZ7H3nnxGaccm1efeO7D7776F+MH10+esF4oD17lvOvuHT92ysEr5csPXubE
vPmmg597xk+uF8pXrzeW623defe4XubcfMP6yYOjPPX+n4/rMM/LN68DzUcO
Xubhn42fv/DgJ9++XigfPzjMx+4aLzl4WxfnaevEpQ6pw52jDqlD6nDHqEPq
kDrcPq63dUaulzkxV4abfjrqkDqkt3XbqEPqkDr8ZDx/vbHUIXW4ddQhdUgd
fjzqkDqkDum8/2h0nm8Zndd0Hm8enbebxvU2Tspz1nn54fjAOg8/GB13Os7v
j47re6PjSNfRjaPrJl0n3x1dF98ZXQe53tZZN4x3rM7Xj69fXVPH60bdvj3q
lLocGXVI5/2bo/N87ei8fmO8b73Rr4+fW+ftmvFdXmg8Zp2Xr41H1tv+6vip
ddxXjW9cx3nl6LiuGB3H5aO/5vDofX5l9L4uG72PL4+fWH/vJeND6+/50nj5
et2LxvPX61w4nr3+vwvGI+vPfXb03895mmeOh572s//7W/7fc8b9uuP+e8cv
el+jP3fR+KjjGv1/l4zHOy+j17lsfJ3zOnrdw+Oluoz+nivGk3Udnferxn1d
jPu6Gfd1Ne7rbtzX5biv23Ff1+O+7se9i3HvZty7Gvfuxr3L0XV8/XiXXY+u
+xvGV/hcGG/wuTF+2OfKeJzPnfFyn0vje3xujU/4XBu/4HNvfJPPxdF5zP25
Ou7P3XF/Lo/7c3vcn+vj/twf931h3PeNcd9Xxn3fGfd9adz3rXHf18Z93xv3
fXHc983RfSR1vW38tPvyqHO+xn191D1v8Vwwug5uH/dzxbifO8b9XDLu55Zx
P9eM+7ln3M9F435uGvdz1bifu8b9XDbu57ZxP9eN+7lv3M+F435uHHVIHVKH
u0cdUofU4Z5Rh9Qhdbh31CH3c/m4n9vH/Vw/7uf+cf9eMO7fG8b9e8W4f+8Y
HUfqko4rdUqzTd3Sc8v9o47pPKSu6bykzuk8PTDqns5bug7SeUzXRTqvvxpd
J+k8p+smnfd0HaUOvx51SB1Sh9QhXXepQ+rwm1GH1CF1SB1Sh9ThwVGH1CF1
SB1Sh9Tht6MOqUPqkDqkDqnDQ6MOqUPqkDqkDqlD6vC7UYfUIXVIHVKH1OH3
ow6pQ+qQOqQOqcPDow6pQ+qQOqQOqcMjow6pQ+qQOqQOqUPq8IdRh9QhdUgd
UofU4Y+jDqlD6pA6pA6pw59GHVKH1CF1SB1Sh0fHl64/mL6HSMeVOuWH1nGm
7zXScaeO6Tyk763SbSZ1Tufpz6PvwdL3JOk6SOcxfa+WvndJ10k6z3n9um7S
Y1a6jlKHv4w6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6/HXUIXVIHVKH1CF1SB1S
h9QhdUgdUoe/jTqkDqlD6pA6pA6pQ+qQOqQOqUPqkDo8NuqQOqQOqUPqkDqk
DqlD6pA6pA6pw+OjDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDn8fdUgdUofUIXVI
HVKH1CF1SB1Sh9ThidF9MN3XU4fUId0n030/dUgdUof0e0y6r6YOqcM/Rs8N
6b6bOqQO6bki3ZdTh9QhPXek+3bqkDo8OeqQOqQOqUPqkDqkDqlD6pCe01KH
1CF1+OeoQ+qQOqQOqUPqkDqkDqlD6pA6pA7/GnVIHVKH1CF1SB1Sh9QhdUgd
UofUIXX496hD6pA6pA6pQ+qQOqQOqUPqkDqkDv8ZdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdfjvqEPqkDqkDqlD6pA6pA6pQ+qQOuT+Z4+3PqXjSPf1dF9M9/l0
n0zd0nGnjuk8pOeCdF9NzwnpPpv+HTydt3QdpPOYrot0X07PGek+nZ470nlP
11HK8IxRh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh6NGHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofU
IXVIHZ456pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqk
DqlD6nD0qEPqkDqkDqlD6pA6pA6pQ+qQOqQOqUN6bkgdUofUIXVIHVKH1CF1
SB1Sh9ThWaMOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOzx51SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVI
HVKH1CF1eM6oQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD
6pA6pA6pwzGjDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQO
qUPqkDqkDs8ddUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdTh21CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofU
IXVIHVKH1OF5o9OWOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkNesDqlD
6pA6pA6pQ+qQOhw36pC+V0zfy6XvGdP3dKlD6pA6pA7pe8n0vV76njJ9z5c6
pA6pQ+qQdpG+F0z/LpO+J0zfe6YOqUPq8PxRh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1ShxeMOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqUPqkDqkDqlD+neA1CF1SB1Sh9ThhaMOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOx4++Bkld0mlK9/lcx/mydN/P
ddyvSs8BuV7mtem5INd5OTl1znWffVvqnuu++450HeQ6zPem6yLXy7wvPWfk
Os8fSc8duc77x9NzSK4MZ6fnklyH+Zn0PWmuDhek6y5Xh4vSdZirw6XpusyV
4cp0nebqcG167snV4cb0HJSrw63puShXh3vSc1KuDg+m6z5Xh0fTDnJ1eDLt
4kWjXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2k
XaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRd
pF2kXaRdpF2kXaRdvHi0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0
i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SL
tIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLl4x2kXaRdpF2kXaRdpF2kXaRdpF2
kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaR
dpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXZxwvg/cs/eCQ==

           "]]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt2AtQ1VUewPELptLCSqIIbeUg4kxtuybZw0Q8WO2URogJiEZYuhIgKcHy
EkUeKsgoSWGIAy6QgOKaCioPZwoQXy2Jkrq0mAu6tr4oEQmQcPZy/9s5691h
hnFrE/b7nd8M87kzd+b+zz3//3DumAVLX1tkqtPpSkfodD1/iYiIiIiIiIiI
iIiIiIiIiIiIiGjgFLEqZeTakDfFnQ7+v3NeoK7aVfe0uNO/w3hAepqXj3mJ
+UvSPuabHHIqX5H+66mI7+yC3AaM94olz+ZschfrjviW2bVGiVtp2a2OXbOE
+2qbJ86WxfU/pz9mUxDkKd25uWjyw+e8McYYY4zxPeoX254/mbTgDeG0qLw4
9jexwiPUZ32OzQLxSnJ58IypK0TT1Fq/o04LMcYY43vaqwIuVT/QvFDU7HnG
bfyecPFomsnYuVt+L1y/LHrcyiEYY4wxxhhjjDHGGGOMMcYYY4wxxrjfe8Px
cZutMv3Eq5EZNm62waLTbMbwmgx/4WYTOyjZAmOMMcYYY4wxxhhjjDHGP4Vr
Bl2On1gaIL3lduLNzWcCxYlGq6sHDoVKzy7Mq2uOibhr51p+sHSW8zLp63+I
tdjXtbxXj6462WSTsELa1XJsybJfxAx4m1vnWd+6sFg68vGqZ+a2BPXqQz6J
X2d5viNtleL64fmyu/ezG1NNpjkukb6UYNmU7h8snVtWbN64/N2fzW7Xro57
IVO5c7SDS/4BjDHGGGOMMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOM
McYY/7sz5zu7xM8NkZ6a7eXi2967j3oWdpi/Gio9y/z27rJcjPvmktW2mRUT
w0RTatz4Y4nR4hHdxMQj1eEifGRjns3gqP/wgu1r/uQ4PELsN71qXX04UtRN
9XGYsy1CtF1vWx2cFCm6fn0u3KoVY4wxxhhjjAeeo/ODXw/IixTuT9p2HraI
EF1jBrlUzIkSO0InBz2SGoYxxhhjjDHGGGOM7zG/3DA9u6RgmUjyT0r2+GyF
2Ji2QberPVoUjV986pBJAsa4H/l6yAejg/ctF8O+muRk6xcnfAsLDsaErxR1
o3754um0lcJsnmXWu4Fx0nOerBrZbRMvbtiW3/fExRDpGUGZ1mPPeIspi+6/
+Jelyvab3PcVHcEYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOMf1p77gy0
d26MF8f93jrfMHOhqLcb4RG/PkFEpN98Lv+pQPHYyhxbZ/tVGGPc730l2/Eh
nw7ljqy347z3rJF++gXfyUnfJEoHfDmzeF1QsnTz9tzdw+akSqesqixvyEiT
rv90d8nlduVwv9jcEqeN0vN2eu04HfiD5wnT+2cs7ahV9j12fNkGl3Sh+1db
/hHVM9KFbuWHsz/PlS4e8qn9R10fSXff/GKm6N4q7WkoT3r/m+b6yZe+NM3x
2CfOBdLRDfPnlj+8TXqn75bCCrcd0paGdknvTT/h+3z0HukPu7Zfm25fLB1k
UmSTt1I5tMDv0ZhK5bKtlbuchu6V/pXjktlHWpSbxwR87xG+X9rD3/RgcWOp
tKiwSP84/IB0yoVJ+vlEuj7+t/qpkH7Dv2Z0w0NV0q8VLR4x7sBh6c0ZPR2T
dvf/zDKqTTk/yav67K0/S49t9o6bUHdcWutErzZLDNaP8pnZzqdnO5+UHjW/
xXp+i/L7DtP1Uydd1LVeP8o5JuvM/nZNedIm+z+GJXyh9ouhU9IxK3o6Lf3x
Whf9nJHeljBZP/XSr+8erJ8G6bO13T0j7XatWj/njK63UTrSkLKJoSbpqlFB
laOClJ8zfIHKrqm15ZUjz0vHjyswt/NWPlpqdyF+3QX1fp8hy0NK/66+3/Nv
p3U8eFHay3A/KO8wrM/X0p/X9HTJaD9c7rPtDV2RNmzHlKvSWTde0k+z0f30
rdH6Xb9n7GdI+dtvelJOMtRi9P4b0tMNG9jIW2/cuX4Ptko/NbEnZbMw96Fh
7sodke+1R76nnJxVvzarXlm7X25KT6lt1Y+y9jxskz73VU9tRtf7nfSwK9n6
UW7Y/45+2o2ut+NHs+Hjv99htH6dfbbhcqcoR0b01HnnemfcvbX7o9NoPW8Z
PW9wX101weLgBIsuo/2lvMTwgrLW9/h/ZO15oKzt/757uKFuo/uld79lu0Y/
yobt0HDb6PPpXDDGGGOMMcY/nJ+VtfOwibR2HlbWzrcD19p5RFnLFPfR2vlM
WTu/Y4zxf2/t93Rl7ffvQb1ae74ra92HMe6H1p4Hytr/G4Pxz2Tt+1DWGmLk
oUY2wxhjjH9U/xO4HtTd
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt03tQlmUeh3HQrTwnyMa7FngAHYFKRQMPwI2mxUlEFxVK1EVARJBXQTCV
o4BIDAqogSKBJS2SEYgY6LKsiaTSKqYQpIxgmAe0NtQEyhasuZ8ZZpxxJ0k2
rmu+M898/nue37zvCHf/uZ69NDQ0Rg3R0Oh4EhERERERERERERERERERERER
ERERERE9iSpeby7YotIWwVEJOptXLxEpFpZ56pjJv1ot9vpoHHPQmIkxxj3O
pcMsLpoV2krXngu+O9zXEeM/pAvESvPMFCehNvYL/WZrgGjdltE8vm2O8D5j
f3VmblC3cZSfpUGYVoi0U7Tu2AtFEbiHuapoX8k0o79K59cVbJ6zwPl389wy
v5QvPBXHF9X7nYyZJ/1tZdK+Xanzpb88vPulfkcWSLfszJ/yQp0LxhhjjDHG
GOPf2fG2Q1/qN26hmOpZfCD8xXChNah+8KD6JcI+rlhtZxUi1o31tghMd5eu
tzrt9dnUpRhjjDHGGHdLRy2/emzwzaWiIs/M8eW8IDFmm6aBa7qHcKjJN9E2
VGOMMcYYY4wxxhhjjDHGGGOMMcb4CXj1ZMNK63pPMWttqq6jSi1qA2xsWuuW
CUfd8N5xA9SipY+dVkWqN8YYY4wxxhhjjDHGGGOMMX5EN9hm342/qrgirs+F
WebLH9kHZ9h4337aRwxqcco2N18v0u9vur2zykcsu7n1g+/HbcQY/w/W73X+
/K6LK6TjVd/fbb3uK73W5KiZ63/+uC5buOnK7nl+0toJDjsainBXO2ZKoqbq
+Qhph2cNDq3rF9rldh4Xkn1qw0rpoDlPveKWoJbeU3Sg/6UNqzDuEjs23Rj1
apriFn1D66zDGGOMMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHG3cdpiy2t
I11XS1tlzLde9EPPsVHTDSN7iwDp/EzRcC8xQDQ0vn3deE2YmNP//sdFewKE
xaLWhJv+4RjjHuxD0aq00glrpPU0JmwqPxaEH9FDSpa1DmsKEoXz71SOKtgg
lhkXxat0gsWd7+5Eq2PXirIvz+d80o3tvvfGKtehigsDNEPcpyqeeMY/7db7
ituM64K0mzHGGGOMMcYYY9yTvT5L/ebyvWuFk6mq5fiAYNE2ord16YK3RE7A
FF+9xDUYY4wxxhhjjDHGGOMn6CTvuaEGo9ZJl5v3O7S493ppr9LVeZN0Hp/N
qlNODrRUHDuzsHV8huIBu/drRdT+dsd6x8Y5nwyRzn95xbkyzY2/2WdUw/qq
rinevm2rRu4PGGOMcde6zzdmmbZHQsWgi5OmqrwihLep9l/02sLF2ecGzji/
LUz8KXTfrgzbCOnRB9R6h4sVLzA9qvOTbiR+zE5Q991+tipI2q3RN8fF0UPa
zjftzwZVLsLCs29jtb/ikSlOB/PLMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhj
/CQ9b7/PSMtLimOPRm0pvxcp/u31t4avZi+VDn7n9uSsiT7d3o4/RVb+bLFR
Ov1NrR3FlYqNwjJVliOjMMYYY4ylJ9mHvfZMQbT0x26zy4s/jZUe+v609sVJ
Xyhza1+89Olmi/ZtkY5JLh67Zf9WaSuDXSu1shOljd87XmhekCSdq/eP50ff
TZa2cxtbLJ7ZIR04rijDPiNVuqkpPdLtjd3SUc9a3bu08V3pD02zw19cnCHt
cXTzPz96I1PYxZ8KqNL0Epojn4rVGb5HaD9XZzL5squ43fH6p98T14yCf/QY
Yy2qTANLV27ZK12nmj19zNNZQuPXQvJckhaf+EC6tl9gYKNNjvTwtrxhbXm5
0hMedEDa0azGI3lWofR4/2U2FV8VSb9Qvqp9Rx7qhMuT2lci/UulD/X0PiOi
Bk9XvGTNzyYnshRbtST1Lxn9L2kf/ZoP37miOMnQtn1HH+rRR0Ijtnspfi35
00zfHMXFQ4xLvQYdk251XqH599ll0vMepLi1ev67YX6Kw/VNavqOPC59bsP+
dL1e5dJql7aYg/6fSe9M7ejEQz1gkaVuaW6FtHWi2q654XSn+515bLbZOLF9
inv5Vn+Rd0txYOVMXbfASukfP9m8o+aU4rfd+ztbmp2VvmxS0mBSonjGg851
uuf5LvPa4I6qO923Rvrzio5qO/1eL0i/7lV53TBacVFkysJpDnWd7nep2/iX
76vvdO+vO92n8bF534OuSC969a2Bja9c7eTryv/3WnL7mqSr3O4v/Hz6LemU
QB/9rz/6ttP3ffd/4/8CuQqF3w==
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzty39Qzwccx/EvbjbKrxa+Tg35sYk1rIWUd27yo/JdlkiMm5Qk+ZJ+//r2
Lb9dcgtJqFCn5lIK4XZdSm5sMyONrZNd5keZRKhpP+7m8/1jtzO722Q9n/e+
e93jj/eABcs+9G6vUqkGv65S/b5ERERERERERERERERERERERERERERERERE
RERERNT66+NwWO1w2EOeOn7vzf77v/BXHBKfYLpuhbbN++zkhoJNahN56mQ7
+zzt6rGK9/mpSl1Ujhhj/J+7uJ/d9zaHpyq+fCGksb+/BuN/xQUSMDo92VVx
U1Jaw8jm6aK1XBr9Y2KgYt9zzjccc4MVxy+1HxjTI0qx66re73xXFItbmSuK
sj+bMNRNcX5Vwbrps2YoftU8b6K9zuDOZn0TE9PdFVce3/l25xOzFD9Oybc1
q/LAGGOMMcYYtwJbld3akVMyT8Z5HzukG64TpzkH7+WXLxDn9ce0TuOjpHr8
Vz6nx3lhjDHGGOO/6fjFN0q713nJ2TwbjVVesLyV1G7g7F0LxeXb/GEmg7QY
Y4wxxhhjjDHGGGOMMcYYY4wxfgmc0d35ijbbYM3k0rDS2T4yLXR7b41aK3av
7B7j4+wrmt66DuuNtfL4NaceZ7djjDHGGGOMMcYYY4wxxhi3XZulmU/qVmxw
x+rIYee6LpZJWWMkIGylFE6c4nu/o5+oK46e7FAfLrta1txPqfCTuyt1xoXN
kfhl8Sc3tvpc0ileVJeYdW9EHH6GjXru69n0wxLFocNKbGbX+/9jl81dc32n
+1LFJgkuW68V4ef1atvN7dR9Y2XGiKj9ZyIDxKXbwCPhnaPF6smhI0EeWsWe
3gsSHk1arjij6JDR1Uj8oqypvT34/VSDH78xyCHzOMYYY4wxxhhjjDHGGGOM
McYYY4wxxhhjjDHGGGOMMcYY//+dOt/eQT97heLxaTMd5j18cT7tnv3IaFqg
XKvZcMsyKEamG7UcLMoIFLt5TQl1y3QY41ZsS896m8ASgxMvGFmEuwUpNle9
u6a8NLjV+/DMB18PLoiU5f7xfYprg+XB3QertGtDpazyYs5R05C/9NV2nptr
4gxutqwKNmnAGGOMMcYYY4zbtiMytXMW7wsV11Hqx6eMQ6R5QAeH4llhkhNo
62++OQhjjDHGGGOMMcYYY9yGPaL+WOjP74Ur9ilekTfGNEJxkVVi9dyQCFnr
u3b9jM+jxHjngR6xlyMk32rJhbJ2cXJO3a+T+qbBW5ISVbkPMcYYv2h37Rtz
59Mmg6dUhwY36qNlx+6ZAQ0lsZI+MzlpaoZOGqcNuuj4pk7WL6pMGe0fK+d7
dZl4MSlGZo0qMX3SW9/mnKDttOV8RbDYeXequbRMLx/V+Od4aBaKRbJrYX65
Xpz8U3sOrPDAGGOMMcYYY4wxxhhjjDHGGGOMMcYYY4wxxs+w+wE/C/urevnS
5+NrVz7wkrUl8ZvKH+klZNv9sZnWfn9yWaH1kPClcYp7mZ68Zd0+XvHQmHS1
vQXGGGOMn8dp+tjk6gmrFZuVL//tNkpjTlVm7p1oGfJTS67tqkSZvLNujnXT
RvH5pX2907rNytaau3WIKE+SZovsoEbHJNlxwk1zx3G7uJsVXHcp3SrRLZmV
I7qlSv8zXuo9tdvEOMz7dpZnmrTvciSjpjDlj/+9EhE8oHrbyDTJ1cw/lfNN
liyw3XBzeOYe+RX2BA5Y
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt3X9UzXccx/Ebi1LHTb+Noh/yIz/aD+xU86b5mSRlqCbEMFrdyiq1UyrR
D+sn/VpJP6Zytdu9asivEhXTihsKa8Z+3DkNB6Gl2b3V93PPchzONjv+eD3P
+5zveXQ69f28P9W/mXj6OH/cj8fjjdLh8RRPhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC
CCGEEI+31n3JhsuDxxLn4CX6LYfet2NWqwnPi1zpQH4G42Sj+Opk6P3UzOia
E008OaDilp4NRYwcLZCuciHu86rujHhP09uVYqqvCP8oc6JYC1vVrJiVZDrz
DclNGxca7lI62PGCJ81bFPnZ1LFLKfWHkqKB0aupI1NiPbx1GU0X3e26praB
2aFFYqltLqCmkqXLXL1cmUPefNi0UuLOzH0fzr/JCje2n/Nk/nFaw9o6m9XM
usWX1U1mKM29B2e1PcdXP3pnDfOYnSpmrrthGIZhGIbhl3Xid6MytbPW0oKg
DANHQwF1qNkPOZexnhwNtvSP1YRhGP7vfHJObvB52shsPdNVZGnvTQtSFi2P
0AikJY++1595zJsc+GYHgweF0v7YC5oXEwXMHcbm0/ce8YVhGIZhGIZhGIZh
GIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZhGIZh+BXa
qvBGqJ6rH4WEz7mZ4R5C4WHf2hUJ/cnpXunZnZlBtGFD8tQl+Zuo/W57lCA6
iN5MH5Cw2SuAuXNca4D2/cDXzk5vG3bUaAYyC/2tvYySPiNn/qjqnxcGMV+I
PVho228zc6dJ/+mVS+H/235Hy9TDbJRe7DYuzaF5E/NGn9V5u6/70xSJxR1t
x8/Ja7Q4+1SAH13SS7y8KziMIqzHfPDF+PU0YJB+9YFft5C9V5ae2aVldOZq
dIb7ighm03SnckktDMMwDMMwDMMwDMMwDMMwDMMwDMMvY0HTsadn25V28XAJ
PBoQyWyb8Kv1J5OjmE+fDrQKq9/OPOQnYwvzhzHMPMPtoR7qccxNRmn70tYq
HdjmkxH38w7mERqNxhqN8eQXKfQcH7qKtHgq8kmk8qR1AW8M8CHpiZJDHg8S
ySLd/a3Z9YEUWf/pHY+GJKrT8GlbrBJOKqaq0bojk2n+CPOB5blRlGw+TzF0
3ER2Kk43mjm29XaTJDuG0r/Ub5X4J1Nuse9GvcxYaouLkWmdTKExotyj2+7F
UtGUZo+CA7vYOQwrHQwqHdLYOTLvzFQMO0f2vTmKoTMqif77reOJ310Oc0tM
dnNM9h7ms0N99e0X5tLZ2zM2ZbTFk7Xp423Ol3LZuXveN4+dmzN37q6x7YVN
OXns3J4GxuGJ/fLZOfm2N3M+slJ6d42XSdgvSsvKwh2HyQpon2NFzZ76ZPqw
u6+oa9qE838O20lT3PInu+UrnaYlStUS7aWi+PwVT0JTKf13O/kUMY9c8/2t
BtV9zE/KxLITC4XMjRVVuh37hX32tp+y6lsU07uXr8m4Q2TUIcqmintb1mRb
iijFeMHAu8m7SS1ipHxKaSt/2uPrkTlkHztjR7JnKaltF8hnD/0Zr5NzpUTp
WfyQfOcHSg/pTvxCOw/dtWjorlxmbu+cQzd7zWoU5JF2i6Ywa6yYpidFmQ0p
yKOat3WuTk0Q04kZg7fpSeUOW2dXVSNh1rUR69iIDzDvLLyRUnjjAK2flHts
68M8KuuJpk0ulv3gkt97H+X07txI+RQwc/f0sF2R0obdHaKCCZ/Mv5K8l9xL
VeVzhOLd+E/9VhXT8Fpf+RylYLXmNP5VIXM7pc69Kiih+Jvvyec4jdBxko+o
9/8pV1LioGL5lDJze+jr6O4q6Za26orUiWKy87XUPWhXRePr1Lff2iymKAsr
W434KtJtFHd4Pxb3PqtIOqnrwqQuSe+eT/5rc3t+/M6PDVupund/ZeTmsO6t
7NOn+uzx9DN2nNKyJmXBN73PGhIs69xW7nOI8uMmVsjyamlVgZGl1uwK0qy2
kk8dmR6JabOQHKGWhK7mhK46ttfMDEVn2F45c3v7p+7+7TWvYubOPfxw0rDD
Sd8ye3RKl3dK65l7/h41MPd83cYXume/z3fPfk89Y/my5BtTun9IbVNl63nm
B7YN920bpMw9+7/4yv33e7/I7pnzbIPlm87PqmUWOa6oEUqV5u6ZM3cPfR0U
qOgyc8+z5aVdf07RtT4/B9d7P36Omdv788zdA2f5YeUnljJz7/26+S97IfoL

           "]]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt3HtMlWUcwPGDmqKyidzUYU4RmJdRwBxror7ggIESnKUmx1Y5grjk5aCC
KKWCSGIKA68gnYYCuYQRp46gOPNCB50wL8wLrpnpQVzLLJEWkhqI+73rbEzW
aMv6fvbbzr47O2fv8+x5/30mRC9/I3aARqPxcNRouj8BAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAP8Pn3d+ZvCO9lH+2oHS74fbBBfWa6UPVdi3
xLcvkvY9PLXdK2qxEt5snOrgvljJOlBdZzFGP2u9kplwp87+7nvSk3bYTNQZ
YmiapukXrAc5zNc0VKgd8kpsnNYrVvrij342u13jpDts54xsKIinX9DeF6bb
mpWaID1nS/yQwIWJ0uNirp4KaV2mhD9ITAoZtVrpGOceUFabpISPmFi9dtg6
mqZpmqZpmqZpmqZpmqZpmqZpmqZpmqZpmqZpmqZpmqZpmqZpmqZpmqZpmqZp
mqb/ha1vibz/6ckVyvgNWw3JYWlK68G0kp1nVirtv7Rv0m9OVXxuOKX4u62S
bkq1m3VmRLK0Y2bJpR/Opkh3Trme4tC2WtH6ju4w262WPrhy+pKX85Kf22ll
+rcSSlPV7ycMDDi+cE2/97GcYp8y8wfSc5YUOU+8HPXcXrPjrCW5cK30lruJ
TetzP5R2+Xlf7pQT66RtBw1IDxi/QTpcu+q3wiy1dYV77edfS5d226M1Gesz
aJqmaZqmaZqmaZqm6f9ou75pjLm1dOOzDlUeO624Xf0oU+73tqxvWjR4z8fS
j9+x2zY7+BPp/Ic3XYZ75ErnjXQc45OXJ21wsEwONORLm02+FdkuO6TvRqV7
X8zZKT1ppjmo8Y7aMROG607P3iVd7hjUuH3obukHL30U+O753nvIgu8rbIYW
SO816bpHuqixuXuktX6Rr9r/bpBOrEnTeWiL1f+fca5txrn90gueKpUu8UqY
ey2/THpwyL3y+6MPSNud8u6acukeX0pvfkrtQte0PyyVVdLuni2tNRFG9fm9
zz7qeKK2k3+Vo3/VV/3W00I3ds3X0rNqlw/LrTZJ+xW1jWmsPCQdMurtVReC
q3ttfVRnlml5jXq/fKbmV+ORw9JeuZkZk+OOqOehsvho1n213Wqzf/I01kqP
rU/qmqO99ms5t7pG7S+eOma1/8d77bB89645od6P7/rk+vSMk9K20zYFzLOt
szoP3/7tjnC+YC5IN6vnKdFz7L3L9dKNDd1Oq+ejoNuZPnfP7xus1nu+37pn
vy5YvS9NVuu91OeO8GuO2f76ZemgUFP5wKVXpJdlz/umdddVq/U297l79uM7
q/XcoP+hnjXsyn79zJvq+1npaXDeZpEujXxYEvlQ7Z7z0NJr95yP29J/Ar1b
zzE=
           "]]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
          PointBox[CompressedData["
1:eJzt3Ak0VevfwHGlaFDkqiRFXaGkCGn+NcocJWQKkQaEVJIUSoUkISIZSkVk
[encoded data, 7500 characters]
5hSuH8RpCSZcau+oGf8+1zNofSwr/13+L7bQSsY=
           "]]}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 1, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
         {RGBColor[1, 0.5, 0], PointSize[
           NCache[
            Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
          1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
         "\"X3 Noise \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}, {
         FormBox[
         "\"X3 Noise \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
          TraditionalForm], None}},
      FrameStyle->{
        Directive[Bold, 15], 
        Directive[Bold, 15]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->{529., Automatic},
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
        StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
        TraditionalForm],
      PlotRange->{{-0.5, 3}, {-0.5, 3}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}], 
     TemplateBox[{GraphicsBox[{{}, {{{
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            PointBox[CompressedData["
1:eJxd2V3s9/Ucx/FLQhJCDpyEOYkDMxx0IMxJDthoNiedsLnZHMiWzeKgg3Lg
QB10ILPGalObXauVKROXitxUJN1QUSFRyE1Jbvf/PD69n9P/5LG1q9/1+36f
39fv+/3/rle+/6OnfeCoQ4cOvfPoQ4cO9HPft57y8Kn3n3XC4V+Op5933WMn
nZ7H3nnxGaccm1efeO7D7776F+MH10+esF4oD17lvOvuHT92ysEr5csPXubE
vPmmg597xk+uF8pXrzeW623defe4XubcfMP6yYOjPPX+n4/rMM/LN68DzUcO
Xubhn42fv/DgJ9++XigfPzjMx+4aLzl4WxfnaevEpQ6pw52jDqlD6nDHqEPq
kDrcPq63dUaulzkxV4abfjrqkDqkt3XbqEPqkDr8ZDx/vbHUIXW4ddQhdUgd
fjzqkDqkDum8/2h0nm8Zndd0Hm8enbebxvU2Tspz1nn54fjAOg8/GB13Os7v
j47re6PjSNfRjaPrJl0n3x1dF98ZXQe53tZZN4x3rM7Xj69fXVPH60bdvj3q
lLocGXVI5/2bo/N87ei8fmO8b73Rr4+fW+ftmvFdXmg8Zp2Xr41H1tv+6vip
ddxXjW9cx3nl6LiuGB3H5aO/5vDofX5l9L4uG72PL4+fWH/vJeND6+/50nj5
et2LxvPX61w4nr3+vwvGI+vPfXb03895mmeOh572s//7W/7fc8b9uuP+e8cv
el+jP3fR+KjjGv1/l4zHOy+j17lsfJ3zOnrdw+Oluoz+nivGk3Udnferxn1d
jPu6Gfd1Ne7rbtzX5biv23Ff1+O+7se9i3HvZty7Gvfuxr3L0XV8/XiXXY+u
+xvGV/hcGG/wuTF+2OfKeJzPnfFyn0vje3xujU/4XBu/4HNvfJPPxdF5zP25
Ou7P3XF/Lo/7c3vcn+vj/twf931h3PeNcd9Xxn3fGfd9adz3rXHf18Z93xv3
fXHc983RfSR1vW38tPvyqHO+xn191D1v8Vwwug5uH/dzxbifO8b9XDLu55Zx
P9eM+7ln3M9F435uGvdz1bifu8b9XDbu57ZxP9eN+7lv3M+F435uHHVIHVKH
u0cdUofU4Z5Rh9Qhdbh31CH3c/m4n9vH/Vw/7uf+cf9eMO7fG8b9e8W4f+8Y
HUfqko4rdUqzTd3Sc8v9o47pPKSu6bykzuk8PTDqns5bug7SeUzXRTqvvxpd
J+k8p+smnfd0HaUOvx51SB1Sh9QhXXepQ+rwm1GH1CF1SB1Sh9ThwVGH1CF1
SB1Sh9Tht6MOqUPqkDqkDqnDQ6MOqUPqkDqkDqlD6vC7UYfUIXVIHVKH1OH3
ow6pQ+qQOqQOqcPDow6pQ+qQOqQOqcMjow6pQ+qQOqQOqUPq8IdRh9QhdUgd
UofU4Y+jDqlD6pA6pA6pw59GHVKH1CF1SB1Sh0fHl64/mL6HSMeVOuWH1nGm
7zXScaeO6Tyk763SbSZ1Tufpz6PvwdL3JOk6SOcxfa+WvndJ10k6z3n9um7S
Y1a6jlKHv4w6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6/HXUIXVIHVKH1CF1SB1S
h9QhdUgdUoe/jTqkDqlD6pA6pA6pQ+qQOqQOqUPqkDo8NuqQOqQOqUPqkDqk
DqlD6pA6pA6pw+OjDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDn8fdUgdUofUIXVI
HVKH1CF1SB1Sh9ThidF9MN3XU4fUId0n030/dUgdUof0e0y6r6YOqcM/Rs8N
6b6bOqQO6bki3ZdTh9QhPXek+3bqkDo8OeqQOqQOqUPqkDqkDqlD6pCe01KH
1CF1+OeoQ+qQOqQOqUPqkDqkDqlD6pA6pA7/GnVIHVKH1CF1SB1Sh9QhdUgd
UofUIXX496hD6pA6pA6pQ+qQOqQOqUPqkDqkDv8ZdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdfjvqEPqkDqkDqlD6pA6pA6pQ+qQOuT+Z4+3PqXjSPf1dF9M9/l0
n0zd0nGnjuk8pOeCdF9NzwnpPpv+HTydt3QdpPOYrot0X07PGek+nZ470nlP
11HK8IxRh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh6NGHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofU
IXVIHZ456pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqk
DqlD6nD0qEPqkDqkDqlD6pA6pA6pQ+qQOqQOqUN6bkgdUofUIXVIHVKH1CF1
SB1Sh9ThWaMOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOzx51SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVI
HVKH1CF1eM6oQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD
6pA6pA6pwzGjDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQO
qUPqkDqkDs8ddUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdTh21CF1SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1Sh9QhdUgdUofU
IXVIHVKH1OF5o9OWOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkNesDqlD
6pA6pA6pQ+qQOhw36pC+V0zfy6XvGdP3dKlD6pA6pA7pe8n0vV76njJ9z5c6
pA6pQ+qQdpG+F0z/LpO+J0zfe6YOqUPq8PxRh9QhdUgdUofUIXVIHVKH1CF1
SB1Sh9QhdUgdUofUIXVIHVKH1CF1SB1ShxeMOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqUPqkDqkDqlD+neA1CF1SB1Sh9ThhaMOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOx4++Bkld0mlK9/lcx/mydN/P
ddyvSs8BuV7mtem5INd5OTl1znWffVvqnuu++450HeQ6zPem6yLXy7wvPWfk
Os8fSc8duc77x9NzSK4MZ6fnklyH+Zn0PWmuDhek6y5Xh4vSdZirw6XpusyV
4cp0nebqcG167snV4cb0HJSrw63puShXh3vSc1KuDg+m6z5Xh0fTDnJ1eDLt
4kWjXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2k
XaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRd
pF2kXaRdpF2kXaRdvHi0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0
i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SL
tIu0i7SLtIu0i7SLtIu0i7SLtIu0i7SLl4x2kXaRdpF2kXaRdpF2kXaRdpF2
kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaR
dpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXaRdpF2kXZxwvg/cs/eCQ==

             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0.5]], 
            PointBox[CompressedData["
1:eJzt2As0lPu7wHEUSSoRk7YkostWUSKyTUk3l5AiRIoQQkIuFQlFUdsllFuS
[encoded data, 5340 characters]
vN8cRcyc0ej/EDPPD1ZzsTye+z/W/wKF4g3d
             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            PointBox[CompressedData["
1:eJzt1QlUzukCx/FXC6EIbSKtQxRTKFofpUn1VohSocVSkRYtCmmTSuUtakab
ChFKGoU2qaSQtdTEQUncRN1sjSFc5l7Pc4+ZOWfunLkzzPx+5znnc7695z3n
//7fJfllXlYr+TgczhejOJz3YhiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiG
YdjPTeDNIc2bvVf1P7TZUN+Xjxc9oW3SIGulcOs17WTrx/07tQTJhw5se/b1
GHlJ2toGs5PyBOVpFw2PVhYOnUA78YFK4723arSlfbnxR45Mo+3Nu9SmlDOd
trx4kLPjOg3ajhLGQ16raNKWEtYasfMwa93ZezXMR8yg3VPvKlXRw/qLJccP
yItp0X7Rnd3Om63NrmfaSqEly/Vo20vM9NSRn0X7wZ5d44zdWec7inCj6lj7
LCo//KWGAW3ZKE9b6wusOSEGG3kFhrQrMzK3OufPpr24b7WDqJ0R7ekaF8QT
535Fu+PiI9X8HGPaVkMPe0bsn0NbvcNZIGSuCW0nq8fOOXWsOw/3zk9QNGWv
94216nRj1kP0qtqalrF20qpcqTiUS7u/mKNV4GNBeFppmcThO/2+VSfVxwVY
kkr+xpoyjSf6s18HG0w9aklEym3LWm8NJx0O19r2CswlO766MmhcpCqZbHiu
Zp/jPCLinjDpso0O6dLwSzXeMZ9sFNvrMcLFkMiNKutZMXgBGRvVeS7W3JzE
mbW6VKcvJDsk+EYc87YmM8+0FPJ7WROzNeniis22hP/2+ereetbpjSklSbo2
tIvTeXLB9otoc+pSFAxMbWm78k/U2pjFGkIIIYQQQgghhBBCCCGEEEIIIYQQ
QgghhH++NVeNz2rfZj0+wcS51N+O9rAHmXMUBO0/2Q5d7MrJE2Idp9+p7RBi
T/ImZeTv8bAjx7clpFqRJfR5JrW6wx54OdCWFXtlNTrGkbZQxOWupX2s+xcq
FRrIOtHeUJWZqefBem+K4bnTJ1mP35XZUNbMWm6rZHGAiDNt+zsWYSZbWEf4
zj+0VWQZ7bDmwjXuc37aQvWbE/pNHWlD+Dla46W+OM6ftZK07auWXNYLs0qf
2r5hvUrcT/uwyfJf3YGpSgWDy1g7jQx32bt1Be3eSZ3Ppr5g7ZQd0qE4fCXt
4/uvd8dOZy09tHegTQ3rg6VXa07xXGhzAlwzHhi60p6QyNV2yWbtI7xNfcx9
V/L8eeIC4bPLSPBz/66myW70uk1EDnAlnFj/445I2hvOKtpnQ0omRl1fRbxt
ppcerHAhATufae2fvhpCCCGEkHp/Ue9qb0fWynyl93LTWZtWntvk4O1OO93y
mPeZfWtolw/RPXhZ04P2No5ykF+gJ+24yAbtKwVeZKAEh19xmjtpkPIsda/x
IkXNuqcFX3nQ/lS0k+pp7L/AWl9xxst533uRE4on2k71eBFLyVD+GGFvCCGE
EEIIIYQQQgghhBBC+Cu1CEyRtJRiml8/qjJSCUIIIYQQQgghhBBCCCGEEEII
IYR/pu35clkWXGZABE9sqw+EEP79bJBWs7wVwDprntsF0QrW144JlyxcsJZ2
lM64tcV3WQ8dtNm638GH9hre3rMzj7EuC1nRnHKZ9X65OTPTm1g7Ccw6HTfY
l/aNqePionmsi8q58wp1/Oh1jn3dXJW2049oNqa5SB9YS57pBt/Yf9GPRMcX
+IQe9yVtd3ZVapr6k4pL0pHbxP1Jrq/2GpntEEIIIYQQQgghhBDCT8FzRlt2
6Jaz7hNPivPsY51QocpN0FlHuyptfLxPAmu3K9zOr478tIcozD6kLreO9u/l
TOFCi1bBANpTfmg1LPRgveDQvobu4ADicDLw1mjJANrwr+HxgKtOSuGsB6at
L703MJBkX7RQPcIfSJ73Pt/iHQ0hhBBCCCGEEMK/sx0CiYNLDrO+L+XCc77P
uliiInXNW9brxNr2SQqu/5/7ON9D8Zpa1p+LykqBMo2BrBUn9MqcVd1Ae69F
xtO0WtbzsmwtrQYH0V6cuqxoxPdBpNBIzc6Fs5H0+oUKH3sV9Jc1I2RXxdux
m6jcmFJvM30IIYQQQgg/TUeeP/RmaibzxuC0uDGc4M/WROFWea4g03y44okN
QyCEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCD8dg9vSRFSLWc/qEF1o
tymEdoOEiFFTUggZPir5dc5l1vCP8ah0kPYSiVDaYwX6CmRWvWu/UClVmVCi
6/CS1+0FIYShZIlQvJtiNeugo4qGdmJh9O8fGv68c1Y2HCw2Y/2tpbnchl1h
5H7armJp1zAyb4vklzdLIIQQQgghhBD+0WryL/VcW8PaTH+ZpOP3rOstfbp3
zQynPWW2aECsWzipKyp1PjE2nOh3LE3aEQLhp2ng1hXT8yqZR6e4XzszYDOE
EEL4f1V42Bu9JaOZrt0JOU/UIIS/xR4v7Wj/Waz9ntx1ezH39+veo0H2o3xZ
aw7bFDG5nHVEieEyj27WA89nDcp/gf69+8P7/Fv7w/v6uXep7vI5hc4RtKsX
CGi1PWWtklLOizbdQtstPNXatZv1gjEFdVKJkbRr1rlojW//ry4aoRDkH0UW
HbRInvgwlKSsHjP34csoorwuZHAhN4AMqwvjM+mMJp13nyS4dXsSnkJikTZf
DBmnNXHKpROria70Q/NaXgyR4v+HcrL/StJsrS+tIR5LO6bfwez2k1iiREwV
k1SdSG9LbHDUozja/Ydem0oHbiMk3E5fVc6WvCmX4aom80jtedG1/mVcIvci
TPZFWDzx8B9Qfd5mBjGLHBDHU0igHSFqKCQfkUA4/5lZWXDc6UzWl0+GKwt1
sQ5OFXT8Lmo77SpXF/ung3bQtlp9aAW/OuvxTffKC+axtokbkPflYtajboUm
lbix7kqf+vhsNOv87YO0R95hXWmUq8DRSaS9ujYzSqqQdbx5rv3UcUm01bq5
rxoqWIvVdvTb7v6a9prxLnxeP7D+RsjdTGL+N7QzCzP3DT3Cuo9XPn6J9E7W
aXETVnWxDiyWkdnYnkx7YJU1WeyeQtslWeOVVyTr1JQfR9s5W0ZF1DiV9p5i
5zVKMWm002tM3x/aY+vWvjuse4fvVGtpYh1Zlpp0snIX7QMZG7oO5mTQ5hOe
0VXDzaStt8C/XUo8i7aR83bprc9ZZ2RULZ0Us5t2gZKVXUIs6+Npm6u9FffQ
Himf+6yrhfWYTS8U0v320vZxTim5FZVNe8gP+9UaFffRjhGqqr0ht5+9nmFm
qmW+ObSfCW4ycLzC2mWy6CnuXdaBHuGTWlUO0L62QFg/J4e1javRqdLWg7QV
8ksejm4/RFv5yO7yyCes3ZJ7jP3fsg66NOK0z+Rc2sXqgrtD/FjLTstqsriZ
RztRdr6kWuIR2gJKnvLeJwtoc7Obvujk/5b2JbHdJV3mrPliDj7Wu8bas+7E
YpPqo7R1Xd8qDYktZNe73eVpgXIR7eiMmWIVL1lb/7hjv7qX6Kh9N+wC6/ID
VdWL447Tllj/ZLet/Al2/5PDMic+ZK0lkOz09YCSjz7/rAeqpa3kFLI21vjn
PsFBpbTTjtm9O2Xs8UETJGXHnGTf78KC4BX6FbRNb7U1N+mcot1tMe5OXivr
er1tBTcbK9nzr3z7g+eLKtoR60bnPtpYTTvbwqH+dCVrAf73O01baYaP4gwf
1q6m2UPnjqlh37/6WeZXT7B+VpRft/wp62ukI6dH+cxH9/+Xe+xNwSstorW0
Nz2LVX/8TR1tqUjnd+cs7Rvxr1viX5/96P6fo90x0SBjZAfrU6s7cyMrztPW
fJznptRW/9HvzwXavLsz351LtP+9K+z79eNYD6lv11rvzFpd557Tg+VXae9Q
Mn13GmjfValoV6lgPX3a+zXSVn3/cDtr3ctP351rH92/pl/sUBs++8FurKtl
s/p5aawf+ZpYqN1upn3xwvu1sN8DIRWt5pgb7P+Jkc91fc2b7P49bymT17tF
2+FV49JXjayTBBUe2AfcZp+/vpE3uG6tH93Ptt/c/wL1Eu2C
             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]], 
            PointBox[CompressedData["
1:eJzt12lU1WUCx/EriitjiogKMqGQGKKiEAQqjyIiLiBpsskucoHLprJVyBKQ
CC6oTOqEgGaYQIA4gSUqw2AW5gxh0n5ERx1thBhGypMTTHPm3Of/ouFFnjMt
+v29+Zzv/5z7f/4vnjd3Smjc6g06KpXqiXEq1X9kjDHGGGOMMcYYY4wxxhhj
jDHGGGOMMcYYY4wxxhhjjDHG2E+3GXkazf61Hzlp++PTngduZY8VA3VFonGU
bb6p7Cg/Z/fXl5kP2C9eih9ldMNiwA6fLMyNnaxkF17rOVxeYS37xvSSIvu6
ObLnRNldzRxlK/tizvNVR+PtZRv3OdWorRxlT8o/W/TupAWyg61sXu4oXiJb
x8EiJmSPu+w//s3C4WOr1bJHdngX6Nxbq3x/3b9apo/ykb08umi8WfvD39p7
om3T0meCqgv1hbZvBS3P31ZlLjvwHy8fj5llJfu/98Za9iLvx+6KOzay8y78
IX30bHvZn1Ql5Dk5PS3b6IObU311HGSX79hbEW3vKLuprfVuk9882bNWhXhc
mLlAtmr6qxbXZzrLLvascvb3cpOtvQfaPq/f7zo1w1P26Wsu6h1fPSO7vj7G
d3HRGtljnGsbU688K3vP5SvqsINrZevFDko0HeGtfN9FTdqm4T6yE3N35dtl
KI2IiIiIiIiIiIiIiIiIiIiIiIiIiD/OSsviqsMxvrJH3y5ZOlXXb8Du+mbe
sqeKlW48afGV5b118j1pcSfWF40NkL8b8d7SXMPfK91QWbCs6Y1AEavb4F9v
5SeCx8woOd8WJDwMfAJbzvkJ10sdJn+ZGSw09otN5ncGCFVc2I0e32Bpkmn1
nLFXFd+yK+gruRQizWw/Ea1ZGor4f7Fgb3ed485Q0du7d43eu6FiyInWg5+N
Xi/q3psfe0etWBn5xgsLY8Okbh1tbofWb5Cu/Xrm++GO4T+w72xZwS1jtTCy
T5o7yEctXk8cqx6xUS3s4qdt77SKkIY2BxpY9Cu6Gb56zORPkdLkfXcdymyj
EBER8QEcaqgabGajkbbu22p5Pzta2jImrc4wKEbaWGrrOe5YrKhaZbNqyuVY
cT0y7lTA/jjRNjH2bU2zYr1ZfcfZLkWPCRmD8/TiERERERERERERERERH3nd
Uw5M8JiouPKT2hn65oiIiIiIiIiIiIiIiIiIiPhr8lqVaan7CsXk7J0G2zYh
Iv70thlZe3yRrLgoIDL46W2KzZNnj1n5uWLE7bs27es2SodendZfcU5x4sqk
hoIjm6RRPl5byyM3Sw3KWsaVtSju0WvQ7bVMEP8sHvbpcO8EsXFf9YXbMQni
zJ+NXtoxPlFasdkx2mQ3IiIiIiIiIiIiomLy44k3nc8p3X5xi7n3s0myI1pX
3FpSnSRGTl1cPsc0SdR5x/s2DEmWz/2awz4aFpIs9BYsDN89KlnoWMas27BZ
cU35a22dafig7retLGv6IlkcuehuVT04RRTaV795JiRF9Hb35sTnpojSVs95
FVuVRkRERERERMTv/z+fvt/94e+Uzv5gf4LJqRRRp/P38c3vpIgjhrkH9O6k
iCSDjtcm6D73s3nCxdo3XPWCtDshQ+/N+6kPbHH6wTP9k7dIV+S9Hb/cCRER
ERF/rPot5X1zSxQ/HfHKdmNV2oDu1bsyZYWu4srHzOqfH4mIiIiIiIiIiIiI
iIiIiIiIiIiIiIiIiIiI+PA7NE3/qUUapeN7Ft3un5Yu+7mt54+H56eLuqzV
God30kSb4W9cLhemy+faflQM2TXErLxc6W/bvznmOiVD1BqlOvobZojJQ76u
MYlUnB/47c7OOET8VVi0Lq66SGl/1263G11Kp9aaOfsaZAr/4bsizJqU/qXa
HP1+6yl7pWd5uS7dkpcpbr5y8KSROlN45kyY/flbiIiIiIj4SzDJ85C+fbfi
nXSXJfprXpQ6XQ8o3JOOD4sp28JsKxsVa2dpPjw3KAsREX9mvcq+DN49MUvo
je5b4D8pS9TkbGmxsM4S6s6Coz2Ij5hdcY65iQuVTuj5a8S9VUp316b6jdus
9MnffvZk7Hmlh7aUDqu698PWvneg1p6jbe052taeo23836raMu0uPZ4tu+Y7
u6AOlxzZh49/ucu05iXZ392f63W1MVd2TkNX9KFl+bL7qg6fOZq1Xfa/AU1B
tZk=
             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]], 
            PointBox[CompressedData["
1:eJztnAsw1Wn/wIki5JZkS1jFUhSRFOuLiBWSlURupVLJPRWSe+4ll0VUQieR
[encoded data, 5520 characters]
mrU+7pL34YT7miOjlzTr+H2k/wUJ3LCl
             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 1, 0]], 
            PointBox[CompressedData["
1:eJzt3XlQzfsfx/HqFpXcSql+hBZ1kSVrYz3K0iKuwo+kpHtzcVJKWUpoud1Q
tCI/adFCi0SihI5bUmm1JEJxU9eaQlT4nTr3ft6mmTPTNOb3u8zrOZ+Z1zzE
qDPn+z3HP4e6raO5nZiIiIiWgohIxyKEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
QgghhFBPeynmcOOnCbwZf3vFVjGbwjgxzt8eFX5ewydYnlnlxDWpMS0Dme0l
ChriXTWZB5x9q+FeTn7gyxs2YuZ4Zi/1IWau5Rzmj/oyjm3TZzHnjfWTtfM0
ZBYP1dauHGzCHCpq8uLFo/nMszf+klhVvJD5apTPqz/jzJgLn3CUcpvNmWNf
/tyidG8Rs+jtp62RCxczj3S/k14ot4Q552xR75V9ljJnWU+8+yZgGcfE/nB/
zVtGf+0yLBaLxWKxWCwWi8VisVjsN7rjepUeqOVaMA+WaJ2Wsn85s+a6ppVZ
OpbMzjpuUrVtK5gfc5u3Nl1ayezr6hz1wsKG2V3bz9DWeRVzatynCSUltswv
Nq5yv9LvJ+Yn+17IjnYg1ye5x4YVkF1GnNStvUlefty/TDzOjnnTjXmnbiqs
YU4fX1+UMW8t8/YgJSXTy+uYy7J4iu+Tucyqt9Tzz65azywmpz8z74Ajx2Zc
/dV+Bqs5C5R3frdbZgP2K935W8KVF6jQmlad0uk3FIvFYrFf21q3Zy7e09eJ
fj1w3oe7Y5yZjQ5OHXQ4lby6stqlzHAjc2ryBSPpRnJbla3du7kuzJL9x00f
Gkv2XMzTkDdypb/vsVVJyz5y0sYp9oOC/jmeVB/BDTriytkW/7bowB1nzrP5
Cvnq/Tex3/dEdpLZ+HJyrMPsGP+Rm5l5Lf+JO3mf/Kbxza8b/Lb02EZ5+bIS
8luZV8UO0pGb68ZZOE7l/RWZzZz29LSGSz+6sz8neH8m3Hs1Ll6Odt3GvM7P
IlEu2IMTNX2Zu9UjN87TwoDiYe88ONeuvQixjfXgmMpqnnWT3o7FYrFYLBaL
xWKxWCwWi8VisVgsFovFYrFYLBaLxWKxWCwWi8VisVgsFovFYrFYLBaLxWKx
WCz2H7wZ3ubcyVfIkiKXAqdG7/jLDpzG3u2iO3J2sM9TFxEXEZ0pspN5rnRM
rq45eb/cEimzMHKC3Bppz3jhTg8+abngPXmd0vQH4as9mdMWmKq5RZCnTU7V
C8kiD38+d6bJefJ9SaO1emJezOHD6l7u20WOGuk5v62A7G6Z573oJdnf89Dy
n8d7Mx/LMaqPdCTrfq8v6ZxKrlBQnc4rJ/v6azWVWfowK4y5zbWY8itzzATp
0aOSyaND3uT51JMfxxfbZW/0Zc7Xm8VtqSXfH2zzbx2L35hfS3jorywT7iGW
iuExOn7MJieTGut8hTvmD82cRTnkYI8Me+u+u+jxflhm3KZGFt2z4WWuL9mB
M8cwTXQ3s83SpuTapWRTZ25ZcDVZcUFiq6XeHuZJr5LXDK0h2xRnLmu/6U+f
7594T8LYJYB5p3hm1BTHvfT9cwa59rLYx6z2znPIO0+y9tOLqZPmBDJPvZP9
o1MBefX5cqvxd8kltSl1UkODmMu0HmxRryB/GP4m4UZkMPOaMdEXfN6SZ0w8
3vBgUQj9fwgJD0P4h37+zkKFOt4/2qp1G3myxJiEmjrhFtuzXquykRwYGFmf
aBvGvFQuRMevgKw3Y4S625z9zMr2PCV7Hrmi9U7SsErybDOjNYuaDzC3qhze
x3t/UKhNqg6FphiHM3On2Ht53CaPm9Oo8NrnEPOw1Ohs36aeO4b3yn7UgMPM
7YkfjAdsiWC+65m5yeaEcLeXck04j8mDOzsi1OmPHZIGjiUPr48IfR5Hlhyy
rZHXO5LZR3bGuxpvsqAooZb0UuMfspy4Pv+QTXbr+wfbkn3kDCTVfciFgcdl
wgvJ8p1FM8uqzjqnPInc9wfXlYMtyeblhjVcT/J+9wGrMhO6715qqmtFLpN9
XE6LZvSLofvLUGP+6b7/pXZkVpsFWVfKwGb0JrKiQnhu72yy4HokC67Ho/T7
p6YpTE0ja6ttuBcwL5bZcJTBx0OD4piXdEbOsH56xvopWcVJXtlJPoFcUK1c
UP2ZS6fxzzGy7yr+Ee5dpR+vH00hu+upyiXqHmcuahnQf/9O8qHwjr6cBZ9X
lMiscX7XM+1TScyq+U78k8wc0WTIPyldrpcTX8yhEhp/Lt9MthfrayUtlUrX
X7huct1pckNBabXSjJN0/+5zgX/IgushrdtefKX/ZLsVZO/i9S+tS8kbhvA8
xFvILgFOn6z6nGKWCDwj5TCBLHh+d9+n2gI6Dj0+olOuJv1BFjzfhVvw/D/d
5fnfcwtez8hGirUpbobp9Piney4Y2EAWXD9neuwScZnBRe5kx7jki1zVDLp+
xTL5h7zd4HBYpNxZ5rnKVi7lc7rvVKNPeXEbyb1m7kt+do7c6nUxakwD2T9H
kn/O0fPluyEzzPaSw2Qfbbcyz+xyvX27npg4aqnx0Sy6/jo/z+w889uccBUb
2ewu95MvZ4+KH/jnAvPFhzodh7m0eRr/XOry+pvDrHV1kdc0LfL6eX6FlyzI
JakH1+4NIH9/5tnxkNrPvq4YnfnElEevt0tq348IIAcHdUTuZ/lc3vL5Z1/v
vP4v/98suN+Qr1d0RH7dy6C5l8HvXe4P5MmcMLnAZrL1rK196ybmMi83/WVs
RB5ZcL3nfTN++6Yj8v7OrjA/kyzTt9bKZ+64W/e7QxZ0lVnmd13+IQveL3Tf
737bwT/kql0Rt3dFkLOCBmYGDSzocj3/71wTrzKxfX0h884zYreklxUxZ+e7
8881ej61Xbdqu15M11dnpV0evzL4K7VfZ2QDJx3FswblzM2bfHOzI8id/1yS
rOhyPxPuR50vB+Shes6aes7Xu9zPyBOMvPnnRpfr/SbcTXfejlRuMWesv8s/
ZMH7tUpmwfsx4T66Z3RWQwxZ0G2hLr7WEVlw/6nqsacc8+afO/R6WFyuZ/ig
mpn/YhdaufA+/fxNAwq5wx50+f5qvhn/F/aOYUE=
             "]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0.5, 0]], 
            PointBox[CompressedData["
1:eJzt3Hk81dvewHENmg+SKU2aqCiUSpIVlSKppIgyRkWoRDSaSYoGmcsUpSRD
[encoded data, 7680 characters]
+x4O
             "]]}}, {{
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0.5]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 1, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[
             1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0.5]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 1, 0]]}, {
            Directive[
             PointSize[
              NCache[
               Rational[1, 360], 0.002777777777777778]], 
             AbsoluteThickness[1.6], 
             RGBColor[
             1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         1, Axes -> {False, False}, AxesLabel -> {None, None}, 
         AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
         Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
            FormBox[
            "\"X4 Noise \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
             TraditionalForm], None}, {
            FormBox[
            "\"X4 Noise \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
             TraditionalForm], None}}, FrameStyle -> {
           Directive[Bold, 15], 
           Directive[Bold, 15]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotLabel -> FormBox[
           StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
           TraditionalForm], PlotRange -> {{-0.5, 3}, {-0.5, 3}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}],FormBox[
        FormBox[
         TemplateBox[{
          "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
           "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
          DisplayFunction -> (FormBox[
            FrameBox[
             StyleBox[
              StyleBox[
               PaneBox[
                TagBox[
                 GridBox[{{
                    StyleBox[
                    "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                    Automatic, StripOnInput -> False]}, {
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                     "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}},
                   AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                 "Grid"], Alignment -> Left, AppearanceElements -> None, 
                ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
                "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
              False], RoundingRadius -> 5, StripOnInput -> False], 
            TraditionalForm]& ), 
          InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                    None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0.5], Editable -> False, Selectable -> False], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 1, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 1, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                    False]}], "}"}], ",", 
               RowBox[{"{", 
                 
                 RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                   ",", #7}], "}"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendFunction", "\[Rule]", 
                 RowBox[{"(", 
                   RowBox[{
                    FrameBox[
                    "#1", RoundingRadius -> 5, StripOnInput -> False], "&"}], 
                   ")"}]}], ",", 
               RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
               RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 GraphicsBox[{
                   EdgeForm[
                    GrayLevel[0]], 
                   Opacity[1], 
                   RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
         TraditionalForm], TraditionalForm]},
      "Legended",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"], 
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, GridBoxItemSize -> Automatic, 
        BaselinePosition -> {1, 1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.771841412560252*^9, 3.771841443337199*^9, 3.771841487362463*^9, {
   3.771841539949543*^9, 
   3.7718415613057995`*^9}},ExpressionUUID->"e608d399-0022-4f1e-832f-\
f646446ba97e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "EqLine1", ",", "INRX4X1C1", ",", "INRX4X1C2", ",", "INRX4X1C3", ",", 
       "INRX4X1C4", ",", "INRX4X1C5", ",", "INRX4X1C6"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"PlotLegends", "\[Rule]", 
        RowBox[{"Placed", "[", 
         RowBox[{"LegendG", ",", 
          RowBox[{"{", 
           RowBox[{"Above", ",", "Center"}], "}"}]}], "]"}]}], ","}], "*)"}], 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<X3 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
        "\"\<X3 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\
\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
    "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "EqLine1", ",", "MMINX4X1C1", ",", "MMINX4X1C2", ",", "MMINX4X1C3", ",",
        "MMINX4X1C4", ",", "MMINX4X1C5", ",", "MMINX4X1C6"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<X4 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
        "\"\<X4 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\
\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
    "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "EqLine1", ",", "LMMINX4X1C1", ",", "LMMINX4X1C2", ",", "LMMINX4X1C3", 
       ",", "LMMINX4X1C4", ",", "LMMINX4X1C5", ",", "LMMINX4X1C6"}], "}"}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<X4 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
        "\"\<X4 Noise \!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\
\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
    "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.7717430282915373`*^9, 3.7717430389475803`*^9}, {3.7717430890025377`*^9, 
   3.7717430957295938`*^9}, {3.7717431257325373`*^9, 3.7717431292835712`*^9}, 
   3.7717446091545763`*^9, {3.7717564648597617`*^9, 3.7717565569213896`*^9}, {
   3.7717573906825323`*^9, 3.771757393368067*^9}, {3.771838648529468*^9, 
   3.7718386514934473`*^9}, {3.771838713843397*^9, 3.7718387143693967`*^9}, {
   3.771838759270437*^9, 3.7718387902234545`*^9}, {3.7718388404992495`*^9, 
   3.7718388531842375`*^9}, 3.7718388855075645`*^9, {3.771839142065837*^9, 
   3.7718391513278027`*^9}, {3.7718396476823845`*^9, 3.771839656304387*^9}, {
   3.7718409007395964`*^9, 3.7718410034732027`*^9}, {3.771841157346159*^9, 
   3.771841172610757*^9}, {3.771841212690919*^9, 3.7718412141309185`*^9}, {
   3.771841245012511*^9, 3.771841440031184*^9}, {3.7718415160366244`*^9, 
   3.7718415367695394`*^9}, {3.77184178306835*^9, 3.7718418929394217`*^9}, {
   3.7718423819748373`*^9, 
   3.7718424337051406`*^9}},ExpressionUUID->"b4bd155e-718b-4153-921d-\
975170a815d6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{}, {{
       {GrayLevel[0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
        PointBox[CompressedData["
1:eJxd3E+sdXdZhuGPQmmtaFGLgppa46RODBEHDKw2TOqAARATHXRQjRITB9ZE
[encoded data, 6420 characters]
+btVqw6pw9Xr/wFwZEqU
         "]]}, 
       {GrayLevel[0.5], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
        PointBox[CompressedData["
1:eJztXQdcFMf3P4iKIBpBELBirIgmNtTYdrEhGmuwRBRQE03UiBqxgChE7MQa
[encoded data, 11040 characters]
pmB6IxqVv8RcUQDu75Xt38rvP8125LsfJAz1d/9wNLPgwtnH/h/5WJIQ
         "]]}, 
       {RGBColor[0, 0, 1], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
        PointBox[CompressedData["
1:eJztXQlYTlkff7MlBqVNdgrxRVmS/d5kiYaxTiOyhAljK8rUFFMGSaTF1oeh
[encoded data, 5820 characters]

         "]]}, 
       {RGBColor[0, 1, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
        PointBox[CompressedData["
1:eJztXQtYjmcff5KyzWzUWjk1hjIZ5sOa0/1qM0sfVs5GpTRDiqKhicU6IEIj
[encoded data, 5100 characters]
aYf/BxpzauY=
         "]]}, 
       {RGBColor[1, 0, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
        PointBox[CompressedData["
1:eJzdXQlYTVv7P0W4wjVHZuFmLEUStY4yTw33mjOVSDI0IYlSKTKVNKgoJbOU
[encoded data, 10260 characters]
5xZjz5//ALQhBXs=
         "]]}, 
       {RGBColor[1, 1, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
        PointBox[CompressedData["
1:eJzdXQlcT1n7T5YQo00o1CDbi8HUSOul7EszyRjGJMtrfUONJdsgRFnKUrbK
[encoded data, 7500 characters]
ntc+tD1Z3jDw3LGL/ZPLxv8PvxRJvg==
         "]]}, 
       {RGBColor[1, 0.5, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
        PointBox[CompressedData["
1:eJzdXQlUTd/3f0qGMkuSSpEhmWWu9jWFCKFCRPmaRSWFisrUZKqUkjRQKZIK
[encoded data, 14400 characters]
PH428Qz0GpMK6a00HQN+UD//8n9YgZOW
         "]]}}, {
       {GrayLevel[0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {GrayLevel[0.5], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {RGBColor[0, 0, 1], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {RGBColor[0, 1, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {RGBColor[1, 0, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {RGBColor[1, 1, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {RGBColor[1, 0.5, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
        1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}, {
       {GrayLevel[0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {GrayLevel[0.5], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {RGBColor[0, 0, 1], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {RGBColor[0, 1, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {RGBColor[1, 0, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {RGBColor[1, 1, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6]}, 
       {RGBColor[1, 0.5, 0], PointSize[
         NCache[
          Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
        1.6]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
    AspectRatio->1,
    Axes->{False, False},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{True, True}, {True, True}},
    FrameLabel->{{
       FormBox[
       "\"X3 Noise \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
        TraditionalForm], None}, {
       FormBox[
       "\"X3 Noise \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
        TraditionalForm], None}},
    FrameStyle->{
      Directive[Bold, 15], 
      Directive[Bold, 15]},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    Method->{
     "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotLabel->FormBox[
      StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
      TraditionalForm],
    PlotRange->{{-0.5, 3}, {-0.5, 3}},
    PlotRangeClipping->True,
    PlotRangePadding->{{0, 0}, {0, 0}},
    Ticks->{Automatic, Automatic}], ",", 
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJxd3E+sdXdZhuGPQmmtaFGLgppa46RODBEHDKw2TOqAARATHXRQjRITB9ZE
[encoded data, 6420 characters]
+btVqw6pw9Xr/wFwZEqU
           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0.5]], 
          PointBox[CompressedData["
1:eJzt2nk01f2+wHFkSuYGU0rKEEJSIVKSoZQhREkqw5PQLiFJEkrGypiZDEWZ
[encoded data, 7080 characters]
IHXYsA==
           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJzt2fs3lvkax3EZbWXSNBhMkShRlHaKMRJCyUgTZUKOGRKSenIsOdR2qJCw
pE3IKWPkfGyQjaLJKIdRDJp0MBVNU2kSe5q9V9f1B+zf9nyuda/1Wu+1nrUe
9/18v9/7B4ouPpZfCwsJCcVJCAn9KQaDwWAwGAwGg8FgMBgMBoPB/FXmN6ks
McNVNevfd+4+QVzlor/pv+/8M1cLf3KTp9Z+4i5Xar6YOnHZYVcJRQ1qwZLm
jwbM11Jvz5tcX5GpRW3SerK8TFGHuqtsTFw8QpfaIFj5Q1NnPepGLVejkxv1
qTck26eanjOgnhOg99ImyJC6viE61L1nA/XD8dtuTtNG1D7N3n3Rx02okx9f
akzs2ETdbCQfqbnNjNrYeDDST9ucWqTaIuKU51b+vH2q19vkbdT7H53uXdBs
SV3tLFMQdceK2tZS6fReKWvqjEC7gp2ittTHDvSYxks5UL8y3LH5U2Un6uVO
j8w09Zyppa52tuyocKEutNuaIGjcTR0+125FloUrtazDmN3me9yR0lqL3s5y
o5YvbirJn+1OXZ66ZezDVO6Ttf6Leju5R8y3ObhJ7KF2u1ipFHrKg3rw27j7
Qq89+feZ0e1UpO5N/f3HYcZvkvZRW4pduxEUsp/6lxjnNo0bvny/sStNFPoP
UKf0igi3fn6Q15P2J+tMwrhnBY4uH7rGLemYICoTIaDubcgoMn1wiLqkwvnY
p7f9qI0OW8h6aflTKzWNnRPEcBcs/qdgak8A9ZubVjvKGgP59xB6oKF6KIh6
wqkybItqMLXN0VHzxTe5VzfdErESO0zd3bEyt8eKO1xQpDxayn3ybpGIntoR
fp7tq3UG67lfCSs23/I6Sq1Tl7Bs8mwor7eNiaI7hcN4fcvviR2/zj30m2tG
TEM4dXHxi4gAswjef0Ye/bvSuDdGCVJC449Rd36+qNb2xXFq/4SnCwfzI6nN
ldZOm5ZHU8f09Z2+9DSGeiykyizf5AR1WklBepADt0zrc53J1Sf5frsCv7J3
PkWtKDHcLNgSS339sfMjlRlx1PPLXg3nxMTzfk/fM3Az6jR17vymp1H13AW3
HQysFBOoTf3Et+68zK3qEJGUanSGeqa4TVNABLeSmH7vTItEXq++1neOL0ji
5+l5sEM4jrus9JD705fcAeuz5hmWJvN6uBZiMnsghXru/aKqtuxU6napsHyb
iXO8n6VlV18KTKOWLtN8GKuVzvt/NHqit55bblyyX/TL87zevE6oN09n8H6t
iBsKWZNFXaq9UPtsPPfycz5y7msv8Hloq+ORd5a7N6rj3mahbOpfo2UKFx7m
PuKiHLJdMYfPj/CHE8F3uaUTmwvrduRy7818d3Hf0s26oDHMXZ/497oz/8jj
98v569unj+RTt9qua7whfZHPm/kuF3QyuY3G1TwGDL/h9b2+d55FdSG1WceA
yu7X3HNFrWo2GBZR2xnu1l3z6hK1gpVfYd75YuoVKg71buIl/H2+alJVG7ib
JKOrl53mdtHvXJUvV0rtWmAmbpTLLf3VWbXSMe4GGSEVNUEZdW3e1PSV19zF
ZQe0vygvp+7wn9KQM67g+23wTFu5hfuR+0c9Hd7c7Ue8K0euV/J5KjYj/blL
Na/flgiHVdk11Pmdw5lW52upe6odl3RJ1FHP89fO9X7LvbcitOxE6WXqzXr2
+a6PuS+t1Da1nuL+WmnvPuuL3/Hfq2yWtuxiPXWWQeCIrGMDtWZyvYLNrkbq
PkFTyLczm6jjDcIyhnT/RR1bMq+qa4x75K6qV2psK7W6Qru5b9s1ft5LDTX6
fdr4/Ns1Ihk7wf3moPX9mO526hcbNN5d3/P58bpP4hPbG/z89EOPnvide25F
sHWB/Q/Ulw17T1z07OTz6psp3+BsbuvD9qOZv3JbXpmxWFz9JvX2QrOXyUXc
t+d+t/F47S0+T1pkRfuVe6h/9IjwlK/5kc/TGvXKFUl91JOmZQYHBrlV9H1+
iJt3h9oral+6xM/91IKgBW9sRgb4fS8UFjnuM0j97KiKes74EK+PFEvdQY9h
vt+055vSnnOvWrj56vSSu9TJ/kPqO+u43+Q4vrt+5vfDkex3F7fIB3/OPT7f
XdeYG2zkXvxEsuMzV25x/479D+eM8Pspbt1UUPgDPg9thFuuRD+izn4ZUXCg
ZZT3u4JI8azPHlNrGCXJqbdxq1bNNA7xf8LnqdqZNZPKT3l97Iv8xS9/jPrf
/5nxv2z/d56h0Wg0Go1Go9FoNPr/tPd7ys1e2PH+/1rP9Kccrn7xIFuTWqo9
oaFrjjF1htfAjt1Bm6g37Qrfk5ZiQZ3T7Shjl+dLnf37kgAVg3Dq6ViVIQnt
U9Rm8XkigWYZ1EvPeZW2La2iHpgz8rxe0Eqt9URmeEVcN3Vc2tRPH/c8oIYQ
QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
QgghhBBCCCGEEEIIIYQQQgj/F/8AM7BHTw==
           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJzt1GlQVXUch/EbKmIxCGZDkjuIDqOpKSouuEGxmcggLngRwQVzElEGAcH9
EsmWrCHK4oIImQu4C4khMuIClCBiKuY2CgGpqcRgZePv/7JXNb14vnNnPvPM
nLn3nHPvuf18/N0W6Wk0mrhuGs1fMsYYY4wxxhhjjDHGGGOMMcYYY4wxxhhj
7L/f6fifLMaPvm37pt0tpuv773wurS0571fi3Xnim76b5nvw+EhT6TJN8eS2
sAHSc2MtyqyMP5LOMtTzCTxtI92z5MbU7rMmSH/obVYc1W4nbbc9duZunbM6
vuCBQbrPNOnyq+8tN9O6Sh8ttVo7rtxN+rJZS/PCCnfphdfjn/pqPaRTnpjc
DX82V7q/zQzDAJ/50pGp5yICvLylq1sKddpC1Q3LqhM+9VograffpK338ZGO
32qd5tmgOiN7+InU56oDH1oFvV3sq843c2JFvski6Y5xvrb9PBer+32iscO5
3kukkyMcnGcNV207uoNjuvFn0hezy43muC+XNn+3ufS3KSuk23qYXqsbESBt
NrOki/Et1a0Z+iXbrFdK68YY1exoVR0aGbXBvzhQ2lDPfaCjd5C6H219Awtr
V0vfLKsodWgPVue/ZOjkGY9CpIsmpe0YfH+NtHFiTJZ3brj0QfNeb73Ys1bd
H8thL39dsU4dnzMy9YzReunrOYMbfy9SPTDE9sXstA3SN75+sMOzTXXU+rht
j202SgdHJZk6Vak+1G61f1XjJmm/C/PKQnI3S+du9y9Y+1wnfbvHoNimOZHq
+Kc5Sb26b5HW771nh9M3qpfVOVbV+kdJb9vQQbsqPFo6Ysr8Wp1DrOrYevd9
TlvV9xmc23YnM0E9D8kDXCbmJ0p/kOOmc81Okl5wb8yF/aHJ6vxM8jJLGlKk
h4b1v6VbnSrt/f75/No5aep53+Ic72Kdrq7foHGnzj9DuiVkZe8uv2RK37vW
/MnsaTuluyZpQiyTVWcaFPmYj92lfr8R3y22GLVbOro188uYTnukv9o8oWd2
quqRwVNtnm3OUc+3XujzEQbfSrvsyg/+8e5B6Qcrp9te2XhI/V/VVwwP63xY
urddv+4eeaqfzs4NaeiTr45/0fOKvZfqjA2jJq+LPqbu59wBWZ2MCqUTV/gk
D1x9RvpC301tbVHfS79qMM5PeHJe/T4Pz84oyr4gfaRqSsh2o3Jpq7KafUv6
XpROcJjrfuDcFelJQ9KXWq+vlP7cNHrvoQOqq0NvOL0qUD3BPCUx4oRqyzlt
C3beUr0ryjl62e0fpNdnaRLDXlyVbn9nrJvJomrpUwF1kdbNd6RLDpTahWY+
kp75eo3q+l+v6X/Tf6+Zpmmapmma/of+wtL68ulQ44lv2njp2pMd7MdJe1S6
etqmu0ifde62/1C9p3RrbUDHRbF+0kNarCsKmlZId5nv3xr0cZC03rGueZX7
10i7+ZnlDdPqpB+27I12PhkjHWuWOKCiLE69331r38jwrdLVXvua7z/ZK23h
GP/nq0D6zCU/03sLjkqPN6yKKQ87Ln0k56FHn4FF0v3TXD2ztMXSpfl1L+cV
qPaoe2V/2e+stMm4+FGul0qky66ZdSt/XKY+r8Hy5V1dpXR7ys2aIV9clT7d
y/5UL/sa6Rvedk2Nz36W3j3I8NiRwkZpRERERERERERERERERERERERERERE
RERERERERERERERERERERERERERERERERERERERERERERERERERERERERERE
RERERERERERERERERERERERERERERERERERERERERERERERERERERERERERE
RERERERERPx3/QN5F21u
           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJzt2Xk01fu/x3H5qago42k6jSJDwlHhyFvIlEyZjggNFFJUkiGlRFvIzjwT
[encoded data, 5280 characters]
i/1P7n8BaaNUyg==
           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 1, 0]], 
          PointBox[CompressedData["
1:eJzt1Yk31fkfx3GpVKSIQVSWUgYpplTcMSZSyJYQSpZJmhZClhZKohDJXgjZ
RbaMEaM0CSFJKsqSylJZCiOq+W1nPu/5/Qm/33l9zz3neR7n3u/dPpu0vfO2
PdxcXFxhC7i4/tX/voZ/gGEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEY
hmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEY
hmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhv8/bXdHwlTQ
qVfjL0vGJxUr3uX/4S+f5euIjPlDgvnHxZIJpdd1mG9zEvmMprYz89oPzyh8
aca82C2vQ+CBJfPStHWXeiR3MTt6j+l55pKzDIqmeNVtmM17U2zbJ3czV6sU
NTp8tWVW40Qn/Sxvx7zfNCzAYS35SvvJTo9z5EcOruuDXpD/OMGjYdlNHq84
JznNxoG5ucdr6lnrT8w8Bqv95w+QN3LXHvVu3MO83PXW+pACR+YomfKUiTYn
ZhHxU79ZjP3MnG2fFSo6fIB5cp7vvqIwZ+aHgzPV8yVcmF28r8paKZEXLPk6
vtf+MLOPWp8o3w1X5peTYkXza92YX5QuEn6c487M6bthfcjwCHO8qNHVWSNk
VQsPozpZD/q9LWGKxlHkgcrhrUuCPZnbnt8Z6RrwYo7Ql8uIDfOm8Xbfnm1i
eZQ5b9OloCrFY8yZwwqetjvIAwm5EdcEjzMPTn+iK51NXlM5/mFVDtkxQHps
4b4TzCHnG52un/Bhzn0g4LGol6wbalujquLLXGew42610EkaT/GqlRHu5DNl
x5VFjpJrdrsOCD8n++9q07xZf4p561T8d7tT/Zjltct7ZQfIwkGi9vXCp5k1
swRPHtQmj3DlHy/+SjbkN7ObV+HPrMeXvC6/nVxsUcQV73OGObW07UuCQADz
ClGzduuFZJ51kY+a1pE12998cnQll9XqxDi3kQeGnhhL2QXSfNVeoGPVRS6Y
fXf5jqizzFtad4o9VDxH420/6PTUg7xs+U87ZyWSvQ6aNCzYEkzvJ2S91CTi
PHO0q+ds/zWhdH8Oz6Y5/WSPvkKe6wNhNB9OmU15O19g/s3TKTlxTTiNTw//
AuV0ch7HXUC1gGy4nsuwdvZF5osBUnmCluSQuP5I8zGyUl1KBqc3gtZ736LQ
27GRzPc3fBB2FI2i/c3mS8ZqZ7LTmSqDk0nkulfijXtVo5lXarsZGtWTW7I4
vl0d5FVV6oOPJWOYX7kfVlQzJAvkX6sZDibbKyQcK1SJZa6y9RTMnBbHHDr3
jfSfeWTJO6uK9o+T++5yq8jNuET7d1ZPs8xWckrQyKhtAPnx4f2NYQsvMx8q
u6CieYvcIsGpuP2IrPIl8chHkXjmsI5pSrJWZHWl6nKzF+T0hk6Bd3YJzD8t
Xttq4kAWcXKrEb9Ozts4MtEhn8gsdqKzSXkPebKKs+uJL9nK5q2R7AXylkl3
uY5Ssumy9BRrrivMo16L8/vWkFfHcOuZHCdHrzuiKrEsic631l8VwxPJj9ZG
Zb66T5abqx0UK51M+7/z4ab5BeSTQ72S93hTaHwPSpTJbCLznEmofe1DbmkU
+JD+mLx7wybZE0uvMi+xWyFhbE4O0bM4vb6NXLp38mBJeCrtPy3fWuu9Idda
1Eu3CqQxn/VyTV0aTZ7ZaqF5aox8yG2FrOo36XT+XtvzzUwj8up7QuED+eSI
TabTSibI5r339m0wymAWP8dpLk8jPy/5GD80SLbxbZ0ho5jF3NG5MrGHk03r
L3BmpEwp2UfMhf9hRA6zfotObZvVNfo8qZgrUUJ5zO+ncqc+KebT93cQOiq/
o4C5RFVOllemkPlAw50JhUSy8DyFgn0WRcz9Yz4KqblkrrMun9VnFdPro4y0
ZLaR25T2zPsURB5O13RX7STLuFjzHje7QeNhnf/PBzkps3nDSDeZMz56MFCo
hPaLXflauvpkHfPQtFh/snZvvvLyAPK2Kr8090hyqmDsHFvpX+g8XfWlkzuZ
3CF9pTVgTinzuYhR7qd2vzLn8F0s9zMvY3a3NldLaiJHV3dyAnVvMpuYXA6d
bCJzu9ZW1JuV0/ze9z3nRBzZKu51ju8U2f9A3JyY3RXMG/mnHY+oJIdUZF+6
N/c35g/d5sectMh91j9qzd1Mrkp+MextS07o9U7s9SYLjIbGHBOppPm4hv+2
woxbzJF83efzV5Nbcj/ZhauQL6n4JU93Ju/+hbf7SA45Sejot1Il5D6JikmH
dvKiltM1xmK3mXW7PPhT1chbB6UWW2qQjT/XKc7bSA6tb19wwZJcH/9uQvAw
+WnghQhF+SrmHtc1Spt7yDUlNQY8I2QvkQPB923u0HpZX7hkdgs5SqM/QqP/
b88/dW52mPk7s2VI3Oan5WQBhfHot6fvMpddfT17YpTceuxske7FatrvMgRn
ciTvMQcOrZwpu53s4pRd4FFGtuxeblMjVUPrr9jCLXM7Oe7fVy2dV+Fc7g05
dcx7nx3q7iwmSz3baKj+ibzT8GPSM837dF55tR07MLee9t9A92Z99QY6P8bC
z4S9Jws3WHKknRqZpQU+nVx//wF9H0cjl5WxTcxzBr/9zr+N3GlaJffO9CHN
54cpk29ekj3izRwbPJpp/etEr3v/kOwyR+v6vI/k3xNu5/qLP6Lxs8vfaeVB
vqoif1VlgGyTGZMyPa2FeZbAsvBqjcd0vhdyPvLrkbfahCUVvSJP3rTcn+PT
SvuB3PM/N+eTt/3QKKz/hPzupvezy6N/c/svBsGnnzB/lV8hqq35lDm7dbqy
TTB5R9IRzdz7ZBubc34ZEm30fxce8eJ8aWduVFraKJ34gjlIP8B28cEOur/y
ua5cE/k/86mT3u9n26FY8S7mey23OpTXkssSPB6kV5OjdxnNj0vtZn5VUXOi
VuUl89slye1dmeR43gLtd6/JWV81nCMGyRcl23KlvpKXu5rqSwr20Hyz/Xy+
dSXZrfTRV4ci8ovBysFqrVfMhs5HH13uIDebTVsovus1c8GWVRNzg8ldgvvV
Dtwlf36ZwNm45g3zfu69NYr8vcx+FbYTL+vIHm8X3miV6mP+44vx2n4Lsp/y
BYOaCnLIQIaM2PR+5piy+uDy38lp4yJxnyMGmDPtOd/HJpNvqX0xEasm6/zI
VzDf+C2zYvTQeFMluUvDb2r2IPmpg1udz/fvmLd4Zke6upNHP+sV11q9p/N5
r1h3r+8gc3J5wAfxOrKxjZY3/54hZhRFURRFURRFURRFURRFURRFURRFURRF
URRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRFURRF
URRFURRFURRFURRFURRFURRFURRFURRFURT9X+w/AJT92Z8=
           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0.5, 0]], 
          PointBox[CompressedData["
1:eJzt23kw1v2/x3EttEhSolRKKEkLCWl5R5bCXShFSoWSJVub7bZVtoTsyb5m
[encoded data, 7020 characters]
cXFxcXFxcXFxcXFxcXFxcXFxcXFxcXFxcXFxcXFxcXFx/y/tvwHT/Tbg
           "]]}}, {{
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0.5]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 1, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[
           1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0.5]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 1, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[
           1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox[
          "\"X4 Noise \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
           TraditionalForm], None}, {
          FormBox[
          "\"X4 Noise \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
           TraditionalForm], None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-0.5, 3}, {-0.5, 3}}, 
       PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{
        "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
         "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
        DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                    None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0.5], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                 ",", #7}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )], ",", 
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJxd3E+sdXdZhuGPQmmtaFGLgppa46RODBEHDKw2TOqAARATHXRQjRITB9ZE
[encoded data, 6420 characters]
+btVqw6pw9Xr/wFwZEqU
           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0.5]], 
          PointBox[CompressedData["
1:eJzt2nk01f2+wHEzydyApEEZmkyphCiVocgQoiRNPAntMoU0oWSsjJlJSGVK
[encoded data, 6720 characters]

           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJzt2Hk01/kex/Ffol8LoUwTmVCiIVKqq8u4GbJlFD+TptBI/KQiLUNpLFly
ky1pERlFthjkWpIlkiSUECPFZKv5NfaxjOWee+6Zz/vev+9/c1+Pf17neX7n
e87v/D7nfH7nfBUOuFk6CnE4nPAlHM6/9t9ky7BYLBaLxWKxWCwWi8VisVgs
9s++vkflvs/T+ZT15537A+N9JFmrPfA5M3BdnHXGdYnLbcmLWb/yqlqePCPK
epl0evLN3kWsrZxlRrKyqT/GHIrysaJuq52VnStMfclj053L1QtZjxmePjQe
Sb1hQjDjZ0P9aH1+qMh66o7snqYowQLWgU58IZd86mX/+JD3/hS1/pawn5Vk
qV1jolOmy+ezHnwhf21OILWFYqqYzRrqILPRq81lXNbWLw5m6Z+nHlRoylH+
mjomoPhJwm/zWP+9t03K5CB1sKI2J/adCOsocW5uRCJ17oSBjK4L9XnB2khv
BWrNhLZrWoPCrBUzA6LDWqhPrlaV9CqlVmh24AnCqeXc9G/scaaur/U2aLKk
zkoIqK81pbYJjbQw1aMetH3arCFKPXv8h+GmormsQ2tyD+64Qm2YqFdteIR6
sjowf97n1NykjSfUuoVYD3dUF8xkU286ITJ+4Qfqytybtt1R1BvsYn21z1OH
8pNWr+RTayeaCHrWUd/SrM3X4FLb5074yU7MYX0sao9KvIA6z7Go2O4ZNU+/
V7M0ltpHQ/67+wHUTeo9vHNHqbc7ZL9R2UO9JsYxVcyCerXi0JNpI2rrZPER
vg6173Gj8RE16pmIVKMQWerDfkMtWb9wWLdrqciW3Kd+m268TyWJ+pHrrpD3
Z6k/BroJR5tT+2TlJWtupu7q2h/oqER9v9O8MmN8tvSPPiVcE8gLoI6sTVfb
PjvDOtPVa/LlYerqytbb4tLURc28T/yEqH1Ftwk0pqZZ90j3+Sysol7iLL1S
1JvaJeLAIUkjavNLYXlWK6lfv33I606bou9TVvd4kz716Z6GwkXq1LX8xs8e
c6kdLSxjrGp/Z82pFFN8fYO6RXmXzXgA9bFyb3UDXerbG2f4OyYmWTskSghl
vKQe4qrr1+dQ+xcG6W70pJZ647J2W/ME672n/EVG9lLf758ceyxM/UAkZYNJ
8jjr6Kyfys29qFdeKLmvY0N9913D8wJtaqdvE20epo6xtrzl/dcj66md7ST2
xYpSW00FXByv/42191Hl15J3qV3lnUdFg6nNKm6kXbClFsgvd7VV+o/Ph646
bu8bZb3sx11fFVVQ67kWqlvfpbbQ5IWrXqfmTnvM/ZpPPag1MZwnR/1EZoDf
OTJCv89iH5PhOuqbdl0r3eyp4z20NU4IU39TukJr7ugw6+b3iTqNydRal5dv
3GRIfd7bQG0xh5qb5G9Q0TDE2si9da9qMbXaxYSz7XHU4ZVl+UF86jVyop6+
mtSf6R0zyF9Ofch98p1D3yDrK8Xu/DuF1EVBQQWRp6mtb7tPDJpQS78WlP5u
SC0RZ75zvw61wRv7M7y6AdZpjxXyDuymzjYduqY32c96g0urfuZJar15mSVd
WtTfvSxsHin/lc5j0XW3O4eoy1v/MrTVnHr8hYl83HZqtfEmM+mRj/T85i9n
N3tTF++uEs9aR71z2bm4p1cErJfyGpqydH9hnd7RI6Vh/YH19Ng3v6q1vGcd
pXpWRU2+j8636p7us+c9dL8dVtiSc5LaeZ5jkYUqdXTvbMx4XjfrFM/GZxVc
6qHjtu0OHl10vqteJ2Wso87wmHpmHPKO9VfawR2Pen9m3SA27M8poD52+Kml
sif10RK/9jBj6lthhp4nOjrpfP7mItm+lPrIqlUexlVvWEe0uB9JjG5jHZxg
HGJ37SfWk7f90+cYUudkRN5pGWthbb/Va/fUp69YJ95LTV2yopm1cl11/u6U
RtYfooWjd1i+ZL0lNEbKN6yB7nuzam582gvWL3jxFz33UO9ruaRU5/yc9RmP
9ra4V3WsjX2btrbOp17Q37C3dPAZ3Y+WNS1n1akfyZ2z3dlSw3rH6m2bn0xV
s/b68mD4zrAK1jJRxv0dAcWsn2vJF5tJFtB9U6Lu1TqdzZqfKpGn6fQj67pK
DT5HOI3+Tzr79q94mMj6e++Bhm1iUazFupU+8aoJefD/2pz/gkaj0Wg0Go1G
o9HoP1sX2ndO3nOXZL220GxZ7HpR1jbdqZJ9uQtYSymcNA1aS91YmtI/ozOf
ddmRDYFXBUKsw+WSFp9z4rC2M43sWRr8x3tmDqf+iweZC0fHWG/hFTs15Qyw
NgyXuaqo0ce6TXLgW/mIt6y/CDMZq6koZw0AAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAPC/+CeH/2//
           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJzt13tUz3ccx/FulArV0eJHzSVECCEqZ+Zy+lnIiszkluO4ZDhu60gkJMXZ
KDQSFW2TnXYqal1OIZNUmNyWltyL5aeLS1Lbzo73Z/tjf25nfzwf/7zO86/P
55zP959vD/8V3gsN9PT0vrDS0/tj/9Qtn2VZlmVZlmVZlmVZlmVZlmVZlmVZ
lmVZlmVZlmXZ/259N3+auXlFJ+nRG0sd9u6zki7Q6KYOWmQp7dbw/nsjRlhI
O0VGe07VdpA2SEy45b7eXHrRvfKdsz4wkx6wPTTjQpGpdHLZ6S5Nke2kHc0T
6wccNJFOzT9/sXqe6s4XmzZr9FW//Dl8St02Y2lted7sXo6qz8aceDvySVtp
81nX57efoDol801aeW4b6V0z+oz1ilF9qVf/Dgu2qu462HhuzALVk1Ymn9cN
Vj2sLCFquo1q27y9ZyZYq5585ICb3XMj6bgyQ/uLGapPDuy3yWKLamsfG2PH
haqTTlilz/dXvTtpWfuIJkPpVVEFvmdXqz5hVfY4abjqIk2+Y5yhavvt4aap
VQbS/sd6OxlfUX1OP7Zh+AnVPaMefhPnp3rU+w1mp7uoNk1Ms2u9oy8dWRZ7
a06Gaq/v4uf12a9aWzLDLXK66tcGeSU6O9W29x/+VK+vWt9tqcb9iZ50Ska+
55ybqk/HhLuZpKleY7q2ZlWY6pNDfCaGrladucnfInWR6sBA52m2nqpnDQwK
9e6sunBdWMTTZ6157zq2ZV2P6VtU79+xzNywuEW60np5WVdv1cdO2fc16q/a
L8ph1IWXb6U/i8+8XZiu2mXuc42zVnXgDo9SA79m6bDmrTlh699Il4YOmdLY
VbVxVfawQcVN0odmmpp67lBddW7wgQCNahf/iHyv5NfSzeHmJjMHqNZq1jyM
CXol7ZoyblLeMNVr+3k/Pfj9S+nFgTf3vuiteo32SGq4qerPp7qOHFv6Qjoj
yvrjlWtVz+28/vE2J9Wjcmo+dGttlE5carI411Z1gIFvwJv0eumsEXcXzL1X
J+2RdWPcrkTV4wuDq46vUK27XHgqdojqglc+w3Pbqm519A5y1T2Xdt70oODL
aN1f3i+34PDoWmn7orQGm5Cn0jbGBtMKbGvUeU2h2h8/eiR9vzDz2rnSB9JD
m6Iajb5SbTgtoVOXjqov3b6gC559T/rq1bBimzZ3pTWjc6bsraxS32txdc+A
ctUO3dtlVtxQ3RQSsqxblupbOy19ncfckY5Y65OXmlEh7V12YdNRJ9VtNVrT
aw4l0rtPl7Rkr0iXNkmYndpmZqJ0+wd9rIMuRub8X1rvb2iapmmapul/asv8
LcbWpRbSD1zHR1eZmUkfH7nh0MpAE+mS6opndn3bSm/dkD55j5ORdJ1D99XB
lobS+iGXs8/ZGkhf/3pB8z4/femU4/Hzrqa/+w/7/WZLrk3steSt9Jwoj4G9
6pqlx7q0n5jioXr5nsCkaR6N0t0bnc3abHsu3fJ4YWVtrU56q6W7Yzsv1YOb
Ur899sOv0qcqgvumnnki3boqYmhDsOo4I51Px/oa6dpdDUc/GVMt3Xnjq077
cx9KZ7mMSo7Wuyvtkn0mYrP2F2mHK7PDK+xuS1s8qhx/2L1I2ie+R8MYjyPS
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIB/
12/ljWv5
           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJzt2Hk01fu/x3HznBMpOqgos5KiTjQJlRJRjiFDkk6cUtERSseQSChNiFKK
[encoded data, 5220 characters]
QRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQf/J/QspGM+D
           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 1, 0]], 
          PointBox[CompressedData["
1:eJzt1flXzfsex/FdGohSO+VQuIZjOJUGziEqG0VEZKiIkAbkZGwgZCqhMtep
FDJHEh0nSpKoc4roRJmKEo1KSRJ111133c/L/RPuXa/nL3s91nev/cP+fj7v
d3+XVbPc5CUSyT6pRPKvz3+nmyH5r2iapmmapmmapmmapmmapmmapmmapmma
pmmapmmapmmapmmapmmapmmapmmapmmapmmapmmapmmapmmapmmapmmapmma
pmmapmmapmmapmmapmmapmmapmmapmmapmmapmmapmmapmmapmmapmmapun/
N69Rf6027L6m8IBPq4oS29SFg3620Fl1r7uwzrdu/p0ndxGW71VfIhmkLLw8
QbZ3c7uSsFev2b8WesJWN3z6z5HAcwIUVSPrFYWXnNqjalAK7zy/4/qgBNi/
frBKuw8crPDYtosXPMmjY/MjT/i9vKRB4gR79ImUbZ0Ke7a1XsucAv+mNy/u
d3k4Z3udYehtBeG1B6vz5qfDs0bLuZtEwnNCq7qlecPLqtN/vT8IdnCxK9v3
opPwevmn2nti4KVDbljMnwmPPVQ+XcsCtpKEa2mMgW1DDw+w/CIvXL87WlHl
Ouy87/kXk11wQ1gPW4vFcMcw1aWzrWDtQpV3Jnpw7+y4IWUD4NML9jWEacAm
rbb9gmrlhHd7jN4kvQEH1V/d5HYSrjFeNMY1GE7emenWsBLOSGuyXOIB2/Q1
Oj1oJjzV02Gcnzm85vVvaxy+s8F938Wxg2H/ePc3u5TgP2puDo78IhFu3mCd
adwIm7hUGlgXwZNVQlSiM+Gqhz/arbkNd62N+dopAY6cWZZ9exM86K/0uBOz
YV/N1LiUSXC1o2lxjQW8ueXe2qm/wD26Rt+004LDkhraEqs6bv3Hmm9LFNeX
wn7Vy0y+nYezW0MmevjDVuqxamf94I5dse29VsHqK3tNL10AD/k978hHMzjf
wN3Otwe8S23kpm717cL+247kDEyFC16Oai7cD6cpJVbt2ASrWk17+mwNvMLs
3c5yObjMp99lq7XfhOdem/EidxosvayckD7wO8vy/G9VfxVuuJ5y0/Ea7Dvm
qPwbVzhGpeRq1Ch4Z7dLrlYjYEl9kd5IDTglzMx2d2ObcKrrkPF2KbCJUtPM
3CWw2rnU4NJBsP2vD3qf/fJFWCslYNynl7DaY7m+3R7ApdbN2kGxsM/M4afN
VsOvlJ6MCF8BP9HYGNpsD48fcS9VOgUe41fpm/ULbPY2K95UCbaKn9wzK7dV
WOep01Tzo3BqgZG64m74aLZhiWMg/KFD45LpWrjHOp0nb13gG2ZuEbfNYPcL
w60DpbDN9E9xp1Thg4khcz98/Yz3O6sg160WNhy4yDg4D567uCi44iLca0/m
+/3f2dDl06G0KDiq7yi3js3wooSpBjGrYe9Zrk7BK+DOV/e6FrjDrpY9XcIX
wsk6yhc2T4d/kqqMyhgPb6h4eL/GGNbMl3j7K8KZjs1eux61CP/8as/hhHR4
T97qaQej4fyCteEzXGDNuPLGFeNgjZeN+lrD4JrI9uhxmnBHSPzUpsZPwmMN
O4X6PIEVLnxs7p0FJyyKsp19BJ7gecdrrD2s+KSLtNwUnu+2RStPDzafo++y
QAJHq3Y6V/u6WfiY/eoFNUVwy7gdNgV3YV2FjVPCz8JJqjO80g7ANt1t8m/7
fvf9WbNrBjvDz71Kj961hnMq1x1ve/8R56FUfan5abi9WGtGxU44pF9zwvlp
sJLjC++ROnDnBtWseVeahC11xuieMYLVsvt1hCY3Co+Lljj7uMHO+qfydv4C
P/697uPlxg/CRbVDT3z5G/ZM/Dk/Nhk+vmXEtoIo+ICxS/HmXXBu/hR1U0+4
JdWpcZIlHLZCNrF2MLykr2SuTk+4ZKuPlpcyvNvJ1rqluQH380GGzPgNfP1E
eMS1cjhWvaiPbSm8QvuDv3cy7BAWmRUYBms4ByR0Ww2f2ZNcZdIdls2YEFoR
VS8c/6w0q4sT7BltvLBWF65sjxgZWfxeeOgBnRtPw+FC00O9H3jD0+wld7ZM
gnW6nxheoA0funfgQVJVnfCFPUXD8u/C0qJbs+Iuwl7umcGf4uGDSf4bZhyD
zYxlQ64cgpc4+m2RTIc74szltpTV4rwrpplL02Br1bGR3jfg/W5KEZ+D4IvO
6sdGzYFHDRwos7eBJWM9DPz14e0H38VEfanBeQq+VPygBF55asKJR89hu71T
1B4Xw/Ylys+a7sJzAtWG6V+F0zvLfM4NgJtvqXf9M6Ja+KnJ2KWJofDc6sJ5
XS1g3xFXdKqqq4RvTttVJn0Bf5CFnPHPgW37VkQstIHtbQsHuuVUYj+o1hfp
boXL5ww3qewDXwrPifsp551wln5A7LZzsN6YtGMaK+Fp/WI0TxnBd2YsflUm
hSUTLzt8WvhWuG73pDcD8iqEHfP1w5Znw9rrdmxXOAUfkZN7bRsAh0bfUfj6
A3zPILdPR+Ab7KP78kbmJrBJicXru63l2P+xoZZSJzi3/GTG1Mwy4bSb25V/
2gtXbrMIXDUU7jxMT+/gH6+FR9duT/ebBM8rT4zeLQ/HWqySG1r9Svi3CW9M
596Hi9xD1H/cC5cprK1wNoWXXTjb6cLaUuHwZG2F6DMlwm9/OOb+MgKu27j4
/N2HL4XHbJT1a+gO+9lnOL4teCF8QvdggOVJuNWw/NWlAFhz57D4xMLnOD8f
FhQrtz4Tbuqlss7vJDzgTkhdJyd4nqy2Ram2WDhGdu5M89cnOL8VS9TCVjzG
+3/1wKY6vhDzwefqCHk7eGLmqAWHY/4WPropabSiNtwR9rFxQmUB9t9ghyrt
pkfCt/vnvAsJeSgcZHhFt2NRvnDE572ld9ruY94Nd0lUmww3FUwMOG4A75A9
79NFAh/o8nx9SE6esFFt1GGpN7ykcHrKjy1/YR8+vGi93u1P4a+aARsaMrOF
e75e87nO+x6ed5qkUdJ+V9jjem+7LsvhD3q+xvkzs4RP9jm8/OnYTOHayfZN
IRsyMM+qExQsXW8JNz6PNDrukS48vW37lX9EpeG+XAl+N981Ff9nUX8f5x4p
mM/jA7/Wn0wWftFR01nqCccPcTj7w99XMd+UpKqvopOEr71Tvt4vKRG/b/5R
1jLuEvbxzfAdxX9dEH5mHVSXqxMvrL4wxu+y4Uncn/LxxbpOR4RnXU6Xmzn4
gPDHZfvNvrVtxbxijDHGGGOMMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHG
GGOMMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHGGGOMMcYYY4wxxhhjjDHG
/gf7J/KZJSY=
           "]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0.5, 0]], 
          PointBox[CompressedData["
1:eJzt23k01P3fx3FrloqylRbt2bpalCwpSaFFsoSLlCKFLK2yCy1kiRBpvSRF
[encoded data, 7200 characters]
ZA==
           "]]}}, {{
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0.5]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 1, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[
           1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           GrayLevel[0.5]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 1, 0]]}, {
          Directive[
           PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], 
           AbsoluteThickness[1.6], 
           RGBColor[
           1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox[
          "\"X4 Noise \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
           TraditionalForm], None}, {
          FormBox[
          "\"X4 Noise \\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
           TraditionalForm], None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-5, 1}, {-5, 1}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{
        "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
         "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
        DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                    None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0.5], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                 ",", #7}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}], "}"}]], "Output",
 CellChangeTimes->{
  3.771841895643507*^9, {3.7718422340552893`*^9, 3.7718422580551367`*^9}, {
   3.7718424181754675`*^9, 3.771842436375085*^9}, 
   3.7718424976349*^9},ExpressionUUID->"7971030f-bb93-4211-8364-10832f34b8bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "LMMINX4X1C1", ",", "LMMINX4X1C2", ",", "LMMINX4X1C3", 
     ",", "LMMINX4X1C4", ",", "LMMINX4X1C5", ",", "LMMINX4X1C6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "1"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Noise amplification \!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",",
       " ", "\"\<Noise amplification \
\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\)\!\(\
\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.771842539264739*^9, 3.7718426669145393`*^9}, {
  3.7718427351546073`*^9, 
  3.7718427854249296`*^9}},ExpressionUUID->"b765f24c-4225-474a-b499-\
7704cd1dd211"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3E+sdXdZhuGPQmmtaFGLgppa46RODBEHDKw2TOqAARATHXRQjRITB9ZE
[encoded data, 6420 characters]
+btVqw6pw9Xr/wFwZEqU
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzt2nk01f2+wHFkSuYGU0rKEEJSIVKSoZQhREkqw5PQLiFJEkrGypiZDEWZ
[encoded data, 7080 characters]
IHXYsA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt2Hk01/kex/FfUlpIJmMiE0o0RKS6uoybIVtG8TNpCo3ED5XSMpTGkiW3
siUtIqPIFoNca5ZIJVuEfkaKKUvNr7GPZSxz7rlnPu97/7j/33vm9fjndZ7n
d77n/M7vc87nd85XYf8RKychDoezZhmH88/9F9lyLBaLxWKxWCwWi8VisVgs
FovFYrFY7P/G+h2W+y5P9xPWn3XtC4r3lWCtdt/39MB1cdYZ15debk9ewvqF
9+PlyTOirKWk05Nv9i5mbe0iM5KVTf0hxjXK15q6vW5Wdq4w9SXPjXcuVy9i
PWZ0ynU8klpzQjDjb0v9cH1+6Lz11J3ZPS1RgoWsg5x5Qm751FL/eJ/37iS1
weawn5Rkqd1jolOmKxawHmyUvzYniNpSMVXMdg11sPno1dZyEdY2jQeyDM5R
Dyq05Ch/RR0TWPIk4df5rP/e2y5peoA6RFGHE/tmHusocZHciETq3AlDGT03
6nOCtZE+CtRaCe3XtAeFWStmBkaH8alPrFaV8C6jVmh15ArCqeWOGNzY7ULd
UOdj2GJFnZUQ2FBnRm0bGmlppk89aPe0VUOUevbY98MtxXNZh9bkHth+hdoo
Ub/a6BD1ZHVQ/vzPqEWSNhxX6xZiPdxZXTCTTb3x+Lzx899TV+XetOuOota0
j/XTOUcdyktavZJHrZNoKuhZR31Lqy5fQ4TaIXfCX3ZiDuujUbtV4gXUeU7F
Jfa11FyDXq2yWGpfDflviwKpW9R7uGcPU29zzH6lspt6TYxTqpgl9WrFoSfT
xtQ2yeIjPF1qv2PG4yNq1DMRqcYXZKkP+g/xs37msO7QVpEtLaJ+nW6yVyWJ
+qH7zgvvzlB/CDoiHG1B7ZuVl6y1ifrt231BTkrURV0WVRnjs2V/9EnhmiBu
IHVkXbrattkZ1pnu3pPPD1JXV7XdFpemLm7lfuwvRO0nulWgMTXNuke6z3fR
Y+qPXKRXivpQu0Xsd5Uwpra4FJZnvZL65esH3O60Kfo+5fWPNhpQn+ppKlys
Tl3Ha/70kQi1k6VVjHXdb6w5VWKKL29Q85V32o4HUh+t8FE31KO+vWGGt31i
krVj4lKhjOfUQyLqBg051AGFwXobvKglX7mt3do6wXrPyYB5I3uoi/onxx4J
U9+fl6JpmjzOOjrrxwoLb+qV50uLdG2p775pelagQ+38TaLtg9Qx1la3fP56
aD21i/3SvbGi1NZTgRfHG35l7XNY+aXEXWp3eZdR0RBq88obaeftqAXyy93t
lP7t86GrTtv6RllL/bDzy+JKan33QnWbu9SWWtxw1evUItOec7/iUQ9qTwzn
yVE/kRngdY2M0O+zxNd0uJ76pv3blUccqOM9dTSOC1N/XbZCe+7oMOvWd4m6
zcnU2peXb9hoRH3Ox1BtCYdaJCnAsLJpiLWxR9se1RJqtYsJZzriqMOryvOD
edRr5ES9/LSoP9U/api/nNrVY/KNY98g6yslHrw7hdTFwcEFkaeobW57TAya
Uku/FJT9ZkS9NM5ixz5dasNXDqe59QOs0x4p5O3fRZ1tNnRNf7KftaZbm0Hm
CWr9+Zmlb7Wpv31e2DpS8Qudx+LrR+64Ule0/WVoiwX1eKOpfNw2arXxFnPp
kQ/0/KYvZjf5UJfseiyetY56h9TZuKdXBKyXcZtasvR+Zp3e2SOpYfOe9fTY
17+o8d+xjlI9o6Im30fn+/ieXu2zHrrfDipszjlB7TLfqdhSlTq6dzZmPK+b
dYpXc22lCPXQMbsOR8+3dL6rXiZlrKPO8JyqNbnwhvWXOiGdD3t/Yt0kNhzA
KaA+evCplbIX9eFS/44wE+pbYUZexzu76Hz+5ibRsYz60KpVniaPX7GO4Hsc
SoxuZx2SYHLB/tqPrCdvB6TPMaLOyYi8wx/js3bY4r1r6pMXrBPvpaZ+tKKV
tXJ9df6ulGbW76OFo7dbPWe9OTRG0i+sie5782qR+LRG1o3c+Iteu6n38i8p
1bs8Y33as6M97kU9axO/li1tC6gX9jftKRuspfvRqoZ/Rp36odxZux38Gtbb
V2/d9GSqmrX3FwfCd4RVspaJMunvDCxh/UxbvsRcooDum1J177bpbNa81KV5
Ws4/sK6v0uBxhNPo/6Srb9+KB4msv/MZaNoqFsVarFvpY++aC/f/rM35D2g0
Go1Go9FoNBqN/n/vQoeuyXseEqzXFppLxa4X/a9t250q0Ze7kLWkwgmz4LXU
zWUp/TO6C1iXH9IMuioQYh0ul7TkrDOHtb1ZZM+ykD/eM3M4DZ/fz1w0OsZ6
M7fEuSVngLVRuMxVRY0+1u0SA9/IR7xm/XmY6VhNZQVrAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIA/g98BdP3yfA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzt1VtQ1NcBx/Hd/+6ysIBcIiKrixJQMaCgKIhINWrCGowXQImKqBjiBSIO
SkolKCAilzhJRIQaolyCWjWlg0SQS89BQUFuWteIUUrQoKLWLAheFtitmQzn
TB+cdqavv8/Lb75P/3POy98hLCogXBCJRBPeEol+29+NpVgsFovFYrFYLBaL
xWKxWCwWi8VisVgsFovFYrFYLBaLxWKxWCyWL6nYOsp5tzXr77fcabyosmCd
OvXvdt0bzN/YLp/4p711zZT3grqRJ1cpWI/o6GkoqDJmbbtrRat7jJz1kYRW
r8si3s97jc8HFBnxzlruGiF/c8+qSdqZe1D2xjZXzM2zC/vvvTJxdXli1Ei6
92qrV7ypjPrubnHOOmxNhf4Q7agLUlqr1C6busmKtrY1/WHCKSn16Rs3ytPT
kualmzfNTZRSt4xD/svUI2iN9a0xW8ZKqVBYcGvOLjPWm+7d/mLNXFPWrvuT
yhquKCjxiHj8U5uEntbU2OkyTOjqE5Ek7SsJdTErfOb6jTEtSDV8QDwltIRe
buxe//odFyR21wgSOrpRl6gU837xU+qS3n1y6rQ/VVHSKVD1bbLW0UVO1x8L
Uju0CvRizpmhWY+NqKlj5CcnKgVqtubHDebvGdGiYPf6ukKBFpcPnL1dLXt9
34cdzpsFeiB44vylOTL6V5XTlwXTBdrq+M6Ijcmv30Wld822EegYd/m6nI0y
OvVg1gvdJTFdvP30Za27jJJeXdTiaDGdoSnIXGEro5bvqk2cZoqpimRdeM9G
RrXqA30OFmL6Yd4RH/seKd2QlxAYbSSmRzUSp8YyKX11sy20e1BEf5gyeY/l
Xik9lvZx6aguEbUJtJW7hPM+fsa6dEOYlIbfCw7u2S+iXx+PNE/XSWjcS3N9
pb2IRmfWrry4g/cZa83D4zN5X1FSl6MS3sPvNtxhRRPc5Nd414lz+2ae4f12
5v2TR0ME9n3vcX2mNXa8FYVn7Q0/i1lnaHJvhZaJ2fmXfp+/fmI2b3VzsE/G
Ct6vBNKsteet+uX+P56JeYt9tirnPBax9youo/6hbbxrclJ9jM/y3qmIeRSd
wvuHaYGLknbwLt8TZlmyiXdsrEeQyp/3milxSQGjedd/lpL+5FcDGT5Prv4z
hxV7DWT4vtlpkWaSJj3rDpttmjEBvIvOOU2SvqMnw+8Zkuns3fBiiJzv0n20
LdxAPs0vv1NfOkTS/pR3uLZST7zW9Sg91EOkeHq+yWRbPYlN82sRQgaJ7933
vyxePURSBpOrUnYNkJOXlvhu6hwkLUnTlvSPGSDzgpdrOr0HibyzcsbUJh1J
u5Fy6ePJA+TbVQqFf5qObH8/KLk3Q0c669yPRCh5e4Wl06WnX7EeTDUzXuXK
W63ceT8n7iXr2cULFpMZvGMmBzz55m8vWG+Obct6PoH3TnVeSaqC9x+XzZ41
v+U5O19Zps3y7TG8143e9XCfG2/vqkfv+hj6WRduNd5crepn940QVkYMlD5j
XeF5d+O6e72s/SpuLjhQyHthfXznqSje2qv153Kn8a59GTiz2oi3wSUgbra2
h7XHnq7arw5pWX+aX117zPcpa6crZ/tsE56wtpULQbWqR/x7uiT1pQ8esP6l
vvxGXUsX6+m6zH7pn3lLggpG2lnwbr3ToI1fe4/19espTbayu6yVvlVLsjo6
Wec2db8dcZu383iT8vabvHUJCZFjK3jf+sJqpce8n1mnxwSSkrJ21gGahj3f
ubWTZiHU4sG4IWKkVCtuODez/rqmWV8ZVcrauGBtiWxVIWvzrok2cY0ZVX7k
iavWU/8/d4C1R7bmppgON/uv/Z8t+g9oNBqNRqPR6De1Fd0rt2mxZN01e+Gh
TlNT1qdmff7t9lhj1s3d7b/aTzJinfx56YcH3aSse53H74i3krAWJ1ytrFMJ
rH88sXHwcIiYdfGp/PXXSw2EnWzLjUWOW4ZYh2b6TXHsHWQ938t8UbEf720H
Y48H+fWzHt/vYSrb18Na/zC84+lTLetkqzkuJkt5u+tK/lJ0/l+sz7XHTyq5
8Ji1ITp9el8876NSbaDFs0esnx7o++6jed2sR+9+OTK7+j7rCi/v04dEd1l7
VV5IT1T/k7XztbWp7fZ3WFs+6Fh4bM4V1oH5Dn3z/PJYAwAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAPzm32xjkqE=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJztmmk0lW3bgPdgJg9RFCoKhZJSnlBPQlJSKqEMTXqiUlFKqWgiURpUIkkl
[encoded data, 5520 characters]
BEEQBEEQ5P+C/wJic9or
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzt1fk31fsex/FNhlJkiAbKqTQi0SBl2IoSJcpUopKh0kE6hqJISIVKReyo
NCshjiMhSXFCSoqSITIrU1KIu+6663ze3b/grrvW6/nLXo+19/quvb6fz+f9
mW7nutGBn8PhzJLicP79+Z/kcjn/FQzDMAzDMAzDMAzDMAzDMAzDMAzDMAzD
MAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzD
MAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzD
MAz/b7xP/KPYvBIp5hnfXCuSBsWZg5doy7o+G88s+3Ocz+g1Y5j5J3fWcBSE
mXcnck8eGhZidpm86fdyZ7J+pud0Mw7ZzE9QNLpTkHnHtROiyrXkwNtHHygk
kn06Z4sMe5JDBN4Yj3Ehr3YaOfTKmfyFn9PFsSY7TY3m+huSnQd/pOetJV9Q
3Bz/Jz+5MOCzSthjAWb3iLbiLTnkjcv4HNWiyWZhreOyPMi72nJ+L1EgW9qZ
1p/6MIr5D/53MidiyTvnZGpvMSGvONuwXlqbrM+JlJZYTjYOOzdDb4CfufM4
T1DkAdn2VNWA2jFyV/gEY+3t5JF5ojs36ZNlykWa1RTJUwri59TPIF/feqor
XIKs9sNYPriDj/m40zJfyUxycGeqr8NVcrvqtuX2IeS0wDyHrr3k3KxevR1O
ZKNpC68rmJANnS11vLXI+z5e2Gf5i5VLvLbHzSb7JDh+OiZE/qs9e3b0AIe5
74BBnmoPWc2uRdmggrxGJFSEl0dufTnLdN9j8tiO2KFRieRok/qCx75khec5
8Vc2kb2kHsZnrCa3WWlUtmuTD/U/czdcSp4wlpdtKk0OT+kaTGodefSPpZpq
BP+oJXu37VL7eZtc8CN0lZMPWV88TuymN3nkWNzwZFey+N7J62u3kuf8WXz+
qya5VNnR1GsC+ZjYYt9xncPMPkfOF858SC6rVu8rP03OEkpqPepLFtVf9+79
PvIezebABj5yvad8sr77T2bz9A0fitaRJZOFE3Nm/mJusc+jtiHmrgcZ2Vbp
ZK/lF/k/2ZNjRWpSY9TJgePu2esvInM6KxQXS5AzwjWNj/cMMj+0n6NrmkFW
E+o1KdpBFrv1MKRWgWzx+4spNwcGmKUz/HS+VZPF3vBNG/eCXGvQJxMcR/Y0
WXBd041cJ/R2UeQe8luJg2F9FmTdRc8eSq4lL/du8cpfStZsyk/QECLrJ6yZ
mF/0g1n2nbWh1kXyw7KF4oLHyRcLVGqsgsjdIxL3NNzJE/bLvm2yI2dqOkQ9
1iQ73llgECRJNlr/Lf6aKDkiKdS8e+g7re/GsiKHDrLKzG2qIcVk8+0VIY13
yZNP5H05/YtV7L6dzYohx0xTdxg5RN6WaKgc60b22GhvHbKHPDr1pH2ZI9le
b6JdpA05TVb4zqH15PmSIuq5uuQDjS9L2lXJUqUcDx9Bcp5Vn8uxV/3MS+pO
nEvMIZ8odlsXwSOXlrlHbrAjS8U39OzRIUtU9yhJzyO3Rw/zdKTII6EJhr09
35hXqIwK83xLFrjztW9KPjlxW4zxpvPklc5PXFZYkAXfjpFs0CBvcTgsXaxI
1jJTstvKIfNER93q+NjHfMnCbWt7Bblf56hR2VOynMDBtZE3ySmiG1yyzpCN
xhuVPvb65fcbN7XPtiVXudRefGpALmzZf3nwy1faD7XiO7Wuk4crpTc0BpJD
5fsSb68jC1l98FgsSx7dJZq/+X4vs57scrkbC8liBfIjYWk9zDo8jq2nA9lW
6Vpx4FLymz8/f03u6Wau6Jh7ZeA12TlpSWlcGvny4UVHymLIZ1TtKg8dIxeV
rhXXcCb3P7TuWa1HDt/DXdUxm7xjGsdcdiK5xt9T2kWYfNza2KC/r4vO54tc
ruon8oMrkVHpDeQ48YqpxrXkPTLdPh5pZMvw6PygcLKErV/iODfyjRNprWrj
ydwNK8MaYzqZE97X5o+xJjvzVG065Mgtw1GLoyu/MM89I5v5LpJcrnF2ygsP
8joLzpPDq8my468sKJMhn3125kVK62fmOycq5pU+JUtWPNoYf5fs4pgX8i2B
HJHic2DDJbKmKnfO/bPkHVbehznrySPxWnyH6ztovwtmaUlmkQ1EV0R7ZJJP
OwhFfQ8m37UVv6RuRlafOZNrYUTmrHBS9lEiB0Q0x8YMtNN+CrlX+aKGvPfa
yiuvqsimJ9eKvakkW9QIv+99SjYLEpunlErOGc31vDWD3PdIfOzfUW3M79RW
7EwKI5u3lW8eq032WnRftrWtlTl73bF6yQ/kbm7oDZ9CsvG0xigbI7KFcflM
h8IWuh9EOyvk/MkNZgvUWqaS70UWxs8vbGbOV/KLO3KLrLg865LEXvI6+Vip
awvJTzZsr6uXJHNWJVt+s2li/nx89acZxY3MVqVK4bsLyDL7jwYIXCOf5+P7
aOxHDuM9ERiaRH6mXDR1JOgT3Ucl/Au11MhqNdofn/5ooPs/LkxP0ppc1HA1
1zCvnjkrO0B4/klyyxHtINe55NHzFBUj/vrIvKwjIMd7NXlzQxLvOD85TtuV
b25bHfOFlZ80zEvIFY6h4rNOkusF3BttNci77twcdce9ljkyTUaAd6OGuWnS
JcfqKPLng9tvP31Zzbz8IFe+azzZ2yLXqqnsA/MVuQg/vavkHyoNdff8yFKB
8xKSyqto/3RvrRT+8Z65d7LIfu+r5BlPQj+PsiZv5nb0C3VUMsdyb93oG3pL
+7dxh1j4nje0/nUvjNoSymk+eKYu4jclr8pT33ou9jXzRd+UZYIy5JHwrz0r
W8ro/ptt2SrT+4r58fTC5tDQl8zBKvflRraVMkd9P1n7ZLCE5t0CuySxNeTe
slV+l5XJR7lVU8dwyGfGVP0RWljMvLAj5pykB3lH+fqMWf3P6T58edfgD4e/
mYek/A505RUwT/y47/tnj2f0/ajVEjXDT5mdHkwxHbOb3K3opVpqks98deq5
3e9W5DF3rLHoDT2QS/OsLVFAz/4Rc09V9MLLTjnM6wcD7v8Wk0Xn5X5I8xb7
h/Q+K6Z72k7IoPmsGzTUeTWN+cNI+2hJZ3LCHMubk16n0nwTkhSt46UwpzcL
P5BPSaLna33l9uvco/s4O/Jo5fM7zO8Ngj8XySYwi9vEeierXKXz06BbKWd9
nnljcg6fyewzzF93ndb8OehP8wohhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
IYQQQgghhBBC/3eZH3xzVaXbX+cfn52z7bdbqRHMXUnaVZNWnWeeteRnyXzF
KGZPXVu90XsvMKsXZwu9F41hjro8667CPR7zdfn1YtyW6/T8O44V01ISmVtN
FA46WSQzpyr0u18zT2XWa9drmlWVxny0evbXR1XpzOMMgpdNKs1gHlgp+EyX
L5s5JD2wRCk4l/n4IanCoYtPmANM5M7I8gqYz9dlxbkt+Js54t7Bl2k7ntP/
ydx5qv1LCfMTa2cub/9LZvO/zqq0PibbxMcHBOm+Yi6pqH3lGEe2Mwy/ZZNI
FunTmeS+vIz5zKNpVoX55EtlYqnpAq+Zj6X6KdttIKtbFfqXBZGvJC3xOKFb
zpwela17vpxsLD53dKXXG+YLSw738d14yyzqGxpcFlHB7JodeZKXXMmc5Wxm
+sDwPbNSjYpZj2oVrWfGytZbemQ9MTdnQV/yypMzltqnkN1Obd+UUU6evvf6
pAGZD8y8S8qF3UvIl43W6jctJZ/+vnt4sg45Mztym+VqsufleJv5O6uZq8W2
FfxUq2Wu+W6TbK1QR/t1/ofNQnPrmWWFhCo7yxqYtd6ezi2sIfs3mRfzN5GD
NvnV6TR8Yk5rlg1zndDEzFmVbPnNhizla1Ir5k/+F4uKUIQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzt23k01uvD7/H7NlOhDFGSRqIiDYZsQkUajCFSRDIUIsrYIInIEDI2S1FI
[encoded data, 8760 characters]
fdX4nvUJ1EFnff+0a/epeuj/AKD5Vr8=
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Noise amplification \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\",\
FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Noise amplification \
\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-7., 3.}, {-7., 3.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.771842549224522*^9, 3.771842667719783*^9}, {
  3.7718427199201336`*^9, 
  3.7718427869447174`*^9}},ExpressionUUID->"930ab902-c7c6-41d4-b5ab-\
b72627d34bcb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"INX4X1M1", "=", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C1M1Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C1M1Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C1M1Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C1M1Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C1M1Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C1M1Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C1M1Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C1M1Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C1M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "C1M1Noise", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C2M1Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C2M1Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C2M1Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C2M1Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C2M1Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C2M1Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C2M1Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C2M1Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C2M1Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "C2M1Noise", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
     "\[IndentingNewLine]", "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7718429246648493`*^9, 3.7718431657841873`*^9}, {
  3.7718438963838034`*^9, 
  3.771843896574046*^9}},ExpressionUUID->"22fe0b39-9160-49aa-981d-\
3a7079da726f"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,379,434,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718439007242403`*^9, 3.772513625614391*^9, 
  3.7725140808785257`*^9},ExpressionUUID->"66f84f6f-511f-43d3-ba1e-\
54513b5f5c4f"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,379,435,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718439007242403`*^9, 3.772513625614391*^9, 
  3.7725140809005265`*^9},ExpressionUUID->"d6393569-70fe-48f9-9265-\
87bd40bb1a71"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,379,436,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718439007242403`*^9, 3.772513625614391*^9, 
  3.772514080914565*^9},ExpressionUUID->"ecc52a59-d7fb-432d-9cf9-\
a2ea892906a3"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,379,437,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718439007242403`*^9, 3.772513625614391*^9, 
  3.7725140809275246`*^9},ExpressionUUID->"7cfc0878-6a51-4623-bbf6-\
87ada2c9f68c"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,379,438,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718439007242403`*^9, 3.772513625614391*^9, 
  3.772514080941559*^9},ExpressionUUID->"4a8680d1-5acd-43bc-9f39-\
ac65e67528dd"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,379,439,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718439007242403`*^9, 3.772513625614391*^9, 
  3.772514080954561*^9},ExpressionUUID->"5e3f93cc-6d7f-420d-82c7-\
8c07751f9114"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,379,440,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718439007242403`*^9, 3.772513625614391*^9, 
  3.772514080967526*^9},ExpressionUUID->"12152b45-f787-4db6-bcf1-\
d02e50186030"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,379,441,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718439007242403`*^9, 3.772513625614391*^9, 
  3.772514080980527*^9},ExpressionUUID->"b9f5a2a1-64c0-45c9-824e-\
cdb3ac3fcaf6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"INX4X1M2", "=", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C1M2Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C1M2Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C1M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C1M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C1M2Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C1M2Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C1M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C1M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C1M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "C1M2Noise", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C3M2Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C3M2Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C3M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C3M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C3M2Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C3M2Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C3M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C3M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C3M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "C3M2Noise", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C4M2Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C4M2Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C4M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C4M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C4M2Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C4M2Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C4M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C4M2Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C4M2Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "C4M2Noise", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
     "\[IndentingNewLine]", "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7718432009643016`*^9, 3.7718433158542852`*^9}, {
  3.771843886383732*^9, 
  3.771843889153721*^9}},ExpressionUUID->"4b945772-e3af-49dd-84fd-\
f4b6f4ea3fbc"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,345,402,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718431681707644`*^9, 3.7718433176024284`*^9, 
  3.7718439020439763`*^9, 
  3.772513626841391*^9},ExpressionUUID->"2ebe35ae-f252-493d-bb17-\
9c7a5b4e6d00"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,345,403,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718431681707644`*^9, 3.7718433176024284`*^9, 
  3.7718439020439763`*^9, 
  3.7725136268573537`*^9},ExpressionUUID->"611b1493-01f5-458f-b797-\
6ae82d3673f2"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,345,404,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718431681707644`*^9, 3.7718433176024284`*^9, 
  3.7718439020439763`*^9, 
  3.7725136268694077`*^9},ExpressionUUID->"333cd0c4-084d-4675-8b6f-\
a78a88e21c1f"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,345,405,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718431681707644`*^9, 3.7718433176024284`*^9, 
  3.7718439020439763`*^9, 
  3.7725136268833895`*^9},ExpressionUUID->"15d5f80d-15b7-4f36-a655-\
1c8b19325a4b"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,345,406,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718431681707644`*^9, 3.7718433176024284`*^9, 
  3.7718439020439763`*^9, 
  3.7725136268953543`*^9},ExpressionUUID->"60c84449-d08a-4491-8fa4-\
7e5a78e3a49d"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,345,407,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718431681707644`*^9, 3.7718433176024284`*^9, 
  3.7718439020439763`*^9, 
  3.7725136269093876`*^9},ExpressionUUID->"9d6300c2-9656-4ff4-8fdb-\
54bdbff15f7f"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,345,408,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718431681707644`*^9, 3.7718433176024284`*^9, 
  3.7718439020439763`*^9, 
  3.7725136269223537`*^9},ExpressionUUID->"81276317-8429-4759-87ee-\
fef00c0d24b8"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,345,409,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718431681707644`*^9, 3.7718433176024284`*^9, 
  3.7718439020439763`*^9, 
  3.772513626935354*^9},ExpressionUUID->"af4133b4-b31e-4493-884b-\
3f40a2eb56a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"INX4X1M22", "=", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C2M22Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C2M22Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C2M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C2M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C2M22Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C2M22Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C2M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C2M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C2M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "C2M22Noise", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C3M22Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C3M22Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C3M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C3M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C3M22Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C3M22Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C3M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C3M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C3M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "C3M22Noise", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C5M22Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C5M22Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C5M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C5M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C5M22Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C5M22Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C5M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C5M22Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C5M22Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "C5M22Noise", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
     "\[IndentingNewLine]", "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7718432009643016`*^9, 3.7718434549839787`*^9}, {
  3.771843875863696*^9, 
  3.771843880004245*^9}},ExpressionUUID->"88d1907e-4a5c-45a4-a4e2-\
ed89331e933a"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,346,410,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718434576244993`*^9, 3.77184390304397*^9, 
  3.7725136284455395`*^9},ExpressionUUID->"e8b6bb4e-8ff3-48a0-8014-\
4f3b55b353b2"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,346,411,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718434576244993`*^9, 3.77184390304397*^9, 
  3.7725136284604864`*^9},ExpressionUUID->"cd1a64ff-cbc7-4f45-86e6-\
f818637a6057"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,346,412,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718434576244993`*^9, 3.77184390304397*^9, 
  3.772513628473486*^9},ExpressionUUID->"ec94ab3c-6703-464d-8622-\
d03622e5acef"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,346,413,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718434576244993`*^9, 3.77184390304397*^9, 
  3.7725136284884863`*^9},ExpressionUUID->"fd611aa8-2ed3-43ed-8148-\
eaa058dbfc04"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,346,414,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718434576244993`*^9, 3.77184390304397*^9, 
  3.7725136285005445`*^9},ExpressionUUID->"7d81816a-166f-4c35-953a-\
74bf2c2e476e"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,346,415,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718434576244993`*^9, 3.77184390304397*^9, 
  3.7725136285135098`*^9},ExpressionUUID->"36abaf06-8720-45e9-bf2e-\
081c11369c40"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,346,416,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718434576244993`*^9, 3.77184390304397*^9, 
  3.77251362852952*^9},ExpressionUUID->"30ea6d4e-1b7e-44c7-99ea-b62e4f8f57cd"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,346,417,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718434576244993`*^9, 3.77184390304397*^9, 
  3.772513628545491*^9},ExpressionUUID->"cdc2e996-f226-4317-a385-\
6c1283e13ca2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"INX4X1M3", "=", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C4M3Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C4M3Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C4M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C4M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C4M3Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C4M3Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C4M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C4M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C4M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "C4M3Noise", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C5M3Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C5M3Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C5M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C5M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C5M3Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C5M3Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C5M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C5M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C5M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "C5M3Noise", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C6M3Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C6M3Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C6M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C6M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
          ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Dimensions", "[", 
               RowBox[{"C6M3Noise", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
            RowBox[{"C6M3Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"C6M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
               RowBox[{"C6M3Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
             "/", 
             RowBox[{"C6M3Noise", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "C6M3Noise", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
     "\[IndentingNewLine]", "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7718432009643016`*^9, 3.77184363342404*^9}, {
  3.7718438557337513`*^9, 
  3.771843857483971*^9}},ExpressionUUID->"57e8a021-dbe5-4e2f-898d-\
6da655726ee9"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,347,418,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718436343341618`*^9, 3.7718437224940147`*^9, 
  3.7718439039471655`*^9, 
  3.7725136297714863`*^9},ExpressionUUID->"b5b3dbf6-ba14-48e6-a493-\
57a823d5ce84"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,347,419,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718436343341618`*^9, 3.7718437224940147`*^9, 
  3.7718439039471655`*^9, 
  3.7725136297884855`*^9},ExpressionUUID->"d879bcb1-9e6c-4443-8699-\
fc6326bd2cdb"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,347,420,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718436343341618`*^9, 3.7718437224940147`*^9, 
  3.7718439039471655`*^9, 
  3.7725136298005424`*^9},ExpressionUUID->"abeebf71-9beb-48ef-b9a3-\
631e7e2214d0"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,347,421,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718436343341618`*^9, 3.7718437224940147`*^9, 
  3.7718439039471655`*^9, 
  3.7725136298134866`*^9},ExpressionUUID->"1d6f8e9c-2465-4862-806b-\
a41001b10bc4"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,347,422,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718436343341618`*^9, 3.7718437224940147`*^9, 
  3.7718439039471655`*^9, 
  3.772513629825505*^9},ExpressionUUID->"c85ad96a-5789-48a9-a560-\
ae201003884d"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,347,423,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718436343341618`*^9, 3.7718437224940147`*^9, 
  3.7718439039471655`*^9, 
  3.772513629839525*^9},ExpressionUUID->"b1efdb5f-f4a3-4ab1-816b-\
b2050dc00dd2"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,347,424,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718436343341618`*^9, 3.7718437224940147`*^9, 
  3.7718439039471655`*^9, 
  3.7725136298515425`*^9},ExpressionUUID->"d6ad9345-b647-4bf0-816a-\
da8ad362b85c"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,347,425,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718436343341618`*^9, 3.7718437224940147`*^9, 
  3.7718439039471655`*^9, 
  3.772513629862486*^9},ExpressionUUID->"45d0f3b4-9dc0-44d3-99af-\
e3266562f775"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"INX4X1M4", "=", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dimensions", "[", 
              RowBox[{"C6M4Noise", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
           RowBox[{"C6M4Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"C6M4Noise", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
              RowBox[{"C6M4Noise", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
            RowBox[{"C6M4Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Dimensions", "[", 
              RowBox[{"C6M4Noise", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
           RowBox[{"C6M4Noise", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"C6M4Noise", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
              RowBox[{"C6M4Noise", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
            RowBox[{"C6M4Noise", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{
          RowBox[{"Dimensions", "[", "C6M4Noise", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], 
     "\[IndentingNewLine]", "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7718432009643016`*^9, 3.7718436764118805`*^9}, 
   3.7718437268211427`*^9, {3.7718438405635624`*^9, 
   3.771843841037565*^9}},ExpressionUUID->"57791446-81a5-42c1-9c35-\
735c65d5ba8c"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,348,426,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771843678254239*^9, 3.7718437271442184`*^9, 
  3.7718439050040684`*^9, 
  3.7725136319014893`*^9},ExpressionUUID->"57b858d2-ee20-49bd-987e-\
dc80d45fc7fc"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,348,427,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771843678254239*^9, 3.7718437271442184`*^9, 
  3.7718439050040684`*^9, 
  3.7725136319174867`*^9},ExpressionUUID->"dfb15250-e38a-43eb-bdbf-\
b524bd27995e"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,348,428,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771843678254239*^9, 3.7718437271442184`*^9, 
  3.7718439050040684`*^9, 
  3.7725136319294863`*^9},ExpressionUUID->"76e22c62-5ea6-4891-9eb4-\
b92676f9aa4a"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,348,429,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771843678254239*^9, 3.7718437271442184`*^9, 
  3.7718439050040684`*^9, 
  3.7725136319435196`*^9},ExpressionUUID->"058593c7-949c-4807-adbb-\
653218fe3ee1"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,348,430,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771843678254239*^9, 3.7718437271442184`*^9, 
  3.7718439050040684`*^9, 
  3.7725136319555235`*^9},ExpressionUUID->"86c2f6a2-7b98-47ff-9377-\
164ef0c5eb2f"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,348,431,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771843678254239*^9, 3.7718437271442184`*^9, 
  3.7718439050040684`*^9, 
  3.772513631968486*^9},ExpressionUUID->"6d5d5d6e-1ae3-4401-a4fc-\
0f1c2610054a"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,348,432,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771843678254239*^9, 3.7718437271442184`*^9, 
  3.7718439050040684`*^9, 
  3.7725136319804864`*^9},ExpressionUUID->"7c8a9f98-6046-4000-a565-\
6d17a545a3d2"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,348,433,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.771843678254239*^9, 3.7718437271442184`*^9, 
  3.7718439050040684`*^9, 
  3.772513631992487*^9},ExpressionUUID->"151ddb63-45ea-4b1e-a31a-\
06de1b894088"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NUX4X1M1", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C1M1Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C1M1Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C1M1Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C1M1Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
             ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C1M1Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C1M1Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C1M1Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C1M1Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "C1M1Noise", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C2M1Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C2M1Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C2M1Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C2M1Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
             ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C2M1Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C2M1Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C2M1Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C2M1Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "C2M1Noise", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
        "\[IndentingNewLine]", "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", 
           "\"\<NU\>\""}], " ", "&&", " ", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[NotEqual]", " ", 
           "\"\<NU\>\""}]}], ")"}], "&"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
       RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NUX4X1M2", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C1M2Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C1M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C1M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C1M2Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
             ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C1M2Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C1M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C1M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C1M2Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "C1M2Noise", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C3M2Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C3M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C3M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C3M2Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
             ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C3M2Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C3M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C3M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C3M2Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "C3M2Noise", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C4M2Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C4M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C4M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C4M2Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
             ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C4M2Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C4M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C4M2Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C4M2Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "C4M2Noise", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
        "\[IndentingNewLine]", "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", 
           "\"\<NU\>\""}], " ", "&&", " ", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[NotEqual]", " ", 
           "\"\<NU\>\""}]}], ")"}], "&"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
       RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NUX4X1M22", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C2M22Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C2M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C2M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C2M22Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
             ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C2M22Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C2M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C2M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C2M22Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "C2M22Noise", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C3M22Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C3M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C3M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C3M22Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
             ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C3M22Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C3M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C3M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C3M22Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "C3M22Noise", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C5M22Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C5M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C5M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C5M22Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
             ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C5M22Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C5M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C5M22Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C5M22Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "C5M22Noise", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
        "\[IndentingNewLine]", "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", 
           "\"\<NU\>\""}], " ", "&&", " ", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[NotEqual]", " ", 
           "\"\<NU\>\""}]}], ")"}], "&"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
       RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NUX4X1M3", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C4M3Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C4M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C4M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C4M3Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
             ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C4M3Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C4M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C4M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C4M3Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "C4M3Noise", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C5M3Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C5M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C5M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C5M3Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
             ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C5M3Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C5M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C5M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C5M3Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "C5M3Noise", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C6M3Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C6M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C6M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C6M3Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
             ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Dimensions", "[", 
                  RowBox[{"C6M3Noise", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
               "\"\<NU\>\"", ",", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"C6M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                  RowBox[{"C6M3Noise", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
                "/", 
                RowBox[{"C6M3Noise", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "C6M3Noise", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
        "\[IndentingNewLine]", "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", 
           "\"\<NU\>\""}], " ", "&&", " ", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[NotEqual]", " ", 
           "\"\<NU\>\""}]}], ")"}], "&"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
       RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NUX4X1M4", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Dimensions", "[", 
                 RowBox[{"C6M4Noise", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
              "\"\<NU\>\"", ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"C6M4Noise", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
                 RowBox[{"C6M4Noise", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], 
               "/", 
               RowBox[{"C6M4Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "]"}], 
            ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Dimensions", "[", 
                 RowBox[{"C6M4Noise", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "4"}], ",", 
              "\"\<NU\>\"", ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"C6M4Noise", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
                 RowBox[{"C6M4Noise", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], 
               "/", 
               RowBox[{"C6M4Noise", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "]"}]}],
            "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "C6M4Noise", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], 
        "\[IndentingNewLine]", "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", 
           "\"\<NU\>\""}], " ", "&&", " ", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[NotEqual]", " ", 
           "\"\<NU\>\""}]}], ")"}], "&"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
       RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7718429246648493`*^9, 3.7718431657841873`*^9}, {
  3.7718438963838034`*^9, 3.771843896574046*^9}, {3.77251403840312*^9, 
  3.7725143942913313`*^9}, {3.7725144576518655`*^9, 3.772514466466669*^9}, {
  3.772514508501813*^9, 
  3.7725145444417877`*^9}},ExpressionUUID->"4258491f-8440-4512-8800-\
6fce471bae01"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,396,535,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514571566905*^9},ExpressionUUID->"87eb8b4a-1ed3-4c37-ac4b-\
9cf186bc23d2"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,396,536,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145715849056`*^9},ExpressionUUID->"60e22d77-e29c-4e99-b0be-\
58d0a17953ea"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,396,537,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145715999055`*^9},ExpressionUUID->"9b14f575-360b-45a7-886b-\
b4211c968c0c"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,396,538,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514571634905*^9},ExpressionUUID->"7b19a6e3-ae4e-4b83-bf4e-\
0deef841466d"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,396,539,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145716489058`*^9},ExpressionUUID->"dba3a8eb-61d0-4b64-846b-\
a4123119844e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,396,540,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145716619053`*^9},ExpressionUUID->"f8156a36-ddeb-4ebc-a2c3-\
281087661eec"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,396,541,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145716749053`*^9},ExpressionUUID->"cdd82cfe-f8d2-4258-b63b-\
5d7ebd84a908"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,396,542,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145716879053`*^9},ExpressionUUID->"6f29dc60-31dc-4904-8298-\
ea32cd793714"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,397,543,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514571803906*^9},ExpressionUUID->"8e1fa246-f6d6-4c13-9325-\
d5937a00be4d"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,397,544,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145718179054`*^9},ExpressionUUID->"3472a83f-45f1-4016-add7-\
595c37f32aae"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,397,545,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514571830906*^9},ExpressionUUID->"ab3e17a9-821e-40c5-934a-\
d55264321b18"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,397,546,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145718439054`*^9},ExpressionUUID->"501b3e77-fa6b-4658-870f-\
cd9deb41a76e"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,397,547,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145718579063`*^9},ExpressionUUID->"00534a12-f4d7-4c97-9b4e-\
e8b3eb4ab609"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,397,548,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514571873906*^9},ExpressionUUID->"25980474-fee2-4bfa-9c98-\
6b94810a165b"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,397,549,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145718879056`*^9},ExpressionUUID->"ff06bdfe-d939-4c55-bf14-\
55b5f71b2bc3"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,397,550,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514571901905*^9},ExpressionUUID->"53e9705a-781c-4505-a9d4-\
bb39502ebd3e"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,398,551,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145720569057`*^9},ExpressionUUID->"bd55053e-d17e-4261-82aa-\
dfdfa27c2e3e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,398,552,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145720729055`*^9},ExpressionUUID->"4c4c89f3-0ed7-4823-93e7-\
7b05efef4620"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,398,553,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572085906*^9},ExpressionUUID->"ffad76e0-51ef-4ffd-b40e-\
b2e92279ee29"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,398,554,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145721009054`*^9},ExpressionUUID->"00154918-cc6f-46d9-923f-\
6f8953f83c72"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,398,555,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145721149054`*^9},ExpressionUUID->"acd809bb-c241-4c56-b072-\
f8f60ad33c48"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,398,556,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145721289053`*^9},ExpressionUUID->"e4d05b49-4648-4274-9d68-\
4a69f1326d64"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,398,557,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572142905*^9},ExpressionUUID->"f1960aba-6bb3-416b-88f2-\
405e9bb7c297"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,398,558,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572156906*^9},ExpressionUUID->"695008ed-468b-4ef3-83c4-\
873a1291f7fb"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,399,559,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572394905*^9},ExpressionUUID->"953d9621-086c-4da3-8b1f-\
56e0d2d16b2e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,399,560,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572408905*^9},ExpressionUUID->"8a0f15b2-6de8-4ebd-afd1-\
fb8ec153c31e"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,399,561,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145724219055`*^9},ExpressionUUID->"c7208b6b-b13e-4f86-9463-\
848ed533cdfb"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,399,562,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145724359055`*^9},ExpressionUUID->"9eae56bb-05a7-4442-9be9-\
a0eb4547bcd1"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,399,563,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572449905*^9},ExpressionUUID->"93788514-c32e-47f2-93b3-\
2ec317d3e615"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,399,564,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145724639053`*^9},ExpressionUUID->"a58099f8-0da9-4b4e-92f7-\
57d259d8348b"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,399,565,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572476905*^9},ExpressionUUID->"292fc068-6f97-4b4d-8049-\
fe1e9ed1d827"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,399,566,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572490906*^9},ExpressionUUID->"c0a1b057-e0d2-4917-8fa8-\
003cd4d397e0"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,400,567,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572870905*^9},ExpressionUUID->"d52d38a3-a722-49dd-ae36-\
803e2d100337"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,400,568,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572884906*^9},ExpressionUUID->"1fc59e9a-160e-48b8-b1fb-\
22244a4c9958"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,400,569,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145728979053`*^9},ExpressionUUID->"146eed8c-66b8-4450-81a5-\
328a15da4607"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,400,570,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572913907*^9},ExpressionUUID->"65abee01-f7fd-4782-a413-\
da8e5b1778a7"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,400,571,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.7725145729279056`*^9},ExpressionUUID->"74891166-aaee-48a5-a7f1-\
e2ab4a458da6"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,400,572,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572941905*^9},ExpressionUUID->"d1dcb558-64b0-4d9f-8fcd-\
1d5c5cbf4197"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,400,573,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572955906*^9},ExpressionUUID->"4c67853a-0cb9-4ccf-859c-\
04cd171f7a96"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,400,574,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7725144032213326`*^9, 3.7725144676276693`*^9, 
  3.772514572967905*^9},ExpressionUUID->"845573ed-6c35-47f0-99fa-\
5abda700dce6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "NUX4X1M1", "]"}]], "Input",
 CellChangeTimes->{{3.7725144706917486`*^9, 
  3.772514475507883*^9}},ExpressionUUID->"98957818-1f71-4d47-880a-\
a600bd8fdf24"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1663", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.772514479512882*^9, 
  3.772514575201959*^9},ExpressionUUID->"66f7e8fc-1521-4bbe-a968-\
b6654ac14fc5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "NUX4X1M2", "]"}]], "Input",
 CellChangeTimes->{{3.7725144812478275`*^9, 
  3.772514481391879*^9}},ExpressionUUID->"7cc66d23-b668-4609-8383-\
fcb553d01df0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3824", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.772514481843896*^9, 
  3.7725145759409056`*^9},ExpressionUUID->"5184b1bc-916a-4be8-9534-\
ee3bd9a63135"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "NUX4X1M22", "]"}]], "Input",
 CellChangeTimes->{{3.7725144834558287`*^9, 
  3.7725144839358826`*^9}},ExpressionUUID->"94e00cfc-33af-4be8-bb83-\
6b8ec32925d1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4103", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.7725144842618785`*^9, 
  3.772514576446905*^9},ExpressionUUID->"9f575127-831c-42c8-aa80-\
7f5a3e97c624"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "NUX4X1M3", "]"}]], "Input",
 CellChangeTimes->{{3.772514485808836*^9, 
  3.7725144861118994`*^9}},ExpressionUUID->"5f649f4d-508c-4cbc-baf8-\
357e86ea7b36"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"7427", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.772514486487829*^9, 
  3.7725145769809055`*^9},ExpressionUUID->"d2deddfb-a882-4ad3-bdd2-\
bb6a02cc34e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "NUX4X1M4", "]"}]], "Input",
 CellChangeTimes->{{3.7725144892954116`*^9, 
  3.7725144897763557`*^9}},ExpressionUUID->"090e44b1-0bdf-4dfc-9971-\
a8d4a7b7f0ff"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3424", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.77251449010441*^9, 
  3.772514577613906*^9},ExpressionUUID->"f8dec28e-0f5a-4b36-bacb-\
10e2558c14a1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS2", "=", "100"}], ";"}]], "Input",
 CellChangeTimes->{{3.7725146210439053`*^9, 
  3.772514623327941*^9}},ExpressionUUID->"8fa06ab4-6705-4e7a-aae4-\
4555c713b6b9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MMNUX4X1M1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "NUX4X1M1", "]"}], ",", "WS2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMNUX4X1M2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "NUX4X1M2", "]"}], ",", "WS2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMNUX4X1M22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "NUX4X1M22", "]"}], ",", "WS2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMNUX4X1M3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "NUX4X1M3", "]"}], ",", "WS2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMNUX4X1M4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "NUX4X1M4", "]"}], ",", "WS2"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7725145857119055`*^9, 
  3.7725146312677855`*^9}},ExpressionUUID->"e010c7af-f3b7-47d9-8c2f-\
c7375adc90a5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "NUX4X1M1", ",", "NUX4X1M2", ",", "NUX4X1M22", ",", 
     "NUX4X1M3", ",", "NUX4X1M4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.05", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Noise X1\>\"", ",", " ", "\"\<Noise X4\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7718440515175853`*^9, 3.771844127703881*^9}, {
  3.7718441759639015`*^9, 3.7718442379437857`*^9}, {3.7725147103382907`*^9, 
  3.77251474241827*^9}},ExpressionUUID->"df012803-67b8-46d3-b22c-\
44533e3fa4bd"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3E+sdXdZhuGPQmmtaFGLgppa46RODBEHDKw2TOqAARATHXRQjRITB9ZE
[encoded data, 6420 characters]
+btVqw6pw9Xr/wFwZEqU
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJztnAlYTV378Culk7EoJclMSEQi5D6Zy1SmQio0SYaMDaZkLFGkhFKigZTm
[encoded data, 14640 characters]
9qcAcOB9wHkY+82Neakbk5Lo9bAKe9DDvrMqZS5T9Z9QxeX/F9ZezKQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Qk8VWv/N/6kEDKTFEIloSKVVC5FKoVoEjJEZCiUDEWmksiYMs+SMpNQ
[encoded data, 28140 characters]
dTThyrEbp7/HJ969s6XybpWHYPmrmPg/Af8PqWw=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs3Qk8VVv/P/A0IEOZIlSk0ZBSmoSFBs2kIjOpKFJKESnKTBlCk8pQUmQq
[encoded data, 25680 characters]
mznIXnEEormQcnZqkANk3UczxL0HwuDqAUsSmAQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Qk8VW/fP/oIqZQhJCKaRaGSTF0klEhUhogkKZQxQyQkFZGZogwhQ2Qs
[encoded data, 38280 characters]
UygMo+OD2pDvu3pIfN2Q9zdh+P8BqZpbHQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzt3Qk4FX3/P/AkUvYoQkhKlhZSSuV72leJSmSrpBKJFC1UhCzJvoQkSRIl
[encoded data, 24600 characters]
oYxziFkIz/8PGam4BQ==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Noise X4\"", TraditionalForm], None}, {
        FormBox["\"Noise X1\"", TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{0, 3}, {0, 3}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7718441063767595`*^9, 3.771844132551748*^9}, {
   3.7718441946680727`*^9, 3.771844208349907*^9}, 3.7718442401087027`*^9, 
   3.772513709377103*^9, 3.77251381466457*^9, 
   3.772514743907214*^9},ExpressionUUID->"d7485b5d-f272-4bbb-8a26-\
a19dc7ae1d91"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMNUX4X1M1", ",", "MMNUX4X1M2", ",", "MMNUX4X1M22", ",", 
     "MMNUX4X1M3", ",", "MMNUX4X1M4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.05", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Noise X1\>\"", ",", " ", "\"\<Noise X4\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7718440515175853`*^9, 3.771844127703881*^9}, {
  3.7718441759639015`*^9, 3.7718442379437857`*^9}, {3.7725147103382907`*^9, 
  3.77251474241827*^9}, {3.772514894643676*^9, 
  3.7725149040660944`*^9}},ExpressionUUID->"188ee466-a0e7-4fbb-bce5-\
2dc6e9826e83"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3E+sdXdZhuGPQmmtaFGLgppa46RODBEHDKw2TOqAARATHXRQjRITB9ZE
[encoded data, 6420 characters]
+btVqw6pw9Xr/wFwZEqU
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt3Ak4VV3fMHBSRBQS7lJRKkqEEpJlCNFgyFQiU5JkKEmlIkNIJZRCMidE
[encoded data, 12660 characters]
L0OM5NiV7FdW5iqCbUOTsuXcwMT7+2BKwn+AAj5D+EA/v/8PJClmug==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Xk0l13/N3yhUKYMiSRTQqLBVGQKlSFSGQuZ04TMlCFTQoYm8xAyRClz
[encoded data, 27000 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs3Qk0Vu3fN3xRElGGpEKmJErKPA9FQpRMRUJChRAiijJkjFDKUGaSKQkZ
[encoded data, 27300 characters]
ag==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs2wk0Vm3DN3wJlakSQoaUOUOhMk/JFEKUqUKokClzGaIkhCIq85QhKUJm
[encoded data, 37680 characters]
1fUvnf67t/i2funw+6//wPDd275+HoXxu/8fdsxocw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs3Qk0V9v/P35DhiRJMlZECkmoiMq7KEUoQ+akSJLKEJmSOSkSkmRKZZ4i
[encoded data, 23280 characters]
bITzZy3SBKIuOF/hR6P8j8Z8e3q7HwB2knGe
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Noise X4\"", TraditionalForm], None}, {
        FormBox["\"Noise X1\"", TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{0, 3}, {0, 3}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7718441063767595`*^9, 3.771844132551748*^9}, {
   3.7718441946680727`*^9, 3.771844208349907*^9}, 3.7718442401087027`*^9, 
   3.772513709377103*^9, 3.77251381466457*^9, 3.772514743907214*^9, 
   3.772514904935071*^9, 
   3.7725150240094566`*^9},ExpressionUUID->"642b68ee-c6cc-4dce-8dc3-\
ba92146c5cfd"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LMMNUX4X1M1", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{"MMNUX4X1M1", "/.", 
       RowBox[{"{", 
        RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMNUX4X1M2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{"MMNUX4X1M2", "/.", 
       RowBox[{"{", 
        RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMNUX4X1M22", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{"MMNUX4X1M22", "/.", 
       RowBox[{"{", 
        RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMNUX4X1M3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{"MMNUX4X1M3", "/.", 
       RowBox[{"{", 
        RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMNUX4X1M4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{"MMNUX4X1M4", "/.", 
       RowBox[{"{", 
        RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7725146532322063`*^9, 
  3.7725146842721252`*^9}},ExpressionUUID->"3c10fbd7-93af-4dc9-abad-\
f7a5a334fff6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "7"}], ",", "3", ",", "0.005"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",ExpressionUUID->"50db0c90-7419-402a-8bb4-06fa76b9c56f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "LMMNUX4X1M1", ",", "LMMNUX4X1M2", ",", "LMMNUX4X1M22", 
     ",", "LMMNUX4X1M3", ",", "LMMNUX4X1M4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "0.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "0.5"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.05", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Log[10, Noise X1]\>\"", ",", " ", "\"\<Log[Noise X4]\>\""}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7718440515175853`*^9, 3.771844127703881*^9}, {
  3.7718441759639015`*^9, 3.7718442379437857`*^9}, {3.7725147103382907`*^9, 
  3.77251474241827*^9}, {3.772514894643676*^9, 3.7725149040660944`*^9}, {
  3.772514981443488*^9, 3.7725149918101482`*^9}, {3.772515049202418*^9, 
  3.7725150832834454`*^9}, {3.772515607188386*^9, 
  3.772515621249485*^9}},ExpressionUUID->"5f9c5edf-aabd-412e-b23f-\
2779761a9dae"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3E+sdXdZhuGPQmmtaFGLgppa46RODBEHDKw2TOqAARATHXRQjRITB9ZE
[encoded data, 6420 characters]
+btVqw6pw9Xr/wFwZEqU
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt23k4Vu+6OHDzPKdSpkhRIYVCeCUVIpUhs4yFEooKmSpToQyZylCaiRCK
[encoded data, 13440 characters]
MIfkWCpFLfhNcGeNwiA4IBpz2cDUgPzndWpV/xsLvE8i
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs2nc4F/D/N3qhKCEjo5BQUkYIGRklWWVXVlZGsjWUZGXPyJ4ZmRlFZCWU
[encoded data, 27660 characters]
WvAV5dXdHm/Rn/pp6fLdw5jnHjHm+FJY3ZAvw3bjCNH/B9ITDio=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs2Xk0lt//L37zFMmYZEgoEiqhyVAqNA+mMoYyJESZMlNmUWaZiQwZEsk8
[encoded data, 27960 characters]
uNOrtYnouYuRGkyyzT+tI45W2TScgm8x9Ypdvg0fNfo9qL8Y/i8ixbDD
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Hk0V+/j93szEcqcWVRKoiRDREkRkSkZkllkljFUSBlCGSIRyZAKGUoh
[encoded data, 38460 characters]
RzELjyD/qYdtbnCB/y/pzJaT
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs2nkw1+8fL3xLtkJR2deUrUKFFCGUUEkSypIlW2TLvmSJZE/2bNmyFSpR
[encoded data, 23880 characters]
IDW3Tol6grrc9C/PF4WG
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Log[Noise X4]\"", TraditionalForm], None}, {
        FormBox["\"Log[10, Noise X1]\"", TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-7., 3.}, {-7., 3.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7718441063767595`*^9, 3.771844132551748*^9}, {
   3.7718441946680727`*^9, 3.771844208349907*^9}, 3.7718442401087027`*^9, 
   3.772513709377103*^9, 3.77251381466457*^9, 3.772514743907214*^9, 
   3.772514904935071*^9, 3.7725149927801456`*^9, {3.7725150661058593`*^9, 
   3.772515084390124*^9}, 
   3.77251562281248*^9},ExpressionUUID->"f663c5fc-6920-4427-9ae9-\
f6cb93a4e040"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MMINX4X1M1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX4X1M1", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4X1M2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX4X1M2", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4X1M22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX4X1M22", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4X1M3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX4X1M3", "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMINX4X1M4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Sort", "[", "INX4X1M4", "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.771840223441084*^9, 3.7718403358699207`*^9}, {
   3.771840736992285*^9, 3.7718407658382854`*^9}, {3.7718408795515957`*^9, 
   3.771840892493635*^9}, {3.771843739484126*^9, 3.7718438153739185`*^9}, 
   3.7725136469310627`*^9},ExpressionUUID->"3b2483ec-cb4a-418d-a793-\
0330944cd036"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LMMINX4X1M1", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{"MMINX4X1M1", "/.", 
       RowBox[{"{", 
        RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMINX4X1M2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{"MMINX4X1M2", "/.", 
       RowBox[{"{", 
        RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMINX4X1M22", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{"MMINX4X1M22", "/.", 
       RowBox[{"{", 
        RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMINX4X1M3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{"MMINX4X1M3", "/.", 
       RowBox[{"{", 
        RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMINX4X1M4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{"MMINX4X1M4", "/.", 
       RowBox[{"{", 
        RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.771842208475573*^9, 3.771842211145061*^9}, {
  3.7718423531232386`*^9, 3.7718423573348017`*^9}, {3.7718439440538664`*^9, 
  3.771843983283643*^9}},ExpressionUUID->"82037fd2-0cb0-429b-97a8-\
75f1c68bb4f0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "7"}], ",", "3", ",", "0.005"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7718387261623983`*^9, 3.7718387531194773`*^9}, {
  3.7718388719692593`*^9, 3.771838878576259*^9}, {3.7718414761764235`*^9, 
  3.7718414767984233`*^9}, {3.771841550224572*^9, 3.771841552063115*^9}, {
  3.7718422174250126`*^9, 
  3.771842250145027*^9}},ExpressionUUID->"5817cbb0-3487-42fd-bc1f-\
f7d30cf14809"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "3", ",", "0.005"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.772513934432807*^9, 
  3.772513937296792*^9}},ExpressionUUID->"bca8fbd5-97b1-4404-96ea-\
e30cc15cd8cd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow", ",", 
    "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
   3.7621627323252344`*^9, 3.762162734410307*^9}, 
   3.7725137924266453`*^9},ExpressionUUID->"22ab37e4-aac2-4811-bead-\
01e67b8c130b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7718392003173866`*^9, 
   3.7718396359927177`*^9, 3.771840207484151*^9, 3.7718408957285957`*^9, 
   3.7718423599750032`*^9, 3.771844013783903*^9, 3.7725136867518787`*^9, 
   3.7725137937267823`*^9},ExpressionUUID->"118b56ed-57a0-4e5c-b9e7-\
00fff2699474"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", "\"\<M4\>\""}], "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.7718440168128595`*^9, 
   3.7718440311436586`*^9}},ExpressionUUID->"e37b6b48-e4ee-41a4-bfc1-\
44ba4863fe48"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"18218967-898c-4ac9-bcde-\
0ba31ad63c15"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "INX4X1M1", ",", "INX4X1M2", ",", "INX4X1M22", ",", 
     "INX4X1M3", ",", "INX4X1M4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.05", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Noise X1\>\"", ",", " ", "\"\<Noise X4\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7718440515175853`*^9, 3.771844127703881*^9}, {
  3.7718441759639015`*^9, 
  3.7718442379437857`*^9}},ExpressionUUID->"00c487ff-d215-48b3-ac95-\
8ebeec46677e"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3E+sdXdZhuGPQmmtaFGLgppa46RODBEHDKw2TOqAARATHXRQjRITB9ZE
[encoded data, 6420 characters]
+btVqw6pw9Xr/wFwZEqU
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJztPQlYTN37hcguooTsOxGJbGeyhyh8sib7FrJXQtllC5EskZAlUSpRtJHs
[encoded data, 25560 characters]
V/+bn5W9pYOYvkB7D339GOL/4dN4/9D/A0pLFlw=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzsfQk8Fd37eFIoLSpbSUibtCmlRea274v20CIKUWnVJkuStFFCeypaKFuy
[encoded data, 51180 characters]
P81Yh6jl5QQTM0z/yNx9si/BvkLgUonv/wdb0wUZ
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzsHQk8FVufNkoqsoSK9FpEu1KSQYu00R5FpEIklVKkiCxpDy0kKiJKlEpI
[encoded data, 51840 characters]
OzhS/wcQXlfg
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzsPQlcTc/3SbQiFGkheyn7VqL7KlkiCd+yVhSFKFGWLG2iiDZZCoWyRxul
[encoded data, 64980 characters]
VfZ7X4uVtouPwH6/Zt93y1OjYf7+B7Dow6Q=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJykfQdcTe//eFayGgoRFbKys1fPtWciqyh7y8wIoRKiklJJkqyEMhqE0lCo
[encoded data, 36060 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Noise X4\"", TraditionalForm], None}, {
        FormBox["\"Noise X1\"", TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{0, 3}, {0, 3}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7718441063767595`*^9, 3.771844132551748*^9}, {
   3.7718441946680727`*^9, 3.771844208349907*^9}, 3.7718442401087027`*^9, 
   3.772513709377103*^9, 
   3.77251381466457*^9},ExpressionUUID->"9065e66c-b12f-4bd9-bcb8-\
c83059637aff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine2", ",", "MMINX4X1M1", ",", "MMINX4X1M2", ",", "MMINX4X1M22", ",", 
     "MMINX4X1M3", ",", "MMINX4X1M4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "1"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "5", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Noise X1\>\"", ",", " ", "\"\<Noise X4\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.772513908465617*^9, 3.7725139164006214`*^9}, 
   3.7725139476838055`*^9},ExpressionUUID->"50f186f9-9579-4dd1-8249-\
f04845d6a159"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2UmMn3MYwPFRa3qua8Wtzs6WG9f2JulJoo4qcaqrXnFw4SCRNhGJTAii
pAS1a+2MnbHT2k3ty/z/H55veA/9TJrO+77P8/3NtJOee/lVu67YsrKyctnm
Lwv/f127bfWS9X3XXPRfrxsPbd9/fOeh60e/f9N4y83La/Tnbh1P7Fx8dNvo
8w6OW9cO7L1g6+2j+9wxnrf7hsc2dtw5uu/qeHDzs9YO3DV6zt3j+cvrntFz
7x2PbOzYvPN9o/e4f9zlQaP3emBc37e40YOj9zw8Xr14rb0PjW7z8KjCI6M5
8tLljR8dzZWLp2w+ajTnkXE5xlqa+/HxnMVrbH9itIe8cs/ienK0l6fGxV22
raY9PT2eXNxmI+3tmfHC5Y2eHe0xl6+1/7nRXo+Ox44ur9Gej41nL1/s+dHe
c3mb3S+MOrw4miN1SXOlTi+N5kzd0twvjzqmPaSur4z2kjqnPb066p72ls7B
a6M9pnOR9vr66JykPadzszbaezpHqcMbow6pQ+qQOrw56pA6pA5vjTcuO6QO
qcPbow5pzNThnVGH1CF1eHfUIXVIHd4bdUgdUof3Rx1Sh9Thg9EcqUuaK3VK
c6Zuae71Uce0h9Q17SV1Tnv6cNQ97S19XaY9ptdKe/1odE7SntO5SXtP5yh1
+HjUIXVIHVKH1CF1SB0+GXVIHVKH1CF1SB0+HXVIHVKH1CF1SB0+G3VIHVKH
1CF1SB0+H3VIHVKH1CF1SB1Shy9GHVKH1CF1SB1Shy9HHVKH9H0ydUgdUofj
ow6pQ+qQOqQOqcOJUYfUIXVIHVKH1CF1+GrUIXVIHVKH1CF1+HrUIXVIHVKH
1CF1+GbUIXVIHVKH1CF1+HY0R+qS5kqdcjnmntQtfV9IHdMeUte0l9Q57em7
Ufe0t3QO0h7TuUh7Teck7Tmdm7T3dI5Sh+9HHVKH1CF1SOcudUgdUofUIXVI
HVKH1OGHUYfUIXVIHVKH1CF1SB1Sh9QhdUgdfhx1SB1Sh9QhdUgdUofUIXVI
HVKH1CF12Bh1SB1Sh9QhdUgdUofUIXVIHVKH1OHkqEPqkDqkDqlD6pA6pA6p
Q+qQOqQOqcNPow6pQ+qQOqQOqUPqkDqkDqlD6pA6/DzqkDqkDqlD6pA6pL83
U4fUIXVIHVKH1OGXUYfUIXVIHVKH1CF1SB1Sh9QhdUgdfh11SB1Sh9QhdUgd
UofUIXVIHVKH1CF1+G3UIXVIHVKH1CF1SB1Sh9QhdUgdUoffRx1Sh9QhdUgd
UofUIXVIHVKH1CF1SB3+GHVIHVKH1CF1SB1Sh9QhdUgdUofU4c9Rh9QhdUgd
UofUIXVIHVKH1CF1SB1Sh79GHVKH1CF1SB1Sh9QhdUgdUofUIf/5b4+L/9Uc
qUuaK3VKc6Zuae7UMe0h/RyT9pI6pz2lfzekvaVzkPaYzkXaazonac/p3KS9
p3OUMpwy6pA6pA6pQ+qQOqQOqUPqkL7OUofUIXVIHVKH1CF1SB1Sh9QhdUgd
UofUIXXYMuqQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6
pA6pQ+pw6qhD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPq
kDqkDqnDaaMOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6p
Q+qQOqQOp486pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqk
DqlD6pA6nDHqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQ
OqQOqUPqcOaoQ+qQOqQOqUPqkDqkDqlD6pA6pA6pQ+qQOqQOqUPqkDqkDqlD
6pA6pA6pw1nj3wvNebY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt3Qk4V9v+MHClEimRUKlMaZIMJYRNRUWhUoZKRCpkKEklZEqSCqVUUiRT
[encoded data, 15420 characters]
/wMLWJT3
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Qk0Ve3DN34VRQMyRJKETAnJVMkRogyRiqJUFKKEzGTKnGRoQkQZyhRl
[encoded data, 31560 characters]
DyNKfs8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs3Qs0Ve+/L365JUQuoUhuSXRRSi5lIZUQkVuRUElICBHlLrkWoiJRuSRS
[encoded data, 32700 characters]
vXHbU2pJgNeTufWvtQYfFaAQ++AB/j9hcbk6
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Qs0VfvD/3sJlVulcgtRCIlC5b6Q3KIQhVQIlTvJrZJyTUIlyv2aSyqE
[encoded data, 42360 characters]
nO0=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs3Qk0V93/N3xDhqSSJKTIlCRTRSTKFEKmEJJSkigUmedUosxJ5goZiwwJ
[encoded data, 25560 characters]
8Q5dEZpgnguits5a4MwsXu9kbbBLYVdosx74L2xzUJ4=
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Noise X4\"", TraditionalForm], None}, {
        FormBox["\"Noise X1\"", TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{0, 3.}, {0, 3.}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.772513919702755*^9, 
  3.7725139493057766`*^9}},ExpressionUUID->"f1729e44-4583-4c68-82e6-\
dfdb54889da0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "LMMINX4X1M1", ",", "LMMINX4X1M2", ",", "LMMINX4X1M22", 
     ",", "LMMINX4X1M3", ",", "LMMINX4X1M4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "1"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "5", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Noise X1\>\"", ",", " ", "\"\<Noise X4\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7718440515175853`*^9, 3.771844127703881*^9}, {
  3.7725137223891325`*^9, 3.772513727074381*^9}, {3.772513877605616*^9, 
  3.7725138778276367`*^9}},ExpressionUUID->"a292c627-5b26-4f46-9e3c-\
99d8e97e3dc2"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3E+sdXdZhuGPQmmtaFGLgppa46RODBEHDKw2TOqAARATHXRQjRITB9ZE
[encoded data, 6420 characters]
+btVqw6pw9Xr/wFwZEqU
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt3Hk8ltveMPDbGCqhgTJFRAMNlEimFMkUUZkqNFAKRYMyVaRCGVIqQzQi
[encoded data, 15600 characters]
WEYJcbV8Q7Z2ytKOOz69g85vX9cZO4Aszis5T/LM3+//A9benA8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs2nk01tG/N3xjFCVDpiiiRKZSJBJCGcpcCVEyJLMmlUwhQxLJ0IwyVlQk
[encoded data, 31260 characters]
Zya2PQBWnln+XDwO/l9QwKGj
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs2Xk01l+8N3zzrBBC5qGSTKmUuRGVkimVKamQJDQYK1EhU6YohESGUCIy
[encoded data, 32220 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3HlUj//D7/vmIhXNNFEREhGVNNFASnNokOZEc5oopVIaKDRKKY0qlQai
[encoded data, 42180 characters]
kY3b
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs23k011/8L3pDQiVTIrOUqUKKFKEoSaWBUGYyRYnMkqEkM8mQeR4LGQuR
[encoded data, 25680 characters]
TvUxLbenmmrK/CzD3rTBCf4vLeg2Jg==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Noise X4\"", TraditionalForm], None}, {
        FormBox["\"Noise X1\"", TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-7., 3.}, {-7., 3.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7718441063767595`*^9, 3.771844132551748*^9}, 
   3.7725137167985487`*^9, 3.772513757971357*^9, 
   3.7725138830985613`*^9},ExpressionUUID->"5291acdd-57c8-4144-b284-\
39eee2099454"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"C1C1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1C2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{
     RowBox[{"Dimensions", "[", "C1M1Noise", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C1M1Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}], 
      " ", "&&", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C1M2Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"C1C1", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C1C1", ",", 
         RowBox[{"C1M1Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"C1C2", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C1C2", ",", 
         RowBox[{"C1M2Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", " ", "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7718454476430435`*^9, 3.771845590877369*^9}, {
  3.7718456245853553`*^9, 
  3.77184563334614*^9}},ExpressionUUID->"2d5202f9-39e3-4471-9cfc-\
910aca3fdede"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"C2C1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C2C2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{
     RowBox[{"Dimensions", "[", "C2M1Noise", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C2M1Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}], 
      " ", "&&", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C2M22Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"C2C1", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C2C1", ",", 
         RowBox[{"C2M1Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"C2C2", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C2C2", ",", 
         RowBox[{"C2M22Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", " ", "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.77184563777693*^9, 
  3.771845687128639*^9}},ExpressionUUID->"cbd2e437-30ed-4b5b-942f-\
309d769ffaca"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"C3C1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C3C2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{
     RowBox[{"Dimensions", "[", "C3M2Noise", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C3M2Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}], 
      " ", "&&", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C3M22Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"C3C1", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C3C1", ",", 
         RowBox[{"C3M2Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"C3C2", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C3C2", ",", 
         RowBox[{"C3M22Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", " ", "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.771845700441194*^9, 
  3.77184573266516*^9}},ExpressionUUID->"14a96ba0-6c36-4893-b055-\
cd08c1a0376c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"C4C1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C4C2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{
     RowBox[{"Dimensions", "[", "C4M2Noise", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C4M2Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}], 
      " ", "&&", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C4M3Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"C4C1", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C4C1", ",", 
         RowBox[{"C4M2Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"C4C2", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C4C2", ",", 
         RowBox[{"C4M3Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", " ", "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.771845700441194*^9, 
  3.7718457797859726`*^9}},ExpressionUUID->"f4d59cc0-819a-4587-b334-\
becdf2954ea0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"C5C1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C5C2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{
     RowBox[{"Dimensions", "[", "C5M22Noise", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C5M22Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}], 
      " ", "&&", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C5M3Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"C5C1", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C5C1", ",", 
         RowBox[{"C5M22Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"C5C2", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C5C2", ",", 
         RowBox[{"C5M3Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", " ", "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.771845800308298*^9, 
  3.7718458273078055`*^9}},ExpressionUUID->"61b95f19-7166-4b74-84b0-\
56c33de7150f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"C6C1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C6C2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{
     RowBox[{"Dimensions", "[", "C6M3Noise", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C6M3Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}], 
      " ", "&&", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", 
          RowBox[{"C6M4Noise", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", " ", "4"}], ")"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"C6C1", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C6C1", ",", 
         RowBox[{"C6M3Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"C6C2", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"C6C2", ",", 
         RowBox[{"C6M4Noise", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", " ", "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7718458501281137`*^9, 
  3.771845884125768*^9}},ExpressionUUID->"c26847f1-2b16-40ea-bcc3-\
358f03079bc6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"X1C1", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C1C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C1C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C1C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C1C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C1C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C1C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C1C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4C1", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C1C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C1C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C1C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C1C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C1C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C1C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C1C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4X1C1", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"X4C1", "/", "X1C1"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7718432009643016`*^9, 3.77184363342404*^9}, {
  3.7718438557337513`*^9, 3.771843857483971*^9}, {3.7718459246617346`*^9, 
  3.7718460646562*^9}, {3.771846095389084*^9, 
  3.7718462039831944`*^9}},ExpressionUUID->"ddcda531-6d35-47fe-9179-\
b8222cb27f53"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X1C2", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C2C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C2C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C2C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C2C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C2C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C2C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C2C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4C2", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C2C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C2C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C2C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C2C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C2C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C2C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C2C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4X1C2", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"X4C2", "/", "X1C2"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771846217531603*^9, 3.77184625171143*^9}, {
  3.7718467624651384`*^9, 
  3.77184676261244*^9}},ExpressionUUID->"fec9e6f5-d9de-4d7e-b0cf-\
499072338e12"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,612,865,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467927374754`*^9},ExpressionUUID->"9a7e2444-ad1d-40db-bd6c-\
c341f11bcdcc"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,612,866,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467929764757`*^9},ExpressionUUID->"40e675af-5437-4ea9-8636-\
7962e93cf4e5"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,612,867,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467932754383`*^9},ExpressionUUID->"f6807718-02c7-46a8-adba-\
c579e6177904"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,612,868,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467935174537`*^9},ExpressionUUID->"126ebc05-87ef-4042-b58a-\
3a72856adae3"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,612,869,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467938214397`*^9},ExpressionUUID->"015f9b14-067c-4c64-894c-\
5ec5f088965e"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,612,870,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467941167107`*^9},ExpressionUUID->"19cf33bb-ef9f-4ce1-b732-\
051076bc2533"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,612,871,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77184679434971*^9},ExpressionUUID->"9d454239-2ba0-4bee-801e-561e55fd64a0"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,612,872,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846794593711*^9},ExpressionUUID->"f4794db0-447c-4909-8797-\
234c67bfd48d"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,613,873,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846794943675*^9},ExpressionUUID->"19ffeda2-6a93-4013-9845-\
781ae184cb0a"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,613,874,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467951846757`*^9},ExpressionUUID->"089f729d-71cd-4c36-905a-\
18a9328be3b4"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,613,875,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846795470023*^9},ExpressionUUID->"47fe4a9f-1d3e-4c02-a7e6-\
a254ad4bca51"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,613,876,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846795718017*^9},ExpressionUUID->"60e78a09-4b77-4bb9-9ec0-\
45756a6202e9"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,613,877,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467960117264`*^9},ExpressionUUID->"93ee576e-f25d-43c0-9970-\
2cc920109c08"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,613,878,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467963126707`*^9},ExpressionUUID->"f19de3de-2f4c-4fd8-a813-\
245b37717177"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,613,879,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467965497217`*^9},ExpressionUUID->"fce28a01-e79c-449c-a7d2-\
0167619129f4"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,613,880,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467967847347`*^9},ExpressionUUID->"d2b1872f-a46b-4212-8bab-\
c55e75f87e75"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,614,881,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467968737235`*^9},ExpressionUUID->"6f788d77-8c4c-43f9-923c-\
65c56305b945"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,614,882,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467968887177`*^9},ExpressionUUID->"d55ee02a-cf84-4678-832d-\
5d596029ea92"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,614,883,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467969017096`*^9},ExpressionUUID->"779e763e-81a6-42db-ac74-\
9ed15c934d56"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,614,884,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77184679691372*^9},ExpressionUUID->"8fae4976-a03d-4124-b13d-efae7597c9fb"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,614,885,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846796925723*^9},ExpressionUUID->"959d4d59-f363-4285-a779-\
331a79d01d1e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,614,886,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467969366913`*^9},ExpressionUUID->"6137abba-f1ab-4c7d-a715-\
79c2051739b7"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,614,887,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467969486723`*^9},ExpressionUUID->"f29de9c7-8a47-4ae8-b665-\
03b557aca80c"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,614,888,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7718467969597087`*^9},ExpressionUUID->"3ceda947-0734-4a1d-8657-\
5525d96f097f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X1C3", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C3C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C3C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C3C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C3C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C3C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C3C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C3C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4C3", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C3C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C3C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C3C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C3C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C3C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C3C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C3C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4X1C3", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"X4C3", "/", "X1C3"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771846268332282*^9, 3.771846312155239*^9}, {
  3.7718468005463667`*^9, 
  3.771846801224531*^9}},ExpressionUUID->"7deea14f-7be9-4d60-809b-\
bf642ff39b80"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,615,889,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.7718468045630116`*^9},ExpressionUUID->"3d8dac8b-cb0b-4ae4-9401-\
399c350bdc71"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,615,890,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.7718468048232536`*^9},ExpressionUUID->"3bf799cd-e774-4410-b9af-\
f2fcb73d6b72"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,615,891,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.771846805131952*^9},ExpressionUUID->"143f064b-7a3f-48ce-909e-\
d4095c0156be"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,615,892,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.7718468053829517`*^9},ExpressionUUID->"637a19ab-d9a7-4dd7-a7cc-\
1ae906a231af"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,615,893,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.771846805702019*^9},ExpressionUUID->"ebc8dd25-3318-4eba-a460-\
0567a5eead95"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,615,894,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.771846806015052*^9},ExpressionUUID->"83c49db8-d74c-4148-a8d8-\
ddf2732c0a1c"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,615,895,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.771846806270084*^9},ExpressionUUID->"5eea1cc8-ba08-430e-8167-\
9b30409f7049"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,615,896,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.7718468065241275`*^9},ExpressionUUID->"a8fa9dd8-3a24-4662-96b1-\
1d0e00317048"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,616,897,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.771846806898124*^9},ExpressionUUID->"2c071d13-3c9f-47a1-9a10-\
cf128a756c3f"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,616,898,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.7718468071531177`*^9},ExpressionUUID->"7e5851ea-a297-45de-806a-\
0b7d5bca2cc3"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,616,899,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.771846807472084*^9},ExpressionUUID->"a65dce5a-238d-410d-9fd5-\
4fca21907397"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,616,900,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.771846807720084*^9},ExpressionUUID->"fc5c6392-26c2-458c-b389-\
c06bd0436251"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,616,901,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.7718468080410833`*^9},ExpressionUUID->"0a0cddb6-705d-47c2-9eb1-\
9f91a79ce321"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,616,902,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.771846808359083*^9},ExpressionUUID->"f46ad36d-8031-40a0-b736-\
fbf9d94af2bb"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,616,903,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.77184680862136*^9},ExpressionUUID->"e057d1d9-6039-4e86-8149-\
577915b7bce4"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,616,904,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.7718468088643265`*^9},ExpressionUUID->"31525476-5d17-484f-a4ef-\
7f9583759762"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,617,905,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.77184680896239*^9},ExpressionUUID->"5b990938-0fb2-4724-afce-\
fc5ee8c6b7e8"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,617,906,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.7718468089763994`*^9},ExpressionUUID->"aef43e2e-a62f-4a80-bac0-\
65204e2d36e3"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,617,907,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.7718468089903755`*^9},ExpressionUUID->"46c1535d-6a70-4f6b-ab08-\
412cba4ffe54"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,617,908,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.771846809004388*^9},ExpressionUUID->"f99a34a4-1e75-4b29-9962-\
712edcf884da"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,617,909,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.7718468090163255`*^9},ExpressionUUID->"e7f9dadc-853f-413f-b2d4-\
b7a0d7e97845"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,617,910,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.771846809030326*^9},ExpressionUUID->"59a217d6-e1c8-4dc7-bd49-\
4df131a41e6a"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,617,911,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.7718468090423584`*^9},ExpressionUUID->"65cb2678-1bc3-47a3-a7ed-\
7a08cd4d81d9"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,617,912,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.771846065690368*^9, 3.7718460983658824`*^9, {3.7718461906558704`*^9, 
   3.771846205566588*^9}, 3.7718462526980743`*^9, 3.7718463134974895`*^9, 
   3.771846809054392*^9},ExpressionUUID->"77e574cb-7ce8-44ec-a7b0-\
320b8d5539f5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X1C4", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C4C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C4C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C4C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C4C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C4C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C4C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C4C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4C4", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C4C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C4C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C4C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C4C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C4C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C4C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C4C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4X1C4", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"X4C4", "/", "X1C4"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.77184631941442*^9, 3.7718463524557734`*^9}, {
  3.7718468091783266`*^9, 
  3.7718468093013644`*^9}},ExpressionUUID->"174ed256-5c1d-4f53-aacc-\
6a8382b87473"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,618,913,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468180488787`*^9},ExpressionUUID->"f55b195e-81f6-4b32-828d-\
173381d5fe4a"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,618,914,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468181113863`*^9},ExpressionUUID->"13c81517-7087-4734-b889-\
72ced37a48eb"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,618,915,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468182651863`*^9},ExpressionUUID->"d8a4eb11-91f0-411b-b463-\
089527be8150"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,618,916,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468183650813`*^9},ExpressionUUID->"dec1e1bf-69da-4c16-940c-\
9aeaa83dbd5e"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,618,917,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.771846818465414*^9},ExpressionUUID->"64d35c01-98bf-4952-8943-\
a02717d5bb2d"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,618,918,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468186512594`*^9},ExpressionUUID->"fc0ffddd-9cdd-4a98-b2d6-\
bb4795d38d79"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,618,919,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.771846818750058*^9},ExpressionUUID->"8e45faee-5668-471e-8cf3-\
6abf7bb02ecf"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,618,920,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.771846818750058*^9},ExpressionUUID->"dd7b2541-c62f-4594-8ae5-\
5bca35fa6bb2"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,619,921,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.771846819050541*^9},ExpressionUUID->"8ad4af39-95e0-4705-92bb-\
84c6e3f0046c"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,619,922,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468191352425`*^9},ExpressionUUID->"c5bc3f56-7a2b-45a2-80f5-\
0ebc6c525d15"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,619,923,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468192664347`*^9},ExpressionUUID->"301a4f08-3e83-45c3-9838-\
665d5c3d167a"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,619,924,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468193510575`*^9},ExpressionUUID->"f3529e12-b1ba-401a-a85d-\
f9ad73567e66"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,619,925,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468194826736`*^9},ExpressionUUID->"a27363a2-ab0e-42a8-8cc1-\
fabbf3dec8aa"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,619,926,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468196828966`*^9},ExpressionUUID->"39d1f33c-7a86-442d-8bb0-\
d8a096c20131"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,619,927,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.771846819783472*^9},ExpressionUUID->"709eba15-513b-4a0e-b7ad-\
812bc91ea4d9"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,619,928,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.771846819783472*^9},ExpressionUUID->"9de09b56-9f4f-45b3-bc86-\
64f60da9482f"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,620,929,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.771846819799097*^9},ExpressionUUID->"48492395-24a0-405c-abe0-\
0c42dfa52e42"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,620,930,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.771846819822784*^9},ExpressionUUID->"d90ed7ff-75df-42cc-a91f-\
69a7ae720f0e"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,620,931,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468198409853`*^9},ExpressionUUID->"ce14713e-df03-4d8c-9c8e-\
34f47e64c073"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,620,932,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468199342175`*^9},ExpressionUUID->"415832c3-1dac-4228-bfac-\
23123eb18b38"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,620,933,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468199442987`*^9},ExpressionUUID->"ff5fad58-4553-4074-b623-\
c41977705389"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,620,934,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468199543457`*^9},ExpressionUUID->"5f338d5f-befa-4eba-acc9-\
da17aa6365d3"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,620,935,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.771846819972472*^9},ExpressionUUID->"8526aef0-b4e5-49cf-84fb-\
cec6a16ac0a0"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,620,936,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463540136766`*^9, 
  3.7718468199824896`*^9},ExpressionUUID->"b93dbeef-eb91-4622-a330-\
165b9857b8f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X1C5", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C5C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C5C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C5C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C5C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C5C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C5C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C5C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4C5", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C5C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C5C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C5C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C5C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C5C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C5C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C5C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4X1C5", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"X4C5", "/", "X1C5"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7718463589271317`*^9, 3.771846387953969*^9}, {
  3.7718468225219264`*^9, 
  3.771846822669104*^9}},ExpressionUUID->"4869c019-1a26-4df0-a64a-\
7e386639c9ef"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,621,937,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.771846825679779*^9},ExpressionUUID->"2fcc2ebe-9dcf-4873-a765-\
25c9f3df7a54"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,621,938,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.771846825748801*^9},ExpressionUUID->"27728b24-2981-46f1-8e58-\
263a3c77f2e3"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,621,939,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.771846825918249*^9},ExpressionUUID->"0dd68596-a3e0-48e8-a66a-\
ca1d02c65843"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,621,940,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.77184682601845*^9},ExpressionUUID->"c2938c60-100b-42fa-853d-ffe4d1270a90"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,621,941,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.771846826034075*^9},ExpressionUUID->"a51b45b5-3998-4491-bbe9-\
bea025d00a8c"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,621,942,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.7718468260497494`*^9},ExpressionUUID->"87c4d87b-3d95-49ca-b6de-\
24d55a2d0a04"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,621,943,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.7718468261344347`*^9},ExpressionUUID->"6422d1c9-951b-4cff-93b8-\
8b28cbdf5b32"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,621,944,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.7718468261500587`*^9},ExpressionUUID->"67506044-fc2e-43da-a49d-\
c9fef661c434"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,622,945,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.7718468263037024`*^9},ExpressionUUID->"43e57287-709c-4ba2-8745-\
66fe84529f2e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,622,946,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.7718468263193283`*^9},ExpressionUUID->"f93b9a6c-6eef-43d3-a3a6-\
756ac559b8c5"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,622,947,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.771846826466531*^9},ExpressionUUID->"c692c30a-4288-42a7-9024-\
20fe36f71545"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,622,948,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.7718468265668707`*^9},ExpressionUUID->"9168d0f2-d6a7-4f70-be58-\
6683af24895b"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,622,949,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.771846826582493*^9},ExpressionUUID->"f7182988-6691-4c2d-8d80-\
6275b1f9c860"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,622,950,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.771846826598117*^9},ExpressionUUID->"41df2866-797e-4bf9-b841-\
67bf9b4ac849"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,622,951,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.7718468266046915`*^9},ExpressionUUID->"f96c4c3c-0938-4852-958a-\
e4d1e9ab1e9a"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,622,952,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.7718468266203184`*^9},ExpressionUUID->"e579657e-7e2c-4233-8567-\
14c9a5a6f7a8"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,623,953,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.7718468267049637`*^9},ExpressionUUID->"55c6061a-19e3-411f-b96c-\
330685ef45ef"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,623,954,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.7718468267205906`*^9},ExpressionUUID->"98e76cf8-eee8-40b2-9723-\
c6f5d9f641cd"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,623,955,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.771846826736216*^9},ExpressionUUID->"2e4669cd-6cb7-42b4-beec-\
3fb9622dce7e"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,623,956,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.771846826751877*^9},ExpressionUUID->"f929cd82-b20a-470f-a6b4-\
3db4eac76a89"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,623,957,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.77184682683607*^9},ExpressionUUID->"59a4f08d-a50e-4531-8ef7-98c0567f775f"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,623,958,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.771846826851697*^9},ExpressionUUID->"d96f8f43-f81d-4703-9717-\
2859b569dab9"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,623,959,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.771846826936411*^9},ExpressionUUID->"e9e5c265-ce24-412d-9313-\
d724c5b2767e"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,623,960,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718463897771187`*^9, 
  3.7718468269520655`*^9},ExpressionUUID->"858a02f2-bb96-4bda-8e90-\
5966f44821e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X1C6", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C6C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C6C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C6C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C6C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C6C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C6C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C6C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4C6", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C6C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C6C1", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C6C1", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"C6C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"C6C2", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
         RowBox[{"C6C2", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "4", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "C6C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "0"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "0"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X4X1C6", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"X4C6", "/", "X1C6"}], ")"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ComplexInfinity", "\[Rule]", "1"}], ",", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7718463979796314`*^9, 3.7718464282014914`*^9}, {
  3.7718468293593683`*^9, 
  3.7718468295288506`*^9}},ExpressionUUID->"dc5c6ce5-8001-4b03-8211-\
d2f808740ae2"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,624,961,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.77184683056323*^9},ExpressionUUID->"03b05c35-96c0-413a-9658-51fcb6a01ddf"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,624,962,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.771846830632331*^9},ExpressionUUID->"82ed720d-e4a4-46ac-b345-\
2cd04f773733"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,624,963,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468306479244`*^9},ExpressionUUID->"3a252981-9afc-4013-9f07-\
0c372d022e14"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,624,964,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468306636043`*^9},ExpressionUUID->"538da403-b3de-4370-a437-\
6996fe8b642a"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,624,965,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468307640085`*^9},ExpressionUUID->"5ae81b67-3bf0-4605-bbac-\
77c6728de7fb"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,624,966,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.771846830779621*^9},ExpressionUUID->"424194e2-e20b-4d3d-9d98-\
33f50eee2213"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,624,967,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468307952456`*^9},ExpressionUUID->"c2c9d222-4f1a-48b7-b39a-\
007eae3b177e"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,624,968,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468308108687`*^9},ExpressionUUID->"ab0cbdda-40a8-40a6-b8a6-\
de0c88e7eaaa"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,625,969,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.771846830980276*^9},ExpressionUUID->"c6f20bf1-ac65-4e6f-b849-\
5e35a5a75db3"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,625,970,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468310644274`*^9},ExpressionUUID->"0a237950-8eca-45ce-a464-\
059ee812b92d"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,625,971,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.771846831218283*^9},ExpressionUUID->"d9bf6d04-06db-4b0c-bd49-\
77307823d3a0"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,625,972,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.771846831296468*^9},ExpressionUUID->"273ce555-bc69-443c-b80a-\
725022ef4a2a"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,625,973,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.771846831318611*^9},ExpressionUUID->"8da39716-ef15-4c78-af3a-\
b3f9d0329f50"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,625,974,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.771846831318611*^9},ExpressionUUID->"4d42a8ba-c5b3-46b8-863c-\
1ec45035a233"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,625,975,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468313342495`*^9},ExpressionUUID->"e45323a9-0282-483d-802f-\
86bad9bd7257"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,625,976,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.771846831349863*^9},ExpressionUUID->"120e1cac-13e4-4ec6-8cab-\
df9d9094ce89"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,626,977,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468314345737`*^9},ExpressionUUID->"e0310d5f-be66-4a25-b61b-\
3a0b3bbc8db5"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,626,978,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.771846831450199*^9},ExpressionUUID->"dcf52977-ffc0-4d6f-905c-\
38ec5bb00af9"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,626,979,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.771846831465788*^9},ExpressionUUID->"a3290c14-d4d7-4b7d-bdf0-\
b9ea07eafaf2"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,626,980,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468315348816`*^9},ExpressionUUID->"a861c23f-f36c-4322-a1a4-\
c9c750154858"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,626,981,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468315504723`*^9},ExpressionUUID->"7bbb538f-6f12-4bbb-ade0-\
c36ddaa377ef"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,626,982,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468315660973`*^9},ExpressionUUID->"ca00f0d9-6f89-445a-9099-\
f2c75b871e94"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,626,983,31708584742600914911,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.771846831635223*^9},ExpressionUUID->"95060add-356f-4ea7-b0f5-\
9efa74dc3e10"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,626,984,31708584742600914911,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7718464290503445`*^9, 
  3.7718468316508493`*^9},ExpressionUUID->"33c8cfbf-76cc-4273-9f5a-\
aecea9b59136"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "3", ",", "0.005"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7718387261623983`*^9, 3.7718387531194773`*^9}, {
   3.7718388719692593`*^9, 3.771838878576259*^9}, {3.7718414761764235`*^9, 
   3.7718414767984233`*^9}, {3.771841550224572*^9, 3.771841552063115*^9}, {
   3.7718422174250126`*^9, 3.771842250145027*^9}, 
   3.7718471617222815`*^9},ExpressionUUID->"a132cd67-ffdb-488d-bdcf-\
f6249f1b03c7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LEqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "7.5"}], ",", "1", ",", "0.005"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.771847319576454*^9, 3.7718473409658546`*^9}, {
  3.7718476754514723`*^9, 
  3.771847676038142*^9}},ExpressionUUID->"5433daf0-f219-46bb-ad0c-\
fbe0f369fe6f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Gray", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow",
     ",", "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 
  3.762162734410307*^9}},ExpressionUUID->"9b4dc427-df4d-448b-9f20-\
7b63a2975b54"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.33333333333333337`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0.5],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7718392003173866`*^9, 
   3.7718396359927177`*^9, 3.771840207484151*^9, 3.7718408957285957`*^9, 
   3.7718423599750032`*^9, 3.77184650470356*^9, 
   3.771846841913888*^9},ExpressionUUID->"f578e04f-44d7-4678-80aa-\
d38ce3ddc8f8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M2/M1\>\"", ",", " ", "\"\<M2'/M1\>\"",
      ",", " ", "\"\<M2'/M2\>\"", ",", " ", "\"\<M3/M2\>\"", ",", " ", 
     "\"\<M3/M2'\>\"", ",", "\"\<M4/M3\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 
   3.762674167944764*^9}},ExpressionUUID->"ccbb2415-f01e-49ee-a6d5-\
6b8391b133c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"bad93582-cee4-493b-8409-\
3ae867451350"],

Cell[BoxData[
 RowBox[{"X4X1C1", ",", "X4X1C2", ",", "X4X1C3", ",", "X4X1C4", ",", "X4X1C5",
   ",", "X4X1C6"}]], "Input",
 CellChangeTimes->{{3.77184667064015*^9, 
  3.771846671372796*^9}},ExpressionUUID->"7e58382e-9ced-4928-abc1-\
0631086d4bc4"],

Cell[CellGroupData[{

Cell[BoxData["X4X1C4"], "Input",
 CellChangeTimes->{{3.7718466854657063`*^9, 
  3.7718466855348454`*^9}},ExpressionUUID->"24be7fbe-51d5-4968-8c4e-\
0b3241a15c7a"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.6944444444444443`"}], ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.05272170151405912`", ",", "0.0615079365079365`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.12347670250896059`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.005797797523071117`", ",", "0.0498022294138799`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.06000000000000001`", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.004022177668869582`", ",", "0.004022177668869582`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.07372251226071824`", ",", "0.05379846797757245`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.001666937468782534`", ",", "0.043962881319775306`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           TemplateBox[{"3076"},
            "OutputSizeLimit`Skeleton"], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.02349574200753874`", ",", "0.028810315301702426`"}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.007974481658692184`", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.001816582805899569`", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "0.`"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.`", ",", "1"}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{65., {3., 9.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{52., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{52., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 611, 31708584742600914911, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{62., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{62., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 611, 31708584742600914911, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 611, 31708584742600914911, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{78., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{78., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[31708584742600914911 === $SessionID, 
   Out[611], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{
  3.77184668617369*^9},ExpressionUUID->"382287c6-86c1-4bf7-8888-b8697b290cf6"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MMX4X1C1", "=", 
   RowBox[{
    RowBox[{"MovingMedian", "[", 
     RowBox[{
      RowBox[{"Sort", "[", "X4X1C1", "]"}], ",", 
      RowBox[{"IntegerPart", "[", 
       RowBox[{"0.1", 
        RowBox[{
         RowBox[{"Dimensions", "[", "X4X1C1", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMX4X1C2", "=", 
   RowBox[{
    RowBox[{"MovingMedian", "[", 
     RowBox[{
      RowBox[{"Sort", "[", "X4X1C2", "]"}], ",", 
      RowBox[{"IntegerPart", "[", 
       RowBox[{"0.1", 
        RowBox[{
         RowBox[{"Dimensions", "[", "X4X1C2", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMX4X1C3", "=", 
   RowBox[{
    RowBox[{"MovingMedian", "[", 
     RowBox[{
      RowBox[{"Sort", "[", "X4X1C3", "]"}], ",", 
      RowBox[{"IntegerPart", "[", 
       RowBox[{"0.1", 
        RowBox[{
         RowBox[{"Dimensions", "[", "X4X1C3", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMX4X1C4", "=", 
   RowBox[{
    RowBox[{"MovingMedian", "[", 
     RowBox[{
      RowBox[{"Sort", "[", "X4X1C4", "]"}], ",", 
      RowBox[{"IntegerPart", "[", 
       RowBox[{"0.1", 
        RowBox[{
         RowBox[{"Dimensions", "[", "X4X1C4", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMX4X1C5", "=", 
   RowBox[{
    RowBox[{"MovingMedian", "[", 
     RowBox[{
      RowBox[{"Sort", "[", "X4X1C5", "]"}], ",", 
      RowBox[{"IntegerPart", "[", 
       RowBox[{"0.1", 
        RowBox[{
         RowBox[{"Dimensions", "[", "X4X1C5", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMX4X1C6", "=", 
   RowBox[{
    RowBox[{"MovingMedian", "[", 
     RowBox[{
      RowBox[{"Sort", "[", "X4X1C6", "]"}], ",", 
      RowBox[{"IntegerPart", "[", 
       RowBox[{"0.1", 
        RowBox[{
         RowBox[{"Dimensions", "[", "X4X1C6", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", "0.0000001"}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7718468827696743`*^9, 3.7718470063786793`*^9}, {
  3.7718472285274267`*^9, 
  3.7718472728369665`*^9}},ExpressionUUID->"d2a09c13-123e-4d1c-a57d-\
28109bb76bee"],

Cell[BoxData[
 RowBox[{"C1", "=", 
  RowBox[{"Table", "[", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{
      RowBox[{"Dimensions", "[", "MMX4X1C1", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.771847801364549*^9, 
  3.77184782459032*^9}},ExpressionUUID->"21a621da-20ef-4cd1-8faf-\
18369dc4d6d3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"LEqLine1", ",", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "MMX4X1C4"}], "]"}], ",", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "MMX4X1C5"}], "]"}], ",", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "MMX4X1C6"}], "]"}]}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "10", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Noise Amplification Mi\>\"", ",", " ", 
      "\"\<Noise Amplification Mi+1\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7718440515175853`*^9, 3.771844127703881*^9}, {
  3.771846448838607*^9, 3.771846473466882*^9}, {3.771846512883187*^9, 
  3.7718465376769056`*^9}, {3.771846619588513*^9, 3.771846681664032*^9}, {
  3.771846856774726*^9, 3.771846864575923*^9}, {3.7718470119806247`*^9, 
  3.7718470247378306`*^9}, {3.7718471212764163`*^9, 3.7718471865950556`*^9}, {
  3.771847282502941*^9, 3.771847307718199*^9}, {3.771847349448374*^9, 
  3.7718473917235794`*^9}, {3.7718474223335943`*^9, 3.771847489014695*^9}, {
  3.7718475214212503`*^9, 3.7718475772788286`*^9}, {3.7718480043418927`*^9, 
  3.7718480362443414`*^9}},ExpressionUUID->"1636debc-94a3-44ea-b221-\
95af42fbd59d"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3Ensrfccx/G/mRpa1MxVsamNCBYWyo1NLSzUhkUXJYjEwpWQSFncRW0s
[encoded data, 5340 characters]
UofT438Aayru3g==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzt2Hk01dvfwPFjPKZcpNRFRZlJRG6Gbq4hU4kSyVA0kQZ0RaUMFQmNlCYl
[encoded data, 5160 characters]
GTJk/vf8C6Pg+6E=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt1Wk01fsex/FtjpAhOkW5zXUkQ50j866QkCmhlCJD0VEpQ6k0mMMpFQdR
0UjS4HQUSTKdQ5SjKIVI5sxkiLvuuuv+Pt3H98l98H0/2eu1/nvtB/v/+32/
c532WrnwcjgcP1EO51+f/04+j/NfkclkMplMJpPJZDKZTCaTyWQymUwmk8lk
MplMJpPJZDKZTCaTyWQymUwmk8lkMplMJpPJZDKZTCaTyWQymUwmk8lkMplM
JpPJZDKZTCaTyWQymUwmk8lkMplMJpPJZDKZTCaTyWQymUwmk8lkMplMJpPJ
ZDKZTCaTyWQymUwmk8n/ny7q8utZWCHNPG9ob3XGmARz8E+6cnuLpjHLfRP1
n7JOmJl3ZncdZ4EQ8+507umjE4LMnjM3/lLlARs89plrzYGtAwTE4roFmB2v
hosp1cOBt049WpAO+3cvEpnwgUP5X5sJe8KGbpNHX3nAX3g5PRx72G12HPe4
MewxNvIwfz38m+Lm5N954ZKTXcqRz/iZvaLby7bkwlareFzV4mDryDbRHG94
V3vuLy8WwLZOlo2/vudjPsj7VjY8Ed65+LHuFgtY61zTBhld2IATIyOpCZtF
np+nP8rL3B2WICDyCHb4tXZULQTuiZpuprsDnlwqtnOjASxbJdKipgjPKk5e
3DgPvrb1154oSVhtxEwhuJOHOcxt1RGpx3Bw94MjLilwh+p2TedQODMw36Vn
D5yX06/v6AabzFG5tsACNvaw1fPTgfd//G2/7XdWeuG7I2kR7J/q+ilEEP6j
48miuFEO8+Aho3zVPljNqVXJqBpeJxIhkpAPt71caLn/GTy1M3GcLx2Os2gs
fnYEXvBXbvKVjbCvdHZyliHcbqdR06ELHx0u8jL+GZ4+NeGJpQwcda9nLKNt
8ul/LP25TuBgPezXvkvt2y24eCRirZs/bCCRJH7DD54MSZqYuReW2DNzQ/1W
ePHvZRcGtOEKJVdL3+lwiPjKI6LdE8z+Jy6UzM+GKz+oD1adgXMEM9pOHYHF
DEzfvtsPu2u3BDbxwI0+CncNvL4xb3po/r7UFJa6K5SeO/87c8v8n7aPM/c8
ynpi9xD21bzI+8kZThSpexCvDgeK3nE2WAFzuqsVV0rCWVHaZmF9Y8zZzotX
W2bBaoL9FqWOsPjN7ND6BbDNL+WzboyOMstkBegNfYDFX/PMES2H640GZYOT
YB+L5de098ENgm9WxLjDbyQPRw7awKtXFGVLrYc1/Vp9C36GtT8XpGoIwgap
62YUlI4wy721N9a5CGdXqkgIhMEXi5Xr7ILg3knJOxpe8PQDcm8+O8GPtV1i
n2nDrmnLjYKkYJMNQ8lXxeDojIhNveNf8X6tKktdOmHl+dtVQ8vgTTuqQ5tv
wzPD87+c+c7KTkPncuLh+DnqLpNH4e3pxkqJ+2BvK2f7UHd4yoPTzpWusLP+
DKeYbXCmnFDa0Q3wj1Ii6nmr4UPNL190qMLSFRxvfwE4327QM+TVMPNPDeHn
03Ph8LJ9ptEJcEWlV4y5Eyyd3NTnrgdLfuhbJrMU7oibSNCThicjUo37+4aY
tZT5In3ewPxpA4OzCuD07fFmGy/Aazyee2rZwAJvhKWaNOAtLsdkyhRhHetl
Tls5cIIY383Oj4PMl2z2be2ohof1TplUFsLy/IfXx9yA74mZe+achU2mmVQ8
8/3u+1YbOxY5wLWe9RcLjeCS1gOXx74M4DzUS+zUuQZP1MiYNwfCEQqD6bdM
YUG7994r5eApPWIFm+/3M+vLacpfV4HFixUmIzP7mPUSOA4+LrDDsqtlgT/D
r3/vGrjb18tc3bnkyujfsEfGTxVJmfDlYytOVMbDZ1Wdao6GwKUV6yU0PODh
bPs+Q304yp27tnMR7DiHs0luBlx33EfGUwgOszczGh7swf0sz+OqfoIfXYmJ
fdgEJ0lUzzarh91le/29M2HbqLiCoChY0iEgXXQffD08s01tGsw1XxPZHN/N
nPquvkDYHvZIUN3WKQ+3TsSujKv5wrzkrNzjtzFwlca5WeXesKkN5/kxQ1hu
2pXllbLwuaKz5ffaupjTwquXVhTCUtVPrZJvw56u+aFDqXD0Pf9D5pdgbVXu
4vvnYEc7v2OcDfBksg7PscZOnHeBHB2pHNhITCvO+zF8xkUw9mswfNtB4pK6
Naw+fz7XxgTmaLkp+S+DT0a3JMaPduA8hd6pKa+D91xdc+VVLWx5er346xrY
pk7oXX8hbB0kvnTZAzh3Ctfn5jx48KnE1D9j25nfqmntzIiEN7VXbZ6qC/uu
uC/X1t7G/MQ0pFHqPdzLjbjuXwKbzWmO3WYC25hVzXcpacV+EOuulj8ON1kv
V2udDd+JKUn+saSFuWBZQNKJm7CiZs4lyT2wqUKi9FUV+Ln5joZGKZiz9q7t
0LbPzF1hhp/mlTUz21Usi9pdDMseOHWS/yp8gYfno1kAHJnwnH/8B7hIqXT2
ZNAn7KMXvCo6arBane7HwpEm7P+kSH0pe7i0KSXPOL+ROefJSaEfT8OtJ3SD
9i6BpyxVVIz+4yPzqs6TuX6G8OamjIQwXjhJdy/PkvYG5t/WfNLY9AKudo2Q
WHgabuT3anbQgHel3eBL86pnjsmU5U+4Xsf8+YdLrh9i4a7DO24VvvzArHmY
q9AzDfazybP7XPme+Yp8dIB+Cjyi3NRwJwCWDlyamlFVi/PTu7VGaOQdc/9M
kQN+KfC85xFdfPbwZm7nsGBnDXMi9+b1wfE3OL/NjuJR7q/x/hvKTdpTqzAf
fB6s4LWE1+arbz2f+DfzxSP3VgnIwpNRA31rWiux/xbZtsn2v2J+NrekJSLi
JXOw8n35ye0VzLFfT9c/H3uBebfcKUN8HdxfuTbgshJ8ils7W5gDnxWuPRhR
Usas0hl/XsobdqzakLVw+C/sw5e3jQ66/Mk8Lh1wqCe/mHnGx/1fu7yL8JzP
ULJuopDZ7dEsS+HdcK+ir2qFRQFzyuzzu99q5TN3rrPpjziUh3nWns6v7/yU
ua82TuWyWy7zhrGT9/8Rn4P7cj+0ZYtzNv7P6rk+DtOzMJ9XB413p2Qyv5/s
mCLlAacutr3xw98PMN8EpcQaEu4xP2wReqRwLwO/rzPAHda7g338JOZUzV9p
zO+MgrtK5VKZJbYl+t1VTsH9aVpdI29/gdnqbi6PxaKzzAO7zmh/GzuOeUVR
FEVRFEVRFEVRFEVRFEVRFEVRFEVRFEX9T/0T5+758w==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzt2nk01P/+wPGRXUUbaadUQiktlkQr2rMkEd8pIsrSoohUKBGKrEmbUBSS
[encoded data, 7260 characters]
P8VWfnXZ3iYsAfvj0LTLpscjsckggwwyyCDjPzn+Czeu7i8=
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0, 1, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0, 1, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Noise Amplification Mi+1\"", TraditionalForm], None}, {
        FormBox["\"Noise Amplification Mi\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-7, 1}, {-7, 1}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.771847430057536*^9, 3.771847489848467*^9}, {
  3.7718475226409087`*^9, 3.771847578288067*^9}, {3.7718480105460725`*^9, 
  3.77184803733885*^9}},ExpressionUUID->"9570863d-0541-4a6f-8b89-\
d0490a337123"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"LEqLine1", ",", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "MMX4X1C1"}], "]"}], ",", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "MMX4X1C2"}], "]"}], ",", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "MMX4X1C3"}], "]"}], ",", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "MMX4X1C4"}], "]"}], ",", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "MMX4X1C5"}], "]"}], ",", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "MMX4X1C6"}], "]"}]}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7.5"}], ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7.5"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Noise\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.3", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Noise Amplification Mi\>\"", ",", " ", 
      "\"\<Noise Amplification Mi+1\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7718440515175853`*^9, 3.771844127703881*^9}, {
  3.771846448838607*^9, 3.771846473466882*^9}, {3.771846512883187*^9, 
  3.7718465376769056`*^9}, {3.771846619588513*^9, 3.771846681664032*^9}, {
  3.771846856774726*^9, 3.771846864575923*^9}, {3.7718470119806247`*^9, 
  3.7718470247378306`*^9}, {3.7718471212764163`*^9, 3.7718471865950556`*^9}, {
  3.771847282502941*^9, 3.771847307718199*^9}, {3.771847349448374*^9, 
  3.7718473917235794`*^9}, {3.7718476198011336`*^9, 
  3.7718476646797047`*^9}},ExpressionUUID->"a80aa499-da5b-46f1-bc2f-\
e33ad56b615c"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3Ensrfccx/G/mRpa1MxVsamNCBYWyo1NLSzUhkUXJYjEwpWQSFncRW0s
[encoded data, 5340 characters]
UofT438Aayru3g==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzt2nk0VXv/B/CDBtJTaDSUIVODIUNK3RAlRSoNJJKrZIikqIxRlDJEk5mK
[encoded data, 5880 characters]
yGBL/fXb8FrJtilyifCkkrFFOcurUM8dImeYmcDj9Qv+Jw4rN9w=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt1X801Xccx/GbH91ahDJLmR+lNLoi1TSOZeRHpLgWFVpJF4n0Y5R2kUtW
IUk/RFJXfkWU+Tk/IkmhCF1DY/lVu01+NJf5sbOzs89r+3fnbGc75/P953ke
53u+53y/3/c574/abh87NzEGg+EhzmD81t8vpXJaWlpaWlpaWlpaWlpaWlpa
WlpaWlpaWlra/0dDeXc/sbD6gPijrp2hiYFyxKxvA4+9vSxDnHlZ9nxbylzi
5wHVC1KmpIgVFDNSrvbNIbZ3XziSnQO/ifOICbSH2+qmlcQl4HN+q2+er3mP
eNTsqIcoGtYdE04FO8H3V+ZHSK6EO3N6m2OEs/F9ezlinvmwwjev814dgU3W
Rv6wTAn2jotNnayYRTzYoHppRihsq54m7bQUDrN+d7GlnEns0LAn2+QkPKjW
fEfjcziOV/Iw6eeZxF/3tclb7oHD1Q0Y8S8liWNkmLln+XDumOlCI0/4pHB5
NFcN1ktqu6Q/KEGsnsWLjRTAh5doyQWUwWotrmxhFKziY3LF0R1+Usc1bbaD
s5N4T+o2wk4R0bYbjeFB50ctOlLw9MFrw83F4sQRj3P3WF2AzfjGNWZe8HhN
aP7Mj2Bm8qpDrB4x4uHOmoKpHHj1IUnRqWtwVe5V554YWNclPsjgJBzBSV6i
zIEN+JbC3hXwdb26fB0mvCt3LFhpbAbxgRhHzUQhnOdWXOJSC7NN+vTK4uFA
HdUvi3hws3Yv+8R+eINrzgtNR3hpnFuatC28RH3o4aQ57JAiM8IxhIMOmotG
WPDU2TTz00rwvuAhQfaPDOIOfU2l0iL4+wyLHZrJ8H3vLadfHYffhPpIxNrA
gdl5KXpr4O7unaFuy+CiLpuqTNF02R8+IvE4lM2Do+syWBump4izvAPGn+2D
a6pab8gowsUt7PeDxeAgqfVCnYlJ4l7F/sD3quF57orKUlzY8+xuDzlz2OZc
ZJ69Mtz+/T12T/oE3qe8/sFqE/hob2PhHG24jtP04QMm7GZrF2df9wsxo0pa
vf0KLNDY4iTiwQcquNqmRvCNVVMcq7FxYle+rFjmM3iIqW3y5A4cUhhmtMof
ln/huXx9yxjx9iMhkiPb4aKB8dEHEvC3kqm6liki4tjs7ypsAmDlU6VFhk7w
rZeNTwsM4L1f8J3upY0S213nfuK1EnZ3kd0RLwXbT/DOiJ78TMzdr9Eudwv2
VnV/JxUOW1deST/lDAtVF3g7L/vT/aGLbhv63xEr3N6yqbgSNvYu1Ha4Bdvq
saO0LsPMST/xzznwoP7YcJ4K/HDhW07XyAj+z9xAy+F6+KpLt7LPLjjRz0Dn
kAS8rWyRvvi7YeKWV3zDphRY//yCVavN4JNcU9ZcBsxMDjGtbBwiNvdt3a5V
ArPOJB3vSICjqsrzwzjwUhUp/yA9+EPjA6b5C2AP3/GXrv2DxBdKfDk3C+Hi
sLCC6KOwww3fsUFLWLFdWPaLGSybYLN5pyFs+mLXMXb9W+L0B2p5u7fCORuH
LhmPDxDreraaZB2GjWdmlXbrw18+K2wZqfgJ85hz2eemB1zR+vHQOhtY1GCp
mrABZomarRVH3uD5NZ9Nr+HCJVurZbJXwJsVTiQ8uiAkns9ubM42+pE4o7NX
XsfhNfHk6LafWIJXxDFaxzVZqv2Yb/Vdo9qnvdhv+9TW3jkMu890K7bVgmP7
puNEeT3Eqf5NtZVMeOigc4erXzfmu7g9OXMFnOk3UWtx+iXxJoPwzvt9PxA3
Sg+HMArgA/se2Wn4w/tLgzsiLeDrkWb+hzq7MJ9PPeU65sNeixf7WVS/ID4r
8PXix7YRhydZnHa59B3x+I2QjBlm8J3M6JuCUQHxrnUBWyc+eE7Mv5uWNm9R
C7FGfU3+1tQm4texErFWds+I10bEyQdFNmLfW9cwE9MbiBvYiWf8HeEdgnPL
6t2fEh/z62hLeF5PbBHUvK51Fjx7oHF72WAt9qPdY8Fxbfi+ygnnzYLHxFZL
1q95OFFDHPDZnqjNkZXEC2MsBjp5JcRP9VVLrOUKsG9KtQNaJ3OIOWmyeXp7
bxPXV+lwGBLpOE+6+ncuuscn/or7tnG9dAzOp79c1NTU1NTU1NTU1NTU1P83
hztmVa09KEe8vNBaIX6lFLFTT5pcf+5sYnm1wxvDlv9zbipLHZgynPW3Xe6l
G3pRKPavOUolee6JvQzq/7h/BSdjD8s=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzt1HswlWkAx/H33DoXucSmElFa56Q1Si5F2ylS1LrnuhG5FIUacilNRFJr
mkXDuCSXNK5d0K4WvY/Wis3mssaROIuo41YkIbdtZ/d9nt0/zOx/O7PzvP98
53POmfOe+b3vedcfDbT1phME8RuDIP7on4cywMXFxcXFxcXFxcXFxcXFxcXF
xcXFxcXFxcXFxcXFxcXFxcXFxcXFxcXF/T83y9lEu/3ACujvfCrivPykoZ2u
zWpddEYOpw1tqajhQXtefzMYOcdd0gonKvniFvaS7hWkTZus//deGcdJCOxd
Bj3kmnqC6Y/sJbYt3lXMgj46Z6FQGo6s1TxprnKQBSLzeuzW7VKA1pfx26Gl
Ig89OBO86fgrOaA/0zCi3MwEl2wdu0tPyYLYnmMlZuVMuFPniW/lVLOYIKm/
Wse+Wgr05NkV+3oyQXtQFYfTwoPuCAi+mlzLAy0FC/35nQzA1ey/oJrHAQ1t
lr3SIgbYk96Z4JDAAS8bhOa6VgzA5sTuntfhAPuBpq7xdQy420jgitzA13QQ
0JH2dFHIBqcjMsXzL+ggaX7UrkaRDbpCzLKDHtNBhMwGsqJmGYg5lOEmKaeD
uhy/8z+IWKCQk7n2QyIduA6mqlTcYoGb63qf2Qo/fd6yWkU+ngWCUkIXVTXo
QEZYIqqNYIFy44D0r1l0uEtAzXP9+/E04Jqf92v0KhZYPR7rU+hEA/vi2Q78
v9n6gf02bwUW8OYdIWblaXDHKodpDQspGtxNeWynMJNGAyuW25mO+jBBOU+2
3XCagLtVOq5scm4lQDEhz3PxYIIhHf4GMxMCxFrdKvLMZAChfLaz8dQi6Rfe
r6F4kAE2VnF25IsXSI+7Jxsr1JCp3V49tqyNT10gqd2EX8o+K7kxT9omFBbr
1KH3qZ0oH1uz89TxTciC0ENTbjxk7zFfQchDGnSZtVGj2QMaPP8BN9d64ixy
/eXPjC/pIDcJJ23qpZCpHSh3hJTv8xcjU7tQFogeeT25jmzYZZDuFIbcVqBZ
WBqAnKy7L5R0J+B+eo5Xyhb0CLjvZt1xDYNPr1Pn2X/2aXyBZBH+rqoyBdlQ
9UWSun4jT7O/yg9bIKnry6z3uev+xadd/rr+TdUyJ/P5yIIwG93NDfPQHavG
c7OzkN/vF7x8PzFHUvfTFcmwJ7t5Frp0tnLNOwHyxu9F6XKyyD8aetlXfPMR
mpnpmSKORd6zOsNNt3wGOi735pmQHOSo2JQ3ydXT0L6srcIpI+RzWQdarmkh
q0rJKnUbTUFHPNTcc0gOeeSUw2QNE9llWH2XR+oH6D4dnxt6tshnHl3hRUoj
p0R5XFUYn4Teu597p9v9PUn9f/PGMn7avXoC2rT1hYh57x30Qa1trzanIN/O
NU1imb+D97mVS939KCVkhnuNw5aJcWgg2d5nOoq8Vd2mWfz6DbQhf5sHP30U
WtDt5P46fBi6XahhcKdHAu0gmpgNEw+Q1PPwiPSE40ZygKSe59mtizyLIGRx
sEtnbkk/+Sx1N4hbzgGj56z8PTT7SOq5rqnWrLW1pxfa0SwiZEaMLFDjVnSL
lvbapJ8t0zKQlbT96hpYYujI68pVwX7d0LECvftWk13Q1gXcY1Zp5dBDfCPx
dlNk4h8HNjY2NjY2Njb2UjbVDik+rCsL/dDzkra0Hhd6r4Kv1WAXGzpk8mIK
j8GCXiby7+uIYUDfPJrI9yqiQ+tOWzbn5NKgjY0/V/lFCXnextO0UjxPUs7i
2l1r/zgHLTuZk3t2EPnCXIyiZ9ksdOSTysfk4ji0WiLRqC+PPBQdlebQOAat
+Fbr9oeyt9DPc4Nqzy8MQ7dZGCS+vIw8U8SSSAUjt56O0EgOGYKmMyVVhLoE
Wv1iJ70tbAC6iButWxssho4WBozEKCMfZluPmJt0ou/zui0ZGb4H/V8dvwMF
jP+n
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzt2Hk01dvfwPFjPKZcpNRFRZlJRG6Gbq4hU4kSyVA0kQZ0RaUMFQmNlCYl
[encoded data, 5160 characters]
GTJk/vf8C6Pg+6E=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzt1Wk01fsex/FtjpAhOkW5zXUkQ50j866QkCmhlCJD0VEpQ6k0mMMpFQdR
0UjS4HQUSTKdQ5SjKIVI5sxkiLvuuuv+Pt3H98l98H0/2eu1/nvtB/v/+32/
c532WrnwcjgcP1EO51+f/04+j/NfkclkMplMJpPJZDKZTCaTyWQymUwmk8lk
MplMJpPJZDKZTCaTyWQymUwmk8lkMplMJpPJZDKZTCaTyWQymUwmk8lkMplM
JpPJZDKZTCaTyWQymUwmk8lkMplMJpPJZDKZTCaTyWQymUwmk8lkMplMJpPJ
ZDKZTCaTyWQymUwmk8n/ny7q8utZWCHNPG9ob3XGmARz8E+6cnuLpjHLfRP1
n7JOmJl3ZncdZ4EQ8+507umjE4LMnjM3/lLlARs89plrzYGtAwTE4roFmB2v
hosp1cOBt049WpAO+3cvEpnwgUP5X5sJe8KGbpNHX3nAX3g5PRx72G12HPe4
MewxNvIwfz38m+Lm5N954ZKTXcqRz/iZvaLby7bkwlareFzV4mDryDbRHG94
V3vuLy8WwLZOlo2/vudjPsj7VjY8Ed65+LHuFgtY61zTBhld2IATIyOpCZtF
np+nP8rL3B2WICDyCHb4tXZULQTuiZpuprsDnlwqtnOjASxbJdKipgjPKk5e
3DgPvrb1154oSVhtxEwhuJOHOcxt1RGpx3Bw94MjLilwh+p2TedQODMw36Vn
D5yX06/v6AabzFG5tsACNvaw1fPTgfd//G2/7XdWeuG7I2kR7J/q+ilEEP6j
48miuFEO8+Aho3zVPljNqVXJqBpeJxIhkpAPt71caLn/GTy1M3GcLx2Os2gs
fnYEXvBXbvKVjbCvdHZyliHcbqdR06ELHx0u8jL+GZ4+NeGJpQwcda9nLKNt
8ul/LP25TuBgPezXvkvt2y24eCRirZs/bCCRJH7DD54MSZqYuReW2DNzQ/1W
ePHvZRcGtOEKJVdL3+lwiPjKI6LdE8z+Jy6UzM+GKz+oD1adgXMEM9pOHYHF
DEzfvtsPu2u3BDbxwI0+CncNvL4xb3po/r7UFJa6K5SeO/87c8v8n7aPM/c8
ynpi9xD21bzI+8kZThSpexCvDgeK3nE2WAFzuqsVV0rCWVHaZmF9Y8zZzotX
W2bBaoL9FqWOsPjN7ND6BbDNL+WzboyOMstkBegNfYDFX/PMES2H640GZYOT
YB+L5de098ENgm9WxLjDbyQPRw7awKtXFGVLrYc1/Vp9C36GtT8XpGoIwgap
62YUlI4wy721N9a5CGdXqkgIhMEXi5Xr7ILg3knJOxpe8PQDcm8+O8GPtV1i
n2nDrmnLjYKkYJMNQ8lXxeDojIhNveNf8X6tKktdOmHl+dtVQ8vgTTuqQ5tv
wzPD87+c+c7KTkPncuLh+DnqLpNH4e3pxkqJ+2BvK2f7UHd4yoPTzpWusLP+
DKeYbXCmnFDa0Q3wj1Ii6nmr4UPNL190qMLSFRxvfwE4327QM+TVMPNPDeHn
03Ph8LJ9ptEJcEWlV4y5Eyyd3NTnrgdLfuhbJrMU7oibSNCThicjUo37+4aY
tZT5In3ewPxpA4OzCuD07fFmGy/Aazyee2rZwAJvhKWaNOAtLsdkyhRhHetl
Tls5cIIY383Oj4PMl2z2be2ohof1TplUFsLy/IfXx9yA74mZe+achU2mmVQ8
8/3u+1YbOxY5wLWe9RcLjeCS1gOXx74M4DzUS+zUuQZP1MiYNwfCEQqD6bdM
YUG7994r5eApPWIFm+/3M+vLacpfV4HFixUmIzP7mPUSOA4+LrDDsqtlgT/D
r3/vGrjb18tc3bnkyujfsEfGTxVJmfDlYytOVMbDZ1Wdao6GwKUV6yU0PODh
bPs+Q304yp27tnMR7DiHs0luBlx33EfGUwgOszczGh7swf0sz+OqfoIfXYmJ
fdgEJ0lUzzarh91le/29M2HbqLiCoChY0iEgXXQffD08s01tGsw1XxPZHN/N
nPquvkDYHvZIUN3WKQ+3TsSujKv5wrzkrNzjtzFwlca5WeXesKkN5/kxQ1hu
2pXllbLwuaKz5ffaupjTwquXVhTCUtVPrZJvw56u+aFDqXD0Pf9D5pdgbVXu
4vvnYEc7v2OcDfBksg7PscZOnHeBHB2pHNhITCvO+zF8xkUw9mswfNtB4pK6
Naw+fz7XxgTmaLkp+S+DT0a3JMaPduA8hd6pKa+D91xdc+VVLWx5er346xrY
pk7oXX8hbB0kvnTZAzh3Ctfn5jx48KnE1D9j25nfqmntzIiEN7VXbZ6qC/uu
uC/X1t7G/MQ0pFHqPdzLjbjuXwKbzWmO3WYC25hVzXcpacV+EOuulj8ON1kv
V2udDd+JKUn+saSFuWBZQNKJm7CiZs4lyT2wqUKi9FUV+Ln5joZGKZiz9q7t
0LbPzF1hhp/mlTUz21Usi9pdDMseOHWS/yp8gYfno1kAHJnwnH/8B7hIqXT2
ZNAn7KMXvCo6arBane7HwpEm7P+kSH0pe7i0KSXPOL+ROefJSaEfT8OtJ3SD
9i6BpyxVVIz+4yPzqs6TuX6G8OamjIQwXjhJdy/PkvYG5t/WfNLY9AKudo2Q
WHgabuT3anbQgHel3eBL86pnjsmU5U+4Xsf8+YdLrh9i4a7DO24VvvzArHmY
q9AzDfazybP7XPme+Yp8dIB+Cjyi3NRwJwCWDlyamlFVi/PTu7VGaOQdc/9M
kQN+KfC85xFdfPbwZm7nsGBnDXMi9+b1wfE3OL/NjuJR7q/x/hvKTdpTqzAf
fB6s4LWE1+arbz2f+DfzxSP3VgnIwpNRA31rWiux/xbZtsn2v2J+NrekJSLi
JXOw8n35ye0VzLFfT9c/H3uBebfcKUN8HdxfuTbgshJ8ils7W5gDnxWuPRhR
Usas0hl/XsobdqzakLVw+C/sw5e3jQ66/Mk8Lh1wqCe/mHnGx/1fu7yL8JzP
ULJuopDZ7dEsS+HdcK+ir2qFRQFzyuzzu99q5TN3rrPpjziUh3nWns6v7/yU
ua82TuWyWy7zhrGT9/8Rn4P7cj+0ZYtzNv7P6rk+DtOzMJ9XB413p2Qyv5/s
mCLlAacutr3xw98PMN8EpcQaEu4xP2wReqRwLwO/rzPAHda7g338JOZUzV9p
zO+MgrtK5VKZJbYl+t1VTsH9aVpdI29/gdnqbi6PxaKzzAO7zmh/GzuOeUVR
FEVRFEVRFEVRFEVRFEVRFEVRFEVRFEX9T/0T5+758w==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzt2nk01P/+wPGRXUUbaadUQiktlkQr2rMkEd8pIsrSoohUKBGKrEmbUBSS
[encoded data, 7260 characters]
P8VWfnXZ3iYsAfvj0LTLpscjsckggwwyyCDjPzn+Czeu7i8=
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Noise Amplification Mi+1\"", TraditionalForm], None}, {
        FormBox["\"Noise Amplification Mi\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"Noise\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-7.5, 1}, {-7.5, 1}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7718465138911705`*^9, 3.7718465388960795`*^9}, {
   3.7718466436388755`*^9, 3.7718466505293565`*^9}, 3.7718466822283654`*^9, {
   3.771846857843669*^9, 3.771846865737303*^9}, 3.7718470257512445`*^9, {
   3.771847138815156*^9, 3.771847187529132*^9}, {3.77184737807373*^9, 
   3.7718473926915984`*^9}, {3.7718476306993246`*^9, 3.77184768250327*^9}, 
   3.771848047032528*^9},ExpressionUUID->"eb197d3c-c980-46bc-b5d8-\
197202da22fd"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Loading Stability Margins", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.771739038932023*^9}, {3.7717548346485124`*^9, 
  3.7717548370485125`*^9}, {3.7719050177750096`*^9, 
  3.771905020665657*^9}},ExpressionUUID->"90a0593a-668a-439e-8254-\
bf229d1b6a37"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC1M1.txt\>\""}]], "Input",
 CellChangeTimes->{{3.761041654299574*^9, 3.7610416560598183`*^9}, 
   3.761298197600153*^9, {3.771738734372678*^9, 3.771738753988132*^9}, 
   3.7717388384511323`*^9, 3.771754883146345*^9, 
   3.7719053058748674`*^9},ExpressionUUID->"b53099c1-2cb7-47c3-ae7f-\
ef4000fba73d"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC1M2.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738756227133*^9, 3.771738907747023*^9, 3.7717548879933453`*^9, {
   3.771905310933172*^9, 
   3.7719053124799213`*^9}},ExpressionUUID->"42d9f247-3487-4caf-b43c-\
0904b80ae572"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC2M1.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387584831324`*^9, 3.7717389119070234`*^9, 3.771754891658345*^9, {
   3.7719053172049475`*^9, 
   3.7719053196149645`*^9}},ExpressionUUID->"b74d4759-ff42-445a-8d11-\
9e1c1ee01e2b"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC2M22.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718320588670683`*^9, 3.7718320598110294`*^9}, {
  3.7719053238149867`*^9, 
  3.7719053279850087`*^9}},ExpressionUUID->"0237c093-189f-4fd6-8bbd-\
df692d169f3d"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC3M2.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738760260132*^9, {3.7717389152190237`*^9, 3.7717389154750233`*^9}, 
   3.7717548952743464`*^9, {3.7719053326647644`*^9, 
   3.7719053356651554`*^9}},ExpressionUUID->"53184d1d-d653-4d32-bfe4-\
263387ccb50e"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC3M22.txt\>\""}]], "Input",
 CellChangeTimes->{{3.771832095810793*^9, 3.7718320967708483`*^9}, {
  3.771905341635054*^9, 
  3.771905345354663*^9}},ExpressionUUID->"5c54b525-7b3b-4c66-a560-\
69ec32f1df66"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC4M2.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387618431325`*^9, 3.771738920019024*^9, 3.7717549008093452`*^9, {
   3.7719053499742327`*^9, 
   3.77190535559493*^9}},ExpressionUUID->"ebde3dd9-df61-4cb8-81df-\
ae5255e53d05"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC4M3.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718321052828274`*^9, 3.771832105971793*^9}, {
  3.771905360464759*^9, 
  3.7719053656446867`*^9}},ExpressionUUID->"a7e94ebe-2001-4347-b910-\
21cc3ced7366"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC5M22.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738763588133*^9, {3.7717389235770235`*^9, 3.7717389237040234`*^9}, 
   3.771754904314346*^9, {3.771905369700579*^9, 
   3.7719053748466654`*^9}},ExpressionUUID->"13cd978c-3845-4686-b423-\
fdb976dd6638"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC5M3.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7719056922049713`*^9, 
  3.771905692994399*^9}},ExpressionUUID->"6d4f63ca-1a3b-434d-b1ff-\
723f3ca2b0d7"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC6M3.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718321109637923`*^9, 3.7718321117158265`*^9}, {
  3.7719053798751917`*^9, 
  3.7719053845547004`*^9}},ExpressionUUID->"ce0acacb-480b-4354-92d6-\
3262368eb8b7"],

Cell[BoxData[
 RowBox[{"<<", "\"\<RCC6M4.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387649011316`*^9, 3.7717389265150595`*^9, 3.771754908202346*^9, {
   3.7719053892532253`*^9, 
   3.771905399925159*^9}},ExpressionUUID->"2dd4ca23-e23a-4134-bcab-\
221ec1833e0c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting Stability Margins LogScale", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717550341040754`*^9, 3.771755042491076*^9}, {
  3.771905275104765*^9, 
  3.7719052782248898`*^9}},ExpressionUUID->"b4ac6ee3-fbe3-4539-ad55-\
f0208b8c60cf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 
  3.7717438210269485`*^9},ExpressionUUID->"f749da12-a722-4672-aa0a-\
547fdc49dfa1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "RCC1M1", "]"}]], "Input",
 CellChangeTimes->{{3.771755112507743*^9, 3.771755117979743*^9}, {
  3.7719054255551095`*^9, 
  3.7719054259049873`*^9}},ExpressionUUID->"753fbba0-493f-4ac8-8d0d-\
24f187d0ec94"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5147", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.7717551185017443`*^9, 3.7718325524635773`*^9, 
  3.771905426874735*^9},ExpressionUUID->"a53bb997-6649-44e8-b0f7-\
4779c165de49"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"R1M1M2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RCC1M1", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"RCC1M2", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
       "Re"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R2M1M2", "=", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RCC1M1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"RCC1M2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
        "Re"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R1M1M22", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RCC2M1", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"RCC2M22", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
       "Re"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R2M1M22", "=", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RCC2M1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"RCC2M22", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
        "Re"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R1M2M22", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RCC3M2", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"RCC3M22", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
       "Re"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R2M2M22", "=", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RCC3M2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"RCC3M22", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
        "Re"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R1M2M3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RCC4M2", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"RCC4M3", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
       "Re"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R2M2M3", "=", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RCC4M2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"RCC4M3", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
        "Re"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R1M22M3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RCC5M22", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"RCC5M3", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
       "Re"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R2M22M3", "=", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RCC5M22", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"RCC5M3", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
        "Re"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R1M3M4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RCC6M3", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"RCC6M4", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
       "Re"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R2M3M4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"Sort", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RCC6M3", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"RCC6M4", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "//", 
       "Re"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719054306333303`*^9, 3.7719056670851*^9}, {
  3.771905700204629*^9, 3.7719057395245657`*^9}, {3.771905804739247*^9, 
  3.771905816721526*^9}, {3.7719059613171215`*^9, 
  3.771905983824296*^9}},ExpressionUUID->"06d303c7-d707-4559-8fc3-\
1aed6da290ed"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MM1M1M2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"R1M1M2", "//", "Re"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MM2M1M2", "=", 
    RowBox[{"MovingMedian", "[", 
     RowBox[{
      RowBox[{"R2M1M2", "//", "Re"}], ",", "WS"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MM1M1M22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"R1M1M22", "//", "Re"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MM2M1M22", "=", 
    RowBox[{"MovingMedian", "[", 
     RowBox[{
      RowBox[{"R2M1M22", "//", "Re"}], ",", "WS"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MM1M2M22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"R1M2M22", "//", "Re"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MM2M2M22", "=", 
    RowBox[{"MovingMedian", "[", 
     RowBox[{
      RowBox[{"R2M2M22", "//", "Re"}], ",", "WS"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MM1M2M3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"R1M2M3", "//", "Re"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MM2M2M3", "=", 
    RowBox[{"MovingMedian", "[", 
     RowBox[{
      RowBox[{"R2M2M3", "//", "Re"}], ",", "WS"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MM1M22M3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"R1M22M3", "//", "Re"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MM2M22M3", "=", 
    RowBox[{"MovingMedian", "[", 
     RowBox[{
      RowBox[{"R2M22M3", "//", "Re"}], ",", "WS"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MM1M3M4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"R1M3M4", "//", "Re"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MM2M3M4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"R2M3M4", "//", "Re"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7719057438248615`*^9, 3.771905934384488*^9}, {
  3.7719059932143984`*^9, 
  3.771906016433337*^9}},ExpressionUUID->"2ea17ed5-f47f-4587-ab43-\
677727c4c3ad"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Max", "[", 
  RowBox[{"R1M1M2", "//", "Flatten"}], "]"}]], "Input",
 CellChangeTimes->{{3.7719060543044186`*^9, 
  3.7719060702243032`*^9}},ExpressionUUID->"3c7240f6-7ce2-44d0-9c63-\
84fdb0bb6935"],

Cell[BoxData["32.211717961176745`"], "Output",
 CellChangeTimes->{{3.771906066724089*^9, 
  3.7719060705546155`*^9}},ExpressionUUID->"8182d50b-0805-49b8-b096-\
a44bab691228"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "25"}], ",", "35", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}},ExpressionUUID->"a5c85f40-a393-44f8-8e60-\
e62409f428cd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Gray", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow",
     ",", "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 
  3.762162734410307*^9}},ExpressionUUID->"243c833d-2280-4cbb-9e86-\
c07d8768a653"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.33333333333333337`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0.5],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 
   3.7719060831724453`*^9},ExpressionUUID->"08d23cc6-0db1-4799-ae55-\
edf8a3a91b39"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M2/M1\>\"", ",", " ", "\"\<M2'/M1\>\"",
      ",", " ", "\"\<M2'/M2\>\"", ",", " ", "\"\<M3/M2\>\"", ",", " ", 
     "\"\<M3/M2'\>\"", ",", "\"\<M4/M3\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 
   3.762674167944764*^9}},ExpressionUUID->"4a6cf427-91f0-4878-88f1-\
34857720f251"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"3f96dc5f-7ae1-40ec-8373-\
36055c5474eb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "R1M1M2", ",", "R1M1M22", ",", "R1M2M22", ",", "R1M2M3", 
     ",", "R1M22M3", ",", "R1M3M4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[1st Stability \
Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Log10[1st Stability Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\
\(\*StyleBox[\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}},ExpressionUUID->"7378543f-9233-4734-b94f-\
a2a16294603c"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3X/MN3pd1/FblB8h8UPAw0E4HEDg8EM4CAiS4JFGMGMBRkMbMdBElk1h
[encoded data, 19200 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJwc13dcTf8fB/D2Xrd9u61726W9JZWGCG3fQqGNhhTS0KRSikhTaEuEhjR8
[encoded data, 98940 characters]
6rlSH2JWjotqhejDkzP6hU8u6cOBxD+R8osBcs/+838B9muF
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJwc2Hc8Vf/jB/DrXusa171XNtmkjKxK0futrFAZRZRkldEkKyGFRH1SKDNS
[encoded data, 95880 characters]
vg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxE1nc8le//B3B7nYNzSHaEMpqi6GNcV0qErEIipRAqI6mISLZIoihRFJGI
[encoded data, 86700 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJwUl2VclF0Th+mOXWLp7hYUMIBdUAREVEAQAxFQlBJUGiQtULpFQiQeQroU
[encoded data, 99660 characters]
THmn8N4C/weeec3k
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxk13c8lW8bAHAcm8PZ5uEce0dIUfYoIykhihRF2UnpR1EUDTOZlVUZLZFZ
[encoded data, 81900 characters]
b97vKW0NjxW1vdkW1vg/hb1FEQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJwUV3c81d8bv9fe7uLaezZIWaVQUl+rkhEisyiKJIqSkuxCIatQ9sosKuch
[encoded data, 100440 characters]
1EqoPnMSr/nMhtM176JjXStx6lwEc78FF/8DWF7BXA==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[1st Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\
\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[1st Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", TraditionalForm], 
        None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{-25., 49.28697435195656}, {-25., 49.28697381051975}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 
   3.771906220430276*^9}},ExpressionUUID->"16d16240-f115-4786-9f78-\
3de3816bafc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "EqLine1", ",", "R2M1M2", ",", "R2M1M22", ",", "R2M2M22", ",", "R2M2M3", 
      ",", "R2M22M3", ",", "R2M3M4"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], 
    RowBox[{"(*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"Style", "[", 
      RowBox[{
      "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
       "20"}], "]"}]}], ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Join", "[", 
      RowBox[{"CLRS", ",", 
       RowBox[{"{", 
        RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
         RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directive", "[", 
        RowBox[{"Bold", ",", "15"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Log10[2nd Stability Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\
\"", ",", " ", 
       "\"\<Log10[2nd Stability \
Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\
\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.7718325182530146`*^9, {3.771906232370267*^9, 
   3.7719062594955072`*^9}},ExpressionUUID->"8f84eef9-aeed-4798-bce8-\
4033fe368af6"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3X/MN3pd1/FblB8h8UPAw0E4HEDg8EM4CAiS4JFGMGMBRkMbMdBElk1h
[encoded data, 19200 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJwk13c8lt//B3BpUIrbum/jxr3c9t4jq0kyi6wiSkNbpSIZWaUykmS2CJWI
[encoded data, 101100 characters]
t/G7rw3h90e5+O57G+HyZiWm64mN8D9EZ2m4
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJwcl3c819/3wN/eeNu87b33XqWSulfGpyKEjIYiM6mo0KJklKiIikoLqRAy
[encoded data, 97800 characters]
WxwcuJE0pmELkS87C27NtMX/AJtc2Pc=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJw01Xc8V9//AHDb236b2bsoMyIJ95AoI0QqVIgiWkpGiVLyyUwlI9kZJaMl
[encoded data, 89520 characters]
kwIp/0S/ojj/B47Txt0=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJwUl3k8lN8Xx21ZxzJmGLvZMGPfdyERhUpEFBVKWUqWNm2iolIoiXyTJVkq
[encoded data, 99840 characters]
qDNHTZPb2WhvA1gWqViLg42ILnd33m4zxmfT45uKqCb4HyQfRds=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxk12k8VG8fBnCVSPZ9mDHG7DP2nbJVlpKIolWFFimkLNEmSkWlUhGi0qJI
[encoded data, 81900 characters]
7PA/D0AN+A==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJwUWHk8VO8btYTsYxiMdcbM2PclQlS2spfIkr5lKbRHEaKUikqIlKhIm1Io
[encoded data, 100260 characters]
q6xy7KclfHZniX9osEMe41XOOkFz1AnviXvx1A7xhc/4HDpM8D90IkeI
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[2nd Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\
\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[2nd Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", TraditionalForm], 
        None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{-39.06486510052678, 
      54.296648231767044`}, {-39.06494915981315, 55.77794193606568}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771742773794544*^9, 3.771742876244545*^9, {3.771742909867545*^9, 
   3.771742919881545*^9}, 3.7717430565345383`*^9, 3.771743723630438*^9, {
   3.7717438681229663`*^9, 3.7717439489337597`*^9}, {3.771744532558939*^9, 
   3.771744579355576*^9}, 3.771756405444849*^9, 3.7717573048575335`*^9, {
   3.771906249635335*^9, 
   3.7719062606330585`*^9}},ExpressionUUID->"73c276c6-92d0-40b9-90fb-\
acdc8aa0b8ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "R1M1M2", ",", "R1M1M22", ",", "R1M2M22", ",", "R1M2M3", 
     ",", "R1M22M3", ",", "R1M3M4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[1st Stability \
Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Log10[1st Stability Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\
\(\*StyleBox[\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}},ExpressionUUID->"74bd1fc6-963c-4618-ae1c-\
410232397a3a"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3X/MN3pd1/FblB8h8UPAw0E4HEDg8EM4CAiS4JFGMGMBRkMbMdBElk1h
[encoded data, 19200 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJwc13dcTf8fB/D2Xrd9u61726W9JZWGCG3fQqGNhhTS0KRSikhTaEuEhjR8
[encoded data, 98940 characters]
6rlSH2JWjotqhejDkzP6hU8u6cOBxD+R8osBcs/+838B9muF
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJwc2Hc8Vf/jB/DrXusa171XNtmkjKxK0futrFAZRZRkldEkKyGFRH1SKDNS
[encoded data, 95880 characters]
vg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxE1nc8le//B3B7nYNzSHaEMpqi6GNcV0qErEIipRAqI6mISLZIoihRFJGI
[encoded data, 86700 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJwUl2VclF0Th+mOXWLp7hYUMIBdUAREVEAQAxFQlBJUGiQtULpFQiQeQroU
[encoded data, 99660 characters]
THmn8N4C/weeec3k
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxk13c8lW8bAHAcm8PZ5uEce0dIUfYoIykhihRF2UnpR1EUDTOZlVUZLZFZ
[encoded data, 81900 characters]
b97vKW0NjxW1vdkW1vg/hb1FEQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJwUV3c81d8bv9fe7uLaezZIWaVQUl+rkhEisyiKJIqSkuxCIatQ9sosKuch
[encoded data, 100440 characters]
1EqoPnMSr/nMhtM176JjXStx6lwEc78FF/8DWF7BXA==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[1st Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\
\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[1st Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", TraditionalForm], 
        None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{-25., 49.28697435195656}, {-25., 49.28697381051975}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 
   3.771906220430276*^9}},ExpressionUUID->"e27e003e-27d3-4935-b3a7-\
49a3f5e0a684"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "EqLine1", ",", "MM1M1M2", ",", "MM1M1M22", ",", "MM1M2M22", ",", 
      "MM1M2M3", ",", "MM1M22M3", ",", "MM1M3M4"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", "25"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", "25"}], "}"}]}], "}"}]}], 
    RowBox[{"(*", "*)"}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"Style", "[", 
      RowBox[{
      "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
       "20"}], "]"}]}], ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Join", "[", 
      RowBox[{"CLRS", ",", 
       RowBox[{"{", 
        RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
         RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directive", "[", 
        RowBox[{"Bold", ",", "15"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Log10[1st Stability Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\
\"", ",", " ", 
       "\"\<Log10[1st Stability \
Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\
\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.7718325182530146`*^9, {3.771906232370267*^9, 3.7719063617800293`*^9}, {
   3.771906395429938*^9, 
   3.7719064009904575`*^9}},ExpressionUUID->"f451efca-c025-4bca-8c4e-\
4bd29ded58de"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3X/MN3pd1/FblB8h8UPAw0E4HEDg8EM4CAiS4JFGMGMBRkMbMdBElk1h
[encoded data, 19200 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxEl3k8lG8Xxu3G2GYsY4x9RGRfk6RCQhIlJEWStEmSKCSEkCTJTlkqLXYJ
[encoded data, 95760 characters]
FN15LOGK/v8B771gnw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxMl3k8VO/7/xnDMMaYLWmlhVRCJVvlvpJUkqIkkiQhS6kkJCWSSkhoQ5It
[encoded data, 88500 characters]
DuUwfC4yjB5tqg7/Bw2mT+k=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxE12k8lN/fwPGxb4OZQUqSkLKvSSnnWyFJSEiShFS2bJVECVFCSBJaLMmW
[encoded data, 87660 characters]
QWUwl9VZR9A3tmxPry3W27ZxL0GRDb69ro7K8P8A+2rPaQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM13k4Ft//P3D7vtz2XYokFUKiMCpJSCVJoryFJFFCCCGp7EVC9pCQJfuS
[encoded data, 64320 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8V+/7B3B77713skpJkkpIg4yMokKIMlJCQlbIKNkrSkUkRSoh61zZ
[encoded data, 65820 characters]
X1U0333206Za8mCfuPVLxLAC/B9MO1va
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzc1/c/19//P3B7771XlJAXEpE8FCkjSYokJFmlJMkKldVeEhKSJNmVRDn3
[encoded data, 62160 characters]
+cjYpXnc++H/ALsOt6A=
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[1st Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\
\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[1st Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", TraditionalForm], 
        None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 25}, {-10, 25}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.7719063645202937`*^9, 
  3.7719064025772552`*^9},ExpressionUUID->"197b140f-42de-4fc9-90cb-\
657f33047ebc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "EqLine1", ",", "MM2M1M2", ",", "MM2M1M22", ",", "MM2M2M22", ",", 
      "MM2M2M3", ",", "MM2M22M3", ",", "MM2M3M4"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", "25"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", "25"}], "}"}]}], "}"}]}], 
    RowBox[{"(*", "*)"}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"Style", "[", 
      RowBox[{
      "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
       "20"}], "]"}]}], ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Join", "[", 
      RowBox[{"CLRS", ",", 
       RowBox[{"{", 
        RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
         RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directive", "[", 
        RowBox[{"Bold", ",", "15"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Log10[2nd Stability Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\
\"", ",", " ", 
       "\"\<Log10[2nd Stability \
Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize->10]\
\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7719064082399616`*^9, 
  3.7719064177403765`*^9}},ExpressionUUID->"a2dc3dcb-0ee8-4668-918f-\
2236989613e4"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3X/MN3pd1/FblB8h8UPAw0E4HEDg8EM4CAiS4JFGMGMBRkMbMdBElk1h
[encoded data, 19200 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxMd2k8VP/7N5J9GTOMbYwZxhj7iJAkIUlIEiKSpKKdpJIQEspWoqSFJEm0
[encoded data, 96180 characters]
8z2KETsc+Ci1q5kLvUbyySZpXNCIW+ph38mFJbvrko7lceH/AKum40A=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxMl3c81e8f9499cJxpExISkpUkua7slVBRUclKKWlJQlb4qqwkyQ5ZSUKU
[encoded data, 88500 characters]
8+gka2VYq7WG9VlIGf4PNj0ljA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxE1nc4lX/Ax/FjH8c6x8oqUmn8JCsV8v0mlBGSJGUkySgyEkISskJSiYwk
[encoded data, 89580 characters]
ddk=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM13k8VO/7P3DL2LcxGDtjjLFmS0LCW7ZkS5SQrVIhW9naULYkoZKdpBJC
[encoded data, 64860 characters]
LHquV/nn/wOua7eu
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c81+33B3Ai2Xvv9bF9jMooWZE9QzIalJTMJCGjzIaKysqIlCQpW+Jk
[encoded data, 66120 characters]
OKq6Q+XPDTVguVV2u7kUPbdau5BQhf4/vK6X+A==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs1/k7ld8bN3zzPM+zvdmmbR6ifMpQkkJkSjInpEFJMiUKFZKZkAhlKCEJ
[encoded data, 63180 characters]
88nDX2UIoFDWPeISqlNo5Rbd5ZUeAfQ/UrdDow==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[2nd Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\
\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[2nd Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", TraditionalForm], 
        None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-10, 25}, {-10, 25}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7719064188104067`*^9},ExpressionUUID->"9b972a76-f290-47f2-b93b-\
669c09856891"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting Stability Margins Per model LogScale", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717550341040754`*^9, 3.771755042491076*^9}, {
  3.771905275104765*^9, 3.7719052782248898`*^9}, {3.7719064760509777`*^9, 
  3.771906478560847*^9}},ExpressionUUID->"525c6637-e948-4d8a-be75-\
15d58f30a3a5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 
  3.7717438210269485`*^9},ExpressionUUID->"ef20dd82-d745-4364-87fb-\
57b470d1bb59"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "RCC1M1", "]"}]], "Input",
 CellChangeTimes->{{3.771755112507743*^9, 3.771755117979743*^9}, {
  3.7719054255551095`*^9, 
  3.7719054259049873`*^9}},ExpressionUUID->"28e934c7-1e2e-463f-a43a-\
8f328571827b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5147", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.7717551185017443`*^9, 3.7718325524635773`*^9, 
  3.771905426874735*^9},ExpressionUUID->"baba6b96-41b0-4aa0-9592-\
ecf4bf920548"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"RCM1", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"(", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{"RCC1M1", ",", "RCC2M1"}], "]"}], "//", "Re"}], "]"}], 
        ")"}]}], "]"}], "//", "Re"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RCM2", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"(", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{"RCC1M2", ",", "RCC3M2", ",", "RCC4M2"}], "]"}], "//", 
          "Re"}], "]"}], ")"}]}], "]"}], "//", "Re"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RCM22", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"(", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{"RCC2M22", ",", "RCC3M22", ",", "RCC5M22"}], "]"}], "//", 
          "Re"}], "]"}], ")"}]}], "]"}], "//", "Re"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RCM3", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"(", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{"RCC4M3", ",", "RCC5M3", ",", "RCC6M3"}], "]"}], "//", 
          "Re"}], "]"}], ")"}]}], "]"}], "//", "Re"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RCM4", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"(", 
        RowBox[{"Sort", "[", 
         RowBox[{
          RowBox[{"Join", "[", "RCC6M4", "]"}], "//", "Re"}], "]"}], ")"}]}], 
      "]"}], "//", "Re"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719064987202387`*^9, 
  3.771906754540005*^9}},ExpressionUUID->"c94893a8-3fc4-4542-b319-\
c6b731781a78"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MMM1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"RCM1", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"RCM2", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"RCM22", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"RCM3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"RCM4", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719067120200486`*^9, 3.7719067138202157`*^9}, {
  3.7719067585413227`*^9, 
  3.7719067993443117`*^9}},ExpressionUUID->"fce186b7-731a-454f-affa-\
61bf768f2fb6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "25"}], ",", "35", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}},ExpressionUUID->"b305506f-7285-4406-a7e9-\
c1e274927b90"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow", ",", 
    "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.7719069287897816`*^9, 
  3.771906929630001*^9}},ExpressionUUID->"875f5430-3942-45eb-a250-\
95960c0aabff"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.7719068324297986`*^9, 3.771906930600133*^9, 
   3.7725371233913884`*^9},ExpressionUUID->"66747bf3-f185-4550-979d-\
b1845114b956"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", " ", "\"\<M4\>\""}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.7719068377097836`*^9, 
   3.7719068522397995`*^9}},ExpressionUUID->"fe9ef824-4f46-4458-b26b-\
a7c2fa6bc646"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"f740215e-efa5-4f95-a9a6-\
e1d42eb5d884"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "RCM1", ",", "RCM2", ",", "RCM22", ",", "RCM3", ",", 
     "RCM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[1st Stability \
Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Log10[2nd Stability Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\
\(\*StyleBox[\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.77190686742982*^9, 
  3.771906911460024*^9}},ExpressionUUID->"e79d9ed6-88e5-4c83-a283-\
de54d8f6506a"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3X/MN3pd1/FblB8h8UPAw0E4HEDg8EM4CAiS4JFGMGMBRkMbMdBElk1h
[encoded data, 19200 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJwUmHc81d8fx22yLy73Gted9t6kbBkNpKFEhWQ1VRSZJaW+ISXJiJA0zWi8
[encoded data, 200160 characters]
znt3RHkaI7yvKGZE2xQtlGVc8UUTaG+siG2ab4r/AXArB8A=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJwUm3k01G8bxilCpYxhDGOZfbGOfQmhaLOTJEShFSmpLFGEJBU/ElEIWbJF
[encoded data, 297720 characters]
qBwTXBhpbX7SsBz/A51CMFw=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxk23c8le//B3Bkb8cxjsPZx7G3NEgaKkSlpPSpaBAhJVSkkhJFSFZUtNBO
[encoded data, 279360 characters]
tZgxdCizTNIMTSH1ccXpJhDXEMwekzbD/wEaQ1Fg
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxk23k4VG8bB3CpKEuJzNiG2TdjGGNXWqVEClEKCUVFRZZUtjbSos1aqSRC
[encoded data, 281940 characters]
YNsOaIq+vORatx580J9hU2r1QaO5Sp/YvxMOvZhIT/lqAP8DKp/VZQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJwUl3k41N8Xx+37MjNmbMOYGca+LyGSUim7ilC+ZY+0kCShKKG0h1JCkexZ
[encoded data, 100560 characters]
tYF9zMK1PtxF+B+x+c6W
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[2nd Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\
\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[1st Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", TraditionalForm], 
        None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{-25., 49.79059728784386}, {-39.06494915981315, 
      55.77794193606568}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 3.771906220430276*^9}, {
   3.7719069016699853`*^9, 
   3.7719069342736797`*^9}},ExpressionUUID->"e07da37f-548b-41fa-b274-\
026a16ae5551"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMM1", ",", "MMM2", ",", "MMM22", ",", "MMM3", ",", 
     "MMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[1st Stability \
Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Log10[2nd Stability Margin]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\
\(\*StyleBox[\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.77190686742982*^9, 3.771906911460024*^9}, {
  3.771906965919959*^9, 
  3.7719069764495068`*^9}},ExpressionUUID->"4dfc0705-2e5d-4c64-a1b1-\
d6dede7187ff"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3X/MN3pd1/FblB8h8UPAw0E4HEDg8EM4CAiS4JFGMGMBRkMbMdBElk1h
[encoded data, 19200 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM2nc41e//B3B773EcxzrLXsdMhIwSSZQkSkISFZGMJAlZoSUkWS1ZIZXk
[encoded data, 125580 characters]
cHvMm6gB2m+lZXOL0f8HrLOgHg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM22c8Fe77B3CUvfexz7KOdQhZkZGQlTISUmYlKzs7ySbZFMpKQjIScSWp
[encoded data, 178980 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM13c81e/7B3B77+1Y5xx7S0JlRyQpWj5SISt7ZWdFFCnZM7PISMgK58qI
[encoded data, 174720 characters]
xA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM22c81m0bB3AkqSR7j2tftmsgCSkqSZkhexQihTJCFEKSUEqIQkJWshI6
[encoded data, 177600 characters]
4F+q/NMePkxnb+r2tiPnrv9D2skffPh/1PB/Fg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM2Xk4lO/7N3DD2NcZYx3LjH1PQiJbSWTJWogs2VJpk49kLUkIlRCyRShL
[encoded data, 67440 characters]
zBHwHyXw2G4=
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[2nd Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"+\\\
\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[1st Stability \
Margin]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", TraditionalForm], 
        None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-25., 35.}, {-25., 35.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 3.771906220430276*^9}, {
   3.7719069016699853`*^9, 3.7719069342736797`*^9}, 3.771906978183731*^9, 
   3.7725371386301513`*^9},ExpressionUUID->"ea6c2f79-7dac-40a7-a98a-\
f6c153089006"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Loading EigenValues", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.771739038932023*^9}, {3.7717548346485124`*^9, 
  3.7717548370485125`*^9}, {3.7719050177750096`*^9, 3.771905020665657*^9}, {
  3.771907031267912*^9, 
  3.7719070346698647`*^9}},ExpressionUUID->"c58b45e9-bbb2-47c6-acca-\
441dedf9704d"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC1M1.txt\>\""}]], "Input",
 CellChangeTimes->{{3.761041654299574*^9, 3.7610416560598183`*^9}, 
   3.761298197600153*^9, {3.771738734372678*^9, 3.771738753988132*^9}, 
   3.7717388384511323`*^9, 3.771754883146345*^9, 3.7719053058748674`*^9, {
   3.7719072738132706`*^9, 
   3.771907285279584*^9}},ExpressionUUID->"a11d5e0a-cd98-46a9-b374-\
d1c775929ca3"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC1M2.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738756227133*^9, 3.771738907747023*^9, 3.7717548879933453`*^9, {
   3.771905310933172*^9, 3.7719053124799213`*^9}, {3.771907289395584*^9, 
   3.7719072921275845`*^9}},ExpressionUUID->"b42cc87d-7b44-459b-93c4-\
be49a5127c38"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC2M1.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387584831324`*^9, 3.7717389119070234`*^9, 3.771754891658345*^9, {
   3.7719053172049475`*^9, 3.7719053196149645`*^9}, {3.7719072963386345`*^9, 
   3.771907298704584*^9}},ExpressionUUID->"ae81e608-bba6-47e4-a289-\
c743a6974f10"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC2M22.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718320588670683`*^9, 3.7718320598110294`*^9}, {
  3.7719053238149867`*^9, 3.7719053279850087`*^9}, {3.7719073033795834`*^9, 
  3.771907305936654*^9}},ExpressionUUID->"ac4d0544-4cba-42bd-818e-\
5e7b52815199"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC3M2.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738760260132*^9, {3.7717389152190237`*^9, 3.7717389154750233`*^9}, 
   3.7717548952743464`*^9, {3.7719053326647644`*^9, 3.7719053356651554`*^9}, {
   3.7719073107216005`*^9, 
   3.771907313583599*^9}},ExpressionUUID->"eeb7dee1-cab5-400c-bb84-\
ead8085baf30"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC3M22.txt\>\""}]], "Input",
 CellChangeTimes->{{3.771832095810793*^9, 3.7718320967708483`*^9}, {
  3.771905341635054*^9, 3.771905345354663*^9}, {3.771907317570656*^9, 
  3.77190732094366*^9}},ExpressionUUID->"ea162e55-5681-4ebd-8579-\
2feb98179b63"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC4M2.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387618431325`*^9, 3.771738920019024*^9, 3.7717549008093452`*^9, {
   3.7719053499742327`*^9, 3.77190535559493*^9}, {3.7719073256346316`*^9, 
   3.771907330223658*^9}},ExpressionUUID->"ee3e1649-4fdc-42f8-9d24-\
fba81a551810"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC4M3.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718321052828274`*^9, 3.771832105971793*^9}, {
  3.771905360464759*^9, 3.7719053656446867`*^9}, {3.7719073380826483`*^9, 
  3.77190734212764*^9}},ExpressionUUID->"e461f698-b98b-4472-9b08-\
58d68417a609"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC5M22.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738763588133*^9, {3.7717389235770235`*^9, 3.7717389237040234`*^9}, 
   3.771754904314346*^9, {3.771905369700579*^9, 3.7719053748466654`*^9}, {
   3.771907346210644*^9, 
   3.771907350000655*^9}},ExpressionUUID->"7b14e464-eb10-4ae1-a575-\
4c5065c62e6f"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC5M3.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7719056922049713`*^9, 3.771905692994399*^9}, {
  3.771907354978547*^9, 
  3.771907359807542*^9}},ExpressionUUID->"372ea498-f6e1-41df-b424-\
ababe3ab3cad"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC6M3.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718321109637923`*^9, 3.7718321117158265`*^9}, {
  3.7719053798751917`*^9, 3.7719053845547004`*^9}, {3.771907363554609*^9, 
  3.7719073665276012`*^9}},ExpressionUUID->"30c455a9-039c-4890-898a-\
3b469159c478"],

Cell[BoxData[
 RowBox[{"<<", "\"\<EigenvC6M4.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387649011316`*^9, 3.7717389265150595`*^9, 3.771754908202346*^9, {
   3.7719053892532253`*^9, 3.771905399925159*^9}, {3.7719073715861073`*^9, 
   3.7719073774567766`*^9}},ExpressionUUID->"c035b1cc-0e13-496e-bcf7-\
2fe3639b0aaa"]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting EigenValues LogScale", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717550341040754`*^9, 3.771755042491076*^9}, {
  3.771905275104765*^9, 3.7719052782248898`*^9}, {3.7719072537923517`*^9, 
  3.771907255712274*^9}},ExpressionUUID->"69b0aa67-a27b-44be-9bfc-\
d59e536c1b43"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 
  3.7717438210269485`*^9},ExpressionUUID->"b6b675f3-99ef-498b-8620-\
d7b3ed226c82"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "RCC1M1", "]"}]], "Input",
 CellChangeTimes->{{3.771755112507743*^9, 3.771755117979743*^9}, {
  3.7719054255551095`*^9, 
  3.7719054259049873`*^9}},ExpressionUUID->"b621d506-0e1a-46fa-9b1f-\
099b4798ca1c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5147", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.7717551185017443`*^9, 3.7718325524635773`*^9, 
  3.771905426874735*^9, 3.7719073882338257`*^9, 
  3.772535793823949*^9},ExpressionUUID->"5d504ea9-4982-485e-90fa-\
4ecc5c66bb92"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SEM1M2", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{"Abs", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Max", "[", 
             RowBox[{"Re", "[", 
              RowBox[{"EVC1M1", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
            RowBox[{"Max", "[", 
             RowBox[{"Re", "[", 
              RowBox[{"EVC1M2", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "EVC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}]}],
      "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FEM1M2", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{"Abs", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Min", "[", 
             RowBox[{"Re", "[", 
              RowBox[{"EVC1M1", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
            RowBox[{"Min", "[", 
             RowBox[{"Re", "[", 
              RowBox[{"EVC1M2", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "EVC1M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}]}],
      "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RSFM1M2", "=", 
    RowBox[{"Re", "[", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"Sort", "[", 
        RowBox[{"Abs", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC1M1", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC1M1", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC1M2", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC1M2", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "EVC1M1", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], 
        "]"}]}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMSM1M2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"SEM1M2", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMFM1M2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"FEM1M2", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMRSFM1M2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"RSFM1M2", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719074514107103`*^9, 3.771907615010461*^9}, {
  3.7719076731363325`*^9, 3.77190780464073*^9}, {3.7719083575381613`*^9, 
  3.771908381728151*^9}},ExpressionUUID->"3f050e7d-29b3-4e95-b0af-\
e8e13d8470ef"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SEM1M22", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC2M1", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"Max", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC2M22", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "EVC2M1", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FEM1M22", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC2M1", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"Min", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC2M22", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "EVC2M1", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RSFM1M22", "=", 
    RowBox[{"Re", "[", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"Abs", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC2M1", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
             RowBox[{"Min", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC2M1", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC2M22", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
             RowBox[{"Min", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC2M22", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "EVC2M1", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}],
      "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMSM1M22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"SEM1M22", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMFM1M22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"FEM1M22", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMRSFM1M22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"RSFM1M22", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771907624927864*^9, 3.7719076567682037`*^9}, {
  3.771907786527775*^9, 3.771907787072936*^9}, {3.77190782364802*^9, 
  3.7719079322730827`*^9}, {3.771908389493146*^9, 
  3.771908397488097*^9}},ExpressionUUID->"1040414f-434f-42ee-94a7-\
7375ddcb0480"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SEM2M22", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC3M2", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"Max", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC3M22", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "EVC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FEM2M22", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC3M2", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"Min", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC3M22", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "EVC3M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RSFM2M22", "=", 
    RowBox[{"Re", "[", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"Abs", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC3M2", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
             RowBox[{"Min", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC3M2", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC3M22", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
             RowBox[{"Min", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC3M22", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "EVC3M2", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}],
      "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMSM2M22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"SEM2M22", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMFM2M22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"FEM2M22", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMRSFM2M22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"RSFM2M22", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771907624927864*^9, 3.7719076567682037`*^9}, {
  3.771907786527775*^9, 3.771907787072936*^9}, {3.7719079373441167`*^9, 
  3.771907948160103*^9}, {3.7719080012311735`*^9, 3.7719080761603413`*^9}, {
  3.771908401859645*^9, 3.7719084095516434`*^9}, {3.77190848392196*^9, 
  3.7719084895520344`*^9}},ExpressionUUID->"e870972d-65f2-49eb-9c63-\
72ecceaec06d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SEM2M3", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC4M2", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"Max", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC4M3", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "EVC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FEM2M3", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC4M2", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"Min", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC4M3", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "EVC4M2", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RSFM2M3", "=", 
    RowBox[{"Re", "[", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"Abs", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC4M2", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
             RowBox[{"Min", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC4M2", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC4M3", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
             RowBox[{"Min", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC4M3", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "EVC4M2", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}],
      "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMSM2M3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"SEM2M3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMFM2M3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"FEM2M3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMRSFM2M3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"RSFM2M3", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771907624927864*^9, 3.7719076567682037`*^9}, {
  3.771907786527775*^9, 3.771907787072936*^9}, {3.7719079543210287`*^9, 
  3.7719079805922823`*^9}, {3.771908081184059*^9, 3.771908164767995*^9}, {
  3.771908413555689*^9, 3.771908420703725*^9}, {3.771908493890028*^9, 
  3.771908499088046*^9}},ExpressionUUID->"3c0fd4cd-8b8b-4781-a4bf-\
b06b3f694a6a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SEM22M3", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC5M22", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"Max", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC5M3", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "EVC5M22", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FEM22M3", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC5M22", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"Min", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC5M3", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "EVC5M22", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RSFM22M3", "=", 
    RowBox[{"Re", "[", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"Abs", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC5M22", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
             RowBox[{"Min", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC5M22", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC5M3", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
             RowBox[{"Min", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC5M3", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "EVC5M3", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}],
      "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMSM22M3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"SEM22M3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMFM22M3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"FEM22M3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMRSFM22M3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"RSFM22M3", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771907624927864*^9, 3.7719076567682037`*^9}, {
  3.771907786527775*^9, 3.771907787072936*^9}, {3.7719079673610945`*^9, 
  3.771907977615285*^9}, {3.7719081698075542`*^9, 3.7719082364958057`*^9}, {
  3.771908425091689*^9, 3.7719084352797227`*^9}, {3.771908502514015*^9, 
  3.7719085079349937`*^9}},ExpressionUUID->"9cefab93-12ea-4f91-8c3b-\
49e13297425f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SEM3M4", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC6M3", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"Max", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC6M4", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "EVC6M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FEM3M4", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC6M3", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"Min", "[", 
            RowBox[{"Re", "[", 
             RowBox[{"EVC6M4", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "EVC6M3", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RSFM3M4", "=", 
    RowBox[{"Re", "[", 
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", 
       RowBox[{"Abs", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC6M3", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
             RowBox[{"Min", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC6M3", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC6M4", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "/", 
             RowBox[{"Min", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC6M4", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", 
            RowBox[{
             RowBox[{"Dimensions", "[", "EVC6M4", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}],
      "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMSM3M4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"SEM3M4", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMFM3M4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"FEM3M4", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMRSFM3M4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"RSFM3M4", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771907624927864*^9, 3.7719076567682037`*^9}, {
  3.771907786527775*^9, 3.771907787072936*^9}, {3.7719079881773014`*^9, 
  3.771907999135255*^9}, {3.77190824086379*^9, 3.7719083020157433`*^9}, {
  3.771908439603689*^9, 3.7719084465437436`*^9}, {3.77190851171402*^9, 
  3.7719085156319933`*^9}},ExpressionUUID->"66de9f40-1816-4ee8-8b36-\
566d0d6759bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "15"}], ",", "5", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 
   3.7719086421117244`*^9}},ExpressionUUID->"26713d75-4d76-45ef-93c3-\
5be3303a2d74"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Gray", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow",
     ",", "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 
  3.762162734410307*^9}},ExpressionUUID->"2c9df51d-0fc5-49d5-8f65-\
269bd51bfa54"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.33333333333333337`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0.5],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 
   3.771908449778282*^9},ExpressionUUID->"3cb2cb2b-1f89-487c-b01f-\
cf8a63cf8260"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M2/M1\>\"", ",", " ", "\"\<M2'/M1\>\"",
      ",", " ", "\"\<M2'/M2\>\"", ",", " ", "\"\<M3/M2\>\"", ",", " ", 
     "\"\<M3/M2'\>\"", ",", "\"\<M4/M3\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 
   3.762674167944764*^9}},ExpressionUUID->"f6d22032-3625-4c73-9862-\
b6cc15fd8a2a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"b15c3130-825f-4933-b4cf-\
689b513d986f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMSM1M2", ",", "MMSM1M22", ",", "MMSM2M22", ",", 
     "MMSM2M3", ",", "MMSM22M3", ",", "MMSM3M4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[Fast eigenvalue]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", 
      ",", " ", 
      "\"\<Log10[Fast \
eigenvalue]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize-\
>10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 
  3.7719086476997147`*^9}},ExpressionUUID->"67716d01-9778-4f84-9684-\
4a75ad6377fa"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd20ustXdZh+HPyqHWSgsUBQ+liIfigRBxwMDqFyZ1wACIiQ46qEaJiQPr
[encoded data, 6360 characters]
dUgdUofUIXVIHXK+N77qkDrcsP4f4I+fSg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxM1nc8Vu0fwHHK3nvvUEbZKkmSlR2ZSbI3KUJGEckKCVFCVmUT0rpCkpCE
[encoded data, 66300 characters]
EkYbXn06JHhHGJU06Y0XxgkjpZvH8q4+EEb/D+8oZoA=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzNl3VUVNv3wFUwwO4uxMbCzoNY2IqFhajYPlFUnl0PsTAQBUUFixSkkZJL
[encoded data, 15660 characters]
c7oG
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzNl3dUVNfzwLEhdmMBJViDiB0FLKhYUWOLYsfesPdu7Bps2BGxlygqUWJB
[encoded data, 15120 characters]
6j34rxj6xfMH/j/+4/GZ
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzVl3VYVNv3/88MoVdFbMVuFEzsANGLjY2F3YqJLSIGqNiAiqCILRaoiIoY
[encoded data, 14520 characters]
87yG7J9p2d6miYZIjQ82ra/T49ZvE5pWV5P/Bwmq8v0=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzNnHlcTWv7/4k6aO+9VpmH0yEzlUyJQ8ZDQjqkY8w8kymZVWQ4ocxDotAR
[encoded data, 16020 characters]
7fPkyC3Dv+X8nsr8tCii+2r9GfsDXyoT6K35rtHZU/z/AGGub48=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzVnHlUjdsf8J/znMEUkkyVZCZJKSFU5kyRmylTElEkkakkQ1GikCmzVIZM
[encoded data, 15240 characters]
V7b/skcp/z8nZMp/
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[Fast \
eigenvalue]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"\
+\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[Fast \
eigenvalue]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", TraditionalForm],
         None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-15., 5.}, {-15., 5.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 3.771906220430276*^9}, {
   3.7719085960197096`*^9, 
   3.7719086494167166`*^9}},ExpressionUUID->"cfc5f39b-eaa1-409b-ae6a-\
c85dcbbb09e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMRSFM1M2", ",", "MMRSFM1M22", ",", "MMRSFM2M22", ",", 
     "MMRSFM2M3", ",", "MMRSFM22M3", ",", "MMRSFM3M4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[Fast/Slow \
eigenvalue]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Log10[Fast/Slow eigenvalue]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\
\(\*StyleBox[\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086893117*^9}, {3.7719087741000795`*^9, 
  3.771908786576683*^9}, {3.77190884030779*^9, 
  3.7719088441627903`*^9}},ExpressionUUID->"e7e62e14-3989-45e7-bc0a-\
af7841515f56"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd20ustXdZh+HPyqHWSgsUBQ+liIfigRBxwMDqFyZ1wACIiQ46qEaJiQPr
[encoded data, 6360 characters]
dUgdUofUIXVIHXK+N77qkDrcsP4f4I+fSg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxMl3k8Vc//x1W2ShKyhe7m3mu/hCRKSakkCZGSKCGEkFRSIkkICSFJlhLS
[encoded data, 80460 characters]
A785L1s=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzVnHlcTdv//6OEJMN19j4liYyVsYyXJJebTAllSMhQyVCGiiJDkqnBPCbz
[encoded data, 16380 characters]
B26gM0s=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzNl3lcTfv3/10SEtdY7b1PITNJknlOphC3a4qMIbNMmZKhuJnHkmQKUa4h
[encoded data, 15840 characters]
9v8AQDOJ2A==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzVnHdQVOnW7s05QgPdDWJGQccxjaBiADFgQMWIOqioKObBrJizImZEHBOY
[encoded data, 18540 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJy9mndUVMuyxs0RFRPMnsGEOeeEIkb0KCZEFAUDooIiJsScMKGiYI4oKooB
[encoded data, 17820 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzFnHlUjV389glJqFN0zqkos0xJMk/JTKaEJGNkSqYkJDPJTGZChodQyZxp
[encoded data, 19380 characters]
Z5YKRjz8lP8PgJl6ww==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[Fast/Slow \
eigenvalue]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"\
+\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[Fast/Slow \
eigenvalue]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", TraditionalForm],
         None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{-16.54058101653763, 5.}, {-16.522378575933867`, 5.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 3.771906220430276*^9}, {
   3.7719085960197096`*^9, 3.7719086494167166`*^9}, 3.7719086910906644`*^9, 
   3.7719087875816517`*^9, 
   3.7719088473238106`*^9},ExpressionUUID->"373c8e37-dc09-4dc3-9bf6-\
0ab3026a096c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMFM1M2", ",", "MMFM1M22", ",", "MMFM2M22", ",", 
     "MMFM2M3", ",", "MMFM22M3", ",", "MMFM3M4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[Slow eigenvalue]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", 
      ",", " ", 
      "\"\<Log10[Slow \
eigenvalue]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\",FontSize-\
>10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086893117*^9}, {3.7719087574910803`*^9, 
  3.7719087638590775`*^9}, {3.77190882548279*^9, 
  3.7719088305287895`*^9}},ExpressionUUID->"bff52bf4-4cff-43d9-bf4c-\
ba78c62ece0b"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd20ustXdZh+HPyqHWSgsUBQ+liIfigRBxwMDqFyZ1wACIiQ46qEaJiQPr
[encoded data, 6360 characters]
dUgdUofUIXVIHXK+N77qkDrcsP4f4I+fSg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJxEl3c4lf8bx+29sopkVbKiYSX5SIWspBKStCUrJCRpoUKikFHZZa9s7ock
[encoded data, 81840 characters]
JAdGlw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzNnHlYTdv7wENIZursfULcMiUzGcNSmackCWkwj6loIjKPEQkZMkTmWSmX
[encoded data, 15360 characters]
HxNinpB/WMgTY1Z7qI/Zs/r/P5K4cLU=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzNnXlcTdv7+MlMZDhn7yNDyFhmISRLZEi6RYZbUZJSMkXEjWtMSIUGQ8ar
[encoded data, 13980 characters]
Jd0v5P8DmdboMQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzNnHd0jVn87oNITkk7JwRB9BYkei8bkRBh9KjRCTFK1OgliBaEUaITneid
[encoded data, 18780 characters]
LO3Xrp635fy/ABiLzFE=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzNnGdUFdm2tncmiBnF1AZMtAExY9wlIioqKmbMCooBMQdMCOacxTagNtrS
[encoded data, 17700 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJy9m3dUz+///18t1atXw84mOyFEdk8iJCTZm4SskBWyQkpZyUxkZb1tskL2
[encoded data, 19080 characters]
+XiM+v2XVL9laKVT3G/cV+jg7U7LYq690EnRHVuE9/ExlP4f5yrwfw==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[Slow \
eigenvalue]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"\
+\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Log10[Slow \
eigenvalue]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", TraditionalForm],
         None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{-15., 14.074164990296946`}, {-15., 14.074164990296946`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 3.771906220430276*^9}, {
   3.7719085960197096`*^9, 3.7719086494167166`*^9}, 3.7719086910906644`*^9, {
   3.77190881159379*^9, 
   3.7719088316288476`*^9}},ExpressionUUID->"ec7de538-a177-4425-b363-\
da80c5a4d9b5"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting EigenValues Per model LogScale", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717550341040754`*^9, 3.771755042491076*^9}, {
  3.771905275104765*^9, 3.7719052782248898`*^9}, {3.7719064760509777`*^9, 
  3.771906478560847*^9}, {3.7719072617592354`*^9, 
  3.771907263600235*^9}},ExpressionUUID->"e3709d64-0280-44b6-992a-\
b210cbd8bf70"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "100"}], ";"}]], "Input",
 CellChangeTimes->{
  3.771743697138438*^9, 3.7717438210269485`*^9, {3.7719218357483196`*^9, 
   3.771921836326346*^9}},ExpressionUUID->"7a310918-c6ee-4e2d-a964-\
b543b2fc08b5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "RCC1M1", "]"}]], "Input",
 CellChangeTimes->{{3.771755112507743*^9, 3.771755117979743*^9}, {
  3.7719054255551095`*^9, 
  3.7719054259049873`*^9}},ExpressionUUID->"173af99b-676c-4829-82a5-\
ad0d0cf318ac"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5147", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.7717551185017443`*^9, 3.7718325524635773`*^9, 
  3.771905426874735*^9, 3.771921837778991*^9, 
  3.772536023885412*^9},ExpressionUUID->"e5542864-9d81-400d-a7f6-\
5eace4e50232"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"EM1", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC1M1", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC1M1", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "EVC1M1", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"Abs", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC2M1", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC2M1", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "EVC2M1", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], 
        "]"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMEM1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"EM1", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719074514107103`*^9, 3.771907615010461*^9}, {
   3.7719076731363325`*^9, 3.77190780464073*^9}, {3.7719083575381613`*^9, 
   3.771908381728151*^9}, {3.77191060458679*^9, 3.771910715202724*^9}, {
   3.7719107811868005`*^9, 3.7719108592602463`*^9}, {3.7719108943694086`*^9, 
   3.7719108993520265`*^9}, 
   3.7719212820166044`*^9},ExpressionUUID->"d5897db6-5d1c-4bbf-b7a1-\
6b7fe7d7131b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"EM2", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC1M2", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC1M2", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "EVC1M2", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"Abs", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC3M2", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC3M2", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "EVC3M2", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"Abs", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC4M2", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC4M2", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "EVC4M2", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], 
        "]"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMEM2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"EM2", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719064987202387`*^9, 3.771906754540005*^9}, {
  3.7719212953270903`*^9, 
  3.7719213561683397`*^9}},ExpressionUUID->"fda7a08e-e435-49bd-8c44-\
6295a724ccd1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"EM22", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC2M22", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC2M22", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "EVC2M22", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"Abs", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC3M22", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC3M22", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "EVC3M22", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"Abs", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC5M22", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC5M22", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "EVC5M22", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], 
        "]"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMEM22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"EM22", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719213833804803`*^9, 
  3.771921420816743*^9}},ExpressionUUID->"581e4205-b2fc-4266-9de4-\
1814782bc1fe"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"EM3", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC4M3", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC4M3", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "EVC4M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"Abs", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC5M3", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC5M3", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "EVC5M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"Abs", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC6M3", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{"Re", "[", 
                RowBox[{"EVC6M3", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{
               RowBox[{"Dimensions", "[", "EVC6M3", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], 
        "]"}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMEM3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"EM3", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719214356567173`*^9, 
  3.7719214912344084`*^9}},ExpressionUUID->"e9571cf2-4298-4b67-883e-\
28a3044dc374"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"EM4", "=", 
   RowBox[{"Re", "[", 
    RowBox[{"Log", "[", 
     RowBox[{"10", ",", 
      RowBox[{"Sort", "[", 
       RowBox[{"Join", "[", 
        RowBox[{"Abs", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC6M4", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
             RowBox[{"Min", "[", 
              RowBox[{"Re", "[", 
               RowBox[{"EVC6M4", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "EVC6M4", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], 
       "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMEM4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"EM4", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771921500959876*^9, 
  3.7719215318284483`*^9}},ExpressionUUID->"0231220a-781a-4bf9-b553-\
c67037c4061b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Min", "[", 
  RowBox[{
   RowBox[{"Join", "[", 
    RowBox[{"EM1", ",", "EM2", ",", "EM22", ",", "EM3", ",", "EM4"}], "]"}], "//",
    "Flatten"}], "]"}]], "Input",
 CellChangeTimes->{{3.771921592536626*^9, 
  3.771921593323891*^9}},ExpressionUUID->"535c496d-ad22-44b6-9b57-\
32294254a890"],

Cell[BoxData[
 RowBox[{"-", "28.736640410238582`"}]], "Output",
 CellChangeTimes->{3.7719215938504515`*^9, 3.771921841485093*^9, 
  3.7725360803085947`*^9},ExpressionUUID->"86f61563-04a0-431f-b320-\
1c125ea252ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Max", "[", 
  RowBox[{
   RowBox[{"Join", "[", 
    RowBox[{"EM1", ",", "EM2", ",", "EM22", ",", "EM3", ",", "EM4"}], "]"}], "//",
    "Flatten"}], "]"}]], "Input",
 CellChangeTimes->{{3.7719060543044186`*^9, 3.7719060702243032`*^9}, {
  3.7719215592120886`*^9, 
  3.7719215869334154`*^9}},ExpressionUUID->"dd989d36-e8a9-4e22-8c7e-\
82dc8ef8dcab"],

Cell[BoxData["39.06550973216729`"], "Output",
 CellChangeTimes->{{3.771906066724089*^9, 3.7719060705546155`*^9}, 
   3.771921595178114*^9, 3.7719218419874988`*^9, 
   3.7725360820115957`*^9},ExpressionUUID->"d7218d37-5c46-4cb0-8194-\
992fc5d63bfa"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "30"}], ",", "40", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.771921603705206*^9, 
   3.7719216060300026`*^9}},ExpressionUUID->"3b5a8e77-de0a-4026-b94b-\
2bc01eb4ce29"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow", ",", 
    "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.7719069287897816`*^9, 
  3.771906929630001*^9}},ExpressionUUID->"a437ebdc-e4b3-4055-9e0a-\
13969b12667a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.7719068324297986`*^9, 3.771906930600133*^9, 3.771921608349304*^9, 
   3.7719218434185014`*^9, 
   3.7725360906586533`*^9},ExpressionUUID->"5ec37653-3e85-47ce-b4b2-\
126d3725b301"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", " ", "\"\<M4\>\""}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.7719068377097836`*^9, 
   3.7719068522397995`*^9}},ExpressionUUID->"6b31b653-1288-41be-ba45-\
36ff2ff85919"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"8fbcfebc-ddf9-40c4-b3b3-\
ef05272fddbc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMEM1", ",", "MMEM2", ",", "MMEM22", ",", "MMEM3", ",", 
     "MMEM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "15"}], ",", "12"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "15"}], ",", "12"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Eigenvalues\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.2", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[-Re[Slow eigenvalue]]\>\"", ",", " ", 
      "\"\<Log10[-Re[Fast eigenvalue]]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.77190686742982*^9, 3.771906911460024*^9}, {
  3.7719216329263253`*^9, 3.771921777387251*^9}, {3.7725361151404467`*^9, 
  3.772536116978453*^9}, {3.772536147110491*^9, 3.772536165158511*^9}, {
  3.772536202535699*^9, 
  3.772536255778207*^9}},ExpressionUUID->"269bcea7-27eb-44e3-82b9-\
37fd7f38d05f"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3XvMIGhZn+EB5SCuAgJydFlQcDmICwuCCLhiUWJJBaVBDSWAFUk1ilUj
[encoded data, 22320 characters]
kUTRzA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c8l/33B3AyEpLsvcleIRUuCclKCFkheyUZkVEqZCVkldAtISQ74fMO
[encoded data, 119160 characters]
nVfUFBJCx0I0PX+K7UH/Bwge4Lc=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM12c8lm8bB3A7GUVW9t57j+TylxWSUJFCCNkJIXuU7JWEJJG9JWXcFxFZ
[encoded data, 177780 characters]
GvjQjeirqQzFTKim5pXBpc98qOs2L35pOfj/ADuKkCo=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lm/7B3CJqGTvPW4zSbJKuSiVlTISEtmyvwjJiJCtJEQZEbJJsu/L
[encoded data, 175740 characters]
UpM/Ig==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13k4Ve33P3AkRQgJieMYI/MYGTaaJElCxghFRIooZYyMZUySkMwhU0Jl
[encoded data, 174780 characters]
tlcGXxiS+il5RgLNbZdysF9hRm0VQtqRvuD/A0tOUag=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM2Hc4lu/7B3Are++9V1IyIsItMssMIRTZm2QlJBnFJ0mSyAxlJCv7uY2s
[encoded data, 58260 characters]
J+hRs/4mnXkvB/o/WgEHeQ==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Log10[-Re[Fast eigenvalue]]\"", TraditionalForm], None}, {
        FormBox["\"Log10[-Re[Slow eigenvalue]]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"Eigenvalues\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-15, 12}, {-15, 12}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771921724638599*^9, {3.771921760440771*^9, 3.7719217784368105`*^9}, 
   3.771921846174757*^9, {3.7725361061903954`*^9, 3.7725361191824446`*^9}, 
   3.7725361667304173`*^9, {3.7725362080542383`*^9, 
   3.7725362569581833`*^9}},ExpressionUUID->"c9691a3e-ae8e-4646-ab73-\
1631f95c8709"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "EM1", ",", "EM2", ",", "EM22", ",", "EM3", ",", "EM4"}], 
    "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[Slow eigenvalue]\>\"", ",", " ", 
      "\"\<Log10[Fast eigenvalue]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.77190686742982*^9, 3.771906911460024*^9}, {
  3.7719216329263253`*^9, 3.771921777387251*^9}, {3.7719219065226507`*^9, 
  3.7719219230304546`*^9}},ExpressionUUID->"5284ffa2-cf86-49bf-9083-\
2bd3de5334f5"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3XvMIGhZn+EB5SCuAgJydFlQcDmICwuCCLhiUWJJBaVBDSWAFUk1ilUj
[encoded data, 22320 characters]
kUTRzA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJwU13c8Ve8fAHB7773udYdr7x1ynjSR0UKFilR2w2qoKJVZRoQ0VJSSFIpw
[encoded data, 205140 characters]
HBHY2+xSmGUG+B/NWhkM
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJwU13c8Vm8bAHB77z1Sz7S3snNOSMNIKUTGT5nZu5RQKbtIRSgNFBmJNDhX
[encoded data, 304500 characters]
SUmyGwce3WNh52t24H/wj5kl
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxk13c8ld8fAHB7773v5NpZySjPMdpSqewipZSsUJoKoZRQCBGVBilFJPJ8
[encoded data, 286560 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxk13c4V28bAHB7773Cd9tEKaPOKYmShKSIUFZ2FEqyMsrIjESkRMoIbc5N
[encoded data, 285840 characters]
iZXK6akRrRY4bF9bs0qggP8DTc5+mA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJwU13k8VF8bAHD7vjP7GDN2IRSFcA+VolSiQiprCyIq5RfJUqgkEZVI0SKk
[encoded data, 101940 characters]
uAh/SWV5pJRvqAwtEcPy4DicE5PFsJDWf3NikqhgY7Zw4bMc/g+Ow82e
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Log10[Fast eigenvalue]\"", TraditionalForm], None}, {
        FormBox["\"Log10[Slow eigenvalue]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-15, 15}, {-15, 15}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.771921724638599*^9, {3.771921760440771*^9, 3.7719217784368105`*^9}, 
   3.771921846174757*^9, {3.7719219274691315`*^9, 
   3.7719219314281826`*^9}},ExpressionUUID->"3719605d-1d9a-423f-b2ee-\
86f5d9f75be4"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Loading Response Times", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.771739038932023*^9}, {3.7717548346485124`*^9, 
  3.7717548370485125`*^9}, {3.7719050177750096`*^9, 3.771905020665657*^9}, {
  3.771907031267912*^9, 3.7719070346698647`*^9}, {3.7719256657953615`*^9, 
  3.771925669601113*^9}},ExpressionUUID->"bccaba33-1277-4251-841a-\
1918f2f9d9b2"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C1M1tau.txt\>\""}]], "Input",
 CellChangeTimes->{{3.761041654299574*^9, 3.7610416560598183`*^9}, 
   3.761298197600153*^9, {3.771738734372678*^9, 3.771738753988132*^9}, 
   3.7717388384511323`*^9, 3.771754883146345*^9, 3.7719053058748674`*^9, {
   3.7719072738132706`*^9, 3.771907285279584*^9}, {3.771925950070921*^9, 
   3.7719259613006563`*^9}},ExpressionUUID->"c98ec9d0-eda5-449d-9a3e-\
69bcabb99966"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C1M2tau.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738756227133*^9, 3.771738907747023*^9, 3.7717548879933453`*^9, {
   3.771905310933172*^9, 3.7719053124799213`*^9}, {3.771907289395584*^9, 
   3.7719072921275845`*^9}, {3.771925999150644*^9, 
   3.7719260013603506`*^9}},ExpressionUUID->"3c0bdf04-4590-4772-b5c6-\
15694d24219e"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C2M1tau.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387584831324`*^9, 3.7717389119070234`*^9, 3.771754891658345*^9, {
   3.7719053172049475`*^9, 3.7719053196149645`*^9}, {3.7719072963386345`*^9, 
   3.771907298704584*^9}, {3.7719260069807243`*^9, 
   3.7719260108204603`*^9}},ExpressionUUID->"28d74f09-fa2a-4144-9844-\
5902428df878"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C2M22tau.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718320588670683`*^9, 3.7718320598110294`*^9}, {
  3.7719053238149867`*^9, 3.7719053279850087`*^9}, {3.7719073033795834`*^9, 
  3.771907305936654*^9}, {3.771926012990347*^9, 
  3.7719260168509226`*^9}},ExpressionUUID->"3726c666-96d0-4bc2-8b64-\
f601845f97c3"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C3M2tau.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738760260132*^9, {3.7717389152190237`*^9, 3.7717389154750233`*^9}, 
   3.7717548952743464`*^9, {3.7719053326647644`*^9, 3.7719053356651554`*^9}, {
   3.7719073107216005`*^9, 3.771907313583599*^9}, {3.7719260191705565`*^9, 
   3.7719260219012833`*^9}},ExpressionUUID->"ef343e6d-b8e5-4636-b980-\
00a2e5714fab"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C3M22tau.txt\>\""}]], "Input",
 CellChangeTimes->{{3.771832095810793*^9, 3.7718320967708483`*^9}, {
  3.771905341635054*^9, 3.771905345354663*^9}, {3.771907317570656*^9, 
  3.77190732094366*^9}, {3.7719260242806892`*^9, 
  3.771926028530452*^9}},ExpressionUUID->"7565f6e4-e66d-4e09-9222-\
64752eaf6ac0"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C4M2tau.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387618431325`*^9, 3.771738920019024*^9, 3.7717549008093452`*^9, {
   3.7719053499742327`*^9, 3.77190535559493*^9}, {3.7719073256346316`*^9, 
   3.771907330223658*^9}, {3.7719260304806523`*^9, 
   3.771926033795759*^9}},ExpressionUUID->"10a3e032-445a-4ea9-8865-\
de34e4ee05b9"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C4M3tau.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718321052828274`*^9, 3.771832105971793*^9}, {
  3.771905360464759*^9, 3.7719053656446867`*^9}, {3.7719073380826483`*^9, 
  3.77190734212764*^9}, {3.7719260359105415`*^9, 
  3.7719260402604427`*^9}},ExpressionUUID->"3da33d18-7ec5-43b0-8768-\
d07a9aca160b"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C5M22tau.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738763588133*^9, {3.7717389235770235`*^9, 3.7717389237040234`*^9}, 
   3.771754904314346*^9, {3.771905369700579*^9, 3.7719053748466654`*^9}, {
   3.771907346210644*^9, 3.771907350000655*^9}, {3.7719260428809614`*^9, 
   3.771926049822216*^9}},ExpressionUUID->"8c4fdbf7-502f-444f-9ddd-\
a02ab7914093"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C5M3tau.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7719056922049713`*^9, 3.771905692994399*^9}, {
  3.771907354978547*^9, 3.771907359807542*^9}, {3.7719260517372937`*^9, 
  3.771926056130542*^9}},ExpressionUUID->"625e59b6-d8eb-4a1b-a121-\
315070714433"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C6M3tau.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718321109637923`*^9, 3.7718321117158265`*^9}, {
  3.7719053798751917`*^9, 3.7719053845547004`*^9}, {3.771907363554609*^9, 
  3.7719073665276012`*^9}, {3.7719260577107916`*^9, 
  3.7719260615705028`*^9}},ExpressionUUID->"847c2449-92fd-4bd4-b6b1-\
103a33aedeb6"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C6M4tau.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387649011316`*^9, 3.7717389265150595`*^9, 3.771754908202346*^9, {
   3.7719053892532253`*^9, 3.771905399925159*^9}, {3.7719073715861073`*^9, 
   3.7719073774567766`*^9}, {3.771926063140685*^9, 
   3.771926067460821*^9}},ExpressionUUID->"0ea74901-d771-4dca-b931-\
746ea8e1c094"]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting response times LogScale", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717550341040754`*^9, 3.771755042491076*^9}, {
  3.771905275104765*^9, 3.7719052782248898`*^9}, {3.7719072537923517`*^9, 
  3.771907255712274*^9}, {3.7719260830105343`*^9, 3.7719260918105755`*^9}, {
  3.7719276142693405`*^9, 
  3.771927616239664*^9}},ExpressionUUID->"34a525ea-480b-4bc7-912a-\
85c377fe9768"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 
  3.7717438210269485`*^9},ExpressionUUID->"6e32e958-6b77-43ad-ad6e-\
1c5a26ba6286"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "C1M1tau", "]"}]], "Input",
 CellChangeTimes->{{3.771755112507743*^9, 3.771755117979743*^9}, {
  3.7719054255551095`*^9, 3.7719054259049873`*^9}, {3.771926103620639*^9, 
  3.7719261064904385`*^9}},ExpressionUUID->"24afb279-dc12-43c8-9d44-\
8cdc87f1337e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5147", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.7717551185017443`*^9, 3.7718325524635773`*^9, 
  3.771905426874735*^9, 3.7719073882338257`*^9, 3.771926107453334*^9, 
  3.772536567912882*^9},ExpressionUUID->"e561474d-a56c-430c-8f6a-\
31d327cb178e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "C1M2tau", "]"}]], "Input",
 CellChangeTimes->{{3.7719263160625887`*^9, 
  3.7719263161613917`*^9}},ExpressionUUID->"d3a3680c-be0d-43bc-91ef-\
33643704b45e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5147", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.7719263165604057`*^9, 
  3.7725365685068116`*^9},ExpressionUUID->"de878207-78cc-486f-9841-\
0e61ce4558ac"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC1", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C1M1tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"C1M2tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC1", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C1M1tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"C1M2tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "TLC1"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "THC1"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
  3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
  3.771926486060505*^9}},ExpressionUUID->"f13e7491-77c6-49ed-8978-\
46161472401f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC2", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C2M1tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"C2M22tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC2", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C2M1tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"C2M22tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "TLC2"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "THC2"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
  3.7719263369698453`*^9, 3.771926464210391*^9}, {3.771926494720337*^9, 
  3.7719265201006217`*^9}},ExpressionUUID->"9bd1c2bf-4741-445d-8555-\
f09baef100bc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC3", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C3M2tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"C3M22tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC3", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C3M2tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"C3M22tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "TLC3"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "THC3"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.771926527260067*^9, 
  3.7719265515000496`*^9}},ExpressionUUID->"401a8439-1ae6-4d9f-85e7-\
b2a1875c6b16"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC4", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C4M2tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"C4M3tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC4", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C4M2tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"C4M3tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "TLC4"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "THC4"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7719265597602625`*^9, 
  3.7719265936034284`*^9}},ExpressionUUID->"6a3684e5-1f37-4b5b-9f75-\
20f18bf2c677"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC5", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C5M22tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"C5M3tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC5", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C5M22tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"C5M3tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "TLC5"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "THC5"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7719266015511117`*^9, 
  3.7719266282419214`*^9}},ExpressionUUID->"0ea78d61-9097-4c40-b0d3-\
4ffaf6940e00"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC6", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C6M3tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"C6M4tau", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC6", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C6M3tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"C6M4tau", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "TLC6"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"10", ",", "THC6"}], "]"}], ",", "WS"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7719266345003543`*^9, 
  3.7719266645952053`*^9}},ExpressionUUID->"523bc966-a061-4e32-a813-\
5faabbe1ce9a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "5"}], ",", "3", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 3.7719086421117244`*^9}, {
   3.771926677310216*^9, 3.7719266843226957`*^9}, {3.771926853350051*^9, 
   3.7719268561977205`*^9}},ExpressionUUID->"65f1bb7e-a25c-4418-8d18-\
820077f3f75f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Gray", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow",
     ",", "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 
  3.762162734410307*^9}},ExpressionUUID->"1b75f76c-5c03-492e-8504-\
64fc92d3e941"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.33333333333333337`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0.5],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7725365769388123`*^9},ExpressionUUID->"952e59c1-3892-4cfd-9b1c-\
309b9db0271a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M2/M1\>\"", ",", " ", "\"\<M2'/M1\>\"",
      ",", " ", "\"\<M2'/M2\>\"", ",", " ", "\"\<M3/M2\>\"", ",", " ", 
     "\"\<M3/M2'\>\"", ",", "\"\<M4/M3\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 
   3.762674167944764*^9}},ExpressionUUID->"22a2f931-b82b-4b3a-8772-\
37c8fe4e7089"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"5b9af5ce-1583-4d0e-bf68-\
ddac82d4a4eb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMTLC1", ",", "MMTLC2", ",", "MMTLC3", ",", "MMTLC4", 
     ",", "MMTLC5", ",", "MMTLC6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[tau]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Log10[tau]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\"\
,FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}},ExpressionUUID->"cb07e000-73b5-4aec-8459-\
7bd5d5d1d74e"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2k3MXmMex/FbFdUxFJVYdWqHlWBhg2dnliWzsLBoJCZ205mV1CyeBZPZ
sbBARCQs2DSVTDKaiOl4iZeU1KAtBq0Zry1TM1P1Tu//99ffN/FsPolw3Of6
Xvc517nOfdHNv7vhljWLxeKiUxeLpfxt3H3SLy++6a6nj51fj1z/xKY7D+uh
7Rt3XHdI9z+87er1+/XlPcs/febY8kC6PMr1T+iJg5w4kj6yPMzDev99yz89
8aFOHEiXR9l0p96+/Fjb9ffLw2zT386f3jQH0hvmg+mv50R1DnO1XjF/eskc
SH81H0znY23UOcx6pYPS4bxKB6WD0kHpoHRQOigdlA5KB6WD0kHpoHRQOigd
lA5KB6WD0kHpoHRQOigdlA5Kh3MrHZQOSgelg86wPa10UDooHZQOSgelg9JB
6aB0UDooHZQOSgelg9JB6aB0UDooHZQOGyodlA5KB6WD0kHpoHRQOigdlA5K
B6WD0kHpoHRQOigdlA5KB6WD0kHpoHRQOijjfk5lnJVxVcZRGTdlnHSGeZsy
Dsp5K+epk3GTch7KPDq7Mm90pskeZV4o80DvnhNVOitdlY56zXwwpZPSRemg
dPhlpYPSQemgdFA6KB2UDkoHpYPSQemgdDir0kHpoHRQOigdlA5KB6WD0kHp
oHRQOigdflHpoHRQOigdlA5KB6WD0kHpoHRQOigd1lc6KB2UDkoHpYPSQemg
dFA6KB2UDkoHpcOZlQ5KB6WD0kHpoHRQOigdlA5KB+U0lQ7rKh2UDkoHpYPS
QemgdFA6KB2UDkoHpYPOsB0+o9JB6aB0UDooHZT7qtJB6aB0UO6LSgelw+mV
Dso6Q+mgdFDWDUoHpYPSQbnvKx2UDkoHpcNplQ5KB6WDTob7lA5KB6WD0kHp
oHRQOigd1lY6KB2UDkoHpYPSQemgdFA6KB2UDkoHpcOplQ5KB6WD0kHpoHRQ
OigdlA5KB6WD0mFNpYPSQemgdFA6KB2UDkoHpYPSQemgdFA6nFLpoHRQOigd
lA5KB6WD0kHpoHRQOigdFpUOSgelg9JB6aB0UDooHZQOSgelg2YDq+6bcf/x
bydlnPWOGVdlHPXyGTdlnPTgjMsPlXFQ7pvKeSr3ReU8lHXI95V5o9zXlHWF
Mg+UdYPS+bvKukDpqHOa25VOOoe5WMmgdPi20kHpoHRQOigdlA7fVDooHZQO
Sgelg9Lh60oHpYPSQemgdFA6fFXpoHRQOigdlA5KB6XD8UoHpYPSQemgdFA6
fFnpoHRQOigdlA5Kh2OVDkoHpYPSQemgdPh/pYPSQemgdFA6KB2UDv+rdFA6
KB2UDkoHpcN/Kx2UDkoHpYPSQenwRaWD0kHpoHRQOigdjlY6KB2UDkoHpYPS
QXfOuP+n3jjjrOtmXJVx/LzeOuOmG2acdPeMy2eVcdDNc966d87zSL1tzks5
Dz0w8+hw/TMLk3rZzBNlXnxamQe6Mt314znMJ/Xe6ap01K/mg31cH5oT1S0z
cEoHpcNHlQ5KB6XDh5UOSgelwweVDkoHfWE6/LvSQemgdPhXpYPSQenwfqWD
0kHpcKjSQemgdDhY6aB0UDro1hn39+rOGed3K+OqjOM7lXn8z7p5xklXZ1ze
rozDW5Xz1rvnPN+sR+e8DlTOQ5lH++sGFup168yTfZV58UZlHujqdH+97p3D
vFbpqnT8Rz063V6tK9NJ6bK30kHZGHqlbp1xfrkyrnsq4/hSfWjG7cW6MuP0
Ql3MuDxfGYfnKuf9bN085/lMPTjn9ffKeeyufO6n6sp8zifr6nyuXZXP8dfK
//cvdTEX+sfr6hx3h85xHtP57x6pi3lQelDnn9/zM+/Qn//xz6+tF8x/pxy3
5v+rfK7Kv7dDOa+a864Zl8qD5a6aca0Z95ouNd3qCl1rutfMi5p5U7cyr2rm
Xc28rJm3dZV5XTPva74XNd+buoXvVc33ruZ7WfO9rQf5Xtd872uuCzXXjbqN
60rNdafmulRz3aq5rlXG7c2a62LNdbPmulov47pbc12uuW7XXNcr4665L9Tc
N2ruK/VR7js196Wa+1bNfa3STXNfrLlv1txX61Xcd2vuyzX37Zr7es19vzJu
mnVDzbqiZt1RL2RdUrNuqVnX1Kx7KuOuWTfVrKtq1l2VDpp1W826rmbdV+mg
WTfWrCtr1p2VDodr1q0169qadW/Nurhm3Vyzrq5Zd9esyysdPq9Z19es+2ue
CyodNM8VNc8dNc8l9Tc8t9Q/8lxT89xT81xU6aac9xc1z101z2X1AZ7b6rM8
19U899U8F1a6K+Omee6seS6teW6tZ/FcW6/kubfmubjmubky7so80jyX1zy3
VzooHTT7AjX7BpUOSodjNfsSNfsWlQ5KB82+SM2+SaWD0kGzL1Ozb1Ozr1Pp
cLzSQbNvVLOvVOmgdNDsW9Xsa1U6KB00+2Y1+2qVDkqHr2v27Wr29SodlA6a
fcOafcVKB6WDZt+yZl+zZt+z0uHbSgfNvmrNvmulg9JBs69bs+9b6aB00Owr
1+w7VzooHb6v2deu2feudFA6aPbVa/bdKx2UDpp9/Zp9/5r3ApUOP1Y6aN47
1LyXqHRQOmieOlZOmvci9VLem1T28TTvXWrey1S6Keetee9T816ovsJ7o/o+
75Vq3jvVvJeqdFfGTfPeq+a9WGVe6J94r1bZl1T2XTXv7SrjrswjJcOaSgel
g9JB816y5r1lpYPSQfNetNJB6aB00LyXrXlvW+mgdNC8F650UDooHZQOSgel
g9JB6aB0WFvpoHRQOmje29e81690UDpofjdQ6aB0UDpofrdQ6XBapYPSQfO7
iUoHpYPSQemgdFA6KB2UDkqH0ysdlA5KB83vWiodlA5KB83vaiodlA5KB83v
eiodzqh0UDpofldU6aB/mA5KB83vmiodlA5KB6WD0mFd/QkBlVec
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzs1vc3148f/39ZoYxUkqyQnZCQrApZCZEZspOQCtkzQpK9spKsCiEyy0hC
[encoded data, 40920 characters]
f7nerwA=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM3Xc0l/0bB3B7b6JhJbTshJAkJCRkRfYI2SskCklIQggpQkKRrIT7Rlkh
[encoded data, 50040 characters]
GznTJUIHn99Z9+HLIWDeZt0b6Ua6kW6k/53+G/SCpbk=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lu/bB3Bkb0JCJUmSKKRC+EpCQlYIISvZO3uvVAiVVUayQghZ12VF
[encoded data, 51720 characters]
QDNheFpADd9O8+b2MMmclm5sXjWT7juTHprVT7Q0uuN6kf8CnVkJAA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM2Hc8Vv0bB3B7r6xkFRVCKZusKHtFRpLshAgp2YSEJAmViIyMrKyIc0j2
[encoded data, 52620 characters]
Yds6Vt3/yUv9H4SuB4Y=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8Vv/7B3A7WSlCRiGbkGSWU1mRFRmhjERJZmZlE5KQhGSTvZXZuZOs
[encoded data, 49140 characters]
rO+d/1wtXWNy1lVH9jlyfpokPwOEVqvI
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM2Xc4l+/7P3A7K2RkJCEkIUSUuGWlJJJIhFAhkT2STUISEoVkk71l3C/Z
[encoded data, 52080 characters]
my9TW/D9Hzv8QruR6krGP3Z26pJqSiOD+l9+p9ds
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}
       , {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[tau]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*\
StyleBox[\\\"+\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\\
)\"", TraditionalForm], None}, {
        FormBox[
        "\"Log10[tau]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-5., 3.}, {-5., 3.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 3.771906220430276*^9}, {
   3.7719085960197096`*^9, 3.7719086494167166`*^9}, 3.7719267679402194`*^9, 
   3.771926861446126*^9},ExpressionUUID->"48c3fb00-dca0-4196-a81e-\
be13e9303bd4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMTHC1", ",", "MMTHC2", ",", "MMTHC3", ",", "MMTHC4", 
     ",", "MMTHC5", ",", "MMTHC6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[tau]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Log10[tau]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\(\*StyleBox[\"+\"\
,FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719268107901807`*^9, 
  3.7719268261110067`*^9}},ExpressionUUID->"a76a2683-c87a-4c83-bbb1-\
b40101b780b3"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2k3MXmMex/FbFdUxFJVYdWqHlWBhg2dnliWzsLBoJCZ205mV1CyeBZPZ
sbBARCQs2DSVTDKaiOl4iZeU1KAtBq0Zry1TM1P1Tu//99ffN/FsPolw3Of6
Xvc517nOfdHNv7vhljWLxeKiUxeLpfxt3H3SLy++6a6nj51fj1z/xKY7D+uh
7Rt3XHdI9z+87er1+/XlPcs/febY8kC6PMr1T+iJg5w4kj6yPMzDev99yz89
8aFOHEiXR9l0p96+/Fjb9ffLw2zT386f3jQH0hvmg+mv50R1DnO1XjF/eskc
SH81H0znY23UOcx6pYPS4bxKB6WD0kHpoHRQOigdlA5KB6WD0kHpoHRQOigd
lA5KB6WD0kHpoHRQOigdlA5Kh3MrHZQOSgelg86wPa10UDooHZQOSgelg9JB
6aB0UDooHZQOSgelg9JB6aB0UDooHZQOGyodlA5KB6WD0kHpoHRQOigdlA5K
B6WD0kHpoHRQOigdlA5KB6WD0kHpoHRQOijjfk5lnJVxVcZRGTdlnHSGeZsy
Dsp5K+epk3GTch7KPDq7Mm90pskeZV4o80DvnhNVOitdlY56zXwwpZPSRemg
dPhlpYPSQemgdFA6KB2UDkoHpYPSQemgdDir0kHpoHRQOigdlA5KB6WD0kHp
oHRQOigdflHpoHRQOigdlA5KB6WD0kHpoHRQOigd1lc6KB2UDkoHpYPSQemg
dFA6KB2UDkoHpcOZlQ5KB6WD0kHpoHRQOigdlA5KB+U0lQ7rKh2UDkoHpYPS
QemgdFA6KB2UDkoHpYPOsB0+o9JB6aB0UDooHZT7qtJB6aB0UO6LSgelw+mV
Dso6Q+mgdFDWDUoHpYPSQbnvKx2UDkoHpcNplQ5KB6WDTob7lA5KB6WD0kHp
oHRQOigd1lY6KB2UDkoHpYPSQemgdFA6KB2UDkoHpcOplQ5KB6WD0kHpoHRQ
OigdlA5KB6WD0mFNpYPSQemgdFA6KB2UDkoHpYPSQemgdFA6nFLpoHRQOigd
lA5KB6WD0kHpoHRQOigdFpUOSgelg9JB6aB0UDooHZQOSgelg2YDq+6bcf/x
bydlnPWOGVdlHPXyGTdlnPTgjMsPlXFQ7pvKeSr3ReU8lHXI95V5o9zXlHWF
Mg+UdYPS+bvKukDpqHOa25VOOoe5WMmgdPi20kHpoHRQOigdlA7fVDooHZQO
Sgelg9Lh60oHpYPSQemgdFA6fFXpoHRQOigdlA5KB6XD8UoHpYPSQemgdFA6
fFnpoHRQOigdlA5Kh2OVDkoHpYPSQemgdPh/pYPSQemgdFA6KB2UDv+rdFA6
KB2UDkoHpcN/Kx2UDkoHpYPSQenwRaWD0kHpoHRQOigdjlY6KB2UDkoHpYPS
QXfOuP+n3jjjrOtmXJVx/LzeOuOmG2acdPeMy2eVcdDNc966d87zSL1tzks5
Dz0w8+hw/TMLk3rZzBNlXnxamQe6Mt314znMJ/Xe6ap01K/mg31cH5oT1S0z
cEoHpcNHlQ5KB6XDh5UOSgelwweVDkoHfWE6/LvSQemgdPhXpYPSQenwfqWD
0kHpcKjSQemgdDhY6aB0UDro1hn39+rOGed3K+OqjOM7lXn8z7p5xklXZ1ze
rozDW5Xz1rvnPN+sR+e8DlTOQ5lH++sGFup168yTfZV58UZlHujqdH+97p3D
vFbpqnT8Rz063V6tK9NJ6bK30kHZGHqlbp1xfrkyrnsq4/hSfWjG7cW6MuP0
Ql3MuDxfGYfnKuf9bN085/lMPTjn9ffKeeyufO6n6sp8zifr6nyuXZXP8dfK
//cvdTEX+sfr6hx3h85xHtP57x6pi3lQelDnn9/zM+/Qn//xz6+tF8x/pxy3
5v+rfK7Kv7dDOa+a864Zl8qD5a6aca0Z95ouNd3qCl1rutfMi5p5U7cyr2rm
Xc28rJm3dZV5XTPva74XNd+buoXvVc33ruZ7WfO9rQf5Xtd872uuCzXXjbqN
60rNdafmulRz3aq5rlXG7c2a62LNdbPmulov47pbc12uuW7XXNcr4665L9Tc
N2ruK/VR7js196Wa+1bNfa3STXNfrLlv1txX61Xcd2vuyzX37Zr7es19vzJu
mnVDzbqiZt1RL2RdUrNuqVnX1Kx7KuOuWTfVrKtq1l2VDpp1W826rmbdV+mg
WTfWrCtr1p2VDodr1q0169qadW/Nurhm3Vyzrq5Zd9esyysdPq9Z19es+2ue
CyodNM8VNc8dNc8l9Tc8t9Q/8lxT89xT81xU6aac9xc1z101z2X1AZ7b6rM8
19U899U8F1a6K+Omee6seS6teW6tZ/FcW6/kubfmubjmubky7so80jyX1zy3
VzooHTT7AjX7BpUOSodjNfsSNfsWlQ5KB82+SM2+SaWD0kGzL1Ozb1Ozr1Pp
cLzSQbNvVLOvVOmgdNDsW9Xsa1U6KB00+2Y1+2qVDkqHr2v27Wr29SodlA6a
fcOafcVKB6WDZt+yZl+zZt+z0uHbSgfNvmrNvmulg9JBs69bs+9b6aB00Owr
1+w7VzooHb6v2deu2feudFA6aPbVa/bdKx2UDpp9/Zp9/5r3ApUOP1Y6aN47
1LyXqHRQOmieOlZOmvci9VLem1T28TTvXWrey1S6Keetee9T816ovsJ7o/o+
75Vq3jvVvJeqdFfGTfPeq+a9WGVe6J94r1bZl1T2XTXv7SrjrswjJcOaSgel
g9JB816y5r1lpYPSQfNetNJB6aB00LyXrXlvW+mgdNC8F650UDooHZQOSgel
g9JB6aB0WFvpoHRQOmje29e81690UDpofjdQ6aB0UDpofrdQ6XBapYPSQfO7
iUoHpYPSQemgdFA6KB2UDkqH0ysdlA5KB83vWiodlA5KB83vaiodlA5KB83v
eiodzqh0UDpofldU6aB/mA5KB83vmiodlA5KB6WD0mFd/QkBlVec
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzsz+cjF/wDt30rVLKyQ0iSJCtZZa+ykpAoSZQVkqRIUiErSUIqIYlIqIgk
[encoded data, 35580 characters]
maO8Oc04j54NX0DpYMBK+X9PwWg8
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzs3Hk0lX3fP3xkLHOFZCgKmZKhJBymkCmkUlESQkKKIiQJSTKFpJJSUsoc
[encoded data, 44160 characters]
RVi/Q9ZbSux/ARk/1fU=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs/FVUVV37P3DT3V1KiIhISIoKbERADEJAWkAERUDpFFARBAQBSQkppZGQ
[encoded data, 45780 characters]
/8/0fwHBJOos
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzc2nk4VX//P3pzpsyVTJEMyVQiRS3zlCQVUgmVZMocUoSiMiVDIUkiMk8h
[encoded data, 49140 characters]
Swy5t/tMvx2L/jhhYhzGJn8DqUjt6w==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs2Pc71X/8B357r2ySjAiVKDPjdbISMiKrSISMJIqMJKmUEVEiGWVklZWs
[encoded data, 47160 characters]
p/9zlxyLOe59B1msdLnNbMI85X8BXdEdpw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs1/c/1fH/P34rK5skSSVklS0kT5skoZJkJSSJEkL2yighCUkoZIRUZD6P
[encoded data, 49860 characters]
N/5//n4+fbceOzBQKvuvc8av3xhJ9f+9v19P/lf+fj37q/1vgpemrQ==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Log10[tau]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*\
StyleBox[\\\"+\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\\
)\"", TraditionalForm], None}, {
        FormBox[
        "\"Log10[tau]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-7., 3.}, {-5., 3.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 3.771906220430276*^9}, {
   3.7719085960197096`*^9, 3.7719086494167166`*^9}, 3.7719267679402194`*^9, 
   3.7719268274897943`*^9, 
   3.771926864109975*^9},ExpressionUUID->"78a3708c-8a06-4983-aac4-\
a94af46b9d4f"]
}, Closed]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM1", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{"C1M1tau", ",", "C2M1tau"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM2", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{"C1M2tau", ",", "C3M2tau", ",", "C4M2tau"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM22", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{"C2M22tau", ",", "C3M22tau", ",", "C5M22tau"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM3", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{"C4M3tau", ",", "C5M3tau", ",", "C6M3tau"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TM4", "=", 
    RowBox[{"Sort", "[", 
     RowBox[{
      RowBox[{"Join", "[", "C6M4tau", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"0.", "\[Rule]", 
        RowBox[{"10", "^", 
         RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM1", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{"TM1", ",", "WS"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{"TM2", ",", "WS"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM22", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{"TM22", ",", "WS"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{"TM3", ",", "WS"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{"TM4", ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
  3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
  3.771926486060505*^9}, {3.771927647229766*^9, 3.771927719394065*^9}, {
  3.7719277659009156`*^9, 3.771927965149478*^9}, {3.7719281490289545`*^9, 
  3.771928149249251*^9}},ExpressionUUID->"e79cd12e-f988-4908-9f78-\
a2169d3f1cc8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "7"}], ",", "3", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 3.7719086421117244`*^9}, {
   3.771926677310216*^9, 3.7719266843226957`*^9}, {3.771926853350051*^9, 
   3.7719268561977205`*^9}, 
   3.77192803698125*^9},ExpressionUUID->"3320955c-59f3-48ef-b790-\
8d927d3f38e0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow", ",", 
    "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.7719280428692703`*^9, 
  3.771928043729396*^9}},ExpressionUUID->"9cffb0c8-5be3-4d0d-84c4-\
c4475a32c450"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719280471193595`*^9, 3.7719281608792453`*^9, 
   3.7725366001608124`*^9},ExpressionUUID->"52d3a935-9c78-4ffa-96a0-\
256c7c16d2cc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", "\"\<M4\>\""}], "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.7719280508996906`*^9, 
   3.771928063699057*^9}},ExpressionUUID->"39e08a04-6c0d-438a-9876-\
9c8f2c91ecb5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LegendG", "=", 
    RowBox[{"SwatchLegend", "[", 
     RowBox[{"CLRS", ",", "LGDS", ",", 
      RowBox[{"LegendMarkers", "\[Rule]", 
       RowBox[{"Graphics", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
          RowBox[{"Opacity", "[", "1", "]"}], ",", 
          RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
      RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
      RowBox[{"LegendFunction", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Framed", "[", 
          RowBox[{"#", ",", 
           RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], 
        ")"}]}], ",", 
      RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9, {3.772536748158848*^9, 
   3.772536754592902*^9}},ExpressionUUID->"58e6e954-6695-426c-8cb6-\
048d52a96409"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMM1", ",", "MMM2", ",", "MMM22", ",", "MMM3", ",", 
     "MMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Response time\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.2", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log10[tau off \[Rule] on]\>\"", ",", " ", 
      "\"\<Log10[tau on \[Rule] off]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
  3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7725366121648707`*^9, 
  3.772536656180195*^9}, {3.772536761605543*^9, 
  3.7725367809775624`*^9}},ExpressionUUID->"a30b18f7-1878-4567-98c9-\
c8d0d39bfa12"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2kvsnmMeh/FX69CpU2emDEaqduyEWcyC8d+NJWJhYdGIEbupnZTFf0Fi
x8KCiYiExUgmjUkmGRIZdZgoKSmDOo4WY1CHDlrHQd/f9e33SrybT9K0T5/7
vp73OdzPe/bVf7z8D2sWi8UHaxeLpXzO3HHEQ+dcddvjB39dP7rsoU237Nd9
2zZu//0+3XPf1ovW79Fndy0/+sTB5YZ0uZXLHtLDGzm8Jb1/uZn79E93LT96
eKcOb0iXW9l0i9643K1tev1yM1v12vnoVbMhvXx2TC+Zgeps5iK9YD567mxI
z5od09mtjTqbWa90UDqcUemgdFA6KB2UDkoHpYPSQemgdFA6KB2UDkoHpYPS
QemgdFA6KB2UDkoHpYPSQelweqWD0kHpoHTQmbbHlQ5KB6WD0kHpoHRQOigd
lA5KB6WD0kHpoHRQOigdlA5KB6WD0uG0Sgelg9JB6aB0UDooHZQOSgelg9JB
6aB0UDooHZQOSgelg9JB6aB0UDooHZQOSodfVTooHZQOSgelg9JB6aB0UDoo
HZQOSgedzWxVOigdlA5KB/3dTJzSQemgdFA6KB2UDkqHUysdlA5KB6WD0kHp
oHRQOigdlA5KB6WD0kHpoHRQOigdlA5KB6WD0kHpoHRQOigdTql0UDooHZQO
Sgelg9JB6aB0UDooHZQOSgelg9JB6aB0UDooHZQOSgelg9JB6aB02FjpoHRQ
OigdlA5KB6WD0kHpoHRQOigdlA5KB6WD0kHpoHRQOigdlA7KbikdlA5Kh19W
OigdlA5KB6WD0kHpoHRQOujtsyGlg9JB6aB0UDooHZQOSgelg9JBZ5iblA5K
B6WD0uEXlQ5KB6WDToZdSgelg9JB6aB0UDooHZQOSgelg9JB6aB0UDooHZQO
Sgelg9JB6aB0+Hmlg9JB6aB0UDooHZQOSgelg9JB6aB0UDooHZQOSgelg9JB
6aB0UDooHZQOSgelw4ZKB6WD0kHpoHRQOigdlA5KB6WD0kHpoHRQOigdlA5K
B6WD0kHpoHRQOigdlA46w9p/cmWelXlV5lFn2u5S5kmZF2UelHEr41Sui8o4
lOPopMpxo1zXlONCOQ6U+wals9JV6ag8NyqdlC5KB6XDiZUOSgelg9JB6aB0
UDooHZQOSgelg9LhhEoHpYPSQemgdFA6KB2UDkoHpYPSQemgdDi+0kHpoHRQ
OigdlA5KB6WD0kHpoHRQOqyvdFA6KB2UDkoHpYPSQemgdFA6KB2UDkqHn1U6
KB2UDkoHpYPSQemgdFA6KB2UYSod1lU6KB2UDkoHpYPSQemgdFA6KB2UDkoH
5bp9XH15OigdlA7KdVdvng5KB6WD0kF/Mx2U66LSQelwbH17Oij3GUoHpYNy
36CzmW1KB6WDct3X2a1zlA5KB6XDMZUOSgelg9JB6aB0UDooHfT86aB0UDoo
HY6udFA6KB2UDkoHpYPSQemgdFA6KB2UDkqHtZUOSgelg9JB6aB0UDooHZQO
Sgelg9JhTaWD0kHpoHRQOigdlA5KB6WD0kHpoHRQOhxV6aB0UDooHZQOSgel
g9JB6aB0UDooHRaVDkoHpYPSQemgdFA6KB2UDkoHpYPSQV+Zef/h0SP+ZeZZ
mVdlHpXzvK6bedK9M5DvK/OgjFuvmXHqhTMuZRzKcfT/+uQcN3rnHCfKcaEc
B7p5uusXM5HfVboqHfWm2TG9dAaqdFEyKB2+rXRQOigdlA5KB6XDN5UOSgel
g9JB6aB0+LrSQemgdFA6KB2UDl9VOigdlA5KB6WD0kHp8GWlg9JB6aB0UDoo
HQ5VOigdlA5KB6WD0uFgpYPSQemgdFA6KB2+qHRQOigdlA5KB6WD0uHzSgel
g9JB6aB0UDp8VumgdFA6KB2UDkqH/1U6KB2UDkoHpYPS4UClg9JB6aB0UDoo
HfTBmfdP65Uzz8q8KvP4Sb1u5k03zDzpjpmXjyvzoIxbd844P6o3zLiUcSjH
0f66yoNtPW+OE+W4+LByHOjKdNf3ZzMfVLoqHfWr2bH3670zUKWL0kHp8N9K
B6WD0uG9Sgelg9LhP5UOSgelw7uVDkoHpcM7lQ5KB6XD25UOSgelw75KB6WD
0mFvpYPSQemgW2be36oPzjz/uzKvyjy+WXfPvL1RN888KfPyemUeXquMW2+f
cb5aD8y4XqmMQzmO9tQFCz11yxwnL1eOi5cqx4GuTvcX6+7ZzL8qXZWOL9QD
0+35ujKdlC67Kx2UG/vn6paZ52cr87qrMo/P1Htn3p6uKzNPOyvz8lRlHv5Z
GfeTdfOM84m6d8b1WGUcOyr7/Y+6mP18pK7Ofj1c2Y+/V/7fv9XFPEj8ta7O
drfrbOcBnX93f13MQts9On9+x0+8WX/64c8vrqfMv1O2W/P/KvtV+XvblXHV
jLtmXioLkw/XFea1Zt5rulT+n8fqCl1rutccFzXHTd3CcVVz3NUclzXHbV3l
uK457mu+FzXfm3op36ua713N97Lme1v38r2u+d7XnBdqzht1K+eVuoHzTs15
qea8VRezkKrM26s158Wa82bNebWex3m35rxcc96uOa9X5l1zXai5btRcV+qf
ue7UXJdqrls117VKN811sea6WXNdrb/lultv5bpcc92uua5XuivzprlvqLmv
qLnvqKdxX1Jz31JzX1Nz31OZd819U819Vc19V6WD5r6t5r6u5r6v0kFz31hz
X1lz31npsL/SQXNfW3PfW+mgdNDcV9fcd9ed3JdXOnxSc19fc99f81xQ6aB5
rqh57qh5Lql5bqncZyqdlHEq3TTPVTXPXTXPZTXPbZXjVOmszNNnle7KvGme
O2ueS2ueW2ueayvnZWWeleNGmXfNc3fNc3nNc3vNc32lg9JB6aB00Kw71KxL
1Kxb1KxrVDooHZQOhyodlA6adZmadZuadZ2adZ9KB6WD0kHpoFmXqlm3qlnX
qln3qnRQOigdlA6adbmadbuadb2adb9KB6WD0uGbSgelg2bdsmZds2bds2Zd
tHIeVTooHZQOmnXbmnXdmnXfmnXhSgelg9JB6aBZt65Z165Z965ZF690UDoo
Hb6vdFA6aNb1a9b9a94L1Lw3qHRQOigdlA6a9xo1Tx0rR8x7kZr3JpV1PL2C
9y6VcSrraJr3OjXvfWreC9W8N6rMi9JZT+C9VKW7ss6pee9V816sclxo3qvV
u3nvVplnZR1TmXfNe79KhjWVDpr3ipUOSgelg9JB896z5r1opYPmvWqlg9JB
6bC20kHpoHkvXOmgdNC8d650UDooHZQOmvfilQ5HVzooHZQOSgelg9JB87uA
mt8NVDpofndQ6aB0UDocU+mgdND8bqLSQemg+V1GpYPSQemgdND8bqTS4dhK
B6WD0kHpoHRQOmh+N1Pzu5pKB6WD0kHpoHQ4rtJB87uhmt8VVTooHTS/W6p0
UDooHZQOmt9VVTqsqz8CH20hag==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM3Hc41/v7B3DZsmcqu1SyS8oIhYiQUVaUnb0iZWSmyJayFREZIULG2yhK
[encoded data, 102540 characters]
dtlrUiL7Q1hI93jEGc5vJV2YNh+WGEur/D8AOINNsw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM2Hc8l98fN3DZ+2OvipSUkp3MUISkQraQFbIpklF2CCGKpGQVGQnZR1QS
[encoded data, 160980 characters]
Qqwtxx2aRTxsQTr3Z2KfT7ssi//6fwER+jwX
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxU3Xc41/37P/6QPV5WVCoUyR5lhKwmWSmbZERm054ZyagooTKyoiJS2Xk9
[encoded data, 149160 characters]
/ve4vLxM+P/5P/5v8f903H/z/wBt+qzG
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJxM2nc8le8bB3DbOdZxUFZmVmWEEmUlIaRkJiMrq2EVWRGRFQ2jrJAtI7vE
[encoded data, 162660 characters]
2A==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJxM13c81e/7B/DjOMdeWSXJLIVSVik6RTKSQqFIKpllhKwoRUplZYSQEUWy
[encoded data, 59520 characters]
+L/l+sOtNfB7a/8DLG6vzw==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Log10[tau on \[Rule] off]\"", TraditionalForm], None}, {
        FormBox["\"Log10[tau off \[Rule] on]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Response time\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-6, 3}, {-6, 3}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7719281207088933`*^9, 3.7719281625992346`*^9, 3.772536627317871*^9, 
   3.7725366582582483`*^9, {3.772536771744505*^9, 
   3.772536785913541*^9}},ExpressionUUID->"d58c9b18-3349-40fb-8321-\
89b323599d6e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Loading Mutual Information", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.771739038932023*^9}, {3.7717548346485124`*^9, 
  3.7717548370485125`*^9}, {3.7719050177750096`*^9, 3.771905020665657*^9}, {
  3.771907031267912*^9, 3.7719070346698647`*^9}, {3.7719256657953615`*^9, 
  3.771925669601113*^9}, {3.7719282356094446`*^9, 
  3.771928239709062*^9}},ExpressionUUID->"68a4e2ca-2e05-431b-8ac2-\
d4c65b30955f"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C1M1MI.txt\>\""}]], "Input",
 CellChangeTimes->{{3.761041654299574*^9, 3.7610416560598183`*^9}, 
   3.761298197600153*^9, {3.771738734372678*^9, 3.771738753988132*^9}, 
   3.7717388384511323`*^9, 3.771754883146345*^9, 3.7719053058748674`*^9, {
   3.7719072738132706`*^9, 3.771907285279584*^9}, {3.771925950070921*^9, 
   3.7719259613006563`*^9}, {3.7719284594250174`*^9, 
   3.7719284597251806`*^9}},ExpressionUUID->"f4d3605a-0b8e-407c-bc0b-\
0dd395cb176f"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C1M2MI.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738756227133*^9, 3.771738907747023*^9, 3.7717548879933453`*^9, {
   3.771905310933172*^9, 3.7719053124799213`*^9}, {3.771907289395584*^9, 
   3.7719072921275845`*^9}, {3.771925999150644*^9, 3.7719260013603506`*^9}, {
   3.771928464364869*^9, 
   3.7719284651069345`*^9}},ExpressionUUID->"20593f4d-2ac5-48f8-8b02-\
f12ec79a683b"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C2M1MI.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387584831324`*^9, 3.7717389119070234`*^9, 3.771754891658345*^9, {
   3.7719053172049475`*^9, 3.7719053196149645`*^9}, {3.7719072963386345`*^9, 
   3.771907298704584*^9}, {3.7719260069807243`*^9, 3.7719260108204603`*^9}, 
   3.771928468964013*^9},ExpressionUUID->"c29daca4-e73f-4403-8112-\
8806af8ade04"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C2M22MI.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718320588670683`*^9, 3.7718320598110294`*^9}, {
   3.7719053238149867`*^9, 3.7719053279850087`*^9}, {3.7719073033795834`*^9, 
   3.771907305936654*^9}, {3.771926012990347*^9, 3.7719260168509226`*^9}, 
   3.771928472705027*^9},ExpressionUUID->"73f6497e-d811-49f8-82f8-\
709ab8f764b4"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C3M2MI.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738760260132*^9, {3.7717389152190237`*^9, 3.7717389154750233`*^9}, 
   3.7717548952743464`*^9, {3.7719053326647644`*^9, 3.7719053356651554`*^9}, {
   3.7719073107216005`*^9, 3.771907313583599*^9}, {3.7719260191705565`*^9, 
   3.7719260219012833`*^9}, 
   3.771928476435005*^9},ExpressionUUID->"bbe28146-1a22-4237-b390-\
bb45b3341a96"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C3M22MI.txt\>\""}]], "Input",
 CellChangeTimes->{{3.771832095810793*^9, 3.7718320967708483`*^9}, {
   3.771905341635054*^9, 3.771905345354663*^9}, {3.771907317570656*^9, 
   3.77190732094366*^9}, {3.7719260242806892`*^9, 3.771926028530452*^9}, 
   3.771928480644993*^9},ExpressionUUID->"2c24e3df-3ab2-4dba-bcd9-\
c3f0fabe52f9"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C4M2MI.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387618431325`*^9, 3.771738920019024*^9, 3.7717549008093452`*^9, {
   3.7719053499742327`*^9, 3.77190535559493*^9}, {3.7719073256346316`*^9, 
   3.771907330223658*^9}, {3.7719260304806523`*^9, 3.771926033795759*^9}, 
   3.7719284843652554`*^9},ExpressionUUID->"00a85574-5e31-41f8-bc2a-\
c6acba01d2fe"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C4M3MI.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718321052828274`*^9, 3.771832105971793*^9}, {
   3.771905360464759*^9, 3.7719053656446867`*^9}, {3.7719073380826483`*^9, 
   3.77190734212764*^9}, {3.7719260359105415`*^9, 3.7719260402604427`*^9}, 
   3.7719284878153143`*^9},ExpressionUUID->"9415f8f9-7521-4f5e-8316-\
ae8b779c4e66"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C5M22MI.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.771738763588133*^9, {3.7717389235770235`*^9, 3.7717389237040234`*^9}, 
   3.771754904314346*^9, {3.771905369700579*^9, 3.7719053748466654`*^9}, {
   3.771907346210644*^9, 3.771907350000655*^9}, {3.7719260428809614`*^9, 
   3.771926049822216*^9}, 
   3.7719284915725155`*^9},ExpressionUUID->"ec0601d6-b2db-4148-9fb8-\
d3be5fba52e5"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C5M3MI.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7719056922049713`*^9, 3.771905692994399*^9}, {
   3.771907354978547*^9, 3.771907359807542*^9}, {3.7719260517372937`*^9, 
   3.771926056130542*^9}, 
   3.7719284964653234`*^9},ExpressionUUID->"20ec3b1d-d827-4c53-abdf-\
6d5bd39333f9"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C6M3MI.txt\>\""}]], "Input",
 CellChangeTimes->{{3.7718321109637923`*^9, 3.7718321117158265`*^9}, {
   3.7719053798751917`*^9, 3.7719053845547004`*^9}, {3.771907363554609*^9, 
   3.7719073665276012`*^9}, {3.7719260577107916`*^9, 3.7719260615705028`*^9}, 
   3.771928500165225*^9},ExpressionUUID->"9ef463cc-e0c2-4d25-a393-\
d698fa687021"],

Cell[BoxData[
 RowBox[{"<<", "\"\<C6M4MI.txt\>\""}]], "Input",
 CellChangeTimes->{
  3.7717387649011316`*^9, 3.7717389265150595`*^9, 3.771754908202346*^9, {
   3.7719053892532253`*^9, 3.771905399925159*^9}, {3.7719073715861073`*^9, 
   3.7719073774567766`*^9}, {3.771926063140685*^9, 3.771926067460821*^9}, 
   3.771928503685521*^9},ExpressionUUID->"0eb7778e-1604-4e96-9e54-\
312302b5bc17"]
}, Closed]],

Cell[CellGroupData[{

Cell["Loading Parameters", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.771739038932023*^9}, {3.7717548346485124`*^9, 
  3.7717548370485125`*^9}, {3.7719050177750096`*^9, 3.771905020665657*^9}, {
  3.771907031267912*^9, 3.7719070346698647`*^9}, {3.7719256657953615`*^9, 
  3.771925669601113*^9}, {3.7719282356094446`*^9, 3.771928239709062*^9}, {
  3.7721661558616643`*^9, 
  3.7721661573496647`*^9}},ExpressionUUID->"11a34bed-5f71-44a0-b005-\
f28affbe1e1c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "<<", "\"\<C:\\\\Users\\\\windows\\\\Rui\\\\Dropbox\\\\Baldiri_4th_Paper\\\\\
Mathematica Scripts for Supplementary \
Materials\\\\New_5000_Cases\\\\ParvalsC1.txt\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "<<", "\"\<C:\\\\Users\\\\windows\\\\Rui\\\\Dropbox\\\\Baldiri_4th_Paper\\\\\
Mathematica Scripts for Supplementary \
Materials\\\\New_5000_Cases\\\\ParvalsC2.txt\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "<<", "\"\<C:\\\\Users\\\\windows\\\\Rui\\\\Dropbox\\\\Baldiri_4th_Paper\\\\\
Mathematica Scripts for Supplementary \
Materials\\\\New_5000_Cases\\\\ParvalsC3.txt\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "<<", "\"\<C:\\\\Users\\\\windows\\\\Rui\\\\Dropbox\\\\Baldiri_4th_Paper\\\\\
Mathematica Scripts for Supplementary \
Materials\\\\New_5000_Cases\\\\ParvalsC4.txt\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "<<", "\"\<C:\\\\Users\\\\windows\\\\Rui\\\\Dropbox\\\\Baldiri_4th_Paper\\\\\
Mathematica Scripts for Supplementary \
Materials\\\\New_5000_Cases\\\\ParvalsC5.txt\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "<<", "\"\<C:\\\\Users\\\\windows\\\\Rui\\\\Dropbox\\\\Baldiri_4th_Paper\\\\\
Mathematica Scripts for Supplementary \
Materials\\\\New_5000_Cases\\\\ParvalsC6.txt\>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.761041654299574*^9, 3.7610416560598183`*^9}, 
   3.761298197600153*^9, {3.771738734372678*^9, 3.771738753988132*^9}, 
   3.7717388384511323`*^9, 3.771754883146345*^9, 3.7719053058748674`*^9, {
   3.7719072738132706`*^9, 3.771907285279584*^9}, {3.771925950070921*^9, 
   3.7719259613006563`*^9}, {3.7719284594250174`*^9, 
   3.7719284597251806`*^9}, {3.772166193826129*^9, 
   3.772166243976334*^9}},ExpressionUUID->"029dc27c-3f7b-4b85-8b04-\
0ffdc0bca2b7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "\"\<New_5000_Cases\\\\ParvalsC1.txt\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "\"\<New_5000_Cases\\\\ParvalsC2.txt\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "\"\<New_5000_Cases\\\\ParvalsC3.txt\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "\"\<New_5000_Cases\\\\ParvalsC4.txt\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "\"\<New_5000_Cases\\\\ParvalsC5.txt\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "\"\<New_5000_Cases\\\\ParvalsC6.txt\>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.761041654299574*^9, 3.7610416560598183`*^9}, 
   3.761298197600153*^9, {3.771738734372678*^9, 3.771738753988132*^9}, 
   3.7717388384511323`*^9, 3.771754883146345*^9, 3.7719053058748674`*^9, {
   3.7719072738132706`*^9, 3.771907285279584*^9}, {3.771925950070921*^9, 
   3.7719259613006563`*^9}, {3.7719284594250174`*^9, 
   3.7719284597251806`*^9}, {3.772166193826129*^9, 3.772166243976334*^9}, {
   3.795766178108376*^9, 
   3.795766214515221*^9}},ExpressionUUID->"029dc27c-3f7b-4b85-8b04-\
0ffdc0bca2b7"]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting Mutual Information", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717550341040754`*^9, 3.771755042491076*^9}, {
  3.771905275104765*^9, 3.7719052782248898`*^9}, {3.7719072537923517`*^9, 
  3.771907255712274*^9}, {3.7719260830105343`*^9, 3.7719260918105755`*^9}, {
  3.7719276142693405`*^9, 3.771927616239664*^9}, {3.77192850678555*^9, 
  3.7719285095352736`*^9}, {3.772163205528574*^9, 
  3.772163210120576*^9}},ExpressionUUID->"b3c396d6-4578-45f3-acf9-\
1f9759e8a9e1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 
  3.7717438210269485`*^9},ExpressionUUID->"a4e7f85e-ddd7-45da-9b33-\
33f18847db3c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC1", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C1M1MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
        RowBox[{"C1M2MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC1", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C1M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C1M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TLC1", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"THC1", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
  3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
  3.771926486060505*^9}, {3.7719285208651333`*^9, 3.7719285756954255`*^9}, {
  3.7719287159252067`*^9, 
  3.7719287259848585`*^9}},ExpressionUUID->"af3edd37-9280-4cd1-8221-\
fbd3fc894f11"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC2", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C2M1MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
        RowBox[{"C2M22MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC2", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C2M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C2M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TLC2", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"THC2", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
  3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
  3.771926486060505*^9}, {3.7719285208651333`*^9, 3.7719285756954255`*^9}, {
  3.7719287159252067`*^9, 3.7719287259848585`*^9}, {3.771928759445154*^9, 
  3.771928780465089*^9}},ExpressionUUID->"8f2ea674-5642-4fb5-a4d9-\
872c5207c3f8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC3", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C3M2MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
        RowBox[{"C3M22MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC3", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C3M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C3M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TLC3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"THC3", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
  3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
  3.771926486060505*^9}, {3.7719285208651333`*^9, 3.7719285756954255`*^9}, {
  3.7719287159252067`*^9, 3.7719287259848585`*^9}, {3.771928785745782*^9, 
  3.7719288020951233`*^9}, {3.7719288905851955`*^9, 
  3.771928896475009*^9}},ExpressionUUID->"667cd102-86ee-4063-98c4-\
d9c5f4e662f3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC4", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C4M2MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
        RowBox[{"C4M3MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC4", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C4M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C4M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TLC4", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"THC4", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
  3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
  3.771926486060505*^9}, {3.7719285208651333`*^9, 3.7719285756954255`*^9}, {
  3.7719287159252067`*^9, 3.7719287259848585`*^9}, {3.7719288997450013`*^9, 
  3.7719289267150216`*^9}},ExpressionUUID->"11c676f5-6a12-4d70-b7d6-\
83fb3c3e685b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC5", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C5M22MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
        RowBox[{"C5M3MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC5", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C5M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C5M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TLC5", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC5", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"THC5", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
  3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
  3.771926486060505*^9}, {3.7719285208651333`*^9, 3.7719285756954255`*^9}, {
  3.7719287159252067`*^9, 3.7719287259848585`*^9}, {3.7719289301625566`*^9, 
  3.771928960564646*^9}},ExpressionUUID->"a816b02b-82f1-4436-b606-\
cc90fd87aae5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TLC6", "=", 
   RowBox[{
    RowBox[{"Sort", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"C6M3MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
        RowBox[{"C6M4MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"0.", "\[Rule]", 
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"THC6", "=", 
    RowBox[{
     RowBox[{"Sort", "[", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"C6M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C6M4MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTLC6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TLC6", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMTHC6", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"THC6", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
  3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
  3.771926486060505*^9}, {3.7719285208651333`*^9, 3.7719285756954255`*^9}, {
  3.7719287159252067`*^9, 3.7719287259848585`*^9}, {3.7719289649451275`*^9, 
  3.771928989600395*^9}},ExpressionUUID->"a06d10b1-83e5-4e8b-94ef-\
906561630dd8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "2", ",", "0.001"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 3.7719086421117244`*^9}, {
   3.771926677310216*^9, 3.7719266843226957`*^9}, {3.771926853350051*^9, 
   3.7719268561977205`*^9}, {3.7719290057449455`*^9, 
   3.7719290081450033`*^9}, {3.7719290648999023`*^9, 
   3.771929091220568*^9}},ExpressionUUID->"74ac5b7f-0caa-4a9d-8f61-\
037c48a2204a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Gray", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow",
     ",", "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 
  3.762162734410307*^9}},ExpressionUUID->"45f4f42f-8979-40af-9f92-\
d88eef5a2f11"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.33333333333333337`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0.5],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719290111048517`*^9, {3.7719290691948094`*^9, 3.7719290922946167`*^9}, 
   3.772516317333993*^9},ExpressionUUID->"0f5a8161-4549-49ff-a060-\
089133324051"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M2/M1\>\"", ",", " ", "\"\<M2'/M1\>\"",
      ",", " ", "\"\<M2'/M2\>\"", ",", " ", "\"\<M3/M2\>\"", ",", " ", 
     "\"\<M3/M2'\>\"", ",", "\"\<M4/M3\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 
   3.762674167944764*^9}},ExpressionUUID->"c2a3a983-3b61-470c-bdae-\
48f53508bd4d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"7403ad64-74d7-43ca-82ec-\
7696bc9aa6f5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMTLC1", ",", "MMTLC2", ",", "MMTLC3", ",", "MMTLC4", 
     ",", "MMTLC5", ",", "MMTLC6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Information \
Capacity[X1,X4]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Information Capacity[X1,X4]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\
\(\*StyleBox[\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719290270305333`*^9, 
  3.771929049824853*^9}},ExpressionUUID->"17c61c36-988e-40f3-a69b-\
5be7107b2a17"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3Xvs/fUcwPHfmmHW3C8JUe4zs2Zm7vf7/TJrZtbMJffcQ3JJcr/nXiSV
[encoded data, 6480 characters]
8dTx/M9/9vye//Xfh8ln6g==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzt1mk0l+Hb6P2KUIlCEiopFBkypQyHJKVUopSpUFQqZS6ZSUhCgyFjhJRZ
[encoded data, 14880 characters]
ZMmSJUuWLFmyZMmSJUuWLFmyZMmSJfv///4v2SfMew==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt2Xc012/88PEyoowkDTIbRFIaZF6yijKyiZJkFFKRkZCsZKYQ0jCSPbL3
[encoded data, 10440 characters]
FxcXFxcXFxcXFxcXFxcXFxcXFxcXFxcXFxcXFxcXF/f/Zf8Xk4z83Q==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzt1nc013/8/38rJEpkj+yRkVFR5IGISKFIhaxKdilKaKGISFbIyqpEyV7J
[encoded data, 10920 characters]
i8X+H/m/AI1gs00=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzsunk01u/X942QSkKSpMwqiQaSUltChSRJlJlkypAx8xxCCKEyDxmTefiY
[encoded data, 37560 characters]
pJBCCimkkEIKKaSQQgoppJBCCimkkEIKKaTw/yH/B99w9lY=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs23k01f3/N/pMDQqZyzxGlCQVwhaSVEIZk4SUIZEhcyVJpkxRGTJECCFK
[encoded data, 30720 characters]
YzA=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs2nk01W37N34pQ8iQohKZEhHKkCknQiIZQjJllilDGSMyJ5kyTyHzPGee
[encoded data, 42060 characters]
/63/1n/rv/Xf+m/9t/5b/63/1n/rv/Xf+v9t/R/lIWvH
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Information \
Capacity[X1,X4]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\
\\\"+\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Information \
Capacity[X1,X4]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{-3.9450708579561105`*^-17, 2.}, {-3.595335065451849*^-17, 
      2.}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 3.771906220430276*^9}, {
   3.7719085960197096`*^9, 3.7719086494167166`*^9}, 3.7719267679402194`*^9, 
   3.771926861446126*^9, {3.7719290516424775`*^9, 
   3.7719290964248867`*^9}},ExpressionUUID->"79095945-4521-474e-b971-\
b78bcda97e4c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMTHC1", ",", "MMTHC2", ",", "MMTHC3", ",", "MMTHC4", 
     ",", "MMTHC5", ",", "MMTHC6"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Information \
Capacity[X1,X2]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\>\"", ",", " ", 
      "\"\<Information Capacity[X1,X2]\!\(\*StyleBox[\"Mi\",FontSize->10]\)\!\
\(\*StyleBox[\"+\",FontSize->10]\)\!\(\*StyleBox[\"1\",FontSize->10]\)\>\""}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
  3.771929127044834*^9, 
  3.7719291344358664`*^9}},ExpressionUUID->"f3b398f9-3f87-4601-87fc-\
510ac71f8312"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3Xvs/fUcwPHfmmHW3C8JUe4zs2Zm7vf7/TJrZtbMJffcQ3JJcr/nXiSV
[encoded data, 6480 characters]
8dTx/M9/9vye//Xfh8ln6g==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]], 
        PointBox[CompressedData["
1:eJzt12c41+//+H8lSpISEiUkMssICSdSSRIySqKQrIaZTUlGyJaRUZRNdkbZ
[encoded data, 14400 characters]
KFGiRP+/9n8BRuNVqQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt1mdYj3/48PGUpKQ0JNFUooyiocEpZCQrImlpSZJRkgohSVJKQkNTk6YG
[encoded data, 10740 characters]
kpKSkpKSkpKSkpKSkpL+7/X/AMhDWaQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzt0Xkw1f//93FaKEtliVKyhCTKlqJ4SZaypHxk30lIZAkhShKSZElkC6GS
[encoded data, 11040 characters]
dg==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzstnk0lvH3NkqDKUlCKklCpkwhGdqSpEhEhpKUoULmZM4skiShIjKTKfM8
[encoded data, 38040 characters]
/D81nzcQ
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Xk0l2vbP35JkWQoRZIQkmQomSqnhGTKlGQOkSHzlGSeM2fOPGWeZ5d5
[encoded data, 37200 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0]], 
        PointBox[CompressedData["
1:eJzs13k019/7L3xJUiEJSTKFhJBUMm1T5oTKnClTkSnzkHmeKWTOFDLPmed5
[encoded data, 43080 characters]
DQ7ZHMi5Tgz+f0FFlYQ=
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0.5]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0.5, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"Information \
Capacity[X1,X2]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\
\\\"+\\\",FontSize->10]\\)\\!\\(\\*StyleBox[\\\"1\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"Information \
Capacity[X1,X2]\\!\\(\\*StyleBox[\\\"Mi\\\",FontSize->10]\\)\"", 
         TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{-3.595335065451849*^-17, 2.}, {-2.626639338101434*^-17, 
      2.}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M2/M1\"", "\"M2'/M1\"", "\"M2'/M2\"", 
       "\"M3/M2\"", "\"M3/M2'\"", "\"M4/M3\""}, "SwatchLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0.5]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
                   None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0.5], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 3.771906220430276*^9}, {
   3.7719085960197096`*^9, 3.7719086494167166`*^9}, 3.7719267679402194`*^9, 
   3.7719268274897943`*^9, 3.771926864109975*^9, 
   3.7719291356948156`*^9},ExpressionUUID->"89b5cce4-2a1c-4951-bcbe-\
5b56859666fe"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7719292758549695`*^9, 3.7719293268652754`*^9}, 
   3.77192941652462*^9},ExpressionUUID->"d146798b-dd59-4995-a735-\
6e0be118f0fa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM1", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C1M1MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C2M1MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM2", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C1M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C3M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C4M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM22", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C2M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C3M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C5M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM3", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C4M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C5M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C6M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TM4", "=", 
    RowBox[{"Sort", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{"C6M4MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"0.", "\[Rule]", 
        RowBox[{"10", "^", 
         RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM1", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM2", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM22", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM4", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
   3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
   3.771926486060505*^9}, {3.771927647229766*^9, 3.771927719394065*^9}, {
   3.7719277659009156`*^9, 3.771927965149478*^9}, {3.7719281490289545`*^9, 
   3.771928149249251*^9}, {3.771929240804865*^9, 3.7719292687246127`*^9}, 
   3.771929305364427*^9, {3.771929336769478*^9, 
   3.7719294183846617`*^9}},ExpressionUUID->"1d43b7d8-66e6-4b3d-8f02-\
75826093dcf4"],

Cell[BoxData[
 RowBox[{"TMMM1", "=", "Tran"}]], "Input",
 CellChangeTimes->{{3.7725272238841686`*^9, 
  3.772527226487153*^9}},ExpressionUUID->"00a173cc-50d0-4ac1-99db-\
b901bce1e263"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "3", ",", "0.001"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 3.7719086421117244`*^9}, {
   3.771926677310216*^9, 3.7719266843226957`*^9}, {3.771926853350051*^9, 
   3.7719268561977205`*^9}, 3.77192803698125*^9, {3.7719294668645315`*^9, 
   3.771929471574672*^9}},ExpressionUUID->"4d795110-68ef-474e-b54d-\
e7b96f8d0206"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0.85", ",", "0.35", ",", "0.85"}], "]"}], ",", "Brown"}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.7719280428692703`*^9, 
  3.771928043729396*^9}, {3.772166020797779*^9, 
  3.7721660523936048`*^9}},ExpressionUUID->"80c93096-14ca-4af6-a4d8-\
877ac105e6a2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.85, 0.35, 0.85], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5666666666666667, 0.23333333333333334`, 0.5666666666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.85, 0.35, 0.85]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.85, 0.35, 0.85],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6, 0.4, 0.2],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719280471193595`*^9, 3.7719281608792453`*^9, 3.7719294228444295`*^9, 
   3.771929472994604*^9, {3.7721660214707785`*^9, 3.7721660530076046`*^9}, 
   3.772520520614727*^9},ExpressionUUID->"0f99eeee-22f3-4e36-920c-\
a8b377b4835b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", "\"\<M4\>\""}], "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.7719280508996906`*^9, 
   3.771928063699057*^9}},ExpressionUUID->"f3dcc2df-819d-450c-a756-\
ca9e6a442b29"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"a0ea9271-e74b-4e97-991e-\
6012ddf74f41"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMM1", ",", "MMM2", ",", "MMM22", ",", "MMM3", ",", 
     "MMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "1.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.5"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
        "20"}], "]"}]}], ","}], "*)"}], 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Information Capacity[X1,X4]\>\"", ",", " ", 
      "\"\<Information Capacity[X1,X2]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7725205315646563`*^9, 3.7725205526226606`*^9}, {
  3.772520647807728*^9, 3.7725206523336935`*^9}, {3.7725208496168427`*^9, 
  3.7725208544318094`*^9}},ExpressionUUID->"30bc2fd7-794d-421b-848a-\
e36dde72728d"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3XnQdYUcwPHXK2lo7Euy74wxpjHG2Pcl+zbGGGMaY8mebCHZZd9SkjUh
[encoded data, 9240 characters]
PwlBpj8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzs13k0Vv/bN/wylxKSJAkhRZJMUQ6ZKplCEoooZMws8yySjJnKLEOmkCnz
[encoded data, 29700 characters]
iqIoiqIoiqIoiqIoiqIoiqLo/y//BwynPH4=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3HdUFVn7L3iSgqhIlhwUkCxBougGREGCAiJIFBEBAQkCSk4iiCJJJOec
[encoded data, 58320 characters]
/wNAxOp/
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs3Hc8l+/fMH4ZDZSykiSKKCWrJRxCksrOLiNZSfbehJCRmb032RmnmZCG
[encoded data, 54480 characters]
IYQQQgghhBBCCCGE/3/+D3+Xnmk=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJzs3Xk4Vl3/MHwJqSSppAwhKZKkkgpLlJBKMicZM8/zkDkhiZKhZCaZkpBh
[encoded data, 107160 characters]
U+omuA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJzs2Hk0l+37N3pJkiIzSZKhlDLP4TRnzJiMmechc5kjCpkJkbHITOb4IPNM
[encoded data, 39120 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Information Capacity[X1,X2]\"", TraditionalForm], None}, {
        FormBox["\"Information Capacity[X1,X4]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {{0, 1.5}, {0, 1.5}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.772520554743656*^9, 3.772520654247656*^9, 
  3.7725208598336997`*^9},ExpressionUUID->"a519cab4-9f37-4bc0-af4b-\
f7583882b654"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM1", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C1M1MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C2M1MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM2", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C1M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C3M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C4M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM22", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C2M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C3M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C5M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM3", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C4M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C5M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C6M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TM4", "=", 
    RowBox[{"Sort", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{"C6M4MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"0.", "\[Rule]", 
        RowBox[{"10", "^", 
         RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM1", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM2", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM22", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM4", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
   3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
   3.771926486060505*^9}, {3.771927647229766*^9, 3.771927719394065*^9}, {
   3.7719277659009156`*^9, 3.771927965149478*^9}, {3.7719281490289545`*^9, 
   3.771928149249251*^9}, {3.771929240804865*^9, 3.7719292687246127`*^9}, 
   3.771929305364427*^9, {3.771929336769478*^9, 3.7719294183846617`*^9}, {
   3.7725272473542027`*^9, 
   3.7725272826482224`*^9}},ExpressionUUID->"cb5afa49-2485-46d7-8b77-\
2141c8802e81"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "3", ",", "0.001"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 3.7719086421117244`*^9}, {
   3.771926677310216*^9, 3.7719266843226957`*^9}, {3.771926853350051*^9, 
   3.7719268561977205`*^9}, 3.77192803698125*^9, {3.7719294668645315`*^9, 
   3.771929471574672*^9}},ExpressionUUID->"e95d7859-915c-4dda-aa68-\
f58045ed76bc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0.85", ",", "0.35", ",", "0.85"}], "]"}], ",", "Brown"}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.7719280428692703`*^9, 
  3.771928043729396*^9}, {3.772166020797779*^9, 
  3.7721660523936048`*^9}},ExpressionUUID->"29045939-4f20-4187-bfab-\
bf1f9ce3892a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.85, 0.35, 0.85], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5666666666666667, 0.23333333333333334`, 0.5666666666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.85, 0.35, 0.85]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.85, 0.35, 0.85],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6, 0.4, 0.2],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719280471193595`*^9, 3.7719281608792453`*^9, 3.7719294228444295`*^9, 
   3.771929472994604*^9, {3.7721660214707785`*^9, 3.7721660530076046`*^9}, 
   3.772520520614727*^9, 3.772527294416222*^9, 
   3.7725275509518633`*^9},ExpressionUUID->"62f77e89-abe7-4ea4-bd8c-\
a2fff27d1026"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", "\"\<M4\>\""}], "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.7719280508996906`*^9, 
   3.771928063699057*^9}},ExpressionUUID->"315f5dd3-34d0-4671-a72a-\
83909ea89f26"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"50a81f8f-e4b0-48c9-84c4-\
09a38c9c1cc8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMM1", ",", "MMM2", ",", "MMM22", ",", "MMM3", ",", 
     "MMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "1.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.5"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
        "20"}], "]"}]}], ","}], "*)"}], 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.2", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<MI[X1,X2]\>\"", ",", " ", "\"\<MI[X1,X4]\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7725205315646563`*^9, 3.7725205526226606`*^9}, {
  3.772520647807728*^9, 3.7725206523336935`*^9}, {3.7725208496168427`*^9, 
  3.7725208544318094`*^9}, {3.7725273015145674`*^9, 3.7725273163916407`*^9}, {
  3.7725275584438443`*^9, 
  3.772527578457811*^9}},ExpressionUUID->"0d436727-41a7-444e-a193-\
4cabe9fd7d11"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3XnQdYUcwPHXK2lo7Euy74wxpjHG2Pcl+zbGGGMaY8mebCHZZd9SkjUh
[encoded data, 9240 characters]
PwlBpj8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzs13c4lvH7P34VioxCkiQUScgKCadRkjIiWSm7zDKT7BnZRDbZW5QVsney
[encoded data, 28320 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs2WdQVV23L3hUVFAUUUBERFBAJKlkEZggShZJkpMISJKcc1ZJAiI5SRKQ
[encoded data, 59340 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs2nc4kN//OH4ZFQkVUiSEIiG7jCMh7cjKyExRyd57hczsvWdGhIzbiqwi
[encoded data, 54600 characters]
CCH8/+j/AS72oLg=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJzs2Xc81+/bMH5JkoQkSZSdyEwIeckoe2Xv7ERk771XsrOy9872RgnZlQoh
[encoded data, 108180 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJzs13k0l337L3yUhEpUiiRkCknKmBxEKSFDCSFknjKrCJVUMs/zPGUOGb+Z
[encoded data, 38940 characters]
j58kB/kzL745d2WwUqvb9mkdcEJ6y6koM/C9b+m8f6zB/wNyabby
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"MI[X1,X4]\"", TraditionalForm], None}, {
        FormBox["\"MI[X1,X2]\"", TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {{0, 1.5}, {0, 1.5}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.772520554743656*^9, 3.772520654247656*^9, 3.7725208598336997`*^9, 
   3.7725273183825665`*^9, {3.7725275685028095`*^9, 
   3.7725275805528107`*^9}},ExpressionUUID->"a51e0dff-a6e9-49c2-b9da-\
157f13905ea7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMM1", ",", "MMM2", ",", "MMM22", ",", "MMM3", ",", 
     "MMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Information Capacity[X1,X4]\>\"", ",", " ", 
      "\"\<Information Capacity[X1,X2]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
  3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
  3.771929457794732*^9}},ExpressionUUID->"ab90dfa5-f003-4ce0-9d3e-\
e179be177e4e"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3XnQdYUcwPHXK2lo7Euy74wxpjHG2Pcl+zbGGGMaY8mebCHZZd9SkjUh
[encoded data, 9240 characters]
PwlBpj8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzs13k0Vv/bN/wylxKSJAkhRZJMUQ6ZKplCEoooZMws8yySjJnKLEOmkCnz
[encoded data, 29700 characters]
iqIoiqIoiqIoiqIoiqIoiqLo/y//BwynPH4=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3HdUFVn7L3iSgqhIlhwUkCxBougGREGCAiJIFBEBAQkCSk4iiCJJJOec
[encoded data, 58320 characters]
/wNAxOp/
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs3Hc8l+/fMH4ZDZSykiSKKCWrJRxCksrOLiNZSfbehJCRmb032RmnmZCG
[encoded data, 54480 characters]
IYQQQgghhBBCCCGE/3/+D3+Xnmk=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJzs3Xk4Vl3/MHwJqSSppAwhKZKkkgpLlJBKMicZM8/zkDkhiZKhZCaZkpBh
[encoded data, 107160 characters]
U+omuA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJzs2Hk0l+37N3pJkiIzSZKhlDLP4TRnzJiMmechc5kjCpkJkbHITOb4IPNM
[encoded data, 39120 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Information Capacity[X1,X2]\"", TraditionalForm], None}, {
        FormBox["\"Information Capacity[X1,X4]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{-1.54024324598984*^-16, 3.}, {-3.595335065451849*^-17, 
      3.}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7719281207088933`*^9, 3.7719281625992346`*^9, {3.7719294599342813`*^9, 
   3.771929476222084*^9}, 3.7721660588286047`*^9, 
   3.7725206185736895`*^9},ExpressionUUID->"179156d4-2dcd-482c-8480-\
f37f4759605f"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM1", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C1M1MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C2M1MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM2", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C1M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C3M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C4M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM22", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C2M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C3M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C5M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM3", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C4M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C5M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C6M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TM4", "=", 
    RowBox[{"Sort", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{"C6M4MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"0.", "\[Rule]", 
        RowBox[{"10", "^", 
         RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM1", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM2", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM22", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM4", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
   3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
   3.771926486060505*^9}, {3.771927647229766*^9, 3.771927719394065*^9}, {
   3.7719277659009156`*^9, 3.771927965149478*^9}, {3.7719281490289545`*^9, 
   3.771928149249251*^9}, {3.771929240804865*^9, 3.7719292687246127`*^9}, 
   3.771929305364427*^9, {3.771929336769478*^9, 3.7719294183846617`*^9}, 
   3.772520492157695*^9, {3.772521053341105*^9, 
   3.7725210992257977`*^9}},ExpressionUUID->"3b7c5b29-32ae-48e0-a1fe-\
a5ef096c051c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "3", ",", "0.001"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 3.7719086421117244`*^9}, {
   3.771926677310216*^9, 3.7719266843226957`*^9}, {3.771926853350051*^9, 
   3.7719268561977205`*^9}, 3.77192803698125*^9, {3.7719294668645315`*^9, 
   3.771929471574672*^9}},ExpressionUUID->"27c71289-d49d-4340-9e62-\
fb6a8c4fe94c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0.85", ",", "0.35", ",", "0.85"}], "]"}], ",", "Brown"}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.7719280428692703`*^9, 
  3.771928043729396*^9}, {3.772166020797779*^9, 
  3.7721660523936048`*^9}},ExpressionUUID->"f1c246b6-3760-4870-b2f6-\
46aa039236f3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.85, 0.35, 0.85], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5666666666666667, 0.23333333333333334`, 0.5666666666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.85, 0.35, 0.85]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.85, 0.35, 0.85],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6, 0.4, 0.2],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719280471193595`*^9, 3.7719281608792453`*^9, 3.7719294228444295`*^9, 
   3.771929472994604*^9, {3.7721660214707785`*^9, 3.7721660530076046`*^9}, 
   3.7725211061825304`*^9},ExpressionUUID->"ce9b8395-cb5c-4553-8660-\
9ab4a2ef04f5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", "\"\<M4\>\""}], "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.7719280508996906`*^9, 
   3.771928063699057*^9}},ExpressionUUID->"c8dffd04-14d8-494a-889d-\
45ed07402b79"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"f3d2c2d1-9018-435a-b3d3-\
12423ca8ef17"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMM1", ",", "MMM2", ",", "MMM22", ",", "MMM3", ",", 
     "MMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Information Capacity[X1,X4]\>\"", ",", " ", 
      "\"\<Information Capacity[X3,X4]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
  3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
  3.771929457794732*^9}, {3.7725211140467944`*^9, 
  3.772521115227812*^9}},ExpressionUUID->"84d24f73-5a4c-4f3f-98a2-\
24993c5cd2b7"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3XnQdYUcwPHXK2lo7Euy74wxpjHG2Pcl+zbGGGMaY8mebCHZZd9SkjUh
[encoded data, 9240 characters]
PwlBpj8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzs2Hk0lm/UL3CZUiRKkqkIiZLMUbYkSkimjJEKyZwpyRBKQoQMlZmozDLP
[encoded data, 26820 characters]
hBBCCP9/+T+6vONN
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs23k0V2/fN3wzUTJnypAxU4aM4ZCITCHznMwkRSUziZRMIZnneZ7nmRRK
[encoded data, 55140 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs23k4V+3bMHoZSqZkSkLGDEVIKuEyhVQyzyLJlERmISGEZCbzPJN5ypwp
[encoded data, 51300 characters]
IYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGE/3/+D7sMIiA=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJzs3Xs4Vd3fP3oJKYckSYUkhCQpEjIRQuV8DskpVESOJedzcq6QEJLQSYgo
[encoded data, 92520 characters]
kiRJkiRJkiTJ/+wPS669xA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJzs2Hk0l9/7P3pJQipTSEKGUmTKHDZCZchcMk/JHBkyZUrmmYwZM8/JlDlk
[encoded data, 36960 characters]
j2B9WhlKJv4H5ggDgw==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Information Capacity[X3,X4]\"", TraditionalForm], None}, {
        FormBox["\"Information Capacity[X1,X4]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{-1.54024324598984*^-16, 3.}, {-1.8999045488051238`*^-17, 
      3.}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7719281207088933`*^9, 3.7719281625992346`*^9, {3.7719294599342813`*^9, 
   3.771929476222084*^9}, 3.7721660588286047`*^9, 
   3.7725211241214714`*^9},ExpressionUUID->"a82e50ad-9639-42d2-b673-\
307023418634"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM1", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C1M1MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C2M1MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM2", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C1M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C3M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C4M2MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM22", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C2M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C3M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C5M22MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM3", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"C4M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C5M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"C6M3MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"0.", "\[Rule]", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TM4", "=", 
    RowBox[{"Sort", "[", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{"C6M4MI", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "3"}], "}"}]}], "]"}], "]"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"0.", "\[Rule]", 
        RowBox[{"10", "^", 
         RowBox[{"-", "7"}]}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM1", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM2", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM22", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM4", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
   3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
   3.771926486060505*^9}, {3.771927647229766*^9, 3.771927719394065*^9}, {
   3.7719277659009156`*^9, 3.771927965149478*^9}, {3.7719281490289545`*^9, 
   3.771928149249251*^9}, {3.771929240804865*^9, 3.7719292687246127`*^9}, 
   3.771929305364427*^9, {3.771929336769478*^9, 3.7719294183846617`*^9}, 
   3.772520492157695*^9, {3.772521053341105*^9, 3.7725210992257977`*^9}, {
   3.7725273682826233`*^9, 
   3.7725274087286854`*^9}},ExpressionUUID->"d8726d59-ad01-424b-861f-\
9536dbfcfa35"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "3", ",", "0.001"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 3.7719086421117244`*^9}, {
   3.771926677310216*^9, 3.7719266843226957`*^9}, {3.771926853350051*^9, 
   3.7719268561977205`*^9}, 3.77192803698125*^9, {3.7719294668645315`*^9, 
   3.771929471574672*^9}},ExpressionUUID->"4042021b-554f-46ea-bc70-\
2ef7cc2977af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0.85", ",", "0.35", ",", "0.85"}], "]"}], ",", "Brown"}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.7719280428692703`*^9, 
  3.771928043729396*^9}, {3.772166020797779*^9, 
  3.7721660523936048`*^9}},ExpressionUUID->"4e83c3f1-92d1-4bc3-9c39-\
bf153c7f573b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.85, 0.35, 0.85], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5666666666666667, 0.23333333333333334`, 0.5666666666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.85, 0.35, 0.85]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.85, 0.35, 0.85],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6, 0.4, 0.2],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719280471193595`*^9, 3.7719281608792453`*^9, 3.7719294228444295`*^9, 
   3.771929472994604*^9, {3.7721660214707785`*^9, 3.7721660530076046`*^9}, 
   3.7725211061825304`*^9, 3.772527414021638*^9, 
   3.7725277040805297`*^9},ExpressionUUID->"d5fe02d4-fef6-48cb-8cb3-\
3f6354f6371c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", "\"\<M4\>\""}], "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.7719280508996906`*^9, 
   3.771928063699057*^9}},ExpressionUUID->"773a4bd7-4e87-49eb-8bbb-\
3e1293a0d4d8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"a0f399be-85ff-416f-beae-\
58456d1ab466"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMM1", ",", "MMM2", ",", "MMM22", ",", "MMM3", ",", 
     "MMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.2", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<MI[X3,X4]\>\"", ",", " ", "\"\<MI[X1,X4]\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
  3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
  3.771929457794732*^9}, {3.7725211140467944`*^9, 3.772521115227812*^9}, {
  3.772527429915637*^9, 3.7725274323936377`*^9}, {3.772527476285049*^9, 
  3.7725274856101046`*^9}, {3.7725277137543316`*^9, 
  3.7725277273533316`*^9}},ExpressionUUID->"3400dbc2-3c29-455d-9e9a-\
fc64abf8709f"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3XnQdYUcwPHXK2lo7Euy74wxpjHG2Pcl+zbGGGMaY8mebCHZZd9SkjUh
[encoded data, 9240 characters]
PwlBpj8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzs13k0kO/7L3oZStKkkpA0oCJTSKZL5iQklZJ5zFyZJXNJhCJjyJzMM5nn
[encoded data, 26100 characters]
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhP+H/wFYIk4Q
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Hk4l13bKH6UoUSSJIRMGUoIybRkSpIQkkyJMoeQzETGZMqYMUPmeR4y
[encoded data, 53520 characters]
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC+P/v/wCzEEUH
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs3HVYVd26MHxCVFJQSqREFBCkpKQmIiqgonQjDQoS0o10SyPdjUjnoqQU
[encoded data, 48780 characters]
ERERERERERERERERERERERERERERERERERERERERERH/3/wvwM7EWQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJzs3Xk4VV/bOHBkLMpQUqgMCUkIkeGIQsoYQpJ5njPP85QMIUOmzISQBtpR
[encoded data, 91140 characters]
yePNFqYOgHfdDXZ8KgG+/tXN7oAMmPDph7rPcfD/Af08LxA=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJzs2Hc812/fMH6VrIQkFQ2ErJBRCAeiIdkr2SEhZIXsjKKErOy9d/bK3iN7
[encoded data, 34560 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"MI[X1,X4]\"", TraditionalForm], None}, {
        FormBox["\"MI[X3,X4]\"", TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{-1.206141197194356*^-16, 
      3.22934291917631}, {-1.421094523500873*^-16, 3.}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7719281207088933`*^9, 3.7719281625992346`*^9, {3.7719294599342813`*^9, 
   3.771929476222084*^9}, 3.7721660588286047`*^9, 3.7725211241214714`*^9, 
   3.7725274344127245`*^9, 3.7725274952092953`*^9, {3.7725277159532824`*^9, 
   3.7725277294442816`*^9}},ExpressionUUID->"c460c7d6-e446-4472-a6d2-\
3b18cf647a85"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMM1", ",", "MMM2", ",", "MMM22", ",", "MMM3", ",", 
     "MMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "1.5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.5"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.2", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<MI[X3,X4]\>\"", ",", " ", "\"\<MI[X1,X4]\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
  3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
  3.771929457794732*^9}, {3.7725211140467944`*^9, 3.772521115227812*^9}, {
  3.772527429915637*^9, 3.7725274323936377`*^9}, {3.772527476285049*^9, 
  3.7725274856101046`*^9}, {3.7725277137543316`*^9, 3.7725277273533316`*^9}, {
  3.7725278107768946`*^9, 
  3.772527820407858*^9}},ExpressionUUID->"ddba2a2b-a1e4-49aa-8755-\
44af395f138d"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3XnQdYUcwPHXK2lo7Euy74wxpjHG2Pcl+zbGGGMaY8mebCHZZd9SkjUh
[encoded data, 9240 characters]
PwlBpj8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzs13k0kO/7L3oZStKkkpA0oCJTSKZL5iQklZJ5zFyZJXNJhCJjyJzMM5nn
[encoded data, 26100 characters]
CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhP+H/wFYIk4Q
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs3Hk4l13bKH6UoUSSJIRMGUoIybRkSpIQkkyJMoeQzETGZMqYMUPmeR4y
[encoded data, 53520 characters]
EEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC+P/v/wCzEEUH
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJzs3HVYVd26MHxCVFJQSqREFBCkpKQmIiqgonQjDQoS0o10SyPdjUjnoqQU
[encoded data, 48780 characters]
ERERERERERERERERERERERERERERERERERERERERERH/3/wvwM7EWQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJzs3Xk4VV/bOHBkLMpQUqgMCUkIkeGIQsoYQpJ5njPP85QMIUOmzISQBtpR
[encoded data, 91140 characters]
yePNFqYOgHfdDXZ8KgG+/tXN7oAMmPDph7rPcfD/Af08LxA=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJzs2Hc812/fMH6VrIQkFQ2ErJBRCAeiIdkr2SEhZIXsjKKErOy9d/bK3iN7
[encoded data, 34560 characters]

         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"MI[X1,X4]\"", TraditionalForm], None}, {
        FormBox["\"MI[X3,X4]\"", TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {{0, 1.5}, {0, 1.5}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7719281207088933`*^9, 3.7719281625992346`*^9, {3.7719294599342813`*^9, 
   3.771929476222084*^9}, 3.7721660588286047`*^9, 3.7725211241214714`*^9, 
   3.7725274344127245`*^9, 3.7725274952092953`*^9, {3.7725277159532824`*^9, 
   3.7725277294442816`*^9}, 
   3.7725278227638817`*^9},ExpressionUUID->"f9c47026-42c5-42ea-90a8-\
0a9b17bc1cdd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM1", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"C1M1MI", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
             RowBox[{"C1M1MI", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"C1M1MI", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "6"}], "]"}], "]"}], "/", 
             RowBox[{"C1M1MI", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}], 
         "]"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NumberQ", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "&&", " ", 
           RowBox[{"NumberQ", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"0.", "\[Rule]", 
        RowBox[{"10", "^", 
         RowBox[{"-", "17"}]}]}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM2", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"C1M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
              RowBox[{"C1M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"C1M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "6"}], "]"}], "]"}], "/", 
              RowBox[{"C1M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}], 
          ",", 
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"C3M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
              RowBox[{"C3M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"C3M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "6"}], "]"}], "]"}], "/", 
              RowBox[{"C3M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}], 
          ",", 
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"C4M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
              RowBox[{"C4M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"C4M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "6"}], "]"}], "]"}], "/", 
              RowBox[{"C4M2MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}]}], 
         "]"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NumberQ", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "&&", " ", 
           RowBox[{"NumberQ", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"0.", "\[Rule]", 
        RowBox[{"10", "^", 
         RowBox[{"-", "17"}]}]}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM22", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"C2M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
              RowBox[{"C2M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"C2M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "6"}], "]"}], "]"}], "/", 
              RowBox[{"C2M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}], 
          ",", 
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"C3M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
              RowBox[{"C3M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"C3M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "6"}], "]"}], "]"}], "/", 
              RowBox[{"C3M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}], 
          ",", 
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"C5M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
              RowBox[{"C5M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"C5M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "6"}], "]"}], "]"}], "/", 
              RowBox[{"C5M22MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}]}], 
         "]"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NumberQ", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "&&", " ", 
           RowBox[{"NumberQ", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"0.", "\[Rule]", 
        RowBox[{"10", "^", 
         RowBox[{"-", "17"}]}]}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM3", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"C4M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
              RowBox[{"C4M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"C4M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "6"}], "]"}], "]"}], "/", 
              RowBox[{"C4M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}], 
          ",", 
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"C5M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
              RowBox[{"C5M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"C5M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "6"}], "]"}], "]"}], "/", 
              RowBox[{"C5M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}], 
          ",", 
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"C6M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
              RowBox[{"C6M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"C6M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "6"}], "]"}], "]"}], "/", 
              RowBox[{"C6M3MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}]}], 
         "]"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"NumberQ", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "&&", " ", 
           RowBox[{"NumberQ", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"0.", "\[Rule]", 
        RowBox[{"10", "^", 
         RowBox[{"-", "17"}]}]}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TM4", "=", 
    RowBox[{"Sort", "[", 
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"C6M4MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
              RowBox[{"C6M4MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"C6M4MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "6"}], "]"}], "]"}], "/", 
              RowBox[{"C6M4MI", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}], 
          "]"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"NumberQ", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "&&", " ", 
            RowBox[{"NumberQ", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "&"}]}], "]"}], 
       "/.", 
       RowBox[{"{", 
        RowBox[{"0.", "\[Rule]", 
         RowBox[{"10", "^", 
          RowBox[{"-", "17"}]}]}], "}"}]}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM1", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM2", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM22", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MMM4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TM4", ",", "WS"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7719262541502285`*^9, 3.7719263029151664`*^9}, {
   3.7719263369698453`*^9, 3.771926434190588*^9}, {3.771926468640087*^9, 
   3.771926486060505*^9}, {3.771927647229766*^9, 3.771927719394065*^9}, {
   3.7719277659009156`*^9, 3.771927965149478*^9}, {3.7719281490289545`*^9, 
   3.771928149249251*^9}, {3.771929240804865*^9, 3.7719292687246127`*^9}, 
   3.771929305364427*^9, {3.771929336769478*^9, 3.7719294183846617`*^9}, 
   3.772520492157695*^9, {3.772521053341105*^9, 3.7725210992257977`*^9}, {
   3.7725215506074133`*^9, 3.772522121705206*^9}, {3.772526413228101*^9, 
   3.7725264250692797`*^9}},ExpressionUUID->"f45d0ace-6e89-4406-b71b-\
7322b726c160"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,560,678,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264271333156`*^9},ExpressionUUID->"b071b9ea-cbfe-4769-b47e-\
77121eea5b95"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,560,679,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642715528*^9},ExpressionUUID->"3288e5e1-016c-4166-b142-0da705d0edb6"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,560,680,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642717028*^9},ExpressionUUID->"c6701368-040c-441b-9837-01e7b2b0ef6c"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,560,681,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642718528*^9},ExpressionUUID->"c5d8bfff-95f0-4607-bb2b-fe45ce54cd72"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,560,682,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642719928*^9},ExpressionUUID->"241ff848-aa8c-42bc-9a19-12c9cde16c05"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,560,683,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264272133193`*^9},ExpressionUUID->"abd1da49-37fa-445b-ad36-\
f221c3938157"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,560,684,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264272262797`*^9},ExpressionUUID->"ee8510a5-b8d1-4a56-9741-\
2f675602fa04"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,560,685,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772526427240281*^9},ExpressionUUID->"4e8e4ac3-ea66-406a-9757-\
7dd2621efad6"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,561,686,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642733728*^9},ExpressionUUID->"17a8e6e7-fc07-42aa-8f71-285f3738ac0d"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,561,687,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264273533163`*^9},ExpressionUUID->"8b52bec8-27ff-4c19-b2db-\
473d105b63c8"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,561,688,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264273672805`*^9},ExpressionUUID->"c5ff547c-7591-4c9f-96c1-\
9c83132f3505"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,561,689,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772526427381318*^9},ExpressionUUID->"0d14c272-1204-43af-846d-\
5ca8ccb082ec"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,561,690,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264273952794`*^9},ExpressionUUID->"dbc17558-d325-409c-bbc6-\
570b1e1921cb"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,561,691,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264274082804`*^9},ExpressionUUID->"525494a5-970c-437c-8cd9-\
4818b1fc7d32"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,561,692,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264274212804`*^9},ExpressionUUID->"76667273-1bc5-4e8f-80a5-\
346ee9136330"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,561,693,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772526427435319*^9},ExpressionUUID->"4d0b4945-53e8-453a-9787-\
27ab26a51088"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,562,694,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264275343485`*^9},ExpressionUUID->"e66b01ec-b8e7-4c95-9752-\
2e1297a11b87"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,562,695,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264275503387`*^9},ExpressionUUID->"d5dc8030-af0f-498f-8f25-\
0bdfec8dd868"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,562,696,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772526427565282*^9},ExpressionUUID->"64739e55-7081-429e-828f-\
94aab3e2ba99"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,562,697,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264276433144`*^9},ExpressionUUID->"d4d64aff-d053-441b-916f-\
2db89a1ba4ae"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,562,698,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264276582804`*^9},ExpressionUUID->"3fc9c0c6-e7a6-4be9-899e-\
464183c95c8b"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,562,699,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642767328*^9},ExpressionUUID->"b27d69d7-4d88-41ac-81c8-8e3272c6a410"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,562,700,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264276862793`*^9},ExpressionUUID->"6da60481-1433-497a-98cc-\
d72c1fffafda"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,562,701,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264276982803`*^9},ExpressionUUID->"3dad44ec-4e0a-4337-b319-\
e38ab11d53c7"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,563,702,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264277742815`*^9},ExpressionUUID->"493ed065-c2e0-420d-97b7-\
fb82efb696eb"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,563,703,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264277882795`*^9},ExpressionUUID->"7244ab1a-7353-43ef-b853-\
d0a6ef7de850"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,563,704,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264278022804`*^9},ExpressionUUID->"c65d2053-e66f-485a-9d09-\
627b8ac96cfe"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,563,705,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642781628*^9},ExpressionUUID->"31742a21-b3f3-4545-8eab-0810cc2542ad"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,563,706,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264278902802`*^9},ExpressionUUID->"629a44ba-b72a-401c-90d3-\
ac2b0dae5237"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,563,707,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772526427903279*^9},ExpressionUUID->"c0be54f1-a935-419e-9eae-\
145fa739b8ba"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,563,708,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642791628*^9},ExpressionUUID->"f6dbe747-83d9-4637-907f-6c874dbc36f8"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,563,709,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642792828*^9},ExpressionUUID->"97d090f1-36bd-4196-ac02-33edbb1cf016"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,564,710,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642803028*^9},ExpressionUUID->"4a6be555-4f40-4cd1-9acf-28e2078573a6"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,564,711,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642804428*^9},ExpressionUUID->"9c2ae2db-e024-4e7a-8b88-21cbb6103944"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,564,712,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264280572805`*^9},ExpressionUUID->"48144439-e169-40c6-bdfd-\
5daaede04bfc"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,564,713,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264280812807`*^9},ExpressionUUID->"b042d9e6-00f9-445c-bcb4-\
5eea63ac89a6"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,564,714,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264281592793`*^9},ExpressionUUID->"70b2a11a-0e7e-4013-b97a-\
270dbc11b6e8"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,564,715,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264281732802`*^9},ExpressionUUID->"c1b32a6b-8846-4dc7-be02-\
0674688d3ba5"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,564,716,31712582983334079659,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77252642818528*^9},ExpressionUUID->"ee9aa21f-8596-476e-bf57-7d69d47fc3ee"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,564,717,31712582983334079659,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7725264281972804`*^9},ExpressionUUID->"fabb60d5-7740-4784-9a87-\
2b3f6e252054"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LMMM1", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{"TM1", ",", "WS"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMM2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{"TM2", ",", "WS"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMM22", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{"TM22", ",", "WS"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMM3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{"TM3", ",", "WS"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LMMM4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"MovingMedian", "[", 
      RowBox[{"TM4", ",", "WS"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7725258415841665`*^9, 
  3.772525935944708*^9}},ExpressionUUID->"bc56795b-77ff-4651-ab77-\
008e61a75765"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LEqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "5"}], ",", "5", ",", "0.005"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.772525943064727*^9, 3.77252595442458*^9}, {
  3.772526252907014*^9, 3.7725262544239817`*^9}, {3.7725263220597553`*^9, 
  3.7725263224417615`*^9}},ExpressionUUID->"01e627f7-a1d1-4945-b488-\
6a4bd8f11bcf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "3", ",", "0.001"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 3.7719086421117244`*^9}, {
   3.771926677310216*^9, 3.7719266843226957`*^9}, {3.771926853350051*^9, 
   3.7719268561977205`*^9}, 3.77192803698125*^9, {3.7719294668645315`*^9, 
   3.771929471574672*^9}},ExpressionUUID->"0734f2e4-12fb-4b97-890f-\
fd6c1aabdabb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0.85", ",", "0.35", ",", "0.85"}], "]"}], ",", "Brown"}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.7719280428692703`*^9, 
  3.771928043729396*^9}, {3.772166020797779*^9, 
  3.7721660523936048`*^9}},ExpressionUUID->"49ac24bb-afbc-4fc4-8a5e-\
88a20ec2dc88"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.85, 0.35, 0.85], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5666666666666667, 0.23333333333333334`, 0.5666666666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.85, 0.35, 0.85]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.85, 0.35, 0.85],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6, 0.4, 0.2],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719280471193595`*^9, 3.7719281608792453`*^9, 3.7719294228444295`*^9, 
   3.771929472994604*^9, {3.7721660214707785`*^9, 3.7721660530076046`*^9}, 
   3.7725211061825304`*^9, 
   3.7725221410213146`*^9},ExpressionUUID->"6b670a33-3d36-417a-9835-\
79a1ffa49890"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", 
     " ", "\"\<M2'\>\"", ",", " ", "\"\<M3\>\"", ",", "\"\<M4\>\""}], "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.7719280508996906`*^9, 
   3.771928063699057*^9}},ExpressionUUID->"deea0141-cfc9-4d64-8f54-\
f1b301758fb6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"ac534b11-393b-4f5f-9302-\
fc9ec4efcf21"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "LEqLine1", ",", "LMMM1", ",", "LMMM2", ",", "LMMM22", ",", "LMMM3", ",", 
     "LMMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "2", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log[10,MI[X1,X2]/MI[X1,X4]]\>\"", ",", " ", 
      "\"\<Log[10,MI[X3,X4]/MI[X1,X4]]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
  3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
  3.771929457794732*^9}, {3.7725211140467944`*^9, 3.772521115227812*^9}, {
  3.7725259641715803`*^9, 3.772526119018046*^9}, {3.7725261711616993`*^9, 
  3.772526177272643*^9}, {3.772526208265192*^9, 3.7725262338982143`*^9}, {
  3.7725262853385005`*^9, 
  3.772526305449773*^9}},ExpressionUUID->"f0e17444-c01c-44e7-a5d8-\
39c741830822"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3T3sdndZwPGHQimUQgvURJda41IdCBEHBqtNFxwYKDHBoUMxsTFxsBpN
[encoded data, 6600 characters]
5Dx3fDUXOc8tX81Fmovr1/8DASaiFA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt1nk0Vu3/6HGRHlGUIpUyppTI0GRoC4UGEZokpUJRVCpDiFQyDxlC5rnM
[encoded data, 12180 characters]
Nc/RFA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs13k0l238wHkUIkkokiURRaK0UXzLviVKCVkKRSSylOw7RfY9IUuoZIus
[encoded data, 53940 characters]
i7jLHQ8e8dr1TC8RvORyUi0kCfw/AN+MKI8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJys13VQVW/0P3qUkFREEQQEFIMOC0RCQBAEBMSgMZBWQelWARGUUulGQrob
[encoded data, 49740 characters]
ccKxgjHEDooXTVklwesDqxWRUsh6nm/p9xLAhhYiA8Ky4H8BP/b3Sw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJx02nc41m34P/AQGanISPaKMsoKlSQkIxkRKikRkj1CyiayKWRnj+w9Lm63
[encoded data, 93360 characters]
WmmiBTk/5vpUfQbaz1Z1IS8T/B/7zdJz
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJzs13c41+8bP3yrVEpZRSSSZJYiIr1skmSLsgohJEm2lL1alFC2ZIbscdl7
[encoded data, 35640 characters]
lWQBF20KvwxnBf8PY5rYgA==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {},
        {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Log[10,MI[X3,X4]/MI[X1,X4]]\"", TraditionalForm], None}, {
        FormBox["\"Log[10,MI[X1,X2]/MI[X1,X4]]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-2, 2}, {-2, 2}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.7725262358131733`*^9, 3.7725263278077917`*^9}, 
   3.7725264428813534`*^9, 
   3.772526545834155*^9},ExpressionUUID->"48447f28-e0b1-4f1a-a1bc-\
983063acb4fd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "LEqLine1", ",", "LMMM1", ",", "LMMM2", ",", "LMMM22", ",", "LMMM3", ",", 
     "LMMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.2", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log[10,MI[X1,X2]/MI[X1,X4]]\>\"", ",", " ", 
      "\"\<Log[10,MI[X3,X4]/MI[X1,X4]]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
  3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
  3.771929457794732*^9}, {3.7725211140467944`*^9, 3.772521115227812*^9}, {
  3.7725259641715803`*^9, 3.772526119018046*^9}, {3.7725261711616993`*^9, 
  3.772526177272643*^9}, {3.772526208265192*^9, 
  3.7725262338982143`*^9}},ExpressionUUID->"78c32322-7708-44a5-a2a9-\
4f7bce33a50c"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd2z3MXmUdgPHX8lVKgQI1cap1QyeiDgyC76YjEAcHhsZE42Z1MtXhHcC4
ycAgxBgSGHBpMDEREqMVMKIppH5R8LPFL6CIBS0fImKf+/r3uhLe5ZcQODzn
vs7znPvc55wPfOYLt31219bW1gsXbW1t5G//sQu+dv3t33j03HX60q0PH7jz
TJ4+sv/oJ07nyfsP37TnZD55fPOXj53bbCg3W7n14Ty/kfNbygc2m7k/771n
85fnP9T5DeVmKwfuzK9sPtaR/OJmM4fzc+svb18bytvWB8tPrh3NtZmb8iPr
Lz+4NpTvXx8s18fan2sze5IOSYdrlQ5Jh6RD0iHpkHRIOiQdkg5Jh6RD0iHp
kHRIOiQdkg5Jh6RD0iHpkHRIOiQdkg7XKB2SDkmHpEOuYXs06ZB0SDokHZIO
SYekQ9Ih6ZB0SDokHZIOSYekQ9Ih6ZB0SDokHfYpHZIOSYekQ9Ih6ZB0SDok
HZIOSYekQ9Ih6ZB0SDokHZIOSYekQ9Ih6ZB0SDok4361Ms7JuCbjmIxbMk65
hvlwMg7Jfif7mSvjgWQ/kuPoKuW4yXWYHE+Oi+Q4yLvWjiadk65Jx7x5fbCk
U9Il6ZB0uFLpkHRIOiQdkg5Jh6RD0iHpkHRIOiQd9iodkg5Jh6RD0iHpkHRI
OiQdkg5Jh6RD0uEKpUPSIemQdEg6JB2SDkmHpEPSIemQdNijdEg6JB2SDkmH
pEPSIemQdEg6JB2SDkmHy5UOSYekQ9Ih6ZB0SDokHZIOSYdkN5MOu5UOSYek
Q9Ih6ZB0SDokHZIOSYekQ9Ih17CduUzpkHRIOiQdkg7JeTXpkHRIOiTnxaRD
0uFSpUMyz0g6JB2SeUPSIemQdEjO+0mHpEPSIelwidIh6ZB0yJXhnqRD0iHp
kHRIOiQdkg5Jh4uVDkmHpEPSIemQdEg6JB2SDkmHpEPSIelwkdIh6ZB0SDok
HZIOSYekQ9Ih6ZB0SDrsUjokHZIOSYekQ9Ih6ZB0SDokHZIOSYekw3uUDkmH
pEPSIemQdEg6JB2SDkmHpEPSYUvpkHRIOiQdkg5Jh6RD0iHpkHRIOuQsYOnT
a9zf+dEFGee8Y41rMo754TVuyTjlqTUu/1PGITlvJvuZnBeT/UjmIW8rx01y
XkvmFclxkMwbks7/VeYFScdcu3kk6ZRrM9cnGZIObykdkg5Jh6RD0iHp8B+l
Q9Ih6ZB0SDokHd5UOiQdkg5Jh6RD0uENpUPSIemQdEg6JB2SDq8rHZIOSYek
Q9Ih6fCa0iHpkHRIOiQdkg7nlA5Jh6RD0iHpkHT4t9Ih6ZB0SDokHZIOSYd/
KR2SDkmHpEPSIenwqtIh6ZB0SDokHZIOrygdkg5Jh6RD0iHpcFbpkHRIOiQd
kg5Jh3xojfs/9dNrnHP3GtdkHF/Wz69xy31rnPLYGpd/KOOQB9d+54m1ny/p
l9d+JfuRz6zj6Ix+nYmJ3rCOk+S4eFE5DnJ7dc/n12Ze0G+urknHfGN9sOf1
vrWjecsauKRD0uHvSoekQ9Lhb0qHpEPS4a9Kh6RDPrE6/EXpkHRIOvxZ6ZB0
SDo8p3RIOiQdTisdkg5Jh1NKh6RD0iEPrXH/kz60xvmPyrgm4/gH5Tj+vR5c
45Q7a1x+p4zDb5X9zrvWfj6rZ9d+PaPsR3IcndR9TNT10DpOnlaOi98ox0Hu
rO6/1hNrM79SuiYdf6lnV7df6PbqlHQ5oXRIFoae0kNrnJ9UxvW4Mo4/1/vW
uP1Mt9c4PaFba1x+qozDT5T9flwPrv18TE+t/fqxsh/HlM/9Q91en/MHurM+
1yPK5/i+8v/9nm6tH/rv6s7a7tFc2/lOrv/uAd1aF0rfzvXP736Xd+S7//jn
H9f3rv8u2a7O/zf5XMq/dzTZL5391hkX5cLyEZ1x1Rl3nS463XSbrjrddY4L
neNGD3Fc6Rx3OselznGrOxzXOse9zvdC53ujt/C90vne6Xwvdb63eorvtc73
Xud3Qed3Qw/zu6Lzu6Pzu6Tzu6Xzu6aM27M6v4s6v5s6v6t6A7+7Or/LOr/b
Or/ryrjnnBd0zhs65xV9kPOOznlJ57ylc15TuuWcF3XOmzrnVb2R867OeVnn
vK1zXtc57yvjljNv0JlX6Mw79H3MS3TmLTrzGp15jzLuOfMmnXmVzrxL6ZAz
b9OZ1+nM+5QOOfNGnXmlzrxT6XBGZ96qM6/VmffqzIt15s0682qdebfOvFzp
8LLOvF5n3q9zXaB0yLmu0Lnu0Lku0U9x3aJf5bpG57pH57pI6Zbs9ys61106
12X6La7b9HGu63Su+3SuC5XuybjlXHfqXJfqXLfqXq5r9aNc9+pcF+tcNyvj
nhxHOdflOtftSoekQ866gM66gdIh6XBOZ11CZ91C6ZB0yFkX0Vk3UTokHXLW
ZXTWbXTWdZQOrysdctaNdNaVlA5Jh5x1K511LaVD0iFn3UxnXU3pkHR4U2fd
TmddT+mQdMhZN9RZV1Q6JB1y1i111jV11j2VDm8pHXLWVXXWXZUOSYecdV2d
dV+lQ9IhZ11ZZ91Z6ZB0eFtnXVtn3VvpkHTIWVfXWXdXOiQdctb1ddb9de4L
KB3eUTrk3HfQuS+hdEg65Fx1bF9w7ovoh7hvoqzj5dx30bkvo3RL9jvnvo/O
fSF9ivtG+hz3lXTuO+ncl1K6J+OWc99L576Yclzk17ivpqxLJuuuOfftlHFP
jqMkwy6lQ9Ih6ZBzX1LnvqXSIemQc19U6ZB0SDrk3JfVuW+rdEg65NwXVjok
HZIOSYekQ9Ih6ZB0SDpcrHRIOiQdcu7b69zXVzokHXKeG1A6JB2SDjnPLSgd
LlE6JB1ynptQOiQdkg5Jh6RD0iHpkHRIOlyqdEg6JB1ynmtROiQdkg45z9Uo
HZIOSYec53qUDpcpHZIOOc8VKR3yS6tD0iHnuSalQ9Ih6ZB0SDrsVjok5/X8
2NrR5DyfnCeTDjnPlek8d6Z0SOYFyXk1mSck59nLlQ5Jh5zn7pQOyfciOS8n
173JeTqZdyQdcp47VDrsUTokHZIOSYekQ9Ih57lLnecylQ5Jh6RD0iHpcIXS
IemQ81yq0iHpkHRIOiQdkg5Jh5zncpUOe5UOSYekQ9Ih6ZB0yHkuWee5ZaVD
0iHpkHRIOlypdEg65Dy3rXRIOiQdknl40iHpkHTIeW5d6XCV0iHpkHRIOiQd
kg45z+3rPNevdEg6JB2SDkmHq5UOSYec9xqUDkmHpEPSIemQdEg65LzXoXTY
p/wMJV1yDdOB5Dyf7Gdy3s95r0XnvRdlHJJ5QTIuSefkPJt0z3mvR+e9H+U8
nBwXyXk5mWck45zMO3Lea9J570npcI3SIemQdEg6JB2SDjnvfem8F6Z0SDok
HZIOSYekQ857bzrvxSkdkg5Jh6RD0iHpkPPen857gUqHa5UOSYekQ9Ih6ZB0
yHkvUue9SaVD0iHpkHRIOiQdct4L1XlvVOmQdEg6JB2SDkmHnPdidd6bVTpc
p3RIOiQdkg5Jh6RDznvDOu8VKx2SDkmHpEPSIemQ8960znvVSoekQ9Ih6ZB0
SDrkvDeu81650mG//h8HAlAr
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt1nkwlu3/8HGRbhFKkVZrSoksbZZOodAisrQIpUJRVCpLiFSyL1lC9r3s
[encoded data, 12180 characters]
8s4P2Ra2t08gtR90XpxSItjBBSdfqDuC/wslVNRJ
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs13k0l238wHkUIkkokiURRVKpRPEt+5YoJWQpFJHIUrLvlH2nhEKoZCmy
[encoded data, 53820 characters]
eOdiZOLpWHQfzV1Kn5HTzCLu8saDh714nuklgpdcpNRCksD/A9uossQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJys13VQlW30N3oURFIRRZASxaBDQREJAVEQEBCDxkBCUEG6BBUQQSmV7u7u
[encoded data, 49140 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJx02nc41m34P/AQGanISEZZUUZZoZIUyUhGhMpIhGSPkLKJbMpe2SN7j4vb
[encoded data, 93360 characters]
/NjrU/WZaD8HwkJ+Fvg/CuATsw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJzs3Wk0kO37L3xCKqVMRUkkCVHKUIYuMxUyCxGFzEmSMSmZaaJMZZZZyDyc
[encoded data, 35280 characters]
XvTgMxWtz/JOHeuHs1GMjflYPeOf3gus4KJN0WeRbOD/AXDydpY=
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Log[10,MI[X3,X4]/MI[X1,X4]]\"", TraditionalForm], None}, {
        FormBox["\"Log[10,MI[X1,X2]/MI[X1,X4]]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-5, 5}, {-5, 5}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7725262358131733`*^9, 
  3.772526265604518*^9}},ExpressionUUID->"b0481113-61a3-46c2-a9c7-\
58c86b4a1a2c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "LEqLine1", ",", "LMMM1", ",", "LMMM2", ",", "LMMM22", ",", "LMMM3", ",", 
     "LMMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.2", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log[10,MI[X1,X2]/MI[X1,X4]]\>\"", ",", " ", 
      "\"\<Log[10,MI[X3,X4]/MI[X1,X4]]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
  3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
  3.771929457794732*^9}, {3.7725211140467944`*^9, 3.772521115227812*^9}, {
  3.7725259641715803`*^9, 3.772526119018046*^9}, {3.7725261834696846`*^9, 
  3.772526195978644*^9}},ExpressionUUID->"b53650aa-0b1b-4662-9ce5-\
04f2d49b8cbe"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3EvM5fccx/HHpUVdWtSdMVWXcasGCwvDxIaFhdqw6GIIjcTCWEikLJ5F
[encoded data, 5160 characters]
sR24fa8e24Hb9/KxHf4wbt/rx3bg9vuCcft9w9gO3H7fMf4PGKL32w==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt1nkwlu3/8HGRbhFKkVZrSoksbZZOodAisrQIpUJRVCpLiFSyL1lC9r3s
[encoded data, 12180 characters]
8s4P2Ra2t08gtR90XpxSItjBBSdfqDuC/wslVNRJ
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs13k0l238wHkUIkkokiURRVKpRPEt+5YoJWQpFJHIUrLvlH2nhEKoZCmy
[encoded data, 53820 characters]
eOdiZOLpWHQfzV1Kn5HTzCLu8saDh714nuklgpdcpNRCksD/A9uossQ=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJys13VQlW30N3oURFIRRZASxaBDQREJAVEQEBCDxkBCUEG6BBUQQSmV7u7u
[encoded data, 49140 characters]

         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJx02nc41m34P/AQGanISEZZUUZZoZIUyUhGhMpIhGSPkLKJbMpe2SN7j4vb
[encoded data, 93360 characters]
/NjrU/WZaD8HwkJ+Fvg/CuATsw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJzs3Wk0kO37L3xCKqVMRUkkCVHKUIYuMxUyCxGFzEmSMSmZaaJMZZZZyDyc
[encoded data, 35280 characters]
XvTgMxWtz/JOHeuHs1GMjflYPeOf3gus4KJN0WeRbOD/AXDydpY=
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Log[10,MI[X3,X4]/MI[X1,X4]]\"", TraditionalForm], None}, {
        FormBox["\"Log[10,MI[X1,X2]/MI[X1,X4]]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-16., 17.48722905041741}, {-16., 1.}},
      PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7719281207088933`*^9, 3.7719281625992346`*^9, {3.7719294599342813`*^9, 
   3.771929476222084*^9}, 3.7721660588286047`*^9, 3.7725211241214714`*^9, 
   3.7725221455997095`*^9, 3.772525967985523*^9, 3.77252602408313*^9, {
   3.7725260619244967`*^9, 3.772526121147703*^9}, 
   3.772526198477154*^9},ExpressionUUID->"1bf2141a-213f-45e3-a8d9-\
ca5adf279aa2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "EqLine1", ",", "MMM1", ",", "MMM2", ",", "MMM22", ",", "MMM3", ",", 
     "MMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<MI[X1,X2]/MI[X1,X4]\>\"", ",", " ", "\"\<MI[X3,X4]/MI[X1,X4]\>\""}],
      "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
  3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
  3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
  3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
  3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
  3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
  3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
  3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
  3.771929457794732*^9}, {3.7725211140467944`*^9, 3.772521115227812*^9}, {
  3.7725259641715803`*^9, 
  3.772526059594034*^9}},ExpressionUUID->"9ae00d5a-e9ff-4aed-831a-\
57168e44b672"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxd3XnQdYUcwPHXK2lo7Euy74wxpjHG2Pcl+zbGGGMaY8mebCHZZd9SkjUh
[encoded data, 9240 characters]
PwlBpj8=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJzt13kw1f3f+HG7smVJyJZCUaiQJfU+qSSXKIkQKrKHRGVJKhWSCsmWkDW7
[encoded data, 12060 characters]
gw==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJzs22k01W/88HvJVCEZIiTJGMk8c2UsQoQiQxHKEJGEVEgZQxGSJqFQlAiJ
[encoded data, 53760 characters]
2i/hhcHb/MkG9pR/nB0YfRAM/xecdwZM
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJys13c4l2/8N34rkZJKhBIiERKihDOFIjsrMyNkZSUjKjKyUiHZK3tl7733
[encoded data, 49020 characters]
9xYr2xGu0VdJqsyH/wXHfI3J
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJx013c8lm/4P34rokJCtkIZ2bOsMyPZIZklo4iMyN47lRUSQqJEZkJSyV4J
[encoded data, 93540 characters]
e7+LphD+D+5NaAA=
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.6, 0.4, 0.2]], 
        PointBox[CompressedData["
1:eJzs13c01n8cP3yzZKWSJGUrkhWl+bqSNFDISpEkCglJVpK9kp0kK0myKiHZ
[encoded data, 35280 characters]
/wO33x8q
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.6, 0.4, 
          0.2]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"MI[X3,X4]/MI[X1,X4]\"", TraditionalForm], None}, {
        FormBox["\"MI[X1,X2]/MI[X1,X4]\"", TraditionalForm], None}}, 
     FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\"\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{0, 3.070641042288866*^17}, {0, 3.7707671169383463`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Equality Line\"", "\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""},
       "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.6, 0.4, 0.2]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7719281207088933`*^9, 3.7719281625992346`*^9, {3.7719294599342813`*^9, 
   3.771929476222084*^9}, 3.7721660588286047`*^9, 3.7725211241214714`*^9, 
   3.7725221455997095`*^9, 3.772525967985523*^9, 3.77252602408313*^9, 
   3.7725260619244967`*^9},ExpressionUUID->"5dcb52c8-36e8-4fce-acb8-\
da666b6b9239"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting Mutual Information at different signal intensities", \
"Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717550341040754`*^9, 3.771755042491076*^9}, {
  3.771905275104765*^9, 3.7719052782248898`*^9}, {3.7719072537923517`*^9, 
  3.771907255712274*^9}, {3.7719260830105343`*^9, 3.7719260918105755`*^9}, {
  3.7719276142693405`*^9, 3.771927616239664*^9}, {3.77192850678555*^9, 
  3.7719285095352736`*^9}, {3.772163205528574*^9, 3.772163210120576*^9}, {
  3.772166278086356*^9, 
  3.7721662842303543`*^9}},ExpressionUUID->"fb58408f-0890-49bf-ac80-\
189fb84fdd16"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 
  3.7717438210269485`*^9},ExpressionUUID->"30faa8ea-0398-4f5f-96e3-\
f73d866d6fff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"step", "=", "0.05"}], ";"}]], "Input",
 CellChangeTimes->{{3.7721695141090155`*^9, 
  3.7721695189003563`*^9}},ExpressionUUID->"2e49106d-d09d-4788-afc1-\
118c6254bab9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Gray", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow",
     ",", "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 
  3.762162734410307*^9}},ExpressionUUID->"55b86207-6d98-46cd-ad8e-\
c5cfa9df28c5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.33333333333333337`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0.5],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719290111048517`*^9, {3.7719290691948094`*^9, 3.7719290922946167`*^9}, 
   3.772166305891839*^9},ExpressionUUID->"1ab3abd7-7b3e-41d7-81ae-\
04dc2894fa26"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M2/M1\>\"", ",", " ", "\"\<M2'/M1\>\"",
      ",", " ", "\"\<M2'/M2\>\"", ",", " ", "\"\<M3/M2\>\"", ",", " ", 
     "\"\<M3/M2'\>\"", ",", "\"\<M4/M3\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 
   3.762674167944764*^9}},ExpressionUUID->"9f6ddaa8-2b20-4609-aab6-\
d180b3e4331b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"3d97011d-312e-4db3-b85f-\
ff3a3a943617"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParValsC1M1", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "26"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.772166330825371*^9, 3.772166370392387*^9}, {
  3.7721666259768515`*^9, 
  3.7721666412225676`*^9}},ExpressionUUID->"624b7cbf-5c80-4200-8ebb-\
626e478f845b"],

Cell[BoxData[
 RowBox[{"x5", "\[Rule]", "62.16843969921705`"}]], "Output",
 CellChangeTimes->{{3.7721663397733173`*^9, 3.772166370734373*^9}, {
  3.772166626290843*^9, 
  3.7721666417335324`*^9}},ExpressionUUID->"c0e0f825-51f7-4e89-854f-\
d1a11dc5f811"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParValsC2M1", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "27"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{3.772166376806923*^9, 
  3.7721666306959295`*^9},ExpressionUUID->"04fd7053-abb7-4446-b285-\
7f4d2cddf436"],

Cell[BoxData[
 RowBox[{"x6", "\[Rule]", "1.226625776374811`"}]], "Output",
 CellChangeTimes->{3.77216639918637*^9, 
  3.7721666309895315`*^9},ExpressionUUID->"bebfa845-6881-49cf-aad2-\
63f33b21cf25"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM1X4x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C1M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C2M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM1X2x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C1M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C2M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7721667016701837`*^9, 3.772166723785184*^9}, {
  3.7721672468707423`*^9, 
  3.7721672504868097`*^9}},ExpressionUUID->"76220cff-8db9-4d57-b692-\
9297f33daa47"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Min", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], ",", 
   RowBox[{"Max", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.772166741688238*^9, 
  3.7721667748231845`*^9}},ExpressionUUID->"c737955c-b7e6-4181-92bb-\
3eae3992fb67"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "3.999398452233261`"}], ",", "3.988024271180213`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.772166759259184*^9, 3.772166775870184*^9}, 
   3.7721672518769436`*^9},ExpressionUUID->"6f422cac-c7f6-4534-aa6f-\
8afa169ea011"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Min", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", 
   RowBox[{"Max", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.772166783545087*^9, 
  3.772166786377082*^9}},ExpressionUUID->"7944eac4-16d0-423c-b79f-\
61868326f6c5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "3.999431027952223`"}], ",", "3.955945480290164`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7721667867940817`*^9, 
  3.7721672525509434`*^9},ExpressionUUID->"74933fc4-00d6-4bb1-946a-\
81c88d79369d"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MIM1X2X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM1X4X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", 
     RowBox[{"-", "4"}]}], ",", 
    RowBox[{"i", "<", "4"}], ",", 
    RowBox[{"i", "=", 
     RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"AA1", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM1X4x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AA2", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM1X2x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB1", "=", 
      RowBox[{"Total", "[", 
       RowBox[{"AA1", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB2", "=", 
      RowBox[{"Total", "[", 
       RowBox[{"AA2", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM1X4X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM1X4X5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"step", "/", "2"}]}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "BB1"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM1X2X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM1X2X5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"step", "/", "2"}]}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "BB2"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM1X2X6", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM1X4X6", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", 
    RowBox[{"-", "4"}]}], ",", 
   RowBox[{"i", "<", "4"}], ",", 
   RowBox[{"i", "=", 
    RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AA1", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM1X4x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AA2", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM1X2x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB1", "=", 
     RowBox[{"Total", "[", 
      RowBox[{"AA1", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB2", "=", 
     RowBox[{"Total", "[", 
      RowBox[{"AA2", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM1X4X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM1X4X6", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "+", 
          RowBox[{"step", "/", "2"}]}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "BB1"}], "]"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM1X2X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM1X2X6", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "+", 
          RowBox[{"step", "/", "2"}]}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "BB2"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.772166729384184*^9, 3.7721667391442156`*^9}, {
  3.7721667951261377`*^9, 3.772166849925666*^9}, {3.772167038598857*^9, 
  3.7721670933188577`*^9}, {3.7721692497374477`*^9, 3.7721693055412807`*^9}, {
  3.7721695346806817`*^9, 
  3.7721695719261894`*^9}},ExpressionUUID->"0fbe0643-4fe9-4e01-aebe-\
fe3aea79acad"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParValsC4M2", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "26"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7721674694007273`*^9, 3.7721674748217278`*^9}, {
  3.772167518120631*^9, 
  3.7721675262132187`*^9}},ExpressionUUID->"17455fad-7e09-4d11-ad36-\
569393edbe27"],

Cell[BoxData[
 RowBox[{"x5", "\[Rule]", "0.3369303879346971`"}]], "Output",
 CellChangeTimes->{{3.772167470341728*^9, 3.7721674751317286`*^9}, {
   3.7721675185225735`*^9, 3.77216752685618*^9}, 3.772169288345489*^9, 
   3.7721695854287305`*^9},ExpressionUUID->"715189d8-c343-47a2-821c-\
1e9e5cd7141f"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM2X4x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C1M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "28"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C3M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C4M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM2X2x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C1M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "28"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C3M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C4M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7721667016701837`*^9, 3.772166723785184*^9}, {
  3.772167206615038*^9, 3.772167328120644*^9}, {3.772167486330551*^9, 
  3.772167500694332*^9}},ExpressionUUID->"b497588d-825b-4253-9aa4-\
c0d3edf09867"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Min", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], ",", 
   RowBox[{"Max", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.772166741688238*^9, 
  3.7721667748231845`*^9}},ExpressionUUID->"9fb075ab-0f89-4e78-955f-\
a4ea00deda8d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "3.999398452233261`"}], ",", "3.988024271180213`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.772166759259184*^9, 3.772166775870184*^9}, 
   3.772167259845049*^9, 3.772167330123644*^9, 3.7721673833405294`*^9, 
   3.7721675356211815`*^9, 3.772169288660489*^9, 
   3.7721695856987305`*^9},ExpressionUUID->"ec00ce38-41ec-4075-96c7-\
f32741b400e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Min", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", 
   RowBox[{"Max", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.772166783545087*^9, 
  3.772166786377082*^9}},ExpressionUUID->"64617005-5606-491c-9e54-\
3fc8cab71398"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "3.999431027952223`"}], ",", "3.955945480290164`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7721667867940817`*^9, 3.7721672599850492`*^9, 
  3.772167330899644*^9, 3.7721673834505324`*^9, 3.772167536635585*^9, 
  3.772169288797488*^9, 
  3.77216958582673*^9},ExpressionUUID->"fe55817c-161d-4678-990f-486fdd075b52"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MIM2X2X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM2X4X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", 
     RowBox[{"-", "4"}]}], ",", 
    RowBox[{"i", "<", "4"}], ",", 
    RowBox[{"i", "=", 
     RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"AA1", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM2X4x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AA2", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM2X2x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB1", "=", 
      RowBox[{"Total", "[", 
       RowBox[{"AA1", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB2", "=", 
      RowBox[{"Total", "[", 
       RowBox[{"AA2", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM2X4X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM2X4X5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"step", "/", "2"}]}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "BB1"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM2X2X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM2X2X5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"step", "/", "2"}]}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "BB2"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM2X2X6", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM2X4X6", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", 
    RowBox[{"-", "4"}]}], ",", 
   RowBox[{"i", "<", "4"}], ",", 
   RowBox[{"i", "=", 
    RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AA1", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM2X4x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AA2", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM2X2x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB1", "=", 
     RowBox[{"Total", "[", 
      RowBox[{"AA1", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB2", "=", 
     RowBox[{"Total", "[", 
      RowBox[{"AA2", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM2X4X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM2X4X6", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "+", 
          RowBox[{"step", "/", "2"}]}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "BB1"}], "]"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM2X2X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM2X2X6", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "+", 
          RowBox[{"step", "/", "2"}]}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "BB2"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.772166729384184*^9, 3.7721667391442156`*^9}, {
  3.7721667951261377`*^9, 3.772166849925666*^9}, {3.772167038598857*^9, 
  3.7721670933188577`*^9}, {3.77216733386362*^9, 3.7721673728715553`*^9}, {
  3.7721677441373634`*^9, 3.772167745718364*^9}, {3.7721692943646164`*^9, 
  3.772169334709856*^9}, {3.7721695823756375`*^9, 3.7721696042124553`*^9}, {
  3.772169634921506*^9, 
  3.7721696491275063`*^9}},ExpressionUUID->"19dd84d1-bdf9-4aaa-9635-\
ea1ccfffdbd1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParValsC5M22", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "29"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.772167604247967*^9, 
  3.772167631892969*^9}},ExpressionUUID->"607cba9c-1e6a-40cd-9e01-\
d14643f4b5c8"],

Cell[BoxData[
 RowBox[{"x5", "\[Rule]", "0.0001179733150244658`"}]], "Output",
 CellChangeTimes->{{3.772167607667001*^9, 3.77216763216697*^9}, 
   3.772167757312397*^9, 3.77216934542735*^9, 
   3.7721696695935674`*^9},ExpressionUUID->"e46b52db-a852-4e6c-86df-\
dc8b879e9ab6"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM22X4x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C2M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "28"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C3M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "30"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C5M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM22X2x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C1M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "28"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C3M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "30"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C5M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7721667016701837`*^9, 3.772166723785184*^9}, {
  3.772167206615038*^9, 3.772167328120644*^9}, {3.7721673985693245`*^9, 
  3.772167441735105*^9}, {3.7721675565839677`*^9, 3.7721675933509674`*^9}, {
  3.772167640438484*^9, 
  3.7721676859910417`*^9}},ExpressionUUID->"5d80fd75-2c77-4a57-8b1f-\
467a19d6b422"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Min", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], ",", 
   RowBox[{"Max", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.772166741688238*^9, 
  3.7721667748231845`*^9}},ExpressionUUID->"fb8e196f-51d8-4e0f-ba9f-\
0f4a89e40712"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "3.999398452233261`"}], ",", "3.988024271180213`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.772166759259184*^9, 3.772166775870184*^9}, 
   3.772167259845049*^9, 3.772167330123644*^9, 3.7721673833405294`*^9, 
   3.772167691571042*^9, 3.7721677575673633`*^9, 3.7721693456803503`*^9, 
   3.7721696698492794`*^9},ExpressionUUID->"d8dbba70-f478-48c2-8f57-\
0df5302be2a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Min", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", 
   RowBox[{"Max", "[", 
    RowBox[{"TM1X2x5", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.772166783545087*^9, 
  3.772166786377082*^9}},ExpressionUUID->"dd7db1c6-4701-4273-b472-\
8a0217cbc5cc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "3.999431027952223`"}], ",", "3.955945480290164`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7721667867940817`*^9, 3.7721672599850492`*^9, 
  3.772167330899644*^9, 3.7721673834505324`*^9, 3.7721676924635644`*^9, 
  3.772167757690364*^9, 3.7721693458023496`*^9, 
  3.77216966997528*^9},ExpressionUUID->"b339e0fb-e15c-4419-a9ef-4d3f181a27ea"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MIM22X2X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM22X4X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", 
     RowBox[{"-", "4"}]}], ",", 
    RowBox[{"i", "<", "4"}], ",", 
    RowBox[{"i", "=", 
     RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"AA1", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM22X4x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AA2", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM22X2x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB1", "=", 
      RowBox[{"Total", "[", 
       RowBox[{"AA1", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB2", "=", 
      RowBox[{"Total", "[", 
       RowBox[{"AA2", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM22X4X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM22X4X5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"step", "/", "2"}]}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "BB1"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM22X2X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM22X2X5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"step", "/", "2"}]}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "BB2"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM22X2X6", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM22X4X6", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", 
    RowBox[{"-", "4"}]}], ",", 
   RowBox[{"i", "<", "4"}], ",", 
   RowBox[{"i", "=", 
    RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AA1", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM22X4x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AA2", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM22X2x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB1", "=", 
     RowBox[{"Total", "[", 
      RowBox[{"AA1", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB2", "=", 
     RowBox[{"Total", "[", 
      RowBox[{"AA2", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM22X4X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM22X4X6", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "+", 
          RowBox[{"step", "/", "2"}]}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "BB1"}], "]"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM22X2X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM22X2X6", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "+", 
          RowBox[{"step", "/", "2"}]}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "BB2"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.772166729384184*^9, 3.7721667391442156`*^9}, {
  3.7721667951261377`*^9, 3.772166849925666*^9}, {3.772167038598857*^9, 
  3.7721670933188577`*^9}, {3.77216733386362*^9, 3.7721673728715553`*^9}, {
  3.772167695865655*^9, 3.7721677326303635`*^9}, {3.7721693448263507`*^9, 
  3.772169367415249*^9}, {3.772169658072094*^9, 
  3.772169695512819*^9}},ExpressionUUID->"e7a7e22d-ab31-4809-bd5c-\
737bf5cc58bc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParValsC6M3", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "25"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.77216844566879*^9, 3.7721684520845127`*^9}, {
  3.7721685885517955`*^9, 3.7721685937172823`*^9}, {3.7721686837187223`*^9, 
  3.772168688789074*^9}},ExpressionUUID->"cb2ab56d-ecb0-4043-9afe-\
da39b8949966"],

Cell[BoxData[
 RowBox[{"x5", "\[Rule]", "0.004021942471899495`"}]], "Output",
 CellChangeTimes->{
  3.772168452746339*^9, {3.772168590841796*^9, 3.772168594246281*^9}, {
   3.772168686331107*^9, 3.772168689093073*^9}, 3.772169377506135*^9, 
   3.7721697156169353`*^9},ExpressionUUID->"0eb09e20-88f6-4306-8a6c-\
9bed7faeca19"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM3X4x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C4M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "30"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C5M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "25"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C6M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM3X2x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C4M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "30"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C5M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "25"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C6M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7721667016701837`*^9, 3.772166723785184*^9}, {
  3.772167206615038*^9, 3.772167328120644*^9}, {3.7721673985693245`*^9, 
  3.772167441735105*^9}, {3.7721675565839677`*^9, 3.7721675933509674`*^9}, {
  3.772167640438484*^9, 3.7721676859910417`*^9}, {3.77216777914375*^9, 
  3.7721677832535863`*^9}, {3.7721685679900293`*^9, 
  3.7721687425352182`*^9}},ExpressionUUID->"0f0985a1-9ec5-4bc9-ab50-\
060ba309f19e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MIM3X2X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM3X4X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", 
     RowBox[{"-", "4"}]}], ",", 
    RowBox[{"i", "<", "4"}], ",", 
    RowBox[{"i", "=", 
     RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"AA1", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM3X4x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AA2", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM3X2x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB1", "=", 
      RowBox[{"Total", "[", 
       RowBox[{"AA1", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB2", "=", 
      RowBox[{"Total", "[", 
       RowBox[{"AA2", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM3X4X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM3X4X5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"step", "/", "2"}]}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "BB1"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM3X2X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM3X2X5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"step", "/", "2"}]}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "BB2"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM3X2X6", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM3X4X6", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", 
    RowBox[{"-", "4"}]}], ",", 
   RowBox[{"i", "<", "4"}], ",", 
   RowBox[{"i", "=", 
    RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AA1", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM3X4x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AA2", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM3X2x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB1", "=", 
     RowBox[{"Total", "[", 
      RowBox[{"AA1", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB2", "=", 
     RowBox[{"Total", "[", 
      RowBox[{"AA2", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM3X4X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM3X4X6", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "+", 
          RowBox[{"step", "/", "2"}]}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "BB1"}], "]"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM3X2X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM3X2X6", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "+", 
          RowBox[{"step", "/", "2"}]}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "BB2"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.772166729384184*^9, 3.7721667391442156`*^9}, {
  3.7721667951261377`*^9, 3.772166849925666*^9}, {3.772167038598857*^9, 
  3.7721670933188577`*^9}, {3.77216733386362*^9, 3.7721673728715553`*^9}, {
  3.772167695865655*^9, 3.7721677326303635`*^9}, {3.7721687550626783`*^9, 
  3.7721687897665462`*^9}, {3.7721693739761353`*^9, 3.7721693948229585`*^9}, {
  3.7721697041197987`*^9, 
  3.772169739158986*^9}},ExpressionUUID->"589f71db-09c4-4e83-a81e-\
89265ddc7078"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM4X4x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{
           RowBox[{"ParValsC6M3", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "25"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{
           RowBox[{"ParValsC6M3", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"C6M4MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM4X2x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{
           RowBox[{"ParValsC6M3", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "25"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{
           RowBox[{"ParValsC6M3", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"C6M4MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7721667016701837`*^9, 3.772166723785184*^9}, {
  3.772167206615038*^9, 3.772167328120644*^9}, {3.7721673985693245`*^9, 
  3.772167441735105*^9}, {3.7721675565839677`*^9, 3.7721675933509674`*^9}, {
  3.772167640438484*^9, 3.7721676859910417`*^9}, {3.77216777914375*^9, 
  3.7721677832535863`*^9}, {3.7721685679900293`*^9, 3.7721687425352182`*^9}, {
  3.772168804582975*^9, 
  3.772168831685835*^9}},ExpressionUUID->"ae44358c-40a7-4be8-97e2-\
5fad4b4808a0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MIM4X2X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM4X4X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", 
     RowBox[{"-", "4"}]}], ",", 
    RowBox[{"i", "<", "4"}], ",", 
    RowBox[{"i", "=", 
     RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"AA1", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM4X4x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AA2", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM4X2x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB1", "=", 
      RowBox[{"Total", "[", 
       RowBox[{"AA1", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB2", "=", 
      RowBox[{"Total", "[", 
       RowBox[{"AA2", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM4X4X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM4X4X5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"step", "/", "2"}]}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "BB1"}], "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM4X2X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM4X2X5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"step", "/", "2"}]}], ",", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "BB2"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM4X2X6", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM4X4X6", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", 
    RowBox[{"-", "4"}]}], ",", 
   RowBox[{"i", "<", "4"}], ",", 
   RowBox[{"i", "=", 
    RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AA1", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM4X4x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AA2", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM4X2x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB1", "=", 
     RowBox[{"Total", "[", 
      RowBox[{"AA1", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB2", "=", 
     RowBox[{"Total", "[", 
      RowBox[{"AA2", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM4X4X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM4X4X6", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "+", 
          RowBox[{"step", "/", "2"}]}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "BB1"}], "]"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM4X2X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM4X2X6", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"i", "+", 
          RowBox[{"step", "/", "2"}]}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", "BB2"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.772166729384184*^9, 3.7721667391442156`*^9}, {
  3.7721667951261377`*^9, 3.772166849925666*^9}, {3.772167038598857*^9, 
  3.7721670933188577`*^9}, {3.77216733386362*^9, 3.7721673728715553`*^9}, {
  3.772167695865655*^9, 3.7721677326303635`*^9}, {3.7721687550626783`*^9, 
  3.7721687897665462`*^9}, {3.7721688345505342`*^9, 3.7721688668388834`*^9}, {
  3.7721694008079634`*^9, 3.772169421799313*^9}, {3.772169747355878*^9, 
  3.7721697815427737`*^9}},ExpressionUUID->"fa5c8557-d15d-451d-aa30-\
82b69829b737"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "4"}], ",", "4", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 3.7719086421117244`*^9}, {
   3.771926677310216*^9, 3.7719266843226957`*^9}, {3.771926853350051*^9, 
   3.7719268561977205`*^9}, 3.77192803698125*^9, {3.7719294668645315`*^9, 
   3.771929471574672*^9}, {3.7721688979294205`*^9, 3.7721688994774933`*^9}, {
   3.7721694682795167`*^9, 
   3.772169478902491*^9}},ExpressionUUID->"4f691278-4bc6-4129-90d8-\
05586e98cd64"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0.85", ",", "0.35", ",", "0.85"}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.7719280428692703`*^9, 
  3.771928043729396*^9}, {3.772166020797779*^9, 3.7721660523936048`*^9}, {
  3.772169831542903*^9, 
  3.772169832467861*^9}},ExpressionUUID->"9821b9ee-7ad9-49ae-8c03-\
546a424a5ce9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.85, 0.35, 0.85], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5666666666666667, 0.23333333333333334`, 0.5666666666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.85, 0.35, 0.85]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.85, 0.35, 0.85],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719280471193595`*^9, 3.7719281608792453`*^9, 3.7719294228444295`*^9, 
   3.771929472994604*^9, {3.7721660214707785`*^9, 3.7721660530076046`*^9}, {
   3.7721688938434563`*^9, 3.7721689014628286`*^9}, 3.772169426307313*^9, 
   3.7721697885856647`*^9, 
   3.77216983308383*^9},ExpressionUUID->"fd04a004-cde1-4c0c-88bc-\
0fd39a7ce059"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", " ", "\"\<M2'\>\"", ",", " ", 
     "\"\<M3\>\"", ",", "\"\<M4\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.7719280508996906`*^9, 3.771928063699057*^9}, 
   3.772170115926691*^9},ExpressionUUID->"10078a24-50a7-4e12-b779-\
f68b13c77361"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"b498fa5c-f0e4-4229-99c7-\
a4776e6f0ee3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "MIM1X4X5", ",", "MIM2X4X5", ",", "MIM22X4X5", ",", "MIM3X4X5", ",", 
       "MIM4X4X5"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Phosphorylation Signal]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X1,X4]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "MIM1X2X5", ",", "MIM2X2X5", ",", "MIM22X2X5", ",", "MIM3X2X5", ",", 
       "MIM4X2X5"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Phosphorylation Signal]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQLbfAJ4hd6o3jPNM7ESB6cndeJohOar4Eph/5x14E
0ayni26C6KzAAmUOIG3w3FcDRLN0z3vEC6TFtgu9A9EO62ewhQPpo97RoiC6
b5qjXgSQPtF7FUzb7dhkCqIFUr65gOjDjxaJJgLpGo0lsiBa0zNSGUTH9Tqr
guibcw0OgWgJp4fHQHT0wpScJCBdlGeZB6Idf3LFXAfS77RXZ4PoPfnrF4Lo
cBORRSBaeGfWaRD9JmY9mJ7b+/ECiP7kl38VREf9yL8N1u8qcR9EzylsZroB
pJliOVhA9FT2uUYg2kjuJZgGABQQibw=
  "],ExpressionUUID->"7d68e640-1553-456f-ba0d-675965278415"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{GraphicsBox[{{}, {{{}, {}, {
          Hue[0.67, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJxF1AtQVFUYAOB9svISHCUTkCQdlBQbHgsCOv/F3QwcRUCLHos6KKChEij5
yDLEBJ3QEh8I4mKijja+K5HUc5RK8wGzImIgCOwKpDxcBGT33ru0+1/bzszO
zj/nnu+/95zz/77JGQkpEpFItM76s/3fu2sbbvRGUHVg+DwW0lJtw41ypzx8
G5U8iEW24UYXGxy3JbtzUHLQNkbSWXVVPcxaFpTBtjGS5pw+FrFHwkENeq40
5kn3l6fHmGAleq70zexZu+t+ZEGKnisV90gmlsg4KEXPhbZKNBPGOfEQhp4L
PTwQfSKzhAUdes5UdlXa4dLAQjp6zrTIXV066MSBHD1n6r1TWzT7Yw606DnR
3D6HaGMqC+HoOdH8EA/XonQeatFzpGUu2vxQKQ+r0XOk4zQnHz8p40GBniNd
xhuyWo+ycAS9EXQgr7jt7ToWItEbQevNovRKDw7q0FPQ4Kx3/1DUcJCBnoKm
bBqclDyHA0f0FDTucu5nPddYOIqeA/W6mVive8rBLPQcaILBK9InkYN69OR0
Sphi0x0NC5noyWlAysCFrrMsOKMnpxFhxju75BwcQ09G5YWZDbnrWQD0ZHTN
pXZjgpKFv9GT0u1Okc/bfmNhLXpSqhubY3h5lwdX9KS02UXhsduPgxPoSWjr
xKrK2/kcRKEnoRqt594VRTw0oiem8d/7Rcc3mSEbPTFdvrRyPnXjwQ09Md2X
dMZfYz2fk+iJ6LyNrYbzURyo0BPRfklF2KkvTFCJ88Pk2HWnqGBPFrrRt5Cs
2JmrButZmICehbyXct17+i0WFuJ6nszueqhLs8bbMT9HdEl5BWWXObiMHkv0
7uMlygYTdKFnJtO33lTtKmLhLfTMJG7K8K3Nz0yQgJ6J3NKcnrZqFAffojdE
nPy2fT5WwkIFeq8IXzFn7wQFC8/RGyTTyLzji/Qs+KA3SEo2lBgPvDJBPHoD
RK31y+vpMMM29PqJyr8mrHUzC5fQe0mWrN+wMH+LGZ6h10eOx0ft+TrOBOPR
6yPXdvx1L7CXhTj0jKTc95zfhwEc5KL3ghTmPsi++r4J0nG+lygf74zuiDSD
Dv1uUnx70lf757MQhl4XWRm1xtNjgRlKcf0zkhxbODvgA2s9YgPoJEcOVX3X
XsDCSvQ6SPfUiItXSkxQg95T4pNV5ZmRba139AxE37dkpvF3az9Ar40cXd+Q
U3fDBGL0Wkha1xW3b5o4qMb5ZhL99P75gH3W59FvJOqWGItvHw8r0HtELo32
kHMJFlDi+gekSlVoWNbIg6TYll9HDp7VTxwaawGt0LDIvqXB/eUhPIRjw/qT
xPSohwoWDUMtepQEjcn7IWaziHkUYst3kdwf1+Ye2CRippfhB5EZzuGrI0pF
jEMhxmApH+WpWyxmdgXi85CmvBr0aYWY0ViGrYPANfeYWJ8cCbM3BfOBr9pz
TaxYwrB38H0go7uHvlMtYQKR04Hv2k2TD+RImeU4/QDSKl8UtJ6RMgds3HA9
HE/9pDdmroy5HYT7AUkyr5YxZTKGR78ZpqoMq/v95UwRrm+Bk0xiW6a7nAkS
9hvWDeS9rLkuY+6ip4c31D/NLdcMQqpwXoDbIHoBIuE8Qaw6lziY1A7F6HXC
lgv6goVqI4QI9wEsG7Vxo9V6qEbvuT1eIdwnCK31utIY2gMS4b6B6tAhF+WM
TogV7iPwdQv2T97RDJ7CfbXn60DPCHxo75B3exf8LNx3WNd0+CP/h3rIEerB
vl7w+u2xl1BPMPz6fTrR+y+uhV+EerTn2yrUK+Rrz+VtL82FBUI925/3Furd
/n3/oPd//KvQL17HtZAr9JPX+ykSxQn9xh7/C2OakIY=
           "]], 
          
          LineBox[{{1.8749999999999951`, 0.}, {1.9249999999999952`, 
           0.47712125471966244`}, {1.9749999999999952`, 0.6020599913279624}}], 
          LineBox[{{2.174999999999995, 0.}, {2.2249999999999948`, 0.}}], 
          
          LineBox[{{2.474999999999994, 0.3010299956639812}, {
           2.5249999999999937`, 0.}}], 
          LineBox[{{3.1249999999999916`, 0.}, {3.1749999999999914`, 0.}}]}, {
          Hue[0.9060679774997897, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          LineBox[CompressedData["
1:eJwt1AtUzFkYAPD/nUyvKS3RifTy2qzHbpG00ncpG8sh1gp5bVsekSSbUyuP
npwQaYVMU8ezJUQhlnsti01JIlqrtduUivQwNU010858/75z5syZc+f+vvu/
/+/7nIPCF4ZIBEHYqv8YvktLDGHFSzNcIpYvI3TtGkNY8f0XQv80Gy2hRDCE
Fd8ykjTcfUVo5jFD9OcTi+TKG5xQ94mG6M9jkgZWLs4ntAw9Sz5zRFCrMJLQ
9ehZcrel3ifeHCLUCD1Lfv5hyuncCRIqR8+C59een739CqEe6FnwgTafvWdJ
hJajJ+N3dMrA5mRCN6An4x/TQz8yNwmVoifjB1c3Fnu1EKpAz5y/OBNsG3Ce
UE/0zPmJ9J/LB+nzVaBnxm21477a0ERoGHpmPKSnQ7nHX0JN0DPjmmFfWLrr
nzcHPVO+Yq9mnWsNoVPRM+ULnKbcTq8l9AV6JrzsclbOuExCw9Ez4eXBR5Mm
O0ioGXomnC06mRsaS+hJ9Iz5EkXB6GL9/U1Dz5iblsZ3rdXne4melIeqR4y/
d4vQCPSk3JiXWO/4g1AZelI++6BDSlwZoafR68cT/KaRojxCAb1+PDzZLeps
BqFV6BnxvDNDIjU9hEaiZ8T3ZdrMkj0j1BI9Iz506dcXb5YQehY9Cf8hyej2
23JCp6Mn4asqnXdUxBP6Gj3C+6d07g3zJ/Qn9AifUeXd8KONhFqhR7jTWI+G
CP16LnoCX/l0nu7SFEJ90BO45IHfuWsrCb2J670sxCWwJh8IbUJfx2KeHXkS
EkGoE3o6VrboTV6aO6Hf4X4tq8q2P2xnS2gS5u9hjl3HS7MJoUXodbN8izFR
mZsE+gG9LrZC+iAsyJhQR/S62OCs4XW5+wS6ED0NO7bKWPrIhtBE9DqZ4naV
vlgJvYGemiW0O3ouixPoe/Q6mOv9yu45poQ6oNfBzgXsOHRrmkAXoNfOEnc/
ji+oEGgCeiq2rXiLxSn9ea6j94lVe6Tkx8oE2oheGxujW+JjntML9ui1sdzA
Q3OvFAnUH71WVp27/l3ERoHGo9fCsqKNYhxTdbAB15uZ8Tmv0OjYXihHv4nZ
RQWkxHr3ggd6H9hqt4MHVL69IMf9jexq6qGcshc6MMIBUM9k2QltwWU6WI/e
O7bKb8CWk5oeKEOvlqmreyCyRwvu6CnZPh+vuNS/tJCJ3n+sfqXUW22rBYLe
W5b97XhFmq8WnuB6NasI2Vh46UYPZKL/mo01adNOf6ODdei9YrOWSOsaHfU+
7n/Ous/Mejw3uBskxw35y5myNWHjrsBuUIgDi3nvqLg3KkYDnjiwHrC7UW7Z
quQuqECPs9Equ6COQT3wapIh31W2ae3CguhCDUzIxgdis5t+lTtmd4HxYfwN
vzn4feNX1wkHXPH/8KiCVE5SdsJyXa8+GHy//VTh5sROSA/BfOD+rLJl3M4O
6H6M5wHZhcMZ//qowRW5cth83+XLZWZqCMbl53BxzeLBJ2aqIMPA9b6E2jXC
UucsFRS74X1A58M8r0ET2kGLfjXE7g6eKc9ogaO4/y28nvFLmDyjHdzE+wYh
dbmz/wAVlKBXA7/LI6znWXyCNeL7gr/ndBdsclaBIL5PuD786c6hZc1wHL16
uOhbMrShRQWTxHqAUS7HBbewZniC3nuonMb+sb7VBuvEeoLQ/U7qg5I2kIj1
BmkByRumK5phnliPUON/oO28RglDxXoFq2HmnuOEeniHXiss2HPnWo26FQrE
eof+NuHjJ6bVwm6xH+CU9ShIOabs8/Tn9rkc0LGiDuzEfoKtFnOm2E+uh3r0
2qE3WuFv7VsDhWI/gu7stkh5XT3Eif0KexSXk5Pk8TBf7GcwO3OiJGiIEoaJ
/Q72U5cV7kqshwb0NKDr866J8wK0L+Yf+XxvNcSL86QvXwX4i/MGhL74H6pc
cW4=
           "]], 
          
          LineBox[{{1.8749999999999951`, 0.}, {1.9249999999999952`, 
           0.47712125471966244`}, {1.9749999999999952`, 0.8450980400142568}}], 
          
          LineBox[{{2.174999999999995, 0.}, {2.2249999999999948`, 
           0.3010299956639812}, {2.2749999999999946`, 0.}, {
           2.3249999999999944`, 0.2550206609926158}}], 
          
          LineBox[{{2.474999999999994, 0.3010299956639812}, {
           2.5249999999999937`, 0.}}], 
          LineBox[{{3.1249999999999916`, 0.}, {3.1749999999999914`, 0.}}]}, {
          Hue[0.1421359549995791, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          LineBox[CompressedData["
1:eJw91AlMVFcUAND/hnVYrQQVxDVUizsoLlW8T0VqRYuihUqhigs60KItAdRq
K7iiogK2UGUrKKAVoxWtKM17QDDiAgFUxIWg4oDDqMwMDtssZe43vcnPz897
79yZ/++9Y9ZvDdwkEQQhbuAy3e/fM4UjDzwx9fnyhYRujjCFIw/TuinXvSGU
CKZw5I8mVuxwvkvo6T9M4cA9ujw2V/xMqPd0UzhwbXjB7n0qQmvRs+cz2pv3
9+8lVIaePdd5bHv77hihZujZ84Setbp0QUKz0LPji/WfmbctIHQWenZ8oXl1
nvltQuvQs+V9DY76wChCo9Cz5fHJdVVFn0qoBXq2PCss8pOUZEJz0LPhkxzq
X88dIqFz0LPhQ5bcG5vdTWgDelK+7vKusjsHCP0BPSkP/mVnoTxEQq3Qk/L0
UycT+3MJ/RM9ax5S3fiXO5HQuehZ8+sbIyo1eYQ+RM+KD33hUXDBUkK3omfF
GxxeSrOsJFSKnhWP97k6W28UaD56lvwLr9Uku5BQH/Qs+b8K3yZrqYQ2omfB
j8+6mrSwndAf0bPgjyHztFkBobboWfAypa8DSyf0LHrmPG952HjnSkIBPXPu
dahJOSWT0Cb0zPiESa3O+R2ExqBnxo/IC2M2ziXUHj0zrpc1jcqIJLQQPQlv
SXJ/ObyM0AXoSXiK7OYsC2tCn6JH+EZhHvMeR2gseoTHDX60O6WUUEf0CI+1
1gpLAwk9h57Apb/FnbcZS+gi9ARe1Thl0Bp/Qm/gupG55CZ4OicR+hZ9A3Ot
Tjt+8YJAR6NnYKsCnkRtH8i/Cs/r2TzPMO+AAIEewPw6Fj7txobpiwVail4/
08jmPPfPEKgSvT7290lZyZ75hI5Cr48Fh+Y9dbMhNBC9XlZg3fvuyDWB7kev
h8Hd8feL4wR6Hb1utts2+kVstxE60NOy3PD7j2NvCnQkelo2/XLs2kPfGmEl
eh+YwrK44qhaoPvQ62LpWYsGFQYJ9B/0NKwyaVm8u0ygCvTU7Ir0tiZAb4QR
6KlZVkWBS/Fsga5AT8Ui9RnXk3yMsBe9ThY92m5k+VYjROH6e+Z1pFSuX2uA
OvTfssbFqUJ2rAFmoadklv43Yy6NMEAWnlcwVfbwrXnVejDDAdDOclxUdbP9
DCBDr42xz9cMrXU3QC16r1m9LqZ1Z4kevNFrZVobo29Rqg5Oo/eSFVvuyHkX
qQOCXgt7km4xBqp0UIPrzezwTM3Rwc8G9qP/lJVnVBqHpRlgC3qPWep5r/o2
mQ688fwDdmfPttH1wf0gOWXKX8dO2IWMO/OhD3LEgcVsl1qOnFbXB3NwYN1i
fXLzw45n+6EBPc7KMhcnzA3ug8czTPmusJrJ50oaknthSi7+IZbq77JBuaQf
LNPwGZIGZ34ZOL8Xjnnifggc1Nk2r7cHQg3GgWDgl0nvnynsgZObMB+sVj91
39/RDf138ffApsao5wfPasETuTo42M7zD63pgY24/AAm+H+/3G1iN6SbOGMj
HOnmKSGdKrjjhe8DnMBqvH1NF+jRb4b24GdP/PM0kIHnW+CbwJ0uyaUfwEt8
3zCnv6nbfpoa7qH3CrSKk7dO52ogQvxeoHM/E+D6Xg2C+D0hMTz6p/IyDZxC
rx3SHiWud7RRwwyxHiBoSJjBaZUaatDrgPLOZdHbVmpgi1hPQJoPeHcNU4NE
rDdI/rWlaGqwEr4S6xH0hfExWfJ2cBXrFb4LculoslNDG3oqSI8ITWiaqoES
sd6hIj+clUe+hQSxH8D2lGrXFTPFR68LyKJLwdowOQwX+wl8nEJlyR1yaEfv
w//5ror9CK/8I+P9qAoSxX4Fw8z3PW5yJQSI/QyTXYuC1o9VgJvY72DckbPC
yfcVvEGvF/QPA34fn9QM18R58f/zXnGefNzfACvEeQPCxxghziPw86+tuvi1
EhTo6aGyo8cuaHsr/Afxdo3T
           "]], 
          
          LineBox[{{2.2249999999999948`, 0.3010299956639812}, {
           2.2749999999999946`, 0.3010299956639812}, {2.3249999999999944`, 
           0.6226501458910375}, {2.3749999999999942`, 0.}, {2.424999999999994,
            0.}}], 
          
          LineBox[{{2.5749999999999935`, 0.3010299956639812}, {
           2.6249999999999933`, 0.}, {2.674999999999993, 
           0.3010299956639812}}]}, {
          Hue[0.37820393249936934`, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          LineBox[CompressedData["
1:eJwt1AtQVFUYAOCzDx7Ls2TVQk0EFUkwQR6DSv918FkTiYjrAzUJUSBlKEnF
yVQEQhl8oCAgEYUyaL5Qg6jxnJSoVoR4qAguYevCwgIKq7Dssntj/+2fuXPn
zjn/9597zj9nRnTimu1CQkjc+GN+P6gzhzNz1+5ILfmIhx2x5nBm3Rmnigt6
CCcg5nBmarvShKgZhCvMN4cTm1CVdinMg3ABC8zhxOz8al2Urjw0oOfIpGr3
hQcKeIhDz5EN66fcyZUQToSeIwuZ/Fn+/huEK0LPgcnCJuxraOIhCD0H5rQx
TvvpacI1omfPNF3P1vYxHhLQs2fQ9jTTx5dwVujZs+oDWy7Ovky4YvTs2KJI
L83Eq4QLRs+OZd2Rs4pcwjWjJ2Fli1ymnb3Pwy70JKxrSZTsmIxwNuhJWMS6
B6kbBQKuBD1b9tNm5Zf68fUsQs+WXdbIo5KkhHuIng1T3qwVFvoQLhE9G1be
+rEH20M4CXo2LH9MOC02i4cf0LNmPoe/6c1eRrgQ9KzZetGejMDx/X2MnhWr
lOdm9kQSLgk9K5Zc9uytcwdNYI+eFQsIm937zk0eLqAnZp68oq3BgwdAT8y0
EfEN9DoPT9ATsVMbvIoc3Aj3BXoidkjK/I/FE84RPRGbRecETUkhXBl6QhZq
uL+nM5GHJegJWWr0lvQ5BSZoR0/A9qke7vX+2wTJ6AlYvVw7VTTMgzN6AjYv
Pqltd4sJytEjLP+21rZOZ4JQ9AibmmwsGT7GQzWO85SW/dbQuJmHfvRNNC9z
bk/OVhO4oWeiLofTnzgE8xCB+UYaIfZf7HnUCOlYf4wKI++FpNSb4Gf0DDTb
O+crpjNCH3p6GqybTGJkJpiOnp6mhIf/41lqhDXojdLSk8d92pRjkIaejh5M
eXGmXGyEKvRG6D2u6m1dtBE06A1TfWNgVafECO+gN0whL5b8eMsI4ei9pltb
TPpJ+WNwFL1XNFM2v33grh4q0dPSKidV9UL/MehFb4gqMmSPFtQYYBp6Q3S3
VYv0eMcYrEZvkHZ8vnd+6REDpKL3knrZCbp1CaOQgOMvqCZm+5ULwwZoRL+f
rryQuKnpoR6C0OujteHyrupdOijC/F6a/aZqsuKDURDhBaCmgeErysS2oxCH
Xjd9ar2pUHJ3FBrQU9FBH0/fVctGIQC95zSmxUdx/LQOCtH7l0o7apLjK3Ug
QK+TVtVIXW+766Aexzuoe/lV0cjl8fnot1O3b7U7NE0jsBO9VloR6ngwwW8E
AjC/hS6/c933BHsFwgJz/Ua66ZZk5lqjDootFxYVZ2fNivJ+BcF4YdXSues8
8l5naKEZPUYjl65xy23SQqu/ud5NuvjwJwmHlmhh3nf4QzSpKGzjHzVDYJ2D
3+A0P00lY4OQ7Yvzocuw4pTi2iBEmfjxoLBSLHzZMzAEZ7ZjPeC021wi5wyC
4T6uBxZ7ft+sVgyAL3KN8KHyecb63/shBodboGaf1HCyXQN5Zo5/DCHJ5Xuv
TdKA3A/3A0Lj7SpWvf8CjOh3wHvGwF0VnAbOYX4nXDnS82dnkBr8LPsN2+qy
3GbKVVCHnhJiZWUZwc8GINZyXnDjovfchanPgVjOE/6q87jd1/USCtBTw5TZ
6U30ogr8Lf0A1Xy3V9ovHVCPngYmHDh7vuQNNey09BNcn/go+qiqH4SWfoNR
jaOoq14BYZZ+hIFJ07dd+vUGuFr6Fc6GTl9emXMeutEbhEuuxqXKkVa4Zel3
MO0vXu2ytBlOVG6Y+O7XWiD/x3/a+Do4
           "]], 
          
          LineBox[{{1.2312661590118388`, 0.}, {1.2749999999999946`, 
           0.3113918187745611}, {1.308819158079353, 0.}}]}, {
          Hue[0.6142719099991583, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          LineBox[CompressedData["
1:eJwt1AtQFHUcB/C7Q17C3WHWKGQ8RNOG8xzHHHmI3xgLTYFAhzBCchzBkJd6
QYSWFBbOGIyjOYAnD0ceOdUoYplM+v8rKibKeSKpiUIgpJdwyr12F4S4X31n
dnZ2fvv7/HZndn9Bm3LXpilkMtn6ycN5vnHdGTVf6Hvujy0nBGxJd0bNZZHr
arfdkiCXOaPmXyQ4SsxWAfpKZ1R8ZefdwE9aHViy2BkVf3rpyHxDrh0G8pQ8
u8YWYd0tIoM8JZfn9e+W3xbhQp6SJzw5fmtonogq8rx5j6wo9QePMSwlz5tf
W97lk5oswkieFw9YV2JAsIhM8rz4V2cbmw6rRbiS58X9u/MK3tGLqCFvKh/n
pevPn5YQRt5UDqt33ssFIjrJ8+Sluhz57GwJ2eR58vM+yQ59mwh38jx5ToLp
gPLLURwlz4M31a3trtAJiCDPg8+5qk3vqXagizx3PuNQUHhJvoBc8tz5pcQd
e5JeSPAkz52r47UxI4dEHCPPjevn9Cg0DaOIJM+NsxKtX+saEXfIc+VtPoFv
H1olYTt5rrw3Wr9RChHhRZ4rn+Xes91/wo568qbwvGOrwnimAJA3hS8ejm9J
DxBwjzwXHv1B7utXEiXoyHPhseWqxdJMCUryXPgzt2pFht8YGslT8J8CNDur
igVEkafgIWtydEFcwH3y5HyXu0OlqrIjjzw5v7xz5emZk9+Hmjw575O9VaeS
7DhOnoynB2WsaF3twAryZDzucdTm4WABLVSfYJrwrcuuGawYIn+cqYPn/mlq
EBBI3jjbFNMxe0WNgHXU/4JlxWYVDaY78A3NH2OV9Qr/zB0SzpI3yhac/Cvp
I5MDT8mT2L62n6/GlQsIIE9ip77dnyib9NeSJ7LrsarVFyMd+Jo8gb0knrg5
74iAX8lzsFdzmrr27hTwD3l2Zm4O7NCW2+FPnp2VGM9oO5MdSCDPxlKtCQEF
Jjv2kGdln8WEpGguWHCGPAsbyJsb0pxsg4m8EWZLjS1ekC/hNfJGWOWN7JP2
JAHx5D1n2zK39kDjQDF5z1joBV3d3GgbMqluZg+PHvh0Q5gNRvKHmCbgje+1
rSNYSt5Tdm35gHyD3Yoq6jexXuX8/a8ct8GFFsBjFiXtfpQfbkUGeX+zwie7
2vZunfyfyRtgg60VM4OGLFhC3iM29eKEW7nRDj15fWwsbXC+pd0OOXm9rMLX
w5hYYUEH1R+yuIYpy37bZoOe/PvMrzZlVn+uBR+Td5eVNQ63Ty8yYwn132Yt
4ed6f/EchuKwc76RfR5k1VjMNtT8t7DYvbL3vB68+xxhtLCusMiD1zt8Yh6g
kzzO0toN8hkHH+Pum855zSzhcuhGpcEMbS29ENNX1/eFRJrgdpCuMbJvel0j
LChbRPfDXJD/e3WHGSnjE5NhsERVvX+gYQTfpdE8DHRNq9piGMZoOz0Ppo3p
Cn1LzVhEnBFZH0qxoR0/YjOVb6MwIvRUanM/lDd72cLuO5D9n38B05qxwA==

           "]], 
          
          LineBox[{{0.4019308502325916, 0.}, {0.42499999999999416`, 
           0.024109200693019337`}, {0.47499999999999415`, 0.65399351265818}, {
           0.5249999999999941, 0.1772790749900325}, {0.5749999999999942, 
           0.11871915831332588`}, {0.6249999999999942, 
           0.46352984175589745`}, {0.6749999999999943, 0.}, {
           0.7249999999999943, 0.13213771914149702`}, {0.7749999999999944, 
           0.}}], 
          
          LineBox[{{1.0735348309180655`, 0.}, {1.0749999999999944`, 
           0.053671482972382334`}}]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Phosphorylation Signal]\"", TraditionalForm], 
          None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-4, 4}, {0, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )], ",", 
   TemplateBox[{GraphicsBox[{{}, {{{}, {}, {
          Hue[0.67, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJxF1AtUTVkYAOB9q9vrlvQwgxGKBlFeFcbKv0OWx+hlZJke4xVSaYjJI5aS
RtMMqplSaZVJhfLu4THZOyxjEbpCNQnLq7il1y11b/ee6f7HmvnXOuusvfbZ
3z77nP//7dZE+oXoEUJ2DFy6+/0qXVhw372rpg8tEGDDel1Y8K6k932pRwiV
EF1Y8A0BNpmmawjNytDFIG5w3dIq/pMArtN1MYgPa1sp/1RG6EP0zLkks+LE
8UIBQtEz5+dWeyXJVhGqj545P2iY0OPgTGg2emY8bpnJ34HZhM5Az4x7O1QW
BQcSKkdPxmtsvry2eQyhYejJeMqUoKB4FaFS9GT8/FltSkgwoTnomfJqF9dS
u/WEzkLPlF9auDhNayShNeiZcDPTqp5lGwmNQM+EBxXTyU4eEmqEnglPjT4S
4zmU0OPoGfP5CWub2r8jdDZ6xtzTpz48kBD6BD0jvi5+e4BjA6GR6BnxdN+A
wKt/EGqCnhFXSgxdk0MJzUPPkK/7J6PbNI9Qd/QMeemRsAmnYgmtRU/KUxyP
y7JXEroFPSl3qFswrTmGUBl6Ut7sf2FLyGFC89Ez4AEVEfZHVxAK6BlwL1lo
u9VUQuvR0+d35RcMPs0nNAo9fe4eFVh3vZFQc/T0ufk1L5/zloQWoqfHE9c/
trW8QKgHeno8xv7N5ctZhDagJ+GXvw9pWzhPgO3oSbjdn2N9jwyc1wI9CR+W
e7Lk9hJCT6FH+BW9vCtSN0LnoUf4wrNpOQovAa7ivMDe5Yy4tvmRAK3oa9ny
uawxIEaA0ehpWXjCb9sSJxC6DNdrWKfB0o1j3QVIwP372V21WfjK4YReQU/N
7H/6y1ORKUALeiomj5shNx94n1HoqZi/jby+uFEAP/T6WEmwc/EGM0IPoNfL
Gn/O959tKMBl9D4x4zLn5eOWCqBAr4cNSb7oWPhUgJHo9bCxnqdsWKwGfNHr
Zifs704sWUtoPHpKlvLL1MTYIgHK0eti3mbv+87ECfABvU5WPZ6UFyi0YIte
J3Mf1VzifV8LPuh1sAhpr2WtjwD70Wtnp3fs7G3y0EIYzrcxk2SnH4sa+0GO
fit7VZvh61migRnotbDYvl3WY572Qzau/8AmaVbZKnO1oI8NoJllBRW47bfU
Qih6TUzts3effYkaHqL3llVfDzayTdaAK3pv2JOjW4zyL2ogC71XzCG85Z5V
vRok6L1kK7b6fq3y1sADnH/OQJaYX3+xH7LQb2C17TfmxJZpYSN6dcw/Xf/Y
2uH94IrrH7Oz5GCbtV0/6GXq9pczmwjnSR/9VJAjNiymqXE4V39SBbOwYd1m
knHZRcmlKqhBj7PV0rRFkWlqqHPR7XeJPXtRYWXirwLnXDwQc5JPdu3oVIFh
Ko7hRnVqcd9jFRyais/DNx+qMqV+agjUCgPBYFBvhEXqRBX8HoL7gaMLu3d+
eC+o7+H7wGY718HbzvTCVOTkoHQbeeb0rT5Yh9OPIQwqRmS87YF0HSfUQk5U
kcmdF11wdxp+DyhwXlOcMaEHNOg/B/+k1kfg1ANHcf1LKE5bRNNrlTBN/N6Q
M0R6s9ymG6rQew3524KebTLtgvXi/4JbSfMMrVcrgYj/E6rDocFhTxdkotcM
o/335f56RwkuYj6AYrdN66bBnfAAPQWEFSyqbJnQCRvFfILwvD02qxcoQU/M
N1gcelhtfKgDvMR8BK1bW++Idy0wXMxX2Drl2O6OSCU0odcBgyvVy29vV0KJ
mO/Q5HHiXN2udogV6wE0T7zTxiV+/OwpQZXyw7UD8Qr4SqwnmBRX9O1St1Zo
Rq8bNIXRUdnvmqFUrEeInvlySVpkF8SJ9QoRN0MrZ575CN5iPUPSQX9zDzsF
jBDrHeZU7ZDJZAp4j97/4zKxX0DH68OS+zeaYL/YT0DYmeNjPb8GfMR+89/Y
VuxHsCkt+oubi1rgA3oaSNYWj5/b3ATlYj/7fL7nEC/2O4DP+/0L+0mjvw==

           "]], 
          
          LineBox[{{2.174999999999995, 0.}, {2.2249999999999948`, 
           0.47712125471966244`}, {2.2749999999999946`, 0.}, {
           2.3249999999999944`, 0.6266009865296069}, {2.3749999999999942`, 
           0.}, {2.424999999999994, 0.}, {2.474999999999994, 
           0.3010299956639812}, {2.5249999999999937`, 0.}, {
           2.5749999999999935`, 0.3010299956639812}, {2.6249999999999933`, 
           0.03108151138409916}, {2.674999999999993, 0.3010299956639812}, {
           2.724999999999993, 0.}}], 
          
          LineBox[{{3.1249999999999916`, 0.}, {3.1749999999999914`, 
           0.3010299956639812}}]}, {
          Hue[0.9060679774997897, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          LineBox[CompressedData["
1:eJwt1AtQVGUUAOB77/KUVw7KFISKi445WmmraCTnd0QGSORVmAoiBYiikoLD
GEkoovgExVHkIWgSKlgZSCTV/2OhgyCGiA/EHQSFFQRl2WWBhb2x53Jm7ty5
89//O/dxznH5Oi4oSuA4LmH8MJ7v1hvDjp3r/sm6qoonm6KNYcfuVsuGvtsk
EJ4zhh2rizeXH1khkNyzxrBl8nR3H+41TxZ9Ygxb1r9Ru1juLJB76NmwIPet
LrJUnmxGz4bN8AmLGWjniQw9GzY33frYjcMCyUfPmq274hE4o58nbuhZsyAx
I7RVyZNG9KzYrhb/YK2tQGLRs2Js6jtCRKFATNGzYjVFe3ztxp+3AL1JbLu6
rWaxjidL0ZvE3iu1nO5XIJAm9CzZurJzyS+WCWQbepYMGlWhc04KxBw9S1Z7
2/Zo3fj7nEfPgv2g76iIXikQd/Qs2NZL9+XhCoE0o2fOfKZ+kZI7ni8OPXMW
qcpQTY0QiCV65mxZ5fyu+kqe/IieGdPOGrjCpghkGXpmrCLrkhd1Fcgj9ExZ
4uMa27mOAtmBnik72JmdNmAmECv0TNnOeJPSI+PXReiZsND/CpN+5QUC6Jmw
piQnOxc1T56gJ2P6gYA+v+UCiUdPxor3itG+ozyxQU/GSttK5hyeJZBi9ASW
XGUfvtZNIMvRE9iXh9Li7Xt48hQ9nlXJgkP/LeLJLvR49s/SKQ7HAgRihx7P
7B4m73d9xJPL6HFsg4/2uTydJyvQ41js9NzNzyhPbuC6SPfs97GPOs6TXvQN
NGL04xzxKk9moGegRWapOxNTeBKM+8doXf7RPmUiTw5g/lG6oXbZnoqVPPkD
PT3NXOWkyKjmyGv0RmiQa11k33qeTEdvhI6mJ97xreFIEHrDNGf4Wcp6T56k
oTdEu05Vzpd/w5NK9HQ02LVvV4MNT3rQG6RxvRVNSZ/xZBp6g7SES9FpcjkS
iJ6WXvReVbtd5Mh+9DS00vrSpLzzHPkdvQFavC1mScQWjnSjp6ZW3yaH+3WL
4Iyemqo37izKn8aTAPT66YhCnX6wjCOp6L2lsaXb/M/MFyEW199Qj8XR5Xeb
RWhEv5c6BWX5KI+L4Ibeaypb4am/TUXIx/3ddPeBdfWlHiLIcACo6Pp393nn
h4mwGb0uWuKlTIk8MQb30HtJA2q1mT1/GmARei+o3ac3LVZfMUAueu10oPsX
ruX5GPDotdHfqIvzrLoxaMB1Jb0+cuaqc9QY5KL/lM7Vfn55TasBYtB7TGtd
EsoF3zFYhPsf0NlnvVxrT+hByDHmb6Q1fw9mWl7UQ4E0sGh/Wau3BzcCS3Fg
3aIRmebfh0zWQxN6jJ7UrXUIeTIKjxXGfGXUyVE20LFlBD4sxBeiX/0cem3m
0xEwy8JrEKp1XdVvhuD4ArwfyujJvDDDEIQaxPGgMCY4FKqHhuBUFOYD8rbp
aHPPIOjr8HnALEqpXxKigwXINYIqJSvyWpAOInH5AfiHWT3Mc9fAGSMnPoKW
0/d3zivXwJ2F+D2gc/D1qmHTQRhDXwnHzl1YE9/yFrJxfxtYtM7rq2vWwkLp
e0M7MSkyUWigHr0O2KdSlK9eMADR0v8ChVOyV8RiDXDS/4ThC8wicfcbyEFP
BdXhsWLTKw0opHoAjY2nLi/7DTSg1wOjIdmB1c1qiJHqCa6FlMgDa9QgSPUG
zbm1CrXTW1gt1SM43Xjo79fwEhyleoUdCTvkGVNU0IVeP2hvy2dWdfdDuVTv
YB5me9NjdifslfoBTA9NjnO89WLC08CGv7ytLiZ0gpPUT9C7r+wjpYMKVOhp
QdxdEGDv2QHXpX4EQ3FifH6nCvZJ/QpRd9wvpy3KA3+pn6HsQpK4vaMd3pf6
HU57eya4ffAKXqE3DIYJr0KaF7DXpDNjSa8SUqV5MpGvCQKkeQPcRPwPrG97
gA==
           "]], 
          
          LineBox[{{1.8749999999999951`, 0.}, {1.9249999999999952`, 
           0.47712125471966244`}, {1.9749999999999952`, 0.8450980400142568}}], 
          
          LineBox[{{2.0749999999999953`, 0.031447226136332836`}, {
           2.0775474984697615`, 0.}}], 
          
          LineBox[{{2.174999999999995, 0.}, {2.2249999999999948`, 
           0.3010299956639812}, {2.2749999999999946`, 0.}, {
           2.3249999999999944`, 0.29365241882927984`}}], 
          
          LineBox[{{2.474999999999994, 0.3010299956639812}, {
           2.5249999999999937`, 0.}}], 
          LineBox[{{3.1249999999999916`, 0.}, {3.1749999999999914`, 0.}}]}, {
          Hue[0.1421359549995791, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          LineBox[CompressedData["
1:eJw91AtUTVkYAOCzT+93VjOMhAxjTXmtqGnR8O8GGa+kMihaolKr8WiZHsxM
w1SUQZbIlV5WU1TMIJVm0t5TRKQkpprklR50e7l1S1e36f7H8q91111n/Wd/
+5x9/v+fsnWXu78oCMIPoz/N//1KTZjxRZOuJ3afIHR7gCbMeOi649UH1oqU
CJow41XyiaapliI9e0YTpnypT1NEUhahDvM0Ycr1UhvDD08RaTV6Jvz5tdCp
Lj6EBqFnwm8HDy+IvkyoFnomPLvOsNTYXaQp6BlzcfnuZ7IcQh3RM+YtbVHT
s5WE1qBnxMv/fmRTKic0GD0j3h+6/E6ClUh10DPiHWXFsJCINA09Q24+VAkW
w4TOR8+Qb/x3WXWCp0hr0TPgj30jc0P0RLoDPQO+dXmFcmWoSPXQM+BleXU5
I02EnkNPn2+h8lkwXqRO6OlzVWS+bYa5SB+jp8ebgk/IYPR5dqGnx+3n9DQ/
nCRSA/T0+NW9rVU/KQSagZ4uD9+QPytg9P0WoqfL/wjepspYINI69HS4zLG8
oqSD0BD0dPiRiGf3Xt8k1Ag9HZ7Yk/JVei6hmehpc4v7qltZFYQCetrcZrOn
U9lovgE9Lf6Key+9YijSPehp8VzqNjX9JKEm6GnxUnncvH9eEnoePZHHuzyQ
zzcQqTN6IneK2V50e/R7N6JHeFeBd8WqUEJD0SM840KORfxofZihR/hqu6xf
VqQSmo2ewHevty7O2kvoYvQE7uBlkKyYTOhfmB9ht9JNI3PPENqJvpr9nt0x
VpsSao2ems3KrHFdbUuoB64fZjWHWv09pxF6EPd/z765Z7mq74FAi9BTsTtV
E6pOzRaoHL0h5mh11TVgB6GT0RtipW7GEXlhAnVH7x1rdqkrryKExqA3yEqO
jkleZknodfQGWHtJXvnUPQLtQE/JnHa0JNZ3CnQSekpWX2D0reNkga5Fr5+d
TmmIU64QaDR6fczmgnP0uQ0CLURPwX7zj24IshXoG/Tesv0GM2MyStQwEb23
zLnsaeKZQoG6odfLGnLdFncqRiAKvR52fuV/WdrJagjGfDfzWlH4pdVqNdSg
3zmaX3eqbJ4aHNGTs6M6N2+fjFVDCq5/wz4rrjgwx0gNWjgA2pld6M9ZOT+q
IQi9NpYYoiP72noYqtFrYYMpd9qstNTggN4rljkmbHpY9DCcRe8lO+F2rviw
UgUEvecsYH1Xjq/DMFRh/ilLTHLK92t4D2fRb2QrZaXyW/FqCESvnl36LkrH
fFgFDrj+EbPfNnjxrtEQiEma/WvYu7Z9HgF9Q5AmDSzmWqSyNvUZhPk4sMqZ
V1pCilf8ENSix9lcL9tUA5f3UG+v2S+PJXsWyEObB2F2Or4Qs/EotRlnMgS6
CXgNI/k531dnDsAxO7wffNMs+6ICBmCTemQ0GDzxP6qvGzsAJ/1xPzg9vuVU
SaASVPfweaD7xoxD4KcEO+RqwFw9sjHooBL8MP0I3G6Ez5hYo4DTGm6kDlbF
XYn0y1DA3bl4HrBgnCzwQoEChtF/Cuk+gbHhf8pBhuufg4fWFNnLxn6YK503
LPmid9GlaAVUotcM9+NebGiN6IIA6XuBxXFfWhSiAEH6nqCyqx+7bE4PJKHX
Dj9XrEmTfdoH9lI9QGDQuhyTyi6oQq8D8BiFHgiU6gk2HfHq/PxmL4hSvcHO
Y037PWM7wFWqR1DvTXOzWNIMllK9gpep+8Om1lZoQ68XvGX7xo291gvXpHqH
oqKwq4uut8MBqR/gk53O07Z5v/jg9cGzi/svBWxphglSPwFZfHm9cnMrtKPX
/3G/fKkfP+Z/lfoV/O86Zcc4JMMaqZ9hTeGThB79F2Al9TsIH+5/jd67j16B
NC9g5pMj3VkNtRAlzRMYwXwtuEnz5sP5CML/HiB6ag==
           "]], 
          
          LineBox[{{1.8749999999999951`, 0.}, {1.9249999999999952`, 
           0.47712125471966244`}, {1.9749999999999952`, 0.6989700043360189}}], 
          
          LineBox[{{2.174999999999995, 0.}, {2.2249999999999948`, 0.}, {
           2.2749999999999946`, 0.}, {2.3249999999999944`, 0.}}], 
          
          LineBox[{{2.474999999999994, 0.3010299956639812}, {
           2.5249999999999937`, 0.}}], 
          LineBox[{{3.1249999999999916`, 0.}, {3.1749999999999914`, 0.}}]}, {
          Hue[0.37820393249936934`, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          LineBox[CompressedData["
1:eJwt1AtQlFUUAOD/LgICC+uYOr4QKEzESNBFJR/nykozgZBCaJaakKArKGIu
mKOW5qMxxQc5KLqCUgRm6oAhKHFvoivgA4E1MZIRxUBYYFlYHrvsbuzZzsw/
//xz/vOd+5rrFZsUGScSBCF++LG+Hz6whoT7eUh/q7sr0A3x1pDwHGJoU58n
lAjWkPDGN5RuOEno2TPWcOOKgsfndQGEBs62hhtv8SlIPvFcoNXoufJc3Uxd
sERE5ei58qyVil3bQgi1Q8+VlyuEsPwnhCrRE/O+kql7pv9O6Fz0xPyC5YXD
GDmhNei5cEVQWlxoDKEJ6LnwdzyyjOEnCLVHz4XXd+d9UDtRRLPQc+bTBiq3
zDEQGoSeMx+/uuqcOyO0Dj0nrniUNe6EhtDN6Dlx9VjlJ7V3CXVEz4mPLThd
sqCW0AvojeS5sUs7HyaK6Hz0RvJXb38t3ptP6BP0HPmx6v0dFTWEJqHnyMP6
6keVOYuoE3qOfEpyuEPh8Pxz0HPgv3YWtDTtIXQheg58IGTm7sBsQp+iZ89Z
bciETbcITUbPnvsdkQUfMwnUBT17vtV1+7faxYT+jN4ITqUJD5bkCRTQG8F7
R8Y2j/mB0Gfo2XH2+V2P2jWEfoWeHVfJDtqnXiHUFT07PjrycGH5LkJ/QU/E
q8jsw5VGgS5GT8SjJykzzlQLtAE9wusr12RWpBKqQI/wKv+jxZeKBCpBj3DV
vnU9pZMJzUdP4Gvv7ep8z5FQGXoCL5OmzFgyhtCbmLcw6M/xWeBLaAf6ZlY6
IyrBK1GgnuiZWS7P8N8dItAorDex/m3pC4MPCvQg9h9i/qFcoxweTwl6RuYh
vnwoLEGgGvQMbLBH09tWJ1AP9Ays+JJS6RZvgUj0BpmvTO6U+sYCB9AbYElp
7oc1OwRajF4/a0h6q1SXaoF29PpYdPHFfywKC0xBr49FFDwp+nCnQJejp2dp
A+KAeUYz7Eevl318Mpz+8ZcFbqDXw3qPeHZ8FC3QNvR07FTK1qii5yZwR0/H
XmomfrNEJNBl6HWz21WNCzaOM8F36GnZNvCMKC8zQwLmu1h+9aFV2uUmqEG/
g0lyvcI8V5phLnoa9vco76Zrm02gxPo2dv2nzdMS7wyBHV4Arezc1PxTgswI
cvRamHfT0mUVg0NQjd5rZp6/dXp0twEC0Wtmk65czd8hMcBZ9F6y8XLV8TS9
AQh6L5ifz+2U+2IDPMJ8I+s67hjpcnH4f/QbmEfYZL8b6kHYiF49c25Q5emH
BiAQ69VM/eeZ6zKtHkSZ1v41rKF3X6lbqxGybBcWS14Uu+5SRT8E4YWlYluu
dBU2W/RQhx5ni0IDBlua9VAvtfYrZF1fJn/vcK0P3s/GCbHL67p79x7Vg0M6
foPXTbuoLyb0QFoA/g/pq1yad0p7YLXZMhwMqhbFDEg6e+DHOOwHMpU04921
OjDex/HABP+robIQLQQgVwNlKyqackgXrMe0GsKDJCon33bIsHKWpxBaJ78Y
562Dqlm4HiBXPW/fFN0NJvQbYXRue+Hsag2cxvoXkJ7t473SWQuzbOsNRW2V
mVHiTniA3is4Uju0YuhYF8Tb9gsmr31ckJb4GgTbfsLJhvvN96q0kIleK4T6
ri+J/+xfkNrOA/Q0fTonRdwKj9BrB+O80Xnugx2w0XaewD32mrd2uxZEtvMG
d25Jg2XZTRBhO48Q05VcHtGuBua+/lnM9G4Q/o//AOAVCTg=
           "]], 
          
          LineBox[{{1.0769369934511703`, 0.}, {1.1249999999999944`, 
           0.4083808772976844}, {1.1749999999999945`, 0.30102999566398114`}, {
           1.2230188548970802`, 0.}}], 
          
          LineBox[{{1.2266057502207675`, 0.}, {1.2749999999999946`, 
           0.37430879325397765`}, {1.311791297996966, 0.}}], 
          
          LineBox[{{1.5685211294642976`, 0.}, {1.5749999999999948`, 
           0.046643051041757914`}, {1.6024251591628516`, 0.}}], 
          
          LineBox[{{2.0749999999999953`, 0.5673241215215261}, {
           2.099600067192402, 0.}}]}, {
          Hue[0.6142719099991583, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          LineBox[CompressedData["
1:eJwt1HlQVXUUB/C38GTniY3piASiJDKGkjCI5HwHIRxJGcEZtVGJYgutNEgH
1xFEAUOIxZRFgXClMo1Ek6HfT8WVwN48GBdKgdjEx/aW++4FgnynvjO/uXPn
3PM59/fPmfPJ9qh4hUwm2/j6WJ5Nv1ui5m+y7/e0TzcjMcESNZ+/7G7MnahR
yGWWqHmYh3fw/noRpcWWOPH3n+5xvZljhv8SS5x47Yy8/JYNAh6R58id3XXn
y+pEJJHnyDNH98XLXCUoyXPkBf0lr4riJZwiz4FXGwK8V2lGEUCeA7/xznv3
Vv8sQkOePVdF7N33o5uEbeTZ81vTXbTVpwSoyLPnsYENeR16EeXk2fH1sqJ5
iiAJgeTZcd+DiZ6ePhK05NlybhddKb8g4XPybHnZZzWHVHEirMmz5RlBa7au
mT6KSvJseGj0bzWum0QEkWfDhbKTqW+sFdBKnjVfWLTs8tnFEraTZ81b1QUN
87Mk2JJnzUMPvFw9HCWhirwpvPlP1ZlptyQsJ28K77zgHajJF/GYPBX3aMiL
ivCW8CV5Kp69b1pQnK0Ie/JU/MAPCRXFagFnybPi9X2FPjltIkCeFX/4YcaK
t93NeEqekkcu2REz1SAihTwl/2lWSdgVrQhH8pR8/pHY461NYzhPnoL37j33
fGq6gGDyFHw8adez9ItmtJEn52G7a688qTVhJ3lyfjPcJ3Sgyww1eXKuyteo
bkcLuEiejGfdL3L2kAkIIU/GCxXfeRZnCbhB9Um2SHe4o7TYiAHyJ1jkrBV6
vzUC3MmbYC75kX7DW8xYR/3/sK/y/ig5vdGEIzR/nFU627xItxHxK3ljLG22
Y36FToCOvFG2LnPyZPU8M9zIG2UtaW1uLiYBUeRJrKy8YHZHrAmHyRPZwMaq
ubJrJlwnz8zCT4esLNwt4BV5Ahv/Zrg/Jc2It8gTWHPqgrLLlSZEkmdiymh9
eNdMEzLIMzJ1b1DC1YMGXCPPwLYsdZYt+cKAfvL0bNArpf5jsxmu5OlZT21y
1qU6E9aSN8Ie6B2yluYYcIi8YZb2YKJBL+mxjepDbHGyi+OtnUZoyB9gC44q
a6WwEQSQp2Mj3oedNuTocYr6+9nVlWO3U3sMUNIC6GPa/etXlgaOIIm8Xlae
HaWyCjXiEXndrH6rw0ebPxiBP3ldzKsxusBLY0ApeZ3s7rGz18+ojJCT185C
Fh0ML8cwmqn+nC3KD/57R9MISslvY7ktpXNS/hrGp+Q9YfeGitueJffCn/pb
WM1999xLd3RQlFjma9hgnXZhRaEB5f8tLNZzftPAcQ8dAmlh3WVeJr/qA9Hd
0JLHWUftpLznRR+e+Fnm1bBVNcvjq0z98KmgC7Eh677FVYm9mFJI75hxIjR+
pr8Oub70PU50Zrss9B3C5onJ12FIOlevcOseRFE8zUNq5tHju78ewFgj/Q9i
vk1+Nyb7JXyJ0yDgQeOmzLl1iKNyC37R+qbsymxHRGGG18Pyx5D9n38BAHqx
Vg==
           "]], 
          
          LineBox[{{0.4307713417222071, 0.}, {0.47499999999999415`, 
           0.6452164161979176}, {0.5249999999999941, 0.0711776877141776}, {
           0.5749999999999942, 0.11177048179609476`}, {0.6249999999999942, 
           0.3414842773477888}, {0.6749999999999943, 0.}, {0.7249999999999943,
            0.10670878672983562`}, {0.7749999999999944, 
           0.00008226955063785959}}], 
          
          LineBox[{{0.919413285064017, 0.}, {0.9249999999999945, 
           0.1029605337922811}}]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Phosphorylation Signal]\"", TraditionalForm], 
          None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-4, 4}, {0, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}], "}"}]], "Output",
 CellChangeTimes->{{3.772169885059484*^9, 3.772169900093421*^9}, 
   3.7721699775755367`*^9, 3.7721701185811143`*^9, 3.7721702882173615`*^9, 
   3.77217064855888*^9},ExpressionUUID->"9d73c71b-3895-4669-bea1-\
33f660bd409f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "MIM1X4X6", ",", "MIM2X4X6", ",", "MIM22X4X6", ",", "MIM3X4X6", ",", 
       "MIM4X4X6"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Dephosphorylation Signal]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X1,X4]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "MIM1X2X5", ",", "MIM2X2X5", ",", "MIM22X2X5", ",", "MIM3X2X5", ",", 
       "MIM4X2X5"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Dephosphorylation Signal]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQLbfAJ4hd6o3jPNM7ESB6cndeJohOar4Eph/5x14E
0ayni26C6KzAAmUOIG3w3FcDRLN0z3vEC6TFtgu9A9EO62ewhQPpo97RoiC6
b5qjXgSQPtF7FUzb7dhkCqIFUr65gOjDjxaJJgLpGo0lsiBa0zNSGUTH9Tqr
guibcw0OgWgJp4fHQHT0wpScJCBdlGeZB6Idf3LFXAfS77RXZ4PoPfnrF4Lo
cBORRSBaeGfWaRD9JmY9mJ7b+/ECiP7kl38VREf9yL8N1u8qcR9Et20J/Qui
16/dx3gD5O+bUnog2qNssyGIBgBU6IxX
  "],ExpressionUUID->"7589a354-4c32-4095-94ae-15c7a64006fb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{GraphicsBox[{{}, {{{}, {}, {
          Hue[0.67, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJw91AlUTXkcB/BXr/2lzMwZSyTNSDrKFEIcfV+HiErJIVnmnCFJWTKdxja2
Ug1jNy0yKbIMMhhSlvz/YWKINNGikSWUJbSod+997zW93+30O+edd+753f/n
f+/9/34/xwUrQhYZKxSKVZ0/w/+9EkPY8kBr0WrOJAmLIwxhy31dG+5e5VoY
KQxhy5ccaXP3uarFgf2GsOGnojNKXddp4TnCEDa8+ZLt2fk1WpSS14PPvtzi
sjFFxBLyevCe8Q6qkhARSvJ6cIvsF1YBD0RkkmfNC7dbf7B9LmI0edY8qeBx
VNUWCWXkqfglxy1OWfESoslTcROHfpfzQyWYkqfiw67Vhg9O0yCLPCueW2O1
PuigFl7kWfG8H5LHbhI1KCfPkgdPSD5vf1LEMvIsudJ48pW4AhHm5Fnyf++4
DWz9TsAh8iz46Jp3FqnuEsaRZ8G/0d1eOy1PxCPyzPmxmh0azxwJK8gz5+2C
49cp6wRYkmfOw+Mq/po8VEIOeWa8DcctWqokjCfPjE/NqMhJ3CWikjxTfjK0
5lnWtyJWkmfKs6JPhYR7a6Eiz5QX3bh0Thoh4ih5JjzaT5mRHiMC5JnwwiW5
bXOPCagmT8lXfTm2QpUkIZY8JS/cnXqu7x4RPchT8s3ebs69Xko4Tp4xH+OO
19s7z8+HPGOecjFirHhDRA15Rry8/sXCw3kC4sgz4ul+qbrZw0TYkmfEPWJO
b81eLeIEeQrutK065VSthAnkKfi1yKh52U4SLlO+gzkPeXB15QUBjeTr2Qtt
5by80xIGkqdnRxOWtd6GiBm0Xse+9xmaGRgvIIn217LhGzYnBfqLuESexDZt
DL++LkSD9+SJbKurvY1yjwAH8kTWWlvkvuG+gBDyBHbFY2/1xtsCEsnTsLqW
TZXTNe0oIK+d+dvFPp7yazvekdfGhp5fO2dqgIgB5LWx+T23Wi2LETCdvM9s
3ZmIIT9FidhCXiuLmRGU6BInIp+8FvYkM2fwoicavCWvma2MuuU06J4G9uQ1
s0iU39q3XkAweU0svSrt87M1GiSQ94kFPx3ge/2zBtGU/8jGxz2Ky/UWUUZ+
IzsTEeUd7tHZT+S9Z4OqJpiMvyMgk9a/ZTfCoutmqtuhpAHQwKwT/naLH9vZ
r+TVsz6pN38XbEWUkveKjRnc7rlwlwBP8l6y/9z8An7OEnGAvBfM5sqYxtPJ
AozIe8Zm9VaW5voJuE/5Wua/dkr6dg8BB8ivYW6VQcUfxmkQSV4Vu748tb7C
QYQnrX/Ipv2x2yZ+kwDjDMP+ZSzjqfmYzM5+ypIHFmuKtcsu3SvCiwZWMcvd
n57PXCSUk8fZIffEiogwLapGGvY7z/pGuqe8SdNhWDa9EPto7ZVzf6QeZvvo
Gr63YiM2avTY6UH3I7lped8fbRTqefqOzmAIdbrp5t6iUP+2iPaD47kTk1ye
G6mlu/Q8iC9KGnez3FjtQVwZdg1dc8SrwFgdTumHKN+RrMMGpTrNwHVUIow5
b6jub6K+M5y+B+YGDLFZWmii1pFfC59f6noXDjNTp9P6Z5gt/elvM91cPVz+
3ghbYNc/vcNcXUJeHQ473Wuf8UpChHxe6FkkzSyOa4VCPk807u+TsTi4GRnk
NeBBaoY2e3ITRsr1gOx/Ooou92vBffLe4eDEl2HbZjUjUq4ndPRa+oVvWTOM
5XqD3vP90Z1uTZgm1yMUE86Gts1/DTu5XqF7FJTqvPUD6slrgn7UR03/1+9x
Qa531Lo6z/FI+YTNcj8AJatVKtW7Lq8V+jVZwV9NrEM/uZ+6/QbyPsOo6zpP
7sfu++PlfoXu+KrYzNcNCJL7Gd5dfn+537vXvyFPQI1vsXqZ8AEX5XmBwFH7
RgeavkSCPE+g7/KC5XnT9X61sJfnERRd8ZY8HTroecqRL8+z7vz/+fW7oQ==

           "]], 
          
          LineBox[{{2.0249999999999955`, 0.3010299956639812}, {
           2.0749999999999953`, 0.47712125471966244`}, {2.124999999999995, 
           0.3010299956639812}, {2.174999999999995, 0.30102999566398114`}, {
           2.2249999999999948`, 0.3010299956639812}, {2.2749999999999946`, 
           0.6989700043360189}, {2.3249999999999944`, 0.30102999566398114`}, {
           2.3749999999999942`, 0.47712125471966244`}, {2.424999999999994, 
           0.}, {2.474999999999994, 0.3010299956639812}, {2.5249999999999937`,
            0.3010299956639812}}], 
          LineBox[{{2.6249999999999933`, 0.}, {2.674999999999993, 0.}}], 
          
          LineBox[{{2.8249999999999926`, 0.}, {2.8749999999999925`, 0.}, {
           2.9249999999999923`, 0.}, {2.974999999999992, 0.}, {
           3.024999999999992, 0.}}], 
          
          LineBox[{{3.1249999999999916`, 0.47712125471966244`}, {
           3.1749999999999914`, 0.}}], 
          
          LineBox[{{3.324999999999991, 0.}, {3.3749999999999907`, 0.}, {
           3.4249999999999905`, 0.}}]}, {
          Hue[0.9060679774997897, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          LineBox[CompressedData["
1:eJw91QlQU0cYB/B9REDkknHwwAqN99UoCDpU4fsURW2LigdI1Y5VQapVVGC8
L0AGLF7VCoiKVQseo6VFEQTZ1XaUQUUpKl6FUOWoCBg5DIEkTb5H3ZlMJvO9
/e3bl/3+T7ksYm6oBWMs1vQxf9+/Zx6OYvSC5lajv4Qrw8zDUQilb1nGlxJK
zDwcRfCdyAt9YiRMSzUPB+Ead0yx1FlCr3Hm4SAK62KOV5vqD8izF9rgXfOT
qhh+R569cMovdVbdZqggz15kufeQljYwPEGenYhKVkzEfhJOIM9OnBmflDlz
tISl5NmKuS29TiVmMFxNnq1IP50w2d1RQkvybMWNVcr7tW4M08nrIRYnuB2x
d5PQm7weYoawWbF8A8My8mxE1Oc7DtStk3ANeTaiSTu+YHcNQ2vybETJqsxz
PjqGP5PXXTh4KxYPzGU4kbzuYohln0ynDwwfk2ctWOQsy8ZKhhHkWYvWCdOS
jTcZ2pBnLV7Wx9tn3GF4hjwr0TG7KnaDlYQ+5FkJO5fUP62fMywnz1Kc9dmm
2l7GcD15lqIqvaDp4EgJbcmzFIFpWQ2/X2L4C3ndxLaiPY1GJwmBvG5ipUFd
EZTP8Bl5CpF8Noz3MO0vkjyFaNftjcwrZmhPnkLk7VOO/XSchJnkWYiTzkE7
HS8znEyehQgpWy801QxfkCeJeTvn+Zw9wTCaPEn0XniXZScxdCRPErrEi/2b
oxmeJ48Jj+njKteZnocfeUx4PXweVxnH8DrVjTw15+S+oGEMG8g38KjB0dbr
6hl+Sp6Bhyld6zaY7n8ezdfzY2P9+GHT84yn9Tu5fUTUtnmbGOaR18ErN5/7
aUs4w7fk6fith3Zn0hYydCNPx39suhGTvIbhXPLaed/9Dl/de8VwD3la7rtA
lZA3jWEueR/4Cufx3gNnMawnr42fjFOnbDTt35W8Nl7frlPpDjEMJK+Vn9ve
1y+2p4Rx5LXwif1dJ3T/m+E18pp5wtB+AZN8GL4h7z1fMipMFzeG4QDy3vO1
7wI0DqsZziFPwyN+SOqZO5lhLHnveFRDX88AlakfqN7EdfELBlxJZlhKfgMP
fBk/emQgwwnkveUHnYo2X5xp6jea/4YrUp60N0cbQUEBUMedbtlNHuxv6lfy
ann200KnnD0MH5BXzdNtuU33zxh6kfea2/n1Ljho2n8aef/wRy3Roa5TGErk
qfnU2H7d1lcZoYTqFVy9+qh/6CEjpJH/gjdbvA3ObtdDOHlP+bms+QG/RZh8
mv+I5/pWD76WZQCLY+b1Szn4hnvMdzL1txxYvPZ0zRThzNCbAus2D/jLZQxk
GKCMPMEdYoJV/TON8NTTvF42nzluRqPXRCOoTtGGeOJxn4B6MILVYfoNf4Rn
uNRc0sN+d7oeirIn1V0o0sNig9E0OJyfM/yLZUMMcCSU1oPiJzPVu/bqoeMu
3Q/4p4WsSfAwgDtxpdB2oHB5ubYTVlD5EXgPPr0upbETks2csRzKh72ePi1T
D8Ue9DxgVtSoQRnnO0BPfgVcPL5zxyJVJ6TQfDW8Vo29vdO3Ezzk5w37lCv8
C3N0cI+8V7Ch4GWq5w4dhMn/F1QkBeeXlHQAk/9P+KZ0V7jVUi0cI68ONiqj
rm578QE85fMAXitbXB7d1UIJefUwvar00qAALYTL5wlS+x3ZdDBCCxbyeQOe
EnLr6betMEs+j2D57Er0gMtt4CKfV6jpqWx4/qEVasnTwIOvc4a35rfAFfm8
w6+7F0jTUttgt9wPcL48RHvHs6XLawGp+LqjrlgD/eV+gp5NhRFj3TRQR14r
fD9iS+DQnPdwVe5HeBBcefSx31uIkfsV1L323lwZ1Ayz5X6GEd5H6s9sbYRP
5H6HwmvuhxIjNfAvee2gXpt+NTddAzlyXsDDu+ML5qsbIVbOEwgtalh++XE9
zJHzBpR7IWhjfjUMkPMIDJvT5/Sa+grekKcHzamRlwNm18I1Oc+66mUQJ+cd
SH5ZwW1LamCEnIdo7Jp/QM5LZF31VvIYGjI3Rp6oqYNFct6i/vHso8MSK+Cm
nMfYoVJsHZj3CobJeY36ruv3yXn+8fpm8iw+rhcivw8+1rn8vsD/9zNEfp98
rP8HenLnHw==
           "]], 
          
          LineBox[{{2.6249999999999933`, 0.}, {2.674999999999993, 
           0.3010299956639812}}], 
          
          LineBox[{{2.774999999999993, 0.}, {2.8249999999999926`, 0.}, {
           2.8749999999999925`, 0.}, {2.9249999999999923`, 
           0.30102999566398114`}, {2.974999999999992, 0.30102999566398114`}, {
           3.024999999999992, 0.}, {3.0749999999999917`, 
           0.30102999566398114`}, {3.1249999999999916`, 0.6020599913279623}, {
           3.1749999999999914`, 0.}}], 
          
          LineBox[{{3.324999999999991, 0.}, {3.3749999999999907`, 0.}, {
           3.4249999999999905`, 0.30102999566398114`}, {3.4749999999999903`, 
           0.}, {3.52499999999999, 0.}}]}, {
          Hue[0.1421359549995791, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          LineBox[CompressedData["
1:eJxF1gtUlMcVAOBZkJeIGKOpBhA1R1AaNRiFIwbujfGBxwcU8IHSaBQB2QRE
6mNLqWIMVhSNVTFqEJXaqDWhvoIG0xlNYogQFMG4SEogKCoPl+e6PPb/u3uH
bOccDueemfnm3/ln7v3HrE6OWGvHGDtg+bP+/7HU2tzFp+rmri09DOPjrM1d
rLl7LkjXxFDDrM1d/Jg/eMzkURo8dsTaBos3HiQ652cxnPamtQ0WBTOyNaM0
GrxDnpvIG5n+kG9guI48N9F+jbf6FTC0J89NjA3onTknl2EueYPE7PtZK3Vl
DAPJGyTivjHVFu9iWE6eq9gWuPNx+BaGWvJchX547pSuHIYO5LmKc580O1+Y
yzCPvIHiyoGRrZMs86eTN1BEnXEISLvOsII8F9EUmzlWbWD4AXkuYk7koWfD
ihk6keciYnwWr0w/w/Akec6CGbWBM39hOIM8Z5Fa5PDscT7D++Q5iYgI79Ha
UIbJ5DmJd41zIpIWMnQhz0n8a3tuQcwXDPPJcxTxk4YMPXOZYTB5juKLU+U6
wxKGD8hzEFGn5sK8eIYp5DkIn2W64FUKQ1fyHMQq/IdPeALD0+QNENqJ+o1z
f2YI5A0Qi34Y/7u7RxlWkWcvUl4ODTVOYZhKnr0ovD1+QuHHDN3Isxd165cH
p89m+Bl5dmLgnqQup6kM3ybPTiypzOvbzxlWk6cRnim7tZ4zGW4kTyM2HbZv
W7eToTt5GnGhqLvkwliGZ8lj4shLfzvAlzF8hzwm1l/6usS8iuFX1K/y+Sci
3rs1nGEL+Qpv1l7KKPZjOJo8hRdWNYwom8wwkuab+cI1SfvneTHMpPX7+DiH
GW95uzO8Rl4vz9PHjKt7m2EzeT08NHnL8owaFbzJ6+EjWlaXdNSpEEFeN/du
7etz61ThI/JM3HDoiv/9+QyvkveCZ/i3XpwYwrCJPCO/OdT/1vY4hqPIM/KW
Pabjpy3n/Q/kdfF9JVGLPdYz3EFeJ3/l9Hfno3QqFJLXwUdXlgj/IQwbyWvn
Ho2Vq8/uVsCLvHa+ldVtOH1DhXDy2vjPdx8uaQxR4UPyWvm4z8Cre7TlPlC/
gV9aiQ57v1GhnPwW/n7al2EDNSoEktfMz9/6z7Cgqyrk0vxGHp/qYTD4KWBP
CeAp93hD3fN9igrryHvCZ76m+qa7MbxD3mNe1mefuMdy/6aR94jfS4nMTktk
eIy8X7m3+PbkhPct+YK8Wr73T6awPwcyLKP+Gh73/MYRJ8v+HiO/mrsezHly
pV6FBPL0fNp/kw9ma1WYRvMreeLmoIdnzilgd9S6fjmfGFblZXikQp5MWLz+
l+Sol4YoMJ0S1i1+0m/MZXfL+6wgT/AJPw3/i/afKuinWte7xE/Z+/mujlVh
0gn6QTwm/d2Q/DgzOB6gGD6/PbX0RZoCe/1pPOy/V7Hh+XEFYhTV0jjUz95Y
lBuowMG1tB60Z2b+vjhAhd4Seh4w6LYOzfExgz9x5VD8wdI1AcsViKXuSliU
8lZNYJcZDls59QHU6rNu+1w1w+0ptB+QmvD6D5++p4CZ/BoYErTo8OQcBT6h
+bVwYV/0xW0DFJgi9xsOJaL+RWAflJJXD8aP6x8k1fVBnHxfYE4KPv/38WZg
8n3CiPigjG9Le+EoeU/henDFvZyGbpgqzwNszspK3ebcA2XkNUF0pOGm3qUX
EuR5gs7pCze8cr0H7OR5g+iRet2rVd2wSJ5H2OxiiN7v2AuvyvMKXy34a1Lo
jh54Ql4beFyMrV2RbILL8ryDEl6wMU8xQYa8D/CoY/2muExjv9cJwxYu/3zt
UxN4yPsE7J1/LzX+0QhPyeuCEd9XNQ7PeQFX5H2E4yvCtXd8u2C7vK+wYG96
QugoE4TJ+ww/ndhZHbvJAJ7yvsMgk93NBdwIz8jrhmG1zr9GNnfAlzJfQPxK
72qn+R3wocwnkOiZVjQjpBPCZb6BI2/qts57/Rl4yXwESd+Fr9p9thUaybO8
14JlHk7Vz6FQ5jOgY8laYYfMd3B81qPorCXtMEHmQ1QCDCbPhmbYJ/Mlmvvj
LvL+379C5lsMKd3i6uraBDdkPsatF+uzI2e1ga/M1/jbetkyn6OG9q8BOsiz
Q+ifHy3rga2fy3ph88fJemIbv1vWG2T949vIG4Dm+2E5vrtqYKmsV6jq8sJf
nlUPX8t6hkp//Jqsd7bxu2Q97H9exgzkOfaPr4DFsp7anq9I1tt+vwLGyHps
i3fKem1br4U8Z5sfKeu9Lb4mvwdssbf8XrDFH8nvCVv8P1WdUJs=
           "]], 
          
          LineBox[{{3.9249999999999887`, 0.34127814128987216`}, {
           3.9749999999999885`, 0.3010299956639812}}]}, {
          Hue[0.37820393249936934`, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          LineBox[CompressedData["
1:eJwt1AlQVVUYB/DHwwcCPnGihlBxBURTVAQRlP4YjumUpKLEDLmWIhKC4sIQ
bmWmuUMGSQgu4YaiQiOgdo6MkghCyC6yivlksccO790l3vf8Zu7cufPd8/vu
Pec7Z/z68OUblAqFImzwMtyfFhrCmidOPP97XaCM4I2GsOYe++4mXGuWYaIw
hDX3f1Fu991ZGYm/GWI47z7cMn79hzLcZxliOLfxFQJ22yp8islT8yin7JpC
tYwQ8tT8VGCkNidChil5ap4b7pa58rqEJPKG8YncXnt5pwwP8oZxxzzhbtkr
CSXkWfGI8a2uVR/ICCXPiidf1p3eMluCijwr7nixJahgjYxk8iz5m/lN87o6
JXiSZ8lVK19W8loZpeRZ8KVuK/F4gsInjDwLfn7VDOc7NTLMybPgyuqrzHFA
xjnyhvIs5aHj9XkS5pI3lD/Nnn7PdJuMcvLM+ZF96bdvSwLCyTPnq1Zm+sRk
S7Agz5xPazpg318o4QJ5Ztw6S+pofCjBmzwzPjmqef0EWxmV5Km4ZWR4UdxN
CVvJU/F1OeMmpcVKsCJPxUvMc2ITFov4g7whvOR7u3mZaySAvCHct3bElBgH
GdXkmXK7wLEZNgskRJJnypWTtWaaXRLU5JnyxK0rWEypiEvkKbm7PPzPLUsk
zCdPya8XzpjwoF1EDXkmfNfj7SfGnpOwgzwTnleUX/TAV4Q1eSY8ZMacQHWT
iCvkKXh9atkUIUiAL3kKnq7ui1E6S8ihvMzWBc+XOtNEtJMvsem5KodCQcA4
8iSWoZmbcSVagj+NF1nt5ArrmFMCDlJ9ga3tQIddmYhs8vSsx6Zpc4GbhDby
dKzuxaM22UXEWPJ0bPHarDXxGhHLyRtgPWHNXzgFiviRvH42KUnZbPOpiCzy
+tjqO5qpyxpFtJLXy/BR++N9w0WMIa+XPWl57qXSCFhGXg8L0D49LVWIOEBe
N7uwx/nj6X+LuENeF0twT0q/vkxEC3md7Jqrd6nnPAH25HWyjOq9qV97ClhK
XgezP7G6zq9IwA/kadnsmQee3xvsr1DK/8dG9rHjtY4CSshvZ/pkq4KNKwR4
kNfGcoPjN6/PFZBE41vYmFu7790K18OUDgANK05MsL18UEQIea+Z2aaofI1e
h2LyXjG7tDQfvxQ93MlrZidOVUyb6iwgkbwmlvXQN3eXoIMJeQ3Makva/Qiu
RxHl61hzTXVN/hIdEsmvYW0u0Sr2mQ6byKtiZrn15tXVgz6NL2MF+6ulG439
UJ4x1C9hfx3a2/peqh7JxgOLFew4kttep4MnHVh5zP/Us+5blwZQSh5nQ6wm
mp4sH0CVm6FeBos+7GCSWjUAlxT6IbY/2cJ/m3sfzOLoGWf3R/g3BOlwfCa9
j5OtO39qstThK0keDIb89EfP8t7vxy8bqB7S813neKX0Q19A34MqFzFo6ax+
zCSuBBbjKnIONXbjG0qXITRxgdOsxl7EGzi5EtnNo7cfO6rFE1eaD0ypWBR8
s74bIvl10Fj/c9F5cjcSaHwDFnlFxcXFdsHVON+o9zlWpvbVopC8l1j97+iD
8V7d2GhcL3RkFB/nb7qgMK4n/EPfplgFtOMMeRp0ee38PFRog5uxH3Dg27Ty
t0yLIvJa8cAhaduF+63YZOwnFB8d9cmXD15Baew3RP5cqZvk0gY/Yz+iuOTG
QOeeLow09isWvvjR+cnzFrwmrwN6b+8cj7UtyDT2OwJrY5QjBv39xv2AnLaC
qPLUlndeN6amO9n6XW3AKON+wpwAn7CFqmZoyOvBr7HR6qKaOtTEhahPxvZC
8S7+B0gFghs=
           "]], 
          
          LineBox[{{1.4341628148273942`, 0.}, {1.4749999999999948`, 
           0.8538882588044555}, {1.5249999999999948`, 0.12132441595331384`}, {
           1.5749999999999948`, 0.4375015985998391}, {1.624999999999995, 
           0.17285647634013904`}, {1.674999999999995, 0.57029556681819}, {
           1.724999999999995, 0.03589707336969706}, {1.774999999999995, 
           0.4435394304893799}}], 
          
          LineBox[{{1.8749999999999951`, 0.6385837268566469}, {
           1.9249999999999952`, 0.47712125471966244`}}], 
          
          LineBox[{{2.0249999999999955`, 0.}, {2.0749999999999953`, 
           0.4783450705613932}, {2.124999999999995, 0.}, {2.174999999999995, 
           0.}, {2.2249999999999948`, 0.49607126102678345`}, {
           2.2749999999999946`, 0.5726581054264944}, {2.3249999999999944`, 
           0.6020599913279623}}], 
          
          LineBox[{{2.424999999999994, 0.5863606850533402}, {
           2.474999999999994, 0.30102999566398114`}, {2.5249999999999937`, 
           0.}, {2.5749999999999935`, 0.47712125471966244`}}], 
          
          LineBox[{{2.674999999999993, 0.30102999566398114`}, {
           2.724999999999993, 0.}, {2.774999999999993, 
           0.31640992340473306`}}], 
          
          LineBox[{{2.8749999999999925`, 0.47712125471966244`}, {
           2.9249999999999923`, 0.}, {2.974999999999992, 0.}}], 
          
          LineBox[{{3.1249999999999916`, 0.26569449434315795`}, {
           3.1749999999999914`, 0.}, {3.224999999999991, 0.}}], 
          
          LineBox[{{3.4249999999999905`, 0.30102999566398114`}, {
           3.4749999999999903`, 0.}}]}, {
          Hue[0.6142719099991583, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          LineBox[CompressedData["
1:eJwt1AlQFEcUBuAFZAFdIFFzSAQVjRFMqIggAdG/YiKQaCyOUvEoN0HlEI+A
eBCNEjWioBwqkMVwCF5EUxrwxGi3F4IiikjQUlGQY0ukFtidY0Ul7Ftf1dTU
VE9/b6b79RsVsSp0qaVCoYjtv0z329WmcOQh5bYhDtcFREWawpGfVU2Kuvi9
CAuFKRx5Qb5c7bFBxH6NKRx4iEN7RfwSEd4TTeHA3e/MaQ4TZdwhz54/eVWU
Pz5ORgx59nziX7fqfm2VYEWePXdNnNFWeENCHnkq3itFOevrJPiQp+If10RE
bYoWUUveIO6ZNWy662gZseQN4q1RA2J22BpgTd4grg744m5Kt4gC8gZy1y73
IU3HjfAlbyBfG7GvONjKiDry7PhHU5oDum4LWEGeHU/LzXzs5ifChjw7vshr
WJd3r4gD5NnyAy4Jm8/FSZhMni1fl73z37UWEurJs+HvG6wbhSYRq8iz4W6V
Z6YPLhZgR54NT9rznlarklBMnpLbaObPv+4mYQp5Sh7uNbMyYZSMBvKs+Q8z
bzZdXC0hjjxrHjpuvHLqLhmDyLPml68J80a3SThE3gB+YGVxUY1RAMgbwN09
y6z6AkU8JM+KF/oemj/9kIzV5Fnx4E8PalwuGGFPnhXXhhf9omoUcYQ8S54n
ZK5qTZXxNXmWPNpJE7QzXcYj8ix45N+bzjTbSVhDngUfo5sXHptlgCN5Flw9
T2d1osGIEvIUPGF7/iTLz/X4hjwF99hyJP5UvhHlNN7H3qQpM+MdRHSS/5aN
Sztz2q9Exkjy3rKH2YVRL0eKCKP5b9jzHPXw8+MFbKf8r1mUjzj8epWE8+T1
Ms3iVjRPlfGSvFcsa+Ms34AHIkaQ94qlJgdfaq80IJQ8I7siJDy9kiTjd/Jk
pq44mdo9TMI58iSmurr75rE2GR3kiaxF27F6eJoAF/JE1jAsdE7gNREh5Ams
rfCDlaWNAraRZ2D1bT5bdI4SzpKnZ9cWuFv/t/cVXpDXwyLsFl1SlUpwJq+H
jVyzw3NdooBg8rrZZ+X1J2VuxFbyutjW+VttqwL7zwON69jjivoPJ+0RUEt+
J9tQnC/OfSTDh7yXrLxy+bEQLiCP5r9gcWPXLTPU9J9HagBatjwnOlC3oBcx
5LWze5sDMgf+LOEOea1M3Zj+pzjVCG/yWljHlow0Y5YR+8lrZnv1T50tbvX3
C/KesTOdfZeyJQk1NN7IlmRlNDql67Gf/EcsOXPLtPKhMqLJe8CKmubaYL0A
b5p/nylfL9/n6yLCMteUv5bJF51XVnwnoMDcsFhgZaxGMUmGLzWsCla3NuVG
aZ8BdeRxllL702z7zB488DLlK2Md/m7Z4xfr4VFIP8TS74bvOny6E8q99Iyz
fdFeF57okTaB3seaMctmp4b1YOHbvv5gCJVy0kvcBexbSvlwNTkkzzDDgN5b
9D1I+lGd1pOrxwTiarFx04gM9bQeLKHh+3Aq9X4Qlt6NHBPX1wDtYOfay7Et
uOlJ64GTDn7xMeOe4w35jfA8eHui/9FO/EHzn+Gfb6tnh03ugqd5vdGe4lRZ
FqJDNXnPke06J7uhpBOR5v1CclLVV82HdVCY9xNB6Uf3rF/QjlzytAhSfxLs
r9PCy1wPmLGwwX/I4U7UkNeB19vUeTv780Sb6wn5pZoVnSfaYWmuN+weoNi9
RHMVs8z1iIIjoYke/BqczPWKojLroC9d2tFOXjdcY5SR0blanDLXO45n+g0e
+6IFv5nPAzKKC4cGTW575xmQWHA7WVV1D0kdyij/dAMU7+J/ltxfpg==
           "]], 
          
          LineBox[{{1.4749999999999948`, 0.30102999566398114`}, {
           1.5249999999999948`, 0.}}], 
          
          LineBox[{{1.5249999999999948`, 0.}, {1.5749999999999948`, 
           0.6592457204272306}, {1.5972161495487993`, 0.}}], 
          
          LineBox[{{1.6538016004819858`, 0.}, {1.674999999999995, 
           0.6068165440077058}, {1.7082490698481807`, 0.}}], 
          
          LineBox[{{1.8749999999999951`, 0.30102999566398114`}, {
           1.9249999999999952`, 0.30102999566398114`}}], 
          
          LineBox[{{2.0249999999999955`, 0.01254275356616403}, {
           2.0749999999999953`, 0.}}], 
          LineBox[{{2.174999999999995, 0.}, {2.2249999999999948`, 0.}, {
           2.2749999999999946`, 0.}, {2.3249999999999944`, 
           0.4779605021280306}}], 
          
          LineBox[{{2.424999999999994, 0.6016610659756481}, {
           2.474999999999994, 0.30102999566398114`}, {2.5249999999999937`, 
           0.}, {2.5749999999999935`, 0.30102999566398114`}}], 
          
          LineBox[{{2.674999999999993, 0.30102999566398114`}, {
           2.724999999999993, 0.}, {2.774999999999993, 0.}}], 
          
          LineBox[{{2.8749999999999925`, 0.30102999566398114`}, {
           2.9249999999999923`, 0.}}], 
          
          LineBox[{{1.3683907855026451`, 0.}, {1.3749999999999947`, 
           0.17951370288960253`}}]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Dephosphorylation Signal]\"", TraditionalForm], 
          None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-4, 4}, {0, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )], ",", 
   TemplateBox[{GraphicsBox[{{}, {{{}, {}, {
          Hue[0.67, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJxF1AtUTVkYAOB9q9vrlvQwgxGKBlFeFcbKv0OWx+hlZJke4xVSaYjJI5aS
RtMMqplSaZVJhfLu4THZOyxjEbpCNQnLq7il1y11b/ee6f7HmvnXOuusvfbZ
3z77nP//7dZE+oXoEUJ2DFy6+/0qXVhw372rpg8tEGDDel1Y8K6k932pRwiV
EF1Y8A0BNpmmawjNytDFIG5w3dIq/pMArtN1MYgPa1sp/1RG6EP0zLkks+LE
8UIBQtEz5+dWeyXJVhGqj545P2iY0OPgTGg2emY8bpnJ34HZhM5Az4x7O1QW
BQcSKkdPxmtsvry2eQyhYejJeMqUoKB4FaFS9GT8/FltSkgwoTnomfJqF9dS
u/WEzkLPlF9auDhNayShNeiZcDPTqp5lGwmNQM+EBxXTyU4eEmqEnglPjT4S
4zmU0OPoGfP5CWub2r8jdDZ6xtzTpz48kBD6BD0jvi5+e4BjA6GR6BnxdN+A
wKt/EGqCnhFXSgxdk0MJzUPPkK/7J6PbNI9Qd/QMeemRsAmnYgmtRU/KUxyP
y7JXEroFPSl3qFswrTmGUBl6Ut7sf2FLyGFC89Ez4AEVEfZHVxAK6BlwL1lo
u9VUQuvR0+d35RcMPs0nNAo9fe4eFVh3vZFQc/T0ufk1L5/zloQWoqfHE9c/
trW8QKgHeno8xv7N5ctZhDagJ+GXvw9pWzhPgO3oSbjdn2N9jwyc1wI9CR+W
e7Lk9hJCT6FH+BW9vCtSN0LnoUf4wrNpOQovAa7ivMDe5Yy4tvmRAK3oa9ny
uawxIEaA0ehpWXjCb9sSJxC6DNdrWKfB0o1j3QVIwP372V21WfjK4YReQU/N
7H/6y1ORKUALeiomj5shNx94n1HoqZi/jby+uFEAP/T6WEmwc/EGM0IPoNfL
Gn/O959tKMBl9D4x4zLn5eOWCqBAr4cNSb7oWPhUgJHo9bCxnqdsWKwGfNHr
Zifs704sWUtoPHpKlvLL1MTYIgHK0eti3mbv+87ECfABvU5WPZ6UFyi0YIte
J3Mf1VzifV8LPuh1sAhpr2WtjwD70Wtnp3fs7G3y0EIYzrcxk2SnH4sa+0GO
fit7VZvh61migRnotbDYvl3WY572Qzau/8AmaVbZKnO1oI8NoJllBRW47bfU
Qih6TUzts3effYkaHqL3llVfDzayTdaAK3pv2JOjW4zyL2ogC71XzCG85Z5V
vRok6L1kK7b6fq3y1sADnH/OQJaYX3+xH7LQb2C17TfmxJZpYSN6dcw/Xf/Y
2uH94IrrH7Oz5GCbtV0/6GXq9pczmwjnSR/9VJAjNiymqXE4V39SBbOwYd1m
knHZRcmlKqhBj7PV0rRFkWlqqHPR7XeJPXtRYWXirwLnXDwQc5JPdu3oVIFh
Ko7hRnVqcd9jFRyais/DNx+qMqV+agjUCgPBYFBvhEXqRBX8HoL7gaMLu3d+
eC+o7+H7wGY718HbzvTCVOTkoHQbeeb0rT5Yh9OPIQwqRmS87YF0HSfUQk5U
kcmdF11wdxp+DyhwXlOcMaEHNOg/B/+k1kfg1ANHcf1LKE5bRNNrlTBN/N6Q
M0R6s9ymG6rQew3524KebTLtgvXi/4JbSfMMrVcrgYj/E6rDocFhTxdkotcM
o/335f56RwkuYj6AYrdN66bBnfAAPQWEFSyqbJnQCRvFfILwvD02qxcoQU/M
N1gcelhtfKgDvMR8BK1bW++Idy0wXMxX2Drl2O6OSCU0odcBgyvVy29vV0KJ
mO/Q5HHiXN2udogV6wE0T7zTxiV+/OwpQZXyw7UD8Qr4SqwnmBRX9O1St1Zo
Rq8bNIXRUdnvmqFUrEeInvlySVpkF8SJ9QoRN0MrZ575CN5iPUPSQX9zDzsF
jBDrHeZU7ZDJZAp4j97/4zKxX0DH68OS+zeaYL/YT0DYmeNjPb8GfMR+89/Y
VuxHsCkt+oubi1rgA3oaSNYWj5/b3ATlYj/7fL7nEC/2O4DP+/0L+0mjvw==

           "]], 
          
          LineBox[{{2.174999999999995, 0.}, {2.2249999999999948`, 
           0.47712125471966244`}, {2.2749999999999946`, 0.}, {
           2.3249999999999944`, 0.6266009865296069}, {2.3749999999999942`, 
           0.}, {2.424999999999994, 0.}, {2.474999999999994, 
           0.3010299956639812}, {2.5249999999999937`, 0.}, {
           2.5749999999999935`, 0.3010299956639812}, {2.6249999999999933`, 
           0.03108151138409916}, {2.674999999999993, 0.3010299956639812}, {
           2.724999999999993, 0.}}], 
          
          LineBox[{{3.1249999999999916`, 0.}, {3.1749999999999914`, 
           0.3010299956639812}}]}, {
          Hue[0.9060679774997897, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          LineBox[CompressedData["
1:eJwt1AtQVGUUAOB77/KUVw7KFISKi445WmmraCTnd0QGSORVmAoiBYiikoLD
GEkoovgExVHkIWgSKlgZSCTV/2OhgyCGiA/EHQSFFQRl2WWBhb2x53Jm7ty5
89//O/dxznH5Oi4oSuA4LmH8MJ7v1hvDjp3r/sm6qoonm6KNYcfuVsuGvtsk
EJ4zhh2rizeXH1khkNyzxrBl8nR3H+41TxZ9Ygxb1r9Ru1juLJB76NmwIPet
LrJUnmxGz4bN8AmLGWjniQw9GzY33frYjcMCyUfPmq274hE4o58nbuhZsyAx
I7RVyZNG9KzYrhb/YK2tQGLRs2Js6jtCRKFATNGzYjVFe3ztxp+3AL1JbLu6
rWaxjidL0ZvE3iu1nO5XIJAm9CzZurJzyS+WCWQbepYMGlWhc04KxBw9S1Z7
2/Zo3fj7nEfPgv2g76iIXikQd/Qs2NZL9+XhCoE0o2fOfKZ+kZI7ni8OPXMW
qcpQTY0QiCV65mxZ5fyu+kqe/IieGdPOGrjCpghkGXpmrCLrkhd1Fcgj9ExZ
4uMa27mOAtmBnik72JmdNmAmECv0TNnOeJPSI+PXReiZsND/CpN+5QUC6Jmw
piQnOxc1T56gJ2P6gYA+v+UCiUdPxor3itG+ozyxQU/GSttK5hyeJZBi9ASW
XGUfvtZNIMvRE9iXh9Li7Xt48hQ9nlXJgkP/LeLJLvR49s/SKQ7HAgRihx7P
7B4m73d9xJPL6HFsg4/2uTydJyvQ41js9NzNzyhPbuC6SPfs97GPOs6TXvQN
NGL04xzxKk9moGegRWapOxNTeBKM+8doXf7RPmUiTw5g/lG6oXbZnoqVPPkD
PT3NXOWkyKjmyGv0RmiQa11k33qeTEdvhI6mJ97xreFIEHrDNGf4Wcp6T56k
oTdEu05Vzpd/w5NK9HQ02LVvV4MNT3rQG6RxvRVNSZ/xZBp6g7SES9FpcjkS
iJ6WXvReVbtd5Mh+9DS00vrSpLzzHPkdvQFavC1mScQWjnSjp6ZW3yaH+3WL
4Iyemqo37izKn8aTAPT66YhCnX6wjCOp6L2lsaXb/M/MFyEW199Qj8XR5Xeb
RWhEv5c6BWX5KI+L4Ibeaypb4am/TUXIx/3ddPeBdfWlHiLIcACo6Pp393nn
h4mwGb0uWuKlTIk8MQb30HtJA2q1mT1/GmARei+o3ac3LVZfMUAueu10oPsX
ruX5GPDotdHfqIvzrLoxaMB1Jb0+cuaqc9QY5KL/lM7Vfn55TasBYtB7TGtd
EsoF3zFYhPsf0NlnvVxrT+hByDHmb6Q1fw9mWl7UQ4E0sGh/Wau3BzcCS3Fg
3aIRmebfh0zWQxN6jJ7UrXUIeTIKjxXGfGXUyVE20LFlBD4sxBeiX/0cem3m
0xEwy8JrEKp1XdVvhuD4ArwfyujJvDDDEIQaxPGgMCY4FKqHhuBUFOYD8rbp
aHPPIOjr8HnALEqpXxKigwXINYIqJSvyWpAOInH5AfiHWT3Mc9fAGSMnPoKW
0/d3zivXwJ2F+D2gc/D1qmHTQRhDXwnHzl1YE9/yFrJxfxtYtM7rq2vWwkLp
e0M7MSkyUWigHr0O2KdSlK9eMADR0v8ChVOyV8RiDXDS/4ThC8wicfcbyEFP
BdXhsWLTKw0opHoAjY2nLi/7DTSg1wOjIdmB1c1qiJHqCa6FlMgDa9QgSPUG
zbm1CrXTW1gt1SM43Xjo79fwEhyleoUdCTvkGVNU0IVeP2hvy2dWdfdDuVTv
YB5me9NjdifslfoBTA9NjnO89WLC08CGv7ytLiZ0gpPUT9C7r+wjpYMKVOhp
QdxdEGDv2QHXpX4EQ3FifH6nCvZJ/QpRd9wvpy3KA3+pn6HsQpK4vaMd3pf6
HU57eya4ffAKXqE3DIYJr0KaF7DXpDNjSa8SUqV5MpGvCQKkeQPcRPwPrG97
gA==
           "]], 
          
          LineBox[{{1.8749999999999951`, 0.}, {1.9249999999999952`, 
           0.47712125471966244`}, {1.9749999999999952`, 0.8450980400142568}}], 
          
          LineBox[{{2.0749999999999953`, 0.031447226136332836`}, {
           2.0775474984697615`, 0.}}], 
          
          LineBox[{{2.174999999999995, 0.}, {2.2249999999999948`, 
           0.3010299956639812}, {2.2749999999999946`, 0.}, {
           2.3249999999999944`, 0.29365241882927984`}}], 
          
          LineBox[{{2.474999999999994, 0.3010299956639812}, {
           2.5249999999999937`, 0.}}], 
          LineBox[{{3.1249999999999916`, 0.}, {3.1749999999999914`, 0.}}]}, {
          Hue[0.1421359549995791, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          LineBox[CompressedData["
1:eJw91AtUTVkYAOCzT+93VjOMhAxjTXmtqGnR8O8GGa+kMihaolKr8WiZHsxM
w1SUQZbIlV5WU1TMIJVm0t5TRKQkpprklR50e7l1S1e36f7H8q91111n/Wd/
+5x9/v+fsnWXu78oCMIPoz/N//1KTZjxRZOuJ3afIHR7gCbMeOi649UH1oqU
CJow41XyiaapliI9e0YTpnypT1NEUhahDvM0Ycr1UhvDD08RaTV6Jvz5tdCp
Lj6EBqFnwm8HDy+IvkyoFnomPLvOsNTYXaQp6BlzcfnuZ7IcQh3RM+YtbVHT
s5WE1qBnxMv/fmRTKic0GD0j3h+6/E6ClUh10DPiHWXFsJCINA09Q24+VAkW
w4TOR8+Qb/x3WXWCp0hr0TPgj30jc0P0RLoDPQO+dXmFcmWoSPXQM+BleXU5
I02EnkNPn2+h8lkwXqRO6OlzVWS+bYa5SB+jp8ebgk/IYPR5dqGnx+3n9DQ/
nCRSA/T0+NW9rVU/KQSagZ4uD9+QPytg9P0WoqfL/wjepspYINI69HS4zLG8
oqSD0BD0dPiRiGf3Xt8k1Ag9HZ7Yk/JVei6hmehpc4v7qltZFYQCetrcZrOn
U9lovgE9Lf6Key+9YijSPehp8VzqNjX9JKEm6GnxUnncvH9eEnoePZHHuzyQ
zzcQqTN6IneK2V50e/R7N6JHeFeBd8WqUEJD0SM840KORfxofZihR/hqu6xf
VqQSmo2ewHevty7O2kvoYvQE7uBlkKyYTOhfmB9ht9JNI3PPENqJvpr9nt0x
VpsSao2ems3KrHFdbUuoB64fZjWHWv09pxF6EPd/z765Z7mq74FAi9BTsTtV
E6pOzRaoHL0h5mh11TVgB6GT0RtipW7GEXlhAnVH7x1rdqkrryKExqA3yEqO
jkleZknodfQGWHtJXvnUPQLtQE/JnHa0JNZ3CnQSekpWX2D0reNkga5Fr5+d
TmmIU64QaDR6fczmgnP0uQ0CLURPwX7zj24IshXoG/Tesv0GM2MyStQwEb23
zLnsaeKZQoG6odfLGnLdFncqRiAKvR52fuV/WdrJagjGfDfzWlH4pdVqNdSg
3zmaX3eqbJ4aHNGTs6M6N2+fjFVDCq5/wz4rrjgwx0gNWjgA2pld6M9ZOT+q
IQi9NpYYoiP72noYqtFrYYMpd9qstNTggN4rljkmbHpY9DCcRe8lO+F2rviw
UgUEvecsYH1Xjq/DMFRh/ilLTHLK92t4D2fRb2QrZaXyW/FqCESvnl36LkrH
fFgFDrj+EbPfNnjxrtEQiEma/WvYu7Z9HgF9Q5AmDSzmWqSyNvUZhPk4sMqZ
V1pCilf8ENSix9lcL9tUA5f3UG+v2S+PJXsWyEObB2F2Or4Qs/EotRlnMgS6
CXgNI/k531dnDsAxO7wffNMs+6ICBmCTemQ0GDzxP6qvGzsAJ/1xPzg9vuVU
SaASVPfweaD7xoxD4KcEO+RqwFw9sjHooBL8MP0I3G6Ez5hYo4DTGm6kDlbF
XYn0y1DA3bl4HrBgnCzwQoEChtF/Cuk+gbHhf8pBhuufg4fWFNnLxn6YK503
LPmid9GlaAVUotcM9+NebGiN6IIA6XuBxXFfWhSiAEH6nqCyqx+7bE4PJKHX
Dj9XrEmTfdoH9lI9QGDQuhyTyi6oQq8D8BiFHgiU6gk2HfHq/PxmL4hSvcHO
Y037PWM7wFWqR1DvTXOzWNIMllK9gpep+8Om1lZoQ68XvGX7xo291gvXpHqH
oqKwq4uut8MBqR/gk53O07Z5v/jg9cGzi/svBWxphglSPwFZfHm9cnMrtKPX
/3G/fKkfP+Z/lfoV/O86Zcc4JMMaqZ9hTeGThB79F2Al9TsIH+5/jd67j16B
NC9g5pMj3VkNtRAlzRMYwXwtuEnz5sP5CML/HiB6ag==
           "]], 
          
          LineBox[{{1.8749999999999951`, 0.}, {1.9249999999999952`, 
           0.47712125471966244`}, {1.9749999999999952`, 0.6989700043360189}}], 
          LineBox[{{2.174999999999995, 0.}, {2.2249999999999948`, 0.}, {
           2.2749999999999946`, 0.}, {2.3249999999999944`, 0.}}], 
          
          LineBox[{{2.474999999999994, 0.3010299956639812}, {
           2.5249999999999937`, 0.}}], 
          LineBox[{{3.1249999999999916`, 0.}, {3.1749999999999914`, 0.}}]}, {
          Hue[0.37820393249936934`, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          LineBox[CompressedData["
1:eJwt1AtQlFUUAOD/LgICC+uYOr4QKEzESNBFJR/nykozgZBCaJaakKArKGIu
mKOW5qMxxQc5KLqCUgRm6oAhKHFvoivgA4E1MZIRxUBYYFlYHrvsbuzZzsw/
//xz/vOd+5rrFZsUGScSBCF++LG+Hz6whoT7eUh/q7sr0A3x1pDwHGJoU58n
lAjWkPDGN5RuOEno2TPWcOOKgsfndQGEBs62hhtv8SlIPvFcoNXoufJc3Uxd
sERE5ei58qyVil3bQgi1Q8+VlyuEsPwnhCrRE/O+kql7pv9O6Fz0xPyC5YXD
GDmhNei5cEVQWlxoDKEJ6LnwdzyyjOEnCLVHz4XXd+d9UDtRRLPQc+bTBiq3
zDEQGoSeMx+/uuqcOyO0Dj0nrniUNe6EhtDN6Dlx9VjlJ7V3CXVEz4mPLThd
sqCW0AvojeS5sUs7HyaK6Hz0RvJXb38t3ptP6BP0HPmx6v0dFTWEJqHnyMP6
6keVOYuoE3qOfEpyuEPh8Pxz0HPgv3YWtDTtIXQheg58IGTm7sBsQp+iZ89Z
bciETbcITUbPnvsdkQUfMwnUBT17vtV1+7faxYT+jN4ITqUJD5bkCRTQG8F7
R8Y2j/mB0Gfo2XH2+V2P2jWEfoWeHVfJDtqnXiHUFT07PjrycGH5LkJ/QU/E
q8jsw5VGgS5GT8SjJykzzlQLtAE9wusr12RWpBKqQI/wKv+jxZeKBCpBj3DV
vnU9pZMJzUdP4Gvv7ep8z5FQGXoCL5OmzFgyhtCbmLcw6M/xWeBLaAf6ZlY6
IyrBK1GgnuiZWS7P8N8dItAorDex/m3pC4MPCvQg9h9i/qFcoxweTwl6RuYh
vnwoLEGgGvQMbLBH09tWJ1AP9Ays+JJS6RZvgUj0BpmvTO6U+sYCB9AbYElp
7oc1OwRajF4/a0h6q1SXaoF29PpYdPHFfywKC0xBr49FFDwp+nCnQJejp2dp
A+KAeUYz7Eevl318Mpz+8ZcFbqDXw3qPeHZ8FC3QNvR07FTK1qii5yZwR0/H
XmomfrNEJNBl6HWz21WNCzaOM8F36GnZNvCMKC8zQwLmu1h+9aFV2uUmqEG/
g0lyvcI8V5phLnoa9vco76Zrm02gxPo2dv2nzdMS7wyBHV4Arezc1PxTgswI
cvRamHfT0mUVg0NQjd5rZp6/dXp0twEC0Wtmk65czd8hMcBZ9F6y8XLV8TS9
AQh6L5ifz+2U+2IDPMJ8I+s67hjpcnH4f/QbmEfYZL8b6kHYiF49c25Q5emH
BiAQ69VM/eeZ6zKtHkSZ1v41rKF3X6lbqxGybBcWS14Uu+5SRT8E4YWlYluu
dBU2W/RQhx5ni0IDBlua9VAvtfYrZF1fJn/vcK0P3s/GCbHL67p79x7Vg0M6
foPXTbuoLyb0QFoA/g/pq1yad0p7YLXZMhwMqhbFDEg6e+DHOOwHMpU04921
OjDex/HABP+robIQLQQgVwNlKyqackgXrMe0GsKDJCon33bIsHKWpxBaJ78Y
562Dqlm4HiBXPW/fFN0NJvQbYXRue+Hsag2cxvoXkJ7t473SWQuzbOsNRW2V
mVHiTniA3is4Uju0YuhYF8Tb9gsmr31ckJb4GgTbfsLJhvvN96q0kIleK4T6
ri+J/+xfkNrOA/Q0fTonRdwKj9BrB+O80Xnugx2w0XaewD32mrd2uxZEtvMG
d25Jg2XZTRBhO48Q05VcHtGuBua+/lnM9G4Q/o//AOAVCTg=
           "]], 
          
          LineBox[{{1.0769369934511703`, 0.}, {1.1249999999999944`, 
           0.4083808772976844}, {1.1749999999999945`, 0.30102999566398114`}, {
           1.2230188548970802`, 0.}}], 
          
          LineBox[{{1.2266057502207675`, 0.}, {1.2749999999999946`, 
           0.37430879325397765`}, {1.311791297996966, 0.}}], 
          
          LineBox[{{1.5685211294642976`, 0.}, {1.5749999999999948`, 
           0.046643051041757914`}, {1.6024251591628516`, 0.}}], 
          
          LineBox[{{2.0749999999999953`, 0.5673241215215261}, {
           2.099600067192402, 0.}}]}, {
          Hue[0.6142719099991583, 0.6, 0.6], 
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          LineBox[CompressedData["
1:eJwt1HlQVXUUB/C38GTniY3piASiJDKGkjCI5HwHIRxJGcEZtVGJYgutNEgH
1xFEAUOIxZRFgXClMo1Ek6HfT8WVwN48GBdKgdjEx/aW++4FgnynvjO/uXPn
3PM59/fPmfPJ9qh4hUwm2/j6WJ5Nv1ui5m+y7/e0TzcjMcESNZ+/7G7MnahR
yGWWqHmYh3fw/noRpcWWOPH3n+5xvZljhv8SS5x47Yy8/JYNAh6R58id3XXn
y+pEJJHnyDNH98XLXCUoyXPkBf0lr4riJZwiz4FXGwK8V2lGEUCeA7/xznv3
Vv8sQkOePVdF7N33o5uEbeTZ81vTXbTVpwSoyLPnsYENeR16EeXk2fH1sqJ5
iiAJgeTZcd+DiZ6ePhK05NlybhddKb8g4XPybHnZZzWHVHEirMmz5RlBa7au
mT6KSvJseGj0bzWum0QEkWfDhbKTqW+sFdBKnjVfWLTs8tnFEraTZ81b1QUN
87Mk2JJnzUMPvFw9HCWhirwpvPlP1ZlptyQsJ28K77zgHajJF/GYPBX3aMiL
ivCW8CV5Kp69b1pQnK0Ie/JU/MAPCRXFagFnybPi9X2FPjltIkCeFX/4YcaK
t93NeEqekkcu2REz1SAihTwl/2lWSdgVrQhH8pR8/pHY461NYzhPnoL37j33
fGq6gGDyFHw8adez9ItmtJEn52G7a688qTVhJ3lyfjPcJ3Sgyww1eXKuyteo
bkcLuEiejGfdL3L2kAkIIU/GCxXfeRZnCbhB9Um2SHe4o7TYiAHyJ1jkrBV6
vzUC3MmbYC75kX7DW8xYR/3/sK/y/ig5vdGEIzR/nFU627xItxHxK3ljLG22
Y36FToCOvFG2LnPyZPU8M9zIG2UtaW1uLiYBUeRJrKy8YHZHrAmHyRPZwMaq
ubJrJlwnz8zCT4esLNwt4BV5Ahv/Zrg/Jc2It8gTWHPqgrLLlSZEkmdiymh9
eNdMEzLIMzJ1b1DC1YMGXCPPwLYsdZYt+cKAfvL0bNArpf5jsxmu5OlZT21y
1qU6E9aSN8Ie6B2yluYYcIi8YZb2YKJBL+mxjepDbHGyi+OtnUZoyB9gC44q
a6WwEQSQp2Mj3oedNuTocYr6+9nVlWO3U3sMUNIC6GPa/etXlgaOIIm8Xlae
HaWyCjXiEXndrH6rw0ebPxiBP3ldzKsxusBLY0ApeZ3s7rGz18+ojJCT185C
Fh0ML8cwmqn+nC3KD/57R9MISslvY7ktpXNS/hrGp+Q9YfeGitueJffCn/pb
WM1999xLd3RQlFjma9hgnXZhRaEB5f8tLNZzftPAcQ8dAmlh3WVeJr/qA9Hd
0JLHWUftpLznRR+e+Fnm1bBVNcvjq0z98KmgC7Eh677FVYm9mFJI75hxIjR+
pr8Oub70PU50Zrss9B3C5onJ12FIOlevcOseRFE8zUNq5tHju78ewFgj/Q9i
vk1+Nyb7JXyJ0yDgQeOmzLl1iKNyC37R+qbsymxHRGGG18Pyx5D9n38BAHqx
Vg==
           "]], 
          
          LineBox[{{0.4307713417222071, 0.}, {0.47499999999999415`, 
           0.6452164161979176}, {0.5249999999999941, 0.0711776877141776}, {
           0.5749999999999942, 0.11177048179609476`}, {0.6249999999999942, 
           0.3414842773477888}, {0.6749999999999943, 0.}, {0.7249999999999943,
            0.10670878672983562`}, {0.7749999999999944, 
           0.00008226955063785959}}], 
          
          LineBox[{{0.919413285064017, 0.}, {0.9249999999999945, 
           0.1029605337922811}}]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Dephosphorylation Signal]\"", TraditionalForm], 
          None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-4, 4}, {0, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}], "}"}]], "Output",
 CellChangeTimes->{{3.772169885059484*^9, 3.772169900093421*^9}, 
   3.7721699775755367`*^9, 3.7721701185811143`*^9, 3.772170304742383*^9, {
   3.7721706249437075`*^9, 
   3.772170639335004*^9}},ExpressionUUID->"c8ff8b2b-94e1-4fee-9529-\
e0becb345e07"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Plotting Mutual Information at different signal intensities X2 vs X4\
\>", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717550341040754`*^9, 3.771755042491076*^9}, {
  3.771905275104765*^9, 3.7719052782248898`*^9}, {3.7719072537923517`*^9, 
  3.771907255712274*^9}, {3.7719260830105343`*^9, 3.7719260918105755`*^9}, {
  3.7719276142693405`*^9, 3.771927616239664*^9}, {3.77192850678555*^9, 
  3.7719285095352736`*^9}, {3.772163205528574*^9, 3.772163210120576*^9}, {
  3.772166278086356*^9, 3.7721662842303543`*^9}, {3.7721707035873137`*^9, 
  3.772170706917095*^9}},ExpressionUUID->"074f6b39-6fbf-41fe-ad4d-\
2deed376837a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 
  3.7717438210269485`*^9},ExpressionUUID->"42f72878-a5a0-44db-9422-\
d24c36f5c613"],

Cell[BoxData[
 RowBox[{
  RowBox[{"step", "=", "0.05"}], ";"}]], "Input",
 CellChangeTimes->{{3.7721695141090155`*^9, 
  3.7721695189003563`*^9}},ExpressionUUID->"eb60e52f-4b5f-4ef7-b38c-\
38fa71ed7f6e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Gray", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow",
     ",", "Orange"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 
  3.762162734410307*^9}},ExpressionUUID->"31646927-8c14-43fa-ac3a-\
bbbb430f0b26"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.33333333333333337`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0.5],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719290111048517`*^9, {3.7719290691948094`*^9, 3.7719290922946167`*^9}, 
   3.772166305891839*^9, 3.772343846804762*^9, 
   3.7724370859777875`*^9},ExpressionUUID->"79840fbe-6106-4800-b0b9-\
f4e6a2f329fc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Equality Line\>\"", ",", "\"\<M2/M1\>\"", ",", " ", "\"\<M2'/M1\>\"",
      ",", " ", "\"\<M2'/M2\>\"", ",", " ", "\"\<M3/M2\>\"", ",", " ", 
     "\"\<M3/M2'\>\"", ",", "\"\<M4/M3\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 
   3.762674167944764*^9}},ExpressionUUID->"96a02d94-17df-459f-a42e-\
0d4a7899944d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"707de6ef-9bb9-4faf-9b29-\
f6a9780933db"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"TM1x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C1M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", " ", 
         RowBox[{"C1M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", " ", 
         RowBox[{"C1M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C2M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
         RowBox[{"C2M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C2M1MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM2x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC1M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C1M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", " ", 
         RowBox[{"C1M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", " ", 
         RowBox[{"C1M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "28"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C3M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
         RowBox[{"C3M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C3M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C4M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
         RowBox[{"C4M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C4M2MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM22x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC2M1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C2M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", " ", 
         RowBox[{"C2M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", " ", 
         RowBox[{"C2M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "28"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC3M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C3M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
         RowBox[{"C3M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C3M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "30"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C5M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
         RowBox[{"C5M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C5M22MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM3x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC4M2", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "27"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"C4M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", " ", 
         RowBox[{"C4M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", " ", 
         RowBox[{"C4M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "29"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC5M22", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "30"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C5M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
         RowBox[{"C5M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C5M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "25"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"10", ",", 
           RowBox[{
            RowBox[{"ParValsC6M3", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"C6M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
         RowBox[{"C6M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"C6M3MI", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TM4x5", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{
           RowBox[{"ParValsC6M3", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "25"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", 
          RowBox[{
           RowBox[{"ParValsC6M3", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "26"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"C6M4MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", 
        RowBox[{"C6M4MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"C6M4MI", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "6"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7721667016701837`*^9, 3.772166723785184*^9}, {
  3.7721672468707423`*^9, 3.7721672504868097`*^9}, {3.77217073451714*^9, 
  3.772170760103072*^9}, {3.7721709262140627`*^9, 3.7721711177828197`*^9}, {
  3.7721716081994133`*^9, 3.772171621267413*^9}, {3.7723508112330217`*^9, 
  3.7723508128281903`*^9}, {3.7723508445445294`*^9, 3.7723508783164926`*^9}, {
  3.7723509453671465`*^9, 
  3.772351027170397*^9}},ExpressionUUID->"e28beaf5-a606-4acd-8630-\
096e7baf6a5b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MIM1X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MIM1X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MI2M1X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MI2M1X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MI3M1X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MI3M1X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM13DX5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MIM13DX6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", 
     RowBox[{"-", "4"}]}], ",", 
    RowBox[{"i", "<", "4"}], ",", 
    RowBox[{"i", "=", 
     RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"AA1", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM1x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AA2", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM1x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MIM13DX5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM13DX5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"MIM13DX6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM13DX6", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"BB1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"CC1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"CC2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"DD1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"DD2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MIM1X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM1X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "BB1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM1X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM1X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "BB2"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MI2M1X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI2M1X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "CC1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MI2M1X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI2M1X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "CC2"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MI3M1X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI3M1X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "DD1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MI3M1X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI3M1X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "DD2"}], "]"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM2X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MIM2X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MI2M2X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MI2M2X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MI3M2X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MI3M2X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM23DX5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MIM23DX6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", 
     RowBox[{"-", "4"}]}], ",", 
    RowBox[{"i", "<", "4"}], ",", 
    RowBox[{"i", "=", 
     RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"AA1", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM2x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AA2", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM2x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MIM23DX5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM23DX5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"MIM23DX6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM23DX6", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"BB1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"CC1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"CC2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"DD1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"DD2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MIM2X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM2X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "BB1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM2X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM2X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "BB2"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MI2M2X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI2M2X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "CC1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MI2M2X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI2M2X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "CC2"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MI3M2X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI3M2X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "DD1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MI3M2X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI3M2X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "DD2"}], "]"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM22X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MIM22X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MI2M22X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MI2M22X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MI3M22X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MI3M22X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM223DX5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MIM223DX6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", 
     RowBox[{"-", "4"}]}], ",", 
    RowBox[{"i", "<", "4"}], ",", 
    RowBox[{"i", "=", 
     RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"AA1", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM22x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AA2", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM22x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"CC1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"CC2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"DD1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"DD2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MIM223DX5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM223DX5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"MIM223DX6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM223DX6", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM22X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM22X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "BB1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM22X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM22X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "BB2"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MI2M22X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI2M22X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "CC1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MI2M22X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI2M22X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "CC2"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MI3M22X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI3M22X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "DD1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MI3M22X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI3M22X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "DD2"}], "]"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM3X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MIM3X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MI2M3X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MI2M3X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MI3M3X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MI3M3X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM33DX5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MIM33DX6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", 
     RowBox[{"-", "4"}]}], ",", 
    RowBox[{"i", "<", "4"}], ",", 
    RowBox[{"i", "=", 
     RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"AA1", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM3x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AA2", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"TM3x5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "<", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
           RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"BB2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"CC1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"CC2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"DD1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"DD2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Total", "[", 
         RowBox[{"AA2", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MIM33DX5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM33DX5", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA1", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"MIM33DX6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM33DX6", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
          RowBox[{"Total", "[", 
           RowBox[{"AA2", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MIM3X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM3X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "BB1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MIM3X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MIM3X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "BB2"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MI2M3X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI2M3X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "CC1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MI2M3X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI2M3X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "CC2"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"MI3M3X5", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI3M3X5", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "DD1"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MI3M3X6", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MI3M3X6", ",", 
        RowBox[{"Log", "[", 
         RowBox[{"10", ",", "DD2"}], "]"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM4X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MIM4X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MI2M4X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MI2M4X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MI3M4X5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MI3M4X6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MIM43DX5", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MIM43DX6", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", 
    RowBox[{"-", "4"}]}], ",", 
   RowBox[{"i", "<", "4"}], ",", 
   RowBox[{"i", "=", 
    RowBox[{"i", "+", "step"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AA1", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM4x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AA2", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"TM4x5", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "<", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "\[LessEqual]", " ", 
          RowBox[{"i", "+", "step"}]}], ")"}], "&"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB1", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"AA1", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Total", "[", 
        RowBox[{"AA1", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"BB2", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"AA2", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Total", "[", 
        RowBox[{"AA2", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"CC1", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"AA1", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Total", "[", 
        RowBox[{"AA1", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"CC2", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"AA2", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Total", "[", 
        RowBox[{"AA2", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"DD1", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"AA1", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Total", "[", 
        RowBox[{"AA1", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"DD2", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"AA2", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
       RowBox[{"Total", "[", 
        RowBox[{"AA2", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"MIM43DX5", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM43DX5", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Total", "[", 
          RowBox[{"AA1", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"Total", "[", 
          RowBox[{"AA1", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"Total", "[", 
          RowBox[{"AA1", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"MIM43DX6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM43DX6", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Total", "[", 
          RowBox[{"AA2", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"Total", "[", 
          RowBox[{"AA2", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"Total", "[", 
          RowBox[{"AA2", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}]}], 
      "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM4X5", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM4X5", ",", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "BB1"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MIM4X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MIM4X6", ",", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "BB2"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"MI2M4X5", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MI2M4X5", ",", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "CC1"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MI2M4X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MI2M4X6", ",", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "CC2"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"MI3M4X5", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MI3M4X5", ",", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "DD1"}], "]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"MI3M4X6", "=", 
     RowBox[{"Append", "[", 
      RowBox[{"MI3M4X6", ",", 
       RowBox[{"Log", "[", 
        RowBox[{"10", ",", "DD2"}], "]"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.772166729384184*^9, 3.7721667391442156`*^9}, {
  3.7721667951261377`*^9, 3.772166849925666*^9}, {3.772167038598857*^9, 
  3.7721670933188577`*^9}, {3.7721692497374477`*^9, 3.7721693055412807`*^9}, {
  3.7721695346806817`*^9, 3.7721695719261894`*^9}, {3.772170780310072*^9, 
  3.772170914756019*^9}, {3.772171219779398*^9, 3.7721712570758677`*^9}, {
  3.7721713109317064`*^9, 3.772171313283786*^9}, {3.7721713825*^9, 
  3.7721713872199993`*^9}, {3.772171439491167*^9, 3.7721715851070833`*^9}, {
  3.7721716352212543`*^9, 3.7721716378122883`*^9}, {3.772351063597226*^9, 
  3.7723511735284753`*^9}, {3.772351208609376*^9, 3.7723514649128733`*^9}, {
  3.7723518625214157`*^9, 
  3.772352104363652*^9}},ExpressionUUID->"9052870b-131d-4077-a5a9-\
b7e999fe1d64"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", "4"}], ",", "4", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 3.7719086421117244`*^9}, {
   3.771926677310216*^9, 3.7719266843226957`*^9}, {3.771926853350051*^9, 
   3.7719268561977205`*^9}, 3.77192803698125*^9, {3.7719294668645315`*^9, 
   3.771929471574672*^9}, {3.7721688979294205`*^9, 3.7721688994774933`*^9}, {
   3.7721694682795167`*^9, 
   3.772169478902491*^9}},ExpressionUUID->"36dd5843-3937-4c35-9ea5-\
f9255f38e6ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0.85", ",", "0.35", ",", "0.85"}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.7719280428692703`*^9, 
  3.771928043729396*^9}, {3.772166020797779*^9, 3.7721660523936048`*^9}, {
  3.772169831542903*^9, 
  3.772169832467861*^9}},ExpressionUUID->"e6566141-7bc9-45aa-95c3-\
88ed7dac5ffc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.85, 0.35, 0.85], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5666666666666667, 0.23333333333333334`, 0.5666666666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.85, 0.35, 0.85]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.85, 0.35, 0.85],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719280471193595`*^9, 3.7719281608792453`*^9, 3.7719294228444295`*^9, 
   3.771929472994604*^9, {3.7721660214707785`*^9, 3.7721660530076046`*^9}, {
   3.7721688938434563`*^9, 3.7721689014628286`*^9}, 3.772169426307313*^9, 
   3.7721697885856647`*^9, 3.77216983308383*^9, 3.7721716849610586`*^9, 
   3.7723515039207687`*^9, 3.7723521429634786`*^9, 
   3.7724371372606864`*^9},ExpressionUUID->"7b11c663-7cce-46f2-982c-\
27cd1d188677"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", " ", "\"\<M2'\>\"", ",", " ", 
     "\"\<M3\>\"", ",", "\"\<M4\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.7719280508996906`*^9, 3.771928063699057*^9}, 
   3.772170115926691*^9},ExpressionUUID->"41ce7e58-fd95-45ad-a147-\
2f267b087a57"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"863e79dc-4b59-4077-8e14-\
04a05253f193"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPointPlot3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", "MIM13DX5", "]"}], ",", 
     RowBox[{"Re", "[", "MIM23DX5", "]"}], ",", 
     RowBox[{"Re", "[", "MIM223DX5", "]"}], ",", 
     RowBox[{"Re", "[", "MIM33DX5", "]"}], ",", 
     RowBox[{"Re", "[", "MIM43DX5", "]"}]}], "}"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
      "\"\<Log[10,Information Capacity[X1,X2]]\>\"", ",", " ", 
      "\"\<Log[10,Information Capacity[X3,X4]]\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.772353517017366*^9},ExpressionUUID->"adf27545-d02d-4a1b-9128-\
887ea94c2340"],

Cell[BoxData[
 TemplateBox[{Graphics3DBox[{{{
       GrayLevel[0], 
       PointSize[
        NCache[
         Rational[1, 72], 0.013888888888888888`]], 
       Point3DBox[CompressedData["
1:eJztk3k01esax5Ei0UBFbEIqIrQRpY5vwjZF27Cn397bJiplKBl2yliKqE7H
kFCOZEqFCicJR4SUUMnQIKRDKEMajupaZ9W6a92uu85Z5/x5v2u967Pe9Tzv
93ne5/39lFy87dyEBAQEfp5c0yaXf4LLvvcUBt5UZV2PraLDuFm1gfUrHR1l
2dG67hzECWyQypxks2L7D0wSB7N8Wpv66whkpx5ObOwjwNUqUxSvIDAWuNr6
TgsDt0O7/GKeMyCw9vhpRRoDzyeOnlOv4GJ7oXpjZSEXBzrE+e+duMjTPHlm
ZxsdvrG6Ui11dEjmOeqzD9Mh2uvgMlFKYJaZjG19G4GKFYuT3xwnUDK7hT9S
w0Kpj9/GBw4sNNMHnM9wWIjfTlzf8paDMAXm0ewWDkg/FAgXzODCjKGirllN
IN9Cr8x10k9a+p2CYCQBHe1lx7fnMnFIvi9bVnjST6q2hGzAhKxnXPWuCB6E
As/rzTrBg0zAE89gFg9qZ6nRBw8QyPxRuufkHQJJGUap5GUEFK2OHDiqwoZD
LvlwhRgbxuWyqT6ibBiEDLpceczDx0OtE/VNPCS9VrtckMEDy8T55p61bByp
Pa8ZSmLDQ+Qyz3zy3MBwoO3mD86Apllp4WtnjPSOJnlOOEPgY2jC5sNMvBmM
N5IoYIITmRI1vJqJlNR2v8caBPROWkrTwgj0tmrL9CwiYJZqYRIkxcQ5bwnt
U0JMLC5S/OLQykCpbVpRVaMThnZ9qbCdcELmPcqy9itO6L2g33MonQNfvoe3
UzwHPw1J+PdEcDCje2fPuB0bZlecGyOXsbFC1/gUc/JejdScjdeEuOhX8KOf
EuFCjHGy9nYVBwMHb72TE+XgvOqmvh0DbPjk+IdR69nY8yn46p4Hk/MuPeDp
kUkguDLbkmxEYBF9w+zWyTw7w9jOkSo2ijOyW9i1k/lP1XbNleKgk/7iXKYT
B/IPh2fdyWPDX/dqw4JxAo1jJXSnBALzR0IK46MIELmz5U8lsRD4bP/QzJ0s
qBbVdEvasECmv5SNWEiAdc9J4NM0ArUN1u8K3FlYb23trUbhwUI1MU5cjIcJ
09TYBco8CNc7dzvEMjFqHyFwLJQJ+ujiZyEkJp7mz+3r2MVFvZFPW3UYF8Yp
xxVLDbiIvnTxZ54cF6SSMFZcLQeSjr/Ms3jIwVi13PhPbjQ4U/rmNu2jgZLr
ZRL33BGm/UISko85EPVS2fshloOe2Er3wbMcqGiLiTkGEDh4wcZ3+RoC/OyF
44tECRjPN11+dB8LZvPCZKp/ZKHGHDKxD5hQSb5PP1REQxrpxwsJaTSkcF5f
6aHSEHUDy1duZGCpy8s7S7gMHDmkeqzCmw4/+cDmWj86Hq42Sd+nT8fc40lH
vvjSESD2wHt7KAvq7uMp71exsCLiRof7MyZuJYvwLp6nQbv59MUP22go7RDT
aoigoWJjJbNr7+R3xXKkelcwoXDVIuoug4lNFRHUoLt0eMgrXuKfoSPYMOTC
HonJ/1ek5qa6BwFLcVlWiM7ku6Xs9hcWJkAON08wWMLEJ0ZveX4EAz3Jo8oq
Oxkg9Zw6Md2fCdGzki+6mEy4vmA+l9dnwm98dVF5oyP0S1REU685IlM/Qi1H
nAYPQ10J3jMaEPyK3pJMQ2a5XdzEThqYZy5Kxe1gIMksUP2tBwP+bp6/Ww7Q
0fZkjTW/mApeQeG5UH8quvrzdRriqdBpfW2zLYsNlpLxY813BHZEzBAsFmeD
51aYMk+EgY/tn33kH9HBzppnGJNEh7jfnhWLcunQ2HEjJd2ajsSYIHLMXjry
Bueuv2fjCEuD+kTlbY6QCIgzMbnngGfRV1LWCztCg/RJKVDMEb3t4c3+fAc0
PbxUc1qQjs8nTyq2ZtEgPHOo8K0pDcpSP7RXn7cH6WU7k+9rD1lOiZu+kz1a
nln4Zc7cjFqJJJZemy1yO/iNV2xtoTp7Xm3OHDvc+lL/xOodFZsy6tp8r1ER
PKKtL5hhi9DdC7J/LbKFT8Qj5SSWLaqExqY/TXJAZKilTnOEA8Y0L9hsDnHA
iLPru8UTdmhRShi+O2SHxHLv9/cL7RDpYGM9JmIFrUP5F3YPW6KJf1zr+iJL
rHCVcbyYQ0VgmsWgxWkqOmM2xOfsomKdVZKGYi8VttF9ojKjk/tWEX2rKCpC
qrbdbqizwiLTvUrq4VZIGRlZ7e1nDdkaX5UMMhUflxQIqf2+GbJl3VLvnahY
K3eiZUzHFk94S5hW0rYICR6y337PBlvrmxj3RBxReXLrYEe1A/jPoll6k/23
qA9kar6zQtf8xojoKGvUKnDvam61gnLy6gkfm02Iap4xfV6GNehbTUgOo9ZI
LD3XFrbEDOt81shtljbD/MRlK937TfGh+Xb1SisKbIq2pKlrUdBT92jLZS8K
Ni+P2f2bBwUbH1vIVjIpqFy+ZY6nNgVH2RIkpzFLyOyXCFofYgmvwiPkfFFL
tHfKrCnyN4PKqmHPVUpmuKlmPj4Ub4ZlPXHD0qHm6OZzuhLVzSFb4LC3y8Ac
zelHXwnfoqCxU7/FsIoC37zIF1cvUqBhuWk87KoFZrqMF1BDLLDX5ZGc93RL
tKbWR/kJmiGgPd77RLIpXnmcuEKMmmL96vQed3sgyDb8y0txwPVU76DVJsCs
nV5FDt+AD8kkBXOvDTAROVR1KnADdH2exhhkmOCxhFNMhqsJRkKG8090m0DM
qMNecY8hmpIqNkr9vhaR8aq+iYLrEMy4/uF2wSrU+Jd55PmvQpHsHq2owVUI
D5r9KoqvDzeRXYWEmQHKjl4nKpcaYEQvkb+02gADOQk+CvYGmM2xj/NftAbG
Nn5XCzp10J/NI0YldeGyPS9Nk6ELWsy6tnVaelhb7FqXfEsXn9Mupa/R1kP+
Hf6YzFotKB4M2H79oya2Fks18EpXImXv6WPD9WQUXY18f62GDPOLEwkqnmSs
d9eZ/8sBbZwWvRQeHaENEQc2q9VTG7ONQ7v1a3UQOG++0aWXOrAbzdI0OKaD
3tcBTWenqYNRmb7vdf8KWE4nVfd4qUNtIGHxKEUdSUFKVb426iigC/BL52ig
OWPQ94MgGZfOlDyRDyXj8r6syNbyVbCSlfr4uV8VSiP2NYPT1ODnyW4cu68G
gT+k+B2zbZTl+8R1oPnlVdn8N2SMLJHsCtqq8zX+PTvjpunrNS2FXVQKRcpr
Kbhb+6w0Wcu+xpW/40Hd26fDrUj4SSjA++N7Ep6eyft1px8Jt4zlN5B8FfH5
oAWfy1HELcnDtjX41pfMd3QT/9nzabE2hkNvFnq4aaNk5dLLl020sbu46Njh
/crwTxfIGdX8d932hQb3NDpJeFsnWdetQYJhrkLny7XyX+OkP822N3KHS58u
gHFgqZw6aSF0w47xmELSX+MCf5qV4VmEQYMCFmfk1tamKiArrdzO2XkxjrjS
kwxXLkSHqd8BKcZCDGjWi5omL/h6TnQKTtXvVJrKZyq9MfrvnMrn+/wHgqYb
YzQk4VX8olxhaC66M8curEyQmjL/f3Oquf71/HgF49+6tIb/rv9f1D/l84/V
xX9yzv395244TS/9xm8OAU38Mu4vx0q/8W/W/b/+0Pfz+RdOveK3
        "]]}, {
       RGBColor[0, 0, 1], 
       PointSize[
        NCache[
         Rational[1, 72], 0.013888888888888888`]], 
       Point3DBox[CompressedData["
1:eJzlU3tUDNoeHkWFpGaoiV5MSPR+KIO+mdJLjylNj+k176mE0ElISJ6VSiiU
PPJKSOVVIb2UVziJ6BB5DDEVlY4p3Vn33HPuusdpnbPuOmvdP+631l7f2nv/
9vf79m//9iTuUm+BHIFAOCgb8rJx1CYzfPcKLrqvNp9W2cOHz8yRp5+lc+DG
qlWiWIjgQ/y6Ym9fGKwWSzOI4ULkj4uY8tJBgG9m+c9+kIrgm92/UEWPD+XT
7WEXi/ngisdc6CsTgPZm+4NPgzxEkkNmPvbnQzXjy7vBL0LcKs+lktt4cB/U
DEwO5MC1SC10DYOHV2pOuro72Agxa1h47QgPoZqqZ/I2CuBWWCq37ycuMMkp
bdhiERRotxIUpOHQomVz5g4XosbduCk1lI/hJSFfdVsEML9s1OBRxkOpxGCl
u4CHkjdpn0IjBGjri9tXkMaFfJdV2odFPCSqnrAatl8Io4bU1ZLDXFiLJIEH
t4qwR0qJEx+IgNFsRdOKd0J4044ZbGsS4AnXpTSjJwxxGwxL3gQKMFunLavR
io+dtI9jU+WEsK4syimW+c5u/xKhHi5CxfoJb4/vicCOs7rJhxKFONXgWfy4
WoCiGz88zWgUgUSvfP5WU4BLVFrbTWYYCs3mRDeYR2CgyfRAUIoIHksI2ok0
AZqiSdMD+oWQK4tvYx/lw4vpeUp/kwBHXXpGuymFgfWGmb7sFR/SXAOv7gwB
phafDczNEKGZ1yG0OMcHo4ZwKu8xD5XbWxhjRghxvJUxsUTMhafEdpz2oBDv
zq8uuHMzDPsUgox6dIRIz6BorjLjoW5a7bzLibL7dTad3mrMhbjR1E6nhI/A
jSbiHyuEaO0a0dV2noegF6UXy+gCJG5IL9hkKII5qy635jYfo5YsfDhP1k+G
uidZ7Fcy/+NLSO1pPHzJjwmbdY8PuUMJNH2REBMkOieTCnh4wFJ+lKYswMxT
LbWb+UK4Zi7LC5DpPNcZa3reng8Nw14Nxnwhvs5QNQqK5KFp+YBhRjUP1j2v
7KJeCuC9/dKN4jAuHKVxS2dME0LyfoelwgcREoQRr9ynC2Dseq26c6IAFbol
5Q2ThbBvMWJuCeCjr+rIvatSPu5uICk3mIgQFuu111bMw/tPigzJBAHoNdei
W46LkJJxcUO5rM9tjiZayzF5cJ2UJjG5IMCdxVP3pMdzET1tbq2uHRd3RLOw
cTwfWhXj6p/SOZA7mzki7ZYQ3a/z7MSyd9bPO9kiviJAfJJPubUs/vlBbtUw
qgA9XRfG+0ZwUGiXQSBXc9BjOMGSuJiH9ROufLTNZUP51Stc384F2eNHevYZ
PoKoWywfFnFQQLK2UxNzQK5MizaU1dc+R67/hjoHSfumqm3u4KJuZexwr/l8
KLRKF63p4OD8CybZvIQDlXPtlQF0Hvq697HI9WyM1P5mu1GPg3lPlmyVEHm4
EFpWcfskGx5RRDf1YjbORS5zMVXkQnfUWENlWzYeSdOz4zyDEDv29ZROUqjs
XyqMXdvIQolR80a5m2yU6DL7Pq7hYqqCo4/bRDZ+rtVYvds5GPkpolqBVShC
2cxblsaBYBSNzv2qycGIbEWT6QQuDnEckObORuhD8Z22UjaEOuTQSNn/DL2t
vyRzBlvWR1nxRp+CUGkxJUpBwsYBVoWU4iLTqYopo//Ihs+5JyrJjzjQo32u
+DyXjevzk0dKb7GQH76lJetmMKYZM9Y1bg/ADj+a+P3FUFRkpjknn2Bjpc98
CZMVgts9sbsrZffKNKjaZiMNhnfD+o4VJ1hIPP00wWZhADTIpH4doyC0SPaK
Psz3xwuLrsmMYj88eW8tF17kD+Kb+LNuab5YLhhv+f5OCHrFxxZeAAcrRx0L
npEUjLRS+VVtc4Nguj6xLzIzBKOuBkxcsJSFtCUOapFePnh9PDpV2doXA6Nn
Tsm3WQiHZALBmuoH6Ei6+sL9sV30csS7AV+0JjV/8470xdJVQvKxH/ww2/Gm
z+EVTPiOz2LZbvDF5foEU5K2P2rX1ueebGeiP8f3lKM+E/x53mvbZed0ugaC
xaU+ODH8xLV6VSZIqr1lefdlupmRS+/M8UGIUuxdSyMGvEJ26g7meMGAGRKH
Wg8c4Dn4Xz/vDWGh9TJisw+yBko79Pq8sOTJSo+QQG/Qp1tP33jIB01hh+4n
Nnthv3TlvLoYBsL2pjieWuINwtMFM8x8PfAovNeA85wBQkxw631zb7j+XMK0
8mRARXzPZYWZJyIWjYnRM/ECddht4rR17ngiHzz4dTYTSwvtqCY2TDz9+DUl
N8AH25jrKS5bGDDtfL5l3wcGQpMOZOVoMlDwyb25rNIFlt/CtLctdkWI5K7i
Ay1nBJv3+pkfdsFWrQvansWuaHaIl6iRnLHc/sq7mB32eKLbODFafT6cBtwS
U33tQXSy0Vxc6YjctzFl1D3OiHKN7zD+MB/EMQovXFe4oTWwRRpS4wnWpZid
WfwFoDs/vgYbB8R1w5nAd8T6TQu1A+vs4UlU6tYlOqFIebaSX7MToh+c2Ds2
xxEGMe31eoM06CtO9ruqQcdjx4t4F0XDJcndW1U/00BN0b7QMZcO/SNh6ybc
pcH3wvtdiqNpeFZN0Sw3oeNST5R8ORXIX7euPSfWFrtnpLT4kKiIUhid3TvS
Fv3OXptHrpgDfz6zIfHqHPSNV5cLUp0Dpu3DOo8tVIR9e1EkOTsHNVLq3GWT
qRhBCl2rFm+O68MtL2/jmWNjpySo6bgZOtMbp+xfaoGXepFRR09boDDnRmvU
UXMUTVye9JVoheVX4uiUW7Nw6ZBXaqaZJQ6uL41NvDEFVVdP3evPnorK1bMu
3yuagtLqSdKyIGuEE+TSuQazcPY4YcJwLyukbhmj0t5thvjI/mNrPM0h57nq
yJlyM/Qm2T+bKm+CmGkpdIV8EyhfealeFDMTsxOeL6zSMceEmVu/nGeaY0lh
QfPbN2bYpfxZQ7uUAhW65RsCnQLCmuvTv9RTIL9Le/eBIEuMSDlkIXayRIu2
xSORlyXSbA80KppR8GrFOSlrMQUmk2o+X39Mwc9RpNN1B43Qndd6jEcyRh19
W4pGoxGGL8jfHXfeEE4fTyak3zZCLR6OXD5mOkKMEuyPxVAwMu+MCtFLH/e2
7WyIK9OHmAIGmUxEL1+nI9SKhE7hGC35aiIo1dTc4/HqiC1hBFzLVUe+oMyj
xnk8TFqtTXYmG8L3Do22hmWIyoLBnFmmhqgyYi8itBHx9ijjc1QhCVkxL7SW
RZBg4DHMNydbDVEzNWyiHqqBKfafwRinBsI/MQ55t3SqruiN+22u96Bk+6Em
dUS6uz/ecEQdSSPPi1YtHf+vfdUhmPwdz7Qwb2EGdtqlK1nFU5W77H5Z77QL
OXxfnzygikWutcRY/bHwSUtcO+oaEe9z1hSksjRw84RDnmY0GUIBOUrHWP1P
8irh4s3iK/J+Sr/Nf2HCENxp98c8FIaK/32+X1lrCB5a33B2fUOmxb/ro1X3
zvVy+Opyb+a3suTse3a/jx/CP/6Yv48/VsTav7mu3y7+te0m+ZhBu73jug+3
/tT/J3UYEn8573+pPwS+1w+Rp7p1rYsuj8pt8x+7q+Qv5vu7fP5dffW/8vP/
AxO+vcmNy4nlv/J/7n5ft38A0VLa6g==
        "]]}, {
       RGBColor[0, 1, 0], 
       PointSize[
        NCache[
         Rational[1, 72], 0.013888888888888888`]], 
       Point3DBox[CompressedData["
1:eJzVkXk01Xkfx6VCY48UyloIWYYWusM7JGu4uFz3uvu9lBqmLNNyJSm0yF5N
CVFZsiSFUmmUsk1C1ODSYsqQUFkqPM5z6p+n4zln5swfz/M+53te5/f5nN/n
+/68v+qsQCJXWEhIKGPmzJ05usVSkzEfmLgkRHXyLGQiTO+e8sBKJkamPiw5
kc9FourtMnU6Fx5PknMDGjmQUXBzejTMQdxoWYnIzPePqlEXOTIc2DIm49x1
2Ciu6lA+MMRCYctm/35XFoQpBaxUARdChGnpfZ+4yPdTmqg25mKznc54jycb
3b9Ur6l6ysYkM1QuOZCFo2H9vd8nsRF5JPTmGl825BxC/CqKWKAuVjd1tOCh
5FD0Ouc8HqSOlUvS+FzMSynfE/KOCXOx8fz0MSZe6Z88HbhnZp907kpaNwel
a88cuTLDBtK5jWWuHNS48KZifmNh8Ki8qIgiGzJNgxfXdjMxsIVAO23kh9Sh
seKLQX6gXnsQKU3nwWZ/6Ib9R9g4Q6DfvJvChsqgFH/PKxaUJDOjYut4OHzI
2rgsh4fQPtLuA3I89GrEzFWZz0Mk8yZv6hkX4i5uYr2OMznS3nbEctn40W7i
toQzG/rtkqVvG1joKF2g1nLWH2Ki4wYH+P4IENudqlbvh04HvdY3E2wwsm5K
tT5g4zt6kp+sGBsZIQV6TRt4GHwhODh4hQt2y9NzPUQuxHbzXW3mc+B6e19E
0Uc2cgjM24WdLBgaHvWkcHkobtRZ4fyaix1KppweDS4srsiVbwng4Tk9d/Ma
UR4Wpob3p868s86fdtvX5jOw7rfdP9xOZsBJN/xyYw0d0+09C9epcaDWLuJ2
AWyEErRlWmdy7Hrjv/ZEMA/i6SuvDljz4MAWI5cGcjFURfqUls2Fg+DRtfSY
mXuPDreq/sLBz7tpfUMKHMjRP7yyfseGpE3xtQs/szG9Mn+r4j02lPQ1ax3D
Zt7FWPz6c7OZnAr+KG64wwG+6xDYRnGwX8aka24FGzXiHm/9BWxMiRIjRS1n
/qsmbA2/wcKTU9GNlyu4iLwuvtFyIxftd2R6ZDI4uCiXiZFHTDy164jW4zBB
UwmXyDJgQsvx+OuUOhbiW6PyWiksNLxv2pZfwsT2CNXjTic5UPncvqjHk4Os
yLCJNGEOWv2oCgOPGFDvkI/eZcmAoaRXvOw2On46TklK4THhtKp636LHDEiR
p46IejHAnRNZaRXLwTloaF+a2Vu77RZ12xk2MqXyil7bscA11Dp7T4IFE1Vu
XP1nBqq0Xjy448aEa/YxhkYOA9k7j0xY+TNQ8NQz4OByFoIpa5u665hovgrd
ZnMmhIX6tbx3sOH1sEbM+TIL5o4OKT9IsSDeYMP1pdDgM3XoZLc5DWmKeQvI
E1T8sIvxTrGVgahjiVa3zzCw7dpess0oHU36K+6+9KBA46IoHjpSoHikwMWi
wgcWzzXDm+dTkORo/Kmv3wd1WeY7q3XIMNjqLG6b7wt93wOUOXt8sX14AewJ
VEiS6re8ecbEwvKCcyQNFuRczQ9Ghczkud7LVqaTAdld49OrjtLxcjBt+bKP
vqgsr/lpQQkNIq8Jn+Omqag0PHXjYhkVb3i7suISqAhafSsrp40K4c8fTYfI
FESqNF4gP/NGm8U0Xy/eG75FtXoSe73Q5vnd5YQuGlh9TY/y6nwh1FV5iXDW
F39aPL/+sI6EZXWbHNb7kdB+KWa877gnClYFbzYLYGC4NpwjyKODsOfEE0UP
OrRESgz+iKPA3nnXxGQhBcVLg9TzzH0gXHV2dLEmFUuNo0zUZSm4LhOtvl2L
Apt7KgGkUW9IJtb5Pc73xqGWkeC0cS8QxsfCFp/3QUdk80EdeQrSpAJPaZ8n
43BkJg9bSLi7XVL0hjQJMc9fPrQ280TX+sn8KEkvzDsWtXcviYRR4mhSP9ET
7btl4gJq3WFrnje6psIdBx0r8+QaiJCf7ljEEPXAvargmDKKB1QTKUYfl7gj
wspt1xIZd+QYqIU8ryAiwkkhreIwEXczmk91GRBBFnGV/HnEDVbxtPem0jP1
wqUhCRHu6BlroFmT3RHllVA5IuGOrQtbc/M03fF7rL+USTIR0kseiN0XI8LG
7Am7bcwNHjb3czZUuYEj9cy6wtkNI0H8VUdjNiNDdAdJ2cgZhr4X9PkCJyTH
rB0Y6HCGj3F+8mSiM0TMjR+evuIM4v6KRLGtLjCw64yNtHXBY36nhduWzaDX
E5e9fOSCYPXflofRXDDfUE7lXaULFmEqU8rXA0JTw9zqp+6gOhfdVRhxh2Lb
2fED7c44E2wstGibMyQCHEQaPZ0REbv8cWayPRJ15snknbPDoC3TdNNrOzQX
EhdOmdpB6XjVQ4vPG2FN6HMb2b4RKVk7VjuWbUIds2E0e9UmtF2omcgx2YRb
TZ4LLMocwM24cXlljwN054X7Gb+1Rymn7uKcFbb4TKs7v7PIFp+SbGR66Rux
TjJhh06NNfKy382ntVojSyS36USfNUyji+7No9lDZOf7E5cT7aCweM5w/q92
GDC3LXnx2gqJ3h77lG9ZoX5Nb6qhsDUE8Y6Hwo2soHWy19xb0QqEZYGMOhsr
pOYyA27QN2BqOjjv12wgpE528r7RBthx6XuqrSxRRXBOuKZggexlnor++ZZY
LqI1XClijkzy5ESTohnKt2/VlhWYwXTC6nBOBmB6SZWXexXwDrItcs8DNM34
k0QpAuJdLKk97utxUrtUoXcOAR+l50m0B+qCzB8pGvhVD8IJBZmhL3TQXxLs
FDZmArLZhe7ichPwNWSPR58wAauIWdsgMIKDyYpBuzYjtPiaSetcMoIgn9I3
VbcGO1R6T87jr4bgWLaK5N3ViKCSxlJ4ekgruxsUOqwHg87DJAmaLh68SbUp
/d0IV6ZP2GreN0Jv2aP6w/VGoEbp5z/fb4D3oiUp49xVcCFpG3w20kdc5uOn
UarGEKzxi9BWNsZO3eD5fWNGIIcmzfVp1kUQx2TC/owubr9wz6Tx9WBqNdAt
PaKH13tjGjod9BGpsHz3h1p9nJ8/R+6FihHEcoqIRBcjtH4QWSu72xB9yeVL
F0noQVrjyau3g/rIOTN6PHJEFwsXGAsCbqrg5ljQXESrQE8htzr8D1UI/VtL
vqFFyyYLjS5djGvF1oiG6cF/ZeOlTfa6SG2pJbOyDJFwJzaCHWeIRid+Z6Cq
Iaa6ahVPnlZD4/fXtg28U0P2UE9h+mlVxOv2t6QKKSGcSqjcPKIIhbFdLUX2
yl/ukf+G/GW657ofyqO4WWDnyJFHiGVxzDsR+Vl9KicOKoqMaCMnZqr+zlEt
aD6zlRNX1v7SV/uGQ53uby3MleCf7qNzMEMREhdK3pC3KX3py8xCsb9IoVk4
ZPmfzOU/vrrkugp48kkhwo6q8Hqg4FqQrYJ0ufva13fIQic7liuWKwtlzXCb
CjXZr/Nm0Wz+Z9Vsfv+qZpvzDYtWjPYLamTQI2Nmo5sohvjCY/cCS6W/9L/N
57/zn/I56/zZ9vhGtLnrnYb3BVcGpb/wlk4u/bv+/qb+qXy+nSPdsjf7Jn1F
5Vf+b/j8/5Uhx9rwfkVU5Vd+rZeWfzCcWB9b+ZVf6/8ClNnWtg==
        "]]}, {
       RGBColor[1, 0, 0], 
       PointSize[
        NCache[
         Rational[1, 72], 0.013888888888888888`]], 
       Point3DBox[CompressedData["
1:eJztlHkwFfwax61ZSnSUImQp+86brOdLdsd6HOfYObYsaVEqytIbIpUtdSXZ
0iJrkhCRJCVLrqUIvVlKdloorpn753vfO+8f79y5d+Z+Zp75zvz+eJ55vt/5
PaL0A7beTAwMDFlrxbxW7I6Y8rxmD01ZgypVTTcw1JfO9T+mYEDil1UpPXck
lN+cS5n0hP9kwY0yZjfQXD5YZiw4IFh6e8bzfE+MoYKWep6GEgnHFBlmRxxl
TK9oyPYATwa/GEMxDWZhZ4JTlijYd8SISYvDHWVEQjn7Fzu8WdgyvJxBhU67
GnkpwwckP+85ng4KGstU+lwNHVC7ITq0jZWOOqaQxYkpKnpv7AlzinYFW66O
1xdlb7QcZvKIOOuMiu9veY+50ZA4bjlgfMALMUoa583rqWi0ipxkPOEC52id
XK8GOggLzDsi1jmj5vI0O6coDbZNiwaxV+gIDEgYHTlrD2u1fpWuAEeks74q
TcnyRN+H9+7zOg5Q61HkYrB0xaaKyc7ycR9YrPaVkqZd8JGcVZ3r64o0RTF6
2hYfBBH0RfveOSPB8FB67jUXFAukr0rc8UKAfGwxf6czckSGOWWMaIgUXX59
us4bry6e6r1xiwKrx4Ods5ecUL23TEOp0wu/aVH9bfoc4Fj1Jqqx1B3BBdZq
QkLekNR+++TchCvaulh3rZ5ywaibccuSsB8cWftjOoRd4KUiLt2a6gDNlGlp
aVkvqBtcLfASoYHxqW/EA2tHGJmcKnIR8MZOrZNu+86v+Tuh0PIgyhln+6bq
ciN8kH8lSq422BFFeilmNvupyGHRtRJmo+Owi7/Pj0EKOFV+OZ3O7oQvY/dq
UzQ8ob5cWDnkRYOuYY1+1LwDDL7qNoUtemLjXFtiLskBM+93nmaLc0KCw0Zh
xVQvaAnOBqtyOYD0YKzVWtQOqee7YlKuu0POVaT56JgNVjL3j5jPUvFhxCQ8
f94DrCEyXHLZVCymT7kN8dljJGgsd1TNFV8C7RuMRexQH5RySPQjFbtCbgWf
O+WJWQ2tG3uD7HGCyS2s45MDCLciNVai6UgyGXofEE8DdxTJJ0DBGVFiv85w
mHjB27RkXWOqI/oJ4wYvCtdySxHiH5T3RAPDHf3HZCe8LBrN+8xFhQJ9pkvg
sjuKliZbm7IpkO9zVG45ZAf5Y0ZdMcluOG4mF7nZj4yK7am1ErwUHKu6sBBM
8ES4rroaeyIZloycuTL9NBhoShzjv+eK7dk9lVUBVNSoTtRuEaFgSS63y1vd
A298v5GEksn4cPLOpaaLFGQ4VEX+vdUdQfspftGvyegok+wP3UdF+Aht5hqX
B6J+JA/Wmdpj20tmXZtOe6j6hH58HuoBy7bMl4a6FHjRJ5t0mskgBWQ4UbSc
4do1Uuxy1xbHI66Xv3C0R9InuzSetTw1czjOs9LsUFRjKXXh5FoOcy1mLwgu
ON394jVZwho3+Tt9mDau9ePUuxe3yRMqv8w6vXlEht79Z09eFdgi2ddbOkHN
Gf1KhQpx620wv8pW8KOEjE0fCpffPnTDRL2998a1d9MNStkdrTZQTKpWPzBp
jzy/ptN2MVbQzl/WvbJohXA3X58Da/ciOSPO0my3BXrbVcTmjawRsulBFGee
M273CBRcnLNAi99+hU5pG3xffFX+RIqK442PcvXErRFzT1JXkWyNc23lU4Zi
VFQwvRR/zmeJoDk6nfLNBvGK0c4qxc7IPJMpqqNjg/GhZf6BPEuI117bQ7pM
gVCxxN0YdhK+lTOyd8cYQ8ZYsFV/Pw2va6fSvVYM8LJff/OhBRKyAkt+8J1x
AopjvoaxmCOP23Yrm5I5NvfYXr/naQvllpS5D1UmsImozds9YIU3j6zt7Xkc
kBkbzU6asYRFzpVUBTUz1H1QDXh40BqKR0HqlzKF/dUBnyqfvRgXe/pr+js7
jJUycmuF6GFpt4a0xjdz8OcXzi+sWuP1ys2x0M0WGBhRFxV9Zox4J/N27TW/
7bqatQTrTZCloLGo3wFwK+cZ0Q1sIOtekXaDBEyd8dDcuX4vvPdJMFr5WEGo
ummlbHIvRCjf6DSqPk5oF9gcNDHFHU8fX6IdUO8qWTjtbIDs/HO58fLWsAxU
LguZ04Pb1W28w8v6KLomZMwgYQJjs/KYQG998BQv7TKX1YP7fqYLAwaGqHAl
iI1G62Hlnd4DaqwepkuihsvUTKD4TPiAurwuBnjZVI7tAKhKEt2F2oaofJYq
xxqljTM/G24l+OvB+USTa9Q2Y6gika48D9R8fG36pksXBziLni6mGGAbT57h
kVVd7OZmuToiq43Z6FERoqY+5MOehnSXaECNVi3c264Kgfv5bYhSR5pUjujl
TGVc0KSu7NbSR/b7b9M1j8zRbNFZNfFFD8cfchXQtFSQ/WVf7MmbumBhv8fc
fUQJJAceI7vrShjPOWzjWKGOnO8PLEU+KyI2cY/fDYoyGmWm3RYc1eFDUDxx
JVUFRuF730kuKCKdsyBJWkETo0KprQbTipA4xVmh3yIP0VeW2STt3bjwfarj
NxUFcJeIF16vlga7y7vmYh1FCN9VGu5okMJScrTG+3BpjNzdlhReqQjtupTp
OAE5tNsGWGyMUoCB0vPzlenKsK5bmhNvVkBCelX6pixJ/OzxMq8WloM4mVB/
6bIkLnMUPtl6QAyEPrq96Yud4E3lPPxUcicYLP3O6XCIIq/UqPNhphiO8t23
6p0TQVo8i15RiRDmQgWCKnUF8V62Wn5H+HaUKsUXhm8VBMvGHrfGPbIIMmvd
4BsnCOI0daxwRgyHh2XarbWk0PuzgRa3RRxbBWOIE4GCqLutJej/YgeCPnPu
cvXYjq6wolexfXzoSnxk2Ce0E4c4lCObCXxYnreLy1LkhY4AUUbEQxQM1emr
w8obIfP2CXt4sBhu8F82s/IQB+lTguk4RRSZWWw/AyI3IbBgyEuohIDPvF9e
KdUQcDNdI+bhUwkcyhm4re4vAWJPTJneRUl0PhxwZVolgLvNr3poiRea+0N8
i5IIyGs2KM+TZcdgmV5GajIfPp090dvOyI7TYWfJTn/jg0H736/KmIpixuio
cMkcHxjcLNXfKolCfIOHxXunXbha+XhfxxMhhJ1rT9f3YEP8yR+cqgc3IObl
ihzr8Hq0r2taDGmcIx6UUmBbt8yAlydzyn2HvhJLHv+m28s9S1w/EBfm3DZF
HFSfqsOxSaKPSjmlLo8ZDI8Yu1NPsqAzgmPdjr0sYPgnv9M6wVIetaHPxPiI
7nfr+aeJ07zTp1jv9BP9DQZaRukMWCC/TuubYYKdRKiN76/MWEnMp2y4P0qM
vzWV3BU2Riy6Yh2W9rWbyPBvmSH+a/09h2WnCp7zjRLbnc/yBG0fJIrdNiY2
mM0SSdP9nqe6PhGlcwlJPu2zRCXZJ5HzB4eJzd8DAslOE8StlS2XBs0mifb5
R4+Qe2f/YN4fz/0PgT/Q33FQuIseIcOBgtieRIt4LoQXdcz2CXFAsPmj2UO/
0Bpbykp1Qkb7n9znz/tg7n1/N1fSR+KPlmBOts9TRBXpccP66o9/mW8NaQLD
NaufiAMmjHvackaJc4r+p3oLmPBX9f8/f4b/un/xP8s/AMxBzC8=
        "]]}, {
       RGBColor[0.85, 0.35, 0.85], 
       PointSize[
        NCache[
         Rational[1, 72], 0.013888888888888888`]], 
       Point3DBox[CompressedData["
1:eJztkmk01Qkfx+0VQtbILkvJ7l6ue93/9662FBXK0iBtc69lqGgGFY2YSdJC
U1lmaJCaERUSTUiNXdYiJKMsCZElxnSeF8+LZ848r543zzl9zvmd34vfcn7L
V8s/eNteIQEBgcxPJvzJboevizIOYyCSU/xGuZSK9MTU2GxhJpS36kYnl9mh
ySSM16jIxeDDGKg95yKdKTRP12VCo58WW5DCQPYy5emOVAYOhvutO3WWjgSf
7FcpWbbYXlb2bozNRI/5/O54UCA01C64MGyNuLW0OsF5GsREFeza01lI6XqW
O5HMQGlCZ2+oMBtpzb493clsjBdZqEonMUEohWStVGKDa7mY6HaDiRVnY56O
7GBB1sy1nGfBxEYBto82YzNemb0uzCy2Q37B9bx5WxdMyJbItJBYqB7d+uuh
rxkQGd4Tx/dnI11Ozb8mgwkFm3o6OYUJY8HgY2tobLguCO8+yGNi5ytm1a5h
CmRJQgnVdDamr7W3J42xIBk7wh3QYMJP8exi63Y2YsV/0Vx0t0NHf3HVyz4m
0s4/vj1y2Am/femh9HM8C7fc+b5rypnQCxiyHRxgodgki0zlcTH64yidtIaN
3lU7pPUqOMh9pLLeMZCN80Lm+m2lAPeRZZyXBxtmnl6vzYwdMV7fqlfhzsHr
ubaQRxLOKCz+bWVkH2DdVEMPzQZizk+Mvrhoj7iMMVX2pC0e30pWpTVaY8Vy
2Ieja4HKkIGUK0PAmy7SREsVEyotUTOlWsAXOatP92+1xwLpEUXiLgtjbnIa
JhX24HY7S7q+YOHAzujD27RYeCBIe8Y9ZQf9Q+5KJ8scca4jWE/ch413Hxdw
0MMJttYTFZdXs2D6zQ2F6A0MRPQuD1b8wcbzIkFG7AcO9kk69JQWMuHkn2rT
1uaI+ocrCZtiJjpHjC7Z1xKYrVvt5XCDg+bzLNGB3VQMfcz1Mx2zQnQ5Mdto
DDQpTPocrQdue3Qf5r1iYLVaHOfBC0DCa71FgxLww5XvyJYDVFgMJSm+pNlj
/GyYi7cmF0nb4wK8NZmoFmxPvxpnh3t1F83F/TmQkVdRozcxsJTt8dRLwAGx
IotFPyZshsqXJ6qa3Zwgtf5E9pDzVvAL1S3OiDGQkhu23zqWgubvVwb1U5kw
6rrg65fGQAH7eDNdg44/Bw3XURY5qG6Kd1jzmoLFtxZBWpVkLMi4fzeVxICv
grK6lA4TjfmGWga6BGRuTYoopbBAr48ynHekwu1kfVK/EAXf7nuv3H+LQFQ4
X42dREP9k+flhsVWcDneH3jmCAPRX0j6bNEGeAvlp4krFOxV2zfrIc/GpcDE
ziOLFgh183g472+BGL/7gmxpCsK6hC+O+DAwc6VznUD1Jz3wL9rp6HFx3KjD
otWRAb879s4nemnoefogqtKYgxSpbYx2YVsst5LkEi+SYGPo2fNe1RacJdnN
WyO52Cnwrp1RQ2Dpqyvf72nnoImhsuGyLQGXXQcU+YpUeB+4plYbycBd18xx
WSsGek8SVM9pKmrnZXYWdRHY+2PB5UwvBkz7ZVITrahYcJ0ttipn4HTB3F1h
Txq081L1s0pIEH8sliFbZgtm5kypMouB9nKrzJ8+3VPfmb17xyQDMbWh2g1T
gGyh14x6AAV3qKM1MjcA7y+V+8gtFDhv1PNZpWkBexfHJktDwIBXN3ChhQaL
j4ItRBQZ2aKpN/p2syF/L6JLWIqKkgRzV5VWS1zTdFrPf8BEWPg5Td5GM6xb
fVtE9Iwp7h2ILWx8SYI3UbpZ5CoJxlFCv+j5m0InR33w69NkvPJAZ2Q8F0va
XjpbIgjsyKmj2t3gIsdYVef1VcCyW0B5qYUMX8FpP66PI2LEyy6PydJwuyxe
OSHPFFEpkjJUPgFpfvFwuDcJnmyTs9duGcMz8VxW/zNLVJ/mDrqQSDB71GA/
vWyO5nzHKe1fLT/9K82bV2WEAAwLG6wyQNApwSdhwXSou9ezM/iWWF4tba7c
swkGShHsjE+6GAkqEKdeJENAW2Lx1CkzjCbz7v6+yxLPr9coHfc1x+Kcrqpi
tz5efOV8mbdkBf8wHifAiAJTh7VCbUfN0WdJbnCMt8L+9vlTXpfMoEj9WW3n
WgPUf/AT8JawQEOlc8jTmzZoC3d7prDNDJxpqbKkp8D4ssFVi0s2yK16uK2n
wwzqD7TfLEkD9DQn0V9rTOGPu38G3VsPAXX5uNJ0c6ik3GLN9ZPQkmUYs2Vs
A2LcfE+WrLHC8j2xBa19pggKfPvdw5/1UBJWK09pM8KI6WzlJicdlPyRcXtv
ugKivcflroYYI7mLZ97jowUXo9yuvDsamM2pfzEprYGt238PMj1uhWnVWPUd
Zaaoll06uErTGp4e3Uf05QxA/knrzVsHdUTlT945qKSPXc3hL8nTYqhI3vLB
Nk0W7yWOXT+nqIB0+b7h4K+U0NUSH3hwWgmZ9oFfl57ZiE16OuHi93RwISRv
WqB9HWpZY+EHigzRUdYUtcRXgd9J7qX50woQHQ/10FyrBP735qPXR00g8k2l
om+oOqz1ujs+7rOE+0zLscBSHQRIugV29GpDej5kP/2wLjJ/GFJ97mCEyP4u
+fwIbdCfGPin/GkC1+rgo4Ne2rA+IpfWV6kJ6zOVKdQWA6SM/ubl4KODFElF
+hUNZVyS97oZkasJk8mQbd+SpwjRx/R0Pn+asBduka+VmSB25ojsNoiRQYQz
DhfYiYPf23koQUkMbfEO+ZNLb4lInbLcNpdRQqyoFXOeH4jyj3v1mocniAHt
RhU37xFCfFBNrVdximjcMOvgtFIWujTe/nf5a8DZMufB2CODnzQHKlpl5gij
PStuhj6bIjJfV9JeNovBtC4i7+aKGWKl1K4iSuE0Qct4bGfVOUG8TzTqL2Su
QNJbQ8H+JEHUZmct5NWKQeBfTBD/6SMP3X+SVjBDnJPeZ9d+aJqQeGWsyzs3
+e+46ApGTs3f6v7OqvNiS2T1QqLNZkwrLaSKKBDcnj2YnU9It0Zml38het+w
QTWhzW6aeFNyomo/6Zv7/9TH8MWduhi5ZCJabL/GcFohYTNpF9RfF0LMLAR8
bFCZIvBH0Xsp11GiKKpDWejMyD/O80/7/vf8z3zmf4tiYGeHReqF++oDnZuO
BXd91t9n/q/5C5qNF24=
        "]]}}, {}, {}}, AspectRatio -> 1, Axes -> True, AxesLabel -> {
      FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm], 
      FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm], 
      FormBox["\"Log[10,Information Capacity[X3,X4]]\"", TraditionalForm]}, 
    BoxRatios -> {1, 1, 0.4}, DisplayFunction -> Identity, FaceGrids -> None, 
    FaceGridsStyle -> Automatic, ImageSize -> {1065., Automatic}, PlotLabel -> 
    FormBox[
      StyleBox["\"\"", "Arial", Bold, 20, StripOnInput -> False], 
      TraditionalForm], PlotRange -> {All, All, All}, 
    PlotRangePadding -> {{0, 0}, {0, 0}, {0, 0}}, 
    Ticks -> {Automatic, Automatic, Automatic}, 
    ViewPoint -> {-0.4549372800121853, 
     0.31803576542149004`, -3.3379462732596332`}, 
    ViewVertical -> {-0.5946709152049845, 
     0.03241967665151522, -0.8033152974860353}],FormBox[
    FormBox[
     TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
      "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7723535182990894`*^9},ExpressionUUID->"bbdfb6fc-8087-4055-a20b-\
f1a967f4b4e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPointPlot3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", "MIM13DX6", "]"}], ",", 
     RowBox[{"Re", "[", "MIM23DX6", "]"}], ",", 
     RowBox[{"Re", "[", "MIM223DX6", "]"}], ",", 
     RowBox[{"Re", "[", "MIM33DX6", "]"}], ",", 
     RowBox[{"Re", "[", "MIM43DX6", "]"}]}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
      "\"\<Log[10,Information Capacity[X1,X2]]\>\"", ",", " ", 
      "\"\<Log[10,Information Capacity[X3,X4]]\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
   3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
   3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
   3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
   3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
   3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
   3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
   3.771929457794732*^9}, {3.7721689283429265`*^9, 3.7721690533491125`*^9}, {
   3.7721694854823895`*^9, 3.772169488631389*^9}, {3.772169819335092*^9, 
   3.772169821480093*^9}, {3.772169863548537*^9, 3.772169899478387*^9}, {
   3.7721699474990664`*^9, 3.7721699767585363`*^9}, {3.7721702601076183`*^9, 
   3.7721702722613535`*^9}, {3.7721706449071755`*^9, 3.772170647284936*^9}, {
   3.7721717010141068`*^9, 3.7721718143087273`*^9}, {3.7721718659804497`*^9, 
   3.7721719017313013`*^9}, 3.7721719876233015`*^9, {3.77217232637504*^9, 
   3.7721723694770412`*^9}, {3.7723521267744436`*^9, 3.772352222205954*^9}, {
   3.7723523562801905`*^9, 3.7723523932144985`*^9}, {3.772352470402605*^9, 
   3.772352476293683*^9}, {3.772352544237755*^9, 3.7723525944979925`*^9}, {
   3.7723528792116365`*^9, 3.772353051847496*^9}, {3.772353513969859*^9, 
   3.772353531206915*^9}},ExpressionUUID->"1c24b8bb-bbe1-45af-b676-\
a35224b7e98d"],

Cell[BoxData[
 TemplateBox[{Graphics3DBox[{{{
       GrayLevel[0], 
       PointSize[
        NCache[
         Rational[1, 72], 0.013888888888888888`]], 
       Point3DBox[CompressedData["
1:eJzFlXk0lWsbxlGGNCjH0THPqVSijm04cRkzZA/vsPd2Kho0aRAqDqmjNFFm
mTWSg5IMkSmV4lBJmjQoJMpUMka+vb6v81ff/qO1vrW+e61n/db7vve67uu9
1/08j8Y6T2KDmIiIyGnBmiRYvsuCy+el83FmnYzXi3g+5NtFNik78jEoF+Wj
O7ASS3euZ71avArX4+d4tL1fiTsrjmseK3HBMXiVFVS54LJ5mmqmowsqzj1V
CGLy0SfOvzzgy0dhz8G+Fwp8SFn5rfglgY/7ykaL1+/g45Jy4VxlBz52aQau
VpGjoP2Mldi7kMLT8pl7NItIyDgFnAgeoJA03aPMtY/CxhUTLel3KDRY2Ibp
HqDQUp203b6GglGLu8Nzawqn63JEMlfRkIx/cPvgURot6m1KzDJBXrlnw6d+
Ltaf6TrWk8NF7VDv1SPhXNgYncrK8OPCv/JPh6E4Lhr3lfeGrebilRT7SGgu
jdtl8/1d1bi4rH/4U0MmjaqhMteEzSz8vCbB62sYG69yl3TpGbNgHHf2TcMJ
Pg6Jyo29OspHzvCjnO6PPOSJxK3fl86B6Mh8ve16BPTyI7aZXeDA+3K1g3g+
DWPVmLG7vTS4qYP3B91pNBQdKH9fT6JrT1Pi524SPvv/5nJiSTB3+M7wPsSB
68dow+wQDk4sZfmVlnFgHCRblRxMIeCcgUVqMYU9NyUj2n+lkM5tebpN8F5J
Ys46vSMUbm/5sCG4lYR8hYLx3XAa1X5xOpeTBP05luVvtIZGTCXP8s0uAqXn
i9qN9hJYdUba+Ok0ArxLUS4JHC7iv4jPTmNxwbfpf/Mqksa5gOz6HJILzyuK
yyPcuDhub2fVcZdGfcSG5qOOJA6fOG84zZgE39tS5A9LEokIT4j4TEB72+qd
y6xJxC/bMp4yQuCoxuuplx+44PF2FYvUIhfMzp6d6xTvAubqxujnohQy3J69
SIomEaJTxS3MI8F2WPRrzXwa+4fbQ18MU/CvGUgtzaXQqvi6JlBQPySN5V3h
R8PuS09tUgINmy0XzvH1BP21Gb3mOZtGPE+ZoVRCIXjRuKKnAY3rAVnVnJk0
ph4SafK6SeG1epBucjsPphsOHRTp5MH6k3J3+lsebMqluzx4JGKvD9TWs0js
jn6U4racRFFacOnFQhrezlviFlrRsPqyI1ZV0J9m6TtD7VdILJxy/LdWpiCv
J39qnDeJd69zFOZ7CupmFtR4g0b61LcKw0Y0kOORZmpEQTxPuUDemELbYPpV
X3kKxVIXG/qcuRh94l95X4aLPeFRbY/e0Agwvq231I7G5eat+3VMabRtk9+e
OkghSO6dJjWPgPQMvFCyIrDZY/qUsWYODHQySz1/50P7bYdKiSUfIV0eV32k
+DicIT6ku43ElqeDG1eqkbi3fXOK6hISmvVpj/0tCMS4JIa/MSNQNao7oVbB
gezM92smXCmEnarZEe9EoXPBwqvpOylc8VEymfMbG8yqvBvVFBtHsxv7yl+x
4LPJ9TXZJZhXA+uFFaUcbEpfkXXmNAeRT7viKgX+6pS1dGqGOVBXohwm2jhY
0D3Pa5jJQZGdmMO4CQeGHWc3lUpzoMh4/7VJm0Qns/fJTcEcSagEvm6cRsLf
umSjvi4bqmlKK64I6t18IhNcYMKGX+DusfFWCpOa8pgeAjbk3vaan0hhBhHL
r3Mj4f5YY9RlNwnz0YBlxyNJiEjUU6EPSHALxl5eDCEhuTHGK3E9idO5nKpF
YgTcnH1lwl9yUB7ssPPdKAdtd2pd13wmobT77nzDJBKjvc5Zv1WSkPjLdXvA
CBOB1Rt51tpMXNa89eGWDxOOUqF982sJ+L2iDHj+BKppdYWcOEKw7//gxY2y
sbOmJWT6Kza09Po3iBWyUSJV0/yTM4neXMXArbNIZOvn+rIsSEg1azhomVNg
WVvHLs4h4evYsiO2jkTFYX+RwztJvL+b9+G5IgnVPcd+Nioi8PaM/fTUrSTq
U2wo3U4CGXGPq985kRjqGxTtncqClYPRgbmTWRjkPVh/iMfEFK0XqfcO0pgl
5vlOm6BxiVoqs8mHRpTuFDUXwfk6+Ex7XK+RhB1z68kzZ0m4JvYkJgUL5q9P
Xk1sBQ2lv9/pf5GkIWe4oK7yBg1C9AF7+kYaeySy00c8aLglmNRfk+VB2yhw
MjeVi+5FftlR57m4xGvRyhjlQnpBb82dWC4Y+1Qs/G24MNn65lSYIxcLgzzU
H07QOF+iE3dIgwv1J1YSTVEkciJ1epYcJ9GRZzxp8yYSVtfyr4dGEZgS66qk
pkZA0T6xMsGEgOb8562LOBTcndQj3ihRSK6tW23hQWHvycLSxUwa9yZSlVN9
aSSfDeuU6qQQEhBSc+Gtk+C+KxU9etcJrpYfd4sWOGFYf7n85JcUejJzlvEF
56tiTvAt0xQKfx9asEBjDQ/7eFtNGw14YMRM7t8vx4MmL8S6Rp5E0lXXXYsf
EhD1PzcQLZjb+oZb4ZsOEnBv+DP/owGBG4kBZ9UVCJDqjtyvkhxga5JHyTgb
FSXyM2pr2Ch7oJGUUc9CceVEDCuXhfu/m1f90c1CzBr/4nMFBMqTmXd6ggnc
s1EwG/Ui0NJuM1R7kAM/99P9Mgc4MBHHh/DFHEiFGtu0pbKRrC+eYu7HRsTC
jhKGJRvXVFUop5McTGi5zdUV7FP3TyWpF0bYuNex98v9E2yo/DSFO7GFjaVj
+1pL+WwY2CcfJ2wIMJYM3Xzyp+C/Hn+puORCwF5nbvSTXDb2F7kNZFexoawg
2yFxiw2xHJtnsjJMHE7N3pRb7QyfeR4ZjZZMaMqSvCgNFsynXUsJWcfCRwn9
lx0HWDBgvX142McJWWsrjhjvdYK39GeZD+FOiC+oL1A8b4fVCjcLTzjaweO6
RYzTETvkL2VWXkh1RnK+2/2xKGdU3vVOJ8SdMR457VznQQc4Tw2b25PvgORp
IYwOewfseZTS2jRsBekPO0RDG6xguStLfLOvFUIedMyK3muLIcfNv+xyskX9
ypaRXjNb7BxnabFv2IPwMFSJi7VHQtgTk+ROe0hbez7OvG2Hq+Msj7obdmhw
kWiZkmeHdd5TYn3M7BBqdef8qUFbVBmf3Dj+yBZiFwufrb1pja5I3sGHKdbo
ad6cGd1hjW6/RpMTGbZoSYvPr06yhVQe+7422xY71k3b+2sZUDBWbKuQC8ie
bly+MR94eIGRsULMCj2H1EcSJK3g0lF8wrPTEiL/DuPvaOpJK4lkWoD5XrGu
ewagaJGY1HjaAlaRnGKH1QzE9D8mH9sycGDV7ehVhgzEzWWb1USaItOxUTkg
3xQTGzqOdK01/aZn9B07NYIXfZU1//ZsDsnEL+5nzczR1uvAnXxXH46eI9nB
EfrwyrNvzfNaDO/nQaf4kmZQGqI43VpmCJD+ecCpygwpFYl/paUzMCPop5Ab
TQys8P3wyD6LgS3JC8uOpBniN5f+2VPnGYLZVDJJ9qQhJiU4XitUZmC9wdrj
F6uNoJxZPCegjIF698paolkFQV2/qAf6qmBuqFHH6z7Vb/40v2N74Cnf3xV1
MLP0FKUfrw3nlr9mZdM6375rC+H3Ov+huhDOEUJlIRSmI8zPXCEUpi/Mv5wQ
/qhPYToz/0eUEkIRIRSWL8znj+qIwMoxY9W0H8j/7+yz+DH+v3SEhhAdofwf
xfc+CUm56QZXhi2uvTw54V/UbxGa1JBXyP9qwRiXWal2/nDpP/xH4V+37iZl

        "]]}, {
       RGBColor[0, 0, 1], 
       PointSize[
        NCache[
         Rational[1, 72], 0.013888888888888888`]], 
       Point3DBox[CompressedData["
1:eJytk3k0lWsbxndCCJlKKkqGTMVnjMKF2kKyTdue97v3VjKVMlREJCElp+zm
xEGpTspQSUJKUVFoUAmpo2NqcCJH4tvrW9/5q89ZtdZ3r/Ws3x/P9V7P/dzX
82ryN3qtFSORSNmiNVW0ik0FGh1yfNQt+aacJb4WjONrmuI8eGj9TNk3V5eP
K0oa9XdyBGj7qPNlmzMPmQ86FLluApx9NHTO/dZa+NQ28RtW8UE14JAUlHmQ
EfovDrkogOvHrbu4Z7hI6fzi/MxDACvv4td3DQNAFr8eyojlw2lom1PeXAJ3
BvK3vR3gQbdUMLKYysX2Ks9owpaLdu/6fK/lPOjsyZZWduKAY20k98yLAPnW
inbPnQLInvb9SFLlQpaR+0hXV9RXZWNZ/W5/DO8PvDyqTeDBxLyaBUk8JBq4
PHc67A8xnzvNTQcJgKTJfqXDwcaR0GX1xnwMX+98s6CFhdniYdl1nwmUj/vJ
HT/nj2/rKhz9yQScyBd+r+yh49IgefSaMhf8z7tmDL2g4S3zkGuXIw96E7Eq
W7T8UcZpUGmyIqBUNS+WtYEF3/pMsmwoD4MFmhfS6UzUWOfmv+znY/p0NbXf
ov1hWHa49JQ4HytT3/9VZEogm+d2yu+LAGl9iqaO8hzIhEVqlO8n4Lihf6+9
mgDLjwcRxtu5oOmv4ihXc+DlIU95ISuAWerQ5QoTNg4tl+T+Gk8gbqMSVSVK
gAH9B8G217ioDfcw1FEhkCn81K9wk4e6uLaY2mwOtgweKHolml/dVcrmz1J8
VD4qzSHVs7Bkb9W9w65cVOx8o6syzoNhsYnaPhcOkvdvAuUeAe+NaVJHswVo
FY6TfYwJrJA1sm3/xEUAJWVVsjYf3NNl819acFBJznv06TIX3Sl7eQY6fHQR
d3e0H2VjPVUlMWI7D22ztHRHF/uDYI/8qZBBYPjm3FwHfw4MU64cOT+TgGp1
6p6nQywMdBzKTBDj4YFw3249ewGO1Tcr37IV5dQ8kBTXxsGqZTq0PlH+1b3M
52rvWBC3O8VLNiFQoVUlMFLjI65cYun4czbWCbUK/dZxcVHIc2CF8fHbqGFO
y2vR3JrNtSvP8MB/tX5uiJkArMjiVRF/EsgqZO4JDhC9E+2OgYBpovMv9Nw7
K2Cjd+hpj5LIP49o4wdk8NHX/7F0hSwXseIrefKicxQaTmyQmM/DAjFJevEX
Jq4+8LfsWsXGjqwc03FLAjH2Wg92XmPhSoeqTkYaCzavXw3qLicg/qH/0uYT
TJgfH3zeqcSF5dpRvhuZB5bsZtVxUb7Bl964WkxjY43SvkOeply8a3n6xdye
BepfwsZATQaCVEz1g3qZcFtAdl6zlA6vFjNalQuBtWHyKbERPATFz7Q1vM0B
dWRLa4jovQV3V6vmKglg0fvn9ZQWDjLGdd8PunDRVyj2NNyfwI2Ipmc3BtkQ
lxhbrn6KhXNZPLP39WwY9e8bKbrKAPn14KUydRai2ALmi7tsDJYxNj18xkCr
SYlMaBYT6Q89KBwGG4rd8t1nPET6ypEcK2cWVMt3FAQ9YYMn/HCwMEo0n+fL
R2bqEgiJ82pysedBXvrg2dFhNrZETtHslmYixCn84ZnbLPBtjkaddWTgNikn
87QbEwUJ92rWt7MwfpGjpFvAAHd0fnf6MzasiillSfkcSP5h8FghjgUVqay+
+Eg2dk5EXxtjcLGX6WHtcYmFI0FB4cu+EuD0FoUO3OXBkbqs/Kjof+89iEc3
JUX9jBwz+qOMh8addUG9XRyEBRVe16ljQKGvM33pCBOqjVNy/QLoeHF4Z6YN
lwEl7dOrh6cywbBVPegRQINj+BRutqkon8o9FxVCOVi97p3/XC0mTD72JN3v
ZeBygH+DtCjvIg/r1hJDOtKuGV785stAmU3lMxKYEMw/H0kKocPzQW2W5Wk2
+p0cKM5rOUj5pHd131sWPE+aKCQImGBaVMtkRDKhne2zpyeGAT0rtvd5PSYc
m3wHtCJYMAwbo9lX0SG+uoClsdAP9a5NAftP0TCqSxMb6fRFWeeuDm05JijB
qsP5thysS42JzZ4v0is6lljKsxGvbGNRZM4BAm3Lc9xYOLGs4CxnNQMpy2xS
06YxcSo5P8bUmI7HwXnN61rZKEyYs9D9HRu1U+XfUuzYyLOUT3g7wMAuJb/d
H2hMpDRvSfq4ig537yP94wdooD46SWzcR8dwV1TNAUsaikrXDhrH+aFxwsjw
gzcNPOvAu/blVAxmbYthFnqh6/3DQxv0vBHzrvJwFdsTiYEzPvvSRPesyYvu
O8TC6IUbcV/XM/E0WzU8s9QHmwvFj7LKfSGpLzmwXcwHPgdKvvXE0kGJjXui
9YQOo5e3pUoe0VCT434/LIuOrL129Sn2DJjJCqfkG9GxuSXJPVroA7sRde65
ez5objZ8k2Ttg564z03SdX5IHG0ubEmlIbB/rPXlMypGvw6oVfOo6GvmuZcf
pyIv4XXjIlkqxipUqj+EUVFb+QuTeYKKmF9tVgZTfUHW47x+3u2J0WrXZLEM
L/yrYopuQJMnsuI5M6hGXiiu7bQUunmh4p780szlXvicQTKEjjfsrm9Ocpfx
RuBs50WkYS/ct/cPztjrifYgp5KWu564HTJi/NDGE5phJ9VPunhjl6JLxsqL
3sieX7g3mueN3yom2umGFNxOe0csD6DgouzWTqEvBVEzqgcOKlOwxncJ59hM
CqZcntJwy4uCapfW1MYnnrgmsFihr+EF44V1j5sJT6SnUV6+q3MFTcKcNKPD
FXqxt76ecnZF6puhxKltq6GQksCvTF4N7eRp0ukdbhhLz2hhznfHoAF1loTe
GgSdTgo23u2Oymm0I6VsZ5S5xefG6zhjlrTERveTzlh8dNWczF/J6LGLZag3
kqFhsc7EZgEZL4UyOvl0N3wddI5ypbghaPHwjGPmblDPmbBfegkoUnCrn5vo
gPu6AfxiAfAypCt8aNQOsofLd47NtYc3acPlqxN2SOkKq9K87gBCaPZA5i8H
HA3oLLu4yAGmX40YcxKB8nP5V+T6gGsy6tuvRwMHo4qnlD4BxAXhIV2KDtja
ZB/5+DjQPSc9zqXYAtFrmkMjOixgWda2mSQ0Bzk8v/uLrg0aL1yQyR2xhmtn
nFTXEWtovM2aPnbMCq4Scm4X8qywTOJwiBzXCmJjzlI3bplhtqyUXGS9GXhu
uYYHpcwxZ8/uhpFWa4QkltgusLFBEt/K7FjEUizipkTFeZqCXEzVm6VuBsk8
V4lNXFOw18+r0XijDwdK16ezNw1wUj2WXyDURzx59ZcZCYsgnZz7e6G7HhLk
t9iFGizCnqoYpYa0xWiVK7HykliCA8K2eN0aIxSp7cq5fkADXeHzblonasDm
zh/HWtQ0oNWTfizEwARBpBed87qN8fv5yh1sBxO8cQrcnfxeE/SKck/zdk1s
WGmVl/NtAS7fokXb5evhwByNTjM3PQS3B6vOSRVxalpXr5M+dq3mtCbR9PG4
Lab5nbQ+IhzMPNZsXgijC+phge4L8ajhzgBz+kI8LaCu0MhTBy/03r6y9nko
jbLUlHSdhy+DWvfXz1XGORWJ2jMblGDXLXlnv50iSP8phe+4pvKvbZyAmSAO
pE34DqnA6SNb/LyCyn/3SZNQZRJ+7//P+tmTUOo7ZjrnPxVLVUD1Vs+GDhlF
MLLeBD78RfGnff65z8n1cekCW4rXj+onq4/2/5vfz/lGqiCXm5lX8Td/zOdn
OVm+k/FnfSab86Q+P1n/r/v+tM9kNYn/j5f2SV3ySftNFX/zx7762T6/1/8b
XEEvUw==
        "]]}, {
       RGBColor[0, 1, 0], 
       PointSize[
        NCache[
         Rational[1, 72], 0.013888888888888888`]], 
       Point3DBox[CompressedData["
1:eJy1lAdQVGkSxwEDSYKKCRBJBkwEkYz8wZEgaZgZZubNmxlGEMExEEQFJQiC
C4gYYEVRgoCKrgERhUVdRV1YBJEsIkFUUHHcRUQFVLi5u3Wrbnepvava66qv
ftWv++vvX91dT8s7gOYrJSEhkS0+48SHmWfd0HhAgHiNsrZqJwFEzyUv5qz3
QrPzo7BesT/cZr2TUi/Alevm9vfYXqBI1+YfXLEG0e+CPSNV1mCK1ranyzYI
sCdnvXGcKQ/ye9P2eZzh4t6OBe+yjpCoORZffaJAAI284hnqCgJoznk0N0vF
C5Mnl9t7BHHR1n3+x6BkLkLtMz9unkVCxT0mfHYQH8nFQScyCrmQ7OtvmulN
ItWszeBFEw8hxs0aq87wQVufUaexkoscYg/PNd4LPtYGP7TneqFca9D1wEUe
BjMr95MGPLj78nqUHnDhLq1l8zSNhLpP+wvpLC5iEymfot+RCK+1Um09y4Fp
1JzJrVk8bJ83A9k+PKwtuD9+KouLTeHSL8zEunSvLOpOGOKAMetLnrCdgFq0
c5HbIh5aA30CZLfyoJO8LjmonISI3/FzXg8foUbpeYV94j4aLEq1CuLhg2Xk
j8PGApSGqb9mrRIgck6t+n0OH8K4Ezsi3bzg0pg7eFbLCx3fd4coKfPQWbTj
QL2JOH5XV/e1Bx+PP8yKuJLIxcYJrT5ykwUo2xjZ4DvEh93AybidFTwElJoV
jijyoUi763NrCh8ti9XVbp/kYpJlmei5hngOz2ct1b7HwWBaZXDQYQLhITMr
tOxJUCR+qBBe5CC+qeWwjjWBos+OWkpCPmrSFr2US+ajL3GSxshyHkRxbzXI
E3xkJprk3JjERyNZRq/M42HPuSe5ugfFfe3Rf+9H5SJu5UPuhOcEdLxXC6eq
cHFy/kBn/nMSfkpychrdHCgMlHXuzBXgYs7RuIkeAvgue9Xh+Z0XYuUPMdao
cxFmKuOgN0BiZUiVlt5ODuRj3BWdxgnQuOX8YhVNAZao3Ep41sTH8tPX9Kpu
8dBXnGlz5iYXDyzO2X1uJqH65KPC+jAOPnteKvIq4IDavyYjwYfAWX2v9w+E
PNRv9h2dtJiLo1UPV2yaQ2LTleNDyjIkjAdIT79pHKy+OqDrVkBgfaxh4f5o
DnR4lFj/Vg4e/1g7bPKcjby8dvpCKS9YKhd+mX6aB6qqoZxvJhcST37Sb3rD
wSRKgzfTmEQ1KfAJLCHw1NCZvl2dh9nBVU8aFvJwT1aqW3UhFyI1/+jUEQJP
AjzdRFcJMDl3863XsXHgPOV2YhaJ4HzL8lmbSWzYfzwmlcKB02stW+8uErGL
+V2XpEnkabEef9TjgCBqXmVkEpjEV504oEJgT136hi/ObAwGetV6WXIQLnJ9
PTKXwPi9pud8ZhII4e0577uGg7vvVC9L1HOgqDZ5qsIDNqbLx6+1aSZw2mbc
mksSBPzb9zqYrmUj9F2K6MYmAuVdqfZrwwhs7rWascqMjSdWig2yIg5uZzzq
7T9HYMfZeaod7Wzc38lrzYxno2tfi6amLBtVtsKTg8eY2GgWFXE/lY2QrRpd
hgIW8lMVfSx2sTCsdap8YRMbSekv3p+SYWNV8H4zqUwWGvoCPh0xJ1Fayt2a
BBLpZvE9tp/E/ezYF7vhAQcTuUpxFPEeL55gfccgmMC8ZZFatQpc1A8Hylzu
JpFmGRJTocZBbOH5hB2BXNzuixIuekyi0MN5/pCu+D+T6WBUTHJhMhoh+1Y8
9/GUsgnKDgTqrznVeC1hoeVae+yZDiZS5G7kdD/zxOfHq2lHthKY7OIWvekd
C3a7e6LdS1ko2XL6tLsDA5fjqiIVm+kwej+8eNSBDtsVdUNJOmzckh9+2fWa
hdBjRdsmMJkweyY1u3ATEyPGlXVL3ZnoG1W9LmXKxDZaZ9rVtwSoRJRlsjEB
S9+dd+yZBOS/19PQX8jGCl6em4IkC2/6/X0XrGDhovNw9/oznuhtXkY9PssT
JqmBwiePGSjVrOP0SrGxetecxO54FiKHDQzcXjCxYOiNU4oxHdo1VtgkQUd1
JzE3/wQNkmkxh61VWOBkWha3ybLQKnTqa9nORL+ooKF6DYGFD7LLpWQJsOhT
GHoKbKydqk3pz+aiQjHBW45LYiSw6EvONRJC128TB5ZwcYNpb5SmSeJQSZaZ
1FESvvHtM45YcmEUpV7j+pLEuv6qqYwGDtglLatfHuOAd9JtIOAVB2oV8ydK
9oj3LPxR/1TxPkTIbTHx62OL9+D4K/8ENtL0hvZNPMaG8Rnl9N39LCTZFgiK
y1kIueBcfGSUibUuwlbHg0zYG64QTlZlojp3TeOBHAZ6An5pm7Za3Jf8q5+2
fKZDSUpNmpvFRtvH1+cqjNmwyjG2SJnEBmqZSR29NLjwTTmV4TR0VbelUqfQ
YFK2p/bUQTZETe20KCs2EnfKLk6qYuHsNIsTBT+ykOLiwpTYKp5Hv/nmIiEL
EocpC3rF/bYruRknIpnYoLjV/81ZJnQ6ylY+N/JAwcZrUR+6qLgc9JPapTQq
BhoaM67OYiBVeOeB90E6ZlJqPNgiOkJkLui1RjHA7eE7rT7AQGWBwk9Z6gxU
7VLx+IFFxyvHJbE5K+iIScmee5hBx8Z0m6pddCamv72lOzrkCaX0Nnxp9MRS
j43RS8Tv3ItySXv2DRXjM6VTXyZQcepZrt+XEjrk6qYfawqlw3VUY8TvCh1T
RXO303JosJAs+m5iKA2HFAY67ibQ4F874saSpIGqZ1VnO+oBu2i6TEStB565
M6Nka+iwsB8p3ZJDx+lPkkWb/1nHbXPM7HUMHDfPNdSwZcDoY3nYUTsGBBHD
ieFVNPTQrFwr79Cw/ecB1cqJdBy6UhojO94Vd+Qx48M4V/RnDRfaD7rAcaD7
TFivOySlZRfJU6i4me0xGLfFHVYve3aJjlHhaaZfusqfiu3OOvyNflQkq4U0
ZXo4Qy2js34Kyxk/SyoFDLathsnDkc0LKim4wy89ZlJDgfnD+1SzQgpiPhET
U/RX4cPxGsa5Ego6kq99M11AQfXt6K0/7XTE4HLH2IX1jhBcGLoscdQRvwTv
0i8KcID383uXE4btIaxe3uuv7IBzT502DWZTEFoX76AUSwHz+nfND8XvHJaL
2Gcd6Ig50vvDMi86YjZTOUkyyBGFI29r/K/a42Rv9O5XF+zBW7LUWivdHpEl
uWnGTcC225+fcsSsuNea//gGQJ8jn3Z8hR00YvZIZjrZwXrX/QS1ZXaYXpPh
Oj/FHE+03+1WOG+O8oiOgQ315pg/I8gvc7wd6ky7XAom2WHfzcc7ip/aQuJf
Zv4H3n1t2xpZZY2fs1vWV/RZwzr9hfMLnvWv8eX44ZUBO3Tp8t/8QyEOribT
AKUUd3m2yAb9np03L2gC464FD9y01oHuBBnTdR+0sehR7hf1p9roVVTlvfez
gMPVqvvNoRYYH369WXalBbYV14xnHDaEar5847xvDRHOt9BJCDLEwlD/Tnll
A2w80X7SZo4BWgfTQnvnG0Dm1cXtO4RGaHt9o6+n3hCNRU2S3nwjJFEeMaPD
ZmLQLI1ZZjwTR94QhpLfzvxV77w/0NE4KnvVBm2g0HhvS4w2rubFupec0/41
rjsGF49Bzb+J6miTo2yNuqz+m/9vLhiDY+lUGYO/r6v+l/mRyT7WVNpY9/7b
OjJjUPl/5Fh1+mz+nBL4c46lc6z8saiMz0RLqU/E73WOpef/zT+a/tqV+hXf
x17/yv+MjtXPv83we4ZOuxLaZ7D9+ld+TdTNmGefYRN0/Sv/qrCjccaFwKSw
61/59TvfWfTwxj5J3NIKjmfovrXR5Knt7fQfHXMf/gFG0zxs
        "]]}, {
       RGBColor[1, 0, 0], 
       PointSize[
        NCache[
         Rational[1, 72], 0.013888888888888888`]], 
       Point3DBox[CompressedData["
1:eJydUQk0Feralo3MITJTdA2RKRqQ/ZjHzR4NsdnGMlSUMjvJUAilTZQcSakk
[encoded data, 4140 characters]
hbdF
        "]]}, {
       RGBColor[0.85, 0.35, 0.85], 
       PointSize[
        NCache[
         Rational[1, 72], 0.013888888888888888`]], 
       Point3DBox[CompressedData["
1:eJydVQk0lesa3sdQIUqGzBm2KUMb2573/p+NgyQpypBMRaERTTI2yNZRytCg
RCq6RyelVJKSCqFOcTJV2FEohUxNXOveVffe0zq37n3X+taz/v9/1/M8632+
7/+0/NctChAhkUhZE0t0YpksrJrc0kdD3kFK1g4eDbz9TZXXFK0Q3XjsAe0a
A+pRce7muznQDA1807+NA7Ul9d7jQUwM6pU2I5SDRwl3Y96d5yMwQ6nGdyYT
+0IuyyzMZYClZ9NMXGODVC/sbDewwvCeXLfQ44ByL+Nyei8PpiRh0qEmoKRQ
fEBpgxW6mmwXFH3mgtcz1aRAn0C8dMsNtzIOzpmTV1ynArvLf7rSfYKH0Bpz
/8BdXKR2TzE61WON9Umci6ubeLhFPYqUPxgouC4n9XGch2CPJdkkPSbuUAqH
LSQZWJ6x6ZiHNg/GEgnx4ZqAauenE7cyOJB07js6yYOP9iLjFvtnZpBUC2q9
kESDou6xjcmyFMRH1VRlGLJxLNlV97kdG9Jrh0/qOwPmjrvOOc6yQTBxSuG2
qxV+Exh2t+2xhXhqXMqAgxWkGBZK8Tt5OFpsFx5SboO8nAgTvgwdNREupdI3
qFAj2Vc8LqPjka3fuahYBn7vUHi83osGjS1Lj58pJjBjZGpg3AI2zCX97gnJ
BBwEbGJBBxdSzMhWPTMuKCLKn6P3M6DDql+qqchBoHWQsuYqNmKpt9teDNGx
qX71tBPZTHhGpciPvGYhhPLxPn2+BaZq7thYoMVCZLtb25U4GtJz3VnCMhp8
qq9prxgkwPqY5xecxsarh9meB88xcD5gLJvjwMYipZN1PVM4EJ3bX6Z0h4nT
JePCu1Q+DO08WclqgKHbnttauiwkxHqYCeus8Nlhaf4pJhdH/B9F77jHgkEY
QayJ4kFsclF+qSof9uaZtmMrWGjvkexIdOIjnKUUlj6bwOoDuYktLAauvPbu
0ZjFxiPlyoTMbDpOl4sMyvdOzE1NpepSGgtd0uNN4ecZeE22bHRtZMJs3bnx
o/voqPcIOl47kaejjkKW3Hs+hh93zUi+ZI3+Jw+fFNrbgPr4w1njY4DYStv5
KldssPjoaum6pyxUsejjCsEs9F28G2BBoUM5a0FahwofmUY70yr6maCeTllf
ZELg16n6lU90+Eit7pPIN2BCJiH/zu451rjitflGiICNAv3jS/esZEH15umj
3pZctFHa+x3dLJDdvdJ28w4zHL2Xnq+wjY433YqNZUdt4CkckbVw5WDnVaWc
u69+RurBMd2e/XPgm1CrHxBCQRmBsxczjOGuG5McPGyN3ucaWsVOXIS7jI27
vbCGTKJRJ6OLjrkvXEKvDjDQOxTUMmsNDXYHWm9fWM6H1a16tqCGCy2FX1ti
KHwUbWsu0zBgwPyIxRm7KCqa3+xOtBFhoO2zc/pjKUus6Pdpvhxhjs2hSb9g
tjnkTWIsvfJ5ePdKsjGYykLBRxW1tEo+3LOsXnv5AV1+v9XZPp84lyLRMy/M
52IgrOdeQgULSc9eTGa/p4J8hBzqksfD9HlDdoVdFhg8v7Rj7goKQrpHZGcM
UREsPmnH/nEgMXpg0puLTMToqA4cGuFjb98mI/cqNjKsiry0H9JRN0bS4o5x
MChXrqtLssIrvpVbFQFUZtYfuvqBgO8hUSX2xP+rSM2P2rvZDKHzrDNS4/ho
8XpZ/DKChYMRTjHvxS0QPCe5l9rJhsdZW/lZtnQIJFJ75itTsJPmQtUL4SAo
kPd0XTYbzU+zVkf7MlCqOcMgy4CHVSE2clu6bcFbTh5sLWNjoKXhozrHAXmj
nWwPGx7I8a/eO5ZYoKhS582Wtp9B7n+UHv/JEkEVzHLbMHMsO6Pv6anHxuKI
JeTfPWzgHbs1JUebgckjqyzjA+zgHalPDdwE8FafrJ7aykSV5Er5lj3WuLlW
utN7Hg3MJNGqijILeEzXSavv5WI3XUeyU8iHXWr4kwcT+c2daTbntKY1nILU
n3Daadh3bUXz8VgqaCcU3i0IsoDx67dVduU8nGTr0IKmWGKVa1TX6VAg/kLi
4uqcudgjPftymTswa3Dt4KSr87DlucE+5dlckB3rfX9ypqFK4UxbNIULj09d
gyd6rHCyL2eolE4HmXF2YUupDZbEjNYEPLWGrnfyivvXqJC6T45cmzsXdVM3
R6elsmC+o8/0EnMOrr6WOdLiTIBQ77HkbSVwXbBS8GYZE4JMD+GeHGC9D+Nz
eAEFMSoycnEpRohU0yC7a5ohrmr7+QVjBPIrayoaLlHRU5tRY6o+D1q7Lpr9
OmoJNfVO5dsJ5kh/FpP7zsUS63uEo6UaDGyoVbPaF2eBF6Jtb/Ou8GBzWE/i
xEpLdKhMq2Brm6Dx7lCAaTgTGfLc5AhHIN96w0/Oh+loffiYo5sMRHoufK+V
QMX6A22bE9aaoMk1zrbhEwONN10enH9rDPrdaKGPkRHGsgsjFl6fg63Fx5ew
7CmwWbpd31qFjG2N2nfi9S3xUCl6RHJYE6s7xEkrDLUgYr+22PiAHqpoIbMF
G8xArWGNiugbw2vX61/WuVpA3uux8O07I+jESOQohWqj65KRh7WrCSpT73tl
TeRXMnr7QU6ZCRrsDOwfkOjIa5iV+GmvOUp6VDae0zJF7OSdIZxDNOTW7C0e
q6Gg+UP3TI+ZBjjQcFlWlGsJsWCdl2bnjNAcP+/nYiEZDoVimQSNBm1VO+e0
KYbwV3D+FHpjFjhM/4DOm2ZYt1zDadhfFu/0Dz4wuimKZ4btmSE7lPHmb8ey
frk5DYm1p8JwczoEJbvDZecrIlipNqiwUxPxdeWSZ+eq4vk1H4lHz0xxptng
RvZZMpJXDap7n1XBJIPtrQYD2lj+UueVpZQOFtWr24+w5BBRukhdpUkPNHOZ
otyXmpCu3XUjdbIyXF4szk90MYaMWIK6e5wOpt7L15X2UYWMzcxqobYhTsnM
FyNHKOBO0cCioLbpOMGSjJdpVQapYlfJSxkl/FIj+OQUKgsN0YqiO83K2LTk
vIPcc01QfU3luapKkB/V3fiwSwtOYB0OlZWBQGaDe1GYFJIfb/Lwna2BVQYf
zjHGFOCvU7vPL0MKMjMFtwyTNdBSLbsurHyY4HRnDDTEDREn92rSMwXimBZH
c1vNHSGsuWu0Ds+RQ3asSFpZ5iDx7L5vF09NAVe3p3efVVWYuOcym5dNlsNe
7/mu1VEzQWm/v1fjpCyGTsxK+iwij5rr+QW9ojMQpbfR7xVTHL8H213MSlHE
ct1u5uL7ciAfWJc5jS6NgJ8UpPiRM+C/P2UwJWycGNaRr1NiDBEL6g4+cDST
wF3F/jtbRwuIBf5NesfnnCc8daPcrvzRQEzZym3NoIwSYTmFD7Z29xPCzHHn
yT6GIP33QnrgXpseHckvfRj/R70llEy7r/oVjxD/fN1HJCWtGduIGbjpM128
vm6IcNEIcOsbkEWh5N3Yt8blROS2CwYivFuE+6UpzhviHhJZb09tVzWZjrVi
Rh5WZ8RQL7fJe/oraagM2Y8r57US+jv3XxToScGh+iA7QrWB+KKbmdrVHzO1
76vu9/xjTVuqjyjpq//vIMmTVmO1tD3iK2/6jSN08S19BNnE8WlM4zAREXLb
Ry1SFP+p/y/0nd1xoE3pdMnBX984vJOW/ZO/b/v/V6xOawwUSk1BQdXHfQJV
CXR1KPaH1kh89f/NAGK2x0eMTgNJ/fD9kq2SEJAWqZ+5MOU7c/gr/b+e21/J
//H09OUssR/l7yN23bBotvUa+OF8/4xf9klI+uL44Unf8juYWCoervrh/fNN
feFPGLWsblUd/oa/4sDuxXn/9iwfNu7f7LSd2NZ0Lavw+l7C6vk+uY39Ivjy
/VLIsmcD3u/+bz9/1v9Rnk2KtNcOlcmEg5N6ZGmtaclf8XSu8ykMYm0nVklH
XKmW1yR+2xLQHRZz9et5NIs0CF2Y/sN5kYSXFXkZRNJ3+wpUnUTT2i4StYq8
FM6AkNDGrfc7t9whcktTk7w0TpV8we/x/B2oYW6w
        "]]}}, {}, {}}, AspectRatio -> 1, Axes -> True, AxesLabel -> {
      FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm], 
      FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm], 
      FormBox["\"Log[10,Information Capacity[X3,X4]]\"", TraditionalForm]}, 
    BoxRatios -> {1, 1, 0.4}, DisplayFunction -> Identity, FaceGrids -> None, 
    FaceGridsStyle -> Automatic, ImageSize -> {1121., Automatic}, PlotLabel -> 
    FormBox[
      StyleBox["\"\"", "Arial", Bold, 20, StripOnInput -> False], 
      TraditionalForm], PlotRange -> {All, All, All}, 
    PlotRangePadding -> {{0, 0}, {0, 0}, {0, 0}}, 
    Ticks -> {Automatic, Automatic, Automatic}, 
    ViewPoint -> {0.024320961052064553`, 0.06311138688081044, 
     3.38310884301695}, 
    ViewVertical -> {0.0015275142820931975`, 0.49376642302039603`, 
     0.869593230308149}],FormBox[
    FormBox[
     TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
      "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7723523959178324`*^9, 3.7723524771686788`*^9, 3.7723525548801208`*^9, 
   3.772352595435457*^9, {3.772352865397093*^9, 3.7723528876207128`*^9}, 
   3.7723529194099913`*^9, {3.7723529783453674`*^9, 3.7723530527695894`*^9}, 
   3.772353585673316*^9},ExpressionUUID->"2d0fc6a9-9c98-4cb5-a105-\
820b1ea0164b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", "MI3M1X5", "]"}], ",", 
     RowBox[{"Re", "[", "MI3M2X5", "]"}], ",", 
     RowBox[{"Re", "[", "MI3M22X5", "]"}], ",", 
     RowBox[{"Re", "[", "MI3M3X5", "]"}], ",", 
     RowBox[{"Re", "[", "MI3M4X5", "]"}]}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
      "\"\<Log[10,Information Capacity[X3,X4]]\>\""}], "}"}]}], ",", 
   RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7724373590856743`*^9, 
  3.7724373680856743`*^9}},ExpressionUUID->"43c62e27-fddc-46e6-8528-\
96409c9baf1e"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJytkns01ekax19kol1SjDoaDZWoKONa1vC8RCiZIiaErWabNDs0rrOjXAdN
rrk0ocyesF0ad1JHyCWDLhKHTIRhyyW37bKvv/M7a81p1nLWrPPHOc9a7/qs
9X5/z/v9vs/7UznrbUsTRwhdI9e/+M5/OehvHQRQFlOWducQsHtPaeL3iQg3
zXMdPaIR5r5ZM7vRFWEJjcXnXWcQVpREz8I5BBRxdX1UX5B9YTsUVe8jfEz4
ZaDePYSH6rdGaRYRcKi86sS2FAK49dSCS2SfactXua0OCAcMFubqGSFMUW0o
sDmAsOu+Nv77bIQ1a7bLzzIRlrtUYx7kQvoo0i+22iOsseWiVPgWhDNt7Fgt
axHOj6Bel19BuKDeLR/NIKykYO5tQH63szcwyskKYfN+2zRbT4STEpIyemkI
TyeKBxmvE8PsMNMzPSKEowzS8iTpCMdaq7/c7IHwpw9ypqQOi+HPCu2ETJJH
DPyWMjYj3G4W8fUt0q/VJa9a9yjCguREfosFwvbZ3nYV4mQeqlzuLDmHbFG4
Db0H4S0NgsumXQj/HtYZfi4dYQvL9IDxGwi/KYsplfJG2CeBGdZN5mH5siIY
5D3njBXTLTIQ/rb6gjI/EmHd0J3S90IQ9iwMHKS6IXz6Rp/UdWuEVTTyzKvC
EGZaMKpPkjplYCz06PcIzyZsPOXIQLg68gucdA7h3KAaBp+cw+BxzR9sDMjz
lMLzTTQRnpraaXuazO3n+rhsVAvhn7NZ7cMTCBtGs9pnhsn9Q+XYWB7hYdX5
4gUJhKW86/12FiN8845afiWLnKv7tjWnchCemBb06mQhzFjxf0D7nIBg00Tv
5c0E8E2aKCJyf+P428iT5L3vNg3tu2eHcIe1FO2KOTnvSLqOsQ7C+zddWN6o
hHB/5otjDvYEDD5a+t1Cn4ANUd8qPmgjQMvp9Nz2OAJMdVuTx+MJqB+8uVBE
cq/0OzxE9msNJAxHbkf4WtuoX+VJAiTsxX5wPULAcyPX609kEWZHfMkyWY9w
jrhGfRmL1E3PiR56ExCl4Oh72JbMLXTgLZshvF7v2M9DaxC+wD7+ekcPAWei
LPIx2S/4JT8im3xvozZL5awNBPjFlHjfVCZAQa/5Sps7AUKU1njWmIBv0rX7
ud0EdFMqxAtLCfAMFnh4ZghBxzC5QD1eCAJYP3vqO4SLvrrGcSP/Lwp9pehi
DQGjinMFjT8SsDjEOfLTbQL0kva+kkwk4C3Tgf73ERGEps7tyq0RgcRMpBpu
F8Fw9JYReqYIEjM1n+yhE8AMWX6WoE1A5G/zltr2InBVvB9kbSiCEJl3WdYT
AnCspOV61glAQutFWmGtEEL5/+jUyhSCSfxhc+OXAlisOx/4qkEAI+zDVbIs
EUjKpVbX3RaBi577OpqCCAzHuvYyBEKw/MXd4n0NHzrjnohlXeaD9WKvhyhV
CBvSH//6zVUhnG34TeL2PSHs39ZiohcrhA7DLGn5ST5gO65V8McCqLL1q431
EMKcy8BIQ5AQilgVPxrXCCDULmmxkimAuPqsPV4dIghSpqZUkf7FdfsCzi3x
gVUeHiDs5MMI7eGn5VYCoLYYOSzpCKBWSU2m0YFHvpP/2nozHug3fnb3UCkP
LiWcF2t7yIOJLKMDpiTf1kpJGObzwCtQ6tFIBR+m1+5a2RTIh8lPFNaV+PDg
tdVg3UkGDwKLZ7o3UfgwnNAo/3iJByy/A8eudvPghaTXJeozHjAnh138qXxg
mOvH6wTwoeSCBqJY86BnR01ZqgUPmi93vOYcXAHz7WV9jvoroGrO2kqtXIHy
eJso57IVqI292R/zmgu0gdJo2gwXbsg46+I1y1BRWBDDUVsGlZbPqarLC6Ah
t/ugnwwHdH91qyqeXoSmu4sRxspLkDInjaOPLwEqLb3xEW0Jnmj6v9rWwoGm
Z8ctaTMccDZ0dXYzWISvQxzNykhGtb4cT966APaS97NjG+aBzg6zZp7lwK72
Pmkj4ICPethB9+AFKH0eP7fbdwEUrzofiKnlQOLz0Jx1+RyQGY13alWYhwwm
nVDXnofKVJlyM/V52KzvIPJxmoeZa3MVzgocMKg8v5wnWIB5C8uordFzUDIU
8GasZQ5E+jMrn4xNfeBDKUZwCIMDLnf6aQO3OCDbwLdv8f+TM1d7ZStuzYJB
bYrX0+ZZEHZ/kaYW+/4Dm1XAyU5rEmSlKyf6zCbhqarncoLVNMQEtDnMKk2D
MC/QN2ts/AN/6nykrZW8ADz3zpZ89wVgx7E9Pxr/8zxfk5KBW0GT4CX/cZ7Y
3Ukw7giiUCh/zbgT3HfcDDZYFpUY3T4xDsR3d07ImXX9JXckHe1qdp2C0FCV
uuvZU+DRe6Um/Ckb+q4siPX6sP/IMfCB8IfPv7laR6vqv+nTPfuZp6VHoUf6
4FOW3Nh/6Ktrdf7/t/6/+q+ufwKnCeAJ
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJy1kns4lfkWx9/fdpLspjPSOHJNTY5CM6GLwlpIMjUYTEpICuVWMilC5H6U
W2KUzRZdJEI0RWU6KV2UWzldKLW3W2ijjb23fTnvec4cf5x/es4fZz3P+3z+
eNf3/a73u5aO934nHwZFUQn08y8+zdULcXcjyFa7ndeyguDJK/6P5ugy0Lq6
UR9nM/Dgt2Tw7kuCiTy/5pyLBI1vsrg3fieYvM/Wc/Y5ghGJ8zu3VhFkmUIq
xSJos8R7jPqW4C1GS0C/kEKj7Rb53Zl0/1d+AWrBBMuaUs+XrmBg68Xqyogp
glW9ZXaR1bR+MlpLPofgfJWvhxoSCb6K3xjYvpPgHSl3By+JYP/z6P3rdxP8
lO3/qcGIgQ59zAciNQZmeH18bDZKMPb9WMjxLoIvLuxRdS0jWCfXlfKG9s3P
Ptq2gPbb9yvTPo7JQFWJwfcBIwQLTRWSa9sI+ognucmODOTtLX1+0JiBQo3l
X62i/9fEuZHpeIegR4pw70oOwSUj1zu6HhL8adHa29m9BJ2KVB9toXNoqSwo
MjhLUJFxbN3SAwTb9vyauFqLnqt4duzVaYINLsWl/lEEKdtIP+sfCW4rrNF9
TOvqhu4/UjpNUOFpnMiP9vPSzHjxsZGg/9QSw3v1BO/6LNmUlEZQ/vdm5ej7
BI+5r74ecIqgXYZW6vEWgvYfBp+8pPvjbc3JzXKC53M0nOWSCe5PMgq7mEsQ
DjU5OGwjWH5hYahQTPDQ8L4y8+cET5xV2cRsJ/jG0u3OL/Te1Lavq6hrJng1
VtTTS+9vV6Lc7R46F6ZDfXcNve+dnTrRHXEEgw2vbA9yJzgvVZAS5EiwxI+z
Ya42QatXFoO7VRhoWnDvtMMwwUX6awZD6PdPtr46OKFL0LPVXnp1LZ3XM/Xk
SAmFjAe2l6570jltXG5sv4rOX28HpwoIapk/LNFRoe+pPeeZTwhBw5YYjo4l
na9Ld3kW3Wf83HFqpTx9F2zNU+qqtH9PJKtKRqG26MxTNiFodImx8W0/hVVz
l4WdDabQqtj80QsLCj1mPQjypnV2iu3u4e8p/KZgcV/pCQpHJBG3vH6gMG+n
/KyHtK+lXqIjDlNYePsVQTmC5xyVtk5zKYyf0DZ1O06humyZf+uPFK5s7Jze
rEDfsejQn4YGKLzkGp1Zb05h07p0PxVlChNin8TVdFB4LuGWX8YVCg8/Pji3
hJ5nuI5jo2lK4ds1qVVRTArZRdSRuCcyWCbdZq1YJIPwgaSiM3YyKN2RuaX6
JoXJB955J2XT/aX7+kMCKTRb17r43EoKC8LlIrTTpVDa4/03fwMpyF8y8w+P
koG3u50OM0AG6mGuqVEWMthbU+JRw5OCl1FGGn+DDPKc1UKXq8jgWnpmUcsL
KUz8Izqss1oKTHb8+J4WKYzUj+XPS5bCTlulg8VCMRzV58w5zxbD1FsxhIol
wN8edCO3RgInrM2Op7+WgLOg0eO3SxIY8JxlMaUqgTMvfZWXJYmB/YNhYdYG
Ccz2Ypt/pyCBDp/A2qs3xBDAqW5b9bMY9GePSyy7pXAx5cPIcKYUNm2b1fdR
WwK+6t8rmIyJYfrCpidb9kxDgZ+xV+UnEXDH4gNjdkwDpZ8d2TMkAovojntL
I4RgEndXw8BXCHfDjNj8JBG0PrrX42AjAl2+uvfkAjGsyXIJymmbhmA/p5rw
WiHo6aruzksTgt3IZZY2WwSXF5bdPx4pgltathtt+wTQ9KzMOaZCAA87SKcJ
VwDX8iKPQocAfo4sqT2QIIAPNlEBr1YIYFV756jBsUlw+su1ujqvSWBeOZX7
3noKDhSmO7P0aTbqfec2ZwoGnT5Y1vImocJ36zf5NnzgtpsFrv/8GXp9qe06
BXyoFix+6erCB0FTudmCFROw67N59PIPfIiK3WPDyh2FpyAyk2WMwhur00Gs
3Am4P3KZ5281AVS6u46jEh8aHtg89p/+DH9nhSjbz/0M24JfH7obOg5dm6dr
gnX4UHI65u17Jh9+W9x6TK2FB2ZpZu/xNQ8qNjSrDY7yQcm6eOeCET4s1TtD
GQXxwKSs1ZfN5UGnecM75fpxyO2aUpzfNA7+JxdNZTDGwfONydryjDHIck0K
sCzkQXx5YL0QRoHjmDZeJuSCd4SwzeloL/xZQ9HUgBqA/XYFnrvW98NPyXeu
c6bGIKZfy/7kuzGYp7Lf0DirF3R8mDlR/F4oUV4KqXlcGI464uxiwAXKutJ1
0qNvhr/M3bxWc/UAZJnbfkp36QdZeKGj8gbODKUXD4ey+gZmmFxYmZTIigPq
j5pzIb/ZeyEXhBUaXcWHe0FzvVttTMIAlIRrdn/9rB+k//nOH5S8cMj5a8rb
Gf7bp2OG1Bfqv/XQfITJZA7N8Ev6L/npLaoytHJqhVUn3btf+rb+z/P9v+uf
mAt9zA==
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJyFkXs01ekax3/vTm41OHQhNDEKXVSKaqjnmXIpW8NIdNu5xBTNoJFKJkeU
XFKbhCFyKbsaJDEnVEhmXDKKMK6nop3Zdth7C9u+nX3WWcsftc7qWetdnz/e
dz2f7/M+Bt6BLr40iqKi5Oe/dGGu7tu5lWBlfuRvsxYRZEzocT3/JrjO1SxR
sY5gx4onofObCK65WR39+gZB03HTw0/CCPIY9btbdhGc8Mo/c45HcH2zuVJO
u5xD/edFUQR9Hd47ZOwlKDYNej9yiaATCI0zfQmenfIQp1I0LI553jz6mqCt
xETh3TcEX13cuZCxnOBWhYZchXqCY+sXWwvuEpxuU5e4HCU44rv7lXAzwZMJ
L+puLaVhfMazEyWzaZjJ8P9HYgLBkpqWP4YDCa5Ua31rtYCGL6s5g2+EBBds
f2aYNUlwdlzxMLuLoOe9nx82RhM0oBsxlOR93cNPs9j7aDhr+nlElDUNU9OT
I0XZBEsNs/4YCCG4r6HzVyNCwzLa+oOqPQQf+HxfK8gleKq/aMHojwQXvjbN
L1Ck4UG+zp7VbQTb1N6oZCrR8DmfI9Ltk+fdXLZRIqOQrRByaXc7hfbmriSL
RVDrtlWPp9z/iGPTpaxCQ/UiVkb5vwle3lAWu3VI/n+NLSX+Dwn+BdcyZuUT
rHgFpyziCD7k2qhVpRLEataqsXCCuTsZxvNrCfZ4qVZlXSVoHtPFNbtGsLrx
fcGzwwSXrxycnzdMMNk5TePoI4LxbFawjxXB0Ms2byfl+5b4dX2Z5k+w80iY
zNZCvodYoze6cm9tf96scPmciX6VG2YrEzySmpm6v4lCH8q6ymIZwftKV0xt
Rig8odlxJrGcYHSTZ2Eik2CI8gTl4EJQrfKubrsGQZWrJ+6oGhJ01F9mzeVR
WNdpprGXLs/3TrPyR32COtln186PJZidG/OVpj3BRQ1XLhcVUFjw2DHQMorC
XU7dR0/J/dHGrpaR3RRar2VYODlRqH42vMnRikKvNRWH1tlSuDOs/9bN2RQK
/Db10dMovKGSEgA/UFiS7FcasYXg8WxWw2pT+b4P5PboqRLUd3hqHpZDYb6y
cCT+NwqXLP+20zGMQmgybi48QeF2o8fOArnnzJyA1yGTMvjm0dimWqYMsr2a
/wqppHD8aXnZ0xQK190L8YjZL4OilW5BnVNS4CgWPrnIpzCyuWpZaT2FqZnb
NFhuFKrZ6x8rXk5hbazjSSM/CrvmAc17B4X3VeoFThIZtDEb3LeUySDzSb5O
4UYKRS/LNt9eQKG/JO1B7GYZqH5N31TSK4WAJXMX1wTKAEtUQrXeSsE8vpwt
8ZDCjnldzAcKUui0TaKyQqRgYl8XwV0iBUV6ZXCxvhTG7Y5f9+VKgJelG5jb
IAHziua88EcSuK7De7HRTgpDha6sOD0pVH29d2GLkRSq9eaxFSol0CoOHjxd
KoFdVufUfjomgQlVmc2tJDFYfbtUddxMDIWKoddH/MWg25d0MNpLDN2psw2g
TgzYkWISGy+GOEvBRc1eMaScn94V3imGmrRamfYVKRgmjUZsCJBC0h3z1nd+
YjDZnrH0GF0MjRFBS1rdRXC7+7iep4kImHP3LbvxYRqitEWsTr1pmOOguHjN
i2l4K1urbH5nGqbZCnHqN0XwfsyXiUEieHjN9qyV+zSkPdf5l732NPy56nZp
W4IQ3PI2ulqnCyGJrnOIu10EFQng0q0vgljNaztctgih27ixLtVeCC4aY++s
hVMgrVeJFFJCsLuGzTdYU/CLj/a8p8lT4MrvMTo/PAkCHe1VObQp8O082nfh
5gRo3NwfnZc+AReGqvNi9k5B5nHbjkTGFCyn/7BTb8UkdGeZXVQymYT4yerE
fWM8+OWSboj0HA+0QMn4iz/HYeSFQvWegnEYcu/tpucKgDmuttU5QQB7XE7r
JJR/AI/vBtnRhz/AJlHX5Bdr+NDKPNL26zAPJjjJv2dkCwAPed7fky4AsdEN
p0WjfOhbsbKT5c2HSK+An2oeCiAyLPPvjAIBXOmI9FZX5YOPj6is1YIPbgsY
Uq1dfCgdUEudvMCHmjHHgKDvBPAY50VULxMA6Y+2GNfmQ7rHvQ0emnxI+Oer
W6vdufA6wGBMoYcLEtbJ4Ez20AwPuukMd83lg8O23+PWsHmQ+v2Bs12rBWDM
ycjJ0RTAkzyvqhr/9xBq/aUtVnBhTjrv5/uzOJCdxUTvuxwg24rdJxjsGW7W
OuCXMMwGrr1obqM3+xPfAN3/pB3yIOqqi3YdxQOp5eiUHps7w1WLbrl5G3Lg
iEVfb7s1B2Sh1521bAZmKGl3SjGO7f+//N+7thlSH5UdvaWuaDcXXp6scxbR
uVA7PDXX7dQgnIrw6/WzHPzE93G/z7EpuEhWxR2AQwZPrXW/GvjE/3F9Lu/n
7j9X/wEt2a2B
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxlUXs01QkX/YkaTHqgp0zySEIoabzavz6iRkjciF6UZrnyaqWoGY+QZxqZ
PEfSCoMSIkQukiRKno1c1ciNbh63K+51H7+5s9b3fX/MnLXO2uustc9e++yz
wSvggPcCgiDOSfpvVOf+GJVnT6Epw/5zoiyFj7EpuVnjBOnVfG/6EYMgx+Rv
+x7eQJCxbfeejL2loFgTU+ygQZAsX9lq13EK8ltblUbWUqDVXl2V1CqG8pi6
2cUsCovatIlqBQqz8yoNaXIEeaXGPMi/goLlqtOZoeUEGbV9/bXUYIJ0dVAM
edlN4UUTLUI9n8ISdx/uiWsEWZhoVJ7lTZBs1nuXz40UQt2XPjpgSwGDQ/H6
RgTp2Lf5TIosQT68eLRgYwlBJpccVzG7SZDmNB32ilKCDHXRifgmgiCTGtob
K9II8jslkV9YmETXXEn1+nMK6T9X0p8TFFi7DrsmuBJk3ka+5X1VgnQ+2Bnl
LiVFdr813CX7iCAfHBk5Ny/xs6fMoLM8liBL2O2Hg5QlefgtrqqX+Bq537og
W19yhym0ApUIsui1o0bjWYLMdXj6fMdWgswULlA9lUShLD/mQ7AiBf3IuE/J
uwly0/Q2N/deCm7SZ2NNJPneMBbS0+QJsro9LX6cRpA3VWh6fVIEGVz4fnVG
mBimXfty1EtF2O6w8dN39yk8dum5+SCbgjbFHHypQUFT4c8MCwmP60x/ySij
kDAydHoVKKQc0slZrCbR1+KOS0v+F6HcaJxAl+Qlrx6SaEKQWoxNO1QuEOSO
1OaFmx0J0krw/Oy7AAqZh1CTJhYjyuvo5U1ZYljURjj3WYoRMtp3Xq9LjJWJ
49q1dmK8aOeuk56l4HxTI3IikcIWetCgf68Y0zl+oef2iZFZxZXt4ImRapex
Ov6EGOuCRXmzCRSY/WPHGrZRYBQ2vXx1hAK9/GsTbViM9Hjd8dRjYiRpJt79
yhNBKfLyH4tNKdzdnzJ2PEUMZxljC+1oEVbur/AsnRViAe2x5YUXYjQ17uz8
7CFGsl7qz42SPa+GZceLD4pgyltFnHQVY/edhU4hkvmCk9Nb7dsinJpILwh7
LsTtXxL1B0eECA6POzhrJUTYhalfi2Qk+r9bbTYKFOIxWbOG5yVCbe6cwOOr
EPOvTGreyYmw0zj7VWqIEEg/RdypFKH0uqxRF12EY73i+ZWZQkin0TzK5wWI
dzV8M9k8D0f6szX7eHzULBl9aGYsxH981zHlagVgxrr2b2sRwCdlxqxERQD/
hb3KicNC3IpPn1xXLMTwmfOGty8J0HmG7m5vJoCOvNRHni8fHntEV2+U8cA+
6X03f1aAYxy/Dpa5EHvyAzy6++bBL/FWp6sK0OrUznrox4OLpR5H0YSH5OWj
q5g/8LGMLi9Vks2HiZNtoYwsHwXeVTWOpjwMLfLIlmvmQ3fRRL3nex44+tpG
e3fzsVctfLmbAh8ne/WZidd4YGZ/PzHwgAfl4ZZgejUPBjart9TdmUNNi/La
KnUe+gIHlOxs56BeVCo9V8ID5Wo7VX6RB7Ub3B/Z3XOwiFNsDhuaQ4WVQpjv
1jlE+0SHn0mehU1DmdHVxhmYubt3pE1x4VEpp+ki4sH+irWDyggPMslJWof1
ZjBrFL1L5RwXugc10r/GcuEvXW/UBC5o1gfU0rq5aIlZxFFwmIFF5HHfiF1c
LD0abxtIchGU4+D+tOULfg0vKJZhfsESw5hR10YOkgsvOb65yAFLYJvCvMfB
CtpHG9UjX7BHZsH0+OQXDKmqxslSX0ByPZVomzjYUJTV36fFgYX2rZ4x5iRs
rwQ8fKwwDbuRD7FuTyYQx5qM/ub+BFpClAW/vGGjSmfFWtGzT7AMLjp/byUb
Pf7ETxkObFjR5Sv27pzCQLJ5l9mhKRiITPwqSDY6C5wuna77hLuXxtve7RjD
jElI6mj9R3h2JKlpto+iIjL5cHjwnzjlWhhr+n4SU2pZ292kJ1FeoKdrFvUB
U0/4jZeDR/GsQ6PqM2saoVRAoKcGByobL3czCkZRyll9dJA2iofUR52YumHI
V+UM7kochuLF67/lLRtDfPu7IC3bMZSt6PeKHp3A8IpB+6gPbPDZCtKsF0z0
MTPCMw69x+TK9Z7F9eUYDujpeEa24rrVepvq1N/gbRAoe8HtFqN4rch6ZO41
0lmzupd7/4A4NHe/knXP/zE26GTL+EABo8T72299nPsZWRYh3IGJHoR7H2En
tb2GlGqPM3/5Y0aXDKtS6achBvGPuuZpW9mW1cLw9v9UG2OdBwPDLT94pd9n
fD5hA6/hLoZNrubsEv9yRrG9/ZpA69/xz33qvz7+h8bFX5WqB9/Cxz5yuq7j
7b/4nalbzu+cqWEoLrJJ0DKvYTy1k8mv+1DB0F56nHkveeBf/L8ABP+Y9Q==

         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[0.85, 0.35, 0.85]], 
        PointBox[CompressedData["
1:eJxlk3lQ03caxoMXHgEBpQJSICCHQwR3mUXl8MEiilw1WooFYakFrIpBSIMI
ylHdxaq4Li7XcqgrckkrEcRZBZISClowVK5VNAVLQUBDINfv+/sF16X/dt+Z
Z94/npnPPPPM+3IOJe2LX8RiseIX9Nt2t2wdOnyHQFEqC146ScDy3X/9RB+D
6KCH+7h/Y5DJo3KVGoLYopaNba0Eu/uf2X0lpTBAXKqXGdB421Hm0pukw/ue
7j1hcRSOX9N6a7JoeD85Fexzk4aBcCzLYIBGmWG/dGkdDd5UbZ/CmUb8zQHD
KIZghJUdc3v5PMxqZh/2s97hx+2DJjGRNB6Z7xNPSmnY7s/thQONO7cYPG6m
8fW/q0X/XE2Dibqf2Xyfhs1LYVpAKY0LL577Ktpo/FeSd6CtiUGO6MshelAP
aNjCtWk0mjdc8R8vopEn4BvYH2fw9evNZrWeDNpMIqnSLhodAXtY9hIafN50
vlGOHvqxRsnTbfMQVe57WSwgMI8uJN6memx45JYwUkHhSaOQJ7IlWFfA8cpN
JTi55Ubadw4EHeEp5yLeMahuNZIVWeuxeq9biKqARuu06SYTKYPSDSOLuFV6
CGx4R3xleohz3aykwQv57a49s5ml0WVit7MgkEGKn4jXWq/H6K7SWMaVhoL9
MmJuMwNrw5Fkm/c6/EVW3RG2kUB4M3Cb5BhBPH+45lUKgcfM3gcJC7lorcFn
rykGuz5LcuoMZ/DM3WdC3s4gtMjYg7FgsOqCp2itux6zyyoWHbGah7nwT8GL
xfP41pabUX6WIPI7p/v/eEfgGswXcCQEf/XM++aLIAanDSlj43Id0gz75H0P
CH7I2N1ksXAfWVEJz4dP0/iF5VdpzOjAN/X4nL2EIIFzxF8aROEyelrEDQRh
kzviZhZ6qtQG5ayrpcH1OurzY68GM5HsXR6HdFjt4Dg8XUVwNSsptjCCwaEQ
mb3/NYKaoAa2z3IGiaGJ2RMJFEKTwtWvEymU3FpkcyyFQUWySabZdgabGl5F
/Hmawnlqv7dXI8HFrnuPwooInM08tl9gE9y9dCWctcDPqL3Eu9VD0BNqHNTu
S8HocEaUXz4FM/rOT85lC312yvfOjRKs54sGz2cQOFw0PRQcQ6BstJO5FenQ
stTzX+3OBLlP77v1R1Ioti4euNtOI0bDs02b1sHzcHbZEncap0JcD3K/V6NR
9Ek4K1mLcaGja2OkFm8+uiz5okoLbUzo2U2pDPTT7TvcchiUPDneoIsgcCxV
fJyTp8eJY0dHwKXgJ/FqatZQ2Pq9oNJxlxb2zX43nNZr8fON/JPR27RIlGcW
PmdrwbXdWOMmVeFSsGDlm4fUwj+NG0TrNJinA1MySjQYNXK5Yl6rRf75O3Vz
Sg12MFm/pnpp4LQlzqFkrQ7pU6e7zh/V4eJ69ocHVFpMSIstOAo1pupTy9+e
0mBl+/tlRU91qA+ojt3JJ5iPn3BRd+tQ6FpaucyaoNhy+dPwYjW80stqhnga
hFUt8Wk5oQWnt/eGXqaF1fWD1mNJahgNnBy27FLhcvVM95psJR5s7xne+EaF
B16to80rZhCrHHgbcvotznA0XLVSC7sX9h3FNjo8v/zxKvmeOcRtmDj77ftZ
+F7tkZmEyNFiYdUisHqN+O5eg3VXJ7FkylcvIHPg/bA11qhXCV2glwffX4XS
ilu/uPpOQ920MlAcPQnVxTWV1VAj+cCZ2mSNBsq01McVMiU+5X4Q4XpmFuod
5Z/mV6nADml51OGvxvigafnh3hnUlX9YMJ41B9N5QbplnhKL7xa4nBMqkBjF
hG6V1ePhNvaRgPXRSPfeejemcQx2u/9Q2Oj9Eude/Z2zqq9M7GEQ2q0oakfJ
iRVm5g3FqMllf/lV0G3UbSl4clbxKwYfRx3/qGQMS4X1dWtFnZC5xBx14sjx
QWC0LjauDVyBddmKzkL0z0lNT9XJ0fnC8VW+pRys383KWYfcsSkJONJ7/Iqh
yv/zPdfsaVMkqMTem8SZ0YEa8cS9nf/5aeiPEonzrPs31zdLLnwiM9ybMi8+
GPD55M8WiyWx3pvtBtJvY2Y0e7W2pUn8e97/APD8LEM=
         "]]}}, {{
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.85, 0.35, 
          0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         AbsoluteThickness[1.6], 
         RGBColor[
         0.85, 0.35, 
          0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"Log[10,Information Capacity[X3,X4]]\"", TraditionalForm], 
        None}, {
        FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm], 
        None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
      "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                   None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7724373056492567`*^9},ExpressionUUID->"6de4ffdb-8432-4244-83ee-\
c41a7215b1a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Re", "[", "MI3M1X5", "]"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<M1\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ","}], "*)"}], 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
           "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
        RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}], ",", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Re", "[", "MI3M2X5", "]"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<M2\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ","}], "*)"}], 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
           "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
        RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Re", "[", "MI3M22X5", "]"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<M22\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ","}], "*)"}], 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
           "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
        RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}], ",", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Re", "[", "MI3M3X5", "]"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<M3\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
          "]"}]}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Frame", "\[Rule]", "True"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Join", "[", 
          RowBox[{"CLRS", ",", 
           RowBox[{"{", 
            RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
             RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ","}], "*)"}], 
        RowBox[{"FrameStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
           "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
        RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Re", "[", "MI3M4X5", "]"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<M4\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}],
          "]"}]}], ",", 
       RowBox[{"Axes", "\[Rule]", "False"}], ",", 
       RowBox[{"Frame", "\[Rule]", "True"}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"Join", "[", 
         RowBox[{"CLRS", ",", 
          RowBox[{"{", 
           RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
            RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ","}], "*)"}], 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Directive", "[", 
           RowBox[{"Bold", ",", "15"}], "]"}], ",", 
          RowBox[{"Directive", "[", 
           RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
          "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
       RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}], "}"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7724374228211374`*^9, 3.772437510471614*^9}, {
  3.772437541292649*^9, 3.7724376219754577`*^9}, {3.772437681006441*^9, 
  3.7724377059121213`*^9}},ExpressionUUID->"13369f6a-4206-48ee-a863-\
360e6332dc45"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     GraphicsBox[{{}, {
        {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
         1.6], PointBox[CompressedData["
1:eJylkn801Okex59JfjW1hWnbbLoRJYuUH3Xdo89DhK1E1rTyI6op5FebsKLr
VyFlDOVXxCrj1yiEuFZC13b7SVSmFl0VNlnGjMHMfOe73z1nb3uOe/bsPed+
znnO64/383ne7+fzPNoHQ/ayFiCEzlHrV7qc9jH9jEsCffqieF0JCcLUn+Yy
0xG+OzXnfiQJ4aMejLxFBxFWMJx+0uOJ8MLbauqJMyTw5sxC9bpIWDnh3j3T
gPBOYl+EeRXCtLyWa9+VkvDXmw3On18k4YavUyrdB2GbzsPce0yEk5XOivWM
EabrtVU4bUQ43lX1B88ChI2aVjMmixHeo9dW6U35aGoGBt1zQ7iHsaI5eC3C
+U6uZZ3KCGeYeHklShCuuHOgHE0gXH1dnsHyRnhtX8SZ/Y4Id5mZ12sfQZjD
5lzuYyF80+HLLLkyDY/E2Xg+lyO8eNFDsasfwim79J+qU/u8eHijkTUNb6p0
JYq303BmRHq03WcIP7BNOJpH+dmePTQy+RXCsox0aac9wnbO/EBPROXx0eBO
ikg4nHjSw+AVwivaZKdsehDOdvHw/MclhO0dssNHMxEW0ZTMOf4Ih7KL455R
eQ6/zJ1edBVhwTbNbPvLCNenH9tQHoewWexa1aoY6n4G39EL3BH+OpOvcn4X
wnp9OzaPRiNcbB91y4XSR5k1x1lshCfZS79yj0LYoyVIJ2cfwtzIpigpNS8n
uv+k+ibqPK34cmsjhO931yycsUU4zLu99p0JwlYnPPtu9yNsmVT2YGII4SXN
Ts7VaggP6U3dECpQcznSq6VWg3BO4fry+jKEo3XeNjZSOd+Py/pMqXdq3M+a
cNhOQrRNesiMOgnaxbou6dR9l46+TnTJRnhlUVld506EH+5SYZ22Q7hpwdUm
RQuEjdUCZpZqIexwPatwzImEwdvit/YWJAwXrmoOfkqCyf6vBasvkOBm09rv
EU3CncEcIS+NhMCzF8JSNiBsMsAeSlyN8NTC3X66ViQouNFSvXeQcF+6ONBd
E+GRhH1l1osR1gn/3m4sj9JtDsmbQ0jojt/SvYTKE0UwJb/Ogcno5vP6SQgY
2f1S5zkJdd7GvKNUn+x6eUIR9d79SSXMvymREJZcHZKzhgSVBmO39btJIFBW
x8FtJCzn1BqUUn3P6HULKmtI0LUrZ7TGEWBqmVGhn0bANZ37X9QdQph3+Jzo
APW/Ms5tSomrJOGdpqCiI5eEPYt/mquKJ8GcY9CrmE5Clz66xR2TQ+wlgS63
SQ5Wfxmt2/NIDkNJK94E5sshSHFW7YUzCcUxM4/Zm0moiPx2dsRaDt6ajZG7
LOWgyjEKreyXgXs9i+vfKoOhF7kudnUExEpfdJvkExA3F6Wx9rkMplv9Inrb
ZGBI+GiJiuSgqHHpVusVOVz24lokqMnBcrjHIEpGgNT5dKxOnRS6L/xAKzgl
ha7b3spaHAKWZLf/69jfCXiWc1y5pJYA4887rc1TCNAL/PBAnS8F7DrnGL1c
Bvu+cVkn2UOAwGvgTVskAUBPKeHXyiDWlTNdXyyDF5Pt2+Ia5BC5xudiA+XP
zFbIP6Qpg7Kb8eFEtxSuo+QJDW0Z+HRaMcWmMmAEGRv+vFcCnmdOKt+xlQDR
o3eDXyaB42w/2v1mCdDWF1Ry6iXwukVFwbJcAr6KWY4hWVIYV9adVYuQwo+D
LeqqTAm8dBxsdYmSgFH3RnPBlASG2B2MdrEE2rsyeXO9EuhSDD7u81gClu8f
5inulUKUnUWaabgUPpkNWpr5hQSe6zTVXrKXgIFZ64NqzVmwW13Ld7eYhWBt
82VhVbNwM83pjEftLIgsVldV3J0D1kBNEmtiDo5By6rcd2Koq6xIFq2fgcIT
lar3BoVgqLFua9gnIuAaH+TlbhDD3WvTCdvWiIGZOv4UjMSAamoylVhi4GU5
4uwXIrj7eLcDa0IEhcsVO24xpuFojLtt7ZZpKAnz+jFgkRDcFBuLUtqm4G7q
diUNXxHoPuCrWoEIugLhlV6MEGqepAnWnRDCGmZs0fl7Ikh/EluyqFwEY6cY
4wHLpuBycSCpv3kKjnEd2z5smAJ1C6Y8dP8UBF6NYfjuEMGWer+ZUpkQvvRn
S1XSBFD97/D+4U4ByC0mZlcNf/jIb0zyTwlCROBV+Io1kCeCZW1St86Tv3PE
+tqNvqhJ2NJyMfjRPyeBeLYna33Kzx8pyTjQfCZxDJap1r/n246BYXzlrt0W
45Acfp85qTUORGnEiYLh0Y+M2Pp6Z1aIECS+3Z3lvkII6vBv21r1+3mpycwl
1tpjEMxYXkq7NgbbHkbS6fQ/puANm/aofQQceNVWV5xHgfy20FnDtucPGZAV
8WmH4weIjdVuPV/0AThynr7N6AjwTwtpfaEjv+UY+Ej4zec/nK+jefVn+vC6
lQlaS97Cc9Wtj8o0hv9Ln1/z8/+ZblZ1Zay3pxD+1/7/139+/QLexd5z
          "]]}, {
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.6]}, {}}, {
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.6]}, {}}}, {{}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm], 
         None}, {
         FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm], 
         None}},
      FrameStyle->{
        Directive[Bold, 15], 
        Directive[Bold, 15]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
        StyleBox["\"M1\"", "Arial", Bold, 20, StripOnInput -> False], 
        TraditionalForm],
      PlotRange->{{-1, 3}, {-1, 3}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{}, {
        {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
         1.6], PointBox[CompressedData["
1:eJy1U2dQlFkW/d4HI2gbhkVZBdHBRldRZsa1jYR7GYLACo3AYCKPgJJUwqIS
RBHBCCYUBUSEBQEDQZcCR2QEmRZFgjCAwJCkkSh0N6Gb7p5vq9R/W1P7Y2/V
q1Ov6r57zrn3Pi33A7YeNEVR0cz5D6b0/2t2SQnBVPWfE998S/B1mcLkUS8a
jfPLV6MSjVWBSuyzxjSeGvF6lZBJkB2rZ0ENEozdv9VZKY3gqKtoA1uTxuTN
cJZKJmir56ulEEXwCf3Ghz9F4TcWTvsEXUz+HC8fdX+COrGzzxefobEmM//h
0QmCu7MNt38zSjB5PGLJjATmvTzOsbWdYPNJM986F4LBLVw70Vwa+W8jDuj9
RPDZgq9pt1Qaub2sF2J1Gisywi3nMXqPd44eOtFK0H+so2IDU7dYofX0u4sE
F+XOXGp1i8b911nWUSwadxekRPQY0Hhrs3Lso1qCUNvnuPISjSP77r4NWEcj
r3LuuSrGD8eunGXzlOAxSfdjT1Ma2UOP61t/JeibVcd24dBoe3shb9szghYL
7CNvMnyz6GNblh8kuLcvrm+BG43xd5SOP5AQNCjS5b8qIkhtDfMytiIoWi7I
fjafxuKBCp7KVYKPL2eZlWrT6KoZ39BfTjCkqWKuDuOrzINtHnOBYEzv9WjB
DBqPOW547HOZYECgYu5Z5m7d9aGqicl3rEkNfUhozEhYbKcQS7A+VGOe1hjj
K7iSy91JUCKwGbYyojF4cH+OwVuCmcflnpbTBN8Z7X4alEcwtyNn5ZnlND44
Lu54z8wvokTVZddGGlnckrZCZt4/no4OVB1g+qqbu8vPkWCJgp1jeQbBdK9u
k9lLCT7fPF/tvA2Nm1OeX+UyezGvMeKk9m8EqxyaA0QrCDpbiDrZjC7bao3Y
MCmFPktv7m8rJVhrprPOej3B8JMWqh6MzyUGv6ZrqRF0m/7+hvweQd03kd1a
RgQzZkQFhEQSXPfWZmLtDKZu8rnh9hCGvyMsOU9OoTPPIPyxKcG/Z9Fm7XwK
47dpcOLKKPzhjgGvwZBCW+2qvcN7mDnNqnM80knhdGzIS8sKCoekR5+4WlJ4
Y6otco8JQaOVp2xwkEL+lSJdNrNnaTYqDpIeCu20h4Or5xDUkK/yrrGi8ACz
B6H6BHPEwYoDfRTmUJETwpsUVm6J81JTpTDdfBvPn9GVFv3EKz6XwqLZWbOS
blM4WNxtqrmZwky/fZvcvClMvU0djqqSA+tghItVvxyO9MXcvmEhhzHXgIzk
Jcx/Ofi7e8wVCsWcsdiYAgr1t9QsS1vL9C/Xj3tNVw53O9zPeK+RgeEGz8LX
DXJwd7TQYvnIQcP2skX7BTnsK0x3KhyRgYKxiaSyVA6JduqBOmoMz6ndr3IN
5SD6LeKfjfky2LPwhHmykxyGSkaT5sbKIMesPXLvRSmEru6emZE6DTY8UfzA
ExkId/kVXSuUwrwtvyhbZ8vAbrLc6d9ZUhD0P6BaOqVwo8lTdVXMNOSXamku
r5KCkmuqwXfKUngkvnZP00MKPt35tet/nAYd0T/u7miVQebprqHBizLgaQUV
0pZS8NT4XpkzOg0rEs20eRclkOK1zvXhsBgqno7Hz0yXALX6SljHgBhGC1rN
DSkxcKLKFq/xnAK3eKUwBxUJ1PCed3BNxXBpYpeaQ/M0bLxk75dQKwENdQVB
t7cYVq5Y+FPihSnYed8xb9k7MWQvyqk4ESYGumyCXzYyCZXVOXaR9yehoPRS
kpOMwcSwUKifBCmtljo2OQldpuE+zd9OAn6sP9cwMA62fy0oLnYdhxke7ZJN
DhNw8FacXfLqCeiLvLw3z3YCPth2GT0aGQeuE6sxSU8IPXX6vnoCAbQk1AWs
KRRC/uSyph32QugdH9w29dU4uAkMInS6hHA+JW1HYMtHeA1ifXn8R1BuXTNc
1SCCiqHsEe8fRNCFihmKHCGUvjB96S0RwIk+TqH1WgHs9G8JLgscA45GhJnb
BiGkX41s72QJYSrtmXLIkRHQv6DfiS0jUObiI6//IAQV4zsu84eEIJxjMpF0
fQQ4OTWeqT0jMO1wfXtZwxhca52Y9ZfKMchzyGFvrxgD53ecTffiR6HhJo8z
pvERTt7zLZmCj6BR3Mi1qn4P7kenam1D38OhoEPsuPl9cMAixdlNjw+iSvay
kv5RiOQvsT7/+ygoOc39xXBFL2h5sBLChe/hq9MqB9Rf9MBg+GE7+zU94Pyz
OSs9qBco44c7xp16YehEwXftan1wyWDrcJw9H+RHbtmomnR/QVlmSGByb98X
9Hipdzd6fRJQn6IgLVTu390FU/cXt94JeQ8J5iZBG1d9gPQjmm1fV/NB9rnO
Jzyu2Bu3aagdpA3chL+dbv/EU/8FqT+Jz+8+I7w6zGKxBr7gTM+kN82LUv9r
nT/ja2yoiVpXVQfrzzu2NXnW/M/6/t/xBy1Xjc0=
          "]]}, {
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.6]}, {}}, {
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.6]}, {}}}, {{}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm], 
         None}, {
         FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm], 
         None}},
      FrameStyle->{
        Directive[Bold, 15], 
        Directive[Bold, 15]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
        StyleBox["\"M2\"", "Arial", Bold, 20, StripOnInput -> False], 
        TraditionalForm],
      PlotRange->{{-1, 3}, {-1, 3}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}]},
    {
     GraphicsBox[{{}, {
        {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
         1.6], PointBox[CompressedData["
1:eJyFkm001fkWx/+/E3m4DUbWRJii4lQSjadi2rtHQpE8jhB1RKYiKq51EZMZ
phq5nmIoyRxNnvJQYkhhEjUIYxIinEHH0zk4nHOcc89ddy0vat3VXmuvz4u9
1/7u9d1by+esA4NGUVSMJP9Lf9Wq2QAjglW/RD9YtprgKu3gCdlegl856l9f
3kBwxT162Ww9QYPc2tiBOwTXVqw1TwoiOO3R6NRyhOB9eq+h2hxBo5fbZLI7
CQ5dKt3jmUGQYT1uneFGUHCxtsj2MkE7WNDNZBDcFOB88tDnNCz+ofXl5ADB
ZZdzLct3E+y/cnCVxyaCBXlqr5UbCU4ZfWnBLSJ4ldHRxg8lOMFw6l/4mqB2
3rsNRltp+GPGiwsl0jQ0NnXMO/4TwZInLc/enyVYzyvWVZLM76gdG3q3QLAx
dECgwCEoHV/8nvWaoMm+qOWMaIJaNus9ZAIIXjjFXG7gTMNl/NaoGAsa5quq
1vmmESzTzno2eJ7gvp4K2YdjBMtpRp7ybwj66OsaamYTDO0r/GLyNMFEPZaJ
IpegJ0fNdWs7wScXOn7j8Ai2csYE6hIfC9kxajYCCllS5685dVIY8EB3gB5F
cOVd8zfHJPrThx/JhhEaKhYyMx69lfhtlWP2ZFDiX1NLyanfCHq4/Jz56ibB
yn4INY4nuMbx3jVeHEGsZW6ZiiCoJ78i7lEFwTfe8o+zkgnSXqTS+iIJ1jaN
5784KfFXdt2atr8IJtmnKQVUE8z09rWr3EAw7Ke9wzzJvXfpPLje70Swyy9c
vM+YoHVfKa2zmGBdX86yiNuSe4Zpee8cpdAvNTPVvZnCB3xvt3xZgqUy/964
d4LC9CC3h7xcgrHNxwquJxC0Ym5vfL6foEJVkXqnEkFxnV+Jq5hCW00dC/Y0
hTsZql8t2yHZ72/lqtOakr96V28wIvmLW7d/WKdsSdDef2PqTB6F+TW2Z01i
KKTXuHfyhBTG6jqaRHdL/Bs47at7iELFSxHNtuaS+m0nud5dFB4M78vLlaZQ
2BpofiuRwjtyKWfgWwpfNOXITFgTDLnFfL51I8EDJQoVrD8o1LSu3xaeTaEz
N4k2K9FZu+lQl204hU50Y6V/RFJotb7GnmtHofbFx353+sWwq3pqe12CGLx9
chV5GRTO1D8qr0+hcHh0+dFRCzEU6jkHds2LoP0zDbv9ryiMfvlYp6yRwpqj
E5eKv6FQwVIzqHgThXEuNnuY+yl8rQI0nwMUXrCqPR08Iob2hOcuO8vFoNK0
u07ekkJBR/nXd7+g8GjQdpkELTHI77DZXtIjAvkWdnO5qRiwRC5s5bAIdkmX
/mr9jQgOqLxOqJASwZA7fSQnUQR0y4Yo9loR0KSqCwWLizCzP+Qmg70IVwL+
uepkySJsq3yZE1G9CO8iE8M2molgpMCRGa8hmVPkfW96chFqNVRYUlWLcMpX
+Vl31iIcMf9O4VyQhE33c/61WwjmhzbIz+gLIfKz8Zv9bkJQ7030jPUWgsrq
5NVe1ULAP1PocT9K+v4OulH0VAgpl/lHIrqE8LTnRmsFQwTaiZNRpmck+2uw
9zywFwLdKmNDkI0Q2guVhX+pCOBud4jGMboAYsO3ujCs+RCjKmB2afDhWWdg
0ok8PgyLDWW3/cqHxPWUZn6RAManGAkYKAC5mXg93Wg+pLWqPbRU5cOWgr4t
rYkL4Jxj5miRvgBv26QdnJUEUHkVHLo1BfC0uqnte/0F6NZtaki1XAA+n37Q
a2oeRI1y0QvUAphtOGMJ7vNw44SqSn3SPFyaP1caz+QBV011SzZtHpwHTNPX
MOZAKdc9Nid9DlKvpn1p7TMPmSH7/rzuMQ88Xs0VB+EcdGfpX5Gh8+Ao91rc
YUsO3Limfl703TQUDGnXf14xAxNtUrWu+TPQrpOs/jyLCwkzCrvtr3IhLG3C
sMx+FrwOD7FiT84CL2ZN17gDB14l+LXfez8NEZvTeJfTuIDHj5W6pnOhY8RX
uKOAA72b9bqYPhxQ94psElRyITo8czQjnwvfBofnigXTcOKEoPyVMQcmA5Qb
pf05UDaokMr7ngO2VtKThr5cqEGVqFodLoj0Auv7EjiQ7nXf1EuZA6t1tnj+
vJMNA2e0pqTesGGReTE4kzWyxPfB2nZmRhyw3vN7vAFrGvR4RhHmm7mgO5aR
na3MBVep9OHR0nEIs1izDyvZIKjRclAUjsKtrAT0KRoDsqfYZc6DtcTJ+8m9
/NssYFsKVjT5sD7SK++W+j2kcwpikh1UG6hpEJlMzmuw2Eu0V+miC1pGwc+4
t6fTYgzEYTftV+4dXOJip12Kblzf/+X/+tqXSH0Q0hvtZ26lsKHjYoO9wIYN
B9yajzvmDEFolH+Pv8nQR3ofzvsUXQoozjmDt3Bcq95Cfd3gR/ofxqf2/VT9
U/Ef0+Gs/w==
          "]]}, {
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.6]}, {}}, {
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.6]}, {}}}, {{}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm], 
         None}, {
         FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm], 
         None}},
      FrameStyle->{
        Directive[Bold, 15], 
        Directive[Bold, 15]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
        StyleBox["\"M22\"", "Arial", Bold, 20, StripOnInput -> False], 
        TraditionalForm],
      PlotRange->{{-1, 3}, {-1, 3}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{}, {
        {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
         1.6], PointBox[CompressedData["
1:eJxlUnlUk3cW/T5UQIRiQawIiCIURRllQCqLvJ+ExQIBFSOLiiwTp4SdaRAs
slhQ1iAwCmIRxCmyKLIokoJERJBFK7KIZbNRRPYkhCUhyzeZc2bmj/ad8849
75z77rlv2eEfdpwqh2FYlCz/g8a6Zvf72jDUkk+eTVck4A6+Ot1/C0f+zx5w
n7AwNDaF0N9zcHSl40Hb5HsC6LU9txZMcDQRpPjYY4qAz7tqI7JHMURhZn2V
0S6F0oV9C7aqcki+wxB7rEJAkQc9NtIeR5kNVhGhtQS00jHn8gEc/XhANyeX
jqFlpkHc7kc4+rWFkqD3MwG3id/lNwXi6G66SU0BFUN0CwbVyQ9HMd6qT447
ErBTt0hEzsaR24BRZLYiht7xyix7t8ohRqWvlmUxhgwFnaHmqzL+id0JCgkY
2nK66ycdFo62qUtC4uJker8Wbc6exVHexYe0boyAfo3CE71tOLr9tfBQnQ6G
NGrzmda9OOp9v/+w4hMMlfq7zL8KlkNHqve9qrmCoY96McqJ5bJ9hCg/anpK
QNbrpLmONzjysACDcHUMOS+/29isJIeKXF90f/NXDG2LIMvXyeav/jl5nK5G
QOV87Wd2HI52cU09vfsJENjvu3igGEe3zMS060oYYvXaa9IacVSsRdk7gGPI
OINkmyXBkEWPS6FelQTCVb5P4B7GUeuJvuL6mwQgs6CXdmUY0lf5kG8dJ4VF
Rf/xTek4Svs4EvwVEMA61abbe0amb8CfWiO7Xzvp8rrzVThiKOlFp5tjSO14
Wl1rLI6+yX22zsgNQ124aVqnCEM3vKDhulQKFK3CvBuvMWTNTHAfOCSFd51n
CjrO42hz+pQh01kKXfszGyrqMeRevDNxLl2mf8mX36SNI25hSEyUixR8XsTO
71XAUa5z/pbUACk0m0XtsduEo9G3k2ebTQmAlTu7rI1wRKtZaqGMSaFpj3vQ
jmAMZein318SSKD0ad7+i/YYun80e9I3WworkbmHbC9jaPPRWr+qZTHsd3o6
Wyjz0/LU5tXsKSnoKt+74hyEIf/mjb4VJyUg5M8uTvdhyP7eumPRsrqhorDw
i3MEnJvLK43rFoMRKXD9edkf0+NTTi6TxBDG0EmbjZbpl5GMTMLFMBym3rRw
ngBm0Yro1JIYKA0lIwSdABuzm29yo8XgWjtQ73ABQ1XXFE16aBJgCJRNDoqk
sOY65VTNqgjccsjoyVsC3Gidmi4CISxmbJ/7loIh2yDt0fVMEVyLCnevH5VA
YPaiZaWWCD7Mbo23k8NQSWrevHaFGJ51jVl/t1kCryJp3mRLEUTCdtfWZimc
OiLJulUtgPLXV7y4xyRwlhfycsJKDKqlO5y3e0hBWEnVo+mIYGijPrs6RAIn
Du3lqZkL4OG/QgyDn4thI00Jr7wphJ8Myq9hJBGUUh81uFkIQJ/tcrRDKIY9
8nNNfmwBSK3Cd1N4q/Dt9vgvPVWEoFX1oDxadRVGbx6cG6wXwJbA9quMpVXY
57DlL433VsB417OobuVVGAgfVHd2XAHOVYXjG0pWgfBw5NT8IABdZ23jx/1C
sE5RexY3sgJKw+1lS2IBJAUmxUcylqG/5cZDEncJLL29X17n8GF48VLTF5Mi
IGfauWp9FECEjb9vRccKLJskHdaK4kNoFadunFiC0DVNJi3ABxsnE+Hn8SV4
nizPU3FdBE5ARIp89TKo+qQ6hiM+3PPlLSZmLsE/40sr1o4uwI5f1rif1eQD
4+4lt+EfeJDrtWH8ghkfNCifHXTOLECXjZ9AdZ4PIzo6KYrEApDazfK+9pH1
lRe8HTDggeb+B04key44Zob90qrCheaTHew7OAdSJuaTFOrmgGyh2r7eaAYe
7dbYKumcBqe+wBKq/gL0hWKx+a4zENg+OkOj8GCQYdVj6cUBtdKZOtPXs/Cq
9Nil4MZpyC3epe+hxIVF8+jcT02foX66s8BdeR5qExmn4+kfIKNXfFKcxQHO
9oIDnmvmQdunp5YR/Ak4bcKnl+mfIGe4e/xFFxdiiLBwv508cDL6G/Oc9wRU
8bb4DFE+AZ/taR6lPAlKjwqHDqePgeigWpmOcA5Su36PMHCcBB3/an3u91wY
0xgi/zg+A88bzWxJxWwYGM2Pz/digx8notV1ph/GwvpedqJ28Ii6+CZo6CqL
ui9c8YJnCYuVpp4xpTcEeRPLey73/wbSmKKj6nZ9/0fjE0VrM8JSWZXUDRsC
3d+yHAO+G7u3OAjx1DMzGR3vICFLwSzatIXVs3bioXrsCAv7Q+R8+Y+AUJV+
FjV0mplsdxvimbc0brDvwmyAA/iP9bCSfys54lN2h1VBJmuG25XBH/uJ//r4
H27zSJ5OMvwAgeREbuPL93/i305PPN19gcFSk3dIM7BqYLG7SV01Nq0sQ1Xf
0QeMwT/x/w384oC5
          "]]}, {
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.6]}, {}}, {
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.6]}, {}}}, {{}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm], 
         None}, {
         FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm], 
         None}},
      FrameStyle->{
        Directive[Bold, 15], 
        Directive[Bold, 15]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->{429., Automatic},
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
        StyleBox["\"M3\"", "Arial", Bold, 20, StripOnInput -> False], 
        TraditionalForm],
      PlotRange->{{-1, 3}, {-1, 3}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}]},
    {
     GraphicsBox[{{}, {
        {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
         1.6], PointBox[CompressedData["
1:eJxdU2tQUwcaDUKqdcMiVKoVUB7yLAoUi0LUowKKQdyGtmKbwqIQrY6LSooF
QQQf5SFKwxuJIgXkUavGYNwxYFJAlFXoUsBVEAtVHmICed2bexNdN/2zP/rN
nDl/vpnvzDnnc9l9MJo/h8Fg8M34g9+X/3h01N4AVVVvJHOKgmdIV/zdaCNi
ObJo30IjNrv6bDzWRiG+vNX7jpnDnxx1+rnAgAHKq+EdCxrSRYXCgRgSbx8+
2Lo90QBbZ2WDSEaB3ZMWubaWRo4xg89woiGa29/BbKZRNH3+VQmfBr92YC7P
SKFZt9pna58Rdo1qWT/jDW6vWHtv2w0K9+2j5VMdNJjb0zN+WkbjWr0R3VIa
7fYO/c0XSBh5tzKlt2gkBHcWjmkp5A8/Wae6Q2MHo2T5HDaNbPHXj+hBEwKy
9rq7rzTrXP596Hg5DcX8uBqLRhonJv3tmoKMEB2QnGQmUugM38pwVdA4xY7a
H2VvhOm5RNEX/BphcXckTjwK9rFlFNvWBFJUkfreJyR6JClc8TIKviUh1+v9
aXy7uib1qhuFQZuiTs9cGg1t1r3ljiaEZb7cpo6m0TZtu2JBhxG9T5l1du00
BEu5+9b1mvB7o09wn9Cs37n68VI1DdfOwujtPjSSN4i5bVdMyMuwYye+S0HF
ehqj8Tci88qeS5U2JE73NnRu96bQNlW8smCYAj9pqHEsmcK/vji1ycPZAJqw
+GLSYAQ38FD8Ah2Fx35rJ0bajbi25PxmcT+Fv+QHiRf6meD5XULpYI8J9ikf
R1rKX2My/fKzBSdIfHnV41bJGwqv9x0ZOtFkwHdBZ/MSOOY+pEnFj6UEUuf+
OvLrbQo/c1aGqV4YcJy358lQhjkvYR+zI45Ekm3gLpYVhdz7JbauDBLn8LBV
fp1C8Zwf3CtzSdQRnOxFTTT8lKfHqir1mPmStTlwNwnukk3aVVEkio8fjC+L
McJByF2ljjWgkXOdtXaeEd8U/vv8xZ0Eog5+rps8YECN7bzfTsyjcPHwgky7
9UZkO1oLLylJ5Bo+ZYdIKHya87aiebkBnnaB6/NZFAayh5c5ECTSmwq49Q8p
iKqLHMcSCFjvTedtKDL/wc5aN8YtAvyukU80oxQ4F0O3FKeRcDtjuzsyzuzH
9+ppQbYercygH9o9KfSmeouu1xCocKwYuGHO1TJOy3mxmEDQ3iyRlR8Nm0n2
nptZOkjEn33OOEwgdo0tIzBJh1ebzikSLhOY8RK07TIYYJpu37gy24gJaXLu
VRkB9yrV37LPmtCtZeWuKdBhgyKkRao3ILv7v51aWgtX6YYaDwcC/skO1u0p
ehwYySx7wiLgnW8ppTdrUBApmP9KZoDG5/RfYwq0eE1HJKebfb65xdSROqFD
Ue61Zs2sHv3HdmypCtbAY3WiW+VCEtV50UyrMD3OOLCcdmoJtO1n/f2rSA1e
XjlyQZmmh9eDuCKvPh2uhDfEhyVR6Dpb/886ph5lH1bVveNIIdQvi1MNNUKO
ihofcfXwE258fqhHA5dffqkx9RI4N1DlIhhRw3rg26EP7mlxb7ZyeCh5ErfX
PxzyfqWF5L7zuat3lYifHVBuy1BiRtbve6lYB+dh186KpSQmGniqUlclEpdP
nPzprRpexKrmzLhxtC5e0ipYMokx6VuLid+mYPVynUlAabBVso5fS0yDjAgJ
TArVYnbulH/t3knoWuZHyGOnsKg8jL/4YyUO7zzWdFivR/nveQ6+AbPY4ft+
zIfH1Nh3uW3OsvEZsLa13u8M1SE1J7807YwKzRecSsePaxBflvxRfN5LWN4o
9TqVosLq7ge8HDcZZMGsfeEOsWjpDxAcyRmF85aAMgn7KTw6DnDvVIjlgRZR
D1Tl7eDLjji2nL0pb8xhff0N50cEf9QzLqp/gcFu3j82VT5Hhnb2kGTNDfR6
xe33cBlB8Qx18o2oFb4CR9G7XWWwrO9/Njo0iK5h97GiD0bA+NP8JzowNowr
g0vHzaSLj+og9PBcaiW0//9elKNVSkTAtJy9Qp4ZG6GXz6vd71TNuw2Fp9ov
75K/4vi0heJCkFb+VfiuqWeLLRV3Fwpt+srF8pnRLBuitUX+53v/AyS+MEc=

          "]]}, {
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.6]}, {}}, {
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.6]}, {}}}, {{}, {}}},
      AspectRatio->1,
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm], 
         None}, {
         FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm], 
         None}},
      FrameStyle->{
        Directive[Bold, 15], 
        Directive[Bold, 15]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->{426., Automatic},
      Method->{
       "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
        StyleBox["\"M4\"", "Arial", Bold, 20, StripOnInput -> False], 
        TraditionalForm],
      PlotRange->{{-1, 3}, {-1, 3}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}], "\<\"\"\>"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  TableForm[{{
     Graphics[{{}, {{{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          Point[CompressedData["
1:eJylkn801Okex59JfjW1hWnbbLoRJYuUH3Xdo89DhK1E1rTyI6op5FebsKLr
VyFlDOVXxCrj1yiEuFZC13b7SVSmFl0VNlnGjMHMfOe73z1nb3uOe/bsPed+
znnO64/383ne7+fzPNoHQ/ayFiCEzlHrV7qc9jH9jEsCffqieF0JCcLUn+Yy
0xG+OzXnfiQJ4aMejLxFBxFWMJx+0uOJ8MLbauqJMyTw5sxC9bpIWDnh3j3T
gPBOYl+EeRXCtLyWa9+VkvDXmw3On18k4YavUyrdB2GbzsPce0yEk5XOivWM
EabrtVU4bUQ43lX1B88ChI2aVjMmixHeo9dW6U35aGoGBt1zQ7iHsaI5eC3C
+U6uZZ3KCGeYeHklShCuuHOgHE0gXH1dnsHyRnhtX8SZ/Y4Id5mZ12sfQZjD
5lzuYyF80+HLLLkyDY/E2Xg+lyO8eNFDsasfwim79J+qU/u8eHijkTUNb6p0
JYq303BmRHq03WcIP7BNOJpH+dmePTQy+RXCsox0aac9wnbO/EBPROXx0eBO
ikg4nHjSw+AVwivaZKdsehDOdvHw/MclhO0dssNHMxEW0ZTMOf4Ih7KL455R
eQ6/zJ1edBVhwTbNbPvLCNenH9tQHoewWexa1aoY6n4G39EL3BH+OpOvcn4X
wnp9OzaPRiNcbB91y4XSR5k1x1lshCfZS79yj0LYoyVIJ2cfwtzIpigpNS8n
uv+k+ibqPK34cmsjhO931yycsUU4zLu99p0JwlYnPPtu9yNsmVT2YGII4SXN
Ts7VaggP6U3dECpQcznSq6VWg3BO4fry+jKEo3XeNjZSOd+Py/pMqXdq3M+a
cNhOQrRNesiMOgnaxbou6dR9l46+TnTJRnhlUVld506EH+5SYZ22Q7hpwdUm
RQuEjdUCZpZqIexwPatwzImEwdvit/YWJAwXrmoOfkqCyf6vBasvkOBm09rv
EU3CncEcIS+NhMCzF8JSNiBsMsAeSlyN8NTC3X66ViQouNFSvXeQcF+6ONBd
E+GRhH1l1osR1gn/3m4sj9JtDsmbQ0jojt/SvYTKE0UwJb/Ogcno5vP6SQgY
2f1S5zkJdd7GvKNUn+x6eUIR9d79SSXMvymREJZcHZKzhgSVBmO39btJIFBW
x8FtJCzn1BqUUn3P6HULKmtI0LUrZ7TGEWBqmVGhn0bANZ37X9QdQph3+Jzo
APW/Ms5tSomrJOGdpqCiI5eEPYt/mquKJ8GcY9CrmE5Clz66xR2TQ+wlgS63
SQ5Wfxmt2/NIDkNJK94E5sshSHFW7YUzCcUxM4/Zm0moiPx2dsRaDt6ajZG7
LOWgyjEKreyXgXs9i+vfKoOhF7kudnUExEpfdJvkExA3F6Wx9rkMplv9Inrb
ZGBI+GiJiuSgqHHpVusVOVz24lokqMnBcrjHIEpGgNT5dKxOnRS6L/xAKzgl
ha7b3spaHAKWZLf/69jfCXiWc1y5pJYA4887rc1TCNAL/PBAnS8F7DrnGL1c
Bvu+cVkn2UOAwGvgTVskAUBPKeHXyiDWlTNdXyyDF5Pt2+Ia5BC5xudiA+XP
zFbIP6Qpg7Kb8eFEtxSuo+QJDW0Z+HRaMcWmMmAEGRv+vFcCnmdOKt+xlQDR
o3eDXyaB42w/2v1mCdDWF1Ry6iXwukVFwbJcAr6KWY4hWVIYV9adVYuQwo+D
LeqqTAm8dBxsdYmSgFH3RnPBlASG2B2MdrEE2rsyeXO9EuhSDD7u81gClu8f
5inulUKUnUWaabgUPpkNWpr5hQSe6zTVXrKXgIFZ64NqzVmwW13Ld7eYhWBt
82VhVbNwM83pjEftLIgsVldV3J0D1kBNEmtiDo5By6rcd2Koq6xIFq2fgcIT
lar3BoVgqLFua9gnIuAaH+TlbhDD3WvTCdvWiIGZOv4UjMSAamoylVhi4GU5
4uwXIrj7eLcDa0IEhcsVO24xpuFojLtt7ZZpKAnz+jFgkRDcFBuLUtqm4G7q
diUNXxHoPuCrWoEIugLhlV6MEGqepAnWnRDCGmZs0fl7Ikh/EluyqFwEY6cY
4wHLpuBycSCpv3kKjnEd2z5smAJ1C6Y8dP8UBF6NYfjuEMGWer+ZUpkQvvRn
S1XSBFD97/D+4U4ByC0mZlcNf/jIb0zyTwlCROBV+Io1kCeCZW1St86Tv3PE
+tqNvqhJ2NJyMfjRPyeBeLYna33Kzx8pyTjQfCZxDJap1r/n246BYXzlrt0W
45Acfp85qTUORGnEiYLh0Y+M2Pp6Z1aIECS+3Z3lvkII6vBv21r1+3mpycwl
1tpjEMxYXkq7NgbbHkbS6fQ/puANm/aofQQceNVWV5xHgfy20FnDtucPGZAV
8WmH4weIjdVuPV/0AThynr7N6AjwTwtpfaEjv+UY+Ej4zec/nK+jefVn+vC6
lQlaS97Cc9Wtj8o0hv9Ln1/z8/+ZblZ1Zay3pxD+1/7/139+/QLexd5z
           "]]}}, {{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {}}, {{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, 
       FrameLabel -> {{"Log[10,Information Capacity[X1,X2]]", None}, {
         "Log[10,Information Capacity[X1,X4]]", None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> Style["M1", "Arial", Bold, 20], 
       PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> True, 
       PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}], 
     Graphics[{{}, {{{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          Point[CompressedData["
1:eJy1U2dQlFkW/d4HI2gbhkVZBdHBRldRZsa1jYR7GYLACo3AYCKPgJJUwqIS
RBHBCCYUBUSEBQEDQZcCR2QEmRZFgjCAwJCkkSh0N6Gb7p5vq9R/W1P7Y2/V
q1Ov6r57zrn3Pi33A7YeNEVR0cz5D6b0/2t2SQnBVPWfE998S/B1mcLkUS8a
jfPLV6MSjVWBSuyzxjSeGvF6lZBJkB2rZ0ENEozdv9VZKY3gqKtoA1uTxuTN
cJZKJmir56ulEEXwCf3Ghz9F4TcWTvsEXUz+HC8fdX+COrGzzxefobEmM//h
0QmCu7MNt38zSjB5PGLJjATmvTzOsbWdYPNJM986F4LBLVw70Vwa+W8jDuj9
RPDZgq9pt1Qaub2sF2J1Gisywi3nMXqPd44eOtFK0H+so2IDU7dYofX0u4sE
F+XOXGp1i8b911nWUSwadxekRPQY0Hhrs3Lso1qCUNvnuPISjSP77r4NWEcj
r3LuuSrGD8eunGXzlOAxSfdjT1Ma2UOP61t/JeibVcd24dBoe3shb9szghYL
7CNvMnyz6GNblh8kuLcvrm+BG43xd5SOP5AQNCjS5b8qIkhtDfMytiIoWi7I
fjafxuKBCp7KVYKPL2eZlWrT6KoZ39BfTjCkqWKuDuOrzINtHnOBYEzv9WjB
DBqPOW547HOZYECgYu5Z5m7d9aGqicl3rEkNfUhozEhYbKcQS7A+VGOe1hjj
K7iSy91JUCKwGbYyojF4cH+OwVuCmcflnpbTBN8Z7X4alEcwtyNn5ZnlND44
Lu54z8wvokTVZddGGlnckrZCZt4/no4OVB1g+qqbu8vPkWCJgp1jeQbBdK9u
k9lLCT7fPF/tvA2Nm1OeX+UyezGvMeKk9m8EqxyaA0QrCDpbiDrZjC7bao3Y
MCmFPktv7m8rJVhrprPOej3B8JMWqh6MzyUGv6ZrqRF0m/7+hvweQd03kd1a
RgQzZkQFhEQSXPfWZmLtDKZu8rnh9hCGvyMsOU9OoTPPIPyxKcG/Z9Fm7XwK
47dpcOLKKPzhjgGvwZBCW+2qvcN7mDnNqnM80knhdGzIS8sKCoekR5+4WlJ4
Y6otco8JQaOVp2xwkEL+lSJdNrNnaTYqDpIeCu20h4Or5xDUkK/yrrGi8ACz
B6H6BHPEwYoDfRTmUJETwpsUVm6J81JTpTDdfBvPn9GVFv3EKz6XwqLZWbOS
blM4WNxtqrmZwky/fZvcvClMvU0djqqSA+tghItVvxyO9MXcvmEhhzHXgIzk
Jcx/Ofi7e8wVCsWcsdiYAgr1t9QsS1vL9C/Xj3tNVw53O9zPeK+RgeEGz8LX
DXJwd7TQYvnIQcP2skX7BTnsK0x3KhyRgYKxiaSyVA6JduqBOmoMz6ndr3IN
5SD6LeKfjfky2LPwhHmykxyGSkaT5sbKIMesPXLvRSmEru6emZE6DTY8UfzA
ExkId/kVXSuUwrwtvyhbZ8vAbrLc6d9ZUhD0P6BaOqVwo8lTdVXMNOSXamku
r5KCkmuqwXfKUngkvnZP00MKPt35tet/nAYd0T/u7miVQebprqHBizLgaQUV
0pZS8NT4XpkzOg0rEs20eRclkOK1zvXhsBgqno7Hz0yXALX6SljHgBhGC1rN
DSkxcKLKFq/xnAK3eKUwBxUJ1PCed3BNxXBpYpeaQ/M0bLxk75dQKwENdQVB
t7cYVq5Y+FPihSnYed8xb9k7MWQvyqk4ESYGumyCXzYyCZXVOXaR9yehoPRS
kpOMwcSwUKifBCmtljo2OQldpuE+zd9OAn6sP9cwMA62fy0oLnYdhxke7ZJN
DhNw8FacXfLqCeiLvLw3z3YCPth2GT0aGQeuE6sxSU8IPXX6vnoCAbQk1AWs
KRRC/uSyph32QugdH9w29dU4uAkMInS6hHA+JW1HYMtHeA1ifXn8R1BuXTNc
1SCCiqHsEe8fRNCFihmKHCGUvjB96S0RwIk+TqH1WgHs9G8JLgscA45GhJnb
BiGkX41s72QJYSrtmXLIkRHQv6DfiS0jUObiI6//IAQV4zsu84eEIJxjMpF0
fQQ4OTWeqT0jMO1wfXtZwxhca52Y9ZfKMchzyGFvrxgD53ecTffiR6HhJo8z
pvERTt7zLZmCj6BR3Mi1qn4P7kenam1D38OhoEPsuPl9cMAixdlNjw+iSvay
kv5RiOQvsT7/+ygoOc39xXBFL2h5sBLChe/hq9MqB9Rf9MBg+GE7+zU94Pyz
OSs9qBco44c7xp16YehEwXftan1wyWDrcJw9H+RHbtmomnR/QVlmSGByb98X
9Hipdzd6fRJQn6IgLVTu390FU/cXt94JeQ8J5iZBG1d9gPQjmm1fV/NB9rnO
Jzyu2Bu3aagdpA3chL+dbv/EU/8FqT+Jz+8+I7w6zGKxBr7gTM+kN82LUv9r
nT/ja2yoiVpXVQfrzzu2NXnW/M/6/t/xBy1Xjc0=
           "]]}}, {{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {}}, {{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, 
       FrameLabel -> {{"Log[10,Information Capacity[X1,X2]]", None}, {
         "Log[10,Information Capacity[X1,X4]]", None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> Style["M2", "Arial", Bold, 20], 
       PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> True, 
       PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}]}, {
     Graphics[{{}, {{{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          Point[CompressedData["
1:eJyFkm001fkWx/+/E3m4DUbWRJii4lQSjadi2rtHQpE8jhB1RKYiKq51EZMZ
phq5nmIoyRxNnvJQYkhhEjUIYxIinEHH0zk4nHOcc89ddy0vat3VXmuvz4u9
1/7u9d1by+esA4NGUVSMJP9Lf9Wq2QAjglW/RD9YtprgKu3gCdlegl856l9f
3kBwxT162Ww9QYPc2tiBOwTXVqw1TwoiOO3R6NRyhOB9eq+h2hxBo5fbZLI7
CQ5dKt3jmUGQYT1uneFGUHCxtsj2MkE7WNDNZBDcFOB88tDnNCz+ofXl5ADB
ZZdzLct3E+y/cnCVxyaCBXlqr5UbCU4ZfWnBLSJ4ldHRxg8lOMFw6l/4mqB2
3rsNRltp+GPGiwsl0jQ0NnXMO/4TwZInLc/enyVYzyvWVZLM76gdG3q3QLAx
dECgwCEoHV/8nvWaoMm+qOWMaIJaNus9ZAIIXjjFXG7gTMNl/NaoGAsa5quq
1vmmESzTzno2eJ7gvp4K2YdjBMtpRp7ybwj66OsaamYTDO0r/GLyNMFEPZaJ
IpegJ0fNdWs7wScXOn7j8Ai2csYE6hIfC9kxajYCCllS5685dVIY8EB3gB5F
cOVd8zfHJPrThx/JhhEaKhYyMx69lfhtlWP2ZFDiX1NLyanfCHq4/Jz56ibB
yn4INY4nuMbx3jVeHEGsZW6ZiiCoJ78i7lEFwTfe8o+zkgnSXqTS+iIJ1jaN
5784KfFXdt2atr8IJtmnKQVUE8z09rWr3EAw7Ke9wzzJvXfpPLje70Swyy9c
vM+YoHVfKa2zmGBdX86yiNuSe4Zpee8cpdAvNTPVvZnCB3xvt3xZgqUy/964
d4LC9CC3h7xcgrHNxwquJxC0Ym5vfL6foEJVkXqnEkFxnV+Jq5hCW00dC/Y0
hTsZql8t2yHZ72/lqtOakr96V28wIvmLW7d/WKdsSdDef2PqTB6F+TW2Z01i
KKTXuHfyhBTG6jqaRHdL/Bs47at7iELFSxHNtuaS+m0nud5dFB4M78vLlaZQ
2BpofiuRwjtyKWfgWwpfNOXITFgTDLnFfL51I8EDJQoVrD8o1LSu3xaeTaEz
N4k2K9FZu+lQl204hU50Y6V/RFJotb7GnmtHofbFx353+sWwq3pqe12CGLx9
chV5GRTO1D8qr0+hcHh0+dFRCzEU6jkHds2LoP0zDbv9ryiMfvlYp6yRwpqj
E5eKv6FQwVIzqHgThXEuNnuY+yl8rQI0nwMUXrCqPR08Iob2hOcuO8vFoNK0
u07ekkJBR/nXd7+g8GjQdpkELTHI77DZXtIjAvkWdnO5qRiwRC5s5bAIdkmX
/mr9jQgOqLxOqJASwZA7fSQnUQR0y4Yo9loR0KSqCwWLizCzP+Qmg70IVwL+
uepkySJsq3yZE1G9CO8iE8M2molgpMCRGa8hmVPkfW96chFqNVRYUlWLcMpX
+Vl31iIcMf9O4VyQhE33c/61WwjmhzbIz+gLIfKz8Zv9bkJQ7030jPUWgsrq
5NVe1ULAP1PocT9K+v4OulH0VAgpl/lHIrqE8LTnRmsFQwTaiZNRpmck+2uw
9zywFwLdKmNDkI0Q2guVhX+pCOBud4jGMboAYsO3ujCs+RCjKmB2afDhWWdg
0ok8PgyLDWW3/cqHxPWUZn6RAManGAkYKAC5mXg93Wg+pLWqPbRU5cOWgr4t
rYkL4Jxj5miRvgBv26QdnJUEUHkVHLo1BfC0uqnte/0F6NZtaki1XAA+n37Q
a2oeRI1y0QvUAphtOGMJ7vNw44SqSn3SPFyaP1caz+QBV011SzZtHpwHTNPX
MOZAKdc9Nid9DlKvpn1p7TMPmSH7/rzuMQ88Xs0VB+EcdGfpX5Gh8+Ao91rc
YUsO3Limfl703TQUDGnXf14xAxNtUrWu+TPQrpOs/jyLCwkzCrvtr3IhLG3C
sMx+FrwOD7FiT84CL2ZN17gDB14l+LXfez8NEZvTeJfTuIDHj5W6pnOhY8RX
uKOAA72b9bqYPhxQ94psElRyITo8czQjnwvfBofnigXTcOKEoPyVMQcmA5Qb
pf05UDaokMr7ngO2VtKThr5cqEGVqFodLoj0Auv7EjiQ7nXf1EuZA6t1tnj+
vJMNA2e0pqTesGGReTE4kzWyxPfB2nZmRhyw3vN7vAFrGvR4RhHmm7mgO5aR
na3MBVep9OHR0nEIs1izDyvZIKjRclAUjsKtrAT0KRoDsqfYZc6DtcTJ+8m9
/NssYFsKVjT5sD7SK++W+j2kcwpikh1UG6hpEJlMzmuw2Eu0V+miC1pGwc+4
t6fTYgzEYTftV+4dXOJip12Kblzf/+X/+tqXSH0Q0hvtZ26lsKHjYoO9wIYN
B9yajzvmDEFolH+Pv8nQR3ofzvsUXQoozjmDt3Bcq95Cfd3gR/ofxqf2/VT9
U/Ef0+Gs/w==
           "]]}}, {{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {}}, {{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, 
       FrameLabel -> {{"Log[10,Information Capacity[X1,X2]]", None}, {
         "Log[10,Information Capacity[X1,X4]]", None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> Style["M22", "Arial", Bold, 20],
        PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> True, 
       PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}], 
     Graphics[{{}, {{{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          Point[CompressedData["
1:eJxlUnlUk3cW/T5UQIRiQawIiCIURRllQCqLvJ+ExQIBFSOLiiwTp4SdaRAs
slhQ1iAwCmIRxCmyKLIokoJERJBFK7KIZbNRRPYkhCUhyzeZc2bmj/ad8849
75z77rlv2eEfdpwqh2FYlCz/g8a6Zvf72jDUkk+eTVck4A6+Ot1/C0f+zx5w
n7AwNDaF0N9zcHSl40Hb5HsC6LU9txZMcDQRpPjYY4qAz7tqI7JHMURhZn2V
0S6F0oV9C7aqcki+wxB7rEJAkQc9NtIeR5kNVhGhtQS00jHn8gEc/XhANyeX
jqFlpkHc7kc4+rWFkqD3MwG3id/lNwXi6G66SU0BFUN0CwbVyQ9HMd6qT447
ErBTt0hEzsaR24BRZLYiht7xyix7t8ohRqWvlmUxhgwFnaHmqzL+id0JCgkY
2nK66ycdFo62qUtC4uJker8Wbc6exVHexYe0boyAfo3CE71tOLr9tfBQnQ6G
NGrzmda9OOp9v/+w4hMMlfq7zL8KlkNHqve9qrmCoY96McqJ5bJ9hCg/anpK
QNbrpLmONzjysACDcHUMOS+/29isJIeKXF90f/NXDG2LIMvXyeav/jl5nK5G
QOV87Wd2HI52cU09vfsJENjvu3igGEe3zMS060oYYvXaa9IacVSsRdk7gGPI
OINkmyXBkEWPS6FelQTCVb5P4B7GUeuJvuL6mwQgs6CXdmUY0lf5kG8dJ4VF
Rf/xTek4Svs4EvwVEMA61abbe0amb8CfWiO7Xzvp8rrzVThiKOlFp5tjSO14
Wl1rLI6+yX22zsgNQ124aVqnCEM3vKDhulQKFK3CvBuvMWTNTHAfOCSFd51n
CjrO42hz+pQh01kKXfszGyrqMeRevDNxLl2mf8mX36SNI25hSEyUixR8XsTO
71XAUa5z/pbUACk0m0XtsduEo9G3k2ebTQmAlTu7rI1wRKtZaqGMSaFpj3vQ
jmAMZein318SSKD0ad7+i/YYun80e9I3WworkbmHbC9jaPPRWr+qZTHsd3o6
Wyjz0/LU5tXsKSnoKt+74hyEIf/mjb4VJyUg5M8uTvdhyP7eumPRsrqhorDw
i3MEnJvLK43rFoMRKXD9edkf0+NTTi6TxBDG0EmbjZbpl5GMTMLFMBym3rRw
ngBm0Yro1JIYKA0lIwSdABuzm29yo8XgWjtQ73ABQ1XXFE16aBJgCJRNDoqk
sOY65VTNqgjccsjoyVsC3Gidmi4CISxmbJ/7loIh2yDt0fVMEVyLCnevH5VA
YPaiZaWWCD7Mbo23k8NQSWrevHaFGJ51jVl/t1kCryJp3mRLEUTCdtfWZimc
OiLJulUtgPLXV7y4xyRwlhfycsJKDKqlO5y3e0hBWEnVo+mIYGijPrs6RAIn
Du3lqZkL4OG/QgyDn4thI00Jr7wphJ8Myq9hJBGUUh81uFkIQJ/tcrRDKIY9
8nNNfmwBSK3Cd1N4q/Dt9vgvPVWEoFX1oDxadRVGbx6cG6wXwJbA9quMpVXY
57DlL433VsB417OobuVVGAgfVHd2XAHOVYXjG0pWgfBw5NT8IABdZ23jx/1C
sE5RexY3sgJKw+1lS2IBJAUmxUcylqG/5cZDEncJLL29X17n8GF48VLTF5Mi
IGfauWp9FECEjb9vRccKLJskHdaK4kNoFadunFiC0DVNJi3ABxsnE+Hn8SV4
nizPU3FdBE5ARIp89TKo+qQ6hiM+3PPlLSZmLsE/40sr1o4uwI5f1rif1eQD
4+4lt+EfeJDrtWH8ghkfNCifHXTOLECXjZ9AdZ4PIzo6KYrEApDazfK+9pH1
lRe8HTDggeb+B04key44Zob90qrCheaTHew7OAdSJuaTFOrmgGyh2r7eaAYe
7dbYKumcBqe+wBKq/gL0hWKx+a4zENg+OkOj8GCQYdVj6cUBtdKZOtPXs/Cq
9Nil4MZpyC3epe+hxIVF8+jcT02foX66s8BdeR5qExmn4+kfIKNXfFKcxQHO
9oIDnmvmQdunp5YR/Ak4bcKnl+mfIGe4e/xFFxdiiLBwv508cDL6G/Oc9wRU
8bb4DFE+AZ/taR6lPAlKjwqHDqePgeigWpmOcA5Su36PMHCcBB3/an3u91wY
0xgi/zg+A88bzWxJxWwYGM2Pz/digx8notV1ph/GwvpedqJ28Ii6+CZo6CqL
ui9c8YJnCYuVpp4xpTcEeRPLey73/wbSmKKj6nZ9/0fjE0VrM8JSWZXUDRsC
3d+yHAO+G7u3OAjx1DMzGR3vICFLwSzatIXVs3bioXrsCAv7Q+R8+Y+AUJV+
FjV0mplsdxvimbc0brDvwmyAA/iP9bCSfys54lN2h1VBJmuG25XBH/uJ//r4
H27zSJ5OMvwAgeREbuPL93/i305PPN19gcFSk3dIM7BqYLG7SV01Nq0sQ1Xf
0QeMwT/x/w384oC5
           "]]}}, {{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {}}, {{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, 
       FrameLabel -> {{"Log[10,Information Capacity[X1,X2]]", None}, {
         "Log[10,Information Capacity[X1,X4]]", None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> Style["M3", "Arial", Bold, 20], 
       PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> True, 
       PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}]}, {
     Graphics[{{}, {{{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          Point[CompressedData["
1:eJxdU2tQUwcaDUKqdcMiVKoVUB7yLAoUi0LUowKKQdyGtmKbwqIQrY6LSooF
QQQf5SFKwxuJIgXkUavGYNwxYFJAlFXoUsBVEAtVHmICed2bexNdN/2zP/rN
nDl/vpnvzDnnc9l9MJo/h8Fg8M34g9+X/3h01N4AVVVvJHOKgmdIV/zdaCNi
ObJo30IjNrv6bDzWRiG+vNX7jpnDnxx1+rnAgAHKq+EdCxrSRYXCgRgSbx8+
2Lo90QBbZ2WDSEaB3ZMWubaWRo4xg89woiGa29/BbKZRNH3+VQmfBr92YC7P
SKFZt9pna58Rdo1qWT/jDW6vWHtv2w0K9+2j5VMdNJjb0zN+WkbjWr0R3VIa
7fYO/c0XSBh5tzKlt2gkBHcWjmkp5A8/Wae6Q2MHo2T5HDaNbPHXj+hBEwKy
9rq7rzTrXP596Hg5DcX8uBqLRhonJv3tmoKMEB2QnGQmUugM38pwVdA4xY7a
H2VvhOm5RNEX/BphcXckTjwK9rFlFNvWBFJUkfreJyR6JClc8TIKviUh1+v9
aXy7uib1qhuFQZuiTs9cGg1t1r3ljiaEZb7cpo6m0TZtu2JBhxG9T5l1du00
BEu5+9b1mvB7o09wn9Cs37n68VI1DdfOwujtPjSSN4i5bVdMyMuwYye+S0HF
ehqj8Tci88qeS5U2JE73NnRu96bQNlW8smCYAj9pqHEsmcK/vji1ycPZAJqw
+GLSYAQ38FD8Ah2Fx35rJ0bajbi25PxmcT+Fv+QHiRf6meD5XULpYI8J9ikf
R1rKX2My/fKzBSdIfHnV41bJGwqv9x0ZOtFkwHdBZ/MSOOY+pEnFj6UEUuf+
OvLrbQo/c1aGqV4YcJy358lQhjkvYR+zI45Ekm3gLpYVhdz7JbauDBLn8LBV
fp1C8Zwf3CtzSdQRnOxFTTT8lKfHqir1mPmStTlwNwnukk3aVVEkio8fjC+L
McJByF2ljjWgkXOdtXaeEd8U/vv8xZ0Eog5+rps8YECN7bzfTsyjcPHwgky7
9UZkO1oLLylJ5Bo+ZYdIKHya87aiebkBnnaB6/NZFAayh5c5ECTSmwq49Q8p
iKqLHMcSCFjvTedtKDL/wc5aN8YtAvyukU80oxQ4F0O3FKeRcDtjuzsyzuzH
9+ppQbYercygH9o9KfSmeouu1xCocKwYuGHO1TJOy3mxmEDQ3iyRlR8Nm0n2
nptZOkjEn33OOEwgdo0tIzBJh1ebzikSLhOY8RK07TIYYJpu37gy24gJaXLu
VRkB9yrV37LPmtCtZeWuKdBhgyKkRao3ILv7v51aWgtX6YYaDwcC/skO1u0p
ehwYySx7wiLgnW8ppTdrUBApmP9KZoDG5/RfYwq0eE1HJKebfb65xdSROqFD
Ue61Zs2sHv3HdmypCtbAY3WiW+VCEtV50UyrMD3OOLCcdmoJtO1n/f2rSA1e
XjlyQZmmh9eDuCKvPh2uhDfEhyVR6Dpb/886ph5lH1bVveNIIdQvi1MNNUKO
ihofcfXwE258fqhHA5dffqkx9RI4N1DlIhhRw3rg26EP7mlxb7ZyeCh5ErfX
PxzyfqWF5L7zuat3lYifHVBuy1BiRtbve6lYB+dh186KpSQmGniqUlclEpdP
nPzprRpexKrmzLhxtC5e0ipYMokx6VuLid+mYPVynUlAabBVso5fS0yDjAgJ
TArVYnbulH/t3knoWuZHyGOnsKg8jL/4YyUO7zzWdFivR/nveQ6+AbPY4ft+
zIfH1Nh3uW3OsvEZsLa13u8M1SE1J7807YwKzRecSsePaxBflvxRfN5LWN4o
9TqVosLq7ge8HDcZZMGsfeEOsWjpDxAcyRmF85aAMgn7KTw6DnDvVIjlgRZR
D1Tl7eDLjji2nL0pb8xhff0N50cEf9QzLqp/gcFu3j82VT5Hhnb2kGTNDfR6
xe33cBlB8Qx18o2oFb4CR9G7XWWwrO9/Njo0iK5h97GiD0bA+NP8JzowNowr
g0vHzaSLj+og9PBcaiW0//9elKNVSkTAtJy9Qp4ZG6GXz6vd71TNuw2Fp9ov
75K/4vi0heJCkFb+VfiuqWeLLRV3Fwpt+srF8pnRLBuitUX+53v/AyS+MEc=

           "]]}}, {{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {}}, {{
          Directive[
           PointSize[0.009166666666666668], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, 
       FrameLabel -> {{"Log[10,Information Capacity[X1,X2]]", None}, {
         "Log[10,Information Capacity[X1,X4]]", None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> Style["M4", "Arial", Bold, 20], 
       PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> True, 
       PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}]}}]]], "Output",
 CellChangeTimes->{
  3.772437439046682*^9, 3.7724375113916144`*^9, {3.7724375540209217`*^9, 
   3.772437583483965*^9}, 3.7724376230883894`*^9, 
   3.772437707273051*^9},ExpressionUUID->"d9bf09d4-0998-40c6-869d-\
79eb7ddc1bc9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MI2M1X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M2X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M22X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M3X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M4X5", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X3,X4]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MI2M1X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M2X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M22X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M3X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M4X6", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X3,X4]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}]}], "}"}]], "Input",Expres\
sionUUID->"1b8a1552-fcd8-49fe-b6ac-367f38f771bc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AM1", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM13DX5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM13DX5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM2", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM23DX5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM23DX5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM22", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM223DX5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM223DX5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM3", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM33DX5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM33DX5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM4", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM43DX5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM43DX5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7721724906163864`*^9, 3.7721725117628994`*^9}, {
  3.7721725624529057`*^9, 3.772172659185978*^9}, {3.772172860329299*^9, 
  3.772172873173648*^9}, {3.772353409933464*^9, 
  3.772353447126819*^9}},ExpressionUUID->"7258738a-771e-4116-be91-\
6cab3f084c05"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,201,2,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534482410345`*^9},ExpressionUUID->"578d7b97-154c-443e-92c1-\
1c404112a301"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,201,3,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534482722855`*^9},ExpressionUUID->"56e01f77-202a-499a-9274-\
1aebda121e37"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,201,4,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534482879095`*^9},ExpressionUUID->"04c93f42-ba1e-42b3-bdb5-\
8dc49fe69926"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,201,5,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534483035345`*^9},ExpressionUUID->"0d026cc3-ae00-4012-bf83-\
4bb95852e611"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,201,6,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77235344831916*^9},ExpressionUUID->"9e56b551-edaf-43cd-8a53-438810775b48"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,201,7,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77235344831916*^9},ExpressionUUID->"de6fc723-1413-40b6-b3b9-4a443cda61a9"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,201,8,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534483347845`*^9},ExpressionUUID->"9e3766c4-af7d-4dd7-9391-\
abe07882cf10"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,201,9,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77235344835041*^9},ExpressionUUID->"5c103fdb-549b-4221-b321-5c7791ac0584"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,202,10,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534483660345`*^9},ExpressionUUID->"cfedae3d-12bf-4272-970c-\
cbedcc0a4fa1"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,202,11,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77235344838166*^9},ExpressionUUID->"88dd3478-fbe1-4044-a5e9-6f8271b2ade7"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,202,12,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534483972845`*^9},ExpressionUUID->"7d33ea52-987f-41ff-9fb5-\
b007b161f6dd"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,202,13,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534483972845`*^9},ExpressionUUID->"4c9522f5-3f6b-4944-946f-\
07cac36de95e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,202,14,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534484129095`*^9},ExpressionUUID->"1b6a9fdf-add4-4af8-abf2-\
a7176d1bcc3c"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,202,15,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534484285355`*^9},ExpressionUUID->"50edc31e-b463-48d6-bf30-\
e8a4f1fc975d"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,202,16,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534484441595`*^9},ExpressionUUID->"56713b4e-12b6-47cb-b99b-\
86fd274e5e32"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,202,17,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534484441595`*^9},ExpressionUUID->"31ff7285-776d-4a7c-88b2-\
ad2e8fcdf345"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,203,18,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534484597855`*^9},ExpressionUUID->"60af36d0-592f-4f66-a2ab-\
07a3fcad8da1"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,203,19,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77235344847541*^9},ExpressionUUID->"9f7b573c-c249-4ba7-9a3d-60c4ef4f3d8e"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,203,20,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534484910345`*^9},ExpressionUUID->"93d44b25-416a-4f83-a620-\
b00c6c1b6f19"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,203,21,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534485066605`*^9},ExpressionUUID->"91a30028-af93-4796-93aa-\
052abb733e4c"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,203,22,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534485222845`*^9},ExpressionUUID->"32031c95-f1d5-423c-8869-\
53aa1c7ae713"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,203,23,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534485222845`*^9},ExpressionUUID->"2d02fed0-19f6-4534-922f-\
0659cc2ee381"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,203,24,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534485379095`*^9},ExpressionUUID->"a8bc2551-cab9-4816-aff5-\
371621f38c27"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,203,25,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534485535355`*^9},ExpressionUUID->"15fccd56-624e-4b79-be7b-\
86f75ff48bbd"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,204,26,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534485691595`*^9},ExpressionUUID->"1a9c5649-f688-499d-a9df-\
f2a5aaea7a7b"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,204,27,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534485691595`*^9},ExpressionUUID->"517601c1-ac15-4a93-a524-\
5d6b96d8a812"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,204,28,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534485847845`*^9},ExpressionUUID->"c49f7902-b259-4fae-b9eb-\
b250ed0451d5"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,204,29,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772353448600422*^9},ExpressionUUID->"2f7a6a5c-25a5-4d6f-a3b2-\
6e0bfb814688"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,204,30,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534486160345`*^9},ExpressionUUID->"fdf8cac3-c132-4cac-b6c7-\
5427ef09ac1c"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,204,31,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772353448631667*^9},ExpressionUUID->"bbc03395-d429-4931-a53f-\
c99955483362"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,204,32,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534486473064`*^9},ExpressionUUID->"752b18d7-4eed-4c84-a90e-\
243e198e096f"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,204,33,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534486473064`*^9},ExpressionUUID->"8df5d618-5765-4624-bec5-\
f1083933f5c4"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,205,34,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.77235344866291*^9},ExpressionUUID->"18eb62d4-c9e7-49ba-b87c-fecff152f51d"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,205,35,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772353448678534*^9},ExpressionUUID->"6a1ba483-c93f-4116-aed1-\
6d63f5abb185"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,205,36,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534486941595`*^9},ExpressionUUID->"7007c8c6-7a2d-47d8-a659-\
c602a70ffe87"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,205,37,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534487097845`*^9},ExpressionUUID->"b0e14386-6702-4ec3-bbcf-\
e334f1da9c0b"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,205,38,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534487097845`*^9},ExpressionUUID->"a8e5ae8c-3f21-47a5-b493-\
f66e66aabee6"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,205,39,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534487254095`*^9},ExpressionUUID->"2088ff21-e6aa-45e4-9a5c-\
361880ee237f"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,205,40,31712035763434108143,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534487410345`*^9},ExpressionUUID->"48a62bc2-2e29-4ef9-97c3-\
07af94c425a0"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,205,41,31712035763434108143,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7723534487410345`*^9},ExpressionUUID->"01e67759-7bd0-4465-8b1f-\
7fd5c3d39c17"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M22C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M4C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TTT", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "AM1", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ATT", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"AM1", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM2", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM22", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM3", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM4", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"TTT", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"TTT", ",", 
        RowBox[{"Position", "[", 
         RowBox[{"ATT", ",", 
          RowBox[{"Min", "[", "ATT", "]"}]}], "]"}]}], "]"}]}]}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TTT", "=", 
   RowBox[{"Flatten", "[", "TTT", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7721726786139393`*^9, 3.7721728164982986`*^9}, {
  3.772172896131706*^9, 3.772172911009983*^9}, {3.7723534782019515`*^9, 
  3.772353478451999*^9}},ExpressionUUID->"8c42b3b2-afe8-4fa6-b138-\
400d5bced79f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PerT", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"100.", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Dimensions", "[", 
        RowBox[{"Position", "[", 
         RowBox[{"TTT", ",", "i"}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "/", 
      RowBox[{"Length", "[", "TTT", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7721728217832985`*^9, 3.772172822450334*^9}, {
  3.7721729147240005`*^9, 
  3.7721729690422173`*^9}},ExpressionUUID->"73637438-7472-4468-a828-\
b8a92d5e2dbc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "18.30065359477124`", ",", "13.398692810457517`", ",", "14.37908496732026`",
    ",", "17.320261437908496`", ",", "36.60130718954248`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.772172822876299*^9, 3.772172889375693*^9, 3.7721729701191964`*^9, {
   3.77235345317959*^9, 
   3.77235348212858*^9}},ExpressionUUID->"63ffbd31-b13f-4c0f-8b71-\
42cde8ce7dfe"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"AM1", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM1X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM1X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM2", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM2X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM2X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM22", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM22X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM22X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM3", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM3X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM3X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM4", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM4X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM4X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7721724906163864`*^9, 3.7721725117628994`*^9}, {
  3.7721725624529057`*^9, 3.772172659185978*^9}, {3.772172860329299*^9, 
  3.772172873173648*^9}},ExpressionUUID->"a2e9b695-52d7-4e9a-9a71-\
0602e695d976"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M22C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M4C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TTT", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "AM1", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ATT", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"AM1", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM2", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM22", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM3", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM4", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"TTT", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"TTT", ",", 
        RowBox[{"Position", "[", 
         RowBox[{"ATT", ",", 
          RowBox[{"Max", "[", "ATT", "]"}]}], "]"}]}], "]"}]}]}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TTT", "=", 
   RowBox[{"Flatten", "[", "TTT", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7721726786139393`*^9, 3.7721728164982986`*^9}, {
  3.772172896131706*^9, 
  3.772172911009983*^9}},ExpressionUUID->"1d214655-82ee-42d7-bc9c-\
e6e6a9517cc0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PerT", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"100.", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Dimensions", "[", 
        RowBox[{"Position", "[", 
         RowBox[{"TTT", ",", "i"}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "/", 
      RowBox[{"Length", "[", "TTT", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7721728217832985`*^9, 3.772172822450334*^9}, {
  3.7721729147240005`*^9, 
  3.7721729690422173`*^9}},ExpressionUUID->"619b0da9-2823-425c-a6c8-\
bf5d65d2bfc4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "15.909090909090908`", ",", "13.636363636363635`", ",", 
   "15.909090909090908`", ",", "13.636363636363635`", ",", 
   "40.909090909090914`"}], "}"}]], "Output",
 CellChangeTimes->{3.772172822876299*^9, 3.772172889375693*^9, 
  3.7721729701191964`*^9},ExpressionUUID->"8dc0133c-69ff-43a0-afbc-\
a3894fa37a2b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MIM1X5", "]"}], ",", 
       RowBox[{"Re", "[", "MIM2X5", "]"}], ",", 
       RowBox[{"Re", "[", "MIM22X5", "]"}], ",", 
       RowBox[{"Re", "[", "MIM3X5", "]"}], ",", 
       RowBox[{"Re", "[", "MIM4X5", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MIM1X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM2X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM22X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM3X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM4X6", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
   3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
   3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
   3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
   3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
   3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
   3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
   3.771929457794732*^9}, {3.7721689283429265`*^9, 3.7721690533491125`*^9}, {
   3.7721694854823895`*^9, 3.772169488631389*^9}, {3.772169819335092*^9, 
   3.772169821480093*^9}, {3.772169863548537*^9, 3.772169899478387*^9}, {
   3.7721699474990664`*^9, 3.7721699767585363`*^9}, {3.7721702601076183`*^9, 
   3.7721702722613535`*^9}, {3.7721706449071755`*^9, 3.772170647284936*^9}, {
   3.7721717010141068`*^9, 3.7721718143087273`*^9}, {3.7721718659804497`*^9, 
   3.7721719017313013`*^9}, 3.7721719876233015`*^9, {3.77217232637504*^9, 
   3.7721723694770412`*^9}},ExpressionUUID->"17b78ab8-6560-444e-ba4b-\
8c6be3d1057e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJyNkgs01dkexzchHAw6I5ncQirllTya7vDb0invVzFTHnkMM+qgQiQ9iCI9
PG5HSKQ8CqFQMkR6GOleEpFk9HDoeDs47//871oz7lrNmtXda+31WWv/9u/3
+373b2v4hboGiCOEzpL7vxyJmI9a1kaAyzGfjaqFBKzWqUw5lYLwTPIIN50k
t19i8itvhH/yoGbJ+iGsJon+HccmQKJBSTl+ngBKrKaa9j2El03s6pivQXiw
UTVBr5QAsaz661eLCOA2+tw84Ilwua9jMsUH4UMDJYUm5ggnSp2a09ZH2Ht9
K388D+G4HTJPPXMQXnKglhblhbCTdlOJN5mnuzRYOm4pwp3UpXUhWgjfOOlz
lspBOM3Qyyueh7C6Ci3UzA3hiluitABSJ63PleEahHC7sUm1RiDCYyniURay
YviOtS1DtFgMJ5gxiiTpCMvJts3t+BnhFfcLRqWtxLBXKTbQsxTD28zC57KV
EU6PTImhqSLc4lV019gW4a2n/JmTOxF2ywvdUSVO9nHupXsihPNEcY70boR/
jI/wWNeH8IfYjjj/DIQzXDw8719EuP92YqV0KMJsMSmTVFJXcVjxyeh88v7r
zFnZawgfvLt3JT8e4eqUfTo3YhEOKokc8NlD+lt3lZKzC2EN3SJaDXmu3bPN
aDgGYcrboRO2pxAedq88EHAB4bvxTjjVH2GP+mDNS98jPOCgl+xohrAjJWhS
eQPCo6Narj9sR7i1o1JifivC1/KKn737hLB5mGdPQz/C4d/ewRZUhOXrHJ0r
lBCWDm0M1ypHOCnwpbpSJcJavt9I7CxAOEbzw7172QhHcyLuB3xHwL3dARPW
VgTwLR9RROTcNPJXuaSQfq8/GlxftoP8D3nFVU/sEE6Ip2+02Ihwrfi1WklT
hPsut9u5uxFgfYuRy3IkQD7hoNr9VgKGcpfXhbwgYItxS9rweQLctjzo94gh
YJ3MCB4k8+mnzoUn6SB8pvVjeLULAdMSDj+vMifgP+beZ58qkv74cvRdaggX
iOs23i4mQPPQLzRWFgEJKrvCrFwR7ogz65An9ciZ2F0blEDYndrRW9pPgGfC
9huYzK/y1i/9SY58l1brlTnyBPSfLnD/pxQBKiaPj7X6EiBdo++2xoGAfRlG
fdwuAr5Ovb2uqJuAoBhBYFC2EFbRblAfxApBAHKTOw+T76DZur6KnAuFzikN
riUg7cyGpNgSAmYH2duuXiHASW6EWxZHwG/57vRf3ougfS26W8gSwaKJ+DX4
mQjMVwxXOT0XQcplvac6dAKCJTlKr5wJiH8zbW3kJoKbUYc5TEsRHFUYybH/
JACZVL39Jf0CWGTYziipF8K7V5kutCohWJ63olm8EEAsN3qJVrcA3jOtahSL
RaAr9FFn54nAy8RXNkBFBNlehaYnlUTkXHy3j9fyge987IRmFR/sZ3sCRReF
0N7gvVg9VQh+TW8WXSkTQtelA4sLbguhbXOODJXFB2366DPlXj7UuIbXJwUK
4fuDLqt5TkIoLa7KtKgVAFCSCnpvC+BcY45OSJsIXk0+tIitEUH5g/WH/Of4
4J6x6LK/GqkvoG7FHRsB3EKJE0s0BFCvvkah2Z0H1GB93XFXHpg2b7j+bSUP
hJ3a5b3FPPiUY26wpY4HYmtySlKreRASKd3wntTtK8mwCWXwgbVcRbZiPw/e
DNQry5B1IssnupQofNDrMDCZmuZBcbiB3fEuHjxsTy/lvuRBPuudV4QPHzZ/
asuSdOVDxV5dRLHngQIn+Kv09Tx4fKTtNXsTB9YZP3hWocYBbVqxqk81B0I0
TBTDyzhQn3SpL/E1F9im/yi7+YgL6QoexlhiHvZB/fLMj3Og8eQ7H+35GcgN
K5FpGZgB41/31JSPzUKhvl9pps4c/GtKBp92mAP35LEXoDcHT/UiXn7zhA2l
DBuc8YoNHpu9PfaYzULu15LNd6mzkNDyYjhNdQYKwr3e7JWdAToz1j7fjw2P
kq2klviyYf/a2E2+MTPQToc+7aMzoHbcwyCxng0r3U/knW1hg8LH87tbVKaB
dYQ6tldxGqovKtzZunYa9hXaNI3qTMPEmakqDxU20K8dpfpuY8P0dusE1dNT
YBt0gS99fgpEphOc5UOjC6yTjo45Gs2Gg4aXj0yFskGxie/2JOJ/nDjeo1iV
NQlMy+vlPdGTIOxyYqxJGl/gYw3YvcOQBby0PXUJ8Sx4rh00f8FmDHTjSuwd
TMdAWBQZljM0vMCrHQ1GhmkzELnpNztG6AwwzzGDpIbHIbg5qGlT2TiEWVa8
zYpiQXKiu7ylBgss2qIoFMrf85wzd4SbzYSp9xfEnj9kAnE413nJ1s6/pWaq
bedj71HYy4hUabYZhcCeY7Vxz5mQKipdu2WY+YevtwuEP/r8yc/j6LP1pfhY
t37+DzIfYWj1spPq8h/+Ev98fa7//40bl11hvezM/Yv/L/X7Uv2h6q2v2ruN
Gv/k6aPzAi7NcIFfqvc7BJPfhQ==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJylkn001ekWx3/PT5RINWSJETp01TAjSRqxd1HoFTWUl8Sghigvk6sieS/K
S91UzkFFEb2IXGXqUKkRpVjcydS5FelgvB3nODhv9zdrTf0x949Zd9291rM+
63nZ+7v3frZRwD73IJqiqHRm/c5neaYRPl4EC/ovq9fVETxREdKkuojGZw1K
Ewd30xhpTPoafiHYHDWdleFA47I7nJ7aeoKsdFsX6jeCB1O/6PSoJDi6S2TN
0qdxLStglDIm6G6710gpiaDlDnv2mxyChi6+e8beEyx/klFS9jWNS9LVT9w9
TmPlh3KXw7cIel21dzMcJfiF9pwBbirjr8jyec0jeF/e4z2cRvDHri1bRRo0
Dp0OGeJa0lg/bw7tX0Rj9q7+p6tGCDaWxK2fzeTbcTlQx7OcYLjgbaO1mCD7
9KGXWoze/ApVg02FNOrIzCxCBxm9qoL4Hjsag6TjPemuNMJLvo9pLo2TXy6Z
tZypt+mJRmYzU4/vsck9S7sJHpF01wSvpdHN0Obe6Q8E95a2sfysaGy9WXDB
LJ+gy7xtCfmM3svAs6nWC2gM5Gfx5/nTyN12qSwkjqBdrfnHllqC2wurFz1l
+icyGbtar0XjjGdJU7sZvZpTpeu4xjSGiFnmD5l/iPmlUWOJLo0q9S2a8Y0E
03rPpoyp0OiSvSAjsZVgZNS0igxmn+xkR+5cI+jzoujQTULjvjTLA1fyCLYf
0pttJCB47fL8qEkpQcmY69Cm1TRm5ms7q7URvHJUEbyeOdfd8e31uy0EK96W
mx43odE/Vene25cE4+s0/XasoNGv0yi+nfnH746lRGkOENTImDgW5kqwTmmr
z6MSgmte2fd9r03jw5Va2ieYPhp+taIvgrmf3RmfbPwvgjtfbJbfsGHoInrH
SidIP3YqrdlJMNQg/4c3XIJBpt7dlUAwLtlFM+gkM09tZ54HRRD0l1qcVzB1
tW57cy13OcESlaTImASCr4r0T+npMPPIyRzixRA0mDr/rIgw8Zvs4mrWEqxU
X3wgP5zC7I16VlkNFPoqPw4LUGHmybg5cMib4LyChb1lmRRK02Oerm+k8Jyf
ivLP2gTPT75J8HYkWHjvFUElgh9P15qzvieYLDJY6ZVI4VbjoR+fzyK49FGn
ZMMMgvsGa9oPrSJY6hmfU2dHYTmVIBbmU5hytDmpup3CYueNTeEKCmOeRqoX
M/nUqpfOZF+gkLciozJOjcIrYXts/EMoXCzf7jDzggLU9sf7bepXQJl3zsZb
dygU7Ios4SwgyCv74WPEXgqnrATpaVUUFsQqHTTIkkNoRdiWPHMFqJSuComN
U4C9dXD1sw4F6B3wzIizZ+h+yoV3UgG7LLNPCh0VoOTgKHnCVUBVVs6F1g45
xKZ6tVQw79SKkgWBrXLw1kl05vgqwM9pbuSlSSmUr+MlBObIQMyTQpRUBq5N
ouyBn+SQ6bAqMatLBrO/fTBj81U58Hcq24t1ZDDWf4PqeieDovXmhbmOMrjF
NdI3aZZBe9De2zdqpXB7Ku+afpAMvpoukK1+I4clog1lnq/l4LxdubffQAZN
RtHV9HoZSC47N28MlMCic+uMm3Ik0DOavDfBWwKN98ezVYslYB/f/tDk4CSM
Vr12tqemoOGAZZEwbQr8s6cf9pjL+An1Asa1pJAr3qHt8UoK4bvdq2NvT4Ke
rtJYd8gUuAxe5RgUTcH26z6VC3+dgp8WOK1z6p0AukH8sWF4An5uJ51WPRNQ
xc1l+8on4LvDxbf3p0yAjNYuEkxMwPK2zhGzI+OAI+2ZHQPjoFZxKu+dgxhU
gngSGw8x7H9k+o2Xqhj4CacCK93FcD3YYx57rRC2+Kp1sm2F8CGY2mFUIISu
M22RZtVCmHhybZXW1yLoHf9t46TyOMQdDVzLyRuBEwUXPaO6RuDXNf8I4+SJ
YMZrs6HmDhFQWT5GrnOF8B6nlUyzEsIDToTmZvUxSORbVW9eOgavN0iqw42E
YKUXv87fWgj/XPjiiG7rMExerJ8REzsM1x1bdPtGhNDgF6po7xOCiel5yjJs
GISzHMXss8PQacf9t2adAKQeZ90aOgQQcsJQnE0LoNKjnOXWKIBcz7TQ1YXD
0JHfZCXQG4Fu15OC8ske0LvbuWXT8w8w+8uZK80oPkRER7CytPjgln6/pls8
CqInrIV1/aOgob3PfFnuB5juq/HAflEvFGuaQMa5HlA+Nnef7uMeoBxueo77
9sLOe85qxdG9EK2+wUbfmg+DiVXf8LT5oIgtdNV07P5M+ZWYKE4v/zPTC2+m
pXKSIOipbVnKcjaoXma3BMzvgaqLhxTh3e9B39brdkIKH844O0avWNwH8k9x
/qCsY8uZvx3jwdFpvVk2g7w/dNo/k/oL++T/idDydzU1tYHP/PRONZjd+mp+
EbBXDLztuGRRb3HOp+vC/ffcP8f7K31Tw0rzNe4voLPjRdKy5rb/Od+XXtFu
SvUW9VqCmJLQ5NH/0v9/zenR8Tl1ERb1n/jn+/8Aw9qZxQ==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJyFkQs01fkWx/+/4xFSJBXSg6tQKoooam/JI2roJPLKUDSYKSWkpkTTg1KR
hhFyyeMWIo9RKc8mj16oPCYmpZPH8ToHh/O85667pruW1l3ttX7rs9bev7W/
e3+3hvchug+Noqjz4vcf0q+u6dyxhaCfysPxAEOCHhPqzO/7CC7QDBqS6ST4
dmV12LxGgvJ3dIrHawnqjukeqD5BcGnZUtP4wwQnvLJO/jJKsFCn00B1gqBh
b9dZ3hmCPRFFFntvEOTrBg4OXSbIC628u/0swYhJT34CRcMVAU4HvptDQ0uB
juRnc4ISZzOtS8RzbJGsT5esI5iXo9quJCa3RUFADyAY4/O6iXuMYGhM05Oc
ZTTUzPmwzHANDVM8/OfExhA0MnbM2XeFoN7s5k+m82lYyynQVhT3n2/zTDOV
Q7DuWDdvNovg94U/lzecI7je8rS0TyRB51PHsxmuNAzxz5bWd6JhQlJ8JC+N
YK6KSo1vIkHX+tY7WkQ857symd/7CZbt961hpxP0Xq1tsOifYp+6dbNypWkY
p8dYr8Am2DL7g2zKDBpWhbwuZ4l1QzeVmAhEFOYzz6ja8Si0XutIUrMJBpRq
d+ucJviof2u7jCwNR3felwkT61wxLona0iv22ybDpOojwTZIviGRJb6Lc3JK
802C5cytsysSCC5xvHOZE0UwfYeH9rwa8d5y8lH3ywiuvdDOXJ1MkPYsgdYV
TnCFXs+8jAGxvzL/WNLURvAiIztovynBFC9f+wfLCAr82pck+hM0X14a+343
wfdRWh8WlhO07SqivSkgGOv30FhKRnzPMA2vzX0U7qfMKoyWEyzlernkivMh
Sm9Pxt4nmHTY5XdOJsFgmQnKlk7QJntDXb0VQdnrIbflNAmKan64t0fsw5PW
1YoudgQ3+6isk9hIUDUtwmCeeA/9D7X6vT4E1eqvXcnPpdDBTzdhLIfCXfYd
AcfEOjqP3d5w+BSaGXgY2dtTGND9k6/2dxR66T/Yt86SQp303bKd5hSy/TZ0
2iVSyH8VaJoWR+G9eL/i05sJPmvImDFkK763e/qf6nIEt92bXcZ4QWGWzNTQ
xVIKndjxtPEzFEKj9vO8EAp36xgpzgyn8OTMg93BHBFohlb8cOu9CNK8nrcF
PxTremcqcG5QuK4w2POCmwg+9Um795mJoF86r/oSi8KWWer2Vs0UJqRYKGY7
UfjYfSiiwJXCmqjtoVp+FEY521lkW1FYJFvHtheIIMSm8qegXhGkVGep5plQ
qNywpUbOmkJ/QWJZ1CYRuB/eMOOqhggOLpVfXHVIBHIvmY0lxiJYe/E+Q+Ap
BHOpotu2rkJotYyjUoOF0OOm05sRJwRpu4dBBYuEQJN8lM8TCGA0deGh9HoB
XAo4vuDAPQHcVB1tMrESwofwuDBdEyFUbHRZ8FJLCNvuet0ZHRZAMz+o53ix
APx9lZ52pApgQk60NSeOD7saCjNObuFDnnTYzSF/PoTPGrz53oUPHQlSGvCE
D8pq19U8H/Ehej37ktI7Pph+Pvzb3Wo+VCXWiFSuCaH63W+vynyEEHd7bfNn
Pz6YqzMtSh340HA6cGmzMw9a8pX4bco8uCrvuvzWOBfOnVjj7GPLhZm20ov1
m7jw9E1g/P4cLnAZktEKmTyI06IW5d7lQXmyZYSpMxdkx6L1tCO58GLVv4pb
YqZgVV7XqldxUxBnp7qPacODv5qk6E6KPIhSSt5G3zwF1Y8ams6vngK64shn
s6lJ4HJ1dniOTIJVMj6/lT0JJssOWoPbJDiy/tQ6O8CBiMkjRdHZHPBpDeg8
nzkBTt3GSUt8JuB8b2XGBZdJSIhJXGzrPQkr7H7cob6SAxzO40t0/gRc5FTG
uo6Mgjv7ctROaxbMhRnas16MQV6PZu2csjHodX7XYZfOhpbl1xfWp7JhD/24
asz9cQhLHDIodhiHDbx2zix9FnDOLGkdpLNgoj/+jxtpbDi1MpFzNpENfK1b
9mrDLHjd68vfmMeCSK+DR6rK2bDQM7yB94AN195GeivIseDHoBOZIt4oOM33
EM7dxYLhAKU6KT8WVI1sPxi4kw3bbaSGDXzZQLrOGY2psECoF1jbdZUFMeHv
c9Y4M0Ft+aq9yZuZIMgODUph9H7hXifVgXZ5FgwEadqbGLIgwdc9on0NG/Q4
hqdMV7KhOsOrosp/EPZIJn3qKxqEmUmjPxdJ9APvsQZdgd8HxKLAecKD8YWb
5rr7xQwwYLjweic3nfGV3kc7/1ArHIWSDsk/jr4ZAeH64Ul1BvMLV6nlOHlr
9oODcqsO72UfiMJuOszd+vELBW/sf9WO6vq//O+/li+kpoWV3csn+buZIKXr
MJb2KxNqBiblnY71wDaXxn2OGT1f6U3v9y02BuWLKpgfwTmPYh3R/+sr/enx
rXmn15tcj+6UqNSvVGaFZgb8Mlrxrf7zH1SYFZitrfyb0+vWtdGKDw/rV/7N
p7JHR9rc/sd/A7ejyuo=
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJxlU3k41XkX//0wFSPKVlmyFuIW0x2NkvOtSwvDjKTbIkXSWCKNLZVJhbGM
9ZVhSJZslbiEZFxF4qrURRli3Oyu/Vru4t7f3Pd53vf94+08z3k+/5xzns/n
c87RdvM7cl4Cw7Bgcf4bdTgXbuXYEUDSJD/qeImh0aik7IxxDOXh/InOuzga
k8n3dtbGUP84QheScaRQE1Fir4uhQNq7u/OmOJL5pllxUJWAUQOaf1IfhpTG
dHZfzSCgYH7H/H55CbTEV6u/I42hbGrgtcvWONq7wSf9SjmGGgMx2+IuHFHt
FULamQQsPd0SZvgER3InPTnnkjGUQwysUvLEEXuEdXSygYBA8/jzNq44gp5P
0SRTDOlqZgvsknBUe9WlYOsDDHXPFe1mqkqgPU6GbOVSDOlzW33N+DiKq2c0
0O5gaKMzI1ODjqPCPYoaqW3ieW+zVZImcTSyz5kaQ8VQp3LWUeZLHDkee3Pr
JI4jZdrvTy2YOKo6PRjEF/MpcPt++o2PBHrAZjj7K2FoUOeKbHgxjgYrmiX+
IGEoof32VMt7HBV3/6DbEIAh26XudfUyEih9RULDI46Azf52qyrE+knhv07E
W2PowTRtlBWGo+OSAVFmYn+51juuf3sPR9WMO9HjThiiM603eT3DUWAha+Pv
YSIgxVH2Jwgx9K391onNFQRcWhtwY3YfjvSJvp52XQIQ2fu1VRGGOI5e7fQy
AhbWuA0pxeIo6YRhlqyWeN6pl5rM0zi6odRAjvHCUDMl8qvgUhxtoRvsUgvF
kMKRmIrGaziiCNoCBvwIYOA7Y1oFGLrl5hJpkCECJ7WstPR2DIUMdwUbvxNB
d+vpjJZgHL1lcNQll8T1Jr/VlFRhaLuXf49vpwiab57l1KnjKP0JZ81rrghc
Xl2bNl6NI/VAYc5SDAH15CAjKyUc0Quft78/TQAs5xlYbMNRWrTReMoZEdQZ
OXpr+2BIMTzyL1lz8T01pJlcF/vmKEW20L8thOXLKXv3R2JIwqlxb+hbEZjY
NExmifnEG6dcb+AKQVP2YZStN4bMuRswd6oIeJzJhYkODIU6OPytny+EmpKs
LDkPAvITY0k9gyuwjeIpHTxOQFjozL+KpYTgF68RMxkivlNUs4nrJoReP8W6
+WAC+O/NagakheBUk/uJCBTzTvPAHlYKwZ7WVXVA7OOZThFfJX0F4rmypt8J
RBBNNemdfsGHH5Lt0J8fCKiRG67dTV6BhTitqcPiPfdFUT/sbBJAatAlx6o+
Ifh+1akU278CnydVf7GSEP/d5WCT/JsCeMHot/hJRQiGMvgo15sHl0HLvrFe
BGz384/uLwmguD3qxKyDEA7d9zvF7OKDfIG2rZZYd7MDY6T2Ihd61umxyi4K
IX798IY+Gx5U5l/U92laATOHg4VSa3iQuaU4FaMI4NOqU39Iv+CBHuv7H1t4
KzBH0jc9bM0D0Z5Lhk5zfHDvJPXFJnNBrfRxcYg8H5T6mwK9qrmw0bM5MX6R
DzVNSqpPdLhAMngR1CbLB53iUsnlB1yYSVx95OtcPmjd5VxgM5dB01adVN3J
AxplbZj3N8sg09tctLjChQP1ZaYJDQvQ+Ty9kjK7CKcqpfWOCrnQu3CzTm5M
AFLxcVucjRfA39LtbEnLMhgd001bjOKAb+lMxRCxCE5WR7TuMDlgaWPKGx1a
BIvws9439nFg5pz/r6vKlsA/y/7kq6Z5eHh2biH8t0WQM4kYpjbMgXatpOOZ
TRwYERxM6ns8Byknvh4KJXPgkJTE7Pj0PDAsXbny0xxAHFdFJ4M5oDST07a6
zIOFfm7HWN80bDJ5bEOxngXbwaGo4y+noP5YCysPn4GmECVBYi8b7Mzlm6W3
sWFvYHHwYxU22HR45p7XmweKlwztsOUMeDb3sb2c5mCH0OwiDbFBoYBdsbN9
Eh7dHG8Z2DUGKfcM9Kgys+D6Ok5LjzEMVROtGY6y0+BBLYwyZ01DHHPl2ErC
DJQXGBvtvjUE6i7vaPE+w9D6WvfJ5MgsJPe2Db1izILa1kgmvWAYbLa5P/U4
OQK1xKhhxLN+4LCOmwXJjoHC1dTMnHVjIPhOoUiDNwVlyh/cbg9PgYZbmd5s
wCzw2GslR972QdMz8n7KPRZMq2i6ltSVg+uMf6M9uxNSKZoHqlMygRp0/b13
TyK9RFVoNbjcDfQYxbhxnR4QXcn+UdGq438Y5e/eNP6xgE46mi0V5xdNz7AI
4Xyc6oCD537qf7jwEXCNDkfe+kb6jYTV5JCdz+nY/0Wy68HKlowmevL6n8/5
ru2k7zDZbuOWVkH/5eld5XRWIRzI1luS8y2nR/yVe8ilKO+LfuI/PP6L5JJF
xeqev2EzNWLitv5nyNzFHujKM2kwSXfuyan//EX/m5TtwZYLNfSc2HDnttB4
+itbqfvPhmh0VhuFUW7Z+EX9P+xvj1s=
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          PointBox[CompressedData["
1:eJxdU3s01IkeH8qmNq/KJuSZiGlS2s0j93NtlpJxG21pk1m7oZMk1yzXqyLt
HRXVkEXGo/UqtRuJ3c0yMqSySNht9UAeMZcZZub3mux23X/uH/s553M+f3zO
+XzP+Z7Px/rLE4Hh2iwWK2KB/9NNa5p+PXKbxgeSm0nDxhRYnntLY55qYO/+
ILQ9UINTPEqoUNPwsXH0OtlEw7fvmdVXUgqf/J609n4mhek2sUPPCRINqy+J
+oNIHC8hPNSnGRhZTVeJG2loxY2e1upnINSkhLPWMuBN3Xg6Y88gW3b1P1fC
GQyxUvk3dedRrdrmuKtXg8d/GzDkH2Rwb+P2Dv87NCz3Cntgy0AnIDnlO0sG
Z36qqr1qwKDV2KyvuoiExYu4hE8KGRx2a7s0oqTxZ0vWgea7GuxnXVmn7cEA
6uVxqxIYbE49YmfHYZAliNayOa5ByzL+Na3rDJoND1KFHQzEUXXpOmE0onmy
bL20tzjrwY3kGmtQWx74Il9Aw5vfXLc2mMa6h5yIoWIKpDg/YeUeEqtzrd2F
8TTYV9xrKpwZtO2LPRv0hwYDBtlt9hkMDPZw/JW5DLxPTfnPBjIoXDekza58
i+4XOuUrWhlIhBxT6W4Gr687uvWKaHQYWnnn7tTApu1SYIAjg2GfwlCNE4Nz
KSs8wpbSMF8y9E+LdyRO3YooLTAgEVe2063lGI2myRxO5nMaLvI99yIsaTz+
7OzH660o+Hx2Yv2DfRrwXGJCDVU0uHn6LhoTDW6bXvWp7aMx+16x9lHTedj/
+3DuQNdbfGfJTi5Kp/EmufKV4RkSTrujBdYtNOaPxg+euUEhZQmlr7/wd5/E
htpnDQTak33vmiz0474fx3tmjMJr1t/L9TUkdES9OlI+iQjrozukfhQyHl4x
smGRCJj0CpPb0sjR/tauIIME2z1y++MeNTZNfz1SWKCGga3doKySBs/0Y+VW
Lokv/bttdpTQMBPxts6GUIjiRqVORFD46tKTq8UHCBRUaFsci9XgmpHu0Bld
GhtrRoI+l1FIM9cTlU6TuNBR/zAgj8Ze4bv86nUU7mRe3sdayO9Pe25pRpD4
havv1+pJQVySbT5ymMAK5vYTezGNmQNltqwfCJhF1w5kJNPwK97hm5NIQlFn
1c3JIzF/eVYmSFND2PsDp+8ghe6EDeKaawT4ap5lgozEIr7Sb8yEQKK/0yH2
fRUM3nhE1KeqMB5n51R3kECIqxHLJVoFgs9N3xivgdxB0PQFRaGg63gNGURj
oiE24/tGAjHHIofApvBIuTzDNVMF1/uCcjsfAmmP/mxTMkq8upb9rxA3As6x
ZnqtcWqwLTdc50iV2HB+UQPjM7ewp3GtEFKNOcev9YMylRjWc7hsfINAve9b
acKECl6a02Px7mr0ndzvW+g2h6SplI6MSBIl5wJ1FnurMSHNN7GeUaEpcvnn
h3bPYVnru/fyekk4dPKzHXpVmA+fcFB1kniQVfFjuY4a+Wt0e/flq7BjU6pf
CWYRULl4+88xBDaJvEZjuuZgWnrIfPSEChf7C60FL2dxsUreuTJVgQ5FwfPB
2De459403LBUjrqHVhe/b5/GSWs1W6UgIG/sY5fmqPD7xX+8/3LXHCaqgmdy
babhmfNLt6H/SzgQW6tP8ccR3tmjtTpnEiMN77QmhibBa3cN1etRYFedZ3gZ
IUNhccVrJ08ZFEsmncuOvIHywsryKqiwOs873OTDaSgS4h8VdyuQ9/qcGXuz
Aiqvov3ZlUocrWzSthyXY3zAqOhIjxwJwvO5iRdmYDQvSFqTpUDoN7FbQs9N
ISpYw3XtvoVtjzqDhbaNSPJwvcOvG8Xdvs2CeOEwzo6IrN9/Kpasl0bxmvNr
JQUxS1cY1+QjvDHe/G5WvaR6W25X+swY3LZ0jYsrxqATd6t6Ve0DpCgVMXWu
d/DBzhAyNKwZOXI6/Q/xz+ibkxolVr/Eooq+V8ODA2D9BctmbYWjUy34LdAl
xJvX+H9ftN7eYrHIGB+t3NU8E6GUcM0Xx+3cLJNM1Hv/9uTXLS26ZZFrS4Lv
4fyn3Uv2xM5LTsu0Woo+UkpCPZyt+pNuon2VyKA3r1by13tmDk7PwuycW76h
LfabSgcl/wVd5DOs
           "]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm],
           None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )], ",", 
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJytlHs0lekex3dKpiSZyCnVpJIue5RcUg1fSQ3SIUZXCkWXY4ZiWqKiQlsk
90ZIuioOu4siKdpKQi4pImpClFx22Pbe9vO85z1nylnLOrPmn/Os9a7Pet7f
93l+z/P7fd9X09XTzk2Ow+Eksc+/maUV4VL/nkEiv2nH5GYGrhXVqd7bOabS
Ubv9a/dwTHUyG7X4kzmmMS0Hw5Q1OKaRi8c0D5Qz4LZOyCl+xWC/R/ra+ey6
UmUVC+VaBif3C5S+8aNo/y5DLDxKYaBNf3R+TPFwRvn89CIKE9sZurdTKEpa
VDddvkNxWfD5NNop7i1fkuAjojgsJfkKuxhYGJddXGfPoFG+fbSNGQN5r9nn
RWsYOM8/En1pJIPlwdtW+M9hMG16RWtnkQzFRrPytWcRZE1e4St9wwCRO4Ji
mhj49GRn5scS8FRPv1r3hCAte+lxr1EMgr5J8PFTZ7n1nUuKK8Wh30KzH3tQ
jBfNzs08TvD39NgphaEEehxfh7BzFMHK00t33qB48/2ZKf7sPKx+nWRXKkXO
JBvuMzFFR/FrQaqMYt/ZMXK6LQR2UaJtve8JYtav9FxkyGCZ2Dgt1oCtc5+w
/CU7zz0tVuctYzAvrGtz42KKyplST10uRXLOsennJlLEztmi/8MiiqSR10Mz
pnJMG4UrLdawfSistePf9KbQFgktqDXFhwse43prKcwbzsv8iymq1pd7xIxj
YObzzMhRSHH6YKbmzDoKw+U1o+KrKLy0Ze6a9Wxf5HO3GVeweXaamoziM/BS
Dja+zTI0sOBRwBKK/tQo5SJ9ipHXShys5BnU3T6fkfSGYuDeYtmEjRSRjqox
v7BxroNl9IouimdLqj4osvGrPK99ZcEUTwxvqnmFUPzu5CoYx947Ui4uIl6T
weqQc7s731IIRmdoyF5TfAza5RFUTLB/wGCWpJLgeHyXtXMVg5sG4qm2TxmY
dprM7jahYJLinExmUZwo3dApriAIPJQmSXhGYB9ne+BhDMUDM/fxmicpbq69
kq3IIbiv5shEjCXoDrgokecTKAcbdvols/1PXWxgVEVQEz1JUHeLYOctZ8PP
ewms3Tc/CtxNsL05LMpYiwI6bm032D44rZbUjRuQYaNffmNjkwxCxxyXiAIK
MwhXOLH0F+9rPbKMIn/7y3AjM4qms/n8WtZPj62ua1VbUjik3+g+kEOwLFmp
wvIagdndC74jPSnWrjZamGVDcSs+IZ+bIcOJkCXtWf4y2GSkhLiOYvdrODAS
rH/ODF4KvW9DoJ7+MW+0OQF3u3dJsR5FWnqnHHc629fURMkxHluXiTeSC9dT
9Fj+KDpsSuE2996DRE2KuulbyvLZ+m2K+TTgqcyex2W8jg1fhvNmGr9GZcqQ
F23L6+5j7xmud7e6hcLvoF7S2hMUwgbvA4LtrM/m7s7T7aeYsHsgsPody8am
R3PGMHDx/D3TuoPirt4/1ez3sv4usmrpWMvgV5qyQXkPg6PcayFW7Pf6etXf
aqgeg7hmJ37YVAZlsap+uaxvvRwPPXe0Yutc72pn303QO1YWkSggSIy6d3Ls
KQoLrSln7hxk/Wm/JI/XTFHQcy+G9lAQt5KlCp8HcSWoxkHu0yAq5JREy+9T
nPEfMcOH/S6zstuS/Xms33K4Ptf8GDiEtjjOmEGRqfdce5MCRcwp1aLLHwjq
lxccrXhK8D79Ls/IgeDqkdpDCusISqxtL5U3yBDJdAULa2QoaXuMXTICNe/g
2KUfCSwq+9cosP+Hz6HHNTaEEFTn63tUziOIbp9jFDeZIC/fSWNzBEHjMZOt
YP32wO5wadpMgrIFGaWnJhJMuni7sJL131sFbgS/nYD/kjsrR5dghYN5dN9S
gkyVY5dL98vguO3hDm93GSbkJlpoZcuwRhKeFS+QQWBQKd36YhDqqj/LR9cO
omamXUDGYSl2Gq+6I3GVQr/D9XayowzWb6P2vt0kw0+rHwyssh/ElNnaydHO
g3h5Sffu9+YS8Bb6mqobSjB/Y6xNrKYUc3gLHFJUpFB7mxBRMG0QbXmG/doq
g9jhpksRKkXUuTe5KjxW9y6712yrFOEeR3DWQoql2r2dr8IlCJqb3P1bgAQu
0b78+wulGPfO+8XFBVKk9U164+EmhuqqPvUdzmK0Nly5ENgmhmgsZ3z4BzFo
pKLrRjXRECvkM3Xs5MRIsXT/EKkhhmXVk6sJrf2Ia3HLTmrqx+d/lNaseiqC
1dz6crvnInRd8NWP9OsfosGtEbcyLw8goD+m1fL8AC7sibIXG/WCFLqH3FzQ
i9VXlX8pbBdBOn9h7KQeEYwrdfosBvtBpqULjo8VQVPtWyfnn/qwZdPRqq1a
fVDR0gmyqu5HUZzbgrqcfmzUXankIOyA+8/fVV8v6AB5YROvHdo1RL2y/f6H
tvUg/Yji6Sn6PeD8Z/yXw/XUsFs89f2nIXo+snUOu9ozRJT5KioqdgyRfNF9
5fD9A240n7Q3Fw7R5Mu6rxyef8RK/gaR0/shDs83/HycL7qvZA6k2E40b/5T
0mH8I2/TEP/QPR/i8PjwfPSLjv6J/ut754Z5T+f+j/jwfJy/GP9v/fD4X+mV
RBWQ13yC9G+VDt8xuYPZEZU/tO1cVPCV/wKEKuY3
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJylUgdQlFkSfk8EXQmCiAISdhBREUeCDiboRpSw66AsScwChlOJA4KCCwq4
gAmUlWCAVSSsCQMIRxZcWCOCCOuigEjYQuCGOAzMzP1XJV4VV1de1b2qv77q
191/9/d9j+Xm/cPuSYSQROb7Fxo49Q9KrCg+bjf2MX5BsZRlXpv+PcULW02c
I+IoulTyfp19nGIv5x7LoJuiVkSy1E4VioOKqUXd5ykWdx6/1MbkWSe0E3t1
J6HAJczxVAtBgzuGsrVIUanglQr7N4KbPvCgQJNittE0urOboJPLjHs9Jyn6
J0itQjWKrjZaO/TyKV7jnMqwNaBYc7xveW8BxR8GlFOj0wkeOv9TehiXYsrV
KAuj6RQ3+9/RNiqhWLSf9bxDm+AVqbJ50WUEt0Zpx8trU1zMEexfnEnRpvQb
D3c/ghKHG22h85l5K3882+lDUSZ+V6XqQ4aXgFN4rJ3gWfubdlGpFF/sz8g0
ExIMl5TbSB+mqLBCaqtOHsHniZ625YcozpOenaE0TPDP0rVDJdEUCc9OuqeJ
YJm21HbV5YwupusSJMweM2QqLskzujZ2nZBPryQYM1k9acCS4uiGlnA/GYqS
1DPddoy+cupJFVPeEvyOHXfAldE9zSyEfbSW4MN3T9KDmLglpbA3Vp+iyR9g
KsqiaH8xu/veLYKOy2q2r2kmGFIV2SNRonhFx03QGkpxr7j5vXMBQd1ybdl9
jK4JaXtKpjH8TI9aKBrYUhwRxvDynxCsCy+VKnOlmH+aZfitCcMj/+pIxVHm
PyrOodNvE2zQkZVIZjC+1PqW8tsIKp9WCHq8g6JDqINZ2mVm3/yjGi9mU5y1
6Sm5f4pgrM6SZM8OgsLoG3P6Axj+vMyDUZ0Eja1NmnwYPW728aCI8WVZ9duI
pgiC83Tlp/RXEEzKvXLaeT7BxgbVh5puBP11A6b4dBF8fMfdb3QBxT0srU4/
Zv9I62TDV4EUkw0tS84zehJj5XRNPkF5b/8QhyCCege/VWy5SLDpcObPR/YR
PDZdT+YaEz+qlrt2cRNB62s3vR6fIXiut+h4gifB/mL3R6YMD9UzCuuftRL0
mfJ6paMWRXMndlT+OoK+Rf6sphCCHiqcFTp2BDkDy4Ujocw7i2hODGT6pHKD
pVk5BLtGhGxhHMHec17nAn8nmHlU1TJckeLlhRn13isorpqjZTr1HcGVz8wh
lEMxSk+Nu9qMYJt/8uI6d4LbFu0RRiwheKR62oKhtQS9/sHlKxwgWOwxL/4B
44P3yVOKeRbM+5p1sMCO4eHfrbqUyyb4k8qUHenrGb1POGk+SGD88tpcX828
C/vGEwb69gSXBKY18hwYX5SqDt+wJXjCCDRUeczeiW9G+gMkcMX98mXRRwko
PZKz0LUieLdRbGqVRfB+Q7FSbiRBt79mZphnEkyRLflm6mKC9VPPzjrI6CJn
OaswluFvPfWk0/oUgq8HAnZrrSG4tFUrp2YDwbXhapN9WyRgJ1BQ81Um2Hzg
gtXuOAmESymqR76UQP+kTy73R0QgTFCsitYTQ2a2I/euN8GR8gv3HAMJ5pm3
6T7MFoPcR7/hQBkJgPk+Y0clgu5pc7znahLsuNq+plSF8WHqrAinRQS5NepL
IF0MikUbMzTyxKBw3IU9J0MCz84UVTe8l4CtiU3PslUS4Lq9y9XiSiD6khm3
CyQQYbKVs5GJy/elq7ffEsGCItktO3tEUHV/deevVSI4E+Bgfv61CLI2LvjO
bZ4YVkrtOXd+jhievLFtDosRwaKQxc+rfxGB1UVXzyhjMYh/zpb+3VkMQ2eL
3esFY5BnMXO/xwwRrNC96pPYMwaZgzODgnrHoH7+R+t1GSKolpGyMSsXgZ3/
ornpWaNgu3XjZPc7o3DjUuiPW9hjcF3z0IZ+tTH4yDb8LdR8DPQiKuJOh4zB
aZaHVXGuENTNPWz6rwvBr7AxaemPQogVsK0jTwrh/SmXghcvRuFQUlmX57NR
2P4qbJ/MTgHcEo/FFuYIIJDlnxPy5zCI7ZONWj4Mw7K9A+qvnwqAV6dp390q
AOuWV7fmcgWgq8/5tDlIAElq8UGx3gLgzNiSsipKACWJro8adg1ClFPkNAuf
QZD+40GA5u0huPLXWtnyX4agXZHV/XZ4EA5bZBU/EA7Cy825CwYLBuBtmGb8
cNEA3DnmRNclDUGKsOau8f0hyKp3FVQuHYBgU0+/XWEDQJ/8fbrwCR8y3DXW
FUj3gWJvsbehNh/48q3cW5v5cHDhEXu93D5oT50eHFbTBy9dmi7UWX4CR/km
s8rVn6BZOaZsr3M/fP/m+oiveT8sXBHfdS24BxY2JxsOe/VA8UOjuGgeH/J2
Pnow7MqHZq+UnLwUPshplBnsus6H6qecQsfmHtDndmh6VvTA7qpu99t1XfDh
7lh2R2AXsGLAObCgDfSe/q0gZlUbiA+nbFRe2/oF+an6t7kbOiCnU0sxeHLH
5/vaL0gts12GtrV/QcnnvnEkn+/HUZwRyLvc3vkFRXUbLsyPfv8FR9lSwTr5
rdDw2GRSmu5HEI3X/Zf6ifMm5sd5tGr49jXG/GeeTDiSz7zGcVt9fFpl9pLS
cZxY/7UzUa+J+L/V/9uP/3f+1+on8jfWl3fj1BqWjuPX+v8Jq4r7bQ==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJylk3k01mkbx69HCRmTFiEV5Ug01hreFNedJU+Tbciass5DGKIhz0i2RllL
ZetFM0SSMlGjPZMspRfRQlrIUpYi62N5fr/5vfNG5+h9/3rvc37nc859X/d1
fa/vff1WufpZ/iAAAP9kvn8zg94/EjwBhJOd0R3QC8StvkCHy9B8232upDCL
/Cvn61VqK1lERNEkrkCCRdSfeQnnxAJZeyTR6RgXSNGmBNZKFotsNq4O93wF
5LR06PM7AUBk2BWvTIKADF67M6BcBORjx/HLv/8MZLXWpP7WTCDh5a13E64A
MXoS68StBRItWxwX8YjRUc5rrY4BUldRnyt3kInTPtxpEQxEubUC0Q1Ik0Sm
5kgKkJXflVa+PAqkIK1P+JIxEGPHfdeyDIBcOSE9oMrc/7DRWrIvCciOfEGt
kJtA5n3lpvq2GUive/RqugvIxkIZr7AeIFutkruXVAMZM1tcK1kOxHGNtVNo
PtNX0+7T6eeBwKi3tv5rIGfZ6Y4pt4HsuyHY3ZkDRLwgb771GSCWlrJy3mwg
9UPO5KAukN2jWy19TYEcaPwlSlAHyPnIzCLHi0Ce3JM4FlQMxENVfFH+ZSBR
uGF9DpPnYvYjbr8NkKTONNurvozebGPc5gGk0GqZMccFyBo7rq4zBSSww305
vw+IMzmzxsITiFmVmOgOxg9vlaZA4xdA9qQFbIh4w+zfXytZfwqIgYddgeEB
IP6L2exRTSAVWlyOAqOn9MFapdJjQOSXvvRFLyBtex10Q42A8BNWcG4pAJkf
7zsitAHIgIj8YDoCsXl8eirpDhB1l9setalAlvvHeS/XB0I4C9lK24EEpc75
uOcwkOBl183kGN8v3RivubQaSIhNab64NJD0hUdO3LEDkuiyWDjSEsjekls1
fGcgd3PM5vozdbf/aulSKQGk67KV3jsBIH3eJRHVykAWqVrXGAgyepu7pGrV
mDyYvytKD4ipm2/SthVAztja5kkBEAXBTZtlFzDz8HWGwx/izPw1OSq0bQGS
L7DMo1QSCNsv2CHiFY3zVCp6BK/TKPXetWaojcZTbuzk8CM0yg5MTYkN07jC
8dmbN9do7E++ovGE6ct/uHXdVRMgERoDxSpM3bMZmjZnljC6F2lURnKAqP0S
9eNh5n3ex/Oycpl5PzVPaL8209fRmh3WMnsZn2xjbtUxfi7NrSjcwaVRJLJK
5IQLjXKPa8o0GJ3ZCT6bb5XQKNPz2PVcHIXd7pWHfdwpDIO2gNw/aYzkhITG
X6LxRf1zmx49GteqrGrw+5ZGhbO4YlwOSO55SnGrEJASJyKYWE6j1tOX8pQ3
jT4hf5jPZ9HoIdBgb9pAYWHl7SU6V2nMkL4fePQks79Ppr9fmcLMGr/BMUkK
ZdTp+Cp/GvX7097l+TKUpxVDxYBo5TnvJCwgtVNzvOKZ/89ae/F5bQsgDf5W
CSHM3GwyO1SWzcy9bNm935R8gCSIzv3pOeNH4k8885+1gdgvOKoZx7wD58Of
6UKMv7pKui35kzSKnkx5e6Wdxok35bu5TP/fvvQ7mcDoDpVUZb/bRqPXfp3n
+QUUbop/fTEjnkIV8+YV/R00ekZL70qvpLH9td+OheIU8sM9fZTf8vE35VWX
FzDvGRxepVBfTaPSU4kD3nk0jksMqF1IpDF7jrKiqzuNwpzHmZyNNDqG7tbL
4fBxAZF4m23ExwsPNjwcC6GwQ9djywYTCpMaGgM+ZFFoFVKdd/AMhe1GgTcy
tSms69G4flyVwsHo6HXVWjTCvEq1y8uYeeGGLUpZw8dOsauN6+T4WP2jrZuW
A4UCYNQUZEChmf/mV9ojfJT3s5B37uRja1PsgzVXGfpLttiV8nGf5zf3M1wo
5J3qEttiSaG4jlmqWgqFXEPf6pgYCi8dtS8On0uhfVze92dZFCZ7kaYx7SlM
tizUGGI4eqz9mW/bFEZ6fvfaew4f+b66hcfX8nGvcFLt40V8lPLQibj3cBIF
Vd77K9ZO4k3dxoaUrnEUi9A0MH43jvtjY/eFC09glIB488K2cbS36r/bJDKJ
vhUqqzVXT+LwRtOApTcncL6hijkrfQLtpZu4y5rHcTjqVrJNHXNfpN8+ad4k
VrlGBoZJTeJ1k4O+7EMTeF+a/WIqYgJlit1bd/rx0OuaVpE3Q8qiKPA0xcPx
haakTmAcO4b2BnGiR1EpMN/OJ2EUl5g6XPjhHQ9f5/6jJKKXh2Dwu+3ortEZ
SlU190ikjCErJzXwbtYYZu208K5THEHjguLOldojaJIY6sleyUPt7nuKDeI8
fPrr4Rb3oH5MTXseEaLfj1/xBO6a3BnF1HOdh26WM/Vahd9Y9Q1hb9vwyxe9
Q+jhJNsitH0Iy9xkrNO+H0Kv5SE3NukNo3rJ6CPpucOYvp4btu2bblw3FB0o
LNjN+GThHHduYIYPiuxkhFo+4B7XYxoVfR8Q/l4DM8wy7LCPtRmcIaXVz1ve
1TdD/izOPtd7GCwqKtqLKeUtcSJuvRhW3J5gZfhxhrPrsf72rWuG+On+NGef
T+ffPSjgVLC+94t4+BQ3Tf4T8xTFmFczpLmnLRYbts+QmsXZ8TBr/SeuEac5
Wx/9af9/cbpOnkVIjENR+xf5/99lfC9W/Ia/etk0/3v/n/XI5WdbmhSrl01T
U1nMVavxM3eF6b49cvYzi8J6jcKfPcHc29davPOzvsj3F9lQSSc=
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJx1Ugs0lGsX/r6JDnIryuVXknsUya3U2a+GSiUkkkui2zk5kS4InXSSlKJ0
RClEhxTJpVySQRK5VW65jzH6xzByDTPffPPPv9bJ/69z1tlrvetZ77ufvdd+
nv2qefvtOULBMCxOeP6Lieqp93tdBECODaWKS+HILOxVwlOmAF7qXQsIZGDI
sbtVKSRJAItnzMpGAnE0dZWt5q0ogMKhcwGjOI7kqITzeQUMHVMjCpMDcBSk
VdxVLyWA2k7zIM9LOLrlcnqs5KQALOkWXYO/46jSz7jAKZsEeZGCguAaHKmX
Lx97HCCAj2IWfQ0JONKsJl61DJLgZXMnPFUZRyfVho0+LxVAnnvV6A4HHCU/
5sb5mpLwuiPbXusVhjQfsd3qPIX11OoNR7biaMiSsWlyggTjINdvb8owJOo0
0F7eIwAVb5GFSkwc2Rs7Qc0qDFU73Yv3OYSjVA9DncIuAXy5Y1+3fDWOKB1P
aJpzAuDor0PBz3BURImM7qsmYaA7sitZyG8oNihdcEoAO7pVX67eg6OosJy8
PJKAo+0S9T16GPJwKkChxSSQPNdB6Xc4WsMIXz5bT0K+0/5GhiOOZIrI8f4q
EvbRjZiW2RjSDWJ6r1IQwL1A/72zqjiSOO3XePs5Cb+MGUWkDGPIq2Sldlas
UO/nyRmOH4Y+/lASm2DDB9H+yx6VSjj6+JvSpgJPEjoVx7VimRii9siuDtUQ
wK8eCz54dGNIyUU1X86KhDVHyzapvcYQRXdsISuQhD94g35PpHGU6L+XFtrM
B4/YgEluHIZMBNIvfG1JGDeShrgCDGXXG66q4PDhzI8JdEY6hgJrzsSoPiTB
R5UUP0QKfWysbayg8kHZdWUhnyOAnw3NXaQYfOAF9n0+ex1Dfektqwk3Al7s
P5spr4ihHKmZUIqO0I+CNr2dV4X6jlmSE1l82GtDrpQIwZBBpahGPUFA9EzV
e0k1DOWzLPIzg0ngmMlb4x4Y6tFtkwm9RYCqmzT75SwJB8dhXKmFD+PjSas+
ncbQtBzjeJ0xCZdaBy6LRmOot/vtiGAtH4pE1d6FuWLI5mCRZzyLDxKZ5RQV
LyH/BNNOy4UPJxdPqxwS7l37AYUpt40P8q5tBobyAjhQyNJ36OfD+7RYM54/
hkCPUxMmzYfbCQpUmz4BvGd3bhRlEWAyEyWTYosh57GGOLKNDzul/n2eehND
ab/q/GjwTugvz3BXuDSGEkwe5GQ7COfJtB/eIC2Ap0abmzdsIqDj3WmHJF+h
Lx0X0g9tIEA011nekEvC8pgDvbsbCTjoenhpfQYfTNeFd5YK/1e8r9f9nVcw
pDxDi+7RJGBEIiPfNEDoe/KiuqN7CVicST0Wy+VD5bH4496VBNwOSa/e6S+A
FbnnS3P9eLAke5chR4yEpsQEhccRfEj5uky67ygJC38KqmXxuLDFbZP8+a8E
KGVlod0pPGiYfV0WHk1CzK22Nfo6BGxsG9LPeCTUUUWtDCS40G72osJbOP8i
36zXJ8t5ENWYZG0rQQKzq6Or1pYLSsGKFVZlPBhZGyxK28mFXapkjfYhHiys
7Puho4MHFE5khwibD3UXO8hn/bNwZcWr28/WcaEs8sLwknQe0KUlYhIXEFB3
NqqS08uFff12WzxPEeB469NUbsYc1KiIZpY95IHIIvUFN1vnoD1jfa67UGfw
VQ08/fMc6Imw2YriXLiYLO54ymQGlpasaP70fg6SLp50pLtxQUKyh2rUzoOb
wwFXGBJcWEhvMa6o4EFtzttP1fKzoO3j4/dKbBZyao3MN6bMguVxyeMcCg8+
r+W72a+fhTd2esZOYbMgvrKtJLJ/CnIt4640CKbBJ9FKa33/N6gbjrDNE9YV
M1XO3Lg+BiLEpcuY9QSsbtt+7HnfFOg/+qMuxnkaWDIfHunoToGHu6TidPYU
bN8YdPt27CQEe21yostOQR+60SJFHQPV5AUPhqy+woEvKhHxG6dg/0eWRrrm
NIznN0WXD03CWGmpaS1nEhx9RlMWOXNAbJtW+sCZcZjcGLDLhxiBJRREXdrx
FcJ/yWodpY2BBd08eZ3pOFRoPDiV9noYrCbuurltnYCm6//asq9iEILCmlWd
qF/g9LV2rvbaEbBOk51JXzkOTR+fzU38OgnJ1yQuaVlNwtbuyzrvO9mg27g7
A4TI27y5xOwgGxLVH5euSGODS08oRVbYv1AyZkg5fAhKRuqCWtPZ8D6Eq4ES
R0A/R0th9xM6KHeKSSq7M8DcGZ3YKsqE9NgCvQ31TLgTGyzV2NULVfq31iyg
9IEGNmctEVFD87YJamNZvaW1q6AgKcdhwB1Yz9icEZiqLx5dLkMDA8naI3ZF
jaD6LqRgIdYNOyjuW1LbumG/wWFz3ZXV4NnTHpsY2wQ3TBef7wYGjJbwzJqP
94OX+Q6WklcqeBtqqFyw+wTTUiomk97dQF3D/PQ8oxPozzNSvsUblN9orl52
Km6W5niiWX2bHxP2jhvfFZNjAr/V7o721d55xP6M7RY37+VEvAH7wZuPjB/0
wkDCb5rX+f/L/zX0Yt8ueetXBCyV9KyHtD54mmHTb1VIBw85RwUzRwYslzt3
mLmHDeS5ZHs5qwHIq0rNy8wdAO2uspDANwyQ7OCWLKtk/Jlvnsfv/bN2uDaJ
G0fOz1l/ooYTdrd3nqfh7UKb+j++6GIpBu9KGIw02Pwkg1rg88P+3y14zf+o
92CUSFLP+jXz9ypCOg1s4yE4nhesjn8ED3WJM4Ri4z/qd9DV9+feOgdSg1pL
Q+qiSte71DrYuOTNz/ckIYG13rrlb/U9Hy79fF24HxMrDXeLeD7t+3ttVOgh
70Z8vh9duhGv8039W/22qmuyr/wNy79j2gH5I8dc6DSTS7LF9xe10v7K/w+/
QmXT
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          PointBox[CompressedData["
1:eJyFU3k01esaFgkdKUNFZSxlaKKicD0NZirDydSgVMYGNCAdOXVKhgwJd3cL
0eRUKNFJ2FuGVHJDGg3ZYYuEvffv+/12cl33D+5ate66z1rfeta3nvf53nc9
33o1vQ867xUXExNLGjv/YacSaSe5agoCv0PzViRQeCBr5FtmR5AUccKrzoZG
ZgZTtzSCYGQkPKVgAw0nOV5NyB6CXbMD6PmWBHr/dOW6EAZl11RGpngwaP2W
naEfzGCdt084W16EFX8+b/qti0b1EYsHPFcaWuH23VlPaLAzv6fnnqYxTPuq
CppoPPjlTJKmM4FyvbdvpB+BWsWiUXtlAsNUFUut+QzsX8s21G2k0eU72f+s
tBDtrku4ldcpeFkteRk7RJAX533EUkSgNain2HFbBBmNqH1TpUQ46n0hx1FC
hKDez8K/ODRm/41rNfiCQt31X4OWK1BIuJjcomtCUFnbqHgmncKOlSqDq4YJ
7DqePG/tpHFF7fCJv4JpGLxfX/vNnCA0Lab06CQa7g5rHAIVCOSFkm1UB8Hi
+8IZz5OF0K0ttlTIoSC9P3xvdTGFqPMzenpkabgFmmSFWRNIsTw9q3VpuOxo
ntOXQuC+0qH2sCaDCN/+M1l3CDY6POsoO0Qjq2XRLNl3BM46+lPM4xnoKy0k
f5QTVFRRHvO7x3KUKlTbtJDgyoGc7HoRhWWsMIVYTQp6hoUSo2N9vG99/qLM
Ishac83T8hoDZYnXJYOfGDhqX2WpPRLh1IzsGkV3Bj3u2cdk2wj+flc4rYVN
cJlKPtgVx8A8Wke9P5PAbw7LJiaRwbKvmoam/gQ+dyKLuTI0Qloutywfq18w
4OEemCpEq0GDTEunAF4eAxL5b0TQmbXVbosZjcNnMozEFwsgJX02XTVEgKUn
b4TczxAhbEe7LjuMxkjClOQQOYKEuWplFp4EOgnFRSa5DC7blMv8mkbjXVqW
7xcNAvPFwtOS34X4lO4176E+hVKRw30PCyF8jcm86qc0zJqt3PLvErB2d4Fr
zsDGNahF7zWN1OOb1li9JbgUapOdrE0hLtqxnFcrhLxGn9TcgwI8pg63P45i
EHn7M/tcIoFXTUHckAqNjtOz9z6UIpCtPPfsVjcDz7hnpqnLGXT29B2aN7Yn
kCw+avVRgDcqzq7WVQRRt3nbqFAhurNmHrjXRuGp/Nthqc0CNHcbnxyYTsOj
MI87w4Cgaque5OuUb5Dm1iorKtPwltlRLnuPRsAlw7VuD4XQOHLWMDScwsUc
rSfx64RYVNJcwHBEwHYXlrs6wSnPU9JPrRn0hWqo8S4StNQ0zzI6T2G+snO3
xSMhInIyiNsHBke9blTozCIoqd13y4lDgaWsXbdoRIjghaEBwnoa/R7mbul6
FPal+1kPbB2G0SXtP01MGTSesEqeGkTDsrq17EbK2H61JV4i5iLMRfRWn/cU
+k4mJYhSRRh9bcpTkaeQImhXnfSc4PTZuUXHlQUo7h8tT6NpRMTeCe0IJdiT
mtQ2J1EA3Z2r6/xM+YhOPrm+RImBumLJsMp0CtkdblIIo2CxSm8401aIKd/3
XVijRlD/JCQ15qoQTJnqgRpbCkpfX+VpX+bDujaQJWbEwLbToGcbTaHpaOyT
e6NCpAcY16zN5yO2YdeWacl8pNSNZIo0+Ogz003T3y1A+4eYThWZQSS+dI+/
XtQPQdVa8WPt/Xgw6rfyUasAs9//rmS4k48jCwK2xLnwMfWKlcPij1/hTKcn
5o7lNOmlnF3VYz4qo50uC+2FYK2XVJF7x0fUTq8E/kUBSBHToGA/hOOR6kle
6/mwPT99ldLGQcy5t+qtS+IQXrUaNdFPv6BHQbWhIrAT27eLvqWqvUOBnEmI
v84nrOittNjA+wTDqy9WmN3sR/extOad+b24a1G3xcV0EDOVhha07egFL3ZO
baHTAHQCDDa7N3YhTcs17U1uPxIP70+bfvwzoqOeruZeH4Cj68swlPTCJvHm
+bCtPIjf4um/ndQJG6+5jmYDPbhJN+WLhXXCftsbM8Xr/SDGuzw9SQ++/+F1
OcaHizuL73nna3Ug4x5rf38+D/8YeCIoMurAucli5/awKuFgIDr0ezAHmTec
w5dyqqD4xbxS7VkXsgslbZar8dCfeaHxpSoPWv5TfPwu9iA8UDj5aGYnbieb
KCzs7cRd24GKDeofkJSTpWRj2g25EbPP88W4CM98ES37tBFN6t0Zq3azsTv0
RvDmD3z2aCN3V3sVnw31+JmbvtUg72tD7yOVXPwrPNNR0aIJnHzF3yIPf8S0
roUzI57Hlc56tcfyO68adf46EbHKXTDJerP/3YYKuLUp+4zu6mWLRZ0ZPqXY
x17duzd6auAnxK/MCrL0eo9fbJz6mpOa2BIhNV4+w/99z8XdqcAvb8tEv9+4
Bzq/2jZN3MdZ+xKfK1EQg7Mzbe8W1lVC7Af0dptFUlnLOEGldueXsmdwftT/
H4w/eF7jpbVhWFBoufhZO6JiVxbVr/0Ev9Jt9a+ufPxpnh/9P+rjLJPaZDzP
4ef6cXD920qdWHk/+cbz8Q5PlmjTt5nw3+ytfvt+e+qEvnJbs4/ut4oJfYU0
3RdspQDv+F2vi3eLcVrKfP1OLRlhj+viEeJ3Dqwr+p/zjEM+ebXURV8xjmY5
21rNbjpn4v+vqi5jcgsQuKlkR1XAEHta8IaGDq0XbM72oS6pW8s44/xvR8VV
hA==
           "]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm],
           None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}], "}"}]], "Output",
 CellChangeTimes->{{3.772169885059484*^9, 3.772169900093421*^9}, 
   3.7721699775755367`*^9, 3.7721701185811143`*^9, 3.7721702882173615`*^9, 
   3.77217064855888*^9, {3.77217177378767*^9, 3.772171815021678*^9}, 
   3.772171903010309*^9, 3.7721719885573015`*^9, 3.77217237043204*^9, 
   3.7723515046867094`*^9},ExpressionUUID->"634b9b70-336c-442c-b749-\
b9176f2d4da7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MIM1X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM2X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM22X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM3X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM4X6", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MIM1X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM2X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM22X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM3X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM4X6", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
   3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
   3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
   3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
   3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
   3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
   3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
   3.771929457794732*^9}, {3.7721689283429265`*^9, 3.7721690533491125`*^9}, {
   3.7721694854823895`*^9, 3.772169488631389*^9}, {3.772169819335092*^9, 
   3.772169821480093*^9}, {3.772169863548537*^9, 3.772169899478387*^9}, {
   3.7721699474990664`*^9, 3.7721699767585363`*^9}, {3.7721702601076183`*^9, 
   3.7721702722613535`*^9}, {3.7721706449071755`*^9, 3.772170647284936*^9}, {
   3.7721717010141068`*^9, 3.7721718143087273`*^9}, {3.7721718659804497`*^9, 
   3.7721719017313013`*^9}, 3.7721719876233015`*^9, {3.77217232637504*^9, 
   3.7721723694770412`*^9}, {3.772172415862479*^9, 
   3.7721724440043087`*^9}},ExpressionUUID->"8ef9987b-e572-4c5d-9002-\
a23ab7a7bffa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJytlHs0lekex3dKpiSZyCnVpJIue5RcUg1fSQ3SIUZXCkWXY4ZiWqKiQlsk
90ZIuioOu4siKdpKQi4pImpClFx22Pbe9vO85z1nylnLOrPmn/Os9a7Pet7f
93l+z/P7fd9X09XTzk2Ow+Eksc+/maUV4VL/nkEiv2nH5GYGrhXVqd7bOabS
Ubv9a/dwTHUyG7X4kzmmMS0Hw5Q1OKaRi8c0D5Qz4LZOyCl+xWC/R/ra+ey6
UmUVC+VaBif3C5S+8aNo/y5DLDxKYaBNf3R+TPFwRvn89CIKE9sZurdTKEpa
VDddvkNxWfD5NNop7i1fkuAjojgsJfkKuxhYGJddXGfPoFG+fbSNGQN5r9nn
RWsYOM8/En1pJIPlwdtW+M9hMG16RWtnkQzFRrPytWcRZE1e4St9wwCRO4Ji
mhj49GRn5scS8FRPv1r3hCAte+lxr1EMgr5J8PFTZ7n1nUuKK8Wh30KzH3tQ
jBfNzs08TvD39NgphaEEehxfh7BzFMHK00t33qB48/2ZKf7sPKx+nWRXKkXO
JBvuMzFFR/FrQaqMYt/ZMXK6LQR2UaJtve8JYtav9FxkyGCZ2Dgt1oCtc5+w
/CU7zz0tVuctYzAvrGtz42KKyplST10uRXLOsennJlLEztmi/8MiiqSR10Mz
pnJMG4UrLdawfSistePf9KbQFgktqDXFhwse43prKcwbzsv8iymq1pd7xIxj
YObzzMhRSHH6YKbmzDoKw+U1o+KrKLy0Ze6a9Wxf5HO3GVeweXaamoziM/BS
Dja+zTI0sOBRwBKK/tQo5SJ9ipHXShys5BnU3T6fkfSGYuDeYtmEjRSRjqox
v7BxroNl9IouimdLqj4osvGrPK99ZcEUTwxvqnmFUPzu5CoYx947Ui4uIl6T
weqQc7s731IIRmdoyF5TfAza5RFUTLB/wGCWpJLgeHyXtXMVg5sG4qm2TxmY
dprM7jahYJLinExmUZwo3dApriAIPJQmSXhGYB9ne+BhDMUDM/fxmicpbq69
kq3IIbiv5shEjCXoDrgokecTKAcbdvols/1PXWxgVEVQEz1JUHeLYOctZ8PP
ewms3Tc/CtxNsL05LMpYiwI6bm032D44rZbUjRuQYaNffmNjkwxCxxyXiAIK
MwhXOLH0F+9rPbKMIn/7y3AjM4qms/n8WtZPj62ua1VbUjik3+g+kEOwLFmp
wvIagdndC74jPSnWrjZamGVDcSs+IZ+bIcOJkCXtWf4y2GSkhLiOYvdrODAS
rH/ODF4KvW9DoJ7+MW+0OQF3u3dJsR5FWnqnHHc629fURMkxHluXiTeSC9dT
9Fj+KDpsSuE2996DRE2KuulbyvLZ+m2K+TTgqcyex2W8jg1fhvNmGr9GZcqQ
F23L6+5j7xmud7e6hcLvoF7S2hMUwgbvA4LtrM/m7s7T7aeYsHsgsPody8am
R3PGMHDx/D3TuoPirt4/1ez3sv4usmrpWMvgV5qyQXkPg6PcayFW7Pf6etXf
aqgeg7hmJ37YVAZlsap+uaxvvRwPPXe0Yutc72pn303QO1YWkSggSIy6d3Ls
KQoLrSln7hxk/Wm/JI/XTFHQcy+G9lAQt5KlCp8HcSWoxkHu0yAq5JREy+9T
nPEfMcOH/S6zstuS/Xms33K4Ptf8GDiEtjjOmEGRqfdce5MCRcwp1aLLHwjq
lxccrXhK8D79Ls/IgeDqkdpDCusISqxtL5U3yBDJdAULa2QoaXuMXTICNe/g
2KUfCSwq+9cosP+Hz6HHNTaEEFTn63tUziOIbp9jFDeZIC/fSWNzBEHjMZOt
YP32wO5wadpMgrIFGaWnJhJMuni7sJL131sFbgS/nYD/kjsrR5dghYN5dN9S
gkyVY5dL98vguO3hDm93GSbkJlpoZcuwRhKeFS+QQWBQKd36YhDqqj/LR9cO
omamXUDGYSl2Gq+6I3GVQr/D9XayowzWb6P2vt0kw0+rHwyssh/ElNnaydHO
g3h5Sffu9+YS8Bb6mqobSjB/Y6xNrKYUc3gLHFJUpFB7mxBRMG0QbXmG/doq
g9jhpksRKkXUuTe5KjxW9y6712yrFOEeR3DWQoql2r2dr8IlCJqb3P1bgAQu
0b78+wulGPfO+8XFBVKk9U164+EmhuqqPvUdzmK0Nly5ENgmhmgsZ3z4BzFo
pKLrRjXRECvkM3Xs5MRIsXT/EKkhhmXVk6sJrf2Ia3HLTmrqx+d/lNaseiqC
1dz6crvnInRd8NWP9OsfosGtEbcyLw8goD+m1fL8AC7sibIXG/WCFLqH3FzQ
i9VXlX8pbBdBOn9h7KQeEYwrdfosBvtBpqULjo8VQVPtWyfnn/qwZdPRqq1a
fVDR0gmyqu5HUZzbgrqcfmzUXankIOyA+8/fVV8v6AB5YROvHdo1RL2y/f6H
tvUg/Yji6Sn6PeD8Z/yXw/XUsFs89f2nIXo+snUOu9ozRJT5KioqdgyRfNF9
5fD9A240n7Q3Fw7R5Mu6rxyef8RK/gaR0/shDs83/HycL7qvZA6k2E40b/5T
0mH8I2/TEP/QPR/i8PjwfPSLjv6J/ut754Z5T+f+j/jwfJy/GP9v/fD4X+mV
RBWQ13yC9G+VDt8xuYPZEZU/tO1cVPCV/wKEKuY3
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJylUgdQlFkSfk8EXQmCiAISdhBREUeCDiboRpSw66AsScwChlOJA4KCCwq4
gAmUlWCAVSSsCQMIRxZcWCOCCOuigEjYQuCGOAzMzP1XJV4VV1de1b2qv77q
191/9/d9j+Xm/cPuSYSQROb7Fxo49Q9KrCg+bjf2MX5BsZRlXpv+PcULW02c
I+IoulTyfp19nGIv5x7LoJuiVkSy1E4VioOKqUXd5ykWdx6/1MbkWSe0E3t1
J6HAJczxVAtBgzuGsrVIUanglQr7N4KbPvCgQJNittE0urOboJPLjHs9Jyn6
J0itQjWKrjZaO/TyKV7jnMqwNaBYc7xveW8BxR8GlFOj0wkeOv9TehiXYsrV
KAuj6RQ3+9/RNiqhWLSf9bxDm+AVqbJ50WUEt0Zpx8trU1zMEexfnEnRpvQb
D3c/ghKHG22h85l5K3882+lDUSZ+V6XqQ4aXgFN4rJ3gWfubdlGpFF/sz8g0
ExIMl5TbSB+mqLBCaqtOHsHniZ625YcozpOenaE0TPDP0rVDJdEUCc9OuqeJ
YJm21HbV5YwupusSJMweM2QqLskzujZ2nZBPryQYM1k9acCS4uiGlnA/GYqS
1DPddoy+cupJFVPeEvyOHXfAldE9zSyEfbSW4MN3T9KDmLglpbA3Vp+iyR9g
KsqiaH8xu/veLYKOy2q2r2kmGFIV2SNRonhFx03QGkpxr7j5vXMBQd1ybdl9
jK4JaXtKpjH8TI9aKBrYUhwRxvDynxCsCy+VKnOlmH+aZfitCcMj/+pIxVHm
PyrOodNvE2zQkZVIZjC+1PqW8tsIKp9WCHq8g6JDqINZ2mVm3/yjGi9mU5y1
6Sm5f4pgrM6SZM8OgsLoG3P6Axj+vMyDUZ0Eja1NmnwYPW728aCI8WVZ9duI
pgiC83Tlp/RXEEzKvXLaeT7BxgbVh5puBP11A6b4dBF8fMfdb3QBxT0srU4/
Zv9I62TDV4EUkw0tS84zehJj5XRNPkF5b/8QhyCCege/VWy5SLDpcObPR/YR
PDZdT+YaEz+qlrt2cRNB62s3vR6fIXiut+h4gifB/mL3R6YMD9UzCuuftRL0
mfJ6paMWRXMndlT+OoK+Rf6sphCCHiqcFTp2BDkDy4Ujocw7i2hODGT6pHKD
pVk5BLtGhGxhHMHec17nAn8nmHlU1TJckeLlhRn13isorpqjZTr1HcGVz8wh
lEMxSk+Nu9qMYJt/8uI6d4LbFu0RRiwheKR62oKhtQS9/sHlKxwgWOwxL/4B
44P3yVOKeRbM+5p1sMCO4eHfrbqUyyb4k8qUHenrGb1POGk+SGD88tpcX828
C/vGEwb69gSXBKY18hwYX5SqDt+wJXjCCDRUeczeiW9G+gMkcMX98mXRRwko
PZKz0LUieLdRbGqVRfB+Q7FSbiRBt79mZphnEkyRLflm6mKC9VPPzjrI6CJn
OaswluFvPfWk0/oUgq8HAnZrrSG4tFUrp2YDwbXhapN9WyRgJ1BQ81Um2Hzg
gtXuOAmESymqR76UQP+kTy73R0QgTFCsitYTQ2a2I/euN8GR8gv3HAMJ5pm3
6T7MFoPcR7/hQBkJgPk+Y0clgu5pc7znahLsuNq+plSF8WHqrAinRQS5NepL
IF0MikUbMzTyxKBw3IU9J0MCz84UVTe8l4CtiU3PslUS4Lq9y9XiSiD6khm3
CyQQYbKVs5GJy/elq7ffEsGCItktO3tEUHV/deevVSI4E+Bgfv61CLI2LvjO
bZ4YVkrtOXd+jhievLFtDosRwaKQxc+rfxGB1UVXzyhjMYh/zpb+3VkMQ2eL
3esFY5BnMXO/xwwRrNC96pPYMwaZgzODgnrHoH7+R+t1GSKolpGyMSsXgZ3/
ornpWaNgu3XjZPc7o3DjUuiPW9hjcF3z0IZ+tTH4yDb8LdR8DPQiKuJOh4zB
aZaHVXGuENTNPWz6rwvBr7AxaemPQogVsK0jTwrh/SmXghcvRuFQUlmX57NR
2P4qbJ/MTgHcEo/FFuYIIJDlnxPy5zCI7ZONWj4Mw7K9A+qvnwqAV6dp390q
AOuWV7fmcgWgq8/5tDlIAElq8UGx3gLgzNiSsipKACWJro8adg1ClFPkNAuf
QZD+40GA5u0huPLXWtnyX4agXZHV/XZ4EA5bZBU/EA7Cy825CwYLBuBtmGb8
cNEA3DnmRNclDUGKsOau8f0hyKp3FVQuHYBgU0+/XWEDQJ/8fbrwCR8y3DXW
FUj3gWJvsbehNh/48q3cW5v5cHDhEXu93D5oT50eHFbTBy9dmi7UWX4CR/km
s8rVn6BZOaZsr3M/fP/m+oiveT8sXBHfdS24BxY2JxsOe/VA8UOjuGgeH/J2
Pnow7MqHZq+UnLwUPshplBnsus6H6qecQsfmHtDndmh6VvTA7qpu99t1XfDh
7lh2R2AXsGLAObCgDfSe/q0gZlUbiA+nbFRe2/oF+an6t7kbOiCnU0sxeHLH
5/vaL0gts12GtrV/QcnnvnEkn+/HUZwRyLvc3vkFRXUbLsyPfv8FR9lSwTr5
rdDw2GRSmu5HEI3X/Zf6ifMm5sd5tGr49jXG/GeeTDiSz7zGcVt9fFpl9pLS
cZxY/7UzUa+J+L/V/9uP/3f+1+on8jfWl3fj1BqWjuPX+v8Jq4r7bQ==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJylk3k01mkbx69HCRmTFiEV5Ug01hreFNedJU+Tbciass5DGKIhz0i2RllL
ZetFM0SSMlGjPZMspRfRQlrIUpYi62N5fr/5vfNG5+h9/3rvc37nc859X/d1
fa/vff1WufpZ/iAAAP9kvn8zg94/EjwBhJOd0R3QC8StvkCHy9B8232upDCL
/Cvn61VqK1lERNEkrkCCRdSfeQnnxAJZeyTR6RgXSNGmBNZKFotsNq4O93wF
5LR06PM7AUBk2BWvTIKADF67M6BcBORjx/HLv/8MZLXWpP7WTCDh5a13E64A
MXoS68StBRItWxwX8YjRUc5rrY4BUldRnyt3kInTPtxpEQxEubUC0Q1Ik0Sm
5kgKkJXflVa+PAqkIK1P+JIxEGPHfdeyDIBcOSE9oMrc/7DRWrIvCciOfEGt
kJtA5n3lpvq2GUive/RqugvIxkIZr7AeIFutkruXVAMZM1tcK1kOxHGNtVNo
PtNX0+7T6eeBwKi3tv5rIGfZ6Y4pt4HsuyHY3ZkDRLwgb771GSCWlrJy3mwg
9UPO5KAukN2jWy19TYEcaPwlSlAHyPnIzCLHi0Ce3JM4FlQMxENVfFH+ZSBR
uGF9DpPnYvYjbr8NkKTONNurvozebGPc5gGk0GqZMccFyBo7rq4zBSSww305
vw+IMzmzxsITiFmVmOgOxg9vlaZA4xdA9qQFbIh4w+zfXytZfwqIgYddgeEB
IP6L2exRTSAVWlyOAqOn9MFapdJjQOSXvvRFLyBtex10Q42A8BNWcG4pAJkf
7zsitAHIgIj8YDoCsXl8eirpDhB1l9setalAlvvHeS/XB0I4C9lK24EEpc75
uOcwkOBl183kGN8v3RivubQaSIhNab64NJD0hUdO3LEDkuiyWDjSEsjekls1
fGcgd3PM5vozdbf/aulSKQGk67KV3jsBIH3eJRHVykAWqVrXGAgyepu7pGrV
mDyYvytKD4ipm2/SthVAztja5kkBEAXBTZtlFzDz8HWGwx/izPw1OSq0bQGS
L7DMo1QSCNsv2CHiFY3zVCp6BK/TKPXetWaojcZTbuzk8CM0yg5MTYkN07jC
8dmbN9do7E++ovGE6ct/uHXdVRMgERoDxSpM3bMZmjZnljC6F2lURnKAqP0S
9eNh5n3ex/Oycpl5PzVPaL8209fRmh3WMnsZn2xjbtUxfi7NrSjcwaVRJLJK
5IQLjXKPa8o0GJ3ZCT6bb5XQKNPz2PVcHIXd7pWHfdwpDIO2gNw/aYzkhITG
X6LxRf1zmx49GteqrGrw+5ZGhbO4YlwOSO55SnGrEJASJyKYWE6j1tOX8pQ3
jT4hf5jPZ9HoIdBgb9pAYWHl7SU6V2nMkL4fePQks79Ppr9fmcLMGr/BMUkK
ZdTp+Cp/GvX7097l+TKUpxVDxYBo5TnvJCwgtVNzvOKZ/89ae/F5bQsgDf5W
CSHM3GwyO1SWzcy9bNm935R8gCSIzv3pOeNH4k8885+1gdgvOKoZx7wD58Of
6UKMv7pKui35kzSKnkx5e6Wdxok35bu5TP/fvvQ7mcDoDpVUZb/bRqPXfp3n
+QUUbop/fTEjnkIV8+YV/R00ekZL70qvpLH9td+OheIU8sM9fZTf8vE35VWX
FzDvGRxepVBfTaPSU4kD3nk0jksMqF1IpDF7jrKiqzuNwpzHmZyNNDqG7tbL
4fBxAZF4m23ExwsPNjwcC6GwQ9djywYTCpMaGgM+ZFFoFVKdd/AMhe1GgTcy
tSms69G4flyVwsHo6HXVWjTCvEq1y8uYeeGGLUpZw8dOsauN6+T4WP2jrZuW
A4UCYNQUZEChmf/mV9ojfJT3s5B37uRja1PsgzVXGfpLttiV8nGf5zf3M1wo
5J3qEttiSaG4jlmqWgqFXEPf6pgYCi8dtS8On0uhfVze92dZFCZ7kaYx7SlM
tizUGGI4eqz9mW/bFEZ6fvfaew4f+b66hcfX8nGvcFLt40V8lPLQibj3cBIF
Vd77K9ZO4k3dxoaUrnEUi9A0MH43jvtjY/eFC09glIB488K2cbS36r/bJDKJ
vhUqqzVXT+LwRtOApTcncL6hijkrfQLtpZu4y5rHcTjqVrJNHXNfpN8+ad4k
VrlGBoZJTeJ1k4O+7EMTeF+a/WIqYgJlit1bd/rx0OuaVpE3Q8qiKPA0xcPx
haakTmAcO4b2BnGiR1EpMN/OJ2EUl5g6XPjhHQ9f5/6jJKKXh2Dwu+3ortEZ
SlU190ikjCErJzXwbtYYZu208K5THEHjguLOldojaJIY6sleyUPt7nuKDeI8
fPrr4Rb3oH5MTXseEaLfj1/xBO6a3BnF1HOdh26WM/Vahd9Y9Q1hb9vwyxe9
Q+jhJNsitH0Iy9xkrNO+H0Kv5SE3NukNo3rJ6CPpucOYvp4btu2bblw3FB0o
LNjN+GThHHduYIYPiuxkhFo+4B7XYxoVfR8Q/l4DM8wy7LCPtRmcIaXVz1ve
1TdD/izOPtd7GCwqKtqLKeUtcSJuvRhW3J5gZfhxhrPrsf72rWuG+On+NGef
T+ffPSjgVLC+94t4+BQ3Tf4T8xTFmFczpLmnLRYbts+QmsXZ8TBr/SeuEac5
Wx/9af9/cbpOnkVIjENR+xf5/99lfC9W/Ia/etk0/3v/n/XI5WdbmhSrl01T
U1nMVavxM3eF6b49cvYzi8J6jcKfPcHc29davPOzvsj3F9lQSSc=
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJx1Ugs0lGsX/r6JDnIryuVXknsUya3U2a+GSiUkkkui2zk5kS4InXSSlKJ0
RClEhxTJpVySQRK5VW65jzH6xzByDTPffPPPv9bJ/69z1tlrvetZ77ufvdd+
nv2qefvtOULBMCxOeP6Lieqp93tdBECODaWKS+HILOxVwlOmAF7qXQsIZGDI
sbtVKSRJAItnzMpGAnE0dZWt5q0ogMKhcwGjOI7kqITzeQUMHVMjCpMDcBSk
VdxVLyWA2k7zIM9LOLrlcnqs5KQALOkWXYO/46jSz7jAKZsEeZGCguAaHKmX
Lx97HCCAj2IWfQ0JONKsJl61DJLgZXMnPFUZRyfVho0+LxVAnnvV6A4HHCU/
5sb5mpLwuiPbXusVhjQfsd3qPIX11OoNR7biaMiSsWlyggTjINdvb8owJOo0
0F7eIwAVb5GFSkwc2Rs7Qc0qDFU73Yv3OYSjVA9DncIuAXy5Y1+3fDWOKB1P
aJpzAuDor0PBz3BURImM7qsmYaA7sitZyG8oNihdcEoAO7pVX67eg6OosJy8
PJKAo+0S9T16GPJwKkChxSSQPNdB6Xc4WsMIXz5bT0K+0/5GhiOOZIrI8f4q
EvbRjZiW2RjSDWJ6r1IQwL1A/72zqjiSOO3XePs5Cb+MGUWkDGPIq2Sldlas
UO/nyRmOH4Y+/lASm2DDB9H+yx6VSjj6+JvSpgJPEjoVx7VimRii9siuDtUQ
wK8eCz54dGNIyUU1X86KhDVHyzapvcYQRXdsISuQhD94g35PpHGU6L+XFtrM
B4/YgEluHIZMBNIvfG1JGDeShrgCDGXXG66q4PDhzI8JdEY6hgJrzsSoPiTB
R5UUP0QKfWysbayg8kHZdWUhnyOAnw3NXaQYfOAF9n0+ex1Dfektqwk3Al7s
P5spr4ihHKmZUIqO0I+CNr2dV4X6jlmSE1l82GtDrpQIwZBBpahGPUFA9EzV
e0k1DOWzLPIzg0ngmMlb4x4Y6tFtkwm9RYCqmzT75SwJB8dhXKmFD+PjSas+
ncbQtBzjeJ0xCZdaBy6LRmOot/vtiGAtH4pE1d6FuWLI5mCRZzyLDxKZ5RQV
LyH/BNNOy4UPJxdPqxwS7l37AYUpt40P8q5tBobyAjhQyNJ36OfD+7RYM54/
hkCPUxMmzYfbCQpUmz4BvGd3bhRlEWAyEyWTYosh57GGOLKNDzul/n2eehND
ab/q/GjwTugvz3BXuDSGEkwe5GQ7COfJtB/eIC2Ap0abmzdsIqDj3WmHJF+h
Lx0X0g9tIEA011nekEvC8pgDvbsbCTjoenhpfQYfTNeFd5YK/1e8r9f9nVcw
pDxDi+7RJGBEIiPfNEDoe/KiuqN7CVicST0Wy+VD5bH4496VBNwOSa/e6S+A
FbnnS3P9eLAke5chR4yEpsQEhccRfEj5uky67ygJC38KqmXxuLDFbZP8+a8E
KGVlod0pPGiYfV0WHk1CzK22Nfo6BGxsG9LPeCTUUUWtDCS40G72osJbOP8i
36zXJ8t5ENWYZG0rQQKzq6Or1pYLSsGKFVZlPBhZGyxK28mFXapkjfYhHiys
7Puho4MHFE5khwibD3UXO8hn/bNwZcWr28/WcaEs8sLwknQe0KUlYhIXEFB3
NqqS08uFff12WzxPEeB469NUbsYc1KiIZpY95IHIIvUFN1vnoD1jfa67UGfw
VQ08/fMc6Imw2YriXLiYLO54ymQGlpasaP70fg6SLp50pLtxQUKyh2rUzoOb
wwFXGBJcWEhvMa6o4EFtzttP1fKzoO3j4/dKbBZyao3MN6bMguVxyeMcCg8+
r+W72a+fhTd2esZOYbMgvrKtJLJ/CnIt4640CKbBJ9FKa33/N6gbjrDNE9YV
M1XO3Lg+BiLEpcuY9QSsbtt+7HnfFOg/+qMuxnkaWDIfHunoToGHu6TidPYU
bN8YdPt27CQEe21yostOQR+60SJFHQPV5AUPhqy+woEvKhHxG6dg/0eWRrrm
NIznN0WXD03CWGmpaS1nEhx9RlMWOXNAbJtW+sCZcZjcGLDLhxiBJRREXdrx
FcJ/yWodpY2BBd08eZ3pOFRoPDiV9noYrCbuurltnYCm6//asq9iEILCmlWd
qF/g9LV2rvbaEbBOk51JXzkOTR+fzU38OgnJ1yQuaVlNwtbuyzrvO9mg27g7
A4TI27y5xOwgGxLVH5euSGODS08oRVbYv1AyZkg5fAhKRuqCWtPZ8D6Eq4ES
R0A/R0th9xM6KHeKSSq7M8DcGZ3YKsqE9NgCvQ31TLgTGyzV2NULVfq31iyg
9IEGNmctEVFD87YJamNZvaW1q6AgKcdhwB1Yz9icEZiqLx5dLkMDA8naI3ZF
jaD6LqRgIdYNOyjuW1LbumG/wWFz3ZXV4NnTHpsY2wQ3TBef7wYGjJbwzJqP
94OX+Q6WklcqeBtqqFyw+wTTUiomk97dQF3D/PQ8oxPozzNSvsUblN9orl52
Km6W5niiWX2bHxP2jhvfFZNjAr/V7o721d55xP6M7RY37+VEvAH7wZuPjB/0
wkDCb5rX+f/L/zX0Yt8ueetXBCyV9KyHtD54mmHTb1VIBw85RwUzRwYslzt3
mLmHDeS5ZHs5qwHIq0rNy8wdAO2uspDANwyQ7OCWLKtk/Jlvnsfv/bN2uDaJ
G0fOz1l/ooYTdrd3nqfh7UKb+j++6GIpBu9KGIw02Pwkg1rg88P+3y14zf+o
92CUSFLP+jXz9ypCOg1s4yE4nhesjn8ED3WJM4Ri4z/qd9DV9+feOgdSg1pL
Q+qiSte71DrYuOTNz/ckIYG13rrlb/U9Hy79fF24HxMrDXeLeD7t+3ttVOgh
70Z8vh9duhGv8039W/22qmuyr/wNy79j2gH5I8dc6DSTS7LF9xe10v7K/w+/
QmXT
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          PointBox[CompressedData["
1:eJyFU3k01esaFgkdKUNFZSxlaKKicD0NZirDydSgVMYGNCAdOXVKhgwJd3cL
0eRUKNFJ2FuGVHJDGg3ZYYuEvffv+/12cl33D+5ate66z1rfeta3nvf53nc9
33o1vQ867xUXExNLGjv/YacSaSe5agoCv0PzViRQeCBr5FtmR5AUccKrzoZG
ZgZTtzSCYGQkPKVgAw0nOV5NyB6CXbMD6PmWBHr/dOW6EAZl11RGpngwaP2W
naEfzGCdt084W16EFX8+b/qti0b1EYsHPFcaWuH23VlPaLAzv6fnnqYxTPuq
CppoPPjlTJKmM4FyvbdvpB+BWsWiUXtlAsNUFUut+QzsX8s21G2k0eU72f+s
tBDtrku4ldcpeFkteRk7RJAX533EUkSgNain2HFbBBmNqH1TpUQ46n0hx1FC
hKDez8K/ODRm/41rNfiCQt31X4OWK1BIuJjcomtCUFnbqHgmncKOlSqDq4YJ
7DqePG/tpHFF7fCJv4JpGLxfX/vNnCA0Lab06CQa7g5rHAIVCOSFkm1UB8Hi
+8IZz5OF0K0ttlTIoSC9P3xvdTGFqPMzenpkabgFmmSFWRNIsTw9q3VpuOxo
ntOXQuC+0qH2sCaDCN/+M1l3CDY6POsoO0Qjq2XRLNl3BM46+lPM4xnoKy0k
f5QTVFRRHvO7x3KUKlTbtJDgyoGc7HoRhWWsMIVYTQp6hoUSo2N9vG99/qLM
Ishac83T8hoDZYnXJYOfGDhqX2WpPRLh1IzsGkV3Bj3u2cdk2wj+flc4rYVN
cJlKPtgVx8A8Wke9P5PAbw7LJiaRwbKvmoam/gQ+dyKLuTI0Qloutywfq18w
4OEemCpEq0GDTEunAF4eAxL5b0TQmbXVbosZjcNnMozEFwsgJX02XTVEgKUn
b4TczxAhbEe7LjuMxkjClOQQOYKEuWplFp4EOgnFRSa5DC7blMv8mkbjXVqW
7xcNAvPFwtOS34X4lO4176E+hVKRw30PCyF8jcm86qc0zJqt3PLvErB2d4Fr
zsDGNahF7zWN1OOb1li9JbgUapOdrE0hLtqxnFcrhLxGn9TcgwI8pg63P45i
EHn7M/tcIoFXTUHckAqNjtOz9z6UIpCtPPfsVjcDz7hnpqnLGXT29B2aN7Yn
kCw+avVRgDcqzq7WVQRRt3nbqFAhurNmHrjXRuGp/Nthqc0CNHcbnxyYTsOj
MI87w4Cgaque5OuUb5Dm1iorKtPwltlRLnuPRsAlw7VuD4XQOHLWMDScwsUc
rSfx64RYVNJcwHBEwHYXlrs6wSnPU9JPrRn0hWqo8S4StNQ0zzI6T2G+snO3
xSMhInIyiNsHBke9blTozCIoqd13y4lDgaWsXbdoRIjghaEBwnoa/R7mbul6
FPal+1kPbB2G0SXtP01MGTSesEqeGkTDsrq17EbK2H61JV4i5iLMRfRWn/cU
+k4mJYhSRRh9bcpTkaeQImhXnfSc4PTZuUXHlQUo7h8tT6NpRMTeCe0IJdiT
mtQ2J1EA3Z2r6/xM+YhOPrm+RImBumLJsMp0CtkdblIIo2CxSm8401aIKd/3
XVijRlD/JCQ15qoQTJnqgRpbCkpfX+VpX+bDujaQJWbEwLbToGcbTaHpaOyT
e6NCpAcY16zN5yO2YdeWacl8pNSNZIo0+Ogz003T3y1A+4eYThWZQSS+dI+/
XtQPQdVa8WPt/Xgw6rfyUasAs9//rmS4k48jCwK2xLnwMfWKlcPij1/hTKcn
5o7lNOmlnF3VYz4qo50uC+2FYK2XVJF7x0fUTq8E/kUBSBHToGA/hOOR6kle
6/mwPT99ldLGQcy5t+qtS+IQXrUaNdFPv6BHQbWhIrAT27eLvqWqvUOBnEmI
v84nrOittNjA+wTDqy9WmN3sR/extOad+b24a1G3xcV0EDOVhha07egFL3ZO
baHTAHQCDDa7N3YhTcs17U1uPxIP70+bfvwzoqOeruZeH4Cj68swlPTCJvHm
+bCtPIjf4um/ndQJG6+5jmYDPbhJN+WLhXXCftsbM8Xr/SDGuzw9SQ++/+F1
OcaHizuL73nna3Ug4x5rf38+D/8YeCIoMurAucli5/awKuFgIDr0ezAHmTec
w5dyqqD4xbxS7VkXsgslbZar8dCfeaHxpSoPWv5TfPwu9iA8UDj5aGYnbieb
KCzs7cRd24GKDeofkJSTpWRj2g25EbPP88W4CM98ES37tBFN6t0Zq3azsTv0
RvDmD3z2aCN3V3sVnw31+JmbvtUg72tD7yOVXPwrPNNR0aIJnHzF3yIPf8S0
roUzI57Hlc56tcfyO68adf46EbHKXTDJerP/3YYKuLUp+4zu6mWLRZ0ZPqXY
x17duzd6auAnxK/MCrL0eo9fbJz6mpOa2BIhNV4+w/99z8XdqcAvb8tEv9+4
Bzq/2jZN3MdZ+xKfK1EQg7Mzbe8W1lVC7Af0dptFUlnLOEGldueXsmdwftT/
H4w/eF7jpbVhWFBoufhZO6JiVxbVr/0Ev9Jt9a+ufPxpnh/9P+rjLJPaZDzP
4ef6cXD920qdWHk/+cbz8Q5PlmjTt5nw3+ytfvt+e+qEvnJbs4/ut4oJfYU0
3RdspQDv+F2vi3eLcVrKfP1OLRlhj+viEeJ3Dqwr+p/zjEM+ebXURV8xjmY5
21rNbjpn4v+vqi5jcgsQuKlkR1XAEHta8IaGDq0XbM72oS6pW8s44/xvR8VV
hA==
           "]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm],
           None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )], ",", 
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJytlHs0lekex3dKpiSZyCnVpJIue5RcUg1fSQ3SIUZXCkWXY4ZiWqKiQlsk
90ZIuioOu4siKdpKQi4pImpClFx22Pbe9vO85z1nylnLOrPmn/Os9a7Pet7f
93l+z/P7fd9X09XTzk2Ow+Eksc+/maUV4VL/nkEiv2nH5GYGrhXVqd7bOabS
Ubv9a/dwTHUyG7X4kzmmMS0Hw5Q1OKaRi8c0D5Qz4LZOyCl+xWC/R/ra+ey6
UmUVC+VaBif3C5S+8aNo/y5DLDxKYaBNf3R+TPFwRvn89CIKE9sZurdTKEpa
VDddvkNxWfD5NNop7i1fkuAjojgsJfkKuxhYGJddXGfPoFG+fbSNGQN5r9nn
RWsYOM8/En1pJIPlwdtW+M9hMG16RWtnkQzFRrPytWcRZE1e4St9wwCRO4Ji
mhj49GRn5scS8FRPv1r3hCAte+lxr1EMgr5J8PFTZ7n1nUuKK8Wh30KzH3tQ
jBfNzs08TvD39NgphaEEehxfh7BzFMHK00t33qB48/2ZKf7sPKx+nWRXKkXO
JBvuMzFFR/FrQaqMYt/ZMXK6LQR2UaJtve8JYtav9FxkyGCZ2Dgt1oCtc5+w
/CU7zz0tVuctYzAvrGtz42KKyplST10uRXLOsennJlLEztmi/8MiiqSR10Mz
pnJMG4UrLdawfSistePf9KbQFgktqDXFhwse43prKcwbzsv8iymq1pd7xIxj
YObzzMhRSHH6YKbmzDoKw+U1o+KrKLy0Ze6a9Wxf5HO3GVeweXaamoziM/BS
Dja+zTI0sOBRwBKK/tQo5SJ9ipHXShys5BnU3T6fkfSGYuDeYtmEjRSRjqox
v7BxroNl9IouimdLqj4osvGrPK99ZcEUTwxvqnmFUPzu5CoYx947Ui4uIl6T
weqQc7s731IIRmdoyF5TfAza5RFUTLB/wGCWpJLgeHyXtXMVg5sG4qm2TxmY
dprM7jahYJLinExmUZwo3dApriAIPJQmSXhGYB9ne+BhDMUDM/fxmicpbq69
kq3IIbiv5shEjCXoDrgokecTKAcbdvols/1PXWxgVEVQEz1JUHeLYOctZ8PP
ewms3Tc/CtxNsL05LMpYiwI6bm032D44rZbUjRuQYaNffmNjkwxCxxyXiAIK
MwhXOLH0F+9rPbKMIn/7y3AjM4qms/n8WtZPj62ua1VbUjik3+g+kEOwLFmp
wvIagdndC74jPSnWrjZamGVDcSs+IZ+bIcOJkCXtWf4y2GSkhLiOYvdrODAS
rH/ODF4KvW9DoJ7+MW+0OQF3u3dJsR5FWnqnHHc629fURMkxHluXiTeSC9dT
9Fj+KDpsSuE2996DRE2KuulbyvLZ+m2K+TTgqcyex2W8jg1fhvNmGr9GZcqQ
F23L6+5j7xmud7e6hcLvoF7S2hMUwgbvA4LtrM/m7s7T7aeYsHsgsPody8am
R3PGMHDx/D3TuoPirt4/1ez3sv4usmrpWMvgV5qyQXkPg6PcayFW7Pf6etXf
aqgeg7hmJ37YVAZlsap+uaxvvRwPPXe0Yutc72pn303QO1YWkSggSIy6d3Ls
KQoLrSln7hxk/Wm/JI/XTFHQcy+G9lAQt5KlCp8HcSWoxkHu0yAq5JREy+9T
nPEfMcOH/S6zstuS/Xms33K4Ptf8GDiEtjjOmEGRqfdce5MCRcwp1aLLHwjq
lxccrXhK8D79Ls/IgeDqkdpDCusISqxtL5U3yBDJdAULa2QoaXuMXTICNe/g
2KUfCSwq+9cosP+Hz6HHNTaEEFTn63tUziOIbp9jFDeZIC/fSWNzBEHjMZOt
YP32wO5wadpMgrIFGaWnJhJMuni7sJL131sFbgS/nYD/kjsrR5dghYN5dN9S
gkyVY5dL98vguO3hDm93GSbkJlpoZcuwRhKeFS+QQWBQKd36YhDqqj/LR9cO
omamXUDGYSl2Gq+6I3GVQr/D9XayowzWb6P2vt0kw0+rHwyssh/ElNnaydHO
g3h5Sffu9+YS8Bb6mqobSjB/Y6xNrKYUc3gLHFJUpFB7mxBRMG0QbXmG/doq
g9jhpksRKkXUuTe5KjxW9y6712yrFOEeR3DWQoql2r2dr8IlCJqb3P1bgAQu
0b78+wulGPfO+8XFBVKk9U164+EmhuqqPvUdzmK0Nly5ENgmhmgsZ3z4BzFo
pKLrRjXRECvkM3Xs5MRIsXT/EKkhhmXVk6sJrf2Ia3HLTmrqx+d/lNaseiqC
1dz6crvnInRd8NWP9OsfosGtEbcyLw8goD+m1fL8AC7sibIXG/WCFLqH3FzQ
i9VXlX8pbBdBOn9h7KQeEYwrdfosBvtBpqULjo8VQVPtWyfnn/qwZdPRqq1a
fVDR0gmyqu5HUZzbgrqcfmzUXankIOyA+8/fVV8v6AB5YROvHdo1RL2y/f6H
tvUg/Yji6Sn6PeD8Z/yXw/XUsFs89f2nIXo+snUOu9ozRJT5KioqdgyRfNF9
5fD9A240n7Q3Fw7R5Mu6rxyef8RK/gaR0/shDs83/HycL7qvZA6k2E40b/5T
0mH8I2/TEP/QPR/i8PjwfPSLjv6J/ut754Z5T+f+j/jwfJy/GP9v/fD4X+mV
RBWQ13yC9G+VDt8xuYPZEZU/tO1cVPCV/wKEKuY3
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJylUgdQlFkSfk8EXQmCiAISdhBREUeCDiboRpSw66AsScwChlOJA4KCCwq4
gAmUlWCAVSSsCQMIRxZcWCOCCOuigEjYQuCGOAzMzP1XJV4VV1de1b2qv77q
191/9/d9j+Xm/cPuSYSQROb7Fxo49Q9KrCg+bjf2MX5BsZRlXpv+PcULW02c
I+IoulTyfp19nGIv5x7LoJuiVkSy1E4VioOKqUXd5ykWdx6/1MbkWSe0E3t1
J6HAJczxVAtBgzuGsrVIUanglQr7N4KbPvCgQJNittE0urOboJPLjHs9Jyn6
J0itQjWKrjZaO/TyKV7jnMqwNaBYc7xveW8BxR8GlFOj0wkeOv9TehiXYsrV
KAuj6RQ3+9/RNiqhWLSf9bxDm+AVqbJ50WUEt0Zpx8trU1zMEexfnEnRpvQb
D3c/ghKHG22h85l5K3882+lDUSZ+V6XqQ4aXgFN4rJ3gWfubdlGpFF/sz8g0
ExIMl5TbSB+mqLBCaqtOHsHniZ625YcozpOenaE0TPDP0rVDJdEUCc9OuqeJ
YJm21HbV5YwupusSJMweM2QqLskzujZ2nZBPryQYM1k9acCS4uiGlnA/GYqS
1DPddoy+cupJFVPeEvyOHXfAldE9zSyEfbSW4MN3T9KDmLglpbA3Vp+iyR9g
KsqiaH8xu/veLYKOy2q2r2kmGFIV2SNRonhFx03QGkpxr7j5vXMBQd1ybdl9
jK4JaXtKpjH8TI9aKBrYUhwRxvDynxCsCy+VKnOlmH+aZfitCcMj/+pIxVHm
PyrOodNvE2zQkZVIZjC+1PqW8tsIKp9WCHq8g6JDqINZ2mVm3/yjGi9mU5y1
6Sm5f4pgrM6SZM8OgsLoG3P6Axj+vMyDUZ0Eja1NmnwYPW728aCI8WVZ9duI
pgiC83Tlp/RXEEzKvXLaeT7BxgbVh5puBP11A6b4dBF8fMfdb3QBxT0srU4/
Zv9I62TDV4EUkw0tS84zehJj5XRNPkF5b/8QhyCCege/VWy5SLDpcObPR/YR
PDZdT+YaEz+qlrt2cRNB62s3vR6fIXiut+h4gifB/mL3R6YMD9UzCuuftRL0
mfJ6paMWRXMndlT+OoK+Rf6sphCCHiqcFTp2BDkDy4Ujocw7i2hODGT6pHKD
pVk5BLtGhGxhHMHec17nAn8nmHlU1TJckeLlhRn13isorpqjZTr1HcGVz8wh
lEMxSk+Nu9qMYJt/8uI6d4LbFu0RRiwheKR62oKhtQS9/sHlKxwgWOwxL/4B
44P3yVOKeRbM+5p1sMCO4eHfrbqUyyb4k8qUHenrGb1POGk+SGD88tpcX828
C/vGEwb69gSXBKY18hwYX5SqDt+wJXjCCDRUeczeiW9G+gMkcMX98mXRRwko
PZKz0LUieLdRbGqVRfB+Q7FSbiRBt79mZphnEkyRLflm6mKC9VPPzjrI6CJn
OaswluFvPfWk0/oUgq8HAnZrrSG4tFUrp2YDwbXhapN9WyRgJ1BQ81Um2Hzg
gtXuOAmESymqR76UQP+kTy73R0QgTFCsitYTQ2a2I/euN8GR8gv3HAMJ5pm3
6T7MFoPcR7/hQBkJgPk+Y0clgu5pc7znahLsuNq+plSF8WHqrAinRQS5NepL
IF0MikUbMzTyxKBw3IU9J0MCz84UVTe8l4CtiU3PslUS4Lq9y9XiSiD6khm3
CyQQYbKVs5GJy/elq7ffEsGCItktO3tEUHV/deevVSI4E+Bgfv61CLI2LvjO
bZ4YVkrtOXd+jhievLFtDosRwaKQxc+rfxGB1UVXzyhjMYh/zpb+3VkMQ2eL
3esFY5BnMXO/xwwRrNC96pPYMwaZgzODgnrHoH7+R+t1GSKolpGyMSsXgZ3/
ornpWaNgu3XjZPc7o3DjUuiPW9hjcF3z0IZ+tTH4yDb8LdR8DPQiKuJOh4zB
aZaHVXGuENTNPWz6rwvBr7AxaemPQogVsK0jTwrh/SmXghcvRuFQUlmX57NR
2P4qbJ/MTgHcEo/FFuYIIJDlnxPy5zCI7ZONWj4Mw7K9A+qvnwqAV6dp390q
AOuWV7fmcgWgq8/5tDlIAElq8UGx3gLgzNiSsipKACWJro8adg1ClFPkNAuf
QZD+40GA5u0huPLXWtnyX4agXZHV/XZ4EA5bZBU/EA7Cy825CwYLBuBtmGb8
cNEA3DnmRNclDUGKsOau8f0hyKp3FVQuHYBgU0+/XWEDQJ/8fbrwCR8y3DXW
FUj3gWJvsbehNh/48q3cW5v5cHDhEXu93D5oT50eHFbTBy9dmi7UWX4CR/km
s8rVn6BZOaZsr3M/fP/m+oiveT8sXBHfdS24BxY2JxsOe/VA8UOjuGgeH/J2
Pnow7MqHZq+UnLwUPshplBnsus6H6qecQsfmHtDndmh6VvTA7qpu99t1XfDh
7lh2R2AXsGLAObCgDfSe/q0gZlUbiA+nbFRe2/oF+an6t7kbOiCnU0sxeHLH
5/vaL0gts12GtrV/QcnnvnEkn+/HUZwRyLvc3vkFRXUbLsyPfv8FR9lSwTr5
rdDw2GRSmu5HEI3X/Zf6ifMm5sd5tGr49jXG/GeeTDiSz7zGcVt9fFpl9pLS
cZxY/7UzUa+J+L/V/9uP/3f+1+on8jfWl3fj1BqWjuPX+v8Jq4r7bQ==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJylk3k01mkbx69HCRmTFiEV5Ug01hreFNedJU+Tbciass5DGKIhz0i2RllL
ZetFM0SSMlGjPZMspRfRQlrIUpYi62N5fr/5vfNG5+h9/3rvc37nc859X/d1
fa/vff1WufpZ/iAAAP9kvn8zg94/EjwBhJOd0R3QC8StvkCHy9B8232upDCL
/Cvn61VqK1lERNEkrkCCRdSfeQnnxAJZeyTR6RgXSNGmBNZKFotsNq4O93wF
5LR06PM7AUBk2BWvTIKADF67M6BcBORjx/HLv/8MZLXWpP7WTCDh5a13E64A
MXoS68StBRItWxwX8YjRUc5rrY4BUldRnyt3kInTPtxpEQxEubUC0Q1Ik0Sm
5kgKkJXflVa+PAqkIK1P+JIxEGPHfdeyDIBcOSE9oMrc/7DRWrIvCciOfEGt
kJtA5n3lpvq2GUive/RqugvIxkIZr7AeIFutkruXVAMZM1tcK1kOxHGNtVNo
PtNX0+7T6eeBwKi3tv5rIGfZ6Y4pt4HsuyHY3ZkDRLwgb771GSCWlrJy3mwg
9UPO5KAukN2jWy19TYEcaPwlSlAHyPnIzCLHi0Ce3JM4FlQMxENVfFH+ZSBR
uGF9DpPnYvYjbr8NkKTONNurvozebGPc5gGk0GqZMccFyBo7rq4zBSSww305
vw+IMzmzxsITiFmVmOgOxg9vlaZA4xdA9qQFbIh4w+zfXytZfwqIgYddgeEB
IP6L2exRTSAVWlyOAqOn9MFapdJjQOSXvvRFLyBtex10Q42A8BNWcG4pAJkf
7zsitAHIgIj8YDoCsXl8eirpDhB1l9setalAlvvHeS/XB0I4C9lK24EEpc75
uOcwkOBl183kGN8v3RivubQaSIhNab64NJD0hUdO3LEDkuiyWDjSEsjekls1
fGcgd3PM5vozdbf/aulSKQGk67KV3jsBIH3eJRHVykAWqVrXGAgyepu7pGrV
mDyYvytKD4ipm2/SthVAztja5kkBEAXBTZtlFzDz8HWGwx/izPw1OSq0bQGS
L7DMo1QSCNsv2CHiFY3zVCp6BK/TKPXetWaojcZTbuzk8CM0yg5MTYkN07jC
8dmbN9do7E++ovGE6ct/uHXdVRMgERoDxSpM3bMZmjZnljC6F2lURnKAqP0S
9eNh5n3ex/Oycpl5PzVPaL8209fRmh3WMnsZn2xjbtUxfi7NrSjcwaVRJLJK
5IQLjXKPa8o0GJ3ZCT6bb5XQKNPz2PVcHIXd7pWHfdwpDIO2gNw/aYzkhITG
X6LxRf1zmx49GteqrGrw+5ZGhbO4YlwOSO55SnGrEJASJyKYWE6j1tOX8pQ3
jT4hf5jPZ9HoIdBgb9pAYWHl7SU6V2nMkL4fePQks79Ppr9fmcLMGr/BMUkK
ZdTp+Cp/GvX7097l+TKUpxVDxYBo5TnvJCwgtVNzvOKZ/89ae/F5bQsgDf5W
CSHM3GwyO1SWzcy9bNm935R8gCSIzv3pOeNH4k8885+1gdgvOKoZx7wD58Of
6UKMv7pKui35kzSKnkx5e6Wdxok35bu5TP/fvvQ7mcDoDpVUZb/bRqPXfp3n
+QUUbop/fTEjnkIV8+YV/R00ekZL70qvpLH9td+OheIU8sM9fZTf8vE35VWX
FzDvGRxepVBfTaPSU4kD3nk0jksMqF1IpDF7jrKiqzuNwpzHmZyNNDqG7tbL
4fBxAZF4m23ExwsPNjwcC6GwQ9djywYTCpMaGgM+ZFFoFVKdd/AMhe1GgTcy
tSms69G4flyVwsHo6HXVWjTCvEq1y8uYeeGGLUpZw8dOsauN6+T4WP2jrZuW
A4UCYNQUZEChmf/mV9ojfJT3s5B37uRja1PsgzVXGfpLttiV8nGf5zf3M1wo
5J3qEttiSaG4jlmqWgqFXEPf6pgYCi8dtS8On0uhfVze92dZFCZ7kaYx7SlM
tizUGGI4eqz9mW/bFEZ6fvfaew4f+b66hcfX8nGvcFLt40V8lPLQibj3cBIF
Vd77K9ZO4k3dxoaUrnEUi9A0MH43jvtjY/eFC09glIB488K2cbS36r/bJDKJ
vhUqqzVXT+LwRtOApTcncL6hijkrfQLtpZu4y5rHcTjqVrJNHXNfpN8+ad4k
VrlGBoZJTeJ1k4O+7EMTeF+a/WIqYgJlit1bd/rx0OuaVpE3Q8qiKPA0xcPx
haakTmAcO4b2BnGiR1EpMN/OJ2EUl5g6XPjhHQ9f5/6jJKKXh2Dwu+3ortEZ
SlU190ikjCErJzXwbtYYZu208K5THEHjguLOldojaJIY6sleyUPt7nuKDeI8
fPrr4Rb3oH5MTXseEaLfj1/xBO6a3BnF1HOdh26WM/Vahd9Y9Q1hb9vwyxe9
Q+jhJNsitH0Iy9xkrNO+H0Kv5SE3NukNo3rJ6CPpucOYvp4btu2bblw3FB0o
LNjN+GThHHduYIYPiuxkhFo+4B7XYxoVfR8Q/l4DM8wy7LCPtRmcIaXVz1ve
1TdD/izOPtd7GCwqKtqLKeUtcSJuvRhW3J5gZfhxhrPrsf72rWuG+On+NGef
T+ffPSjgVLC+94t4+BQ3Tf4T8xTFmFczpLmnLRYbts+QmsXZ8TBr/SeuEac5
Wx/9af9/cbpOnkVIjENR+xf5/99lfC9W/Ia/etk0/3v/n/XI5WdbmhSrl01T
U1nMVavxM3eF6b49cvYzi8J6jcKfPcHc29davPOzvsj3F9lQSSc=
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJx1Ugs0lGsX/r6JDnIryuVXknsUya3U2a+GSiUkkkui2zk5kS4InXSSlKJ0
RClEhxTJpVySQRK5VW65jzH6xzByDTPffPPPv9bJ/69z1tlrvetZ77ufvdd+
nv2qefvtOULBMCxOeP6Lieqp93tdBECODaWKS+HILOxVwlOmAF7qXQsIZGDI
sbtVKSRJAItnzMpGAnE0dZWt5q0ogMKhcwGjOI7kqITzeQUMHVMjCpMDcBSk
VdxVLyWA2k7zIM9LOLrlcnqs5KQALOkWXYO/46jSz7jAKZsEeZGCguAaHKmX
Lx97HCCAj2IWfQ0JONKsJl61DJLgZXMnPFUZRyfVho0+LxVAnnvV6A4HHCU/
5sb5mpLwuiPbXusVhjQfsd3qPIX11OoNR7biaMiSsWlyggTjINdvb8owJOo0
0F7eIwAVb5GFSkwc2Rs7Qc0qDFU73Yv3OYSjVA9DncIuAXy5Y1+3fDWOKB1P
aJpzAuDor0PBz3BURImM7qsmYaA7sitZyG8oNihdcEoAO7pVX67eg6OosJy8
PJKAo+0S9T16GPJwKkChxSSQPNdB6Xc4WsMIXz5bT0K+0/5GhiOOZIrI8f4q
EvbRjZiW2RjSDWJ6r1IQwL1A/72zqjiSOO3XePs5Cb+MGUWkDGPIq2Sldlas
UO/nyRmOH4Y+/lASm2DDB9H+yx6VSjj6+JvSpgJPEjoVx7VimRii9siuDtUQ
wK8eCz54dGNIyUU1X86KhDVHyzapvcYQRXdsISuQhD94g35PpHGU6L+XFtrM
B4/YgEluHIZMBNIvfG1JGDeShrgCDGXXG66q4PDhzI8JdEY6hgJrzsSoPiTB
R5UUP0QKfWysbayg8kHZdWUhnyOAnw3NXaQYfOAF9n0+ex1Dfektqwk3Al7s
P5spr4ihHKmZUIqO0I+CNr2dV4X6jlmSE1l82GtDrpQIwZBBpahGPUFA9EzV
e0k1DOWzLPIzg0ngmMlb4x4Y6tFtkwm9RYCqmzT75SwJB8dhXKmFD+PjSas+
ncbQtBzjeJ0xCZdaBy6LRmOot/vtiGAtH4pE1d6FuWLI5mCRZzyLDxKZ5RQV
LyH/BNNOy4UPJxdPqxwS7l37AYUpt40P8q5tBobyAjhQyNJ36OfD+7RYM54/
hkCPUxMmzYfbCQpUmz4BvGd3bhRlEWAyEyWTYosh57GGOLKNDzul/n2eehND
ab/q/GjwTugvz3BXuDSGEkwe5GQ7COfJtB/eIC2Ap0abmzdsIqDj3WmHJF+h
Lx0X0g9tIEA011nekEvC8pgDvbsbCTjoenhpfQYfTNeFd5YK/1e8r9f9nVcw
pDxDi+7RJGBEIiPfNEDoe/KiuqN7CVicST0Wy+VD5bH4496VBNwOSa/e6S+A
FbnnS3P9eLAke5chR4yEpsQEhccRfEj5uky67ygJC38KqmXxuLDFbZP8+a8E
KGVlod0pPGiYfV0WHk1CzK22Nfo6BGxsG9LPeCTUUUWtDCS40G72osJbOP8i
36zXJ8t5ENWYZG0rQQKzq6Or1pYLSsGKFVZlPBhZGyxK28mFXapkjfYhHiys
7Puho4MHFE5khwibD3UXO8hn/bNwZcWr28/WcaEs8sLwknQe0KUlYhIXEFB3
NqqS08uFff12WzxPEeB469NUbsYc1KiIZpY95IHIIvUFN1vnoD1jfa67UGfw
VQ08/fMc6Imw2YriXLiYLO54ymQGlpasaP70fg6SLp50pLtxQUKyh2rUzoOb
wwFXGBJcWEhvMa6o4EFtzttP1fKzoO3j4/dKbBZyao3MN6bMguVxyeMcCg8+
r+W72a+fhTd2esZOYbMgvrKtJLJ/CnIt4640CKbBJ9FKa33/N6gbjrDNE9YV
M1XO3Lg+BiLEpcuY9QSsbtt+7HnfFOg/+qMuxnkaWDIfHunoToGHu6TidPYU
bN8YdPt27CQEe21yostOQR+60SJFHQPV5AUPhqy+woEvKhHxG6dg/0eWRrrm
NIznN0WXD03CWGmpaS1nEhx9RlMWOXNAbJtW+sCZcZjcGLDLhxiBJRREXdrx
FcJ/yWodpY2BBd08eZ3pOFRoPDiV9noYrCbuurltnYCm6//asq9iEILCmlWd
qF/g9LV2rvbaEbBOk51JXzkOTR+fzU38OgnJ1yQuaVlNwtbuyzrvO9mg27g7
A4TI27y5xOwgGxLVH5euSGODS08oRVbYv1AyZkg5fAhKRuqCWtPZ8D6Eq4ES
R0A/R0th9xM6KHeKSSq7M8DcGZ3YKsqE9NgCvQ31TLgTGyzV2NULVfq31iyg
9IEGNmctEVFD87YJamNZvaW1q6AgKcdhwB1Yz9icEZiqLx5dLkMDA8naI3ZF
jaD6LqRgIdYNOyjuW1LbumG/wWFz3ZXV4NnTHpsY2wQ3TBef7wYGjJbwzJqP
94OX+Q6WklcqeBtqqFyw+wTTUiomk97dQF3D/PQ8oxPozzNSvsUblN9orl52
Km6W5niiWX2bHxP2jhvfFZNjAr/V7o721d55xP6M7RY37+VEvAH7wZuPjB/0
wkDCb5rX+f/L/zX0Yt8ueetXBCyV9KyHtD54mmHTb1VIBw85RwUzRwYslzt3
mLmHDeS5ZHs5qwHIq0rNy8wdAO2uspDANwyQ7OCWLKtk/Jlvnsfv/bN2uDaJ
G0fOz1l/ooYTdrd3nqfh7UKb+j++6GIpBu9KGIw02Pwkg1rg88P+3y14zf+o
92CUSFLP+jXz9ypCOg1s4yE4nhesjn8ED3WJM4Ri4z/qd9DV9+feOgdSg1pL
Q+qiSte71DrYuOTNz/ckIYG13rrlb/U9Hy79fF24HxMrDXeLeD7t+3ttVOgh
70Z8vh9duhGv8039W/22qmuyr/wNy79j2gH5I8dc6DSTS7LF9xe10v7K/w+/
QmXT
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          PointBox[CompressedData["
1:eJyFU3k01esaFgkdKUNFZSxlaKKicD0NZirDydSgVMYGNCAdOXVKhgwJd3cL
0eRUKNFJ2FuGVHJDGg3ZYYuEvffv+/12cl33D+5ate66z1rfeta3nvf53nc9
33o1vQ867xUXExNLGjv/YacSaSe5agoCv0PzViRQeCBr5FtmR5AUccKrzoZG
ZgZTtzSCYGQkPKVgAw0nOV5NyB6CXbMD6PmWBHr/dOW6EAZl11RGpngwaP2W
naEfzGCdt084W16EFX8+b/qti0b1EYsHPFcaWuH23VlPaLAzv6fnnqYxTPuq
CppoPPjlTJKmM4FyvbdvpB+BWsWiUXtlAsNUFUut+QzsX8s21G2k0eU72f+s
tBDtrku4ldcpeFkteRk7RJAX533EUkSgNain2HFbBBmNqH1TpUQ46n0hx1FC
hKDez8K/ODRm/41rNfiCQt31X4OWK1BIuJjcomtCUFnbqHgmncKOlSqDq4YJ
7DqePG/tpHFF7fCJv4JpGLxfX/vNnCA0Lab06CQa7g5rHAIVCOSFkm1UB8Hi
+8IZz5OF0K0ttlTIoSC9P3xvdTGFqPMzenpkabgFmmSFWRNIsTw9q3VpuOxo
ntOXQuC+0qH2sCaDCN/+M1l3CDY6POsoO0Qjq2XRLNl3BM46+lPM4xnoKy0k
f5QTVFRRHvO7x3KUKlTbtJDgyoGc7HoRhWWsMIVYTQp6hoUSo2N9vG99/qLM
Ishac83T8hoDZYnXJYOfGDhqX2WpPRLh1IzsGkV3Bj3u2cdk2wj+flc4rYVN
cJlKPtgVx8A8Wke9P5PAbw7LJiaRwbKvmoam/gQ+dyKLuTI0Qloutywfq18w
4OEemCpEq0GDTEunAF4eAxL5b0TQmbXVbosZjcNnMozEFwsgJX02XTVEgKUn
b4TczxAhbEe7LjuMxkjClOQQOYKEuWplFp4EOgnFRSa5DC7blMv8mkbjXVqW
7xcNAvPFwtOS34X4lO4176E+hVKRw30PCyF8jcm86qc0zJqt3PLvErB2d4Fr
zsDGNahF7zWN1OOb1li9JbgUapOdrE0hLtqxnFcrhLxGn9TcgwI8pg63P45i
EHn7M/tcIoFXTUHckAqNjtOz9z6UIpCtPPfsVjcDz7hnpqnLGXT29B2aN7Yn
kCw+avVRgDcqzq7WVQRRt3nbqFAhurNmHrjXRuGp/Nthqc0CNHcbnxyYTsOj
MI87w4Cgaque5OuUb5Dm1iorKtPwltlRLnuPRsAlw7VuD4XQOHLWMDScwsUc
rSfx64RYVNJcwHBEwHYXlrs6wSnPU9JPrRn0hWqo8S4StNQ0zzI6T2G+snO3
xSMhInIyiNsHBke9blTozCIoqd13y4lDgaWsXbdoRIjghaEBwnoa/R7mbul6
FPal+1kPbB2G0SXtP01MGTSesEqeGkTDsrq17EbK2H61JV4i5iLMRfRWn/cU
+k4mJYhSRRh9bcpTkaeQImhXnfSc4PTZuUXHlQUo7h8tT6NpRMTeCe0IJdiT
mtQ2J1EA3Z2r6/xM+YhOPrm+RImBumLJsMp0CtkdblIIo2CxSm8401aIKd/3
XVijRlD/JCQ15qoQTJnqgRpbCkpfX+VpX+bDujaQJWbEwLbToGcbTaHpaOyT
e6NCpAcY16zN5yO2YdeWacl8pNSNZIo0+Ogz003T3y1A+4eYThWZQSS+dI+/
XtQPQdVa8WPt/Xgw6rfyUasAs9//rmS4k48jCwK2xLnwMfWKlcPij1/hTKcn
5o7lNOmlnF3VYz4qo50uC+2FYK2XVJF7x0fUTq8E/kUBSBHToGA/hOOR6kle
6/mwPT99ldLGQcy5t+qtS+IQXrUaNdFPv6BHQbWhIrAT27eLvqWqvUOBnEmI
v84nrOittNjA+wTDqy9WmN3sR/extOad+b24a1G3xcV0EDOVhha07egFL3ZO
baHTAHQCDDa7N3YhTcs17U1uPxIP70+bfvwzoqOeruZeH4Cj68swlPTCJvHm
+bCtPIjf4um/ndQJG6+5jmYDPbhJN+WLhXXCftsbM8Xr/SDGuzw9SQ++/+F1
OcaHizuL73nna3Ug4x5rf38+D/8YeCIoMurAucli5/awKuFgIDr0ezAHmTec
w5dyqqD4xbxS7VkXsgslbZar8dCfeaHxpSoPWv5TfPwu9iA8UDj5aGYnbieb
KCzs7cRd24GKDeofkJSTpWRj2g25EbPP88W4CM98ES37tBFN6t0Zq3azsTv0
RvDmD3z2aCN3V3sVnw31+JmbvtUg72tD7yOVXPwrPNNR0aIJnHzF3yIPf8S0
roUzI57Hlc56tcfyO68adf46EbHKXTDJerP/3YYKuLUp+4zu6mWLRZ0ZPqXY
x17duzd6auAnxK/MCrL0eo9fbJz6mpOa2BIhNV4+w/99z8XdqcAvb8tEv9+4
Bzq/2jZN3MdZ+xKfK1EQg7Mzbe8W1lVC7Af0dptFUlnLOEGldueXsmdwftT/
H4w/eF7jpbVhWFBoufhZO6JiVxbVr/0Ev9Jt9a+ufPxpnh/9P+rjLJPaZDzP
4ef6cXD920qdWHk/+cbz8Q5PlmjTt5nw3+ytfvt+e+qEvnJbs4/ut4oJfYU0
3RdspQDv+F2vi3eLcVrKfP1OLRlhj+viEeJ3Dqwr+p/zjEM+ebXURV8xjmY5
21rNbjpn4v+vqi5jcgsQuKlkR1XAEHta8IaGDq0XbM72oS6pW8s44/xvR8VV
hA==
           "]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm],
           None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}], "}"}]], "Output",
 CellChangeTimes->{{3.772169885059484*^9, 3.772169900093421*^9}, 
   3.7721699775755367`*^9, 3.7721701185811143`*^9, 3.7721702882173615`*^9, 
   3.77217064855888*^9, {3.77217177378767*^9, 3.772171815021678*^9}, 
   3.772171903010309*^9, 3.7721719885573015`*^9, 3.77217237043204*^9, {
   3.7721724258584795`*^9, 3.7721724447863245`*^9}, 
   3.7723515054679585`*^9},ExpressionUUID->"be10bfd8-9cab-49a2-b272-\
be836be9d082"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MI2M1X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M2X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M22X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M3X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M4X5", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X3,X4]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MI2M1X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M2X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M22X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M3X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI2M4X6", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X3,X4]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
   3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
   3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
   3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
   3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
   3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
   3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
   3.771929457794732*^9}, {3.7721689283429265`*^9, 3.7721690533491125`*^9}, {
   3.7721694854823895`*^9, 3.772169488631389*^9}, {3.772169819335092*^9, 
   3.772169821480093*^9}, {3.772169863548537*^9, 3.772169899478387*^9}, {
   3.7721699474990664`*^9, 3.7721699767585363`*^9}, {3.7721702601076183`*^9, 
   3.7721702722613535`*^9}, {3.7721706449071755`*^9, 3.772170647284936*^9}, {
   3.7721717010141068`*^9, 3.7721718143087273`*^9}, {3.7721718659804497`*^9, 
   3.7721719017313013`*^9}, 3.7721719876233015`*^9, {3.77217232637504*^9, 
   3.7721723694770412`*^9}, {3.7723515577343907`*^9, 3.772351564329043*^9}, {
   3.7723516020150332`*^9, 
   3.772351640695641*^9}},ExpressionUUID->"e9079412-921d-4491-8c88-\
ed0fd9ac57be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJytkns01ekax19kol1SjDoaDZWoKONa1vC8RCiZIiaErWabNDs0rrOjXAdN
rrk0ocyesF0ad1JHyCWDLhKHTIRhyyW37bKvv/M7a81p1nLWrPPHOc9a7/qs
9X5/z/v9vs/7UznrbUsTRwhdI9e/+M5/OehvHQRQFlOWducQsHtPaeL3iQg3
zXMdPaIR5r5ZM7vRFWEJjcXnXWcQVpREz8I5BBRxdX1UX5B9YTsUVe8jfEz4
ZaDePYSH6rdGaRYRcKi86sS2FAK49dSCS2SfactXua0OCAcMFubqGSFMUW0o
sDmAsOu+Nv77bIQ1a7bLzzIRlrtUYx7kQvoo0i+22iOsseWiVPgWhDNt7Fgt
axHOj6Bel19BuKDeLR/NIKykYO5tQH63szcwyskKYfN+2zRbT4STEpIyemkI
TyeKBxmvE8PsMNMzPSKEowzS8iTpCMdaq7/c7IHwpw9ypqQOi+HPCu2ETJJH
DPyWMjYj3G4W8fUt0q/VJa9a9yjCguREfosFwvbZ3nYV4mQeqlzuLDmHbFG4
Db0H4S0NgsumXQj/HtYZfi4dYQvL9IDxGwi/KYsplfJG2CeBGdZN5mH5siIY
5D3njBXTLTIQ/rb6gjI/EmHd0J3S90IQ9iwMHKS6IXz6Rp/UdWuEVTTyzKvC
EGZaMKpPkjplYCz06PcIzyZsPOXIQLg68gucdA7h3KAaBp+cw+BxzR9sDMjz
lMLzTTQRnpraaXuazO3n+rhsVAvhn7NZ7cMTCBtGs9pnhsn9Q+XYWB7hYdX5
4gUJhKW86/12FiN8845afiWLnKv7tjWnchCemBb06mQhzFjxf0D7nIBg00Tv
5c0E8E2aKCJyf+P428iT5L3vNg3tu2eHcIe1FO2KOTnvSLqOsQ7C+zddWN6o
hHB/5otjDvYEDD5a+t1Cn4ANUd8qPmgjQMvp9Nz2OAJMdVuTx+MJqB+8uVBE
cq/0OzxE9msNJAxHbkf4WtuoX+VJAiTsxX5wPULAcyPX609kEWZHfMkyWY9w
jrhGfRmL1E3PiR56ExCl4Oh72JbMLXTgLZshvF7v2M9DaxC+wD7+ekcPAWei
LPIx2S/4JT8im3xvozZL5awNBPjFlHjfVCZAQa/5Sps7AUKU1njWmIBv0rX7
ud0EdFMqxAtLCfAMFnh4ZghBxzC5QD1eCAJYP3vqO4SLvrrGcSP/Lwp9pehi
DQGjinMFjT8SsDjEOfLTbQL0kva+kkwk4C3Tgf73ERGEps7tyq0RgcRMpBpu
F8Fw9JYReqYIEjM1n+yhE8AMWX6WoE1A5G/zltr2InBVvB9kbSiCEJl3WdYT
AnCspOV61glAQutFWmGtEEL5/+jUyhSCSfxhc+OXAlisOx/4qkEAI+zDVbIs
EUjKpVbX3RaBi577OpqCCAzHuvYyBEKw/MXd4n0NHzrjnohlXeaD9WKvhyhV
CBvSH//6zVUhnG34TeL2PSHs39ZiohcrhA7DLGn5ST5gO65V8McCqLL1q431
EMKcy8BIQ5AQilgVPxrXCCDULmmxkimAuPqsPV4dIghSpqZUkf7FdfsCzi3x
gVUeHiDs5MMI7eGn5VYCoLYYOSzpCKBWSU2m0YFHvpP/2nozHug3fnb3UCkP
LiWcF2t7yIOJLKMDpiTf1kpJGObzwCtQ6tFIBR+m1+5a2RTIh8lPFNaV+PDg
tdVg3UkGDwKLZ7o3UfgwnNAo/3iJByy/A8eudvPghaTXJeozHjAnh138qXxg
mOvH6wTwoeSCBqJY86BnR01ZqgUPmi93vOYcXAHz7WV9jvoroGrO2kqtXIHy
eJso57IVqI292R/zmgu0gdJo2gwXbsg46+I1y1BRWBDDUVsGlZbPqarLC6Ah
t/ugnwwHdH91qyqeXoSmu4sRxspLkDInjaOPLwEqLb3xEW0Jnmj6v9rWwoGm
Z8ctaTMccDZ0dXYzWISvQxzNykhGtb4cT966APaS97NjG+aBzg6zZp7lwK72
Pmkj4ICPethB9+AFKH0eP7fbdwEUrzofiKnlQOLz0Jx1+RyQGY13alWYhwwm
nVDXnofKVJlyM/V52KzvIPJxmoeZa3MVzgocMKg8v5wnWIB5C8uordFzUDIU
8GasZQ5E+jMrn4xNfeBDKUZwCIMDLnf6aQO3OCDbwLdv8f+TM1d7ZStuzYJB
bYrX0+ZZEHZ/kaYW+/4Dm1XAyU5rEmSlKyf6zCbhqarncoLVNMQEtDnMKk2D
MC/QN2ts/AN/6nykrZW8ADz3zpZ89wVgx7E9Pxr/8zxfk5KBW0GT4CX/cZ7Y
3Ukw7giiUCh/zbgT3HfcDDZYFpUY3T4xDsR3d07ImXX9JXckHe1qdp2C0FCV
uuvZU+DRe6Um/Ckb+q4siPX6sP/IMfCB8IfPv7laR6vqv+nTPfuZp6VHoUf6
4FOW3Nh/6Ktrdf7/t/6/+q+ufwKnCeAJ
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJy1kns4lfkWx9/fdpLspjPSOHJNTY5CM6GLwlpIMjUYTEpICuVWMilC5H6U
W2KUzRZdJEI0RWU6KV2UWzldKLW3W2ijjb23fTnvec4cf5x/es4fZz3P+3z+
eNf3/a73u5aO934nHwZFUQn08y8+zdULcXcjyFa7ndeyguDJK/6P5ugy0Lq6
UR9nM/Dgt2Tw7kuCiTy/5pyLBI1vsrg3fieYvM/Wc/Y5ghGJ8zu3VhFkmUIq
xSJos8R7jPqW4C1GS0C/kEKj7Rb53Zl0/1d+AWrBBMuaUs+XrmBg68Xqyogp
glW9ZXaR1bR+MlpLPofgfJWvhxoSCb6K3xjYvpPgHSl3By+JYP/z6P3rdxP8
lO3/qcGIgQ59zAciNQZmeH18bDZKMPb9WMjxLoIvLuxRdS0jWCfXlfKG9s3P
Ptq2gPbb9yvTPo7JQFWJwfcBIwQLTRWSa9sI+ognucmODOTtLX1+0JiBQo3l
X62i/9fEuZHpeIegR4pw70oOwSUj1zu6HhL8adHa29m9BJ2KVB9toXNoqSwo
MjhLUJFxbN3SAwTb9vyauFqLnqt4duzVaYINLsWl/lEEKdtIP+sfCW4rrNF9
TOvqhu4/UjpNUOFpnMiP9vPSzHjxsZGg/9QSw3v1BO/6LNmUlEZQ/vdm5ej7
BI+5r74ecIqgXYZW6vEWgvYfBp+8pPvjbc3JzXKC53M0nOWSCe5PMgq7mEsQ
DjU5OGwjWH5hYahQTPDQ8L4y8+cET5xV2cRsJ/jG0u3OL/Te1Lavq6hrJng1
VtTTS+9vV6Lc7R46F6ZDfXcNve+dnTrRHXEEgw2vbA9yJzgvVZAS5EiwxI+z
Ya42QatXFoO7VRhoWnDvtMMwwUX6awZD6PdPtr46OKFL0LPVXnp1LZ3XM/Xk
SAmFjAe2l6570jltXG5sv4rOX28HpwoIapk/LNFRoe+pPeeZTwhBw5YYjo4l
na9Ld3kW3Wf83HFqpTx9F2zNU+qqtH9PJKtKRqG26MxTNiFodImx8W0/hVVz
l4WdDabQqtj80QsLCj1mPQjypnV2iu3u4e8p/KZgcV/pCQpHJBG3vH6gMG+n
/KyHtK+lXqIjDlNYePsVQTmC5xyVtk5zKYyf0DZ1O06humyZf+uPFK5s7Jze
rEDfsejQn4YGKLzkGp1Zb05h07p0PxVlChNin8TVdFB4LuGWX8YVCg8/Pji3
hJ5nuI5jo2lK4ds1qVVRTArZRdSRuCcyWCbdZq1YJIPwgaSiM3YyKN2RuaX6
JoXJB955J2XT/aX7+kMCKTRb17r43EoKC8LlIrTTpVDa4/03fwMpyF8y8w+P
koG3u50OM0AG6mGuqVEWMthbU+JRw5OCl1FGGn+DDPKc1UKXq8jgWnpmUcsL
KUz8Izqss1oKTHb8+J4WKYzUj+XPS5bCTlulg8VCMRzV58w5zxbD1FsxhIol
wN8edCO3RgInrM2Op7+WgLOg0eO3SxIY8JxlMaUqgTMvfZWXJYmB/YNhYdYG
Ccz2Ypt/pyCBDp/A2qs3xBDAqW5b9bMY9GePSyy7pXAx5cPIcKYUNm2b1fdR
WwK+6t8rmIyJYfrCpidb9kxDgZ+xV+UnEXDH4gNjdkwDpZ8d2TMkAovojntL
I4RgEndXw8BXCHfDjNj8JBG0PrrX42AjAl2+uvfkAjGsyXIJymmbhmA/p5rw
WiHo6aruzksTgt3IZZY2WwSXF5bdPx4pgltathtt+wTQ9KzMOaZCAA87SKcJ
VwDX8iKPQocAfo4sqT2QIIAPNlEBr1YIYFV756jBsUlw+su1ujqvSWBeOZX7
3noKDhSmO7P0aTbqfec2ZwoGnT5Y1vImocJ36zf5NnzgtpsFrv/8GXp9qe06
BXyoFix+6erCB0FTudmCFROw67N59PIPfIiK3WPDyh2FpyAyk2WMwhur00Gs
3Am4P3KZ5281AVS6u46jEh8aHtg89p/+DH9nhSjbz/0M24JfH7obOg5dm6dr
gnX4UHI65u17Jh9+W9x6TK2FB2ZpZu/xNQ8qNjSrDY7yQcm6eOeCET4s1TtD
GQXxwKSs1ZfN5UGnecM75fpxyO2aUpzfNA7+JxdNZTDGwfONydryjDHIck0K
sCzkQXx5YL0QRoHjmDZeJuSCd4SwzeloL/xZQ9HUgBqA/XYFnrvW98NPyXeu
c6bGIKZfy/7kuzGYp7Lf0DirF3R8mDlR/F4oUV4KqXlcGI464uxiwAXKutJ1
0qNvhr/M3bxWc/UAZJnbfkp36QdZeKGj8gbODKUXD4ey+gZmmFxYmZTIigPq
j5pzIb/ZeyEXhBUaXcWHe0FzvVttTMIAlIRrdn/9rB+k//nOH5S8cMj5a8rb
Gf7bp2OG1Bfqv/XQfITJZA7N8Ev6L/npLaoytHJqhVUn3btf+rb+z/P9v+uf
mAt9zA==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJyFkXs01ekax3/vTm41OHQhNDEKXVSKaqjnmXIpW8NIdNu5xBTNoJFKJkeU
XFKbhCFyKbsaJDEnVEhmXDKKMK6nop3Zdth7C9u+nX3WWcsftc7qWetdnz/e
dz2f7/M+Bt6BLr40iqKi5Oe/dGGu7tu5lWBlfuRvsxYRZEzocT3/JrjO1SxR
sY5gx4onofObCK65WR39+gZB03HTw0/CCPIY9btbdhGc8Mo/c45HcH2zuVJO
u5xD/edFUQR9Hd47ZOwlKDYNej9yiaATCI0zfQmenfIQp1I0LI553jz6mqCt
xETh3TcEX13cuZCxnOBWhYZchXqCY+sXWwvuEpxuU5e4HCU44rv7lXAzwZMJ
L+puLaVhfMazEyWzaZjJ8P9HYgLBkpqWP4YDCa5Ua31rtYCGL6s5g2+EBBds
f2aYNUlwdlzxMLuLoOe9nx82RhM0oBsxlOR93cNPs9j7aDhr+nlElDUNU9OT
I0XZBEsNs/4YCCG4r6HzVyNCwzLa+oOqPQQf+HxfK8gleKq/aMHojwQXvjbN
L1Ck4UG+zp7VbQTb1N6oZCrR8DmfI9Ltk+fdXLZRIqOQrRByaXc7hfbmriSL
RVDrtlWPp9z/iGPTpaxCQ/UiVkb5vwle3lAWu3VI/n+NLSX+Dwn+BdcyZuUT
rHgFpyziCD7k2qhVpRLEataqsXCCuTsZxvNrCfZ4qVZlXSVoHtPFNbtGsLrx
fcGzwwSXrxycnzdMMNk5TePoI4LxbFawjxXB0Ms2byfl+5b4dX2Z5k+w80iY
zNZCvodYoze6cm9tf96scPmciX6VG2YrEzySmpm6v4lCH8q6ymIZwftKV0xt
Rig8odlxJrGcYHSTZ2Eik2CI8gTl4EJQrfKubrsGQZWrJ+6oGhJ01F9mzeVR
WNdpprGXLs/3TrPyR32COtln186PJZidG/OVpj3BRQ1XLhcVUFjw2DHQMorC
XU7dR0/J/dHGrpaR3RRar2VYODlRqH42vMnRikKvNRWH1tlSuDOs/9bN2RQK
/Db10dMovKGSEgA/UFiS7FcasYXg8WxWw2pT+b4P5PboqRLUd3hqHpZDYb6y
cCT+NwqXLP+20zGMQmgybi48QeF2o8fOArnnzJyA1yGTMvjm0dimWqYMsr2a
/wqppHD8aXnZ0xQK190L8YjZL4OilW5BnVNS4CgWPrnIpzCyuWpZaT2FqZnb
NFhuFKrZ6x8rXk5hbazjSSM/CrvmAc17B4X3VeoFThIZtDEb3LeUySDzSb5O
4UYKRS/LNt9eQKG/JO1B7GYZqH5N31TSK4WAJXMX1wTKAEtUQrXeSsE8vpwt
8ZDCjnldzAcKUui0TaKyQqRgYl8XwV0iBUV6ZXCxvhTG7Y5f9+VKgJelG5jb
IAHziua88EcSuK7De7HRTgpDha6sOD0pVH29d2GLkRSq9eaxFSol0CoOHjxd
KoFdVufUfjomgQlVmc2tJDFYfbtUddxMDIWKoddH/MWg25d0MNpLDN2psw2g
TgzYkWISGy+GOEvBRc1eMaScn94V3imGmrRamfYVKRgmjUZsCJBC0h3z1nd+
YjDZnrH0GF0MjRFBS1rdRXC7+7iep4kImHP3LbvxYRqitEWsTr1pmOOguHjN
i2l4K1urbH5nGqbZCnHqN0XwfsyXiUEieHjN9qyV+zSkPdf5l732NPy56nZp
W4IQ3PI2ulqnCyGJrnOIu10EFQng0q0vgljNaztctgih27ixLtVeCC4aY++s
hVMgrVeJFFJCsLuGzTdYU/CLj/a8p8lT4MrvMTo/PAkCHe1VObQp8O082nfh
5gRo3NwfnZc+AReGqvNi9k5B5nHbjkTGFCyn/7BTb8UkdGeZXVQymYT4yerE
fWM8+OWSboj0HA+0QMn4iz/HYeSFQvWegnEYcu/tpucKgDmuttU5QQB7XE7r
JJR/AI/vBtnRhz/AJlHX5Bdr+NDKPNL26zAPJjjJv2dkCwAPed7fky4AsdEN
p0WjfOhbsbKT5c2HSK+An2oeCiAyLPPvjAIBXOmI9FZX5YOPj6is1YIPbgsY
Uq1dfCgdUEudvMCHmjHHgKDvBPAY50VULxMA6Y+2GNfmQ7rHvQ0emnxI+Oer
W6vdufA6wGBMoYcLEtbJ4Ez20AwPuukMd83lg8O23+PWsHmQ+v2Bs12rBWDM
ycjJ0RTAkzyvqhr/9xBq/aUtVnBhTjrv5/uzOJCdxUTvuxwg24rdJxjsGW7W
OuCXMMwGrr1obqM3+xPfAN3/pB3yIOqqi3YdxQOp5eiUHps7w1WLbrl5G3Lg
iEVfb7s1B2Sh1521bAZmKGl3SjGO7f+//N+7thlSH5UdvaWuaDcXXp6scxbR
uVA7PDXX7dQgnIrw6/WzHPzE93G/z7EpuEhWxR2AQwZPrXW/GvjE/3F9Lu/n
7j9X/wEt2a2B
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJxlUXs01QkX/YkaTHqgp0zySEIoabzavz6iRkjciF6UZrnyaqWoGY+QZxqZ
PEfSCoMSIkQukiRKno1c1ciNbh63K+51H7+5s9b3fX/MnLXO2uustc9e++yz
wSvggPcCgiDOSfpvVOf+GJVnT6Epw/5zoiyFj7EpuVnjBOnVfG/6EYMgx+Rv
+x7eQJCxbfeejL2loFgTU+ygQZAsX9lq13EK8ltblUbWUqDVXl2V1CqG8pi6
2cUsCovatIlqBQqz8yoNaXIEeaXGPMi/goLlqtOZoeUEGbV9/bXUYIJ0dVAM
edlN4UUTLUI9n8ISdx/uiWsEWZhoVJ7lTZBs1nuXz40UQt2XPjpgSwGDQ/H6
RgTp2Lf5TIosQT68eLRgYwlBJpccVzG7SZDmNB32ilKCDHXRifgmgiCTGtob
K9II8jslkV9YmETXXEn1+nMK6T9X0p8TFFi7DrsmuBJk3ka+5X1VgnQ+2Bnl
LiVFdr813CX7iCAfHBk5Ny/xs6fMoLM8liBL2O2Hg5QlefgtrqqX+Bq537og
W19yhym0ApUIsui1o0bjWYLMdXj6fMdWgswULlA9lUShLD/mQ7AiBf3IuE/J
uwly0/Q2N/deCm7SZ2NNJPneMBbS0+QJsro9LX6cRpA3VWh6fVIEGVz4fnVG
mBimXfty1EtF2O6w8dN39yk8dum5+SCbgjbFHHypQUFT4c8MCwmP60x/ySij
kDAydHoVKKQc0slZrCbR1+KOS0v+F6HcaJxAl+Qlrx6SaEKQWoxNO1QuEOSO
1OaFmx0J0krw/Oy7AAqZh1CTJhYjyuvo5U1ZYljURjj3WYoRMtp3Xq9LjJWJ
49q1dmK8aOeuk56l4HxTI3IikcIWetCgf68Y0zl+oef2iZFZxZXt4ImRapex
Ov6EGOuCRXmzCRSY/WPHGrZRYBQ2vXx1hAK9/GsTbViM9Hjd8dRjYiRpJt79
yhNBKfLyH4tNKdzdnzJ2PEUMZxljC+1oEVbur/AsnRViAe2x5YUXYjQ17uz8
7CFGsl7qz42SPa+GZceLD4pgyltFnHQVY/edhU4hkvmCk9Nb7dsinJpILwh7
LsTtXxL1B0eECA6POzhrJUTYhalfi2Qk+r9bbTYKFOIxWbOG5yVCbe6cwOOr
EPOvTGreyYmw0zj7VWqIEEg/RdypFKH0uqxRF12EY73i+ZWZQkin0TzK5wWI
dzV8M9k8D0f6szX7eHzULBl9aGYsxH981zHlagVgxrr2b2sRwCdlxqxERQD/
hb3KicNC3IpPn1xXLMTwmfOGty8J0HmG7m5vJoCOvNRHni8fHntEV2+U8cA+
6X03f1aAYxy/Dpa5EHvyAzy6++bBL/FWp6sK0OrUznrox4OLpR5H0YSH5OWj
q5g/8LGMLi9Vks2HiZNtoYwsHwXeVTWOpjwMLfLIlmvmQ3fRRL3nex44+tpG
e3fzsVctfLmbAh8ne/WZidd4YGZ/PzHwgAfl4ZZgejUPBjart9TdmUNNi/La
KnUe+gIHlOxs56BeVCo9V8ID5Wo7VX6RB7Ub3B/Z3XOwiFNsDhuaQ4WVQpjv
1jlE+0SHn0mehU1DmdHVxhmYubt3pE1x4VEpp+ki4sH+irWDyggPMslJWof1
ZjBrFL1L5RwXugc10r/GcuEvXW/UBC5o1gfU0rq5aIlZxFFwmIFF5HHfiF1c
LD0abxtIchGU4+D+tOULfg0vKJZhfsESw5hR10YOkgsvOb65yAFLYJvCvMfB
CtpHG9UjX7BHZsH0+OQXDKmqxslSX0ByPZVomzjYUJTV36fFgYX2rZ4x5iRs
rwQ8fKwwDbuRD7FuTyYQx5qM/ub+BFpClAW/vGGjSmfFWtGzT7AMLjp/byUb
Pf7ETxkObFjR5Sv27pzCQLJ5l9mhKRiITPwqSDY6C5wuna77hLuXxtve7RjD
jElI6mj9R3h2JKlpto+iIjL5cHjwnzjlWhhr+n4SU2pZ292kJ1FeoKdrFvUB
U0/4jZeDR/GsQ6PqM2saoVRAoKcGByobL3czCkZRyll9dJA2iofUR52YumHI
V+UM7kochuLF67/lLRtDfPu7IC3bMZSt6PeKHp3A8IpB+6gPbPDZCtKsF0z0
MTPCMw69x+TK9Z7F9eUYDujpeEa24rrVepvq1N/gbRAoe8HtFqN4rch6ZO41
0lmzupd7/4A4NHe/knXP/zE26GTL+EABo8T72299nPsZWRYh3IGJHoR7H2En
tb2GlGqPM3/5Y0aXDKtS6achBvGPuuZpW9mW1cLw9v9UG2OdBwPDLT94pd9n
fD5hA6/hLoZNrubsEv9yRrG9/ZpA69/xz33qvz7+h8bFX5WqB9/Cxz5yuq7j
7b/4nalbzu+cqWEoLrJJ0DKvYTy1k8mv+1DB0F56nHkveeBf/L8ABP+Y9Q==

           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          PointBox[CompressedData["
1:eJxlk3lQ03caxoMXHgEBpQJSICCHQwR3mUXl8MEiilw1WooFYakFrIpBSIMI
ylHdxaq4Li7XcqgrckkrEcRZBZISClowVK5VNAVLQUBDINfv+/sF16X/dt+Z
Z94/npnPPPPM+3IOJe2LX8RiseIX9Nt2t2wdOnyHQFEqC146ScDy3X/9RB+D
6KCH+7h/Y5DJo3KVGoLYopaNba0Eu/uf2X0lpTBAXKqXGdB421Hm0pukw/ue
7j1hcRSOX9N6a7JoeD85Fexzk4aBcCzLYIBGmWG/dGkdDd5UbZ/CmUb8zQHD
KIZghJUdc3v5PMxqZh/2s97hx+2DJjGRNB6Z7xNPSmnY7s/thQONO7cYPG6m
8fW/q0X/XE2Dibqf2Xyfhs1LYVpAKY0LL577Ktpo/FeSd6CtiUGO6MshelAP
aNjCtWk0mjdc8R8vopEn4BvYH2fw9evNZrWeDNpMIqnSLhodAXtY9hIafN50
vlGOHvqxRsnTbfMQVe57WSwgMI8uJN6memx45JYwUkHhSaOQJ7IlWFfA8cpN
JTi55Ubadw4EHeEp5yLeMahuNZIVWeuxeq9biKqARuu06SYTKYPSDSOLuFV6
CGx4R3xleohz3aykwQv57a49s5ml0WVit7MgkEGKn4jXWq/H6K7SWMaVhoL9
MmJuMwNrw5Fkm/c6/EVW3RG2kUB4M3Cb5BhBPH+45lUKgcfM3gcJC7lorcFn
rykGuz5LcuoMZ/DM3WdC3s4gtMjYg7FgsOqCp2itux6zyyoWHbGah7nwT8GL
xfP41pabUX6WIPI7p/v/eEfgGswXcCQEf/XM++aLIAanDSlj43Id0gz75H0P
CH7I2N1ksXAfWVEJz4dP0/iF5VdpzOjAN/X4nL2EIIFzxF8aROEyelrEDQRh
kzviZhZ6qtQG5ayrpcH1OurzY68GM5HsXR6HdFjt4Dg8XUVwNSsptjCCwaEQ
mb3/NYKaoAa2z3IGiaGJ2RMJFEKTwtWvEymU3FpkcyyFQUWySabZdgabGl5F
/Hmawnlqv7dXI8HFrnuPwooInM08tl9gE9y9dCWctcDPqL3Eu9VD0BNqHNTu
S8HocEaUXz4FM/rOT85lC312yvfOjRKs54sGz2cQOFw0PRQcQ6BstJO5FenQ
stTzX+3OBLlP77v1R1Ioti4euNtOI0bDs02b1sHzcHbZEncap0JcD3K/V6NR
9Ek4K1mLcaGja2OkFm8+uiz5okoLbUzo2U2pDPTT7TvcchiUPDneoIsgcCxV
fJyTp8eJY0dHwKXgJ/FqatZQ2Pq9oNJxlxb2zX43nNZr8fON/JPR27RIlGcW
PmdrwbXdWOMmVeFSsGDlm4fUwj+NG0TrNJinA1MySjQYNXK5Yl6rRf75O3Vz
Sg12MFm/pnpp4LQlzqFkrQ7pU6e7zh/V4eJ69ocHVFpMSIstOAo1pupTy9+e
0mBl+/tlRU91qA+ojt3JJ5iPn3BRd+tQ6FpaucyaoNhy+dPwYjW80stqhnga
hFUt8Wk5oQWnt/eGXqaF1fWD1mNJahgNnBy27FLhcvVM95psJR5s7xne+EaF
B16to80rZhCrHHgbcvotznA0XLVSC7sX9h3FNjo8v/zxKvmeOcRtmDj77ftZ
+F7tkZmEyNFiYdUisHqN+O5eg3VXJ7FkylcvIHPg/bA11qhXCV2glwffX4XS
ilu/uPpOQ920MlAcPQnVxTWV1VAj+cCZ2mSNBsq01McVMiU+5X4Q4XpmFuod
5Z/mV6nADml51OGvxvigafnh3hnUlX9YMJ41B9N5QbplnhKL7xa4nBMqkBjF
hG6V1ePhNvaRgPXRSPfeejemcQx2u/9Q2Oj9Eude/Z2zqq9M7GEQ2q0oakfJ
iRVm5g3FqMllf/lV0G3UbSl4clbxKwYfRx3/qGQMS4X1dWtFnZC5xBx14sjx
QWC0LjauDVyBddmKzkL0z0lNT9XJ0fnC8VW+pRys383KWYfcsSkJONJ7/Iqh
yv/zPdfsaVMkqMTem8SZ0YEa8cS9nf/5aeiPEonzrPs31zdLLnwiM9ybMi8+
GPD55M8WiyWx3pvtBtJvY2Y0e7W2pUn8e97/APD8LEM=
           "]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X3,X4]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm],
           None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )], ",", 
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJytlHs01ukWx19iurhMhU43oiFlpEHEGL5vKWVKREpFoWlKORLlSMU0GpGj
kC5GkpHKJN5R5NKr9KaJOGgKSRK5dHEL7/15fud3zpSzlrVm9c951vqtz3rW
/u5n7+fZ+7f1fHe7blPkcDgp7Pcf5hoc92nqZKD8RRgKqhj41jxKD97K4QZy
DHuNfTlck5znBrxpHG71xHPUZQKHG282vl1UzSBSN0/SVMogxP+qk1E7g7al
OX3+rH9ciEBtXBiFUs6Xdq83UFgY0uXe9ymGlctLp9+ksHPRNS1Io3gy6YZd
2DGKS4L3Z9BN8ZB46V+8ThEuJfyxOxg0RauKvRwZPFfu/sx5CQOOsiC925qB
t9HhxMwxDLqVfLTDFRho69R09NyTI++PkgaTYjlypy0Olb5gMDnKsMXpOoO9
/fk5/CQCf9e6qeNOEVzJtz4aqMQgPujUN+/fUBzZ3OaT5kvxy3y/Y8lOFOpC
/aKcowTRA8YGLakE5pxQ99gLFPcSOmNyf6J4Mf/n6QfYfdlcQ7XZfhSFU5yN
/yWmUJPeVdz+miLo/HhF01cEvI1hHaduEZxcZ7/7K0sGXX0T6kMlFClDA9X1
7J7pXrspX5XBvNjejc/NKL5PnCw6u4AitTBS54IGxeFsFcUwLYpzY36LyZ7J
4WreDnn0RpPDLWtw5V0PprhG5LobPSheZ/irDjZQHPLtqLubS1G3rtr/JHvu
Waudx4QyijMHc/RmN1KYWvEPd+VRBBrKv9drolhyaVVQXj5F0naunRKPgaeR
6cCtXAYxP9wpj1hE4bRF/16RKcWYXyvcv1VmIHDgtH3N5i+6ZSafyMa1n9o6
9pvFFMbujomLe9l7KRYIBp5RZEUHBlWx72Sxb9E/Gtk+eOnlK1C1YNCTeMZB
VYOBQ9QFv55Wil31c4r4bF+8ObLD/8jvBEUqHstsrhIcPd27yruOgY5S76TH
RQy4PXb6fXYU+7ekaPgZURx7uL5HXEOQ3X1ti995ArdTLvvvnqQozbALKk+m
uO50OV+FQyCpC05rbZGjL+KiRJlHEGfpdjAgka1/upmFVR2BsDL46fxrBNtv
eFu+30PwIn6obd06gq3tsQm2BhTbl2sLImZSeDlIGlVFckh2zuVyGDkGPAt9
jt+hiOisNnh8meKAOKjj8NcUpx0iRUtWUbSc5/Ma2H460eCo98KGwv1qXt/+
QoKGFce2/ppPsKQ4I3TMboqdf3O4oO1FceN0Mt84Ww6Lrg3a7+LkcM5Oi/JV
oqCRdiYYIPhZlhlT6szmFacyHGxOYLw1uOJ3c7Zu+ne+rDOhsExPkURGU1ww
SrCe7kPR77hcGM6lyDTg5XkSgkadTVV89v1KLNJvbWL93H3UTZx5cvz92S4m
5KgcJYku0X1DFAX1e43S+yjCDpqfc2L/y8m6ASvWuFIYzvUrMR2mmPWqIvNg
FcXE5y3lc8YzeLk0SdDxjqLY/JqW2x4GoumB+vXODPbRtPWf72SgPrV1xzQz
Bs3Lpj6m5gz8ml65zTVkUJWkGVbEvlP8ZoNuG1sKNPm6uvUReC0uDCypJkhJ
uBU34QTFmg2hVWfOsPd0W1QS3U5xO+anRJu7FGRbhfXY9zLUGA8EtnSwVFQT
2pRSxLqEpTRfocjN70o9EM0gL+jJ0WdsXu4xrzx1dSluGmho7WDrefKE5r1L
rwmCk0UPVpcRdF4tjrZyJ4i4PkEjy4agYpVLZvUzORoc16tMaZOjous+dsgJ
qoX2JtPaCVbUDq8cy86HKbWqdnnbCB7xF/rXziOYmHj/pqUiQQnfa8bG4wTn
ir7b5cnW7bZr+MMrswlmzJqwx1aV9btYUFbL9p/C05c6756yc6Le+ItCU4LK
gUM5y6wJciZFXnoYIsePmv3xh36UY2JRygqDfDlOaKxJ5lfKIbColW5+IsMb
18bJsc0yPJ7tGpEdLsU8qG+u2SfFwre+BamebF1nTMpysJJjrcNt0TI3GTZZ
fRWjZy9DfaZp8fylEijEx6XO0pTAyCPJOUlPivbl+9bFqUqh1Zp8/I62DIaV
4ba358rw3TZ2CMRIUTaYuYEbKcWctvzBJZulUNdI32tvJ4W14WDP039KoK53
NuZlsgQ+iaG80gVSCGdEiedoSHFlaMoL/21imEWNLRH4iNHx7HLGD11iNI/b
Pr7tuRg0XsXXQ0s4whrlHBNXRTFe3awsXs0Rw7HuQVZyxzCiNgVcrGgcxvtd
Dx8vqxSi9UCIegFfiN6M0IXxYcMjtLihcCPnkgjjbVeuUuWJkLEzwU1sNYjQ
BQkBD/YOwiHr84CybiGsm1eu750qgm2tydAK2TBcw71SM+XD0NOa7OW9dgg2
HvdmpqwewiQDkyPfPhrGoc9C9WUKQniY2qu5D7xFxBodwZaAdyBPnE8bxvSO
0Lwq5MChLf0of7I14k1QPzj/Xf/jaD217BPP7Hw3wt3lLt6xWf0jRFWoiorK
2xGSD7qPHH1+RF57nNvSgRHaffD7yNHxFex564VenSMcHW90fpwPuo9k9qe5
aCxt/0vSUfwzbssI/9T9McLR9tHx6Acd/Qv9p+yj43E+sf7f+tH2T+nVhDVQ
1nuA5pkyjZOVdfg372zUiA==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJylUwk0lesa/n6iyHjkZAjtcqLUlhJX4n2lVDrGTJVOLmnO3HIUMnQMRdHA
LoWGQ3IaziFDhDoNO6U4ouGK7WBTO7QzbXvbe9//rlXdtax117l33W+tbz3r
f9/3+97neb73Z/gHuwfKEEKy6P0vXOg5NCJ1oLDVUyk2i0FhHcO2uWA9hbu9
MrWEBhR6Pwq/OjOBwik9gsZV7hTqHz4r66dJIeVzSre7iWBNX8K5Hjp/e31i
1xJfCgXecR5pnQQtomcZD7IJqlc1aTIfEtzz+GVdTxHBm2aKlF8/Qf35hh+4
dwlGZMtaozaFtZxLPse7CF6ySCtct5BCrdQbPtoigu7DGvmpBQRvXTQxzo0l
mHcxxc5MlcIIa0lpxXuCd3YzGnoNCPIWik78MiIF3xSDU8o071+2XGOf7SW4
tk5hW0AYwR6OWj/Xhe63PPZ4XwiF1inf8CxXUzgosKiO5xI0bpUxaLxE8Nnu
wis2QoLD4/IecxsIqljJ+s6pIHjvjlnoi1SC38nNLFQfI3j6TXT262aCJNxZ
bqCDoILkoVZ2KcERy9XZUlpXg93d6MAYgm28JOWCRwRNXz6edvkqQZFLZ2KY
PIXMvQot7B6CSjpn7k99Q9Dt8tP3flcIXraJZsbQ97LG9OLtsgh25lUPZiyg
8B3V1+FC83LLudn/2zWCsvtkiusTCEazfxqQqlOY6tp0ltNHcIeE0+5VRVA7
dyxHLp5g9uXttYq0volFLUZ15wmOC4+EV9YT5BK50KJcgpXpjMWzl1KoFGuU
wFOhMFfT65Dqddqnhrje9uMENzaH1vFpni08M1ZJHcENhzbYXKbvGRxMi78f
QPBbnyekJI2gjsjQJekgQWFqse7QfoKqWesHNvsQXLJmaUcI7YfdVXerNtq/
ZY1vDnccJhiVH7gnZy/BM2W56V5GBOOPccPrp9J9DfdPDeERzH+4pJJF+76d
od8XRvO3JhExHrcJnl1sX3uS9vNYyolN+fkElYMjojf8SPt0o3SltjXBjqgr
pw/sJOjT5dBpD/S7NSpdyqF5TAxYz4tcRPDE4J2E7H0EM9/p67E2ENQ6pvL9
U3ruzBtaTfQvELT1ZKZUriaYa2gWVWtCcJumhdUcZ3rOFw4aaFjR8cMcViSt
v0/B39g5gp67cSFTmEnw2mtNy10HCF6J0bJPVKOwStCrf5+eT2tdfctpbwmu
13J9q1pNMGWettMKG4K6H/LWggrBLSbbhYdNCSpqrKia3iKFoI9OfJU9tA+O
jrYjawkGH01Tq7AjeNT2QqqyPB3v1zJ3YhKUd3zj+yd9XpjkqVeaTTDHzci8
PI6ej7akhQvc6D7VFu6OSwlmqLOjitcRnJnjunOxDj03rNbxof1SaJ518vmD
b6Sgfk/JztCBoLOkJMh/CsGSVzXqZT8RTNZrdp0TRP9v02sVptG+xb7QlqTQ
/ZXsv63OoPXrnXzcGHqU4Ivh/YH6K2mfx+vdZygSXJWoPSW0UwoV3skMvUdS
4OzJcgjMlEKxblp3lJcUhmQ+eJeMi+GpoO1Ae6QYrtz0cPo1mOBBHw2ZNpp3
hW2PYflNCbz3ZVTywiUAtjuXeKgTnBM3u6XhkxR6L3JX1mkSvMor/4NJ83H6
Q8cUCiQg759jN5AkAZUEb6ZuoRRaY74/Gr9VCuuWrh1YZi2FTM6O4uDZUkg9
Z+PEAylsPiBnZ8mVwO87C3S418Tg1RvyIv1nMbBLVvRdZdPf44PK7c/EUORq
7Oj/nQRKx8+3zpshgfrWdZy4I2LQ+j0jqGWXGBxyNu5LWSKBRb0xC2ZZS2D0
eE3AS8EE6AnC7bmKYrAyvBjCGpiA5OcqE78piOGlUfea1YViuDCu8YN2lBic
I0zmFhSJ4Jafuml9sgiKzx2K3cycgL6tQcoJH0XQzVz88JDtBLBNo++89ZqA
dMY2h5oyISQ+PRd47LEQwqrbzpjHCoG1vDOoylMI7WneVc+eiWCTElNu6wMR
/NAUt1PeTwDEajS/AwQQyYi4Ff2PMZheNNGR3jYGy3YM67x4IgCu5E+hZqYA
1nQ2XZvrJICmGjfZ8+sEcEb71I8ZwQIYelLJTvQWQC1r471Xfx+B1P68AKUp
IyD3unS/3vVR8B6a0jCcPApcNUb/m7ERWBrlLjLgjsDzTWXGI1XDoMWiOiTN
w3Aj3pNafWYUbv88/f1ji1EoerlR8Mh8GP6WoeCvtnwYqPrbqsJ6PpjEJrNV
y/igNlgTvNiADx9l6voC5Piwd/4Bt3lln4AdXf5qRtIneO7dkdVi/wGGRavm
hSl9AI7Gkbs7vIbAcb2DuY3fEMy3OsW7dHAA1PQr+tuq+qGm3CwzNZwPu8o3
Pji9hw+coLxbFXl8CB0SPfn1OB8an1hUe3AG4EJY+fi7zAEIZPcHXG/hQbTv
23CWKQ8YR8ArsqoHKkVZt444d4MkKs9VY1XXV+TnL7ju5NILnEXs9KRd3M/x
5q9I2d/0Ht3C/YrSz+e+IPkc/4KSwsjw89y+ryhucckySm3/iiKm7ME5lV3g
H9elKJPZDeIvdf+hfnK/yfnJeibnyaQl/azrC07O/9Wa7M9k/O/q/833/+3/
V/X/q95/AvolBAY=
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJylk3lYzfkexz+hWxRpkWiXCVlyYmpaP9+JlCUthxLNpKToUJKlc9vkotGC
Lk4YLaSRLEkMKkKiRaYppWQpNVmK06hOpzrn97vfO5dzn+fcmb/u93l+z+t5
vt/P/v78jAPCPNePAIA0+v2bJ9md/ZFDQEKGC69pVwNZV5tnw+8Ckp9y1t66
EkhN9jhjcwMFUqE2cDLpE5C5T0OUsxOB3I3IudXqTe1sUxQMFBSIUv3y+6fv
AsmcFPOsdCuQXLvNA9edgXy6Wdpjlg9khbkxX+IOZIrlsOOidCA+faPStTcD
cWpI9OM/BjJ8xWLLo2NAgsrErRX7gbz3MGypoPF3WSX85h4J5FHWbdfN1kCa
JqRb9AuAeHJMru8PA5J3rFu5gOZRXVBiTQyAXDs8qWcO9W+U+hdlfUfz5ipa
RpUAyShe6cFPBdIVuG8K2wmkXnG0asYFIIu4R99pVQBJyC5L+7gXiK/pSr+Y
XCABBpzYpu1AQMSzcnxF61W62Z/2I5CIYsV3v2UDMfxh3nNjPq3D09CI5wLE
P7Y3LE8LyPeiRZ6hrkC+KRp6uk0ZyPnd6fm+l4A4aO3du43OLXjOeI3cq9Sf
HbN8fxqQS6d/5Qu9gOzJLfjGxJDWe9oZFwfT+8FLayUEiOkqvv1aBkhhUlkI
tw7IWnLG1H0DELtZqlqceUB4s5u2Oz8HcvvFKd6xIiDLK6dPrD0BZPEAr77A
D0i4pouLyILqazhFuWgskOtV02dcP0T7nfGTIJrW3bZltX2ME5BDL2zOzNQB
MiY5tF9pPhBh/8EzjmIWvZ5kSlJLgXToaxrZUx30wpN4eo5AshJ2ajtNArIj
beTvGxOArLF+xSiEACkoHqwumEL1Sy4vuvWExePqPxwuXQXkjWNsKMwCsqXw
VrV0LZDZrPNB/nQgS7M8/R9MABKZqdWINSx28wrjK8yARJMotYCRtN7mTp3H
5kCmkznnvD+x6LouNHWxPpD05G2aZjT+V4q2doZqQFJOzrl3/CGLmU2+X7V9
C0SysbA2WsSiS1jk6viXLLIheq0cVxZ1PgRU97ax2Hei5AGbyqJhj0Qyto/F
9zaZvIoTLAqPXuM0LAVi26yvRWgf8ZyeK7MdgDRExFcU0Tz3NDgPdgcBeRZZ
XigwBfIhWZyRQ/f92xjFYIvFQA5Wr1ipuwXIrRkaS+pGA9HOKb+wgs9iT03q
k0JNFo2eVN/hjAcyzvbuzInZLOq+fxJwLolBn9jnTr0cBuOgbWvOXdqnn3n5
ISsWn9c+83rvwGJtZK5Hx2za71nUHzSi/S70lrxVoXvhRxQPlLHowTmvsCaW
xU1RP7uNUWAxoybn8bNbDF54cFvL5gaL2rbQaBHIYnCErlBoxiAZ0egj7pOi
7lw2+WE4i1PucCvHObLoaMJOi6F70lYYt2duMYuPJSNDkqnubXnmQYt8gdSF
c1OiqM7OyW16H+j/aXjn/qkZm4CYdDty8+mcDmwTu/3div7HwQpewXSfgz7e
Pa5E53vW0/tIEdVB5YjgzbV2qtPVKucbP7H49YuwIyk8FqWBmjW1U1kM2Wnz
LDePwW0Cl866cAZnuzXrCztYtO71NFWk9bS/CluhPp7BCVGp5y/fluIpM+Or
alTPrK5/HDPOZXFG44RoHo1rIy65mJnE4umRZtMCaN/13uO0Kz1Y9I353iE7
SIpe5/3m1phK8WLV/EcDUQw6X/4gtNzEYGpd/daPGQxGGvZxB6MZbHfaXpxu
xWCCUr1blCWDn/btm1lhSff63f0y0Ti6L/w4DQGNo6ozeaKisRQrNnuvs1zN
YEZXjGrvKgaXh9u9tOqXonq+tGN0txRbmxKrTG9IsX3q4B6LHClGbJhVedKf
wTL/mSH91H68zfI0cwGDl3bkvVZJZLDgoM+VXaMYNAqA5iWTGTwaQpoGrCRo
k6brYPq1BEWH2p+GtknwyOGb5qseSlAaan/hn9Ol+Np6/u1IDSnqBNvE3380
jA2HG+41XRrGEvv6OkHnII5aKt375uUg7kxMjNilPIRZU8e26JUNog9XeK9p
9DCO9zD4xUBjGPusXbdqlwxhgKDc98fMIfSZ1MSf3DyIzc9TdGPeUv/RQp/U
vw2j9dSdmpWURctiQ132DOHHD0umnowaQt0rga1rwsQ4aGzXXLBejIx7/vZM
Roynj6lttBsSY0fvlh1B+0TI+fm1JD5NhFquqy+ufytGp183LVjUIkZYcNlb
9J1IRp2Hze8nCAZQvW93oHf0AGascef9Mq1fxmUHYja4GIixPdR7ja2JGBuz
EloCdwhx3YvYyKPzhKgqHnFvWakIrUpWVh24RvO1Kr/mdvei7eUkTvGLXgz2
M2xRWtqLZxeo5XJX9mKIXlSxrUMftfN5dc66D4/P48ctnvUO/Z32zH1p+w5D
y93XJp3rkbEqf5WuUstHrOOeqFdXFSL8cXpkzFjY4ZPo9UlGxlIo1uvsllEq
R/l3h0eRKioqXTLGXWlP4S78XUb5fAp/zK1TRvzs94Xy7/Lx5e3hs90XShvc
BNP2v5SR5We6ay5sl5GRo7w9yJ3/2NXjF8rXx36+/yvK55OP//+eP+/3v/nz
47qcdj1tQKmZm/7R0rr/ef8Xrko/fg==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJyFVXk01dseR6XknatS4T1ChlDGS6R6H1KuSqUM6VamW1c3V5puZIqbRCjD
VV4S0vMaRIabIZmSzPOQTMdUx3F4cohzzm+45631Xn94q3W/a+31WXt/v/uz
v5/P3mttZTevQyfFRERE4oTjP5io8uBevyON+rmtfJfXFIyDXiY8HaFxXL/o
tfgtGra9HXJ+92lY6iccc9KmMRPOVnaTpdFt/6GNlUJB2oJwCJARMZOWPLZ2
TRgNH/XCnnoGDcmU37wFuRRiHC9MFZ2lEVoukGBsplHhZZhn/4zCXzwiR88q
U1ApU5h6dIkGeCX20mUU1KqIl+2jFBolUn7XEM7PKo8bvFtDw28/rXTxOoXk
R/z4M5uFeV3+Rks+CbWH7KN1zjTi69/nNpvTGDMf2sadpqD1WT5EvIDCEvvh
rrI+GtLZj01FDtCwMbRH9XoRM+WaNzEr2TQeHNfTyO8R6pN3swyPpiHW/aRU
jUeDNXM4ytaFRoFY2M2BKgqJyq84BqDQUKhbvOg8jeDBIO4OIxoRQVk5ORQB
zT3SHMQSOG6fZ+ZfSGHCc9H3o4spaA+FKMzXUziyXfPcaBAFqQLq02AlBfaq
UPnqNAqaPiNu62Vo2GXondS4RmH5Ba/GuOcUvI0CrVVWUHAtUtqQEUvhyeUu
m4G1FFqWFsUm7Cbhse2HhI8rSbT8Krctz5nC059V1uUJ/bDoW6Hlr0pjTjUt
aTKcgpyjYq70TgrPJCdeGneQENOcEmd5UzhNGli9PSzUdc6u1L+NxLp4q4NL
o0gY0d/8fmYfBdEcppZhJ4ln9XrryydImPtPJJU7k/CuvnhLMZVCyq/59wKy
SVQ11jSWW5C4u1niSN0KEj/pmTgyhkgkuStUF+eQGEhv1yKOEmjV3v3ZbUyA
LMacv5gGhdTTga2nx0i4uptT0xkk4ih+eLsTCd2KJar1BIGpf14bl7UmkMva
mvvYV3iPF6SXsoV+9ml2SvnHECACHcWiWgRw+YRPcu0kHngtHtBmkZiVHjpd
Z0ghSUGhV8qORH/vGw6tQ6Kmq9Cx+QCB3S4FzneEdcExnkGVQr2zniMH1B1J
cK9maZhVENiQJDYi/Z3Qx0CHeTcuAad81qaDgyQGa7QHWQ4ksHGiOugbEnyl
3myFJgK17PemS1gEtJjM6es6BBymGuIpoW8TqU4NukI9aYEaf9d9SyKS0Ttf
pkQiwSgp69lBEgFpoqfcJwg8NdjetmUbAfU3kYWV/QLkdl9J/2ELAUVDBZms
Vj4Ubjn1728kEL2y3nxkUoDN+iHvi4XvK7whbKjWhMJf50pv9qkRWE17p7lP
CCBIlqz70Y5AEiP+jWKlABXud067CXWFjA1ohhsTWJcdUJztJUBBpvO5RpqP
psQEmUehJLZtL14jvoeE+CmfGpaAD9GQ4V+CzfiQy8gw258iwJWq58ZPzQW4
FdOpvUmDQN6LS5zA74U8lRYV3gQfdkHhVEkqH5JnMl6dLRNgLnF148UYAUZ6
untq9gl5rO9PTSXwwNHxXVK6lw8eu3nZMic+xCsGlnZ3C8DMv+9UxxGgLrib
yhycR95YSXLbiXmUhF0ZX5UugKbqDZOgND7qfomomOjn40TDZXfJbD5sY1pn
sv/Fw22duzuLX/OwWFJlUXQHDxFatcQqNx58w1VF09/x8MFjuqXamIfgZAnb
80ZzyI4puZFRNov7wWdtmUf5yDGoad+xjI/o8UvXh5bzEbAmzgoZPNRkvWmt
Wj2P+L0vpvcSc8iqMTAxTZnHHkVX1Zf6PLzTIY/afDuPxx9Yxw4pz0NCqbMo
bHAGnqHJ5/UbZuGRuFP928HPkNlTOdnR+RmFI/IXoyKn8DJaUy170xS0Oq3c
nw/MoH+rC5TvzYAl1fxQQ3MG/5BV1SxYPAMrU5+4uFgu3Gab9DRCuBgwi2pn
WExhlfuDnGKdT3D6IB96x3QGsz/2Vqbsm8Gn3KabZWNcMFVuM7q5XNh6TKZI
Okwg6JaHo+rRSXBNL1l7EBz8FnYR/d4shPyc0TFZOoXRY6LuxwunUK6adD7t
1ThEuwyu+Agm0BT5tx2Hy0ehPu9/YhfjIy7c6OJv0OFgui3r37HNHDS1ZPKm
A7kQv2F+uSeIC8veaxq179nQvqQ4XeMxDsH27UXGLmyk+lyNFI3hwLHPX2yF
kF9eNg5S79go4tT5dKSzob8lZd94JhubstRl9j9hImBX3Hp7IyZMHMw8LZeM
YEaQqcLwG8btWF9GY08/5vzH8g/lM6Eqwtu1PLS69P5rC9ex0ZbSLnkzH4bt
OCKinxoPxY1hpr5wUkGqVPgPJWao8/Kg+NYvT1ykF0csN8oeoZg4onvCRFOp
CrXnOONz3DpEbV4Z0IshpCyTPXXVeRiuJntYcq4PcDct39BarxWzDHkjrlsv
bFxk82qtumDr2abyndcIXuQsWh16aBhkx4HbG8L7v6DIgrAZjX5omNQPu4/s
u6n7mf+XXxgs+fSM1NIBeOxVoz7ymDgubStjbDuEC6syD6vfHQJ1OdlGeufw
F9zQU+Ln/XoI1YFkuvqK0f+ut33BhfwL+/2zek7D7lNSZu2w3vp4bbh791f1
MkbV1/jVRRQv3O97R+CrItqCQ5n6ARLFX9f/v/0Lef6sv77mqz9F3tEt841Y
S5ksNij7Gu/Xzk1zWn3S3ZFZWhExJr6750npwvwf3ghzvw==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          PointBox[CompressedData["
1:eJylVHs01YkWPiEagybKo+hBKpo0UyJSX8x4NEcNpxQqJ+Td6J2khOmmvE9F
kRChohJDQ+WoJHrLiMYjDo4T6XDO+b2OGuOuddf9o/mjddf91trr+2Ov/X17
7b3XnuOzk+OnwGKxksbj3+xaNclV4yEBhSKDc15iGrfULALu/kRCX/ORjYYD
hews+qlZBAmt47YzretpuGr01+3ZTsJ3VadzsDYF0xcbBetJGtPdTLYcbqXQ
Ic/NWribBjsqyvL+RQpLrz5pOtJHwdn7APvPhTQMw9nCnEcUoo/CJSODwSgV
YCBtohD4xzsqs52C7nOfgMhAElci2abWVyksSdWzNzSioX4sO5+4RKMvQCno
xCQZXKN+GbrBloLrsOhl3AiJ77Ot83iW4/rDplrdxQxy6k7PtgqT44DPmTwX
RQZzyiYfKuploLNS4DD8jIBgih/PVpFEUgav3cSaBEttFpuZSMPLXG942SiJ
2zaZEzrOU7g4c9/R33dTSNiZVqW6iEJY2sk7ByZQcBWsiNgQR2KKbGIn0U1C
QSXFpqKYhEl9hb1mHoGltamepzRpRJ36RiRSo/DS1jmvkyGhku7p+dCEAlGs
s9U7jYa7uXP9vjk0JpYIhlItGKx1ftx9dy+Ft8aTps3gU+AsWKi8KoFGvleG
/70cGvdqCQ8jIQXb4yf2tn0gcTE0L/c5Q2CUJw53fkLCdEmZ4pgjCaNe/SXR
MgI5Vvme9vk0AllSj4+xDFyML6XPvM2grHdxV1cXA5F77iG1ThK64b/0G7US
uEDwdvbF0yiZWnOtedwncHq608lkGi+6Cs7ouDPwvxZZIfiKQmhi667KPRTm
ij3cQ1JlmK3cm7PrAwGuh1jxRguDPrZ7o5m9HPuOZ1kofCtFRWTHudrDEpjF
FO75LYtBvVMtqZfO4FOSMm+PBolYE9nWskwCC5Iqyq2v0FBb/MdgwRkab9Jy
At7PJvGKOb2TpU2i5yxXv3IhgcGB9mXNxjIEWJL6DxsoGM2xSNRppJHu2wfB
KhrvFicnRR2kkHp4nZVDK4n8I9t02uopxMe6VPfXyzD24s7V7+YSuE/se3s/
ikaocPJarx4a3LqS+BE9CiyHBL9kPwpqDxIfFwlpyHT0X0q0aPSKBvfqJxHY
tD2MM6ecRoseZ6NjLYmCbz0a+mZTEOZMCy3tJLA4eHCGzJZCs9AyRjyZgsvK
4weLiyjUbjad+Pq0HIhOSKo+Ngqfr7yq1Uop3O+6lXXOVo7Z+08sCQsnIIp+
nFg+TGJ+VXMJXcOgd43IcEqlHL96/jqpwZFGpnl00PJwBu11zdoWp4hxna6V
WlkUIvKyyE1tNFRzfX+/yWFQVb+jyLWGwPV6SLvOy7B7Xliw7DmFSTYtw0sd
aOw4G+go3jwK7+vnk7qEo3h11IGnuovCJz1BdMr43XM7kzPJVQwOOjVum9vD
YDAmJYlJZeCzWiFlcMsoTkvfGkwYv7siScD+gg8UKobGqtMoCluwNuauJ43t
qSmd05OlEHKLzXTuShHLi7GrmkrDMu7IfG/+KHK7N6ngIAG3Ebt27g8ElD/u
OGM1k4Tan00diU8p0HcNQuvWELAzztSgjpBwrA9JZ1nQ4JzSzsji0Gg6EPeo
dEwGDv911LStJOIavd3UeRIUbfXecHKZFIM2JmkLfaV48vSwd4s5geSX7gkF
5UN4eWinbFbLMG6NBZrf7pCiIybvke8ZGfbPDXaLXy+BkluMteoVCTjU2eQr
pgQuJhrxuxsIPIh1vSBjy9C++oGNwlUCUdu4SZIMKU7UlP1LsILA4chZKVw7
Cb6/bpxzIZ7A9NJlreuTR/BErm4x5ZMUIk2DxnshvWhquc0xrXmHEg3rPUEL
evB+pKU8oLsfSy49W2pzeQiJh2ZwjJWkuPnjU7f1K4ahO2BVyYUY/XHT68tc
xTC4nN3e9H4YaYYb01quDOGD4pH580MkiI1qWC4oEKP7rzuaF9JG4JR8+dTB
zf3YlOHw5vbIOzhxZ7jYiEUwi608FCp+B/aWFhutgiFYqdprW4R9wMdj3Asn
/QXwf5VoOHXqe2SVpo8/2n78fHPu0at275GoxErcnv4A7Oo3Hp3H25BdyAk3
q6kFW/N+wTLzO8gtm+j03cx+5IsCy9uK+2AYpOwfmCGC0iKeseo2IYp51prz
BnqxXP2m7Qx1EVLycqY6rRAiJaig+pF9H8Kzn8WqNbxCyE+VflaCt/ANK9z9
c5uEr73GqdZ8XxsfsxKmrZPXQbe0NN6kcAR/hWe7aP3Y9F9W75s3LeJJ/B3W
f/A0aEFEnG4fQiLlN5U6erGpU9d/zHuAf0OoJtdXEvCXD/jFqob0YGDzrnM1
GwT42sl1sDmliV8eXBhR59LO/1zvc7/P2ThTIlAsOQmp/FnJ/OpWsP5PWLZ5
5vendeJS49GKG/ZdiIozL3++ugdeOxZ9Y+D29h/+n9d/qd8v+X9pvp/jS3mf
BO/XFb6smkL3aGUe0fI/z2cKb7lKRgCrpv3a7lh9leF/7CdkXZVXbfAI3+7N
b661L0T8vwHC/Slg
           "]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X3,X4]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm],
           None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7723517441522603`*^9},ExpressionUUID->"2cc29fe8-fd68-4589-9aa4-\
cd2ee7fd49b2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MI3M1X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI3M2X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI3M22X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI3M3X5", "]"}], ",", 
       RowBox[{"Re", "[", "MI3M4X5", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X2]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X3,X4]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MI3M1X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI3M2X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI3M22X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI3M3X6", "]"}], ",", 
       RowBox[{"Re", "[", "MI3M4X6", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X3]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X3,X4]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
   3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
   3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
   3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
   3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
   3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
   3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
   3.771929457794732*^9}, {3.7721689283429265`*^9, 3.7721690533491125`*^9}, {
   3.7721694854823895`*^9, 3.772169488631389*^9}, {3.772169819335092*^9, 
   3.772169821480093*^9}, {3.772169863548537*^9, 3.772169899478387*^9}, {
   3.7721699474990664`*^9, 3.7721699767585363`*^9}, {3.7721702601076183`*^9, 
   3.7721702722613535`*^9}, {3.7721706449071755`*^9, 3.772170647284936*^9}, {
   3.7721717010141068`*^9, 3.7721718143087273`*^9}, {3.7721718659804497`*^9, 
   3.7721719017313013`*^9}, 3.7721719876233015`*^9, {3.77217232637504*^9, 
   3.7721723694770412`*^9}, {3.7723515577343907`*^9, 3.772351564329043*^9}, {
   3.7723516020150332`*^9, 3.772351640695641*^9}, {3.772351748985874*^9, 
   3.772351809196042*^9}},ExpressionUUID->"b18d885a-6bd3-4dd1-a972-\
8afeb8d5cfc5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJylkn801Okex59JfjW1hWnbbLoRJYuUH3Xdo89DhK1E1rTyI6op5FebsKLr
VyFlDOVXxCrj1yiEuFZC13b7SVSmFl0VNlnGjMHMfOe73z1nb3uOe/bsPed+
znnO64/383ne7+fzPNoHQ/ayFiCEzlHrV7qc9jH9jEsCffqieF0JCcLUn+Yy
0xG+OzXnfiQJ4aMejLxFBxFWMJx+0uOJ8MLbauqJMyTw5sxC9bpIWDnh3j3T
gPBOYl+EeRXCtLyWa9+VkvDXmw3On18k4YavUyrdB2GbzsPce0yEk5XOivWM
EabrtVU4bUQ43lX1B88ChI2aVjMmixHeo9dW6U35aGoGBt1zQ7iHsaI5eC3C
+U6uZZ3KCGeYeHklShCuuHOgHE0gXH1dnsHyRnhtX8SZ/Y4Id5mZ12sfQZjD
5lzuYyF80+HLLLkyDY/E2Xg+lyO8eNFDsasfwim79J+qU/u8eHijkTUNb6p0
JYq303BmRHq03WcIP7BNOJpH+dmePTQy+RXCsox0aac9wnbO/EBPROXx0eBO
ikg4nHjSw+AVwivaZKdsehDOdvHw/MclhO0dssNHMxEW0ZTMOf4Ih7KL455R
eQ6/zJ1edBVhwTbNbPvLCNenH9tQHoewWexa1aoY6n4G39EL3BH+OpOvcn4X
wnp9OzaPRiNcbB91y4XSR5k1x1lshCfZS79yj0LYoyVIJ2cfwtzIpigpNS8n
uv+k+ibqPK34cmsjhO931yycsUU4zLu99p0JwlYnPPtu9yNsmVT2YGII4SXN
Ts7VaggP6U3dECpQcznSq6VWg3BO4fry+jKEo3XeNjZSOd+Py/pMqXdq3M+a
cNhOQrRNesiMOgnaxbou6dR9l46+TnTJRnhlUVld506EH+5SYZ22Q7hpwdUm
RQuEjdUCZpZqIexwPatwzImEwdvit/YWJAwXrmoOfkqCyf6vBasvkOBm09rv
EU3CncEcIS+NhMCzF8JSNiBsMsAeSlyN8NTC3X66ViQouNFSvXeQcF+6ONBd
E+GRhH1l1osR1gn/3m4sj9JtDsmbQ0jojt/SvYTKE0UwJb/Ogcno5vP6SQgY
2f1S5zkJdd7GvKNUn+x6eUIR9d79SSXMvymREJZcHZKzhgSVBmO39btJIFBW
x8FtJCzn1BqUUn3P6HULKmtI0LUrZ7TGEWBqmVGhn0bANZ37X9QdQph3+Jzo
APW/Ms5tSomrJOGdpqCiI5eEPYt/mquKJ8GcY9CrmE5Clz66xR2TQ+wlgS63
SQ5Wfxmt2/NIDkNJK94E5sshSHFW7YUzCcUxM4/Zm0moiPx2dsRaDt6ajZG7
LOWgyjEKreyXgXs9i+vfKoOhF7kudnUExEpfdJvkExA3F6Wx9rkMplv9Inrb
ZGBI+GiJiuSgqHHpVusVOVz24lokqMnBcrjHIEpGgNT5dKxOnRS6L/xAKzgl
ha7b3spaHAKWZLf/69jfCXiWc1y5pJYA4887rc1TCNAL/PBAnS8F7DrnGL1c
Bvu+cVkn2UOAwGvgTVskAUBPKeHXyiDWlTNdXyyDF5Pt2+Ia5BC5xudiA+XP
zFbIP6Qpg7Kb8eFEtxSuo+QJDW0Z+HRaMcWmMmAEGRv+vFcCnmdOKt+xlQDR
o3eDXyaB42w/2v1mCdDWF1Ry6iXwukVFwbJcAr6KWY4hWVIYV9adVYuQwo+D
LeqqTAm8dBxsdYmSgFH3RnPBlASG2B2MdrEE2rsyeXO9EuhSDD7u81gClu8f
5inulUKUnUWaabgUPpkNWpr5hQSe6zTVXrKXgIFZ64NqzVmwW13Ld7eYhWBt
82VhVbNwM83pjEftLIgsVldV3J0D1kBNEmtiDo5By6rcd2Koq6xIFq2fgcIT
lar3BoVgqLFua9gnIuAaH+TlbhDD3WvTCdvWiIGZOv4UjMSAamoylVhi4GU5
4uwXIrj7eLcDa0IEhcsVO24xpuFojLtt7ZZpKAnz+jFgkRDcFBuLUtqm4G7q
diUNXxHoPuCrWoEIugLhlV6MEGqepAnWnRDCGmZs0fl7Ikh/EluyqFwEY6cY
4wHLpuBycSCpv3kKjnEd2z5smAJ1C6Y8dP8UBF6NYfjuEMGWer+ZUpkQvvRn
S1XSBFD97/D+4U4ByC0mZlcNf/jIb0zyTwlCROBV+Io1kCeCZW1St86Tv3PE
+tqNvqhJ2NJyMfjRPyeBeLYna33Kzx8pyTjQfCZxDJap1r/n246BYXzlrt0W
45Acfp85qTUORGnEiYLh0Y+M2Pp6Z1aIECS+3Z3lvkII6vBv21r1+3mpycwl
1tpjEMxYXkq7NgbbHkbS6fQ/puANm/aofQQceNVWV5xHgfy20FnDtucPGZAV
8WmH4weIjdVuPV/0AThynr7N6AjwTwtpfaEjv+UY+Ej4zec/nK+jefVn+vC6
lQlaS97Cc9Wtj8o0hv9Ln1/z8/+ZblZ1Zay3pxD+1/7/139+/QLexd5z
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJy1U2dQlFkW/d4HI2gbhkVZBdHBRldRZsa1jYR7GYLACo3AYCKPgJJUwqIS
RBHBCCYUBUSEBQEDQZcCR2QEmRZFgjCAwJCkkSh0N6Gb7p5vq9R/W1P7Y2/V
q1Ov6r57zrn3Pi33A7YeNEVR0cz5D6b0/2t2SQnBVPWfE998S/B1mcLkUS8a
jfPLV6MSjVWBSuyzxjSeGvF6lZBJkB2rZ0ENEozdv9VZKY3gqKtoA1uTxuTN
cJZKJmir56ulEEXwCf3Ghz9F4TcWTvsEXUz+HC8fdX+COrGzzxefobEmM//h
0QmCu7MNt38zSjB5PGLJjATmvTzOsbWdYPNJM986F4LBLVw70Vwa+W8jDuj9
RPDZgq9pt1Qaub2sF2J1Gisywi3nMXqPd44eOtFK0H+so2IDU7dYofX0u4sE
F+XOXGp1i8b911nWUSwadxekRPQY0Hhrs3Lso1qCUNvnuPISjSP77r4NWEcj
r3LuuSrGD8eunGXzlOAxSfdjT1Ma2UOP61t/JeibVcd24dBoe3shb9szghYL
7CNvMnyz6GNblh8kuLcvrm+BG43xd5SOP5AQNCjS5b8qIkhtDfMytiIoWi7I
fjafxuKBCp7KVYKPL2eZlWrT6KoZ39BfTjCkqWKuDuOrzINtHnOBYEzv9WjB
DBqPOW547HOZYECgYu5Z5m7d9aGqicl3rEkNfUhozEhYbKcQS7A+VGOe1hjj
K7iSy91JUCKwGbYyojF4cH+OwVuCmcflnpbTBN8Z7X4alEcwtyNn5ZnlND44
Lu54z8wvokTVZddGGlnckrZCZt4/no4OVB1g+qqbu8vPkWCJgp1jeQbBdK9u
k9lLCT7fPF/tvA2Nm1OeX+UyezGvMeKk9m8EqxyaA0QrCDpbiDrZjC7bao3Y
MCmFPktv7m8rJVhrprPOej3B8JMWqh6MzyUGv6ZrqRF0m/7+hvweQd03kd1a
RgQzZkQFhEQSXPfWZmLtDKZu8rnh9hCGvyMsOU9OoTPPIPyxKcG/Z9Fm7XwK
47dpcOLKKPzhjgGvwZBCW+2qvcN7mDnNqnM80knhdGzIS8sKCoekR5+4WlJ4
Y6otco8JQaOVp2xwkEL+lSJdNrNnaTYqDpIeCu20h4Or5xDUkK/yrrGi8ACz
B6H6BHPEwYoDfRTmUJETwpsUVm6J81JTpTDdfBvPn9GVFv3EKz6XwqLZWbOS
blM4WNxtqrmZwky/fZvcvClMvU0djqqSA+tghItVvxyO9MXcvmEhhzHXgIzk
Jcx/Ofi7e8wVCsWcsdiYAgr1t9QsS1vL9C/Xj3tNVw53O9zPeK+RgeEGz8LX
DXJwd7TQYvnIQcP2skX7BTnsK0x3KhyRgYKxiaSyVA6JduqBOmoMz6ndr3IN
5SD6LeKfjfky2LPwhHmykxyGSkaT5sbKIMesPXLvRSmEru6emZE6DTY8UfzA
ExkId/kVXSuUwrwtvyhbZ8vAbrLc6d9ZUhD0P6BaOqVwo8lTdVXMNOSXamku
r5KCkmuqwXfKUngkvnZP00MKPt35tet/nAYd0T/u7miVQebprqHBizLgaQUV
0pZS8NT4XpkzOg0rEs20eRclkOK1zvXhsBgqno7Hz0yXALX6SljHgBhGC1rN
DSkxcKLKFq/xnAK3eKUwBxUJ1PCed3BNxXBpYpeaQ/M0bLxk75dQKwENdQVB
t7cYVq5Y+FPihSnYed8xb9k7MWQvyqk4ESYGumyCXzYyCZXVOXaR9yehoPRS
kpOMwcSwUKifBCmtljo2OQldpuE+zd9OAn6sP9cwMA62fy0oLnYdhxke7ZJN
DhNw8FacXfLqCeiLvLw3z3YCPth2GT0aGQeuE6sxSU8IPXX6vnoCAbQk1AWs
KRRC/uSyph32QugdH9w29dU4uAkMInS6hHA+JW1HYMtHeA1ifXn8R1BuXTNc
1SCCiqHsEe8fRNCFihmKHCGUvjB96S0RwIk+TqH1WgHs9G8JLgscA45GhJnb
BiGkX41s72QJYSrtmXLIkRHQv6DfiS0jUObiI6//IAQV4zsu84eEIJxjMpF0
fQQ4OTWeqT0jMO1wfXtZwxhca52Y9ZfKMchzyGFvrxgD53ecTffiR6HhJo8z
pvERTt7zLZmCj6BR3Mi1qn4P7kenam1D38OhoEPsuPl9cMAixdlNjw+iSvay
kv5RiOQvsT7/+ygoOc39xXBFL2h5sBLChe/hq9MqB9Rf9MBg+GE7+zU94Pyz
OSs9qBco44c7xp16YehEwXftan1wyWDrcJw9H+RHbtmomnR/QVlmSGByb98X
9Hipdzd6fRJQn6IgLVTu390FU/cXt94JeQ8J5iZBG1d9gPQjmm1fV/NB9rnO
Jzyu2Bu3aagdpA3chL+dbv/EU/8FqT+Jz+8+I7w6zGKxBr7gTM+kN82LUv9r
nT/ja2yoiVpXVQfrzzu2NXnW/M/6/t/xBy1Xjc0=
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJyFkm001fkWx/+/E3m4DUbWRJii4lQSjadi2rtHQpE8jhB1RKYiKq51EZMZ
phq5nmIoyRxNnvJQYkhhEjUIYxIinEHH0zk4nHOcc89ddy0vat3VXmuvz4u9
1/7u9d1by+esA4NGUVSMJP9Lf9Wq2QAjglW/RD9YtprgKu3gCdlegl856l9f
3kBwxT162Ww9QYPc2tiBOwTXVqw1TwoiOO3R6NRyhOB9eq+h2hxBo5fbZLI7
CQ5dKt3jmUGQYT1uneFGUHCxtsj2MkE7WNDNZBDcFOB88tDnNCz+ofXl5ADB
ZZdzLct3E+y/cnCVxyaCBXlqr5UbCU4ZfWnBLSJ4ldHRxg8lOMFw6l/4mqB2
3rsNRltp+GPGiwsl0jQ0NnXMO/4TwZInLc/enyVYzyvWVZLM76gdG3q3QLAx
dECgwCEoHV/8nvWaoMm+qOWMaIJaNus9ZAIIXjjFXG7gTMNl/NaoGAsa5quq
1vmmESzTzno2eJ7gvp4K2YdjBMtpRp7ybwj66OsaamYTDO0r/GLyNMFEPZaJ
IpegJ0fNdWs7wScXOn7j8Ai2csYE6hIfC9kxajYCCllS5685dVIY8EB3gB5F
cOVd8zfHJPrThx/JhhEaKhYyMx69lfhtlWP2ZFDiX1NLyanfCHq4/Jz56ibB
yn4INY4nuMbx3jVeHEGsZW6ZiiCoJ78i7lEFwTfe8o+zkgnSXqTS+iIJ1jaN
5784KfFXdt2atr8IJtmnKQVUE8z09rWr3EAw7Ke9wzzJvXfpPLje70Swyy9c
vM+YoHVfKa2zmGBdX86yiNuSe4Zpee8cpdAvNTPVvZnCB3xvt3xZgqUy/964
d4LC9CC3h7xcgrHNxwquJxC0Ym5vfL6foEJVkXqnEkFxnV+Jq5hCW00dC/Y0
hTsZql8t2yHZ72/lqtOakr96V28wIvmLW7d/WKdsSdDef2PqTB6F+TW2Z01i
KKTXuHfyhBTG6jqaRHdL/Bs47at7iELFSxHNtuaS+m0nud5dFB4M78vLlaZQ
2BpofiuRwjtyKWfgWwpfNOXITFgTDLnFfL51I8EDJQoVrD8o1LSu3xaeTaEz
N4k2K9FZu+lQl204hU50Y6V/RFJotb7GnmtHofbFx353+sWwq3pqe12CGLx9
chV5GRTO1D8qr0+hcHh0+dFRCzEU6jkHds2LoP0zDbv9ryiMfvlYp6yRwpqj
E5eKv6FQwVIzqHgThXEuNnuY+yl8rQI0nwMUXrCqPR08Iob2hOcuO8vFoNK0
u07ekkJBR/nXd7+g8GjQdpkELTHI77DZXtIjAvkWdnO5qRiwRC5s5bAIdkmX
/mr9jQgOqLxOqJASwZA7fSQnUQR0y4Yo9loR0KSqCwWLizCzP+Qmg70IVwL+
uepkySJsq3yZE1G9CO8iE8M2molgpMCRGa8hmVPkfW96chFqNVRYUlWLcMpX
+Vl31iIcMf9O4VyQhE33c/61WwjmhzbIz+gLIfKz8Zv9bkJQ7030jPUWgsrq
5NVe1ULAP1PocT9K+v4OulH0VAgpl/lHIrqE8LTnRmsFQwTaiZNRpmck+2uw
9zywFwLdKmNDkI0Q2guVhX+pCOBud4jGMboAYsO3ujCs+RCjKmB2afDhWWdg
0ok8PgyLDWW3/cqHxPWUZn6RAManGAkYKAC5mXg93Wg+pLWqPbRU5cOWgr4t
rYkL4Jxj5miRvgBv26QdnJUEUHkVHLo1BfC0uqnte/0F6NZtaki1XAA+n37Q
a2oeRI1y0QvUAphtOGMJ7vNw44SqSn3SPFyaP1caz+QBV011SzZtHpwHTNPX
MOZAKdc9Nid9DlKvpn1p7TMPmSH7/rzuMQ88Xs0VB+EcdGfpX5Gh8+Ao91rc
YUsO3Limfl703TQUDGnXf14xAxNtUrWu+TPQrpOs/jyLCwkzCrvtr3IhLG3C
sMx+FrwOD7FiT84CL2ZN17gDB14l+LXfez8NEZvTeJfTuIDHj5W6pnOhY8RX
uKOAA72b9bqYPhxQ94psElRyITo8czQjnwvfBofnigXTcOKEoPyVMQcmA5Qb
pf05UDaokMr7ngO2VtKThr5cqEGVqFodLoj0Auv7EjiQ7nXf1EuZA6t1tnj+
vJMNA2e0pqTesGGReTE4kzWyxPfB2nZmRhyw3vN7vAFrGvR4RhHmm7mgO5aR
na3MBVep9OHR0nEIs1izDyvZIKjRclAUjsKtrAT0KRoDsqfYZc6DtcTJ+8m9
/NssYFsKVjT5sD7SK++W+j2kcwpikh1UG6hpEJlMzmuw2Eu0V+miC1pGwc+4
t6fTYgzEYTftV+4dXOJip12Kblzf/+X/+tqXSH0Q0hvtZ26lsKHjYoO9wIYN
B9yajzvmDEFolH+Pv8nQR3ofzvsUXQoozjmDt3Bcq95Cfd3gR/ofxqf2/VT9
U/Ef0+Gs/w==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJxlUnlUk3cW/T5UQIRiQawIiCIURRllQCqLvJ+ExQIBFSOLiiwTp4SdaRAs
slhQ1iAwCmIRxCmyKLIokoJERJBFK7KIZbNRRPYkhCUhyzeZc2bmj/ad8849
75z77rlv2eEfdpwqh2FYlCz/g8a6Zvf72jDUkk+eTVck4A6+Ot1/C0f+zx5w
n7AwNDaF0N9zcHSl40Hb5HsC6LU9txZMcDQRpPjYY4qAz7tqI7JHMURhZn2V
0S6F0oV9C7aqcki+wxB7rEJAkQc9NtIeR5kNVhGhtQS00jHn8gEc/XhANyeX
jqFlpkHc7kc4+rWFkqD3MwG3id/lNwXi6G66SU0BFUN0CwbVyQ9HMd6qT447
ErBTt0hEzsaR24BRZLYiht7xyix7t8ohRqWvlmUxhgwFnaHmqzL+id0JCgkY
2nK66ycdFo62qUtC4uJker8Wbc6exVHexYe0boyAfo3CE71tOLr9tfBQnQ6G
NGrzmda9OOp9v/+w4hMMlfq7zL8KlkNHqve9qrmCoY96McqJ5bJ9hCg/anpK
QNbrpLmONzjysACDcHUMOS+/29isJIeKXF90f/NXDG2LIMvXyeav/jl5nK5G
QOV87Wd2HI52cU09vfsJENjvu3igGEe3zMS060oYYvXaa9IacVSsRdk7gGPI
OINkmyXBkEWPS6FelQTCVb5P4B7GUeuJvuL6mwQgs6CXdmUY0lf5kG8dJ4VF
Rf/xTek4Svs4EvwVEMA61abbe0amb8CfWiO7Xzvp8rrzVThiKOlFp5tjSO14
Wl1rLI6+yX22zsgNQ124aVqnCEM3vKDhulQKFK3CvBuvMWTNTHAfOCSFd51n
CjrO42hz+pQh01kKXfszGyrqMeRevDNxLl2mf8mX36SNI25hSEyUixR8XsTO
71XAUa5z/pbUACk0m0XtsduEo9G3k2ebTQmAlTu7rI1wRKtZaqGMSaFpj3vQ
jmAMZein318SSKD0ad7+i/YYun80e9I3WworkbmHbC9jaPPRWr+qZTHsd3o6
Wyjz0/LU5tXsKSnoKt+74hyEIf/mjb4VJyUg5M8uTvdhyP7eumPRsrqhorDw
i3MEnJvLK43rFoMRKXD9edkf0+NTTi6TxBDG0EmbjZbpl5GMTMLFMBym3rRw
ngBm0Yro1JIYKA0lIwSdABuzm29yo8XgWjtQ73ABQ1XXFE16aBJgCJRNDoqk
sOY65VTNqgjccsjoyVsC3Gidmi4CISxmbJ/7loIh2yDt0fVMEVyLCnevH5VA
YPaiZaWWCD7Mbo23k8NQSWrevHaFGJ51jVl/t1kCryJp3mRLEUTCdtfWZimc
OiLJulUtgPLXV7y4xyRwlhfycsJKDKqlO5y3e0hBWEnVo+mIYGijPrs6RAIn
Du3lqZkL4OG/QgyDn4thI00Jr7wphJ8Myq9hJBGUUh81uFkIQJ/tcrRDKIY9
8nNNfmwBSK3Cd1N4q/Dt9vgvPVWEoFX1oDxadRVGbx6cG6wXwJbA9quMpVXY
57DlL433VsB417OobuVVGAgfVHd2XAHOVYXjG0pWgfBw5NT8IABdZ23jx/1C
sE5RexY3sgJKw+1lS2IBJAUmxUcylqG/5cZDEncJLL29X17n8GF48VLTF5Mi
IGfauWp9FECEjb9vRccKLJskHdaK4kNoFadunFiC0DVNJi3ABxsnE+Hn8SV4
nizPU3FdBE5ARIp89TKo+qQ6hiM+3PPlLSZmLsE/40sr1o4uwI5f1rif1eQD
4+4lt+EfeJDrtWH8ghkfNCifHXTOLECXjZ9AdZ4PIzo6KYrEApDazfK+9pH1
lRe8HTDggeb+B04key44Zob90qrCheaTHew7OAdSJuaTFOrmgGyh2r7eaAYe
7dbYKumcBqe+wBKq/gL0hWKx+a4zENg+OkOj8GCQYdVj6cUBtdKZOtPXs/Cq
9Nil4MZpyC3epe+hxIVF8+jcT02foX66s8BdeR5qExmn4+kfIKNXfFKcxQHO
9oIDnmvmQdunp5YR/Ak4bcKnl+mfIGe4e/xFFxdiiLBwv508cDL6G/Oc9wRU
8bb4DFE+AZ/taR6lPAlKjwqHDqePgeigWpmOcA5Su36PMHCcBB3/an3u91wY
0xgi/zg+A88bzWxJxWwYGM2Pz/digx8notV1ph/GwvpedqJ28Ii6+CZo6CqL
ui9c8YJnCYuVpp4xpTcEeRPLey73/wbSmKKj6nZ9/0fjE0VrM8JSWZXUDRsC
3d+yHAO+G7u3OAjx1DMzGR3vICFLwSzatIXVs3bioXrsCAv7Q+R8+Y+AUJV+
FjV0mplsdxvimbc0brDvwmyAA/iP9bCSfys54lN2h1VBJmuG25XBH/uJ//r4
H27zSJ5OMvwAgeREbuPL93/i305PPN19gcFSk3dIM7BqYLG7SV01Nq0sQ1Xf
0QeMwT/x/w384oC5
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          PointBox[CompressedData["
1:eJxdU2tQUwcaDUKqdcMiVKoVUB7yLAoUi0LUowKKQdyGtmKbwqIQrY6LSooF
QQQf5SFKwxuJIgXkUavGYNwxYFJAlFXoUsBVEAtVHmICed2bexNdN/2zP/rN
nDl/vpnvzDnnc9l9MJo/h8Fg8M34g9+X/3h01N4AVVVvJHOKgmdIV/zdaCNi
ObJo30IjNrv6bDzWRiG+vNX7jpnDnxx1+rnAgAHKq+EdCxrSRYXCgRgSbx8+
2Lo90QBbZ2WDSEaB3ZMWubaWRo4xg89woiGa29/BbKZRNH3+VQmfBr92YC7P
SKFZt9pna58Rdo1qWT/jDW6vWHtv2w0K9+2j5VMdNJjb0zN+WkbjWr0R3VIa
7fYO/c0XSBh5tzKlt2gkBHcWjmkp5A8/Wae6Q2MHo2T5HDaNbPHXj+hBEwKy
9rq7rzTrXP596Hg5DcX8uBqLRhonJv3tmoKMEB2QnGQmUugM38pwVdA4xY7a
H2VvhOm5RNEX/BphcXckTjwK9rFlFNvWBFJUkfreJyR6JClc8TIKviUh1+v9
aXy7uib1qhuFQZuiTs9cGg1t1r3ljiaEZb7cpo6m0TZtu2JBhxG9T5l1du00
BEu5+9b1mvB7o09wn9Cs37n68VI1DdfOwujtPjSSN4i5bVdMyMuwYye+S0HF
ehqj8Tci88qeS5U2JE73NnRu96bQNlW8smCYAj9pqHEsmcK/vji1ycPZAJqw
+GLSYAQ38FD8Ah2Fx35rJ0bajbi25PxmcT+Fv+QHiRf6meD5XULpYI8J9ikf
R1rKX2My/fKzBSdIfHnV41bJGwqv9x0ZOtFkwHdBZ/MSOOY+pEnFj6UEUuf+
OvLrbQo/c1aGqV4YcJy358lQhjkvYR+zI45Ekm3gLpYVhdz7JbauDBLn8LBV
fp1C8Zwf3CtzSdQRnOxFTTT8lKfHqir1mPmStTlwNwnukk3aVVEkio8fjC+L
McJByF2ljjWgkXOdtXaeEd8U/vv8xZ0Eog5+rps8YECN7bzfTsyjcPHwgky7
9UZkO1oLLylJ5Bo+ZYdIKHya87aiebkBnnaB6/NZFAayh5c5ECTSmwq49Q8p
iKqLHMcSCFjvTedtKDL/wc5aN8YtAvyukU80oxQ4F0O3FKeRcDtjuzsyzuzH
9+ppQbYercygH9o9KfSmeouu1xCocKwYuGHO1TJOy3mxmEDQ3iyRlR8Nm0n2
nptZOkjEn33OOEwgdo0tIzBJh1ebzikSLhOY8RK07TIYYJpu37gy24gJaXLu
VRkB9yrV37LPmtCtZeWuKdBhgyKkRao3ILv7v51aWgtX6YYaDwcC/skO1u0p
ehwYySx7wiLgnW8ppTdrUBApmP9KZoDG5/RfYwq0eE1HJKebfb65xdSROqFD
Ue61Zs2sHv3HdmypCtbAY3WiW+VCEtV50UyrMD3OOLCcdmoJtO1n/f2rSA1e
XjlyQZmmh9eDuCKvPh2uhDfEhyVR6Dpb/886ph5lH1bVveNIIdQvi1MNNUKO
ihofcfXwE258fqhHA5dffqkx9RI4N1DlIhhRw3rg26EP7mlxb7ZyeCh5ErfX
PxzyfqWF5L7zuat3lYifHVBuy1BiRtbve6lYB+dh186KpSQmGniqUlclEpdP
nPzprRpexKrmzLhxtC5e0ipYMokx6VuLid+mYPVynUlAabBVso5fS0yDjAgJ
TArVYnbulH/t3knoWuZHyGOnsKg8jL/4YyUO7zzWdFivR/nveQ6+AbPY4ft+
zIfH1Nh3uW3OsvEZsLa13u8M1SE1J7807YwKzRecSsePaxBflvxRfN5LWN4o
9TqVosLq7ge8HDcZZMGsfeEOsWjpDxAcyRmF85aAMgn7KTw6DnDvVIjlgRZR
D1Tl7eDLjji2nL0pb8xhff0N50cEf9QzLqp/gcFu3j82VT5Hhnb2kGTNDfR6
xe33cBlB8Qx18o2oFb4CR9G7XWWwrO9/Njo0iK5h97GiD0bA+NP8JzowNowr
g0vHzaSLj+og9PBcaiW0//9elKNVSkTAtJy9Qp4ZG6GXz6vd71TNuw2Fp9ov
75K/4vi0heJCkFb+VfiuqWeLLRV3Fwpt+srF8pnRLBuitUX+53v/AyS+MEc=

           "]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X3,X4]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm],
           None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )], ",", 
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJytk3s0lWkbxjdfTQ0ibVLoYMI2mJqmSIlLyFA60NdBSCdKBynq05aUIirl
mIxMaWqmIgwTCZW2TqJSipDkUJJkT9n24X2ed941U761rDXf/PM9a73r98d9
3fd13+9zPwart7j7KvN4vDTu+5O5TWtHt7IYPEGIgkoW8kH+obUbeHaBPEG3
+WqeXWLbrkMaejy7quEn6EIVnp15+/DLt5+x2Dc+T1Z/lcU9DU1njVoWLY7Z
7zdx+R3jsqTiCIpB2Wa2bzwoboyvMs0sp+gdfPOqbiHF3TYtj585PtH8zVZ4
kKLEelpqsITiHvE2PJNP4WxTecZtEYv6aDWptwvXV6DhaclcFrzBooyO6Sys
I31mhRpzPoNWjdmtxOK21YRSwQSCvMfFtROvMEDc2v2JTSxGRAma5uWziNZK
eeZ2h2CTe/WoockE+4emBgt1WMRtS575eydF2PGYS7c2UZz+xv9g6jyK+ZlJ
umUxBNFic6OmdIJIjbH31uVRlMe/ismJpDhU7yZbn0FRZiIY9pU/xdvbjaIM
hmKY/IbyujcU7vESnw+vCHKXC9uTSwhmSG3OJVmweP1e5WmIjKIoRaoTPYMF
2/Fvz0tqLB5+Jd8y2ZzCL2FE3/FJFEnGnlNnfkuxN0tVWahN8Vzs4Dx3NM9O
69qOR51aPDuBROxMXSkuEmb88mUUjg2nmdDb3Byr26tv5FDYB9+38hJTHLfa
cFCioLC0rhl0rJpislXp3tfcHBaDi3xsHnC6n1235V2iCNSItCnIZeFlOllc
ksOiNyNeo3wqxTwfw/KiyRR1BaezTrygEDnxWmZw/cd5aSUGcHGHUc1DZs6i
uD+t+o0qF09TLhCJGyjuWOZrB0ZxPtun/adOyOmVk48cM2DxLiHFSY3PQvRF
lh7TSLHxqXFR6S2KHX0WE2QPCYpUl822ziTIt5DqL6xgMXZQt2ZNEfefTiR7
206g2OmTxvc3pdgTdk6Wep8gq+Oij/+PBNfs/dQNYimu/mS77WYqR20v9ogK
gaw66GRzEwONSMt3Qu4eYy0X7QpIIKhJGCmq+41AUhH07JuLBK5+y2/u8Sd4
EfexZckSAkz0fZ3Hp1j3/RhRuD7FMmHp8+dcHdkGEzsey8Ae4lne1ynCX1UZ
1fxCUbrm6WEre4pjTvv67Ll7uTXnV6NHLhRHa10MXlhTzEgf9sDlAkGt88E1
Fy4RzHOympSzgGKDjtOpMd4UB6OmdeSEMrB47TGmK5ZBacPOf4HbH7rPdiLE
BDqZncVfOBKsiVXtDZpCcC7znbL5WG5PDK+bVU/k8vl56WVLKE6Zxk/XXUXh
a1JyLc2A4qxRbp4XIfBI7OrbokFRbJFR4jmF23N7ve3x2Qw2N2xkdxxg4H14
ypVHbRQFT4NNM95TiBuCdorWUIwYH+Ds5k4x3L9vz6MWinFtd8/uqqRYteVl
tutbipeOSaL2Lm6+8jltb+ex6NMNNHy6gEWE+YWoOdx7VR/VvH70dyySW71z
D+mz8K9vW2QiYBHoFfbYaw63FyuMOqxtKD6oMEfSRATesy4HFlcROBvp/lC4
i8LNI6QyJYXiek9JIu2huBYTmWB9g+KX/TWLlbsUeGAuDmxqV+CHUKXxwae4
d7lQmNZ4jqt72Tz4gpBF3rYnBxq2ssie8ljgMYSi0IivvZ67z3rr6xEPKgiC
UvvuzC8jOL+3NmyIG0F4vgr/vDVBHNsdKa5hUOuyVHVkCwPtoMik6Z0EVRKH
iaNbCX6POaC3NIpg5EM12zxfgoQOY6vk0QTDE24VWioTPN9nuwLcvp0oWrvR
awFBpVnWvaN8Ar1xKltt1Aiah5gfye0gUHr2cmzXM4JZix0TPk4nqBCHZc/m
6OVzY22QH4MIrZ64sAgGc2WHc46JGBzlu6WWVjDQ0do8OKFWgU73uhGHGhVY
ZzO7ULZajq+hvuLBdjlcm+O3NnswKNbTPO9kxUDXUJCesFIBT6tvYwwcFIie
FGKnYymDUlxs+jgtGYyjzRaf1JSj9fvtS2LV5HhdbNkr0FRAULHb5pqJAvGn
XhRpRstR9uGsh90+OQ5v2osfneVQ52cEO9jKsd8k/f3xcBnUDY7HvEyVQa0l
6MkZMzkkelFSY74cWrM/6qxdKcV3UUOKRaukkKjw1A+/kaJx6LovW55LQeNU
Vy/TlvTzpIvfmzg9KdoKK67M50mR3OZ76URTL6I8A87crevFHJP6KvfHEjSH
7lAvKJWg+6eQqXHC3n6G9ya2u5zuw5c2c13VcvtAyvyi8s0+IGRSfMCd4A+Q
m05KGtkjwfTGuUu7R3HxMZmiAyoSuO/2Tj/L9MLTI6J6hdFHWC8r10+b/xHl
yb5mdZd7EfZFiKFCSQK/zeMe/Xr9LcLdxop8ArpAniw4Jojp7mfmXtUU3ak9
uPlkTXjnth7w/jz/5UA9tXwv1X/V1c8tNxeuPHS+p5+oDFFVVX3bT/JJ95kD
64fntcYuchT30/ZT3mcO9FdyyF0q8X7Vz4F+A/vjfdJ9Jrvz5EK+Y+vfkg7g
X75N/fxL97ifA+MD/egnHf0b/cqGrytM/kd8oB/vH87/Wz8w/k/6zBHDdhfa
FqJRX8FPrKjGHz4bzws=
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJylUws01ekW/z6vyqMMaiiHGEnlEbpUJnubVKKEkGRS1L1ToXTcJJRSHhkk
JcN4TUl6XD0IiQgTlRKRul6FQwnjfZzjnDP/u1Y1a1nrrrl3zbfWt35rf3t/
e+/f79ufhsd+h91ihJAEZv8HKzlGB4yeUWx0kj2aoEExwc3Y+WQcxb3Occo8
dYoDJrc1dPsoSnRxay0dKI7Kpxf3xVOkLufmdb4gqBGmnjigJYb3bEI7jNwo
6uYslalHiiZBqjoDVQRd3rGhiEVxX/Wr0q5sgk5bFG73R1FUW6T1kVNGcKuV
mrt2IcUH7RddYjsI1p0YWj5QRFE5MsdFhU/wUHz45ZCNFPN+WaKTepSgq1+O
uuEDin5mwtyCDwRTxcsWRDJ5enX5Z6+PikDPhLtX7wrF69/fqErqJijafK3r
2EKKXe3yfZxNBKXO7XyknE/RLEKh13QNxVj767YR6RR1GsXUay8SDBWVW0kG
UByZkHL8poZgTaL3+vJDFB8WG/q+jCT471LLsQeRFM+/Cbrwup5gmbr4duXl
FGcIf1W+kEtQQariZ7m1FGssyoJ2BxM8LTH3p5HVFA1eVU+/dJXpJz2mz5bR
V99rRkNVF0Fr/bh9W20o2l96+mHHFYL5LY8vH2bsxHHWcYsEgsavwVSQTfE9
7WnbxCPo+Le67d+1ExT3Frv2+ATDX9OD23GMYqTdi6T2HoJa5eoyP6hQVEkd
T5Y8TtA02EJedz3FSb2GhaUpBBtCS8XLtlLkEEnf7FSCpPCXiYpgirJHF57o
nUmxSVNGJFJg9K0J6W6NJagYPfNwpTvFhl7DxDulTL+FwarPvmbmYuDH4xWe
BM9oGiR5MzrP5WttCgtk+LOveEUwfcxKsOnf5kLw+hAbipk5srjqsKKZ0W+B
lty04QqCAem79yV7EWxuUs5neRA8HsNhP55GsDLH8yBfh2L6r0aFiQUET61L
WvrCn3kv4hfseI/p10jxMmuQYEzEWdf0dILaXvPl3yYTfJuT+52KGZNnlrbU
RcZ26Vj7djUQXHfxuk9lDMHJfjNtfz2CwyWeD00ZHeLeq7ESNxM8MO3lSkc1
istqGpeoZRD0LfbTaAtidNUyDHiwhKDJyHLexDGCJboD6oorGN3vBkpq5BHs
meGhY+tHcOCsz1n/aoI3Xs823XOEYMqirFf7V1As4narVTDzufKpORwzoWij
bNcy6z7BLr8kvQZGt3kf06xgJsEjtdI6Y5YEpRW/LZJpEEHJrgXncv9F0M/a
2nzUipmvOV5FtoyOUeYZkXJSBMNnT3O/vIGZY+s3bu+Y+00+rq9qbxBMtl+4
LD+EoIH/pWY2wyvivomDtTHBMENQVWYT/DrZ7oelcxlenikpgk4R1KvGP69U
EMGtZqHpWuZf2grv+HhIEPR4r5RlzsxhOKveTtOH4KvpsXO81hA8+lJFGMHU
Xzc9ymlDGkFWfHWtbxTBZR1qeXXMv3o48dhBSZrJw52p4qtIsGBLuAbrkQhC
xeXnnnougmvzfuwMcBYB74J8VaS2EJ5ym4+0+gtgojzhtqM/wUAXRbFme4Ky
nQfH/aVE8MFNo7CXLQTPS/P2f8MiqBkyv6FmSASp0+ecdGLe5Wpvfp0+0498
sV2WaoEQpDySLfrDmLwxxbVNrSJoDN4QddxdBBs9Wu6qbRRBXPs/ru2fL4KT
xm4mdoy97YikhSlHCDrFMtt29AvAufvAy+hMAcT8c7N5/EvGnhiQa30mgJXi
fz8bP08IuRMpjdpKQlgSpFdTmyEA5fIzPg17BCA8f1Oy2lkIet3Bi1XNhFBg
obR3l4IAWFz2ao60AK6MKh0+PDAJ4c9nTt6eIYBaKXGrVeUCyJhQ3K4SIID1
bnYSnjl8yNvxlcHjcD5ksg5tGlaZhB53H7kTv/FB+2RFXHTQJFQZBBW3OE/C
XPNdVsOZPAh9+vPumGoenOHqrzsVxYPElW99ipx4cOinsl7vp3xwldWXdK/k
ww3h5Jn7eVwgK8bS24ALQvskw7fvxkEme7Itunkc2A0s+74OLnCE73iz47ig
tdjko+thLrwosRdPWc8FE4VtaWYRXBh+UlgVuoULEU6npC0OjEJkX5qnrMQo
pL63lCnPGIMtwxI1I+FjEGCRXZLLGwXjAAe+OmcU3oSwzo0Xj4ByIm0T1o9A
Gq/ultGdMbiXKfOh2mQMAk29D+4MGYHlZ2Z4yK8cgSxP1TVFkkOw5Gh41ay7
gzAo17Hxhusg/CZW2uMpOQic9FmBIXVDUBWU36QUNgSOcm2rHn37EUb4ltoH
ZT+CTWPmhK/5MFjbrF22ascwLGpPWjru0w/yagV9zUV9ULDjYe741kHYk7+1
8vy+QZBVLdPdmTkIvsP8J7diB2Hxxm6Wd0U/ZBzMn3gf1w/vbk3e7PbvhSC3
FnaiQS9oP9lTdNqsCwr5CXmnbTtBGJBmp2jZ8QXzetTkAyW6oV2vKjpsD+fT
ef0XpKtvbhn7nvMFRZ/ufUby6fwzCrP82Smcni8oaNiUsDCy9Qs2VRqLXdLq
BI+QDmmxuE4QfI77L/FT6031d6j6DjWf/oPPVD+ZskSfeH3Gqf4/W1P1mYr/
W/wf/f7V+n8W///y/R2B4vob
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJylk3s41tkWxxeTIoSIkkgqlUHU0BtaO5eoKbkMb6ab21CIaUpxSLlVQmUq
txEdt95oUqkRxakkTBeimiSSdHEpjVe8L36/fX5nTul5nHP+Ovt5fs/nefZe
v+9e67vW1vYMcvpBEgBSuO9f9MnO6PypG4jfcPFl1TtA1q6sDVWTliBFiact
eLVAZHRXxxdMkSA1CoMZ8X1A5h08vPloKJAbO/LK2/hAzG1r9m1pBTKh0f5W
9g0g0+2qWlfvAiIw3zZYYgvkz46fL53/G5DvDLVDRxyA7Ktsu5l4GYhb/7iT
qtuA7Ne6GB/5AMjwReMf76YCqauqz5sZAaTLUau5htNf0FaF6AXk7qmKNdt4
QDRXldxuOQLEyUinJC4IiO2GHaWZVkDkrK7xiCaQ9zwXtZ4kII8Zj7JTG4GM
l/MyeNMEJPOqi2Mot887O91vbxeQRikZucyzQAbtle+rVQI5kFOZ8j4WSNGT
TVlphUA8NY0ingQDOW2XtiG5gst3QunHlF+AKBbkT3TJBaJ1cNEzbc6HeqE7
ibAA4hEhDCpQARLeGBsttRTIkrKhP3ZKA3l0a8rRXReBLFOJjd15CEg0Ll6U
k8P9Tyfax6UASXqVyr8SCCRGcGGJjhaQs87qtj4eQM6Jz7mPECDBHd4aTA+Q
4vhKP+cGIPbV8rLfcX6Yfy2nYrQIyNbUnxZHtgOpaPm7f2oZECvfdQXW4UBW
Dvo3XtgMpMok1GcOl4+f1izpMnkgOqotgejH1Ts/PzncDgiTOMOnfA6Qoy1L
c/WmAvkgo9OXhkB6Px7JtRRRXOhR4Xufy7NjhvJMixAgxEfJbv63QE4d2K1q
Mw1IiHqZ/cw4IOt5z1kJTjfMtUSgyO13JVSVlT+keNhDWTrKCcgby4hA+BrI
zRz7cdttgOhT2yOh84C8vuS87K0kp5Ol8hjvUZxs4HLHSorzkYQpeH4FJA0F
G6OXcXNHDM7w+yjm8vn5UwHIyYSdygs4fc1JGd//pggkMcPgZlo1RYGkum+J
GpCRrcX14QMUx+tXdUmVUaR+Gm1Gayime9md2HeQYn/6tds0ieKMDX+0t5dS
7Fqa5V+TTnF7f5veldVAzJpmqJBZXP8zjF1zub4+2hFZU6YAxDA2etsBrj9P
Q6qKk+cCSR8/YbepO5Dle6R8jVcC0eDHlddxfpbPn7yqQYZ7P1HVMsc8KH64
l/SwWJlidmKAeXkxxUlmN/TUcih2et8+EODNolvEMxuhEYtRPmF7Ei5QXLPZ
sOqoKcV5+toNQd9QrA8ROHboU8wrZHVXTODqteaPvJUFYvK4RYf1p+hoVCix
PoKir2SD25oGFjPv5d1/Ws5ixrTa4CPHKaqawWNjb4on7wT1DaqxSCQfu4n6
GbTsTX2bH0hx1nXn2kmWFE3y3dcTCSAvivfGLLxK0cVUudCUe7cvCgx9Vmzg
fLGPuZ7NzY1twguNd9z7TJQdt/Mp54dOj6VzEdcnN4UjxvHLgfj4Srj6cvNs
Md+iWTBM8bQT/3hZK8Wh9spNoVz9WZd+t72ST3GPmoHd25UUGW/le/WzKZol
PD+XkcDizmS71w3bWdyyf9rGtNsUeUKnuVJcPsy+LQEL3jA4JSyp8HwFgyH7
qufU11A81R2dqi2gKJ7ywfDXwxSXiq79mhVPUdrn4UkfHsVG/iTVWkeKCmTK
m2wbBl0LNy+8N5fBDgvf5YtXs2h7/l2vSQCLzmE1+RG5LIZo9TuLw1ms6zIq
+9mAxQMTGteGmbAI428bXlKnmNZ5q3JgEsVX8lca9WYyKDdVXU1Km0FJsHmy
y4rzv3uPnHAdizpBDjrurxhUKmI6ZHoYbNuu1ryuhMGXs8UxxnkMitJfyy93
YrHSQ8/vIxcfah1YExfH4rldBe2yh7i5iM93PC3B4kxPaFqlzuIJp7NGQtMR
XJoyfdncb0Ywasuq5/5fMXj8WKnhuuoR/FE66f7DyQy28xZXhHCU0n+3Xff+
MD469ujmk3PDKB9pbGX7VozjvmVi37SKMVpSsUnphRhPzZZv1qgUY2CV/izj
WcOo6KhZpzl5GCda66+VSBtCz+SqDb9kDWF/dPkJ1zoxNj1LnL6H06n2jAre
O3UYebN3K9eOH8baaXbPRiKH8P27VbMzwobQr9SkyD9IhGJt86YLP3BUWkPq
JMWYnaqw1XxIhPODBesCEgfQ6Lf2kciUAXyet6Q4sluENg8CrFY0ixCszvMH
Ng6MUiInJfhm5iAq9Ud588MH0bbg4itN04+Yud7Bv073I5p23tJtUBThy0D+
ejMdEaakPo0Ms+xFr5aIkBOLejHlzKuYa5UDaHrN5ffDlwew+0V/y7NuIZqd
jze62iLE617TXVIdhXjaSkHg7CLEhcUDD6aN60eVNrfnZ3j9qCfcHywt1Yke
NjELW806Ob8c3OPPfBjlVs+jRlU977HBOb1RSa4X4a/1YZSZ1h1uh1z7Rsma
9Io0XveMkhnDsefJlc3xMl7duOxuiKysbDfuvfgy0dn6z1GOvU/iL99ejxI/
/feZY8839UluLlj0RX9sPHyK+0zm0dpk3bjWUdLQLAdl65ejZMdwbDyMWf+O
a8TPHJsf/bT/v5jvEBb3fdGX+8bq/7/rv9f75f68itJmf0EmMgvWzjjxj4b/
OP8nW9swPA==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJxlUgs0leka/n+3Qcg9tQhDSiik1GjO+8nl5JbLUIiwVWYxZUxySbQbconK
JSXKdeLooiGhiIRyLxSRst3K3my5hv3v/99nn7XmOGdN31rfetb3fs/zfc/z
rledFuh0TADDsDT+/g9SM8x8MUkctS+ZcLwbKKjQuRgSOoIhT4MnDSJXeCCz
ZFw7FYojS4MMjyN6PKhkhodM4zjqd/nUM5FLgZ86tzInBEdyazwUFeJ50DKw
O8wrGkdrcq+GEg8pMGWYvB+/iqPYekJMchcP5IXKy88040giIGn8V3UKukRN
hjoycAQrtS5yzyjwsboWk78BR51iuY+28M9lHo3T1o44ijjAUwuOo+Bp/30H
rWoMdW7n6FhySOgye7HnmCWO0tsHHr425YFRmPvXhloMbf2qHCNSRYEyTUhk
/RjfX2nxD5g9D164ZF4P8MWRektTigyLB5+uObSpbOXnU6ZZJiTzgK1rgM6U
4Ghi4dCln7x5MDoY/z6Hz89SfzplCBRYD6pWbHXC0flh+vy+nTw43ife/kEH
Q9rWclOQygWKcB+Xeokj9glB93EhCh66uHWO/IQjtx+1g8bpFBxiGI6Z3scQ
SzZWubmAgszQIOdlVRw539M/tuUCBb/MGMbmTmIodGeUrYY0P++7+SV2IIbu
hPc5DClSIDx8wfP5ehwF7PXN+CxDwoDSrFbqGIbu/qKxsZzfjyhPwdeegxha
0iy4NZ1Agd7x2r3qTzF0fw272vgtCbeJ8cA7UjjyJw33vzxEgWdqyDwnHUMb
0/c7fneJhFlDKUgvxxBexthq1EtC8D8yGCOFGDI9y75V70VCgCol5kthKPf3
ypuRpSRscFerJNk8yNwl5tYmTQIROvTudBKGbvmpNNeUkfDI7XSxvBKGuvWs
vtKYBDws79WxScBQnn9Utz+TBGcrSk08AkNpFCfhzRESLi81tkqoY2jm9oVJ
JVsusI3lLXBPDAmfkvuOxe+n6mEpVsUyBdwoV4FLXQTMzmZ/330KQ/mBQkN6
EyREvx29IHyZ/7+KyuBaZxKqhNVf0t0x1NL32PW1PRfEi58JKPtg6HzKCXoj
P++vMovKvis8mI9+sAU954K8e+92fXkemEUdXKbNc6G1INWYCMLQcIve8MRB
EtIy1plZDfGAozZYqvKKCzuXEtfm2vHnjcGYi9vGBRvJz5FmyRhi5x3p2M7P
40no28ZIYShJcnD5mRrfT7HD5B4pHkQW4D/7sbnQ//KUY/ZJCrSakh43fiRA
uPSgvD6Hn9NIZd2Dbg54ux9VaC8iIVmm3XRsmoDrJ31u2sRhKKEjfqR1NwVT
4kUPd4WQIM8LLfBjEyBTbOaXyp+DW5LpTaqNBKRFFL6wCeJBDHNIO8GYC7L3
bfXZohRUlXgFdfI4kPtFUWroOAV7f6xRELEmYd/hvfKRX7iAx4yePo840LH8
tDbmMgXnXvxpfNeUgB96mbpFf5BQXhEyFeVOQJ/xo3oa378zPYGqzeNAYme2
hZ04BUtZ8p3BKQSsP6NUb17LR9vsmZmMFbBVpZo3+xKwwnotKnqEAwLs+H4h
FgmMyuwjbVMExG2sTisx4EA5szan5+gyMKTEr2QJckFb8+JuegEHDg3b7/P6
jQtHO8L91pRyoFlZuLg2j4Br2zLNaxpWoK9oR6lHIAGJW1u5srQV0BFisZTE
OPApYK6r2XgFFJ5s7OluXYHSlNqL954tgrjEBzPDPgLKDFve7BPlgAjjjVF9
PQGRCmn74d4KbA4ICKwWXYZ0m4o5G+4SmPpL+LMFCLBW9dGsNliBBnsdIxf6
MhR/mvBwUl+GUtP0uA7eIpyIzfnNoGMR2iZj7cpyl2GddeP0296vIMSNvoBZ
zEF1svamUt0Z0P3jdtuVg4vw0cQb1G8ugKeHhNLi/QW4oaSpXSW0AGd89row
pBeAtvhKf0vMPKjmCN5imn8BWb/8sppts+DWNaFZuGkRFo8PNubaLcBMTc2u
FvY8MDSuSfbPz4PoP7UKR4NngX4lwFXz8DTICiAzhf4vcDU+GD6GToAJY3eO
wa5ZGPfA/Twfz4D53I3Dhy3nAO8zPBdGsCGM3qPqYvYJtJbPHrWQ/AwWBdJL
hWqzMNfz4Evq6ynIuSgerWU+DyIXTcPf0+dBu/NAEQywQC9Eda4lYBKyNP5V
s7GABXlh0Ul4yhRUSlxhbohhgrJSGqx9x4LWCI4mypoCgz25dpMlLNgwICqx
wWMEIi3SvnfZyYDC1HKdPe1jsECUaEhGjEKjboqeoMAQLJ1lVjpVMoBmFdY7
Yd5Ul91g5sMc76rDHSdKWOwpSEy+azySxoTtEi3H7Ks6IcU1657WSjlYC3js
y+8dBDdLHSU3igFeH/pSs1JfQWvQ1OTSfBtMPyGMe/yHIVdU6edor1Gg6Wsq
n7PvhsyCSiNb/W4w0xvr/rNoABy8lcpb9/eB86zRDVG5MagoE5SPdRoF8q39
tc0JH1dxv0ly5oPYBsD+WqMZv29KIj+C82dWZt4Bxmr9v0sntUm2KbBqtX63
yGrYnJ8zwGYT9XmFASpy4UfHnFhwSrbkkFbmCJQ15pcVl44CFZ7jIGc+ChL9
nCeKz0egOYos1JIe/6ves4r3rN1fiRnFr77ffqKZTb/xP7+aNNe6hf/jC8tI
jhBx9FX+u7zhqyZED9iaFCsm+PV/k9c7USj7ww49kBzXUohoS6xp5EoVgN31
Vb2nhngwV6kTnEoMIsVqvs3vqK0bxEkJX9XvcG1xtHItW+XdyciY2GHxZtXf
3/U7zTU9TK6TdWcSFandQobPWhLP+tI68VUeQ6oTbzuZ/41uVR8t/fjmmrd1
zxOZIlbv79T9/f7fdaFPzA==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          PointBox[CompressedData["
1:eJydVGdQVGkWRUQJS5AgYcgggyiKKEGB8UgckqtiIEh2QIRRMZJEwYARBREU
RMGEiSiigwINgoLKjERJDTRtk3N3v/e6QcZhq7b44ZZ/9lbdunXq3nPDqfo+
Tf/9LgGCAgICV2b9P5ETdEhlzWUCgk9Vb3iP85AQdcKn1p6Ciky1haQdhZmZ
iKR8awqycZZqZjU8+CkEU9q2JHat73IOlqdQ+kBpZqE7Dz9t1/M81krB0j8w
gibNh1NMjOmbOxTeHrF52b+DgrPfUaf25TzQMr5ef3yGQuwJbE5L4+Plv+IS
NF1IBDUNUul0CmoVut+cFEk8Pu60zOwJBafP4vW1GylInM54QNznoXvHCmZl
FoEtMXtH85w4yL3of8SWT8Iww+xeoikPohoxv4sJ85H5LkljXdgUQocGuX+U
U9AslIp8yuKjNmtb6CoZAkzpgETL+SQqaxpk464TEBBXd+Iv4MGxp/pjJ4vC
a4v0eZ03KRi2W9VMrSdxaX/KK7EVFNyc1zmHyJDYwjSP2naBhP5z7qKPiVwI
CidYvMgmIbI3IuDtCwJrqpI9rsrw4Bpilhn+K4k6S+d7XbN7bvVu/mk4iQSR
reDll8JD1O7RuMwcEgvymaPJJrN703XlxdtIdOuILFamUVgu9zN5uozEA++0
wIpMHrSEC9X+/TMJy7hzhzrGSBikhstc0CQwnTge4fyRhP/TwRHFVBLaLJXV
sVwCivM/v5r4wkOQAMf961k+Ti26+07WjYdClgGDweDjRgFXgk4joRixt1+7
lcD6s0vVRzNI5MuV5zT3UTAY01xtvofEJ0bWNQU3Pg7Sb9FXzdbvi28NLT5I
odOwXpTO4kBjISszdIzAUvmdjtstKPQ6udWvtJ2CsMi566oHOXhxvPNG1TE2
wr279WjhFGrsq0ilVD4uK6uV2niQOKvH9SpMJ3DLvkx0WwoFcYOm4axrPKzX
555Z8JWLBn7SfgF5EiV85+fuNlwMD9GNm3W4sGi2c80rmL1X0yReoZ4H+x2h
9GWfKQwaXLkcMzsnPcz+bqIOgQfRvgodNRSkNYaFlfdz8O1TyZNVSwgczx6k
xV+ZvadPaqP3rE49ZxQCioVJCNhdCrgSQMHj4gfz5FU8cBVU6tiyPGDBi6N2
DA5cfwtz0SziISa735MI4yJL3/19rwaF99Kt08KbODAIHlbmWlJwL8xlLjIk
sfmXuPDspxREmDWKsooUEHvpctnpaQSnr97gWszFG8bL2zcsp5B2T6v6kiUX
A7Ef4osmSMBra6qbOgmWw4CWdPEUhsM01PrTSKQbxe5ZG8GHtqJLn81rLvxF
Gb/I3qZw1OdhxdJZncTu7vqjwIWPVEWdWt0ZLnJrwGHc5GLUfb3r9WUERCxa
JtbY8WCSrvPEzHz2XefevMzom4bt287Sh0kEZpSYsQkHKCjj7M7AdgLh9vW+
S77w8e2zeb+SNAH/DYIJw57TOHNOueiYIgdP2buPZI1RiLqQE9YTRsITG0+W
evCg57u2NsicjT6f7JUKpRyoy76aVpIiYHohWtePNg0b42XTGQ5cbJ+0ovtY
E/ir+mDy+ftciLc3dsbXUpAba8rVucWGlU66JBVNwoFlOOBJEXC5Kp9224WH
68Gm7zbkseFC+xyz2ItEUu1MBl+DjadeftvOG3PQ3XGepSQ6gY+1x/xajAhw
qjYIRnaPoi5yP1e9ZQIK7bFyq33Z6Dx5r3rXNS7E7tg56zPGILT9pJnYYzbm
1Uk6Vr1h4068Nq3nPYFUqwVKkm1s0DdUWgg+IUAW8eplnCZxrrzwDNOcgMNV
KWO5jRMwzNXJvHWRQFOnSSP1fgQfpyRMpGc48PLiTyWrtaGx5bXLsvJBrBmq
tLHu/4KRyZai3T396ItMafbNG0J8pLKLjhAHi+Uml3R5D0FxaF2xD8axNNhw
k1tDL1QfZdAbRyZw5fDeFKljgxibH62rG8LG5h114Xg1hJ6/S2RupUzO/uv9
y1vnseCaZtf2enIQj6jGPIFwFlaeLY7cNz4I0tTPw4McwDoxW3mTsDHk6D/z
z9PqQWBDvJac3Ahujldzikx6sKlgyYknViNwNuQfij1QDqeyNveuuA7Ijqyv
VPvQCyeZN1nGRiUYzbjWUKfajwcDQUUd2b2ICOEKHc1gQWhFoo6Ybx8KHMYr
rNU7sFaiwFJZYgCSMxaD2gJMJOzJKqu27UWjet9t4100hDgWB6xjduNbA9Ov
u4pNk3ewrzI63EHLHasfeq30GIrPnl3UeziJ8jzZ6OOHGfg7ImOzrE0j5Jt+
s/3a/xYC/zWzzJa9bdYVCDk+VSDUyYJATNz0KdlhWl6f+JSKEJN2ySgz1Nan
HUM7Q2+Ub2Ni/sF3PoHTDBQFP4x6t5lO2+q2JT8od/tcv2jmPtaYQ+PcvO/j
ucUOBYW1leBM/ZmvW9Y6x/t/bZpTaKv/oRv360+8yLNlIKjE86+mOwx4/75i
ker27v+Z/z3/+7xocqOpivOP65l7ukq2pObiR3z/iMT5Xcvt5/KPht62tnsl
z2Ejz+ZAvamKObxGhBo+YCczh+mlu4NOrZihPXSLXZhItEAwSjBnn2XRD3Wy
nnBkGSR+pcnuyrgkKbe6/Pu8ZhntVzVHqXJ6zoGzKsITNPn7qga8x/lz/SQO
WNf3aP1Js2p7vqXq0wDtH5dZOL0=
           "]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X3,X4]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Information Capacity[X1,X3]]\"", TraditionalForm],
           None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}], "}"}]], "Output",
 CellChangeTimes->{
  3.772351809914758*^9},ExpressionUUID->"85128a8a-b86b-4d0d-9638-\
9d72f71ae838"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MIM1X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM2X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM22X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM3X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM4X6", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "0.5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Re", "[", "MIM1X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM2X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM22X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM3X6", "]"}], ",", 
       RowBox[{"Re", "[", "MIM4X6", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\< \>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
       "]"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Join", "[", 
       RowBox[{"CLRS", ",", 
        RowBox[{"{", 
         RowBox[{"AbsolutePointSize", "[", "5", "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
          RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Log[10,Information Capacity[X1,X4]]\>\"", ",", " ", 
        "\"\<Log[10,Information Capacity[X1,X2]]\>\""}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
   3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
   3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
   3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
   3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
   3.771926765129942*^9}, {3.7719268107901807`*^9, 3.7719268261110067`*^9}, {
   3.7719280815192685`*^9, 3.771928119039318*^9}, {3.7719294431446967`*^9, 
   3.771929457794732*^9}, {3.7721689283429265`*^9, 3.7721690533491125`*^9}, {
   3.7721694854823895`*^9, 3.772169488631389*^9}, {3.772169819335092*^9, 
   3.772169821480093*^9}, {3.772169863548537*^9, 3.772169899478387*^9}, {
   3.7721699474990664`*^9, 3.7721699767585363`*^9}, {3.7721702601076183`*^9, 
   3.7721702722613535`*^9}, {3.7721706449071755`*^9, 3.772170647284936*^9}, {
   3.7721717010141068`*^9, 3.7721718143087273`*^9}, {3.7721718659804497`*^9, 
   3.7721719017313013`*^9}, 3.7721719876233015`*^9, {3.77217232637504*^9, 
   3.7721723694770412`*^9}, {3.772172415862479*^9, 
   3.7721724440043087`*^9}},ExpressionUUID->"ac829725-170a-464f-83e2-\
522c6af5f2e0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJytlHs0lekex3dKpiSZyCnVpJIue5RcUg1fSQ3SIUZXCkWXY4ZiWqKiQlsk
90ZIuioOu4siKdpKQi4pImpClFx22Pbe9vO85z1nylnLOrPmn/Os9a7Pet7f
93l+z/P7fd9X09XTzk2Ow+Eksc+/maUV4VL/nkEiv2nH5GYGrhXVqd7bOabS
Ubv9a/dwTHUyG7X4kzmmMS0Hw5Q1OKaRi8c0D5Qz4LZOyCl+xWC/R/ra+ey6
UmUVC+VaBif3C5S+8aNo/y5DLDxKYaBNf3R+TPFwRvn89CIKE9sZurdTKEpa
VDddvkNxWfD5NNop7i1fkuAjojgsJfkKuxhYGJddXGfPoFG+fbSNGQN5r9nn
RWsYOM8/En1pJIPlwdtW+M9hMG16RWtnkQzFRrPytWcRZE1e4St9wwCRO4Ji
mhj49GRn5scS8FRPv1r3hCAte+lxr1EMgr5J8PFTZ7n1nUuKK8Wh30KzH3tQ
jBfNzs08TvD39NgphaEEehxfh7BzFMHK00t33qB48/2ZKf7sPKx+nWRXKkXO
JBvuMzFFR/FrQaqMYt/ZMXK6LQR2UaJtve8JYtav9FxkyGCZ2Dgt1oCtc5+w
/CU7zz0tVuctYzAvrGtz42KKyplST10uRXLOsennJlLEztmi/8MiiqSR10Mz
pnJMG4UrLdawfSistePf9KbQFgktqDXFhwse43prKcwbzsv8iymq1pd7xIxj
YObzzMhRSHH6YKbmzDoKw+U1o+KrKLy0Ze6a9Wxf5HO3GVeweXaamoziM/BS
Dja+zTI0sOBRwBKK/tQo5SJ9ipHXShys5BnU3T6fkfSGYuDeYtmEjRSRjqox
v7BxroNl9IouimdLqj4osvGrPK99ZcEUTwxvqnmFUPzu5CoYx947Ui4uIl6T
weqQc7s731IIRmdoyF5TfAza5RFUTLB/wGCWpJLgeHyXtXMVg5sG4qm2TxmY
dprM7jahYJLinExmUZwo3dApriAIPJQmSXhGYB9ne+BhDMUDM/fxmicpbq69
kq3IIbiv5shEjCXoDrgokecTKAcbdvols/1PXWxgVEVQEz1JUHeLYOctZ8PP
ewms3Tc/CtxNsL05LMpYiwI6bm032D44rZbUjRuQYaNffmNjkwxCxxyXiAIK
MwhXOLH0F+9rPbKMIn/7y3AjM4qms/n8WtZPj62ua1VbUjik3+g+kEOwLFmp
wvIagdndC74jPSnWrjZamGVDcSs+IZ+bIcOJkCXtWf4y2GSkhLiOYvdrODAS
rH/ODF4KvW9DoJ7+MW+0OQF3u3dJsR5FWnqnHHc629fURMkxHluXiTeSC9dT
9Fj+KDpsSuE2996DRE2KuulbyvLZ+m2K+TTgqcyex2W8jg1fhvNmGr9GZcqQ
F23L6+5j7xmud7e6hcLvoF7S2hMUwgbvA4LtrM/m7s7T7aeYsHsgsPody8am
R3PGMHDx/D3TuoPirt4/1ez3sv4usmrpWMvgV5qyQXkPg6PcayFW7Pf6etXf
aqgeg7hmJ37YVAZlsap+uaxvvRwPPXe0Yutc72pn303QO1YWkSggSIy6d3Ls
KQoLrSln7hxk/Wm/JI/XTFHQcy+G9lAQt5KlCp8HcSWoxkHu0yAq5JREy+9T
nPEfMcOH/S6zstuS/Xms33K4Ptf8GDiEtjjOmEGRqfdce5MCRcwp1aLLHwjq
lxccrXhK8D79Ls/IgeDqkdpDCusISqxtL5U3yBDJdAULa2QoaXuMXTICNe/g
2KUfCSwq+9cosP+Hz6HHNTaEEFTn63tUziOIbp9jFDeZIC/fSWNzBEHjMZOt
YP32wO5wadpMgrIFGaWnJhJMuni7sJL131sFbgS/nYD/kjsrR5dghYN5dN9S
gkyVY5dL98vguO3hDm93GSbkJlpoZcuwRhKeFS+QQWBQKd36YhDqqj/LR9cO
omamXUDGYSl2Gq+6I3GVQr/D9XayowzWb6P2vt0kw0+rHwyssh/ElNnaydHO
g3h5Sffu9+YS8Bb6mqobSjB/Y6xNrKYUc3gLHFJUpFB7mxBRMG0QbXmG/doq
g9jhpksRKkXUuTe5KjxW9y6712yrFOEeR3DWQoql2r2dr8IlCJqb3P1bgAQu
0b78+wulGPfO+8XFBVKk9U164+EmhuqqPvUdzmK0Nly5ENgmhmgsZ3z4BzFo
pKLrRjXRECvkM3Xs5MRIsXT/EKkhhmXVk6sJrf2Ia3HLTmrqx+d/lNaseiqC
1dz6crvnInRd8NWP9OsfosGtEbcyLw8goD+m1fL8AC7sibIXG/WCFLqH3FzQ
i9VXlX8pbBdBOn9h7KQeEYwrdfosBvtBpqULjo8VQVPtWyfnn/qwZdPRqq1a
fVDR0gmyqu5HUZzbgrqcfmzUXankIOyA+8/fVV8v6AB5YROvHdo1RL2y/f6H
tvUg/Yji6Sn6PeD8Z/yXw/XUsFs89f2nIXo+snUOu9ozRJT5KioqdgyRfNF9
5fD9A240n7Q3Fw7R5Mu6rxyef8RK/gaR0/shDs83/HycL7qvZA6k2E40b/5T
0mH8I2/TEP/QPR/i8PjwfPSLjv6J/ut754Z5T+f+j/jwfJy/GP9v/fD4X+mV
RBWQ13yC9G+VDt8xuYPZEZU/tO1cVPCV/wKEKuY3
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJylUgdQlFkSfk8EXQmCiAISdhBREUeCDiboRpSw66AsScwChlOJA4KCCwq4
gAmUlWCAVSSsCQMIRxZcWCOCCOuigEjYQuCGOAzMzP1XJV4VV1de1b2qv77q
191/9/d9j+Xm/cPuSYSQROb7Fxo49Q9KrCg+bjf2MX5BsZRlXpv+PcULW02c
I+IoulTyfp19nGIv5x7LoJuiVkSy1E4VioOKqUXd5ykWdx6/1MbkWSe0E3t1
J6HAJczxVAtBgzuGsrVIUanglQr7N4KbPvCgQJNittE0urOboJPLjHs9Jyn6
J0itQjWKrjZaO/TyKV7jnMqwNaBYc7xveW8BxR8GlFOj0wkeOv9TehiXYsrV
KAuj6RQ3+9/RNiqhWLSf9bxDm+AVqbJ50WUEt0Zpx8trU1zMEexfnEnRpvQb
D3c/ghKHG22h85l5K3882+lDUSZ+V6XqQ4aXgFN4rJ3gWfubdlGpFF/sz8g0
ExIMl5TbSB+mqLBCaqtOHsHniZ625YcozpOenaE0TPDP0rVDJdEUCc9OuqeJ
YJm21HbV5YwupusSJMweM2QqLskzujZ2nZBPryQYM1k9acCS4uiGlnA/GYqS
1DPddoy+cupJFVPeEvyOHXfAldE9zSyEfbSW4MN3T9KDmLglpbA3Vp+iyR9g
KsqiaH8xu/veLYKOy2q2r2kmGFIV2SNRonhFx03QGkpxr7j5vXMBQd1ybdl9
jK4JaXtKpjH8TI9aKBrYUhwRxvDynxCsCy+VKnOlmH+aZfitCcMj/+pIxVHm
PyrOodNvE2zQkZVIZjC+1PqW8tsIKp9WCHq8g6JDqINZ2mVm3/yjGi9mU5y1
6Sm5f4pgrM6SZM8OgsLoG3P6Axj+vMyDUZ0Eja1NmnwYPW728aCI8WVZ9duI
pgiC83Tlp/RXEEzKvXLaeT7BxgbVh5puBP11A6b4dBF8fMfdb3QBxT0srU4/
Zv9I62TDV4EUkw0tS84zehJj5XRNPkF5b/8QhyCCege/VWy5SLDpcObPR/YR
PDZdT+YaEz+qlrt2cRNB62s3vR6fIXiut+h4gifB/mL3R6YMD9UzCuuftRL0
mfJ6paMWRXMndlT+OoK+Rf6sphCCHiqcFTp2BDkDy4Ujocw7i2hODGT6pHKD
pVk5BLtGhGxhHMHec17nAn8nmHlU1TJckeLlhRn13isorpqjZTr1HcGVz8wh
lEMxSk+Nu9qMYJt/8uI6d4LbFu0RRiwheKR62oKhtQS9/sHlKxwgWOwxL/4B
44P3yVOKeRbM+5p1sMCO4eHfrbqUyyb4k8qUHenrGb1POGk+SGD88tpcX828
C/vGEwb69gSXBKY18hwYX5SqDt+wJXjCCDRUeczeiW9G+gMkcMX98mXRRwko
PZKz0LUieLdRbGqVRfB+Q7FSbiRBt79mZphnEkyRLflm6mKC9VPPzjrI6CJn
OaswluFvPfWk0/oUgq8HAnZrrSG4tFUrp2YDwbXhapN9WyRgJ1BQ81Um2Hzg
gtXuOAmESymqR76UQP+kTy73R0QgTFCsitYTQ2a2I/euN8GR8gv3HAMJ5pm3
6T7MFoPcR7/hQBkJgPk+Y0clgu5pc7znahLsuNq+plSF8WHqrAinRQS5NepL
IF0MikUbMzTyxKBw3IU9J0MCz84UVTe8l4CtiU3PslUS4Lq9y9XiSiD6khm3
CyQQYbKVs5GJy/elq7ffEsGCItktO3tEUHV/deevVSI4E+Bgfv61CLI2LvjO
bZ4YVkrtOXd+jhievLFtDosRwaKQxc+rfxGB1UVXzyhjMYh/zpb+3VkMQ2eL
3esFY5BnMXO/xwwRrNC96pPYMwaZgzODgnrHoH7+R+t1GSKolpGyMSsXgZ3/
ornpWaNgu3XjZPc7o3DjUuiPW9hjcF3z0IZ+tTH4yDb8LdR8DPQiKuJOh4zB
aZaHVXGuENTNPWz6rwvBr7AxaemPQogVsK0jTwrh/SmXghcvRuFQUlmX57NR
2P4qbJ/MTgHcEo/FFuYIIJDlnxPy5zCI7ZONWj4Mw7K9A+qvnwqAV6dp390q
AOuWV7fmcgWgq8/5tDlIAElq8UGx3gLgzNiSsipKACWJro8adg1ClFPkNAuf
QZD+40GA5u0huPLXWtnyX4agXZHV/XZ4EA5bZBU/EA7Cy825CwYLBuBtmGb8
cNEA3DnmRNclDUGKsOau8f0hyKp3FVQuHYBgU0+/XWEDQJ/8fbrwCR8y3DXW
FUj3gWJvsbehNh/48q3cW5v5cHDhEXu93D5oT50eHFbTBy9dmi7UWX4CR/km
s8rVn6BZOaZsr3M/fP/m+oiveT8sXBHfdS24BxY2JxsOe/VA8UOjuGgeH/J2
Pnow7MqHZq+UnLwUPshplBnsus6H6qecQsfmHtDndmh6VvTA7qpu99t1XfDh
7lh2R2AXsGLAObCgDfSe/q0gZlUbiA+nbFRe2/oF+an6t7kbOiCnU0sxeHLH
5/vaL0gts12GtrV/QcnnvnEkn+/HUZwRyLvc3vkFRXUbLsyPfv8FR9lSwTr5
rdDw2GRSmu5HEI3X/Zf6ifMm5sd5tGr49jXG/GeeTDiSz7zGcVt9fFpl9pLS
cZxY/7UzUa+J+L/V/9uP/3f+1+on8jfWl3fj1BqWjuPX+v8Jq4r7bQ==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJylk3k01mkbx69HCRmTFiEV5Ug01hreFNedJU+Tbciass5DGKIhz0i2RllL
ZetFM0SSMlGjPZMspRfRQlrIUpYi62N5fr/5vfNG5+h9/3rvc37nc859X/d1
fa/vff1WufpZ/iAAAP9kvn8zg94/EjwBhJOd0R3QC8StvkCHy9B8232upDCL
/Cvn61VqK1lERNEkrkCCRdSfeQnnxAJZeyTR6RgXSNGmBNZKFotsNq4O93wF
5LR06PM7AUBk2BWvTIKADF67M6BcBORjx/HLv/8MZLXWpP7WTCDh5a13E64A
MXoS68StBRItWxwX8YjRUc5rrY4BUldRnyt3kInTPtxpEQxEubUC0Q1Ik0Sm
5kgKkJXflVa+PAqkIK1P+JIxEGPHfdeyDIBcOSE9oMrc/7DRWrIvCciOfEGt
kJtA5n3lpvq2GUive/RqugvIxkIZr7AeIFutkruXVAMZM1tcK1kOxHGNtVNo
PtNX0+7T6eeBwKi3tv5rIGfZ6Y4pt4HsuyHY3ZkDRLwgb771GSCWlrJy3mwg
9UPO5KAukN2jWy19TYEcaPwlSlAHyPnIzCLHi0Ce3JM4FlQMxENVfFH+ZSBR
uGF9DpPnYvYjbr8NkKTONNurvozebGPc5gGk0GqZMccFyBo7rq4zBSSww305
vw+IMzmzxsITiFmVmOgOxg9vlaZA4xdA9qQFbIh4w+zfXytZfwqIgYddgeEB
IP6L2exRTSAVWlyOAqOn9MFapdJjQOSXvvRFLyBtex10Q42A8BNWcG4pAJkf
7zsitAHIgIj8YDoCsXl8eirpDhB1l9setalAlvvHeS/XB0I4C9lK24EEpc75
uOcwkOBl183kGN8v3RivubQaSIhNab64NJD0hUdO3LEDkuiyWDjSEsjekls1
fGcgd3PM5vozdbf/aulSKQGk67KV3jsBIH3eJRHVykAWqVrXGAgyepu7pGrV
mDyYvytKD4ipm2/SthVAztja5kkBEAXBTZtlFzDz8HWGwx/izPw1OSq0bQGS
L7DMo1QSCNsv2CHiFY3zVCp6BK/TKPXetWaojcZTbuzk8CM0yg5MTYkN07jC
8dmbN9do7E++ovGE6ct/uHXdVRMgERoDxSpM3bMZmjZnljC6F2lURnKAqP0S
9eNh5n3ex/Oycpl5PzVPaL8209fRmh3WMnsZn2xjbtUxfi7NrSjcwaVRJLJK
5IQLjXKPa8o0GJ3ZCT6bb5XQKNPz2PVcHIXd7pWHfdwpDIO2gNw/aYzkhITG
X6LxRf1zmx49GteqrGrw+5ZGhbO4YlwOSO55SnGrEJASJyKYWE6j1tOX8pQ3
jT4hf5jPZ9HoIdBgb9pAYWHl7SU6V2nMkL4fePQks79Ppr9fmcLMGr/BMUkK
ZdTp+Cp/GvX7097l+TKUpxVDxYBo5TnvJCwgtVNzvOKZ/89ae/F5bQsgDf5W
CSHM3GwyO1SWzcy9bNm935R8gCSIzv3pOeNH4k8885+1gdgvOKoZx7wD58Of
6UKMv7pKui35kzSKnkx5e6Wdxok35bu5TP/fvvQ7mcDoDpVUZb/bRqPXfp3n
+QUUbop/fTEjnkIV8+YV/R00ekZL70qvpLH9td+OheIU8sM9fZTf8vE35VWX
FzDvGRxepVBfTaPSU4kD3nk0jksMqF1IpDF7jrKiqzuNwpzHmZyNNDqG7tbL
4fBxAZF4m23ExwsPNjwcC6GwQ9djywYTCpMaGgM+ZFFoFVKdd/AMhe1GgTcy
tSms69G4flyVwsHo6HXVWjTCvEq1y8uYeeGGLUpZw8dOsauN6+T4WP2jrZuW
A4UCYNQUZEChmf/mV9ojfJT3s5B37uRja1PsgzVXGfpLttiV8nGf5zf3M1wo
5J3qEttiSaG4jlmqWgqFXEPf6pgYCi8dtS8On0uhfVze92dZFCZ7kaYx7SlM
tizUGGI4eqz9mW/bFEZ6fvfaew4f+b66hcfX8nGvcFLt40V8lPLQibj3cBIF
Vd77K9ZO4k3dxoaUrnEUi9A0MH43jvtjY/eFC09glIB488K2cbS36r/bJDKJ
vhUqqzVXT+LwRtOApTcncL6hijkrfQLtpZu4y5rHcTjqVrJNHXNfpN8+ad4k
VrlGBoZJTeJ1k4O+7EMTeF+a/WIqYgJlit1bd/rx0OuaVpE3Q8qiKPA0xcPx
haakTmAcO4b2BnGiR1EpMN/OJ2EUl5g6XPjhHQ9f5/6jJKKXh2Dwu+3ortEZ
SlU190ikjCErJzXwbtYYZu208K5THEHjguLOldojaJIY6sleyUPt7nuKDeI8
fPrr4Rb3oH5MTXseEaLfj1/xBO6a3BnF1HOdh26WM/Vahd9Y9Q1hb9vwyxe9
Q+jhJNsitH0Iy9xkrNO+H0Kv5SE3NukNo3rJ6CPpucOYvp4btu2bblw3FB0o
LNjN+GThHHduYIYPiuxkhFo+4B7XYxoVfR8Q/l4DM8wy7LCPtRmcIaXVz1ve
1TdD/izOPtd7GCwqKtqLKeUtcSJuvRhW3J5gZfhxhrPrsf72rWuG+On+NGef
T+ffPSjgVLC+94t4+BQ3Tf4T8xTFmFczpLmnLRYbts+QmsXZ8TBr/SeuEac5
Wx/9af9/cbpOnkVIjENR+xf5/99lfC9W/Ia/etk0/3v/n/XI5WdbmhSrl01T
U1nMVavxM3eF6b49cvYzi8J6jcKfPcHc29davPOzvsj3F9lQSSc=
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJx1Ugs0lGsX/r6JDnIryuVXknsUya3U2a+GSiUkkkui2zk5kS4InXSSlKJ0
RClEhxTJpVySQRK5VW65jzH6xzByDTPffPPPv9bJ/69z1tlrvetZ77ufvdd+
nv2qefvtOULBMCxOeP6Lieqp93tdBECODaWKS+HILOxVwlOmAF7qXQsIZGDI
sbtVKSRJAItnzMpGAnE0dZWt5q0ogMKhcwGjOI7kqITzeQUMHVMjCpMDcBSk
VdxVLyWA2k7zIM9LOLrlcnqs5KQALOkWXYO/46jSz7jAKZsEeZGCguAaHKmX
Lx97HCCAj2IWfQ0JONKsJl61DJLgZXMnPFUZRyfVho0+LxVAnnvV6A4HHCU/
5sb5mpLwuiPbXusVhjQfsd3qPIX11OoNR7biaMiSsWlyggTjINdvb8owJOo0
0F7eIwAVb5GFSkwc2Rs7Qc0qDFU73Yv3OYSjVA9DncIuAXy5Y1+3fDWOKB1P
aJpzAuDor0PBz3BURImM7qsmYaA7sitZyG8oNihdcEoAO7pVX67eg6OosJy8
PJKAo+0S9T16GPJwKkChxSSQPNdB6Xc4WsMIXz5bT0K+0/5GhiOOZIrI8f4q
EvbRjZiW2RjSDWJ6r1IQwL1A/72zqjiSOO3XePs5Cb+MGUWkDGPIq2Sldlas
UO/nyRmOH4Y+/lASm2DDB9H+yx6VSjj6+JvSpgJPEjoVx7VimRii9siuDtUQ
wK8eCz54dGNIyUU1X86KhDVHyzapvcYQRXdsISuQhD94g35PpHGU6L+XFtrM
B4/YgEluHIZMBNIvfG1JGDeShrgCDGXXG66q4PDhzI8JdEY6hgJrzsSoPiTB
R5UUP0QKfWysbayg8kHZdWUhnyOAnw3NXaQYfOAF9n0+ex1Dfektqwk3Al7s
P5spr4ihHKmZUIqO0I+CNr2dV4X6jlmSE1l82GtDrpQIwZBBpahGPUFA9EzV
e0k1DOWzLPIzg0ngmMlb4x4Y6tFtkwm9RYCqmzT75SwJB8dhXKmFD+PjSas+
ncbQtBzjeJ0xCZdaBy6LRmOot/vtiGAtH4pE1d6FuWLI5mCRZzyLDxKZ5RQV
LyH/BNNOy4UPJxdPqxwS7l37AYUpt40P8q5tBobyAjhQyNJ36OfD+7RYM54/
hkCPUxMmzYfbCQpUmz4BvGd3bhRlEWAyEyWTYosh57GGOLKNDzul/n2eehND
ab/q/GjwTugvz3BXuDSGEkwe5GQ7COfJtB/eIC2Ap0abmzdsIqDj3WmHJF+h
Lx0X0g9tIEA011nekEvC8pgDvbsbCTjoenhpfQYfTNeFd5YK/1e8r9f9nVcw
pDxDi+7RJGBEIiPfNEDoe/KiuqN7CVicST0Wy+VD5bH4496VBNwOSa/e6S+A
FbnnS3P9eLAke5chR4yEpsQEhccRfEj5uky67ygJC38KqmXxuLDFbZP8+a8E
KGVlod0pPGiYfV0WHk1CzK22Nfo6BGxsG9LPeCTUUUWtDCS40G72osJbOP8i
36zXJ8t5ENWYZG0rQQKzq6Or1pYLSsGKFVZlPBhZGyxK28mFXapkjfYhHiys
7Puho4MHFE5khwibD3UXO8hn/bNwZcWr28/WcaEs8sLwknQe0KUlYhIXEFB3
NqqS08uFff12WzxPEeB469NUbsYc1KiIZpY95IHIIvUFN1vnoD1jfa67UGfw
VQ08/fMc6Imw2YriXLiYLO54ymQGlpasaP70fg6SLp50pLtxQUKyh2rUzoOb
wwFXGBJcWEhvMa6o4EFtzttP1fKzoO3j4/dKbBZyao3MN6bMguVxyeMcCg8+
r+W72a+fhTd2esZOYbMgvrKtJLJ/CnIt4640CKbBJ9FKa33/N6gbjrDNE9YV
M1XO3Lg+BiLEpcuY9QSsbtt+7HnfFOg/+qMuxnkaWDIfHunoToGHu6TidPYU
bN8YdPt27CQEe21yostOQR+60SJFHQPV5AUPhqy+woEvKhHxG6dg/0eWRrrm
NIznN0WXD03CWGmpaS1nEhx9RlMWOXNAbJtW+sCZcZjcGLDLhxiBJRREXdrx
FcJ/yWodpY2BBd08eZ3pOFRoPDiV9noYrCbuurltnYCm6//asq9iEILCmlWd
qF/g9LV2rvbaEbBOk51JXzkOTR+fzU38OgnJ1yQuaVlNwtbuyzrvO9mg27g7
A4TI27y5xOwgGxLVH5euSGODS08oRVbYv1AyZkg5fAhKRuqCWtPZ8D6Eq4ES
R0A/R0th9xM6KHeKSSq7M8DcGZ3YKsqE9NgCvQ31TLgTGyzV2NULVfq31iyg
9IEGNmctEVFD87YJamNZvaW1q6AgKcdhwB1Yz9icEZiqLx5dLkMDA8naI3ZF
jaD6LqRgIdYNOyjuW1LbumG/wWFz3ZXV4NnTHpsY2wQ3TBef7wYGjJbwzJqP
94OX+Q6WklcqeBtqqFyw+wTTUiomk97dQF3D/PQ8oxPozzNSvsUblN9orl52
Km6W5niiWX2bHxP2jhvfFZNjAr/V7o721d55xP6M7RY37+VEvAH7wZuPjB/0
wkDCb5rX+f/L/zX0Yt8ueetXBCyV9KyHtD54mmHTb1VIBw85RwUzRwYslzt3
mLmHDeS5ZHs5qwHIq0rNy8wdAO2uspDANwyQ7OCWLKtk/Jlvnsfv/bN2uDaJ
G0fOz1l/ooYTdrd3nqfh7UKb+j++6GIpBu9KGIw02Pwkg1rg88P+3y14zf+o
92CUSFLP+jXz9ypCOg1s4yE4nhesjn8ED3WJM4Ri4z/qd9DV9+feOgdSg1pL
Q+qiSte71DrYuOTNz/ckIYG13rrlb/U9Hy79fF24HxMrDXeLeD7t+3ttVOgh
70Z8vh9duhGv8039W/22qmuyr/wNy79j2gH5I8dc6DSTS7LF9xe10v7K/w+/
QmXT
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          PointBox[CompressedData["
1:eJyFU3k01esaFgkdKUNFZSxlaKKicD0NZirDydSgVMYGNCAdOXVKhgwJd3cL
0eRUKNFJ2FuGVHJDGg3ZYYuEvffv+/12cl33D+5ate66z1rfeta3nvf53nc9
33o1vQ867xUXExNLGjv/YacSaSe5agoCv0PzViRQeCBr5FtmR5AUccKrzoZG
ZgZTtzSCYGQkPKVgAw0nOV5NyB6CXbMD6PmWBHr/dOW6EAZl11RGpngwaP2W
naEfzGCdt084W16EFX8+b/qti0b1EYsHPFcaWuH23VlPaLAzv6fnnqYxTPuq
CppoPPjlTJKmM4FyvbdvpB+BWsWiUXtlAsNUFUut+QzsX8s21G2k0eU72f+s
tBDtrku4ldcpeFkteRk7RJAX533EUkSgNain2HFbBBmNqH1TpUQ46n0hx1FC
hKDez8K/ODRm/41rNfiCQt31X4OWK1BIuJjcomtCUFnbqHgmncKOlSqDq4YJ
7DqePG/tpHFF7fCJv4JpGLxfX/vNnCA0Lab06CQa7g5rHAIVCOSFkm1UB8Hi
+8IZz5OF0K0ttlTIoSC9P3xvdTGFqPMzenpkabgFmmSFWRNIsTw9q3VpuOxo
ntOXQuC+0qH2sCaDCN/+M1l3CDY6POsoO0Qjq2XRLNl3BM46+lPM4xnoKy0k
f5QTVFRRHvO7x3KUKlTbtJDgyoGc7HoRhWWsMIVYTQp6hoUSo2N9vG99/qLM
Ishac83T8hoDZYnXJYOfGDhqX2WpPRLh1IzsGkV3Bj3u2cdk2wj+flc4rYVN
cJlKPtgVx8A8Wke9P5PAbw7LJiaRwbKvmoam/gQ+dyKLuTI0Qloutywfq18w
4OEemCpEq0GDTEunAF4eAxL5b0TQmbXVbosZjcNnMozEFwsgJX02XTVEgKUn
b4TczxAhbEe7LjuMxkjClOQQOYKEuWplFp4EOgnFRSa5DC7blMv8mkbjXVqW
7xcNAvPFwtOS34X4lO4176E+hVKRw30PCyF8jcm86qc0zJqt3PLvErB2d4Fr
zsDGNahF7zWN1OOb1li9JbgUapOdrE0hLtqxnFcrhLxGn9TcgwI8pg63P45i
EHn7M/tcIoFXTUHckAqNjtOz9z6UIpCtPPfsVjcDz7hnpqnLGXT29B2aN7Yn
kCw+avVRgDcqzq7WVQRRt3nbqFAhurNmHrjXRuGp/Nthqc0CNHcbnxyYTsOj
MI87w4Cgaque5OuUb5Dm1iorKtPwltlRLnuPRsAlw7VuD4XQOHLWMDScwsUc
rSfx64RYVNJcwHBEwHYXlrs6wSnPU9JPrRn0hWqo8S4StNQ0zzI6T2G+snO3
xSMhInIyiNsHBke9blTozCIoqd13y4lDgaWsXbdoRIjghaEBwnoa/R7mbul6
FPal+1kPbB2G0SXtP01MGTSesEqeGkTDsrq17EbK2H61JV4i5iLMRfRWn/cU
+k4mJYhSRRh9bcpTkaeQImhXnfSc4PTZuUXHlQUo7h8tT6NpRMTeCe0IJdiT
mtQ2J1EA3Z2r6/xM+YhOPrm+RImBumLJsMp0CtkdblIIo2CxSm8401aIKd/3
XVijRlD/JCQ15qoQTJnqgRpbCkpfX+VpX+bDujaQJWbEwLbToGcbTaHpaOyT
e6NCpAcY16zN5yO2YdeWacl8pNSNZIo0+Ogz003T3y1A+4eYThWZQSS+dI+/
XtQPQdVa8WPt/Xgw6rfyUasAs9//rmS4k48jCwK2xLnwMfWKlcPij1/hTKcn
5o7lNOmlnF3VYz4qo50uC+2FYK2XVJF7x0fUTq8E/kUBSBHToGA/hOOR6kle
6/mwPT99ldLGQcy5t+qtS+IQXrUaNdFPv6BHQbWhIrAT27eLvqWqvUOBnEmI
v84nrOittNjA+wTDqy9WmN3sR/extOad+b24a1G3xcV0EDOVhha07egFL3ZO
baHTAHQCDDa7N3YhTcs17U1uPxIP70+bfvwzoqOeruZeH4Cj68swlPTCJvHm
+bCtPIjf4um/ndQJG6+5jmYDPbhJN+WLhXXCftsbM8Xr/SDGuzw9SQ++/+F1
OcaHizuL73nna3Ug4x5rf38+D/8YeCIoMurAucli5/awKuFgIDr0ezAHmTec
w5dyqqD4xbxS7VkXsgslbZar8dCfeaHxpSoPWv5TfPwu9iA8UDj5aGYnbieb
KCzs7cRd24GKDeofkJSTpWRj2g25EbPP88W4CM98ES37tBFN6t0Zq3azsTv0
RvDmD3z2aCN3V3sVnw31+JmbvtUg72tD7yOVXPwrPNNR0aIJnHzF3yIPf8S0
roUzI57Hlc56tcfyO68adf46EbHKXTDJerP/3YYKuLUp+4zu6mWLRZ0ZPqXY
x17duzd6auAnxK/MCrL0eo9fbJz6mpOa2BIhNV4+w/99z8XdqcAvb8tEv9+4
Bzq/2jZN3MdZ+xKfK1EQg7Mzbe8W1lVC7Af0dptFUlnLOEGldueXsmdwftT/
H4w/eF7jpbVhWFBoufhZO6JiVxbVr/0Ev9Jt9a+ufPxpnh/9P+rjLJPaZDzP
4ef6cXD920qdWHk/+cbz8Q5PlmjTt5nw3+ytfvt+e+qEvnJbs4/ut4oJfYU0
3RdspQDv+F2vi3eLcVrKfP1OLRlhj+viEeJ3Dqwr+p/zjEM+ebXURV8xjmY5
21rNbjpn4v+vqi5jcgsQuKlkR1XAEHta8IaGDq0XbM72oS6pW8s44/xvR8VV
hA==
           "]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm],
           None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )], ",", 
   TemplateBox[{GraphicsBox[{{}, {{{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          PointBox[CompressedData["
1:eJytlHs0lekex3dKpiSZyCnVpJIue5RcUg1fSQ3SIUZXCkWXY4ZiWqKiQlsk
90ZIuioOu4siKdpKQi4pImpClFx22Pbe9vO85z1nylnLOrPmn/Os9a7Pet7f
93l+z/P7fd9X09XTzk2Ow+Eksc+/maUV4VL/nkEiv2nH5GYGrhXVqd7bOabS
Ubv9a/dwTHUyG7X4kzmmMS0Hw5Q1OKaRi8c0D5Qz4LZOyCl+xWC/R/ra+ey6
UmUVC+VaBif3C5S+8aNo/y5DLDxKYaBNf3R+TPFwRvn89CIKE9sZurdTKEpa
VDddvkNxWfD5NNop7i1fkuAjojgsJfkKuxhYGJddXGfPoFG+fbSNGQN5r9nn
RWsYOM8/En1pJIPlwdtW+M9hMG16RWtnkQzFRrPytWcRZE1e4St9wwCRO4Ji
mhj49GRn5scS8FRPv1r3hCAte+lxr1EMgr5J8PFTZ7n1nUuKK8Wh30KzH3tQ
jBfNzs08TvD39NgphaEEehxfh7BzFMHK00t33qB48/2ZKf7sPKx+nWRXKkXO
JBvuMzFFR/FrQaqMYt/ZMXK6LQR2UaJtve8JYtav9FxkyGCZ2Dgt1oCtc5+w
/CU7zz0tVuctYzAvrGtz42KKyplST10uRXLOsennJlLEztmi/8MiiqSR10Mz
pnJMG4UrLdawfSistePf9KbQFgktqDXFhwse43prKcwbzsv8iymq1pd7xIxj
YObzzMhRSHH6YKbmzDoKw+U1o+KrKLy0Ze6a9Wxf5HO3GVeweXaamoziM/BS
Dja+zTI0sOBRwBKK/tQo5SJ9ipHXShys5BnU3T6fkfSGYuDeYtmEjRSRjqox
v7BxroNl9IouimdLqj4osvGrPK99ZcEUTwxvqnmFUPzu5CoYx947Ui4uIl6T
weqQc7s731IIRmdoyF5TfAza5RFUTLB/wGCWpJLgeHyXtXMVg5sG4qm2TxmY
dprM7jahYJLinExmUZwo3dApriAIPJQmSXhGYB9ne+BhDMUDM/fxmicpbq69
kq3IIbiv5shEjCXoDrgokecTKAcbdvols/1PXWxgVEVQEz1JUHeLYOctZ8PP
ewms3Tc/CtxNsL05LMpYiwI6bm032D44rZbUjRuQYaNffmNjkwxCxxyXiAIK
MwhXOLH0F+9rPbKMIn/7y3AjM4qms/n8WtZPj62ua1VbUjik3+g+kEOwLFmp
wvIagdndC74jPSnWrjZamGVDcSs+IZ+bIcOJkCXtWf4y2GSkhLiOYvdrODAS
rH/ODF4KvW9DoJ7+MW+0OQF3u3dJsR5FWnqnHHc629fURMkxHluXiTeSC9dT
9Fj+KDpsSuE2996DRE2KuulbyvLZ+m2K+TTgqcyex2W8jg1fhvNmGr9GZcqQ
F23L6+5j7xmud7e6hcLvoF7S2hMUwgbvA4LtrM/m7s7T7aeYsHsgsPody8am
R3PGMHDx/D3TuoPirt4/1ez3sv4usmrpWMvgV5qyQXkPg6PcayFW7Pf6etXf
aqgeg7hmJ37YVAZlsap+uaxvvRwPPXe0Yutc72pn303QO1YWkSggSIy6d3Ls
KQoLrSln7hxk/Wm/JI/XTFHQcy+G9lAQt5KlCp8HcSWoxkHu0yAq5JREy+9T
nPEfMcOH/S6zstuS/Xms33K4Ptf8GDiEtjjOmEGRqfdce5MCRcwp1aLLHwjq
lxccrXhK8D79Ls/IgeDqkdpDCusISqxtL5U3yBDJdAULa2QoaXuMXTICNe/g
2KUfCSwq+9cosP+Hz6HHNTaEEFTn63tUziOIbp9jFDeZIC/fSWNzBEHjMZOt
YP32wO5wadpMgrIFGaWnJhJMuni7sJL131sFbgS/nYD/kjsrR5dghYN5dN9S
gkyVY5dL98vguO3hDm93GSbkJlpoZcuwRhKeFS+QQWBQKd36YhDqqj/LR9cO
omamXUDGYSl2Gq+6I3GVQr/D9XayowzWb6P2vt0kw0+rHwyssh/ElNnaydHO
g3h5Sffu9+YS8Bb6mqobSjB/Y6xNrKYUc3gLHFJUpFB7mxBRMG0QbXmG/doq
g9jhpksRKkXUuTe5KjxW9y6712yrFOEeR3DWQoql2r2dr8IlCJqb3P1bgAQu
0b78+wulGPfO+8XFBVKk9U164+EmhuqqPvUdzmK0Nly5ENgmhmgsZ3z4BzFo
pKLrRjXRECvkM3Xs5MRIsXT/EKkhhmXVk6sJrf2Ia3HLTmrqx+d/lNaseiqC
1dz6crvnInRd8NWP9OsfosGtEbcyLw8goD+m1fL8AC7sibIXG/WCFLqH3FzQ
i9VXlX8pbBdBOn9h7KQeEYwrdfosBvtBpqULjo8VQVPtWyfnn/qwZdPRqq1a
fVDR0gmyqu5HUZzbgrqcfmzUXankIOyA+8/fVV8v6AB5YROvHdo1RL2y/f6H
tvUg/Yji6Sn6PeD8Z/yXw/XUsFs89f2nIXo+snUOu9ozRJT5KioqdgyRfNF9
5fD9A240n7Q3Fw7R5Mu6rxyef8RK/gaR0/shDs83/HycL7qvZA6k2E40b/5T
0mH8I2/TEP/QPR/i8PjwfPSLjv6J/ut754Z5T+f+j/jwfJy/GP9v/fD4X+mV
RBWQ13yC9G+VDt8xuYPZEZU/tO1cVPCV/wKEKuY3
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          PointBox[CompressedData["
1:eJylUgdQlFkSfk8EXQmCiAISdhBREUeCDiboRpSw66AsScwChlOJA4KCCwq4
gAmUlWCAVSSsCQMIRxZcWCOCCOuigEjYQuCGOAzMzP1XJV4VV1de1b2qv77q
191/9/d9j+Xm/cPuSYSQROb7Fxo49Q9KrCg+bjf2MX5BsZRlXpv+PcULW02c
I+IoulTyfp19nGIv5x7LoJuiVkSy1E4VioOKqUXd5ykWdx6/1MbkWSe0E3t1
J6HAJczxVAtBgzuGsrVIUanglQr7N4KbPvCgQJNittE0urOboJPLjHs9Jyn6
J0itQjWKrjZaO/TyKV7jnMqwNaBYc7xveW8BxR8GlFOj0wkeOv9TehiXYsrV
KAuj6RQ3+9/RNiqhWLSf9bxDm+AVqbJ50WUEt0Zpx8trU1zMEexfnEnRpvQb
D3c/ghKHG22h85l5K3882+lDUSZ+V6XqQ4aXgFN4rJ3gWfubdlGpFF/sz8g0
ExIMl5TbSB+mqLBCaqtOHsHniZ625YcozpOenaE0TPDP0rVDJdEUCc9OuqeJ
YJm21HbV5YwupusSJMweM2QqLskzujZ2nZBPryQYM1k9acCS4uiGlnA/GYqS
1DPddoy+cupJFVPeEvyOHXfAldE9zSyEfbSW4MN3T9KDmLglpbA3Vp+iyR9g
KsqiaH8xu/veLYKOy2q2r2kmGFIV2SNRonhFx03QGkpxr7j5vXMBQd1ybdl9
jK4JaXtKpjH8TI9aKBrYUhwRxvDynxCsCy+VKnOlmH+aZfitCcMj/+pIxVHm
PyrOodNvE2zQkZVIZjC+1PqW8tsIKp9WCHq8g6JDqINZ2mVm3/yjGi9mU5y1
6Sm5f4pgrM6SZM8OgsLoG3P6Axj+vMyDUZ0Eja1NmnwYPW728aCI8WVZ9duI
pgiC83Tlp/RXEEzKvXLaeT7BxgbVh5puBP11A6b4dBF8fMfdb3QBxT0srU4/
Zv9I62TDV4EUkw0tS84zehJj5XRNPkF5b/8QhyCCege/VWy5SLDpcObPR/YR
PDZdT+YaEz+qlrt2cRNB62s3vR6fIXiut+h4gifB/mL3R6YMD9UzCuuftRL0
mfJ6paMWRXMndlT+OoK+Rf6sphCCHiqcFTp2BDkDy4Ujocw7i2hODGT6pHKD
pVk5BLtGhGxhHMHec17nAn8nmHlU1TJckeLlhRn13isorpqjZTr1HcGVz8wh
lEMxSk+Nu9qMYJt/8uI6d4LbFu0RRiwheKR62oKhtQS9/sHlKxwgWOwxL/4B
44P3yVOKeRbM+5p1sMCO4eHfrbqUyyb4k8qUHenrGb1POGk+SGD88tpcX828
C/vGEwb69gSXBKY18hwYX5SqDt+wJXjCCDRUeczeiW9G+gMkcMX98mXRRwko
PZKz0LUieLdRbGqVRfB+Q7FSbiRBt79mZphnEkyRLflm6mKC9VPPzjrI6CJn
OaswluFvPfWk0/oUgq8HAnZrrSG4tFUrp2YDwbXhapN9WyRgJ1BQ81Um2Hzg
gtXuOAmESymqR76UQP+kTy73R0QgTFCsitYTQ2a2I/euN8GR8gv3HAMJ5pm3
6T7MFoPcR7/hQBkJgPk+Y0clgu5pc7znahLsuNq+plSF8WHqrAinRQS5NepL
IF0MikUbMzTyxKBw3IU9J0MCz84UVTe8l4CtiU3PslUS4Lq9y9XiSiD6khm3
CyQQYbKVs5GJy/elq7ffEsGCItktO3tEUHV/deevVSI4E+Bgfv61CLI2LvjO
bZ4YVkrtOXd+jhievLFtDosRwaKQxc+rfxGB1UVXzyhjMYh/zpb+3VkMQ2eL
3esFY5BnMXO/xwwRrNC96pPYMwaZgzODgnrHoH7+R+t1GSKolpGyMSsXgZ3/
ornpWaNgu3XjZPc7o3DjUuiPW9hjcF3z0IZ+tTH4yDb8LdR8DPQiKuJOh4zB
aZaHVXGuENTNPWz6rwvBr7AxaemPQogVsK0jTwrh/SmXghcvRuFQUlmX57NR
2P4qbJ/MTgHcEo/FFuYIIJDlnxPy5zCI7ZONWj4Mw7K9A+qvnwqAV6dp390q
AOuWV7fmcgWgq8/5tDlIAElq8UGx3gLgzNiSsipKACWJro8adg1ClFPkNAuf
QZD+40GA5u0huPLXWtnyX4agXZHV/XZ4EA5bZBU/EA7Cy825CwYLBuBtmGb8
cNEA3DnmRNclDUGKsOau8f0hyKp3FVQuHYBgU0+/XWEDQJ/8fbrwCR8y3DXW
FUj3gWJvsbehNh/48q3cW5v5cHDhEXu93D5oT50eHFbTBy9dmi7UWX4CR/km
s8rVn6BZOaZsr3M/fP/m+oiveT8sXBHfdS24BxY2JxsOe/VA8UOjuGgeH/J2
Pnow7MqHZq+UnLwUPshplBnsus6H6qecQsfmHtDndmh6VvTA7qpu99t1XfDh
7lh2R2AXsGLAObCgDfSe/q0gZlUbiA+nbFRe2/oF+an6t7kbOiCnU0sxeHLH
5/vaL0gts12GtrV/QcnnvnEkn+/HUZwRyLvc3vkFRXUbLsyPfv8FR9lSwTr5
rdDw2GRSmu5HEI3X/Zf6ifMm5sd5tGr49jXG/GeeTDiSz7zGcVt9fFpl9pLS
cZxY/7UzUa+J+L/V/9uP/3f+1+on8jfWl3fj1BqWjuPX+v8Jq4r7bQ==
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]], 
          PointBox[CompressedData["
1:eJylk3k01mkbx69HCRmTFiEV5Ug01hreFNedJU+Tbciass5DGKIhz0i2RllL
ZetFM0SSMlGjPZMspRfRQlrIUpYi62N5fr/5vfNG5+h9/3rvc37nc859X/d1
fa/vff1WufpZ/iAAAP9kvn8zg94/EjwBhJOd0R3QC8StvkCHy9B8232upDCL
/Cvn61VqK1lERNEkrkCCRdSfeQnnxAJZeyTR6RgXSNGmBNZKFotsNq4O93wF
5LR06PM7AUBk2BWvTIKADF67M6BcBORjx/HLv/8MZLXWpP7WTCDh5a13E64A
MXoS68StBRItWxwX8YjRUc5rrY4BUldRnyt3kInTPtxpEQxEubUC0Q1Ik0Sm
5kgKkJXflVa+PAqkIK1P+JIxEGPHfdeyDIBcOSE9oMrc/7DRWrIvCciOfEGt
kJtA5n3lpvq2GUive/RqugvIxkIZr7AeIFutkruXVAMZM1tcK1kOxHGNtVNo
PtNX0+7T6eeBwKi3tv5rIGfZ6Y4pt4HsuyHY3ZkDRLwgb771GSCWlrJy3mwg
9UPO5KAukN2jWy19TYEcaPwlSlAHyPnIzCLHi0Ce3JM4FlQMxENVfFH+ZSBR
uGF9DpPnYvYjbr8NkKTONNurvozebGPc5gGk0GqZMccFyBo7rq4zBSSww305
vw+IMzmzxsITiFmVmOgOxg9vlaZA4xdA9qQFbIh4w+zfXytZfwqIgYddgeEB
IP6L2exRTSAVWlyOAqOn9MFapdJjQOSXvvRFLyBtex10Q42A8BNWcG4pAJkf
7zsitAHIgIj8YDoCsXl8eirpDhB1l9setalAlvvHeS/XB0I4C9lK24EEpc75
uOcwkOBl183kGN8v3RivubQaSIhNab64NJD0hUdO3LEDkuiyWDjSEsjekls1
fGcgd3PM5vozdbf/aulSKQGk67KV3jsBIH3eJRHVykAWqVrXGAgyepu7pGrV
mDyYvytKD4ipm2/SthVAztja5kkBEAXBTZtlFzDz8HWGwx/izPw1OSq0bQGS
L7DMo1QSCNsv2CHiFY3zVCp6BK/TKPXetWaojcZTbuzk8CM0yg5MTYkN07jC
8dmbN9do7E++ovGE6ct/uHXdVRMgERoDxSpM3bMZmjZnljC6F2lURnKAqP0S
9eNh5n3ex/Oycpl5PzVPaL8209fRmh3WMnsZn2xjbtUxfi7NrSjcwaVRJLJK
5IQLjXKPa8o0GJ3ZCT6bb5XQKNPz2PVcHIXd7pWHfdwpDIO2gNw/aYzkhITG
X6LxRf1zmx49GteqrGrw+5ZGhbO4YlwOSO55SnGrEJASJyKYWE6j1tOX8pQ3
jT4hf5jPZ9HoIdBgb9pAYWHl7SU6V2nMkL4fePQks79Ppr9fmcLMGr/BMUkK
ZdTp+Cp/GvX7097l+TKUpxVDxYBo5TnvJCwgtVNzvOKZ/89ae/F5bQsgDf5W
CSHM3GwyO1SWzcy9bNm935R8gCSIzv3pOeNH4k8885+1gdgvOKoZx7wD58Of
6UKMv7pKui35kzSKnkx5e6Wdxok35bu5TP/fvvQ7mcDoDpVUZb/bRqPXfp3n
+QUUbop/fTEjnkIV8+YV/R00ekZL70qvpLH9td+OheIU8sM9fZTf8vE35VWX
FzDvGRxepVBfTaPSU4kD3nk0jksMqF1IpDF7jrKiqzuNwpzHmZyNNDqG7tbL
4fBxAZF4m23ExwsPNjwcC6GwQ9djywYTCpMaGgM+ZFFoFVKdd/AMhe1GgTcy
tSms69G4flyVwsHo6HXVWjTCvEq1y8uYeeGGLUpZw8dOsauN6+T4WP2jrZuW
A4UCYNQUZEChmf/mV9ojfJT3s5B37uRja1PsgzVXGfpLttiV8nGf5zf3M1wo
5J3qEttiSaG4jlmqWgqFXEPf6pgYCi8dtS8On0uhfVze92dZFCZ7kaYx7SlM
tizUGGI4eqz9mW/bFEZ6fvfaew4f+b66hcfX8nGvcFLt40V8lPLQibj3cBIF
Vd77K9ZO4k3dxoaUrnEUi9A0MH43jvtjY/eFC09glIB488K2cbS36r/bJDKJ
vhUqqzVXT+LwRtOApTcncL6hijkrfQLtpZu4y5rHcTjqVrJNHXNfpN8+ad4k
VrlGBoZJTeJ1k4O+7EMTeF+a/WIqYgJlit1bd/rx0OuaVpE3Q8qiKPA0xcPx
haakTmAcO4b2BnGiR1EpMN/OJ2EUl5g6XPjhHQ9f5/6jJKKXh2Dwu+3ortEZ
SlU190ikjCErJzXwbtYYZu208K5THEHjguLOldojaJIY6sleyUPt7nuKDeI8
fPrr4Rb3oH5MTXseEaLfj1/xBO6a3BnF1HOdh26WM/Vahd9Y9Q1hb9vwyxe9
Q+jhJNsitH0Iy9xkrNO+H0Kv5SE3NukNo3rJ6CPpucOYvp4btu2bblw3FB0o
LNjN+GThHHduYIYPiuxkhFo+4B7XYxoVfR8Q/l4DM8wy7LCPtRmcIaXVz1ve
1TdD/izOPtd7GCwqKtqLKeUtcSJuvRhW3J5gZfhxhrPrsf72rWuG+On+NGef
T+ffPSjgVLC+94t4+BQ3Tf4T8xTFmFczpLmnLRYbts+QmsXZ8TBr/SeuEac5
Wx/9af9/cbpOnkVIjENR+xf5/99lfC9W/Ia/etk0/3v/n/XI5WdbmhSrl01T
U1nMVavxM3eF6b49cvYzi8J6jcKfPcHc29davPOzvsj3F9lQSSc=
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]], 
          PointBox[CompressedData["
1:eJx1Ugs0lGsX/r6JDnIryuVXknsUya3U2a+GSiUkkkui2zk5kS4InXSSlKJ0
RClEhxTJpVySQRK5VW65jzH6xzByDTPffPPPv9bJ/69z1tlrvetZ77ufvdd+
nv2qefvtOULBMCxOeP6Lieqp93tdBECODaWKS+HILOxVwlOmAF7qXQsIZGDI
sbtVKSRJAItnzMpGAnE0dZWt5q0ogMKhcwGjOI7kqITzeQUMHVMjCpMDcBSk
VdxVLyWA2k7zIM9LOLrlcnqs5KQALOkWXYO/46jSz7jAKZsEeZGCguAaHKmX
Lx97HCCAj2IWfQ0JONKsJl61DJLgZXMnPFUZRyfVho0+LxVAnnvV6A4HHCU/
5sb5mpLwuiPbXusVhjQfsd3qPIX11OoNR7biaMiSsWlyggTjINdvb8owJOo0
0F7eIwAVb5GFSkwc2Rs7Qc0qDFU73Yv3OYSjVA9DncIuAXy5Y1+3fDWOKB1P
aJpzAuDor0PBz3BURImM7qsmYaA7sitZyG8oNihdcEoAO7pVX67eg6OosJy8
PJKAo+0S9T16GPJwKkChxSSQPNdB6Xc4WsMIXz5bT0K+0/5GhiOOZIrI8f4q
EvbRjZiW2RjSDWJ6r1IQwL1A/72zqjiSOO3XePs5Cb+MGUWkDGPIq2Sldlas
UO/nyRmOH4Y+/lASm2DDB9H+yx6VSjj6+JvSpgJPEjoVx7VimRii9siuDtUQ
wK8eCz54dGNIyUU1X86KhDVHyzapvcYQRXdsISuQhD94g35PpHGU6L+XFtrM
B4/YgEluHIZMBNIvfG1JGDeShrgCDGXXG66q4PDhzI8JdEY6hgJrzsSoPiTB
R5UUP0QKfWysbayg8kHZdWUhnyOAnw3NXaQYfOAF9n0+ex1Dfektqwk3Al7s
P5spr4ihHKmZUIqO0I+CNr2dV4X6jlmSE1l82GtDrpQIwZBBpahGPUFA9EzV
e0k1DOWzLPIzg0ngmMlb4x4Y6tFtkwm9RYCqmzT75SwJB8dhXKmFD+PjSas+
ncbQtBzjeJ0xCZdaBy6LRmOot/vtiGAtH4pE1d6FuWLI5mCRZzyLDxKZ5RQV
LyH/BNNOy4UPJxdPqxwS7l37AYUpt40P8q5tBobyAjhQyNJ36OfD+7RYM54/
hkCPUxMmzYfbCQpUmz4BvGd3bhRlEWAyEyWTYosh57GGOLKNDzul/n2eehND
ab/q/GjwTugvz3BXuDSGEkwe5GQ7COfJtB/eIC2Ap0abmzdsIqDj3WmHJF+h
Lx0X0g9tIEA011nekEvC8pgDvbsbCTjoenhpfQYfTNeFd5YK/1e8r9f9nVcw
pDxDi+7RJGBEIiPfNEDoe/KiuqN7CVicST0Wy+VD5bH4496VBNwOSa/e6S+A
FbnnS3P9eLAke5chR4yEpsQEhccRfEj5uky67ygJC38KqmXxuLDFbZP8+a8E
KGVlod0pPGiYfV0WHk1CzK22Nfo6BGxsG9LPeCTUUUWtDCS40G72osJbOP8i
36zXJ8t5ENWYZG0rQQKzq6Or1pYLSsGKFVZlPBhZGyxK28mFXapkjfYhHiys
7Puho4MHFE5khwibD3UXO8hn/bNwZcWr28/WcaEs8sLwknQe0KUlYhIXEFB3
NqqS08uFff12WzxPEeB469NUbsYc1KiIZpY95IHIIvUFN1vnoD1jfa67UGfw
VQ08/fMc6Imw2YriXLiYLO54ymQGlpasaP70fg6SLp50pLtxQUKyh2rUzoOb
wwFXGBJcWEhvMa6o4EFtzttP1fKzoO3j4/dKbBZyao3MN6bMguVxyeMcCg8+
r+W72a+fhTd2esZOYbMgvrKtJLJ/CnIt4640CKbBJ9FKa33/N6gbjrDNE9YV
M1XO3Lg+BiLEpcuY9QSsbtt+7HnfFOg/+qMuxnkaWDIfHunoToGHu6TidPYU
bN8YdPt27CQEe21yostOQR+60SJFHQPV5AUPhqy+woEvKhHxG6dg/0eWRrrm
NIznN0WXD03CWGmpaS1nEhx9RlMWOXNAbJtW+sCZcZjcGLDLhxiBJRREXdrx
FcJ/yWodpY2BBd08eZ3pOFRoPDiV9noYrCbuurltnYCm6//asq9iEILCmlWd
qF/g9LV2rvbaEbBOk51JXzkOTR+fzU38OgnJ1yQuaVlNwtbuyzrvO9mg27g7
A4TI27y5xOwgGxLVH5euSGODS08oRVbYv1AyZkg5fAhKRuqCWtPZ8D6Eq4ES
R0A/R0th9xM6KHeKSSq7M8DcGZ3YKsqE9NgCvQ31TLgTGyzV2NULVfq31iyg
9IEGNmctEVFD87YJamNZvaW1q6AgKcdhwB1Yz9icEZiqLx5dLkMDA8naI3ZF
jaD6LqRgIdYNOyjuW1LbumG/wWFz3ZXV4NnTHpsY2wQ3TBef7wYGjJbwzJqP
94OX+Q6WklcqeBtqqFyw+wTTUiomk97dQF3D/PQ8oxPozzNSvsUblN9orl52
Km6W5niiWX2bHxP2jhvfFZNjAr/V7o721d55xP6M7RY37+VEvAH7wZuPjB/0
wkDCb5rX+f/L/zX0Yt8ueetXBCyV9KyHtD54mmHTb1VIBw85RwUzRwYslzt3
mLmHDeS5ZHs5qwHIq0rNy8wdAO2uspDANwyQ7OCWLKtk/Jlvnsfv/bN2uDaJ
G0fOz1l/ooYTdrd3nqfh7UKb+j++6GIpBu9KGIw02Pwkg1rg88P+3y14zf+o
92CUSFLP+jXz9ypCOg1s4yE4nhesjn8ED3WJM4Ri4z/qd9DV9+feOgdSg1pL
Q+qiSte71DrYuOTNz/ckIYG13rrlb/U9Hy79fF24HxMrDXeLeD7t+3ttVOgh
70Z8vh9duhGv8039W/22qmuyr/wNy79j2gH5I8dc6DSTS7LF9xe10v7K/w+/
QmXT
           "]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0.85, 0.35, 0.85]], 
          PointBox[CompressedData["
1:eJyFU3k01esaFgkdKUNFZSxlaKKicD0NZirDydSgVMYGNCAdOXVKhgwJd3cL
0eRUKNFJ2FuGVHJDGg3ZYYuEvffv+/12cl33D+5ate66z1rfeta3nvf53nc9
33o1vQ867xUXExNLGjv/YacSaSe5agoCv0PzViRQeCBr5FtmR5AUccKrzoZG
ZgZTtzSCYGQkPKVgAw0nOV5NyB6CXbMD6PmWBHr/dOW6EAZl11RGpngwaP2W
naEfzGCdt084W16EFX8+b/qti0b1EYsHPFcaWuH23VlPaLAzv6fnnqYxTPuq
CppoPPjlTJKmM4FyvbdvpB+BWsWiUXtlAsNUFUut+QzsX8s21G2k0eU72f+s
tBDtrku4ldcpeFkteRk7RJAX533EUkSgNain2HFbBBmNqH1TpUQ46n0hx1FC
hKDez8K/ODRm/41rNfiCQt31X4OWK1BIuJjcomtCUFnbqHgmncKOlSqDq4YJ
7DqePG/tpHFF7fCJv4JpGLxfX/vNnCA0Lab06CQa7g5rHAIVCOSFkm1UB8Hi
+8IZz5OF0K0ttlTIoSC9P3xvdTGFqPMzenpkabgFmmSFWRNIsTw9q3VpuOxo
ntOXQuC+0qH2sCaDCN/+M1l3CDY6POsoO0Qjq2XRLNl3BM46+lPM4xnoKy0k
f5QTVFRRHvO7x3KUKlTbtJDgyoGc7HoRhWWsMIVYTQp6hoUSo2N9vG99/qLM
Ishac83T8hoDZYnXJYOfGDhqX2WpPRLh1IzsGkV3Bj3u2cdk2wj+flc4rYVN
cJlKPtgVx8A8Wke9P5PAbw7LJiaRwbKvmoam/gQ+dyKLuTI0Qloutywfq18w
4OEemCpEq0GDTEunAF4eAxL5b0TQmbXVbosZjcNnMozEFwsgJX02XTVEgKUn
b4TczxAhbEe7LjuMxkjClOQQOYKEuWplFp4EOgnFRSa5DC7blMv8mkbjXVqW
7xcNAvPFwtOS34X4lO4176E+hVKRw30PCyF8jcm86qc0zJqt3PLvErB2d4Fr
zsDGNahF7zWN1OOb1li9JbgUapOdrE0hLtqxnFcrhLxGn9TcgwI8pg63P45i
EHn7M/tcIoFXTUHckAqNjtOz9z6UIpCtPPfsVjcDz7hnpqnLGXT29B2aN7Yn
kCw+avVRgDcqzq7WVQRRt3nbqFAhurNmHrjXRuGp/Nthqc0CNHcbnxyYTsOj
MI87w4Cgaque5OuUb5Dm1iorKtPwltlRLnuPRsAlw7VuD4XQOHLWMDScwsUc
rSfx64RYVNJcwHBEwHYXlrs6wSnPU9JPrRn0hWqo8S4StNQ0zzI6T2G+snO3
xSMhInIyiNsHBke9blTozCIoqd13y4lDgaWsXbdoRIjghaEBwnoa/R7mbul6
FPal+1kPbB2G0SXtP01MGTSesEqeGkTDsrq17EbK2H61JV4i5iLMRfRWn/cU
+k4mJYhSRRh9bcpTkaeQImhXnfSc4PTZuUXHlQUo7h8tT6NpRMTeCe0IJdiT
mtQ2J1EA3Z2r6/xM+YhOPrm+RImBumLJsMp0CtkdblIIo2CxSm8401aIKd/3
XVijRlD/JCQ15qoQTJnqgRpbCkpfX+VpX+bDujaQJWbEwLbToGcbTaHpaOyT
e6NCpAcY16zN5yO2YdeWacl8pNSNZIo0+Ogz003T3y1A+4eYThWZQSS+dI+/
XtQPQdVa8WPt/Xgw6rfyUasAs9//rmS4k48jCwK2xLnwMfWKlcPij1/hTKcn
5o7lNOmlnF3VYz4qo50uC+2FYK2XVJF7x0fUTq8E/kUBSBHToGA/hOOR6kle
6/mwPT99ldLGQcy5t+qtS+IQXrUaNdFPv6BHQbWhIrAT27eLvqWqvUOBnEmI
v84nrOittNjA+wTDqy9WmN3sR/extOad+b24a1G3xcV0EDOVhha07egFL3ZO
baHTAHQCDDa7N3YhTcs17U1uPxIP70+bfvwzoqOeruZeH4Cj68swlPTCJvHm
+bCtPIjf4um/ndQJG6+5jmYDPbhJN+WLhXXCftsbM8Xr/SDGuzw9SQ++/+F1
OcaHizuL73nna3Ug4x5rf38+D/8YeCIoMurAucli5/awKuFgIDr0ezAHmTec
w5dyqqD4xbxS7VkXsgslbZar8dCfeaHxpSoPWv5TfPwu9iA8UDj5aGYnbieb
KCzs7cRd24GKDeofkJSTpWRj2g25EbPP88W4CM98ES37tBFN6t0Zq3azsTv0
RvDmD3z2aCN3V3sVnw31+JmbvtUg72tD7yOVXPwrPNNR0aIJnHzF3yIPf8S0
roUzI57Hlc56tcfyO68adf46EbHKXTDJerP/3YYKuLUp+4zu6mWLRZ0ZPqXY
x17duzd6auAnxK/MCrL0eo9fbJz6mpOa2BIhNV4+w/99z8XdqcAvb8tEv9+4
Bzq/2jZN3MdZ+xKfK1EQg7Mzbe8W1lVC7Af0dptFUlnLOEGldueXsmdwftT/
H4w/eF7jpbVhWFBoufhZO6JiVxbVr/0Ev9Jt9a+ufPxpnh/9P+rjLJPaZDzP
4ef6cXD920qdWHk/+cbz8Q5PlmjTt5nw3+ytfvt+e+qEvnJbs4/ut4oJfYU0
3RdspQDv+F2vi3eLcVrKfP1OLRlhj+viEeJ3Dqwr+p/zjEM+ebXURV8xjmY5
21rNbjpn4v+vqi5jcgsQuKlkR1XAEHta8IaGDq0XbM72oS6pW8s44/xvR8VV
hA==
           "]]}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}, {{
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 1, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0]]}, {
          Directive[
           PointSize[0.0055000000000000005`], 
           AbsoluteThickness[1.6], 
           RGBColor[
           0.85, 0.35, 
            0.85]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       1, Axes -> {False, False}, AxesLabel -> {None, None}, 
       AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
       Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
          FormBox["\"Log[10,Information Capacity[X1,X2]]\"", TraditionalForm],
           None}, {
          FormBox["\"Log[10,Information Capacity[X1,X4]]\"", TraditionalForm],
           None}}, FrameStyle -> {
         Directive[Bold, 15], 
         Directive[Bold, 15]}, 
       FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
       GridLines -> {None, None}, GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotLabel -> FormBox[
         StyleBox["\" \"", "Arial", Bold, 20, StripOnInput -> False], 
         TraditionalForm], PlotRange -> {{-1, 3}, {-1, 3}}, PlotRangeClipping -> 
       True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}],FormBox[
      FormBox[
       TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
        "SwatchLegend", DisplayFunction -> (FormBox[
          FrameBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  StyleBox[
                  "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                   Automatic, StripOnInput -> False]}, {
                  TagBox[
                   GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.35, 0.85]]}, ImageSize -> {10, 10}, 
                    ImagePadding -> All, PlotRangePadding -> None, 
                    AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                    "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
                AutoDelete -> False, 
                GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False], RoundingRadius -> 5, StripOnInput -> False], 
          TraditionalForm]& ), 
        InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.35, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.23333333333333334`, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.35`", ",", "0.85`"}], "]"}], 
                    NumberMarks -> False]], Appearance -> None, 
                   BaseStyle -> {}, BaselinePosition -> Baseline, 
                   DefaultBaseStyle -> {}, ButtonFunction :> 
                   With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.85, 0.35, 0.85]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0.85, 0.35, 0.85], Editable -> False, Selectable -> 
                  False]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
             RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", "}"}]}], ",", 
             RowBox[{"LegendFunction", "\[Rule]", 
               RowBox[{"(", 
                 RowBox[{
                   FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False],
                    "&"}], ")"}]}], ",", 
             RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
             RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
             RowBox[{"LegendMarkers", "\[Rule]", 
               GraphicsBox[{
                 EdgeForm[
                  GrayLevel[0]], 
                 Opacity[1], 
                 RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
       TraditionalForm], TraditionalForm]},
    "Legended",
    DisplayFunction->(GridBox[{{
        TagBox[
         ItemBox[
          PaneBox[
           TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
           BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
         "SkipImageSizeLevel"], 
        ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
      GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, GridBoxItemSize -> Automatic, 
      BaselinePosition -> {1, 1}]& ),
    Editable->True,
    InterpretationFunction->(RowBox[{"Legended", "[", 
       RowBox[{#, ",", 
         RowBox[{"Placed", "[", 
           RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}], "}"}]], "Output",
 CellChangeTimes->{{3.772169885059484*^9, 3.772169900093421*^9}, 
   3.7721699775755367`*^9, 3.7721701185811143`*^9, 3.7721702882173615`*^9, 
   3.77217064855888*^9, {3.77217177378767*^9, 3.772171815021678*^9}, 
   3.772171903010309*^9, 3.7721719885573015`*^9, 3.77217237043204*^9, {
   3.7721724258584795`*^9, 3.7721724447863245`*^9}, 
   3.7723515054679585`*^9},ExpressionUUID->"500b5ec9-1e1f-4d07-b73f-\
6fd8624f1a3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AM1", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM1X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM1X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM2", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM2X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM2X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM22", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM22X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM22X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM3", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM3X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM3X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM4", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM4X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"MIM4X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7721724906163864`*^9, 3.7721725117628994`*^9}, {
  3.7721725624529057`*^9, 3.772172659185978*^9}, {3.772172860329299*^9, 
  3.772172873173648*^9}},ExpressionUUID->"1ec4761b-6968-4c61-8431-\
abfbb0c7d052"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,611,95,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172873597647*^9},ExpressionUUID->"17bf08ed-844c-4f2e-b3cb-\
a0369929f992"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,611,96,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172873620656*^9},ExpressionUUID->"94f06461-8bd4-4fea-9e7a-\
e5cee8fc405e"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,611,97,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728736366477`*^9},ExpressionUUID->"3b05a351-13f2-4c85-9418-\
7170375262d7"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,611,98,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172873650647*^9},ExpressionUUID->"c2b1ca70-664a-4520-bdcb-\
cd3f89068af2"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,611,99,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728736656704`*^9},ExpressionUUID->"ac6d4f4f-b3c0-409f-8c73-\
ff1102e3e026"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,611,100,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172873680647*^9},ExpressionUUID->"5ba31bf1-dcaa-4f02-812a-\
2c181a6fa85d"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,611,101,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728736946473`*^9},ExpressionUUID->"92ea4009-c97a-428b-b238-\
220ca6f58a3d"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,611,102,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728737096486`*^9},ExpressionUUID->"3a76c6fd-b5fc-4899-9bb8-\
f163c493e091"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,612,103,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728737246475`*^9},ExpressionUUID->"987fbd62-0e6a-43f8-bafa-\
e413e38282f9"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,612,104,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728737386475`*^9},ExpressionUUID->"07817304-dcb5-4c19-9bf0-\
096dc77b7340"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,612,105,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728737546473`*^9},ExpressionUUID->"10964558-f3c6-41cf-9c95-\
9f42c7c8458f"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,612,106,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172873768648*^9},ExpressionUUID->"58785ba1-1b70-4c02-8296-\
c1a152dd9f52"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,612,107,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728737836466`*^9},ExpressionUUID->"5257f1a4-a8ed-4a11-9bc2-\
995b2f461eed"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,612,108,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728737966475`*^9},ExpressionUUID->"37bf6e4b-be39-4412-9a91-\
d43b33183ab4"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,612,109,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728738116474`*^9},ExpressionUUID->"0c1d2e57-5d85-40c5-ba04-\
0348702f0038"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,612,110,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728738256474`*^9},ExpressionUUID->"3c3e298c-f53d-4edb-b43f-\
b90e2a34c09b"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,613,111,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728738396473`*^9},ExpressionUUID->"72561916-a64e-406e-b465-\
b0f338cbf012"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,613,112,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728738546467`*^9},ExpressionUUID->"104bffcf-fbda-47c4-a4de-\
1612e6f151ea"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,613,113,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728738686476`*^9},ExpressionUUID->"c73827d2-7785-46b6-bdb1-\
bcd2d7b21a92"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,613,114,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728738826475`*^9},ExpressionUUID->"1e4baa08-8296-435f-866a-\
017b1ea9658a"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,613,115,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728738946466`*^9},ExpressionUUID->"89bcd579-8cd2-465b-be6a-\
8d0c7c3b8924"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,613,116,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172873908647*^9},ExpressionUUID->"d0fede10-bd8a-48d1-8f8a-\
7d529d7f0aa0"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,613,117,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728739226494`*^9},ExpressionUUID->"e5245d81-65ce-42b4-9b33-\
a1aecac637af"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,613,118,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728739366465`*^9},ExpressionUUID->"4d99ff1a-c31a-4671-8f30-\
b42c4a8b3ccd"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,614,119,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728739516745`*^9},ExpressionUUID->"71e44493-0210-4130-bfb9-\
3c562ba9b81b"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,614,120,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172873966647*^9},ExpressionUUID->"0351944a-62af-40a7-9a03-\
140f426ffd0d"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,614,121,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172873980647*^9},ExpressionUUID->"3a2eabb7-b8d5-435a-98a8-\
c73f63ced9ce"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,614,122,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728739956465`*^9},ExpressionUUID->"bd089d21-29c2-4052-a49a-\
6e20af2e4f01"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,614,123,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172874010648*^9},ExpressionUUID->"6da337ab-25be-4ba1-8d25-\
fff293bd3fce"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,614,124,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728740246468`*^9},ExpressionUUID->"a6ab6361-bae7-4115-bfbe-\
84114a21eef2"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,614,125,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728740376472`*^9},ExpressionUUID->"aea41ec6-5dad-4c06-b275-\
8a6c2343f3c1"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,614,126,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172874050647*^9},ExpressionUUID->"038e61f3-6088-4027-b356-\
71e682bed050"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,615,127,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7721728740646467`*^9},ExpressionUUID->"45268307-8ade-4be5-84ec-\
621ce82271b8"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,615,128,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172874079647*^9},ExpressionUUID->"23b03606-a3ee-485b-b41d-\
ae93502beab2"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,615,129,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172874094648*^9},ExpressionUUID->"bdac5c26-1eac-48ea-800c-\
9e0b310b002b"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,615,130,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172874107648*^9},ExpressionUUID->"a12477e1-df1f-454a-a0f9-\
6d870a43a5f8"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,615,131,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172874121649*^9},ExpressionUUID->"1735baa2-b366-4ac3-8ee2-\
a341ef25e54e"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,615,132,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.772172874136647*^9},ExpressionUUID->"a33c8b90-769c-4d00-8ce5-\
6d003e4b7e9c"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M22C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M4C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TTT", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "AM1", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ATT", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"AM1", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM2", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM22", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM3", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM4", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"TTT", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"TTT", ",", 
        RowBox[{"Position", "[", 
         RowBox[{"ATT", ",", 
          RowBox[{"Max", "[", "ATT", "]"}]}], "]"}]}], "]"}]}]}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TTT", "=", 
   RowBox[{"Flatten", "[", "TTT", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7721726786139393`*^9, 3.7721728164982986`*^9}, {
  3.772172896131706*^9, 
  3.772172911009983*^9}},ExpressionUUID->"e6cbf566-e2c4-41f5-ae90-\
7f6189f45569"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PerT", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"100.", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Dimensions", "[", 
        RowBox[{"Position", "[", 
         RowBox[{"TTT", ",", "i"}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "/", 
      RowBox[{"Length", "[", "TTT", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7721728217832985`*^9, 3.772172822450334*^9}, {
  3.7721729147240005`*^9, 
  3.7721729690422173`*^9}},ExpressionUUID->"b302336a-a967-40fa-81df-\
3a422c8c8503"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "15.909090909090908`", ",", "13.636363636363635`", ",", 
   "15.909090909090908`", ",", "13.636363636363635`", ",", 
   "40.909090909090914`"}], "}"}]], "Output",
 CellChangeTimes->{3.772172822876299*^9, 3.772172889375693*^9, 
  3.7721729701191964`*^9},ExpressionUUID->"9130c1e3-1dbd-49aa-8854-\
d29594b2511d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AM1", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM1X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", 
      RowBox[{"MIM1X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM2", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM2X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", 
      RowBox[{"MIM2X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM22", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM22X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", 
      RowBox[{"MIM22X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM3", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM3X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", 
      RowBox[{"MIM3X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AM4", "=", 
   RowBox[{"Re", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MIM4X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", 
      RowBox[{"MIM4X5", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"Indeterminate", "\[Rule]", "1"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7721724906163864`*^9, 3.7721725117628994`*^9}, {
  3.7721725624529057`*^9, 3.772172659185978*^9}, {3.772172860329299*^9, 
  3.772172873173648*^9}, {3.772172993302205*^9, 
  3.7721730052207794`*^9}},ExpressionUUID->"2ee97b99-411c-4a18-bc65-\
5d2ad522efb0"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,634,133,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.77217300573378*^9},ExpressionUUID->"bf8a0d39-dbef-4774-9331-2f60e7bacafc"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,634,134,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730057537804`*^9},ExpressionUUID->"2cec9cdf-3891-4b9d-808e-\
0437a06db157"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,634,135,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730057687793`*^9},ExpressionUUID->"171abf20-2fdb-4bbb-9e37-\
7582725116fe"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,634,136,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730057827797`*^9},ExpressionUUID->"36aacc69-9aa4-473a-b3e0-\
169e4dc449b7"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,634,137,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730057957797`*^9},ExpressionUUID->"c0f2e197-b9c9-4042-9bad-\
c65702dcb54e"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,634,138,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730058097796`*^9},ExpressionUUID->"511a6e16-c605-4b19-a1a3-\
f66c45611d94"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,634,139,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730058227797`*^9},ExpressionUUID->"70ace39c-c622-4865-a8f4-\
fd0b976bf26a"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,634,140,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.77217300583678*^9},ExpressionUUID->"2f71b4a3-f03d-40a4-913f-997681305d7b"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,635,141,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730058497796`*^9},ExpressionUUID->"37b30a4e-a7e4-44b5-b5e2-\
dfb66235582f"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,635,142,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.77217300586578*^9},ExpressionUUID->"edd719ef-72ad-4b68-958b-6afad9dfa259"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,635,143,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730058807793`*^9},ExpressionUUID->"08cc2ac9-712d-4aaf-875d-\
aadbd7e78d56"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,635,144,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.772173005896779*^9},ExpressionUUID->"0c7e9926-2ff8-42b3-877a-\
fcfd5e66c0e0"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,635,145,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730059097786`*^9},ExpressionUUID->"02f5f8ee-da74-4eca-91af-\
1a548a027eb3"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,635,146,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.77217300592478*^9},ExpressionUUID->"46dcc6bd-da44-4526-ac37-866ae2fbe89f"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,635,147,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.772173005939788*^9},ExpressionUUID->"e92132c8-e34b-4881-b588-\
6b733f6c28a5"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,635,148,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730059537797`*^9},ExpressionUUID->"9f12d18a-c51b-401d-b8da-\
c3d82924e9e3"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,636,149,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.772173005964779*^9},ExpressionUUID->"2b3e313e-6a7a-4f9d-b163-\
bd2352aa7b26"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,636,150,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730059777803`*^9},ExpressionUUID->"9b5fca74-e3ba-4ab3-bd97-\
33c5847c5ca9"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,636,151,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730059927797`*^9},ExpressionUUID->"c35467c3-28a2-4a9c-9a06-\
541f72630de9"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,636,152,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.77217300600778*^9},ExpressionUUID->"ac55e43e-4110-465a-b92e-8a4267fce3a9"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,636,153,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730060217795`*^9},ExpressionUUID->"71d25463-55de-4622-b2a7-\
51179bdb7f1b"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,636,154,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730060367794`*^9},ExpressionUUID->"18ab2232-6b99-4302-8e07-\
6223038e9020"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,636,155,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730060507793`*^9},ExpressionUUID->"321e2003-a997-4995-88b9-\
2d3b37f3bb63"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,636,156,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730060657797`*^9},ExpressionUUID->"0876977f-3540-4235-9e88-\
d29dfaa5468f"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,637,157,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730060787797`*^9},ExpressionUUID->"ddaab85b-88e0-47af-b52d-\
477b0219c8fa"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,637,158,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.772173006093779*^9},ExpressionUUID->"4de12a06-4818-41a1-beb8-\
010d567a5560"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,637,159,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730061077795`*^9},ExpressionUUID->"5f93867c-7210-473f-9392-\
f50378565644"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,637,160,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730061237793`*^9},ExpressionUUID->"e84fb07d-5aa9-4ba5-8a18-\
818cbd9277cf"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0.`\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,637,161,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.77217300613778*^9},ExpressionUUID->"f2003b97-bfc3-4e0f-9510-b94f9419abbe"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,637,162,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730061507792`*^9},ExpressionUUID->"79371fc5-4e26-443d-a46a-\
0977b381f475"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,637,163,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.77217300616278*^9},ExpressionUUID->"fa42c1c5-d44d-49e4-b6ca-7e6d4bf3dbaf"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,637,164,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730061767797`*^9},ExpressionUUID->"ff77e967-375a-46b6-971c-\
1ae7848f7270"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"",2,638,165,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730061907797`*^9},ExpressionUUID->"984ebdb5-329c-4698-84d2-\
fe9ab858145f"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,638,166,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.77217300620578*^9},ExpressionUUID->"beaba065-86e9-43f7-892f-153137ca1670"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0.`\\\"]\\) \
encountered.\"",2,638,167,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730062187796`*^9},ExpressionUUID->"6b872c11-ec0d-4077-8a28-\
62fd6e59631d"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Power\\\", \\\"::\\\", \
\\\"infy\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,638,168,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.772173006232811*^9},ExpressionUUID->"490ee4f4-3c3a-4c2b-a5d6-\
90f70ac34baf"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\) encountered.\"",2,638,169,31710853900877292889,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730062447796`*^9},ExpressionUUID->"7627fe4a-0d5d-4efa-bcd4-\
0a765b3e73d8"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,638,170,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730062567787`*^9},ExpressionUUID->"416790f9-dcaf-45f4-a167-\
de2ec0fc0905"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"Indeterminate expression \\!\\(\\*RowBox[{\\\"0\\\", \\\" \\\", \
RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \\\"\[Infinity]\\\"}], \\\")\\\"}]}]\\) \
encountered.\"",2,638,171,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.7721730062717795`*^9},ExpressionUUID->"44e27117-72db-4f71-a5a1-\
3be10be30eca"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Infinity\\\", \
\\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,638,172,31710853900877292889,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.772172873597647*^9, 
  3.77217300628578*^9},ExpressionUUID->"578298cb-5f93-42c1-bc71-41cb15d13405"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"M1C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M2C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M22C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M3C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M4C", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TTT", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "AM1", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ATT", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"AM1", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM2", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM22", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM3", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AM4", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"TTT", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"TTT", ",", 
        RowBox[{"Position", "[", 
         RowBox[{"ATT", ",", 
          RowBox[{"Max", "[", "ATT", "]"}]}], "]"}]}], "]"}]}]}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TTT", "=", 
   RowBox[{"Flatten", "[", "TTT", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7721726786139393`*^9, 3.7721728164982986`*^9}, {
  3.772172896131706*^9, 
  3.772172911009983*^9}},ExpressionUUID->"6f9fbfb3-687a-4ad0-a41c-\
60997069155f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PerT", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"100.", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Dimensions", "[", 
        RowBox[{"Position", "[", 
         RowBox[{"TTT", ",", "i"}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "/", 
      RowBox[{"Length", "[", "TTT", "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7721728217832985`*^9, 3.772172822450334*^9}, {
  3.7721729147240005`*^9, 
  3.7721729690422173`*^9}},ExpressionUUID->"b36ceac9-3cc7-4b1f-8c6f-\
9ab45df2a438"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "13.114754098360656`", ",", "15.081967213114755`", ",", 
   "13.77049180327869`", ",", "44.26229508196721`", ",", 
   "13.77049180327869`"}], "}"}]], "Output",
 CellChangeTimes->{3.772172822876299*^9, 3.772172889375693*^9, 
  3.7721729701191964`*^9, 
  3.7721730082257805`*^9},ExpressionUUID->"865df4ff-688f-440f-816d-\
080506db5463"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting Protein Cost", "Subsection",
 CellChangeTimes->{{3.762757596276196*^9, 3.762757610886022*^9}, {
  3.7717390165960236`*^9, 3.7717390561950235`*^9}, {3.7717441358872986`*^9, 
  3.7717441377439933`*^9}, {3.7717550341040754`*^9, 3.771755042491076*^9}, {
  3.771905275104765*^9, 3.7719052782248898`*^9}, {3.7719072537923517`*^9, 
  3.771907255712274*^9}, {3.7719260830105343`*^9, 3.7719260918105755`*^9}, {
  3.7719276142693405`*^9, 3.771927616239664*^9}, {3.77192850678555*^9, 
  3.7719285095352736`*^9}, {3.772163205528574*^9, 3.772163210120576*^9}, {
  3.7725372942080593`*^9, 
  3.7725372961604133`*^9}},ExpressionUUID->"8a6554d7-db69-4dba-a22b-\
7884768e1245"],

Cell[BoxData[
 RowBox[{
  RowBox[{"WS", "=", "250"}], ";"}]], "Input",
 CellChangeTimes->{3.771743697138438*^9, 
  3.7717438210269485`*^9},ExpressionUUID->"3e53d588-51c1-4054-95b2-\
7b76248b1cac"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PTM1", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x1t", "+", "x2t", "+", "x3t", "+", "x4t"}], ",", "v1"}], 
        "}"}], "/.", "ParValsC1M1"}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x1t", "+", "x2t", "+", "x3t", "+", "x4t"}], ",", "v1"}], 
        "}"}], "/.", "ParValsC2M1"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TPTM1", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"v1", ",", 
         RowBox[{"x1t", "+", "x2t", "+", "x3t", "+", "x4t"}]}], "}"}], "/.", 
       "ParValsC1M1"}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"v1", ",", 
         RowBox[{"x1t", "+", "x2t", "+", "x3t", "+", "x4t"}]}], "}"}], "/.", 
       "ParValsC2M1"}]}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"MMM1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"PTM1", ",", "WS"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TMMM1", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TPTM1", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LTM1", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", "MMM1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TLTM1", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", "TMMM1"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.772537351492605*^9, 3.772537532816848*^9}, {
  3.7725375712991486`*^9, 3.772537580991187*^9}, {3.7725382609118586`*^9, 
  3.7725382873763247`*^9}},ExpressionUUID->"7ba2fddd-6ce5-452e-9ea7-\
c6159c947110"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PTM2", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x12t", "+", "x3t", "+", "x4t"}], ",", "v1"}], "}"}], "/.", 
       "ParValsC1M1"}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x12t", "+", "x3t", "+", "x4t"}], ",", "v1"}], "}"}], "/.", 
       "ParValsC3M2"}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x12t", "+", "x3t", "+", "x4t"}], ",", "v1"}], "}"}], "/.", 
       "ParValsC4M2"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TPTM2", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"v1", ",", 
         RowBox[{"x12t", "+", "x3t", "+", "x4t"}]}], "}"}], "/.", 
       "ParValsC1M1"}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"v1", ",", 
         RowBox[{"x12t", "+", "x3t", "+", "x4t"}]}], "}"}], "/.", 
       "ParValsC3M2"}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"v1", ",", 
         RowBox[{"x12t", "+", "x3t", "+", "x4t"}]}], "}"}], "/.", 
       "ParValsC4M2"}]}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"MMM2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"PTM2", ",", "WS"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TMMM2", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TPTM2", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LTM2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", "MMM2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TLTM2", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", "TMMM2"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.772537311752488*^9, 3.772537335490878*^9}, {
  3.7725375862759542`*^9, 3.772537667136506*^9}, {3.772537715412696*^9, 
  3.772537716528659*^9}, {3.7725377529601517`*^9, 3.772537753136133*^9}, {
  3.772538294159383*^9, 
  3.772538300767398*^9}},ExpressionUUID->"19ffab4e-1887-41bd-a13e-\
8ed845b62966"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PTM22", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x13t", "+", "x2t", "+", "x4t"}], ",", "v1"}], "}"}], "/.", 
        "ParValsC2M1"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x13t", "+", "x2t", "+", "x4t"}], ",", "v1"}], "}"}], "/.", 
        "ParValsC3M2"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x13t", "+", "x2t", "+", "x4t"}], ",", "v1"}], "}"}], "/.", 
        "ParValsC5M22"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TPTM22", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"v1", ",", 
          RowBox[{"x13t", "+", "x2t", "+", "x4t"}]}], "}"}], "/.", 
        "ParValsC2M1"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"v1", ",", 
          RowBox[{"x13t", "+", "x2t", "+", "x4t"}]}], "}"}], "/.", 
        "ParValsC3M2"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"v1", ",", 
          RowBox[{"x13t", "+", "x2t", "+", "x4t"}]}], "}"}], "/.", 
        "ParValsC5M22"}]}], "]"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"MMM22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Re", "[", "PTM22", "]"}], ",", "WS"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TMMM22", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TPTM22", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LTM22", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", "MMM22"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TLTM22", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", "TMMM22"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.772537844333222*^9, 3.7725378482240925`*^9}, {
   3.772537887055988*^9, 3.7725378945445557`*^9}, {3.7725380183234797`*^9, 
   3.7725380501770115`*^9}, 3.7725380812200503`*^9, {3.772538309344325*^9, 
   3.772538316191795*^9}},ExpressionUUID->"f282e464-b629-406a-a8c8-\
adb3080b5962"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PTM3", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x123t", "+", "x4t"}], ",", "v1"}], "}"}], "/.", 
        "ParValsC4M2"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x123t", "+", "x4t"}], ",", "v1"}], "}"}], "/.", 
        "ParValsC5M22"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x123t", "+", "x4t"}], ",", "v1"}], "}"}], "/.", 
        "ParValsC6M3"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TPTM3", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"v1", ",", 
          RowBox[{"x123t", "+", "x4t"}]}], "}"}], "/.", "ParValsC4M2"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"v1", ",", 
          RowBox[{"x123t", "+", "x4t"}]}], "}"}], "/.", "ParValsC5M22"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"v1", ",", 
          RowBox[{"x123t", "+", "x4t"}]}], "}"}], "/.", "ParValsC6M3"}]}], 
      "]"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"MMM3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{
     RowBox[{"Re", "[", "PTM3", "]"}], ",", "WS"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TMMM3", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TPTM3", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LTM3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", "MMM3"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TLTM3", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", "TMMM3"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.772537844333222*^9, 3.7725378482240925`*^9}, {
  3.772537887055988*^9, 3.7725378945445557`*^9}, {3.7725380183234797`*^9, 
  3.7725380501770115`*^9}, {3.7725380812200503`*^9, 3.7725381635845833`*^9}, {
  3.7725383186097713`*^9, 
  3.7725383257277985`*^9}},ExpressionUUID->"4efb82e1-39d4-4487-96f1-\
428056592b75"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PTM4", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x1234t", ",", "v1"}], "}"}], "/.", "ParValsC6M3"}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TPTM4", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"v1", ",", "x1234t"}], "}"}], "/.", "ParValsC6M3"}], "]"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"MMM4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"PTM4", ",", "WS"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TMMM4", "=", 
   RowBox[{"MovingMedian", "[", 
    RowBox[{"TPTM4", ",", "WS"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LTM4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", "MMM4"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TLTM4", "=", 
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", "TMMM4"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7725381919361277`*^9, 3.772538249231821*^9}, {
  3.772538328721797*^9, 
  3.7725383362717595`*^9}},ExpressionUUID->"e3ad1746-f86a-429c-84e1-\
c6473ef6c2b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EqLine1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "i"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "1300", ",", "0.1"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7717426448689213`*^9, 3.771742684000942*^9}, {
   3.7717428863235445`*^9, 3.7717428920975456`*^9}, {3.771743929937951*^9, 
   3.771743933889916*^9}, {3.7717445196989384`*^9, 3.7717445251519394`*^9}, {
   3.7717445687555103`*^9, 3.7717445706894703`*^9}, {3.771756286137291*^9, 
   3.7717562863772907`*^9}, 3.7717565844255495`*^9, {3.7719060767841997`*^9, 
   3.771906079684225*^9}, {3.7719086104337564`*^9, 3.7719086421117244`*^9}, {
   3.771926677310216*^9, 3.7719266843226957`*^9}, {3.771926853350051*^9, 
   3.7719268561977205`*^9}, {3.7719290057449455`*^9, 
   3.7719290081450033`*^9}, {3.7719290648999023`*^9, 3.771929091220568*^9}, {
   3.7725384524664907`*^9, 
   3.772538455629148*^9}},ExpressionUUID->"f585cd57-6c9d-4e54-802c-\
cbeb1c9b0029"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CLRS", "=", 
  RowBox[{"{", 
   RowBox[{
   "Black", ",", "Blue", ",", "Green", ",", "Red", ",", "Yellow", ",", 
    "Orange", ",", "Brown"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.76216260730523*^9, 3.7621626904882727`*^9}, {
  3.7621627323252344`*^9, 3.762162734410307*^9}, {3.772538368945723*^9, 
  3.7725383768954754`*^9}, {3.772538527740619*^9, 
  3.772538533391672*^9}},ExpressionUUID->"6ff8ae4c-2084-489b-880e-\
0f8ff50a4b18"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->GrayLevel[0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["GrayLevelColorValueSelector"], {
           0, {Left, Bottom}}, {Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    GrayLevel[0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0., 0.6666666666666666],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 0, 1],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 1, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.5, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6, 0.4, 0.2], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], NumberMarks -> 
       False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.6, 0.4, 0.2]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6, 0.4, 0.2],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{{3.7621626740723*^9, 3.7621626908102384`*^9}, 
   3.7621627349462347`*^9, 3.762233867700757*^9, 3.76267394088566*^9, 
   3.7631907618005295`*^9, 3.7717424849194994`*^9, 3.771743722378437*^9, 
   3.771743866867967*^9, 3.771743935602915*^9, 3.771744528173938*^9, 
   3.7717563654540854`*^9, {3.7717572868555856`*^9, 3.7717572982745333`*^9}, 
   3.7718326458700867`*^9, 3.771832979509701*^9, 3.7719060831724453`*^9, 
   3.771908316393758*^9, 3.771908449778282*^9, 3.77192668765211*^9, 
   3.7719290111048517`*^9, {3.7719290691948094`*^9, 3.7719290922946167`*^9}, 
   3.772516317333993*^9, 3.7725383409107227`*^9, 3.7725383773405094`*^9, 
   3.7725385338546796`*^9},ExpressionUUID->"37fc688e-da98-4e29-8422-\
0491ec0e87a4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"LGDS", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<M1\>\"", ",", " ", "\"\<M2\>\"", ",", " ", "\"\<M2'\>\"", ",", " ", 
     "\"\<M3\>\"", ",", " ", "\"\<M4\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095556150934*^9, 3.7530956119018316`*^9}, 
   3.753096091728148*^9, {3.753330571583477*^9, 3.7533305740050387`*^9}, {
   3.760096825047188*^9, 3.760096833499013*^9}, {3.7601688302307343`*^9, 
   3.760168838186841*^9}, {3.7626741665745883`*^9, 3.762674167944764*^9}, {
   3.772538346738723*^9, 3.7725383600157237`*^9}, 
   3.772538539810691*^9},ExpressionUUID->"57860727-d569-4664-bcd0-\
54daea675767"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LegendG", "=", 
   RowBox[{"SwatchLegend", "[", 
    RowBox[{"CLRS", ",", "LGDS", ",", 
     RowBox[{"LegendMarkers", "\[Rule]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", 
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], ",", 
     RowBox[{"LegendLabel", "\[Rule]", "\"\<Comparisons\>\""}], ",", 
     RowBox[{"LegendFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"#", ",", 
          RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], ")"}]}],
      ",", 
     RowBox[{"LegendMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753095676158193*^9, 3.753095677849004*^9}, 
   3.7530961110253334`*^9},ExpressionUUID->"d1a02de0-cde7-443a-aa01-\
5cb9ab2dc698"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"MMM1", ",", "MMM2", ",", "MMM3", ",", "MMM4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Stability Margins\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", 
      "20"}], "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.02", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Total Protein\>\"", ",", " ", "\"\<ATP consumption\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7717428663945456`*^9, 3.771742918881545*^9}, {
   3.771743051454538*^9, 3.771743054578538*^9}, {3.7717438829160013`*^9, 
   3.7717439475872827`*^9}, {3.7717445395099382`*^9, 3.771744578434471*^9}, {
   3.7717563089544697`*^9, 3.7717564005848494`*^9}, {3.771906100771393*^9, 
   3.771906218852999*^9}, {3.7719084660496283`*^9, 3.7719084706735573`*^9}, {
   3.7719085255849905`*^9, 3.7719086476997147`*^9}, {3.771926701090181*^9, 
   3.771926765129942*^9}, {3.7719290270305333`*^9, 3.771929049824853*^9}, {
   3.772538392594475*^9, 3.772538430049225*^9}, 3.772538547922708*^9, {
   3.772539231346388*^9, 
   3.772539266272303*^9}},ExpressionUUID->"b644e94d-9325-4aeb-81fd-\
aa9a547f9ff0"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJxM1mc8UG8bB3A7JHsnhJSssknOSTbJ3iF7Jdl77+y9sgmRCCFZUUhCKJKR
[encoded data, 109920 characters]
veUDBRF98P8Bj4GIxQ==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJxM13c8l/33B3B7heyRvfeW7OvKyp7ZW/bOyiw0iAiRXSor2SShyEqSFcrM
[encoded data, 165540 characters]
yNZMzPsfCXCLtA==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxM13c8lv/3B3Bkk73JJqsI2d3XHUJCQrKSlawkhCiE7E2yk+wQskJIkmRl
[encoded data, 165240 characters]
W1bPWh/amXXVcGU9K9ehmWqrCyHvyN7b57WunrxT6y2VWveJ+D95O9lL
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0]], 
        PointBox[CompressedData["
1:eJxM2Hc8l2/7P3AzIys7eycrWWW9z8uWlWxCUikSkhTJ3qtQyKayk52QjMwk
[encoded data, 54720 characters]
nSY02ZJx/pLmDPI//2HfEA==
         "]]}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[
         1, 0, 0]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     1, Axes -> {False, False}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"ATP consumption\"", TraditionalForm], None}, {
        FormBox["\"Total Protein\"", TraditionalForm], None}}, FrameStyle -> {
       Directive[Bold, 15], 
       Directive[Bold, 15]}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
       StyleBox[
       "\"Stability Margins\"", "Arial", Bold, 20, StripOnInput -> False], 
       TraditionalForm], 
     PlotRange -> {{0, 34540.3650974014}, {0, 1289.820026912801}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"M1\"", "\"M2\"", "\"M2'\"", "\"M3\"", "\"M4\""}, 
      "SwatchLegend", DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                StyleBox[
                "\"Comparisons\"", {FontFamily -> "Arial"}, Background -> 
                 Automatic, StripOnInput -> False]}, {
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #2}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #3}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #4}, {
                    GraphicsBox[{
                    EdgeForm[
                    GrayLevel[0]], 
                    Opacity[1], 
                    RectangleBox[{0, 0}]}, {
                    DisplayFunction -> Identity, 
                    DefaultBaseStyle -> {"Graphics", 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 1, 0]]}, ImageSize -> {10, 10}, ImagePadding -> 
                    All, PlotRangePadding -> None, AspectRatio -> Full}, {
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)}], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                 "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{2, 2}, {2, 2}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.6, 0.4, 0.2], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.6`", ",", "0.4`", ",", "0.2`"}], "]"}], 
                   NumberMarks -> False]], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.6, 0.4, 0.2]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.6, 0.4, 0.2], Editable -> False, Selectable -> 
                False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"Comparisons\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "2"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             GraphicsBox[{
               EdgeForm[
                GrayLevel[0]], 
               Opacity[1], 
               RectangleBox[{0, 0}]}]}]}], "]"}]& ), Editable -> True], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7718329813696613`*^9, {3.771906197950301*^9, 3.771906220430276*^9}, {
   3.7719085960197096`*^9, 3.7719086494167166`*^9}, 3.7719267679402194`*^9, 
   3.771926861446126*^9, {3.7719290516424775`*^9, 3.7719290964248867`*^9}, {
   3.7725384322971926`*^9, 3.7725384619027576`*^9}, 3.772538549273675*^9, {
   3.772539238597361*^9, 
   3.7725392678362546`*^9}},ExpressionUUID->"4a68224c-d5af-477a-9954-\
68be4f44fb1b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"10", ",", 
     RowBox[{"{", 
      RowBox[{
      "TPTM1", ",", "TPTM2", ",", "TPTM22", ",", "TPTM3", ",", "TPTM4"}], 
      "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], 
   RowBox[{"(*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "6"}], "}"}]}], "}"}], "*)"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Cost\>\"", ",", "\"\<Arial\>\"", ",", "Bold", ",", "20"}], 
     "]"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{"CLRS", ",", 
      RowBox[{"{", 
       RowBox[{"AbsolutePointSize", "[", "2", "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Arial\>\""}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "LegendG"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Log[10,ATP consumption]\>\"", ",", " ", 
      "\"\<Log[10,Total Protein]\>\""}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7725394132819223`*^9, 
  3.7725394434259706`*^9}},ExpressionUUID->"4042e965-18e7-4455-aa95-\
6e99baefc8f0"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         GrayLevel[0]], 
        PointBox[CompressedData["
1:eJwUmnk0lV8Xx82zOwhJd77mKcmU5G5jiNAgTUoqP6UoCaWSKU2KkEqSJIUM
[encoded data, 203100 characters]
txfE3yx7oY9545vej3GgETgxcklgiCG4ngrhY8j8/h84S27b
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1]], 
        PointBox[CompressedData["
1:eJwU13c8lW8bAHD7OAdnyG6c6Rw7IYnyXIRQSCRRRhnJSNmliJaVUaSSFGlI
[encoded data, 302280 characters]
O8l83abXemnbfn2MzWPsmUrmcce+gorLCpPx5fbkkDenafwHwNTC2w==
         "]]}, {
        Directive[
         PointSize[
          NCache[
           Rational[1, 360], 0.002777777777777778]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 1, 0]], 
        PointBox[CompressedData["
1:eJxk2nk4lN8XAHA7M8xCllSzz1gjCWl9L0pFUkppk6RvhSwlS7JHiy20kFYp
[encoded data, 264540 characters]
7ZNvWXHEV49baTh7JQeeY4Tm4WwaSx+bOnav4