prob_pca.nb

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

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

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    258294,       6568]
NotebookOptionsPosition[    247829,       6385]
NotebookOutlinePosition[    248225,       6401]
CellTagsIndexPosition[    248182,       6398]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Helper funcs", "Title",
 CellChangeTimes->{{3.817914280120812*^9, 
  3.817914282052746*^9}},ExpressionUUID->"ce05e86a-de88-4773-b203-\
80cdd50b987b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"figuresDir", "=", "\"\<figures_ma/\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"!", 
     RowBox[{"DirectoryQ", "[", "figuresDir", "]"}]}], ",", 
    RowBox[{"CreateDirectory", "[", "figuresDir", "]"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.817946006229545*^9, 3.8179460441788673`*^9}},
 CellLabel->
  "In[1210]:=",ExpressionUUID->"69559abf-2737-4df0-a5f8-d630040a7819"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plotHist1D", "[", 
   RowBox[{"data_", ",", "title_"}], "]"}], ":=", 
  RowBox[{"Histogram", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", "data", "]"}], ",", 
    RowBox[{"ChartStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"Opacity", "[", "0.8", "]"}], ",", 
        RowBox[{"Darker", "[", "Green", "]"}]}], "]"}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", "title"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.817914918047236*^9, 3.817915046067181*^9}},
 CellLabel->
  "In[1213]:=",ExpressionUUID->"10bef0be-6f58-4771-a620-52453429d716"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plotHist2D", "[", 
   RowBox[{"data_", ",", "title_"}], "]"}], ":=", 
  RowBox[{"Grid", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"Table", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"plotHist1D", "[", 
       RowBox[{
        RowBox[{"data", "[", 
         RowBox[{"[", 
          RowBox[{";;", ",", "i"}], "]"}], "]"}], ",", 
        RowBox[{"title", "<>", "\"\< dim \>\"", "<>", 
         RowBox[{"ToString", "[", "i", "]"}]}]}], "]"}], 
      "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{
         RowBox[{"Dimensions", "[", "data", "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], 
    "\[IndentingNewLine]", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.817915816111643*^9, 3.817915864269257*^9}},
 CellLabel->
  "In[1214]:=",ExpressionUUID->"1994408a-462b-487c-926b-883a33fdd5e3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"getScatterRange", "[", "data_", "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "xMin", ",", "xMax", ",", "xWidth", ",", "yMean", ",", "xMean", ",", 
      "yMin", ",", "yMax", ",", "yWidth"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"xMin", "=", 
      RowBox[{"Min", "[", 
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"xMax", "=", 
      RowBox[{"Max", "[", 
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"yMin", "=", 
      RowBox[{"Min", "[", 
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"yMax", "=", 
      RowBox[{"Max", "[", 
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"xWidth", "=", 
      RowBox[{"xMax", "-", "xMin"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"yWidth", "=", 
      RowBox[{"yMax", "-", "yMin"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"xWidth", ">", "yWidth"}], "\[IndentingNewLine]", ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"yMean", "=", 
         RowBox[{"Mean", "[", 
          RowBox[{"data", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"yMin", "=", 
         RowBox[{"yMean", "-", 
          RowBox[{"xWidth", "/", "2.0"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"yMax", "=", 
         RowBox[{"yMean", "+", 
          RowBox[{"xWidth", "/", "2.0"}]}]}], ";"}], "\[IndentingNewLine]", 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"xMean", "=", 
         RowBox[{"Mean", "[", 
          RowBox[{"data", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"xMin", "=", 
         RowBox[{"xMean", "-", 
          RowBox[{"yWidth", "/", "2.0"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"xMax", "=", 
         RowBox[{"xMean", "+", 
          RowBox[{"yWidth", "/", "2.0"}]}]}], ";"}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"xMin", ",", "xMax"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"yMin", ",", "yMax"}], "}"}]}], "}"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.817917248806014*^9, 3.8179172693082952`*^9}, {
  3.817919312979669*^9, 3.817919357891244*^9}},
 CellLabel->
  "In[1215]:=",ExpressionUUID->"aab4870b-f0b4-46c2-b2eb-fe06ad24605b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plotScatterVisible2D", "[", 
   RowBox[{"data_", ",", "title_"}], "]"}], ":=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"data", ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", "title"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<Data dim 1\>\"", ",", "\"\<Data dim 2\>\""}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"getScatterRange", "[", "data", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.817915899520537*^9, 3.81791593607826*^9}, {
  3.817915974086577*^9, 3.8179159799223824`*^9}, {3.817917285172311*^9, 
  3.817917288607497*^9}},
 CellLabel->
  "In[1216]:=",ExpressionUUID->"9c566b39-e3fc-4a72-84df-dcb4db1d0dfd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plotScatterVisibleAndActivated2D", "[", 
   RowBox[{"data_", ",", "actVisible_"}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"plt", ",", "leg"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"plt", "=", 
      RowBox[{"Show", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ListPlot", "[", 
         RowBox[{"data", ",", 
          RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
          RowBox[{"FrameLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<Data dim 1\>\"", ",", "\"\<Data dim 2\>\""}], 
            "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"ListPlot", "[", 
         RowBox[{"actVisible", ",", 
          RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"getScatterRange", "[", "data", "]"}]}]}], 
       "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"leg", "=", 
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Red", ",", "Blue"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\"\<Data\>\"", ",", "\"\<Sampled\>\""}], "}"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{"Grid", "[", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"plt", ",", "leg"}], "}"}], "}"}], "]"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.817915984374041*^9, 3.81791608580363*^9}, {
  3.8179171209083757`*^9, 3.8179172132973824`*^9}, {3.817917272586899*^9, 
  3.817917281195486*^9}},
 CellLabel->
  "In[1217]:=",ExpressionUUID->"2d3189cd-4b7b-41a6-943d-d7a4f803aeb6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plotDataVisibleAndActivated", "[", 
   RowBox[{"data_", ",", "actVisible_"}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"leg", ",", "plts", ",", "p", ",", "dimVis"}], "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dimVis", "=", 
      RowBox[{
       RowBox[{"Dimensions", "[", "data", "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"leg", "=", 
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Directive", "[", 
           RowBox[{
            RowBox[{"Opacity", "[", "0.5", "]"}], ",", "Red"}], "]"}], ",", 
          RowBox[{"Directive", "[", 
           RowBox[{
            RowBox[{"Opacity", "[", "0.3", "]"}], ",", "Blue"}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\"\<Data\>\"", ",", "\"\<Sampled\>\""}], "}"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"plts", "=", 
      RowBox[{"Table", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Show", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Histogram", "[", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{";;", ",", "i"}], "]"}], "]"}], ",", 
            RowBox[{"ChartStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Directive", "[", 
               RowBox[{
                RowBox[{"Opacity", "[", "0.5", "]"}], ",", "Red"}], "]"}], 
              "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Histogram", "[", 
           RowBox[{
            RowBox[{"actVisible", "[", 
             RowBox[{"[", 
              RowBox[{";;", ",", "i"}], "]"}], "]"}], ",", 
            RowBox[{"ChartStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Directive", "[", 
               RowBox[{
                RowBox[{"Opacity", "[", "0.3", "]"}], ",", "Blue"}], "]"}], 
              "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", 
          RowBox[{"PlotLabel", "\[Rule]", 
           RowBox[{"\"\<Visible dim \>\"", "<>", 
            RowBox[{"ToString", "[", "i", "]"}]}]}]}], "\[IndentingNewLine]", 
         "]"}], "\[IndentingNewLine]", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "dimVis"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"p", "=", 
      RowBox[{"Grid", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{"Join", "[", 
         RowBox[{"plts", ",", 
          RowBox[{"{", "leg", "}"}]}], "]"}], "\[IndentingNewLine]", "}"}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "p", "]"}], ";"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8179142826725187`*^9, 3.8179143224313517`*^9}, {
  3.8179146908583393`*^9, 3.817914703522552*^9}, {3.817915075677223*^9, 
  3.817915076120388*^9}},
 CellLabel->
  "In[1218]:=",ExpressionUUID->"61e70ee7-9569-4bf9-9cc2-ccc738dcc8ba"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sampleVisibleGivenHidden", "[", 
   RowBox[{"weightML_", ",", "muML_", ",", "varML_", ",", "hiddenSamples_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"actVisible", ",", "cov", ",", "mean", ",", "d"}], "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"d", "=", 
      RowBox[{
       RowBox[{"Dimensions", "[", "weightML", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"actVisible", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"mean", "=", 
         RowBox[{
          RowBox[{"weightML", ".", "dataHidden"}], "+", "muML"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"cov", "=", 
         RowBox[{"varML", "*", 
          RowBox[{"IdentityMatrix", "[", "d", "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"actVisible", ",", 
          RowBox[{"RandomVariate", "[", 
           RowBox[{"MultinormalDistribution", "[", 
            RowBox[{"mean", ",", "cov"}], "]"}], "]"}]}], "]"}], ";"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"dataHidden", ",", "hiddenSamples"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "actVisible", "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.817914389875165*^9, 3.81791448708808*^9}},
 CellLabel->
  "In[1219]:=",ExpressionUUID->"8993339e-c85b-497e-842b-019b2f9950d5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sampleHiddenGivenVisible", "[", 
   RowBox[{"weightML_", ",", "muML_", ",", "varML_", ",", "visibleSamples_"}],
    "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"actHidden", ",", "mean", ",", "m", ",", "cov", ",", "q"}], 
     "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"q", "=", 
      RowBox[{
       RowBox[{"Dimensions", "[", "weightML", "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"m", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Transpose", "[", "weightML", "]"}], ".", "weightML"}], "+", 
       RowBox[{"varML", "*", 
        RowBox[{"IdentityMatrix", "[", "q", "]"}]}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"cov", "=", 
      RowBox[{"varML", "*", 
       RowBox[{"Inverse", "[", "m", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"actHidden", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"mean", "=", 
         RowBox[{
          RowBox[{"Inverse", "[", "m", "]"}], ".", 
          RowBox[{"Transpose", "[", "weightML", "]"}], ".", 
          RowBox[{"(", 
           RowBox[{"dataVisible", "-", "muML"}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"actHidden", ",", 
          RowBox[{"RandomVariate", "[", 
           RowBox[{"MultinormalDistribution", "[", 
            RowBox[{"mean", ",", "cov"}], "]"}], "]"}]}], "]"}], ";"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"dataVisible", ",", "visibleSamples"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "actHidden", "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.817915272146864*^9, 3.8179153391477833`*^9}, {
  3.8179156546964808`*^9, 3.8179156618744917`*^9}},
 CellLabel->
  "In[1220]:=",ExpressionUUID->"c951be51-e5ac-46a6-a3ec-82ad3df08d0e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Load data", "Title",
 CellChangeTimes->{{3.817744359303783*^9, 
  3.8177443620651207`*^9}},ExpressionUUID->"cf60a707-421e-4f13-a92c-\
bc5ab462a894"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2655", ",", "3033"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2744", ",", "3012"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2562", ",", "2997"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2524", ",", "3019"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2742", ",", "3007"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2558", ",", "3038"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2940", ",", "3045"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2714", ",", "3005"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2618", ",", "3044"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2601", ",", "3041"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2845", ",", "3004"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2682", ",", "3023"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2797", ",", "3033"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2528", ",", "3000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2587", ",", "3024"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2601", ",", "2999"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2620", ",", "3018"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2546", ",", "3022"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2778", ",", "3019"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2870", ",", "3030"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2854", ",", "3027"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2644", ",", "3013"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3041", ",", "3016"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2686", ",", "3034"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2526", ",", "3010"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2732", ",", "3019"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2594", ",", "3022"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2926", ",", "3037"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2478", ",", "3026"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2544", ",", "3018"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2848", ",", "3010"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2450", ",", "3012"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2606", ",", "3021"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2649", ",", "3035"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2783", ",", "3025"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2600", ",", "3017"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2432", ",", "2999"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2544", ",", "3025"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2587", ",", "3011"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2745", ",", "3011"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2709", ",", "3039"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2742", ",", "3014"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2600", ",", "3049"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2913", ",", "3015"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2563", ",", "3035"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2824", ",", "3006"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2747", ",", "3024"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2450", ",", "3035"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2658", ",", "3030"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2536", ",", "3012"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2738", ",", "3022"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2512", ",", "3028"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2646", ",", "3026"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2615", ",", "3030"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2740", ",", "3010"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2448", ",", "3032"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2469", ",", "3014"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2526", ",", "3024"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2639", ",", "3010"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2852", ",", "3005"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2854", ",", "2995"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2807", ",", "3023"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2594", ",", "3005"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2557", ",", "3041"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2535", ",", "3035"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2386", ",", "3026"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2923", ",", "3031"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2851", ",", "3048"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2468", ",", "3026"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2670", ",", "3023"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2512", ",", "3005"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2917", ",", "3015"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2384", ",", "3019"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2750", ",", "3043"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2760", ",", "2998"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2512", ",", "3012"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2824", ",", "3023"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2569", ",", "3011"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2636", ",", "3008"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2852", ",", "3015"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2448", ",", "3000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2682", ",", "3002"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2705", ",", "3026"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2570", ",", "2997"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2565", ",", "3012"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2657", ",", "3021"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2647", ",", "3039"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2767", ",", "2973"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2869", ",", "3034"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2405", ",", "3044"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2688", ",", "3010"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2511", ",", "3009"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2742", ",", "3027"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2691", ",", "3022"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2686", ",", "3009"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2722", ",", "3009"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2700", ",", "3019"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2965", ",", "3016"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2339", ",", "3000"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2548", ",", "3053"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2985", ",", "2997"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2799", ",", "3026"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2617", ",", "3015"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2669", ",", "3033"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2610", ",", "3007"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2669", ",", "3016"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2926", ",", "2997"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2205", ",", "3011"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2564", ",", "3009"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2592", ",", "2999"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2748", ",", "3051"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2757", ",", "3011"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2579", ",", "3035"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2614", ",", "3010"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3062", ",", "3031"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2679", ",", "3008"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2407", ",", "3018"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2611", ",", "3031"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2895", ",", "3037"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2587", ",", "3054"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2785", ",", "3025"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2690", ",", "3010"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2579", ",", "3033"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2649", ",", "3030"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2507", ",", "3001"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2951", ",", "3003"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2788", ",", "3012"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2538", ",", "2967"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2620", ",", "3030"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2734", ",", "3001"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2528", ",", "3041"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2383", ",", "3014"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2577", ",", "2991"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2752", ",", "3008"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2457", ",", "3012"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2608", ",", "3017"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2635", ",", "3024"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2856", ",", "3015"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2869", ",", "3022"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2519", ",", "3031"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3045", ",", "3036"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2710", ",", "3035"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2568", ",", "3025"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2484", ",", "3015"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2438", ",", "3015"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2707", ",", "3025"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2730", ",", "3041"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2981", ",", "3020"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2544", ",", "3018"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2566", ",", "3027"}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.817919414669139*^9, 3.817919419637002*^9}},
 CellLabel->
  "In[1221]:=",ExpressionUUID->"616c80d3-3603-4029-b7e5-5ba05b1fd058"],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"data", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1512", ",", "3009"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1510", ",", "3008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1512", ",", "3006"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1511", ",", "3007"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1513", ",", "3017"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1507", ",", "3010"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1500", ",", "3021"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1510", ",", "3016"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1509", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1498", ",", "3022"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1504", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1513", ",", "3010"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1495", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1516", ",", "3008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1498", ",", "2996"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1509", ",", "3010"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1504", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1501", ",", "3018"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1499", ",", "3006"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1497", ",", "3007"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1508", ",", "3008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1499", ",", "3007"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1504", ",", "3019"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1510", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1499", ",", "3017"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3016"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1511", ",", "3010"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1512", ",", "3015"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1509", ",", "3010"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3002"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3020"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1513", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1511", ",", "3008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1496", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1513", ",", "3015"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1511", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1507", ",", "3007"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1509", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1513", ",", "3008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3009"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1499", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1510", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1507", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1495", ",", "3016"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1510", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1516", ",", "3019"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1499", ",", "3002"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1507", ",", "3017"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1505", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1508", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1511", ",", "3009"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1500", ",", "3005"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3005"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1505", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1514", ",", "3008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1509", ",", "3019"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1518", ",", "3009"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1499", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1509", ",", "3017"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3016"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1510", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3010"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1498", ",", "3007"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1500", ",", "3020"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3009"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1518", ",", "3018"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3004"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1499", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3018"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1508", ",", "3008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3007"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1505", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1510", ",", "3007"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3017"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1510", ",", "3008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1499", ",", "3024"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3009"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1512", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1498", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3015"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1505", ",", "3005"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1504", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1512", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1509", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1505", ",", "3009"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1500", ",", "3016"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1513", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1509", ",", "3006"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1504", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1504", ",", "3004"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1512", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1514", ",", "3009"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1513", ",", "3010"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3018"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1504", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1507", ",", "3009"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1507", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1507", ",", "3019"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1505", ",", "3010"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1504", ",", "3010"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1508", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1509", ",", "3007"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1507", ",", "3016"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1508", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3001"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1519", ",", "3018"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1510", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1508", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3010"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1500", ",", "3022"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1497", ",", "3007"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1504", ",", "3014"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3018"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1509", ",", "3003"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1507", ",", "3016"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1505", ",", "3005"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1505", ",", "3007"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1503", ",", "3005"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3017"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1510", ",", "3012"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1507", ",", "3016"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3015"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1504", ",", "3016"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1512", ",", "3019"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3017"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1508", ",", "3007"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1512", ",", "3015"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1504", ",", "3013"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3011"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1502", ",", "3017"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1508", ",", "3015"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3005"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1506", ",", "3005"}], "}"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.817919230278458*^9, 3.817919237709132*^9}, {
  3.817919423205414*^9, 3.8179194260033207`*^9}},
 CellLabel->
  "In[1222]:=",ExpressionUUID->"ddf5f0fc-8353-402c-8da4-2f7240a37cd8"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", 
  RowBox[{"plotHist2D", "[", 
   RowBox[{"data", ",", "\"\<Data\>\""}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"figuresDir", "<>", "\"\<data.png\>\""}], ",", "p", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "200"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.817915867304145*^9, 3.817915871886817*^9}, {
  3.817946034538569*^9, 3.8179460639085417`*^9}},
 CellLabel->
  "In[1223]:=",ExpressionUUID->"619d7130-57a8-4af2-82f6-181b115a6913"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{
       {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.623], Thickness[
        Small]}], {}, 
        {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.623], Thickness[
         Small]}], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{2200., 0}, {2300., 1.}, "RoundingRadius" -> 0]},
               
               
               ImageSizeCache->{{34.17999999999995, 74.30666666666662}, {
                112.60963615007128`, 118.84962682058593`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 1]& ,
            TagBoxNote->"1"],
           StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{2300., 0}, {2400., 4.}, "RoundingRadius" -> 0]},
               
               
               ImageSizeCache->{{73.80666666666662, 113.93333333333328`}, {
                95.38966413852734, 118.84962682058593`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 4]& ,
            TagBoxNote->"4"],
           StyleBox["4", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[4, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{2400., 0}, {2500., 13.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{113.43333333333328`, 153.55999999999995`}, {
                43.72974810389549, 118.84962682058593`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 13]& ,
            TagBoxNote->"13"],
           StyleBox["13", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[13, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{2500., 0}, {2600., 38.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{153.05999999999995`, 
                193.1866666666666}, {-99.77001865897073, 
                118.84962682058593`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 38]& ,
            TagBoxNote->"38"],
           StyleBox["38", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[38, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{2600., 0}, {2700., 36.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{192.6866666666666, 
                232.8133333333334}, {-88.29003731794144, 
                118.84962682058593`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 36]& ,
            TagBoxNote->"36"],
           StyleBox["36", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[36, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{2700., 0}, {2800., 30.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{232.3133333333334, 
                272.43999999999994`}, {-53.85009329485355, 
                118.84962682058593`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 30]& ,
            TagBoxNote->"30"],
           StyleBox["30", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[30, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{2800., 0}, {2900., 15.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{271.93999999999994`, 312.0666666666667}, {
                32.24976676286619, 118.84962682058593`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 15]& ,
            TagBoxNote->"15"],
           StyleBox["15", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[15, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{2900., 0}, {3000., 10.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{311.5666666666667, 351.69333333333327`}, {
                60.94972011543943, 118.84962682058593`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 10]& ,
            TagBoxNote->"10"],
           StyleBox["10", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[10, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{3000., 0}, {3100., 3.}, "RoundingRadius" -> 0]},
               
               
               ImageSizeCache->{{351.19333333333327`, 391.32000000000005`}, {
                101.12965480904198`, 118.84962682058593`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 3]& ,
            TagBoxNote->"3"],
           StyleBox["3", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[3, {FontFamily -> "Times"}], 
           "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{2182., 0},
      BaseStyle->{FontSize -> 24},
      Frame->True,
      FrameLabel->{{None, None}, {None, None}},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      PlotLabel->FormBox["\"Data dim 1\"", TraditionalForm],
      PlotRange->{{2200., 3100.}, {All, All}},
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {None, 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{
       {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.616], Thickness[
        Small]}], {}, 
        {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.616], Thickness[
         Small]}], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{2960., 0}, {2970., 1.}, "RoundingRadius" -> 0]},
               
               
               ImageSizeCache->{{33.852040816325825`, 68.44183673469342}, {
                102.97667901339722`, 108.21513069894257`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 1]& ,
            TagBoxNote->"1"],
           StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{2970., 0}, {2980., 1.}, "RoundingRadius" -> 0]},
               
               
               ImageSizeCache->{{67.94183673469342, 102.53163265306102`}, {
                102.97667901339722`, 108.21513069894257`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 1]& ,
            TagBoxNote->"1"],
           StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{2990., 0}, {3000., 10.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{136.12142857142862`, 170.7112244897944}, {
                60.33061384348907, 108.21513069894257`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 10]& ,
            TagBoxNote->"10"],
           StyleBox["10", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[10, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{3000., 0}, {3010., 22.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{170.2112244897944, 204.801020408162}, {
                3.469193616944864, 108.21513069894257`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 22]& ,
            TagBoxNote->"22"],
           StyleBox["22", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[22, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{3010., 0}, {3020., 44.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{204.301020408162, 
                238.8908163265296}, {-100.77674346505285`, 
                108.21513069894257`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 44]& ,
            TagBoxNote->"44"],
           StyleBox["44", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[44, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{3020., 0}, {3030., 31.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{238.3908163265296, 
                272.9806122448972}, {-39.17687155296329, 
                108.21513069894257`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 31]& ,
            TagBoxNote->"31"],
           StyleBox["31", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[31, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{3030., 0}, {3040., 28.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{272.4806122448972, 
                307.0704081632648}, {-24.96151649632725, 
                108.21513069894257`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 28]& ,
            TagBoxNote->"28"],
           StyleBox["28", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[28, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{3040., 0}, {3050., 10.}, "RoundingRadius" -> 0]},
               
               ImageSizeCache->{{306.5704081632648, 341.1602040816324}, {
                60.33061384348907, 108.21513069894257`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 10]& ,
            TagBoxNote->"10"],
           StyleBox["10", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[10, {FontFamily -> "Times"}], "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           TagBox[
            {RGBColor[0, 
              NCache[
               Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
             TagBox[
              DynamicBox[{
                FEPrivate`If[
                 CurrentValue["MouseOver"], 
                 EdgeForm[{
                   GrayLevel[0.5], 
                   AbsoluteThickness[1.5], 
                   Opacity[0.66]}], {}, {}], 
                RectangleBox[{3050., 0}, {3060., 3.}, "RoundingRadius" -> 0]},
               
               
               ImageSizeCache->{{340.6602040816324, 375.2499999999982}, {
                93.49977564230652, 108.21513069894257`}}],
              "DelayedMouseEffectStyle"]},
            StatusArea[#, 3]& ,
            TagBoxNote->"3"],
           StyleBox["3", {FontFamily -> "Times"}, StripOnInput -> False]],
          Annotation[#, 
           Style[3, {FontFamily -> "Times"}], 
           "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{2958., 0},
      BaseStyle->{FontSize -> 24},
      Frame->True,
      FrameLabel->{{None, None}, {None, None}},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      PlotLabel->FormBox["\"Data dim 2\"", TraditionalForm],
      PlotRange->{{2960., 3060.}, {All, All}},
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {None, 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.817915872166513*^9, 3.8179161146669703`*^9, 3.817916189138695*^9, 
   3.8179173064970627`*^9, 3.817919220455736*^9, 3.8179192879707336`*^9, {
   3.817919427053296*^9, 3.8179194298264933`*^9}, {3.817946053493115*^9, 
   3.817946064349807*^9}, 3.817946505037547*^9},
 CellLabel->
  "Out[1223]=",ExpressionUUID->"e3623aac-aced-458b-ae3c-d5f848b0fc02"],

Cell[BoxData["\<\"figures_ma/data.png\"\>"], "Output",
 CellChangeTimes->{
  3.817915872166513*^9, 3.8179161146669703`*^9, 3.817916189138695*^9, 
   3.8179173064970627`*^9, 3.817919220455736*^9, 3.8179192879707336`*^9, {
   3.817919427053296*^9, 3.8179194298264933`*^9}, {3.817946053493115*^9, 
   3.817946064349807*^9}, 3.81794650539879*^9},
 CellLabel->
  "Out[1224]=",ExpressionUUID->"6bc4b754-4bd1-4a56-825f-542eda989f07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", 
  RowBox[{"plotScatterVisible2D", "[", 
   RowBox[{"data", ",", "\"\<Data\>\""}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"figuresDir", "<>", "\"\<data_scatter.png\>\""}], ",", "p", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "200"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.817915941721634*^9, 3.8179159448276663`*^9}, {
  3.817946058379505*^9, 3.817946069710637*^9}},
 CellLabel->
  "In[1225]:=",ExpressionUUID->"24c09734-3f22-4c18-9aaf-c7e7ddbbb06d"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[1, 0, 0], PointSize[0.009166666666666668], AbsoluteThickness[
    1.6], CapForm["Butt"], 
    StyleBox[PointBox[CompressedData["
1:eJx1lk9IVFEUh4cQiZCIaNGyJGYh0SKixaxmIRLSQqRFiyEiTEQGk0FCQkQi
QiQkJIaIeEwz740uZIhBQkIGkQiZhUiEi2GIFi1aRKsWES0y3/cL7g8S5PBx
7/l7zzlvzt+5N3r3WCaTKR/+/5VHf604fySbq6mcTlK5CPdwPglv1lJZhovc
n4d/c74F/6ynsg1f4f4DeAb7u/AovAPn0J+Ff3AewZ0kjH8b/9PwVe5XzP4U
PAs/g7+g/xLeSCxf4lmHr8N1eA17S6thHk9VH8434C38PYJvmr/BOIyni7+3
cAH9GP5cC/PJ10P7FzjX+xaw/wJuwm/gFvFU4RHOV+AM9qbMf9Xq/xguJSEP
wC3rpyfm74PqST7LcK/Fe4rzOfg+9iqWv+6/Q1/vuW/1GUNf9a9wvgavo6/6
T5m9CfRV/3Pov4aHa2G+6gfFG8Wh/jXy0/yo/8bh7/jTfKh/dP8X9tWXe1aP
uBrmc4D9BjwE7yse67+uzafqJf9te78K/tTvc8T/XnMDF83eor23/J22fnsO
L1j9lu09tC+0X2bg/iTM74ztwxNxGM+OzVMDVn9H2MvBk8SjfdCuplL7MGP9
ExHvQ5sX7Z9e61ftG90fTEI+a/tmwPbVEPGoPl/x39E+VR7IT1avEv5V7459
b8bgeTuXf+072c+9SqXe97jll/f9TjwH8JLtn6ztj6LN2ze9o+bL+mmvmkrt
2/E4vB/ZvtY+7KpfbL/22HtnrV5N2y9l3qMEn9TeQ+7a9/wj9y/Z90/2Cklo
b9v2RUS+2lf96N+CF9BXfS7bvN6270fZvs8jNp+aD/VzA3uqr35XbCIv4v/f
9wD7qu9ELbTfZ5y197gBK/9h7ZX/fG/78Hc4j38AzICv2Q==
      "]],
     FontSize->24]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{2205., 2591.},
  BaseStyle->{FontSize -> 24},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Data dim 2\"", TraditionalForm], None}, {
     FormBox["\"Data dim 1\"", TraditionalForm], None}},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"Data\"", TraditionalForm],
  PlotRange->{{2205, 3062}, {2591., 3448.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.817915945113223*^9, 3.817916114719005*^9, 3.817916189183022*^9, {
   3.817917294193466*^9, 3.817917308152062*^9}, 3.8179192204911613`*^9, 
   3.817919290432378*^9, 3.8179193608789997`*^9, 3.8179194298706284`*^9, 
   3.8179460700200377`*^9, 3.817946505434808*^9},
 CellLabel->
  "Out[1225]=",ExpressionUUID->"483ad965-cace-4587-8c61-c0cb198f26ed"],

Cell[BoxData["\<\"figures_ma/data_scatter.png\"\>"], "Output",
 CellChangeTimes->{
  3.817915945113223*^9, 3.817916114719005*^9, 3.817916189183022*^9, {
   3.817917294193466*^9, 3.817917308152062*^9}, 3.8179192204911613`*^9, 
   3.817919290432378*^9, 3.8179193608789997`*^9, 3.8179194298706284`*^9, 
   3.8179460700200377`*^9, 3.817946505626543*^9},
 CellLabel->
  "Out[1226]=",ExpressionUUID->"a50808c8-7a85-4448-a640-1cb0de14961d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Mean and cov", "Title",
 CellChangeTimes->{{3.8179127003210583`*^9, 
  3.817912719882061*^9}},ExpressionUUID->"0adf67cf-f68e-4664-a8cf-\
46e0a0bc33f0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", "data", "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.817916151362129*^9, 3.817916159667696*^9}},
 CellLabel->
  "In[1227]:=",ExpressionUUID->"21314c3d-f67e-4595-93c8-c2ed978828c6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"muML", "=", 
   RowBox[{
    RowBox[{"Mean", "[", "data", "]"}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"muML", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.817745087825576*^9, 3.817745097983781*^9}, {
  3.8179145107043257`*^9, 3.817914511973358*^9}},
 CellLabel->
  "In[1228]:=",ExpressionUUID->"f057945d-b82f-4727-a4fe-b53c8d76a745"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"2662.326666666667`"},
      {"3019.5`"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8177450916873198`*^9, 3.8177450982309628`*^9}, {
   3.817746274976153*^9, 3.817746288630032*^9}, 3.817913319263022*^9, 
   3.817914512243574*^9, 3.817916114728157*^9, 3.817916189200631*^9, 
   3.8179192205052032`*^9, 3.817919429892717*^9, 3.8179465056506567`*^9},
 CellLabel->
  "Out[1229]//MatrixForm=",ExpressionUUID->"b2f57804-a8d6-4961-8d5b-\
b2252b3d1b32"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dataCov", "=", 
  RowBox[{
   RowBox[{"Covariance", "[", "data", "]"}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.8177445910064363`*^9, 3.817744597519318*^9}},
 CellLabel->
  "In[1230]:=",ExpressionUUID->"60604926-5934-4682-8805-f6692fe433e2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"24828.959686800896`", ",", "102.74161073825503`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"102.74161073825503`", ",", "218.01006711409397`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.817744593985813*^9, 3.817744597798848*^9}, {
   3.8177462792372513`*^9, 3.817746288673731*^9}, 3.8179133193016577`*^9, 
   3.817914513095316*^9, 3.8179161147482557`*^9, 3.817916189205905*^9, 
   3.817919220510672*^9, 3.817919429898571*^9, 3.817946505656932*^9},
 CellLabel->
  "Out[1230]=",ExpressionUUID->"6132d2e3-f161-4f05-a1fe-ea42a23d8fc8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Weights", "Title",
 CellChangeTimes->{{3.817744589688663*^9, 3.817744590361965*^9}, {
  3.8179127478586893`*^9, 
  3.817912749811759*^9}},ExpressionUUID->"e418cc54-fb15-4f55-b9af-\
8b6384afad97"],

Cell["No hidden variables < No visibles = d", "Subtitle",
 CellChangeTimes->{{3.81791572160341*^9, 
  3.817915730281624*^9}},ExpressionUUID->"86b3d162-6037-427f-88ed-\
51d2703ea291"],

Cell[BoxData[
 RowBox[{
  RowBox[{"q", "=", "1"}], ";"}]], "Input",
 CellLabel->
  "In[1231]:=",ExpressionUUID->"324982e1-2d3e-40d7-8573-9a483fb24765"],

Cell[CellGroupData[{

Cell["Variance", "Subtitle",
 CellChangeTimes->{{3.817915735133843*^9, 
  3.817915744083641*^9}},ExpressionUUID->"09ad5774-7c36-4d79-a029-\
aec048373f7f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"lambdas", ",", "eigenvecsT"}], "}"}], "=", 
   RowBox[{"Eigensystem", "[", "dataCov", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eigenvecs", "=", 
   RowBox[{"Transpose", "[", "eigenvecsT", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8177446125492687`*^9, 3.8177446282648973`*^9}, {
  3.817744710748069*^9, 3.8177447208859787`*^9}},
 CellLabel->
  "In[1232]:=",ExpressionUUID->"8b18cfb7-b24e-4001-970f-78c80f830bd5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"varML", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1.0", "/", 
     RowBox[{"(", 
      RowBox[{"d", "-", "q"}], ")"}]}], ")"}], "*", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"lambdas", "[", 
      RowBox[{"[", "j", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", 
       RowBox[{"q", "+", "1"}], ",", "d"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8177447415647583`*^9, 3.817744798299396*^9}, {
  3.8177448627526484`*^9, 3.817744862840005*^9}, {3.817915719203714*^9, 
  3.8179157201542797`*^9}},
 CellLabel->
  "In[1234]:=",ExpressionUUID->"9495e804-7d37-4ca3-a382-b69f622a9ab8"],

Cell[BoxData["217.58116636932957`"], "Output",
 CellChangeTimes->{
  3.817744798648778*^9, 3.817744864098041*^9, {3.817746279258977*^9, 
   3.817746288695826*^9}, 3.817913322116988*^9, 3.817915738124413*^9, 
   3.817916114779214*^9, 3.817916189229129*^9, 3.8179192205288486`*^9, 
   3.817919429921693*^9, 3.8179465056881657`*^9},
 CellLabel->
  "Out[1234]=",ExpressionUUID->"086a8899-9a99-42da-be84-d5b9b47d4a91"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Weight matrix", "Subtitle",
 CellChangeTimes->{{3.8179157482435513`*^9, 
  3.817915757971977*^9}},ExpressionUUID->"0cf0e24f-25fb-4270-a06e-\
00d68e4bac4a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "[", 
  RowBox[{"[", 
   RowBox[{";;", "3"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8179301091757*^9, 3.817930113596916*^9}},
 CellLabel->
  "In[1235]:=",ExpressionUUID->"9641abd7-30cc-4f3a-a395-fda86b6f8053"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.8179301137935143`*^9, 3.817946505693297*^9},
 CellLabel->
  "Out[1235]=",ExpressionUUID->"4bb8ff9c-5eb7-496b-98eb-780baa887c54"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"uq", "=", 
   RowBox[{"eigenvecs", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", 
      RowBox[{";;", "q"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"uq", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.817744890797736*^9, 3.81774491092122*^9}},
 CellLabel->
  "In[1236]:=",ExpressionUUID->"309e5ad3-630a-4622-bba6-3dd2fd288060"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "0.9999912866494115`"}]},
     {
      RowBox[{"-", "0.004174520961078578`"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.817744905513761*^9, 3.8177449115285673`*^9}, {
   3.817746279263805*^9, 3.817746288711372*^9}, 3.8179133221392527`*^9, 
   3.81791575860007*^9, 3.817916114784967*^9, 3.817916189234721*^9, 
   3.817919220534133*^9, 3.8179194299386597`*^9, 3.817946505699168*^9},
 CellLabel->
  "Out[1237]//MatrixForm=",ExpressionUUID->"e9826e00-8edd-4312-a2f2-\
047aa61e3c81"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"lambdaq", "=", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"lambdas", "[", 
     RowBox[{"[", 
      RowBox[{";;", "q"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"lambdaq", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.817744915161652*^9, 3.8177449316282463`*^9}},
 CellLabel->
  "In[1238]:=",ExpressionUUID->"8ceeb3b4-7582-4dfe-9400-0a16ba912db4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"24829.38858754566`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.817744931861322*^9, {3.817746279268436*^9, 3.817746288716386*^9}, 
   3.8179133221441393`*^9, 3.817915758954479*^9, 3.817916114790374*^9, 
   3.8179161892516747`*^9, 3.81791922054815*^9, 3.817919429944641*^9, 
   3.817946505705868*^9},
 CellLabel->
  "Out[1239]//MatrixForm=",ExpressionUUID->"475f71f5-f241-4619-8b69-\
11f77e8228f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"weightML", "=", 
   RowBox[{"uq", ".", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"lambdaq", "-", 
      RowBox[{"varML", "*", 
       RowBox[{"IdentityMatrix", "[", "q", "]"}]}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"weightML", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.817744936896693*^9, 3.8177449723180923`*^9}, {
  3.817915761411372*^9, 3.817915765409224*^9}},
 CellLabel->
  "In[1240]:=",ExpressionUUID->"d45cfd86-441d-47fa-8ddc-2b162de18c96"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "156.88014061834457`"}]},
     {
      RowBox[{"-", "0.654905141806337`"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.817744966159976*^9, 3.817744972551901*^9}, {
   3.817746279285472*^9, 3.817746288732872*^9}, 3.817913322161819*^9, {
   3.8179157595362453`*^9, 3.8179157657579107`*^9}, 3.8179161148087187`*^9, 
   3.817916189257844*^9, 3.817919220553754*^9, 3.817919429949759*^9, 
   3.8179465057241783`*^9},
 CellLabel->
  "Out[1241]//MatrixForm=",ExpressionUUID->"4570fd4a-7c8f-45ba-93da-\
9efc45283c82"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sample hidden from visible", "Title",
 CellChangeTimes->{{3.8177450020062237`*^9, 3.817745003630931*^9}, {
  3.817915261619259*^9, 
  3.8179152649508*^9}},ExpressionUUID->"199b924d-59e2-48ce-ba5d-fdbcc46bb3ac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"actHidden", "=", 
   RowBox[{"sampleHiddenGivenVisible", "[", 
    RowBox[{"weightML", ",", "muML", ",", "varML", ",", "data"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.817915674331492*^9, 3.8179156828147287`*^9}},
 CellLabel->
  "In[1242]:=",ExpressionUUID->"105dc633-3fb0-4808-b1c7-dc9dbd47beeb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", 
  RowBox[{"plotHist1D", "[", 
   RowBox[{"actHidden", ",", "\"\<Sampled hidden from visible\>\""}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"figuresDir", "<>", "\"\<sample_hidden_from_visible.png\>\""}], 
   ",", "p", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "200"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.8179156976366243`*^9, {3.817946075277367*^9, 3.8179460845487623`*^9}, {
   3.817946542806617*^9, 3.8179465474635067`*^9}},
 CellLabel->
  "In[1279]:=",ExpressionUUID->"764cc9dd-1758-4c6f-8946-54c79086525c"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.602], Thickness[
    Small]}], {}, 
    {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.602], Thickness[
     Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{-3., 0}, {-2.5, 2.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{34.18000000000001, 64.4}, {99.21714897811363, 
            113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{-2.5, 0}, {-2., 3.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{63.900000000000006`, 94.12}, {92.40091005687748, 
            113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 3]& ,
        TagBoxNote->"3"],
       StyleBox["3", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[3, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{-2., 0}, {-1.5, 8.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{93.62, 123.84}, {58.31971545069677, 
            113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 8]& ,
        TagBoxNote->"8"],
       StyleBox["8", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[8, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{-1.5, 0}, {-1., 13.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{123.34, 153.56}, {24.23852084451606, 
            113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 13]& ,
        TagBoxNote->"13"],
       StyleBox["13", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[13, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{-1., 0}, {-0.5, 19.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{153.06, 183.28}, {-16.65891268290079, 
            113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 19]& ,
        TagBoxNote->"19"],
       StyleBox["19", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[19, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{-0.5, 0}, {0., 22.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{182.78, 213.}, {-37.107629446609224`, 
            113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 22]& ,
        TagBoxNote->"22"],
       StyleBox["22", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[22, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{0., 0}, {0.5, 32.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{212.5, 242.72}, {-105.27001865897066`, 
            113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 32]& ,
        TagBoxNote->"32"],
       StyleBox["32", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[32, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{0.5, 0}, {1., 30.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{242.22, 272.44}, {-91.63754081649836, 
            113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 30]& ,
        TagBoxNote->"30"],
       StyleBox["30", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[30, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{1., 0}, {1.5, 14.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{271.94, 302.15999999999997`}, {17.42228192327991,
             113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 14]& ,
        TagBoxNote->"14"],
       StyleBox["14", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[14, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{1.5, 0}, {2., 5.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{301.65999999999997`, 331.88}, {78.7684322144052, 
            113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 5]& ,
        TagBoxNote->"5"],
       StyleBox["5", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[5, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{2., 0}, {2.5, 1.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{331.38, 361.6}, {106.03338789934976`, 
            113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{2.5, 0}, {3., 1.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{361.1, 391.32}, {106.03338789934976`, 
            113.34962682058591`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {FontFamily -> "Times"}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{-3.12, 0},
  BaseStyle->{FontSize -> 24},
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  LabelStyle->{FontFamily -> "Times"},
  PlotLabel->FormBox["\"Sampled hidden from visible\"", TraditionalForm],
  PlotRange->{{-3., 3.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {None, 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.81791569785872*^9, 3.81791611486971*^9, 
  3.817916189309737*^9, 3.8179192206059837`*^9, 3.817919430000942*^9, 
  3.8179460849686728`*^9, 3.817946505795258*^9, 3.817946567410784*^9},
 CellLabel->
  "Out[1279]=",ExpressionUUID->"daef6b86-c53f-480c-b7f3-527e2e7552cb"],

Cell[BoxData["\<\"figures_ma/sample_hidden_from_visible.png\"\>"], "Output",
 CellChangeTimes->{3.81791569785872*^9, 3.81791611486971*^9, 
  3.817916189309737*^9, 3.8179192206059837`*^9, 3.817919430000942*^9, 
  3.8179460849686728`*^9, 3.817946505795258*^9, 3.8179465676075983`*^9},
 CellLabel->
  "Out[1280]=",ExpressionUUID->"7b18da73-bc98-43e5-bfec-7ff034a1d08a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sample new visibles", "Title",
 CellChangeTimes->{{3.817745008695101*^9, 3.817745009814685*^9}, {
  3.817745283399747*^9, 
  3.817745285001286*^9}},ExpressionUUID->"2b441a9a-318a-4966-b2d1-\
3bbfec8a5cfb"],

Cell["Sample hidden", "Subtitle",
 CellChangeTimes->{{3.817914539621166*^9, 
  3.817914541784897*^9}},ExpressionUUID->"8e2ca781-65ae-4d35-b4ba-\
33f11e58f22b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"noSamples", "=", 
   RowBox[{"Length", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mean", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", "q"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cov", "=", 
   RowBox[{"IdentityMatrix", "[", "q", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hiddenSamples", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"MultinormalDistribution", "[", 
      RowBox[{"mean", ",", "cov"}], "]"}], ",", "noSamples"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8177453045963707`*^9, 3.817745367440845*^9}, {
  3.817914506099351*^9, 3.8179145365881166`*^9}},
 CellLabel->
  "In[1245]:=",ExpressionUUID->"b40ec41d-a39b-4364-91e1-f679bd6fa18c"],

Cell[CellGroupData[{

Cell["Sample visible given hidden", "Subtitle",
 CellChangeTimes->{{3.817914543588189*^9, 
  3.817914549455222*^9}},ExpressionUUID->"e3fcba9a-23b4-430f-bb9f-\
071dc0656a6e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"actVisible", "=", 
   RowBox[{"sampleVisibleGivenHidden", "[", 
    RowBox[{"weightML", ",", "muML", ",", "varML", ",", "hiddenSamples"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.817745372854723*^9, 3.817745430416737*^9}, {
  3.817746160777866*^9, 3.8177461856803007`*^9}, {3.817914497450725*^9, 
  3.817914519878937*^9}, {3.817914551295848*^9, 3.817914552927302*^9}},
 CellLabel->
  "In[1249]:=",ExpressionUUID->"cfa30d7f-4249-471f-964e-23b0f0465039"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Covariance visibles (data): \>\"", ",", 
   RowBox[{"dataCov", "//", "MatrixForm"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Covariance visibles (sampled): \>\"", ",", 
   RowBox[{
    RowBox[{"Covariance", "[", "actVisible", "]"}], "//", "MatrixForm"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.817745491179859*^9, 3.817745493318486*^9}, {
  3.817914555066578*^9, 3.817914601981699*^9}},
 CellLabel->
  "In[1250]:=",ExpressionUUID->"7b890ae3-70ca-4ab5-8a60-cda65e21705c"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Covariance visibles (data): \"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"24828.959686800896`", "102.74161073825503`"},
       {"102.74161073825503`", "218.01006711409397`"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Covariance visibles (data): ", 
   MatrixForm[{{24828.959686800896`, 102.74161073825503`}, {
    102.74161073825503`, 218.01006711409397`}}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.817914569299342*^9, 3.817914602217141*^9}, 
   3.8179161148993692`*^9, 3.817916189339676*^9, 3.81791922063515*^9, 
   3.817919430030006*^9, 3.817946102614313*^9, 3.817946506043548*^9},
 CellLabel->
  "During evaluation of \
In[1250]:=",ExpressionUUID->"55fdbf45-ca61-4dd0-ad10-0a4954d5f81c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Covariance visibles (sampled): \"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"24184.692265085978`", 
        RowBox[{"-", "54.79096028349647`"}]},
       {
        RowBox[{"-", "54.79096028349647`"}], "185.50474149947058`"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Covariance visibles (sampled): ", 
   MatrixForm[{{24184.692265085978`, -54.79096028349647}, {-54.79096028349647,
     185.50474149947058`}}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.817914569299342*^9, 3.817914602217141*^9}, 
   3.8179161148993692`*^9, 3.817916189339676*^9, 3.81791922063515*^9, 
   3.817919430030006*^9, 3.817946102614313*^9, 3.817946506045556*^9},
 CellLabel->
  "During evaluation of \
In[1250]:=",ExpressionUUID->"063054c1-39c7-4fed-a952-dde533bc9a9b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Mean visibles (data): \>\"", ",", 
   RowBox[{"muML", "//", "MatrixForm"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Mean visibles (sampled): \>\"", ",", 
   RowBox[{
    RowBox[{"Mean", "[", "actVisible", "]"}], "//", "MatrixForm"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.817914635291795*^9, 3.8179146525740232`*^9}},
 CellLabel->
  "In[1252]:=",ExpressionUUID->"6098852d-578c-462d-81ba-6bd37599dc25"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Mean visibles (data): \"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {"2662.326666666667`"},
        {"3019.5`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Mean visibles (data): ", 
   MatrixForm[{2662.326666666667, 3019.5}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.817914644304119*^9, 3.8179146528318996`*^9}, 
   3.817916114921324*^9, 3.817916189359685*^9, 3.817919220652193*^9, 
   3.8179194300501823`*^9, 3.8179461030574207`*^9, 3.8179465060517063`*^9},
 CellLabel->
  "During evaluation of \
In[1252]:=",ExpressionUUID->"87ca1d08-8028-49c0-a22c-d912a51ac60e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Mean visibles (sampled): \"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {"2674.4809701573727`"},
        {"3017.136286147325`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Mean visibles (sampled): ", 
   MatrixForm[{2674.4809701573727`, 3017.136286147325}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.817914644304119*^9, 3.8179146528318996`*^9}, 
   3.817916114921324*^9, 3.817916189359685*^9, 3.817919220652193*^9, 
   3.8179194300501823`*^9, 3.8179461030574207`*^9, 3.8179465060536118`*^9},
 CellLabel->
  "During evaluation of \
In[1252]:=",ExpressionUUID->"c5d152b9-2985-4e6e-b9d3-43d75c0c69ca"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot", "Subtitle",
 CellChangeTimes->{{3.817914816827745*^9, 
  3.817914817655183*^9}},ExpressionUUID->"e44cfc47-7480-4c9d-a6c1-\
b3108c720d9e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", 
  RowBox[{"plotHist1D", "[", 
   RowBox[{"hiddenSamples", ",", "\"\<Hidden uniform from std. normal\>\""}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"figuresDir", "<>", "\"\<sample_hidden_std_normal.png\>\""}], ",", 
   "p", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "200"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.817915013699489*^9, 3.817915056501171*^9}, {
  3.817934011336886*^9, 3.817934018077818*^9}, {3.817946091987544*^9, 
  3.8179461455094748`*^9}},
 CellLabel->
  "In[1254]:=",ExpressionUUID->"dd45d596-418b-4c68-9972-d4359f74a879"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.602], Thickness[
    Small]}], {}, 
    {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.602], Thickness[
     Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{-2.5, 0}, {-2., 2.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{33.93000000000001, 63.14999999999999}, {
            96.34962669677881, 109.62420196121225`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{-2., 0}, {-1.5, 10.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{62.64999999999999, 91.86999999999999}, {
            45.251325639045106`, 109.62420196121225`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 10]& ,
        TagBoxNote->"10"],
       StyleBox["10", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[10, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{-1.5, 0}, {-1., 13.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{91.36999999999999, 120.58999999999997`}, {
            26.089462742394957`, 109.62420196121225`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 13]& ,
        TagBoxNote->"13"],
       StyleBox["13", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[13, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{-1., 0}, {-0.5, 33.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{120.08999999999997`, 
            149.30999999999997`}, {-101.65628990193936`, 
            109.62420196121225`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 33]& ,
        TagBoxNote->"33"],
       StyleBox["33", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[33, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{-0.5, 0}, {0., 22.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{148.80999999999997`, 
            178.02999999999997`}, {-31.39612594755549, 109.62420196121225`}}],
          
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 22]& ,
        TagBoxNote->"22"],
       StyleBox["22", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[22, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{0., 0}, {0.5, 26.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{177.52999999999997`, 
            206.74999999999997`}, {-56.945276476422336`, 
            109.62420196121225`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 26]& ,
        TagBoxNote->"26"],
       StyleBox["26", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[26, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{0.5, 0}, {1., 24.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{206.24999999999997`, 
            235.46999999999997`}, {-44.17070121198891, 109.62420196121225`}}],
          
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 24]& ,
        TagBoxNote->"24"],
       StyleBox["24", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[24, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{1., 0}, {1.5, 13.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{234.96999999999997`, 264.18999999999994`}, {
            26.089462742394957`, 109.62420196121225`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 13]& ,
        TagBoxNote->"13"],
       StyleBox["13", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[13, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{1.5, 0}, {2., 6.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{263.68999999999994`, 292.90999999999997`}, {
            70.80047616791197, 109.62420196121225`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{3., 0}, {3.5, 1.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{349.8499999999999, 379.06999999999994`}, {
            102.73691432899554`, 109.62420196121225`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {FontFamily -> "Times"}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{-2.62, 0},
  BaseStyle->{FontSize -> 24},
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  LabelStyle->{FontFamily -> "Times"},
  PlotLabel->FormBox["\"Hidden uniform from std. normal\"", TraditionalForm],
  PlotRange->{{-2.5, 3.5}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {None, 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.81791501529443*^9, 3.817915056867742*^9}, 
   3.817916114970599*^9, 3.817916189396792*^9, 3.817919220699407*^9, 
   3.8179194300992403`*^9, 3.817934018427252*^9, 3.817946104260977*^9, 
   3.817946145974349*^9, 3.8179465060995207`*^9},
 CellLabel->
  "Out[1254]=",ExpressionUUID->"e0a11d5d-5dbb-4629-8acb-6974eb7d674c"],

Cell[BoxData["\<\"figures_ma/sample_hidden_std_normal.png\"\>"], "Output",
 CellChangeTimes->{{3.81791501529443*^9, 3.817915056867742*^9}, 
   3.817916114970599*^9, 3.817916189396792*^9, 3.817919220699407*^9, 
   3.8179194300992403`*^9, 3.817934018427252*^9, 3.817946104260977*^9, 
   3.817946145974349*^9, 3.817946506306892*^9},
 CellLabel->
  "Out[1255]=",ExpressionUUID->"712aab88-ba4b-4fd8-9201-059c22b78c60"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", 
  RowBox[{"plotDataVisibleAndActivated", "[", 
   RowBox[{"data", ",", "actVisible"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"figuresDir", "<>", "\"\<sample_visible_from_hidden.png\>\""}], 
   ",", "p", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "200"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8179146630788803`*^9, 3.817914667526471*^9}, {
  3.817946148233912*^9, 3.817946159885456*^9}},
 CellLabel->
  "In[1256]:=",ExpressionUUID->"f87a952d-5d7c-4196-a2f2-4faf8aea2d78"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{
        {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.623], Thickness[
         Small]}], {}, 
         {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.623], Thickness[
          Small]}], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2200., 0}, {2300., 1.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{34.179999999999836`, 74.3066666666665}, {
                 107.41665434256765`, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2300., 0}, {2400., 4.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{73.8066666666665, 113.93333333333317`}, {
                 91.0576809316009, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 4]& ,
             TagBoxNote->"4"],
            StyleBox["4", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[4, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2400., 0}, {2500., 13.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{113.43333333333317`, 153.55999999999983`}, {
                 41.980760698700664`, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 13]& ,
             TagBoxNote->"13"],
            StyleBox["13", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[13, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2500., 0}, {2600., 38.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{153.05999999999983`, 
                 193.1866666666665}, {-94.34401772602226, 
                 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 38]& ,
             TagBoxNote->"38"],
            StyleBox["38", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[38, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2600., 0}, {2700., 36.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{192.6866666666665, 
                 232.81333333333328`}, {-83.4380354520444, 
                 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 36]& ,
             TagBoxNote->"36"],
            StyleBox["36", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[36, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2700., 0}, {2800., 30.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{232.31333333333328`, 
                 272.4399999999998}, {-50.72008863011092, 
                 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 30]& ,
             TagBoxNote->"30"],
            StyleBox["30", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[30, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2800., 0}, {2900., 15.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{271.9399999999998, 312.0666666666666}, {
                 31.074778424722822`, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 15]& ,
             TagBoxNote->"15"],
            StyleBox["15", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[15, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2900., 0}, {3000., 10.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{311.5666666666666, 351.69333333333316`}, {
                 58.339734109667404`, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 10]& ,
             TagBoxNote->"10"],
            StyleBox["10", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[10, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{3000., 0}, {3100., 3.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{351.19333333333316`, 391.31999999999994`}, {
                 96.51067206858983, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 3]& ,
             TagBoxNote->"3"],
            StyleBox["3", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[3, {FontFamily -> "Times"}], 
            "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {
        {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.616], Thickness[
         Small]}], {}, 
         {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.616], Thickness[
          Small]}], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2100., 0}, {2200., 1.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{-5.446666666666829, 34.679999999999836`}, {
                 107.41665434256765`, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2300., 0}, {2400., 4.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{73.8066666666665, 113.93333333333317`}, {
                 91.0576809316009, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 4]& ,
             TagBoxNote->"4"],
            StyleBox["4", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[4, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2400., 0}, {2500., 12.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{113.43333333333317`, 153.55999999999983`}, {
                 47.43375183568958, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 12]& ,
             TagBoxNote->"12"],
            StyleBox["12", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[12, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2500., 0}, {2600., 35.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{153.05999999999983`, 
                 193.1866666666665}, {-77.98504431505549, 
                 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 35]& ,
             TagBoxNote->"35"],
            StyleBox["35", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[35, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2600., 0}, {2700., 28.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{192.6866666666665, 
                 232.81333333333328`}, {-39.814106356133095`, 
                 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 28]& ,
             TagBoxNote->"28"],
            StyleBox["28", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[28, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2700., 0}, {2800., 40.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{232.31333333333328`, 
                 272.4399999999998}, {-105.25000000000009`, 
                 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 40]& ,
             TagBoxNote->"40"],
            StyleBox["40", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[40, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2800., 0}, {2900., 17.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{271.9399999999998, 312.0666666666666}, {
                 20.168796150744996`, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 17]& ,
             TagBoxNote->"17"],
            StyleBox["17", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[17, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2900., 0}, {3000., 12.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{311.5666666666666, 351.69333333333316`}, {
                 47.43375183568958, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 12]& ,
             TagBoxNote->"12"],
            StyleBox["12", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[12, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{3000., 0}, {3100., 1.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{351.19333333333316`, 391.31999999999994`}, {
                 107.41665434256765`, 113.36964547955657`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {FontFamily -> "Times"}], 
            "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{2182., 0},
      BaseStyle->{FontSize -> 24},
      Frame->True,
      FrameLabel->{{None, None}, {None, None}},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      PlotLabel->FormBox["\"Visible dim 1\"", TraditionalForm],
      PlotRange->{{2200., 3100.}, {All, All}},
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {None, 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{
        {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.616], Thickness[
         Small]}], {}, 
         {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.616], Thickness[
          Small]}], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2960., 0}, {2970., 1.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{33.852040816325825`, 68.44183673469342}, {
                 103.70567158040413`, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2970., 0}, {2980., 1.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{67.94183673469342, 102.53163265306102`}, {
                 103.70567158040413`, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2990., 0}, {3000., 10.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{136.12142857142862`, 170.7112244897944}, {
                 67.62053951355877, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 10]& ,
             TagBoxNote->"10"],
            StyleBox["10", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[10, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3000., 0}, {3010., 22.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{170.2112244897944, 204.801020408162}, {
                 19.507030091098287`, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 22]& ,
             TagBoxNote->"22"],
            StyleBox["22", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[22, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3010., 0}, {3020., 44.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{204.301020408162, 
                 238.8908163265296}, {-68.70107051674593, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 44]& ,
             TagBoxNote->"44"],
            StyleBox["44", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[44, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3020., 0}, {3030., 31.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{238.3908163265296, 
                 272.9806122448972}, {-16.578101975747074`, 
                 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 31]& ,
             TagBoxNote->"31"],
            StyleBox["31", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[31, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3030., 0}, {3040., 28.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{272.4806122448972, 
                 307.0704081632648}, {-4.549724620131954, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 28]& ,
             TagBoxNote->"28"],
            StyleBox["28", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[28, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3040., 0}, {3050., 10.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{306.5704081632648, 341.1602040816324}, {
                 67.62053951355877, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 10]& ,
             TagBoxNote->"10"],
            StyleBox["10", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[10, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{3050., 0}, {3060., 3.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{340.6602040816324, 375.2499999999982}, {
                 95.68675334332738, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 3]& ,
             TagBoxNote->"3"],
            StyleBox["3", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[3, {FontFamily -> "Times"}], 
            "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {
        {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.623], Thickness[
         Small]}], {}, 
         {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.623], Thickness[
          Small]}], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2970., 0}, {2980., 1.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{67.94183673469342, 102.53163265306102`}, {
                 103.70567158040413`, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2980., 0}, {2990., 5.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{102.03163265306102`, 136.62142857142862`}, {
                 87.66783510625064, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 5]& ,
             TagBoxNote->"5"],
            StyleBox["5", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[5, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2990., 0}, {3000., 9.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{136.12142857142862`, 170.7112244897944}, {
                 71.62999863209714, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 9]& ,
             TagBoxNote->"9"],
            StyleBox["9", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[9, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3000., 0}, {3010., 23.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{170.2112244897944, 204.801020408162}, {
                 15.497570972559913`, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 23]& ,
             TagBoxNote->"23"],
            StyleBox["23", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[23, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3010., 0}, {3020., 52.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{204.301020408162, 
                 238.8908163265296}, {-100.77674346505292`, 
                 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 52]& ,
             TagBoxNote->"52"],
            StyleBox["52", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[52, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3020., 0}, {3030., 39.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{238.3908163265296, 
                 272.9806122448972}, {-48.653774924054076`, 
                 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 39]& ,
             TagBoxNote->"39"],
            StyleBox["39", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[39, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3030., 0}, {3040., 13.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{272.4806122448972, 307.0704081632648}, {
                 55.59216215794365, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 13]& ,
             TagBoxNote->"13"],
            StyleBox["13", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[13, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{3040., 0}, {3050., 6.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{306.5704081632648, 341.1602040816324}, {
                 83.65837598771226, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 6]& ,
             TagBoxNote->"6"],
            StyleBox["6", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[6, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{3050., 0}, {3060., 2.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{340.6602040816324, 375.2499999999982}, {
                 99.69621246186576, 108.2151306989425}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 2]& ,
             TagBoxNote->"2"],
            StyleBox["2", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[2, {FontFamily -> "Times"}], 
            "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{2958., 0},
      BaseStyle->{FontSize -> 24},
      Frame->True,
      FrameLabel->{{None, None}, {None, None}},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      PlotLabel->FormBox["\"Visible dim 2\"", TraditionalForm],
      PlotRange->{{2960., 3060.}, {All, All}},
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {None, 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     TemplateBox[{"\"Data\"", "\"Sampled\""},
      "LineLegend",
      DisplayFunction->(StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.5], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 40}, {40, 40}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.5], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 40}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.4] -> Baseline)], #}, {
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.3], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 40}, {40, 40}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.3], 
                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 40}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.4] -> Baseline)], #2}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}],
                "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
           "Grid"], Alignment -> Left, AppearanceElements -> None, 
          ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"],
          LineIndent -> 0, StripOnInput -> False], {
         Directive[FontSize -> 24], FontFamily -> "Arial"}, Background -> 
        Automatic, StripOnInput -> False]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                   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]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "0.3`", "]"}], ",", 
                   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]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.8179146679180517`*^9, 3.817914706879353*^9, 
  3.817916115100478*^9, 3.8179161895027323`*^9, 3.817919220832328*^9, 
  3.8179194302102737`*^9, 3.817946160312348*^9, 3.81794650644831*^9},
 CellLabel->
  "Out[1256]=",ExpressionUUID->"e9926f7c-62bf-4bc8-9bca-f200e28a9c15"],

Cell[BoxData["\<\"figures_ma/sample_visible_from_hidden.png\"\>"], "Output",
 CellChangeTimes->{3.8179146679180517`*^9, 3.817914706879353*^9, 
  3.817916115100478*^9, 3.8179161895027323`*^9, 3.817919220832328*^9, 
  3.8179194302102737`*^9, 3.817946160312348*^9, 3.8179465069275227`*^9},
 CellLabel->
  "Out[1257]=",ExpressionUUID->"60de31ae-473f-4780-a5fb-92ea1d345fa5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", 
  RowBox[{"plotScatterVisibleAndActivated2D", "[", 
   RowBox[{"data", ",", "actVisible"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"figuresDir", "<>", "\"\<sample_visible_from_hidden.png\>\""}], 
   ",", "p", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "200"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.817915964888817*^9, 3.817915967155257*^9}, {
  3.817916035035447*^9, 3.817916041716774*^9}, {3.817946163761898*^9, 
  3.8179461730839148`*^9}},
 CellLabel->
  "In[1258]:=",ExpressionUUID->"4763106c-00bb-447c-89b4-35183746b554"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{{}, 
        {RGBColor[1, 0, 0], PointSize[0.009166666666666668], 
         AbsoluteThickness[1.6], CapForm["Butt"], 
         StyleBox[PointBox[CompressedData["
1:eJx1lk9IVFEUh4cQiZCIaNGyJGYh0SKixaxmIRLSQqRFiyEiTEQGk0FCQkQi
QiQkJIaIeEwz740uZIhBQkIGkQiZhUiEi2GIFi1aRKsWES0y3/cL7g8S5PBx
7/l7zzlvzt+5N3r3WCaTKR/+/5VHf604fySbq6mcTlK5CPdwPglv1lJZhovc
n4d/c74F/6ynsg1f4f4DeAb7u/AovAPn0J+Ff3AewZ0kjH8b/9PwVe5XzP4U
PAs/g7+g/xLeSCxf4lmHr8N1eA17S6thHk9VH8434C38PYJvmr/BOIyni7+3
cAH9GP5cC/PJ10P7FzjX+xaw/wJuwm/gFvFU4RHOV+AM9qbMf9Xq/xguJSEP
wC3rpyfm74PqST7LcK/Fe4rzOfg+9iqWv+6/Q1/vuW/1GUNf9a9wvgavo6/6
T5m9CfRV/3Pov4aHa2G+6gfFG8Wh/jXy0/yo/8bh7/jTfKh/dP8X9tWXe1aP
uBrmc4D9BjwE7yse67+uzafqJf9te78K/tTvc8T/XnMDF83eor23/J22fnsO
L1j9lu09tC+0X2bg/iTM74ztwxNxGM+OzVMDVn9H2MvBk8SjfdCuplL7MGP9
ExHvQ5sX7Z9e61ftG90fTEI+a/tmwPbVEPGoPl/x39E+VR7IT1avEv5V7459
b8bgeTuXf+072c+9SqXe97jll/f9TjwH8JLtn6ztj6LN2ze9o+bL+mmvmkrt
2/E4vB/ZvtY+7KpfbL/22HtnrV5N2y9l3qMEn9TeQ+7a9/wj9y/Z90/2Cklo
b9v2RUS+2lf96N+CF9BXfS7bvN6270fZvs8jNp+aD/VzA3uqr35XbCIv4v/f
9wD7qu9ELbTfZ5y197gBK/9h7ZX/fG/78Hc4j38AzICv2Q==
           "]],
          FontSize->24]}, {{}, {}}}, {{}, 
        {RGBColor[0, 0, 1], PointSize[0.009166666666666668], 
         AbsoluteThickness[1.6], CapForm["Butt"], 
         StyleBox[PointBox[CompressedData["
1:eJwVVnlcjWkbVhg+SV+hKGVsLZTPaQqNyjUzJaOJ0kKKyDpo06ZUk0+RElKh
qDjv+57ntExaLS2WSGin00IrpqaaqSkhDM09f5zf+Z3f87z3ua/rvq7rfue5
e23cLT9u3Ljz9Pn3+/7iRX805IlhZDcUknOBIaihfc36VwIsbfzfa0cyqEpV
ldeVc3hw0GB/vYShLnTouGElB5FvWVdtCYPCmna7rNM8Krim7OxohrSqd38G
6PIwsQ5rMY9l6LmwUKYRw8PldePclkQG04++bot1eOgf/TDvdiDDl9WC/4nT
HO6e6Z/vzDPc2xZivUOL4dnJSt+mAIbcmU82trgKKA+I+ySOYPjhdLybdo2A
xanDayacZbBa/migcK6Aiv6sA62nGDpVcqKNEwWcMNyeKzvB0Ox5xiXhOx6f
/nzUPjeBYWG7D3sWx4CkzS7SXxicXtmsvTVbgusWux6fyGJQd3tTYvaZw9u8
mFs9lxnmHvIdPvmYw+PK/x2MIjzhnRqc30oBtsunJhYeZehaXOi13oBHh6lq
lzLxVRfVn58u5uG8oFs+IYPBZvKMB0f7JbgkSmuIrmFoFPZceG7EIeyrUZVo
qp/zJeqQ5wQJbHfIzMxzGH7Pyo13GOaw4NeWTVIfhm3b/MoX9nO4attbMebP
kOCYYYlxAh5aa0Z8LGTQ0v3PjGWTONyqnqel780QpnPj/pcXAop7vBOn/syQ
UTG4MN1AQKRyeI1PPEPHYMc6r3ge5ZVfjYycZ/itcm7oTw85PK/IGv7pOOFX
nejY7i+gp9phgfFVBkORbZmhvoDhreafG8oZsiwCXzoYcjjucveNmpT6vayo
VaMuweBFqX8MPV/nkbvtU7AAuebDkS+yGR6/X/T+6SiPFIVpfbvo+QNevxfY
2HNI6LLI673IEGexNVBpGY/Pd5891CJ9yBWUXbseyCN01tXOgnQG2Zd3u+yX
M4jlP4atonnLlEO0FsdJoFSx7XnUJYZjn/uPm80QoJEd2f2S+OTD5uudzuSg
N01ljwb1J/7rZ9X2FjEKrMafOkP66Lk9oT57O4/Ge6nsJt3XCZ2sa+/Iwb7w
0TQlup85XFBspsjDODzMT4/mtynPcrlBjRh6MxcJPqQ/tz3mfx/24CF/tM1A
epKhokRxiepTAR66YSlBdB5yO/m1jyLxHaL2ZGcxwzdbPx6JlBMw9sZaTpXw
5SzW1ZyowWH8YFGhh5hhXcy5GCVdAfaVi2pXhTDU5t9ZO/u0gITRLaap5Ker
qQ4X9tD8HRWk3p7U77rczDTNPAlWKPsp2KcyGJ1UzCxT4HHrY2P3j0kMG3QU
wkMeiHEuvnMoKpxhuFUSYtIkwQWNTd/9sZ0h4Ja2W5wRj9gJI6HX/51PqeT7
gVoODw+cDhdZMZhNmR3NH+DRPHbDIpvw+wT3ypRUeeRkn9vLET9dr4bKXqwX
4Bpl6GdSynBYvSF4y1cC3Nus+sYI39OMM8PB/hw6Fp3q20nzavQq6nlH/i69
4C9nR+dTJ16aliLmkCyv172b9Oi3XNs4M0jA5QkuC3z3M/Rl7Hp1hOfwcuO4
KTPIn2lu2skBxwUUvp6zKpn0Kiut3V7+VgAmrzWqzyP/b3y4b9YVDr5GZ21S
NjAkmdwofLdCAoWtseaDUeT/0YTUoWIBbTXrrnQRH80mvbZuTgJuao8+D6ff
ut9t8Awc4rDI7eo7S9JT63/RM7pZQO/MuG/NKQ8rOGPX31x43PBPbrSifs5/
Op4kS+bRJbktbiE92adpyVdl8CjuzVDVz6c8HMu50+HJ4U+PjZPEpI9g6Yac
ycSX9+0UhyIHhiktZjZu6ySIedCnd4Tq/f6idL+9FuG3LNMrc2IQWUw/5lRK
enL+ZGFIeNUKfdx35AtYkhzU0Ev9BV5ZOtU6RsC1Hx3k1lBeGNo+rfE8JsHq
/nMb/M8wzE/alHLlvICS/PDMO+cYpFaxFUXrJbi/rOh7GenzmL7iWIlUgiCP
k09Sie+O0K0NU1MExHp/WnaR8oPlW1+OTxFD7sM3Y0OUz2derHmovZOHerrr
tQeUm6PZO5XbogXYrL1RtSmFoepga3t/BA/vn84/8iM86yMmDeQtpfpprtZL
SI9hk569ra4XYPR9k/oA1UvKXzWgSH4I0u/8egfpfdRks7JsOk++tDBVIT51
OlrXRPQRnspMZ2svBu+RwD0O6WK8DDCN9iT9DPYMN5+dL2DlzoEV7vYMri4V
RmrER+l49bgtlN9RU6YMNN8VcEenX6GJ9BVX6VNQtVMMh4sHfski/7Rq7k52
vswhYlTsbk/458ypN7s/wqNztV2iKJT8orn/LcsTMLtR0aYohvI/+klVG80v
zC6xQ0Z4yr29YpdnCRgtdCwMonxqHWyY1Eb5127ap6x6l+FR6XTHaZY8fJ5F
uColM7zesrC6uU6CDi2VSLvdDO/eltnWdlIeflD4uUNGfmrVGdZSY4jZXPEl
kP5fG65v9jsLOKLZFTOdMXwMijgVfJiHZViT1iHq/2xIleLftQKKnt3cokL+
/+3RcK/aewmqvj27o5b8dmiazdkFcTyU1hZO7CK+DEo0D83Uon2bbz7r/l6G
VRpvze7KS5B+2aQ7iPJH5H6xWzNcgMq2xCOXaP/mi6LmdRO+6xkG6/sIn+O+
5k21gwLMy3HKwJEhdbOZcerXEqxEW1sy7TsLe2l6qYjHwXuB8cXVDMoiu8z2
X6h+ZP31jA6GlW0DuRdLeXjKQk230P2SzyNO1lLiO397RTvxG3xCSRw+k+GD
yvAPTuTXEo2F1weteOyz50pc6VxJzkI//tQVeGTV/WpC++j/ERN9gj15fKsm
NWoiPTrv3bo335hH61/Vc9TJr4dFfYZX7ovxhtUGOweRnn2vqr2geoej9VV7
aX5p42KXOJVyMAyrc51AfjCNqi1aocYjoE10oo7qaxR7jb+nTTgumerWkZ41
9vmJRsiPS1fPuRdygPZbwOZVsUkSzLyWYe5B7z+P66sLOvcLeGqR21NFfNVM
XWrjHsYj8s688Q+qGP4BqyqryQ==
           "]],
          FontSize->24]}, {{}, {}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{2187.145833333334, 2962.166666666667},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"Data dim 2\"", TraditionalForm], None}, {
         FormBox["\"Data dim 1\"", TraditionalForm], None}},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotRange->{{2205, 3062}, {2591., 3448.}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     TemplateBox[{"\"Data\"", "\"Sampled\""},
      "LineLegend",
      DisplayFunction->(StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 40}, {40, 40}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 40}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.4] -> Baseline)], #}, {
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 40}, {40, 40}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 40}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.4] -> Baseline)], #2}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}],
                "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
           "Grid"], Alignment -> Left, AppearanceElements -> None, 
          ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"],
          LineIndent -> 0, StripOnInput -> False], {
         Directive[FontSize -> 24], FontFamily -> "Arial"}, Background -> 
        Automatic, StripOnInput -> False]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               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, 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]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.817916037625708*^9, 3.817916042029254*^9}, {
   3.817916090328437*^9, 3.8179161151620197`*^9}, 3.817916189561701*^9, 
   3.817917217663166*^9, 3.817919220896696*^9, {3.817919406394261*^9, 
   3.8179194302705107`*^9}, {3.817946167350951*^9, 3.8179461733837957`*^9}, 
   3.817946506988625*^9},
 CellLabel->
  "Out[1258]=",ExpressionUUID->"e932ac05-eeb3-4721-b3d4-43813948a918"],

Cell[BoxData["\<\"figures_ma/sample_visible_from_hidden.png\"\>"], "Output",
 CellChangeTimes->{{3.817916037625708*^9, 3.817916042029254*^9}, {
   3.817916090328437*^9, 3.8179161151620197`*^9}, 3.817916189561701*^9, 
   3.817917217663166*^9, 3.817919220896696*^9, {3.817919406394261*^9, 
   3.8179194302705107`*^9}, {3.817946167350951*^9, 3.8179461733837957`*^9}, 
   3.817946507233445*^9},
 CellLabel->
  "Out[1259]=",ExpressionUUID->"a4a86921-05ea-4220-bb17-c9dc2562f2b1"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Rescale to arbitrary latent variable Gaussian", "Title",
 CellChangeTimes->{{3.817912810038644*^9, 3.817912820723961*^9}, {
  3.817915781856841*^9, 
  3.817915791964047*^9}},ExpressionUUID->"286400d0-e445-4c02-b19c-\
270a5e52aa54"],

Cell["Rescale", "Subtitle",
 CellChangeTimes->{{3.817913145274343*^9, 
  3.817913146008422*^9}},ExpressionUUID->"e28fe19b-70e4-4ab3-8f94-\
65dc947d2847"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"meanHidden", "=", 
   RowBox[{"{", "120.0", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"covHidden", "=", 
   RowBox[{"{", 
    RowBox[{"{", "23.0", "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"weightMLRescaled", "=", 
   RowBox[{"weightML", ".", 
    RowBox[{"MatrixPower", "[", 
     RowBox[{"covHidden", ",", 
      RowBox[{"-", "0.5"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"muMLRescaled", "=", 
   RowBox[{"muML", "-", 
    RowBox[{"weightMLRescaled", ".", "meanHidden"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"muMLRescaled", "//", "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{"weightMLRescaled", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.817912836601944*^9, 3.817912865936542*^9}, {
  3.8179129559403877`*^9, 3.8179129881263313`*^9}, {3.817913084267556*^9, 
  3.817913107712406*^9}, {3.817913548244315*^9, 3.8179136013128643`*^9}, {
  3.817914753833807*^9, 3.817914771440377*^9}},
 CellLabel->
  "In[1260]:=",ExpressionUUID->"e8051624-f4bb-43cf-96bb-843225869d12"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"6587.73913845374`"},
      {"3035.8868594288056`"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.81791476751958*^9, 3.817914771671774*^9}, 
   3.817916115171379*^9, 3.817916189570808*^9, 3.817919220906699*^9, 
   3.817919430279448*^9, 3.817946507258919*^9},
 CellLabel->
  "Out[1264]//MatrixForm=",ExpressionUUID->"80727c18-0b5e-445b-9721-\
ab8d2d09a86f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "32.71177059822561`"}]},
     {
      RowBox[{"-", "0.13655716190671383`"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.81791476751958*^9, 3.817914771671774*^9}, 
   3.817916115171379*^9, 3.817916189570808*^9, 3.817919220906699*^9, 
   3.817919430279448*^9, 3.81794650726131*^9},
 CellLabel->
  "Out[1265]//MatrixForm=",ExpressionUUID->"4b5b4e38-9b1c-4aee-8f3e-\
a8e554b9e7d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sample hidden", "Subtitle",
 CellChangeTimes->{{3.817913142118249*^9, 3.8179131431740847`*^9}, {
  3.817914727107255*^9, 
  3.817914728370616*^9}},ExpressionUUID->"c49e31ea-786f-4f2d-877d-\
db844a40a99a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"noSamples", "=", 
   RowBox[{"Length", "[", "data", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hiddenSamples", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"MultinormalDistribution", "[", 
      RowBox[{"meanHidden", ",", "covHidden"}], "]"}], ",", "noSamples"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.817745332850404*^9, 3.8177453349280977`*^9}, {
   3.8177454632813807`*^9, 3.817745464525991*^9}, {3.8177455408644123`*^9, 
   3.817745543273821*^9}, {3.8177461086546373`*^9, 3.817746111229121*^9}, {
   3.817913139798457*^9, 3.817913152085867*^9}, 3.817914751979299*^9},
 CellLabel->
  "In[1266]:=",ExpressionUUID->"40ab0242-34cc-46a4-9c69-6bf30a88afb4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sample visible from hidden", "Subtitle",
 CellChangeTimes->{{3.817914733498914*^9, 
  3.8179147402909184`*^9}},ExpressionUUID->"88d7027f-7d39-473e-85d8-\
ec26ae142362"],

Cell[BoxData[
 RowBox[{
  RowBox[{"actVisible", "=", 
   RowBox[{"sampleVisibleGivenHidden", "[", 
    RowBox[{
    "weightMLRescaled", ",", "muMLRescaled", ",", "varML", ",", 
     "hiddenSamples"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.817914740769864*^9, 3.817914780970594*^9}},
 CellLabel->
  "In[1268]:=",ExpressionUUID->"8b936f48-5f28-4850-ae42-5a54b46c1ff1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Covariance visibles (data): \>\"", ",", 
   RowBox[{"dataCov", "//", "MatrixForm"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Covariance visibles (sampled): \>\"", ",", 
   RowBox[{
    RowBox[{"Covariance", "[", "actVisible", "]"}], "//", "MatrixForm"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.817745491179859*^9, 3.817745493318486*^9}, {
  3.817914555066578*^9, 3.817914601981699*^9}},
 CellLabel->
  "In[1269]:=",ExpressionUUID->"81612959-82cb-46c8-9b34-da291379507c"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Covariance visibles (data): \"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"24828.959686800896`", "102.74161073825503`"},
       {"102.74161073825503`", "218.01006711409397`"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Covariance visibles (data): ", 
   MatrixForm[{{24828.959686800896`, 102.74161073825503`}, {
    102.74161073825503`, 218.01006711409397`}}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.817914569299342*^9, 3.817914602217141*^9}, 
   3.817914801611281*^9, 3.817916115206052*^9, 3.817916189605462*^9, 
   3.817919220938838*^9, 3.817919430314649*^9, 3.8179465073029537`*^9},
 CellLabel->
  "During evaluation of \
In[1269]:=",ExpressionUUID->"8d8367c9-ce64-4353-b233-0444d7d048b9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Covariance visibles (sampled): \"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"25847.119238091884`", "390.1654670583835`"},
       {"390.1654670583835`", "281.3796169783311`"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Covariance visibles (sampled): ", 
   MatrixForm[{{25847.119238091884`, 390.1654670583835}, {390.1654670583835, 
    281.3796169783311}}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.817914569299342*^9, 3.817914602217141*^9}, 
   3.817914801611281*^9, 3.817916115206052*^9, 3.817916189605462*^9, 
   3.817919220938838*^9, 3.817919430314649*^9, 3.817946507305481*^9},
 CellLabel->
  "During evaluation of \
In[1269]:=",ExpressionUUID->"64b24019-b78b-4164-ac9c-b076cdf65cb1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Mean visibles (data): \>\"", ",", 
   RowBox[{"muML", "//", "MatrixForm"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Mean visibles (sampled): \>\"", ",", 
   RowBox[{
    RowBox[{"Mean", "[", "actVisible", "]"}], "//", "MatrixForm"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.817914635291795*^9, 3.8179146525740232`*^9}},
 CellLabel->
  "In[1271]:=",ExpressionUUID->"fe19d054-4c03-4951-94fb-b907881e08b0"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Mean visibles (data): \"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {"2662.326666666667`"},
        {"3019.5`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Mean visibles (data): ", 
   MatrixForm[{2662.326666666667, 3019.5}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.817914644304119*^9, 3.8179146528318996`*^9}, 
   3.817914802222034*^9, 3.817916115225211*^9, 3.817916189625935*^9, 
   3.817919220946601*^9, 3.8179194303356256`*^9, 3.817946507311989*^9},
 CellLabel->
  "During evaluation of \
In[1271]:=",ExpressionUUID->"c8703171-8159-4d61-ab1f-22778ccb9106"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Mean visibles (sampled): \"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
     TagBox[GridBox[{
        {"2657.311827276664`"},
        {"3018.9612010653586`"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      Column], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Mean visibles (sampled): ", 
   MatrixForm[{2657.311827276664, 3018.9612010653586`}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.817914644304119*^9, 3.8179146528318996`*^9}, 
   3.817914802222034*^9, 3.817916115225211*^9, 3.817916189625935*^9, 
   3.817919220946601*^9, 3.8179194303356256`*^9, 3.817946507314507*^9},
 CellLabel->
  "During evaluation of \
In[1271]:=",ExpressionUUID->"489d13b2-3b3d-44ff-a33d-0da54b57e48b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot", "Subtitle",
 CellChangeTimes->{{3.817914822007781*^9, 
  3.817914822322612*^9}},ExpressionUUID->"31b5e692-6eef-4f6e-aa17-\
36f92720cbbf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", 
  RowBox[{"plotHist1D", "[", 
   RowBox[{"hiddenSamples", ",", "\"\<Hidden from rescaled normal\>\""}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{
   "figuresDir", "<>", "\"\<sample_hidden_from_rescaled_normal.png\>\""}], 
   ",", "p", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "200"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8179461781349707`*^9, 3.817946232186183*^9}, {
  3.817946484170247*^9, 3.81794648429692*^9}},
 CellLabel->
  "In[1273]:=",ExpressionUUID->"16bd21b1-b8d1-4656-940d-257d4144a6dc"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.602], Thickness[
    Small]}], {}, 
    {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.602], Thickness[
     Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{106., 0}, {108., 1.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{33.974489795918316`, 63.37244897959181}, {
            101.92449220380347`, 109.99901226271709`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{108., 0}, {110., 4.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{62.87244897959181, 92.2704081632653}, {
            79.20093202706262, 109.99901226271709`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 4]& ,
        TagBoxNote->"4"],
       StyleBox["4", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[4, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{110., 0}, {112., 2.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{91.7704081632653, 121.1683673469388}, {
            94.34997214488985, 109.99901226271709`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{112., 0}, {114., 11.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{120.6683673469388, 150.0663265306123}, {
            26.179291614667306`, 109.99901226271709`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 11]& ,
        TagBoxNote->"11"],
       StyleBox["11", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[11, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{114., 0}, {116., 16.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{149.5663265306123, 
            178.96428571428578`}, {-11.693308679900781`, 
            109.99901226271709`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 16]& ,
        TagBoxNote->"16"],
       StyleBox["16", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[16, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{116., 0}, {118., 16.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{178.46428571428578`, 
            207.86224489795927`}, {-11.693308679900781`, 
            109.99901226271709`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 16]& ,
        TagBoxNote->"16"],
       StyleBox["16", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[16, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{118., 0}, {120., 16.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{207.36224489795927`, 
            236.76020408163254`}, {-11.693308679900781`, 
            109.99901226271709`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 16]& ,
        TagBoxNote->"16"],
       StyleBox["16", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[16, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{120., 0}, {122., 23.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{236.26020408163254`, 
            265.65816326530603`}, {-64.71494909229611, 109.99901226271709`}}],
          
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 23]& ,
        TagBoxNote->"23"],
       StyleBox["23", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[23, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{122., 0}, {124., 28.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{265.15816326530603`, 
            294.5561224489795}, {-102.58754938686417`, 109.99901226271709`}}],
          
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 28]& ,
        TagBoxNote->"28"],
       StyleBox["28", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[28, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{124., 0}, {126., 15.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{294.0561224489795, 
            323.454081632653}, {-4.118788620987161, 109.99901226271709`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 15]& ,
        TagBoxNote->"15"],
       StyleBox["15", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[15, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{126., 0}, {128., 12.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{322.954081632653, 352.3520408163265}, {
            18.604771555753686`, 109.99901226271709`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 12]& ,
        TagBoxNote->"12"],
       StyleBox["12", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[12, {FontFamily -> "Times"}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 0], Opacity[0.8], 
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            RectangleBox[{128., 0}, {130., 6.}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{351.8520408163265, 381.25}, {64.0518919092354, 
            109.99901226271709`}}],
          "DelayedMouseEffectStyle"]},
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {FontFamily -> "Times"}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {FontFamily -> "Times"}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{105.52, 0},
  BaseStyle->{FontSize -> 24},
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  LabelStyle->{FontFamily -> "Times"},
  PlotLabel->FormBox["\"Hidden from rescaled normal\"", TraditionalForm],
  PlotRange->{{106., 130.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {None, 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8179150620342627`*^9, 3.8179161152897778`*^9, 3.817916189664116*^9, 
   3.817919221004386*^9, 3.8179194303870068`*^9, {3.817946226871889*^9, 
   3.817946232475135*^9}, 3.817946507370802*^9},
 CellLabel->
  "Out[1273]=",ExpressionUUID->"d8c98ce8-ed0f-4e37-b3bb-855771dbe428"],

Cell[BoxData["\<\"figures_ma/sample_hidden_from_rescaled_normal.png\"\>"], \
"Output",
 CellChangeTimes->{
  3.8179150620342627`*^9, 3.8179161152897778`*^9, 3.817916189664116*^9, 
   3.817919221004386*^9, 3.8179194303870068`*^9, {3.817946226871889*^9, 
   3.817946232475135*^9}, 3.817946507559705*^9},
 CellLabel->
  "Out[1274]=",ExpressionUUID->"c589e935-89e7-4f5e-af62-a26a343754ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", 
  RowBox[{"plotDataVisibleAndActivated", "[", 
   RowBox[{"data", ",", "actVisible"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{
   "figuresDir", "<>", "\"\<rescaled_sample_visible_from_hidden.png\>\""}], 
   ",", "p", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "200"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8179146630788803`*^9, 3.817914667526471*^9}, {
  3.817946234110722*^9, 3.817946234550043*^9}, {3.817946477889242*^9, 
  3.81794648169899*^9}},
 CellLabel->
  "In[1275]:=",ExpressionUUID->"e983beb8-800f-4bac-830d-b491387b8565"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{
        {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.623], Thickness[
         Small]}], {}, 
         {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.623], Thickness[
          Small]}], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2200., 0}, {2300., 1.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{34.17999999999995, 74.30666666666662}, {
                 112.60963615007128`, 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2300., 0}, {2400., 4.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{73.80666666666662, 113.93333333333328`}, {
                 95.38966413852734, 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 4]& ,
             TagBoxNote->"4"],
            StyleBox["4", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[4, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2400., 0}, {2500., 13.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{113.43333333333328`, 153.55999999999995`}, {
                 43.72974810389549, 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 13]& ,
             TagBoxNote->"13"],
            StyleBox["13", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[13, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2500., 0}, {2600., 38.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{153.05999999999995`, 
                 193.1866666666666}, {-99.77001865897073, 
                 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 38]& ,
             TagBoxNote->"38"],
            StyleBox["38", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[38, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2600., 0}, {2700., 36.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{192.6866666666666, 
                 232.8133333333334}, {-88.29003731794144, 
                 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 36]& ,
             TagBoxNote->"36"],
            StyleBox["36", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[36, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2700., 0}, {2800., 30.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{232.3133333333334, 
                 272.43999999999994`}, {-53.85009329485355, 
                 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 30]& ,
             TagBoxNote->"30"],
            StyleBox["30", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[30, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2800., 0}, {2900., 15.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{271.93999999999994`, 312.0666666666667}, {
                 32.24976676286619, 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 15]& ,
             TagBoxNote->"15"],
            StyleBox["15", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[15, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2900., 0}, {3000., 10.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{311.5666666666667, 351.69333333333327`}, {
                 60.94972011543943, 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 10]& ,
             TagBoxNote->"10"],
            StyleBox["10", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[10, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{3000., 0}, {3100., 3.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{351.19333333333327`, 391.32000000000005`}, {
                 101.12965480904198`, 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 3]& ,
             TagBoxNote->"3"],
            StyleBox["3", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[3, {FontFamily -> "Times"}], 
            "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {
        {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.63], Thickness[
         Small]}], {}, 
         {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.63], Thickness[
          Small]}], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2300., 0}, {2400., 6.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{73.80666666666662, 113.93333333333328`}, {
                 83.90968279749804, 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 6]& ,
             TagBoxNote->"6"],
            StyleBox["6", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[6, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2400., 0}, {2500., 19.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{113.43333333333328`, 153.55999999999995`}, {
                 9.289804080807599, 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 19]& ,
             TagBoxNote->"19"],
            StyleBox["19", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[19, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2500., 0}, {2600., 38.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{153.05999999999995`, 
                 193.1866666666666}, {-99.77001865897073, 
                 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 38]& ,
             TagBoxNote->"38"],
            StyleBox["38", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[38, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2600., 0}, {2700., 27.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{192.6866666666666, 
                 232.8133333333334}, {-36.630121283309606`, 
                 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 27]& ,
             TagBoxNote->"27"],
            StyleBox["27", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[27, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2700., 0}, {2800., 30.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{232.3133333333334, 
                 272.43999999999994`}, {-53.85009329485355, 
                 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 30]& ,
             TagBoxNote->"30"],
            StyleBox["30", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[30, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2800., 0}, {2900., 19.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{271.93999999999994`, 312.0666666666667}, {
                 9.289804080807599, 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 19]& ,
             TagBoxNote->"19"],
            StyleBox["19", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[19, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2900., 0}, {3000., 6.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{311.5666666666667, 351.69333333333327`}, {
                 83.90968279749804, 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 6]& ,
             TagBoxNote->"6"],
            StyleBox["6", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[6, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{3000., 0}, {3100., 5.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{351.19333333333327`, 391.32000000000005`}, {
                 89.64967346801268, 118.84962682058593`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 5]& ,
             TagBoxNote->"5"],
            StyleBox["5", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[5, {FontFamily -> "Times"}], 
            "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{2182., 0},
      BaseStyle->{FontSize -> 24},
      Frame->True,
      FrameLabel->{{None, None}, {None, None}},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      PlotLabel->FormBox["\"Visible dim 1\"", TraditionalForm],
      PlotRange->{{2200., 3100.}, {All, All}},
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {None, 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{
        {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.616], Thickness[
         Small]}], {}, 
         {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.616], Thickness[
          Small]}], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2960., 0}, {2970., 1.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{33.852040816327644`, 68.44183673469524}, {
                 103.18269865189913`, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2970., 0}, {2980., 1.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{67.94183673469524, 102.53163265306102`}, {
                 103.18269865189913`, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2990., 0}, {3000., 10.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{136.12142857142862`, 170.71122448979622`}, {
                 62.39081022850873, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 10]& ,
             TagBoxNote->"10"],
            StyleBox["10", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[10, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3000., 0}, {3010., 22.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{170.21122448979622`, 204.80102040816382`}, {
                 8.001625663988179, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 22]& ,
             TagBoxNote->"22"],
            StyleBox["22", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[22, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3010., 0}, {3020., 44.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{204.30102040816382`, 
                 238.89081632653142`}, {-91.71187937096616, 
                 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 44]& ,
             TagBoxNote->"44"],
            StyleBox["44", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[44, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3020., 0}, {3030., 31.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{238.39081632653142`, 
                 272.980612244899}, {-32.790262759402225`, 
                 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 31]& ,
             TagBoxNote->"31"],
            StyleBox["31", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[31, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3030., 0}, {3040., 28.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{272.480612244899, 
                 307.0704081632648}, {-19.192966618272095`, 
                 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 28]& ,
             TagBoxNote->"28"],
            StyleBox["28", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[28, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3040., 0}, {3050., 10.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{306.5704081632648, 341.1602040816324}, {
                 62.39081022850873, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 10]& ,
             TagBoxNote->"10"],
            StyleBox["10", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[10, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[1, 0, 0], Opacity[0.5], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{3050., 0}, {3060., 3.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{340.6602040816324, 375.25}, {
                 94.11783455781239, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 3]& ,
             TagBoxNote->"3"],
            StyleBox["3", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[3, {FontFamily -> "Times"}], 
            "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}}, {
        {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.609], Thickness[
         Small]}], {}, 
         {RGBColor[0.92, 0.488, 0.2432], EdgeForm[{Opacity[0.609], Thickness[
          Small]}], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2950., 0}, {2960., 1.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{-0.2377551020399551, 34.352040816327644`}, {
                 103.18269865189913`, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 1]& ,
             TagBoxNote->"1"],
            StyleBox["1", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[1, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{2980., 0}, {2990., 5.}, "RoundingRadius" -> 0]},
                
                ImageSizeCache->{{102.03163265306102`, 136.62142857142862`}, {
                 85.05297046372561, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 5]& ,
             TagBoxNote->"5"],
            StyleBox["5", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[5, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{2990., 0}, {3000., 13.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{136.12142857142862`, 170.71122448979622`}, {
                 48.79351408737859, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 13]& ,
             TagBoxNote->"13"],
            StyleBox["13", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[13, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3000., 0}, {3010., 23.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{170.21122448979622`, 204.80102040816382`}, {
                 3.469193616944807, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 23]& ,
             TagBoxNote->"23"],
            StyleBox["23", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[23, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3010., 0}, {3020., 27.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{204.30102040816382`, 
                 238.89081632653142`}, {-14.660534571228709`, 
                 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 27]& ,
             TagBoxNote->"27"],
            StyleBox["27", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[27, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3020., 0}, {3030., 46.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{238.39081632653142`, 
                 272.980612244899}, {-100.7767434650529, 
                 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 46]& ,
             TagBoxNote->"46"],
            StyleBox["46", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[46, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3030., 0}, {3040., 21.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{272.480612244899, 307.0704081632648}, {
                 12.53405771103155, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 21]& ,
             TagBoxNote->"21"],
            StyleBox["21", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[21, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 
                 RectangleBox[{3040., 0}, {3050., 10.}, "RoundingRadius" -> 
                  0]},
                
                ImageSizeCache->{{306.5704081632648, 341.1602040816324}, {
                 62.39081022850873, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 10]& ,
             TagBoxNote->"10"],
            StyleBox["10", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[10, {FontFamily -> "Times"}], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            TagBox[
             {RGBColor[0, 0, 1], Opacity[0.3], 
              TagBox[
               DynamicBox[{
                 FEPrivate`If[
                  CurrentValue["MouseOver"], 
                  EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                 RectangleBox[{3050., 0}, {3060., 4.}, "RoundingRadius" -> 0]},
                ImageSizeCache->{{340.6602040816324, 375.25}, {
                 89.585402510769, 108.21513069894252`}}],
               "DelayedMouseEffectStyle"]},
             StatusArea[#, 4]& ,
             TagBoxNote->"4"],
            StyleBox["4", {FontFamily -> "Times"}, StripOnInput -> False]],
           Annotation[#, 
            Style[4, {FontFamily -> "Times"}], 
            "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{2958., 0},
      BaseStyle->{FontSize -> 24},
      Frame->True,
      FrameLabel->{{None, None}, {None, None}},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      PlotLabel->FormBox["\"Visible dim 2\"", TraditionalForm],
      PlotRange->{{2960., 3060.}, {All, All}},
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {None, 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     TemplateBox[{"\"Data\"", "\"Sampled\""},
      "LineLegend",
      DisplayFunction->(StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.5], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 40}, {40, 40}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.5], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 40}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.4] -> Baseline)], #}, {
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.3], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 40}, {40, 40}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Opacity[0.3], 
                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 40}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.4] -> Baseline)], #2}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}],
                "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
           "Grid"], Alignment -> Left, AppearanceElements -> None, 
          ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"],
          LineIndent -> 0, StripOnInput -> False], {
         Directive[FontSize -> 24], FontFamily -> "Arial"}, Background -> 
        Automatic, StripOnInput -> False]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                   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]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "0.3`", "]"}], ",", 
                   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]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8179146679180517`*^9, 3.817914706879353*^9, 3.817914802895179*^9, 
   3.8179161154190903`*^9, 3.81791618976865*^9, 3.817919221149364*^9, 
   3.817919430500731*^9, {3.817946488445648*^9, 3.817946507700199*^9}},
 CellLabel->
  "Out[1275]=",ExpressionUUID->"909c7b9f-f9fa-4ff6-8e2a-ce5626cf1f42"],

Cell[BoxData["\<\"figures_ma/rescaled_sample_visible_from_hidden.png\"\>"], \
"Output",
 CellChangeTimes->{
  3.8179146679180517`*^9, 3.817914706879353*^9, 3.817914802895179*^9, 
   3.8179161154190903`*^9, 3.81791618976865*^9, 3.817919221149364*^9, 
   3.817919430500731*^9, {3.817946488445648*^9, 3.817946508245408*^9}},
 CellLabel->
  "Out[1276]=",ExpressionUUID->"1b334820-c44c-4b6e-8834-bdfccf22c917"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", 
  RowBox[{"plotScatterVisibleAndActivated2D", "[", 
   RowBox[{"data", ",", "actVisible"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{
   "figuresDir", "<>", 
    "\"\<rescaled_sample_visible_from_hidden_scatter.png\>\""}], ",", "p", 
   ",", 
   RowBox[{"ImageResolution", "\[Rule]", "200"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.81791709794876*^9, 3.8179171091692142`*^9}, {
  3.8179464920354357`*^9, 3.81794649678479*^9}},
 CellLabel->
  "In[1277]:=",ExpressionUUID->"49ad499c-05d0-4d5c-add3-9e6dd1890c2f"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{{}, 
        {RGBColor[1, 0, 0], PointSize[0.009166666666666668], 
         AbsoluteThickness[1.6], CapForm["Butt"], 
         StyleBox[PointBox[CompressedData["
1:eJx1lk9IVFEUh4cQiZCIaNGyJGYh0SKixaxmIRLSQqRFiyEiTEQGk0FCQkQi
QiQkJIaIeEwz740uZIhBQkIGkQiZhUiEi2GIFi1aRKsWES0y3/cL7g8S5PBx
7/l7zzlvzt+5N3r3WCaTKR/+/5VHf604fySbq6mcTlK5CPdwPglv1lJZhovc
n4d/c74F/6ynsg1f4f4DeAb7u/AovAPn0J+Ff3AewZ0kjH8b/9PwVe5XzP4U
PAs/g7+g/xLeSCxf4lmHr8N1eA17S6thHk9VH8434C38PYJvmr/BOIyni7+3
cAH9GP5cC/PJ10P7FzjX+xaw/wJuwm/gFvFU4RHOV+AM9qbMf9Xq/xguJSEP
wC3rpyfm74PqST7LcK/Fe4rzOfg+9iqWv+6/Q1/vuW/1GUNf9a9wvgavo6/6
T5m9CfRV/3Pov4aHa2G+6gfFG8Wh/jXy0/yo/8bh7/jTfKh/dP8X9tWXe1aP
uBrmc4D9BjwE7yse67+uzafqJf9te78K/tTvc8T/XnMDF83eor23/J22fnsO
L1j9lu09tC+0X2bg/iTM74ztwxNxGM+OzVMDVn9H2MvBk8SjfdCuplL7MGP9
ExHvQ5sX7Z9e61ftG90fTEI+a/tmwPbVEPGoPl/x39E+VR7IT1avEv5V7459
b8bgeTuXf+072c+9SqXe97jll/f9TjwH8JLtn6ztj6LN2ze9o+bL+mmvmkrt
2/E4vB/ZvtY+7KpfbL/22HtnrV5N2y9l3qMEn9TeQ+7a9/wj9y/Z90/2Cklo
b9v2RUS+2lf96N+CF9BXfS7bvN6270fZvs8jNp+aD/VzA3uqr35XbCIv4v/f
9wD7qu9ELbTfZ5y197gBK/9h7ZX/fG/78Hc4j38AzICv2Q==
           "]],
          FontSize->24]}, {{}, {}}}, {{}, 
        {RGBColor[0, 0, 1], PointSize[0.009166666666666668], 
         AbsoluteThickness[1.6], CapForm["Butt"], 
         StyleBox[PointBox[CompressedData["
1:eJwVVnk41WkbRl8l037QFClaSFKNqSypG0UirUqJUFLK8CEqZY8W20jLRJbz
+/3O63wOk61sTaOQj0aI+JoalIoMrZStvmf+ONe5zvW81/vc730/9/0cTTfv
be4KcnJyl+nzz3fi29RcqyYeb3YbppQlMFR0xdq4vebw+ezdRx33Gca7vrUM
7efxdLVX1XAYgyzrSuf4Rg4pvfmm5xwYUvmhulpHHhphswubJQzztHO4JDcJ
bgwknT1fyWB/+n9HXEt46EIp2+4wg/8Ri+7FfRIsSjtQl3yH4YP9HJlDroA1
EcO94iYGF3mvnAnLBbifV0905RgeRPZ3eMgE3Itsq3wkY4hUr8i5M8hh14+K
79b+m2Gs01azTgsOqk8yxhYkM7z2/dAX38+hKzzGN/M6g9UXrcNfp3LIPxTk
p+HOoPjX4outuhzGzl35re4yQ1LIVKO7sRws9JLc6ysYjB/3XV/aIaDK8aHB
8HkG/eGlCye1CgjsKamJvcqwRWPEuKGdQ+dW+U/hGQw+1uLZZx6K8deYGYui
qP+UG0K8vpiHWfk1NTXi43L2NL0JOTzSlq/wG3jMEKe5OU8ll8M1jTXVH64w
xEoPi8Yt43HQcc3Vr/9h+GVDa1/nKh75Wl3RO6MY9hl27h2VcYj7pl+iXsoQ
ePuq9L4pjwf9nkVTf2Z4Vqp2YZYC6bWdt3xP+ig98tHs3CHBXpdP+/TiqW4V
IPa1EZAVL29sTPgbKxVv3XHhsENnftusYwyaLopZ4UY8ViVkLurzZgh5uUD0
bAqHtC0Kj3LKGHx/rErZOsLjkF9YQgTxn3K/fGxhBI/ajdnpLxnhbfogVXTm
kfL15Ns8F4YT8aGjz3YL8Jep6z+h96tKa9s/NfDY4PxBf9Zpqp/KjeiDAOV3
PotE+xkKND2RZkp8D5V/nezP4Byjc3tCNg+LADUvkZhB41W7eVe7BE6twc2J
qQz5MwNflJHe44+tzmkmfWeY6FeKLARE72npG9nKcD2mtaalWoB1c2RdN93X
OmrsmxrNoKM7n0/9lWGdt07MhEQOds++Powl/lQn9hzwthcgciwtn1HE4OG5
elcazbuev8VaK7r/e6uhdLliMe6L7AWDEwwlOzzONZSIYWJprW9+jsEv8en5
TA0BRTX1Z0JpHiYmbTea9z3h79jr2vCAIeBwhe24TAlSZpf8tOkXhheP/d4s
+RePW9X+vccKGfJeBTsYFPAYcT55aDW9702z9/qFGYTPJ237lESG04PbZRpd
5K/S1BM9dL/Okv6Qw3t4iKI829Uu0Py0+I1x+MzBM/HL6DbCs3mmT1C7lgT3
bh5VTilgGLp1sXfAR4zV+55ftCI/JWTZ2OYc53Hb6bn4z5cM0fZ50c6kh419
UX32GfKj30+qvfvFuNo9MzcghmF3VsJwcrqABeXt1e/Jv3Pfc1+8ggVUL9u0
ojePwdAj+tuc/QLEc8acXHWJ4XjwQfdqgYNxvfBOmfjbkWfvY1UnYMzbmlrf
NIZ+k5A/1kRKkHTEMFmT/Hu7ZHPzuCYO+zafntMbxJC5uc/D1EmAiTB9VJtn
GFm5Ifm1FQ/+k0phjBfDnTvptROOSKC7Oyv/EM2f9srilKgRMdoaYXT5GoPJ
vqoKY6mA8ZfLWUsJQ+fogXbTVdSvM05sRef7pn+ner1MQFmKwbHifIZjBpqK
1sYc5PGHZdNdBqOAJZaaeyQINTz+8Tnhm2A7U1dOhYOT+aeWoOOUD20zzB85
SKA1L3fD7nqGoAar/VkjHDbaycz+zGQY7VcLGZ7MsLVZKcuX8s/OddTwtxcc
zgdbZxUTH6N+6TqDRRyCkg4+/Gcedt7K6X9Afqx901nwA+nTciPw74O3xDi1
PDZaROe1opOk0ZR/28wS0tVI35OD17Waw3i0zb+V9pz8E/pFXT1gtgSZ+pMD
um4ziLSetUz/lYeH0totx3Yx6NVs7Op25fAiN0/r6g2GM1dFl1vcqW7o6fCV
cDbmx08+E8xDevFiYBLNV/EPPSoLlHnEajvWJFDeBDROWyjrFeBke6bmF3q/
7PxHF4Uchp8Nay4EUD5WbI2Irl3PQ2n30kfTyD8TV/TMCPuZR2XKTfU6wqc3
K3xBWgdD+eCX5CDqXxcvSv3kKsGowucpgh9DlETd4+1EDmvrdroto/4xTYsz
nyZK0OiXWFVE/O4sys1fO1fA5rPfV84LYCiKeW9uZM7DxeON81HqP7T+7LwT
k3hMipMzGaphWGoqH2qdwcMmxmdLJM2vzcf50i0yCY4ctf/J/SbNt6nUrSGH
w+Jw08AB4j/u8TT+gD2P7utBbbaUV/4DcafOpkkQ1nHKdIj0MCl9YezvwEHz
VaZ5KdW9X+oqrgsVkO2hneboQ/nDS/uGyW9JBjohMXEMKjVBHiumS3BHBX/4
k367gnJPr6tjcGgpfuNCeav7eI1It4NDwQqfJ05S2o9847s48l/t7+lKqnS+
o6NSes+Wh9fn1v1lkZRHu1o09MvpvfyrwcRDDIXWOw3HWfNQDcnYk077Y6Nm
R0Rvk4DBGkQ1PmOoPqWkuIjyp8DLf/02geFvs3a770xov4eVepRRfgUa+QRt
ShGj6qbXNpkn+d9TWzkqj4flxgWOCVTfyB+UxgQJmD4+6XQF+VVBPfLSd808
gjLCZDtoHzm0riysAg/ltkI7M5rH7ksL3E7RXhjo/H1NIOGPu7sydP5MCRYv
9w+X0D5zDIkY11Mlga/buv9yxeSnvyzlpt4VY9L6JYGbIsi/iYE9qYYCXFXq
MsvoNy+37ukWVR6/RTQ/Vib/Zye/KBS6xOiy/7PYwI7yIu+ptx79P8kLP7C8
/B7pVeXUHmwowbu5J/vaKI/2yjeUzYwU0C/vnDtI/q34mNhopsejoWzZE/tt
DBduW1hp23BYN/aL6ADtf9vXw46zrgh423XOPYP4veK9JNlkrgSRyc+vRFO+
RtZ3/nqiXIxQhZfd9yifPPsurQ87SnyuVKyXOTGUNd0rXPQjj335lfOrqP/x
Hy7NGLASMEfjd/NZtH//D1+hqAA=
           "]],
          FontSize->24]}, {{}, {}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{2187.145833333334, 2962.166666666667},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"Data dim 2\"", TraditionalForm], None}, {
         FormBox["\"Data dim 1\"", TraditionalForm], None}},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotRange->{{2205, 3062}, {2591., 3448.}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     TemplateBox[{"\"Data\"", "\"Sampled\""},
      "LineLegend",
      DisplayFunction->(StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 40}, {40, 40}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 40}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.4] -> Baseline)], #}, {
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 40}, {40, 40}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 40}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.4] -> Baseline)], #2}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}],
                "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
           "Grid"], Alignment -> Left, AppearanceElements -> None, 
          ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"],
          LineIndent -> 0, StripOnInput -> False], {
         Directive[FontSize -> 24], FontFamily -> "Arial"}, Background -> 
        Automatic, StripOnInput -> False]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               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, 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]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.81791610849789*^9, 3.817916115480607*^9}, 
   3.817916189839583*^9, 3.817917109794036*^9, 3.817917297824525*^9, 
   3.817919221217493*^9, 3.817919430568541*^9, 3.817946508316979*^9},
 CellLabel->
  "Out[1277]=",ExpressionUUID->"358c90e8-3f56-4349-8723-a471470c7dcc"],

Cell[BoxData["\<\"figures_ma/rescaled_sample_visible_from_hidden_scatter.png\"\
\>"], "Output",
 CellChangeTimes->{{3.81791610849789*^9, 3.817916115480607*^9}, 
   3.817916189839583*^9, 3.817917109794036*^9, 3.817917297824525*^9, 
   3.817919221217493*^9, 3.817919430568541*^9, 3.81794650857206*^9},
 CellLabel->
  "Out[1278]=",ExpressionUUID->"a4757db6-6a8f-473f-a4cf-585e806bfaa6"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{955, 904},
WindowMargins->{{Automatic, 13}, {Automatic, 0}},
FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"88461d65-d6db-4aec-87e0-1ebbe5f8d81b"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 155, 3, 98, "Title",ExpressionUUID->"ce05e86a-de88-4773-b203-80cdd50b987b"],
Cell[738, 27, 601, 17, 73, "Input",ExpressionUUID->"69559abf-2737-4df0-a5f8-d630040a7819"],
Cell[1342, 46, 692, 17, 52, "Input",ExpressionUUID->"10bef0be-6f58-4771-a620-52453429d716"],
Cell[2037, 65, 922, 24, 115, "Input",ExpressionUUID->"1994408a-462b-487c-926b-883a33fdd5e3"],
Cell[2962, 91, 3120, 82, 493, "Input",ExpressionUUID->"aab4870b-f0b4-46c2-b2eb-fe06ad24605b"],
Cell[6085, 175, 769, 17, 73, "Input",ExpressionUUID->"9c566b39-e3fc-4a72-84df-dcb4db1d0dfd"],
Cell[6857, 194, 1799, 44, 220, "Input",ExpressionUUID->"2d3189cd-4b7b-41a6-943d-d7a4f803aeb6"],
Cell[8659, 240, 3219, 78, 430, "Input",ExpressionUUID->"61e70ee7-9569-4bf9-9cc2-ccc738dcc8ba"],
Cell[11881, 320, 1734, 42, 304, "Input",ExpressionUUID->"8993339e-c85b-497e-842b-019b2f9950d5"],
Cell[13618, 364, 2153, 51, 325, "Input",ExpressionUUID->"c951be51-e5ac-46a6-a3ec-82ad3df08d0e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15808, 420, 154, 3, 98, "Title",ExpressionUUID->"cf60a707-421e-4f13-a92c-bc5ab462a894"],
Cell[15965, 425, 10599, 307, 472, "Input",ExpressionUUID->"616c80d3-3603-4029-b7e5-5ba05b1fd058"],
Cell[26567, 734, 11027, 310, 514, "Input",ExpressionUUID->"ddf5f0fc-8353-402c-8da4-2f7240a37cd8"],
Cell[CellGroupData[{
Cell[37619, 1048, 515, 11, 52, "Input",ExpressionUUID->"619d7130-57a8-4af2-82f6-181b115a6913"],
Cell[38137, 1061, 19993, 511, 319, "Output",ExpressionUUID->"e3623aac-aced-458b-ae3c-d5f848b0fc02"],
Cell[58133, 1574, 426, 7, 34, "Output",ExpressionUUID->"6bc4b754-4bd1-4a56-825f-542eda989f07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58596, 1586, 533, 11, 52, "Input",ExpressionUUID->"24c09734-3f22-4c18-9aaf-c7e7ddbbb06d"],
Cell[59132, 1599, 2633, 61, 301, "Output",ExpressionUUID->"483ad965-cace-4587-8c61-c0cb198f26ed"],
Cell[61768, 1662, 433, 7, 34, "Output",ExpressionUUID->"a50808c8-7a85-4448-a640-1cb0de14961d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[62250, 1675, 157, 3, 98, "Title",ExpressionUUID->"0adf67cf-f68e-4664-a8cf-46e0a0bc33f0"],
Cell[62410, 1680, 313, 8, 30, "Input",ExpressionUUID->"21314c3d-f67e-4595-93c8-c2ed978828c6"],
Cell[CellGroupData[{
Cell[62748, 1692, 400, 10, 52, "Input",ExpressionUUID->"f057945d-b82f-4727-a4fe-b53c8d76a745"],
Cell[63151, 1704, 929, 24, 60, "Output",ExpressionUUID->"b2f57804-a8d6-4961-8d5b-b2252b3d1b32"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64117, 1733, 272, 6, 30, "Input",ExpressionUUID->"60604926-5934-4682-8805-f6692fe433e2"],
Cell[64392, 1741, 614, 13, 34, "Output",ExpressionUUID->"6132d2e3-f161-4f05-a1fe-ea42a23d8fc8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[65055, 1760, 201, 4, 98, "Title",ExpressionUUID->"e418cc54-fb15-4f55-b9af-8b6384afad97"],
Cell[65259, 1766, 182, 3, 53, "Subtitle",ExpressionUUID->"86b3d162-6037-427f-88ed-51d2703ea291"],
Cell[65444, 1771, 151, 4, 30, "Input",ExpressionUUID->"324982e1-2d3e-40d7-8573-9a483fb24765"],
Cell[CellGroupData[{
Cell[65620, 1779, 154, 3, 53, "Subtitle",ExpressionUUID->"09ad5774-7c36-4d79-a029-aec048373f7f"],
Cell[65777, 1784, 508, 13, 52, "Input",ExpressionUUID->"8b18cfb7-b24e-4001-970f-78c80f830bd5"],
Cell[CellGroupData[{
Cell[66310, 1801, 645, 18, 30, "Input",ExpressionUUID->"9495e804-7d37-4ca3-a382-b69f622a9ab8"],
Cell[66958, 1821, 413, 7, 34, "Output",ExpressionUUID->"086a8899-9a99-42da-be84-d5b9b47d4a91"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[67420, 1834, 161, 3, 53, "Subtitle",ExpressionUUID->"0cf0e24f-25fb-4270-a06e-00d68e4bac4a"],
Cell[CellGroupData[{
Cell[67606, 1841, 312, 8, 30, "Input",ExpressionUUID->"9641abd7-30cc-4f3a-a395-fda86b6f8053"],
Cell[67921, 1851, 233, 5, 34, "Output",ExpressionUUID->"4bb8ff9c-5eb7-496b-98eb-780baa887c54"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68191, 1861, 392, 10, 52, "Input",ExpressionUUID->"309e5ad3-630a-4622-bba6-3dd2fd288060"],
Cell[68586, 1873, 935, 24, 60, "Output",ExpressionUUID->"e9826e00-8edd-4312-a2f2-047aa61e3c81"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69558, 1902, 423, 11, 52, "Input",ExpressionUUID->"8ceeb3b4-7582-4dfe-9400-0a16ba912db4"],
Cell[69984, 1915, 835, 22, 45, "Output",ExpressionUUID->"475f71f5-f241-4619-8b69-11f77e8228f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70856, 1942, 514, 13, 52, "Input",ExpressionUUID->"d45cfd86-441d-47fa-8ddc-2b162de18c96"],
Cell[71373, 1957, 963, 25, 60, "Output",ExpressionUUID->"4570fd4a-7c8f-45ba-93da-9efc45283c82"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[72397, 1989, 216, 3, 98, "Title",ExpressionUUID->"199b924d-59e2-48ce-ba5d-fdbcc46bb3ac"],
Cell[72616, 1994, 344, 8, 30, "Input",ExpressionUUID->"105dc633-3fb0-4808-b1c7-dc9dbd47beeb"],
Cell[CellGroupData[{
Cell[72985, 2006, 603, 14, 52, "Input",ExpressionUUID->"764cc9dd-1758-4c6f-8946-54c79086525c"],
Cell[73591, 2022, 11274, 321, 304, "Output",ExpressionUUID->"daef6b86-c53f-480c-b7f3-527e2e7552cb"],
Cell[84868, 2345, 366, 5, 34, "Output",ExpressionUUID->"7b18da73-bc98-43e5-bfec-7ff034a1d08a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[85283, 2356, 211, 4, 98, "Title",ExpressionUUID->"2b441a9a-318a-4966-b2d1-3bbfec8a5cfb"],
Cell[85497, 2362, 159, 3, 53, "Subtitle",ExpressionUUID->"8e2ca781-65ae-4d35-b4ba-33f11e58f22b"],
Cell[85659, 2367, 811, 22, 94, "Input",ExpressionUUID->"b40ec41d-a39b-4364-91e1-f679bd6fa18c"],
Cell[CellGroupData[{
Cell[86495, 2393, 173, 3, 53, "Subtitle",ExpressionUUID->"e3fcba9a-23b4-430f-bb9f-071dc0656a6e"],
Cell[86671, 2398, 500, 10, 30, "Input",ExpressionUUID->"cfa30d7f-4249-471f-964e-23b0f0465039"],
Cell[CellGroupData[{
Cell[87196, 2412, 562, 12, 52, "Input",ExpressionUUID->"7b890ae3-70ca-4ab5-8a60-cda65e21705c"],
Cell[CellGroupData[{
Cell[87783, 2428, 1170, 27, 40, "Print",ExpressionUUID->"55fdbf45-ca61-4dd0-ad10-0a4954d5f81c"],
Cell[88956, 2457, 1220, 29, 40, "Print",ExpressionUUID->"063054c1-39c7-4fed-a952-dde533bc9a9b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[90225, 2492, 494, 11, 52, "Input",ExpressionUUID->"6098852d-578c-462d-81ba-6bd37599dc25"],
Cell[CellGroupData[{
Cell[90744, 2507, 1094, 28, 40, "Print",ExpressionUUID->"87ca1d08-8028-49c0-a22c-d912a51ac60e"],
Cell[91841, 2537, 1125, 28, 40, "Print",ExpressionUUID->"c5d152b9-2985-4e6e-b9d3-43d75c0c69ca"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[93027, 2572, 150, 3, 53, "Subtitle",ExpressionUUID->"e44cfc47-7480-4c9d-a6c1-b3108c720d9e"],
Cell[CellGroupData[{
Cell[93202, 2579, 628, 14, 52, "Input",ExpressionUUID->"dd45d596-418b-4c68-9972-d4359f74a879"],
Cell[93833, 2595, 9934, 277, 296, "Output",ExpressionUUID->"e0a11d5d-5dbb-4629-8acb-6974eb7d674c"],
Cell[103770, 2874, 413, 6, 34, "Output",ExpressionUUID->"712aab88-ba4b-4fd8-9201-059c22b78c60"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104220, 2885, 556, 12, 52, "Input",ExpressionUUID->"f87a952d-5d7c-4196-a2f2-4faf8aea2d78"],
Cell[104779, 2899, 44624, 1088, 307, "Output",ExpressionUUID->"e9926f7c-62bf-4bc8-9bca-f200e28a9c15"],
Cell[149406, 3989, 370, 5, 34, "Output",ExpressionUUID->"60de31ae-473f-4780-a5fb-92ea1d345fa5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149813, 3999, 610, 13, 52, "Input",ExpressionUUID->"4763106c-00bb-447c-89b4-35183746b554"],
Cell[150426, 4014, 13849, 284, 275, "Output",ExpressionUUID->"e932ac05-eeb3-4721-b3d4-43813948a918"],
Cell[164278, 4300, 474, 7, 34, "Output",ExpressionUUID->"a4a86921-05ea-4220-bb17-c9dc2562f2b1"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[164813, 4314, 237, 4, 98, "Title",ExpressionUUID->"286400d0-e445-4c02-b19c-270a5e52aa54"],
Cell[165053, 4320, 153, 3, 53, "Subtitle",ExpressionUUID->"e28fe19b-70e4-4ab3-8f94-65dc947d2847"],
Cell[CellGroupData[{
Cell[165231, 4327, 1099, 26, 136, "Input",ExpressionUUID->"e8051624-f4bb-43cf-96bb-843225869d12"],
Cell[166333, 4355, 837, 23, 60, "Output",ExpressionUUID->"80727c18-0b5e-445b-9721-ab8d2d09a86f"],
Cell[167173, 4380, 832, 23, 60, "Output",ExpressionUUID->"4b5b4e38-9b1c-4aee-8f3e-a8e554b9e7d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168042, 4408, 210, 4, 53, "Subtitle",ExpressionUUID->"c49e31ea-786f-4f2d-877d-db844a40a99a"],
Cell[168255, 4414, 746, 16, 52, "Input",ExpressionUUID->"40ab0242-34cc-46a4-9c69-6bf30a88afb4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169038, 4435, 174, 3, 53, "Subtitle",ExpressionUUID->"88d7027f-7d39-473e-85d8-ec26ae142362"],
Cell[169215, 4440, 376, 9, 30, "Input",ExpressionUUID->"8b936f48-5f28-4850-ae42-5a54b46c1ff1"],
Cell[CellGroupData[{
Cell[169616, 4453, 562, 12, 52, "Input",ExpressionUUID->"81612959-82cb-46c8-9b34-da291379507c"],
Cell[CellGroupData[{
Cell[170203, 4469, 1171, 27, 40, "Print",ExpressionUUID->"8d8367c9-ce64-4353-b233-0444d7d048b9"],
Cell[171377, 4498, 1166, 27, 40, "Print",ExpressionUUID->"64b24019-b78b-4164-ac9c-b076cdf65cb1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[172592, 4531, 494, 11, 52, "Input",ExpressionUUID->"fe19d054-4c03-4951-94fb-b907881e08b0"],
Cell[CellGroupData[{
Cell[173111, 4546, 1090, 28, 40, "Print",ExpressionUUID->"c8703171-8159-4d61-ab1f-22778ccb9106"],
Cell[174204, 4576, 1121, 28, 40, "Print",ExpressionUUID->"489d13b2-3b3d-44ff-a33d-0da54b57e48b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[175386, 4611, 150, 3, 53, "Subtitle",ExpressionUUID->"31b5e692-6eef-4f6e-aa17-36f92720cbbf"],
Cell[CellGroupData[{
Cell[175561, 4618, 588, 14, 52, "Input",ExpressionUUID->"16bd21b1-b8d1-4656-940d-257d4144a6dc"],
Cell[176152, 4634, 11619, 327, 298, "Output",ExpressionUUID->"d8c98ce8-ed0f-4e37-b3bb-855771dbe428"],
Cell[187774, 4963, 385, 7, 34, "Output",ExpressionUUID->"c589e935-89e7-4f5e-af62-a26a343754ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188196, 4975, 617, 14, 52, "Input",ExpressionUUID->"e983beb8-800f-4bac-830d-b491387b8565"],
Cell[188816, 4991, 43812, 1069, 319, "Output",ExpressionUUID->"909c7b9f-f9fa-4ff6-8e2a-ce5626cf1f42"],
Cell[232631, 6062, 405, 7, 34, "Output",ExpressionUUID->"1b334820-c44c-4b6e-8834-bdfccf22c917"]
}, Open  ]],
Cell[CellGroupData[{
Cell[233073, 6074, 587, 14, 52, "Input",ExpressionUUID->"49ad499c-05d0-4d5c-add3-9e6dd1890c2f"],
Cell[233663, 6090, 13740, 282, 275, "Output",ExpressionUUID->"358c90e8-3f56-4349-8723-a471470c7dcc"],
Cell[247406, 6374, 383, 6, 34, "Output",ExpressionUUID->"a4757db6-6a8f-473f-a4cf-585e806bfaa6"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)