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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    858792,      17569]
NotebookOptionsPosition[    783942,      16120]
NotebookOutlinePosition[    828865,      17067]
CellTagsIndexPosition[    828784,      17062]
WindowTitle->Machine Learning
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Machine Learning", "Title",
 CellMargins->{{Inherited, Inherited}, {20, 20}},
 CellChangeTimes->{{3.520677779770745*^9, 3.5206777856383314`*^9}, 
   3.5431988096378574`*^9, {3.5432821883411975`*^9, 3.5432821914465084`*^9}, {
   3.5572388988490076`*^9, 3.5572389008382063`*^9}, {3.615563812383658*^9, 
   3.615563816927433*^9}, {3.680272810102916*^9, 3.680272812420767*^9}, {
   3.744177430091611*^9, 3.744177433531406*^9}, {3.745588140052843*^9, 
   3.745588144206962*^9}},ExpressionUUID->"673397e0-114c-47ca-b6e8-\
1ba2701cca33"],

Cell["Chapter 3. Rules to make rules", "Subtitle",
 CellMargins->{{Inherited, Inherited}, {10, 10}},
 CellChangeTimes->{{3.557238904316554*^9, 3.5572389077378964`*^9}, 
   3.5572395094510612`*^9, {3.615563818997319*^9, 3.615563823598475*^9}, {
   3.615564130252593*^9, 3.6155641420537643`*^9}, 3.615646357457625*^9, {
   3.615646558384777*^9, 3.61564656041888*^9}, {3.6179733624640408`*^9, 
   3.6179733642492228`*^9}, {3.6802728151013393`*^9, 3.680272827308239*^9}, {
   3.680962020558037*^9, 3.680962027001802*^9}, {3.744297067466214*^9, 
   3.744297081771214*^9}, {3.745588136718836*^9, 3.7455881368549623`*^9}, {
   3.745588190038888*^9, 
   3.745588193817032*^9}},ExpressionUUID->"bc674b96-27b2-4506-b096-\
3232f6c6fc6c"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.744177423575264*^9},ExpressionUUID->"70606add-61f0-427a-8219-\
59cb9e02661f"],

Cell[CellGroupData[{

Cell["\<\
Leo K\[ADoubleDot]rkk\[ADoubleDot]inen
leo.karkkainen@aalto.fi\
\>", "Subsubtitle",
 CellMargins->{{96, Inherited}, {10, 20}},
 CellChangeTimes->{{3.520677813734141*^9, 3.520677823088076*^9}, {
  3.520687372999189*^9, 3.520687386262189*^9}, {3.531071777663422*^9, 
  3.531071778362876*^9}, {3.543198724399335*^9, 3.543198731422037*^9}, {
  3.5572389103601584`*^9, 3.557238925440666*^9}, {3.557239511682285*^9, 
  3.557239528678984*^9}, {3.615563825556082*^9, 3.61556382915606*^9}, {
  3.744297093014111*^9, 3.744297094809079*^9}, {3.744692378606221*^9, 
  3.744692379038123*^9}},
 FontSize->18,ExpressionUUID->"8a1c21e9-b6cc-412f-bb7b-baf57a2b8da0"],

Cell[BoxData[
 RowBox[{"SetOptions", "[", " ", 
  RowBox[{
   RowBox[{"EvaluationNotebook", "[", "]"}], ",", 
   RowBox[{
   "\"\<WindowTitle\>\"", "\[Rule]", " ", "\"\<Machine Learning\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.744175926858658*^9, 3.744175977222474*^9}, {
  3.7455881503627443`*^9, 3.745588162563171*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"77a8ef8b-016b-4bfb-ba2a-53a3a7d2f428"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"dca6144f-5976-4c77-8ccc-7784153dfcba"],

Cell[CellGroupData[{

Cell["Outline", "Section",ExpressionUUID->"816d6242-9319-45be-b2bd-d45125b75a06"],

Cell[TextData[{
 StyleBox["Supervised learning",
  FontSlant->"Plain"],
 " "
}], "Subsubsection",
 CellChangeTimes->{
  3.68034367667273*^9, {3.744702618391471*^9, 3.744702626337927*^9}, {
   3.745480137699726*^9, 3.745480159883543*^9}, {3.7455905104524117`*^9, 
   3.7455905303772497`*^9}, {3.745590707197031*^9, 3.7455907080599537`*^9}, {
   3.745590769021575*^9, 3.74559077540351*^9}, 3.746292059380515*^9, 
   3.7467178912705603`*^9, {3.7467179397072477`*^9, 
   3.746717942837935*^9}},ExpressionUUID->"9583d73b-420f-43c4-a310-\
f1e0e240ea77"],

Cell["Degrees of Freedom, over-fitting", "Subsubsection",
 CellChangeTimes->{
  3.68034367667273*^9, {3.744702618391471*^9, 3.744702626337927*^9}, {
   3.745480137699726*^9, 3.745480159883543*^9}, {3.7455905104524117`*^9, 
   3.7455905303772497`*^9}, {3.745590707197031*^9, 3.7455907080599537`*^9}, {
   3.745590769021575*^9, 3.74559077540351*^9}, {3.746717893915362*^9, 
   3.746717908202833*^9}},ExpressionUUID->"8d1cc421-efd7-4d94-993e-\
8317e9a2f909"],

Cell["Unsupervised learning", "Subsubsection",
 CellChangeTimes->{
  3.68034367667273*^9, {3.744702618391471*^9, 3.744702626337927*^9}, {
   3.745480137699726*^9, 3.745480159883543*^9}, {3.7455905104524117`*^9, 
   3.7455905303772497`*^9}, {3.745590707197031*^9, 3.7455907080599537`*^9}, {
   3.745590769021575*^9, 3.74559077540351*^9}, {3.746717893915362*^9, 
   3.746717908202833*^9}, {3.746717962071472*^9, 
   3.746717967483657*^9}},ExpressionUUID->"dcd0f6d8-ccf4-44d6-a2f4-\
9a2d06388071"],

Cell["Bayesian machine learning ", "Subsubsection",
 CellChangeTimes->{
  3.710778720291065*^9, {3.7447006879604483`*^9, 3.744700698559187*^9}, {
   3.744700877512909*^9, 3.7447008798577213`*^9}, 3.745480086147394*^9, {
   3.745590484328794*^9, 3.745590497078191*^9}, {3.7455906963785543`*^9, 
   3.7455907057289753`*^9}, {3.7462918941520147`*^9, 
   3.746291940634582*^9}},ExpressionUUID->"9d5442c7-787d-4c12-a539-\
971f756795da"],

Cell["Logistic regression ", "Subsubsection",
 CellChangeTimes->{
  3.710778720291065*^9, {3.7447006879604483`*^9, 3.744700698559187*^9}, {
   3.744700877512909*^9, 3.7447008798577213`*^9}, 3.745480086147394*^9, {
   3.745590484328794*^9, 3.745590497078191*^9}, {3.7455906963785543`*^9, 
   3.7455907057289753`*^9}, {3.746292081370504*^9, 
   3.746292082390251*^9}},ExpressionUUID->"d79e9dde-6cbc-4d9f-8d8e-\
dbea328a89c0"],

Cell["Performance evaluation  ", "Subsubsection",
 CellChangeTimes->{
  3.68034367667273*^9, {3.744702618391471*^9, 3.744702626337927*^9}, {
   3.745480137699726*^9, 3.745480159883543*^9}, {3.7455905104524117`*^9, 
   3.7455905303772497`*^9}, {3.745590707197031*^9, 3.7455907080599537`*^9}, {
   3.745590769021575*^9, 3.74559077540351*^9}, {3.7462921039877157`*^9, 
   3.746292120643117*^9}},ExpressionUUID->"2577b4b7-4049-4a65-b4ce-\
b89cedb785fc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"43cb44f2-e522-4b71-bb8b-1af3cc3f05ec"],

Cell[CellGroupData[{

Cell["3.1 Supervised learning:", "Section",
 CellChangeTimes->{{3.710778725124434*^9, 3.710778725761334*^9}, {
  3.744010544402543*^9, 3.744010546712739*^9}, {3.744711185213903*^9, 
  3.744711190114337*^9}, {3.745480060458344*^9, 3.745480069837872*^9}, {
  3.7455884637110786`*^9, 3.745588467627348*^9}, {3.7455898422682858`*^9, 
  3.745589855952086*^9}, {3.74608908358895*^9, 
  3.746089088403034*^9}},ExpressionUUID->"93cf2715-81fd-47ea-acf0-\
b805669ec812"],

Cell[CellGroupData[{

Cell["\<\
The standard form is to produce a prediction (label, target) y from input \
(observations) x \[Element] \[ScriptCapitalD] .\
\>", "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
  3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
  3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
  3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
  3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
  3.7460157957066813`*^9, 
  3.746015817111991*^9}},ExpressionUUID->"1ac96af9-93f1-4c74-acc2-\
9af7c5b9085b"],

Cell[CellGroupData[{

Cell["y \[Element] {0,1}   Binary classification", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
  3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
  3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
  3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
  3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
  3.745594707642692*^9, 3.745594749020851*^9}, {3.7455951984040537`*^9, 
  3.745595198769042*^9}},ExpressionUUID->"3b52d537-3268-423f-a46f-\
91f8f43593bd"],

Cell[TextData[{
 "y \[Element] ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["C", "1"], ",", 
     SubscriptBox["C", "2"], ",", "\[Ellipsis]", ",", 
     SubscriptBox["C", "n"]}], "}"}], TraditionalForm]],ExpressionUUID->
  "d1ed47ff-d6df-4e88-8bde-5e33eb5a830f"],
 " Multi-class classification"
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
   3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
   3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
   3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
   3.745595124977663*^9}, {3.7455959850873213`*^9, 3.7455959908483343`*^9}, 
   3.746015829549378*^9},ExpressionUUID->"4847c60e-3ccc-4297-9d25-\
3111be1b1d92"],

Cell[TextData[{
 "y  = ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[DoubleStruckCapitalP]", "[", 
      SubscriptBox["C", "1"], "]"}], ",", 
     RowBox[{"\[DoubleStruckCapitalP]", "[", 
      SubscriptBox["C", "2"], "]"}], ",", "\[Ellipsis]", ",", 
     RowBox[{"\[DoubleStruckCapitalP]", "[", 
      SubscriptBox["C", "n"], "]"}]}], "}"}], TraditionalForm]],
  ExpressionUUID->"655ae267-0ce2-4a2a-afb1-d8b2926a36e6"],
 " , y\[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"[", 
     RowBox[{"0", ",", "1"}], "]"}], "n"], TraditionalForm]],ExpressionUUID->
  "9fd5a349-dcbd-429a-931d-0437d2aa8a99"],
 "   soft or probabilistic classification. "
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
  3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
  3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
  3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
  3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
  3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
  3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
  3.7455953964192657`*^9, 3.745595396419932*^9}, {3.7455954715605164`*^9, 
  3.745595487997805*^9}, {3.809605927655438*^9, 
  3.8096059280843153`*^9}},ExpressionUUID->"01732774-73c1-46ae-871d-\
ed0f918b6d81"],

Cell[TextData[{
 "y \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["R", "n"], TraditionalForm]],ExpressionUUID->
  "37ba3d17-e76b-40ad-b6ca-6b5704c54c69"],
 "  regression. The output is one ore multiple numbers."
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
  3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
  3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
  3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
  3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
  3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
  3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
  3.74559539914347*^9, 
  3.7455954501971607`*^9}},ExpressionUUID->"aa04658d-7b79-4266-9c8a-\
e0c7075cd348"]
}, Open  ]],

Cell["\<\
x can be any digitized data entries - image or audio files,  text documents, \
DNA sequences, variable length time series, 3d data like MRI scans\
\>", "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
  3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
  3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
  3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
  3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
  3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
  3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
  3.74559539914347*^9, 3.745595444107788*^9}, {3.74559600502468*^9, 
  3.745596126561865*^9}, {3.745596312623126*^9, 
  3.745596349359757*^9}},ExpressionUUID->"b4a8e102-225d-4216-a0d6-\
26710ab873a1"],

Cell[TextData[{
 "The data is often encoded before use. For example, for categorical data  of \
classes ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["C", "1"], ",", 
    SubscriptBox["C", "2"], ",", "\[Ellipsis]", ",", 
    SubscriptBox["C", "n"]}]}]],ExpressionUUID->
  "4971d271-d679-4a6c-8902-f798e88b14ae"],
 "}, one can use one-hot encoding  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["C", "i"], "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
     "0", ",", "0", ",", "\[Ellipsis]", ",", "1", ",", "\[Ellipsis]", ",", 
      " ", "0", ",", "0"}], "}"}]}], TraditionalForm]],ExpressionUUID->
  "9068acaa-b016-4b23-802d-164df7663bd8"]
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
   3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
   3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
   3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
   3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
   3.74559539914347*^9, 3.745595444107788*^9}, {3.74559600502468*^9, 
   3.745596125266101*^9}, {3.745648372256975*^9, 3.745648465723386*^9}, {
   3.7456486935273952`*^9, 3.7456486938302717`*^9}, {3.745648968954913*^9, 
   3.745649132002026*^9}, {3.74564925133853*^9, 3.7456493214027357`*^9}, 
   3.809659994115822*^9},ExpressionUUID->"4776af01-ad08-4da4-a997-\
e3cf8106fb2d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"555ec7f8-e3a7-4e21-8668-378af81a27b9"],

Cell["Example: Fitting polynomials to data.", "Subsubtitle",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBWIQ7c/yVU3p6WvHOVOfa4DogvgLOiC6PlZQF0R7PA50
qXj22lFR0M8HRLetSN34/vlrRweXEjD95pDZBRAtMN33Bli8Se0OiFYI03oA
ohena38C0RJHNb6B6BAtuV+qL1476ps0MqgB6b1BatvUgXTvthdgepp+0D4Q
zZp77wCIdnjervAVSJsxhSiBaLVPDALfgfQNCx0wva4hMwpEK2y1jgHR7957
sP4E0k0LrDlBtNq2Bj0QPSvguz6I/vNzjS2IfhNXbQ+i//2tdwbRE6b/8ADR
S2oVOkD0DZbqThB9JSTpzB8g7fh0OphW4k4UfvnytWPAtV9g+vGWHH+7V68d
n+22DwTRANG5xA8=
  "],ExpressionUUID->"2f7be268-218b-4822-838c-0a9fca9ec81a"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["The highest order of the polynomial describes the \
model complexity. ",
 FontSlant->"Plain"]], "Subsubsection",
 CellChangeTimes->{{3.744002663399671*^9, 3.744002696764913*^9}, {
   3.744002902088481*^9, 3.744002905941862*^9}, 3.744010525517058*^9, 
   3.745480091273404*^9, {3.745588739210264*^9, 3.745588741285788*^9}, {
   3.745590699642372*^9, 3.745590703264373*^9}, {3.746291860142119*^9, 
   3.746291861190962*^9}, {3.746292028069665*^9, 3.746292054923457*^9}, {
   3.746515112226995*^9, 3.746515116883668*^9}, {3.746515187251212*^9, 
   3.746515197425188*^9}, {3.746518037135105*^9, 3.746518108450885*^9}, {
   3.746518156529076*^9, 3.746518204621625*^9}, {3.746518238029303*^9, 
   3.746518255611622*^9}, {3.746527570649979*^9, 3.746527577656246*^9}, {
   3.746527647527714*^9, 3.746527714324045*^9}, {3.746529240025001*^9, 
   3.746529298386589*^9}, {3.746529333294289*^9, 3.7465293614282503`*^9}, {
   3.7465761642406178`*^9, 3.746576217144483*^9}, {3.746576258641684*^9, 
   3.7465763313677073`*^9}, {3.746576367622652*^9, 3.7465763744245157`*^9}, {
   3.746577281703025*^9, 3.746577320758789*^9}, {3.7465773870644503`*^9, 
   3.746577498715137*^9}, {3.7465776085565968`*^9, 3.746577610436837*^9}, 
   3.746577641182922*^9, 3.746578113782346*^9, {3.746671355278652*^9, 
   3.7466713558879538`*^9}, {3.746672165761129*^9, 3.746672392962495*^9}, {
   3.7466749917460117`*^9, 3.7466749986279783`*^9}, 3.7466854489186563`*^9, {
   3.7466895941633863`*^9, 3.746689601574492*^9}, {3.746689653256428*^9, 
   3.7466896568337173`*^9}, {3.7466900550286922`*^9, 3.746690074579582*^9}, 
   3.74669046980982*^9, 3.7467122796248903`*^9, {3.7467137209547367`*^9, 
   3.7467137427869263`*^9}, {3.746717542688652*^9, 3.7467175641376123`*^9}, {
   3.778114654025456*^9, 3.7781146545129967`*^9}, 
   3.778115258965887*^9},ExpressionUUID->"8edb4f96-7f4e-49a3-8e32-\
6716de5323bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Data", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"#", " ", ",", "  ", 
         RowBox[{"Exp", "[", 
          RowBox[{"-", 
           RowBox[{"#", "^", "2"}]}], " ", "]"}]}], "}"}], " ", "&"}], " ", "/@",
       " ", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"0", ",", "0.5"}], "]"}], ",", "1000"}], "]"}]}], ")"}], 
    "  ", "+", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"0", " ", "#"}], ",", "  ", "#"}], "}"}], " ", "&"}], " ", "/@", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"0", ",", "0.05"}], "]"}], ",", "1000"}], "]"}]}], ")"}]}]}],
   ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "create", " ", "the", " ", "data", " ", "set", " ", "Data", " ", "for", 
     " ", "the", " ", "following", " ", "trainings"}], " ", "-", " ", 
    RowBox[{
    "run", " ", "this", " ", "before", " ", "going", " ", "forward"}]}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.7467141830545273`*^9, 3.746714293222517*^9}, {
  3.746714440278729*^9, 3.746714520923094*^9}, {3.7467149430829067`*^9, 
  3.746715033243887*^9}, {3.746715286958547*^9, 3.746715287131259*^9}, {
  3.74671709916547*^9, 3.746717101401236*^9}, {3.746717469389792*^9, 
  3.746717490823258*^9}, {3.809670037046503*^9, 3.8096700802504168`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"597b31ef-3a40-49d1-8b4b-d47ec086505b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"Data", ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        StyleBox["\"\<All the data\>\"",
         FontSize->12,
         FontWeight->"Regular"]}]}], "]"}], ",", 
     RowBox[{"DynamicModule", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"M", "=", "21"}], ",", 
         RowBox[{"N", "=", "13"}]}], "}"}], ",", 
       RowBox[{"Show", "[", 
        RowBox[{
         RowBox[{"ListPlot", "[", 
          RowBox[{
           RowBox[{"Data", "\[LeftDoubleBracket]", 
            RowBox[{"1", ";;", "N"}], "\[RightDoubleBracket]"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PointSize", "[", "Medium", "]"}], ",", "Red"}], 
             "}"}]}]}], "]"}], ",", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{"Fit", "[", 
               RowBox[{
                RowBox[{"Data", "\[LeftDoubleBracket]", 
                 RowBox[{"1", ";;", "N"}], "\[RightDoubleBracket]"}], ",", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  SuperscriptBox["x", "n"], ",", 
                  RowBox[{"{", 
                   RowBox[{"n", ",", "0", ",", "M"}], "}"}]}], "]"}], ",", 
                "x"}], "]"}], "]"}], ",", 
             RowBox[{"Exp", "[", 
              RowBox[{"-", 
               SuperscriptBox["x", "2"]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{
         "PlotLabel", "\[Rule]", 
          "\"\<\!\(\*StyleBox[\"Overfitted\",FontSize->12,FontWeight->\"\
Regular\"]\)\!\(\*StyleBox[\"-\",FontSize->12,FontWeight->\"Regular\"]\)\!\(\*\
StyleBox[\"too\",FontSize->12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\" \
\",FontSize->12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\"little\",FontSize->\
12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\" \
\",FontSize->12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\"data\",FontSize->\
12,FontWeight->\"Regular\"]\)\>\""}]}], "]"}]}], "]"}], ",", 
     RowBox[{"DynamicModule", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"M", "=", "30"}], ",", 
         RowBox[{"N", "=", "236"}]}], "}"}], ",", 
       RowBox[{"Show", "[", 
        RowBox[{
         RowBox[{"ListPlot", "[", 
          RowBox[{
           RowBox[{"Data", "\[LeftDoubleBracket]", 
            RowBox[{"1", ";;", "N"}], "\[RightDoubleBracket]"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{"Fit", "[", 
               RowBox[{
                RowBox[{"Data", "\[LeftDoubleBracket]", 
                 RowBox[{"1", ";;", "N"}], "\[RightDoubleBracket]"}], ",", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  SuperscriptBox["x", "n"], ",", 
                  RowBox[{"{", 
                   RowBox[{"n", ",", "0", ",", "M"}], "}"}]}], "]"}], ",", 
                "x"}], "]"}], "]"}], ",", 
             RowBox[{"Exp", "[", 
              RowBox[{"-", 
               SuperscriptBox["x", "2"]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", " ", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<\!\(\*StyleBox[\"Too\",FontSize->12,FontWeight->\"Regular\"]\)\
\!\(\*StyleBox[\" \
\",FontSize->12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\"complex\",FontSize-\
>12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\" \
\",FontSize->12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\"model\",FontSize->\
12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\" \
\",FontSize->12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\"\[IndentingNewLine]\
\",FontSize->12,FontWeight->\"Regular\"]\)Areas of low data overfit\>\"", ",",
             "8"}], "]"}]}]}], "]"}]}], "]"}], ",", 
     RowBox[{"DynamicModule", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"M", "=", "9"}], ",", 
         RowBox[{"N", "=", "236"}]}], "}"}], ",", 
       RowBox[{"Show", "[", 
        RowBox[{
         RowBox[{"ListPlot", "[", 
          RowBox[{
           RowBox[{"Data", "\[LeftDoubleBracket]", 
            RowBox[{"1", ";;", "N"}], "\[RightDoubleBracket]"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{"Fit", "[", 
               RowBox[{
                RowBox[{"Data", "\[LeftDoubleBracket]", 
                 RowBox[{"1", ";;", "N"}], "\[RightDoubleBracket]"}], ",", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  SuperscriptBox["x", "n"], ",", 
                  RowBox[{"{", 
                   RowBox[{"n", ",", "0", ",", "M"}], "}"}]}], "]"}], ",", 
                "x"}], "]"}], "]"}], ",", 
             RowBox[{"Exp", "[", 
              RowBox[{"-", 
               SuperscriptBox["x", "2"]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", " ", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<\!\(\*StyleBox[\"Enough\",FontSize->12,FontWeight->\"Regular\"\
]\)\!\(\*StyleBox[\" \
\",FontSize->12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\"data\",FontSize->\
12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\" \
\",FontSize->12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\"\[IndentingNewLine]\
\",FontSize->12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\"Suitable\",\
FontSize->12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\" \
\",FontSize->12,FontWeight->\"Regular\"]\)\!\(\*StyleBox[\"complexity\",\
FontSize->12,FontWeight->\"Regular\"]\)\>\"", ",", "7"}], "]"}]}]}], "]"}]}], 
      "]"}]}], "}"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "625"}], ",", " ", 
   RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.777886603756007*^9, 3.777886667222052*^9}, {
   3.777891294225813*^9, 3.777891365918418*^9}, {3.777891418997355*^9, 
   3.7778914830194683`*^9}, {3.777891554694618*^9, 3.777891584620594*^9}, {
   3.7778916202560472`*^9, 3.777891649556885*^9}, {3.777944928392528*^9, 
   3.777944942016553*^9}, {3.777944975014928*^9, 3.7779449854243803`*^9}, {
   3.777945022665764*^9, 3.777945023638567*^9}, {3.77794514327772*^9, 
   3.77794514433034*^9}, {3.777945230696617*^9, 3.777945258913958*^9}, {
   3.7779452930907097`*^9, 3.777945316010289*^9}, {3.77794565407603*^9, 
   3.777945658672811*^9}, {3.778028290950335*^9, 3.778028326549643*^9}, 
   3.778028442899727*^9, {3.7780284907664337`*^9, 3.778028524848598*^9}, {
   3.778028558959363*^9, 3.77802859138638*^9}, {3.778028788007547*^9, 
   3.77802878990585*^9}, {3.7780288459292717`*^9, 3.778028869568001*^9}, {
   3.778028901001135*^9, 3.778028909715111*^9}, {3.7780290154521923`*^9, 
   3.778029036352627*^9}, 3.778029080075704*^9, 3.7780291318731527`*^9, {
   3.7781148139621964`*^9, 3.778115072939539*^9}, {3.778115106977593*^9, 
   3.778115130087695*^9}, {3.778115380526754*^9, 3.7781153819420843`*^9}, {
   3.7781154581772337`*^9, 3.778115459420216*^9}, 3.778115568887678*^9, {
   3.7781156372758904`*^9, 3.778115638130934*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"f81ea062-3263-4b01-bed6-ea894169c11e"],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{}, {
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.004583333333333334], AbsoluteThickness[1.6], 
         PointBox[CompressedData["
1:eJwVl3c81d8fx0khQmWWRGVVikSS8baSEMoKKVtWlESKsookSZRkVUYRXzP7
2HvvPe/l7nuNCNHv/v66f9z7+HzOPed9Xq/n85id5w3HXQwMDDgmBob/f3ZX
jxjqBWcAg6eA3KN0KlReW3pLcV8ERx9m7hMKGBDQa2ossJlCZUOqS+NreNjw
eqmuiRuB425s1pvLRND3ePJW4WE/rDG1mlyZIoGngw9rl9o4Gsq3fUzYQ4Gr
r7R4vw9+h6jtb9//HaaBhYNOTk5xNRTGqo4E02iwuq9CprdnCNL/iyRtuJBA
9wXX1xyDQZg2Tz4bd4oEH8w5tD886oSY+uTOh4k0yLzVPsXyDQvNrx/Mt9Vi
4WtfwHs+TwQXl+1XVHuo8Lz6u+5ngy7U0HRjT4kPBY6sXGV32J2BxLocjVRt
aHClZ9tYLroZ/fW7e/mbJwX4Bhceyg3WwdTlnZm/36gwZDkvG5xLQJVH+1bM
lGcBWJQ/Uw6MoAbK7vH76iQ44sRn/+92P8J4Ry+tMBJg58BO2/WeCVivOsi/
340MIYF1Hn6yWZCpVhLdJ06FFF5OZjclHBjdVdLeTp2G7zWXHAKDGsByv7/n
WhIFqLFKNb+2G5F4t//2s3EaNEccsDvOuoDMwuW2D4fPgR5spdyvXUAvyPvT
NDzmoflquUJEVQu69vOfNO4OFVgUiyounZpFrXtffq7GLMDXTbcaUZcpdGTI
jrNYiQzsXjwyZ+/UQeVrjqDv9lSYrSpSZ7hEQLSpqG0cbRYKpnvjH1dPIRP5
VtVaKQLskYg8iPk6habXGt1GWwjgcVHsgltJByq6+JfD34QEO68Xc19MRIHy
U+uWluPLcCgo/fKy7X/Qrfr8Dj8zDWY6u/UOWmHRCRMvUxNFLLT+7A9+6d0N
2FyvNWYyBc6Yfzj7X+8S1DWuXlfLHwAtYc61heh3sLrC+VFNlAY/WDZ3f9Us
BtHXlYzGrDRIuH0A36DXj/yId1TjSVT4oR3lyzL9H3LX37J3DqVC++wNXR/n
LlQ0p6gyy0cDT5sY7MEDRJCQZLeVF5qFEx8Do9IOEJDjp1n9A5ozwPMCKyuq
MQAH9bJ33NxI8GD2b/x8wBC6LlWz9vQQBTL1+vTLRsdQmcg1G+F1ApxiiyMc
Yl9A73PnpC9bLoCiZmbtx099YBTN7Zf5jgitx38cXImsB9YjlTE7x2gQnH5l
+HMtDn1WemSWRp2F7GM5vw0Em1DwjYtUH2YyvH37H5Us/A1ymYQ+FrEuQRFf
8Cnzg/T5+PRX7tSRWdDl0Hb8PDsJ55jUFS1ECICzW25QFV1EMfdHw3Q+zQEu
Ye7RnZAV1G48+uOgQiuEK4l4lV8hghz8bJ5nHgcD3z3ve5L70BvlDFHrVjxs
ujeLOao3oiG570IzgVRYYz/R0Az0dV1bf+Cpvgj7pg9/5fi0giQVdFJvdDbD
oTbeDkliLdrWu2B+4CgNHLkSbCgNCyi1Kqc+IW8SjkZbnpJWrIer7Xzj6jlU
sFb8EMRQPgRNCxYsRxeIMMx8R3OvwBwY/NxNhjAcmKVzjXlKTCHLKTfP9XI8
9H9fkzLsIKGzCbd/otBhyPVNnXxpW4XE/cMKP5ylgK3DRSWSdT9IRtxtMYug
wF8ys3x+Yy+SmnkgQ8kmg55kP+e+4/XoZlwa3ucYBZQ7KLIV69OobHSBfdUN
B7e+vDA9zpQNTA8cDNrf0kA31DDvT8Is8ghnW94luADWoqejvfviUcAD8bPm
sSRI6lPBJwUuosNchPj1/fOgLFVWPG7egcLLjjX8baIBed7o3MS1eXjetB3h
/RsLTbYKOULGU8iTV863gQMPDsLXQ1kXR4HBaDQqcC8BzgbmcfB4DcBUO3/2
MXr+CTEL2ZrcaoTzCgkSESo0kN4UvxXp2g6ZnqbBJUs04Iy/7CmqMYiMVXDn
ztLnH53I4/g2MYs4Tcz5zTUX4fOzC4dbYggo01ZlNuDlJBjIePJqH58Ah/vy
ZwPYiWC/Ub0L61SDLl9hMfniTYMLbH2VUa/7IfuRcTEVkaD+YORJh5Mr8FdC
IeDRUhM8DDydpGRYD0XeKKFrnQg7hWG3tYUJwJTCNR/8YB4+sI2bW4lVoHYz
tctlkkvg90Xoqjc3HrQ/4RSuc0+Dn9Ul49aGQfTQ1PhZ6kcSTOrtmIs7dKFv
RQGWQmZkuJ+Gaf3vEB40r1KVRj/MQtL5v6+vf/oC1XlhH/fwUEFRksbzVWEW
8QqwydyHReiMKOOnUTXRmuMVhp/fafCi9bTqv9vDCHouS1GnyVBcI/ncj2MK
HmhlZvqnEOFgTsL0u45ehH94ym6SkwTqw18P3wqaB7/oBGJ22TzkcOkTv37I
RsOU5a893VQIeqPx78P3ccDtG18ozCaCUmYia55fLWK/6Dzi/YEKl6q0a5+r
pYLpNU1xs4s0YP/p9eWlMxnqKvZXO6wPQfxLrofCJUuA11xVUGnogesOj+6q
l3YC467FAv1VKvSdkd4KSStAf70NKvkCaMA85h5z/nM/BDrm3q1JIkNZTimH
hywFxVi88l/NGoXLUnPjm2H1IJNQ6GvJS4NUX6lbYFyFbN5uFLn9o4A0A+Ou
ms5pyDmtwTrqiINsr4+8Kek0sG1vk2L8NgCShjqzx+70I9bLIjbWEhS4lPOO
26BiAti6HBwGBPAQ+/n8dw5KP2KyuX1Cz5UEw75Fb8gPipGIdJjJK80lkC7v
NP50rBNdXb4Y7JlEgvd2iynGCV2gcyq9K+4cFZKQeMygHj23sffinW5j4c5r
Lrt51VlgCzW51mu3AE9+Vfv/DixGmyyb+aWaVCBLfGHhM2tA+1e8vg1nUcD1
PMv+gd8T8IRwssfVBg/cTzSyde5Nw7tOJ/mjJ/Eg1Gp5mvNPK1gmBKsLctCA
cS7Y2koJj+49TWOj1c6B+EEZHG/wL+RD2bhaMEuGz1eyMmbchtBNPymdTzUk
wF/hWsjUrEfMdwTW0p5S4FpEu0Io6yz8sH1q5LcPD21HH5TYRBfAAfy4wfwF
MhySF53riP2Ifora6R8tp8Fylr/UtbgQULSMbclvoUFhfe9WZWYtbHqaDb99
QIZps6LeM0PjYI7dDhH3IoH1DwEujPkIIm10K+p/IcAff3GbwKpDcPYomelB
CRmo73PZ3rnWIxY1RT6vWCr8vr/X4y9/OdyiitXedqcB5D7OZBWeQLzn5Xre
0fsivLowwslnFcLLngsWSTRB/qkDMf1ZY+hRmL0QcRAPdn+arNVwU+jmn7Q0
C3kc7NlNac+gDAOFyX+3ARUHahkXeGJyRkEkNV194hQBOF7JBdkxNiGKXX+x
Lz8N8Fkx947IB8OX26UuxyJpkPGmMXVUMw7+6gyzNNCokL054r+0UYo+yfak
MRhR4cWlhUeLB9vRJ9vSQ8/vkMBLqTGiDnqRUsXFz2XVJNh37cpTT8IMWPZ9
OpohsQjFlamrxtIzEHvceotqhAPkznjnzPE8VI0J04xpoYDA662kcG4Kkg+P
623qGoGaP/JmJ+xGIVox4gLnZXpeJb7QUDr1H8rLkt2oEqXzWl21xYXmfMR8
ROCVyDAVysuOf3CVLgKBmGqlHSUafBZ/oRCsWQVcPynLrGk0EHedKtqbsIAK
73M8lM6cgw++STduff0FPSwSkWr0+eMRs21cV2uG1WHXKc4XFOgUea6TEluP
Tn5lTjvTSgH9q5FdF5h/oM6s/Jt1T6iQESZco6s0iYQdxtN/ayyAezXHdERE
B0zNcN3XNKfCz0HZnidM7eiFTPN912YafJ1rInQVlcLrx7siu9epUFdlIc3Z
0YiCNe9/8r1BA6kJy5Dx9nG4eZ7bufANAe6kHr9yQWwZqfPYPj7TMQgTWzKq
7XMDgGGP+jy+mwQv1ZYg9mEIUud8N8o7QgOrxO8KZY+nkFfqnZldOiTIeR1m
zHN+DPZMsLzzjKTzyP3SUJ94er4MvRb40E+C6N7OoDrndlSfTeQeDKDz7tfw
xku/6qAK67xo9oEG/2UxvRx934OU5f3fyXJQQDIp8MlvwmfwLLurwkjnfbGH
GRbfkybQkGjE87puAvSFpV90mPNF3oKkBz+4lsCE/fEdkpkeyvwvt7LfkJ6P
dnMc7llUUP9bH/7edRRMv/Q44Pelo+PsCrLfOSnAuLVzXMd2AD0Tvnkk9zMJ
3tjk3FmKGUD3iedXo0pIkNZm8sgnNROlDGm7WEnT4My2ME+aXhayKS8yYWhZ
AkWGJz8ipvtg7Y7EMtaCDCVWg38O6iaguMPpCqf2LEH5QWPVjoxalBupMR0T
QoWOdJ7bHTWukCzY5PnkDRXc6ipvaHmUo31M91v8dSmw1/nSslJ3G6jd+7zB
pEeBrr1KbwJKhhFF3dc2mkwAja4YN5dPBKSnffP31ssp8NsweJLQsYAM847b
ny9ZgNHJl04+OPo90zqpzs4yA6P71CMcYvpAYir7yOZNCkxNOLmd249FqtKH
1ndHYsE8Z/ZZrH8RrE7uJqafo4EM9sAjp5QaNPn4xw9TWzLEcjRfw3/qReLM
Lu7G9LwZDxILE/u6im70Z96T9m6EiXcsFMG3zUhQslLvgC4V+P90aDXS2uAp
RwP2UgQZbgqNxZ1kXEIdE1cPPRcZg+TlPU2c3AuodLNNT7AYC7HCu9QVD5NQ
l+WYZT7rFNz/U6+QqtcPOZw9IerKBJDYTqi9UjmDdATK2Bc3FqH0lVF22atV
1JOUmjCyWA71iw66shLNSESnddCcfn5RGs0vlU5XwjJrTfUd+v+pUfUXiXRO
Qf8Wm4y+0vOk/4Lp0Td/emD+VFWr9DEyCAzBrVXVMeSXYX3uxD4ChM14F7Yo
j4GpqF67qgkeehfY9e7LLYMR267zf4f64S92Sjfapxs8h4Un7C8SQTrhV0T2
6DT61dxGYFRbBJcr2y2WYnMoJyJ2BKeIB2Zs9MNsk3m0ntCxyXIRC+Ej49eM
dNJA5d+hIozTEljnmO5apVWh3UIbrI2yNMgO3n9doLEFrf2wVjunQM8T89A9
pau9yHmjYFn8Ixl6Wc/oaMtNguGt9rR/n0hgkoyhlmU1IZ5/X9/k+5DBgDlo
NF34P3TuYA9T5Tsq7C3y2KvjPYGGh5d0714gQMn+5vt7VQsg8s+9y+cbqbCp
ylYu6zkBygwxyrdSSaD6LSw45nwR8vD7fpXrJg0GGDOPtBm0wvT5JBmrKyQI
enu6TSWRjEYNx4Yck2dgi/F8wc7PAVRvcKfIUJ8E0/XV6vxrrejK8Ht9324y
zExb/W7wHUZ/YrxvDtYTICfwx9AdGyy68amuIM8FCzbrJXH6cXfRyF2GCKm/
FPgTpfFkrGcY/tCq587FUeCdavsHb4tClPJ99Si+kM4/6QMTD5Ji0MfKezMt
h2hwtflF6ulrq8hmgekNNaAaVJsx+dg3s+D3q0dzlxgOJOLX1vHc7aB6et6k
6x8ZfkiYeD/O60GVZSn2UXvJMBBCGfMhzaB40ba7Rt2LMLBF7m6yaEQ7s8F+
3sfpfralb9EnWoxGl97ptNlToED1fOrO8wKkt6RdM3ydBhpN/gL7QmrQA16B
8vJtMswXdrG3rc1A5ZzSx7bnizCoMDrVLkmFd7+5XWz1p0AsQVpC630tKJva
t0sO0P32SN6qDI0I6kt/6tvsZyBA7IY8971mYNR6+1ybPp/8T77WjcZOg0QQ
X2D8HjwUT0zhfjO1QbJv0fT/94fjQI6RQOoAOJCrfBRr6fxmenC31UgNWry3
j/Ew3S8/3RvLOWzRDCe7Hl0oG6OCnM00L1YDB7NCh4WWm+YgwUpomDm5ABok
5RTVoylQOeCvnqjcAxtbKdahT0lwZ8exL3K4GQ2Ac46wJQWkWG2Z30WMIvvP
n/ZhuQnQPnxiK70Jg+Tj1i4qts+BfE9di2BXOrQtzu+TE6CBqUhMQ4fXMqx5
W7IrBvaDxgvNn2yzo0hto8jqXAgJXlzpMWR61w3sgtUT5vTfm7Cs6NXvtMJx
9wG5oS0qJBLnjng7tSDp69P7tSTJgOsSGVZ50Y/ecn2a2ZNOhOrt/E0Luw50
aDZ53cCJAldbtDtCWuvRoX8Jrq5HKBDR4G6/OoVHN5oHFATpPn0619eldbAP
tR3yA3ZuCiTTbnY6ulHg4p0AlSA0BZ7PODwPH06E0nRMbho9nzVEMq+oNs4h
s0FHQxd1HFzFlJrlWU+jbwTiu6gmHBzyVZs9GTYL2vF8pq7KGOhf4bqnHYIH
1e13k59CJqG9kcH0zCbd29S9xLW1xuAit225I/887J5Z3bn5BwMSTbjzyW2t
SFHmP1U3PBVkVApl636FIpmalupH6lTI+Vb9LGv8DQxhKFwXmIiQ5HXXT8zo
FUgfiNFVOrMEIaCad7qgBx6HycubqRBhMEzNWECMjI7+UFqQiJyEoSbbyj34
NuhOuhqfe54Mz91HsCqrmYiUs37+bhoVTnGE+arEtyKDsJ2HLnT/ClWkRJ+g
doNb8a6XJHpeqtrbVBRdoCGD2C0JG6ZhmJW/7+TuXA8/DmtOzw1RwNKgusRR
bxAuNFLiYhVIcJyx8KHqXoTU07oXfS9QgJSXeFIlsRWSGGynE15SgTFFWqp+
LxU+3gu+qL46CpVedWmya3/gjHrw+81T2WDaJNa2yEpAOww9kkXes0Cs+NLh
8g2L5Iq9RRQX5iHNcdjHxb8PzD8r1j0FEji+U/w4bfMFTqsyYTXo+flxg/1B
zMcB4Li87Sv4nAR8y6Az5NYHy3bTqu1HlqCzyVD8UT1Cj8Z2Oc3R5+VMJu7W
qVuLMCbL0CxFmIeAtOaCIIVeUB9/fWBukgwxcaFneS0q4Vhb0R7hfgr8jE29
/iRvHgQwSZt9k1hgf7vfFRMwAncsjJq+RBKB4UF/ps34D2CQZi8fpa9H9kDW
mobOPOovnz3s24WBg1xawpv59UjLMdG2kt6nf2ReDZkExiCjuI2PJgs00OyU
rR90mEc3LwgL3L6PgW6mZ3GRh5dQVeqVZE6dAUi6nxWtINWDRj7thPBsUOFZ
95nzzx9WwbqYtP3HuxRgXbvusZw3iSLFX15Q78GBC9uO1rLLLErwPZT3tWwR
3P/hZgz5F+Go+LHbtNR54MqPy/MqmoC8gP0zpjI44HP0AqLAIrBOCAUfXVkA
cVVFttTKYaijsLHjp4hANFzmZhydQWtubZl3zXHAf2Xl6YPT4yi+vTFJq4cI
5KK1mZe+04AJXxbkq8LC0o8fQcSGaeS+obr0Q54A/t/8vPLL+9AjDx7R8r10
/v4yk4phXIHoy3G1w809wLp+zcxhvRsJyoa8VqHz5kHGFOfDRcUwPrMZOdJK
hSZJ7f3kkmJw7WV8hLJoMCnZlsthNoP0WpNldLnoeftmThink4mexxftf5RO
Bj8bpgUyINToNio4Ik+Ga3tzCitUlyC15XHY0WO9QN1ZdGCe7IVv9u73jvJR
YDDZLPnSah7Y71zRb1anQWL1awOKSBFC4SqOQYE0sLvdZtWGKYHDqjcvicyT
IGbU7UL8YALKL/SsbGSj87nM3bYA5Uq4LvW1pPQxFQYEie+PVo0h48+Xolv4
SNAtfIl2rGkRZGo6Lq37zcOMvEFtEOk3tDyXqXya1Ap8zC2b+RE/UHexcaka
ndf/hfIf8Uycg6+M/8Ldk3Gw+7T37TwrHGphq6QOic+D0XGF/Zlhg2hvom+v
nQ0ZUsJ+OL6WaIQ41Oso4k6Gb3JnRXcfnEOMsyVHFToWQKMl/ov4z1lobS3l
/SW6AArW0WrXZzdAkTnukQ+mDO4HqmOWsivR46UD+ecbabDTKHLV610H7Pdy
PfOd7l+q0SK2Od61yGDocIXSPBXe30reKxQ7hUhvMnI4twkgP9J74YFTDZip
hDE30305TckgJLp9Fj2mji4cN1uEwur++4ThLwhfU51S30GFAKHCoq7f+Sjz
rm7Tdb0l2FjTsYx1mkQCqm1Y/hI8YNkMK6a3u9GK48TH4/T7QjWsVvFq9oDg
lL+//el9EV96kTkqgoTKJx4LuM6OwEP3XzpiE4NI9MKrJeldJHj39kxbXRUJ
bQRPZPp6zMLjYM0ydt9R9DZpa2MJS4BD5Iitu1PLwMVzU7+Pzsl9Zz5E1Js0
oF1v/kWM+dL9lFprn3Z7CAVExtsJaOLBbVbaOEnsG8r1Sjxrn0+Djg/j5zUN
P0KZeIKm+Qx9vpZsArHMqYhyLTv3ZxENtlpFfT8/64e8i35jLdtEuHXhdt5b
ug+R46Q57HEkIBYFOc6b4tBcScQJj++z8LOh+d+Nd1/hHMdWrgKZCnnqBR2v
PT9BlRbOsF6eBkdvWGCO+4wigZhNMscxPAyxMROrRbsgOYh4o8+bAmQL143l
s0Po/q4Z0p16EgwaPVNnGqKBSjEVI3+sD77fovIQtNpQVwUhUdOSBnHmI4S1
2FlgK8SpabDg4Gvjm8fX5GaQ86heLevvBbjJJXr3lc4MHJLbjD2qhIccyf3G
76+MQQrv6DnnWQIc611zJ4zNIY2jsadCBuYBnc6zuVveDu8IeqN2p8iQ5HTF
ua13BFkl3WUbYSFC685pQtPZWnRH7HlqaTUFdEXtlQgMjUjilMK97CQanP21
3fTHE4uOfIqXK1/GQGrJ8Ge7YD4Ahk7lmutL8D67vLjrdBOEClNbSTp0vmkj
X8PXlcCN6XSqQvISuLUILfh1dKJhofn6vxsEuHzd76/M8Agy0S7SaTImQf12
SKSQxW9olb7nFfW3GU68FlKI816FEiVfzmcMjcB0KzFjJLIf+CJpm0dEiDA0
foSPIX0eHlJTvUz2Y2C5KdbjxJMidNT3Xvj0eSp457hYQnsAuHI+fh9stgTi
8jITS73TyEcgPFbBEQe3w2t4cy3H4L/qzYCkIfo8stuZjKpOgOjJ0W1vdwKE
vFrcDv3SDMSPw18YTlKBXFv+Nhstorf6WF9dfQw4CarrZH/5D307XCzOzkOF
if+ko/4xYuDMu/YTGU5YEHC5v2/NoRlmsQGSyVwUMCgIG28QLEMrLgxxP3LI
4MOTeDBRoBcYb+zyVZwjwtUeL5mcsF6A1dIONxcyuLiM+x4K7UCccn//PqDv
Z22f/PujOsMQ+o1d0MmaAGKFZsEeTBg4y6QxdSQMA1TVu7N7Tjagc1M4YfE1
GnDLHl7Z+jwF7RZXMnfcCIA5PpoEqATCR19a95fSgHa7QmsXVyfo51PKtxmo
sK162C0f9cOqptkYXxYF8H257n5zbRC5Jpz/q4QKjw8m7nV8MAjg628rLkKf
55m4JidSGxK8mRPg85AMOymmWo9GG5Hv8y7ttAAaWBwxM5r5PQIa80qri7hF
eJ+R/H4qoB+NoF7/Q/Q+TNUSvGaZtYCoFi5L55jmYOfBjJfu0jjquPDp9VU8
Dp6w5gZqWY6jw6SJk3UReLCxzHbVsChGdRcMK/S4iHDxULptxbM5CMz1dUw5
uQCvlZ+aKVjPg4WsQl5rIAa4Bztj3fqrUcEjmbYcuh/89+iY5nPOOaQmKh+0
C3CwOpcyVfKOiP5yUn9F6c1Cbbuwa7L7APRfFDa1riLC719vhu2ZWpHQrvIP
//eHX7xHjvHwdgJzlEoAwZoE2UG+XidH1+BHmu/t5dh60FVa4LJz6UA6BXdl
DtLPVzfXeKgZ04M8Kmzs2c9TQGdGJHvxK90jz2CqraN6IN9O+ufiZD/6/EfX
9TqFDHz1YnvilueA5/X1lfdLWCCbn3xodpKMnjZm7JrCjEFpbe5OxOcxlB3l
+TcnggRVoekNXczNQGHQ3ad2kwQVdfzx8iM9yLDorG2FLwWMDvhhrpuWoive
r9gymOm96jCWd0ZjCE2Okmoe0vlpfBsW+8L7gevFaP5jRiKoGqlE+zNOIYuJ
oxtKjgTIUBkTjtFsgYdv5oUzTpCh4t7d7CyffsRbEyF1jX5fRG0101RrisHi
d5C56rUl+HYRQ4zrKEe/bKLQ9x66j42h1zzdQ0jw0Ef1IgMqYFrF+xIUxtEo
0VJuFwUPOz7xA0GoA5abpVxPKlAgi9TqNMQ+DCvbUT/rcwiQHTkRpes7jY5d
JM6pPsOCpO+R3foanche5nLDs8c0uGea9sTeuAsilsLZrJxoQJx+Q0627oM5
LwnabiEqtN7nHpMan0ArrPe+apsRwCCBefpV1G3wkZkR0n1BgeH+esriTC1y
f8kmgY2iwdi6abhaNBHJDn/OqamdhBMLGyJ6FiRY8r+55G0/CVWiGVP6G/VI
5ohKqJYgDWy3nWpVXCaAj+LzcF8rHmaP+qp6Wc4gXTdlNhY3IuBPbL0t9x1A
6YGnnb39iDDQuWZScZnuh0PDUWdO0vt3m5lDQ7YelR42afUtpcKTgoWJK0+W
EOnmdRS01AeTahEGmH1jYKIgFen6igg8b/n4zXbTQHTvPfu2tSFww/4LtIsd
RkO8B1jazhKBIDMZUT7yHWS6khJlPZbgqulNI7z6NAQ37t95T+e1UzYR00oM
0zA1+8Mt9iAeYhp26o7M/AGzax/ey/BUgCnpKguTyiJYB1v1PMich+KeqZvz
mHnIaUr5m7k6D7wntO5tnq1CUia767QIZFjXYpOS4+uHzbgWc43ddJ9z+h31
L2wY5rGne5S9iTD/sl0yJKoXeemJWSnS9/H8tZeNPxQrUDKDsGlTAwV+TLFJ
00yqYGm/j427Hw0CZWbcRSjjKKuebSeNhwT90u8bh1PnkELUxGEzRPdihZ3H
i7pNqK4h3OOVCA1CfyhV3ya1QcrhXSLMU2TQUvqg9TBiEAaS/YxDz5OAnbiH
rcR4BP5p1QlkieDh91U1TIx1PuycrR+QJ1LB4LrVcDRhHD277xU6LEgCl7xv
C/p/GkEw2XqTU4zOgz4SdrInuhBrOyXyYDidh5d3Hp3hoEB8V8nd8qYpKPjo
Wf18pBGkBpTxWseXIDyobKX/+zyU4ATtwxyw0M1S0bUVOI9OGmDsWKexcPhn
giendz/ka90/n/SeDA3qC3uTDRJhEy9toVNAA/12kyrZfzjUryhr5W00CZ/F
fK/0GMyAENOaswnzIhT/Mwp2zZqFpdiNwkG0AOY1OQ3BzBVQ/fZiRPFHCmyK
V7bfJcwi3W0mVV3yHHB9eXusjb0OvXVv28kypMG6xgVZc2IvWC93zWookoA6
J4l9ZIFBx6oc41V08SARO6nIq9UF/9RVm6wzCCDh8eBT5EI7OvDsEJ9lGQVK
vKTzozXGkcX0uU/byQQI+iC5K7y1GbXJlErvnKbC7zIH8rDXIkgJRhj/qJ0D
0+ayKyGnY9D9xn1uGRQaiHOufN5bPgCjP35FC74hAq1soF6/eBxUOGqyznjg
wVZ6t+vd7TmYENvjtfYBB29WmA/wNFbAlYh3VX9kqCCvaFKnKVCLukRzrq8o
L8HKnMML4qFStMWUXF1lQwMjZHr3fMwiFKSI7satz8HLUC/taskaNBnReNf7
Og1GbN3OFLsOgurituyHfRSwuOt7xDR5BD3PSIjN/k4Ex/oDZhA9Q+f9Tu08
ERyMXTwU8vDFHNgFixj+iF2E2eN1RfENWLAYcEK5DzFQvC7UbF++hLJSfdKu
fe8D2YM6PYHynejtyxbffzJEWDVmbsGeWYD4YPz+T810rufGXenCj4LyYXYR
eRIJMtMFww8uzwPT2L+e/r040Fys9W5pWIAF7WGKtNMcfP5S1/2QewJptv37
vZtnAbxbwgap04tIK4Lr4PnoaXhzl3k4ADuHRN9frmLowEDzg6ZCvZoQ1HGF
zfgfnUeyG7WNspUxkFRR/I5RcAHehguy7WutQrlccX+P+FNBCCOcHeU7id4P
MueFzxMBqzWXqbf1Cw192WkWsyVDBPv+c4qKfVCXKNn86SgZjra7EbjdW1Df
TLve+88U+Kc4UxY334jUGRu/72elwB6+Xh+prxNIhtO9d9cJIrgniHe9+DsI
q5u9O0+miSAmf7U3SHkYBgQqxTyM6H0qVGXqwLOIave3mf1rn4flHoHSiyoU
ZMiaopUvNgKMTm+rJOfxsF8q/VFwyQxsas6HpSp3oS/BPeRDWDIsKjC63mqu
BcyjTN/vwjSYid0SWAydQ3xOh8Su0vlbixYlsGnYhyaSXW2LHhFBpjlf0fHp
KlKr+CGPv90KZUkq6eb4OEhej2fJCKT346G240UX25D7ps7Ja7pkODlh6fqY
eQ487C47WnRiYci4+ESL+SiKGc6WSkgngDVzoWEaQwn45Dl9YiilwOSJXedm
PDBIdkzImDNkDji0lU/M7i4H7u4XCSPzNGAnsK4aJU7CXkE9sVr6emBcremk
9AuoVZNvCBBcApLxOR5VzRr010D2chwf/f3uQ/EHxJugQOL9oGINDSQqRi6b
C84AS0lk9OXXOKi/fKPifkc/otwxc3l4mQxbU7sz/bM+gof30e0HdN+91nKv
UkHwP1Bpjtr3k4MK3G8fx4ab9YGW/lPOKFsizMg6vLtK+QpCugnXRJ0pIJqz
1T/3g34vBBgG+PungO+2nMEPvhY0eU3pgzudWxJY2fydSQRklTmtn2c3A/6d
rMoHxgaQpSfN5ecQASZ4Xbn6f/8BNQGvIKftHJB+5pUoUl6F1vvV9h85RoX9
JV+Ml2IyYBixqiTG0sCSa2O67wYWtD6cum9sgIVjDeK8DxKTkOi1JZYJGTo/
bhv75pmPgqJq/dR2Bh6QDl+Grs8QbJQt77buxcH+ZkrVzwfDyMGMVNxzjQzm
f9qRUzAW8N81eut/zwPe5pG22L8e+Cl91fmTKQnSgokddzkHoc11+8+TNwQw
tdI37Ho5i858XeN6Rn/eWqDPlHXBJCwIzMaO+RIhkGt2VON5GkjR5t0suOj/
37KsE5fRjJS9la7d3kXnixv8qv8xzKMkz1mHjFtY2N6/tiUWMANOtmkHHREB
voTfCvuvqwkKFa2hs4AE1+cIVn+UppCCVbpjZCIBuEeuhjRemUJmSS+PX/xE
BJVTb6fiQ0eQdmCWq1AvETwXT9SyxjWhKfeyF0t0/v+eXv02uxGPrsdoCDxj
mIeyrgCB4NAG9Le01/bzUbpv/xfIGX1+FEr3CdcmviaAyd6OJi2nRXT8Z7KH
xNwcsB3ZrWlnWQea6SoC6XR/3uwplVHD9CLart7bZsIUOJRV095EGkf8hr5+
h5PxsIgd0M+V7QSvxjtEXTrvXiZdFrXSw6JSvknNTfl5kDNv/bN5ux9NJ8/u
pdF5VFn/dk6v2CBEp3+w8qfzQOjMeul9hQ7Y4EkJ7qSv/9jgzpOyphF4dO8g
yyE7IlyWynq5PVwAzTLvZw4T6f3i/2ms6144MsLF630RpOen36vvAysYtH/E
9vzg0gzENlzJ+SazBicORQdv8NfDULMq0eo4Htk+ljzwmAMDeH5eN37RBnC9
krZkkU+B1pWWN1wRseiXVpHltCYNhvduqw9faUW9lDETMv19e3GtoUU2WNA9
/OMNyQMD7RPvhZXCBpGxT1khGwcZMnrsQ9ifFkAwaTvQ5jsNFl+ZRZ6uIiKj
XQIhf1vHYUUpUczW6iM4pjsISdF59CfHLlpukidy3gxzcn5PBTsN7UMPI/LR
mRdFKqMHabDx7+l7jvgxdNUop4vDBg9A9KjImexAIqH3VJZuUyDb5qp20rl6
0DxDDrrzmZ6P//1luWI0B9r5BNB8ugDN6syhmQ9X0GvEr7hHrg0IzOLPNO8t
AuaqE9k5eRba/Hd/1U0bRymGFwTIx3EQcLLOQsysHOXkechMV1KgT+ZRs+HQ
Ano+LGDPyYKBoJdq1Uc+fUdkSfVFBc4lOLdrXZlHtA65CwuwCa1ToZ292OQW
nbM6g41V6q/3w+4DwxJc0vUg3mSsPIahgOS59EMzc3NIfhP3PKNwHsTLwcTi
3R9w/GZiRAuugOg9geGiVhPgc/QYX4EcHuY5ukrFFqLgu+CIXzx9P6z3zIXH
B00AVpC3RDiOCGmnMs9rfJmBCkvjLP1cPIQZS4fWcXjC+yeR37QYabBLBMNL
VqiHt/wo9r0DFW4xPJJ0qvqFhLyr9Oe4yfC0NaXP3b4e5bJFGuTIUCCn/GLC
CbkhlM5kriVLn09F+w+sWY5DYI3iVzykiWBwbkx0OmQAzbznsMPS/Zvy7Glv
pz4eGW659mXbT0MVc78D9n4FEmhMUGTSIUM33uhqSPgMuiS7sOc8MxaacQ/c
790kQlf7a+0t6TGwC7UilRwehs1ngWb+ingoOzLHfja5DvY4hpy4l0SF3I0D
p8BiAtbKvwXwrpLgjPjVh8xpv9GZp5y3rkEtlGg6X780Pgmh0aXJZFUCWOyv
bldRrYTyvMQazV56nz/Qtzj0ZhJ9DHV++dhuER6ojRwuutIPJx8fPv5cigYP
I7lZnuxpQu5hc/el+WjAKtVxucZ8Gpzurz7JHMABTtOo8uOjKdTG/aRmnRsH
ldPG71pNcNAmaur5SmUGysJNQuw0u1B8uPojDV46/3ZE2uOJ46jJ43VxcTkB
bv++TR1aq4DLV562+dyi583WXer1bw3QeqvzdtwmGbSP63C+s+tGapeNj168
QAVW+fVex6QeKBKxK95znp5f/UFPM3uGYf/9HHa2NjIknVd9LuozByZLq9YD
agsgZPk6Tk2nH86KFIsLHadB0VR3zpBGKvo9EDXG/YIKC5M7D4rUiWjUhMxk
fnMebpz82BIg0Q7tOpQk4h0atA/GFW+398Hp/+5Y/9ShwMMDlOsMmQ0gvnbv
7LGhJXBO5+DP0WxCv9aN5OZPEsFh9Rvfq52XaO3Jq7yTdK+yORuyq9KjGF07
8Va7+BKdV6O2zDMGWpH+KZ9bRn9J4K8UlUyzxKJ7lVm7jJYw8Fxlz/ak5Qg8
aYwtyyEQYCifkEX6043sGnckC9QosLV7y/Sb5hDgTQpP7ZokQPWNGFL++wZ4
M5epafOAAvqt3XtnV/tha4aDR/ExCex6HO1WiL3IwIorcK6bBD17TlklJS+i
nK6jtg92ZuGhxN7M0L4JxGGYqWWjgge5tZz9TXf6kKgFNfT3EhGMxA7xaeX2
IZvgy921vHQerxRJyfg3BXLnb1ykhBHA+Km0vrVTCbogEGR7VXMJ2LT8XfLe
9KDCb43yPIMkaA9S94jlb0UTMaDMEUOh+2G16a0QDPgxXWy8GDMLmKTd5rIV
dWhWkYk0wkUB1/epVjViBHQ4rJ6p8MUsnPogeblhvAbwcbhvhvTc+Jr51zKa
bwal5Q4WPl6hz6u9SOVATjt6bHOWV5hEBPQi355nqwyJC14yr+QkQ0C/eHD6
h1EkWL2Dr1Yggmtfn3jjuxW4VqWVbCnVCgcjvJ39O1uhjrGb/egbKpw59iVV
6jARuZbZ/xdnMUnneU9ijMcocrRTvH+F7tuTR/+oBV6oRyUN40brylRgMjFL
Z1vNhUhfaY0VWxoI6t0K2ufxC32+G7f6m0QG0WfWkRF2Y5DCEczx5hsRCi6o
JvxVnwfdz23Df+0WoMeWqy/OYRQWbz3O/dyGg/8sJc9/XkqEL7RC5Qy6f0yc
C6Y5czUhEfNC/mYMvQ8KJt5jX4yBcWomn/cvPOS8PZ/7nFkXCWAe+Mh30IDz
ZY7bJcYpxKGTF1gtQARrypC2xL8R+HMQ872PkwitVbe+cYpjkE7qZNYp5gXg
o3ycOv6UDHKhQoLadWPwRVXotl5xP5QfUDylS8/3hr3DedPCI/CCIBzRXkSE
ln3S7hPPcFCQ7yd7VmoW9HvYOR4SM0DZYPoT/8ElID7hpvC1dYLDgl+iIS+9
r83GMKt7+9GVk3YsL22IIM5jKMWAIUPfVqN6/dcRkOeayXdn60YXPVaHfsqR
YTNwLXn1Zg9YKDdQ4h+RIPvutRCs+QIc2mdkNXQbA4Srb/OzB7BwZ1ArjNV5
AeQ5508vnGtCzamQkKxGA+yep7E9dH6aWuytGefAQxaJdDB7zBt5nyaXLxgt
gVBFv6iAFJ3vxrAFcjeIsH095WDJQD2c5iFNr/CT4bls36tXmCEILTxVLbVF
hidfn12p+lUKOAGRESN1CpTK5meo3xpF4e26t9LweBiViG8LQkVIRHrjfTeO
zrso8iLL6XSoCIpNu1JDAQ/mxqVk00Hg2S0j+fklBdSKzHqqf00hy1geqf/O
EuF7Z3pg0qcxJAXqGb+HcHA++WIc6fM0fGidcPfOW4TC0Z/vK0XG4c6XfhkO
Fvr8nB+y/1qKBVkT9PDNXQxkSMjlFNpT0VmtZbkDm2MgFGMFDqmFkMXtazrZ
SIbA/hL1wQtNIOdyPEQklwq6kSEqBUkzqFI5MjW7agH+fm4iJbktAjbuorKp
9xzkyqdJSOVNIoaeALfhChzor+3ZlWg4iv5z31vvhyHCIwy39PXYJmD8WmCm
c5kGUavyuFmZRjQf+LH36aUlUHLil3mkOYC8+IqzuSPIsP47fmi/wRpqSTy9
3/FpORz+yszi0T+J3McfHueJxsGXlX2XHvo2gNc9+7q0XUtgVmMxell3GM5U
hDtbJJNB6eKx4IyzrSBtZMhKMqHvP67b9AitD2HkNQmGdWQgVm/zi+i1Q14T
i0s1C50/J3w0PDtHEF94puRuTzwwuy190QkeQLhLVgLlTgS4M6abpXe9Blwk
F65ymtDAdssgMHqLiN4wZando+fav4T2Co7YQbjE651BfUgEH5cIlPLrKGwc
e7pbaIEKBZ6vbsyFDSB/j76sKW8KGMo/Z9k/1gS50qZBFuM0GKprrPsl1ANf
UvkfHAsgwn1BycFThf3g8ebgIDuWBIb7S1Oe8Q/CN+ck2CQS4ebJvpHqA3Xo
YtHdX+P0+bM5ZrXYk0j3wzGZCwz0eXg4trF+OKQUcVcZebi7kqG/RWW5I3gO
RqSzSt9ewAP77QmrmhY8HJ38mzJ4bRKKo/hfKWpXwa+UqYIAMxoobUTKU7Hj
aL3ch8nXBA/9eeK2Vrw98EDnXlOeIAV85IR/HfPCAuvVCn+lnHnI/DrpcS8l
GDoSkzfSFGiAM+8XYSkbAJEQoepjdL8UEuHRd3jWA/8tfHFPsiHDva5yc/fH
RcgPUZ0ypqnQTFiSuqU5gjYeF3Cs85BgcEv9v4w7JHTjnK75TYcZsKoxUeJX
wiK/qHymCm4sdC4pF321noE92WlM034LIFFG9Hbe7IGxqJcD9cxkGBZu2jpe
nIsMzlkPCNF9wiBw5uYL/w50zlvI0Zned0OJx1SeXJlAt3eln9IVJkKT95ty
ojgRvcua0x9qG4PsJJelQqdJuH5pQK+phQCL9SOJtiw98KTVZ8v/OhkW+oWJ
nH/HwLpzalfWGRJcrXwhFni9BTk63m1n2E8BktJHd2XbAXikyfsrZYHe1yvK
PMOcxfA+Zljp1BMa/E12zCeMf4MzcksRdqfp57/F1haQOAtRF4LQJf0FeBvV
722p9gkOtmUQpeg8TnDfM7T+KBIZlPfNerYtQcAZ15Bp+nnecsrMTaTvx32G
f6ZuT/2RweVJ3jBj+v1STFw+kTOEFlKwz4bp/lh17gH6RRpGzm7eezxekYDj
+ahz0PMepKkwMfRskAr5LotHLdN60PIh9WupCQR4tuzItaI4CgzZg+b7mcjw
rOCeLEv8FATsvO0eP4YDMcVX2ypoEfKfu0W9ssKArYD9XwrvEuS3PS8R4h2E
/wZp2HbDZhTQaZb+SZwGGDOfXyxsDYjjbDj3sh0N3G8Ii+4apkG9oDHfNrYX
holesUQUg3bM0x6OJNDAy/3bHYpdGUp1x4rOMNEg3A938WHAHApkOVP+EfD0
/v8VkUIbgNSrciNZ1mT4mWdz3/l4GTKpkp6M5aX3n3K2yz9KPJL/8KaKU4UG
MT3c0ln3Z5FRz0uT1q+L4O+Q828dUwKnc6XG4unfP22zFC9snkG2GF44NYOD
kLof1Y6mLcgvYHS55iQVdjk6F97wqYXnWFUy4z0yzGRsvdKqLoWnjBYnM0So
oPgjvuG2zhISub6PNJcwAobefv9OCOIgg+G05q/saSBhu5nYAqchmzlRSjOc
CHW0j9E/7Wth62mA27dsGpA5AhX8Cmlwfn30CHfYEPSbM53JsegHxfLOyZ9t
FOh5Q1VVHhtHgpfcqQtDeLC7LH33N5ShHAIX1WwPFaozMjer99QDt1zfsBsf
FXx+vrggsK8bTX4srWm5RwAvk0mrkHQs4vPo8hb1xUDPy9usBhmLiOHixRP/
5ObB54LhisKFPliASNmJpxRQ+sp3h7lwCY1KZTmzK/eDVckUzkqqG+3JmJnc
dqJAjTzBB1ON0LT8r9L2HSJ4jNwVkgjuQKZDJn7jeApcj5hLShKcg3aXlVoN
wiJ4F6WVTIsvwTMBj7DV5iHg/qLMo5g1AWcK18TMH+JAue/CfHLRLMrV+KLJ
8WgBBKIKDG1+dqOP/NljmWZU0HjssecdfxtSibS0kaDn2a5B/0PLZ8bAbWb0
jR+NAJfCTkYwTc4hm78z0TTiIoS8qqIpf55Hms/+BH9ixUJhY6+k5rNUUBYo
OvholQIHKbd0k8J6kNjjk59Fsigg2C2f/8ehAUZd958edqGCWm3Te/3LBOR+
5dbmD/9ZWJ+ueZje+x/KloquPSdBA7VKUv7HqG7kqcW1su8WCe5xBWHd/8tC
jE/rVJnek8HgfOmc/8YSYHN115kWemDZYMSwO4SEcFe6rs55TAE/xnVmubkC
8Vzqc82Qo0KPg/8Lpetz6Fa+f0Fo8wJ4b54zE9WagSfn0VDhIQIkTbR2XrtB
QKkdH02Pn5mDMXec5MsphNJSx6x7/pEhvKyrM7S8HCWq5T6VcCSD0Pxl3tzg
ArjhctQ5d88SlPQIYzfVR8B0VI2r4xgFXFJcP4uF9CM1H4+77k8IoMLAn3du
hwRiBTVwnHMC2iNkKnovDkIq6xPTumUy3HL+RZB6V4dUIrIOcdRSoCC03fff
YgaajNB2pdH9+66AL8fsygcUip3gOHGf/vyG+9FnOUJQCildxUJoCQwXN16V
hPbB5EuOhqJuMhw9cW+ypHYYfqa7euJ+48AUEjjUB7HIzO7LpN34LNjqPQ3q
4emAlHqR4+0HliFBIuWKtf4sajZuv+vLT4LvTEMvKwnjsMH172/RIgkicGfj
90/RUJIjU/BISx8cOseWfYhvFr3bRy1218ZDW2ZF3gnrBWh939dlrzwPH+4Q
n/raFSDOkR+37e9SIL9+42qD4gii7f5SujWFh6trpqMlb/HAgc128emYgxiq
i8r3nh5U84tngcmBDJ6Hv62oRwyg17mMOTR7KtCaz6y/uzcOqzzPg28iAjBj
eMJqL7eixZHrLJgmMhgSTDE7/guoQ+jTzpA+BrbEEgZaVYrQg8N2fa8iaWDs
1bpk7z+P+suKb5ruwcMw05BvA0s/uC6EscmzEoENf2//CW8a4jh4TlXg2SiY
CCQmrdEaYF/EJarlNL3P1jVU8jvIaJmU4MnjOQoxO7c9FBAeFW5d3v00aBrq
A139LhBKQUU7fGjElgrbt+yGttpbUG9ewaVKJSosf2FOeUzPC6+6HJ2OFgq0
cqMiRr0xCHhhzy/8Aw9BLp/DtJOHgJT+g0WFSgIRzPBrhcU+4BA/xSw7Q4bR
6cWIhOEF9JzbmJ+xHwNlcj9XWfeNo5YZr69CiAhXO4c9G00H0Dhj2lw53bcT
rtn4N93uQ1OcZU/O7pBBWOnr43XfJmiJinMpc6CBtKTFKS5sD2J9e3We8TwJ
wt/iHijF1qLSaXHGKj0a9DCon7nKgkNRu24s6HTMQnrqq8tWp/vhwjr38XJP
EuQf3ddfVDKJFur31+wdJUB3R/RBF4slpN80cFN4owcYdbPe5png0J2h8TSk
NAuo+/UzTudNJPJ3S13iRTEcVvKaPU3vw/Hkp3mvnYhQ8RsbfQb7DAIULvF8
5adB5hfPMaPds2B3mtldJwAPSS6GaWknJhA2mLe2TBgP++7n1KhNj4GqTu7D
G9okODIX8mj6TxXMKr/Ylqqmwe3XN8afFtaidH/X9BscdL8/Lfa6+dUyOv7n
slRbYRuwa8309RF+gMLXb0efnFqCHrcugycf2oFxfDcX7RQ9X+aJEYRFGtjJ
jPPqZHeDbufUUaedGaR5QzvT2QwH0lJ/eDR2uYKzQF3o2BANJKraLt0TmQXa
tFVpyfFF2HrhqXem6js0KN7Yy2VKg6I3nhbJRSvwXv6/TKxRI7DIXl/gGsqH
vXKSUf+u0SA+VovzzeFh+BV/RKiNzhcYyeBZew8KiMuGYkTaxyFf0ngv6+d2
hNvZF6RVRobDZuGJAl97oeQ5gwnXTQokt+xj/9Y1gUqeVN+I3EsAyom1bUnr
PnS5f17vTQ4RVi6ujn6y7kEN0ztrmkUUyHFw056XKQGZxMcTlxAVhLQrKZwt
s6jaL3XljT8GeO0fMspcHkaJnUf5FT8SQAfPXBlm2Ieynt3OYjEiw8vjwolc
xZEo6cnErVsVdN7yvtkbMtQHf1aXl455k4DFp59rqLkXyg+bJMUkU4BB9NgN
mcIZ2M0RoGhbQQTOH672c1JYFM1qf936+jz8SPwcuMpDRQPnDpKztcYhIq1o
p9B5CLnsbb5qJIQD2UPNdhGHl+HRavCr9iN98D/NN9hg
          "]]}, {
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.004583333333333334], AbsoluteThickness[1.6]}, {}}, {
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.004583333333333334], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{False, False}, {False, False}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->{{0.5, 1.4999999999999432`}, {12.574876640550741`, 
       14.499999999999957`}},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox["\"All the data\"", TraditionalForm],
      PlotRange->{{-1.6501603109763747`, 1.6175091287494305`}, {
        0, 1.133492262531731}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {146.7594165444036, -138.075}, 
     ImageScaled[{0.5, 0.5}], {266.5870912635365, 263}], InsetBox[
     FormBox[
      DynamicModuleBox[{$CellContext`M$$ = 21, N$$ = 13}, 
       GraphicsBox[{{{}, {
           {RGBColor[1, 0, 0], PointSize[Medium], AbsoluteThickness[1.6], 
            PointBox[{{0.04396281575861637, 0.9889479653824935}, {
             0.732047350970269, 0.6317305919252872}, {-0.4746519976990142, 
             0.8113841735673396}, {0.38917619132349973`, 
             0.8734103982163541}, {0.3039683257063259, 
             0.902133622738005}, {-0.4258303721049463, 0.9382221575484049}, {
             0.05045822510352999, 1.0065914751756708`}, {0.1199596329319247, 
             1.0587185332344518`}, {0.3564951873670019, 0.8879365558655264}, {
             0.3329269020451632, 0.8801980886953479}, {0.2301816074420315, 
             1.0379531890905336`}, {0.6762732840969833, 0.6799063150723662}, {
             0.12278882146149299`, 0.9941706422537839}}]}, {
            {RGBColor[1, 0, 0], PointSize[Medium], AbsoluteThickness[
             1.6]}, {}}, {
            {RGBColor[1, 0, 0], PointSize[Medium], AbsoluteThickness[
             1.6]}, {}}}, {{}, {}}}, {{{}, {}, 
           TagBox[
            {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
             Opacity[1.], LineBox[CompressedData["
1:eJw1m3c4lu/7x2VnRZGR7FVJUoSPOq+HokVCkpWQFlKkkpWUVUhCyN57ZVWu
x8zee/PYZGZk9X1+f/z+eo7X8T6v93le1/0c132ef9yCpo+17lJSUFDIUFFQ
/N9vgKmG0iPlScwtsq/VdPI/QsYx0x+6ZyaxpfpghdjN/wiHWhUZoyTJesKn
kTPNigTPFwf0pwUnsfsG63WeK4qEO5UV66+YJjF724iCtqoCgf22+KnokQlc
osBb/FbrDOE1DYXbTOcEzqu+/h97rxxhPrW7+VT9BKa1a5C2MpMj/Nrwsq7K
n8BX137527+SJTgEzCXP+kxgI6Zc9XjiKcJQZbaAnNwEjkgsdxsOlyY4av89
Ly85gesTPN0ZVKUJXCPogaLQBC6t/njl5MgJguZ2U/Y5lgnsZ5Fqn/RJikCU
mVdWmxjHv/akP+zgkiQYEmXvXeofx/xnmVCW6zHChrqTz5XWcTw1dHeMd/Yo
QfoBU/u1knHMK2nM7ffrCCEq8uhdvaBxvHF5xII5QpygdPypl/77cWwckaSe
zi1O6C4uSjd0G8cEikze+GAxAmvnxTUT63H8cus6r0uoKOE10z2PB6rjWFPj
ieS+78IE05exyQ5rY1jwxPFmpTsChF3a2QbHuTH8z8d77+AOPyE0UGbZeXQM
x/U1GTKc5Se0ZpYqvmkcw9zXHCrcqg4TVCaG6nwSxrDlXHPqY+pDhGFb8cUP
4WNYGnXO+hnyEBz3PGb3DxjDtQqRHgyF3IQ83l3DQOcxfFOX7W/PCy6CiDbv
fLjuGH7FuX3IXuAggThstj/y6hje1ZJv3/7IQTC0TpWLVh7DISpS0s9pOQiB
Xoou8VJjWIa+/TvHxgECNVGPNYN2DBMuMLomb7MRotSjTmdtk7D9F9qeV+5s
BKW+Sb2cZRKu15ifH2VhI9it2UfnD5LwEzHQUD7GShiX/CyD80mY6UujsAgl
M+Goc/z8VCoJd5LyAtrFmQjWTd9S9keTcJxOeWaNFiNh40mnkIUPCY9F/Fnj
LtxLYCjgPMBsQsLH+ii2fH/SEq7RSzTJ3SBhm2ck/wgGWkLgLXkfk8skjLae
SEsa0hAOb+tR5Z0mYb5h0y1zJmqCNCF0RX8vCbO37FPrjthDeBaQkum+O4ol
dhhl7zDvIRSTih9lrJD5kChtoQsFQeVdH2nP4CgWwNa3twZ3kW4db3tSzig2
14sSdl3eRKG8x/1bE0dxt52EETf9JhqyOnt1O3wUDyuIF3CJ/EX3WY0rrnmM
4jcLJ/Z8t15Hr25E5q0ZjOISgWv61Zf/IGJCpo3A9VFcvuoSXe23gqg3sORl
1VFM+/gInWDvMvINHY77Kj2Kj9K+kDd2XkKts4smv0RH8QIjvTVt9yLiPLvn
8BLPKF6cMQv4ILeIooYEP5+nGcWx44K/vanm0bi0zHXrzRHs/HZ65FX/HDrq
pswcsjCC/dLfBl8qmUW5ImZvZ3tGsATLpHd82DSqehD3LCBjBPMkMpzHBeOI
8XveyR+xI9gn2TFjvmUMaTJV/h4PGcHxBALp/goJ9WSM31V4M4IjX+yPendl
FPFRrAmavRjBs89ahppfjyDT67SD761G8FNpV63ckmE0tyKmO3xzBM80X48/
ETyIpC+c2c+gPoKvCots+soNoGdBao2nlEewXKvxoY6RPrQrf1/VQ3IEJy2A
/KB+D2JzTpaT2jOC/4pZUBQ0tqN3+RLVrOvD+MP95tiXnW1ocz7x1srcMB4O
Cw+OmWhFo7cTHAu7h3GXakCmJn8L0g0RZQlrHMazKZzcVmrNqLY5LtKpYhjb
VIWnKM03ohxCbJly1jDWZ/ksv9xdh8QchHREE4bxjUHpw+5mtSg0J3qcLnwY
n2CTlP25VY3chKPoGzyGcXuwflOBdhXSovmqcfP2MO6xPIAVQkpR1VneYYUb
w1j43uMK03dEpGgf9oT3yjDmXYt9su9fCRKa/BI4IjeMRQ6IPxMU/o6C+LnF
KiSH8TfvAOqf2kWIQS+kIEFoGH+cUYH14AK0Uh3U+4hlGB849VqP7VYeurfn
oKUG9TDuLApOGGjPQfm2R7fu/BnCJfsumQuaZqN3N8QJc3VD2DyjbJrVOB1Z
V4maZxcM4bAzl5hu96Ug3TMiHvaxQ1jxXFZ7yvMkJM4t2EDxagg3Z3wpfLc3
DrF68y9WWgzh+X0UZZd2otHG5uEDPlpD+O3KH14bpihU3c9zi+PoEN6l8sd7
V0JQljq3Yy/HEOa1orr8NfUzCinhjIzcM4S7X9IEmAcGoPtR7ONHegZx777z
tdXDXkiT7QD9QsUg/i+pLfdsqTuSd2M7lpc1iJWiv4spz7kggZV9Gi/DB3G8
GZ2c8l97tNec5ck5z0HsvhBo90fNCi23MwVS2Q1i8d8MnUfCDVDvBcaC6tuD
WNNg1mEth5VYlr+398OVQbz7JcM43MGAmCJOv6N1ZhBvqwrUMZIeEANCaAW4
hAexm77uTzXXp0SHvTQqAyyDOEqd0zPd7znR1IHKImZzAN93tD6lL+JIvDy7
x+vexABmbT4e80DQlShjSJEm2TqAbzUt5xLXXxN5GnYbl34O4EfXy1z1gt8Q
Kc/tLOUnD2DzgjSDS5RvibMZW+yOnwcwxR7e3a+K74jt/Jvkl+QAtuirrNNW
9iD+8N/Qp7UawGU2HzgMDnkS4/asO9XpDeATB/QMgn95Et8/XY3yPz+A+eu6
3g9d9CLakVbKb0gP4HtTGpd2o7yIhjrLEzy8Azgq6BpfTosX8Xzl4t5hugGc
GuhQmd7vRZSUW5CMX+nHbw+gOyHlXkQLKReXooF+jCOXeT6+9iJGiu1rbfjV
j7WOKL1g4/YidvNFioxm9+OXU+sRdO89ifs5TzxfC+vHaWd592r3exCv7MM1
DO/68YAKS3cFowfRne4aL79NPxYRfCkmwPuOWPJvkHxw/djHI0OPZ99b4vq6
danaeXK+Z58fGUy8IUov7h4wlOrHjG8klZ1j3YgPp3wtbLj6cXh93BLrxdfE
/u4Mxi9zfXjoCKntX6gj8WDLOeP0zj58RTmD9Mz0JfFaTWNWKbEP61yYKlGj
tieWFc3fmAnsw+4iH73WyqyI29nOSbvOfdjmxBpdtYoFUTaFZWv/gz68c/IY
5RCPETEpVCrqv7N9mDhjriYqLo4+vLKeeT/eiylwnhQx9gnSOzvvfEKuF1tU
9mn+JHqjAFnnFhWBXuzNqfxdge4DqjvOIqLH0IsLI9PUL6n7oXN8UjWugz04
LTqGr33mIxL+Z3Wg9V0PTs7upC41C0KG6zt3J2x6sE3gBQuCUzAKWvhQuKnf
g+v5HqaZB4Yg+uF0I+ETPfiTVdVmYXEomif+TrTr6sbs1p4E6dEIJF7ktOlZ
2o07uotMrpAikUk2s/rX1G7MsTTDdsUmCrVFH1+udOnGNPGHaYLvRaNCNysl
TolurKKv6+qmFIuWHXZ8j+3vxpZvfZ5zpMWiY7YfRmC7C19go2bT4I5DEWbp
7+43d+H2+Jw2z7k49Ob87+aiF13YSgJY4VkCKrs4d+20WReueRV51KopAVGo
zzZmqHfhnnPnEvnEE5Hjjen6WKEunDl0+PhOYyIqvjV1hY+5Cx93W7krwp+E
/hpN1oasd2KNw3M3yi2TkL3FePWH+k6cvhXYZUqRjPIejqnRF3Ti5BtXl++o
JqNla1KVW3Qn+f7pqO/wSkaPn49UPLfvxHQCsvx8e1NQxqthlWWTTuz38hnp
z/kUNOcyVGZ5pROXJDaun3dOQfc9B4h3BDoxrXCYnP50Ckp43w/9DJ14yPTw
lMihVDTm31eiu9qB0xbZFm0vpyKhz71nW4Y6sFFN55/Lz1PRnS89P67UdmD8
uncxPToVRX3t/q8qrwOPUTCeiK5JRYPRXcUosgMzmumrHVlIRfopHYWydh14
0G6qlfFUGgrJaD+TZdyBTZ9tdttcT0OdOW35Ry914NS7Nt0uVmmIvaBVNv5U
B7ZYpSk655GGtL+35PHzdWDbk9rhuRFpKAA3nwql78ATd0d6x3LTUHN5Uw77
Sju2YtHe01OVhliqG0/6DbRjKoeIhqCuNHS1viFrb3U71q7SlxSdSEPezfUn
3HPasXIvn5zPchqqbq/L2A1vxyz0y5LN22mItqf2+EuPdjz8r+HlFnU6ujBQ
k7bypB0fwydT2BnTkftI9TFrw3Z8W6LSSnhfOiob/5UypdqOXZeYAk+wpSOK
maojZifbcU2IFAOBzOfmK5MGDrXjr/squm+T4x2XK8T1aNvx8cYSwUCyX/Fa
eULrYhuOotTnm6BJJ79PykTV+9qwu/+hw8a7aejMv9K4X5Vt+EgQyYV6NQ3Z
U5UKK2e14XtSDMUj02koj44Y8yO0DVNL+Gjs9qehZUYseOZtGx55CI2mjWlI
mrUkKvtxG1asEu7kLElD1uw/+SX12/BzUhqzWFoaSuP6EZFwvg0TeCREg0LS
0Azv98OCJ9rI/adEu82bNHREsDg8jLsNV6RRdpdYpqH7okWHDlK34f2VGsue
Omko4UhhqP98Kx484TzZpZiGhGTyQ96Wt+L44LMO4lRpyETuGydFRivW6kyM
URhPRZGKeUEOIa04oYe3aKUyFfGq5AQ+tmrFYacNE9zepCIOnQz/W5ytWI06
eGl3IQXliPkUX6Bqxa/VFI6v16Ygzb/3xk4utOAqKrOsf3EpyDtCUJ7hVwte
NzdnM9JNQbtTgUPF9i2YJ0Itki4zGU04vZLi7WzGwaT3tZNnk9AbTT09+rJm
XP+jUZKWOQkJCMu6/UlvxrovS0y/9iUi/er5jvq35PgjatYazxNR435TJyfZ
ZtwmZnzRJDkBWV/7GPLzSBNWWh2zl9mJQ0l/Ls993tOE4Utr5YeqODT6hRpZ
9zRiNEp/o9gvDumOPZ/k82rENHu2voUKxiF4aSznOtWAN8qFcrZVYhFr7LF2
5cR6fJq195CoRzTKWavcVy1Si6/H/esrUwlHvikxZef+1uB/yDlloiUMPTJ2
efatoQZfZjY6mWMShkSq5Pti7GvwJeWxVj3XUBT0OTXBqboax2v4XXCvDkEO
pz+ePWX5CwvNUqIc189Id8pqMRn9wuK2btu/Dn1Gp8Ivxwpw/MKWqxLsLQWB
aI6Kei9LSRUey3+6UbP8CRm32bdP7avCpyQ8e+PtApDyU8NHEbkVmKkya3dD
2w/xiSnwcXhWYK6Q33yDKb5oq4ejxcewAidRGLPMUvmiPEKT3EuaCiz2XDHF
7cd7JMamTKlzsxxnXDq0VKXmjSgr+b7VHivHadvTbgxZXmjoxdY9AkU5ntU+
KujI44VChvMapJLLsCzTT/mpVQ/EkCX+Ze9WKd4ISllprHqLJsyor7o2lWKe
7Y2vj9FbVM45srsWW4rpbWruyv1wR44uoeZjV0vxyHJJmlTxGzSvwSyNI4iY
9Gid0qfpNYrvG/8w7V6CMzI/6c0WO6Jex4ORX0+VYA+v/GO1O68QC59a1vXR
n1gj+Dg9+/lXyN4kqbUIfmLthOiKht6XSHX8Iaf35neM2DI290s/Rw7vwiTO
JX/H/WuzW+4f7FGGeL3C8s3v2Pb22K74/DPE+fC4of63YvzhZf+bkUI7NDW/
EHXUpggfpfapBtuniNdfIGeQrwizyjCs3Zx+gjRPXi8PaCjEK6vfrG+bPkGF
tjnjm0cLcTOxspDbyAZ5bdgdrRvPxxfP8Nx+P2WJSr7E/+cSmI/zyA/+1x5L
tKzYefWUSj5+ZPKVUkfgEdJ3OvM4LOobrmVR4OWyeoCOUm7mPjLIw++tmrg1
VCyQcezRSn6GPKwgp9XE/vYuCjhv0NlWmIsplvUsQuvM0ea7Hxv/HczFKr+Z
X4dYmKE6RpezTC3Z+IL9hxjDVhNEkZ6pQXTJxjeraX8elDdBpzWGb9tJZWMT
Z5Nzf1Vuo3B/glu/TxZmHGIOoKE2Qt1H6X1vfcjAlt4JA5sjeghZPcgqnUnH
n1zpnp6eu4mSMmtbj1xMx7P1HarxO7ro5ekPnJuUafgC/cO0SNkbaNR+XsHU
JBWvcl09SzLQQZeLrhnW/kzBH9uY2Vs9tRHPuf3RoS+S8bzoXQaJtevIzdW2
nLIzCdM9tdlzRe46mi1rH394KglvpE4t+Ttqoh9qwUf/m0/AA2t7QynkNJDR
dd68PrM4/PjpjGr6mUvkeW1V4VlFLOY3u14SwnUROQY1YRbRWPyBTj7LmEoN
hfe51REmorHHOi7wXz2PJJ0Nr/epRmNbp5lsr20V9F1ArssuMQqbPNj4Y8+k
gvLqWiuvtURg7Ud6fNdUCaid9V2LW8BX7G14lan+MUIrNxQGvmmH46Ap7/Qy
ZUAyw5F/DnV+wVaLixMU8koo84+l8FRvINZt/n2qqVUONSoInDgU/gmbV75g
WgmTRfPObYoaRgF4cNIxi/vpaaS33y7uPvbD6yIEhxUVGRQc3vu9kfAB639c
15k7dxJ1ihHaTld44z/UH+7bXpBG2v+xUO6peYtfKXDF+U1KooBKO+57V95g
q+Bb1xpkj6Hma33SDQ2uuP/jX2urkCMorFoTy8Q/x002P8v/CxFDXAOH53eT
n+KjlzVrRU6LomOkDoUgo0e4r5Y0NT4ijFzbJdoPlavjBu5f4+9sBJHkvoGH
NMdPw3+21HYKmgKoc8ktknVDD0YUhBZbnfnQq0+qtY9O20CwBffEvkAetOv8
MizyxDO4pfozs7SaC7k+TLNsO+oAGYGnD3BxcaJyAS+Pr6xu0PeZj+4rJTty
DxKyOePrDovK6vpNYfuRKtMPvRZGD4g4E1ySfoUN0bndIDzy8gK+ovseF9lY
UfX6/BEauvdQs3z59aMuZuRt5bk/0t0XzEPOXBHKY0QJS/5OvK/9YTx4WGoj
fy+6d++oRf5uALynLLt6XoIWXRR6rv/mbCBI9B+ve/6JGkkMlGtoOn4G3++P
Ss7zUaG9Iawqh78HQWKsi4Dorz1oRsvozMzfYAigNMz8+p4C1TKnHCuQ/wK8
RfsTXvXuQmr1Gr/781DocJyigaZteP9Ghf16fhhcNW/WafyzCZbn/On5VsNB
c9yRy+PiX1D/2789cyoCLsn5Xun7tQ5SeUeWCp5GgrHgpOB1mzXwPPP9aZle
FChVfqxzg1XYCByZk9iIAsMSghzfqT9wf5nunl9wNDw98bph7OIKdF+TGlmV
i4EJ3iCFVOdluJiuY2DYGQMPvY8fvtW6BEUMrzrKnsXCREVPyxRhCaKOc7Rl
CsXB5Sn9Pw5li/BOM7M5vCkOhrx95I/fXgQr20uNXo7x8CS0WCqXYxF0gkh1
9kcSgE7WwSH71wL8V+RUY9aZADdi+Cyo/BZAqJ/zl+abRFBQFMvRclqAvf+y
K85KJwGzPg11he8CLApeLTs6kATfbIxkkvECdJ2fwJzeyTCjyC+NaBeh5J7r
T+ozKbAVeNznr/wixHnzfF8ipcBQs1T6Q/tF8EnPKxz0T4UPqedN9/9chKfN
Gvl1Z9PgRudszRvGJdBbmcotnEkD1jKj4bsmSyCmcDgz4HwGuJJe+b7gWgYm
w4I0l6UMiD1I+5/uy2VYcb6eYhmRCern3jTt9C2DyWiZlrBjFnyo0OmujlmB
9hW/li+tWaBkOOEuSvMH1GiMNFmPZANP3E7wz7t/QEpiXX2nIxtUVd+FlvKt
QoxCRb2tZA6s5mrVkp6tAseVj1dm3HKg+m/uYlr1KngaGtea9ORAG1pzDDu4
BttWxy51ncgF5e42sf9ur8Fjl41f6u9yYcQi47lIzBqM+leqVvTnwuEGc53t
wTXQjQmoVDyVB1Ti3R62HOtQk3v7fLZXHkQzymioXlgn/08ky8WH82B8cGf4
P+t1yOr8S4iQ+wbx38WoxfzXQXiqisj+4RuI881+Gk5Zh6C/n8CH9A1kFboO
XC9ZBwbGOyV7FPMh16rznEXtOjjxSp194Z8PD/ktQzib1mHx+Nb3+Yl8yC8W
/mdevw7mUK1492wBcJqqId2ydejW/FzU96kAdizm0jaz1uGKqam81kwB5F0y
z7ofsg4lticKqlEhWMQJ3P/5Yh1k3m7LQnAh2P3lPMurtQ7xQTV5334XwipV
kXOGyDpwJQWdkjxfBLE/Xv6LWVyD90VmOTGhRcBAYsk9nr8G/2qlT3IvFQG2
1tPweLYGT/t3Mv3UioE0zTI9J7UGE79rpWgjisGMcDY6cnQV6lnvSq5c/g50
u59IlIqrQG6IUx9Ef4cPA8QY1cE/kHvq35Hh9e/gmxF/dsfpD4TqfhFviPsB
VaFxejTZK8By3yJBZesHcPUKft8+vwKvX54SLb7+E6gWgoVyOpbhfniDUOLu
T6jncTuYPb8EsqN7+F7rYYjwMQ36TL8IUsU3l6STMcSIEfJLJRZALCC9Yvgv
hgfFgkfNYB4Yo9Nko9SJwLEr/3Tl0Rxsa+r1/5snQvyOiz5HyxRsKFFV3eQs
hZ37ZtOdC5PwRyIjMxNKwfujg3wZ2yTMUVC/ue1fCnVC6bu/TcZhICvzCD5Z
Br4/ey6kyo9Cb7j+AU79MlA8lkBPchyBTk+aHWu3MiAmaVT6/BqGRhODZr62
MnBhI8zujg5C7VXaYvutMjB9apJYFzMAVfLZsY3C5SCbFBc9+aQfSljpnjvb
lcMdEPjKiHqheDvbpDO8HIY0sis3oAfypwwvS1WWw70ywcv/NLshp53u9Lvf
5dCs2aH/3LYLMog5hwc5KiB50uV1RmInpKQZ0cmdq4CHkpthk787ICGEfumD
RQWIXXvUr6/aATHuub3jvhXgRsxulM1uh0gb44qzBRXApb9sGibVDuGGezM+
D1WAz13ZndiSNgi5mBf8m64SNPzWvYzutEHg6duvL0hXwlryp+C6g23gL8Dw
6KteJewJfWA3OdgK75m+6ay6VoJtS9z1qKJW8Ny4fU49uRJKVd8+7EtoBfcx
Bon4lkpwkGKUtiOza/M3tp2/lfDTYOKFUmErOP4w2dIRqgLHWo9v232t8CKJ
cTztchU8iDgtYcfWBnaB+Y3UtlXQM7YmcEuvDWxc7xQahlWBXM+ls7ey2sDS
kikmr7wKiJmGqdzc7XBfr8CHaa4KlDR/2ZwJaAfz86bPzNl/QXmhd57aoQ64
I818+4fSL2jlOcPUndsBxryFF9nv/oKrlfvqrQ06QZ/eTMbywy9YkqfR92Hr
Aq3hQhrewV9w6H1fu0xiN2jUmy3Y0laD2curq+Fve+ByIUtPnVQ1cM6fprxq
0wvK/uZpr1yqIdlWj7R1rx/OOe4Lakushi8eXdE5tgOgeL/Y5VhzNXyS0pnk
8RoEGcSq3SdQA4IPaeME7g2D8OL3v4plNaDlviND3zUKjg0q7n9+1wDH1v0j
3h4k6EypY8ngroVzOhRruopj4H23T1jwSS1cTklRXYgbh8XeTXU6gTq4ela5
kur1FLk+t27ilTpIeXKLoUZuGuI+M5g5PK8Dku5Rb4nZabipyfPid2MdFHPm
N2yqz0JJpUJMm1M91KcuV5gu/gau2FLJD8n18DnWf9DUbx6eul4qUO2oh7YX
F6vbjiyA6H+36oskG6DVxVKiX3wRnLlGdG31GmCUqOKrZrUI3av3RyTdG+DX
169FjZmL8D7rxVpkH1nXGGtLP7YEEx8oXt+ia4Rc083BWvMlQI88GQ+cagR2
s0JG39AlCL3IGlRv3Aj7tM1ChuuXYEU0ROCddyNsaRz3zthagqtUAqmQ3wh0
9s2FE2LLkDCcKPt3pBEiZFG3g8YyUJScIOYwN0GRzz3X20+XQT+s4LKlQhPc
lp6ReR+wDHkvoEP0bhPcTBwy3spYBhbdX7eH/JtAQMXVNOUX+X46dW0m5EcT
WD/76f2lfxlKWbvstKaawL2lhLX+9zIwP8/8R8PQDNWmwHFxaxmK765UjPI3
Q3lY1ZeDNCtwT+eMN5ZtBtvC4ucqjCvArvLqWviVZphRv3xjgHkFSk9i9pd3
msEsXjJklWkFrAWoem88b4ZgBwXdKPoVOLRPLVLmA5nre1T+UKxA9Y63+b7Y
Znhy8kYUw9oyPJtrPDJX2AyD9v/4/00ug1Df/oXqxmbY1FNvX+hchsYa3bz4
sWZYZexk2ylbhleFoS/dNpvh2tsrOpfSlkEicfDcbdYWIAw8FfhLPo/2z0LU
SmIt5DziYzLPl0HKNsV39XoL9Dcu1kzIL0PfnXnt1nst8GSA+lD+wWXw1JTh
znRqgfP7Ju2Klpdg9Hhx7P3kFqA+GZ/DnrAEfry79y/gFqilXjxa57QESozK
UkIdLcAagV891VmCoKmawj6KViijIJne/LcIl2J7GjT0WkHLzexqr+YiLL7N
sKi0aoWAtynJSmKLEHL/zb//3rRCQeTueb6NBZg6fvzkkYxWMOOZWTDRXgB/
VsrayHLyeuWfJnFUCyC/0ml6sKcVTrz4Xbw/fx48C10Dqajb4Nvngu/BQvMg
HXbjuAN3G9xP+ColP/Abup2OVi1KtUF4E/+Tg2G/wdXkn/G98+R7hklp+JHh
b5BQaV8fuNUGm7dqYy0Ff0OzaLK/zuM2sJr4baw2Mwcv6J2P1Lm3QbnduTGR
gjkQmNUqI4S2wTDr4XlxzzmobhA3KMxsA3w7pc/SaA5ssrZXpCrbgIm/9+ne
M3PA9anlfXxvG5geFkxi4pgD4rMEUd7FNoj2PmfpvD5Lvt9elQTQtEOOYaLr
7cFZYP1P8+beQ+2wJ5pHO7lmFgoPiy66SLfD6+vTw+pFs2BCsem5dqEdqhPd
Y86kzwI9qVHQyqAdLmwOuVyKn4Wsythikk075BajRuPoWdBLeqGt/64d2PlZ
9a6QmcJHfa45rB26m6497oubhSQrobdq5PfIv/HLjO2ps6CpuX64pKoduNPE
l5e/zcKGTH3+6f524GP7Nz9fNgtRHNHXUpfaQdiHn+NF6yyobTybEqTrAHVX
ETb5sVmY7738OoS3AwIt/T1byfsL+snPs0+mAwJMgj3HmeZgwq3myrZhB9Q5
aFm0K8yB792IsadPO+AevJbs0JwDuYu2TtMeHeD54Vrkl3tz8I75cGZnTge8
/zx3MThgDqQWl9TUqztAc0Pk6mj8HHS2Vg2XD3QAj+7jNwfJz8f5W9hLxZUO
2HL8iEoq50AsxGZ/Nn0nRNN/f2zRMgeNDhdSxfk64YyrVX9kzxzYG/GcjzjV
CVFsqr4Ug3PAhxb62S91wnVBo3OiZK4SqnjmY9wJEp40EznkeGuaLyyUdp2Q
LxZ6T695Dg5OWSW+8OqEz/tFtJpL56CkVhktRHSC+W8P4mj6HFikc/bczeuE
gE/bOvcC54DFf+5Jf00nBO95dV3t2RzkPy1l0B7qhDjG8QYX8v6NbwTF1vzp
BKGK90wiYnNAK/9ICTF0QeTHtt+312Yhgwd15PN3wdoHzzcOpbOgu8NufVy2
C/qnsiq6PWYhoawkksekC65FXy8JpZ+FC+r7qVa/dUH0DZSgvjwNvnf2Lv2t
6QKPkh/ryrnT0P2MYmh3oAtcHfso4p5Pg6D3ej3VchdQalfbMRGm4WHEfDE9
bTf8gEbdi2zTkJsznsTM0w2aYf5/dGemYLuqP2i/VDecdw3/a9U4BRf62tw5
lbtBbDAgfBtPge9C7VNe3W4YVGadyCidgi6qMhPBh93Q+96R7UnnFAhwFWmI
OXfDwqlhOts95HySWUrHArrhhWPfn2Oq5Hwo8ah0Qjfc5m5YNUqahm2dCC7Z
4m7gHzhD4pacAdUHn2kVG7uBy9r8dHnHDPg5vf9zbrQbuLmVdg6kzEL3xzej
Kmvkep3UaQUz5kAwwaH5IkMPBGyO7xpN/oaHxU9K1Pl6wMRof020wQLkNt5P
05Ih9wEPix5/9lyE7dHboTdVe+DIwMWZ6x5LcGFd19NQvwcU+WtWP6Uvgy+j
hv0d6x5wq5wfE/5Hnj/5L5hbuPWAVWeZAJ3rKgieVtJ6FNQDHfR/vridXoeH
F08hm5QeEBTmUT0s+BfyDI9KPSvpgfGviUkxl7dgx0aQ16G1ByTeXrgnmr8D
qm+5GFwmeqD+UeIf19MUyO/Lvo03mz0wKcn82iZvD+pOp53wZOmFDIperQEj
KiRYttP2QagXHDXbtedO0aCHnX9KA+R6YSv6Z+mcAh3KnZnNDL7cCzc7RIJv
2e5F27ujX8ONyToO3eglMaILB3p9op/2gofbv3g1PxbkK97yMuFdL1hfaD/T
9oMVdf1XfS81tBfoSry6grX3IwFNfCMroxcoGR/dEWdhR7kv0k8Wd/aCSMqT
rT0bnGj7fRw/numF2qHtgnOSPEg1Ooy5YrcXhNXplY758iK/bwFb1fv7ID51
hM1TgB9113hNN4j1QYCbzDT3igASHHTtalXsg6TtwD8cT4TQw+XnlV0afUC/
YZhWxSiCtnksokfs+6CfR/VRy1dxdOGEkd+Edx+MtswMhoYcQb4qOk6zEX3w
4vJ/oRv5x1D3zSuPFnP6wNN5qrFh8zgStFS+tVrVB4pLXUN0p6TRQ1cFtc3e
PlAuN9ln5nQS5QVKy/6b74OsUtdvbwdkkOpPPra9nP0wt3XI/h1JFvm1cPxj
PtYPe7gOJmf6nEHd40y/90M/aBk+6ZPTUEAPWbaqecl9ozyzouRd8bMoV2g5
X/BVPwT9+/syGQHalpuOE/PrhwG7Y4rlPxDyu93lKl3QD2ULp/MHxFXQuzkl
mKjvBxbfRi30+TxyfhmzEzbaD4z2D9IruFSR9ScrBzqWAXjFKpZ92eISshBo
k/8pPAAiAZwmljJXkHG6/PpThQFo8lLZXuBSRxq/qOwGzQfg679Sqb5wTaSq
80Am0GEAPL0sTh7/fh2dG2lcvOQ/AJTF0bZs01pIauuL1bfvAzChNeTGb38D
iXn+O/aoZQBoiwMOhnXqIj6OuzMCk+Q+mCbJ7uolPcRyQvre+/2DIKXsGiJ4
3wDR/vgsqiwxCBqbo3yFHEZo9+IWaf3sILwzuj38oNsYzZtWmZg9GAQTDvNH
XJp30MTCMX5ul0FI/XzYyFLbFA06fhxoDByEZmUV72FTM9QYZKivSByExb98
HC2Jd1GVcBnXYscgGP1MzRMdtEAlWeJd8bODkEZZsnFZ6D7KqF3WZuMcguVj
auG1HQ+R766n+pTVEPCVz3eJvLJB73zmGSPeDIF+5OlzI9pPkDOXTq32lyFQ
a2lMMJB9iqxl+NVwxRBgW0431wN2yAK70zzrHYIXRidWElifIeOrM+VHF4fA
4Z2I8htOeySeqy9QxzwM554eMtRTeYFiX374F881DBpfzg833n+J+BFx0FV4
GJRC273XQhwQZ4PoVzmFYTD12y+jw+OE6CYXuWPMycw/tJdB5zV6ky781/Hx
MEwVTzotsLuhf7a63TcdhqG08SBJqN8NrVP8CGL2HwY53KA86eSOJnk8Drz8
Pgy2AwKXfrN5IrORomXtqmEIqNk9eJXeCw0lzrVItQzDxUWBrAYab9R1Wst/
bILsv+pEF3DwPfqlcZhZc/8IWG8uiMZc9EfsUiMHn/KOgL2Tw/GjXf7IhDle
IFBsBKq12s8xPviINuskT3crjgBlfoP3VFAAkrykZGBiRp6rJ0X+aB36jF5I
UNx1sxqBSwy3Ts1WfEaVdBXWcc9HgFjGfW3iSRAyrrriNuUzApuRtnbrHcHI
X8Ug2SZvBJSpB/aNVYaifiH+3ICSEbidcHd1wysMHaEk/cirHoFzTww1Za+H
ozLiw+aN/hHgciV8mpv6ilbPOqy70oxCSfBRy+KvUUhf/suFj7qjYG13r5tW
Mg4lcBpdyzUZhRVhM0nFmDi0Qh5DOx6OAr0674Q4dzx6/y3JkttlFGL1Tw11
0icgLFP4KTpxFBrTm22K5xIR037Hr+XZo/D78UwphUUS0luCxPHvo/Bu3sBe
YigJLWf+Kj7SPAoXeb6GfG5ORiLHu0ayN0ZBabm3cDI1Fdkwhc22UZKgxH98
XkUgDf2cNV5dZSJBRnwljcanNKSbMkGvKEiC+xxv/ubZpaMYr5T9hsdIkNVd
8ixnNB0t3LfmdZYlQWDIGHOkRgbyFF87UXaJBPJrkVrP+DNRO22xwpg2mc1Z
xpbfZCLBCScVWmMSuNr9M/QYz0TFcTQ3Lz8lAavSp9y317IQnXuNiaUjCSRP
fBEkvMpCOmYfHvq+I0H1cKXWvvgs9FuQw7k1lASWKstzpstZSP5V9JPSOBJE
8Yvwb7JnI7f243ezMkjgXnDeTl42G9UfL9aLLCTr1a/37mhlo4Meqld9y0gg
8sDHRMw6G5kMt4JTPQnqQ+fvBrzLRikKt09ZdpLzK4m+4AvPRn8CZsUMhkkw
THn3cWJGNjo395zn8gwJToedSdhbko08L1CzKPwhQcjNCUrB2mzUGuG/R2KX
BNI6FXtqWrMR7wbv6kH6MQgxMiX2d2Uji+vJUzT7x2DsUuHeMz3ZKCtFtv/P
oTFANJpmOZ3ZaJOqrIkkOgZZw86HjjRno/NGGuWtJ8bgx61ivWeV2cgvvze/
VGEMFuc4jj7Jz0a9++6lZKmMQSHLRshaTDYSebDyNVJ9DJrZOH4MeWcj6zKX
j743x4BitaSOlrzfwkNMb53ujMGGeOgZ1avZiPJZyAvLR2OQpPXr5wvRbHS1
UcTS4NkYSKNPb17+zUJB4tm3L7uMgadByQmR6iw07HpWW8FrDKIorGlvfMxC
R3trVCU+jYHeo17aaZ0sZHdKV5Hz6xiYfKtnKNmfhUrejx6nTRyD4QeUzXc/
ZyL6CWvB1awxcN2gEb/2NwNpwRb7WDE53kvSd1MzA4WHeNC3VZD3N+Z3/Xh4
Ojp5JWohq3sMBKbeaGkwpSHHOElS5Ch5P79XHnZLp6KqncJO3zny+pkYHaGL
KUg/q+WnJcU4mPwLnTTSSEJxe42zDRjGgah9Z5z1bCL5fp+Ju8xOZuxwkY4v
AblxUL2XkBgHimIqzrf5saje2s+FU2YcXK3sGSmtY9DB6kO2tEpkP6GEzxmc
0SjF4bT+2DWyzj4n/v1NOGobuisR9Zy8/tKY6EinH+JTWD7k95rMWyRKZwYv
dD/AeZ+zD5mVWeKcmd3Q9vngNYNIMrMyt+aoGiKRlOoKzl9kdkgk2jz0IT6z
O3bH7+AEoAuNv8++SiQeZFj4oSs4AcSlTalIYjKxMDKHi09yAlzVMNs7ijTi
dq1CcxqBrLs3L9TLZBEjTHaO2V0lc8pVKj/lbCKsET3+u0lmEZUrU5dyiG6C
F6HWkuz/4Kv+c/k8okgBY9jH5xNAcZiicfLQN2Ll1aY1PTdyvMGyzZ2Fb0SL
0QAtgQ9k/hIunJyVT6R/oZsxGUzmCCNeI6MCYgozD0NmDHn9M5715eUC4pXY
gbv26WTeYs36Zl1InJOPLj1bSK53zdarvKGQ6NtofpimnJy/gbWPkbmIKG0u
8bK+gewXolB39UgRseXvbPunbrIeL7HIyl9EfOqXKW1AIutmjD1pM4VEdlHb
90LzZP/Oficlz0JifrHc1PQG2b9D+nPUSgHxpuamSjbVJFDMMDS9kiggboz/
jHzBQuab7SsnhPKJoa9ebwH3JLiWO0309uURldgu3KQTITOpxVNbM5c4kECf
2yhF5og1VzGHbKKzUj1LkAJ5fYNoiWhiBlGg1e+h0XkyJzOfZ05PJpbd064S
uUbmcfnTcn9jiWY7B4XmbpGZUjHm/HYokfpTr1OuOZm7Gzoe5nsSEyQiehwe
k7k5nqpM0QZdLLkjq+xA5sCx6HmTIDStLfpx71sy79dhvmEcj7ynp+aa/cjM
YG994noWknRJuxgSSq5vuvSYrUc+amS3ibsdT+aSPY6fDX6ixymnKMSzyHzS
i6HnURliResG88Vk5vH6LfOmCuV0FBd8qyT7FRgJP/xbi3QeOR9waibrhpPO
uu1NaJVC+fH5PjIv1dxj+tCKgoJo6hgnyCxIv+R7vwPJS9aItS1OAvHM2UZW
127UW/reLXSL7Mfx8hB3Vx96dVNz8A7tFBBb8qtvPRlCJW5dnxcPkeeqGclL
QZiETLjClgrEpoDilt4F951xtCfDWN3l5BQMMxqd0L87hWJUhJJVlabARMQy
9sHfGXS+Z5yaRY3s53LvGv+P32jCOtmk4/oUZFGc2EOpt4g8qK1+hBtOkfux
rNHB2SVUe+KP7bGnU6BppdawaLGKLCsLmpYdyfGyb0R4rq8jZoNXx4o9yP5y
q32cBn9RxuI5j9cBZB6TX/J9t4U031GSLn4l1xvdmyvXsYOWD1WdY00i6+36
3y1FKAiB2V6hXTlTIJ0cFZvyZA+hq59Vy6KaXN8V32yDy9SEyz53u+1ayfXI
v3/t8YOG8EOh2PhN/xT4R1WOiqvQEaKCzB5FLU6BzZNXVzw+MhD2Xyhcytic
gkV+EeVzBkwE9xWmFz+pp8H/TvxV/bMshPua+e69XNNw8WLTkJ84G6F3l4Fx
Wmgasjyp3L3QfsLV9Nsf1yWn4f6tkPl/9w4QTjLsjWAnz8lZdaGTs2MchLhC
IxHhK9NQPXtA4tt/nISD93JSTt6YBulh9q2YWC7CZrlBgcaDaZBQA/u+5EME
y6dZZ41sp4H1sThH5qXDhEEBmopHTtPgSruVVLTDRyhzymj2/Ej2L7MLndUS
JJyWpLoZHEbWdzT6u9SFCAm9Nwfi46dBIKXubryOMMHnzJ6ZsqJpiLrQLt3t
IUrYHb9h01I+DS/aKsOVv4kRbAJT1oYapkHTOHI+ZFGcoLOkTbUzMg0b3izC
Fz8dJVRFJnkxzpHPI0jveMPWMYK8xs4+njWy/6sTOMjuOIE3NYH3DMMMUIsW
x1RelSb43tqKucA+A4HVUwQP4ZMECnrNIzp8M0Ckqggvp5IhjJn/lX0iQ+bN
jsdio6cIugc0frgozQDXgVO7bCOnCdWlMcq+qjNQHdifSDkrS0jnu3otVX8G
BIh7bWIF5QkCDVEdRebkfMu/6k5fUyAEvFo1qLaegWZmj7UPXooEq4gPtOov
Z+D/v4f5HyLCDds=
              "]], 
             LineBox[{{-0.8828179208781328, -1.097224051073163*^6}, \
{-0.882741072639079, -1.0732565386622548`*^6}, {-0.8815120860426984, \
-730063.8933672458}, {-0.8802830994463178, -401888.9446001202}, \
{-0.8778251262535565, 211343.34411868453`}, {-0.8765961396571758, 
              497334.66284792125`}, {-0.8753671530607952, 
              770176.9254744798}, {-0.872909179868034, 
              1.2781409750663117`*^6}, {-0.8716801932716534, 
              1.5140956510793231`*^6}, {-0.8704512066752726, 
              1.738567670245558*^6}, {-0.8699186555627948, 
              1.8287068205435334`*^6}}]},
            Annotation[#, "Charting`Private`Tag$8871#1"]& ], 
           TagBox[
            {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
             Opacity[1.], LineBox[CompressedData["
1:eJw12Hk0VV/YB3CzUuYoGRJRJFMioge/aDCEUjKkVMqQJCmlDEnRQGYyk9lF
rsy2MTMZIlOSSIZ7TOne67r3Pe9a7/vXWZ911jrrOXt/n733OXsd7ljcYGFi
YjrHzMT0v1dFEJ5jMBiow+CHxIX6cLhDkX5JoTIQhIcTVr6FQ1GJiuzqXwZ6
evfpsZylcFA9YOIwM89Airetcq9LRoAGf+BI5xAD9Y3cc93pHwG6U8vtcYUM
NDf9QdX/ZCRYvOjKO2zPQMT9fhI8f6IgQm/09CFrBgqNGw3dxRYNAxuzv2Ut
GWiQ5syquycaLriz7dttxEDfftlYzlhGg82lYwlMGgw0nrdxPaIpGq4fzHnd
xcNAv52srj3PioEHPYG3b9bSEZb4UfJJYBy8nvcaWiunIym/jiurH+IgjdNJ
L6CEjpwKaS9CW+KgE0yEErPp6MLGjKDWtniQKhKq6QunI+nWoAmbyHjoDsvc
fvwmHTUry7stFbwHWYvWvB18dOQQP21swUgEbbdKoTQuOmr3VECtMklgHpLv
q8ROR3Prp32cjJPApyHs3BnqJjo6z3lLPj4J+lQvbfj+2kR/Ew4zETSS4Yng
3Jn58k1UZP1gj5tOCgwMbJurv7qJPvCqW7q+SwX/66W1ebabKEU3pInyIRUU
1y5HRF3cRMe3FOa8r0yFl4IftZ1MNpEIT4Gg+K9U0LGwCuXT3ES7r78W3XU0
DTJ7MtTs+TaRPm93KW0qDR626/jSammoryCBCzPKAPG6Ozs0xGho1/BkGdOV
LOgUOOKptZOGytxq5z94Z8GjG9R+HQEa0lP6UeAQkQWDXM8jTmyhIUbIITHp
liwIs4wXsFjbQEeIRrb1StnAOt/Ed7tzA9Gc35n5s+fAH6Hd3Ok+Gyg+OWLi
aWMulLo0sfOOU1G77JvD5NcEOCrpppI5REV5bONBZYUEqBzYaafTR0Uzb4PP
xfQRoE7HhejSQkVPThXkl+8qhHZegWutxVQ0P3kpOzCzEH6U2Nf5B1HR0Kot
t/z1IuCiUR+tKVFRutnUWHF4MVx5rbI0HEBBVVWl5Yv7iPCIGB7U9YSCFjDB
Vi1NIkSNrYrVP6Sg18CiH2tChHaFT6ez3ShoLFEhJtCLCIe7tNK9rCnIifGp
WLqNCBw8Jy4IqlKQhkICNeBuKeSHXqg2niSjT2+URZh6PgE5/PFLBGTkGhfq
iWor4LdY/ZyhFhml/hHw9R6ugMFMDpNuNTKK+FisfnqtAkoq3/GPy5GR7p7Z
ATn5SnD7mRVPFSSjF8fyJpeiK2FKZSD/yOw/pCnO6E7yrILuLwq9eWH/kJtn
zs0a3RpI5/kuEju5jmSLg+Q5Qusg3AY4NcfWESd2QGklqQ4CslPWhgfX0Unj
63V/CHXgoH+tR7RzHYV/kY/d6K4DKa/ZwORP66jhOuFlLm89pI2vYJmv1pGD
iUvN0Yh6SMnn/Fx6ZB1JyO3gVk5vgIQzKh79wX9RtPl3i5O/myDA9epDudNr
SO1OrLtPZhs8Zs194LG4gpbG1YSVonrgql/PvsHsZdRppC/cstgHUTXTsQnO
S4jd+jRrpeUgVE4c2J4vRUIVLjLMVnYjIM2nq38+aR6tkOPMuh2+w0f5l84/
p2bRYwd9cPeehInmYkl19Rkk1urGv944BdMKUaro0xSaCPbUGfo1DfxPc9QV
mSdRfNBPvlzJWVBQxxQ+rI4hmQNgyRCcg2cnFr9UPBxCS8xyFG7KPDScWjir
dm0I3XtXsbLMmAcmk/lugskQ8gmVPdXLsQA+ln8606WGkNpA7F//HQvg5Tjd
+qZzEFnudfmVq7QAt16O112VHEQfuO1u7LyxAMadXUVbWwfQiFrZ1uOdCxDy
pVMp8OMAat9X5va8bwFaBzoI9IQBZDS9Nb/l2wIYjLflr94dQCZiY8na0wtw
nNScPS46gDiq1em/NxdAma82pfhOP6Jt7VLUU1wEofOEsEs7+1Beb1PVz5BF
+Cj7qtKAtQ9Z1r1KFA9bBDPKzV8qWC9ib/gYdy5qEUKS9h7laulFMbqPvhYl
LwJ9NnKi0qsXTanPbFUmLsLMk8eKYoNfUAr8mj4+tghuZ9/F1sj1IBEt9vmQ
AyTIXjuzEMXcg6j3otOkD5HgZxybrttwN7o+yi9WpkKCC78e/JYI7kYWHxzP
dGuRALwvq/vNdqGbb32Ma4xJwJd+cEA/qxPJxrAUvr9Dgo/rzbyt+9pRsYHY
51PFJHibm9ZwnNKGJndoqweXksDlsu/90q42xMeitrexggT7Ph8dTfNqQ3+t
DW2lG0gQHZWX+aS1FdmgHbui+kjwSO2dzmHXFmSzIqJzbAWvZ/b2Uo5uCxI9
4cUtsE6Cwwln0iWFWtB6PVXhJ4UEC6xsW3lqPyPhOJmzbswYXO73Gpjl/YyO
P4j5doQPA30PW5ekkibEXLnS56uAgYSspoTQyya01lx2a04Jg41hod5Xtk0I
OZ2UNT2MAVGvR92bvQlFlYTwMmthIMuvz3L+YiPaT9qw3nESA66i/XFbN+rR
+X9Gv0n2GHwYnX7zJ7AWXbWpsLzxGoMRH+HkxMO1yOCObFPzWwx4JE4Wmf+s
QZPDPiyS7zDwupLdVwE1yHuXwZ/6KAwMp513hlCr0LJl3tGqJAxmSViKvHsF
cqcIfwooxEAsTPLjdwnc28b8fYsxMFMxbwzvKkc/Uoq3eJVgUH7v4zRVvhw9
9xnWNyvDIJjsKd8x/Qnx91JPVdRiIM9CLXGxISJ6ckOWbSc+PunyzXu4iKjs
qFjyWhcG4SdsBvvLS9Ca/Q3doB4MqEHV5GPCJciPzPwkug+Djm2+Ott7i1GD
2EiT8zcMmAoKTet8ixH14baVnmEM1Ex/2HsqFiP+KxwNiqMYJITpBYy9KkJ5
0jwnh8cx+Ca/5e2lNwR0pFO5Z/InBrq3nYrq5wrQYzF7muAvDLIL2/vkThWg
l/wyn2EaA2+1NzupLPmopzVLIfA3BruPC6TGP8xBwV0E1bp5DAL87jWyDGYj
j/YPKviiD/MNA9POh7PRGVVyS9kiBtUnY+SPkTJRzxXr8igMAztzMeLotQzk
5RYfy7aKwcLqX837TenofUmPRSdun+gexCOTjmqzhH68WcPrHw3o0JtJRczX
hDzofzFQeGprPmqYirRZKPcL1jGoklQf8sxKQY+Z9Ywu/MPz0tHXfLY3CT3U
974VRcZggC+oNyA8ETnyFBUepGCwaqk5XnouATmf/fa5Crfqj+Q10cE4tL+l
+FobFQNzmXNMZ2Nikb3B51nDDQzcnTm2B1jFoP9aw7VrcReuuUrPjkSiV1S9
s/E0DLo1JZVEEyKQVnkGNwM36Wm/lqldOMqKQXF2mxhwNwUZ+ku8Q7tSbFZL
cVsJeGbcQqFoxMNg9xY6BjEJI1Xdem/QfSMTnvO4B2X1+tWaQtA4w7AnDveO
4qy5eMOXKJaJy24Y97ljPCzMbc/RrNXdMgEGnpdmT5GbRs/QIsHmuwHuL2dH
lbu6/FDHf3m9HrgliM/CHFN8UM2qwbs43O9bzZDqhwfoqLqQeCXuXePiJHqO
B6KKc9wfwH1w6qtmtJ0L2ntpa9wsbtnt7jGKN68idRXB4HXcfgMHBkQbTZD2
K1EDOm4F3nFn9kNqUPpbvIuBe3A5IJmPbAXZDiJ7N3Avnd2/csfDEVJK+PSW
cD+OMGx3UXOH/ENchyZw0596v09Wug9WiHe65X+f75zv2i//CFJXFJ1ycbNe
mNDhlPWFhYWHFUG4GyWDXyTyBcCyG8ugLe7AaCl3jbeBkDswVauA23B7tVXv
thegJaTpuY6PF2eApZ5LcDB8bdi7XoG79R9Jjp3zNcRz1Z94gDvk9kuB5MC3
+LlF54oi7szlsCdi/mGwTbrh1AQ+Xzdvyjt+oocDaSzRXxH3KakH1s90IuHw
sk1fJz7fB8YbTc18oqDABlu6jnvOwk5jjhIDQVdfxQbgeWnnzj1YdjQO/CN2
Sm3Bnde6vifwQTy4nvJ79ALPm+vxsC0SfxNAkCoUdw/PowlljDZ3OAkkzk3Z
/8Dzq0iUWy7zSAbR313rhrjJkZMLB8gpcG7TIZoZz3sF1+OvDffT4cxbpSwF
vF9SDgn1F0plgL+MI9NFvJ+CzAq/JPRkQLWOudCjFQzOR091eMllgjB/pmfu
Ej4/e40b5Mez4ccTTlEi3r9DJ2bQzpAcoCX4XMvA+7v2pl8Nm0YuZCr8cX0z
h8GrAmL597A8yCBnNZ+exfOhKV4YfoIAXuUdGS5TGGy3Lcv3XcbPnfCHSwpf
X1afmue6JhWC9IrP0d4fGFz52WAh7VMEirHpiyLf8fc78M9k82sx5JmcHjmP
r2dtJfYnioOJIKX+LfluBwbazQqN+38QYWfZwCqxDYOiQYpeknopKAUs7Vlu
wSCaEgGvpkqhUNWa/XwTBtehVeuGThl8fd+7v6kaA0a7sorIcgU0iC0tm+Zj
4DG2WRh6shJEpIkOkrkYzCy2K3IkVYKpsFD9XBYGnXw3FFbPVMElNqKxczoG
8Rfi9ndlVIPbyfj2HfEYHPnJLOFvhcA+bmf7riC8/sqLy8o5CNIiHo5nPsPH
I7yg6QcFgRIr04SiPwbbUvOPpJjUgTDbpY8KPhjQzKzGGKQ62PF0sHHiLgbj
RYVySKUB6qaezO2zxSDZ/XKTTlkTVPvO16rj+2OC7VZC1EQTjOx0zGeXwyD2
FDFmkbMZPFmMarplMAiT5HJJtGoGP77vZmf34P3zpZR/k9IMN2ayPbkEMLiq
zG1frd0CDYee33DG92vppSqKVkMbRGZ0nZmoJIFP13+Ba4ttcGdm9GbaJxIM
5nbwEETa4Uvfi6XLH0kQcmNUeu/ddtC8dcmsKYcESyNUE07JDihrVU3QjSVB
bbNmWv+TTuhI6mRj8SSB9fuyM66aPdDlg5FqZElwOn24y9SqD7g1Yl5/9V6E
pecEx+bbfZAtdJXrgOcixN56xjj2rA+G9tox33dbhNlDh1TkCH1QdtXLie6w
CC/L/SJZ2fqB/XPyyx6jRWjt2m9TXtgPw095dN3EFuEk+f7sXs6vUCJ0XLC8
Aj/vmQiw/i0dAqwKsVpPz0Oo/ZCfctkYaC8cEjomPwctpuLcZgKTMPB76d2C
wCws7hV62hc/BQXhq0/saNNw3/Pg1VDhGcis6jskMjEFQ2N8Fo6ts6DG+4+9
M2wSrnhr/+Y0nofgMcqs4Nx3aDyoEdLIToLFC2lBJ0JGQHZr9WzGqSVw4ujo
vF82COLVLgbsL5fBqt9JeeG/fmCisuR4/FyBVKNb/2W39sA/85rLzTJrcEub
XequRjuMqtmLygT+BW+oLD+90QTuF/n4pcbW4dMfbyv1ZPz7IlspXmZyHaxd
tkteCqsDS4qptNzMOnjfDl977l8HWu/fHFFeWgfRucqyzWt1wD7BZX2c7R8E
pKYa35Crg3hH9nRrhX/wrtO0SNoVQdN9qlqEzz84012tEV5QAyKRv6zYxMlg
9+0zY9ipEo4+2yPsKUUGL57ixCHTSrjgYd0/tZ8MXSq7uuYOV0K42ReTRlUy
iOkWVpjTK2A7d7V+wCkyZB2Wr5SMrAD68wgFJk8y6D9gba9sLIdfD/SZaO1k
iBi90R6nWgYEm5Ss1YcU2AW+/J3GRFAbkqZyPKVAoNzHW+eOEqHKIst49zMK
LItLX5yXJkLracKy7hsKMHm8HTLeKIEpjepjb1MpICC/4PU1twR27fjWc6Cd
AlkdfYS/20sgoJOXbCdKhT8LKp+PjBfDRR3fU601VPDoSBdOvVgIY39neBsa
qMCi6GW3W6MQHAimQ1UtVDCrVXYoFC4E1z0SjoW9VBh9o3xdYZAAAcw1z6Kn
qSC4YRrgfoEAhGZq7XXuDXgsqj0nYFsAbKZeR5jtNmBLAF+76eM8COH4TqNe
3YBV938WkpfzgBcZNK05boAJzIVv08uD3cpC52bdN+AIMeyfImceKAkQ3XsC
N+C9HuFdVmQuWA8u5yXmb4Av9oJhTsyB4su3pbRoG5AzjDFEObLBoXRJPIWZ
BhK7byr1/MmCHds9RTg4aeDo9+N0UlcWeFU84uvjp8E9kXtYaFQWaO14SXfa
T4MYCcuOWtksaGhLG4mzoMGSteopTdNMGFD7Fk7JpoGo9qVHwsUZ8PyVzVt7
Ag06uWIeSsZmgPrP78HNJTSQyYyc/c83A2JDp/3e1dLgTsa+L4MmGWA3t+Im
N0CDkj2nk+UX0mEmmdvoEoMGSpb/7L0PpQOZ6z/WCstNyGtWHTzUkAoCJJ7I
ButN8PxlEFxWkAoHe0f2ddpvQv25TQvLuFS4HONhOOG0CbuzKYud7qnQKJ0W
zP50E8bTGhJyJVPhrTYzn0XmJsykDjcJBKaAjBsSm1/fBMtPiSZ2H5PguPmr
grWNTSh9xlem/TYJrNQuHqcz0eGsUkmirnMShFBJ9vzb6GD3PeVOqVQSLAVJ
pGvsoUNDxWM2s6hEqE5+Ihd4kg6Pc/q4lf0TwKL3mLp4LB1uO/3kG/KIB65j
2+qrE+nwii5uY382HuozRoxs0+lw9NXuWj6FeFB+6H31PYEOn2ScNEjTccCz
p+y1SDMdNOsvjobaxEGbq+qU0AodKG1fjExMY0F3i1wYjzEDXH55KBSZRQP5
Lnk3wZwBXsSTVEHVaCgcbflgcpEBX4dZzBMEo0Gi0LHqtQMDyh2J23cPRQHN
MmOGyxu/v+I812wfBWXpe3Q4MxmQdj5nqe5BJLhxYy2ZeQxovqvMamcTCbIP
ai0Mixnwp/G+lyhEQuQZu1vPqxnw9KEUmc4RCR7L8RGs/QwwNhGsso2NAHkb
Z4n0bwy4uJtNdsuTCJhs0szR/47Xm0KcHrgaAWax32r9/zDAxGz5e+/BCNjC
kn16L8YAfYr/IDN/BCCXBwN1awz4bTeaZLEeDl5fDe2vUBmgwqW+s2k0HP7v
/yj8///R/wGDTTj2
              "]]},
            Annotation[#, "Charting`Private`Tag$8871#2"]& ]}, {}}},
        AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
        Axes->{True, True},
        AxesLabel->{None, None},
        AxesOrigin->{0, 0.6080090396303339},
        DisplayFunction->Identity,
        Frame->{{False, False}, {False, False}},
        FrameLabel->{{None, None}, {None, None}},
        FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
        GridLines->{None, None},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
          "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), "CopiedValueFunction" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& )}},
        PlotLabel->FormBox[
         "\"\\!\\(\\*StyleBox[\\\"Overfitted\\\",FontSize->12,FontWeight->\\\"\
Regular\\\"]\\)\\!\\(\\*StyleBox[\\\"-\\\",FontSize->12,FontWeight->\\\"\
Regular\\\"]\\)\\!\\(\\*StyleBox[\\\"too\\\",FontSize->12,FontWeight->\\\"\
Regular\\\"]\\)\\!\\(\\*StyleBox[\\\" \
\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\"little\
\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\" \
\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\"data\\\
\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\"", TraditionalForm],
        PlotRange->{{-0.4746519976990142, 0.732047350970269}, {
         0.6080090396303339, 1.0587185332344518`}},
        PlotRangeClipping->True,
        PlotRangePadding->{{
           Scaled[0.02], 
           Scaled[0.02]}, {
           Scaled[0.05], 
           Scaled[0.05]}},
        Ticks->{Automatic, Automatic}],
       DynamicModuleValues:>{}],
      TraditionalForm], {486.9847040014425, -138.075}, {
     Center, Center}, {359.9999999999999, 263.}], InsetBox[
     FormBox[
      DynamicModuleBox[{$CellContext`M$$ = 30, N$$ = 236}, 
       GraphicsBox[{{{}, {
           {RGBColor[1, 0, 0], PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwVlnc8FmwXx0khQkRpiGQlpWwpP5IokSJKyUiLyh6pPKWQKEklHp5ItrRQ
hMse2WRFt5Vx3+5FIqJe7x/X5/x7nc/5ne/5bnJ0PXp2CQcHB33x/b82FXcd
NglMAYeruJpPMguFphMPmZdGcdabe9Vmze8QN6mqfGdPIfkduhM901TMuoXo
G4x1QdqFz3ZuchyHLl97qOnVhmmuWksjCh2uTt68jXo9pOOtw1XaMiYO3Nsn
lt6ejvsLL9P/rmPjhJNxVlZuMd5H6XYFstmYWvFpR0tzB5LfhNFnL9JxMFgo
KcusHX3W/21/okhHtLXA/mifBkSW/9fg9S8bqafqKDwvh1Ed7jH0uXQYSa03
Hq92JdCaPPNDt5mFm8XpB+PMGklF1dFled5MbPhxgN9paQqRbTxrrmvPhlHz
goVaRDWZ97tg+NKVidXtI15q7WWgGP7pn3/JQofNkEpgNo0Ubmz9YbV7AODZ
HccU7iIVzKU97vp0bDi3+szf023ku2fExA9OGv4I//l8pLkXM0Uia1a6MHA7
oOyyn0oaUvXyIlrlWHguJsjtojMG8ws6+xcS+pBesssp4FYFbFb6u07HM8GK
0in5sFBJ5Jr8F/7pYaM6VNhRmneEWN1VW1h3dxAm+P3cvXSEBDNWJu69PITq
AwWaoUU1xPTVX+UxOxZ4tHM+7VIcILXLQ+KKv48gac6lROYihWzocBTM1WGA
3010x3a7MhSGC9xKP8PCQFGOPscuGmFT7i+MsQfwrq/l6dViCrFUr9UtVaJh
mXyYyPckCumbrnTprqHhspashktePcnRmhfwt6TjT/hodnDvfey+bltTIz2J
tbeSDScd3qBJ96bdGm42+huaTERODpPNlm7HLLWHUfuqLTDEswnD2W7T3Awm
tllHb3/TMoGyyqkjem+/YJ+k4PRIxCNM/RB8pifDRgbP3NIkg1zIhBdyWvCy
EXNamFph0kb8xu10n9JZyNh/35en7w25dOj3mfN3WKgbOHrQ+3wjyRnU3jOw
mg1X+8hhEeFxyCvwO6hLDGDzs4D7icI0cjZ24JCwQT9Eg4dVZPZ+gYhJ5h8X
Fzo8BuafDt3oIEeUSqavr2Ui1aT1UH73V5IvZWovOUODIt8T2lr+EfI4e1DZ
0GYE2gappc9iW2Eescov9dE4aqUzRH6ElYN3Q2Hkn01sBCYbdcaVjpE4HR+r
RNYAMjdl/TRbX0UCj2qxvLkZePjwDYsh+RLZXBLPcngnkLM6UNFaZDEfsfNq
ihsGcFBg/9m4gW/YyaWvfUKKhjHHyQpdmVES6d4dZBw7iLGYQR+72z9InUV3
hohmLe7qSLkVGI1DDa+qh7h7YOa77HHzf63kwe4UGdtaKuYuVcue1a8kHWrp
Ev0BLEzzb66oxuK/TGc8XPVHsaJvXZJA7A+ioGmccLShGms/i9UrjJeSBRMN
a+GNbJwVirFnVoyQhKKs8pjX37AxwkZRWbscB+pW9+hnsWCrHX2Lo6ADVSMn
eDaOjKOT285gufggzF4tZSBoDFbJQl9d5SnEhuLiOlNARVv6tNLhejrZHnP6
FbnTiWzfhG8hDkVEzj/offR2JhyctHTotm1QCL1QYxXKxDyDW/1tZQtR6vfY
wcxkwEShTXCFdDk5/iSR6r2Jid31TJVPM30kv3uEf8plDKdeBB+T5soEl4eT
Wd1DNg7eOfz6V8wAuXyXb3LJ+hHYymyN8Gx9Sm54yG23jqIjvnUPNT5glKwT
oj2dWTmE3Ur5uT3W9eRu/qaK+So2GEPmO3tNh3CzaiHU8+cwqhw0syQsKMRV
TM23QoAKJ8kjd3hHu8Fh3n0/YDkN2wNeC4i6fQGlbk3mpkX+SXBLOFieqoSq
Zox86B42lOfkToU51yHV9Vhg3gQbgk8NXWX2thOLPWM7ty/mn2x+LfCyd4AI
WlqvsTYYRdw/GutqImkk1WHPwI2QbzDb4Sq2X7oXTu7q22/wj+PMbPGS4XMl
xNCIx/KFJxsafK2F98PbkOljkcsidJSLhG1x2vID8/KaN3wmquAVsDVe53A5
cjxJTOPMOP68Dzq9X5IGrudCQ4EeQ4jm67E+KfuJ1FnpGeYrTMDvhcQBz1VU
7I8d0zyyqg9+J3dZ1Fa0E69jFv8kPKPjm8kfazmnRvIy54aNhBUD7onfa9+s
pcLgAEunO3oA8arz4UdiX6D4ddCzZaIsaCuwRZM0B4iYON8Od4yiITR/DZtl
QKbPGnG8SmcjuHar7t/TnQTNhkqsPgZySxRu+glQ4LEvNdX/+ThEsmL6HtW3
EKqXouM3QTr0O5PWnbo1BL+ImPHM/CFkCR0aT4rOJJ3MyaTmJhZuPdj7Nzq9
B2MrekbeZ45DJ/Vf3td+pYRf63yXZzQLu4r2l97US8AxUwM5Ky02+F+5vQg5
z0DZp5XFTjMdeBoi5CWZNwGqwZTmnopmHHHyuaD/sQGcS0bfHZpioXWb8u/b
ie/IvKdZ4eobbHB/vRSpGteGgLPZF0riGcjP+ihwWYVJIk/c859K64ah0mDP
XFA5dsS897URYyPBV+kULIqI/cPZHJe/TChzcC4paehD1ta9vN1nx5Dp9kzs
eTIbDnWflThffoHCYeOBTXZthNdQyt5WnoldWY9WmX3qBV+jk9MXcSqi4lTT
BZhthMv+9GYTZzo6fXMeMDxyiZRykOU9gwkoFzRYxG5qIAcmtQJd4+l47Dj6
3CKmEcaKyY1PdrIQT+Qi200WuT185em508OwCxdyHNIdAN8dS9MWxxFc+1Ds
/zMgl8zxzL39aMACQ/4Fz2qrCrLyh9vLzjQmnFV5Vn752YtrtC3NzvZUrLq2
N9P4Sh8eNZxT37iFColam62Cv2phExOov16ADc7BQNuTOlRy5XoiH7t0EHIi
O8bEAj8Qb+bsgXcDDMQZpaX0u3SQ435KxrEldFCNhEZSDcoJt534dOJ1JkxD
6zTv8A4gw+G6ud8KKj5v9Mizj3gHYWqP2ZAGA2vVZQbro56RVzKOhzYWsDGZ
5q9k+uQ2tG2iat7WsPG+vOV3YWop5lytOh96MNBnldOyraMH1sMLt+Xc6LDN
EBf6bt1F6LNN2ode0PDLX84+oGgttm9kcHnkMcB6nM33yLmc8Ohpr3aLYuGn
+/LL82sKcIolW3r6EhvIvprKK9lLxFTVmh8t3ou7xe9Dz3lP4W7+zfU58lV4
qygc2Zb2lfgEnZEYb6fC8VeVrd4YhRz/lZh4Qn0My5Yy61KYnWBy+S81Y41B
L0VDNDKrG1IJyfq9ijQI3FO75chZRZiObbm+a9igpkVe2aAeiBenP17cFMZG
yoPKhG6DJ5g37uSpYLOQOdflPzH7kcSqNCdymLMQvGvEZ1SkjsQ6fFx7044O
N53K0DK0EJ1PWnH5xXSsMDW67krrh01r7MYU+VHkFiZMWSj3I0ra9jfLfAzk
EqfdNunXpPh7kEFkDRPi4b/j765iEvW7T1qqGrtQ8kvdarNjNyK0QzUEDRd5
9W/wXh3FN+R1mspskcyir5UVn9Cofku4N4jfk+pkoSBfOtpZOQfikcU6f3TY
iJML1gw0KILQK+YkbyIbcs6UnOUxI+S9u4CXcuogon3jj55K+oBmHvkwvcX8
ico6VM7oVWOq05kiGMxEg9RN4+dR5WRLEnfitlomDh0Ia9TgziANaW+Pl11j
ISVIsuSgzjci6dST/HPvCC4VC/SFhtaD0i/kbmDNwqt2leZrXHUkeEe1u3M1
G0mDVbTGnI8Iv7okrGmGhbKiE8qC9ZUk0MA91vcoG0q9Nrd76npwXHXV+fcP
aLBLkDbSkJ0k+qIOV7fVt6P39w7dusEv+M5/P65nKR0hehOI8rpN9AUfdYt1
sXHy33TN/KsU4pZg17/EmI6s8CALUdWvWNbL88g1bNFH3D/e8X66yJeOcPHo
NjoiWhpulZ2vI+WZ46vabyz6btLdyl0fylA0fH7UKpqNN2lcId2Pm8ludf9H
KgJMKMQHXPtJi4Nr/oU9nIu+L+uVciI9vpd0yITeLGuioTUoWctp0Jd4rqd7
ZAhNwJL/qh3dyoSkvskubDu8yEfHQYFLaSzoz5fffezcjWMvmp2oK5KJNL+m
SrogE5y//0gbO3wh/0ge35AdR8cD+yy7icgvxH1cdep+Hh2Jny19vBNSyfOO
/RdPKrOxbUFSNNEkjdgX5Fhy1ExAm+NaRmhfK6bt5CeHTzCQd7L9l8jBGPJk
XbKm4rIJFIhY6NanlJLssL19kbdZqE8WPV1f4oz/1le5XnvAgktZ4dF9lwvI
Ci73Gv+DTCw/v2tSp+kz9K7EzXKZMNG4XOfBjbxOwtT3dYhg0LC3MdLlYiyN
mOw//vN3CAV+s2bXYupHyOHX0mdU80bQ/S3knPfY4p7t26LPz9OP7hX6oU6R
rZCnZG6YO84Epfecy86Vw0RXee3M0rBhWGcN/BPln4Opb0vHk3eysWNY2Ofc
8xLy7WpGxjEHBqIEqk2psS1EjvviJYtF3vTckg2STZoiR9tSryh7VqL3EQ9z
/cNqsl6h0ET4IAtrftXvq2R/xnWBiuFdoQwcl/j6ZAvnBKnvPbD2ptRX/De5
rEpw1Qj5OPfZZH3uMKIkl+hrr6OTRpuvNm95KXD/Va6ZYNKGLMHm2/q7aZBf
iCk1KuwnxuL5/KOzo/h4zzwz/94UaY5PiOkaLUD5qNNBFflqImVc2269OL/7
e6tDdLYWYpK3pNhusZ8SXX+psPPPyd/RKvOkRZ60aRzb+OBXM4YUi2qVNzEg
3oFTU7pfiV+K7c7NK2gI6vd8X7P7K47JmNTpWlLRMsJv4q42CXO+JarzHW2Y
H6YcjPBugmunZO8ZrXEox3wIzezuIx+qP9M49UZx0WihxkZ2kGSFRnWNaVPB
PRzhlWk5RGZi6ud4tIbxP4jDpnE=
             "]]}, {
            {RGBColor[1, 0, 0], PointSize[0.009166666666666668], 
             AbsoluteThickness[1.6]}, {}}, {
            {RGBColor[1, 0, 0], PointSize[0.009166666666666668], 
             AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{{}, {}, 
           TagBox[
            {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
             Opacity[1.], LineBox[CompressedData["
1:eJwt13k8VF8bAHCJLJU1pGwR2akkSh4V5ZeSkIQQ7VpsSZJQoZSQJCSFULJF
dmeyy8g+hrGMfZ+Z0oLIe+/t/Ws+38/znOc895wzZ+ZucrpmfpadjY1NbyUb
G/7pxbn7xpVDPxFf+4tQzmRdkr+gx1S28U+EhUymI3RIXK2h+zP3407kOVGz
gxQWmRz3Xh+3/9Mh2E4StSibTdMl8m/R5jRJCcIUk7dahHcNdKqR5NsZSUka
uEmWVxWVSRlRXIuJysT4Br1uBZLWcRnLBHkivoE6LEcqFdHNiJMh4rWXDTaR
9lOOcbzYSNRr9m6QJH2JvmQXLUqYSz1enGR+4m7eU0EivylhVITULRa/JmIN
4a9nXwmRTlPzzoRxEfnvub35SeMxjaWh7ITXJZ3lJbmeHF33YOkHbsn2n5yk
OfHly0FzhPmOrGcn+XeLVd+dJSyh4ruEuOM0JQMYhPfN5v5GT2z/u+43QXhr
d8l3JCrh1HhrmDB1fHkaJfT4yN/sJ2z2qX0EKbx8eturm3Ade2I/yjyV0eHR
QXiNTUIH0paqVnNrJlwo3PAFlfX13r/aQNh/9/diZPjqV69LzT/X/o1GZAd+
7YufCbNtuZECljKKYedKCcus3VIANLrBqHMBYeOkNSRwen1S/3Tuv/yLayph
8rR7tP0HwtwqTVXgLhvKsE3716/zw2qYH0w6cDKJcAi6Ug3+SaUJVgmE1+9M
qgLuMx2/LF7864dxtBLCNzNMj0URDteP+gxiI6tSTZ8QZgmJI0hIkV42efgv
3/dNMSic0znx3/1/880z8iFT4VjWAf9//UfJ5oD22EUuw1uEDe4WpIHRhbgC
fbd//eexPQSyYh6/3uX/P3/vFWQ5QT6ve56wY63aU9STPoK0nf71UxmdiM5c
+iumdYpwM3x9i6aVxVy3WhN2vb09A3lMadSpWxAmaTlmo4X3xjKqpv/6D9bN
RYGXT3sr/UfYW/PtR9QXZh9fvP/ffnIW5aFdObYkE33Ciurm+Si6zXq4R4cw
vdcrH33/eZz76vZ/+3tcLR+ZrrdQXVYjnPjENw+922VmFq5I2Nrw8ke06tQR
z01y//I9OHLR6TuHYnIl/+3XvSPZqPT1wdL96//Vb32VgdZXGdLbhf49n5Ni
GvIc3ctxbi3hbH+jJNTMDYq/uf6tTzR/PFJV0Tscwv5vfru/4SjkiK6r+NIs
sZ5JXdeRQeT2wt3fCcsMPIiE+DzNHvL0P0uQE2COosZmP0bYO/pRCmRvVDT2
7/k3vrcvG9boy18W7CRsaNn9ES44yoa/aSEs8aXqE0inSFCragjnqVqXgk+t
+OLxz4TjWQvlQJkQlRkrIcyrTSLBtjXrDL0/Ef5lPvsZwtQFL/DkECaziWLn
2YzvUez7f/MlbamCAx6rs1XeEnZq3VINfws4547EEV418b0GbLrZJfqfER6s
KquFT4vL4BpO+C/XjToQkl5yXhFK2HdRqh6u7l0IjrxP2GLtp3r44vz7vZw/
Yb5SvS+gEPSjKc+HsPDrj18gMO3brNF1wo5XNjZA7xeGWOc1wi9png2gMzO1
+8Ilws+KSQ0QxT/hMH+G8MLgcgOwto7efehA2FZ3OxkOWw6lbrQhPJ5qS4Y0
L3pDhuW/9dvkQwaOF73MPUcJDz1/QgbHkm7hpv8IL3K8JENpb+dOR0PCb2yT
yLCercP2m/6//p9h9pRtvROoS9jzVQIZmg2bkoS1CLOuPCOD6nlybbL6v/0b
DiFDyIP6qR1K/9Zr5CYZht/X8NfKEeYwu0iGeBbpxMR6wqsjD5BhTqj8lo8w
bn/J2R1ksNxR8mo1H2HregUyZJ8orIznJvKHS8TJsMYnf0xtJRHf4sJPhgvx
uavR0nc83n2emwxV5VkaZnOEVXQ5ySAzkGEx8B23P4/tKjLcWvnuhvsM4Uu7
1pDh6gv7VY7jhPdbiZLBSUP42ZEhwr0a8mSwqq6V291H1GtcpUuGQ7a+uYpd
RHyE35wM+t8094q2E/FsL1cybA0eaVrZRPiyYxQZNkvG2n+rJyw8Voat70fT
mb4qYvxdyRnsef5b6UtGRPywoGwjLPcV8BYXE/GGSrtG+O55+UVqPhEP3/ay
EUZ5Nyk+yybidyyGGqE7seNT4HsifkFE4ys0aj80cn1LxG0c/b9CntOsk0k8
blK42PYmSJtL/abznMj30I1qgrgwO3+FSNwGw6YLTRBYXP1yRQhuR5bhpWY4
JhRDLfAg6mldO9UChmmHz6dcJcavz0poAR39Fb8iL+JONHYbaAGZS5eErzoQ
+TMTl1qB8VnPdLMJ4ZNBD9pg8MS3HsEDxHxLxa1t0DGT4rJsQPj8Xol2KBXn
f9CtjdvM831WO4S6DVSGy+IW6Bhq6wA/rmhzP0minnP0Rgq4vzw04LKecOpN
JwrY1H/8e4CP6Oen+QwFFDcF6S7Nf8PHJwj96ASJgl11kz9wy+hwbaMC/xGm
FZWJmyV35CoVfnlbe34cIfL/XB+gwiTf2pWv6bjpjVvXd0Fv8ueIMBpuzUXm
4S6oalbOuthCxO12ZHdB4bn+PSfIuB31Xvd1wfvFp2TDWtzhUVTebkiINLbd
VoE7O7VFqxsiFZcmpMtwK2bcteuGoPIc77WFRH7lWEA3+Fie4/qTi5t6bi65
G077N22mpBH9GvMPd4NV1yv93iQiX+7hcjcc2uZqPZyAe24faT0NINTAfeoF
7kRSrgYNtIYFHn2Pwp0242xIA6U9AynzT3CHVFKsaCAVnYPYQon+JAXO00CY
GdDFFYTbmEvkOg24jc1n+QKI5zOa9qfBUqLsWlFf3HU7Xj6kwff57wqSN3Bf
2KsZSYNR80qDze64mwMyn9OA9v6pjcoVYr12y8bRoJnjjOe2C7jZDkbH06Dq
lFaYrjPuQhlRzEWfONIM7Inndcx8QYNM/o7PB08S/U26PKNB0oUUmqkl7h83
7J7QIObz9Z/Hj+Ju5w0LpsGjDQf4Tx3CrVrE70eDAA9RpTNGxHpbsNxp4EUe
3ediQKwXgnM0uCRfYOe+m+h3fq01DRz8gr1uauMev+1iTAPLzhPh/luJ89F2
YScN/tNUfBesittaSkyeBvoP5irDtuDOcw0WpIHi7he/4yVxezNnR7tBMuqi
YPJ63FF7hJu7QWhGV+W9MO7Sxl2F3fAnodu+iIdY3+CJ+93A+v3Om8SBO2NF
lEs3DJvdiqxdZmE+d/6xWTd8ZZeo6fiJ+96T3PXd8ObcKbXvA7gjN6QkdYGx
Ov2PcjHu8Df/5VJhT3C2yLZ83GkTkVFU2Eb319DNxp1pKXeDChsjNzkffIs7
2/fQHiowfjp9cY7ErbSa+bUThky3D196jJtvT05eJ1BTV/51C8F9UE0grhMq
TiZv9ffDzUWtvtgJz8pGYuIv4Y7d38/fCfbesX47z+JemEqex76f24+eaXXA
Pe3uPEyB4rRCDe7juGlHBkopcNf5ikjSUdxZBu/eUeCwlOyfPYdwS++784IC
fU9DazwAt13JSR8KpJoaZPDtwt015HyZAq48PyPStTD7mwXcdaCAblX6DUMN
3JdvF1lQgP2O/al+JTxfFFb9R4EGXeH9PpvxeE7KRaBA1I9aRRFp3Gxrh7Qp
YJ/ly5ctjrvsqJsGBbZc2vrj0Dp8vMqkkBIFWJtHu0b4cE81VctRoKg/Fvnz
4PlrHwdLUyAw9mjKRg7cbseOS1Dg+Ttu0StLTCxfrEtlAwWUZdwH3nzH7P8h
jEucAqXPaBnUMTwu+2B4PQVMVxt58/XirrlfjsXp/pn7DVvxfKtf4fh9+EuM
36cWtwL3CSkKcFwO6M4qxb0yZbUsBaIHJlNGcjAb3PdOV6CA0glLt42peNz8
r7IqNh+5TO9YPF7fyfvhNmy+fVu4gyNwb/vzWRebryC8rTQIz0/2bNiLzae2
kPD9Fl6vIy/xEDZfkvMlRTfcZWd3W2LzrW/cYX8Ot83GZ/YUKFmZSK43w8eH
h7hcx+rf5IlZNsJMGllNC8DqM9ydd+zG53tnyAzD6nUbLSTK4/EhhSls/6OP
ZlVTNuDjfYKqi7DzU70+Yo0AXt90jXI9BY5kT23xXmBg+YeP3ZjA8oMijh9t
wuxo8+KaRicoLi7I3K/C458SxvZ2QrHbmeniIswyUUkFlp3Qb7fzrkIyZrpk
vfEtLH97b/aSN26f3OcNWH6/4poMWcwGgoFFnlTw1VvxIXY95kTFC2Mh2Pfr
RdeRB3yYWdPFci+pQDJ/+OTcwgxiC3e6VF5NhdrqKaFNrZgNhOv2i3VB+/tM
8egAzDGeRUbFXcC4obXFnz6NjV88fX+xG+QEDPZZJkwhtj03r32L6oUwzQGf
S08xN6nWsn3ohTmzwI/+IZhLYmS2V/cCOaJq8wd3zLE7ulb86gVP4f+4Vh3E
83Mu/neyD2pEzckFzEnEdn6Di5FCP1ySPGO1ce8kSpwIf1dzkQ7tezifbNWe
RAYON4Iv3aCDvv3b2oMqWH5L4HP++3QQfjWu4ykyiejqj5ROJtKhVObKxsaJ
CUT/2GZEptCBb7MX3S9yApmhVd179g1ArnLIpcGhcSRQ/z52aPUgSLc4Fql0
jSMZTlPyFbFBeHRDl/v613FksOVtZbfsIJytmkzhKhpHxjY7Ym10B2G9/ZEB
1bBx5Nq6a3LwzCDcjhCyvqGDee1n5dL8QZjcOfWWpDaO4jeHcu5Bg2DVV/mT
R24c0eccFOPqBkFT5frT+LXjaFr7uQ6zexAGqzq/fh4cQ1rbLI3nlgbBeC7e
aM3jMbTuDiunZM8Q5CdcjzoeOIYym66dkDMaAlkj06GEG2Po4ZfYE5cPD8Gf
iGX/rU5j6LZczKtkmyHIVHEqtdo5hq56fbqJrg/BOoct218PjKLoq0O9e1KH
IICTLXCSMop2FJTzrfkwBIz31Obt5FH0M1LUozZ3CGrnHlyt+TSKeKOy7vCU
D4FP5HT6VOgoajOzmG9vG4L+6hwZbe1RxOHX8stpaQh8LeYNdVRHUdB03Wtp
9mFYP2BwcZfsKCrYhs52rRoGs8WmHH2+UWTpZHPhoMAwkLYx9h0cHUF5XEuO
cnLDkPhK+ax19Ai60H7B/v5/w6Cn5v7A5tEIimuRy7lmOgzU4qIPdoEjaOLN
xIKTxTAIUIx/OV4dQbzMi1znTw1DwJrzwRcPjKBI9ULtX27D4HQzKd3n1zBy
9b/wJuPlMPxdNdXoOz2MJr0KlVyShiE2att3v8Fh9F2gh2t3+jC0Zn3edffr
MHoxGrtLIH8Y9o/2N4S+HUYl/GY3XjQOw2YLCUa81TCa1nonZs8+AiS6s9Cr
w8Po8xXvFHOeEbC7+l779b5hFMen/8tWYASiHuy6k6I+jLKS7VZ9kBoBDpK1
QOaqYSTxldFirDcCI6rPtqFPQ6jv/AGW1a0RUPZLYYy/H0J2fzcdMLo3Aleb
8t8JvR5CpOwMjUOPR2DOjSJ7LnQIvUyd8Y1+NQK8BWLCax2HEHczyGlUj4Dm
3thZG54hdLSpRHflulG4dfxV3i/bQbTN9829xNJREPRL11ZfMYD4rhncmBUf
h6BPinUCv+nIqWiad0huHBYYqSdnp+lIUvSFVoPaOAw6vPUtpNKRZ4Sl6729
45C7N6liXzYdRbWs3frswjiYc740PeFAR4KiZ0X48sdhi/imRrZb/ch8ZOB8
54EJUNVmqqbM9iAXf+6NomaTcE79zp2i3h7Et9LhzFPrSXilwN/aWNuDwlze
CfKengQhMY0bv+J6kNZ8p/yw2yT8/n3180HDHpR9jNJk+nQSKooYxyejaOit
e76haMckWO9h+GlodyP3D43GrZZTELnDr2W/TDdSyP9b88ZuChrU+DZb83aj
0gXOwStnpkBfSr3ev68LTfzsjZr1mAK55SvCrUFdiGTzfV1x5BQwSDOpnp1U
NHvHwlysaQruGs40F3l3IsHd/NrMvdNQYTx9VMu5E/Hr2PzOMJ4GtiNTXzOP
dCKpG2Jhjkenwff4BDlJthNxfLe/l2Y3DV7nRuoekylon1Vj1ievabgQ0ks6
LUNB7Gs3JqamTcPbRz3Qw0tBm5W9WjIzp2E4nFZu9bMDlVU3OKbnTcPpF12l
Jl86UO3xZkVv0jTYvOso3OHZgap27v9ws3MaDpMbs3nq2pHp7dALS+wz8LCZ
rHEvtx2pXjbdtZV7BuraGzL/xrejkyI8j0+snQGj3vqMWbd2dK19suGW2Azo
M6rTeje2o/llPoqcygxoCpQn5lxrQwvpzb4rzWZAxDIz/KRYK+pqUy9YGzED
uQqhxUYrW1Fn3xPO0KgZMJs/P7yV2YJ2scdorIjB5k/YpMNb24LIP73WdSXM
wN/xqP5irxYkwOtgoZ8xA6O3b6lLUJrRYpm228aaGbh6NCKmTKkJpYuX+CnM
zUDaj0PTz1Y0IbVEy7/Gf2Zg8AWHwdWur+hxgrvblb8zYDV8Y0zqwVdknMtx
tIyDAXDTXtt/vBFpRbDd9hdkgECSSvu+VDLSdS2MaFRhQO6vav66zV/QCllT
8YUzDAh796ZCf74ecYRv85O6yAAX+zvX8xvr0dTzHLPDVxiwuUaH9sarHmks
Tt2vus6A6Gfv396uq0PSRexnFIMZ4KMVsWf75Vo0+q7ne8l7Buxzt3NJ+FiF
ih8I7zL+wwApBV0pkZAqFGcgHuHDxoQ/XSItoXZV6P3Qp+kcTibk7W3SvslZ
hRaUnpqoCzBBQXAfu+WJSqSvJ3rYQp4JvNlbXvD8+YyO/V4zPXuUCSm0kccT
98rRD9FtDOckJnT7ir56ub0ccVhMP+dPYwKf1MHsY4NlaERMVepjBhO8HNNa
i6AMTaX7qtPzmXBg5JLYw4USVGzW8aC2lgnjDGaismsRehaXXXJjggkS4TK5
fVJF6IND1KLHDBPMth6rjGwsRK+e/P7P6RsTCj1yRxaUC1FsKW+98DwTHsx5
KjeMfELhtbS/9JUsKH+RsvtO1CekrUuWTOJkwfddlMPb939C/i/1JE5xscDm
9s5rcYn5KEdSTbeQlwXK7AsfXWzz0M5DGRVcgiywT1KulubNQ9VTP5PvC7Eg
0tCW0lb4EcHimYcLwixYCCqd2y36EeVc9+WpF2WBuuIMD6sqFw35rPCVXc8C
p3rJjckeuYj250qSuzgLGlbf2bOmJQcd4LVq/bWRBWwfskxJd3LQg2TJcmVJ
FmiZ0h081XPQaUGXLcelWBAfvjewJzQbde86bfJYhgVUZe6wk48zkXvQL/GH
m1lgcOVi9ufJDyj5ZpOimzwL0rK+tCoZf0CuATWPTRVYcFPrsdgCewaK/Mvl
PL2FBYNeDF0nx/doJT/2x1iRBYeKjtp9KXuHtB0qi52VWLBBX+h1rHc6irvI
8zVPmQWB/h6V7JQ09JNmI3pUhQVTFe0jl7anoQCF0pl+zJac2txt4alIKPjn
6fOqLCg9+Fx5N+Mtcrm0N3AE8+aHc4eTTN4ivwZjBxs1Fjwin7y2Oj0FselJ
r67B/IOvJMJjVQpqiNZ/oajOglPHJPJozsloyS5QKhDz9OxP3etVScjD98/W
Fsy+0U2ITz4JXV0rUiGmwYI1uulGafffoI96O0ePY46nBTbsHX2Nti8sfgrF
rOpnd4x24DWSPK5uWoS5REa70zM1EZlFFtf0YT5UyX+KjzsRkZZy9BYx5zW0
Vh9tSUBB3tAoqMmCdoGglsDIlyin6nW0NObZ47q9+RbxSCJ8c6E8ZqG46fHx
dXGIz0DcfDPmbfRXPzZSXqAov6b7GzEfk7dgO/o8BjWHPr6+GrPrpVVrAq2f
o42WIYY/sPnCs4rE8sWjkd4RmigFc9aPy3Lj3VHo20Z/wRzMX3VlNDbGP0X9
Kw/Y3MfM8GvbZXoqEgXL1YtZYF5bFXQgQCoCSflddNuA2VrIM/kCeoKMOvY+
oWHr9Ty+u+Tr3scoxFIqNhozRWFvm1bVQ3RbwKPEBLPFbj72FfX30e4fTpPJ
2H5EVnuKnze5izh5KEf+w9x8lKbZ2OiP9kud8hjH9jOuzgxtS7mBfC/m5Ith
9m9XbN9YeQS5p/9ZCdh5UeXvvcSppgXs9gKny7HzRPkW+EpgzhoSN0xP6mK+
9fTAFxctVzh2yVtfATt/lTIPgl8KBILaUMo8FTu/588rn/v0NxJEqnKEm7Dz
XsR7q6PiehL2Hux9Qg37fiWqibRlySZDcN103k0RFgSZZTXHNyVDWMx8Qu06
7DxGDzV4Kb0FzqCjqRew7ydr0+EK5d40WKPiKFApwIJOw1Ek9jAd7pEmz0hj
Lj/vX8ax8x1sOWmk7cfPgtAPeYV94e9B9uRC8n4+FijoSmZFGmZCSDFPPHM1
dt7sCjLufMP8kNZ4GvOs37F3lxOyYEOf3A8Kdn84DlaYy/lmg6HKtu1fePD7
4PeRpY4c2N6j8qIdu2/e6FaRPVRzIfurfJw9ZhGTCJPJwFw4UNN3b2oVCxav
qPzXqfERTl6k0Ndirv/oYJjzIA+ez1ktuXOwQK9atXILPQ+G9evChDBnU+b3
Jmjnw1tNikcedt9Fzz+F0KF80Clwrf3LzoIzULfr7J4CmOTdtObdChYsf9Hc
Kv6tCK64v1Jx+8sE956lrCcHi8Fdn92EusSE0Zkv6qsSiuFCD+rUx0wWOKs6
e6gEilVDbnAvMiHW6sWWxuRSOMJTwvLH7lu+C+fe7v9TCjHaetmUOSYE3Nwu
X3ysDJQaytcrYr4Q3yib+rcMNt327Cr5xYQdgyukAqwRhBxUvxYzywT14hPf
NNMRtt4f6hq+Y783kR+q6PMIOqQ35P7G7vfVrzN2JB4hAVx3cNnJYgL34xPS
c9dJIH/7wvFDTCZw3GTnMUsgwalDv1ZaMpiwaGbds8wgwa9PlvT/ppkwp7ey
5oTYZ/CpYCrsmGLCD8XMrCz4DAeraM4ik0yYZuO46xD+GTuXh3/kjjGhNztL
CW2tAPvj2bPHB7Hfs3gbYTGbCmitHb/WQ2cCJYRz6WpgBYgnnDxp2c+Er462
zVJtFUCSMSGJ9jDhy+FVxV5/KiDGUOO8YzcTanRykr7KVcIljv++vqAyoVyA
64afZyWYqGw36G5nQvFijiMlvhJmJ7/401uZ8Gnc7pB6dSW4mtjOtDczIZOU
K9knUgWfquq/BJGZ8MrVvmpPQRXIp++M5KhkQrwdT+az/irgvdMt405iQoxx
3vMZrmrY67NOrKGMCeEyvC4vratBuaCFS7+QCf7N+YJL89VQGNOnK4P9HvuW
Ov6xlK0B9jc62waw32vvtNUjGYdqwHDdTp/QFCa4+p8utIurgVkFY6W4BCac
1lzrUKpXC1xyNJE3T5hgL1FovO5sLSQejwhKC2WCDbfztsuPa2FsLor9eTAT
zOmFnBJ9taDA14FU7jBhX/iZjFt36uCUwpuX264wQY5VMr+roh6sKcFG+YZY
P4377/2YqYctNc7MCn1svd818GWKf4GjBXf68nSY8PAsTW6T2xfIOZN96oAq
E1jdC0e4ZBqAouFMVhDC1rda903bbTL8uvngjEIXA9YnfVZ9nE6GPdVH18a3
MMDd/7+CAx1k2KXmlvqnngHyu0+Si1Qb4fGdy7U+xQx4lO396xWtEdze25uE
xDLAJq7g0GXdJpA8f7Hg4gkG5HlDh/zZJhD79dGl2pQBfFa1Dv3hTXCvqVlO
5AADPgt0epqPNwEEx4c+1WLAuv23jsabNEOdQ7LwJuz/363C2JuBC80AdOtm
pfoZ+C+pq9HUuhVuBdw6a7xrBlj3M89VX2kFz/ExqNg6AzEX7i7vvtsK79Yd
lz+oNAPjampblTJb4epyq5Xn+hkIKfSPWsnRBlv2CNq7/J6GusYttoVZbXBv
3erOHYXT4Jq9OKte3QbptzelxmVPw/qnLY9SutvA/+y6SOF07P++9a3ySM52
KKr7XL8rdhq4h75uumLbDquEeX5dvj0NB+euj2/i6oB3CdWX/Q5OA6P7UECM
RAf0NMkVi2PvG9Fl0hv4t3XAfaP7eXW7pmE0sN5k0a4DXlKp+qfVpyForWQW
JbcDsux26HqLTkONbNX1UHsKkE/3p62anIKrnC/42D0pEPlyq0Dl8BSIjl9J
9X5AgXLRueyw/ik490Gs62weBf7QO0nHOqZglY6LngFvJ3idXZr3/jwFRkeE
Vv7M74RX4u6B5LgpCDvN822+vhOU2t8WPHg+BdTrbP1/ezuhpy2f5/DTKbiU
wCjmXkUFtrPPynofYvnML+4SVlSwBD1xeR8sP+Lu4P5fVFhHsbpWZj0Fm976
NBvzdoF9X+yd+9j726Vit/IjUl1wK3l+3X9mU7A46BB74kAXHJuLdyAdxPK1
9MxdortgXlAiyl4by6f8+Byp3Q3Dbc9fUQSn4OPkVNbzQ92g8GDBQmAtNv7v
4Mt4+27Y7+p4RY8b62dLy823Qd1gfOJk68W/k/DR+8PWYko3eKXfVVwzOQmL
G869HvCiQaXFcrRA+SQYaZx6MvqQBp0WZ9j0CichbL/l7akEGgQyzt2wyJ2E
TZf3nfxZQ4OSL3khRm8n4UCZlCCPWA/YHJ0X13w8CU8cOv01C3pgxbedUn+t
JiFoWg9GyT0QkHGNd9fRSfC7+WYpbrAH3Br1LewOTsLVp1d8uPh6QWKq/JDl
zkkwrV3p2XemF8o/0yNERCeBT0Pz/COhPrC6E39LqGkCwv6GHBm/0g/rRrOl
mVsnICiUsTrhbj906sNk7JYJ8Ftv+cXiRT84RXyP2S05AVe3SR9EVf0Q91sz
y557ArZ8tJFpWEsHvUKhx3v7xoFrjCX+5gwdVM5zv1d9MA53P8jN+16jw749
O3Xv+43DsocV9YQPHXT4Bm37PcbhN1tp9NpwOpwq2X87zn4cxjYEC98soUNC
8fh9Y61xcB4o+m5RQ4fgxh9ilUrj0J863aLeQocd+zt2GkmPQ6eWefjwKB1u
WLv0OfGOg8Wfe9fQNzq8CZAvWl4eg6bPBaaxi3TgZu2pf/tzDExCJtWucw2A
Lnk2w3pqDGpNJdeaCQ3AqyNnlkQGxmBmk4hfa+wQ5OkdvnFvdASue6qcfiI6
CvuEzj4a7h6Czh4B83N141AX17whO2QADoWepXq2jkNMuKFxbeAAlOoW29/t
GQfWZF3LlO8AJEY7uySyMP+XPHDCbQAumH26171+AkJyuSye2QzAQqVtgenF
CXA12HPvoNoAXHbP3nPKYwJIVT/tA7YMQJ8MZ5XL7QlIdIouz9w0ABW3M5tD
IibAf3a7WY/IAITuXDFZUYSNt4u9Z7JEB4n3byV28k5i/+cuyxVh6xZ28s8b
o3WTYBDYYbMH0YGN20zJUgpzlfXlZwV0GD4zv8Nt2yTQRZpSi1Lp8EHq8NH3
NpPgWJ0VmHifDjKNiR1FZ7B8k37bCF86RN76aVt3dRLYvjkdNvaggxc14cJI
4CSQ2m+9Znekg37ktwDp95jFdnnd06ZDtsEBbvV8bLyRw29/FTrIMmPD9BAW
ZxV/05Whw6rDhnEn27B6RfVb+7jp0MT5PO/pn0ns/hN/jz70g+NNvTGuw1PA
ptxqYdbQB8pn6joYVpg5IH0uvQ9mTS2rOk5jXv10miOkD4I2X36ddAMzf/DX
4/v6IKMpzhaSMB/O2ncwuxfm5f80eS1gNs2kqXj1QIVAcPkpzmlga3dPdzjS
A4/+CH0wFMDst1x6YnMPyLQoPxRSwKxZIVrcQoMDvjaGmccwV9k/cVChQWRr
UeFIGuZxJW3qUBfYlRmlkj9iLlxpblLaBfJpLc8+lmNOu7Ss/awLCm9PuAe0
Y66rrXtn3AV9iuJqkmwzmJ/ynC+gQppwykaO1bjvrV3xjApufzV5p0Qwhz9W
8PagAke78VihCub1Sglq26mgfMf7teUJzMY7Jn+Xd8KPixzhu50wx+wZKkvu
hDLLcD/ZK5gdF4OKQjshCCSu8Hjj9WN1f3h0gplymi0rEDNJYsTrVCdsENE6
1PkYcwiV8Z9xJwwtI53yGMzj1arXtbB7vaNT5FEmXs/lHUugEwxIzhweRZjp
msFHVnQCz3vm95NVmF3HP2+cpUDrs1sDBk2YNZ2+O4xSIN6fq3lLN2b/U1OS
NAqcc3lazjeCOduz3LqFAppW0h9+MnEXfRCqp8CCwfu4ngXc9gpHKihQqbLz
YSUnA9jYthVxl1HAXsMy6Rs/Zpke7ptFFJjb5lYqvQGzwN6RnQXY75Z2WMeR
zZjDnyfv/0QB1V3vGbfUMTdvHnyBuWZPHdc7Hbyetd/OQgo47h2Roe7D7B8X
u74Em9+QfdeqI7gLYnQQBaKMpS20TuBWWhdZRQH1w3qXnU5jJtUNSzVQoO7o
yfvhLpgdA9ZTWyngZOGVUH4ds0Hfz3zseZesnhZM38Hzo+azRigQY5PdvOEh
Pn9PWymLAtvsGyeMo/DxuldbF7H1OcslkZKGj88OnRLrBLaLm3e05eLxryyK
QifEXt5ruqIM70e4J1a7E7563PI/hf2PYqO7PvGw7oSdgcxhkQU8Pnc8N6kT
uF91fggyYWL1dBz9jKnw5s2PmrzjmNkcXg3YUUHvrSB90AEzSVKF6UoF1w8m
QuCJ+65bxnMq8OZcULnihxvtVntHheS8+4ZxIUx8P4MXSqjQVYK8fsfjFtfb
2EsFT9TzRD4Vd+yI/jQV+Crn0yxycKtnHl3AznuNaEVACe4W5g6uLtj3ZTst
qxr3D61uoS7oaTT70duEW8xUXrILvFqurF3Tjfcre5pNoQsEOh4q7BrGPcN2
XK0L3lFT4QIDd8HWtdu7wKinyjp6DrdkmPDOLmAxWTpO2HsWG1vTIQvdLihz
u2N0cxXuDpNCzA9n15qHr8a9ZKCh0wUnrsfbp2LvoWz+2R9TtLpg829ll3IR
3F/4eDW64Jt30Y2ODbh7v5ps6YLyhYP3pqXx8Zmetli/ob6U8JXyePxRlrJg
F1j/PfNygzJu33MZ7Nj94D+bvlUDzw9ob/9Ghe8rAj8Za+Fxu0cv+qiA7gpU
Oujicf8X3+qo8IjzVZOXPu6ghx3ZVDgZrNbzeD/uJxEQTQUFntLxZGPcd6+r
3MTq1apfenMEt7jnbhsqlAe9nnpljvuBxJAOFaw4ghmxdrijny4zOkG2cv5a
zGncxf23ajqBEXD527NzuNcvJcR1wv3lYz/CXXE/M1rSx+6P8qrrYddxz24/
urYTJG7v/B3qgzvE+3oXBfIWJBaC7uHeXR7oQoHhn2PLvjG4nZQZ3h2QnWcT
4PMS94C7rE4H+Ho0snu/wU29Mf6zHdZ9y+X0yMDd2pt1pR32T99efZGE+7KH
oXkbvBkUFjs+jlubKSfaAldfB8WYz+B2d5luaYZdjvPiZt9xG2huftIMrb19
EiaLuJtff+ZrhoT4YwnGK75hjuHXTGqCS7ZV0gdW4WY53lZrghVd6bJ7BXAn
Hi8+9hXIzyWS9UVwu8oHTzdCjNUTeb0NuHVcMh83whkR9lRdadzcky92NIJm
u6fizs2454Kzh8mwGDmWrqWE2zH9eBwZ6o7ZqGxTx+0vNnGSDFECjRka24l+
yqtlyODYBOpqOrjTavayGkA1LDdLeQ/uwvPYGznMHZbfqriPyM8yf9cAVatj
cuUP4jbu8XzWAE++8GrJHcZtcOvowwaweXA7X+YY8Twmog8aQMGYpS1lhZta
MxvRAN9XORdutCXy/XlSGrD3tQ5dcUfcAiFXKxrg4T3jEtGzxPwxGpMNYLW/
RG/dJSK/+ogEGWTZ1csFr+Em2Zdbk4FBSgR+T9zZUxdfkaH4jvDnNTcJz6qw
yBCkH7SP1w+3ZkfLoUYwX5qr5LqLm+3XhqxGkCx1MeIMwS1jVyDxFdaJLyxc
fUyMv1n48ius8QrJpkYS89FyFZtgUSNlY8ZLYj1dvqs2w49H21tEknDXpRje
aYapic9Bd9KI8YJsHc3QndT3zfwjsR9bn4e0QCvbldTSQmJ//Y1GWqD+1B87
hXLi+fnZ97dCodj6uvk6on5P2d9WyPZ8e9v5K7G/AUq2bZDaorW9sY3oP8A3
vw2iQ48lJPYR478qO7ZD2Hi/Be8wcb5aIjPbsfeyqzyeE0T89OKvdvB9s1je
yyDm17fEvg+eyw89D/4gXH7brQMu24kr58wT651u+boDnItS+zcsE379oaYD
bES1n93j+I6Zjk7QO8Dco+oQgwe3K6fUTAccajZns+bHHR5dN9UBe9UG8j+v
w01Kl6J1gM7Day4qG4h8s/GiDtAcW5J5Jo2b9YYV1AGKho8ofzfjNovm2tsB
0q83PLqgjJuNk3OsHUT/pu1t1cBt4P3lRjvw2e78vXsHUX/gwPc2WFVYnZGy
C7dji/fxNlhaZ+nEb0DEDdwTW+GH26DYTSPc/va2rS0w/dW1cfAQ7kSm12Qz
DKssBx42I/IjTZqbgBbyWOfTcWK+lI5njdA6spEhbUvEUf/mBviy713SA0ci
ThO6XQcVr3ROzp4ljLwTqqFosYbvlAvRv8z9BxWQ9mnopqYXMX/56YACSBR2
14i9RcSdrWSyIcaVbWRlAGG+M9jZDlaWNOsMJWylZpSI/ILfc+6NIMbbHmzP
Rl7DuiXvool4/q+KInQuwUrB7zXR3+8KwRpk/2eYNvaWiJOvlnxBx609Io5l
EONrf5xpQoZC4YubC4j4BvKBdqR3TSo3rJRw3UUfCtpOzjg/95l4npaV0VSk
rLRb0qmW8Ik1kd1INqi+tYFM1NM4cK4HbRg6EbKjlfCVMp4+JGgwuudVJ+E6
5N6PuF96znL3Ev3ZupjQEdsCe7r7IOEKh3w6chzqmr0zRsx/u5pBRyRytv7j
aSJuSVqgI5lPwQ9ivxFxUdRGR/6v7NtTfxHxcJoHHdFDdkjn/yHi7dnp/cjA
fc2lCrZZPF63j96LEm2H8po4cfuLRN6moWXD4uUeXtwGTYIeVGSvHnFokp/I
Tw3MaUflYhee/V5H5J/+odiMpFYAnWMDbjauRxHVyG9SREVImrBWyt8c1Nc2
fV16M+HNjbJvQb+skqSqRPhVmUoNJLyNXb1LnXCtTEg7/H3iZnVwO1E/j6He
D/Y3jV9b6hD9yFo8GYFyJ+np03uIeJag9jRIHf6lfW0f0d8TtYZv4LejMcD3
IJHfeK/3J/RJJZMfHMadmP3kxALoc98Se36MiFf16S9DwrdjTslWRHx10GF2
g6VuxQ85tribdbt3cBrYVS3/LnfE7SijY89tUPqBso98lvCns3WrDSSef3jc
dQl3OEvyBr+Br/896ug13Nxz9z8JGvRctJX74YnbLM+JImygZ7Ht6gof3BeU
nCREDRbl6Ssl7hH9+zhLbzSw4y8wVXqAO9vQp0/SoHTu8QvtMNwhIZPOMga+
Dbs1jsUQ/UesC5Mz6MkT8rF/iVvnvaChvIFewkSVyxvcaTQVgS0Gf1yf2wRl
4FY0Dp9UNrCxuZryNIeoF+82p2pQvN+IlfgJ9/ia6I0aBmslf40cLp0FWSfv
JNFWTYP/AVH3V7Q=
              "]], 
             LineBox[{{1.2755079390976007`, 16.820657936945402`}, {
              1.2765968481282957`, 11.78405361995101}, {1.2779334187614266`, 
              4.574514739215374}, {1.2792699893945576`, -3.767585162073374}, {
              1.2806065600276888`, -13.355803318321705`}, {
              1.28194313066082, -24.31266562640667}, {
              1.2820856159984548`, -25.640709614806887`}}]},
            Annotation[#, "Charting`Private`Tag$8959#1"]& ], 
           TagBox[
            {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
             Opacity[1.], LineBox[CompressedData["
1:eJw12Hk0VV/YB3CzUuYoGRJRJFMioge/aDCEUjKkVMqQJCmlDEnRQGYyk9lF
rsy2MTMZIlOSSIZ7TOne67r3Pe9a7/vXWZ911jrrOXt/n733OXsd7ljcYGFi
YjrHzMT0v1dFEJ5jMBiow+CHxIX6cLhDkX5JoTIQhIcTVr6FQ1GJiuzqXwZ6
evfpsZylcFA9YOIwM89Airetcq9LRoAGf+BI5xAD9Y3cc93pHwG6U8vtcYUM
NDf9QdX/ZCRYvOjKO2zPQMT9fhI8f6IgQm/09CFrBgqNGw3dxRYNAxuzv2Ut
GWiQ5syquycaLriz7dttxEDfftlYzlhGg82lYwlMGgw0nrdxPaIpGq4fzHnd
xcNAv52srj3PioEHPYG3b9bSEZb4UfJJYBy8nvcaWiunIym/jiurH+IgjdNJ
L6CEjpwKaS9CW+KgE0yEErPp6MLGjKDWtniQKhKq6QunI+nWoAmbyHjoDsvc
fvwmHTUry7stFbwHWYvWvB18dOQQP21swUgEbbdKoTQuOmr3VECtMklgHpLv
q8ROR3Prp32cjJPApyHs3BnqJjo6z3lLPj4J+lQvbfj+2kR/Ew4zETSS4Yng
3Jn58k1UZP1gj5tOCgwMbJurv7qJPvCqW7q+SwX/66W1ebabKEU3pInyIRUU
1y5HRF3cRMe3FOa8r0yFl4IftZ1MNpEIT4Gg+K9U0LGwCuXT3ES7r78W3XU0
DTJ7MtTs+TaRPm93KW0qDR626/jSammoryCBCzPKAPG6Ozs0xGho1/BkGdOV
LOgUOOKptZOGytxq5z94Z8GjG9R+HQEa0lP6UeAQkQWDXM8jTmyhIUbIITHp
liwIs4wXsFjbQEeIRrb1StnAOt/Ed7tzA9Gc35n5s+fAH6Hd3Ok+Gyg+OWLi
aWMulLo0sfOOU1G77JvD5NcEOCrpppI5REV5bONBZYUEqBzYaafTR0Uzb4PP
xfQRoE7HhejSQkVPThXkl+8qhHZegWutxVQ0P3kpOzCzEH6U2Nf5B1HR0Kot
t/z1IuCiUR+tKVFRutnUWHF4MVx5rbI0HEBBVVWl5Yv7iPCIGB7U9YSCFjDB
Vi1NIkSNrYrVP6Sg18CiH2tChHaFT6ez3ShoLFEhJtCLCIe7tNK9rCnIifGp
WLqNCBw8Jy4IqlKQhkICNeBuKeSHXqg2niSjT2+URZh6PgE5/PFLBGTkGhfq
iWor4LdY/ZyhFhml/hHw9R6ugMFMDpNuNTKK+FisfnqtAkoq3/GPy5GR7p7Z
ATn5SnD7mRVPFSSjF8fyJpeiK2FKZSD/yOw/pCnO6E7yrILuLwq9eWH/kJtn
zs0a3RpI5/kuEju5jmSLg+Q5Qusg3AY4NcfWESd2QGklqQ4CslPWhgfX0Unj
63V/CHXgoH+tR7RzHYV/kY/d6K4DKa/ZwORP66jhOuFlLm89pI2vYJmv1pGD
iUvN0Yh6SMnn/Fx6ZB1JyO3gVk5vgIQzKh79wX9RtPl3i5O/myDA9epDudNr
SO1OrLtPZhs8Zs194LG4gpbG1YSVonrgql/PvsHsZdRppC/cstgHUTXTsQnO
S4jd+jRrpeUgVE4c2J4vRUIVLjLMVnYjIM2nq38+aR6tkOPMuh2+w0f5l84/
p2bRYwd9cPeehInmYkl19Rkk1urGv944BdMKUaro0xSaCPbUGfo1DfxPc9QV
mSdRfNBPvlzJWVBQxxQ+rI4hmQNgyRCcg2cnFr9UPBxCS8xyFG7KPDScWjir
dm0I3XtXsbLMmAcmk/lugskQ8gmVPdXLsQA+ln8606WGkNpA7F//HQvg5Tjd
+qZzEFnudfmVq7QAt16O112VHEQfuO1u7LyxAMadXUVbWwfQiFrZ1uOdCxDy
pVMp8OMAat9X5va8bwFaBzoI9IQBZDS9Nb/l2wIYjLflr94dQCZiY8na0wtw
nNScPS46gDiq1em/NxdAma82pfhOP6Jt7VLUU1wEofOEsEs7+1Beb1PVz5BF
+Cj7qtKAtQ9Z1r1KFA9bBDPKzV8qWC9ib/gYdy5qEUKS9h7laulFMbqPvhYl
LwJ9NnKi0qsXTanPbFUmLsLMk8eKYoNfUAr8mj4+tghuZ9/F1sj1IBEt9vmQ
AyTIXjuzEMXcg6j3otOkD5HgZxybrttwN7o+yi9WpkKCC78e/JYI7kYWHxzP
dGuRALwvq/vNdqGbb32Ma4xJwJd+cEA/qxPJxrAUvr9Dgo/rzbyt+9pRsYHY
51PFJHibm9ZwnNKGJndoqweXksDlsu/90q42xMeitrexggT7Ph8dTfNqQ3+t
DW2lG0gQHZWX+aS1FdmgHbui+kjwSO2dzmHXFmSzIqJzbAWvZ/b2Uo5uCxI9
4cUtsE6Cwwln0iWFWtB6PVXhJ4UEC6xsW3lqPyPhOJmzbswYXO73Gpjl/YyO
P4j5doQPA30PW5ekkibEXLnS56uAgYSspoTQyya01lx2a04Jg41hod5Xtk0I
OZ2UNT2MAVGvR92bvQlFlYTwMmthIMuvz3L+YiPaT9qw3nESA66i/XFbN+rR
+X9Gv0n2GHwYnX7zJ7AWXbWpsLzxGoMRH+HkxMO1yOCObFPzWwx4JE4Wmf+s
QZPDPiyS7zDwupLdVwE1yHuXwZ/6KAwMp513hlCr0LJl3tGqJAxmSViKvHsF
cqcIfwooxEAsTPLjdwnc28b8fYsxMFMxbwzvKkc/Uoq3eJVgUH7v4zRVvhw9
9xnWNyvDIJjsKd8x/Qnx91JPVdRiIM9CLXGxISJ6ckOWbSc+PunyzXu4iKjs
qFjyWhcG4SdsBvvLS9Ca/Q3doB4MqEHV5GPCJciPzPwkug+Djm2+Ott7i1GD
2EiT8zcMmAoKTet8ixH14baVnmEM1Ex/2HsqFiP+KxwNiqMYJITpBYy9KkJ5
0jwnh8cx+Ca/5e2lNwR0pFO5Z/InBrq3nYrq5wrQYzF7muAvDLIL2/vkThWg
l/wyn2EaA2+1NzupLPmopzVLIfA3BruPC6TGP8xBwV0E1bp5DAL87jWyDGYj
j/YPKviiD/MNA9POh7PRGVVyS9kiBtUnY+SPkTJRzxXr8igMAztzMeLotQzk
5RYfy7aKwcLqX837TenofUmPRSdun+gexCOTjmqzhH68WcPrHw3o0JtJRczX
hDzofzFQeGprPmqYirRZKPcL1jGoklQf8sxKQY+Z9Ywu/MPz0tHXfLY3CT3U
974VRcZggC+oNyA8ETnyFBUepGCwaqk5XnouATmf/fa5Crfqj+Q10cE4tL+l
+FobFQNzmXNMZ2Nikb3B51nDDQzcnTm2B1jFoP9aw7VrcReuuUrPjkSiV1S9
s/E0DLo1JZVEEyKQVnkGNwM36Wm/lqldOMqKQXF2mxhwNwUZ+ku8Q7tSbFZL
cVsJeGbcQqFoxMNg9xY6BjEJI1Xdem/QfSMTnvO4B2X1+tWaQtA4w7AnDveO
4qy5eMOXKJaJy24Y97ljPCzMbc/RrNXdMgEGnpdmT5GbRs/QIsHmuwHuL2dH
lbu6/FDHf3m9HrgliM/CHFN8UM2qwbs43O9bzZDqhwfoqLqQeCXuXePiJHqO
B6KKc9wfwH1w6qtmtJ0L2ntpa9wsbtnt7jGKN68idRXB4HXcfgMHBkQbTZD2
K1EDOm4F3nFn9kNqUPpbvIuBe3A5IJmPbAXZDiJ7N3Avnd2/csfDEVJK+PSW
cD+OMGx3UXOH/ENchyZw0596v09Wug9WiHe65X+f75zv2i//CFJXFJ1ycbNe
mNDhlPWFhYWHFUG4GyWDXyTyBcCyG8ugLe7AaCl3jbeBkDswVauA23B7tVXv
thegJaTpuY6PF2eApZ5LcDB8bdi7XoG79R9Jjp3zNcRz1Z94gDvk9kuB5MC3
+LlF54oi7szlsCdi/mGwTbrh1AQ+Xzdvyjt+oocDaSzRXxH3KakH1s90IuHw
sk1fJz7fB8YbTc18oqDABlu6jnvOwk5jjhIDQVdfxQbgeWnnzj1YdjQO/CN2
Sm3Bnde6vifwQTy4nvJ79ALPm+vxsC0SfxNAkCoUdw/PowlljDZ3OAkkzk3Z
/8Dzq0iUWy7zSAbR313rhrjJkZMLB8gpcG7TIZoZz3sF1+OvDffT4cxbpSwF
vF9SDgn1F0plgL+MI9NFvJ+CzAq/JPRkQLWOudCjFQzOR091eMllgjB/pmfu
Ej4/e40b5Mez4ccTTlEi3r9DJ2bQzpAcoCX4XMvA+7v2pl8Nm0YuZCr8cX0z
h8GrAmL597A8yCBnNZ+exfOhKV4YfoIAXuUdGS5TGGy3Lcv3XcbPnfCHSwpf
X1afmue6JhWC9IrP0d4fGFz52WAh7VMEirHpiyLf8fc78M9k82sx5JmcHjmP
r2dtJfYnioOJIKX+LfluBwbazQqN+38QYWfZwCqxDYOiQYpeknopKAUs7Vlu
wSCaEgGvpkqhUNWa/XwTBtehVeuGThl8fd+7v6kaA0a7sorIcgU0iC0tm+Zj
4DG2WRh6shJEpIkOkrkYzCy2K3IkVYKpsFD9XBYGnXw3FFbPVMElNqKxczoG
8Rfi9ndlVIPbyfj2HfEYHPnJLOFvhcA+bmf7riC8/sqLy8o5CNIiHo5nPsPH
I7yg6QcFgRIr04SiPwbbUvOPpJjUgTDbpY8KPhjQzKzGGKQ62PF0sHHiLgbj
RYVySKUB6qaezO2zxSDZ/XKTTlkTVPvO16rj+2OC7VZC1EQTjOx0zGeXwyD2
FDFmkbMZPFmMarplMAiT5HJJtGoGP77vZmf34P3zpZR/k9IMN2ayPbkEMLiq
zG1frd0CDYee33DG92vppSqKVkMbRGZ0nZmoJIFP13+Ba4ttcGdm9GbaJxIM
5nbwEETa4Uvfi6XLH0kQcmNUeu/ddtC8dcmsKYcESyNUE07JDihrVU3QjSVB
bbNmWv+TTuhI6mRj8SSB9fuyM66aPdDlg5FqZElwOn24y9SqD7g1Yl5/9V6E
pecEx+bbfZAtdJXrgOcixN56xjj2rA+G9tox33dbhNlDh1TkCH1QdtXLie6w
CC/L/SJZ2fqB/XPyyx6jRWjt2m9TXtgPw095dN3EFuEk+f7sXs6vUCJ0XLC8
Aj/vmQiw/i0dAqwKsVpPz0Oo/ZCfctkYaC8cEjomPwctpuLcZgKTMPB76d2C
wCws7hV62hc/BQXhq0/saNNw3/Pg1VDhGcis6jskMjEFQ2N8Fo6ts6DG+4+9
M2wSrnhr/+Y0nofgMcqs4Nx3aDyoEdLIToLFC2lBJ0JGQHZr9WzGqSVw4ujo
vF82COLVLgbsL5fBqt9JeeG/fmCisuR4/FyBVKNb/2W39sA/85rLzTJrcEub
XequRjuMqtmLygT+BW+oLD+90QTuF/n4pcbW4dMfbyv1ZPz7IlspXmZyHaxd
tkteCqsDS4qptNzMOnjfDl977l8HWu/fHFFeWgfRucqyzWt1wD7BZX2c7R8E
pKYa35Crg3hH9nRrhX/wrtO0SNoVQdN9qlqEzz84012tEV5QAyKRv6zYxMlg
9+0zY9ipEo4+2yPsKUUGL57ixCHTSrjgYd0/tZ8MXSq7uuYOV0K42ReTRlUy
iOkWVpjTK2A7d7V+wCkyZB2Wr5SMrAD68wgFJk8y6D9gba9sLIdfD/SZaO1k
iBi90R6nWgYEm5Ss1YcU2AW+/J3GRFAbkqZyPKVAoNzHW+eOEqHKIst49zMK
LItLX5yXJkLracKy7hsKMHm8HTLeKIEpjepjb1MpICC/4PU1twR27fjWc6Cd
AlkdfYS/20sgoJOXbCdKhT8LKp+PjBfDRR3fU601VPDoSBdOvVgIY39neBsa
qMCi6GW3W6MQHAimQ1UtVDCrVXYoFC4E1z0SjoW9VBh9o3xdYZAAAcw1z6Kn
qSC4YRrgfoEAhGZq7XXuDXgsqj0nYFsAbKZeR5jtNmBLAF+76eM8COH4TqNe
3YBV938WkpfzgBcZNK05boAJzIVv08uD3cpC52bdN+AIMeyfImceKAkQ3XsC
N+C9HuFdVmQuWA8u5yXmb4Av9oJhTsyB4su3pbRoG5AzjDFEObLBoXRJPIWZ
BhK7byr1/MmCHds9RTg4aeDo9+N0UlcWeFU84uvjp8E9kXtYaFQWaO14SXfa
T4MYCcuOWtksaGhLG4mzoMGSteopTdNMGFD7Fk7JpoGo9qVHwsUZ8PyVzVt7
Ag06uWIeSsZmgPrP78HNJTSQyYyc/c83A2JDp/3e1dLgTsa+L4MmGWA3t+Im
N0CDkj2nk+UX0mEmmdvoEoMGSpb/7L0PpQOZ6z/WCstNyGtWHTzUkAoCJJ7I
ButN8PxlEFxWkAoHe0f2ddpvQv25TQvLuFS4HONhOOG0CbuzKYud7qnQKJ0W
zP50E8bTGhJyJVPhrTYzn0XmJsykDjcJBKaAjBsSm1/fBMtPiSZ2H5PguPmr
grWNTSh9xlem/TYJrNQuHqcz0eGsUkmirnMShFBJ9vzb6GD3PeVOqVQSLAVJ
pGvsoUNDxWM2s6hEqE5+Ihd4kg6Pc/q4lf0TwKL3mLp4LB1uO/3kG/KIB65j
2+qrE+nwii5uY382HuozRoxs0+lw9NXuWj6FeFB+6H31PYEOn2ScNEjTccCz
p+y1SDMdNOsvjobaxEGbq+qU0AodKG1fjExMY0F3i1wYjzEDXH55KBSZRQP5
Lnk3wZwBXsSTVEHVaCgcbflgcpEBX4dZzBMEo0Gi0LHqtQMDyh2J23cPRQHN
MmOGyxu/v+I812wfBWXpe3Q4MxmQdj5nqe5BJLhxYy2ZeQxovqvMamcTCbIP
ai0Mixnwp/G+lyhEQuQZu1vPqxnw9KEUmc4RCR7L8RGs/QwwNhGsso2NAHkb
Z4n0bwy4uJtNdsuTCJhs0szR/47Xm0KcHrgaAWax32r9/zDAxGz5e+/BCNjC
kn16L8YAfYr/IDN/BCCXBwN1awz4bTeaZLEeDl5fDe2vUBmgwqW+s2k0HP7v
/yj8///R/wGDTTj2
              "]]},
            Annotation[#, "Charting`Private`Tag$8959#2"]& ]}, {}}},
        AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
        Axes->{True, True},
        AxesLabel->{None, None},
        AxesOrigin->{0, 0},
        DisplayFunction->Identity,
        Frame->{{False, False}, {False, False}},
        FrameLabel->{{None, None}, {None, None}},
        FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
        GridLines->{None, None},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
          "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), "CopiedValueFunction" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& )}},
        PlotLabel->FormBox[
          StyleBox[
          "\"\\!\\(\\*StyleBox[\\\"Too\\\",FontSize->12,FontWeight->\\\"\
Regular\\\"]\\)\\!\\(\\*StyleBox[\\\" \
\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\"\
complex\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\"\
 \\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\"model\
\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\" \
\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\"\
\[IndentingNewLine]\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)Areas of \
low data overfit\"", 8, StripOnInput -> False], TraditionalForm],
        PlotRange->{{-1.289830703834119, 1.2786622408856676`}, {
          0, 1.133492262531731}},
        PlotRangeClipping->True,
        PlotRangePadding->{{
           Scaled[0.02], 
           Scaled[0.02]}, {
           Scaled[0.02], 
           Scaled[0.05]}},
        Ticks->{Automatic, Automatic}],
       DynamicModuleValues:>{}],
      TraditionalForm], {873.9164458267131, -138.075}, {
     Center, Center}, {359.9999999999998, 263.}], InsetBox[
     FormBox[
      DynamicModuleBox[{$CellContext`M$$ = 9, N$$ = 236}, 
       GraphicsBox[{{{}, {
           {RGBColor[1, 0, 0], PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwVlnc8FmwXx0khQkRpiGQlpWwpP5IokSJKyUiLyh6pPKWQKEklHp5ItrRQ
hMse2WRFt5Vx3+5FIqJe7x/X5/x7nc/5ne/5bnJ0PXp2CQcHB33x/b82FXcd
NglMAYeruJpPMguFphMPmZdGcdabe9Vmze8QN6mqfGdPIfkduhM901TMuoXo
G4x1QdqFz3ZuchyHLl97qOnVhmmuWksjCh2uTt68jXo9pOOtw1XaMiYO3Nsn
lt6ejvsLL9P/rmPjhJNxVlZuMd5H6XYFstmYWvFpR0tzB5LfhNFnL9JxMFgo
KcusHX3W/21/okhHtLXA/mifBkSW/9fg9S8bqafqKDwvh1Ed7jH0uXQYSa03
Hq92JdCaPPNDt5mFm8XpB+PMGklF1dFled5MbPhxgN9paQqRbTxrrmvPhlHz
goVaRDWZ97tg+NKVidXtI15q7WWgGP7pn3/JQofNkEpgNo0Ubmz9YbV7AODZ
HccU7iIVzKU97vp0bDi3+szf023ku2fExA9OGv4I//l8pLkXM0Uia1a6MHA7
oOyyn0oaUvXyIlrlWHguJsjtojMG8ws6+xcS+pBesssp4FYFbFb6u07HM8GK
0in5sFBJ5Jr8F/7pYaM6VNhRmneEWN1VW1h3dxAm+P3cvXSEBDNWJu69PITq
AwWaoUU1xPTVX+UxOxZ4tHM+7VIcILXLQ+KKv48gac6lROYihWzocBTM1WGA
3010x3a7MhSGC9xKP8PCQFGOPscuGmFT7i+MsQfwrq/l6dViCrFUr9UtVaJh
mXyYyPckCumbrnTprqHhspashktePcnRmhfwt6TjT/hodnDvfey+bltTIz2J
tbeSDScd3qBJ96bdGm42+huaTERODpPNlm7HLLWHUfuqLTDEswnD2W7T3Awm
tllHb3/TMoGyyqkjem+/YJ+k4PRIxCNM/RB8pifDRgbP3NIkg1zIhBdyWvCy
EXNamFph0kb8xu10n9JZyNh/35en7w25dOj3mfN3WKgbOHrQ+3wjyRnU3jOw
mg1X+8hhEeFxyCvwO6hLDGDzs4D7icI0cjZ24JCwQT9Eg4dVZPZ+gYhJ5h8X
Fzo8BuafDt3oIEeUSqavr2Ui1aT1UH73V5IvZWovOUODIt8T2lr+EfI4e1DZ
0GYE2gappc9iW2Eescov9dE4aqUzRH6ElYN3Q2Hkn01sBCYbdcaVjpE4HR+r
RNYAMjdl/TRbX0UCj2qxvLkZePjwDYsh+RLZXBLPcngnkLM6UNFaZDEfsfNq
ihsGcFBg/9m4gW/YyaWvfUKKhjHHyQpdmVES6d4dZBw7iLGYQR+72z9InUV3
hohmLe7qSLkVGI1DDa+qh7h7YOa77HHzf63kwe4UGdtaKuYuVcue1a8kHWrp
Ev0BLEzzb66oxuK/TGc8XPVHsaJvXZJA7A+ioGmccLShGms/i9UrjJeSBRMN
a+GNbJwVirFnVoyQhKKs8pjX37AxwkZRWbscB+pW9+hnsWCrHX2Lo6ADVSMn
eDaOjKOT285gufggzF4tZSBoDFbJQl9d5SnEhuLiOlNARVv6tNLhejrZHnP6
FbnTiWzfhG8hDkVEzj/offR2JhyctHTotm1QCL1QYxXKxDyDW/1tZQtR6vfY
wcxkwEShTXCFdDk5/iSR6r2Jid31TJVPM30kv3uEf8plDKdeBB+T5soEl4eT
Wd1DNg7eOfz6V8wAuXyXb3LJ+hHYymyN8Gx9Sm54yG23jqIjvnUPNT5glKwT
oj2dWTmE3Ur5uT3W9eRu/qaK+So2GEPmO3tNh3CzaiHU8+cwqhw0syQsKMRV
TM23QoAKJ8kjd3hHu8Fh3n0/YDkN2wNeC4i6fQGlbk3mpkX+SXBLOFieqoSq
Zox86B42lOfkToU51yHV9Vhg3gQbgk8NXWX2thOLPWM7ty/mn2x+LfCyd4AI
WlqvsTYYRdw/GutqImkk1WHPwI2QbzDb4Sq2X7oXTu7q22/wj+PMbPGS4XMl
xNCIx/KFJxsafK2F98PbkOljkcsidJSLhG1x2vID8/KaN3wmquAVsDVe53A5
cjxJTOPMOP68Dzq9X5IGrudCQ4EeQ4jm67E+KfuJ1FnpGeYrTMDvhcQBz1VU
7I8d0zyyqg9+J3dZ1Fa0E69jFv8kPKPjm8kfazmnRvIy54aNhBUD7onfa9+s
pcLgAEunO3oA8arz4UdiX6D4ddCzZaIsaCuwRZM0B4iYON8Od4yiITR/DZtl
QKbPGnG8SmcjuHar7t/TnQTNhkqsPgZySxRu+glQ4LEvNdX/+ThEsmL6HtW3
EKqXouM3QTr0O5PWnbo1BL+ImPHM/CFkCR0aT4rOJJ3MyaTmJhZuPdj7Nzq9
B2MrekbeZ45DJ/Vf3td+pYRf63yXZzQLu4r2l97US8AxUwM5Ky02+F+5vQg5
z0DZp5XFTjMdeBoi5CWZNwGqwZTmnopmHHHyuaD/sQGcS0bfHZpioXWb8u/b
ie/IvKdZ4eobbHB/vRSpGteGgLPZF0riGcjP+ihwWYVJIk/c859K64ah0mDP
XFA5dsS897URYyPBV+kULIqI/cPZHJe/TChzcC4paehD1ta9vN1nx5Dp9kzs
eTIbDnWflThffoHCYeOBTXZthNdQyt5WnoldWY9WmX3qBV+jk9MXcSqi4lTT
BZhthMv+9GYTZzo6fXMeMDxyiZRykOU9gwkoFzRYxG5qIAcmtQJd4+l47Dj6
3CKmEcaKyY1PdrIQT+Qi200WuT185em508OwCxdyHNIdAN8dS9MWxxFc+1Ds
/zMgl8zxzL39aMACQ/4Fz2qrCrLyh9vLzjQmnFV5Vn752YtrtC3NzvZUrLq2
N9P4Sh8eNZxT37iFColam62Cv2phExOov16ADc7BQNuTOlRy5XoiH7t0EHIi
O8bEAj8Qb+bsgXcDDMQZpaX0u3SQ435KxrEldFCNhEZSDcoJt534dOJ1JkxD
6zTv8A4gw+G6ud8KKj5v9Mizj3gHYWqP2ZAGA2vVZQbro56RVzKOhzYWsDGZ
5q9k+uQ2tG2iat7WsPG+vOV3YWop5lytOh96MNBnldOyraMH1sMLt+Xc6LDN
EBf6bt1F6LNN2ode0PDLX84+oGgttm9kcHnkMcB6nM33yLmc8Ohpr3aLYuGn
+/LL82sKcIolW3r6EhvIvprKK9lLxFTVmh8t3ou7xe9Dz3lP4W7+zfU58lV4
qygc2Zb2lfgEnZEYb6fC8VeVrd4YhRz/lZh4Qn0My5Yy61KYnWBy+S81Y41B
L0VDNDKrG1IJyfq9ijQI3FO75chZRZiObbm+a9igpkVe2aAeiBenP17cFMZG
yoPKhG6DJ5g37uSpYLOQOdflPzH7kcSqNCdymLMQvGvEZ1SkjsQ6fFx7044O
N53K0DK0EJ1PWnH5xXSsMDW67krrh01r7MYU+VHkFiZMWSj3I0ra9jfLfAzk
EqfdNunXpPh7kEFkDRPi4b/j765iEvW7T1qqGrtQ8kvdarNjNyK0QzUEDRd5
9W/wXh3FN+R1mspskcyir5UVn9Cofku4N4jfk+pkoSBfOtpZOQfikcU6f3TY
iJML1gw0KILQK+YkbyIbcs6UnOUxI+S9u4CXcuogon3jj55K+oBmHvkwvcX8
ico6VM7oVWOq05kiGMxEg9RN4+dR5WRLEnfitlomDh0Ia9TgziANaW+Pl11j
ISVIsuSgzjci6dST/HPvCC4VC/SFhtaD0i/kbmDNwqt2leZrXHUkeEe1u3M1
G0mDVbTGnI8Iv7okrGmGhbKiE8qC9ZUk0MA91vcoG0q9Nrd76npwXHXV+fcP
aLBLkDbSkJ0k+qIOV7fVt6P39w7dusEv+M5/P65nKR0hehOI8rpN9AUfdYt1
sXHy33TN/KsU4pZg17/EmI6s8CALUdWvWNbL88g1bNFH3D/e8X66yJeOcPHo
NjoiWhpulZ2vI+WZ46vabyz6btLdyl0fylA0fH7UKpqNN2lcId2Pm8ludf9H
KgJMKMQHXPtJi4Nr/oU9nIu+L+uVciI9vpd0yITeLGuioTUoWctp0Jd4rqd7
ZAhNwJL/qh3dyoSkvskubDu8yEfHQYFLaSzoz5fffezcjWMvmp2oK5KJNL+m
SrogE5y//0gbO3wh/0ge35AdR8cD+yy7icgvxH1cdep+Hh2Jny19vBNSyfOO
/RdPKrOxbUFSNNEkjdgX5Fhy1ExAm+NaRmhfK6bt5CeHTzCQd7L9l8jBGPJk
XbKm4rIJFIhY6NanlJLssL19kbdZqE8WPV1f4oz/1le5XnvAgktZ4dF9lwvI
Ci73Gv+DTCw/v2tSp+kz9K7EzXKZMNG4XOfBjbxOwtT3dYhg0LC3MdLlYiyN
mOw//vN3CAV+s2bXYupHyOHX0mdU80bQ/S3knPfY4p7t26LPz9OP7hX6oU6R
rZCnZG6YO84Epfecy86Vw0RXee3M0rBhWGcN/BPln4Opb0vHk3eysWNY2Ofc
8xLy7WpGxjEHBqIEqk2psS1EjvviJYtF3vTckg2STZoiR9tSryh7VqL3EQ9z
/cNqsl6h0ET4IAtrftXvq2R/xnWBiuFdoQwcl/j6ZAvnBKnvPbD2ptRX/De5
rEpw1Qj5OPfZZH3uMKIkl+hrr6OTRpuvNm95KXD/Va6ZYNKGLMHm2/q7aZBf
iCk1KuwnxuL5/KOzo/h4zzwz/94UaY5PiOkaLUD5qNNBFflqImVc2269OL/7
e6tDdLYWYpK3pNhusZ8SXX+psPPPyd/RKvOkRZ60aRzb+OBXM4YUi2qVNzEg
3oFTU7pfiV+K7c7NK2gI6vd8X7P7K47JmNTpWlLRMsJv4q42CXO+JarzHW2Y
H6YcjPBugmunZO8ZrXEox3wIzezuIx+qP9M49UZx0WihxkZ2kGSFRnWNaVPB
PRzhlWk5RGZi6ud4tIbxP4jDpnE=
             "]]}, {
            {RGBColor[1, 0, 0], PointSize[0.009166666666666668], 
             AbsoluteThickness[1.6]}, {}}, {
            {RGBColor[1, 0, 0], PointSize[0.009166666666666668], 
             AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{{}, {}, 
           TagBox[
            {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
             Opacity[1.], LineBox[CompressedData["
1:eJwV1nk8VN8bB3AhpEIrorJESPZd9SBKiyWpRIm+Fe0qWyWEihQiUtkpsmff
j5hh7Ix9F5EsM8PMMLb6nd9fXu/Xc+7zfM5177kjfvW+xXV2Nja2nHVsbP//
y8j+QEs8zkIVb9+1DK/QESv0qT8CFsrLF2udCaaj36I/po7psNAhK/mXaSfp
qOsrl0mzGguJqvdqCHLRUW7Juy2DsiwkH5BBpnrOo3ujyZ+Wt7HQJf9nfp7u
c2hMuSNdfXIRadUf2lW2jYrIpcL85aOLiEfhk9ibaAqqNLrywHBwEcksJL57
LUNBMRen1M+SF5Gd328nHoNZZPWcDTmVLSLvQOaxHz7TqLlVvi0tZBGZl+lF
/dWaRGXWD1VVA3G/p0Hurzt+o7RfheElL7CrmlJ2P/iN/FkG1nVPcH+Bw2Tz
jAl0VOzi2MS1RUQaW6lJVR5HRfdfMMW1F9Gke5XyEcdRlMg3JBz5cwFNSgau
u7nah0JtgFt7YAGJbaigfLzfh3xS4hi9XQsoROEZ+divXnTV4L8WkUZcP6Ya
xUXuQRKuk36xBQvInGv5XkVFF0oYnKd+DVxAxgOl/FJ9ZBQqZzl4/OUCspNX
6Xr+Hxn5uOXXT3ovIFLS2R4pShu6usX9i5zrAqLtVVfR5G5D4kZr1pl2C0gv
ePrn2ZBmFJfOXZOvvoAqp6ff3V9PQiFLjrnnlRaQtwC7ssGRWuR9rD5uUQ6v
X8h3NXpcg+xG3jzVFsN5fIXYSEwC2rt9q3I5L76emhItxVOFYp6KRhGGmci7
4XOPhUgxCiI9C7jex0R2H6/KbG0uRJ47hl25OplIz3vD9Td+Bcg2K/6McT0T
iXmlEF+v5qLdY9LcjXm4Lqx6/5hiJoo6qfywPQD3K/24y4/0Ae3beLK+1Q/b
dKWTURKG0hquSjR7MRHb6eX2GqdgVHL6PZnkgr21ol/OzAv1mi6qVNhjTz6/
vtTzDHaeLaenaGP3OeT6bk2AmG1dp76q4XkbPhRm1CaCVAclMVERuyZh5oD7
F1A7J2YZI8VElRoMo/MNKWBxwTcvbAuev29gtUA3C4JtTrh4/mGgSp2L6Z7J
+bBT9GrT018M5OR6f8/zKwUQM/BE6vEwA5mf9+cP3FEImZfTOx91MpBewi/t
hqdF0HiFX+PmDwYKqaD1hCqXAs+1zoWzH3G9fE/GDclK8Llj7y57goFkQhxK
xKIJMBRkG1VyFK8PLFRdGiOAznebylNHGEhMU1SeU44I88xzPPdUGYinme1k
WS4R7L1ORubsZiDHkCcZf8trQC9UtUh3no5oPDfLOLJJEJWnNNA4Q0c9hkxR
rWkSsLoOstn+piP3lrW1Gqk6yBaRMfYeoKPslC8ua5F1sPeLaA+hho60LNOc
NrnXw9/C9SyTz/j6a4vXP+1qBOs+dtHhcDqyimiL8DrdCAWr/8ApBPerV0/6
+awR7ukvvwp9QUchN9ap7xtuhMF6imD3fTrOr6rb+7kJyga7Ne0M6cjSRdQ8
8V8zPOVIdXs4O48UIq/U/VfRCvc+2nLZTc4jIWmOJ19bWuGq4rZwk7F5FCdf
FFo70gonbTxyZHrnEfvXZONk9jYQyjWdHSLMozfelwNmDNsg7yr96qmoeaRi
/Smdm9AGlB+HTPedmkeUwaH6ddlksPdu2deVMofapDYTRs93QHj5eGTULRpi
RZ7jFLDqhpJhmU3pEhQUOTleZzjYB5ICegaWMdNo472GwpNRQ5Aj539rdGwS
7SuI8iIH/oRh4ncxDY0JdIU2HPG9bwzG5cNVUMEYKg14dXCBbQK2eH7TUFj3
Ex006ku7e3gS5DWo8l/oAyh4M33lgPwU+BrOtha7d6OLWeXqkbwzUGU8Y6b2
Xzcq/hMjfWPLDLCZTDdnmnSjvmVKtqLQDHic+9OYKNGNjjAZL/KlZsD1xjjp
bWMX0r55bihQbwYc/Qcr7cW6kNa1+kw7lxk43diUvYHUgVwuDLFH9M/ADsvM
kIuCZOR4equ//8dZyJEOLDHiIKOkW0ZixJhZMF9y+KVMbUN3tRIPryXOwusY
cS3e2ja0XXbd3yuZs/B38v1wiWsbMjgoZk6tmoWJZ08VRLtakV3DHX7V6Vm4
Z/Yusly2BW3e3fvusBYFUhgnZ8LXtaArLyPZJg5RYPQjp9693mY0Y9STFKBP
gfO/3H7vCWhG4Q4NvlUnKQCPbTW8J5uQrMuWc8uXKCCQeKDDILkRBY8WCnh7
UyBngchP2lePHPnHDpGrKRCUmlB1ZKkOWS2Rz6qSKHDb1sslv6kOrZPPuRnU
SIF9NVr9Ca51iHfQ/IVKJwUiwtO+PiOR0HhqiLjKBAWeqL07rHqnFt0hW+/a
xE0Fg4eXbsfkEtCkuPfj7YZU2COtvWeHPwH96ek/mHWcCiu9O9oCLxFQbf2u
J0dPUSFPv0Xj8XoCSu/0bLKyoIL0FgN2ywvV6Mm971wadlTgzd7/ccPKD7RK
El0tfEKFL/3jb//4VaDoAx6M6lQq9HnsjI1WrUDm/86/vpRBBb49x7PPjJYj
134rVWoWFVztUsjFUI70J6bz2POpcGz8luDr5VJ0/ayF8mgFFSYp1Dg5p2I0
LPZn2ruNCqIhYjlDe4pRsIFKUHE7FcyVz1SHNhWhA8wc0ZlOKhQ9yhlflitC
yuFdjCN9VAhgOcs1jBegeJlbZp9HqSDHvpx72yYPmX6jxMvPU8E2UY64lzcP
bf5Cn2VnUCHU0KarvSgX7SEusLUzqbD8soyluzMXOb6gPrRbokLDRq/Dm9q+
o5h7i5JCbDRgy8gyrfT6jnawvT02ha1mOnLFWeE7+lNdcLR4HQ2iQvR9BgKz
EfWGQ50JBw165HiCLr7NREKVv8bMuWigd/dm9o+pDOR0vrRsAzcNUrLqybLG
GUhI/pUDwn6s9lZwmT0diR+pVRDfQINdR7bGf3L/hjbsyb5RsZEGPt6Pqtm7
UlBBE+X75U00mK7qGL+lmoIIO7trlrDLjn+Q06V8RRorkSdk+Ghw+YxoXv9/
SaikaTTCVoAGM3SmtgshEV26auHxE9sjogXxSSWir5fqjtpvwfn7fRr0J+LR
rZdyLhe20kDe89KZ/mPx6FTrscEm7FIxjW7n5DjkW9osqb+NBnkNZKJZWwzy
qQk33rOdBh0CL9t8QqPR6bqtUv7Y9HPag/lno5C9jtsABVtlJJYh0vURrY34
9OTsoEEW447kZN97RPnQPrtdkAbN2mKKIlFhiNGYFXAdm+LZrmN6ORStKOcv
5WBbbXVOckTBKIG6bGEoRIMPUX2lzfpv0UvRWB1/7C5p/XY1wms0IaNGJ2Gf
1eVjX1f3AiHOjR16wjQIJToLO5zyRVEHKpbdsFvN+pWamrxR2m9Dahr2njzf
kBtxHuiw9kD2APZnkjlS+eKGTo1WHeHdRQOhwd2Uv98eotmb2pFq2AfGOrUj
Lt9GjXt9ymywpTc5fVBwsEfBe3+memF7d8h0iFSboJOWUVfjsOX5B2+tP6gG
a09XRsuxu+Z8YgVYVkCVMz7Qg00z2z9//+ENkG9p0qFiPw07Vn9bzQnoub0C
HCI0+Ov5+HOsogsIri9N34btfSv9TrvcE3AmV20Wx+Y4P3yYW9oLbLcZqh7A
rhYLeBUt4ANsqWGiKth+ERJOmkF+0HiDp04d+9imMqu2ja9gbOOKpgY2t885
/dsBAeBqXuOoik1apMiu534D6r9qrA9iv77rvzXWLwiSH9ps3of9dS7kmejz
EAj/+stLEPtl+uCDP+gd3D9I/M6N7eAgd6PgbyhElNgnMPB+jCXcrH0Pv4ch
XvEzQ9gyg9Wm5h7hQPp9u5yAvSFS4Oju0giYlcuYSMaesrisObX0AWx/nGl8
hV2/OfVAodZHmMok3b2GnUZa2Ovn9gn8tvjWH8a+cySEZw8zCuQM3+VO4P+f
ydLA6pRqDETQ2o4UYCvkyc4VPoyFO22Kvj7YrPc/Z2RYceCRrKa+Bdtxntsh
+EM8eDT3xrfj56fHTOEnUyMBON9HEkOxi3mfdla5JMKGDDclbuy4gzvasySS
4KF+GisfP58vzbNao1qSIBMxR+ywLSPGGlxlv+K+gfxpO2mgW/ys7r+ur6DY
Wm55EltiQLDW3DcZmHRy4Th+H2jip6vkBlOg+mtEpwB2t+EEEnz9DZT2GgXH
4fenwsG7nFMzFbqLu67JYwdm5BUNhaSBp16tvRZ+H6W1d2eFGmYCz4OwCHH8
Pm+6VJjuNZcJbjNLEqH4fad7nkm9E5MFOU9Ha//y08ButMpC0iMbTo/WXWzE
54WCzKLJWud3WEhMeq+Fz5MEbULjI/kcsI0r6A/A58+OU+9OTfnkwJXPRK1u
Xhqs3j1wolsxFzSP9qvewOdVXe4Vw+8BeSD5Km//OXzeHSLKV+8fyYPlomtC
r9bTILtrST9GIx9eFTzYnc9Jg4ilMAgcywe7RsFr6/F5eQ1IOtcPF8IGpu6P
2b9U+FevpCw8VwxCtgk7dalUeDiwlhV8vAQk6voeis9SYWK2XoErpgS2pM0s
/JuiQqPAdXn6yVLYluHs9mWCCp/Of9zflFQGHKMl9qGDVFAfXbfnuRWCbQkl
Kow6KiiUXJhT+oYg7Y8gCqjF37vQDMLIEgI591IPISIVNsanq8eZVEJgkmyQ
eCUVVs2tBv5RKoEwflZkFH+/BrOzZJFyFSSPuz7fHYe/f1HW2wStq6Am7rzL
sWgqdPmvX7vnUwVmlwq+On6iQrOdTeue9ipQnv5NjHxPhQoBbjdP52qI+SW5
LcWfCrFOtoTDhQT42Gvx2/c+FaIubcgMHyaAebWppv4dKkQa532Y5SaCHD2i
e9GRCiFivLejrYhgfjOV78xVKni35m9ZWyJCr3imV64lFeyVNl8pO1QLRvNb
67W1qCBJK13SqaqDYoUf5lbLFPBoOurHmK0DZT+R5SkmBbpSG/gyhetBx1V9
s+scBV5f75cUf1APckd0PFwmKUDrWzbhFmuAte0JrcJdFKggaie049/JAY/v
bVzJooD158KTd7RbQLO5+pWmLQXy3KFT6noLmErtKhm0ogDf+dorwyEtcMlZ
guhxlgI/BLqdLSZb4Jt/qssXYwpsP/rULOpUK0S+uZAfr0KBp0WfHvsst+Jz
fb/zifUUOJHY22RqRYYN1rs5XL/MAu1F5g3iXTKoaTDZL8fOQqSj7z9dXzJY
xezPOIx/D04ePKgsm0mGeMqT7TNvZsG/yPs9B2c75GlWlq49mgVS036boqx2
kO+MpbD0ZuE4y2VSnLsT1hQNIpy7ZsDIZCsHM78bbhI37q+lTUPwlW5vpcIB
aLOwku7dOgW1prs3m2/9CbUvQo3F+3/DrPgOT/KnMdgg6pLknD8OLs4H7IN3
TkCd0C7TLTFj0D0gYHGDNAluWgKu2+7+BLvHh35zn54Gx/JzAbK0Iag+oPm6
Gu+TyYpV3dzSB9IbyiaTjGkQliYsNTndBbvLbhut95+DVz/somtWyLBdeHn5
3ts5uBhoIf9oigybXP2ze0LnQGTBp2FPLxlWFb+IpEfPgdaKcPijAjL0JQ7N
WeTOgZ1J+/yOB2SICDwTEzc0B6/NxNYsJ9qAz0ZzUVd9HvaskuI/t7UC2zL7
t4ej8+D8L/AQ360msBvrpXv9nge9P6GeT081QWVj9pG3M/MQQrA4uCrfBN6x
th3JC/PQQe39rU1rhH+GJf8GeOlQRDcbyndrhL/BD84fV6UDZ1pPq0JgA6xK
jXCI+tFByV+O7Q2pDi7xF5rKBtDhkLf5XEhGHZSx3n7UCKKDB8GHryK0Djwa
dBXPRNLBz16Q7f3lOlhx+mD9Mp0Oxget8oyYJFguNf1O66CDQKpNtPdBElh/
kVpd66UDm69a1t0dJCgJWj22cZgOYt/6p0LWauGxfeqA1B88X08dPWuuBRYX
F4/NGu6XXvx506NaWDxTbkuUYoBjbuPwRG0N+PRmDR45wIDsmo0qHDk1wGef
cKlIiQFO+UOcj6JqQNrplXWaLgNoRso7zj6sAcugM+ffnWFAivzBQyBRAyM7
DDt5LzDAjo/cIs5fA7ejNSz9LuH+7T7y11aJ4JMuYuHmgK/f0VLO10OE7Ppx
k8vPGKBlrl4o+54Ihyx6Grt88Dz1R3+0/IhQ21t/ytwf16eTL+U7E2FoMuvE
0TAG8CAdsbXzRLjllEAqi8R5Vzx4G42JwFx8f1wjhgFCYaE3+XWJsIn7iZHs
Nwa4F63OL4sRITLoDiEhkwFxMf0jX7cTQXLnlaOieQzQMymsb+Yhgo6UoT4/
YoAV12HLT/MEqEnXqPQnMMD87n+j+pMEsFCTBfZ6BkT6vj9xd4gAN4/yHWZ2
4HyqiWUXGgnAqGcru9fHgJ4tBmO7CATwtqDrTA4zQKbJV+hWGQE29Y0X24/j
ehfD7Xg+ASLte7T6pxgwcmdEIj+TAPv+1Bda0vB+Ptvo5acQIMupXKOZifOa
ma+dSCSADisr//gK9mP/Ny4xOJ9XgtoPNib06BZL63zC+bjDc3W4mDByIIj3
UwQBBoNeqeRtZMJkdJ7HhzACOO588v3gFiYocf6uVXuH80bfUUreiW3NOuQc
jPNKXckSE2WCf8ywilUQATZmnFH4JM4ELbtqrrG3BIhQM8zYtp8JlZbrRQVx
XaJMQ/6tPBPiOEwHFrAzj8qmcangeR6RhX4hBNBuEJHz1sQWO7KvOpQABAu+
b0uHmGDuzh6bF47P/T42mUcGTAgR3Jtm85EAA/b0rzPHcZ5IM3JJNAEc/oxL
3TBhAu3zYFJHAgHmnXqShi2YoDeaXpyG748nq17yohUTvO8ezzTIIgCvd3kC
+TITxAr/SEcVECCcO1v89H84Lz2ouaSCAGLBCXFERyY4Oaydj68lQPrO8L1w
jwl29WR3izYCaMW8iil6xITskhB6az/OK/Vkt8pjXD/67e3e3wToV7siIuWH
7+9E1iUtNiLcWFLnfxGA8+6z7SduJgKtfBPHeBAT2F6ND0mLEoHzeMlU0ke8
P8+O5/fw8xi08d0QZyyu51QWWZ8mgnCrA/laEq4vf02UsiWCwsUdJfuy8Hzd
UP7/8PNftHsmwy+PCa1zbFf6I4lgMFoV/6sY78fu3L/DmUS4cNspIImAr58q
FW3uJ4L3swarfX34/jrw/LhnUAO8Bgmn/YbxvOMHLgfZ1kA412O9X7+wnYN6
s5/WQGqwtEwSFa8PEjy2sbgG1CzXRDiZeD89vjknemugQqiD/9oyvt8VXYsf
lmugPf75ouT6Bchmv3XxgV4t2N6wmvblXQDazc2KHNdrYVJOcXiMfwHE3rmZ
57yuhdXcgZrEXQvgxG4Grr21IF2jGSGptACVLxu4Fv1IkP2a77Wv+gK0Kg4f
7swhgY7Z+LMxHdwvSU9i9icJzHpCrycaLYA39VlFz9E6cJ+aVZO0wQ56nsoj
WA/sWQQZXzvcn6nkvtusHt4++iw6dn0B4mZeXX/tXw8Jq8aciU64/4VzTz3+
1UMDX1K7xEucT7TuhcrfBjjf/qTWJ3ABzCUiuB7rN8LIhzOloyELYHdh8zGt
l43AEPuXkPAZ7zeRsaK8vQn2qFo/lPiO6zsP7Q80aAanCwJbJAYWQIDPzuSy
aytcTVH8JPUT5w/cd+VbfCucWzKVlJ3A8/VWEouaWkHn81t1JRrOF62bJCPT
BuuHea2PcC5CXNjW6y/x94mlKDemv2ERWk/39kkKkWHK+8QdI75F0Nv3OfH9
STK0Svh7nhZaBAF94QDWdzJ8urE+0Vp+ET+PBI71ge3wpnCfvK0yNr/lOffq
dvDiMcy311gEsZEG4dbVdriW6lPrqIfnjdF71R92gCLl37Sr5SIoxbppCzt2
AsFlWS3MA8/f/ijFyKcbCmqEKyKe435K+SLb6rvhm6D28U8vcZ7X/A+mtvZA
ULHbxfiQRaDZhRdXJvfAxTXGs6wknK9ZNcBiqBcoftSahsZF8C6MqzV/PgA/
O/nMW9pwPU2Xb65vADqkFXrJXXje3nlNovogFJPuTPeO4LzPqmy3UwfBb9MU
/yQD99+yRyfaaRiE3/+y4tzNghTOgKU5q5+g5bt3p7MEtv1hm9L3P+H8Q+v2
sf0ssGKIPD/X9hNCzVtNqlVY0PqrdzOnyShs2lxm4GPMghGhP5k+pmPw90WY
PJszC4z7gtu6no6DqEvzn/uPWeCfZsOfSBwH3Wsbkoc9WRBXvD3JXmAC3A28
xFEAC9yDn1RVpEzA3N9bOz1jsWNXTmmN/4ZfbgZsq/UsyM7nk1MJngJ2h2fl
t1tZ0CN+OlXrzxSInS960t/JAvOtFvIXDKfhspoCs2QE5xH7rjWxNg1dNOGp
xwt4XtgxvzDPWai7Ode+KL4ErXw1+tqXaDBpJf/OYf8SsMiu7h9CacBl7GDa
Lb8E/vFKPyLqaGAgPUgq0FwCoeTlvZ7ac1A2Sip3MVmCSA5BJCg+D5k2ccl0
9yVQ0jotWCbAALVuyWUuzyUoevuS4GXCgFKL5NO7fPF6tiLtX68ZQDqROaf3
dgkm1+TfvOdmwphmmW5Q/BLoVW7MK+BZAKHtPS0y9Uvg/VVkXPoAC2KCbSQO
tSxBXPNt9bCHLJDaOOxs1rEEIyM1z/JLWKDCPiHsOrQEdivFb8RxLhMa/b/q
eXw9jaiFniyDTyM/67LIMkz+Myq1XF4FHuOwkw/ElkHscVJho8kaBFfvjPaT
WgaB2EKurQlrEFWy2yBNEa/nDajmNfkLhSkH3rCOLuPvc+yJkfR/MON3XCzs
zjIcKtuyiE6u02tMMdOw9V6GuTsH5eN2sOv9D3K+Pzo=
              "]]},
            Annotation[#, "Charting`Private`Tag$9047#1"]& ], 
           TagBox[
            {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
             Opacity[1.], LineBox[CompressedData["
1:eJw12Hk0VV/YB3CzUuYoGRJRJFMioge/aDCEUjKkVMqQJCmlDEnRQGYyk9lF
rsy2MTMZIlOSSIZ7TOne67r3Pe9a7/vXWZ911jrrOXt/n733OXsd7ljcYGFi
YjrHzMT0v1dFEJ5jMBiow+CHxIX6cLhDkX5JoTIQhIcTVr6FQ1GJiuzqXwZ6
evfpsZylcFA9YOIwM89Airetcq9LRoAGf+BI5xAD9Y3cc93pHwG6U8vtcYUM
NDf9QdX/ZCRYvOjKO2zPQMT9fhI8f6IgQm/09CFrBgqNGw3dxRYNAxuzv2Ut
GWiQ5syquycaLriz7dttxEDfftlYzlhGg82lYwlMGgw0nrdxPaIpGq4fzHnd
xcNAv52srj3PioEHPYG3b9bSEZb4UfJJYBy8nvcaWiunIym/jiurH+IgjdNJ
L6CEjpwKaS9CW+KgE0yEErPp6MLGjKDWtniQKhKq6QunI+nWoAmbyHjoDsvc
fvwmHTUry7stFbwHWYvWvB18dOQQP21swUgEbbdKoTQuOmr3VECtMklgHpLv
q8ROR3Prp32cjJPApyHs3BnqJjo6z3lLPj4J+lQvbfj+2kR/Ew4zETSS4Yng
3Jn58k1UZP1gj5tOCgwMbJurv7qJPvCqW7q+SwX/66W1ebabKEU3pInyIRUU
1y5HRF3cRMe3FOa8r0yFl4IftZ1MNpEIT4Gg+K9U0LGwCuXT3ES7r78W3XU0
DTJ7MtTs+TaRPm93KW0qDR626/jSammoryCBCzPKAPG6Ozs0xGho1/BkGdOV
LOgUOOKptZOGytxq5z94Z8GjG9R+HQEa0lP6UeAQkQWDXM8jTmyhIUbIITHp
liwIs4wXsFjbQEeIRrb1StnAOt/Ed7tzA9Gc35n5s+fAH6Hd3Ok+Gyg+OWLi
aWMulLo0sfOOU1G77JvD5NcEOCrpppI5REV5bONBZYUEqBzYaafTR0Uzb4PP
xfQRoE7HhejSQkVPThXkl+8qhHZegWutxVQ0P3kpOzCzEH6U2Nf5B1HR0Kot
t/z1IuCiUR+tKVFRutnUWHF4MVx5rbI0HEBBVVWl5Yv7iPCIGB7U9YSCFjDB
Vi1NIkSNrYrVP6Sg18CiH2tChHaFT6ez3ShoLFEhJtCLCIe7tNK9rCnIifGp
WLqNCBw8Jy4IqlKQhkICNeBuKeSHXqg2niSjT2+URZh6PgE5/PFLBGTkGhfq
iWor4LdY/ZyhFhml/hHw9R6ugMFMDpNuNTKK+FisfnqtAkoq3/GPy5GR7p7Z
ATn5SnD7mRVPFSSjF8fyJpeiK2FKZSD/yOw/pCnO6E7yrILuLwq9eWH/kJtn
zs0a3RpI5/kuEju5jmSLg+Q5Qusg3AY4NcfWESd2QGklqQ4CslPWhgfX0Unj
63V/CHXgoH+tR7RzHYV/kY/d6K4DKa/ZwORP66jhOuFlLm89pI2vYJmv1pGD
iUvN0Yh6SMnn/Fx6ZB1JyO3gVk5vgIQzKh79wX9RtPl3i5O/myDA9epDudNr
SO1OrLtPZhs8Zs194LG4gpbG1YSVonrgql/PvsHsZdRppC/cstgHUTXTsQnO
S4jd+jRrpeUgVE4c2J4vRUIVLjLMVnYjIM2nq38+aR6tkOPMuh2+w0f5l84/
p2bRYwd9cPeehInmYkl19Rkk1urGv944BdMKUaro0xSaCPbUGfo1DfxPc9QV
mSdRfNBPvlzJWVBQxxQ+rI4hmQNgyRCcg2cnFr9UPBxCS8xyFG7KPDScWjir
dm0I3XtXsbLMmAcmk/lugskQ8gmVPdXLsQA+ln8606WGkNpA7F//HQvg5Tjd
+qZzEFnudfmVq7QAt16O112VHEQfuO1u7LyxAMadXUVbWwfQiFrZ1uOdCxDy
pVMp8OMAat9X5va8bwFaBzoI9IQBZDS9Nb/l2wIYjLflr94dQCZiY8na0wtw
nNScPS46gDiq1em/NxdAma82pfhOP6Jt7VLUU1wEofOEsEs7+1Beb1PVz5BF
+Cj7qtKAtQ9Z1r1KFA9bBDPKzV8qWC9ib/gYdy5qEUKS9h7laulFMbqPvhYl
LwJ9NnKi0qsXTanPbFUmLsLMk8eKYoNfUAr8mj4+tghuZ9/F1sj1IBEt9vmQ
AyTIXjuzEMXcg6j3otOkD5HgZxybrttwN7o+yi9WpkKCC78e/JYI7kYWHxzP
dGuRALwvq/vNdqGbb32Ma4xJwJd+cEA/qxPJxrAUvr9Dgo/rzbyt+9pRsYHY
51PFJHibm9ZwnNKGJndoqweXksDlsu/90q42xMeitrexggT7Ph8dTfNqQ3+t
DW2lG0gQHZWX+aS1FdmgHbui+kjwSO2dzmHXFmSzIqJzbAWvZ/b2Uo5uCxI9
4cUtsE6Cwwln0iWFWtB6PVXhJ4UEC6xsW3lqPyPhOJmzbswYXO73Gpjl/YyO
P4j5doQPA30PW5ekkibEXLnS56uAgYSspoTQyya01lx2a04Jg41hod5Xtk0I
OZ2UNT2MAVGvR92bvQlFlYTwMmthIMuvz3L+YiPaT9qw3nESA66i/XFbN+rR
+X9Gv0n2GHwYnX7zJ7AWXbWpsLzxGoMRH+HkxMO1yOCObFPzWwx4JE4Wmf+s
QZPDPiyS7zDwupLdVwE1yHuXwZ/6KAwMp513hlCr0LJl3tGqJAxmSViKvHsF
cqcIfwooxEAsTPLjdwnc28b8fYsxMFMxbwzvKkc/Uoq3eJVgUH7v4zRVvhw9
9xnWNyvDIJjsKd8x/Qnx91JPVdRiIM9CLXGxISJ6ckOWbSc+PunyzXu4iKjs
qFjyWhcG4SdsBvvLS9Ca/Q3doB4MqEHV5GPCJciPzPwkug+Djm2+Ott7i1GD
2EiT8zcMmAoKTet8ixH14baVnmEM1Ex/2HsqFiP+KxwNiqMYJITpBYy9KkJ5
0jwnh8cx+Ca/5e2lNwR0pFO5Z/InBrq3nYrq5wrQYzF7muAvDLIL2/vkThWg
l/wyn2EaA2+1NzupLPmopzVLIfA3BruPC6TGP8xBwV0E1bp5DAL87jWyDGYj
j/YPKviiD/MNA9POh7PRGVVyS9kiBtUnY+SPkTJRzxXr8igMAztzMeLotQzk
5RYfy7aKwcLqX837TenofUmPRSdun+gexCOTjmqzhH68WcPrHw3o0JtJRczX
hDzofzFQeGprPmqYirRZKPcL1jGoklQf8sxKQY+Z9Ywu/MPz0tHXfLY3CT3U
974VRcZggC+oNyA8ETnyFBUepGCwaqk5XnouATmf/fa5Crfqj+Q10cE4tL+l
+FobFQNzmXNMZ2Nikb3B51nDDQzcnTm2B1jFoP9aw7VrcReuuUrPjkSiV1S9
s/E0DLo1JZVEEyKQVnkGNwM36Wm/lqldOMqKQXF2mxhwNwUZ+ku8Q7tSbFZL
cVsJeGbcQqFoxMNg9xY6BjEJI1Xdem/QfSMTnvO4B2X1+tWaQtA4w7AnDveO
4qy5eMOXKJaJy24Y97ljPCzMbc/RrNXdMgEGnpdmT5GbRs/QIsHmuwHuL2dH
lbu6/FDHf3m9HrgliM/CHFN8UM2qwbs43O9bzZDqhwfoqLqQeCXuXePiJHqO
B6KKc9wfwH1w6qtmtJ0L2ntpa9wsbtnt7jGKN68idRXB4HXcfgMHBkQbTZD2
K1EDOm4F3nFn9kNqUPpbvIuBe3A5IJmPbAXZDiJ7N3Avnd2/csfDEVJK+PSW
cD+OMGx3UXOH/ENchyZw0596v09Wug9WiHe65X+f75zv2i//CFJXFJ1ycbNe
mNDhlPWFhYWHFUG4GyWDXyTyBcCyG8ugLe7AaCl3jbeBkDswVauA23B7tVXv
thegJaTpuY6PF2eApZ5LcDB8bdi7XoG79R9Jjp3zNcRz1Z94gDvk9kuB5MC3
+LlF54oi7szlsCdi/mGwTbrh1AQ+Xzdvyjt+oocDaSzRXxH3KakH1s90IuHw
sk1fJz7fB8YbTc18oqDABlu6jnvOwk5jjhIDQVdfxQbgeWnnzj1YdjQO/CN2
Sm3Bnde6vifwQTy4nvJ79ALPm+vxsC0SfxNAkCoUdw/PowlljDZ3OAkkzk3Z
/8Dzq0iUWy7zSAbR313rhrjJkZMLB8gpcG7TIZoZz3sF1+OvDffT4cxbpSwF
vF9SDgn1F0plgL+MI9NFvJ+CzAq/JPRkQLWOudCjFQzOR091eMllgjB/pmfu
Ej4/e40b5Mez4ccTTlEi3r9DJ2bQzpAcoCX4XMvA+7v2pl8Nm0YuZCr8cX0z
h8GrAmL597A8yCBnNZ+exfOhKV4YfoIAXuUdGS5TGGy3Lcv3XcbPnfCHSwpf
X1afmue6JhWC9IrP0d4fGFz52WAh7VMEirHpiyLf8fc78M9k82sx5JmcHjmP
r2dtJfYnioOJIKX+LfluBwbazQqN+38QYWfZwCqxDYOiQYpeknopKAUs7Vlu
wSCaEgGvpkqhUNWa/XwTBtehVeuGThl8fd+7v6kaA0a7sorIcgU0iC0tm+Zj
4DG2WRh6shJEpIkOkrkYzCy2K3IkVYKpsFD9XBYGnXw3FFbPVMElNqKxczoG
8Rfi9ndlVIPbyfj2HfEYHPnJLOFvhcA+bmf7riC8/sqLy8o5CNIiHo5nPsPH
I7yg6QcFgRIr04SiPwbbUvOPpJjUgTDbpY8KPhjQzKzGGKQ62PF0sHHiLgbj
RYVySKUB6qaezO2zxSDZ/XKTTlkTVPvO16rj+2OC7VZC1EQTjOx0zGeXwyD2
FDFmkbMZPFmMarplMAiT5HJJtGoGP77vZmf34P3zpZR/k9IMN2ayPbkEMLiq
zG1frd0CDYee33DG92vppSqKVkMbRGZ0nZmoJIFP13+Ba4ttcGdm9GbaJxIM
5nbwEETa4Uvfi6XLH0kQcmNUeu/ddtC8dcmsKYcESyNUE07JDihrVU3QjSVB
bbNmWv+TTuhI6mRj8SSB9fuyM66aPdDlg5FqZElwOn24y9SqD7g1Yl5/9V6E
pecEx+bbfZAtdJXrgOcixN56xjj2rA+G9tox33dbhNlDh1TkCH1QdtXLie6w
CC/L/SJZ2fqB/XPyyx6jRWjt2m9TXtgPw095dN3EFuEk+f7sXs6vUCJ0XLC8
Aj/vmQiw/i0dAqwKsVpPz0Oo/ZCfctkYaC8cEjomPwctpuLcZgKTMPB76d2C
wCws7hV62hc/BQXhq0/saNNw3/Pg1VDhGcis6jskMjEFQ2N8Fo6ts6DG+4+9
M2wSrnhr/+Y0nofgMcqs4Nx3aDyoEdLIToLFC2lBJ0JGQHZr9WzGqSVw4ujo
vF82COLVLgbsL5fBqt9JeeG/fmCisuR4/FyBVKNb/2W39sA/85rLzTJrcEub
XequRjuMqtmLygT+BW+oLD+90QTuF/n4pcbW4dMfbyv1ZPz7IlspXmZyHaxd
tkteCqsDS4qptNzMOnjfDl977l8HWu/fHFFeWgfRucqyzWt1wD7BZX2c7R8E
pKYa35Crg3hH9nRrhX/wrtO0SNoVQdN9qlqEzz84012tEV5QAyKRv6zYxMlg
9+0zY9ipEo4+2yPsKUUGL57ixCHTSrjgYd0/tZ8MXSq7uuYOV0K42ReTRlUy
iOkWVpjTK2A7d7V+wCkyZB2Wr5SMrAD68wgFJk8y6D9gba9sLIdfD/SZaO1k
iBi90R6nWgYEm5Ss1YcU2AW+/J3GRFAbkqZyPKVAoNzHW+eOEqHKIst49zMK
LItLX5yXJkLracKy7hsKMHm8HTLeKIEpjepjb1MpICC/4PU1twR27fjWc6Cd
AlkdfYS/20sgoJOXbCdKhT8LKp+PjBfDRR3fU601VPDoSBdOvVgIY39neBsa
qMCi6GW3W6MQHAimQ1UtVDCrVXYoFC4E1z0SjoW9VBh9o3xdYZAAAcw1z6Kn
qSC4YRrgfoEAhGZq7XXuDXgsqj0nYFsAbKZeR5jtNmBLAF+76eM8COH4TqNe
3YBV938WkpfzgBcZNK05boAJzIVv08uD3cpC52bdN+AIMeyfImceKAkQ3XsC
N+C9HuFdVmQuWA8u5yXmb4Av9oJhTsyB4su3pbRoG5AzjDFEObLBoXRJPIWZ
BhK7byr1/MmCHds9RTg4aeDo9+N0UlcWeFU84uvjp8E9kXtYaFQWaO14SXfa
T4MYCcuOWtksaGhLG4mzoMGSteopTdNMGFD7Fk7JpoGo9qVHwsUZ8PyVzVt7
Ag06uWIeSsZmgPrP78HNJTSQyYyc/c83A2JDp/3e1dLgTsa+L4MmGWA3t+Im
N0CDkj2nk+UX0mEmmdvoEoMGSpb/7L0PpQOZ6z/WCstNyGtWHTzUkAoCJJ7I
ButN8PxlEFxWkAoHe0f2ddpvQv25TQvLuFS4HONhOOG0CbuzKYud7qnQKJ0W
zP50E8bTGhJyJVPhrTYzn0XmJsykDjcJBKaAjBsSm1/fBMtPiSZ2H5PguPmr
grWNTSh9xlem/TYJrNQuHqcz0eGsUkmirnMShFBJ9vzb6GD3PeVOqVQSLAVJ
pGvsoUNDxWM2s6hEqE5+Ihd4kg6Pc/q4lf0TwKL3mLp4LB1uO/3kG/KIB65j
2+qrE+nwii5uY382HuozRoxs0+lw9NXuWj6FeFB+6H31PYEOn2ScNEjTccCz
p+y1SDMdNOsvjobaxEGbq+qU0AodKG1fjExMY0F3i1wYjzEDXH55KBSZRQP5
Lnk3wZwBXsSTVEHVaCgcbflgcpEBX4dZzBMEo0Gi0LHqtQMDyh2J23cPRQHN
MmOGyxu/v+I812wfBWXpe3Q4MxmQdj5nqe5BJLhxYy2ZeQxovqvMamcTCbIP
ai0Mixnwp/G+lyhEQuQZu1vPqxnw9KEUmc4RCR7L8RGs/QwwNhGsso2NAHkb
Z4n0bwy4uJtNdsuTCJhs0szR/47Xm0KcHrgaAWax32r9/zDAxGz5e+/BCNjC
kn16L8YAfYr/IDN/BCCXBwN1awz4bTeaZLEeDl5fDe2vUBmgwqW+s2k0HP7v
/yj8///R/wGDTTj2
              "]]},
            Annotation[#, "Charting`Private`Tag$9047#2"]& ]}, {}}},
        AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
        Axes->{True, True},
        AxesLabel->{None, None},
        AxesOrigin->{0, 0},
        DisplayFunction->Identity,
        Frame->{{False, False}, {False, False}},
        FrameLabel->{{None, None}, {None, None}},
        FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
        GridLines->{None, None},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
          "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), "CopiedValueFunction" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& )}},
        PlotLabel->FormBox[
          StyleBox[
          "\"\\!\\(\\*StyleBox[\\\"Enough\\\",FontSize->12,FontWeight->\\\"\
Regular\\\"]\\)\\!\\(\\*StyleBox[\\\" \
\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\"data\\\
\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\" \
\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\"\
\[IndentingNewLine]\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*\
StyleBox[\\\"Suitable\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\\
*StyleBox[\\\" \
\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\\!\\(\\*StyleBox[\\\"\
complexity\\\",FontSize->12,FontWeight->\\\"Regular\\\"]\\)\"", 7, 
           StripOnInput -> False], TraditionalForm],
        PlotRange->{{-1.289830703834119, 1.2786622408856676`}, {
          0, 1.133492262531731}},
        PlotRangeClipping->True,
        PlotRangePadding->{{
           Scaled[0.02], 
           Scaled[0.02]}, {
           Scaled[0.02], 
           Scaled[0.05]}},
        Ticks->{Automatic, Automatic}],
       DynamicModuleValues:>{}],
      TraditionalForm], {1260.8481876519838, -138.075}, {
     Center, Center}, {360., 263.}]}, 
   StyleBox[{{}, {LineBox[{{0, 0}, {0, -276.15}}], 
      LineBox[{{293.5188330888072, 0}, {293.5188330888072, -276.15}}], 
      LineBox[{{680.4505749140778, 0}, {680.4505749140778, -276.15}}], 
      LineBox[{{1067.3823167393484`, 0}, {1067.3823167393484`, -276.15}}], 
      LineBox[{{1454.3140585646192`, 0}, {1454.3140585646192`, -276.15}}], 
      LineBox[{{0, 0}, {293.5188330888072, 0}}], 
      LineBox[{{293.5188330888072, 0}, {680.4505749140778, 0}}], 
      LineBox[{{680.4505749140778, 0}, {1067.3823167393484`, 0}}], 
      LineBox[{{1067.3823167393484`, 0}, {1454.3140585646192`, 0}}], 
      LineBox[{{0, -276.15}, {293.5188330888072, -276.15}}], 
      LineBox[{{293.5188330888072, -276.15}, {680.4505749140778, -276.15}}], 
      LineBox[{{680.4505749140778, -276.15}, {1067.3823167393484`, -276.15}}],
       LineBox[{{1067.3823167393484`, -276.15}, {
       1454.3140585646192`, -276.15}}]}},
    Antialiasing->False]},
  ImageSize->625,
  PlotRange->{{0, 1454.3140585646192`}, {-276.15, 0}},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.778115041949109*^9, 3.7781150777038517`*^9}, 
   3.7781151330018*^9, 3.778115394608829*^9, 3.778115581316794*^9, 
   3.7781156412545633`*^9, 3.8096124377953453`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"09c58a6c-a521-4c4d-9bbd-2e433b19eae9"]
}, {2}]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\[NonBreakingSpace]", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"Data", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "N"}], "]"}], "]"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{"Fit", "[", " ", 
            RowBox[{
             RowBox[{"Data", "[", 
              RowBox[{"[", 
               RowBox[{"1", ";;", "N"}], "]"}], "]"}], ",", " ", 
             RowBox[{"Table", "[", " ", 
              RowBox[{
               SuperscriptBox["x", "n"], ",", " ", 
               RowBox[{"{", 
                RowBox[{"n", ",", "0", ",", "M"}], "}"}]}], "]"}], ",", "x"}],
             "]"}], "]"}], ",", 
          RowBox[{"Exp", "[", 
           RowBox[{"-", 
            SuperscriptBox["x", "2"]}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"M", ",", "0", ",", "\"\<Complexity\>\""}], "}"}], ",", "0", 
      ",", "100", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"N", ",", "10", ",", "\"\<Size of data\>\""}], "}"}], ",", 
      "10", ",", "1000", ",", "1"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "run", " ", "this", " ", "twice", " ", "after", " ", "you", " ", "have", 
    " ", "created", " ", "the", " ", "Data"}], " ", "*)"}]}]], "Input",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.777883426514338*^9, {3.777886394244686*^9, 3.777886470211755*^9}, {
   3.777886529484824*^9, 3.7778865296116962`*^9}, 3.7780292856719427`*^9, {
   3.809670013346731*^9, 3.809670034053067*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"758740b5-3c75-481e-9744-8ea9001a6b21"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`M$$ = 0, N$$ = 10, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`M$$], 0, "Complexity"}, 0, 100, 1}, {{
       Hold[N$$], 10, "Size of data"}, 10, 1000, 1}}, Typeset`size$$ = {
    1000., {304., 315.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`M$$ = 0, N$$ = 10}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ListPlot[
         Part[$CellContext`Data, 
          Span[1, N$$]], PlotStyle -> Red], 
        Plot[{
          Evaluate[
           Fit[
            Part[$CellContext`Data, 
             Span[1, N$$]], 
            
            Table[$CellContext`x^$CellContext`n, {$CellContext`n, 
              0, $CellContext`M$$}], $CellContext`x]], 
          Exp[-$CellContext`x^2]}, {$CellContext`x, -2, 2}], ImageSize -> 
        500], "Specifications" :> {{{$CellContext`M$$, 0, "Complexity"}, 0, 
         100, 1}, {{N$$, 10, "Size of data"}, 10, 1000, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{1084., {397., 408.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.777883437430146*^9, 3.7778834546594543`*^9}, 
   3.777886472630032*^9, 3.7780292902269*^9, {3.778114768731299*^9, 
   3.778114797760992*^9}, {3.7781624321908092`*^9, 3.7781624388580437`*^9}, {
   3.809612227444916*^9, 3.809612242844392*^9}, 3.809654885239345*^9, 
   3.809654939494364*^9, {3.80966552255809*^9, 3.809665527037719*^9}, {
   3.809670000365057*^9, 3.809670002623723*^9}},
 CellLabel->"Out[4]=",ExpressionUUID->"9da1e646-8eaf-48f0-af87-124d656aafe5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.746716812081379*^9, 3.746716813766405*^9}, 
   3.7467169359073753`*^9},ExpressionUUID->"ab78848d-e80a-4dfd-8b3a-\
9ce6018ee255"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`M$$ = 34, N$$ = 10, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`M$$], 0, "Complexity"}, 0, 100, 1}, {{
       Hold[N$$], 10, "Size of data"}, 10, 1000, 1}}, Typeset`size$$ = {
    500., {153., 157.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`M$94490$$ = 0, N$94491$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`M$$ = 0, N$$ = 10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`M$$, $CellContext`M$94490$$, 0], 
        Hold[N$$, N$94491$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ListPlot[
         Part[$CellContext`Data, 
          Span[1, N$$]], PlotStyle -> Red], 
        Plot[{
          Evaluate[
           Fit[
            Part[$CellContext`Data, 
             Span[1, N$$]], 
            
            Table[$CellContext`x^$CellContext`n, {$CellContext`n, 
              0, $CellContext`M$$}], $CellContext`x]], 
          Exp[-$CellContext`x^2]}, {$CellContext`x, -2, 2}], ImageSize -> 
        500], "Specifications" :> {{{$CellContext`M$$, 0, "Complexity"}, 0, 
         100, 1}, {{N$$, 10, "Size of data"}, 10, 1000, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{545., {212., 218.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.746717345207171*^9, 3.7467174078794527`*^9, 3.746717502227111*^9, 
   3.746717645151558*^9, 3.746756308462802*^9, {3.7468322207333183`*^9, 
   3.746832222002881*^9}},
 CellLabel->"Out[29]=",ExpressionUUID->"006a15ae-24ae-4d58-bdf0-6eef002c5566"]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"52786686-cffc-4e9a-8fea-6d359540b1bc"],

Cell["3.2 About data:", "Section",
 CellChangeTimes->{{3.710778725124434*^9, 3.710778725761334*^9}, {
  3.744010544402543*^9, 3.744010546712739*^9}, {3.744711185213903*^9, 
  3.744711190114337*^9}, {3.745480060458344*^9, 3.745480069837872*^9}, {
  3.7455884637110786`*^9, 3.745588467627348*^9}, {3.7455898422682858`*^9, 
  3.745589855952086*^9}, {3.74608908358895*^9, 3.746089088403034*^9}, {
  3.7466919676153812`*^9, 3.746691973387109*^9}, {3.746718018338912*^9, 
  3.746718018430437*^9}},ExpressionUUID->"071815d2-0777-4be8-97e8-\
ee74caeeaf85"],

Cell[CellGroupData[{

Cell["The data x is always a sample of the \[OpenCurlyDoubleQuote]true\
\[CloseCurlyDoubleQuote] distribution.", "Subsubtitle",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQ7c/yVU3p6WvHOVOfa4DogvgLOiC6PlZQF0R7PA50
qXj22lFR0M8HRLetSN34/vlrRweXEjD95pDZBRAtMN33Bli8Se0OiFYI03oA
ohena38C0RJHNb6B6BAtuV+qL1476ps0MqgB6b1BatvUgXTvthdgepp+0D4Q
zZp77wCIdnjervAVSJsxhSiBaLVPDALfgfQNCx0wva4hMwpEK2y1jgHR7957
sP4E0k0LrDlBtNq2Bj0QPSvguz6I/vNzjS2IfhNXbQ+i//2tdwbRE6b/8ADR
S2oVOkD0DZbqThB9JSTpzB8g7fh0OpgGAG24shI=
  "],ExpressionUUID->"425e050b-1e32-4a61-9e2b-edadc549d09a"],

Cell[CellGroupData[{

Cell[TextData[{
 " The data that is available ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["x", "1"], ",", " ", 
       RowBox[{
        SubscriptBox["x", "2"], ".", " ", "\[Ellipsis]"}], ",", " ", 
       SubscriptBox["x", "n"]}], "}"}]}], " ", ",", " ", 
    RowBox[{
     SubscriptBox["x", "i"], "\[Element]", 
     FormBox["\[ScriptCapitalD]",
      TraditionalForm]}]}], TraditionalForm]],ExpressionUUID->
  "f2efa09a-51e2-4037-a7e6-b165301ba078"]
}], "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746023960317689*^9, 3.7460239612906103`*^9}, {3.7460244950506783`*^9, 
   3.7460245057296267`*^9}, {3.7460245533003597`*^9, 
   3.7460245850947027`*^9}, {3.7460255779167633`*^9, 3.746025579457438*^9}, {
   3.746031324570898*^9, 3.746031368885881*^9}, 3.809606301167549*^9, {
   3.809614282910507*^9, 
   3.809614319024333*^9}},ExpressionUUID->"2b442fd8-cc15-4fcb-b942-\
5a5e9e9c1221"],

Cell[CellGroupData[{

Cell[TextData[{
 "It has a probability   ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", 
    RowBox[{"(", "x", ")"}]}], "=", 
   RowBox[{
    RowBox[{"p", 
     RowBox[{"(", " ", 
      FormBox[
       RowBox[{
        SubscriptBox["x", "1"], ",", " ", 
        SubscriptBox["x", "2"], ",", " ", "\[Ellipsis]", ",", " ", 
        SubscriptBox["x", "n"]}],
       TraditionalForm], ")"}]}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Product]", 
      RowBox[{"i", "=", "1"}], "n"], 
     RowBox[{"p", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SubscriptBox["x", "i"], "|", 
         SubscriptBox["x", "1"]}], ",", 
        SubscriptBox["x", "2"], ",", "\[Ellipsis]", ",", 
        SubscriptBox["x", 
         RowBox[{"i", "-", "1"}]]}], ")"}], " ", " "}]}]}]}]],
  CellChangeTimes->{{3.74349898559413*^9, 3.7434990651265583`*^9}, {
   3.743499696198682*^9, 3.7434997526747293`*^9}},ExpressionUUID->
  "464f77aa-79fa-4e1b-aa6a-0d0f13c46b1c"]
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019715073242*^9}, {3.746019762107664*^9, 3.746019763594936*^9}, {
   3.7460245444737673`*^9, 3.7460245466390867`*^9}, {3.746024600654998*^9, 
   3.7460246262014914`*^9}, {3.7460247181496477`*^9, 3.74602471855729*^9}, {
   3.7460247567908783`*^9, 3.74602480066504*^9}, 3.809606306824697*^9, {
   3.809613008386613*^9, 3.8096130083872757`*^9}, {3.809613405226761*^9, 
   3.809613405227762*^9}},ExpressionUUID->"df62b697-d578-4a6b-9e4b-\
af34077d78ef"],

Cell[TextData[{
 "The ",
 StyleBox["training data",
  FontWeight->"Bold"],
 " set ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "train"], TraditionalForm]],ExpressionUUID->
  "d37c549d-da92-419e-94f8-2e3055f81926"],
 " is used for training "
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019715073242*^9}, {3.746019762107664*^9, 3.746019763594936*^9}, {
   3.7460245444737673`*^9, 3.7460245466390867`*^9}, {3.746024600654998*^9, 
   3.7460246262014914`*^9}, {3.7460247181496477`*^9, 3.74602471855729*^9}, {
   3.7460247567908783`*^9, 3.74602480066504*^9}, 3.809606306824697*^9, {
   3.809613008386613*^9, 3.8096130083872757`*^9}, {3.809613406318933*^9, 
   3.809613483669198*^9}, {3.8096145660982647`*^9, 
   3.809614566469035*^9}},ExpressionUUID->"5b251269-eddb-4212-958c-\
416473bec6cc"]
}, Open  ]],

Cell[TextData[{
 "During  training, you should have a validation data set to be able to pick \
the correct variation of the model that  performs best,  not on the training \
set but on the ",
 StyleBox["validation set",
  FontWeight->"Bold"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "validation"], "\[Subset]", "\[ScriptCapitalD]"}], 
   TraditionalForm]],ExpressionUUID->"1644d63d-98f7-479c-8938-54f1cfe8fb7e"],
 ".  Hence,  ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "train"], TraditionalForm]],ExpressionUUID->
  "0025b04f-1dd7-4e79-862b-86394e617ada"],
 " \[Intersection] ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "validation"], TraditionalForm]],ExpressionUUID->
  "1ad60d13-af4a-45c0-bcd7-5b47a9f0864a"],
 " = \[EmptySet]"
}], "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746023960317689*^9, 3.7460239612906103`*^9}, {3.7460244950506783`*^9, 
   3.7460245057296267`*^9}, {3.7460245533003597`*^9, 
   3.7460245850947027`*^9}, {3.7460255779167633`*^9, 3.746025579457438*^9}, {
   3.7460312120089283`*^9, 3.7460312995850782`*^9}, {3.746031378470646*^9, 
   3.746031436589209*^9}, {3.809612600410026*^9, 3.809612612545245*^9}, {
   3.809613003359552*^9, 3.809613096637721*^9}, {3.809613256623125*^9, 
   3.809613338409061*^9}, {3.809613519598672*^9, 3.809613615713314*^9}, {
   3.809614574481523*^9, 3.809614602076417*^9}, {3.809614643322402*^9, 
   3.8096146666522007`*^9}, {3.809614723954677*^9, 
   3.809614723954727*^9}},ExpressionUUID->"388fd3ed-5885-4cd1-af0d-\
cc8bd6cecaf9"],

Cell[TextData[{
 "When you use (deploy)  the machine learning solution, the data it \
encounters will be different. So, we have to estimate its effect by using a ",
 StyleBox["test set ",
  FontWeight->"Bold"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "test"], TraditionalForm]],ExpressionUUID->
  "f461ebec-a1ab-4361-b96f-f20d32859679"],
 "\[Subset] \[ScriptCapitalD] that is not used in the training  or in the \
validation. Hence, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "test"], TraditionalForm]],ExpressionUUID->
  "15068eb6-4271-4d1c-ad6f-5bda62f24f3c"],
 " \[Intersection]  (",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "validation"], TraditionalForm]],ExpressionUUID->
  "72cd84cf-b0b5-405c-acf0-7f2eb80ca304"],
 " \[Union] ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "test"], TraditionalForm]],ExpressionUUID->
  "052095c4-536f-402b-9e58-74fb6d39c947"],
 ") = \[EmptySet] . "
}], "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746023960317689*^9, 3.7460239612906103`*^9}, {3.7460244950506783`*^9, 
   3.7460245057296267`*^9}, {3.7460245533003597`*^9, 
   3.7460245850947027`*^9}, {3.7460255779167633`*^9, 3.746025579457438*^9}, {
   3.7460312120089283`*^9, 3.7460312995850782`*^9}, {3.746031378470646*^9, 
   3.746031436589209*^9}, {3.809612600410026*^9, 3.809612612545245*^9}, {
   3.809613003359552*^9, 3.80961302503297*^9}, {3.809613365427402*^9, 
   3.809613383403982*^9}, {3.809613644697747*^9, 3.809613645533513*^9}, {
   3.8096146280199957`*^9, 3.80961468772292*^9}, {3.8096147318349323`*^9, 
   3.809614733839082*^9}, {3.8096150669009457`*^9, 
   3.8096150782594557`*^9}},ExpressionUUID->"ff63f81d-d7b6-414b-801f-\
f2641c7599c1"],

Cell[TextData[{
 "A  ",
 StyleBox["hold-out set",
  FontWeight->"Bold"],
 " is the part of the data used for the final tests and hold out of the \
process to never accidentally mix it in the training of validation sets. "
}], "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019746888011*^9}, {3.7460197841932907`*^9, 3.746019789872891*^9}, {
   3.746019909511993*^9, 3.7460200469270887`*^9}, {3.746023073967935*^9, 
   3.74602307396842*^9}, {3.74602519664989*^9, 3.746025219768052*^9}, {
   3.746025638394988*^9, 3.746025644697824*^9}, {3.74602579913411*^9, 
   3.746025800617949*^9}, {3.7460260524728928`*^9, 3.746026069861245*^9}, {
   3.7781157386939363`*^9, 3.778115756302977*^9}, {3.809612628708631*^9, 
   3.8096126362009373`*^9}, {3.8096136565754633`*^9, 3.809613660352841*^9}, 
   3.809613918004805*^9, {3.809613970094391*^9, 3.809613989176453*^9}, {
   3.8096140256384697`*^9, 
   3.8096140922527227`*^9}},ExpressionUUID->"2aa06dcf-3a5c-489c-82c1-\
750f9ff744fd"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Cross validation",
  FontWeight->"Bold"],
 " splits the data repeatedly differently to validation and training sets. \
The test set or ",
 StyleBox["hold-out set ",
  FontWeight->"Bold"],
 "is for final check only and is never used in the splits."
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019746888011*^9}, {3.7460197841932907`*^9, 3.746019789872891*^9}, {
   3.746019909511993*^9, 3.7460200469270887`*^9}, {3.746025590759276*^9, 
   3.7460256323471317`*^9}, {3.746025683731926*^9, 3.746025686025272*^9}, 
   3.7460257887948627`*^9, {3.746027341572752*^9, 3.7460273470614767`*^9}, {
   3.746027511318075*^9, 3.7460275298782387`*^9}, {3.7460296918294983`*^9, 
   3.746029703922682*^9}, {3.746029969720874*^9, 3.746029994238224*^9}, 
   3.746031090758647*^9, {3.809614100391398*^9, 3.809614132167479*^9}, {
   3.8096147661959257`*^9, 3.809614801792796*^9}, {3.8096148561987257`*^9, 
   3.809614911878664*^9}},ExpressionUUID->"e4730cf8-3257-4576-acae-\
66c9cb1435d6"],

Cell["\<\
Time series data folding  and  5-fold cross validation for smaller data sets.\
\>", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019746888011*^9}, {3.7460197841932907`*^9, 3.746019789872891*^9}, {
   3.746019909511993*^9, 3.7460200469270887`*^9}, {3.746025590759276*^9, 
   3.7460256323471317`*^9}, {3.746025683731926*^9, 3.746025686025272*^9}, 
   3.7460257887948627`*^9, {3.746027341572752*^9, 3.7460273470614767`*^9}, {
   3.746027511318075*^9, 3.7460275298782387`*^9}, {3.7460296918294983`*^9, 
   3.746029703922682*^9}, {3.746029970984323*^9, 3.746029977657991*^9}, {
   3.746030735037202*^9, 3.746030735477594*^9}, {3.746030777695183*^9, 
   3.746030803945677*^9}, {3.746031082084703*^9, 3.746031100888483*^9}, {
   3.746032929824418*^9, 3.7460329636668863`*^9}, {3.809614965534664*^9, 
   3.8096150169766407`*^9}, 3.809615082977952*^9, {3.809615364592177*^9, 
   3.809615365650145*^9}},ExpressionUUID->"cdf45c27-ab59-409d-88d6-\
5b7fb7e75ef9"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  GraphicsBox[{InsetBox[
     StyleBox[Cell["Valid.",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "2dd2ccd0-5428-4f91-bf1b-5109e2e94b88"],
      Background->GrayLevel[1.]], {0.9620926476875837, 0.16337002840909265}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell["Valid.",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "ea88c890-3f75-435b-b954-ba1c4918b0f0"],
      Background->GrayLevel[1.]], {0.7577939869905843, 0.38967464448660016}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell["Valid.",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "f9ad03fe-ab8c-4a35-850e-d3ae8eb8b041"],
      Background->GrayLevel[1.]], {0.5156257783290746, 0.605204941425223}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell["Train",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "dd3f3c74-25b6-4527-89b2-f04ec08d8756"],
      Background->GrayLevel[1.]], {0.5074248342803039, 0.1633700284090922}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell["Train",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "89874582-8e65-47d7-b78f-8e2baab5814e"],
      Background->GrayLevel[1.]], {0.35426432291666754, 0.3868963068181832}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell["Train",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "458d62a2-9cac-4e93-8ce1-0c6e452a6495"],
      Background->GrayLevel[1.]], {0.2497366240530311, 0.6174183238636373}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell[TextData[StyleBox["\[ScriptCapitalD]ata",
       FontSize->24]],
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "828077bf-9c3f-4962-8394-9b85e0c669d2"],
      FontSize->34,
      Magnification->1.,
      Background->GrayLevel[1.]], {0.5892208573692964, 0.9486881445784736}, {
     Left, Baseline}, {0.097059674538797, 0.06811205230792769}, {{1., 0.}, {
     0., 1.}},
     Alignment->{Left, Top}], 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{RGBColor[0, 0, 1], Opacity[0.44]}], 
     RectangleBox[{0.10177118516842938, 0.9315085435512104}, \
{1.1233019848802135, 0.7529334331087844}]}, {
     {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
      FaceForm[{RGBColor[1, 1, 0], Opacity[0.44]}], 
      RectangleBox[{0.10218690814394073, 0.7031447244742364}, \
{0.47266824793695733, 0.5430239858378703}]}, 
     {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
      FaceForm[{RGBColor[1, 1, 0], Opacity[0.44]}], 
      RectangleBox[{0.1017711851684295, 0.4883048536902381}, \
{0.6575072701263664, 0.3281841150538689}]}, 
     {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
      FaceForm[{RGBColor[1, 1, 0], Opacity[0.44]}], 
      RectangleBox[{0.10094401041666831, 0.2534090909090976}, \
{0.8906124889910474, 0.09328835227272902}]}}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{GrayLevel[1], Opacity[0.44]}], 
     RectangleBox[{0.7025797208621685, 0.7045233642792526}, \
{1.1237177078557248, 0.5418102960974287}]}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{GrayLevel[1], Opacity[0.44]}], 
     RectangleBox[{0.890612488991045, 0.48891059230834477}, \
{1.1237177078557201, 0.32619752412651837}]}, InsetBox[
     GraphicsBox[{},
      ContentSelectable->True,
      ImageSize->{480, 360},
      PlotRange->{{0, 480/360}, {0, 1}}], 
     Scaled[{0.4996732417412477, 0.5003117922316344}], Center, 
     Scaled[{0.5, 0.5}]], {
     {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
      FaceForm[{RGBColor[0.999893, 1, 0.999847], Opacity[0.44]}], 
      RectangleBox[{1.1237177078557137, 0.9315085435512276}, \
{1.3009084558510184, 0.7529334331087846}]}, InsetBox[
      StyleBox[Cell["\<\
Test
\
\>",
        GeneratedCell->False,
        CellAutoOverwrite->False,
        CellBaseline->Baseline,
        TextAlignment->Left,ExpressionUUID->
        "9a6440db-8b2d-4378-a443-a035ffe9100f"],
       Background->GrayLevel[1.]], {1.1424733752390681, 0.8337069817915157}, {
      Left, Baseline}, {0.1396794132285957, 0.08173446276951443}, {{1., 0.}, {
      0., 1.}},
      Alignment->{Left, Top}]}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{RGBColor[1, 0.500008, 0], Opacity[0.44]}], 
     RectangleBox[{0.8906124889910447, 0.2534090909090979}, \
{1.1237177078557226, 0.09014756538332747}]}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{RGBColor[1, 0.500008, 0], Opacity[0.44]}], 
     RectangleBox[{0.47266824793695733, 0.7031447244742363}, \
{0.7057734668016351, 0.5398831989484654}]}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{RGBColor[1, 0.500008, 0], Opacity[0.44]}], 
     RectangleBox[{0.6575072701263671, 0.48987524713493913}, \
{0.890612488991045, 0.32661372160916824}]}, 
    StyleBox[InsetBox[Cell["Train and validate",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "e427fdbb-1212-4271-85d5-86e4c1ee018d"], \
{0.2751275623769157, 0.8285985778684208}, {
      Left, Baseline}, {0.7830382991738539, 0.10727648238498697}, {{1., 0.}, {
      0., 1.}},
      BoxID -> "Text8",
      Alignment->{Left, Top}],
     FontSize->34,
     Magnification->1.,
     Background->RGBColor[1., 1., 1., 0.03]], 
    InsetBox["", {0.9133333998490101, -0.020272315177879863}, {Left, Baseline},
     Alignment->{Left, Top}]},
   ContentSelectable->True,
   ImageMargins->0.,
   ImagePadding->{{0., 0.}, {0., 0.}},
   ImageSize->{261.00781249999983`, 197.},
   PlotRange->{{0., 1.3333333333333335`}, {0., 1.}},
   PlotRangePadding->Automatic], 
  GraphicsBox[{InsetBox[
     StyleBox[Cell["\[ScriptCapitalD]",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "8c206465-6214-4fbe-853f-ec26ec78170b"],
      Background->GrayLevel[
       1.]], {-0.011606389298001368, 0.8853673577791707}, {Left, Baseline},
     Alignment->{Left, Top}], {
     {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
      FaceForm[{RGBColor[1, 0.500008, 0], Opacity[0.44]}], 
      RectangleBox[{0.9416191027690965, 0.7930696592507576}, \
{1.121266069374581, 0.688303701695093}]}, 
     {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
      FaceForm[{RGBColor[1, 1, 0], Opacity[0.44]}], 
      RectangleBox[{0.23588788714751374, 0.9588229043076861}, \
{0.41553485375299637, 0.8540569467520208}]}, 
     {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
      FaceForm[{RGBColor[1, 0, 0], Opacity[0.44]}], 
      RectangleBox[{0.056131276770722535, 0.7930696592507582}, \
{0.2357782433762065, 0.6883037016950933}]}, 
     {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
      FaceForm[{RGBColor[0, 1, 0], Opacity[0.44]}], 
      RectangleBox[{0.23588788714751235, 0.7930696592507578}, \
{0.41553485375299615, 0.6883037016950933}]}, 
     {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
      FaceForm[{RGBColor[0, 0, 1], Opacity[0.44]}], 
      RectangleBox[{0.4156444975243036, 0.7930696592507585}, \
{0.5952914641297891, 0.6883037016950934}]}, {
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 0.500008, 0], Opacity[0.44]}], 
       RectangleBox[{0.05624092054202974, 0.6434879187656666}, \
{0.23588788714751377, 0.5387219612100016}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 1, 0], Opacity[0.44]}], 
       RectangleBox[{0.9357962547275558, 0.6434879187656661}, \
{1.11544322133304, 0.538721961210002}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 0, 0], Opacity[0.44]}], 
       RectangleBox[{0.2359975309188198, 0.6434879187656665}, \
{0.415644497524304, 0.5387219612100018}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[0, 1, 0], Opacity[0.44]}], 
       RectangleBox[{0.41564449752430427, 0.6434879187656659}, \
{0.5952914641297886, 0.5387219612100017}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[0, 0, 1], Opacity[0.44]}], 
       RectangleBox[{0.5913852141297828, 0.6434879187656665}, \
{0.7710321807352674, 0.5387219612100017}]}}, {
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 0.500008, 0], Opacity[0.44]}], 
       RectangleBox[{0.05624092054202971, 0.5091707923037099}, \
{0.23588788714751355, 0.4044048347480457}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 1, 0], Opacity[0.44]}], 
       RectangleBox[{0.23599753091881975, 0.5091707923037102}, \
{0.4156444975243033, 0.40440483474804567}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 0, 0], Opacity[0.44]}], 
       RectangleBox[{0.9357962547275549, 0.5000000000000002}, \
{1.11544322133304, 0.39523404244433674}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[0, 1, 0], Opacity[0.44]}], 
       RectangleBox[{0.4156444975243047, 0.5091707923037098}, \
{0.5952914641297893, 0.40440483474804556}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[0, 0, 1], Opacity[0.44]}], 
       RectangleBox[{0.5913852141297831, 0.50917079230371}, \
{0.7710321807352671, 0.40440483474804556}]}}, {
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 0.500008, 0], Opacity[0.44]}], 
       RectangleBox[{0.05624092054202964, 0.3707692120072245}, \
{0.23588788714751344, 0.26600325445155987}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 1, 0], Opacity[0.44]}], 
       RectangleBox[{0.23599753091881964, 0.3707692120072245}, \
{0.41564449752430355, 0.26600325445155987}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 0, 0], Opacity[0.44]}], 
       RectangleBox[{0.41564449752430493, 0.3707692120072247}, \
{0.5952914641297893, 0.2660032544515599}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[0, 1, 0], Opacity[0.44]}], 
       RectangleBox[{0.9357962547275558, 0.370769212007224}, \
{1.11544322133304, 0.2660032544515598}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[0, 0, 1], Opacity[0.44]}], 
       RectangleBox[{0.5913852141297826, 0.3707692120072249}, \
{0.7710321807352656, 0.26600325445156}]}}}, InsetBox[
     StyleBox[Cell["Validation.",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "00aaa7ab-dbf6-4f22-b763-c58f821ee73a"],
      Background->GrayLevel[1.]], {0.8623167832222487, 0.03193612774451092}, {
     Left, Baseline}, {0.30233785888935616, 0.08982035928143711}, {{1., 0.}, {
     0., 1.}},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell["Train",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "12dbb4c9-9562-465c-885b-dbe4048e08c8"],
      Background->GrayLevel[
       1.]], {0.32582101422156223, 0.052033896403810564}, {Left, Baseline},
     Alignment->{Left, Top}], {{
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 0.500008, 0], Opacity[0.44]}], 
       RectangleBox[{0.05624092054202984, 0.22266811743252957}, \
{0.23588788714751363, 0.11790215987686473}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 1, 0], Opacity[0.44]}], 
       RectangleBox[{0.2359975309188201, 0.22266811743252957}, \
{0.4156444975243039, 0.11790215987686473}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
       FaceForm[{RGBColor[1, 0, 0], Opacity[0.44]}], 
       RectangleBox[{0.4156444975243056, 0.22266811743252968}, \
{0.5952914641297897, 0.11790215987686473}]}}, 
     {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
      FaceForm[{RGBColor[0, 0, 1], Opacity[0.44]}], 
      RectangleBox[{0.935796254727556, 0.22266811743252923}, \
{1.1154432213330379, 0.11790215987686427}]}}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{RGBColor[0, 1, 0], Opacity[0.44]}], 
     RectangleBox[{0.5913852141297835, 0.2226681174325295}, \
{0.7710321807352667, 0.11790215987686481}]}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{RGBColor[1, 1, 0], Opacity[0.44]}], 
     RectangleBox[{0.5913852141297815, 0.793069659250758}, \
{0.7710321807352665, 0.6883037016950934}]}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{RGBColor[1, 0, 0], Opacity[0.44]}], 
     RectangleBox[{0.415644497524304, 0.9560418784731703}, \
{0.5913852141297834, 0.8543868864863675}]}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{RGBColor[0, 1, 0], Opacity[0.44]}], 
     RectangleBox[{0.5941390708775914, 0.9577026194911349}, \
{0.7737860374830735, 0.8529366619354704}]}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{RGBColor[1, 0.500008, 0], Opacity[0.44]}], 
     RectangleBox[{0.055287087344657704, 0.9569307257785598}, \
{0.23493405395014016, 0.8521647682228946}]}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{RGBColor[0, 0, 1], Opacity[0.44]}], 
     RectangleBox[{0.7724932999195081, 0.9587084203893386}, \
{0.9521402665249885, 0.8539424628336733}]}, 
    {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.61], AbsoluteThickness[1]}], 
     FaceForm[{RGBColor[0.999893, 1, 0.999847], Opacity[0.44]}], 
     RectangleBox[{0.9566835413744317, 0.9587084203893379}, \
{1.1363305079799118, 0.8539424628336728}]}, InsetBox[
     StyleBox[Cell["Test",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "47691eab-198d-4622-ae39-b7d158af49da"],
      Background->GrayLevel[1.]], {0.9775708280213029, 0.8854818416975179}, {
     Left, Baseline}, {0.13787239331173726, 0.07385229540918163}, {{1., 0.}, {
     0., 1.}},
     Alignment->{Left, Top}]},
   ContentSelectable->True,
   ImageMargins->0.,
   ImagePadding->{{0., 0.}, {0., 0.}},
   ImageSize->{228.30338541666669`, 167.},
   PlotRange->{{0., 1.3333333333333335`}, {0., 1.}},
   PlotRangePadding->Automatic]}]], "Input",
 CellChangeTimes->{
  3.746027404808589*^9, 3.746027477154366*^9, {3.746027553554331*^9, 
   3.746027630349869*^9}, {3.746027670212302*^9, 3.746027745223996*^9}, {
   3.7460278354692802`*^9, 3.746027848183466*^9}, {3.746027880537065*^9, 
   3.74602793450012*^9}, {3.746028274406999*^9, 3.746028520971414*^9}, {
   3.746029664624015*^9, 3.746029674958056*^9}, {3.746029765709673*^9, 
   3.746029770974647*^9}, {3.7460298012230463`*^9, 3.7460298583267803`*^9}, {
   3.746029901400753*^9, 3.746029907073186*^9}, {3.746030012943802*^9, 
   3.746030055093562*^9}, {3.7460300945660353`*^9, 3.746030127208591*^9}, {
   3.7460301979962397`*^9, 3.746030259851568*^9}, {3.746030348778378*^9, 
   3.746030704994116*^9}, {3.746030864426841*^9, 3.746031075152944*^9}, {
   3.77811577167727*^9, 3.77811593511557*^9}, 3.778116589511022*^9, {
   3.7781166196697702`*^9, 3.7781166914462833`*^9}, {3.809614941477641*^9, 
   3.809614948331414*^9}, {3.809615034987192*^9, 3.809615054766707*^9}, {
   3.809615092925398*^9, 3.809615236313485*^9}, {3.809615285670052*^9, 
   3.809615291799198*^9}, {3.809615334988896*^9, 3.8096153586063147`*^9}, {
   3.809615418711337*^9, 3.8096158967662973`*^9}, {3.809615938994179*^9, 
   3.809616083785583*^9}, {3.809616189372916*^9, 3.8096162087215147`*^9}, {
   3.809616238906033*^9, 3.809616368509609*^9}, {3.809616405822977*^9, 
   3.809616726701853*^9}, {3.8096167855598373`*^9, 3.809616817294619*^9}, {
   3.809655530824999*^9, 
   3.809655533537966*^9}},ExpressionUUID->"ecce9c3b-ae85-4a42-976b-\
e374aee17747"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"138c1b88-76d3-4a2c-a1f6-e37f42ba931d"],

Cell[CellGroupData[{

Cell["\<\
When your test set is not representable of the real deployment.\
\>", "Subsection",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
  3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
  3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
  3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
  3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
  3.7460154922469788`*^9, 3.74601550662527*^9}, {3.746019456029559*^9, 
  3.746019457381939*^9}, {3.746020051296958*^9, 3.74602006586586*^9}, {
  3.746032017812578*^9, 3.746032057894331*^9}, {3.746073464828013*^9, 
  3.7460734935200872`*^9}},ExpressionUUID->"09f5a281-b057-452f-82e4-\
890e9e41ad04"],

Cell[CellGroupData[{

Cell[" Leakage ", "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032063622154*^9}, {3.746032473812477*^9, 
   3.746032484057548*^9}},ExpressionUUID->"bd351922-a104-4a9a-8cd0-\
e082edf4804c"],

Cell[CellGroupData[{

Cell["\<\
Having buildings in dog images and nature in wolf images when training\
\>", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032063622154*^9}, {3.746032473812477*^9, 
   3.746032509845727*^9}, {3.746032993721566*^9, 3.746033071444474*^9}, {
   3.746033102799184*^9, 
   3.746033116373809*^9}},ExpressionUUID->"178c79b2-8e3d-4358-9503-\
a668f5d4d9a8"],

Cell[" Using x-rays where the ailment code is marked in the image", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032063622154*^9}, {3.746032473812477*^9, 
   3.746032509845727*^9}, {3.746032993721566*^9, 3.7460329945822163`*^9}, {
   3.7460331102063932`*^9, 3.746033110805073*^9}, {3.746037555656212*^9, 
   3.746037556017171*^9}, {3.7468368834137897`*^9, 3.746836934824437*^9}, {
   3.746837201114524*^9, 
   3.746837202094585*^9}},ExpressionUUID->"9631aea0-e02e-4d1b-8b95-\
42f938b21821"],

Cell["\<\
Taking a random set of x-ray images from hospital records and dividing them \
randomly to training and test sets. (What on earth could go wrong here!)\
\>", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032063622154*^9}, {3.746032473812477*^9, 
   3.746032514999968*^9}, 3.746032986616617*^9, {3.746037414130674*^9, 
   3.746037468457953*^9}, {3.746037561318748*^9, 3.746037562218721*^9}, {
   3.746093062215345*^9, 
   3.746093077379395*^9}},ExpressionUUID->"26900893-e3f1-44ed-ab60-\
b5d963a747e0"]
}, Open  ]],

Cell["Sample bias", "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032087419588*^9}, {3.746032554275216*^9, 
   3.746032554275473*^9}},ExpressionUUID->"1b05cbec-856a-43e1-b68b-\
01f830457b54"],

Cell[CellGroupData[{

Cell["Predict the voting result using a survey in the internet", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032087419588*^9}, {3.746032556145328*^9, 
   3.7460325752672997`*^9}, {3.746033237105603*^9, 3.746033276329032*^9}, {
   3.746037549445307*^9, 
   3.746037550907243*^9}},ExpressionUUID->"552fbef0-1fff-4c26-8152-\
62c7986c5d1b"],

Cell["\<\
Select a random set of companies that exist today for a training set to \
predict the stocks.\
\>", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032087419588*^9}, {3.746032556145328*^9, 
   3.746032592580089*^9}, {3.746033297420326*^9, 3.7460334086656857`*^9}, {
   3.746037513763419*^9, 3.746037553071384*^9}, {3.746340397065873*^9, 
   3.7463403975379953`*^9}, {3.809617008470579*^9, 
   3.809617008471637*^9}},ExpressionUUID->"8a8b5cdd-d044-4fe4-8620-\
80f6e5a1fb2d"],

Cell["\<\
Using pictures of celebrities to pre-train a face recognizer.\
\>", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032087419588*^9}, {3.746032556145328*^9, 
   3.746032592580089*^9}, {3.746033297420326*^9, 3.7460334086656857`*^9}, {
   3.746037513763419*^9, 3.746037553071384*^9}, {3.746340397065873*^9, 
   3.7463403975379953`*^9}, {3.809617013876697*^9, 3.809617072527843*^9}, 
   3.809618213242901*^9, {3.809618244009329*^9, 
   3.809618244010663*^9}},ExpressionUUID->"f2288be7-272e-4376-b0cd-\
5d927289c62d"]
}, Open  ]],

Cell["Non-stationary", "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032081444631*^9}, {3.746032120325593*^9, 
   3.746032132432173*^9}},ExpressionUUID->"690374cf-13e8-4876-85c5-\
a804c4e1e2b9"],

Cell[CellGroupData[{

Cell["input feature shifts ", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032081444631*^9}, {3.746032120325593*^9, 
   3.746032153255427*^9}, {3.746032624554523*^9, 
   3.746032671659019*^9}},ExpressionUUID->"a0542893-e6bc-4efd-88f4-\
16d8202c3819"],

Cell[CellGroupData[{

Cell["People live longer and their ailments change", "Subsubitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032081444631*^9}, {3.746032120325593*^9, 
   3.746032153255427*^9}, {3.746032624554523*^9, 3.746032669819775*^9}, {
   3.7460927234553213`*^9, 3.746092737146729*^9}, {3.746092997192254*^9, 
   3.746093012737974*^9}, {3.746340404394143*^9, 
   3.746340418028222*^9}},ExpressionUUID->"d8e39311-7953-45c8-b04b-\
96ff1a12c0ca"],

Cell["\<\
(once popular search queries become less popular \[Dash] new ones appear \
mathematically similar to sample bias)\
\>", "Subsubitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032081444631*^9}, {3.746032120325593*^9, 
   3.746032153255427*^9}, {3.746032624554523*^9, 
   3.746032669819775*^9}},ExpressionUUID->"4a698390-1baf-4e7e-bdbb-\
8235a488eee3"]
}, Open  ]],

Cell["Concept shift", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032081444631*^9}, {3.746032120325593*^9, 
   3.746032158990925*^9}, {3.7460326883125973`*^9, 
   3.74603268831376*^9}},ExpressionUUID->"66f72c28-33f4-4f21-a9a4-\
ac1dff414882"],

Cell["\<\
The medical diagnose codes change over time  (correct output for given input \
changes over time) \
\>", "Subsubitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746032060536386*^9, 3.746032081444631*^9}, {3.746032120325593*^9, 
   3.746032158990925*^9}, {3.746032689262719*^9, 3.746032704356022*^9}, {
   3.746092772159533*^9, 3.746092799905581*^9}, 3.7460928523433247`*^9, {
   3.746093016901963*^9, 
   3.74609301690263*^9}},ExpressionUUID->"abb0b78c-1927-4966-9fab-\
7d451540435c"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"29142129-0b06-4b36-8870-724e842ad13c"],

Cell[CellGroupData[{

Cell["Losses: ", "Subsection",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
  3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
  3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
  3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
  3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
  3.7460154922469788`*^9, 3.74601550662527*^9}, {3.746019456029559*^9, 
  3.746019457381939*^9}, {3.746020051296958*^9, 3.74602006586586*^9}, {
  3.746514716626588*^9, 
  3.746514718117043*^9}},ExpressionUUID->"8de04b62-3426-4842-83d5-\
9fa262e5f0df"],

Cell[CellGroupData[{

Cell[" Classification loss or \[OpenCurlyDoubleQuote]o/1\
\[CloseCurlyDoubleQuote] -loss. ", "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.74601949884009*^9}, {3.746019661498437*^9, 3.746019662889495*^9}, {
   3.746342803923388*^9, 3.746342809270928*^9}, 
   3.746343182789336*^9},ExpressionUUID->"7ec566ad-9f78-45a3-9c79-\
89b31b39b5ea"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["L", "c"], "[", "y", "]"}], "=", " ", 
    RowBox[{
     RowBox[{"\[Piecewise]", GridBox[{
        {"1", 
         RowBox[{
         "if", "  ", "the", " ", "prediction", " ", "is", " ", "wrong"}]},
        {"0", 
         RowBox[{"if", " ", "it", " ", "is", " ", "correct"}]}
       }]}], "=", 
     RowBox[{"1", " ", 
      RowBox[{"(", 
       RowBox[{"m", " ", "\[LessEqual]", "0"}], ")"}], " "}]}]}], 
   TraditionalForm]],
  InitializationCell->True,ExpressionUUID->
  "aff37cb9-ca0a-4408-9333-ba2bd0fcdf51"],
 ", where m is the margin. "
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019715073242*^9}, {3.746019762107664*^9, 3.746019763594936*^9}, {
   3.746342424846797*^9, 3.746342499039654*^9}, {3.746342686014485*^9, 
   3.746342686015361*^9}},ExpressionUUID->"3acb50f0-4474-4046-af7f-\
f8883b077d0e"],

Cell["The margin m depends of the input x.", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019715073242*^9}, {3.746019762107664*^9, 3.746019763594936*^9}, {
   3.746342424846797*^9, 3.746342499039654*^9}, {3.7463426868098*^9, 
   3.746342723267687*^9}, {3.746342830733411*^9, 3.7463428350374823`*^9}, {
   3.746343726428076*^9, 3.746343767666638*^9}, {3.7465147274914703`*^9, 
   3.7465147378333597`*^9}},ExpressionUUID->"3013611d-6b97-4f0c-b07a-\
89dff1622baa"],

Cell[TextData[{
 "A better version is hinge loss  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"max", "[", 
     RowBox[{
      RowBox[{"1", "-", "m"}], ",", "0"}], "]"}], "\[Congruent]", 
    SubscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "m"}], ")"}], "+"]}], TraditionalForm]],
  ExpressionUUID->"c8dbdc84-ab5c-4630-afe1-903e513de76f"]
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019715073242*^9}, {3.746019762107664*^9, 3.746019763594936*^9}, {
   3.746342424846797*^9, 3.746342499039654*^9}, {3.7463426868098*^9, 
   3.746342728821026*^9}, {3.7463427704647818`*^9, 3.746342772084692*^9}, {
   3.746342813418666*^9, 3.74634282215374*^9}, {3.746343196117607*^9, 
   3.746343247780744*^9}},ExpressionUUID->"2f30eac1-d960-442b-876f-\
74a956decdd8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{"-", "m"}], "]"}], ",", 
     RowBox[{"Max", "[", 
      RowBox[{
       RowBox[{"1", "-", "m"}], ",", "0"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"m", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "5"}], "}"}]}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<margin\>\"", ",", "\"\<zero-one loss\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.746342517008642*^9, 3.7463426699327183`*^9}, {
  3.746343253383923*^9, 3.7463432788955717`*^9}, {3.778116095856566*^9, 
  3.778116098502885*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"18ff436c-c4da-47a6-8b33-2cc6ae289b30"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQrWcv9ur////7GcDgg31Q+9nVxvEIfvn5ltz0ff/g
/CtXuF8dTPwL58seyBcxl/kD52/NPsLKf/cXnJ/QY/jhZtNPOP/HpOqO/fY/
4PzFfPckZzz8BufP8TIsutz5Fc5vykms0PT8AudXM68qL3r7Cc5PbDivcm3F
Rzh/6t6nM+ZkfYDzd93X4Fmj9A7OVxZwcAqZ9xrO36TVkfXo8Qs4//7RjQpm
Zs/g/Kc6U432b3sM5wvWrTTTY3wI5+uYvddZ+vkOnN/s8vbCzorrcL5oyLoJ
keKXEPZ9O8p/QuUUnL/09tPely374Hwtpl+bs6O3wPmxgTJbbicvgfPXf8lR
fnFrCpxvyaq//MHTEDgfAG48qsM=
        "]], LineBox[CompressedData["
1:eJxF0QtIEwAQANC1NWYzxYQJFpttoeWklLBkmhmpQ0vXHMpGplOhGWq5Rn6W
YVorMyRFzcQPCVtTKTZGnyFOzZlsK6LUZJYa6cpskZ/lcpppBXJ3cBwPDo67
Y2blC84SCQRC9L/8Xznk4PZPX5KjCJuxcGqvI18mAZfUcV/mhkrB66Xy5vvB
BeCynEd5I+zL4IHdlRWtXtfAigaWNOyOAszdbhANuVeAzctzgWRKFTg7my15
tl4LjmMVnb4eWQ/eNznA41+5C7YL0sLsK/fAeUdr3BjOFnAXtWTUWKAEt+2n
jWhZKvBNvvZtyxt0coPtVWGgGu/BTDCyJzvAARy6tjZGA7Y8FsfoKp+AD01v
YZSL+sB7FrpXwo0WcLzy/WueaBgcm+hNcj61gqvF1rIQ/QTYxKN78L2nwD+Y
tNLhJhu44FJQZrXPDNg64SWQmGfBGfIjXykJ3/E/QWG3B8hz4M0tcb9thllV
HJpuyI0l31rE/lVip2zaAV5O6kkf9F8Cj4eKd/krnGCp0GsHa+IX2Lf+s2gr
3QXWpLa1/yxeAQsjr8aZe1bBuvTzrPC132AXNZrUlfIHLBiKOExvXAdTI9z7
Da3oftWHk2eU6JBieWazBu3pp6/yHURb8g7aaA70MbfAGs+EDZx/0bVTk4TW
jpseJArRDK2kuyoLvZaimqHK0XqlXyRFjb7gMW9SP0QHFPUKuDp0/Ym0czcM
aNliUx1pBM1OzWEox9BTLzidxz+i+Y1jveXf0G7EjnjmPLovt+jd8yV04ShX
nLGKPhDlY9/YQP8FZ0EGMw==
        "]]},
      Annotation[#, "Charting`Private`Tag$2695#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjX8803kcx4dmroStJoUQysmJyniUHu+vjscjqSXtSldo/cCFwxK7U92S
Sr8eqiM/zuNOjTMJ/ZQJnxlKjqahkZlfzWF8x7HalPve7o/X4/V4Pl6v1+Pl
cDQ+5IQhiUQK0ut/dwfLCYIgUI7dEg1BULB4nWOGbp5A1V+oTWcWKNjDJ55r
ZzUE6um1+lU3T8E2uuw+Oqoi0MqstZ6zGgrmTU1/3yYjUIHJ9rhRFQXDRmZa
8yoJVDjDVbbJKFjI5fayTREEKm0c7c6rpGApkvS4qPp/UW2UuGpTBAXr6loy
0cBeQCcnyJrBh8aYrSh+ubfNF2Q26H3V2swYexbTRDbvn0fvvYbTLv9Ixo5c
95zuTdMhj5dW2tiGRZj2dmoGAi0683pb04DdIoxvpliZO/QRhVDUpm0JRljB
Tk9O5xUNYhZbCcebDLG0WDb368A55FflUZvlZIilGt1P4Uz9g+oNurcKkw0w
Nk/i9E4wgzxEUbSYLhKWXafMLTg5jVoVnF1MLxJWM+Bi+mANjvrjlxvvpxLg
aIFtZ/2uQjQTewdXyQI8ds04OTwyhg7S/b1mEr/AQPMjewZjFE0Ph1pYW38G
pVv2RlQ1gjh3duZF9OmAeq6U4W4whEwQyzqHpwU3htqteFaOrrVvDRr3/QQX
/Kc6hFwZcti7NcldoQE6q+LmwRVSRM5ef/zdxTl4/LHZvMWpFb2r1xrk+c9C
cZ/yxnh6PaoJU+Qyx2YgbK/N075jRejacGH/av40CBendotP84G1RyDlt+Dg
NWyw+nwoAmEjyNXLJ8Fx+oVui/g1fDK65ZeYOQ6B/N52ZqgUDrsvy+vpHIWA
3TQjzTMZhPcmnyM7f4DMCBnP47kcfIKzUFTRELxi2i4Npg0B52izMqKvH6Yc
6Oek+SOwtrbb6FBrD5xOWs/OtBwFyxWl24aknSCTW4REtoxB0fXa55GKNjjy
k+/flF0q4K0yOzYoEYPr8ZZufL8KQuMVAv8iMcwyWU3dbBVsbqrABVwxXHKK
vctPUcFY3J6fEx3E8EDy2yHgqyC44eYtw1MNoHP+LEmeV4FN9DKRk6UIbkuF
1UrBJCTEeG6RVtfA4bqAkrYnk2BPlzbns2vAWfA2+0n9JPTUc/YeW1wD1WfH
Oee7JgGjPY2eOyQEhcvKb2xJU2AhZORYEs/B9RfuXdaBKXho7Dv3fcAzaFzv
fbWRjEPHtzcOv+JXQvgGFn/GHAf7xXWtSlIlaDcm1tqtwoHXMemzKLwC3LaU
4anuOGBhu+h+VuWQtcNu3+YDOIiSl7ypuX4fIk9QbIoFOBSWXoGK08VA+sHJ
q/MxDqQEYXmbtAjyY/2YBnU4HGGMW6s2FMGbU6m8sLf6v8Yd2nUT98A7Tf2B
Po/DTTnl0d3wQjD5Q1Z+KUgNJDvTANfMO3Dv3tzLp9+pQVQW4xAVmA2+f1IH
hyPUwPP5a4FvlAUJ5UE0SNL3Q65W2XJvQe8LlPypQN//ihq8RpwBSUie6Vyi
zx07TAoYl8CsUSfY90i/981soJddgO2tm/oqm/X5wKpImstZkLcHz/VL9EzL
k5GpXEh+G7fU9L2eA1YE6nQcuN9TAtG4nvevCxXlsOFs9APzGxo9G28oGVSy
4D/RNWHr
        "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQB2IQffC0ZoUl6wd7BigIL50Tt1wAwVf5rpW9TxTB3/fL
veWNPILfXXNtArMqgh/xL2WulBaC/4mxaZuHCYKvxrnnxRIPJPnjelmLfJHM
b1v4en4Qgh/G0v5uVgyC3/o/8MuEAgT/ydfn/2tmIPiLHgmLh75A8GX3ZLuy
dnyE8xl+Ma0sevQJzv8euDfuqOoXOP+2Sby0astXOL8gXEBQ6c43OF9yypMI
FtkfcP666AXLP1f8RISfbb3Hib2/4PyNcblKVn9+w/k/uJyZd4b+hfODLlqb
yc74B+dzWXMf3DMXwT+45JZ3zGIE36CiMnH2OgSfT357j+RRBP9kjtFj0U8I
vgOH5gQ+n/8I+wt/SK0LRPDX3z6+1DccwZdbn7a7JwnB/xO65BlXJYK/fbG8
LfsyBD+P9/3xZasRfLXyfUFuGxH8KV6xGa17EPyij7MmM19G8LWis+QW30Dw
Hx6xXOl0D8EPmHFjX+NLBJ+DaYWn4nsEf392+ZUDXxD8sqtu8Qm/EHw9e7FX
//8j+AAC9cVX
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$2695#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"margin\"", TraditionalForm], 
    FormBox["\"zero-one loss\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-1.999999918367347, 1.999999918367347}, {-1, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.746343270216551*^9, 3.746343281021888*^9}, {
   3.746514687327936*^9, 3.746514687515512*^9}, 3.746577766921208*^9, 
   3.746622376652034*^9, 3.746672230875917*^9, 3.746716177487618*^9, 
   3.746762622504277*^9, 3.747058664734724*^9, 3.7473710710951138`*^9, 
   3.7711388091945143`*^9, 3.773718223430722*^9, 3.773731562062106*^9, 
   3.777346126243258*^9, 3.777363071174765*^9, 3.7774357127159233`*^9, 
   3.777644391800168*^9, 3.777766662205468*^9, 3.777883436658452*^9, 
   3.777945213610135*^9, 3.778067282746524*^9, 3.778116101867135*^9, 
   3.778131444177341*^9, 3.778149433580764*^9, 3.778158146291766*^9, 
   3.778158450591441*^9, 3.7781767818671007`*^9, 3.7781949737726793`*^9, 
   3.809612219890423*^9, 3.809619257435326*^9, 3.8096271486937532`*^9, 
   3.809665513784433*^9, 3.809669998042474*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"eea0f289-7b5e-49f7-bf0d-b0e6cc4e719f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Regression losses", "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019746888011*^9}, {3.7460197841932907`*^9, 3.746019789872891*^9}, {
   3.746019909511993*^9, 3.7460200469270887`*^9}, {3.746023073967935*^9, 
   3.74602307396842*^9}, {3.746254123222135*^9, 
   3.7462541365952387`*^9}},ExpressionUUID->"dd208bde-9244-4c25-8b4f-\
6b6cb1c9973a"],

Cell[CellGroupData[{

Cell[TextData[{
 "Square loss ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["L", "2"], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "n"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       SubscriptBox[
        RowBox[{"y", "-", " ", "y"}], "i"], ")"}], "2"], " "}]}], 
   TraditionalForm]],ExpressionUUID->"a71d7f26-a72f-4c96-9460-c8012c66c184"],
 "  (affected by outliers - not so robust)"
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019746888011*^9}, {3.7460197841932907`*^9, 3.746019789872891*^9}, {
   3.746019909511993*^9, 3.7460200469270887`*^9}, {3.746023073967935*^9, 
   3.74602307396842*^9}, {3.746254123222135*^9, 3.746254124371516*^9}, {
   3.746254158507132*^9, 
   3.746254203196581*^9}},ExpressionUUID->"5cfe092b-e991-4c66-80b4-\
598bbda09fda"],

Cell[TextData[{
 "Absolute loss ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["L", "1"], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "n"], " ", 
     RowBox[{"|", 
      RowBox[{"y", "-", " ", 
       SubscriptBox["y", "i"]}], "|", "  "}]}]}], TraditionalForm]],
  ExpressionUUID->"25e1298c-2285-4d17-8dd6-e41c42f31b6f"],
 "(more robust, as the penalty grows only linearly, however, not \
differentiable)"
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019746888011*^9}, {3.7460197841932907`*^9, 3.746019789872891*^9}, {
   3.746019909511993*^9, 3.7460200469270887`*^9}, {3.746023073967935*^9, 
   3.74602307396842*^9}, {3.746254123222135*^9, 3.746254124371516*^9}, {
   3.746254158507132*^9, 3.7462542892568693`*^9}, {3.746514766281454*^9, 
   3.746514766281714*^9}},ExpressionUUID->"dcd0a5e1-7b0e-4d08-90c4-\
85d7a123ca49"],

Cell["Huber loss - continue the parabola  with absolute value", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019746888011*^9}, {3.7460197841932907`*^9, 3.746019789872891*^9}, {
   3.746019909511993*^9, 3.7460200469270887`*^9}, {3.746023073967935*^9, 
   3.74602307396842*^9}, {3.746254123222135*^9, 3.746254124371516*^9}, {
   3.746254158507132*^9, 3.7462542892568693`*^9}, 
   3.7465147747330523`*^9},ExpressionUUID->"e7c385f8-dfe5-43ca-83d9-\
509326f42441"],

Cell[TextData[{
 "   ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["L", "Huber"], "=", 
    TagBox[GridBox[{
       {"\[Piecewise]", GridBox[{
          {
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"i", "=", "1"}], "n"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              SubscriptBox[
               RowBox[{"y", "-", " ", "y"}], "i"], ")"}], "2"], "  "}], 
           RowBox[{"|", 
            RowBox[{"y", "-", " ", 
             SubscriptBox["y", "i"]}], "|", 
            RowBox[{"<", " ", "\[Delta]"}]}]},
          {
           RowBox[{
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"i", "=", "1"}], "n"], 
             RowBox[{"2", "\[Delta]"}]}], "|", 
            RowBox[{"y", "-", " ", 
             SubscriptBox["y", "i"]}], "|", 
            RowBox[{"-", 
             SuperscriptBox["\[Delta]", "2"]}]}], 
           RowBox[{"|", 
            RowBox[{"y", "-", " ", 
             SubscriptBox["y", "i"]}], "|", " ", 
            RowBox[{"\[GreaterEqual]", "\[Delta]"}]}]}
         },
         AllowedDimensions->{2, Automatic},
         Editable->True,
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{1.}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.84]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}},
         Selectable->True]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.35]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     "Piecewise",
     DeleteWithContents->True,
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], TraditionalForm]],ExpressionUUID->
  "ce877a82-3399-4791-b164-37d1a0c91a7d"]
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.7460154816846*^9, 3.746015481685521*^9}, {3.746019472834834*^9, 
   3.746019746888011*^9}, {3.7460197841932907`*^9, 3.746019789872891*^9}, {
   3.746019909511993*^9, 3.7460200469270887`*^9}, {3.746023073967935*^9, 
   3.74602307396842*^9}, {3.746254123222135*^9, 3.746254124371516*^9}, {
   3.746254158507132*^9, 3.746254470881312*^9}, {3.746292284657135*^9, 
   3.746292284657411*^9}, {3.7462926254886827`*^9, 3.746292654518465*^9}, 
   3.7465147788559017`*^9},ExpressionUUID->"9f540483-8425-4ca5-8e78-\
a8e4e3591d52"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\[NonBreakingSpace]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Piecewise]", GridBox[{
           {
            SuperscriptBox["x", 
             RowBox[{"2", " "}]], 
            RowBox[{
             RowBox[{"Abs", "[", "x", "]"}], "<", "\[Delta]"}]},
           {
            RowBox[{
             RowBox[{"2", "\[Delta]", " ", 
              RowBox[{"Abs", "[", "x", "]"}]}], "-", 
             SuperscriptBox["\[Delta]", "2"]}], 
            RowBox[{
             RowBox[{"Abs", "[", "x", "]"}], "\[GreaterEqual]", "\[Delta]"}]}
          }]}], " ", ",", " ", 
        SuperscriptBox["x", "2"], ",", " ", 
        RowBox[{"Abs", "[", "x", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Piecewise]", GridBox[{
             {
              SuperscriptBox["x", 
               RowBox[{"2", " "}]], 
              RowBox[{
               RowBox[{"Abs", "[", "x", "]"}], "<", "\[Delta]"}]},
             {
              RowBox[{
               RowBox[{"2", "\[Delta]", " ", 
                RowBox[{"Abs", "[", "x", "]"}]}], "-", 
               SuperscriptBox["\[Delta]", "2"]}], 
              RowBox[{
               RowBox[{"Abs", "[", "x", "]"}], "\[GreaterEqual]", "\[Delta]"}]}
            }]}], " ", "\"\<Huber loss:\>\""}], ",", 
         RowBox[{
          SuperscriptBox["x", "2"], " ", "\"\<Square loss:\>\""}], ",", " ", 
         RowBox[{
          RowBox[{"Abs", "[", "x", "]"}], " ", "\"\<Absolute loss:\>\""}]}], 
        "}"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Delta]", ",", "2"}], "}"}], ",", "0", ",", "5"}], "}"}]}], 
   "]"}], "\n"}]], "Input",
 CellChangeTimes->{{3.7462923254736567`*^9, 3.7462925243976517`*^9}, {
  3.7462925729470663`*^9, 3.7462925875032053`*^9}, {3.7462926677636833`*^9, 
  3.746292751194623*^9}, {3.746292791752078*^9, 3.74629285894971*^9}, {
  3.778116155120476*^9, 3.7781162941889973`*^9}, {3.778116335376032*^9, 
  3.778116478270647*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"c1d443f3-e68e-4d93-adca-5bb654b19efd"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Delta]$$ = 1.8900000000000001`, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Delta]$$], 2}, 0, 5}}, Typeset`size$$ = {
    1356., {221., 232.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Delta]$2247476$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Delta]$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Delta]$$, $CellContext`\[Delta]$2247476$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         Piecewise[{{$CellContext`x^2, 
            Abs[$CellContext`x] < $CellContext`\[Delta]$$}, {(
              2 $CellContext`\[Delta]$$) 
             Abs[$CellContext`x] - $CellContext`\[Delta]$$^2, 
            Abs[$CellContext`x] >= $CellContext`\[Delta]$$}}], \
$CellContext`x^2, 
         Abs[$CellContext`x]}, {$CellContext`x, -4, 4}, 
        PlotLegends -> {
         Piecewise[{{$CellContext`x^2, 
              Abs[$CellContext`x] < $CellContext`\[Delta]$$}, {(
                2 $CellContext`\[Delta]$$) 
               Abs[$CellContext`x] - $CellContext`\[Delta]$$^2, 
              Abs[$CellContext`x] >= $CellContext`\[Delta]$$}}] 
          "Huber loss:", $CellContext`x^2 "Square loss:", Abs[$CellContext`x] 
          "Absolute loss:"}], 
      "Specifications" :> {{{$CellContext`\[Delta]$$, 2}, 0, 5}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{1440., {298., 309.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.746292501150881*^9, 3.746292544805834*^9}, 
   3.7462925894732313`*^9, {3.746292734099371*^9, 3.746292753414328*^9}, {
   3.7462928150012293`*^9, 3.746292859635252*^9}, 3.777435713349491*^9, 
   3.77811619189668*^9, 3.778116229293592*^9, 3.778116297362941*^9, {
   3.778116380218857*^9, 3.77811643128893*^9}},
 CellLabel->
  "Out[103]=",ExpressionUUID->"4df99f54-4e6f-4bfe-9e3f-103c2022463d"]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"31571948-28b8-4f53-8ba5-f47bafcb8eb2"],

Cell[CellGroupData[{

Cell["3.3 Unsupervised learning:", "Section",
 CellChangeTimes->{{3.710778725124434*^9, 3.710778725761334*^9}, {
  3.744010544402543*^9, 3.744010546712739*^9}, {3.744711185213903*^9, 
  3.744711190114337*^9}, {3.745480060458344*^9, 3.745480069837872*^9}, {
  3.7455884637110786`*^9, 3.745588467627348*^9}, {3.7455898422682858`*^9, 
  3.745589855952086*^9}, {3.74608908358895*^9, 3.746089088403034*^9}, {
  3.746089134897134*^9, 3.7460891394839354`*^9}, {3.74671803639255*^9, 
  3.7467180365469503`*^9}},ExpressionUUID->"b21ea221-b231-45d1-a804-\
b2746d4a804f"],

Cell[CellGroupData[{

Cell["\<\
In unsupervised learning we are interested in the entire probability density \
of the full data set for de-noising or generating tasks. Also, clustering to \
subsets according to some similarity is used and one version of this is \
anomaly detection.\
\>", "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
  3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
  3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
  3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
  3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
  3.7460156221069603`*^9, 3.746015632007833*^9}, {3.746015680100286*^9, 
  3.746015704300239*^9}, {3.746015736067211*^9, 3.746015755209347*^9}, {
  3.7460161505958347`*^9, 
  3.746016224275775*^9}},ExpressionUUID->"6f0dac4f-1f3b-49c5-9741-\
eaba7c7c3f31"],

Cell[TextData[{
 "The probability distribution can be de-composed with chain rule ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", 
    RowBox[{"(", 
     FormBox[
      RowBox[{
       SubscriptBox["x", "1"], ",", " ", 
       SubscriptBox["x", "2"], ",", "\[Ellipsis]", ",", 
       SubscriptBox["x", "n"]}],
      TraditionalForm], ")"}]}], " ", "=", 
   RowBox[{
    RowBox[{"p", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["x", "n"], "|", 
        SubscriptBox["x", "1"]}], ",", 
       SubscriptBox["x", "2"], ",", "\[Ellipsis]", ",", 
       SubscriptBox["x", 
        RowBox[{"n", "-", "1"}]]}], ")"}], "p", 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["x", "1"], ",", 
       SubscriptBox["x", "2"], ",", "\[Ellipsis]", ",", 
       SubscriptBox["x", 
        RowBox[{"n", "-", "1"}]]}], ")"}]}], "=", 
    RowBox[{"\[Ellipsis]", "=", 
     RowBox[{
      UnderoverscriptBox["\[Product]", 
       RowBox[{"i", "=", "1"}], "n"], 
      RowBox[{"p", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["x", "i"], "|", 
          SubscriptBox["x", "1"]}], ",", 
         SubscriptBox["x", "2"], ",", "\[Ellipsis]", ",", 
         SubscriptBox["x", 
          RowBox[{"i", "-", "1"}]]}], ")"}], " "}]}]}]}]}]],
  CellChangeTimes->{{3.74349898559413*^9, 3.7434990651265583`*^9}, {
   3.743499696198682*^9, 3.7434997526747293`*^9}},ExpressionUUID->
  "b18278fe-d48d-441f-af80-0ec6bacb0f7c"]
}], "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
  3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
  3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
  3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
  3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
  3.7460156221069603`*^9, 3.746015632007833*^9}, {3.746015680100286*^9, 
  3.746015695673587*^9}, {3.746016295856901*^9, 3.746016305804516*^9}, {
  3.7460168001509027`*^9, 3.7460168242716293`*^9}, {3.746215756594049*^9, 
  3.746215756949697*^9}},ExpressionUUID->"4c8bd4ff-e5cb-4f9f-a9da-\
12ff77ba91d7"],

Cell["\<\
Often the classification of  information is not naturally in the data set, \
but has to be created with a big effort. \
\>", "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.746015483058799*^9, 3.746015485724587*^9}, {3.7461029416794252`*^9, 
   3.746102945476521*^9}, {3.7462031877371607`*^9, 3.7462032089487*^9}, {
   3.746689089779565*^9, 3.746689099142004*^9}, {3.746691986312339*^9, 
   3.746692104896616*^9}, {3.746692242234486*^9, 3.746692277024563*^9}, {
   3.7467222637822523`*^9, 3.746722338946928*^9}, {3.746833339571766*^9, 
   3.746833420987377*^9}, {3.7468373299730797`*^9, 3.7468373299735823`*^9}, {
   3.8096063947887697`*^9, 3.809606428970346*^9}, {3.809606517611487*^9, 
   3.809606560007246*^9}},ExpressionUUID->"9adf3e45-6f8f-4775-8628-\
a5cae489f35d"],

Cell["\<\
There is no explicit annotation in the dataset. In self-supervised  cases \
there is a way to produce annotation from the data itself. T\
\>", "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.746015483058799*^9, 3.746015485724587*^9}, {3.7461029416794252`*^9, 
   3.746102945476521*^9}, {3.7462031877371607`*^9, 3.7462032089487*^9}, {
   3.746689089779565*^9, 3.746689099142004*^9}, {3.746691986312339*^9, 
   3.746692104896616*^9}, {3.746692242234486*^9, 3.746692277024563*^9}, {
   3.7467222637822523`*^9, 3.746722338946928*^9}, {3.746833339571766*^9, 
   3.746833420987377*^9}, {3.746837332752315*^9, 3.74683740162309*^9}, {
   3.7468374327682743`*^9, 3.7468374474170113`*^9}, {3.8096065061718693`*^9, 
   3.809606508135309*^9}, {3.8096065628793697`*^9, 
   3.809606635357339*^9}},ExpressionUUID->"aab631e3-5ace-4bf7-bce6-\
92170320d10c"],

Cell[CellGroupData[{

Cell[TextData[{
 "Clustering (e.g",
 StyleBox[" K-means",
  FontWeight->"Bold"],
 ", find out a set of average values of data, which have surroundings that \
dived the data to k areas. Classify points by the average value that is \
closest)"
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.746015483058799*^9, 3.746015485724587*^9}, {3.7461029416794252`*^9, 
   3.746102945476521*^9}, {3.7462031877371607`*^9, 3.7462032089487*^9}, {
   3.746689089779565*^9, 3.746689099142004*^9}, {3.746691986312339*^9, 
   3.746692104896616*^9}, {3.746692242234486*^9, 3.746692277024563*^9}, {
   3.7467222637822523`*^9, 3.746722338946928*^9}, {3.746833339571766*^9, 
   3.746833420987377*^9}, {3.746837332752315*^9, 3.746837461849099*^9}, {
   3.746837740024791*^9, 3.746837743740224*^9}, {3.809606674334559*^9, 
   3.809606675585207*^9}, {3.809649798380528*^9, 
   3.809649798610949*^9}},ExpressionUUID->"47448890-6790-463c-86cf-\
f3b712bf37d0"],

Cell["\<\
De-noising. Add noise to data and teach the model to remove it.\
\>", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.746015483058799*^9, 3.746015485724587*^9}, {3.7461029416794252`*^9, 
   3.746102945476521*^9}, {3.7462031877371607`*^9, 3.7462032089487*^9}, {
   3.746689089779565*^9, 3.746689099142004*^9}, {3.746691986312339*^9, 
   3.746692104896616*^9}, {3.746692242234486*^9, 3.746692277024563*^9}, {
   3.7467222637822523`*^9, 3.746722338946928*^9}, {3.746833339571766*^9, 
   3.746833420987377*^9}, {3.746837332752315*^9, 3.746837461849099*^9}, {
   3.746837740024791*^9, 3.746837743740224*^9}, {3.809606760347595*^9, 
   3.8096067603486547`*^9}},ExpressionUUID->"57dd910e-0ce9-45e2-8cbe-\
d73ae86bbdc5"],

Cell["\<\
Learn to generate representative samples of the data (Generative adversarial \
Networks (GANs))\
\>", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.746015483058799*^9, 3.746015485724587*^9}, {3.7461029416794252`*^9, 
   3.746102945476521*^9}, {3.7462031877371607`*^9, 3.7462032089487*^9}, {
   3.746689089779565*^9, 3.746689099142004*^9}, {3.746691986312339*^9, 
   3.746692104896616*^9}, {3.746692242234486*^9, 3.746692277024563*^9}, {
   3.7467222637822523`*^9, 3.746722338946928*^9}, {3.746833339571766*^9, 
   3.746833420987377*^9}, {3.746837332752315*^9, 3.746837461849099*^9}, {
   3.746837740024791*^9, 3.746837743740224*^9}, {3.8096067641096888`*^9, 
   3.809606811438121*^9}, {3.809649761526795*^9, 
   3.8096497767282333`*^9}},ExpressionUUID->"1283dee6-d284-49b2-b9c9-\
4fcac8e401bd"]
}, Open  ]],

Cell["\<\
In self-supervised  cases there is a way to produce annotation from the data \
itself.\
\>", "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.746015483058799*^9, 3.746015485724587*^9}, {3.7461029416794252`*^9, 
   3.746102945476521*^9}, {3.7462031877371607`*^9, 3.7462032089487*^9}, {
   3.746689089779565*^9, 3.746689099142004*^9}, {3.746691986312339*^9, 
   3.746692104896616*^9}, {3.746692242234486*^9, 3.746692277024563*^9}, {
   3.7467222637822523`*^9, 3.746722338946928*^9}, {3.746833339571766*^9, 
   3.746833420987377*^9}, {3.746837332752315*^9, 3.746837520794334*^9}, 
   3.809606646486565*^9},ExpressionUUID->"ab33c3ad-3d9d-4ca1-b7d8-\
ae0afba02c6c"],

Cell[CellGroupData[{

Cell["\<\
In-painting. Remove parts of the content and teach the model to reproduce it.\
\>", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.746015483058799*^9, 3.746015485724587*^9}, {3.7461029416794252`*^9, 
   3.746102945476521*^9}, {3.7462031877371607`*^9, 3.7462032089487*^9}, {
   3.746689089779565*^9, 3.746689099142004*^9}, {3.746691986312339*^9, 
   3.746692104896616*^9}, {3.746692242234486*^9, 3.746692277024563*^9}, {
   3.7467222637822523`*^9, 3.746722338946928*^9}, {3.746833339571766*^9, 
   3.746833420987377*^9}, {3.746837332752315*^9, 3.746837552678575*^9}, {
   3.746837583867803*^9, 3.746837727787883*^9}, {3.746837761942786*^9, 
   3.74683778789015*^9}, {3.809606663584558*^9, 
   3.8096066635887613`*^9}},ExpressionUUID->"dd7ae633-e000-44a2-8bdd-\
473016a6d19a"],

Cell["Predicting the next entry in time series.", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.745480561772491*^9}, {
   3.745480908853066*^9, 3.745481080746773*^9}, {3.745481371150934*^9, 
   3.7454813790479527`*^9}, {3.745483678572695*^9, 3.7454837315088873`*^9}, {
   3.74548395922173*^9, 3.745484000915131*^9}, {3.7454840593379517`*^9, 
   3.745484109664156*^9}, 3.7454845762004423`*^9, {3.7454846346319113`*^9, 
   3.7454846603121233`*^9}, {3.745484758447082*^9, 3.74548478422652*^9}, {
   3.745484876019154*^9, 3.7454848830288277`*^9}, {3.745485069498617*^9, 
   3.7454851382323236`*^9}, {3.7454852242235518`*^9, 3.745485309391789*^9}, {
   3.746015483058799*^9, 3.746015485724587*^9}, {3.7461029416794252`*^9, 
   3.746102945476521*^9}, {3.7462031877371607`*^9, 3.7462032089487*^9}, {
   3.746689089779565*^9, 3.746689099142004*^9}, {3.746691986312339*^9, 
   3.746692104896616*^9}, {3.746692242234486*^9, 3.746692277024563*^9}, {
   3.7467222637822523`*^9, 3.746722338946928*^9}, {3.746833339571766*^9, 
   3.746833420987377*^9}, {3.746837332752315*^9, 3.746837552678575*^9}, {
   3.746837583867803*^9, 3.746837727787883*^9}, {3.746837761942786*^9, 
   3.74683778789015*^9}, 3.80960666412889*^9, {3.809606735518486*^9, 
   3.809606735518795*^9}, {3.809649844218959*^9, 3.809649844633617*^9}, {
   3.809649874873904*^9, 
   3.809649889573848*^9}},ExpressionUUID->"928ee0ea-f0b0-40ff-8089-\
f17fe716637b"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"3c4f22a5-48aa-45ec-a659-88f5dc5a02f8"],

Cell[CellGroupData[{

Cell["3.4 Linear regression in the Bayesian way:", "Section",
 CellChangeTimes->{{3.710778725124434*^9, 3.710778725761334*^9}, {
  3.744010544402543*^9, 3.744010546712739*^9}, {3.744711185213903*^9, 
  3.744711190114337*^9}, {3.745480060458344*^9, 3.745480069837872*^9}, {
  3.7455884637110786`*^9, 3.745588467627348*^9}, {3.745649397272605*^9, 
  3.745649415840868*^9}, {3.746292149105406*^9, 3.746292149898411*^9}, {
  3.746718040566818*^9, 3.746718040705819*^9}, {3.746722886816784*^9, 
  3.746722892857171*^9}},ExpressionUUID->"653650d2-5c79-49b7-909d-\
c639aa60ce69"],

Cell[CellGroupData[{

Cell[TextData[{
 "Assume that we have data {x,y} \[Element] \[ScriptCapitalD] that contains \
i.i.d samples from a distribution ",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", "(", 
    RowBox[{"x", ",", 
     RowBox[{"y", "|", "\[Theta]"}]}], ")"}], TraditionalForm]],
  ExpressionUUID->"8feac9ff-10fa-49e8-a7f5-eded798c1e4b"],
 "  for some  (unknown) value \[Theta] \[Element] \[CapitalTheta].  Then the \
probability of the data (likelihood) is  p(\[ScriptCapitalD]|\[Theta])  and \
the respectively the probability of the parameters is    \t\t\t\t\t",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     OverscriptBox[
      RowBox[{"p", 
       RowBox[{"(", 
        RowBox[{"\[Theta]", "|", "\[ScriptCapitalD]"}], ")"}]}], 
      OverscriptBox["\[OverBrace]", 
       RowBox[{"a", " ", "postererior", " ", "distribution"}]]], "=", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"p", "(", 
         RowBox[{"\[ScriptCapitalD]", "|", "\[Theta]"}], ")"}], " ", 
        RowBox[{"p", "(", "\[Theta]", ")"}]}], 
       RowBox[{"p", "(", "\[ScriptCapitalD]", ")"}]], "\[Proportional]", 
      RowBox[{
       RowBox[{"p", "(", 
        RowBox[{"\[ScriptCapitalD]", "|", "\[Theta]"}], ")"}], " ", 
       OverscriptBox[
        RowBox[{"p", 
         RowBox[{"(", "\[Theta]", ")"}]}], 
        OverscriptBox["\[OverBrace]", 
         RowBox[{"a", " ", "prior", " ", "distribution"}]]]}]}]}]}], 
   TraditionalForm]],ExpressionUUID->"4afb66b6-a6e2-4ef8-8264-c59851725ad3"],
 " "
}], "Item",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQ7c/yVU3p6WvHOVOfa4DogvgLOiC6PlZQF0R7PA50
qXj22lFR0M8HRLetSN34/vlrRweXEjD95pDZBRAtMN33Bli8Se0OiFYI03oA
ohena38C0RJHNb6B6GdLtVOcXrx2tDn/PAdEC/e8KQbRKc//g+k73moTQfS1
I0FTQbTc1hOHQPSNQuajIDrnMvNJEL1m9o6rIHpH2fVbIFpVX+UBmF8yL6wa
SL+S+wGma+4yTZoCpA8kmE8D0QHqJw+rvHztuOye4ikQHe7LeAtET7kgfxtE
R6T9/AGinfIhdJJh9n8QrWsMoR9ZPu1TBdIvVzydAKJ/22i/CQPSLQJ830F0
0oafe70k3jieOs93EEQDACTpyMQ=
  "],ExpressionUUID->"4693a4df-1a2a-48aa-8b71-923d7855ef48"],

Cell[TextData[{
 "The likelihood of the i.i.d  data sample \[ScriptCapitalD]:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["x", "1"], ",", 
       SubscriptBox["y", "1"]}], "}"}], ",", "\[Ellipsis]", ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["x", "n"], ",", 
       SubscriptBox["y", "n"]}], "}"}]}], "}"}], TraditionalForm]],
  ExpressionUUID->"516af19d-bb01-44ea-99d1-0b95f000a5b3"],
 " is ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", 
    RowBox[{"(", 
     RowBox[{"\[ScriptCapitalD]", "|", "\[Theta]"}], ")"}]}], "=", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Product]", 
      RowBox[{"i", "=", "1"}], "n"], 
     RowBox[{"p", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         RowBox[{
          SubscriptBox["x", "i"], ",", 
          SubscriptBox["y", "i"]}],
         TraditionalForm], "|", "\[Theta]"}], ")"}]}]}], "=", 
    RowBox[{
     RowBox[{
      UnderoverscriptBox["\[Product]", 
       RowBox[{"i", "=", "1"}], "n"], 
      RowBox[{"p", 
       RowBox[{"(", 
        RowBox[{
         FormBox[
          RowBox[{
           SubscriptBox["y", "i"], "|", 
           SubscriptBox["x", "i"]}],
          TraditionalForm], ",", "\[Theta]"}], ")"}]}]}], "=", 
     RowBox[{
      UnderoverscriptBox["\[Product]", 
       RowBox[{"i", "=", "1"}], "n"], 
      RowBox[{"p", 
       RowBox[{"(", 
        RowBox[{
         FormBox[
          RowBox[{
           SubscriptBox["y", "i"], ",", 
           SubscriptBox["x", "i"]}],
          TraditionalForm], " ", "|", " ", "\[Theta]"}], ")"}], "p", 
       RowBox[{"(", "\[Theta]", ")"}]}]}]}]}]}]],ExpressionUUID->
  "a5360f3b-65fd-4921-b851-72fdb84ef942"]
}], "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
  3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
  3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
  3.7456494413640013`*^9, 3.745649511244047*^9}, {3.745649567392099*^9, 
  3.745649567996996*^9}, {3.745649804982307*^9, 3.7456498049826612`*^9}, {
  3.7456505676975613`*^9, 3.7456507976805687`*^9}, {3.745651661535564*^9, 
  3.7456516620769367`*^9}, {3.745766060892438*^9, 3.745766064426393*^9}, {
  3.7458177831829033`*^9, 3.745817811910597*^9}, {3.746215881079211*^9, 
  3.7462158905524178`*^9}},ExpressionUUID->"2f450b1b-bbb3-4344-9c0d-\
186e4c111c03"],

Cell[TextData[{
 "Because according the Bayes\[CloseCurlyQuote]s rule we can turn this \
around: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Theta]", "|", 
       SubscriptBox["x", "i"]}], ",", 
      SubscriptBox["y", "i"]}], ")"}]}], "=", 
   RowBox[{
    FractionBox[
     RowBox[{"p", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         RowBox[{
          SubscriptBox["y", "i"], ",", 
          SubscriptBox["x", "i"]}],
         TraditionalForm], " ", "|", "\[Theta]"}], ")"}], " ", "p", 
      RowBox[{"(", "\[Theta]", ")"}], " "}], 
     RowBox[{"P", 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["x", 
         RowBox[{"i", ","}]], 
        SubscriptBox["y", "i"]}], ")"}]}]], "\[Proportional]", 
    RowBox[{"p", 
     RowBox[{"(", 
      RowBox[{
       FormBox[
        RowBox[{
         SubscriptBox["y", "i"], ",", 
         SubscriptBox["x", "i"]}],
        TraditionalForm], " ", "|", "\[Theta]"}], ")"}], " ", "p", 
     RowBox[{"(", "\[Theta]", ")"}]}]}]}]],ExpressionUUID->
  "754b8098-1b7e-4902-b955-9e5528b2f6ab"]
}], "Subitem",
 CellChangeTimes->CompressedData["
1:eJwlxUsow3EAB/B/ynBCTbnQrGHKvA7DYdqfKMt2mLTCYU1LmfhnHGRe84iD
92JSm/JoNGGn0TZc1lK0wlryzGOzKUntIK/fdw6fPhmqdrk6hqKoNAI77x0C
7lOYPrKz87C/6lGIGcZdgjncVRGmlGdiLN4+DbwFwrRMs/aOrXZ1BBtGer9w
jP5FnBUM067DRBqnfDz1Y4lPqsdv052b2eRBqdKG5V7Gizvcl3f4d7cpiPPF
ZV9YtvBI8cmUdoiF846Xa/DzkKUB80rHbmjyZ2ZxCLfe7bDKyfMz+9HXJ9Nz
8GLSgAiLLlpqsPAhtw77Y/viKsjG8pXoQs8KG18pqjnYNidT9JAXfPLoXaaf
JQP5pD5kwUHJlhUXyP8/mNiYN5Mbp/5X7QlUvJcwbUq4bcbG2QiDXdYiHa5M
Tx7HAwK+GYc0nm/cdh2J3j262pFJHo4t1GJdrWMYny+zRnF8wLElSX2lG0uc
2/gPpoD/ZA==
  "],ExpressionUUID->"03c43136-66b2-498b-a11d-82f43eb4f159"],

Cell["Linear system:", "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
   3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
   3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
   3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
   3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
   3.74559539914347*^9, 3.745595444107788*^9}, {3.74559600502468*^9, 
   3.745596125266101*^9}, {3.745648372256975*^9, 3.745648465723386*^9}, {
   3.7456486935273952`*^9, 3.7456486938302717`*^9}, {3.745648968954913*^9, 
   3.745649132002026*^9}, {3.74564925133853*^9, 3.7456493214027357`*^9}, {
   3.7456507479382133`*^9, 3.745650749101879*^9}, {3.74565085311819*^9, 
   3.745650946291975*^9}, {3.745766074455529*^9, 3.745766074588695*^9}, {
   3.745817823956843*^9, 3.745817927323584*^9}, {3.745817966665299*^9, 
   3.745817991707251*^9}, {3.746105428042791*^9, 3.7461054758332853`*^9}, 
   3.746106486170124*^9, {3.778068810070662*^9, 3.778068816389135*^9}, {
   3.778071281902882*^9, 
   3.778071289940243*^9}},ExpressionUUID->"15cf0c6e-85bb-44a5-b43f-\
e1b5aa142f34"],

Cell[CellGroupData[{

Cell[TextData[{
 "In case the system is linear, we should have the relation ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "i"], "=", 
    RowBox[{
     RowBox[{"a", " ", 
      SubscriptBox["x", "i"]}], "+", "b"}]}], TraditionalForm]],
  ExpressionUUID->"0694ff1a-1c1e-45ea-853b-3cbb9bfce411"],
 ", but we sh0uld also take into account the error in the measurement ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "i"], "=", " ", 
    RowBox[{
     SubscriptBox["y", 
      RowBox[{"i", ",", " ", "true"}]], "+", " ", 
     SubscriptBox["e", 
      RowBox[{"y", ",", " ", 
       RowBox[{"error", " ", "in", " ", "y"}]}]]}]}], TraditionalForm]],
  ExpressionUUID->"f2639ec1-7de5-4dbf-a0d8-8339869a5660"],
 "."
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
   3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
   3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
   3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
   3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
   3.74559539914347*^9, 3.745595444107788*^9}, {3.74559600502468*^9, 
   3.745596125266101*^9}, {3.745648372256975*^9, 3.745648465723386*^9}, {
   3.7456486935273952`*^9, 3.7456486938302717`*^9}, {3.745648968954913*^9, 
   3.745649132002026*^9}, {3.74564925133853*^9, 3.7456493214027357`*^9}, {
   3.7456507479382133`*^9, 3.745650749101879*^9}, {3.74565085311819*^9, 
   3.745650946291975*^9}, {3.745766074455529*^9, 3.745766074588695*^9}, {
   3.745817823956843*^9, 3.745817927323584*^9}, {3.745817966665299*^9, 
   3.745817991707251*^9}, {3.746105428042791*^9, 3.7461054758332853`*^9}, 
   3.746106486170124*^9, {3.7780699606029987`*^9, 
   3.778070046218733*^9}},ExpressionUUID->"16871d28-01fe-4962-95a3-\
ca7406c278e1"],

Cell[TextData[{
 "Hence, ",
 Cell[BoxData[
  FormBox[
   RowBox[{"  ", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "  ", 
       SubscriptBox["x", "i"]}], "+", "b", "+", 
      SubscriptBox["e", "y"]}], " ", "=", " ", 
     SubscriptBox["y", "i"]}]}], TraditionalForm]],ExpressionUUID->
  "e15df975-d85f-4e15-9d17-2c5bb6fd575c"],
 ". "
}], "Subitem",
 CellChangeTimes->CompressedData["
1:eJwlz2kog3EAx/GnCe8cNaGMbe5iUhpiep7JGUsrhDfLUUJZrpR7KG+ICCNH
ORM5XsmVlZbIrGQhtGFjNkkrtFz/37z49nn95RVXS8tYFEXxSHDXsBPJN1oY
1SZbAC9SH4RQLlfHQS5/VgQp2RkN6VXN4+ujhZFUzr3B5c2ydzjU3fIFWQoz
HfJkYfb23RnoZTO2wUxdtgK+9tcthRI7smUbUKqVa2GN+koPf9dLnmAUnfQF
JSMPVBiRqu10gYKj6Sxo6lwsgkHxPbcM0R4c+wyr9GsuYuLwwJbD+T7/cKj0
aBdB0XlFFhTeR+TCC+dW12TiqHjGofBwhg2v8zO4cGNQkt9EHNFJHdZP/owP
EU8KnxchL/N8BeoHUrahk1ZmgKeCEhtszDHZYWnuv3enC8opfN0cj8OuxG9z
gNnCfCqbrbAuzeDJJc5zhGxYaVv7gFKd4RM2i93c+US3yzyHqo6xdGh9ic6A
PnZjjE+IlekJcE2ABYG3NPSeUDCwvIFzAE1HfmqYFPTN9SVqelk8+AfjVh3n

  "],ExpressionUUID->"c014a25f-74f2-46ed-a542-8573f5ba456c"],

Cell[TextData[{
 "In case the system is linear, we should have the relation\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"  ", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "  ", 
       SubscriptBox["x", "i"]}], "+", "b", "+", 
      SubscriptBox["e", "y"]}], " ", "=", " ", 
     SubscriptBox["y", "i"]}]}], TraditionalForm]],ExpressionUUID->
  "a66f07ab-0cc7-4fba-a93c-2e256ee6ab2e"],
 ",  where the measured value of ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["y", "i"], TraditionalForm]],ExpressionUUID->
  "6d750938-fedd-4edf-bfd5-a61706131a60"],
 " is assumed to be ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "i"], "=", " ", 
    RowBox[{
     SubscriptBox["y", 
      RowBox[{"i", ",", " ", "true"}]], "+", " ", 
     SubscriptBox["e", 
      RowBox[{"y", ",", " ", 
       RowBox[{"error", " ", "in", " ", "y"}]}]]}]}], TraditionalForm]],
  ExpressionUUID->"eebc5ab9-f024-461f-8142-6a3b5327fdbc"]
}], "Subitem",
 CellChangeTimes->CompressedData["
1:eJwlz1tIWnEAx/GDkb1VA6N6KM1KC8oxCLcoxzmOdSMlpAvVi82CqMGkG8Fc
LW0Qe4iiqCy6QFei6PIU1UbCiNgo3SJp0cJTmdewIVRIl/1/7uHL5/mb8Oad
qoZDUZSQBL+wm+lCu4cxrfEk8DDnXAq12u0XUCCckkFKvU9DemnP4XN4GGX9
9F+4sFZzDfs/fbiDHL2LFjk9zNetCAZG+e3tsMCq0ENfT9O8mNihUK9ClUVr
gQ3bRzb4uKJxwqf0yzuoHDynUohUo4ELJd8nCuGFYa4SJmV2nTDEQPJzN3xr
W+bKiQO960FnuuNToTHyowzKDuoKofQsrQQehraFvSIOySeDSncmefC4LF8A
V/uUZe+Jg1ZV0Oaxh5F+4m6Few4mFBwsQlvv6w0YYlGz0CzR+GFr0UUAVpf8
99Q8axzH158fI7Az+97Fd3mYW6POC5ty2ScC4kyclAfr/cs3UGVlb6FOHh4h
JIb/Lg1q6hjOg97LZ/kwJmDPiBF5mS5+WBYsTzyhYfSonoG1LXHfoONM/BP+
uvfyY4nFVTdJ0Gj9rIQL7FUx/AdBhSe1
  "],ExpressionUUID->"2276c2d4-8b16-4c4b-8bf7-fbeb02feed20"]
}, Open  ]],

Cell["\<\
This is not taking account a line that could be fully vertical (a = \
\[Infinity]), but in this case there would not be any relation between  x and \
y, as these would be independent. There would be no information in x to be \
able to produce the y.\
\>", "Item",
 CellChangeTimes->CompressedData["
1:eJwlz11IU3EAhvGD4rzTgklT0J1N0wKbBDGLuTxnUqa5EcMl5oXDD4gMHGYi
aJlTYVeSJOoaVuCcQxKnXih+hIKIFOkyHBZlO+7bTSUGKkPT/7suHn7Xj6iq
Xl0bQ1FUOgkucPPXxJ4guzTDl8Ctu24p1OlWbkJabJZDSvudgcz4mu/AF2RV
dcN/4ceZ2kPY2/XiBMboA0ymP8h+WkxkYVLY0waLHUo9PHjdOJpFbFdqJ6Ha
rrPDhpWfTng2Ue2HOcztE6jqd1NXiNSzDh6UfP5QAr0d1gqYccuwzRIjl3N3
4VOnjacg9vXMRrV0p12Fxguv5FC++aQESl3ZGrgV9zK+gDigGIoqXR3iw19l
RTScfKMqayH2O9RRn7/7Z+olfn20a4Wi4s0x6Oy5Mwdj7VoOrkuqw7D5gTcC
azT/3VkfMb7H1+8vJtiZdxoQBoLssbE1BBsLuYs00ZIq5cO6sO0Iqh3cMWxV
JCSKiQk/HkZdan97D4b2rhdBQcRzQ5AZYg3CeBksT99m4KVBPQsfN6UuQ58r
6xvcOA0Jk4kmWQoNzX8q78PxqWEltJgXS+H+dH45PAfY9C3S
  "],ExpressionUUID->"41e63eb5-826a-42be-a23c-c0e3d2ff7273"]
}, Open  ]],

Cell[CellGroupData[{

Cell["The prior distributions for a and b.", "Subsection",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
   3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
   3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
   3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
   3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
   3.7460154922469788`*^9, 3.74601550662527*^9}, {3.746019456029559*^9, 
   3.746019457381939*^9}, {3.746020051296958*^9, 3.74602006586586*^9}, {
   3.746213401336278*^9, 3.7462134204353523`*^9}, 
   3.778070714830615*^9},ExpressionUUID->"21609be6-4260-4567-ab07-\
1d53e0fb57ca"],

Cell[CellGroupData[{

Cell[TextData[{
 "For simplicity, one can assume as a prior that the slope and the intercept \
are  evenly distributed in an interval. ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", ",", 
    RowBox[{"b", " ", "\[Tilde]", 
     RowBox[{"Uniform", "[", " ", "]"}]}]}], TraditionalForm]],ExpressionUUID->
  "b82a505b-7205-4e3d-9ce8-34c25775fcff"],
 ".  "
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
   3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
   3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
   3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
   3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
   3.74559539914347*^9, 3.745595444107788*^9}, {3.74559600502468*^9, 
   3.745596125266101*^9}, {3.745648372256975*^9, 3.745648465723386*^9}, {
   3.7456486935273952`*^9, 3.7456486938302717`*^9}, {3.745648968954913*^9, 
   3.745649132002026*^9}, {3.74564925133853*^9, 3.7456493214027357`*^9}, {
   3.7456507479382133`*^9, 3.745650749101879*^9}, {3.74565085311819*^9, 
   3.745650946291975*^9}, {3.745766074455529*^9, 3.745766074588695*^9}, {
   3.745817823956843*^9, 3.745817927323584*^9}, {3.745817966665299*^9, 
   3.745818074174057*^9}, {3.745818379025392*^9, 3.745818523099464*^9}, {
   3.745818583197323*^9, 3.7458185831979237`*^9}, {3.7458403332441263`*^9, 
   3.7458403503707647`*^9}, {3.746103119913637*^9, 3.746103139893795*^9}, {
   3.7461034390399723`*^9, 3.746103457691119*^9}, {3.746105277529714*^9, 
   3.746105287057412*^9}, {3.746107512445616*^9, 3.746107514713996*^9}, {
   3.746107972828339*^9, 3.746107977560293*^9}, {3.777513295209957*^9, 
   3.777513372502213*^9}, {3.777513501778871*^9, 3.777513530937621*^9}, {
   3.7780706685540047`*^9, 3.778070687072699*^9}, {3.778174787118681*^9, 
   3.778174801357459*^9}, 3.778175695100046*^9, {3.8096499050870523`*^9, 
   3.809649958478569*^9}},ExpressionUUID->"b029f330-66d0-416f-8550-\
73b4a6842c11"],

Cell["One could take these to be Normal distributions.", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
   3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
   3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
   3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
   3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
   3.74559539914347*^9, 3.745595444107788*^9}, {3.74559600502468*^9, 
   3.745596125266101*^9}, {3.745648372256975*^9, 3.745648465723386*^9}, {
   3.7456486935273952`*^9, 3.7456486938302717`*^9}, {3.745648968954913*^9, 
   3.745649132002026*^9}, {3.74564925133853*^9, 3.7456493214027357`*^9}, {
   3.7456507479382133`*^9, 3.745650749101879*^9}, {3.74565085311819*^9, 
   3.745650946291975*^9}, {3.745766074455529*^9, 3.745766074588695*^9}, {
   3.745817823956843*^9, 3.745817927323584*^9}, {3.745817966665299*^9, 
   3.745818074174057*^9}, {3.745818379025392*^9, 3.745818523099464*^9}, {
   3.745818583197323*^9, 3.7458185831979237`*^9}, {3.7458403332441263`*^9, 
   3.7458403503707647`*^9}, {3.746103119913637*^9, 3.746103139893795*^9}, {
   3.7461034390399723`*^9, 3.746103457691119*^9}, {3.746105277529714*^9, 
   3.746105287057412*^9}, {3.746107512445616*^9, 3.746107514713996*^9}, {
   3.746107972828339*^9, 3.746107977560293*^9}, {3.777513295209957*^9, 
   3.777513372502213*^9}, {3.777513501778871*^9, 3.777513530937621*^9}, {
   3.7780706685540047`*^9, 3.778070687072699*^9}, {3.778174787118681*^9, 
   3.778174801357459*^9}, 3.778175695100046*^9, {3.8096499050870523`*^9, 
   3.809649935905883*^9}, {3.809649973827982*^9, 
   3.809649980159737*^9}},ExpressionUUID->"6dc66af7-7ce1-4028-9f21-\
715667c3ea43"],

Cell["\<\
Ofren the choice is done by the considering if one can do the integrations..\
\>", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
   3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
   3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
   3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
   3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
   3.74559539914347*^9, 3.745595444107788*^9}, {3.74559600502468*^9, 
   3.745596125266101*^9}, {3.745648372256975*^9, 3.745648465723386*^9}, {
   3.7456486935273952`*^9, 3.7456486938302717`*^9}, {3.745648968954913*^9, 
   3.745649132002026*^9}, {3.74564925133853*^9, 3.7456493214027357`*^9}, {
   3.7456507479382133`*^9, 3.745650749101879*^9}, {3.74565085311819*^9, 
   3.745650946291975*^9}, {3.745766074455529*^9, 3.745766074588695*^9}, {
   3.745817823956843*^9, 3.745817927323584*^9}, {3.745817966665299*^9, 
   3.745818074174057*^9}, {3.745818379025392*^9, 3.745818523099464*^9}, {
   3.745818583197323*^9, 3.7458185831979237`*^9}, {3.7458403332441263`*^9, 
   3.7458403503707647`*^9}, {3.746103119913637*^9, 3.746103139893795*^9}, {
   3.7461034390399723`*^9, 3.746103457691119*^9}, {3.746105277529714*^9, 
   3.746105287057412*^9}, {3.746107512445616*^9, 3.746107514713996*^9}, {
   3.746107972828339*^9, 3.746107977560293*^9}, {3.777513295209957*^9, 
   3.777513372502213*^9}, {3.777513501778871*^9, 3.777513530937621*^9}, {
   3.7780706685540047`*^9, 3.778070687072699*^9}, {3.778174787118681*^9, 
   3.778174801357459*^9}, 3.778175695100046*^9, {3.8096499050870523`*^9, 
   3.809649935905883*^9}, {3.809649973827982*^9, 
   3.8096500125050983`*^9}},ExpressionUUID->"b3375c49-b6aa-48af-aea1-\
2d6449988d04"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"bb643d10-79af-4367-8d5b-705db6954e3c"],

Cell[CellGroupData[{

Cell[TextData[{
 "The error distribution of y, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["e", 
    RowBox[{"y", " "}]], TraditionalForm]],ExpressionUUID->
  "53d61ada-05b4-42cf-8e28-7cb1fbb395b5"],
 "is assumed to be Gaussian  "
}], "Subsection",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
  3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
  3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
  3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
  3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
  3.7460154922469788`*^9, 3.74601550662527*^9}, {3.746019456029559*^9, 
  3.746019457381939*^9}, {3.746020051296958*^9, 3.74602006586586*^9}, {
  3.746213506024062*^9, 
  3.746213533657776*^9}},ExpressionUUID->"1ecf6e4e-64be-40dd-a043-\
285bd63adead"],

Cell[TextData[{
 "The measurement ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "i"], "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["y", 
        RowBox[{"true", " ", "value", " "}]], "+", " ", 
       SubscriptBox["e", "y"]}], "\[Implies]", 
      SubscriptBox["y", 
       RowBox[{"true", " ", "value", " "}]]}], "=", 
     RowBox[{
      SubscriptBox["y", "i"], " ", "-", 
      SubscriptBox["e", "y"], " "}]}]}], TraditionalForm]],ExpressionUUID->
  "bd75d387-5166-4a19-8cf5-5140c5dcad13"]
}], "Text",
 CellChangeTimes->{{3.746213577736126*^9, 
  3.74621364785463*^9}},ExpressionUUID->"db3ebcc0-299a-4510-99c4-\
41f91370508b"],

Cell[CellGroupData[{

Cell[TextData[{
 "As the priori error distribution ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["e", "y"], TraditionalForm]],ExpressionUUID->
  "ceee5d08-290e-42c0-9d65-70e4475b95ef"],
 " is assumed to be ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["e", "y"], "\[Tilde]", 
    RowBox[{"N", "[", " ", 
     RowBox[{"0", ",", "\[Sigma]"}], "]"}]}], TraditionalForm]],
  ExpressionUUID->"9d5f8c1f-8aa6-4415-8709-3fbc33ed707b"],
 " , hence for a single data point ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox["e", "y"], "=", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["y", "i"], "-", 
     SubscriptBox["y", 
      FormBox[
       RowBox[{"true", " ", "value", " "}],
       TraditionalForm]]}], " ", "=", "  ", 
    RowBox[{
     SubscriptBox["y", "i"], "-", 
     RowBox[{"a", " ", 
      SubscriptBox["x", "i"]}], "-", 
     RowBox[{"b", "~", 
      FormBox[
       RowBox[{
        RowBox[{"N", "[", " ", 
         RowBox[{"0", ",", "\[Sigma]"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{
           FractionBox["1", 
            RowBox[{"\[Sigma]", " ", 
             SqrtBox[
              RowBox[{"2", "\[Pi]"}]]}]], " ", 
           RowBox[{"Exp", "[", " ", 
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", 
               RowBox[{"2", 
                SuperscriptBox["\[Sigma]", "2"]}]]}], 
             SuperscriptBox[
              SubscriptBox["e", "y"], "2"]}], "]"}]}], "  ", "\[Implies]", 
          " ", 
          RowBox[{"p", "[", 
           RowBox[{"a", ",", 
            RowBox[{"b", "|", " ", 
             SubscriptBox["x", "i"]}], ",", 
            SubscriptBox["y", "i"]}], "]"}]}], "=", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"\[Sigma]", " ", 
            SqrtBox[
             RowBox[{"2", "\[Pi]"}]]}]], " ", 
          RowBox[{"Exp", "[", " ", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", 
              RowBox[{"2", 
               SuperscriptBox["\[Sigma]", "2"]}]]}], 
            SuperscriptBox[
             RowBox[{"(", " ", 
              RowBox[{
               SubscriptBox["y", "i"], "-", 
               RowBox[{"a", " ", 
                SubscriptBox["x", "i"]}], "-", "b"}], ")"}], "2"]}], 
           "]"}]}]}]}],
       TraditionalForm]}]}]}]}]],
  CellChangeTimes->{
   3.745818711416349*^9, {3.745818786644712*^9, 3.745818829434025*^9}, {
    3.7458403670014563`*^9, 3.745840392569387*^9}},ExpressionUUID->
  "778a81f3-7cae-4974-84c3-e4e7368b12e8"]
}], "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
   3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
   3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
   3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
   3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
   3.74559539914347*^9, 3.745595444107788*^9}, {3.74559600502468*^9, 
   3.745596125266101*^9}, {3.745648372256975*^9, 3.745648465723386*^9}, {
   3.7456486935273952`*^9, 3.7456486938302717`*^9}, {3.745648968954913*^9, 
   3.745649132002026*^9}, {3.74564925133853*^9, 3.7456493214027357`*^9}, {
   3.7456507479382133`*^9, 3.745650749101879*^9}, {3.74565085311819*^9, 
   3.745650946291975*^9}, {3.745766074455529*^9, 3.745766074588695*^9}, {
   3.745817823956843*^9, 3.745817927323584*^9}, {3.745817966665299*^9, 
   3.745818074174057*^9}, {3.745818379025392*^9, 3.745818412956208*^9}, {
   3.7458404005973253`*^9, 3.745840564000956*^9}, {3.745840597514501*^9, 
   3.7458406344108963`*^9}, {3.745840686933427*^9, 3.745840719309658*^9}, {
   3.745852794772172*^9, 3.745852794772367*^9}, {3.745854310576497*^9, 
   3.745854419754074*^9}, {3.745854458324868*^9, 3.745854463946063*^9}, {
   3.746106607324836*^9, 3.7461066319409246`*^9}, {3.746108048915738*^9, 
   3.7461080489175653`*^9}, {3.7461122127555*^9, 3.746112234704195*^9}, {
   3.7461149057840757`*^9, 3.746114950737172*^9}, {3.746115038975642*^9, 
   3.746115057359859*^9}, {3.746115106857478*^9, 3.7461151321028013`*^9}, {
   3.746115936596937*^9, 3.746115941644002*^9}, {3.746201782798676*^9, 
   3.746201783442648*^9}, {3.74621347146031*^9, 3.7462134875820427`*^9}, {
   3.746213669002851*^9, 3.74621367180523*^9}, {3.746758537965494*^9, 
   3.746758538441559*^9}, {3.747372932039907*^9, 3.74737297115466*^9}, {
   3.747373156451847*^9, 3.747373174379068*^9}, 3.778071502844563*^9, {
   3.7780715399820757`*^9, 3.778071559734193*^9}, {3.778071602605486*^9, 
   3.7780716269102497`*^9}, {3.778174844318009*^9, 3.778174844467642*^9}, {
   3.809650184127997*^9, 
   3.8096502028998623`*^9}},ExpressionUUID->"674c5090-0313-4a8f-b7dc-\
9236aeae98b6"],

Cell[" For all the data \[ScriptCapitalD] ", "Item",
 CellChangeTimes->CompressedData["
1:eJwlx00og3EAx/GniZUDK9yQyYZibkOa9kyUte3wlIjSol1Q1rwkwkxKDrLI
SzLLy1qLzApr3g/kJVq0JbEmG3s5SMpBa/x/j8O3T19+Syej4VAUlU2Chy8H
xbnBKH3qTBfBh5qAGGq152UwJ3dNAin1vRRKt27fP96jtKp9/RNuODXfcGZs
MAY5hrBUGIrSRyepNMz4Cg5DuVdpgB9T3bZ84ohS7YCMW+uGuvNHP/zdbg3B
EmllDKrmAlQBkeoaTYKiK7MCvo1am2Be+biPJv4ISiOww29PkhFnjS5Wy2R2
IVzg6SVQ4mlTQPFrUR18SBziVhHnZaus4ovVdPhUX5sDHdOq+gHinJdh7THF
F2eIN40RK+TLPZvQb6zehwlu9QuULZiCUJ6VtrJM9HD1u/C61+6CPKHyGK74
ns+gMxS+ZH+nYWudWLH3r01312Ehqvl9/ZDRyIehsCbOmqKJLPHDxMy4GTK2
5AsBcX6i+Qr+Ad39DvY=
  "],ExpressionUUID->"1f275fd3-6c17-4930-80c7-24f6ead2cfce"]
}, Open  ]],

Cell[TextData[Cell[BoxData[
 RowBox[{
  RowBox[{"p", "[", 
   RowBox[{"a", ",", 
    RowBox[{"b", "|", " ", "\[ScriptCapitalD]"}]}], "]"}], "\[Proportional]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"\[Sigma]", " ", 
       SqrtBox[
        RowBox[{"2", "\[Pi]"}]]}]], ")"}], "n"], " ", 
   RowBox[{"Exp", "[", " ", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", 
       RowBox[{"2", 
        SuperscriptBox["\[Sigma]", "2"]}]]}], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "1"}], "n"], 
      SuperscriptBox[
       RowBox[{"(", " ", 
        RowBox[{
         SubscriptBox["y", "i"], "-", 
         RowBox[{"a", " ", 
          SubscriptBox["x", "i"]}], "-", "b"}], ")"}], "2"]}]}], "]"}]}]}]],
 CellChangeTimes->{
  3.745818711416349*^9, {3.745818786644712*^9, 3.745818829434025*^9}, {
   3.7458403670014563`*^9, 
   3.745840392569387*^9}},ExpressionUUID->"788ac846-4d99-4076-b204-\
fc59802a608d"]], "Text",
 CellChangeTimes->{{3.746115176272057*^9, 3.7461152487691793`*^9}, {
  3.746120102305686*^9, 3.7461201326519938`*^9}, {3.746188370460246*^9, 
  3.746188372901339*^9}, {3.746188412908931*^9, 3.746188413309154*^9}, {
  3.746340514399287*^9, 3.746340516097475*^9}, {3.778071642362507*^9, 
  3.778071644882856*^9}, {3.778174841049285*^9, 
  3.778174841202421*^9}},ExpressionUUID->"2941dadf-a403-494a-b07c-\
34ccde75f18d"],

Cell["\<\
 Let us plot and see how this distribution looks like.  \
\[DoubleStruckCapitalP][x,y|\[Theta],b] as a function for a single point \
{x,y}\[NonBreakingSpace]\
\>", "Item",
 CellChangeTimes->CompressedData["
1:eJwlx2kog3EAx/GnyRGFcrxxZIuhHO+GmPZsUZZNPSWi9ERLoSxXIndKXsii
HcmRKy1yFNbcL8gRLZqW0GRjR5GUF9L4/x4vvn368qsbGRWPoigBCe497aYL
nF76yBSZAW2FDhFUq0+yYYJgXgwp9kYCJatXr++vXlpZv/ABl02qLzg+2PUD
ef1uidDlpfcPw2gY9ensgfJbRT98H20xJhP7FOwGZCxqC2w6ubPD3/UaF8yU
5P9Apc5BpRCp5oEAmHE+UwxfBpYqYWLO0CNN/E7K8sAG+1qAlKjVmDkXR+JT
oSG8VwzF1rpiKHpOK4U2/+5AGVEvneMUnc5FwvuyogS4MaYs6yTqbhnO1inf
xDjxssKzBPly6wq0awp2oJ+FfYJSw5QTyuMiZqeJ1sDeLXjRtmaG4ULFAZx9
fDiGJpf7jPvN8tUFYu72v8am64ZFIstv74CMSt4DhYU+zlCVZ5LvJsb6ZiBj
DD5NIuqHq84hK4imS4iGUocMCo/MtXDST18PpUEfjdAWolXDvLqYVvjm47XD
P7ABL+I=
  "],ExpressionUUID->"a5994580-19d2-4b71-bf0c-9b0426a530f6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetSystemOptions", "[", 
  RowBox[{"\"\<CheckMachineUnderflow\>\"", "\[Rule]", "False"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot3D", "[", " ", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox["1", 
         RowBox[{"\[Sigma]", " ", 
          SqrtBox[
           RowBox[{"2", "\[Pi]"}]]}]], ")"}], "3"], 
      RowBox[{"Exp", "[", " ", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"2", 
           SuperscriptBox["\[Sigma]", "2"]}]]}], 
        RowBox[{"Min", "[", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", " ", 
            RowBox[{"y", "-", 
             RowBox[{"a", " ", "x"}], "-", "b"}], ")"}], "2"], ",", "200"}], 
         "]"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{
     "PlotLabel", "\[Rule]", 
      "\"\<\[DoubleStruckCapitalP][x,y|a,b]=\!\(\*FractionBox[\(1\), \(\
\[Sigma]\\\ \*SqrtBox[\(2  \[Pi]\)]\)]\) Exp[ -\!\(\*FractionBox[\(1\), \(2 \
\*SuperscriptBox[\(\[Sigma]\), \(2\)]\)]\)( y-a -b\!\(\*SuperscriptBox[\()\), \
\(2\)]\)]\>\""}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y"}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "2"}], "}"}], ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Sigma]", ",", "0.7"}], "}"}], ",", "0.4", ",", "1"}], 
    "}"}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQHbyv9t7SF68de02E34LoqnsuHMuA9ONt98D0uafl
ixRfvna0miy8FER/nCC4DkTPy23fCKK7pQqsNYB03zMhBxCtKGzh4Q+kA67U
+4LoI/HuwSB63Y4f0SA6SVFfMgBIX9/YIwei+bdPUALRswxnqoJou1eHIi/J
vnGsvaUcBaILmzjWgejGJQ3rQfQUIfE+SbU3jltscueA6GNbvRaD6Dk3f4Lp
Pd7/NoJoFfa5O0H0+nvx+0C0+9ciMN13PPgQiP61oxhMp7vJ3pcG0jwTeh+C
6D37K9hkgLQT8xownfXm/GdvIN1UkPUFRH8XTpjhA6T/eZwD0wB4XKF0
  "],
 CellLabel->
  "In[133]:=",ExpressionUUID->"380077c2-03d9-44ae-83a2-20b49fc9fb38"],

Cell[BoxData[
 RowBox[{"\<\"CheckMachineUnderflow\"\>", "\[Rule]", "False"}]], "Output",
 CellChangeTimes->{{3.7458532380908613`*^9, 3.745853260016185*^9}, 
   3.745853290365386*^9, 3.745853515016479*^9, 3.746102782571834*^9, {
   3.746106645456256*^9, 3.746106666060212*^9}, {3.74610674693054*^9, 
   3.746106765611515*^9}, {3.7461201651505623`*^9, 3.746120194678275*^9}, 
   3.746200293320694*^9, {3.74620181075004*^9, 3.746201846752391*^9}, 
   3.7462019021966352`*^9, 3.746758742974972*^9, 3.7467626658525553`*^9, 
   3.747058665089354*^9, 3.77113880963326*^9, 3.773731562484416*^9, 
   3.773732227696257*^9, 3.777346253855143*^9, 3.778071709595933*^9, {
   3.778071764001752*^9, 3.7780718051852217`*^9}, 3.7780718429353657`*^9, 
   3.7780720172322407`*^9, 3.7780720546989613`*^9, {3.7780764140170794`*^9, 
   3.778076430891824*^9}, 3.7780767274168997`*^9, 3.778174888988618*^9, 
   3.7781762006644077`*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"4bdd79cd-02c5-4098-bae6-0cfa0cfce766"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = -1.7200000000000006`, \
$CellContext`b$$ = -0.7449999999999999, $CellContext`\[Sigma]$$ = 0.7, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 2}, -10, 10}, {{
       Hold[$CellContext`b$$], 0}, -2, 2}, {{
       Hold[$CellContext`\[Sigma]$$], 0.7}, 0.4, 1}}, Typeset`size$$ = {
    600., {310., 320.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$8693336$$ = 
    0, $CellContext`b$8693337$$ = 0, $CellContext`\[Sigma]$8693338$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 2, $CellContext`b$$ = 
        0, $CellContext`\[Sigma]$$ = 0.7}, "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$8693336$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$8693337$$, 0], 
        Hold[$CellContext`\[Sigma]$$, $CellContext`\[Sigma]$8693338$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot3D[(1/($CellContext`\[Sigma]$$ Sqrt[2 Pi]))^3 
        Exp[(-(1/(2 $CellContext`\[Sigma]$$^2))) 
          Min[($CellContext`y - $CellContext`a$$ $CellContext`x - \
$CellContext`b$$)^2, 200]], {$CellContext`x, -3, 3}, {$CellContext`y, -3, 3}, 
        PlotRange -> All, PlotLabel -> 
        "\[DoubleStruckCapitalP][x,y|a,b]=\!\(\*FractionBox[\(1\), \(\[Sigma]\
\\ \*SqrtBox[\(2  \[Pi]\)]\)]\) Exp[ -\!\(\*FractionBox[\(1\), \(2 \
\*SuperscriptBox[\(\[Sigma]\), \(2\)]\)]\)( y-a -b\!\(\*SuperscriptBox[\()\), \
\(2\)]\)]", AxesLabel -> {$CellContext`x, $CellContext`y}, ImageSize -> 300], 
      "Specifications" :> {{{$CellContext`a$$, 2}, -10, 
         10}, {{$CellContext`b$$, 0}, -2, 2}, {{$CellContext`\[Sigma]$$, 0.7},
          0.4, 1}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{684., {418., 430.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7458532380908613`*^9, 3.745853260016185*^9}, 
   3.745853290365386*^9, 3.745853515016479*^9, 3.746102782571834*^9, {
   3.746106645456256*^9, 3.746106666060212*^9}, {3.74610674693054*^9, 
   3.746106765611515*^9}, {3.7461201651505623`*^9, 3.746120194678275*^9}, 
   3.746200293320694*^9, {3.74620181075004*^9, 3.746201846752391*^9}, 
   3.7462019021966352`*^9, 3.746758742974972*^9, 3.7467626658525553`*^9, 
   3.747058665089354*^9, 3.77113880963326*^9, 3.773731562484416*^9, 
   3.773732227696257*^9, 3.777346253855143*^9, 3.778071709595933*^9, {
   3.778071764001752*^9, 3.7780718051852217`*^9}, 3.7780718429353657`*^9, 
   3.7780720172322407`*^9, 3.7780720546989613`*^9, {3.7780764140170794`*^9, 
   3.778076430891824*^9}, 3.7780767274168997`*^9, 3.778174888988618*^9, 
   3.7781762007428093`*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"6af49586-6585-4a43-a4e5-4583fff4aa38"]
}, {3}]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetSystemOptions", "[", 
  RowBox[{"\"\<CheckMachineUnderflow\>\"", "\[Rule]", "True"}], 
  "]"}]], "Input",
 CellLabel->"In[39]:=",ExpressionUUID->"04c2b65c-84a3-49cb-b7b4-b473db809751"],

Cell[BoxData[
 RowBox[{"\<\"CheckMachineUnderflow\"\>", "\[Rule]", "True"}]], "Output",
 CellChangeTimes->{3.773731613959831*^9, 3.778071862681892*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"751a1fdf-485e-4df2-a4fc-a702233eb5bc"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"3d0e105f-a6cf-4e54-b1bf-61135b1d397e"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{
  3.7711388644522123`*^9},ExpressionUUID->"54478e21-8030-46f7-b170-\
f75ee5f59f1c"],

Cell[CellGroupData[{

Cell["\<\
We cannot go further without data. Let us simulate the corresponding data set \
\>", "Subsection",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
  3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
  3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
  3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
  3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
  3.7460154922469788`*^9, 3.74601550662527*^9}, {3.746019456029559*^9, 
  3.746019457381939*^9}, {3.746020051296958*^9, 3.74602006586586*^9}, {
  3.746213506024062*^9, 3.746213533657776*^9}, {3.7462375482408657`*^9, 
  3.7462375649334507`*^9}, {3.746237797590193*^9, 
  3.746237807848271*^9}},ExpressionUUID->"e5d772e6-0ed7-4996-b4c0-\
ea417fdb9273"],

Cell[CellGroupData[{

Cell[TextData[{
 " Let \[ScriptCapitalD] be a data set of points ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["x", "i"], ",", 
    SubscriptBox["y", "i"]}], "}"}]],
  CellChangeTimes->{{3.746103507941225*^9, 3.746103527115837*^9}, {
   3.746106504437065*^9, 3.746106537235641*^9}},ExpressionUUID->
  "b7c00627-6161-4935-9ce7-d2b9e2930792"],
 ", where ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    RowBox[{"i", " "}]], TraditionalForm]],ExpressionUUID->
  "877bdc91-9c99-4939-a444-ec183035c13c"],
 " is set of random points and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", 
     RowBox[{"i", " "}]], " "}], TraditionalForm]],ExpressionUUID->
  "ae5713f3-aa8b-4b9e-8d27-b89ba6b3139b"],
 "is the corresponding ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "i"], "=", 
    RowBox[{
     RowBox[{"a", " ", 
      SubscriptBox["x", "i"]}], "+", " ", "b", " ", "+", " ", 
     SubscriptBox["e", "y"]}]}], TraditionalForm]],ExpressionUUID->
  "882dcd8f-34fc-42d4-8a01-20a4608a30c5"],
 " value with Gaussian error ",
 Cell[BoxData[
  RowBox[{"\[ScriptCapitalD]", "=", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["x", "i"], ",", 
     FormBox[
      RowBox[{
       RowBox[{"a", " ", 
        SubscriptBox["x", "i"]}], "+", " ", "b", " ", "+", " ", 
       SubscriptBox["e", "y"]}],
      TraditionalForm]}], "}"}]}]],ExpressionUUID->
  "aa6465ac-637a-4e1e-bc43-109333c3f6b7"],
 "   "
}], "Item",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
   3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
   3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
   3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
   3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
   3.74559539914347*^9, 3.745595444107788*^9}, {3.74559600502468*^9, 
   3.745596125266101*^9}, {3.745648372256975*^9, 3.745648465723386*^9}, {
   3.7456486935273952`*^9, 3.7456486938302717`*^9}, {3.745648968954913*^9, 
   3.745649132002026*^9}, {3.74564925133853*^9, 3.7456493214027357`*^9}, {
   3.7456507479382133`*^9, 3.745650749101879*^9}, {3.74565085311819*^9, 
   3.745650946291975*^9}, {3.745766074455529*^9, 3.745766074588695*^9}, {
   3.745817823956843*^9, 3.745817927323584*^9}, {3.745817966665299*^9, 
   3.745818074174057*^9}, {3.745818379025392*^9, 3.745818412956208*^9}, {
   3.7458404005973253`*^9, 3.745840564000956*^9}, {3.745840597514501*^9, 
   3.7458406344108963`*^9}, {3.745840686933427*^9, 3.745840719309658*^9}, {
   3.745852794772172*^9, 3.745852794772367*^9}, {3.745854310576497*^9, 
   3.745854419754074*^9}, {3.745854458324868*^9, 3.745854463946063*^9}, {
   3.746106607324836*^9, 3.7461066319409246`*^9}, {3.746115136333291*^9, 
   3.746115154954418*^9}, {3.746200072691696*^9, 3.746200095135449*^9}, {
   3.7462003818360777`*^9, 3.746200412750441*^9}, {3.746200447532258*^9, 
   3.746200452688946*^9}, {3.746200488856718*^9, 3.7462005120936193`*^9}, {
   3.746200586017995*^9, 3.746200727051421*^9}, {3.746200776148633*^9, 
   3.7462007801012487`*^9}, {3.74620093441047*^9, 3.7462011409245462`*^9}, {
   3.746201721590571*^9, 3.746201721596241*^9}, 3.777363710141913*^9, {
   3.778077133431155*^9, 3.778077241373439*^9}, {3.778077287318961*^9, 
   3.778077362570907*^9}, {3.7781758169768143`*^9, 3.778175816976966*^9}, {
   3.778176153486887*^9, 
   3.7781761616528893`*^9}},ExpressionUUID->"6cfc79f2-2e44-449a-bf47-\
21a17f9b885d"],

Cell["Below is the a dynamic plot of it.", "Item",
 CellChangeTimes->CompressedData["
1:eJwlx11IU3EAhvHDTI2CFD+6ycINPSnovFtJTc6ZJDjclAOiGMQhGcEmOixD
itQ5gugi8iO3KVNRJzKMqWCNqekuHGuijGRjiMlWW+4DEhG8CFn939PFw49H
/LiL04goiqJJcCOyXimJpVi3s0AKQ3VRGdTrPXdhsWRODil+n4GMY+/45DjF
qnW2U7jo1JzD0devLqBoMMHQ8RT7ZSuHhYVnsX6oDKoG4cn7Z/bbRIOKX4Gc
X++H3Z6DMPy73B6HVUzNBVSbolQZkXpqzIJS33QD/GVceAhLqt8cscQ/pXeS
sCO8lKUgjg25BOff3SqHltwBOZQHtA1Q9rOiGYYy+7JriWbFrKDMO1sAD1vq
i+HKiLrlJdEU5AR7JtMTo8TdtuQCFCsDH2F46MEazPDzEaiwTMag8mb+zBQx
kD3wCe48X3LBXFq1CWeOvm9DZzzxVfjVVoeNeO/zf+3d3zrmiby49wXkNMp+
SNelBa9pklZxgliUnoac/Yq3lGh++8gHecl1tpFoaY7WQtrtegKtGWYdVFw+
7YKhq2N6eF97owf+Tot6oXaEMcAaW2QYjrsvWWCn3Cg4LNldhD8+WD0waKrO
aSK6Mq158B8s91MF
  "],ExpressionUUID->"664f0333-072d-4a71-be47-2b100e774957"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[ScriptCapitalD]2", " ", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", " ", 
         RowBox[{"\[ImaginaryI]", " ", "a"}]}], ")"}], " ", 
       RowBox[{"RandomVariate", "[", "\[NonBreakingSpace]", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"0", ",", "1"}], "]"}], ",", "100"}], "]"}]}], " ", "+", 
      " ", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"RandomVariate", "[", " ", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{"0", ",", "\[Sigma]"}], "]"}], ",", "100"}], "]"}], "+", 
         "b"}], ")"}]}]}]}], ";", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ContourPlot", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"y", "-", 
            RowBox[{"(", 
             RowBox[{"b", "+", " ", 
              RowBox[{"a", " ", "x"}]}], ")"}]}], " ", "\[Equal]", "0"}], ",",
           " ", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", 
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], ",", 
        RowBox[{"ListPlot", "[", " ", 
         RowBox[{
          RowBox[{"ReIm", "[", " ", "\[ScriptCapitalD]2", "]"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Sigma]", ",", "0.2"}], "}"}], ",", "0.01", ",", "0.5"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"ContinuousAction", "\[Rule]", "False"}], ",", 
   RowBox[{"TrackedSymbols", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"a", ",", "\[Sigma]", ",", "b"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQfUj3cavri9eOfm/KukC0e9iiPhDNY7e1H0RfeDRj
KojOei0xG0SbmD+fB6KXNbGsAtFvV5/YBKItnlwB0wuO1jwA0SrnHj0C0bdz
P6f7AGkB0znZIFrnBHcBiK7VNywG0X8eahj4AuknMZfB9BsJ1QAQLXGuIxBE
X7adfMn/5WvHWdGV90G0zAOWdyD63JXzYDrD9s5/EH2NcQ1bAJCeqLFSC0Q/
qnQxA9GCH6v+Sau9cezcPJ9FBkif1fXgBtEf+X3BtNMFnbsgWsC65SGINtz8
5TeIXvZwJqMskD61/1qbD5BWmBk3CUQDAJO7oq8=
  "],
 CellLabel->
  "In[132]:=",ExpressionUUID->"6593c66d-8dca-4dd6-90d7-9a81694ede8d"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 
    1.040000000000001, $CellContext`b$$ = -0.26, $CellContext`\[Sigma]$$ = 
    0.2805, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1}, -10, 10}, {{
       Hold[$CellContext`\[Sigma]$$], 0.2}, 0.01, 0.5}, {{
       Hold[$CellContext`b$$], 0}, -2, 2}}, Typeset`size$$ = {
    600., {285., 296.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$8692309$$ = 
    0, $CellContext`\[Sigma]$8692310$$ = 0, $CellContext`b$8692311$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`b$$ = 
        0, $CellContext`\[Sigma]$$ = 0.2}, "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$8692309$$, 0], 
        Hold[$CellContext`\[Sigma]$$, $CellContext`\[Sigma]$8692310$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$8692311$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`\[ScriptCapitalD]2 = (1 + I $CellContext`a$$) 
          RandomVariate[
            NormalDistribution[0, 1], 100] + I (RandomVariate[
             NormalDistribution[0, $CellContext`\[Sigma]$$], 
             100] + $CellContext`b$$); Show[{
          
          ContourPlot[$CellContext`y - ($CellContext`b$$ + $CellContext`a$$ \
$CellContext`x) == 0, {$CellContext`x, -1, 1}, {$CellContext`y, -1, 1}], 
          ListPlot[
           ReIm[$CellContext`\[ScriptCapitalD]2], 
           PlotRange -> {{-1, 1}, {-1, 1}}]}, ImageSize -> 300]), 
      "Specifications" :> {{{$CellContext`a$$, 1}, -10, 
         10}, {{$CellContext`\[Sigma]$$, 0.2}, 0.01, 
         0.5}, {{$CellContext`b$$, 0}, -2, 2}}, 
      "Options" :> {
       ContinuousAction -> False, 
        TrackedSymbols -> {
         0.1821609521620313, $CellContext`\[Sigma]$$, $CellContext`b$$}}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{684., {394., 405.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.745655985123209*^9, 3.7456560257887774`*^9, {3.74565610293192*^9, 
   3.745656144914373*^9}, 3.7456562157979*^9, 3.745656600990388*^9, {
   3.745669983015161*^9, 3.7456700442448177`*^9}, 3.745671568713262*^9, 
   3.7456718247800903`*^9, 3.74574349714683*^9, 3.746201342358039*^9, 
   3.746201489489489*^9, {3.746201620504344*^9, 3.7462016539227467`*^9}, {
   3.7462019725357237`*^9, 3.746201990267173*^9}, {3.746202024281639*^9, 
   3.7462020422135963`*^9}, 3.746758695743123*^9, 3.7467611471210947`*^9, 
   3.746761197233873*^9, 3.746762676304099*^9, 3.747058684683928*^9, 
   3.777644409880245*^9, 3.778076767854372*^9, 3.778078537054427*^9, 
   3.778078737096303*^9, 3.778078816235083*^9, 3.778176061517425*^9, {
   3.778176106079632*^9, 3.778176166496992*^9}},
 CellLabel->
  "Out[132]=",ExpressionUUID->"557333f5-7215-4143-b3b7-0d6868b0fecc"]
}, {2}]],

Cell["\<\
The a posteriori distribution is \[DoubleStruckCapitalP][a,b| \
\[ScriptCapitalD]]  is plotted below in terms of {a,b}. \
\>", "Item",
 CellChangeTimes->CompressedData["
1:eJwlx11IU2EAh/HDNE2DFLJuyrENPRmU3c2iJudMshpuwSExCuRkjGCKG9ZC
Cr82gugiUpduxVS0iQy/kqwxLd1FwwxjFZMRJVtuuS8SEboImb7/t4uHH4+8
wSjoJQzDlJHgu8j8KUUsxfs8ReUwVB1VQpPJfwbKFC9VkBG/cZCb+ryxuZHi
dY2uLTju0f+FtodtO1BiSXBsPMW/Xyzg4eHtWAfUrGotcPPpXfdxYpdWnIFC
wBSALf7vYbj76lYcnuYqd6CuP8qUEZk71hxYvjxUA39bx27AkrOP1njiv9KK
JGwKT+eoiX3dXuroE+kJ6CjsVEFV0FADlesna2FoX3tuFdGuHqEql0aK4I+6
yzI406ure0DsXxWo5oHMCxtx5XpyDMo1wQkY7r4wB7MCYgSqHQMxqCk+NDxI
DOZ2voGf7k17YSGrXYDDaz8/QE888ZH+7LUpF/Hc2/+6W742jRJFeet9KOg1
HZCtzlAP6pNOeYJ4LDMEBXf+UinR/rh+GYqKI/wVoqM2WgVZn/c2dGbZG6F6
/5YRhg70meB5w1Ez/JORtEJDL9cFK12RHvjcl+2AzSortUexMg5/PXP6YfpL
m9FGzKtfp1quXgwvlKR5LnGJ+vqmWSZl0/yk1EfdA+EwY3U=
  "],ExpressionUUID->"f6ad1486-6520-4ffb-b62b-e7936f977b8b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptCapitalD]", " ", "=", " ", 
   RowBox[{"RandomVariate", "[", "\[NonBreakingSpace]", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"0", ",", "1"}], "]"}], ",", "100"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ey", "=", 
   RowBox[{"RandomVariate", "[", " ", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"0", ",", 
       RowBox[{"1", "/", "10"}]}], "]"}], ",", "100"}], "]"}]}], ";", " ", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"\[ScriptCapitalD]1", " ", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"\[ImaginaryI]", " ", "at"}]}], ")"}], 
        "\[ScriptCapitalD]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "bt"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "ey"}]}]}], ";", 
     RowBox[{"data", " ", "=", " ", 
      RowBox[{"ReIm", "[", " ", "\[ScriptCapitalD]1", "]"}]}], ";", 
     RowBox[{"loss", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           FractionBox["1", 
            RowBox[{"2", 
             SuperscriptBox["\[Sigma]", "2"]}]], 
           RowBox[{"(", 
            SuperscriptBox[
             RowBox[{"(", " ", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"a", " ", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "+", "b"}], ")"}]}], 
              ")"}], "2"], " ", ")"}]}], "&"}], " ", "/@", 
         "\[NonBreakingSpace]", "data"}], " ", "//", "Total"}], " ", "//", 
       "Simplify"}]}], ";", 
     RowBox[{"Quiet", "[", 
      RowBox[{"Plot3D", "[", 
       RowBox[{
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox["1", 
            RowBox[{"\[Sigma]", " ", 
             SqrtBox[
              RowBox[{"2", "\[Pi]"}]]}]], ")"}], "3"], 
         RowBox[{"Exp", "[", 
          RowBox[{"-", 
           RowBox[{"Min", "[", 
            RowBox[{"loss", ",", "200"}], "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", 
          RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"b", ",", 
          RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{
        "PlotLabel", "\[Rule]", 
         "\"\<p[a,b| \[ScriptCapitalD]]=(\!\(\*FractionBox[\(1\), \
\(\[Sigma]\\\ \*SqrtBox[\(2  \[Pi]\)]\)]\)\!\(\*SuperscriptBox[\()\), \
\(n\)]\) Exp[ -\!\(\*FractionBox[\(1\), \(2 \*SuperscriptBox[\(\[Sigma]\), \
\(2\)]\)]\)\!\(\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \
\(n\)]\)(\!\(\*SubscriptBox[\(y\), \(i\)]\)-(a \!\(\*SubscriptBox[\(x\), \
\(i\)]\) +b)\!\(\*SuperscriptBox[\()\), \(2\)]\)]\>\""}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<a\>\"", ",", "\"\<b\>\""}], "}"}]}], ",", 
        RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"at", ",", "1"}], "}"}], ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Sigma]", ",", "8"}], "}"}], ",", "0.1", ",", "16"}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"bt", ",", "1"}], "}"}], ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
    RowBox[{"ContinuousAction", "\[Rule]", "False"}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "run", " ", "this", " ", "to", " ", "see", " ", "the", " ", "graphics"}], 
   " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.74611882214398*^9, 3.746118825365952*^9}, {
   3.746119200468794*^9, 3.7461192156198883`*^9}, {3.746119262117532*^9, 
   3.746119338191625*^9}, {3.7461194626382837`*^9, 3.746119573873371*^9}, {
   3.746119654739459*^9, 3.746119679151177*^9}, {3.746119721571083*^9, 
   3.746119747991189*^9}, {3.74618634874671*^9, 3.746186355007165*^9}, {
   3.7461866877492657`*^9, 3.746186734101471*^9}, {3.746187292555691*^9, 
   3.746187315923059*^9}, {3.7461875231402187`*^9, 3.7461875525746727`*^9}, {
   3.746187583972743*^9, 3.746187584632876*^9}, {3.7461876436147127`*^9, 
   3.746187645678684*^9}, {3.74618783392916*^9, 3.746187838341502*^9}, {
   3.746187911006584*^9, 3.74618792610292*^9}, {3.746187970435246*^9, 
   3.7461879747973003`*^9}, {3.746188125615666*^9, 3.7461881257962008`*^9}, 
   3.746188168029607*^9, 3.746188481705678*^9, {3.746196905360214*^9, 
   3.746197011287038*^9}, {3.746197072056275*^9, 3.7461971362020473`*^9}, {
   3.746197317425652*^9, 3.7461973478534403`*^9}, {3.7461973807999887`*^9, 
   3.7461974052647753`*^9}, {3.746197531480459*^9, 3.7461975327382174`*^9}, {
   3.746197576896371*^9, 3.7461975786263533`*^9}, {3.746197611537731*^9, 
   3.746197645078712*^9}, 3.746197738587624*^9, {3.746197861123027*^9, 
   3.7461978629577417`*^9}, {3.7461979069451513`*^9, 
   3.7461979523127747`*^9}, {3.746198006428422*^9, 3.746198097186056*^9}, {
   3.74620210507416*^9, 3.746202105615374*^9}, 3.7462021384863358`*^9, {
   3.746202207132815*^9, 3.746202246435087*^9}, {3.773732260653728*^9, 
   3.773732266571056*^9}, {3.773732308872477*^9, 3.773732315959485*^9}, {
   3.77373234699767*^9, 3.7737323832648687`*^9}, {3.778078973782962*^9, 
   3.778079067622141*^9}, {3.778079112523829*^9, 3.778079115828196*^9}, {
   3.778079189812128*^9, 3.778079251976739*^9}, {3.778079289573744*^9, 
   3.778079304446748*^9}, {3.778079344512607*^9, 3.778079345170485*^9}, {
   3.778079375990613*^9, 3.778079420573065*^9}, {3.778079457439137*^9, 
   3.7780794810483227`*^9}, {3.7780795583851337`*^9, 3.778079587068345*^9}, {
   3.778079998398238*^9, 3.778080040277293*^9}, {3.778080442457904*^9, 
   3.7780804444243*^9}, {3.778080533169516*^9, 3.778080574757428*^9}, {
   3.778080946077565*^9, 3.778080963559355*^9}, 3.778081269418082*^9, 
   3.778081388193103*^9, {3.7780818710898457`*^9, 3.778081881399621*^9}, {
   3.7780819162063103`*^9, 3.7780819603933363`*^9}, {3.7780820194131737`*^9, 
   3.778082026262814*^9}, {3.7780820723437643`*^9, 3.778082094326933*^9}, {
   3.778167436800096*^9, 3.7781674466199017`*^9}, {3.778171315928595*^9, 
   3.778171337396901*^9}, {3.778171368417583*^9, 3.7781713851435127`*^9}, {
   3.778171426506171*^9, 3.778171426893293*^9}, {3.778174920235252*^9, 
   3.77817493082051*^9}, {3.778175882384945*^9, 3.778175895713581*^9}, {
   3.778175930682311*^9, 3.778175961343543*^9}, 3.778176000083272*^9, {
   3.809633469839703*^9, 3.809633471297576*^9}, 3.809658113626028*^9, {
   3.809670127578642*^9, 3.8096701378417463`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"cfe69aa9-bda4-4948-93a0-07ad9e640278"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`at$$ = 1, $CellContext`bt$$ = 
    1, $CellContext`\[Sigma]$$ = 8, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`at$$], 1}, -2, 2}, {{
       Hold[$CellContext`\[Sigma]$$], 8}, 0.1, 16}, {{
       Hold[$CellContext`bt$$], 1}, -2, 2}}, Typeset`size$$ = {
    600., {286., 296.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`at$$ = 1, $CellContext`bt$$ = 
        1, $CellContext`\[Sigma]$$ = 8}, "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`\[ScriptCapitalD]1 = (1 + 
           I $CellContext`at$$) $CellContext`\[ScriptCapitalD] + 
         I $CellContext`bt$$ + I $CellContext`ey; $CellContext`data = 
        ReIm[$CellContext`\[ScriptCapitalD]1]; $CellContext`loss = Simplify[
          Total[
           
           Map[(1/(2 $CellContext`\[Sigma]$$^2)) (
              Part[#, 2] - ($CellContext`a 
               Part[#, 1] + $CellContext`b))^2& , $CellContext`data]]]; Quiet[
         Plot3D[(1/($CellContext`\[Sigma]$$ Sqrt[2 Pi]))^3 
          Exp[-Min[$CellContext`loss, 200]], {$CellContext`a, -5, 
           5}, {$CellContext`b, -5, 5}, PlotRange -> All, PlotLabel -> 
          "p[a,b| \[ScriptCapitalD]]=(\!\(\*FractionBox[\(1\), \(\[Sigma]\\ \
\*SqrtBox[\(2  \[Pi]\)]\)]\)\!\(\*SuperscriptBox[\()\), \(n\)]\) Exp[ \
-\!\(\*FractionBox[\(1\), \(2 \*SuperscriptBox[\(\[Sigma]\), \
\(2\)]\)]\)\!\(\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \
\(n\)]\)(\!\(\*SubscriptBox[\(y\), \(i\)]\)-(a \!\(\*SubscriptBox[\(x\), \
\(i\)]\) +b)\!\(\*SuperscriptBox[\()\), \(2\)]\)]", AxesLabel -> {"a", "b"}, 
          ImageSize -> 300]]), 
      "Specifications" :> {{{$CellContext`at$$, 1}, -2, 
         2}, {{$CellContext`\[Sigma]$$, 8}, 0.1, 
         16}, {{$CellContext`bt$$, 1}, -2, 2}}, 
      "Options" :> {ContinuousAction -> False}, "DefaultOptions" :> {}],
     ImageSizeCache->{684., {394., 406.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.778167080654582*^9, 3.778167469715461*^9, 3.778171339766254*^9, 
   3.778171388109002*^9, 3.778171430843863*^9, 3.7781749534234667`*^9, {
   3.778175898148609*^9, 3.778175904970955*^9}, {3.77817594352754*^9, 
   3.77817601193077*^9}, 3.80963347316674*^9, {3.8096580898455276`*^9, 
   3.809658116912203*^9}, 3.809665558045518*^9, 3.809670164149679*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"7a922c45-e676-4428-9cc8-5dd634d0f4b6"]
}, Open  ]],

Cell[TextData[{
 "Let us look at the distribution ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Exp", "[", " ", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", 
       RowBox[{"2", 
        SuperscriptBox["\[Sigma]", "2"]}]]}], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "1"}], "n"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["y", "i"], "-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], 
       "2"]}]}], "]"}], "  "}]],
  CellChangeTimes->{
   3.745818711416349*^9, {3.745818786644712*^9, 3.745818829434025*^9}, {
    3.7458403670014563`*^9, 3.745840392569387*^9}},ExpressionUUID->
  "a3b68117-800f-496f-8785-19a5531c4f1a"],
 "a bit closer."
}], "Item",
 CellChangeTimes->CompressedData["
1:eJwtx29IE3EAh/FjlguLJrRE0GQbeRWZvVuGTe5mCa5twUCMgjiKFUzJYRlS
mNMRRC8iN9OtmMlsIsPQltlYmY1o2GIxksmIks023R9JpDAIufp9r148fHjk
59sMRhFFUQdJcCb56pAinWeDfmk1jDeklNBsDtVAmeKxClLcPAOZiY8rayt5
Vt/iWYfjfuMG7L/VtQlFvVmGzuTZ128kLNz9I90NNQu6Xrh276p3H7FHx/mg
IWqOwvbQ5wT88/RCBh5m6jahfjBF7SdSV6yFsDo8rIXL1rGzcO/R24ss8Xfl
kRxsTUwWqokDfQHB0bsVB6Cz2KKCqphJC5XfqppgfOtNcT3RoR4RVM6NSOGX
5kYZ9Nn1zTeIgwsGwY4h/mE/MXImNwblmtgTmOg78RIWRLkkVDuH0lCzZ5f7
ETEmtkzDD9cmA7CY1s1C9+LXd9Cfyb4X/vnpCQ+x9sU/ve2fWkeJnLzzOjQY
Nd2QbuAFdxpzLnmWWM4PQ4O3aK6S6LhzLgw5RQl7iuhsStVDOhi4BF0Fjhao
3rbeBuPbB8zwmKmsA37nRZ3QZGd6YJ0naYMPgluc8LLKKmhTRMbh0n1XCFZM
u8W50lX2onhWAmf885JGepW1vT1eApctG6yGKA0zarjjp5c/SfT9t6ZW9kxL
LO9amoIReyYIq8p+Cf4F8yB40w==
  "],ExpressionUUID->"f8107099-930b-4b94-b314-df504b7e376b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptCapitalD]", " ", "=", " ", 
   RowBox[{"RandomVariate", "[", "\[NonBreakingSpace]", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"0", ",", "1"}], "]"}], ",", "100"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ey", "=", 
   RowBox[{"RandomVariate", "[", " ", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"0", ",", 
       RowBox[{"1", "/", "10"}]}], "]"}], ",", "100"}], "]"}]}], ";", " ", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"\[ScriptCapitalD]1", " ", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"\[ImaginaryI]", " ", "at"}]}], ")"}], 
        "\[ScriptCapitalD]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "bt"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "ey"}]}]}], ";", 
     RowBox[{"data", " ", "=", " ", 
      RowBox[{"ReIm", "[", " ", "\[ScriptCapitalD]1", "]"}]}], ";", 
     RowBox[{"loss", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           FractionBox["1", 
            RowBox[{"2", 
             SuperscriptBox["\[Sigma]", "2"]}]], 
           RowBox[{"(", 
            SuperscriptBox[
             RowBox[{"(", " ", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"a", " ", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "+", "b"}], ")"}]}], 
              ")"}], "2"], " ", ")"}]}], "&"}], " ", "/@", 
         "\[NonBreakingSpace]", "data"}], " ", "//", "Total"}], " ", "//", 
       "Simplify"}]}], ";", 
     RowBox[{"Quiet", "[", 
      RowBox[{"ContourPlot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          FractionBox["1", 
           RowBox[{"\[Sigma]", " ", 
            SqrtBox[
             RowBox[{"2", "\[Pi]"}]]}]], ")"}], 
         RowBox[{"Exp", "[", 
          RowBox[{"-", 
           RowBox[{"Min", "[", 
            RowBox[{"loss", ",", "200"}], "]"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", 
          RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"b", ",", 
          RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{
        "PlotLabel", "\[Rule]", 
         "\"\<p[a,b| \[ScriptCapitalD]]=(\!\(\*FractionBox[\(1\), \
\(\[Sigma]\\\ \*SqrtBox[\(2  \[Pi]\)]\)]\)\!\(\*SuperscriptBox[\()\), \
\(n\)]\) Exp[ -\!\(\*FractionBox[\(1\), \(2 \*SuperscriptBox[\(\[Sigma]\), \
\(2\)]\)]\)\!\(\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \
\(n\)]\)(\!\(\*SubscriptBox[\(y\), \(i\)]\)-(a \!\(\*SubscriptBox[\(x\), \
\(i\)]\) +b)\!\(\*SuperscriptBox[\()\), \(2\)]\)]\>\""}], ",", 
        RowBox[{"FrameLabel", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"Epilog", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Red", ",", 
           RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
           RowBox[{"Point", "[", 
            RowBox[{"{", 
             RowBox[{"at", ",", "bt"}], "}"}], "]"}]}], "}"}]}], ",", 
        RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"at", ",", "0.2"}], "}"}], ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Sigma]", ",", "3.5"}], "}"}], ",", "0.1", ",", "16"}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"bt", ",", 
        RowBox[{"-", "0.3"}]}], "}"}], ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
    RowBox[{"ContinuousAction", "\[Rule]", "False"}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "run", " ", "this", " ", "to", " ", "see", " ", "the", " ", "graphics"}], 
   " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.778168390393277*^9, 3.778168484973434*^9}, {
   3.778169047802761*^9, 3.778169104269165*^9}, 3.778169242777388*^9, {
   3.778170931747677*^9, 3.778170943326819*^9}, 3.7781714524611387`*^9, {
   3.778171507435704*^9, 3.77817152600486*^9}, {3.7781749721639*^9, 
   3.7781749779143476`*^9}, {3.7781763076548843`*^9, 3.7781763087189093`*^9}, 
   3.778176343258066*^9, {3.809670147889126*^9, 3.80967015523771*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"f6977fc1-9b82-4c09-82cc-a963ff23ba4d"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`at$$ = 
    0.2, $CellContext`bt$$ = -0.3, $CellContext`\[Sigma]$$ = 3.5, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`at$$], 0.2}, -2, 2}, {{
       Hold[$CellContext`\[Sigma]$$], 3.5}, 0.1, 16}, {{
       Hold[$CellContext`bt$$], -0.3}, -1, 1}}, Typeset`size$$ = {
    600., {332., 343.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`at$$ = 
        0.2, $CellContext`bt$$ = -0.3, $CellContext`\[Sigma]$$ = 3.5}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`\[ScriptCapitalD]1 = (1 + 
           I $CellContext`at$$) $CellContext`\[ScriptCapitalD] + 
         I $CellContext`bt$$ + I $CellContext`ey; $CellContext`data = 
        ReIm[$CellContext`\[ScriptCapitalD]1]; $CellContext`loss = Simplify[
          Total[
           
           Map[(1/(2 $CellContext`\[Sigma]$$^2)) (
              Part[#, 2] - ($CellContext`a 
               Part[#, 1] + $CellContext`b))^2& , $CellContext`data]]]; Quiet[
         ContourPlot[(1/($CellContext`\[Sigma]$$ Sqrt[2 Pi])) 
          Exp[-Min[$CellContext`loss, 200]], {$CellContext`a, -5, 
           5}, {$CellContext`b, -2, 2}, PlotRange -> All, PlotLabel -> 
          "p[a,b| \[ScriptCapitalD]]=(\!\(\*FractionBox[\(1\), \(\[Sigma]\\ \
\*SqrtBox[\(2  \[Pi]\)]\)]\)\!\(\*SuperscriptBox[\()\), \(n\)]\) Exp[ \
-\!\(\*FractionBox[\(1\), \(2 \*SuperscriptBox[\(\[Sigma]\), \
\(2\)]\)]\)\!\(\*UnderoverscriptBox[\(\[Sum]\), \(i = 1\), \
\(n\)]\)(\!\(\*SubscriptBox[\(y\), \(i\)]\)-(a \!\(\*SubscriptBox[\(x\), \
\(i\)]\) +b)\!\(\*SuperscriptBox[\()\), \(2\)]\)]", FrameLabel -> Automatic, 
          Epilog -> {Red, 
            PointSize[Medium], 
            Point[{$CellContext`at$$, $CellContext`bt$$}]}, ImageSize -> 
          300]]), "Specifications" :> {{{$CellContext`at$$, 0.2}, -2, 
         2}, {{$CellContext`\[Sigma]$$, 3.5}, 0.1, 
         16}, {{$CellContext`bt$$, -0.3}, -1, 1}}, 
      "Options" :> {ContinuousAction -> False}, "DefaultOptions" :> {}],
     ImageSizeCache->{684., {441., 452.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.778168507484768*^9, 3.778168545180975*^9, 
  3.77816911484208*^9, 3.77816924687605*^9, 3.778171468645486*^9, 
  3.778171528247718*^9, 3.778173323208692*^9, 3.778174984817191*^9, 
  3.7781763461994867`*^9, 3.809670172065371*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"e47452b5-3831-42d2-a928-f7af3e16a75a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"57948627-368c-44bd-b19f-65655cc3e8a5"],

Cell[CellGroupData[{

Cell["3.5 Bayesian inference.", "Section",
 CellChangeTimes->{{3.710778725124434*^9, 3.710778725761334*^9}, {
  3.744010544402543*^9, 3.744010546712739*^9}, {3.744711185213903*^9, 
  3.744711190114337*^9}, {3.745480060458344*^9, 3.745480069837872*^9}, {
  3.7455884637110786`*^9, 3.745588467627348*^9}, {3.745649397272605*^9, 
  3.745649415840868*^9}, {3.7462140379873466`*^9, 3.746214058538205*^9}, {
  3.7462378844493847`*^9, 3.7462378948994513`*^9}, {3.746292159315214*^9, 
  3.7462921602754307`*^9}, {3.746343998054875*^9, 3.746344004989209*^9}, {
  3.746344092319461*^9, 3.746344103969302*^9}, {3.746718050912024*^9, 
  3.746718051115082*^9}},ExpressionUUID->"bcea2b36-facc-49cc-9094-\
4437593d414d"],

Cell[CellGroupData[{

Cell["\<\
In inference phase, we use all the information we gathered to make a \
prediction.  In this case we want to know what is the probable value of y, \
based on all  the data \[ScriptCapitalD], given some value x. The uniform \
priors for the a is an interval A, and for the b, an interval B\
\>", "Item",
 CellChangeTimes->CompressedData["
1:eJwlyE0og3EAx/G9HSXLxUFsmsdiS14iRXnWDovN22FzWVheEuVtLSJEnCS0
jSIXkYOXFDXJS3vJy8Wi2ZphaGaelVLW5MD/9+zw69PvKzb0NLTxOBxOOhms
FXxTWSGGXrGEpbC3yS2DY3qhHKpe65WDbwwtFtao4fRm295nmKErlUbWqL3E
DVMWNT62T1ABKNLmBuFaR94XTHNJY/BtPa9V8c7Q5dfhbpg6Ex2AreE/1kA1
NQ/vnA0WmHFwYYe+Pr4Ldt/yL+HWss0DbSavH2bnS4LsN65qh4kfGXHWkQfe
gpl41lxqhXU5lw5JhKE3HsVXUKfh+qHZnXkPG9t/4lDRk9BQ0PUH5UUJX8pC
s9nEyGZoDgZ2t8+1xIuSmytocg3wdETKmyyAS8/7Ry3EwkPPCex3DDngE606
hzuTnT5YPJVw1HlcYSCK9Kc6qPgds1qIVdxx1kzde5KaitKy/Fgq/AfHhv7L

  "],ExpressionUUID->"6d14baec-2331-4f7e-9be0-bc67fe507c7e"],

Cell[TextData[{
 "We have found the  probability distribution of the parameters ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "[", 
    RowBox[{"a", ",", 
     RowBox[{"b", "|", "\[ScriptCapitalD]"}]}], "]"}], "\[Proportional]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["1", 
       RowBox[{"\[Sigma]", " ", 
        SqrtBox[
         RowBox[{"2", "\[Pi]"}]]}]], ")"}], "n"], " ", 
    RowBox[{"Exp", "[", " ", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"2", 
         SuperscriptBox["\[Sigma]", "2"]}]]}], 
      RowBox[{"(", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "1"}], "n"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["y", "i"], "-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", " ", 
              SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], 
         "2"]}], ")"}]}], "]"}]}]}]],
  CellChangeTimes->{
   3.745818711416349*^9, {3.745818786644712*^9, 3.745818829434025*^9}, {
    3.7458403670014563`*^9, 3.745840392569387*^9}},ExpressionUUID->
  "35664d21-cd18-467f-bb0d-d60ccc25db3b"],
 ", given the data \[ScriptCapitalD].   We are interested on the value of  ",
 Cell[BoxData[
  RowBox[{" ", 
   RowBox[{"y", "=", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"a", " ", "x"}], " ", "+", " ", "b"}], ")"}], " "}]}]],
  ExpressionUUID->"0cb480c6-b54d-4693-9fb6-8fe6b60bfe5b"],
 " as a function of x."
}], "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
   3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
   3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
   3.7456494413640013`*^9, 3.745649511244047*^9}, {3.745649567392099*^9, 
   3.745649567996996*^9}, {3.74564980119676*^9, 3.745649834586528*^9}, {
   3.745650198272109*^9, 3.745650216107647*^9}, {3.7456502481195583`*^9, 
   3.745650349769003*^9}, {3.745650390733242*^9, 3.745650433130755*^9}, {
   3.745766068951748*^9, 3.7457660717537737`*^9}, {3.7458177440895367`*^9, 
   3.7458177777305603`*^9}, {3.746113054286049*^9, 3.746113105058429*^9}, {
   3.746113232040691*^9, 3.746113240994211*^9}, {3.746113479793743*^9, 
   3.7461134797948313`*^9}, {3.746113531349778*^9, 3.746113531349997*^9}, {
   3.746114679163316*^9, 3.746114695176869*^9}, {3.746215485427717*^9, 
   3.746215510569187*^9}, {3.746215955617854*^9, 3.746215968463763*^9}, {
   3.7462379176525383`*^9, 3.746237942678857*^9}, {3.746237979805108*^9, 
   3.746238010258041*^9}, {3.746238147297324*^9, 3.74623814729751*^9}, {
   3.746281484716832*^9, 3.746281486498233*^9}, {3.746281523711535*^9, 
   3.7462815624236803`*^9}, {3.7462816996811457`*^9, 3.74628174422192*^9}, 
   3.746281791701392*^9, {3.746281831375978*^9, 3.746282075373702*^9}, {
   3.746341456624645*^9, 3.7463414566251097`*^9}, {3.7463605840843782`*^9, 
   3.746360590325706*^9}, {3.7467225690960417`*^9, 3.746722569096706*^9}, {
   3.746728085185811*^9, 3.746728087862555*^9}, {3.74672875191037*^9, 
   3.7467287601677427`*^9}, {3.778169304272628*^9, 3.778169333362833*^9}, {
   3.778169439692121*^9, 3.778169485213723*^9}, {3.778175003545012*^9, 
   3.778175003545206*^9}, {3.7781750410525846`*^9, 
   3.778175041052732*^9}},ExpressionUUID->"81d64db5-305b-41f0-b716-\
d442d455bbb8"],

Cell[TextData[{
 "\[DoubleStruckCapitalE][y| x,\[ScriptCapitalD]] =   \
\[DoubleStruckCapitalE][ ( a x + b) | x,\[ScriptCapitalD]]\[NonBreakingSpace] \
= ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "\[CapitalOmega]", "\[Placeholder]"], 
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"a", " ", "x"}], " ", "+", " ", "b"}], ")"}], 
     RowBox[{"p", "[", 
      RowBox[{"a", ",", 
       RowBox[{"b", "|", "\[ScriptCapitalD]"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "b"}], 
     RowBox[{"\[DifferentialD]", "a"}]}]}], "=", 
   RowBox[{"x", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "\[CapitalOmega]", "\[Placeholder]"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{"p", "[", 
         RowBox[{"a", ",", 
          RowBox[{"b", "|", "\[ScriptCapitalD]"}]}], "]"}], 
        RowBox[{"\[DifferentialD]", "b"}], 
        RowBox[{"\[DifferentialD]", "a"}]}], "+", " ", 
       RowBox[{
        SubsuperscriptBox["\[Integral]", "\[CapitalOmega]", "\[Placeholder]"],
         " ", 
        RowBox[{"b", " ", 
         RowBox[{"p", "[", 
          RowBox[{"a", ",", 
           RowBox[{"b", "|", "\[ScriptCapitalD]"}]}], "]"}], 
         RowBox[{"\[DifferentialD]", "b"}], 
         RowBox[{"\[DifferentialD]", "a"}]}]}]}]}]}]}]}]],ExpressionUUID->
  "4afc3013-16e2-4e58-b444-11a6261a4fdf"],
 "  "
}], "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
   3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
   3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
   3.7456494413640013`*^9, 3.745649511244047*^9}, {3.745649567392099*^9, 
   3.745649567996996*^9}, {3.74564980119676*^9, 3.745649834586528*^9}, {
   3.745650198272109*^9, 3.745650216107647*^9}, {3.7456502481195583`*^9, 
   3.745650349769003*^9}, {3.745650390733242*^9, 3.745650433130755*^9}, {
   3.745766068951748*^9, 3.7457660717537737`*^9}, {3.7458177440895367`*^9, 
   3.7458177777305603`*^9}, {3.746113054286049*^9, 3.746113105058429*^9}, {
   3.746113232040691*^9, 3.746113240994211*^9}, {3.746113479793743*^9, 
   3.7461134797948313`*^9}, {3.746113531349778*^9, 3.746113531349997*^9}, {
   3.746114679163316*^9, 3.746114695176869*^9}, {3.746215485427717*^9, 
   3.746215510569187*^9}, {3.746215955617854*^9, 3.746215968463763*^9}, {
   3.7462379176525383`*^9, 3.746237942678857*^9}, {3.746237979805108*^9, 
   3.746238010258041*^9}, {3.746238147297324*^9, 3.74623814729751*^9}, {
   3.746281484716832*^9, 3.746281486498233*^9}, {3.746281523711535*^9, 
   3.7462815624236803`*^9}, {3.7462816996811457`*^9, 3.74628174422192*^9}, 
   3.746281791701392*^9, {3.746281831375978*^9, 3.746282075373702*^9}, {
   3.746341456624645*^9, 3.7463414566251097`*^9}, {3.7463605840843782`*^9, 
   3.746360590325706*^9}, {3.7467225808403482`*^9, 3.74672283937633*^9}, {
   3.7467281882844257`*^9, 3.74672826329944*^9}, {3.746729124243938*^9, 
   3.74672912424452*^9}, {3.778169346850597*^9, 3.778169413068741*^9}, {
   3.77817504830414*^9, 
   3.778175052912674*^9}},ExpressionUUID->"3ae2076b-c5e3-4181-a1f7-\
3901fdb645c7"],

Cell[TextData[{
 "The average inference value for y, given x is: ",
 Cell[BoxData[
  RowBox[{
   OverscriptBox["y", "^"], "=", 
   RowBox[{
    FractionBox[
     RowBox[{
      SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
       RowBox[{
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{"a", " ", "x"}], " ", "+", " ", "b"}], ")"}], " ", 
        RowBox[{"p", "[", 
         RowBox[{"a", ",", 
          RowBox[{"b", "|", "\[ScriptCapitalD]"}]}], "]"}], 
        RowBox[{"\[DifferentialD]", "b"}], 
        RowBox[{"\[DifferentialD]", "a"}]}]}]}], 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
       RowBox[{
        RowBox[{"p", "[", 
         RowBox[{"a", ",", 
          RowBox[{"b", "|", "\[ScriptCapitalD]"}]}], "]"}], 
        RowBox[{"\[DifferentialD]", "b"}], 
        RowBox[{"\[DifferentialD]", "a"}]}]}]}]], "=", 
    RowBox[{
     FractionBox[
      RowBox[{
       SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
       RowBox[{
        SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{"a", " ", "x"}], " ", "+", " ", "b"}], ")"}], 
         RowBox[{"Exp", "[", " ", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["1", 
             RowBox[{"2", 
              SuperscriptBox["\[Sigma]", "2"]}]]}], 
           RowBox[{"(", 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"i", "=", "1"}], "n"], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["y", "i"], "-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", " ", 
                   SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], 
              "2"]}], ")"}]}], "]"}], 
         RowBox[{"\[DifferentialD]", "b"}], 
         RowBox[{"\[DifferentialD]", "a"}]}]}]}], 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
       RowBox[{
        SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
        RowBox[{
         RowBox[{"Exp", "[", " ", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["1", 
             RowBox[{"2", 
              SuperscriptBox["\[Sigma]", "2"]}]]}], 
           RowBox[{"(", 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"i", "=", "1"}], "n"], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["y", "i"], "-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", " ", 
                   SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], 
              "2"]}], ")"}]}], "]"}], 
         RowBox[{"\[DifferentialD]", "b"}], 
         RowBox[{"\[DifferentialD]", "a"}]}]}]}]], "=", 
     RowBox[{
      RowBox[{"x", 
       FractionBox[
        RowBox[{
         SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
         RowBox[{
          SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
          RowBox[{"a", " ", 
           RowBox[{"Exp", "[", " ", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               SuperscriptBox["\[Sigma]", "2"]}]], 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"i", "=", "1"}], "n"], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 SubscriptBox["y", "i"], "-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"a", " ", 
                    SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}],
                "2"]}]}], "]"}], 
           RowBox[{"\[DifferentialD]", "b"}], 
           RowBox[{"\[DifferentialD]", "a"}]}]}]}], 
        RowBox[{
         SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
         RowBox[{
          SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
          RowBox[{
           RowBox[{"Exp", "[", " ", 
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", 
               RowBox[{"2", 
                SuperscriptBox["\[Sigma]", "2"]}]]}], 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"i", "=", "1"}], "n"], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 SubscriptBox["y", "i"], "-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"a", " ", 
                    SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}],
                "2"]}]}], "]"}], 
           RowBox[{"\[DifferentialD]", "b"}], 
           RowBox[{"\[DifferentialD]", "a"}]}]}]}]]}], " ", "+", 
      FractionBox[
       RowBox[{
        SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
        RowBox[{
         SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Exp", "[", " ", 
            RowBox[{
             FractionBox["1", 
              RowBox[{"2", 
               SuperscriptBox["\[Sigma]", "2"]}]], 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"i", "=", "1"}], "n"], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 SubscriptBox["y", "i"], "-", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"a", " ", 
                    SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}],
                "2"]}]}], "]"}], 
           RowBox[{"\[DifferentialD]", "b"}], 
           RowBox[{"\[DifferentialD]", "a"}]}]}]}]}], 
       RowBox[{
        SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
        RowBox[{
         SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
         RowBox[{
          RowBox[{"Exp", "[", " ", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"2", 
              SuperscriptBox["\[Sigma]", "2"]}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"i", "=", "1"}], "n"], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["y", "i"], "-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", " ", 
                   SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], 
              "2"]}]}], "]"}], 
          RowBox[{"\[DifferentialD]", "b"}], 
          RowBox[{"\[DifferentialD]", "a"}]}]}]}]]}]}]}]}]],ExpressionUUID->
  "5255661b-82cf-45c1-809f-f809f57299eb"]
}], "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
   3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
   3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
   3.7456494413640013`*^9, 3.745649511244047*^9}, {3.745649567392099*^9, 
   3.745649567996996*^9}, {3.74564980119676*^9, 3.745649834586528*^9}, {
   3.745650198272109*^9, 3.745650216107647*^9}, {3.7456502481195583`*^9, 
   3.745650349769003*^9}, {3.745650390733242*^9, 3.745650433130755*^9}, {
   3.745766068951748*^9, 3.7457660717537737`*^9}, {3.7458177440895367`*^9, 
   3.7458177777305603`*^9}, {3.746113054286049*^9, 3.746113105058429*^9}, {
   3.746113232040691*^9, 3.746113240994211*^9}, {3.746113479793743*^9, 
   3.7461134797948313`*^9}, {3.746113531349778*^9, 3.746113531349997*^9}, {
   3.746114679163316*^9, 3.746114695176869*^9}, {3.746215485427717*^9, 
   3.746215510569187*^9}, {3.746215955617854*^9, 3.746215968463763*^9}, {
   3.7462379176525383`*^9, 3.746237942678857*^9}, {3.746237979805108*^9, 
   3.746238010258041*^9}, {3.746238147297324*^9, 3.74623814729751*^9}, {
   3.746281484716832*^9, 3.746281486498233*^9}, {3.746281523711535*^9, 
   3.7462815624236803`*^9}, {3.7462816996811457`*^9, 3.74628174422192*^9}, 
   3.746281791701392*^9, {3.746281831375978*^9, 3.7462821252212057`*^9}, {
   3.746282271516836*^9, 3.746282331213346*^9}, {3.746282542316308*^9, 
   3.746282663331208*^9}, {3.746282737806416*^9, 3.746282737806657*^9}, {
   3.7462830128657913`*^9, 3.746283012866041*^9}, {3.746289224351533*^9, 
   3.746289294541782*^9}, {3.746292965809423*^9, 3.746292967306538*^9}, {
   3.746340622610557*^9, 3.74634064085781*^9}, {3.77373324677995*^9, 
   3.7737332594593678`*^9}, {3.773733328266327*^9, 3.773733328266781*^9}, {
   3.7774726816958113`*^9, 3.777472684861431*^9}, {3.777542812450642*^9, 
   3.7775428613892193`*^9}, {3.778169512171895*^9, 3.778169630411105*^9}, {
   3.778169663110984*^9, 3.7781697089706917`*^9}, {3.778170139626171*^9, 
   3.778170166123352*^9}, {3.778175057698186*^9, 3.778175066322939*^9}, {
   3.778175158952717*^9, 3.7781752193860207`*^9}, {3.778194931365897*^9, 
   3.778194931366201*^9}},ExpressionUUID->"10d4577c-7d92-4c6a-9178-\
1ae834fc8ac9"],

Cell["These require  integrations ....", "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
   3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
   3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
   3.7456494413640013`*^9, 3.745649511244047*^9}, {3.745649567392099*^9, 
   3.745649567996996*^9}, {3.74564980119676*^9, 3.745649834586528*^9}, {
   3.745650198272109*^9, 3.745650216107647*^9}, {3.7456502481195583`*^9, 
   3.745650349769003*^9}, {3.745650390733242*^9, 3.745650433130755*^9}, {
   3.745766068951748*^9, 3.7457660717537737`*^9}, {3.7458177440895367`*^9, 
   3.7458177777305603`*^9}, {3.746113054286049*^9, 3.746113105058429*^9}, {
   3.746113232040691*^9, 3.746113240994211*^9}, {3.746113479793743*^9, 
   3.7461134797948313`*^9}, {3.746113531349778*^9, 3.746113531349997*^9}, {
   3.746114679163316*^9, 3.746114695176869*^9}, {3.746215485427717*^9, 
   3.746215510569187*^9}, {3.746215955617854*^9, 3.746215968463763*^9}, {
   3.7462379176525383`*^9, 3.746237942678857*^9}, {3.746237979805108*^9, 
   3.746238010258041*^9}, {3.746238147297324*^9, 3.74623814729751*^9}, {
   3.746281484716832*^9, 3.746281486498233*^9}, {3.746281523711535*^9, 
   3.7462815624236803`*^9}, {3.7462816996811457`*^9, 3.74628174422192*^9}, 
   3.746281791701392*^9, {3.746281831375978*^9, 3.746282075373702*^9}, {
   3.746341456624645*^9, 3.7463414566251097`*^9}, {3.7463605840843782`*^9, 
   3.746360590325706*^9}, {3.7467225808403482`*^9, 3.74672283937633*^9}, {
   3.7467281882844257`*^9, 3.74672826329944*^9}, {3.7467291268680487`*^9, 
   3.7467292648837347`*^9}, {3.746730754334094*^9, 3.746730773298305*^9}, {
   3.746836482828685*^9, 3.7468364922497272`*^9}, {3.778170288150854*^9, 
   3.778170289392311*^9}},ExpressionUUID->"b4d73e49-8f94-454c-ab51-\
276e0629d3fa"]
}, Open  ]],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
    RowBox[{"a", " ", 
     RowBox[{"Exp", "[", " ", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", 
         RowBox[{"2", 
          SuperscriptBox["\[Sigma]", "2"]}]]}], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "1"}], "n"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["y", "i"], "-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", " ", 
              SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], 
         "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "b"}], 
     RowBox[{"\[DifferentialD]", "a"}]}]}]}], 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
    RowBox[{
     RowBox[{"Exp", "[", " ", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", 
         RowBox[{"2", 
          SuperscriptBox["\[Sigma]", "2"]}]]}], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "1"}], "n"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["y", "i"], "-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", " ", 
              SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], 
         "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "b"}], 
     RowBox[{"\[DifferentialD]", "a"}]}]}]}]]], "Input",
 CellChangeTimes->{{3.773733354657074*^9, 3.773733385938725*^9}, {
  3.777520406986034*^9, 3.7775204452102337`*^9}, {3.777542865975168*^9, 
  3.777542872088357*^9}, {3.77816963983029*^9, 3.7781696497183*^9}, {
  3.778170295064375*^9, 3.778170316316086*^9}, {3.7781752271089697`*^9, 
  3.7781752647666683`*^9}, {3.778194874838114*^9, 
  3.778194879718585*^9}},ExpressionUUID->"3277311d-3102-4ed4-b7db-\
16e94f4de488"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
    RowBox[{"b", " ", 
     RowBox[{"Exp", "[", " ", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", 
         RowBox[{"2", 
          SuperscriptBox["\[Sigma]", "2"]}]]}], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "1"}], "n"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["y", "i"], "-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", " ", 
              SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], 
         "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "b"}], 
     RowBox[{"\[DifferentialD]", "a"}]}]}]}], 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "A", "\[Placeholder]"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "B", "\[Placeholder]"], 
    RowBox[{
     RowBox[{"Exp", "[", " ", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", 
         RowBox[{"2", 
          SuperscriptBox["\[Sigma]", "2"]}]]}], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "1"}], "n"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["y", "i"], "-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", " ", 
              SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], 
         "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "b"}], 
     RowBox[{"\[DifferentialD]", "a"}]}]}]}]]], "Input",
 CellChangeTimes->{{3.778170327884066*^9, 3.778170328235132*^9}, {
  3.778175231392725*^9, 
  3.77817525385006*^9}},ExpressionUUID->"a0d30cd8-fc57-41a7-8f73-\
3b897b0b9326"],

Cell[CellGroupData[{

Cell["\<\
There are other methods to do find a good estimate. A simple one is to choose \
a single value of the parameter space that has the maximal probability. This \
happens when \
\>", "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
   3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
   3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
   3.7456494413640013`*^9, 3.745649511244047*^9}, {3.745649567392099*^9, 
   3.745649567996996*^9}, {3.74564980119676*^9, 3.745649834586528*^9}, {
   3.745650198272109*^9, 3.745650216107647*^9}, {3.7456502481195583`*^9, 
   3.745650349769003*^9}, {3.745650390733242*^9, 3.745650433130755*^9}, {
   3.745766068951748*^9, 3.7457660717537737`*^9}, {3.7458177440895367`*^9, 
   3.7458177777305603`*^9}, {3.746113054286049*^9, 3.746113105058429*^9}, {
   3.746113232040691*^9, 3.746113240994211*^9}, {3.746113479793743*^9, 
   3.7461134797948313`*^9}, {3.746113531349778*^9, 3.746113531349997*^9}, {
   3.746114679163316*^9, 3.746114695176869*^9}, {3.746215485427717*^9, 
   3.746215510569187*^9}, {3.746215955617854*^9, 3.746215968463763*^9}, {
   3.7462379176525383`*^9, 3.746237942678857*^9}, {3.746237979805108*^9, 
   3.746238010258041*^9}, {3.746238147297324*^9, 3.74623814729751*^9}, {
   3.746281484716832*^9, 3.746281486498233*^9}, {3.746281523711535*^9, 
   3.7462815624236803`*^9}, {3.7462816996811457`*^9, 3.74628174422192*^9}, 
   3.746281791701392*^9, {3.746281831375978*^9, 3.746282075373702*^9}, {
   3.746341459670227*^9, 3.746341503270857*^9}, {3.746341614610579*^9, 
   3.746341614738208*^9}, {3.74634417388286*^9, 3.746344258446124*^9}, {
   3.746728428912866*^9, 
   3.74672844743233*^9}},ExpressionUUID->"ca518c8c-889b-423d-8d5b-\
6e84634999e5"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"i", "=", "1"}], "n"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["y", "i"], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], "2"]}]],
  CellChangeTimes->{{3.773733354657074*^9, 3.773733385938725*^9}, {
   3.777520406986034*^9, 3.7775204452102337`*^9}, {3.777542865975168*^9, 
   3.777542872088357*^9}, {3.77816963983029*^9, 3.7781696497183*^9}, {
   3.778170295064375*^9, 3.778170316316086*^9}},ExpressionUUID->
  "71c5ae01-54b0-4852-97d6-cd341a3e692a"],
 " has a  minimum. The least square estimation."
}], "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
   3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
   3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
   3.7456494413640013`*^9, 3.745649511244047*^9}, {3.745649567392099*^9, 
   3.745649567996996*^9}, {3.74564980119676*^9, 3.745649834586528*^9}, {
   3.745650198272109*^9, 3.745650216107647*^9}, {3.7456502481195583`*^9, 
   3.745650349769003*^9}, {3.745650390733242*^9, 3.745650433130755*^9}, {
   3.745766068951748*^9, 3.7457660717537737`*^9}, {3.7458177440895367`*^9, 
   3.7458177777305603`*^9}, {3.746113054286049*^9, 3.746113105058429*^9}, {
   3.746113232040691*^9, 3.746113240994211*^9}, {3.746113479793743*^9, 
   3.7461134797948313`*^9}, {3.746113531349778*^9, 3.746113531349997*^9}, {
   3.746114679163316*^9, 3.746114695176869*^9}, {3.746215485427717*^9, 
   3.746215510569187*^9}, {3.746215955617854*^9, 3.746215968463763*^9}, {
   3.7462379176525383`*^9, 3.746237942678857*^9}, {3.746237979805108*^9, 
   3.746238010258041*^9}, {3.746238147297324*^9, 3.74623814729751*^9}, {
   3.746281484716832*^9, 3.746281486498233*^9}, {3.746281523711535*^9, 
   3.7462815624236803`*^9}, {3.7462816996811457`*^9, 3.74628174422192*^9}, 
   3.746281791701392*^9, {3.746281831375978*^9, 3.746282075373702*^9}, {
   3.746341459670227*^9, 3.746341503270857*^9}, {3.746341614610579*^9, 
   3.746341614738208*^9}, {3.74634417388286*^9, 3.746344303925147*^9}, {
   3.7463444066334467`*^9, 3.746344406634777*^9}, {3.746355336977724*^9, 
   3.746355336977997*^9}, {3.746355405971603*^9, 3.746355405971745*^9}, {
   3.746835224057262*^9, 3.7468352282529488`*^9}, 3.7781703620010843`*^9, {
   3.778175275013973*^9, 3.778175275014051*^9}, {3.7781754295103493`*^9, 
   3.778175429510429*^9}, {3.778176613100601*^9, 
   3.7781766490045137`*^9}},ExpressionUUID->"80fd6ad4-69b1-4777-8992-\
9bd53ec9eabb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "n"], 
     RowBox[{"(", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["y", "i"], "-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], "2"], 
      ")"}]}], ",", "a"}], "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.746355360864945*^9, 3.746355398743999*^9}, {
   3.746355462333313*^9, 3.7463554699544077`*^9}, {3.746355543057804*^9, 
   3.746355562537572*^9}, 3.746360026684305*^9, {3.7467287789185877`*^9, 
   3.746728779960085*^9}, 3.7468336106711473`*^9, {3.746833677679438*^9, 
   3.746833689323028*^9}, {3.778170511988538*^9, 3.778170519353003*^9}, {
   3.778171688126833*^9, 3.77817169011119*^9}, 3.7781752935376043`*^9},
 CellLabel->"In[86]:=",ExpressionUUID->"fd392e8e-67f6-4d41-ba9f-b15fd66bd920"],

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"i", "=", "1"}], "n"], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "b", " ", 
     SubscriptBox["x", "i"]}], "+", 
    RowBox[{"2", " ", "a", " ", 
     SubsuperscriptBox["x", "i", "2"]}], "-", 
    RowBox[{"2", " ", 
     SubscriptBox["x", "i"], " ", 
     SubscriptBox["y", "i"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.778170523438469*^9, 3.778170543534889*^9}, 
   3.778171692842327*^9, 3.778175295297202*^9, 3.809660735755478*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"e9212941-212d-4342-8af8-88eb7d228f0f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "n"], 
     RowBox[{"(", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["y", "i"], "-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            SubscriptBox["x", "i"]}], " ", "+", "b"}], ")"}]}], ")"}], "2"], 
      ")"}]}], ",", "b"}], "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.746355505314652*^9, 3.746355505765737*^9}, {
   3.7463555476115713`*^9, 3.7463555800224657`*^9}, {3.746360029768702*^9, 
   3.746360061041813*^9}, {3.746728790487679*^9, 3.746728791368608*^9}, {
   3.746833700288143*^9, 3.746833708342822*^9}, {3.778170563922505*^9, 
   3.7781705740553093`*^9}, {3.778170664384933*^9, 3.778170677265284*^9}, {
   3.778171670880165*^9, 3.778171675750181*^9}, 3.7781753006163397`*^9},
 CellLabel->"In[87]:=",ExpressionUUID->"0a7d4b55-b729-465e-8855-ee135888010f"],

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"i", "=", "1"}], "n"], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "b"}], "+", 
    RowBox[{"2", " ", "a", " ", 
     SubscriptBox["x", "i"]}], "-", 
    RowBox[{"2", " ", 
     SubscriptBox["y", "i"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.746355508469129*^9, 3.746355581753874*^9, 3.7463600392960653`*^9, 
   3.746728792631537*^9, 3.746833637306553*^9, 3.7468337108667173`*^9, 
   3.778170574725309*^9, {3.7781706729208612`*^9, 3.778170677721348*^9}, 
   3.7781716778568068`*^9, 3.778175302185054*^9, 3.8096607389297047`*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"61e25e9b-6747-49ba-a8f4-165f6971a21d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"2", "b", "  ", "Ex"}], " ", "+", " ", 
       RowBox[{"2", "a", " ", "Ex2"}], " ", "-", " ", 
       RowBox[{"2", " ", "Exy"}]}], "\[Equal]", "0"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"2", " ", "b"}], "+", "  ", 
       RowBox[{
        RowBox[{"+", "2"}], "a", " ", "Ex"}], " ", "-", " ", 
       RowBox[{"2", "Ey"}]}], "\[Equal]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.746359011860249*^9, 3.7463590917420807`*^9}, {
   3.7463594070358877`*^9, 3.746359446518814*^9}, {3.746359483994776*^9, 
   3.746359487214991*^9}, {3.746359542143757*^9, 3.746359547374929*^9}, {
   3.746359596992606*^9, 3.7463596239899817`*^9}, {3.7463596595866528`*^9, 
   3.746359664597376*^9}, 3.746359782552216*^9, {3.746833561243466*^9, 
   3.7468335697240477`*^9}, {3.7468337710552387`*^9, 3.746833920221191*^9}, 
   3.778170652734969*^9, {3.778170692961882*^9, 3.778170847782756*^9}, {
   3.778171741995841*^9, 3.778171768432106*^9}, {3.778175323132976*^9, 
   3.778175334933015*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"e380385c-8bd0-467f-99d2-a060bd00b047"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"Exy", "-", 
        RowBox[{"Ex", " ", "Ey"}]}], 
       RowBox[{
        SuperscriptBox["Ex", "2"], "-", "Ex2"}]]}]}], ",", 
    RowBox[{"b", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "Ex"}], " ", "Exy"}], "+", 
        RowBox[{"Ex2", " ", "Ey"}]}], 
       RowBox[{
        SuperscriptBox["Ex", "2"], "-", "Ex2"}]]}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.746359093565949*^9, 3.746359491442298*^9, 3.746359795228483*^9, 
   3.7468335725400057`*^9, {3.74683379633956*^9, 3.746833815425954*^9}, 
   3.746833922163344*^9, 3.778170727847128*^9, 3.778171772509555*^9, 
   3.7781753413021927`*^9, 3.809660741584614*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"1195d084-7211-4d30-bc1d-bc39f31d9291"]
}, Open  ]],

Cell[TextData[{
 "Hence the least square solution is  ",
 Cell[BoxData[
  TagBox[GridBox[{
     {"\[Piecewise]", GridBox[{
        {
         RowBox[{"a", "=", 
          RowBox[{"[", 
           FractionBox[
            RowBox[{
             RowBox[{
              RowBox[{"\[DoubleStruckCapitalE]", "[", "x", "]"}], 
              RowBox[{"\[DoubleStruckCapitalE]", "[", "y", "]"}]}], "-", 
             RowBox[{"\[DoubleStruckCapitalE]", "[", "xy", "]"}]}], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"\[DoubleStruckCapitalE]", "[", "x", "]"}], "2"], "-", 
             RowBox[{"\[DoubleStruckCapitalE]", "[", 
              SuperscriptBox["x", "2"], "]"}]}]], "]"}]}], "\[Placeholder]"},
        {
         RowBox[{"b", "=", 
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"\[DoubleStruckCapitalE]", "[", "x", "]"}], " ", 
             RowBox[{"\[DoubleStruckCapitalE]", "[", "xy", "]"}]}], "-", 
            RowBox[{
             RowBox[{"\[DoubleStruckCapitalE]", "[", 
              SuperscriptBox["x", "2"], "]"}], " ", 
             RowBox[{"\[DoubleStruckCapitalE]", "[", "y", "]"}]}]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"\[DoubleStruckCapitalE]", "[", "x", "]"}], "2"], "-", 
            RowBox[{"\[DoubleStruckCapitalE]", "[", 
             SuperscriptBox["x", "2"], "]"}]}]]}], "\[Placeholder]"}
       },
       AllowedDimensions->{2, Automatic},
       Editable->True,
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}},
       Selectable->True]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxItemSize->{
     "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.35]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   "Piecewise",
   DeleteWithContents->True,
   Editable->False,
   SelectWithContents->True,
   Selectable->False]],
  CellChangeTimes->{
   3.746359093565949*^9, 3.746359491442298*^9, 3.746359795228483*^9, 
    3.7468335725400057`*^9, {3.74683379633956*^9, 3.746833815425954*^9}, 
    3.746833922163344*^9},ExpressionUUID->
  "4db50a5b-32c1-40e6-8b56-a0462c89b3ed"],
 "  "
}], "Item",
 CellChangeTimes->CompressedData["
1:eJwlzUsow3EAB/CZXaSWx2U5zCb+HvNoFJGDvxzk/WpzkUfznpixiBrCSUJe
RSLRDtYoipRkFuZg0Uw22mgb/itFNCd+37/Dt0/f7+UrbuisaORyOJwoEljK
+6Ki3Ay9POeNg121lkSorQlNgvnP5Xl9HoYWh5YUwXFd4867l6Fz8npYfSfp
FhiyUHzH7iOUA4pkCU643iz5gAJT3Df0bEgUuS8MnX3lVcLwCZ8aKry/rI5C
ahrenlbMQeHe+Qm8UwWaoPIm8AJuLe1b4b7Gdg9jUqKdbO9ZkQ0Q34R+1sEH
7sws8bguYx6WxV4Yo18ZevNRbIby4oB7OGuJtMPqph8/zO38t0Ha/guT0v59
ynRPxhBfde4p6DDoz2TE8/RrM9SY1Fw5kbLxeXDRtXtYT0w9sB7BbmO/Eeb0
ulg1HVoXrFvVu2Gk4ZPfir/5sHAYluoRQIFUHwGr+PGXo28MPUW7ruF3ZZsN
akvHeGNEUbBVDiNqF6uhwu5XFVA+miMcUsOWtaB+2KEwDkOeQTUJt9Waabhb
kJxSRMw6HkqDf3JIK+c=
  "],ExpressionUUID->"8036c607-aba9-4105-af04-39e566c2e10f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"ab14fb6a-f800-4e80-8e18-6bc9b977fdd7"],

Cell[CellGroupData[{

Cell["3.6 Maximum Likelihood Estimation (MLE):", "Section",
 CellChangeTimes->{{3.710778725124434*^9, 3.710778725761334*^9}, {
  3.744010544402543*^9, 3.744010546712739*^9}, {3.744711185213903*^9, 
  3.744711190114337*^9}, {3.745480060458344*^9, 3.745480069837872*^9}, {
  3.7455884637110786`*^9, 3.745588467627348*^9}, {3.745649397272605*^9, 
  3.745649415840868*^9}, {3.7462140379873466`*^9, 3.746214058538205*^9}, {
  3.746292167155582*^9, 3.746292168226705*^9}, {3.7467180623883753`*^9, 
  3.746718062586907*^9}},ExpressionUUID->"f52351ac-45d3-455c-9f88-\
2f1607084dca"],

Cell[CellGroupData[{

Cell["\<\
Let  y \[Element] \[ScriptCapitalD] is a set of  i.i.d samples from a \
distribution  distribution p( y |\[Theta])  for some  (unknown) value \
\[Theta] \[Element] \[CapitalTheta].  Then the probability of the data \
(likelihood) is  p(\[ScriptCapitalD]|\[Theta])  and the respectively the \
probability of the parameters is\
\>", "Item",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQ7c/yVU3p6WvHOVOfa4DogvgLOiC6PlZQF0R7PA50
qXj22lFR0M8HRLetSN34/vlrRweXEjD95pDZBRAtMN33Bli8Se0OiFYI03oA
ohena38C0RJHNb6B6GdLtVOcXrx2tDn/PAdEC/e8KQbRKc//g+k73moTQfS1
I0FTQbTc1hOHQPSNQuajIDrnMvNJEL1m9o6rIHpH2fVbIFpVX+UBmF8yL6wa
SL+S+wGma+4yTZoCpA8kmE8D0QHqJw+rvHztuOye4ikQHe7LeAtET7kgfxtE
R6T9/AGinfIhdJJh9n8QrWsMoR9ZPu1TBdIvVzydAKLvrF97PAxInzC7dApE
lx0tZgoH0mrX+VhANABGM8m/
  "],ExpressionUUID->"71feb05a-86f6-4fbe-af47-7592302f3f95"],

Cell[TextData[{
 "The likelihood of the i.i.d  data sample \[ScriptCapitalD]:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["x", "1"], ",", 
       SubscriptBox["y", "1"]}], "}"}], ",", "\[Ellipsis]", ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["x", "n"], ",", 
       SubscriptBox["y", "n"]}], "}"}]}], "}"}], TraditionalForm]],
  ExpressionUUID->"3de6c287-b41f-41fd-a3b3-e41bb45b8eae"],
 " is ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", 
    RowBox[{"(", 
     RowBox[{"\[ScriptCapitalD]", "|", "\[Theta]"}], ")"}]}], "=", 
   RowBox[{
    UnderoverscriptBox["\[Product]", 
     RowBox[{"i", "=", "1"}], "n"], 
    RowBox[{"p", 
     RowBox[{"(", 
      RowBox[{
       FormBox["y",
        TraditionalForm], "|", "\[Theta]"}], ")"}]}]}]}]],ExpressionUUID->
  "aff184fd-49d2-45b1-98ca-22f0e5f884bc"]
}], "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
  3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
  3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
  3.7456494413640013`*^9, 3.745649511244047*^9}, {3.745649567392099*^9, 
  3.745649567996996*^9}, {3.745649804982307*^9, 3.7456498049826612`*^9}, {
  3.7456505676975613`*^9, 3.7456507976805687`*^9}, {3.745651661535564*^9, 
  3.7456516620769367`*^9}, {3.745766060892438*^9, 3.745766064426393*^9}, {
  3.7458177831829033`*^9, 3.745817811910597*^9}, {3.7462157144645147`*^9, 
  3.746215714923338*^9}},ExpressionUUID->"691b2170-0cce-464a-bf53-\
f9fc27bbc247"],

Cell[TextData[{
 "It is often sensible to deal with the log likelihood ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"p", 
     RowBox[{"(", 
      RowBox[{"\[ScriptCapitalD]", "|", "\[Theta]"}], ")"}]}], "]"}], "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{
      UnderoverscriptBox["\[Product]", 
       RowBox[{"i", "=", "1"}], "n"], 
      RowBox[{"p", 
       RowBox[{"(", 
        RowBox[{
         FormBox["y",
          TraditionalForm], "|", "\[Theta]"}], ")"}]}]}], "]"}], " ", "=", 
    " ", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"I", "=", "1"}], "N"], 
     RowBox[{"Log", "[", 
      RowBox[{"p", 
       RowBox[{"(", 
        RowBox[{
         FormBox["y",
          TraditionalForm], "|", "\[Theta]"}], ")"}]}], "]"}]}]}]}]],
  ExpressionUUID->"ba0b2b04-d0f0-4232-96cb-07be90b4faf2"]
}], "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
   3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
   3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
   3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
   3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
   3.74559539914347*^9, 3.745595444107788*^9}, {3.74559600502468*^9, 
   3.745596125266101*^9}, {3.745648372256975*^9, 3.745648465723386*^9}, {
   3.7456486935273952`*^9, 3.7456486938302717`*^9}, {3.745648968954913*^9, 
   3.745649132002026*^9}, {3.74564925133853*^9, 3.7456493214027357`*^9}, {
   3.7456507479382133`*^9, 3.745650749101879*^9}, {3.74565085311819*^9, 
   3.745650946291975*^9}, {3.745766074455529*^9, 3.745766074588695*^9}, {
   3.745817823956843*^9, 3.745817927323584*^9}, {3.745817966665299*^9, 
   3.745817991707251*^9}, {3.746105428042791*^9, 3.7461054758332853`*^9}, 
   3.746106486170124*^9, {3.746215548747979*^9, 3.746215602397787*^9}, {
   3.746215682205874*^9, 3.746215682606879*^9}, {3.746361151400793*^9, 
   3.746361151400942*^9}},ExpressionUUID->"2a077940-0e5b-4585-b08d-\
14715d3b9521"],

Cell["\<\
 We estimate the value of \[Theta] by selecting the one that maximizes the \
likelihood of the data\
\>", "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
  3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
  3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
  3.7456494413640013`*^9, 3.745649511244047*^9}, {3.745649567392099*^9, 
  3.745649567996996*^9}, {3.745649804982307*^9, 3.7456498049826612`*^9}, {
  3.7456505676975613`*^9, 3.7456507976805687`*^9}, {3.745651661535564*^9, 
  3.7456516620769367`*^9}, {3.745766060892438*^9, 3.745766064426393*^9}, {
  3.7458177831829033`*^9, 3.745817811910597*^9}, {3.7462157144645147`*^9, 
  3.746215714923338*^9}, {3.746360907423901*^9, 3.746360923557486*^9}, {
  3.746360964861885*^9, 3.7463610051332903`*^9}, {3.746513747765972*^9, 
  3.746513749357215*^9}},ExpressionUUID->"bcedb240-d279-4e93-84a7-\
960f928535fc"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    OverscriptBox["\[Theta]", "^"], " ", "\[Congruent]", 
    RowBox[{
     UnderscriptBox[
      RowBox[{"arg", " ", "max"}], 
      RowBox[{"\[Theta]", "\[Element]", "\[CapitalTheta]"}]], "  ", 
     RowBox[{"Log", "[", 
      RowBox[{"p", "(", 
       RowBox[{"\[ScriptCapitalD]", "|", "\[Theta]"}], ")"}], "]"}]}]}], "=", 
   RowBox[{
    UnderscriptBox[
     RowBox[{"arg", " ", "max"}], 
     RowBox[{"\[Theta]", "\[Element]", "\[CapitalTheta]"}]], "  ", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"I", "=", "1"}], "N"], 
     RowBox[{"Log", "[", 
      RowBox[{"p", "(", 
       RowBox[{
        FormBox["y",
         TraditionalForm], "|", "\[Theta]"}], ")"}], "]"}]}]}]}], 
  TraditionalForm]], \
"Item",ExpressionUUID->"2eb2231f-dc84-4c4e-bcb6-c13734d3cab3"]], "Subitem",
 CellChangeTimes->CompressedData["
1:eJwlxUdIQnEAB+BHkR3roNFBcmALym42wPAZBYl5ENKoi2QSVJA0TpEtijCI
JGnQhAYSSesSNigIiSATQrGQUFqOQBp2CLH+v9fh4xM0d6oNKRRFcQl8Ejwu
Fj5H6fNDthj7ap4k2Gh0lmG+cF2KKd2tDMt2XK+x1yitat94x9uHhm9sHe1P
4JThsCwvFKVPzzJozPl8HsAKb90wjk31bOWTh+p0+1jtNrpxl/M+gH/39CFc
IqtMYNXsE1VAprpHWFh8tarELyO2JiwqH3+gyT+5pRHcEdhlyckzFgfz5mRO
IZ7PHJRiqadNiSWPRfXYl2ZKryLPydeYJZdrbOzX1vLx/rRK20ee9aqZe5eT
C1bydWPEhgUKjx0HLNVHONWtC+Ibsf4Tcy/efvCYLp7EJl7F4gr5QuRkbmE1
fPDCUdp+0BrH2X4zh0/mTpizsONOqRGSW8L/awLz3iWya+4rhP8AtBv8gw==

  "],ExpressionUUID->"2423386e-3de9-45d7-9f3b-d2853d8f13f2"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"9c3fca23-10fc-4d1d-b4ba-6534b91fef67"],

Cell[CellGroupData[{

Cell["\<\
3.7 Generalized Regression (Conditional Distributed Estimation)\
\>", "Section",
 CellChangeTimes->{{3.710778725124434*^9, 3.710778725761334*^9}, {
  3.744010544402543*^9, 3.744010546712739*^9}, {3.744711185213903*^9, 
  3.744711190114337*^9}, {3.746202705787414*^9, 3.746202718366214*^9}, {
  3.746292171804834*^9, 3.746292172822459*^9}, {3.74670018442866*^9, 
  3.746700224888433*^9}, {3.746718066624241*^9, 
  3.74671806746867*^9}},ExpressionUUID->"250d3a64-2edb-4a2f-8fbe-\
d191c6076c2b"],

Cell["", "Text",
 CellChangeTimes->{3.7466924820695066`*^9, 3.746700446156176*^9, 
  3.7468364556322823`*^9},ExpressionUUID->"2c7b9425-78f1-44f9-a3db-\
ad1b38ae6d8e"],

Cell[CellGroupData[{

Cell["\<\
Given input t (like time) predict the probability distribution - in this case \
the parameters that define the probability distribution.\
\>", "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.745483209803815*^9, 3.745483226740646*^9}, {
  3.7454856209219*^9, 3.745485688712174*^9}, {3.745485930760127*^9, 
  3.745485996123598*^9}, {3.7462161579073753`*^9, 3.746216179118224*^9}, {
  3.74669235362668*^9, 3.746692358816144*^9}, {3.746692547676383*^9, 
  3.746692565509449*^9}, {3.7466928123174343`*^9, 3.746692866345549*^9}, {
  3.74669298001623*^9, 3.746692989393147*^9}, {3.746693094048452*^9, 
  3.7466931456856728`*^9}, {3.746693260505262*^9, 3.746693268248575*^9}, {
  3.746700453927552*^9, 3.746700453934144*^9}, {3.746700501875865*^9, 
  3.74670059847717*^9}},ExpressionUUID->"6d42cae0-81b6-499d-9d18-\
cad1329bef8d"],

Cell[TextData[{
 "Assume that one has a data set of binary  trials with probability ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["p", "i"], TraditionalForm]],ExpressionUUID->
  "d483dffb-6176-4cbb-a07d-33b9e06c1bf4"],
 " changing in time (like the probability of staying alive yet another day).  \
 - a set n choices has the distribution has likelihood. "
}], "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.745483209803815*^9, 3.745483226740646*^9}, {
  3.7454856209219*^9, 3.745485688712174*^9}, {3.745485930760127*^9, 
  3.745485996123598*^9}, {3.7462161579073753`*^9, 3.746216179118224*^9}, {
  3.74669235362668*^9, 3.746692358816144*^9}, {3.746692547676383*^9, 
  3.746692565509449*^9}, {3.7466928123174343`*^9, 3.746692866345549*^9}, {
  3.74669298001623*^9, 3.746692989393147*^9}, {3.746693094048452*^9, 
  3.7466931456856728`*^9}, {3.746693260505262*^9, 3.746693268248575*^9}, {
  3.746700800524507*^9, 
  3.746700802167118*^9}},ExpressionUUID->"761947d6-54ed-458f-aa6d-\
42f8be7fc4ec"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Logistic regression", "Subsubtitle",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c/yVU3p6WvHOVOfa4DogvgLOiC6PlZQF0R7PA50
qXj22lFR0M8HRLetSN34/vlrRweXEjD95pDZBRAtMN33Bli8Se0OiFYI03oA
ohena38C0RJHNb6B6BAtuV+qL1476ps0MqgB6b1BatvUgXTvthdgepp+0D4Q
zZp77wCIdnjervAVSJsxhSiBaLVPDALfgfQNCx0wva4hMwpEK2y1jgHR7957
sP4E0k0LrDlBtNq2Bj0QPSvguz6I/vNzjS2IfhNXbQ+i//2tdwbRE6b/8ADR
S2oVOkD0DZbqThB9JSTpzB8g7fh0OpgOq3120vnVa8cNi76dAtEA5m+8WQ==

  "],ExpressionUUID->"605a41bc-35f4-45ee-8d1f-cb473818f3a1"],

Cell[CellGroupData[{

Cell["\<\
In the  logistic regression  we have a Bernoulli process where one assumes \
that the data has probability\
\>", "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.745483209803815*^9, 3.745483226740646*^9}, {
  3.7454856209219*^9, 3.745485688712174*^9}, {3.745485930760127*^9, 
  3.745485996123598*^9}, {3.7462161579073753`*^9, 3.746216179118224*^9}, {
  3.74669235362668*^9, 3.746692358816144*^9}, {3.746692547676383*^9, 
  3.746692565509449*^9}, {3.7466928123174343`*^9, 3.746692866345549*^9}, {
  3.74669298001623*^9, 3.746692989393147*^9}, {3.746693094048452*^9, 
  3.7466931456856728`*^9}, {3.746693260505262*^9, 3.746693268248575*^9}, {
  3.746700800524507*^9, 3.746700846755909*^9}, {3.746700893231461*^9, 
  3.746700929260833*^9}, {3.746703377633247*^9, 3.746703388272058*^9}, {
  3.746703460926793*^9, 3.746703461330778*^9}, {3.746703507399054*^9, 
  3.7467035103806562`*^9}},ExpressionUUID->"cc0b1f3a-ad25-4bdb-b91a-\
66b18afc233a"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   RowBox[{"\[DoubleStruckCapitalP]", 
    RowBox[{"(", 
     RowBox[{"\[ScriptCapitalD]", "|", 
      SubscriptBox["p", 
       RowBox[{"1", ","}]]}], ")"}]}], "=", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Product]", 
      RowBox[{"i", "=", "1"}], "n"], 
     RowBox[{"\[DoubleStruckCapitalP]", 
      RowBox[{"(", 
       RowBox[{
        FormBox["y",
         TraditionalForm], "|", 
        SubscriptBox["p", "i"]}], ")"}]}]}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Product]", 
      RowBox[{"i", "=", "1"}], "n"], 
     RowBox[{
      SuperscriptBox[
       SubscriptBox["p", "i"], 
       SubscriptBox["y", "i"]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SubscriptBox["p", "i"]}], ")"}], 
       RowBox[{"1", "-", 
        SubscriptBox["y", "i"]}]]}]}]}]}]], "Item",ExpressionUUID->
  "e6b085e8-635f-4555-a37e-63c80bb6970a"],
 ".  "
}], "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.745483209803815*^9, 3.745483226740646*^9}, {
  3.7454856209219*^9, 3.745485688712174*^9}, {3.745485930760127*^9, 
  3.745485996123598*^9}, {3.7462161579073753`*^9, 3.746216179118224*^9}, {
  3.74669235362668*^9, 3.746692358816144*^9}, {3.746692547676383*^9, 
  3.746692565509449*^9}, {3.7466928123174343`*^9, 3.74669282216133*^9}, {
  3.746692854488379*^9, 3.746692907893374*^9}, {3.746693169449925*^9, 
  3.746693199887155*^9}, {3.746693364345614*^9, 3.746693391058859*^9}, {
  3.7466938008159447`*^9, 3.746693818031352*^9}, {3.7467034350968657`*^9, 
  3.746703451407543*^9}, {3.746703512464719*^9, 3.746703512465994*^9}, {
  3.746709594463388*^9, 
  3.746709594463607*^9}},ExpressionUUID->"73f38a56-04e5-49ea-bad5-\
75524119ae78"],

Cell[TextData[{
 "The parameter to estimate the Bernoulli distribution is the probability ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["p", "i"], TraditionalForm]],ExpressionUUID->
  "920bcea6-9d45-4363-9a5c-a42521573a85"],
 " = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["h", "\[Placeholder]"], TraditionalForm]],ExpressionUUID->
  "761d6a1b-6faa-44bd-bd19-284fc7532227"],
 "[t]."
}], "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.745483209803815*^9, 3.745483226740646*^9}, {
  3.7454856209219*^9, 3.745485688712174*^9}, {3.745485930760127*^9, 
  3.745485996123598*^9}, {3.7462161579073753`*^9, 3.746216179118224*^9}, {
  3.74669235362668*^9, 3.746692358816144*^9}, {3.746692547676383*^9, 
  3.746692565509449*^9}, {3.7466928123174343`*^9, 3.74669282216133*^9}, {
  3.746692854488379*^9, 3.746692907893374*^9}, {3.746693169449925*^9, 
  3.746693199887155*^9}, {3.746693364345614*^9, 3.746693391058859*^9}, {
  3.7466938008159447`*^9, 3.746693818031352*^9}, {3.7467034350968657`*^9, 
  3.746703451407543*^9}, {3.746703516911845*^9, 3.7467036459176493`*^9}, {
  3.7467037674538383`*^9, 3.7467037726080093`*^9}, {3.7467096410823936`*^9, 
  3.746709664164645*^9}},ExpressionUUID->"bd787a9d-3245-41ed-ac0d-\
cce70548e9ce"],

Cell["\<\
In order to keep the probability between zero and one, we have to use a \
function f[] to keep it in bounds. \
\>", "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
  3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
  3.744711266439591*^9}, {3.745483209803815*^9, 3.745483226740646*^9}, {
  3.7454856209219*^9, 3.745485688712174*^9}, {3.745485930760127*^9, 
  3.745485996123598*^9}, {3.7462161579073753`*^9, 3.746216179118224*^9}, {
  3.74669235362668*^9, 3.746692358816144*^9}, {3.746692547676383*^9, 
  3.746692565509449*^9}, {3.7466928123174343`*^9, 3.74669282216133*^9}, {
  3.746692854488379*^9, 3.746692907893374*^9}, {3.746693169449925*^9, 
  3.746693199887155*^9}, {3.746693364345614*^9, 3.746693391058859*^9}, {
  3.7466938008159447`*^9, 3.746693818031352*^9}, {3.7467034350968657`*^9, 
  3.746703451407543*^9}, {3.746703516911845*^9, 3.7467036459176493`*^9}, {
  3.7467056695231647`*^9, 
  3.746705708959092*^9}},ExpressionUUID->"a41a8b12-df9e-4932-8bf6-\
e506e275b898"],

Cell[TextData[{
 "The entropy of the Bernoulli experiment is ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"-", "p"}], " ", "log", " ", "p"}], " ", "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "p"}], ")"}], "log", 
    RowBox[{"(", 
     RowBox[{"1", "-", "p"}], ")"}]}]}]],ExpressionUUID->
  "0662d8eb-bf8b-4b7d-83dd-0c9e23c758af"]
}], "Subitem",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQ7c/yVU3p6WvHOVOfa4DogvgLOiC6PlZQF0R7PA50
qXj22lFR0M8HRN/aYWn58flrx/jN4dYg2qRhbtonIK14SiwfRH8LiugF0S1f
mqeCaAvOvdLhL1871p1IlgPRh3lNFti/ApojewtMv1tSugNEZ/hu2AWiczS6
boLoeZpHb4HoswvO3wPRrdNqnoLok6l6bA5AenLyH04Q7crfLQeidR49VATR
FjJSoSD6GoNjOIhuk0zmdAXSM7hyuUH0Nd25wiA6KXavMoi+0frOCESzc+40
AdECT2dPA9F8tzKXgGjDZayrQbSLSwiYBgAC0KH1
  "],ExpressionUUID->"0654c10c-d035-4914-91ac-2431ca94584e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", "  ", 
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "p"}], " ", 
      RowBox[{"Log", "[", 
       RowBox[{"2", ",", " ", "p"}], "]"}]}], " ", "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p"}], ")"}], 
      RowBox[{"Log", "[", 
       RowBox[{"2", ",", 
        RowBox[{"1", "-", "p"}]}], "]"}]}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
   RowBox[{
   "PlotLabel", "\[Rule]", " ", 
    "\"\<Entropy in bits (\!\(\*SubscriptBox[\(Log\), \(2\)]\))\>\""}], ",", 
   " ", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"p", ",", "S"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.746705160779992*^9, 3.7467052081897306`*^9}, {
  3.746705327994781*^9, 3.746705403822577*^9}, {3.746705448573635*^9, 
  3.7467054842332706`*^9}, {3.74670556927766*^9, 3.746705603549017*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"afdb7066-38ab-40cc-90dc-e6908215ae31"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwd2Hc4lf8bB3CzVKKkRAoZaUuUIu++NAhFhfRtK6GyolJKA1mhSLKyGpJI
aAlZxdde4aznnINknEclQvT79PvrXK/ruC7PZzzv+76PyjHX3SdEhISE9IWF
hP5+7jjR01D81dowzs/js9mlFEMxYwU3jrwO0tPT6s96u2Htg5j4l/JbkG/y
vMbc9Qo6FdWundfYif5lFq5Kb/xhVvM5J0F+L6rPqw/n9IVALXThwz9Kdugr
CL7y37cI/N5hf++oxiEMpVdesmuNhO3xkfd35I8j60vyJe7J+ygzVnhVGu+A
dTnz1Avl46Gluil7SMkJmafpO48LEyHBu55io+ECzWHnRNMfyWCtvml8S94T
8d/kivz5jxD1YH6x+r9eWBn640zD3CfYIf3UoDD+HEpm+WQ/35KOfEG1Lq3k
jaBUCx1GTAbCMmU0rTSu4Ltvd36MdDaS5u4KCJb3QwvrtqzEoVxcqrlXZvPW
DyIKKtpH+Lmw8adEVP/1h8tPuyktJ/Mg+dPd9118AGrT1/etcsnHheaoC/1K
QZidn1ezzf01rCI7nHdqhCFlSbKUgXUBrkm8XBIkH4VFa+IDDFo/YNn224E5
blHQWEabRM4pQaO/61fGxyhI6cg8emhZAjXRFRmrzt3FmRt0iHBVCSom0lY1
N0ajsaf2Qc6bUkj+iNZVCr2PK6yONRW3yhHDumicN5mIvLJXPV0zK7HPLjlr
8FsaxgaFP58IqcOMP9cObF+UBadJ86bdS1qgbiXoKQ3JxWXTpsZl1e04X7sB
MUNvMPZnfBHPjA253NlsYeEiLGNpJt6ZzkU+z7i6zqAEPq2Tw8JfeChxTlhg
11+GR3quW2PDO/FTY5N05pmP0I842aAz2gWR0YxZC9SrUL1xUFfp8Bes+3Mk
f8/zauS+jBmKDe9BtZ9ObcWyOpQ1KM5YmvQVShF9o+mCeujeTB/xf9aLvhEO
u0WrEcoS+/JvhfUhrfddlVRYE9ouqx3Tce6H1MLHdGdnM6gGKTGdpQMIdcpz
SFJrRa+Tjuf8igEMb87odPT9DF1rob2f7AQoSOuLO+/3GdcX3dcu+1eA6xIr
9gQEfUbxaEZT4UEBpOqffUiN/Aw9hZyD2UcF0Dj8PJH9+DNiY/ZH+TkJYHP5
xb699Z/hKJye9u2CAHlvXlVDpQ2xlOZsTrQAntplufNK26AjZdokWSeAg45y
0u1PbZimlzHMqhdg3zqfEMnaNmhXMJ9lNgqgv1HnmEh7G74nqDWatAogYpQm
LRC0oUzDV9SFJUC4lZ9zuUI7NBnlCp59Ajx126Ls6dGOCw9MuK5TaMR7JM2g
z7fDdkI8eo4EjVuev4edLrfjIj2HmzeNhtuF3JrDge2wqg7eOCxJY/1VtUtm
ie2YdaRo4sQcGmXhYq2Lq9phqPCRIaxMg/O8LKRBpQMhhSsfLtejUT8g1q+9
pAMNMi3+cRtoFK/Yah61ogNZC1slp+vTSHpaLmm7vgPnhwyk+JtoHHtUcYtp
3oEtggnKz5hGd8Kn8C/nO7DugFj7zZ00BkKrIydqOuAtqpcWYk+D/Z/k0KGm
DlxMbbtQf5xG7XSLvcVtHfiYdXx4jgON54E1sjf4HUhyDumPdiTr8au9KzHa
gWwN9Y+hZ2gMXaq/N0eNAfbruq1652mMOzfHLb3IwK4l77rDgmjsXXfw9ipf
BjaWR8pHB9N4JtwdsNaPgZLxMtX4EBqHYkbcN4UxMHLWoTDtFo0P5QomVikM
dLbOk3pym8ZN5aNDF6oYeD3jxuLz92nMaR0w/6TARETp93Prn9A4nXzOqEaJ
+LZPpnw62c/Tf9Y3qhGn9xaMEZ8Tna3KXMXE+5nJDm8yaLRr6YzSRkyI3s/u
1syi8SDk4kO5U0xom42k1OfRWP7P1EmHd0ww8xjWxiU0sp9mLGkrZmLl0+Op
s0pp6MhaWplWMJHhFH6PSWzwJSZteQMTF9eNnXUrp7Hz1jKzwW4mertcJ29+
ouHRbhHjLcOCG2PA/lwtjWGj7x965VjobhRXWVVH49Kz6L5/F7LQWeXl30ns
58sxNNRkQcctcItFA41odfcuEUMWBgYT46Waabxxj9IOdWJh1lff95btNAwZ
egcmXFjYtEAw9J24ZAvL38WTBcv31s2RHTSq5DTaLX1ZiGCsC2lg0GC+f+U7
9y4LitVGHQZsGkLTGdWJxSy8fWQp3sSjsT1F5eQLOTYKtcIqJ3rJemOkNCoU
2Qh7y1lzpo+Gcth4Z4cKGydUV7syiMe8W46JrWCjiMNyzO2nkWkVdMh2MxuN
H+fY7ROQ8xL+Zj3hyAZzs9cax2/k/42wZGVc2JhctLi/jLi/v6pJ4ywbUFXy
Uf5Oo6ItzcryMhsO8oqKzcTe2fssUm+zYVjx4MDKIfJ+HC7eYvqWDVn/UP7j
YRrV1pmih4rYsMzb9vMb8Wuz2BKPMjaWyUYxN47QuLPec3N8LRvWkiPLK4m3
Smsa0Dw2tA78U/v5Fw1t8bnjoj1srOT+Cp0/SmPRuPDb+QNsLHI8rLKP+Fc3
Y73RCBu8rdv+ayLOKAxfe3cGB0YXGlTfj9GIyfX5nj6Lg0XPbSOGiP2eOr0o
nMtB92Ba47Jxcr+jjVf3KHHw5MaDtkji2S4jy/R1OHBjHey1/U1j0r7z664N
HPzinxAPIO61a3hy3JADpr7pcA5x2dYMjTATDmz4T+2mTdA4v/DwYu4BDk6y
5y55QnzMUsuGeZQDvTPK+tXEO28IB3924CDb9rkWTazxNfVbjRsHMaP7i9dM
0pBR9FKv9OLApM9nvxXxxM5tdmUXOVDI1Gx1JW7O7Sl+68fBax9Vj3Ti4i9v
hvKCOAiw9rpTRpyhEKL5IowD/yibKDbx9asrIx7HcKBvVG0g/YeGy8vJ0pQE
Dqol7fnqxHbddSMJKWS/ft46pU+sZe5xOOoZB4WGacr2xIq+xpHhLzjwDb1t
4UU8NUf2Y3A+B9EN8w4EEH/v7Brzf8dBOlfHPJqYLfdq1bViDi5d7yeNDbnf
OwKP+ZRz0H/KsCGHOO+yXfT5Kg5Gti93KCJOyl5W5VHHwducl8wq4lD++MSZ
Zg5cNrbptBBfmFezxqmdg1OH77uwie1NE08cZ3OgETUS1E2808f1/mE+B7qb
fgQMEG/M2lyzv4cD8xehJ34Qa/BmC9sMcGCwoUz9F/HsuXwdq+8cDEvHfhwn
/r0919F8hIPQY1Jmk8Q9F/3jt//mYJmlSvYf4l6b5Y7JQhSUexuH//rI4BwR
JVEK7LWqSn/dGvQ7Ll6cQu9imaUTxGaqXboKEhR+JD6QHSMuLqipuzedwodr
/3F/Eq+zyXeaO5PC5nt3IwaJn9GJopHSFLwSJpR7iRcH3UyYJUMhcItoJI84
ZrHb+jBZCoWrHnW3E0sV7GuYIUfBZ7BrQT2xn/U/p4LkKWydVaJdTjwqWCo+
VZHC6ykbl7/5e96BMg/8FlGINrQQf0bcqTKuJ6JC4a3seHECcf3e6tMT6hR4
laqsy8TbBLlTLmlS0F2YsOk0ccHNhKRfyyicHsn0tSN+/Nal+cdqCg4Rd55o
/b0fe21d3LUpHNx7PFyB+M4AJGgdCmnplbaixFeUZxv0bqBQ5r3jVgO5j0Nv
RltOGlDICbYfyyd23sNz7TKkIG83wzSO2DrgZSplTCH+g3DIEeIV/dYzPltQ
2Fh4JJlF3pfXe82Lgi3JeXh2TXtFbPze6KzhHgoHpA1Vwon3h61mPNxHQbPi
6AF94iCtaRme9hQ6slaJ+ZH3Vfb+n0OaDhTm35Hi7yZOEh6WYTpSkBR/7qZM
/LqRd9HYhcJeMeWYVyQPuj0Ldsh4U+ALX5JrJfnhwcqZLL9EwT1Y5HQs8cTW
9BzvKxQW+2i5HiSWlYtW4N6goBjjfo1D8sj4jWtvVhiFE/aLW5pIniVNLA62
SKOQa1Gte5nk4QoHeUPhxxSaRQQeK4hf1Up/z00nz2fpdajjJ6n3D37bKWZR
0GtL3qxNPPFP69K+NxQk7Hu1Gn+Q9QYEVQbWUTDMeVXQOEieV+B72aCRQrVI
C+s0sbvtuTWDzRQcs0QzxYkDNe3v23ZQuG5/2XotTSO/ysBJo4tCNmd97ZUB
Ug+kByXKxih81V5n1/qVRuP74JumExTGQqNj7YnvnFafUveHrOfN7jy6h+RV
1X7RDjEuAiw+nhP7a//yCVqKC0efcU3lbhqzxmO/L1DlYn726q3KpH7Vp+u6
J6tzsd/ASz6OSyNiXz2tocnFh86cClli6XzxgTUrubgTPp4hRpH77u72Zft6
LlYtFUluZdGQ/LKVedaMi7ymF6uMST2tvkvtH7XgwuauVnhGG8mPLZfar1hy
UfxS55MM8YyU7NYgay5Stj4vZbXSmH5wQcODw1wwVEI5J0i9lmgaLP/vLHke
QV+qIanvYkVxWarxXGzdzFeVKaPRYbDFhJPIxVPe6SdbST+R9bafik3m4ol7
fP150n/sz98kI/OYC+3DBTPaimm8yOR4CuWQ9c5MWx74ntSXeNWNrI9cPOYM
TnmcT+6Xd0ZZ9A8upJeI1bIf0wgb2XNw9zAX2boTmd2PSL55/f45c5QLGdu+
1QMP/67fYon/JBd+Iqfkh1NpnHCkg85O46HMx/LayAOy37Zrd1kq8XDx7Op7
r+/ROKXzrn2aGQ9ncgKd1waQ/Klvefbagof4kH0lsv405p4Z9D1pycOUnIaK
oRs0ih6qa5Rb8zD9rU9L9jVy/nIRHleP8ODH6pgqf5nGu9HjM0a8eNjSGfsi
/SzZzyKpTZ1JPDBNuHH/HSb1xvRYUuEwD0dOCO7P1CH9yAoVQ4zy0OOnlZCj
TaNQimIUjfOgdU/Ey2YNOf+mg3IfhPgo2yyVEruK5MFBu7DS6Xx4RJbTsktJ
v+Rh6fNpER9KxsGmDQvJ38ca7mvcxscTD193R9LP/+xTmNUdzYdOUJeWZLMA
UQlfPsbf5yNg0lnUiMwLa3fl+u6J5yM6utH1HJkn3HMs6OJkPsbzmucyqgUY
uHC1Nu4ZH91x5yIjywXoEu8OtSrhg6/mpP8hX4AWpRfT3g/wocbc7iwVQ+aX
PdtFo7Z04sC912ZONgL4mvg/yO3uxIoU8d2XqwegwtrRlurfBZ/T7qIeawaw
cb1flLx2N7TnM/p2e/TjwKK6UeGmbiTyrQSf0vvws+oWz+3aF0Sss6/UfNWL
GLFDnrvVemDYmBJT/e4r5rDzUkTKeiD5dKYu51kPxC9f27vB/SsOvD6p0+X0
BULph7J4Mr14pGq5Z51SNzxis27JlPQinLu8zDS6E++XB0rMdukD9WpLkoyA
h9k7PFZcl+pH5H3pnDF9Lpgr65u8C/qhKNjk8ceZjexEqHUeGsD1J2HHUzZ0
4GDWutkLJwegGiDL4ae14Kp/8jXmUwFcB4RzE3/VYeb5qTuOZgqw2e6r0XhV
HWIdz8h0ZwmQFL7gx8aEOrw025BK5wpwrCSKd+yfOnTPbigTKRKA1WQzuTOw
FmaJQhJLmwTgLdi77cSsGsx7dTjMa1yAlMWd7IKpVUh9Um4zNiHAYsNCY7HW
SmjFLlfyFaKRql2wRCOtEqaXR7ICxUmf/mvaxAgq4WMc3hAnTUOgwzhW6fUJ
vLpC2RJVGgfe1V/41F6BzJ6FcVLmNEw6otWZvqUITPA/wiZz1sGmZ5aqRqU4
vntA/bkV6Xuml8ktESuFYkFBtoUtjbWevlpHbpYgOPzfitBjNCK9ZX0uBH+A
47r736Z7k1wN1hPZIFaELX1CrzoukZxcYjJvpW8hlJIcfZ5eoWEu/f3qmdH3
aJ2mN3WHH/n+SEddaV8BtrJaFYPCaaif6Tfb9fEtFvvJmkwl771H0DfKwTof
k3o+Mz+TuckttvRQW0ke2gf4jY/IXKTRPTm0cXUeImxfHtz2gsZXA2GpLLFc
/Fm2+6x/AY2Q3++4K5NfoIPzRs+6iAajP1d9ivgL5EepTKqRnKJMHDZ5nMyG
y+RgYNlH0qc2eK333/UczIbwRNEmsh8folVmaqbjdcCIfVMLmWN276gNaX6M
KP3DS1NJju5lqphl+zyC2cNVuUZkLslkbDdKLkyFxv5obxmS21FHc/Y/tk2B
iPSkIY9P5g7RXfpFvUl4e6Gm8hqpGwsUS4S2j8YheqVuuBWZQ3xeyn2I+xED
d178XhVSh+L3iDSYMu5C0/w0p5jMETKurwIaKsMgJtycFkHmgkPNOlGRIzdB
5ek7HyF1Vp7xiJKouYoC59TVWqTOj50dfKKm64F7SjN+/u3L1pr7/f/3uf8B
86NsBQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$225103#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["p", HoldForm], TraditionalForm], 
    FormBox["S", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
   "\"Entropy in bits (\\!\\(\\*SubscriptBox[\\(Log\\), \\(2\\)]\\))\"", 
    TraditionalForm],
  PlotRange->{{0, 1}, {0., 0.9999999829081538}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.746705180555538*^9, 3.7467053101252213`*^9, {3.7467053747235126`*^9, 
   3.7467054083403*^9}, {3.7467054632653713`*^9, 3.746705485031624*^9}, {
   3.746705576250874*^9, 3.746705606077561*^9}},
 CellLabel->"Out[78]=",ExpressionUUID->"481ae4f4-b4cb-4701-ba19-94c6ae1088e1"]
}, Open  ]],

Cell["\<\
Hence, the choice p=1/2, contains the minimum amount of uncertainty, one bit.\
\>", "Subitem",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c/yVU3p6WvHOVOfa4DogvgLOiC6PlZQF0R7PA50
qXj22lFR0M8HRN/aYWn58flrx/jN4dYg2qRhbtonIK14SiwfRH8LiugF0S1f
mqeCaAvOvdLhL1871p1IlgPRh3lNFti/ApojewtMv1tSugNEZ/hu2AWiczS6
boLoeZpHb4HoswvO3wPRrdNqnoLok6l6bA5AenLyH04Q7crfLQeidR49VATR
FjJSoSD6GoNjOIhuk0zmdAXSM7hyuUH0Nd25wiA6KXavMoiWnP/fCESrHYPQ
AsbyTG4gvuRqFhDNMkVGCkTfe5EuD6InyFoFhCS9cbyUvRRMAwD71Kb4
  "],ExpressionUUID->"269c798f-a032-474d-9316-e1aaffe4611e"],

Cell[TextData[{
 "Rate of entropy production describes very often physical processes - the \
heart of the second law of thermodynamics:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     FractionBox["dS", "dt"], "=", " ", 
     FractionBox["Q", "T"]}], ","}], TraditionalForm]],ExpressionUUID->
  "c77c315d-7865-46c4-b6c3-153aac35ccac"],
 "where Q is the is the heat flow that enters the system and T is the \
temperature. In a similar manner, one approximates the effect of events in \
time to change change the rate of entropy production, in the first assumption \
by in a linear way:  "
}], "Item",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAGIQ7c/yVU3p6WvHOVOfa4DogvgLOiC6PlZQF0R7PA50
qXj22lFR0M8HRN/aYWn58flrx/jN4dYg2qRhbtonIK14SiwfRH8LiugF0S1f
mqeCaAvOvdLhL1871p1IlgPRh3lNFti/ApojewtMv1tSugNEZ/hu2AWiczS6
boLovXzeD0D015aGdyB65ZQ170H0656Df0A0x0dTZgcgLa09QRBEh3xpFwLR
h08IHHAGmWdw4yiIVsxYfhpE74vQuACi+51NmFyB9OYtHcwg2mvFXB4QvWfq
KjDNezRHCESH6Z0B02xPUxPcgfQaoY5EEM0740UmiP5jXFAAolkuJ5aD6BOd
jRVgmo+3AUQLsGxdCKJniTdvAtHuuhA6dNP6HE/VN45arnfANAC7Ds2/
  "],ExpressionUUID->"7953eafc-067b-4077-a76f-85f71fa70436"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "p"}], " ", 
       RowBox[{"Log", "[", " ", "p", "]"}]}], " ", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "p"}], ")"}], 
       RowBox[{"Log", "[", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], "]"}]}]}], ",", "p"}], "]"}]}], " ", 
  "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.746704751434823*^9, 3.746704752641017*^9}, {
  3.7467052135908537`*^9, 3.746705295915799*^9}, {3.7467065997227573`*^9, 
  3.7467066284100857`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"e8af0568-6d64-4a21-a770-c0f48aaad581"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"Log", "[", 
    RowBox[{"1", "-", "p"}], "]"}]}], "+", 
  RowBox[{"Log", "[", "p", "]"}]}]], "Output",
 CellChangeTimes->{{3.746704745339554*^9, 3.746704753070887*^9}, {
  3.746705228151932*^9, 3.746705236099764*^9}, {3.74670529130336*^9, 
  3.746705296624073*^9}, {3.746706617885591*^9, 3.746706630548141*^9}},
 CellLabel->"Out[83]=",ExpressionUUID->"d5898d12-9c4b-417a-89a1-7ea32754dccf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"-", 
     RowBox[{"D", "[", "   ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "p"}], " ", 
         RowBox[{"Log", "[", 
          RowBox[{"2", ",", " ", "p"}], "]"}]}], " ", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], 
         RowBox[{"Log", "[", 
          RowBox[{"2", ",", 
           RowBox[{"1", "-", "p"}]}], "]"}]}]}], ",", "p"}], "]"}]}], "]"}], 
   ",", " ", 
   RowBox[{"{", 
    RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
   RowBox[{
   "PlotLabel", "\[Rule]", " ", 
    "\"\<-S'[p]=-\!\(TraditionalForm\`Log[\*FractionBox[\(p\), \(1 - \
p\)]]\)\>\""}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"p", ",", 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"S", "'"}], "[", "p", "]"}]}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.746705809311365*^9, 3.7467058492917967`*^9}, 
   3.7467065816604853`*^9, {3.746708101524603*^9, 3.7467081293452787`*^9}, {
   3.746709134510638*^9, 3.746709163060424*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"e15f0e9c-931b-4a91-8606-030946f69f21"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVkmk81PvfxpGYscxu37csaXK6K9VJn28JSYmEFiFUREhaUCQRQupIVKQs
WY4tYwmn+YpGi6JItogkMjM/KYTi3/3gel2Pr/f11vII2H1YTEREpO1P/r9Z
98pWRl/zhl8qIxUlDZrYRMes7IeGD0gvVXp1uEwT3xFzL9DL9oVI9tf+Jh9N
TBq6eN9pmT+kapxiWxhq4tqPb1817gmEg2TH4529GjjQzmu7S+oJeOteNDZy
XAN/WHnZPFEpGEKnBXsePVDHKXcVsd6BU5A4MDHP2amOt1MLNz6+cxo6buqe
b/2phquELWsIjRAI0TmdCi5q2M/V9eHlQ6GwU9f1WRVTDWu/Jtia2WEw7Sgd
HvtaFScVMwzsl4WD8dLVL5g7VbGFWk7O2NEIyHz5ztGOporDebdoDXsuQMnP
vICv71Tw6rXGiftSI2FLlrZ39FEVnCW3KyZe6RIUP38Q7peljMNe3Wxyqr0E
lAL9ysggZewU/VFM50A0BASNO0xaKGOZqRMRdXdiYNnl8tHUCSV8tiPlLF8j
DmKlDbuUHZSwQ8KHqhocBwKp5jYjthJmb102delQPLwc2NKiIqWEhyuqT6hl
X4GFq0UGZ5oUsf0/PcdslyUBmBwOkNuiiI1tdAqUm5OA/jorw1BHEZOW+H0Z
OXoV2huybXvFFbHbo4Vy7p5kGKwyyFp4roDlDJPZe1Ovwc4TsxVF+xVwJKlC
P04pBeL/e1ZSeU0eG1ldi30YmAKh7LQar7Py+G10wFhvcwqwY78XnHOTx7pL
jIvYp29ARyv5WTdbHvN+57A73qbCmep59vc3cljme+oajYR0cL5xZYmbvhyu
/OtU6rZP6VBhXSC9iymHXQMdZk5suAW3T3QFX1hk4VIB9VHT6C3IF6+tzepi
4d2jsRuPWdyBusvDlUWJLJz2IdS8ciETaDnzV+pFWXiz6r6cfse7MB76t5LC
Nyb+ut90Kan4Lhzb/HNz5kcmVueHeBavyALCmn+bjZk4wGetnkhfFqxPiUrY
FMnEDK/S/Nx19+H+7TO5PlJMvHffvdKJbzmgtt+N5b+agYnePVL3lXNhdqLG
+pkBA8e4kg47mOdCV13JmKkaA1d4BihXpeRCFOmbjpMEA1P8zaLDTPNgxWHa
QnQ3HT+92L1f4vwD0GISgcFRdLzqX7qEKqkQiAHFjr5PNPyc/dT9lUkhvBks
4Xn00LB7+dm68H2FsJGyNWO6jYYTqwYCBwsLwTEp2cbqMQ2P4uLevJ1FUP6V
ZxSbTsOZ76zL//rnX8jXXFhxZDcNSy9Gulipl8IZnwyBdToVp/k4uxpbloKd
uIj19Tgq1u0wdqf7l0IYnb5XEELFmwree/b+VwpTo7ntPfup+FFBamU1uwzE
niyYJqlRscCBX2/zugxwkFOySR4FO+bffHlS9iEwulQz7RplsZ69cLTxCgci
3AYsBXoyWDnCasPRexyw0NXzrleUwbTirCtS1RxIOl6vnSYtg+dIDmz7IQ7Y
TpnNBX+Txm24+mT/ukqYC/vo3vCfNA41iVz4+bkSflCWn7u6Vxq/prJYbFQN
lZdFGj1SpfCZ1+sh7ccjaKfn91awyZjCrvz8nFQLwt/J+o90yTgn0SRhXrUW
3i8esn2qTMZvduh3u1rUQjAeEJ2UIOPlL1kn9VJroeX5ne7bAyQ80EzkPTSt
gxt2854G10nYqiGX8iq0HmpyurSG5iWxAofeLyrKhZow31aRjxK4asi8pXXj
E1iIc5xUqBbHT45lqOzjN8GSc9f8Ft+L4allZtTi483wSnBgfNRcFIvNFtFU
9F6AuOfBjEXPRe7aRfcqh5IWsBA7wiWKfnFbLq1+zTNqhbkXBz1HjOa4Gsnj
swXCNmBQNu0+kT7DHZ8Z6H9n8hY+X7IsyrGf4uZ8rXtBSWoHu+DFupLvk1yK
2gNieLgDWJ8Szp6snuAm+FQeydLthGnOqsEthwXcaVQ07B3xHpwEEcrl2mPc
4FVNHPnGLoiIvm9xEn3mDpQ0XXmj1QPz5wJUZjQGufPHOm4bhvaCSdlm33zL
Hu7yzZILR+r6IPXegrCS/5ZrdV/raLlCP4inOaVHSfG4Z9TctAddBgDn6dfm
+xZzjfmO0u93foQy6ryYJOtfYFInSE1zH2GH/gUPTjYPxLm3S3XuDIJ22x7S
UM5b8F1d1022GQL5U6Feu/J6oMjaI+vx9BBkFnjNlu4chKlxZdpI6ifIvLfP
7yLjM1Q6WC1J2ToM2zRPsW3MxiBiW/RdzsgwMD5GELx1AtD6sL0rO/ozxEzu
WBWVMQEbTC+lKK0aAY9auodz3yS4qLfOiraPAFVRJm2INAVTLxKHAiO/wAZ9
meji8BlIE3cN3q07CuPG+TMpo7PA7K+8L9Y0CoWV8e5M71+w9HzknvUnxoC3
Nasn02YRRApcS4cYX6GRHCDlpySKgm6VJjKefAXrhCZ6VJsY+m95LInuPw7F
EdfOSJWKI/r2IOOLFD7khMX4pOdKoKwGqvQGOh9O68kyS0skkMn64rFvTD4E
TfnqvqiWQLYGo3mHlPjA8QvOoL2QQPESrlqbdfmgVxHXOCCUQOKN1vIiG/jg
GO8vSFwviab/1hIJP8yHndkDbw+3S6K+FW3tIfV8UG/ntBmokNHdcfr5JVw+
2P1Ovm6kR0YeBQ7LEhv44Cl2f8v/rSSjMd33Z7N4fJDtT0zfZ05G0yr9as1t
fMBfQw7O+5IRXYp/lPWZD6YHy/0zHpOR5YjkrxJZAVTt895V4SOFyjJBd9hV
AI/D4bhjjzT6Hvpd8tAhAWQlVZ5HI9JorfOD8Q+eArhr+mlwzaQ0qqNSK957
CyBYZc0USMkg3oX+zS+D/vwozYpq3yCDej3Ouz2MEcCO5Ef9UpkySEK/7taF
EgEMecWfPHhcFlkvCQj/XSaAbSPZHo9DZVHCgLZHaIUAzJxW5xjHyiJ6Wrxh
cI0AFhIC/vkrWxapkvfXHH0igKsj3t4fu2XRqvGf72w7BfD8nx1+AmsKOli6
lq62IADLzUfNa9ZQUdX+n5Q2ESG430u+aG9JRRSJWpmoJULg1dzEi05UhF3M
SGMkIdx4rap55ywVaUttXeQwhSCV0vetp56KRrzsBTsMheBroWHcoUtD/sp+
z8/tEYIb5CWZ1dEQ7+mK5pXOwj8+lrqrPqUhjRNE09A+IRQuf+Qr1UpDbc1B
eJubEOKtjk2zPtHQqlMh1axjQsi0tEwfk6ajmdaY3H8jhOAi9/jcE3c6uhB9
L7KvUAibyIU8USUGkj0juf1QsRDIi+VVx3UZ6Jb3ccZIqRDWWh6IE65koAqb
9dkERwjN+k+VTawYaIT+pkmMKwTu8PI19acZyCZThGTYLgSSmLqLdQ8DdV09
0lb8TgidN2NKV3xhIK/IlrRVXUJIu1coNP7BQOFeaYYbPwhhPuSgdDiFicqM
TGx2fRGCcouC/9mtTCRf7ZZ0al4Iw78UZi2rmCg7/6nT3O8/fDoTPik+ZSKT
W8s1IkQI6D+j85rSwUTW52dKY5cSoGp57JLPJBOdM7/65jaVANvdDj2ECQsN
tT5mPdEhwMK1oUGkioUCGnQ/WC4jYEWQ/vLTzSz062F87ksDAoL7PA3Uu1lI
LtVp7bsVBHwhlxVL/WahbS5C51FTAn44PaOGWsmh4lG125QdBDib8YoWv8ih
2Ixo935bAioe79n+bFEOee0W6JXYE1DdGWw4oSCPVOvry3Y6EzAiHrP2mLU8
ir96gJfgQYD7jtYM73J5dGRr4xWXwwSwBv72vdIij7bMGtkbexMQOtRrunxU
Hs16zPW+PE6Aecwm3g9NBeS9Nv2bVAgBnRf+KtqaroC2jotU94QRUJiQODhU
o4A0srzPFYYTsKv1wXbjbgXUSV4nuf0SAbnq7x0GVBSRxYdO1birBFAnr7fU
FSoizeubhvZeJ0CHUu+d16aIflnmPTC4QcCVb10VcTOKiFN2atWzW3/2dZ26
ELhNCWlfYm2TzCMABRmlhP9UQgvrzsm+zyfA54XZxKi+MuoWfHqbV0TAz9Vh
i317lVGyc8VBy3ICvNjana1cZeQno6IjzyEgsGbNB5lpZbSt4eLo5yoCDp2n
/7Jjq6BFo90no+v/8LDi+6bmqqCegUfrHLkE+D+7s3R2WAVVpWgt6D4hYKyR
Yqyvr4r8FyZim5oJUL/x2WqOo4q2V+y1TXlBQE5UDcdcVA3peWOm1ysCzvLt
DfPs1VDfm6uZS9oJ4K8P+l4koo5qYmY8298R0GpX4Bfjro5S/nYzzO4iYHVj
QtAUTx0FTvCEQb0EDM3dGp1crYFsctmcLf0EtD0cfMYp0kDL9qeGMAYJEHUO
kzkkr4meROwOj/r0xw+vL6/qHDTR/wAcaEeM
       "]]},
     Annotation[#, "Charting`Private`Tag$225401#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["p", HoldForm], TraditionalForm], 
    FormBox[
     RowBox[{"-", 
       RowBox[{
         SuperscriptBox["S", "\[Prime]", MultilineFunction -> None], "(", 
         TagBox["p", HoldForm], ")"}]}], TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
   "\"-S'[p]=-\\!\\(TraditionalForm\\`Log[\\*FractionBox[\\(p\\), \\(1 - \
p\\)]]\\)\"", TraditionalForm],
  PlotRange->{{0, 1}, {-8.378286001052395, 8.163542208191002}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7467058251162252`*^9, 3.7467058502928047`*^9}, 
   3.7467065833920116`*^9, 3.746708130744315*^9, 3.746709169349153*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"98696f62-3889-456e-8365-261aae8ab42e"]
}, {2}]],

Cell[CellGroupData[{

Cell["\<\
In a similar manner, one can approximate the effect of events in time to the  \
change the rate of entropy production, in the first assumption by in a linear \
way:   \
\>", "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745487358132826*^9, 3.7454874403379087`*^9}, 
   3.745487521037237*^9, {3.7454888583063374`*^9, 3.745488872164597*^9}, {
   3.745504471830068*^9, 3.7455045052045193`*^9}, {3.745504535465555*^9, 
   3.74550464233502*^9}, {3.74550483820763*^9, 3.745504841999709*^9}, {
   3.745504886281239*^9, 3.74550490711649*^9}, {3.746256047024415*^9, 
   3.7462560727878227`*^9}, {3.7462561048720617`*^9, 3.746256132158701*^9}, {
   3.746256538037135*^9, 3.746256540041874*^9}, {3.7462572300083447`*^9, 
   3.7462572664198627`*^9}, {3.746709089706704*^9, 3.746709107630911*^9}, {
   3.7467092128167973`*^9, 
   3.7467092557905703`*^9}},ExpressionUUID->"985b0ef4-4e3e-4d4c-ae90-\
bd853402e95b"],

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Log", "[", 
       FractionBox["p", 
        RowBox[{"1", "-", "p"}]], "]"}], "\[TildeTilde]", 
      RowBox[{
       SubscriptBox["\[Beta]", "0"], " ", "+", " ", 
       RowBox[{
        SubscriptBox["\[Beta]", "1"], "t"}]}]}], " ", "\[Implies]", " ", 
     RowBox[{"p", "[", "x", "]"}]}], " ", "=", " ", 
    FractionBox["1", 
     RowBox[{"1", "+", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", 
         SubscriptBox["\[Beta]", "0"]}], " ", "-", " ", 
        RowBox[{
         SubscriptBox["\[Beta]", "1"], "t", " "}]}]], " "}]]}], 
   TraditionalForm]],ExpressionUUID->"2277745d-4ace-46d9-a5e2-4388910b4fbd"]
}], "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745487358132826*^9, 3.7454874403379087`*^9}, 
   3.745487521037237*^9, {3.7454888583063374`*^9, 3.745488872164597*^9}, {
   3.745504471830068*^9, 3.7455045052045193`*^9}, {3.745504535465555*^9, 
   3.74550464233502*^9}, {3.74550483820763*^9, 3.745504841999709*^9}, {
   3.745504886281239*^9, 3.74550490711649*^9}, {3.746256047024415*^9, 
   3.7462560727878227`*^9}, {3.7462561048720617`*^9, 3.746256132158701*^9}, {
   3.746256538037135*^9, 3.746256540041874*^9}, {3.7462572300083447`*^9, 
   3.7462572664198627`*^9}, {3.746709089706704*^9, 3.746709108119665*^9}, {
   3.74670943580445*^9, 3.7467094903781843`*^9}, {3.7467097326944227`*^9, 
   3.746709732694969*^9}},ExpressionUUID->"b1843bd9-49a5-4033-9c07-\
c8f0272b0c41"],

Cell["The likelihood function of the event becomes:", "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745487358132826*^9, 3.7454874403379087`*^9}, 
   3.745487521037237*^9, {3.7454888583063374`*^9, 3.745488872164597*^9}, {
   3.745504471830068*^9, 3.7455045052045193`*^9}, {3.745504535465555*^9, 
   3.74550464233502*^9}, {3.74550483820763*^9, 3.745504841999709*^9}, {
   3.745504886281239*^9, 3.74550490711649*^9}, {3.746256047024415*^9, 
   3.7462560727878227`*^9}, {3.7462561048720617`*^9, 3.746256132158701*^9}, {
   3.746256538037135*^9, 3.746256540041874*^9}, {3.7462572300083447`*^9, 
   3.7462572664198627`*^9}, {3.746709089706704*^9, 3.746709108119665*^9}, {
   3.74670943580445*^9, 3.7467094903781843`*^9}, {3.746709750437948*^9, 
   3.746709769192514*^9}},ExpressionUUID->"a3917807-d301-42e2-b8fc-\
3b2621ad4be6"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   RowBox[{"\[DoubleStruckCapitalP]", 
    RowBox[{"(", 
     RowBox[{"\[ScriptCapitalD]", "|", "p"}], ")"}]}], "=", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Product]", 
      RowBox[{"i", "=", "1"}], "n"], 
     RowBox[{"\[DoubleStruckCapitalP]", 
      RowBox[{"(", 
       RowBox[{
        FormBox["y",
         TraditionalForm], "|", 
        SubscriptBox["p", "i"]}], ")"}]}]}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Product]", 
      RowBox[{"i", "=", "1"}], "n"], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["\[Beta]", "0"]}], " ", "-", " ", 
           RowBox[{
            SubscriptBox["\[Beta]", "1"], "t", " "}]}]]}], ")"}], 
       RowBox[{"-", 
        SubscriptBox["y", "i"]}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           SubscriptBox["\[Beta]", "0"], "+", 
           RowBox[{"t", " ", 
            SubscriptBox["\[Beta]", "1"]}]}]]}], ")"}], 
       RowBox[{
        SubscriptBox["y", "i"], "-", "1"}]]}]}]}]}]], "Item",ExpressionUUID->
  "1e1c472a-a959-4375-9aec-64319e15e7c5"],
 ".  "
}], "Subitem",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c/yVU3p6WvHOVOfa4DogvgLOiC6PlZQF0R7PA50
qXj22lFR0M8HRN/aYWn58flrx/jN4dYg2qRhbtonIK14SiwfRH8LiugF0S1f
mqeCaAvOvdLhL1871p1IlgPRh3lNFti/ApojewtMv1tSugNEZ/hu2AWiczS6
boLoeZpHb4HoswvO3wPRrdNqnoLok6l6bA5AenLyH04Q7crfLQeidR49VATR
FjJSoSD6GoNjOIhuk0zmdAXSM7hyuUH0r3t8wiA65yWEFr7ix+0BpO9dhdDv
aucpgujdtR/VQbSBea4+iA4qKjAF0QF/zgSD6G0cZ8E0AG8Wqrk=
  "],ExpressionUUID->"66a1424b-cf47-4e8f-93b1-b36084148416"],

Cell["\<\
Usually this has to be maximized numerically, as no analytical values exist.\
\>", "Subitem",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQ7c/yVU3p6WvHOVOfa4DogvgLOiC6PlZQF0R7PA50
qXj22lFR0M8HRN/aYWn58flrx/jN4dYg2qRhbtonIK14SiwfRH8LiugF0S1f
mqeCaAvOvdLhL1871p1IlgPRh3lNFti/ApojewtMv1tSugNEZ/hu2AWiczS6
boLoeZpHb4HoswvO3wPRrdNqnoLok6l6bA5AenLyH04Q7crfLQeidR49VATR
FjJSoSD6GoNjOIhuk0zmdAXSM7hyuUH0r3t8wiA65yWEFr7ix+0BpO9dhdDv
aucpgujdtR/VQbSBea4+iA4qKjAF0RsKvweDaLaUl5EgGgBtFaqH
  "],ExpressionUUID->"55f02391-c774-488d-8648-9a7769c3ed90"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"1", " ", "-", " ", 
   FormBox[
    FractionBox["1", 
     RowBox[{"1", "+", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", 
         SubscriptBox["\[Beta]", "0"]}], " ", "-", " ", 
        RowBox[{
         SubscriptBox["\[Beta]", "1"], "t", " "}]}]], " "}]],
    TraditionalForm]}], "//", "Factor"}]], "Input",
 CellChangeTimes->{{3.746709843884226*^9, 3.746709860878138*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"5300db44-f09a-4ef2-aa24-42f8f1afc497"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"1", "+", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     SubscriptBox["\[Beta]", "0"], "+", 
     RowBox[{"t", " ", 
      SubscriptBox["\[Beta]", "1"]}]}]]}]]], "Output",
 CellChangeTimes->{3.7467098615596952`*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"20a1ada6-27ec-4111-a274-12b342a2ac4a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"177cc76c-d460-4a39-90ed-eeb1ca47d1b5"],

Cell[CellGroupData[{

Cell["3.8 Performance evaluation", "Section",
 CellChangeTimes->{{3.710778725124434*^9, 3.710778725761334*^9}, {
  3.744010544402543*^9, 3.744010546712739*^9}, {3.744711185213903*^9, 
  3.744711190114337*^9}, {3.745487341224194*^9, 3.745487349741597*^9}, {
  3.7454888897787027`*^9, 3.7454888943830748`*^9}, {3.745504870528145*^9, 
  3.745504877683264*^9}, {3.7455220631063004`*^9, 3.745522069067401*^9}, {
  3.746255620090592*^9, 3.74625562879902*^9}, {3.746292175325465*^9, 
  3.74629217752969*^9}, {3.7467180739509706`*^9, 
  3.746718074466593*^9}},ExpressionUUID->"ca9d2620-35dc-481d-8538-\
e2aa34958cca"],

Cell[CellGroupData[{

Cell[TextData[{
 "A = {\[NonBreakingSpace]Predicted positive }     B = { actual positive}     \
",
 Cell[BoxData[
  FormBox[
   OverscriptBox[
    RowBox[{"A", " "}], "_"], TraditionalForm]],ExpressionUUID->
  "f4caa556-e628-4267-85d5-74e8f563bbc6"],
 "= {\[NonBreakingSpace]Predicted negative}        ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
  "4a189d8e-5247-44ea-bbb8-897796d91761"],
 " = {healthy}"
}], "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745487358132826*^9, 3.7454874403379087`*^9}, 
   3.745487521037237*^9, {3.7454888583063374`*^9, 3.745488872164597*^9}, {
   3.745504471830068*^9, 3.7455045052045193`*^9}, {3.745504535465555*^9, 
   3.74550464233502*^9}, {3.74550483820763*^9, 3.745504841999709*^9}, {
   3.745504886281239*^9, 3.74550490711649*^9}, {3.746256047024415*^9, 
   3.7462560727878227`*^9}, {3.7462561048720617`*^9, 3.746256132158701*^9}, {
   3.746256538037135*^9, 3.746256540041874*^9}, {3.7462572300083447`*^9, 
   3.7462572664198627`*^9}, {3.7780402789125977`*^9, 3.778040310801759*^9}, {
   3.77804036782957*^9, 3.778040395887972*^9}, {3.778040503028688*^9, 
   3.778040544621961*^9}, {3.778040595472513*^9, 3.778040617473424*^9}, {
   3.778042403955776*^9, 3.778042463568469*^9}, {3.7781626880269327`*^9, 
   3.778162688027164*^9}, {3.783011951801365*^9, 
   3.7830119534460897`*^9}},ExpressionUUID->"fb933ba0-e5a9-4ee9-ac20-\
35c537acabce"],

Cell[CellGroupData[{

Cell[TextData[{
 "Accuracy: \t\[DoubleStruckCapitalP][ (A\[Intersection]B) \[Union] (",
 Cell[BoxData[
  FormBox[
   OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
  "d80ee2da-23f4-4977-acba-07d1126b7e3f"],
 " \[Intersection]",
 Cell[BoxData[
  FormBox[
   OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
  "3edb8f99-e5e8-4cf1-be3b-12b5fe59c808"],
 ") ]\t\tRate of correct answers"
}], "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745487358132826*^9, 3.7454874403379087`*^9}, 
   3.745487521037237*^9, {3.7454888583063374`*^9, 3.745488872164597*^9}, {
   3.745504471830068*^9, 3.7455045052045193`*^9}, {3.745504535465555*^9, 
   3.74550464233502*^9}, {3.74550483820763*^9, 3.745504841999709*^9}, {
   3.745504886281239*^9, 3.74550490711649*^9}, {3.746256047024415*^9, 
   3.7462560727878227`*^9}, {3.7462561048720617`*^9, 3.746256132158701*^9}, {
   3.746256538037135*^9, 3.746256540041874*^9}, {3.7462572300083447`*^9, 
   3.7462572664198627`*^9}, {3.7780402789125977`*^9, 3.778040310801759*^9}, {
   3.77804036782957*^9, 3.778040395887972*^9}, {3.778040503028688*^9, 
   3.778040544621961*^9}, {3.778040595472513*^9, 3.778040617473424*^9}, {
   3.778042403955776*^9, 3.778042463568469*^9}, {3.7781626952227488`*^9, 
   3.7781627036850147`*^9}},ExpressionUUID->"9392e4d0-c344-4ac2-a31c-\
6337d4a2c5bc"],

Cell[TextData[{
 "Error rate: \t\[DoubleStruckCapitalP][ (",
 Cell[BoxData[
  FormBox[
   OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
  "faf44113-ec72-4092-8b48-5f56eb794b40"],
 " \[Intersection]B) \[Union] (",
 Cell[BoxData[
  FormBox["A", TraditionalForm]],ExpressionUUID->
  "19b7875a-a74e-42d4-99e3-ef55e8c68f5c"],
 " \[Intersection]",
 Cell[BoxData[
  FormBox[
   OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
  "2d9e9665-e7e9-4716-a9f8-5a5e686a92e3"],
 ")]\t\tRate of wrong answers "
}], "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745487358132826*^9, 3.7454874403379087`*^9}, 
   3.745487521037237*^9, {3.7454888583063374`*^9, 3.745488872164597*^9}, {
   3.745504471830068*^9, 3.7455045052045193`*^9}, {3.745504535465555*^9, 
   3.74550464233502*^9}, {3.74550483820763*^9, 3.745504841999709*^9}, {
   3.745504886281239*^9, 3.74550490711649*^9}, {3.746256047024415*^9, 
   3.7462560727878227`*^9}, {3.7462561048720617`*^9, 3.746256132158701*^9}, {
   3.746256538037135*^9, 3.746256540041874*^9}, {3.7462572300083447`*^9, 
   3.7462572664198627`*^9}, {3.7780402789125977`*^9, 3.778040310801759*^9}, {
   3.77804036782957*^9, 3.778040395887972*^9}, {3.778040503028688*^9, 
   3.778040544621961*^9}, {3.778040595472513*^9, 3.778040617473424*^9}, {
   3.778042403955776*^9, 3.778042463568469*^9}, {3.7781626952227488`*^9, 
   3.7781627251816607`*^9}},ExpressionUUID->"180273e9-9580-4236-8e68-\
26b4c80d6b6d"],

Cell[TextData[{
 StyleBox["Precision",
  FontWeight->"Bold"],
 ":\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"\[DoubleStruckCapitalP]", "[", 
     RowBox[{"B", "|", "A"}], "]"}], "=", 
    RowBox[{
     RowBox[{"\[DoubleStruckCapitalP]", "[", 
      RowBox[{"A", "\[Intersection]", "B"}], "]"}], "/", 
     RowBox[{"\[DoubleStruckCapitalP]", "[", "A", "]"}]}]}], 
   TraditionalForm]],ExpressionUUID->"c27d292f-db07-43b2-b8b9-710728e4f509"],
 "\tWhen you predict a cancer is it really cancer?  \[DoubleStruckCapitalP][ \
actually positive | predicted positive]\t"
}], "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745487358132826*^9, 3.7454874403379087`*^9}, 
   3.745487521037237*^9, {3.7454888583063374`*^9, 3.745488872164597*^9}, {
   3.745504471830068*^9, 3.7455045052045193`*^9}, {3.745504535465555*^9, 
   3.74550464233502*^9}, {3.74550483820763*^9, 3.745504841999709*^9}, {
   3.745504886281239*^9, 3.74550490711649*^9}, {3.746256047024415*^9, 
   3.7462560727878227`*^9}, {3.7462561048720617`*^9, 3.746256132158701*^9}, {
   3.746256538037135*^9, 3.746256540041874*^9}, {3.7462572300083447`*^9, 
   3.7462572664198627`*^9}, {3.7780402789125977`*^9, 3.778040310801759*^9}, {
   3.77804036782957*^9, 3.778040395887972*^9}, {3.778040503028688*^9, 
   3.778040544621961*^9}, {3.778040595472513*^9, 3.778040617473424*^9}, {
   3.778042403955776*^9, 3.778042463568469*^9}, {3.7781626952227488`*^9, 
   3.7781627430198317`*^9}, {3.778162899514637*^9, 3.778162915332539*^9}, {
   3.7781638016014147`*^9, 3.77816383710054*^9}, {3.778163871509013*^9, 
   3.778163874198531*^9}},ExpressionUUID->"d7cfbbe2-eb1b-4213-8919-\
66f3011e81ea"],

Cell[TextData[{
 "True positive rate, ",
 StyleBox["sensitivity,",
  FontWeight->"Bold"],
 " ",
 StyleBox["recall",
  FontWeight->"Bold"],
 ": ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"\[DoubleStruckCapitalP]", "[", 
     RowBox[{"A", "|", "B"}], "]"}], " ", "=", 
    RowBox[{
     RowBox[{"\[DoubleStruckCapitalP]", "[", 
      RowBox[{"A", "\[Intersection]", "B"}], "]"}], "/", 
     RowBox[{"\[DoubleStruckCapitalP]", "[", "B", "]"}]}]}], 
   TraditionalForm]],ExpressionUUID->"2a9e222e-02cc-4bd9-80a1-2596fd67b450"],
 " What part of cancers the program detects?",
 StyleBox["  ",
  FontWeight->"Bold"],
 "\[DoubleStruckCapitalP][ predicted positive | actually positive]\t"
}], "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745487358132826*^9, 3.7454874403379087`*^9}, 
   3.745487521037237*^9, {3.7454888583063374`*^9, 3.745488872164597*^9}, {
   3.745504471830068*^9, 3.7455045052045193`*^9}, {3.745504535465555*^9, 
   3.74550464233502*^9}, {3.74550483820763*^9, 3.745504841999709*^9}, {
   3.745504886281239*^9, 3.74550490711649*^9}, {3.746256047024415*^9, 
   3.7462560727878227`*^9}, {3.7462561048720617`*^9, 3.746256132158701*^9}, {
   3.746256538037135*^9, 3.746256540041874*^9}, {3.7462572300083447`*^9, 
   3.7462572664198627`*^9}, {3.7780402789125977`*^9, 3.778040310801759*^9}, {
   3.77804036782957*^9, 3.778040395887972*^9}, {3.778040503028688*^9, 
   3.778040544621961*^9}, {3.778040595472513*^9, 3.778040617473424*^9}, {
   3.778042403955776*^9, 3.778042463568469*^9}, {3.7781626952227488`*^9, 
   3.7781627535458393`*^9}, {3.778163820474971*^9, 
   3.7781638405136967`*^9}},ExpressionUUID->"ab4bf3d8-835d-4384-b212-\
02b703ee2831"],

Cell[TextData[{
 "True negative rate, ",
 StyleBox["specificity",
  FontWeight->"Bold"],
 ":   ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"\[DoubleStruckCapitalP]", "[", 
     RowBox[{
      OverscriptBox["A", "_"], "|", 
      OverscriptBox["B", "_"]}], "]"}], "=", " ", 
    RowBox[{
     RowBox[{"\[DoubleStruckCapitalP]", "[", 
      RowBox[{
       OverscriptBox["A", "_"], " ", "\[Intersection]", 
       OverscriptBox[
        RowBox[{" ", "B"}], "_"]}], "]"}], "/", 
     RowBox[{"\[DoubleStruckCapitalP]", "[", 
      OverscriptBox["B", "_"], "]"}]}]}], TraditionalForm]],ExpressionUUID->
  "202c1441-a663-47e1-a9b5-9457237b3a78"],
 "\tWhat part of healthy people the program detects?",
 StyleBox[" ",
  FontWeight->"Bold"],
 "\[DoubleStruckCapitalP][ predicted healthy | actually healthy]"
}], "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745487358132826*^9, 3.7454874403379087`*^9}, 
   3.745487521037237*^9, {3.7454888583063374`*^9, 3.745488872164597*^9}, {
   3.745504471830068*^9, 3.7455045052045193`*^9}, {3.745504535465555*^9, 
   3.74550464233502*^9}, {3.74550483820763*^9, 3.745504841999709*^9}, {
   3.745504886281239*^9, 3.74550490711649*^9}, {3.746256047024415*^9, 
   3.7462560727878227`*^9}, {3.7462561048720617`*^9, 3.746256132158701*^9}, {
   3.746256538037135*^9, 3.746256540041874*^9}, {3.7462572300083447`*^9, 
   3.7462572664198627`*^9}, {3.7780402789125977`*^9, 3.778040310801759*^9}, {
   3.77804036782957*^9, 3.778040395887972*^9}, {3.778040503028688*^9, 
   3.778040544621961*^9}, {3.778040595472513*^9, 3.778040617473424*^9}, {
   3.778042403955776*^9, 3.778042463568469*^9}, {3.7781626952227488`*^9, 
   3.7781627837894382`*^9}, {3.7781638530328083`*^9, 
   3.7781638694601107`*^9}, {3.809623207330826*^9, 
   3.8096232073309*^9}},ExpressionUUID->"bd9dc01a-536a-4eb6-a671-\
6b3c2fd7ec54"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.778040325463179*^9, 3.778040334839471*^9}, {
   3.778040423106186*^9, 3.778040435682427*^9}, 3.778040636932405*^9, 
   3.7780407184856577`*^9, {3.778041296752945*^9, 3.778041331625362*^9}, 
   3.778042077151248*^9, 3.778042592716084*^9, {3.778163634305196*^9, 
   3.778163638533979*^9}, 
   3.809627946086446*^9},ExpressionUUID->"e51a8c33-e2d5-4c44-a118-\
31b4c78e1d07"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SlideView", "[", 
  RowBox[{"{", 
   RowBox[{
    GraphicsBox[{
      {EdgeForm[GrayLevel[0]], FaceForm[None], 
       RectangleBox[{0.11914062500000036, 0.9021875000000001}, \
{1.133706597222223, 0.11915798611111111}]}, 
      {AbsoluteThickness[1], StrokeForm[{GrayLevel[0.], Opacity[1.]}], 
       EdgeForm[{GrayLevel[0.], Opacity[1.]}], EdgeForm[None], 
       CircleBox[{0.514717881944445, 0.4727039930555552}, \
{0.37504774305555577, 0.25776475694444473}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[1]}], 
       FaceForm[None], 
       DiskBox[{0.6698564131262627, 0.5353693596861445}, \
{0.37485127766927073, 0.31687690802947754}]}, 
      StyleBox[InsetBox[
        StyleBox[Cell["A",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "290b58e7-007c-44ff-ac9e-f7e8f8ddba07"],
         Background->GrayLevel[
          1.]], {0.21645833333333342, 0.475043402777777}, {
        Left, Baseline}, {0.08725325758066345, 0.10995440520972621}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
      StyleBox[InsetBox[Cell["B",
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "5f7540ac-84f4-4c70-910a-031c934947be"], \
{0.8996393782873552, 0.5166831810985388}, {
        Left, Baseline}, {0.09662873806928919, 0.17773815867638984}, {{1., 
        0.}, {0., 1.}},
        BoxID -> "Text9",
        Alignment->{Left, Top}],
       FontSize->42,
       Background->GrayLevel[1.]], InsetBox[
       StyleBox[Cell[TextData[StyleBox["A\[Intersection]B",
         FontSize->41]],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "44c9008e-702e-4357-a5a2-e59c579d3b5e"],
        FontSize->34,
        Background->GrayLevel[
         1.]], {0.4001760896924295, 0.5352097137633784}, {
       Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, {{1., 
       0.}, {0., 1.}},
       Alignment->{Left, Top}], {
       StyleBox[InsetBox[Cell["\[CapitalOmega]",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "7ea5486a-73a0-4334-8517-29d571e0e994"], \
{0.14366319444444464, 0.7957378472222219}, {Left, Baseline},
         Alignment->{Left, Top}],
        FontSize->34,
        Background->GrayLevel[1.]], 
       StyleBox[InsetBox[Cell["x",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "625dcecc-1915-41f0-bf1f-cd2656bf031f"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
         BoxID -> "Text10",
         Alignment->{Left, Top}],
        FontSize->29,
        Background->GrayLevel[1.]]}, 
      PointBox[{0.5812292688027954, 0.3979728350594576}], 
      StyleBox[InsetBox[Cell[TextData[{
         Cell[BoxData[
          FormBox[
           OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
          "45ee7fae-9a5c-4ff2-82ea-76cb80c3d326"],
         "\[Intersection]",
         Cell[BoxData[
          FormBox[
           OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
          "516fc263-a152-4b96-a033-cf0ca7d43e57"]
        }],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "735d7a8e-9dba-46ad-ad31-db077754956c"], \
{0.8675731595377107, 0.1623717245651224}, {
        Left, Baseline}, {0.25738991363786695, 0.12225522698481406}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34,
       Background->RGBColor[0.999893, 1, 0.999847, 0]]},
     BoxID -> "Text11",
     ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
     ImagePadding->{{0., 1.}, {1., 0.}},
     ImageSize->{317.04296875, Automatic},
     PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
      0.09886666666666666, 0.9224788194444445}},
     PlotRangePadding->Automatic], ",", 
    GraphicsBox[{
      {EdgeForm[GrayLevel[0]], FaceForm[Hue[0.25, 1., 1.]], 
       RectangleBox[{0.11914062500000036, 0.9021875000000001}, \
{1.133706597222223, 0.11915798611111111}]}, 
      StyleBox[InsetBox[
        StyleBox[Cell["A",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "1a433adc-32e5-4d8c-ba2b-ba757d3856a6"],
         Background->GrayLevel[
          1.]], {0.18880684703321937, 0.4369069364257647}, {
        Left, Baseline}, {0.08725325758066345, 0.10995440520972621}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
      StyleBox[InsetBox[Cell["A\[Intersection]B",
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "60513796-2493-473d-a965-db5002f656b0"], \
{0.4001760896924295, 0.5352097137633784}, {
        Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34,
       Background->GrayLevel[1.]], InsetBox[
       StyleBox[Cell[TextData[StyleBox["Accuracy",
         FontSize->20]],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "2b3403d2-a441-4c38-9a40-bd1c533138f3"],
        FontSize->34,
        Background->GrayLevel[
         1.]], {0.16771365637827684, 0.8154716429377189}, {Left, Baseline},
       Alignment->{Left, Top}], {{
        StyleBox[InsetBox[Cell["x",
           GeneratedCell->False,
           CellAutoOverwrite->False,
           CellBaseline->Baseline,
           TextAlignment->Left,ExpressionUUID->
           "0a74c20a-091c-49f0-891a-9ebe6d287f24"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
          BoxID -> "Text10",
          Alignment->{Left, Top}],
         FontSize->41,
         Background->GrayLevel[1.]], 
        StyleBox[PointBox[{0.5812292688027954, 0.3979728350594576}],
         FontSize->41], 
        StyleBox[InsetBox[Cell[TextData[{
           Cell[BoxData[
            FormBox[
             OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
            "7aab9061-9c37-4a96-8de8-e58f841fb818"],
           "\[Intersection]",
           Cell[BoxData[
            FormBox[
             OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
            "ea801921-a6e5-4a97-a04c-24d7a091709d"]
          }],
           GeneratedCell->False,
           CellAutoOverwrite->False,
           CellBaseline->Baseline,
           TextAlignment->Left,
           FontSize->32,ExpressionUUID->
           "56f6b015-c2bb-4661-b776-6b06c4806c66"], \
{0.8675731595377107, 0.1623717245651224}, {
          Left, Baseline}, {0.25738991363786695, 0.12225522698481406}, {{1., 
          0.}, {0., 1.}},
          Alignment->{Left, Top}],
         FontSize->41,
         Background->GrayLevel[1.]]}, 
       {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
        8.31763771102671]}], FaceForm[RGBColor[1, 0.999969, 0.999985]], 
        DiskBox[{0.550154845069888, 0.48893691032762665}, \
{0.38244118869161126, 0.25784169970351467}]}}, {
       {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
        5.3088444423098835`]}], FaceForm[RGBColor[0.999893, 1, 0.999847]], 
        StyleBox[DiskBox[{0.7001336004473467, 0.5439141129324904}, {0.37485127766927095, 0.3168769080294773}],
         Notebook$$40$615179`DrawBackFaces -> False]}, 
       StyleBox[InsetBox[Cell["B",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "b7b704ee-bf61-4f87-910d-3728e6142c76"], \
{0.9479537473219998, 0.5159978542600174}, {
         Left, Baseline}, {0.09662873806928919, 0.17773815867638984}, {{1., 
         0.}, {0., 1.}},
         BoxID -> "Text9",
         Alignment->{Left, Top}],
        FontSize->42,
        Background->GrayLevel[1.]]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.45], AbsoluteThickness[
       6.839116472814294], JoinForm[{"Miter", 2.95}]}], FaceForm[{RGBColor[
       0.449454, 1, 0.0318303], Opacity[0.62]}], 
       StyleBox[PolygonBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAzZgQsYPM2D+KJeDqVELmPwchlXsw
D9Y/WY46RY+T4z+pTrvuhnXVP1GflkIn9eI/if6GMZ2h1T+s+KA8XVHhPwVj
f6Ws4tU/7Sk4IGMJ4D/kzLn+s+XWP0IdjcarT90/m2IsPyHi2D8AA/16JBna
P1ViSlDE4do/TB3H9PtI1z9zOxsYTtjdP76vhtJ2fNQ/WJ4iY0Ii4D+K75AA
jCHTPycpk8lPg+E/YHg3upWx0T8GvtpjPuzjP+gQAESaUdA/u9nui8wu5T8i
TrBH+IHQPx2/oDKIb+c/ngJS0T9o0T+XtoQkjHrpP0ScxvkKXdM/WWA3PLJU
6z+i9AonqhHWPwnkNjmPEu0/Lg1fVrdP2j+R1s2cNuvtP+yV/0F3Q98/e2dk
xnW17T+nYIwRrMzhP92bqyOWjOw/ewY9QXSu4z+RC2GYnSPrPxrFdAZVKOU/
k1J0b9ax6D9I+uMiz8TmP20Y0vSCEeY/Vs9rOrbW5z+hzubhbxvjPxLvGYqV
V+g/aygm55M03z88iOrScxboP+r9EORsLNo/wj30GWIz5z/6gtEh
         "]],
        Background->RGBColor[0.137392, 0, 0.349859, 0]]}, 
      StyleBox[InsetBox[Cell[TextData[Cell[BoxData[
         FormBox[
          StyleBox[Cell["A\[Intersection]B",
            GeneratedCell->False,
            CellAutoOverwrite->False,
            CellBaseline->Baseline,
            TextAlignment->Left,ExpressionUUID->
            "47a18cfa-9bfa-47d7-90f1-95c6de319437"],
           FontSize->34,
           Background->GrayLevel[1.]], TraditionalForm]],
         CellChangeTimes->{{3.778040325463179*^9, 3.778040334839471*^9}, {
           3.778040423106186*^9, 3.778040435682427*^9}, 3.778040636932405*^9, 
           3.7780407184856577`*^9, {3.778041296752945*^9, 
           3.778041331625362*^9}, 3.778042077151248*^9, 
           3.778042592716084*^9, {3.778163634305196*^9, 
           3.778163638533979*^9}},ExpressionUUID->
         "9927735f-223c-477a-9d14-09c1f0947cf5"]],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "19c52757-70c4-45d8-8b70-d8ed760542d9"], \
{0.5026965632752107, 0.5054584088753857}, {Left, Baseline},
        Alignment->{Left, Top}],
       FontSize->34,
       Background->RGBColor[1., 1., 1., 0]]},
     BoxID -> "Text11",
     ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
     ImagePadding->{{0., 1.}, {1., 0.}},
     ImageSize->{317.04296875, Automatic},
     PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
      0.09886666666666666, 0.9224788194444445}},
     PlotRangePadding->Automatic], ",", 
    GraphicsBox[{
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
       8.31763771102671]}], FaceForm[RGBColor[0.25098, 0, 0.501961]], 
       DiskBox[{0.5261043831360566, 0.4720961740747762}, \
{0.38244118869161137, 0.2578416997035142}]}, 
      {EdgeForm[GrayLevel[0]], FaceForm[None], 
       RectangleBox[{0.11914062500000036, 0.9021875000000001}, \
{1.133706597222223, 0.11915798611111111}]}, 
      {AbsoluteThickness[1], StrokeForm[{GrayLevel[0.], Opacity[1.]}], 
       EdgeForm[{GrayLevel[0.], Opacity[1.]}], EdgeForm[None], 
       CircleBox[{0.514717881944445, 0.4727039930555552}, \
{0.37504774305555577, 0.25776475694444473}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[1]}], 
       FaceForm[None], 
       DiskBox[{0.6698564131262627, 0.5353693596861445}, \
{0.37485127766927073, 0.31687690802947754}]}, 
      StyleBox[InsetBox[
        StyleBox[Cell["A",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "01851622-d895-41a1-bb74-c0ff4c218503"],
         Background->GrayLevel[
          1.]], {0.21645833333333342, 0.475043402777777}, {
        Left, Baseline}, {0.08725325758066345, 0.10995440520972621}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
      StyleBox[InsetBox[Cell["B",
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "e55433b7-3d8d-47b1-ac6e-dd4f77819275"], \
{0.9085455718276682, 0.4904794683909328}, {
        Left, Baseline}, {0.09662873806928687, 0.17773815867638984}, {{1., 
        0.}, {0., 1.}},
        BoxID -> "Text9",
        Alignment->{Left, Top}],
       FontSize->42,
       Background->GrayLevel[1.]], InsetBox[
       StyleBox[Cell[TextData[StyleBox["A\[Intersection]B",
         FontSize->41]],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "08b87fd7-8ff1-4e56-bf1d-17d47ad4406e"],
        FontSize->34,
        Background->GrayLevel[
         1.]], {0.4001760896924295, 0.5352097137633784}, {
       Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, {{1., 
       0.}, {0., 1.}},
       Alignment->{Left, Top}], 
      StyleBox[InsetBox[Cell[TextData[StyleBox["Precision",
         FontSize->21]],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "81614a97-e5c9-4409-aa09-a4e2bd4bf550"], \
{0.14787026776024456, 0.8121185765256}, {Left, Baseline},
        Alignment->{Left, Top}],
       FontSize->34,
       Background->GrayLevel[1.]], InsetBox[
       StyleBox[Cell[TextData[{
         Cell[BoxData[
          FormBox[
           OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
          "55087bb4-804c-4528-bc76-e1a0a5d883c9"],
         "\[Intersection]",
         Cell[BoxData[
          FormBox[
           OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
          "97399d63-8671-466a-a280-cd97be151b16"]
        }],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "e287dfac-4f9e-425b-a036-b9fefd7f307a"],
        FontSize->34,
        Background->GrayLevel[
         1.]], {0.8675731595377107, 0.1623717245651224}, {
       Left, Baseline}, {0.25738991363786695, 0.12225522698481406}, {{1., 
       0.}, {0., 1.}},
       Alignment->{Left, Top}], 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.45], AbsoluteThickness[
       6.839116472814294], JoinForm[{"Miter", 2.95}]}], FaceForm[{RGBColor[
       1, 0, 0.275135], Opacity[0.62]}], PolygonBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAf7lYb7H71j8qDnOal6flP7lB3Tle
PtQ/+XbN9NH44j9abwOttKTTP/GHKfJpWuI/Oh/P78rQ0z9M4TPsn7bgP7aD
x2PaEdQ/GiWWn0vd3j+W7QG94RTVP4LusiUxGtw/TYN0/U4R1z9A1CLaqePY
PwiDkg7yENk/jO7sU4ET1j8mXGPWewfcP/6ArDH8RtM/ZF2NhLJz3j/KwLZf
EezRP4E5t6jmmuA/oEldGRt80D9hzv5C1QPjP1DES0Y/OM4/FuoSa2NG5D/E
PqxN+5jOP3nPxBEfh+Y/3tN3MMUy0D/zxqgDI5LoP4Rt7FiQJ9I/tnBbG0ls
6j/ixTCGL9zUP2b0WhgmKuw/bt6EtTwa2T/u5vF7zQLtPyxnJaH8Dd4/2HeI
pQzN7D9HSR/B7jHhPzqszwItpOs/G+/P8LYT4z/uG4V3NDvqP7qtB7aXjeQ/
72KYTm3J5z/o4nbSESrmP8ko9tMZKeU/9rf+6fg75z/83grBBjPiP7LXrDnY
vOc/H0lupcFj3T/ccH2CtnvnP50eWaKaW9g/YiaHyaSY5j9J2tua
        "]]}},
     BoxID -> "Text11",
     ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
     ImagePadding->{{0., 1.}, {1., 0.}},
     ImageSize->{317.04296875, Automatic},
     PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
      0.09886666666666666, 0.9224788194444445}},
     PlotRangePadding->Automatic], ",", 
    GraphicsBox[{
      {EdgeForm[GrayLevel[0]], FaceForm[None], 
       RectangleBox[{0.11914062500000036, 0.9021875000000001}, \
{1.133706597222223, 0.11915798611111111}]}, 
      {AbsoluteThickness[8.41395141645195], StrokeForm[{GrayLevel[0.], 
       Opacity[1.]}], EdgeForm[{GrayLevel[0.], Opacity[1.]}], EdgeForm[None], 
       CircleBox[{0.5179010687324936, 0.4727039930555552}, \
{0.375047743055556, 0.2577647569444448}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
       6.839116472814294], JoinForm[{"Miter", 2.95}]}], FaceForm[{Hue[
       0.7444444298744202, 0.9729729890823364, 1.], Opacity[0.62]}], 
       DiskBox[{0.6690334819592798, 0.5324085757834839}, \
{0.37485127766927095, 0.31687690802947777}]}, 
      StyleBox[InsetBox[
        StyleBox[Cell["A",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "be676d32-2f89-49b4-970e-f35148b11128"],
         Background->GrayLevel[
          1.]], {0.18880684703321915, 0.4750434027777768}, {
        Left, Baseline}, {0.11490474388077743, 0.1099544052097262}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
      StyleBox[InsetBox[Cell["B",
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "74218d0b-0756-4c74-8eed-851af16ddcde"], \
{0.8996393782873552, 0.5166831810985388}, {
        Left, Baseline}, {0.09662873806928919, 0.17773815867638984}, {{1., 
        0.}, {0., 1.}},
        BoxID -> "Text9",
        Alignment->{Left, Top}],
       FontSize->42,
       Background->RGBColor[1., 1., 1., 0]], {
       StyleBox[
        InsetBox["", {0.3761256277585978, 0.49033747931757343}, {
         Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, {{1., 
         0.}, {0., 1.}},
         Alignment->{Left, Top}],
        FontColor->RGBColor[0.455726, 0.450141, 0.459648],
        FontOpacity->0.88,
        Background->RGBColor[1., 1., 1., 0]], {
        StyleBox[InsetBox[Cell[TextData[StyleBox["Sensitivity",
           FontSize->18]],
           GeneratedCell->False,
           CellAutoOverwrite->False,
           CellBaseline->Baseline,
           TextAlignment->Left,ExpressionUUID->
           "d211dda4-fc00-48ae-8baa-a56aa716895e"], \
{0.14285332567693804, 0.8269480790187089}, {Left, Baseline},
          Alignment->{Left, Top}],
         FontSize->65,
         Background->GrayLevel[1.]], 
        StyleBox[InsetBox[Cell["x",
           GeneratedCell->False,
           CellAutoOverwrite->False,
           CellBaseline->Baseline,
           TextAlignment->Left,ExpressionUUID->
           "5d60b480-5778-4f34-8129-6cf8163fff3a"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
          BoxID -> "Text10",
          Alignment->{Left, Top}],
         FontSize->65,
         Background->RGBColor[1., 1., 1., 0]]}}, 
      PointBox[{0.5812292688027954, 0.3979728350594576}], 
      StyleBox[InsetBox[
        StyleBox[Cell[TextData[{
          Cell[BoxData[
           FormBox[
            OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
           "4b057cba-5ae8-4635-94bf-2b342efd272e"],
          "\[Intersection]",
          Cell[BoxData[
           FormBox[
            OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
           "236df257-68dd-4bf9-8f39-ecde3133e4a0"]
         }],
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "f7cda513-5c5a-48b1-ab3c-89edeca8a71c"],
         FontSize->34,
         Background->GrayLevel[
          1.]], {0.8675731595377112, 0.1623717245651215}, {
        Left, Baseline}, {0.25738991363786695, 0.12225522698481406}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->32], 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.45], AbsoluteThickness[
       6.839116472814294], JoinForm[{"Miter", 2.95}]}], FaceForm[{RGBColor[
       1, 0, 0.275135], Opacity[0.62]}], PolygonBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAA1cm79A871j9qek7OXLnlPw9SQL+8
fdM/OeOoKJcK4z+xf2YyE+TSPzH0BCYvbOI/kS8ydSkQ0z+MTQ8gZcjgPw2U
Kuk4UdM/mv1MB9YA3z/s/WRCQFTUPwLHaY27Pdw/o5PXgq1Q1j/ArNlBNAfZ
P12T9ZNQUNg/DMejuws31j97bMZb2kbbP35ZY5mGatM/uG3wCRGz3T9KmW3H
mw/SP6vBaOuVOuA/ICIUgaWf0D+KVrCFhKPiP1B1uRVUf84/P3LErRLm4z/E
7xkdEODOP6FXdlTOJuY/XqwumE9W0D8bT1pG0jHoPwRGo8AaS9I/3fgMXvgL
6j9inuftuf/UP418DFvVyes/7rY7Hcc92T8Vb6O+fKLsP6w/3AiHMd4///85
6Lts7D+Htfr0s0PhP2E0gUXcQ+s/W1urJHwl4z8VpDa649rpP/oZ4+lcn+Q/
F+tJkRxp5z8oT1IG1zvmP/GwpxbJyOQ/NiTaHb5N5z8lZ7wDttLhP/JDiG2d
zuc/c1nRKiCj3D8c3Vi2e43nP/IuvCf5mtc/opJi/Wmq5j9VANIo
        "]]}},
     BoxID -> "Text11",
     ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
     ImagePadding->{{0., 1.}, {1., 0.}},
     ImageSize->{317.04296875, Automatic},
     PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
      0.09886666666666666, 0.9224788194444445}},
     PlotRangePadding->Automatic], ",", 
    GraphicsBox[{
      {EdgeForm[GrayLevel[0]], FaceForm[Hue[0.25, 1., 1.]], 
       RectangleBox[{0.11914062500000036, 0.9021875000000001}, \
{1.133706597222223, 0.11915798611111111}]}, 
      StyleBox[InsetBox[
        StyleBox[Cell["A",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "f581cc8b-e7d7-4a8b-ab13-8c7eeb05a6fa"],
         Background->GrayLevel[
          1.]], {0.18880684703321937, 0.4369069364257647}, {Left, Baseline}, 
        {0.08725325758066345, 0.10995440520972621}, {{1., 0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
      StyleBox[InsetBox[Cell["A\[Intersection]B",
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "8f0d09a5-6762-4eb3-bff6-dc877a325c8f"], \
{0.4001760896924295, 0.5352097137633784}, {
        Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34,
       Background->GrayLevel[1.]], InsetBox[
       StyleBox[Cell[TextData[StyleBox["Specificity",
         FontSize->20]],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "2b249be9-3ca4-4089-a60d-bd23470463ac"],
        FontSize->34,
        Background->GrayLevel[
         1.]], {0.16771365637827684, 0.8154716429377189}, {Left, Baseline},
       Alignment->{Left, Top}], {
       StyleBox[InsetBox[Cell["x",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "7258da98-b6fb-4f67-8171-35ced98baddc"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
         BoxID -> "Text10",
         Alignment->{Left, Top}],
        FontSize->29,
        Background->GrayLevel[1.]], 
       PointBox[{0.5812292688027954, 0.3979728350594576}], 
       StyleBox[InsetBox[Cell[TextData[{
          Cell[BoxData[
           FormBox[
            OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
           "5b4105ba-b3c7-4b08-a68f-e1206f54c26f"],
          "\[Intersection]",
          Cell[BoxData[
           FormBox[
            OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
           "e33ac5a6-4e67-4da3-bb41-c6484859c770"]
         }],
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "6f1d8648-f078-4229-848c-1a682a17667c"], \
{0.8675731595377107, 0.1623717245651224}, {
         Left, Baseline}, {0.25738991363786695, 0.12225522698481406}, {{1., 
         0.}, {0., 1.}},
         Alignment->{Left, Top}],
        FontSize->30,
        Background->GrayLevel[1.]], 
       {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
        8.31763771102671]}], FaceForm[RGBColor[0.25098, 0, 0.501961]], 
        DiskBox[{0.550154845069888, 0.4889369103276271}, \
{0.38244118869161126, 0.2578416997035142}]}}, {
       {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
        5.3088444423098835`]}], FaceForm[RGBColor[0.999893, 1, 0.999847]], 
        StyleBox[DiskBox[{0.7001336004473467, 0.5439141129324904}, {0.37485127766927095, 0.3168769080294773}],
         Notebook$$40$615179`DrawBackFaces -> False]}, 
       StyleBox[InsetBox[Cell["B",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "e38b2ea1-1677-4a91-a47d-f934e05f71f2"], \
{0.8996393782873552, 0.5546519310985387}, {
         Left, Baseline}, {0.09662873806928919, 0.17773815867638984}, {{1., 
         0.}, {0., 1.}},
         BoxID -> "Text9",
         Alignment->{Left, Top}],
        FontSize->42,
        Background->GrayLevel[1.]]}},
     BoxID -> "Text11",
     ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
     ImagePadding->{{0., 1.}, {1., 0.}},
     ImageSize->{317.04296875, Automatic},
     PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
      0.09886666666666666, 0.9224788194444445}},
     PlotRangePadding->Automatic], ",", 
    GraphicsBox[{
      {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.999893, 1, 0.999847]], 
       RectangleBox[{0.1191406250000008, 0.9021875000000001}, \
{1.1337065972222231, 0.11915798611111111}]}, 
      StyleBox[InsetBox[
        StyleBox[Cell["A",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "a335587f-53e0-483a-8092-8acc7072d163"],
         Background->GrayLevel[
          1.]], {0.18880684703321937, 0.4369069364257647}, {
        Left, Baseline}, {0.08725325758066345, 0.10995440520972621}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
      StyleBox[InsetBox[Cell["A\[Intersection]B",
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "ca7b3d15-4165-426d-a53a-a3d7e6c1e51b"], \
{0.4001760896924295, 0.5352097137633784}, {
        Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34,
       Background->GrayLevel[1.]], InsetBox[
       StyleBox[Cell[TextData[StyleBox["Miss rate",
         FontSize->20]],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "5d31b55b-bdab-42fb-9a82-2ac9ccdfc207"],
        FontSize->34,
        Background->GrayLevel[
         1.]], {0.16771365637827684, 0.8154716429377189}, {Left, Baseline},
       Alignment->{Left, Top}], {{
        StyleBox[InsetBox[Cell["x",
           GeneratedCell->False,
           CellAutoOverwrite->False,
           CellBaseline->Baseline,
           TextAlignment->Left,ExpressionUUID->
           "78603297-9d48-482c-bede-5e1af9506856"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
          BoxID -> "Text10",
          Alignment->{Left, Top}],
         FontSize->41,
         Background->GrayLevel[1.]], 
        StyleBox[PointBox[{0.5812292688027954, 0.3979728350594576}],
         FontSize->41]}, 
       {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
        8.31763771102671]}], FaceForm[RGBColor[1, 0.999969, 0.999985]], 
        DiskBox[{0.550154845069888, 0.48893691032762665}, \
{0.38244118869161126, 0.25784169970351467}]}}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
       5.3088444423098835`]}], FaceForm[RGBColor[0.187839, 0, 0.422553]], 
       StyleBox[DiskBox[{0.7001336004473476, 0.5439141129324904}, {0.37485127766927095, 0.3168769080294773}],
        Notebook$$40$615179`DrawBackFaces -> False]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.45], AbsoluteThickness[
       6.839116472814294], JoinForm[{"Miter", 2.95}]}], FaceForm[{RGBColor[
       0.449454, 1, 0.0318303], Opacity[0.62]}], PolygonBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAzZgQsYPM2D+KJeDqVELmPwchlXsw
D9Y/WY46RY+T4z+pTrvuhnXVP1GflkIn9eI/if6GMZ2h1T+s+KA8XVHhPwVj
f6Ws4tU/7Sk4IGMJ4D/kzLn+s+XWP0IdjcarT90/m2IsPyHi2D8AA/16JBna
P1ViSlDE4do/TB3H9PtI1z9zOxsYTtjdP76vhtJ2fNQ/WJ4iY0Ii4D+K75AA
jCHTPycpk8lPg+E/YHg3upWx0T8GvtpjPuzjP+gQAESaUdA/u9nui8wu5T8i
TrBH+IHQPx2/oDKIb+c/ngJS0T9o0T+XtoQkjHrpP0ScxvkKXdM/WWA3PLJU
6z+i9AonqhHWPwnkNjmPEu0/Lg1fVrdP2j+R1s2cNuvtP+yV/0F3Q98/e2dk
xnW17T+nYIwRrMzhP92bqyOWjOw/ewY9QXSu4z+RC2GYnSPrPxrFdAZVKOU/
k1J0b9ax6D9I+uMiz8TmP20Y0vSCEeY/Vs9rOrbW5z+hzubhbxvjPxLvGYqV
V+g/aygm55M03z88iOrScxboP+r9EORsLNo/wj30GWIz5z/6gtEh
        "]]}, 
      StyleBox[InsetBox[Cell[TextData[Cell[BoxData[
         FormBox[
          StyleBox[Cell["B",
            GeneratedCell->False,
            CellAutoOverwrite->False,
            CellBaseline->Baseline,
            TextAlignment->Left,ExpressionUUID->
            "c2b2e5ac-a677-4475-a181-8c37d985f71d"],
           FontSize->34,
           Background->GrayLevel[1.]], TraditionalForm]],
         CellChangeTimes->{{3.778040325463179*^9, 3.778040334839471*^9}, {
           3.778040423106186*^9, 3.778040435682427*^9}, 3.778040636932405*^9, 
           3.7780407184856577`*^9, {3.778041296752945*^9, 
           3.778041331625362*^9}, 3.778042077151248*^9, 
           3.778042592716084*^9, {3.778163634305196*^9, 
           3.778163638533979*^9}},ExpressionUUID->
         "9844539b-82d0-4e75-85a5-599539c162c2"]],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "2b364f46-ba3a-4c50-9f44-42dca793a6b8"], \
{0.5261043831360568, 0.46739945038111597}, {Left, Baseline},
        Alignment->{Left, Top}],
       FontSize->34,
       Background->RGBColor[1., 1., 1., 0]], InsetBox[
       StyleBox[Cell[TextData[{
         Cell[BoxData[
          FormBox[
           OverscriptBox["A", "_"], TraditionalForm]],
          FormatType->"TraditionalForm",ExpressionUUID->
          "76f42031-acce-49e9-9602-63a986622022"],
         "\[Intersection]B"
        }],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "247b5379-8c15-4343-91a5-47f1c0c513ee"],
        FontSize->32,
        FontColor->RGBColor[1, 0.309957, 0.31194],
        Background->RGBColor[
         0.1373922331578546, 0., 
          0.34985885404745554`]], {0.6721407030368796, 0.7735304041578228}, {
       Left, Baseline},
       Alignment->{Left, Top}]},
     BoxID -> "Text11",
     ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
     ImagePadding->{{0., 1.}, {1., 0.}},
     ImageSize->{317.04296875, Automatic},
     PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
      0.09886666666666666, 0.9224788194444445}},
     PlotRangePadding->Automatic], ",", 
    GraphicsBox[{
      {EdgeForm[GrayLevel[0]], FaceForm[Hue[0.25, 1., 1.]], 
       RectangleBox[{0.0980038339120374, 0.9224788194444418}, \
{1.11256980613426, 0.13944930555555707}]}, 
      StyleBox[InsetBox[
        StyleBox[Cell["A",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "6344dd79-3c1b-46c0-ad46-1385ca533189"],
         Background->GrayLevel[
          1.]], {0.18880684703321937, 0.4369069364257647}, {
        Left, Baseline}, {0.08725325758066345, 0.10995440520972621}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
      StyleBox[InsetBox[Cell["A\[Intersection]B",
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "55ba3421-1f0c-4748-82e3-d63b30dac70b"], \
{0.4001760896924295, 0.5352097137633784}, {
        Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34,
       Background->GrayLevel[1.]], InsetBox[
       StyleBox[Cell[TextData[StyleBox["Fall-out",
         FontSize->20]],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "3047b201-80a1-4e90-bb7d-b037f4acd61e"],
        FontSize->34,
        Background->GrayLevel[
         1.]], {0.16771365637827684, 0.8154716429377189}, {Left, Baseline},
       Alignment->{Left, Top}], {
       StyleBox[InsetBox[Cell["x",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "d2b6998b-b8c7-4f19-9ee9-e93ae83482ad"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
         BoxID -> "Text10",
         Alignment->{Left, Top}],
        FontSize->29,
        Background->GrayLevel[1.]], 
       PointBox[{0.5812292688027954, 0.3979728350594576}]}, 
      StyleBox[InsetBox[
        StyleBox[Cell["A",
          GeneratedCell->False,
          CellAutoOverwrite->False,
          CellBaseline->Baseline,
          TextAlignment->Left,ExpressionUUID->
          "d2b2d575-cafc-4985-bd8a-3ae09315ad3b"],
         Background->GrayLevel[
          1.]], {0.46865201119566785, 0.4918841390306281}, {
        Left, Baseline}, {0.11490474388077745, 0.1099544052097262}, {{1., 
        0.}, {0., 1.}},
        Alignment->{Left, Top}],
       FontSize->34], 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
       8.31763771102671]}], FaceForm[RGBColor[0.25098, 0, 0.501961]], 
       DiskBox[{0.5501548450698881, 0.4889369103276271}, \
{0.38244118869161126, 0.2578416997035142}]}, 
      {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
       5.3088444423098835`]}], FaceForm[RGBColor[0.999893, 1, 0.999847]], 
       StyleBox[DiskBox[{0.7001336004473468, 0.5538729903684424}, {0.3707878780942424, 0.3168769080294773}],
        Notebook$$40$615179`DrawBackFaces -> False]}, 
      StyleBox[InsetBox[Cell[TextData[Cell[BoxData[
         FormBox[
          OverscriptBox["B", "_"], TraditionalForm]],
         FormatType->"TraditionalForm",ExpressionUUID->
         "88b28b0c-7c65-4e90-b916-7cc3d7b31640"]],
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "a51057b2-f827-472b-849e-aa2c71777418"], \
{0.9742927404723001, 0.19210619104375293}, {
        Left, Baseline}, {0.09662873806928919, 0.17773815867638984}, {{1., 
        0.}, {0., 1.}},
        BoxID -> "Text9",
        Alignment->{Left, Top}],
       FontSize->42,
       Background->RGBColor[0.449454, 1, 0.0318303]]},
     BoxID -> "Text11",
     ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
     ImagePadding->{{0., 1.}, {1., 0.}},
     ImageSize->{317.04296875, Automatic},
     PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
      0.09886666666666666, 0.9224788194444445}},
     PlotRangePadding->Automatic]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.809619156740975*^9, 3.8096191757918577`*^9}, {
   3.809619214539028*^9, 3.809619214853464*^9}, 3.809619252407693*^9, {
   3.809619319601729*^9, 3.809619324597414*^9}, {3.809619501672141*^9, 
   3.809619510145672*^9}, {3.8096195402148447`*^9, 3.8096196799888487`*^9}, {
   3.8096197267931004`*^9, 3.8096197408941174`*^9}, {3.809619820391719*^9, 
   3.80961985013402*^9}, 3.8096198838043003`*^9, {3.80961995045326*^9, 
   3.809619959127542*^9}, {3.809619995953076*^9, 3.809620032674437*^9}, 
   3.809620708805442*^9, {3.809620774339919*^9, 3.809620789063177*^9}, {
   3.809620826099391*^9, 3.809620828585227*^9}, {3.809620866360239*^9, 
   3.8096208732793007`*^9}, {3.8096209066440897`*^9, 3.809620918274064*^9}, {
   3.8096210745823317`*^9, 3.809621102962001*^9}, 3.809621234993161*^9, 
   3.809621581949233*^9, {3.809622614408464*^9, 3.8096226551103*^9}, {
   3.809622715634223*^9, 3.80962276949615*^9}, 3.809622811117751*^9, {
   3.809622892085145*^9, 3.8096229276298857`*^9}, {3.8096229727472897`*^9, 
   3.8096229772980833`*^9}, {3.809623061113285*^9, 3.8096230652200813`*^9}, 
   3.809623108666471*^9, 3.809623368701045*^9, {3.809623590363268*^9, 
   3.809623636457062*^9}, {3.809623682925145*^9, 3.809623743947727*^9}, {
   3.809623785251521*^9, 3.809623807995009*^9}, {3.809623889531842*^9, 
   3.809623896522932*^9}, {3.8096239275220737`*^9, 3.809623934742385*^9}, {
   3.809623984827928*^9, 3.809624001237142*^9}, {3.80962412938765*^9, 
   3.8096241386896467`*^9}, {3.809624226254575*^9, 3.809624268115629*^9}, {
   3.809624323736717*^9, 3.8096243434498787`*^9}, {3.8096243838319693`*^9, 
   3.8096244134930677`*^9}, {3.8096246456652527`*^9, 
   3.8096247186362886`*^9}, {3.809624800733824*^9, 3.809624815235363*^9}, {
   3.809624961184503*^9, 3.809624975419443*^9}, {3.809625104041664*^9, 
   3.809625116444191*^9}, {3.809625321489195*^9, 3.8096253227904177`*^9}, {
   3.809625928683571*^9, 3.8096259301659822`*^9}, 3.809625972642572*^9, {
   3.80962611251875*^9, 3.809626120357792*^9}, {3.8096261517695837`*^9, 
   3.809626151769602*^9}, 3.809626190802581*^9, {3.809626225489091*^9, 
   3.8096262914663486`*^9}, 3.809626323696513*^9, {3.809626412958234*^9, 
   3.809626417685348*^9}, {3.8096264619198503`*^9, 3.8096264811917152`*^9}, {
   3.809626521123747*^9, 3.809627031081995*^9}, {3.809627070185926*^9, 
   3.8096271049553823`*^9}, {3.809627143807548*^9, 3.809627144241378*^9}, {
   3.809627240526929*^9, 3.8096273046453047`*^9}, {3.8096274941231728`*^9, 
   3.8096275680167103`*^9}, {3.8096276783387527`*^9, 
   3.8096276819753017`*^9}, {3.809627757205715*^9, 3.8096277843817253`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"20e1db96-2a1d-4382-a276-d086972dc99f"],

Cell[BoxData[
 TagBox[
  DynamicModuleBox[{Typeset`var$$ = 1}, 
   InterpretationBox[
    TagBox[
     PanelBox[GridBox[{
        {
         ItemBox[GridBox[{
            {GridBox[{
               {
                TagBox[
                 TooltipBox[
                  ButtonBox[
                   StyleBox["\<\"\[FirstPage]\"\>",
                    StripOnInput->False,
                    FontSize->18],
                   Appearance->"Palette",
                   ButtonFunction:>If[Typeset`var$$ =!= 1, Typeset`var$$ = 1],
                   Enabled->Automatic,
                   Evaluator->Automatic,
                   ImageSize->Small,
                   Method->"Preemptive"],
                  DynamicBox[
                   ToBoxes[
                    FEPrivate`FrontEndResource[
                    "SlideshowToolbarText", "TooltipFirstSlide"], 
                    StandardForm]]],
                 Annotation[#, 
                  Dynamic[
                   FEPrivate`FrontEndResource[
                   "SlideshowToolbarText", "TooltipFirstSlide"]], 
                  "Tooltip"]& ], 
                TagBox[
                 TooltipBox[
                  ButtonBox[
                   StyleBox["\<\"\[LeftPointer]\"\>",
                    StripOnInput->False,
                    FontSize->18],
                   Appearance->"Palette",
                   ButtonFunction:>If[Typeset`var$$ > 1, 
                    PreDecrement[Typeset`var$$]],
                   Enabled->Automatic,
                   Evaluator->Automatic,
                   ImageSize->Small,
                   Method->"Preemptive"],
                  DynamicBox[
                   ToBoxes[
                    FEPrivate`FrontEndResource[
                    "SlideshowToolbarText", "TooltipPreviousSlide"], 
                    StandardForm]]],
                 Annotation[#, 
                  Dynamic[
                   FEPrivate`FrontEndResource[
                   "SlideshowToolbarText", "TooltipPreviousSlide"]], 
                  "Tooltip"]& ], 
                TagBox[
                 TooltipBox[
                  ButtonBox[
                   StyleBox["\<\"\[RightPointer]\"\>",
                    StripOnInput->False,
                    FontSize->18],
                   Appearance->"Palette",
                   ButtonFunction:>If[Typeset`var$$ < 7, 
                    PreIncrement[Typeset`var$$]],
                   Enabled->Automatic,
                   Evaluator->Automatic,
                   ImageSize->Small,
                   Method->"Preemptive"],
                  DynamicBox[
                   ToBoxes[
                    FEPrivate`FrontEndResource[
                    "SlideshowToolbarText", "TooltipNextSlide"], 
                    StandardForm]]],
                 Annotation[#, 
                  Dynamic[
                   FEPrivate`FrontEndResource[
                   "SlideshowToolbarText", "TooltipNextSlide"]], 
                  "Tooltip"]& ], 
                TagBox[
                 TooltipBox[
                  ButtonBox[
                   StyleBox["\<\"\[LastPage]\"\>",
                    StripOnInput->False,
                    FontSize->18],
                   Appearance->"Palette",
                   ButtonFunction:>If[Typeset`var$$ =!= 7, Typeset`var$$ = 7],
                   Enabled->Automatic,
                   Evaluator->Automatic,
                   ImageSize->Small,
                   Method->"Preemptive"],
                  DynamicBox[
                   ToBoxes[
                    FEPrivate`FrontEndResource[
                    "SlideshowToolbarText", "TooltipLastSlide"], 
                    StandardForm]]],
                 Annotation[#, 
                  Dynamic[
                   FEPrivate`FrontEndResource[
                   "SlideshowToolbarText", "TooltipLastSlide"]], "Tooltip"]& ]}
              },
              AutoDelete->False,
              GridBoxItemSize->{
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}}]}
           },
           AutoDelete->False,
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
          Alignment->Left,
          StripOnInput->False]},
        {
         ItemBox[
          StyleBox[
           PaneSelectorBox[{1->
            GraphicsBox[{
              {EdgeForm[GrayLevel[0]], FaceForm[None], 
               RectangleBox[{0.11914062500000036, 0.9021875000000001}, \
{1.133706597222223, 0.11915798611111111}]}, 
              {AbsoluteThickness[1], StrokeForm[{GrayLevel[0.], Opacity[1.]}],
                EdgeForm[{GrayLevel[0.], Opacity[1.]}], EdgeForm[None], 
               CircleBox[{0.514717881944445, 0.4727039930555552}, \
{0.37504774305555577, 0.25776475694444473}]}, 
              {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
               1]}], FaceForm[None], 
               DiskBox[{0.6698564131262627, 0.5353693596861445}, \
{0.37485127766927073, 0.31687690802947754}]}, 
              StyleBox[InsetBox[Cell["A",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "527105b6-5b7a-4c8b-8967-0b638506697a"], \
{0.21645833333333342, 0.475043402777777}, {
                Left, Baseline}, {0.08725325758066345, 0.10995440520972621}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
              StyleBox[InsetBox[Cell["B",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "4188a739-a70e-43f1-a32c-606b41d8e94a"], \
{0.8996393782873552, 0.5166831810985388}, {
                Left, Baseline}, {0.09662873806928919, 0.17773815867638984}, \
{{1., 0.}, {0., 1.}},
                BoxID -> "Text9",
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->42,
               Background->GrayLevel[1.]], 
              InsetBox[Cell[TextData[StyleBox["A\[Intersection]B",
                FontSize->41]],
                GeneratedCell->False,
                CellAutoOverwrite->False,
                CellBaseline->Baseline,
                TextAlignment->Left,ExpressionUUID->
                "bc667f82-217f-462a-81fa-b8cc84fed4ea"], \
{0.4001760896924295, 0.5352097137633784}, {
               Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, {{
               1., 0.}, {0., 1.}},
               Alignment->{Left, Top}], {
               StyleBox[InsetBox[Cell["\[CapitalOmega]",
                  GeneratedCell->False,
                  CellAutoOverwrite->False,
                  CellBaseline->Baseline,
                  TextAlignment->Left,ExpressionUUID->
                  "7a6a508b-4134-468e-9404-2ebf696a81d9"], \
{0.14366319444444464, 0.7957378472222219}, {Left, Baseline},
                 Alignment->{Left, Top}],
                StripOnInput->False,
                FontSize->34,
                Background->GrayLevel[1.]], 
               StyleBox[InsetBox[Cell["x",
                  GeneratedCell->False,
                  CellAutoOverwrite->False,
                  CellBaseline->Baseline,
                  TextAlignment->Left,ExpressionUUID->
                  "089c2f04-0b6b-43e8-a8f4-1c9820f7a885"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
                 BoxID -> "Text10",
                 Alignment->{Left, Top}],
                StripOnInput->False,
                FontSize->29,
                Background->GrayLevel[1.]]}, 
              PointBox[{0.5812292688027954, 0.3979728350594576}], 
              StyleBox[InsetBox[Cell[TextData[{
                 Cell[BoxData[
                  FormBox[
                   OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
                  "090d9496-d5c9-4a90-aede-3dbe75b665b8"],
                 "\[Intersection]",
                 Cell[BoxData[
                  FormBox[
                   OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
                  "130d693a-9b64-4b17-b16a-478b8cdd50af"]
                }],
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "cb79c4d3-680a-41d2-a29d-c581a24a2f1a"], \
{0.8675731595377107, 0.1623717245651224}, {
                Left, Baseline}, {0.25738991363786695, 0.12225522698481406}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34,
               Background->RGBColor[0.999893, 1, 0.999847, 0]]},
             BoxID -> "Text11",
             ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
             ImagePadding->{{0., 1.}, {1., 0.}},
             ImageSize->{317.04296875, Automatic},
             
             PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
              0.09886666666666666, 0.9224788194444445}},
             PlotRangePadding->Automatic], 2->
            GraphicsBox[{
              {EdgeForm[GrayLevel[0]], FaceForm[Hue[0.25, 1., 1.]], 
               RectangleBox[{0.11914062500000036, 0.9021875000000001}, \
{1.133706597222223, 0.11915798611111111}]}, 
              StyleBox[InsetBox[Cell["A",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "5c921ec6-c519-475d-82d3-d6c715aaf26e"], \
{0.18880684703321937, 0.4369069364257647}, {
                Left, Baseline}, {0.08725325758066345, 0.10995440520972621}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
              StyleBox[InsetBox[Cell["A\[Intersection]B",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "612df1ed-ab71-4715-b0c0-83d45327dd4e"], \
{0.4001760896924295, 0.5352097137633784}, {
                Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34,
               Background->GrayLevel[1.]], 
              InsetBox[Cell[TextData[StyleBox["Accuracy",
                FontSize->20]],
                GeneratedCell->False,
                CellAutoOverwrite->False,
                CellBaseline->Baseline,
                TextAlignment->Left,ExpressionUUID->
                "0f99c619-3989-47c9-a581-42bcb2ee593f"], \
{0.16771365637827684, 0.8154716429377189}, {Left, Baseline},
               Alignment->{Left, Top}], {{
                StyleBox[InsetBox[Cell["x",
                   GeneratedCell->False,
                   CellAutoOverwrite->False,
                   CellBaseline->Baseline,
                   TextAlignment->Left,ExpressionUUID->
                   "b01eb292-2243-4285-b6a3-636bce31598a"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
                  BoxID -> "Text10",
                  Alignment->{Left, Top}],
                 StripOnInput->False,
                 FontSize->41,
                 Background->GrayLevel[1.]], 
                StyleBox[PointBox[{0.5812292688027954, 0.3979728350594576}],
                 StripOnInput->False,
                 FontSize->41], 
                StyleBox[InsetBox[Cell[TextData[{
                   Cell[BoxData[
                    FormBox[
                    OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
                    "a2846016-8e69-4f09-b2d1-2dbee7778d30"],
                   "\[Intersection]",
                   Cell[BoxData[
                    FormBox[
                    OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
                    "03b5c6c0-5d8f-4f62-805d-bc0aa4aa9ff3"]
                  }],
                   GeneratedCell->False,
                   CellAutoOverwrite->False,
                   CellBaseline->Baseline,
                   TextAlignment->Left,
                   FontSize->32,ExpressionUUID->
                   "b09581c6-5de8-4f17-b857-83bd5c79062e"], \
{0.8675731595377107, 0.1623717245651224}, {
                  Left, Baseline}, \
{0.25738991363786695, 0.12225522698481406}, {{1., 0.}, {0., 1.}},
                  Alignment->{Left, Top}],
                 StripOnInput->False,
                 FontSize->41,
                 Background->GrayLevel[1.]]}, 
               {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], 
                AbsoluteThickness[8.31763771102671]}], FaceForm[RGBColor[
                1, 0.999969, 0.999985]], 
                DiskBox[{0.550154845069888, 0.48893691032762665}, \
{0.38244118869161126, 0.25784169970351467}]}}, {
               {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], 
                AbsoluteThickness[5.3088444423098835`]}], FaceForm[RGBColor[
                0.999893, 1, 0.999847]], 
                StyleBox[DiskBox[{0.7001336004473467, 0.5439141129324904}, {0.37485127766927095, 0.3168769080294773}],
                 StripOnInput->False,
                 Notebook$$40$615179`DrawBackFaces -> False]}, 
               StyleBox[InsetBox[Cell["B",
                  GeneratedCell->False,
                  CellAutoOverwrite->False,
                  CellBaseline->Baseline,
                  TextAlignment->Left,ExpressionUUID->
                  "3d8963ca-c33f-4f6d-8dc5-686a19fb05a8"], \
{0.9479537473219998, 0.5159978542600174}, {
                 Left, Baseline}, {0.09662873806928919, 0.17773815867638984}, \
{{1., 0.}, {0., 1.}},
                 BoxID -> "Text9",
                 Alignment->{Left, Top}],
                StripOnInput->False,
                FontSize->42,
                Background->GrayLevel[1.]]}, 
              {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.45], 
               AbsoluteThickness[6.839116472814294], 
               JoinForm[{"Miter", 2.95}]}], FaceForm[{RGBColor[
               0.449454, 1, 0.0318303], Opacity[0.62]}], 
               StyleBox[PolygonBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAzZgQsYPM2D+KJeDqVELmPwchlXsw
D9Y/WY46RY+T4z+pTrvuhnXVP1GflkIn9eI/if6GMZ2h1T+s+KA8XVHhPwVj
f6Ws4tU/7Sk4IGMJ4D/kzLn+s+XWP0IdjcarT90/m2IsPyHi2D8AA/16JBna
P1ViSlDE4do/TB3H9PtI1z9zOxsYTtjdP76vhtJ2fNQ/WJ4iY0Ii4D+K75AA
jCHTPycpk8lPg+E/YHg3upWx0T8GvtpjPuzjP+gQAESaUdA/u9nui8wu5T8i
TrBH+IHQPx2/oDKIb+c/ngJS0T9o0T+XtoQkjHrpP0ScxvkKXdM/WWA3PLJU
6z+i9AonqhHWPwnkNjmPEu0/Lg1fVrdP2j+R1s2cNuvtP+yV/0F3Q98/e2dk
xnW17T+nYIwRrMzhP92bqyOWjOw/ewY9QXSu4z+RC2GYnSPrPxrFdAZVKOU/
k1J0b9ax6D9I+uMiz8TmP20Y0vSCEeY/Vs9rOrbW5z+hzubhbxvjPxLvGYqV
V+g/aygm55M03z88iOrScxboP+r9EORsLNo/wj30GWIz5z/6gtEh
                 "]],
                StripOnInput->False,
                Background->RGBColor[0.137392, 0, 0.349859, 0]]}, 
              StyleBox[InsetBox[Cell[TextData[Cell[BoxData[
                 FormBox[
                  StyleBox[Cell["A\[Intersection]B",
                    GeneratedCell->False,
                    CellAutoOverwrite->False,
                    CellBaseline->Baseline,
                    TextAlignment->Left,ExpressionUUID->
                    "13312f35-7185-4633-ad9b-6d04cc1d8036"],
                   FontSize->34,
                   Background->GrayLevel[1.]], TraditionalForm]],
                 
                 CellChangeTimes->{{3.778040325463179*^9, 
                   3.778040334839471*^9}, {3.778040423106186*^9, 
                   3.778040435682427*^9}, 3.778040636932405*^9, 
                   3.7780407184856577`*^9, {3.778041296752945*^9, 
                   3.778041331625362*^9}, 3.778042077151248*^9, 
                   3.778042592716084*^9, {3.778163634305196*^9, 
                   3.778163638533979*^9}},ExpressionUUID->
                 "15fdbc7a-9331-4684-a241-47d76f414da1"]],
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "e8ec9e6d-d8ef-4e93-9fd8-9bcd9ea466fe"], \
{0.5026965632752107, 0.5054584088753857}, {Left, Baseline},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34,
               Background->RGBColor[1., 1., 1., 0]]},
             BoxID -> "Text11",
             ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
             ImagePadding->{{0., 1.}, {1., 0.}},
             ImageSize->{317.04296875, Automatic},
             
             PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
              0.09886666666666666, 0.9224788194444445}},
             PlotRangePadding->Automatic], 3->
            GraphicsBox[{
              {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
               8.31763771102671]}], FaceForm[RGBColor[0.25098, 0, 0.501961]], 
               DiskBox[{0.5261043831360566, 0.4720961740747762}, \
{0.38244118869161137, 0.2578416997035142}]}, 
              {EdgeForm[GrayLevel[0]], FaceForm[None], 
               RectangleBox[{0.11914062500000036, 0.9021875000000001}, \
{1.133706597222223, 0.11915798611111111}]}, 
              {AbsoluteThickness[1], StrokeForm[{GrayLevel[0.], Opacity[1.]}],
                EdgeForm[{GrayLevel[0.], Opacity[1.]}], EdgeForm[None], 
               CircleBox[{0.514717881944445, 0.4727039930555552}, \
{0.37504774305555577, 0.25776475694444473}]}, 
              {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
               1]}], FaceForm[None], 
               DiskBox[{0.6698564131262627, 0.5353693596861445}, \
{0.37485127766927073, 0.31687690802947754}]}, 
              StyleBox[InsetBox[Cell["A",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "95971a04-34c4-4990-ab5d-595b45fc2507"], \
{0.21645833333333342, 0.475043402777777}, {
                Left, Baseline}, {0.08725325758066345, 0.10995440520972621}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
              StyleBox[InsetBox[Cell["B",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "7045123b-7cf3-4c40-9a21-9161b3115010"], \
{0.9085455718276682, 0.4904794683909328}, {
                Left, Baseline}, {0.09662873806928687, 0.17773815867638984}, \
{{1., 0.}, {0., 1.}},
                BoxID -> "Text9",
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->42,
               Background->GrayLevel[1.]], 
              InsetBox[Cell[TextData[StyleBox["A\[Intersection]B",
                FontSize->41]],
                GeneratedCell->False,
                CellAutoOverwrite->False,
                CellBaseline->Baseline,
                TextAlignment->Left,ExpressionUUID->
                "70721e03-f56b-401b-8bba-286aed4b4bea"], \
{0.4001760896924295, 0.5352097137633784}, {
               Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, {{
               1., 0.}, {0., 1.}},
               Alignment->{Left, Top}], 
              StyleBox[InsetBox[Cell[TextData[StyleBox["Precision",
                 FontSize->21]],
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "29d86a91-07eb-4136-b166-542e9cc10af4"], \
{0.14787026776024456, 0.8121185765256}, {Left, Baseline},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34,
               Background->GrayLevel[1.]], InsetBox[Cell[TextData[{
                Cell[BoxData[
                 FormBox[
                  OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
                 "eff61f58-3480-44c8-9b50-196a28e2ec7c"],
                "\[Intersection]",
                Cell[BoxData[
                 FormBox[
                  OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
                 "122b73b7-fcd3-49f6-ac9f-9dd4a2c08a70"]
               }],
                GeneratedCell->False,
                CellAutoOverwrite->False,
                CellBaseline->Baseline,
                TextAlignment->Left,ExpressionUUID->
                "4eb3d076-ae24-4c0a-888c-eb0a4737f665"], \
{0.8675731595377107, 0.1623717245651224}, {
               Left, Baseline}, {0.25738991363786695, 0.12225522698481406}, {{
               1., 0.}, {0., 1.}},
               Alignment->{Left, Top}], 
              {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.45], 
               AbsoluteThickness[6.839116472814294], 
               JoinForm[{"Miter", 2.95}]}], FaceForm[{RGBColor[
               1, 0, 0.275135], Opacity[0.62]}], PolygonBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAf7lYb7H71j8qDnOal6flP7lB3Tle
PtQ/+XbN9NH44j9abwOttKTTP/GHKfJpWuI/Oh/P78rQ0z9M4TPsn7bgP7aD
x2PaEdQ/GiWWn0vd3j+W7QG94RTVP4LusiUxGtw/TYN0/U4R1z9A1CLaqePY
PwiDkg7yENk/jO7sU4ET1j8mXGPWewfcP/6ArDH8RtM/ZF2NhLJz3j/KwLZf
EezRP4E5t6jmmuA/oEldGRt80D9hzv5C1QPjP1DES0Y/OM4/FuoSa2NG5D/E
PqxN+5jOP3nPxBEfh+Y/3tN3MMUy0D/zxqgDI5LoP4Rt7FiQJ9I/tnBbG0ls
6j/ixTCGL9zUP2b0WhgmKuw/bt6EtTwa2T/u5vF7zQLtPyxnJaH8Dd4/2HeI
pQzN7D9HSR/B7jHhPzqszwItpOs/G+/P8LYT4z/uG4V3NDvqP7qtB7aXjeQ/
72KYTm3J5z/o4nbSESrmP8ko9tMZKeU/9rf+6fg75z/83grBBjPiP7LXrDnY
vOc/H0lupcFj3T/ccH2CtnvnP50eWaKaW9g/YiaHyaSY5j9J2tua
                "]]}},
             BoxID -> "Text11",
             ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
             ImagePadding->{{0., 1.}, {1., 0.}},
             ImageSize->{317.04296875, Automatic},
             
             PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
              0.09886666666666666, 0.9224788194444445}},
             PlotRangePadding->Automatic], 4->
            GraphicsBox[{
              {EdgeForm[GrayLevel[0]], FaceForm[None], 
               RectangleBox[{0.11914062500000036, 0.9021875000000001}, \
{1.133706597222223, 0.11915798611111111}]}, 
              {AbsoluteThickness[8.41395141645195], StrokeForm[{GrayLevel[0.],
                Opacity[1.]}], EdgeForm[{GrayLevel[0.], Opacity[1.]}], 
               EdgeForm[None], 
               CircleBox[{0.5179010687324936, 0.4727039930555552}, \
{0.375047743055556, 0.2577647569444448}]}, 
              {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
               6.839116472814294], JoinForm[{"Miter", 2.95}]}], FaceForm[{Hue[
               0.7444444298744202, 0.9729729890823364, 1.], Opacity[0.62]}], 
               DiskBox[{0.6690334819592798, 0.5324085757834839}, \
{0.37485127766927095, 0.31687690802947777}]}, 
              StyleBox[InsetBox[Cell["A",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "57deae19-f793-451d-8555-da645737ae85"], \
{0.18880684703321915, 0.4750434027777768}, {
                Left, Baseline}, {0.11490474388077743, 0.1099544052097262}, {{
                1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
              StyleBox[InsetBox[Cell["B",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "4091e563-d69d-4fc3-bfc5-626b99c9eb7d"], \
{0.8996393782873552, 0.5166831810985388}, {
                Left, Baseline}, {0.09662873806928919, 0.17773815867638984}, \
{{1., 0.}, {0., 1.}},
                BoxID -> "Text9",
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->42,
               Background->RGBColor[1., 1., 1., 0]], {
               
               StyleBox[
                InsetBox["", {0.3761256277585978, 0.49033747931757343}, {
                 Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, \
{{1., 0.}, {0., 1.}},
                 Alignment->{Left, Top}],
                StripOnInput->False,
                FontColor->RGBColor[0.455726, 0.450141, 0.459648],
                FontOpacity->0.88,
                Background->RGBColor[1., 1., 1., 0]], {
                StyleBox[InsetBox[Cell[TextData[StyleBox["Sensitivity",
                   FontSize->18]],
                   GeneratedCell->False,
                   CellAutoOverwrite->False,
                   CellBaseline->Baseline,
                   TextAlignment->Left,ExpressionUUID->
                   "65e19a4c-c797-4821-b864-b8bbbabf91a0"], \
{0.14285332567693804, 0.8269480790187089}, {Left, Baseline},
                  Alignment->{Left, Top}],
                 StripOnInput->False,
                 FontSize->65,
                 Background->GrayLevel[1.]], 
                StyleBox[InsetBox[Cell["x",
                   GeneratedCell->False,
                   CellAutoOverwrite->False,
                   CellBaseline->Baseline,
                   TextAlignment->Left,ExpressionUUID->
                   "a2f35480-390b-4f21-a6c3-bafada62ef0d"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
                  BoxID -> "Text10",
                  Alignment->{Left, Top}],
                 StripOnInput->False,
                 FontSize->65,
                 Background->RGBColor[1., 1., 1., 0]]}}, 
              PointBox[{0.5812292688027954, 0.3979728350594576}], 
              StyleBox[InsetBox[Cell[TextData[{
                 Cell[BoxData[
                  FormBox[
                   OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
                  "8889d74e-7858-428d-ba74-40b7a2640eb8"],
                 "\[Intersection]",
                 Cell[BoxData[
                  FormBox[
                   OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
                  "0f530e0f-e5c3-4e67-84c0-db90d036fed7"]
                }],
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "86186f26-1d96-440f-8cbc-1a259440a9e1"], \
{0.8675731595377112, 0.1623717245651215}, {
                Left, Baseline}, {0.25738991363786695, 0.12225522698481406}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->32], 
              {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.45], 
               AbsoluteThickness[6.839116472814294], 
               JoinForm[{"Miter", 2.95}]}], FaceForm[{RGBColor[
               1, 0, 0.275135], Opacity[0.62]}], PolygonBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAA1cm79A871j9qek7OXLnlPw9SQL+8
fdM/OeOoKJcK4z+xf2YyE+TSPzH0BCYvbOI/kS8ydSkQ0z+MTQ8gZcjgPw2U
Kuk4UdM/mv1MB9YA3z/s/WRCQFTUPwLHaY27Pdw/o5PXgq1Q1j/ArNlBNAfZ
P12T9ZNQUNg/DMejuws31j97bMZb2kbbP35ZY5mGatM/uG3wCRGz3T9KmW3H
mw/SP6vBaOuVOuA/ICIUgaWf0D+KVrCFhKPiP1B1uRVUf84/P3LErRLm4z/E
7xkdEODOP6FXdlTOJuY/XqwumE9W0D8bT1pG0jHoPwRGo8AaS9I/3fgMXvgL
6j9inuftuf/UP418DFvVyes/7rY7Hcc92T8Vb6O+fKLsP6w/3AiHMd4///85
6Lts7D+Htfr0s0PhP2E0gUXcQ+s/W1urJHwl4z8VpDa649rpP/oZ4+lcn+Q/
F+tJkRxp5z8oT1IG1zvmP/GwpxbJyOQ/NiTaHb5N5z8lZ7wDttLhP/JDiG2d
zuc/c1nRKiCj3D8c3Vi2e43nP/IuvCf5mtc/opJi/Wmq5j9VANIo
                "]]}},
             BoxID -> "Text11",
             ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
             ImagePadding->{{0., 1.}, {1., 0.}},
             ImageSize->{317.04296875, Automatic},
             
             PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
              0.09886666666666666, 0.9224788194444445}},
             PlotRangePadding->Automatic], 5->
            GraphicsBox[{
              {EdgeForm[GrayLevel[0]], FaceForm[Hue[0.25, 1., 1.]], 
               RectangleBox[{0.11914062500000036, 0.9021875000000001}, \
{1.133706597222223, 0.11915798611111111}]}, 
              StyleBox[InsetBox[Cell["A",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "46674cec-8678-4710-9d7c-9e3689b5461d"], \
{0.18880684703321937, 0.4369069364257647}, {
                Left, Baseline}, {0.08725325758066345, 0.10995440520972621}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
              StyleBox[InsetBox[Cell["A\[Intersection]B",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "ed9f2903-a99b-46f9-aad5-26b0aed30bad"], \
{0.4001760896924295, 0.5352097137633784}, {
                Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34,
               Background->GrayLevel[1.]], 
              InsetBox[Cell[TextData[StyleBox["Specificity",
                FontSize->20]],
                GeneratedCell->False,
                CellAutoOverwrite->False,
                CellBaseline->Baseline,
                TextAlignment->Left,ExpressionUUID->
                "6e401249-9b9c-4df6-bd7e-aa4a5afff127"], \
{0.16771365637827684, 0.8154716429377189}, {Left, Baseline},
               Alignment->{Left, Top}], {
               StyleBox[InsetBox[Cell["x",
                  GeneratedCell->False,
                  CellAutoOverwrite->False,
                  CellBaseline->Baseline,
                  TextAlignment->Left,ExpressionUUID->
                  "d935f5a0-9fe4-45c4-90f7-1c9c297641cd"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
                 BoxID -> "Text10",
                 Alignment->{Left, Top}],
                StripOnInput->False,
                FontSize->29,
                Background->GrayLevel[1.]], 
               PointBox[{0.5812292688027954, 0.3979728350594576}], 
               StyleBox[InsetBox[Cell[TextData[{
                  Cell[BoxData[
                   FormBox[
                    OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
                   "4a3c267c-cfae-4e37-8326-f1d7c960bf3c"],
                  "\[Intersection]",
                  Cell[BoxData[
                   FormBox[
                    OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
                   "2f536646-1032-4004-963c-1ac7b06d5139"]
                 }],
                  GeneratedCell->False,
                  CellAutoOverwrite->False,
                  CellBaseline->Baseline,
                  TextAlignment->Left,ExpressionUUID->
                  "bf92d336-199c-4556-b4a2-d3becb92ffc1"], \
{0.8675731595377107, 0.1623717245651224}, {
                 Left, Baseline}, {0.25738991363786695, 0.12225522698481406}, \
{{1., 0.}, {0., 1.}},
                 Alignment->{Left, Top}],
                StripOnInput->False,
                FontSize->30,
                Background->GrayLevel[1.]], 
               {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], 
                AbsoluteThickness[8.31763771102671]}], FaceForm[RGBColor[
                0.25098, 0, 0.501961]], 
                DiskBox[{0.550154845069888, 0.4889369103276271}, \
{0.38244118869161126, 0.2578416997035142}]}}, {
               {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], 
                AbsoluteThickness[5.3088444423098835`]}], FaceForm[RGBColor[
                0.999893, 1, 0.999847]], 
                StyleBox[DiskBox[{0.7001336004473467, 0.5439141129324904}, {0.37485127766927095, 0.3168769080294773}],
                 StripOnInput->False,
                 Notebook$$40$615179`DrawBackFaces -> False]}, 
               StyleBox[InsetBox[Cell["B",
                  GeneratedCell->False,
                  CellAutoOverwrite->False,
                  CellBaseline->Baseline,
                  TextAlignment->Left,ExpressionUUID->
                  "c691ec15-121c-4f10-b3c4-fde243c0e183"], \
{0.8996393782873552, 0.5546519310985387}, {
                 Left, Baseline}, {0.09662873806928919, 0.17773815867638984}, \
{{1., 0.}, {0., 1.}},
                 BoxID -> "Text9",
                 Alignment->{Left, Top}],
                StripOnInput->False,
                FontSize->42,
                Background->GrayLevel[1.]]}},
             BoxID -> "Text11",
             ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
             ImagePadding->{{0., 1.}, {1., 0.}},
             ImageSize->{317.04296875, Automatic},
             
             PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
              0.09886666666666666, 0.9224788194444445}},
             PlotRangePadding->Automatic], 6->
            GraphicsBox[{
              {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[
               0.999893, 1, 0.999847]], 
               RectangleBox[{0.1191406250000008, 0.9021875000000001}, 
                {1.1337065972222231, 0.11915798611111111}]}, 
              StyleBox[InsetBox[Cell["A",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "ef586ceb-90e5-4e9f-9647-e673814313fb"], \
{0.18880684703321937, 0.4369069364257647}, {
                Left, Baseline}, {0.08725325758066345, 0.10995440520972621}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
              StyleBox[InsetBox[Cell["A\[Intersection]B",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "7e36b2fa-9acc-4bc1-8825-e14a868f0469"], \
{0.4001760896924295, 0.5352097137633784}, {
                Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34,
               Background->GrayLevel[1.]], 
              InsetBox[Cell[TextData[StyleBox["Miss rate",
                FontSize->20]],
                GeneratedCell->False,
                CellAutoOverwrite->False,
                CellBaseline->Baseline,
                TextAlignment->Left,ExpressionUUID->
                "3f78a32c-b44d-4185-8712-fa7b66a97ee1"], \
{0.16771365637827684, 0.8154716429377189}, {Left, Baseline},
               Alignment->{Left, Top}], {{
                StyleBox[InsetBox[Cell["x",
                   GeneratedCell->False,
                   CellAutoOverwrite->False,
                   CellBaseline->Baseline,
                   TextAlignment->Left,ExpressionUUID->
                   "aa832840-12f7-41ac-ac0f-81657b8ac64c"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
                  BoxID -> "Text10",
                  Alignment->{Left, Top}],
                 StripOnInput->False,
                 FontSize->41,
                 Background->GrayLevel[1.]], 
                StyleBox[PointBox[{0.5812292688027954, 0.3979728350594576}],
                 StripOnInput->False,
                 FontSize->41]}, 
               {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], 
                AbsoluteThickness[8.31763771102671]}], FaceForm[RGBColor[
                1, 0.999969, 0.999985]], 
                DiskBox[{0.550154845069888, 0.48893691032762665}, \
{0.38244118869161126, 0.25784169970351467}]}}, 
              {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
               5.3088444423098835`]}], FaceForm[RGBColor[
               0.187839, 0, 0.422553]], 
               StyleBox[DiskBox[{0.7001336004473476, 0.5439141129324904}, {0.37485127766927095, 0.3168769080294773}],
                StripOnInput->False,
                Notebook$$40$615179`DrawBackFaces -> False]}, 
              {EdgeForm[{RGBColor[0., 0., 0.], Opacity[0.45], 
               AbsoluteThickness[6.839116472814294], 
               JoinForm[{"Miter", 2.95}]}], FaceForm[{RGBColor[
               0.449454, 1, 0.0318303], Opacity[0.62]}], 
               PolygonBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAzZgQsYPM2D+KJeDqVELmPwchlXsw
D9Y/WY46RY+T4z+pTrvuhnXVP1GflkIn9eI/if6GMZ2h1T+s+KA8XVHhPwVj
f6Ws4tU/7Sk4IGMJ4D/kzLn+s+XWP0IdjcarT90/m2IsPyHi2D8AA/16JBna
P1ViSlDE4do/TB3H9PtI1z9zOxsYTtjdP76vhtJ2fNQ/WJ4iY0Ii4D+K75AA
jCHTPycpk8lPg+E/YHg3upWx0T8GvtpjPuzjP+gQAESaUdA/u9nui8wu5T8i
TrBH+IHQPx2/oDKIb+c/ngJS0T9o0T+XtoQkjHrpP0ScxvkKXdM/WWA3PLJU
6z+i9AonqhHWPwnkNjmPEu0/Lg1fVrdP2j+R1s2cNuvtP+yV/0F3Q98/e2dk
xnW17T+nYIwRrMzhP92bqyOWjOw/ewY9QXSu4z+RC2GYnSPrPxrFdAZVKOU/
k1J0b9ax6D9I+uMiz8TmP20Y0vSCEeY/Vs9rOrbW5z+hzubhbxvjPxLvGYqV
V+g/aygm55M03z88iOrScxboP+r9EORsLNo/wj30GWIz5z/6gtEh
                "]]}, 
              StyleBox[InsetBox[Cell[TextData[Cell[BoxData[
                 FormBox[
                  StyleBox[Cell["B",
                    GeneratedCell->False,
                    CellAutoOverwrite->False,
                    CellBaseline->Baseline,
                    TextAlignment->Left,ExpressionUUID->
                    "8d5ea384-7488-4a1e-94ae-b0cb56221e94"],
                   FontSize->34,
                   Background->GrayLevel[1.]], TraditionalForm]],
                 
                 CellChangeTimes->{{3.778040325463179*^9, 
                   3.778040334839471*^9}, {3.778040423106186*^9, 
                   3.778040435682427*^9}, 3.778040636932405*^9, 
                   3.7780407184856577`*^9, {3.778041296752945*^9, 
                   3.778041331625362*^9}, 3.778042077151248*^9, 
                   3.778042592716084*^9, {3.778163634305196*^9, 
                   3.778163638533979*^9}},ExpressionUUID->
                 "27898ae9-8f6a-4f09-b2b1-d6ba423d13eb"]],
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "8fa746e3-655a-4955-b442-65512115bf1d"], \
{0.5261043831360568, 0.46739945038111597}, {Left, Baseline},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34,
               Background->RGBColor[1., 1., 1., 0]], InsetBox[Cell[TextData[{
                Cell[BoxData[
                 FormBox[
                  OverscriptBox["A", "_"], TraditionalForm]],ExpressionUUID->
                 "54474ff6-60e2-435a-a9a6-3d04964ab5ef"],
                "\[Intersection]B"
               }],
                GeneratedCell->False,
                CellAutoOverwrite->False,
                CellBaseline->Baseline,
                TextAlignment->Left,ExpressionUUID->
                "c741cc5a-9e71-4bbd-8285-c71644c44dd5"], \
{0.6721407030368796, 0.7735304041578228}, {Left, Baseline},
               Alignment->{Left, Top}]},
             BoxID -> "Text11",
             ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
             ImagePadding->{{0., 1.}, {1., 0.}},
             ImageSize->{317.04296875, Automatic},
             
             PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
              0.09886666666666666, 0.9224788194444445}},
             PlotRangePadding->Automatic], 7->
            GraphicsBox[{
              {EdgeForm[GrayLevel[0]], FaceForm[Hue[0.25, 1., 1.]], 
               RectangleBox[{0.0980038339120374, 0.9224788194444418}, \
{1.11256980613426, 0.13944930555555707}]}, 
              StyleBox[InsetBox[Cell["A",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "cf36a5ec-2f4e-4621-a006-41df2f29e86e"], \
{0.18880684703321937, 0.4369069364257647}, {
                Left, Baseline}, {0.08725325758066345, 0.10995440520972621}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34], InsetBox["", Scaled[{0.5, 0.5}], Center], 
              StyleBox[InsetBox[Cell["A\[Intersection]B",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "3980f470-244f-444d-a69b-97740f339512"], \
{0.4001760896924295, 0.5352097137633784}, {
                Left, Baseline}, {0.29995751075491744, 0.17668779980332255}, \
{{1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34,
               Background->GrayLevel[1.]], 
              InsetBox[Cell[TextData[StyleBox["Fall-out",
                FontSize->20]],
                GeneratedCell->False,
                CellAutoOverwrite->False,
                CellBaseline->Baseline,
                TextAlignment->Left,ExpressionUUID->
                "b00fc4ea-e22b-44ab-855e-87163109392e"], \
{0.16771365637827684, 0.8154716429377189}, {Left, Baseline},
               Alignment->{Left, Top}], {
               StyleBox[InsetBox[Cell["x",
                  GeneratedCell->False,
                  CellAutoOverwrite->False,
                  CellBaseline->Baseline,
                  TextAlignment->Left,ExpressionUUID->
                  "fee8e9e9-e651-4362-9342-e1d80d75cbf7"], \
{0.5261043831360566, 0.32173819703586926}, {Left, Baseline},
                 BoxID -> "Text10",
                 Alignment->{Left, Top}],
                StripOnInput->False,
                FontSize->29,
                Background->GrayLevel[1.]], 
               PointBox[{0.5812292688027954, 0.3979728350594576}]}, 
              StyleBox[InsetBox[Cell["A",
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "f47ef6c1-f7a5-4efa-baa6-6feeafe98b3f"], \
{0.46865201119566785, 0.4918841390306281}, {
                Left, Baseline}, {0.11490474388077745, 0.1099544052097262}, {{
                1., 0.}, {0., 1.}},
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->34], 
              {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
               8.31763771102671]}], FaceForm[RGBColor[0.25098, 0, 0.501961]], 
               DiskBox[{0.5501548450698881, 0.4889369103276271}, \
{0.38244118869161126, 0.2578416997035142}]}, 
              {EdgeForm[{RGBColor[0., 0., 0.], Opacity[1.], AbsoluteThickness[
               5.3088444423098835`]}], FaceForm[RGBColor[
               0.999893, 1, 0.999847]], 
               StyleBox[DiskBox[{0.7001336004473468, 0.5538729903684424}, {0.3707878780942424, 0.3168769080294773}],
                StripOnInput->False,
                Notebook$$40$615179`DrawBackFaces -> False]}, 
              StyleBox[InsetBox[Cell[TextData[Cell[BoxData[
                 FormBox[
                  OverscriptBox["B", "_"], TraditionalForm]],ExpressionUUID->
                 "a872786b-b637-49ce-82b0-f0112c7807a2"]],
                 GeneratedCell->False,
                 CellAutoOverwrite->False,
                 CellBaseline->Baseline,
                 TextAlignment->Left,ExpressionUUID->
                 "987a3730-75e7-4a9e-b16c-128b0148dff7"], \
{0.9742927404723001, 0.19210619104375293}, {
                Left, Baseline}, {0.09662873806928919, 0.17773815867638984}, \
{{1., 0.}, {0., 1.}},
                BoxID -> "Text9",
                Alignment->{Left, Top}],
               StripOnInput->False,
               FontSize->42,
               Background->RGBColor[0.449454, 1, 0.0318303]]},
             BoxID -> "Text11",
             ImageMargins->{{0., 3.39453125}, {0.5625, 0.}},
             ImagePadding->{{0., 1.}, {1., 0.}},
             ImageSize->{317.04296875, Automatic},
             
             PlotRange->{{0.09800383391203739, 1.1548433883101858`}, {
              0.09886666666666666, 0.9224788194444445}},
             PlotRangePadding->Automatic]}, Dynamic[Typeset`var$$],
            Alignment->Automatic,
            ImageSize->All,
            TransitionDirection->Horizontal,
            TransitionDuration->0.5,
            TransitionEffect->Automatic],
           Deployed->False,
           StripOnInput->False],
          Background->GrayLevel[1],
          Frame->True,
          FrameStyle->GrayLevel[0.8235294117647058],
          StripOnInput->False]}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      BaseStyle->{},
      BaselinePosition->Automatic,
      DefaultBaseStyle->"SlideView",
      FrameMargins->6,
      ImageMargins->Automatic],
     Deploy,
     DefaultBaseStyle->"Deploy"],
    SlideView[{
      Graphics[{{
         EdgeForm[
          GrayLevel[0]], 
         FaceForm[None], 
         Rectangle[{0.11914062500000036`, 0.9021875000000001}, {
          1.133706597222223, 0.11915798611111111`}]}, {
         AbsoluteThickness[1], 
         StrokeForm[{
           GrayLevel[0.], 
           Opacity[1.]}], 
         EdgeForm[{
           GrayLevel[0.], 
           Opacity[1.]}], 
         EdgeForm[None], 
         Circle[{0.514717881944445, 0.4727039930555552}, {
          0.37504774305555577`, 0.25776475694444473`}]}, {
         EdgeForm[{
           RGBColor[0., 0., 0.], 
           Opacity[1.], 
           AbsoluteThickness[1]}], 
         FaceForm[None], 
         Disk[{0.6698564131262627, 0.5353693596861445}, {0.37485127766927073`,
           0.31687690802947754`}]}, 
        Style[
         Inset[
          Cell[
          "A", GeneratedCell -> False, CellAutoOverwrite -> False, 
           CellBaseline -> Baseline, TextAlignment -> Left], {
          0.21645833333333342`, 0.475043402777777}, {Left, Baseline}, {
          0.08725325758066345, 0.10995440520972621`}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34], 
        Inset[Null, 
         Scaled[{0.5, 0.5}], Center], 
        Style[
         Inset[
          Cell[
          "B", GeneratedCell -> False, CellAutoOverwrite -> False, 
           CellBaseline -> Baseline, TextAlignment -> Left], {
          0.8996393782873552, 0.5166831810985388}, {Left, Baseline}, {
          0.09662873806928919, 0.17773815867638984`}, {{1., 0.}, {0., 1.}}, 
          BoxID -> "Text9", Alignment -> {Left, Top}], FontSize -> 42, 
         Background -> GrayLevel[1.]], 
        Inset[
         Cell[
          TextData[
           StyleBox["A\[Intersection]B", FontSize -> 41]], GeneratedCell -> 
          False, CellAutoOverwrite -> False, CellBaseline -> Baseline, 
          TextAlignment -> Left], {0.4001760896924295, 0.5352097137633784}, {
         Left, Baseline}, {0.29995751075491744`, 0.17668779980332255`}, {{1., 
         0.}, {0., 1.}}, Alignment -> {Left, Top}], {
         Style[
          Inset[
           Cell[
           "\[CapitalOmega]", GeneratedCell -> False, CellAutoOverwrite -> 
            False, CellBaseline -> Baseline, TextAlignment -> Left], {
           0.14366319444444464`, 0.7957378472222219}, {Left, Baseline}, 
           Alignment -> {Left, Top}], FontSize -> 34, Background -> 
          GrayLevel[1.]], 
         Style[
          Inset[
           Cell[
           "x", GeneratedCell -> False, CellAutoOverwrite -> False, 
            CellBaseline -> Baseline, TextAlignment -> Left], {
           0.5261043831360566, 0.32173819703586926`}, {Left, Baseline}, BoxID -> 
           "Text10", Alignment -> {Left, Top}], FontSize -> 29, Background -> 
          GrayLevel[1.]]}, 
        Point[{0.5812292688027954, 0.3979728350594576}], 
        Style[
         Inset[
          Cell[
           TextData[{
             Cell[
              BoxData[
               FormBox[
                OverscriptBox["A", "_"], TraditionalForm]]], 
             "\[Intersection]", 
             Cell[
              BoxData[
               FormBox[
                OverscriptBox["B", "_"], TraditionalForm]]]}], GeneratedCell -> 
           False, CellAutoOverwrite -> False, CellBaseline -> Baseline, 
           TextAlignment -> Left], {0.8675731595377107, 0.1623717245651224}, {
          Left, Baseline}, {0.25738991363786695`, 0.12225522698481406`}, {{1.,
           0.}, {0., 1.}}, Alignment -> {Left, Top}], FontSize -> 34, 
         Background -> RGBColor[0.999893, 1, 0.999847, 0]]}, BoxID -> 
       "Text11", ImageMargins -> {{0., 3.39453125}, {0.5625, 0.}}, 
       ImagePadding -> {{0., 1.}, {1., 0.}}, 
       ImageSize -> {317.04296875, Automatic}, 
       PlotRange -> {{0.09800383391203739, 1.1548433883101858`}, {
        0.09886666666666666, 0.9224788194444445}}, PlotRangePadding -> 
       Automatic], 
      Graphics[{{
         EdgeForm[
          GrayLevel[0]], 
         FaceForm[
          Hue[0.25, 1., 1.]], 
         Rectangle[{0.11914062500000036`, 0.9021875000000001}, {
          1.133706597222223, 0.11915798611111111`}]}, 
        Style[
         Inset[
          Cell[
          "A", GeneratedCell -> False, CellAutoOverwrite -> False, 
           CellBaseline -> Baseline, TextAlignment -> Left], {
          0.18880684703321937`, 0.4369069364257647}, {Left, Baseline}, {
          0.08725325758066345, 0.10995440520972621`}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34], 
        Inset[Null, 
         Scaled[{0.5, 0.5}], Center], 
        Style[
         Inset[
          Cell[
          "A\[Intersection]B", GeneratedCell -> False, CellAutoOverwrite -> 
           False, CellBaseline -> Baseline, TextAlignment -> Left], {
          0.4001760896924295, 0.5352097137633784}, {Left, Baseline}, {
          0.29995751075491744`, 0.17668779980332255`}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34, Background -> 
         GrayLevel[1.]], 
        Inset[
         Cell[
          TextData[
           StyleBox["Accuracy", FontSize -> 20]], GeneratedCell -> False, 
          CellAutoOverwrite -> False, CellBaseline -> Baseline, TextAlignment -> 
          Left], {0.16771365637827684`, 0.8154716429377189}, {Left, Baseline},
          Alignment -> {Left, Top}], {{
          Style[
           Inset[
            Cell[
            "x", GeneratedCell -> False, CellAutoOverwrite -> False, 
             CellBaseline -> Baseline, TextAlignment -> Left], {
            0.5261043831360566, 0.32173819703586926`}, {Left, Baseline}, 
            BoxID -> "Text10", Alignment -> {Left, Top}], FontSize -> 41, 
           Background -> GrayLevel[1.]], 
          Style[
           Point[{0.5812292688027954, 0.3979728350594576}], FontSize -> 41], 
          Style[
           Inset[
            Cell[
             TextData[{
               Cell[
                BoxData[
                 FormBox[
                  OverscriptBox["A", "_"], TraditionalForm]]], 
               "\[Intersection]", 
               Cell[
                BoxData[
                 FormBox[
                  OverscriptBox["B", "_"], TraditionalForm]]]}], 
             GeneratedCell -> False, CellAutoOverwrite -> False, CellBaseline -> 
             Baseline, TextAlignment -> Left, FontSize -> 32], {
            0.8675731595377107, 0.1623717245651224}, {Left, Baseline}, {
            0.25738991363786695`, 0.12225522698481406`}, {{1., 0.}, {0., 1.}},
             Alignment -> {Left, Top}], FontSize -> 41, Background -> 
           GrayLevel[1.]]}, {
          EdgeForm[{
            RGBColor[0., 0., 0.], 
            Opacity[1.], 
            AbsoluteThickness[8.31763771102671]}], 
          FaceForm[
           RGBColor[1, 0.999969, 0.999985]], 
          
          Disk[{0.550154845069888, 0.48893691032762665`}, {
           0.38244118869161126`, 0.25784169970351467`}]}}, {{
          EdgeForm[{
            RGBColor[0., 0., 0.], 
            Opacity[1.], 
            AbsoluteThickness[5.3088444423098835`]}], 
          FaceForm[
           RGBColor[0.999893, 1, 0.999847]], 
          Style[
           
           Disk[{0.7001336004473467, 0.5439141129324904}, {
            0.37485127766927095`, 0.3168769080294773}], 
           Notebook$$40$615179`DrawBackFaces -> False]}, 
         Style[
          Inset[
           Cell[
           "B", GeneratedCell -> False, CellAutoOverwrite -> False, 
            CellBaseline -> Baseline, TextAlignment -> Left], {
           0.9479537473219998, 0.5159978542600174}, {Left, Baseline}, {
           0.09662873806928919, 0.17773815867638984`}, {{1., 0.}, {0., 1.}}, 
           BoxID -> "Text9", Alignment -> {Left, Top}], FontSize -> 42, 
          Background -> GrayLevel[1.]]}, {
         EdgeForm[{
           RGBColor[0., 0., 0.], 
           Opacity[0.45], 
           AbsoluteThickness[6.839116472814294], 
           JoinForm[{"Miter", 2.95}]}], 
         FaceForm[{
           RGBColor[0.449454, 1, 0.0318303], 
           Opacity[0.62]}], 
         Style[
          Polygon[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAzZgQsYPM2D+KJeDqVELmPwchlXsw
D9Y/WY46RY+T4z+pTrvuhnXVP1GflkIn9eI/if6GMZ2h1T+s+KA8XVHhPwVj
f6Ws4tU/7Sk4IGMJ4D/kzLn+s+XWP0IdjcarT90/m2IsPyHi2D8AA/16JBna
P1ViSlDE4do/TB3H9PtI1z9zOxsYTtjdP76vhtJ2fNQ/WJ4iY0Ii4D+K75AA
jCHTPycpk8lPg+E/YHg3upWx0T8GvtpjPuzjP+gQAESaUdA/u9nui8wu5T8i
TrBH+IHQPx2/oDKIb+c/ngJS0T9o0T+XtoQkjHrpP0ScxvkKXdM/WWA3PLJU
6z+i9AonqhHWPwnkNjmPEu0/Lg1fVrdP2j+R1s2cNuvtP+yV/0F3Q98/e2dk
xnW17T+nYIwRrMzhP92bqyOWjOw/ewY9QXSu4z+RC2GYnSPrPxrFdAZVKOU/
k1J0b9ax6D9I+uMiz8TmP20Y0vSCEeY/Vs9rOrbW5z+hzubhbxvjPxLvGYqV
V+g/aygm55M03z88iOrScxboP+r9EORsLNo/wj30GWIz5z/6gtEh
           "]], Background -> RGBColor[0.137392, 0, 0.349859, 0]]}, 
        Style[
         Inset[
          Cell[
           TextData[
            Cell[
             BoxData[
              FormBox[
               StyleBox[
                Cell[
                "A\[Intersection]B", GeneratedCell -> False, 
                 CellAutoOverwrite -> False, CellBaseline -> Baseline, 
                 TextAlignment -> Left], FontSize -> 34, Background -> 
                GrayLevel[1.]], TraditionalForm]], 
             CellChangeTimes -> {{3.778040325463179*^9, 
               3.778040334839471*^9}, {3.778040423106186*^9, 
               3.778040435682427*^9}, 3.778040636932405*^9, 
               3.7780407184856577`*^9, {3.778041296752945*^9, 
               3.778041331625362*^9}, 3.778042077151248*^9, 
               3.778042592716084*^9, {3.778163634305196*^9, 
               3.778163638533979*^9}}]], GeneratedCell -> False, 
           CellAutoOverwrite -> False, CellBaseline -> Baseline, 
           TextAlignment -> Left], {0.5026965632752107, 0.5054584088753857}, {
          Left, Baseline}, Alignment -> {Left, Top}], FontSize -> 34, 
         Background -> RGBColor[1., 1., 1., 0]]}, BoxID -> "Text11", 
       ImageMargins -> {{0., 3.39453125}, {0.5625, 0.}}, 
       ImagePadding -> {{0., 1.}, {1., 0.}}, 
       ImageSize -> {317.04296875, Automatic}, 
       PlotRange -> {{0.09800383391203739, 1.1548433883101858`}, {
        0.09886666666666666, 0.9224788194444445}}, PlotRangePadding -> 
       Automatic], 
      Graphics[{{
         EdgeForm[{
           RGBColor[0., 0., 0.], 
           Opacity[1.], 
           AbsoluteThickness[8.31763771102671]}], 
         FaceForm[
          RGBColor[0.25098, 0, 0.501961]], 
         Disk[{0.5261043831360566, 0.4720961740747762}, {0.38244118869161137`,
           0.2578416997035142}]}, {
         EdgeForm[
          GrayLevel[0]], 
         FaceForm[None], 
         Rectangle[{0.11914062500000036`, 0.9021875000000001}, {
          1.133706597222223, 0.11915798611111111`}]}, {
         AbsoluteThickness[1], 
         StrokeForm[{
           GrayLevel[0.], 
           Opacity[1.]}], 
         EdgeForm[{
           GrayLevel[0.], 
           Opacity[1.]}], 
         EdgeForm[None], 
         Circle[{0.514717881944445, 0.4727039930555552}, {
          0.37504774305555577`, 0.25776475694444473`}]}, {
         EdgeForm[{
           RGBColor[0., 0., 0.], 
           Opacity[1.], 
           AbsoluteThickness[1]}], 
         FaceForm[None], 
         Disk[{0.6698564131262627, 0.5353693596861445}, {0.37485127766927073`,
           0.31687690802947754`}]}, 
        Style[
         Inset[
          Cell[
          "A", GeneratedCell -> False, CellAutoOverwrite -> False, 
           CellBaseline -> Baseline, TextAlignment -> Left], {
          0.21645833333333342`, 0.475043402777777}, {Left, Baseline}, {
          0.08725325758066345, 0.10995440520972621`}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34], 
        Inset[Null, 
         Scaled[{0.5, 0.5}], Center], 
        Style[
         Inset[
          Cell[
          "B", GeneratedCell -> False, CellAutoOverwrite -> False, 
           CellBaseline -> Baseline, TextAlignment -> Left], {
          0.9085455718276682, 0.4904794683909328}, {Left, Baseline}, {
          0.09662873806928687, 0.17773815867638984`}, {{1., 0.}, {0., 1.}}, 
          BoxID -> "Text9", Alignment -> {Left, Top}], FontSize -> 42, 
         Background -> GrayLevel[1.]], 
        Inset[
         Cell[
          TextData[
           StyleBox["A\[Intersection]B", FontSize -> 41]], GeneratedCell -> 
          False, CellAutoOverwrite -> False, CellBaseline -> Baseline, 
          TextAlignment -> Left], {0.4001760896924295, 0.5352097137633784}, {
         Left, Baseline}, {0.29995751075491744`, 0.17668779980332255`}, {{1., 
         0.}, {0., 1.}}, Alignment -> {Left, Top}], 
        Style[
         Inset[
          Cell[
           TextData[
            StyleBox["Precision", FontSize -> 21]], GeneratedCell -> False, 
           CellAutoOverwrite -> False, CellBaseline -> Baseline, 
           TextAlignment -> Left], {0.14787026776024456`, 0.8121185765256}, {
          Left, Baseline}, Alignment -> {Left, Top}], FontSize -> 34, 
         Background -> GrayLevel[1.]], 
        Inset[
         Cell[
          TextData[{
            Cell[
             BoxData[
              FormBox[
               OverscriptBox["A", "_"], TraditionalForm]]], "\[Intersection]", 
            Cell[
             BoxData[
              FormBox[
               OverscriptBox["B", "_"], TraditionalForm]]]}], GeneratedCell -> 
          False, CellAutoOverwrite -> False, CellBaseline -> Baseline, 
          TextAlignment -> Left], {0.8675731595377107, 0.1623717245651224}, {
         Left, Baseline}, {0.25738991363786695`, 0.12225522698481406`}, {{1., 
         0.}, {0., 1.}}, Alignment -> {Left, Top}], {
         EdgeForm[{
           RGBColor[0., 0., 0.], 
           Opacity[0.45], 
           AbsoluteThickness[6.839116472814294], 
           JoinForm[{"Miter", 2.95}]}], 
         FaceForm[{
           RGBColor[1, 0, 0.275135], 
           Opacity[0.62]}], 
         Polygon[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAf7lYb7H71j8qDnOal6flP7lB3Tle
PtQ/+XbN9NH44j9abwOttKTTP/GHKfJpWuI/Oh/P78rQ0z9M4TPsn7bgP7aD
x2PaEdQ/GiWWn0vd3j+W7QG94RTVP4LusiUxGtw/TYN0/U4R1z9A1CLaqePY
PwiDkg7yENk/jO7sU4ET1j8mXGPWewfcP/6ArDH8RtM/ZF2NhLJz3j/KwLZf
EezRP4E5t6jmmuA/oEldGRt80D9hzv5C1QPjP1DES0Y/OM4/FuoSa2NG5D/E
PqxN+5jOP3nPxBEfh+Y/3tN3MMUy0D/zxqgDI5LoP4Rt7FiQJ9I/tnBbG0ls
6j/ixTCGL9zUP2b0WhgmKuw/bt6EtTwa2T/u5vF7zQLtPyxnJaH8Dd4/2HeI
pQzN7D9HSR/B7jHhPzqszwItpOs/G+/P8LYT4z/uG4V3NDvqP7qtB7aXjeQ/
72KYTm3J5z/o4nbSESrmP8ko9tMZKeU/9rf+6fg75z/83grBBjPiP7LXrDnY
vOc/H0lupcFj3T/ccH2CtnvnP50eWaKaW9g/YiaHyaSY5j9J2tua
          "]]}}, BoxID -> "Text11", 
       ImageMargins -> {{0., 3.39453125}, {0.5625, 0.}}, 
       ImagePadding -> {{0., 1.}, {1., 0.}}, 
       ImageSize -> {317.04296875, Automatic}, 
       PlotRange -> {{0.09800383391203739, 1.1548433883101858`}, {
        0.09886666666666666, 0.9224788194444445}}, PlotRangePadding -> 
       Automatic], 
      Graphics[{{
         EdgeForm[
          GrayLevel[0]], 
         FaceForm[None], 
         Rectangle[{0.11914062500000036`, 0.9021875000000001}, {
          1.133706597222223, 0.11915798611111111`}]}, {
         AbsoluteThickness[8.41395141645195], 
         StrokeForm[{
           GrayLevel[0.], 
           Opacity[1.]}], 
         EdgeForm[{
           GrayLevel[0.], 
           Opacity[1.]}], 
         EdgeForm[None], 
         Circle[{0.5179010687324936, 0.4727039930555552}, {0.375047743055556, 
          0.2577647569444448}]}, {
         EdgeForm[{
           RGBColor[0., 0., 0.], 
           Opacity[1.], 
           AbsoluteThickness[6.839116472814294], 
           JoinForm[{"Miter", 2.95}]}], 
         FaceForm[{
           Hue[0.7444444298744202, 0.9729729890823364, 1.], 
           Opacity[0.62]}], 
         Disk[{0.6690334819592798, 0.5324085757834839}, {0.37485127766927095`,
           0.31687690802947777`}]}, 
        Style[
         Inset[
          Cell[
          "A", GeneratedCell -> False, CellAutoOverwrite -> False, 
           CellBaseline -> Baseline, TextAlignment -> Left], {
          0.18880684703321915`, 0.4750434027777768}, {Left, Baseline}, {
          0.11490474388077743`, 0.1099544052097262}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34], 
        Inset[Null, 
         Scaled[{0.5, 0.5}], Center], 
        Style[
         Inset[
          Cell[
          "B", GeneratedCell -> False, CellAutoOverwrite -> False, 
           CellBaseline -> Baseline, TextAlignment -> Left], {
          0.8996393782873552, 0.5166831810985388}, {Left, Baseline}, {
          0.09662873806928919, 0.17773815867638984`}, {{1., 0.}, {0., 1.}}, 
          BoxID -> "Text9", Alignment -> {Left, Top}], FontSize -> 42, 
         Background -> RGBColor[1., 1., 1., 0]], {
         Style[
          Inset[
          Null, {0.3761256277585978, 0.49033747931757343`}, {
           Left, Baseline}, {0.29995751075491744`, 0.17668779980332255`}, {{
           1., 0.}, {0., 1.}}, Alignment -> {Left, Top}], FontColor -> 
          RGBColor[0.455726, 0.450141, 0.459648], FontOpacity -> 0.88, 
          Background -> RGBColor[1., 1., 1., 0]], {
          Style[
           Inset[
            Cell[
             TextData[
              StyleBox["Sensitivity", FontSize -> 18]], GeneratedCell -> 
             False, CellAutoOverwrite -> False, CellBaseline -> Baseline, 
             TextAlignment -> Left], {0.14285332567693804`, 
            0.8269480790187089}, {Left, Baseline}, Alignment -> {Left, Top}], 
           FontSize -> 65, Background -> GrayLevel[1.]], 
          Style[
           Inset[
            Cell[
            "x", GeneratedCell -> False, CellAutoOverwrite -> False, 
             CellBaseline -> Baseline, TextAlignment -> Left], {
            0.5261043831360566, 0.32173819703586926`}, {Left, Baseline}, 
            BoxID -> "Text10", Alignment -> {Left, Top}], FontSize -> 65, 
           Background -> RGBColor[1., 1., 1., 0]]}}, 
        Point[{0.5812292688027954, 0.3979728350594576}], 
        Style[
         Inset[
          Cell[
           TextData[{
             Cell[
              BoxData[
               FormBox[
                OverscriptBox["A", "_"], TraditionalForm]]], 
             "\[Intersection]", 
             Cell[
              BoxData[
               FormBox[
                OverscriptBox["B", "_"], TraditionalForm]]]}], GeneratedCell -> 
           False, CellAutoOverwrite -> False, CellBaseline -> Baseline, 
           TextAlignment -> Left], {0.8675731595377112, 0.1623717245651215}, {
          Left, Baseline}, {0.25738991363786695`, 0.12225522698481406`}, {{1.,
           0.}, {0., 1.}}, Alignment -> {Left, Top}], FontSize -> 32], {
         EdgeForm[{
           RGBColor[0., 0., 0.], 
           Opacity[0.45], 
           AbsoluteThickness[6.839116472814294], 
           JoinForm[{"Miter", 2.95}]}], 
         FaceForm[{
           RGBColor[1, 0, 0.275135], 
           Opacity[0.62]}], 
         Polygon[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAA1cm79A871j9qek7OXLnlPw9SQL+8
fdM/OeOoKJcK4z+xf2YyE+TSPzH0BCYvbOI/kS8ydSkQ0z+MTQ8gZcjgPw2U
Kuk4UdM/mv1MB9YA3z/s/WRCQFTUPwLHaY27Pdw/o5PXgq1Q1j/ArNlBNAfZ
P12T9ZNQUNg/DMejuws31j97bMZb2kbbP35ZY5mGatM/uG3wCRGz3T9KmW3H
mw/SP6vBaOuVOuA/ICIUgaWf0D+KVrCFhKPiP1B1uRVUf84/P3LErRLm4z/E
7xkdEODOP6FXdlTOJuY/XqwumE9W0D8bT1pG0jHoPwRGo8AaS9I/3fgMXvgL
6j9inuftuf/UP418DFvVyes/7rY7Hcc92T8Vb6O+fKLsP6w/3AiHMd4///85
6Lts7D+Htfr0s0PhP2E0gUXcQ+s/W1urJHwl4z8VpDa649rpP/oZ4+lcn+Q/
F+tJkRxp5z8oT1IG1zvmP/GwpxbJyOQ/NiTaHb5N5z8lZ7wDttLhP/JDiG2d
zuc/c1nRKiCj3D8c3Vi2e43nP/IuvCf5mtc/opJi/Wmq5j9VANIo
          "]]}}, BoxID -> "Text11", 
       ImageMargins -> {{0., 3.39453125}, {0.5625, 0.}}, 
       ImagePadding -> {{0., 1.}, {1., 0.}}, 
       ImageSize -> {317.04296875, Automatic}, 
       PlotRange -> {{0.09800383391203739, 1.1548433883101858`}, {
        0.09886666666666666, 0.9224788194444445}}, PlotRangePadding -> 
       Automatic], 
      Graphics[{{
         EdgeForm[
          GrayLevel[0]], 
         FaceForm[
          Hue[0.25, 1., 1.]], 
         Rectangle[{0.11914062500000036`, 0.9021875000000001}, {
          1.133706597222223, 0.11915798611111111`}]}, 
        Style[
         Inset[
          Cell[
          "A", GeneratedCell -> False, CellAutoOverwrite -> False, 
           CellBaseline -> Baseline, TextAlignment -> Left], {
          0.18880684703321937`, 0.4369069364257647}, {Left, Baseline}, {
          0.08725325758066345, 0.10995440520972621`}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34], 
        Inset[Null, 
         Scaled[{0.5, 0.5}], Center], 
        Style[
         Inset[
          Cell[
          "A\[Intersection]B", GeneratedCell -> False, CellAutoOverwrite -> 
           False, CellBaseline -> Baseline, TextAlignment -> Left], {
          0.4001760896924295, 0.5352097137633784}, {Left, Baseline}, {
          0.29995751075491744`, 0.17668779980332255`}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34, Background -> 
         GrayLevel[1.]], 
        Inset[
         Cell[
          TextData[
           StyleBox["Specificity", FontSize -> 20]], GeneratedCell -> False, 
          CellAutoOverwrite -> False, CellBaseline -> Baseline, TextAlignment -> 
          Left], {0.16771365637827684`, 0.8154716429377189}, {Left, Baseline},
          Alignment -> {Left, Top}], {
         Style[
          Inset[
           Cell[
           "x", GeneratedCell -> False, CellAutoOverwrite -> False, 
            CellBaseline -> Baseline, TextAlignment -> Left], {
           0.5261043831360566, 0.32173819703586926`}, {Left, Baseline}, BoxID -> 
           "Text10", Alignment -> {Left, Top}], FontSize -> 29, Background -> 
          GrayLevel[1.]], 
         Point[{0.5812292688027954, 0.3979728350594576}], 
         Style[
          Inset[
           Cell[
            TextData[{
              Cell[
               BoxData[
                FormBox[
                 OverscriptBox["A", "_"], TraditionalForm]]], 
              "\[Intersection]", 
              Cell[
               BoxData[
                FormBox[
                 OverscriptBox["B", "_"], TraditionalForm]]]}], GeneratedCell -> 
            False, CellAutoOverwrite -> False, CellBaseline -> Baseline, 
            TextAlignment -> Left], {0.8675731595377107, 
           0.1623717245651224}, {Left, Baseline}, {0.25738991363786695`, 
           0.12225522698481406`}, {{1., 0.}, {0., 1.}}, 
           Alignment -> {Left, Top}], FontSize -> 30, Background -> 
          GrayLevel[1.]], {
          EdgeForm[{
            RGBColor[0., 0., 0.], 
            Opacity[1.], 
            AbsoluteThickness[8.31763771102671]}], 
          FaceForm[
           RGBColor[0.25098, 0, 0.501961]], 
          
          Disk[{0.550154845069888, 0.4889369103276271}, {0.38244118869161126`,
            0.2578416997035142}]}}, {{
          EdgeForm[{
            RGBColor[0., 0., 0.], 
            Opacity[1.], 
            AbsoluteThickness[5.3088444423098835`]}], 
          FaceForm[
           RGBColor[0.999893, 1, 0.999847]], 
          Style[
           
           Disk[{0.7001336004473467, 0.5439141129324904}, {
            0.37485127766927095`, 0.3168769080294773}], 
           Notebook$$40$615179`DrawBackFaces -> False]}, 
         Style[
          Inset[
           Cell[
           "B", GeneratedCell -> False, CellAutoOverwrite -> False, 
            CellBaseline -> Baseline, TextAlignment -> Left], {
           0.8996393782873552, 0.5546519310985387}, {Left, Baseline}, {
           0.09662873806928919, 0.17773815867638984`}, {{1., 0.}, {0., 1.}}, 
           BoxID -> "Text9", Alignment -> {Left, Top}], FontSize -> 42, 
          Background -> GrayLevel[1.]]}}, BoxID -> "Text11", 
       ImageMargins -> {{0., 3.39453125}, {0.5625, 0.}}, 
       ImagePadding -> {{0., 1.}, {1., 0.}}, 
       ImageSize -> {317.04296875, Automatic}, 
       PlotRange -> {{0.09800383391203739, 1.1548433883101858`}, {
        0.09886666666666666, 0.9224788194444445}}, PlotRangePadding -> 
       Automatic], 
      Graphics[{{
         EdgeForm[
          GrayLevel[0]], 
         FaceForm[
          RGBColor[0.999893, 1, 0.999847]], 
         Rectangle[{0.1191406250000008, 0.9021875000000001}, {
          1.1337065972222231`, 0.11915798611111111`}]}, 
        Style[
         Inset[
          Cell[
          "A", GeneratedCell -> False, CellAutoOverwrite -> False, 
           CellBaseline -> Baseline, TextAlignment -> Left], {
          0.18880684703321937`, 0.4369069364257647}, {Left, Baseline}, {
          0.08725325758066345, 0.10995440520972621`}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34], 
        Inset[Null, 
         Scaled[{0.5, 0.5}], Center], 
        Style[
         Inset[
          Cell[
          "A\[Intersection]B", GeneratedCell -> False, CellAutoOverwrite -> 
           False, CellBaseline -> Baseline, TextAlignment -> Left], {
          0.4001760896924295, 0.5352097137633784}, {Left, Baseline}, {
          0.29995751075491744`, 0.17668779980332255`}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34, Background -> 
         GrayLevel[1.]], 
        Inset[
         Cell[
          TextData[
           StyleBox["Miss rate", FontSize -> 20]], GeneratedCell -> False, 
          CellAutoOverwrite -> False, CellBaseline -> Baseline, TextAlignment -> 
          Left], {0.16771365637827684`, 0.8154716429377189}, {Left, Baseline},
          Alignment -> {Left, Top}], {{
          Style[
           Inset[
            Cell[
            "x", GeneratedCell -> False, CellAutoOverwrite -> False, 
             CellBaseline -> Baseline, TextAlignment -> Left], {
            0.5261043831360566, 0.32173819703586926`}, {Left, Baseline}, 
            BoxID -> "Text10", Alignment -> {Left, Top}], FontSize -> 41, 
           Background -> GrayLevel[1.]], 
          Style[
           Point[{0.5812292688027954, 0.3979728350594576}], FontSize -> 41]}, {
          EdgeForm[{
            RGBColor[0., 0., 0.], 
            Opacity[1.], 
            AbsoluteThickness[8.31763771102671]}], 
          FaceForm[
           RGBColor[1, 0.999969, 0.999985]], 
          
          Disk[{0.550154845069888, 0.48893691032762665`}, {
           0.38244118869161126`, 0.25784169970351467`}]}}, {
         EdgeForm[{
           RGBColor[0., 0., 0.], 
           Opacity[1.], 
           AbsoluteThickness[5.3088444423098835`]}], 
         FaceForm[
          RGBColor[0.187839, 0, 0.422553]], 
         Style[
          
          Disk[{0.7001336004473476, 0.5439141129324904}, {
           0.37485127766927095`, 0.3168769080294773}], 
          Notebook$$40$615179`DrawBackFaces -> False]}, {
         EdgeForm[{
           RGBColor[0., 0., 0.], 
           Opacity[0.45], 
           AbsoluteThickness[6.839116472814294], 
           JoinForm[{"Miter", 2.95}]}], 
         FaceForm[{
           RGBColor[0.449454, 1, 0.0318303], 
           Opacity[0.62]}], 
         Polygon[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAzZgQsYPM2D+KJeDqVELmPwchlXsw
D9Y/WY46RY+T4z+pTrvuhnXVP1GflkIn9eI/if6GMZ2h1T+s+KA8XVHhPwVj
f6Ws4tU/7Sk4IGMJ4D/kzLn+s+XWP0IdjcarT90/m2IsPyHi2D8AA/16JBna
P1ViSlDE4do/TB3H9PtI1z9zOxsYTtjdP76vhtJ2fNQ/WJ4iY0Ii4D+K75AA
jCHTPycpk8lPg+E/YHg3upWx0T8GvtpjPuzjP+gQAESaUdA/u9nui8wu5T8i
TrBH+IHQPx2/oDKIb+c/ngJS0T9o0T+XtoQkjHrpP0ScxvkKXdM/WWA3PLJU
6z+i9AonqhHWPwnkNjmPEu0/Lg1fVrdP2j+R1s2cNuvtP+yV/0F3Q98/e2dk
xnW17T+nYIwRrMzhP92bqyOWjOw/ewY9QXSu4z+RC2GYnSPrPxrFdAZVKOU/
k1J0b9ax6D9I+uMiz8TmP20Y0vSCEeY/Vs9rOrbW5z+hzubhbxvjPxLvGYqV
V+g/aygm55M03z88iOrScxboP+r9EORsLNo/wj30GWIz5z/6gtEh
          "]]}, 
        Style[
         Inset[
          Cell[
           TextData[
            Cell[
             BoxData[
              FormBox[
               StyleBox[
                Cell[
                "B", GeneratedCell -> False, CellAutoOverwrite -> False, 
                 CellBaseline -> Baseline, TextAlignment -> Left], FontSize -> 
                34, Background -> GrayLevel[1.]], TraditionalForm]], 
             CellChangeTimes -> {{3.778040325463179*^9, 
               3.778040334839471*^9}, {3.778040423106186*^9, 
               3.778040435682427*^9}, 3.778040636932405*^9, 
               3.7780407184856577`*^9, {3.778041296752945*^9, 
               3.778041331625362*^9}, 3.778042077151248*^9, 
               3.778042592716084*^9, {3.778163634305196*^9, 
               3.778163638533979*^9}}]], GeneratedCell -> False, 
           CellAutoOverwrite -> False, CellBaseline -> Baseline, 
           TextAlignment -> Left], {0.5261043831360568, 
          0.46739945038111597`}, {Left, Baseline}, Alignment -> {Left, Top}], 
         FontSize -> 34, Background -> RGBColor[1., 1., 1., 0]], 
        Inset[
         Cell[
          TextData[{
            Cell[
             BoxData[
              FormBox[
               OverscriptBox["A", "_"], TraditionalForm]], FormatType -> 
             "TraditionalForm"], "\[Intersection]B"}], GeneratedCell -> False,
           CellAutoOverwrite -> False, CellBaseline -> Baseline, 
          TextAlignment -> Left], {0.6721407030368796, 0.7735304041578228}, {
         Left, Baseline}, Alignment -> {Left, Top}]}, BoxID -> "Text11", 
       ImageMargins -> {{0., 3.39453125}, {0.5625, 0.}}, 
       ImagePadding -> {{0., 1.}, {1., 0.}}, 
       ImageSize -> {317.04296875, Automatic}, 
       PlotRange -> {{0.09800383391203739, 1.1548433883101858`}, {
        0.09886666666666666, 0.9224788194444445}}, PlotRangePadding -> 
       Automatic], 
      Graphics[{{
         EdgeForm[
          GrayLevel[0]], 
         FaceForm[
          Hue[0.25, 1., 1.]], 
         Rectangle[{0.0980038339120374, 0.9224788194444418}, {
          1.11256980613426, 0.13944930555555707`}]}, 
        Style[
         Inset[
          Cell[
          "A", GeneratedCell -> False, CellAutoOverwrite -> False, 
           CellBaseline -> Baseline, TextAlignment -> Left], {
          0.18880684703321937`, 0.4369069364257647}, {Left, Baseline}, {
          0.08725325758066345, 0.10995440520972621`}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34], 
        Inset[Null, 
         Scaled[{0.5, 0.5}], Center], 
        Style[
         Inset[
          Cell[
          "A\[Intersection]B", GeneratedCell -> False, CellAutoOverwrite -> 
           False, CellBaseline -> Baseline, TextAlignment -> Left], {
          0.4001760896924295, 0.5352097137633784}, {Left, Baseline}, {
          0.29995751075491744`, 0.17668779980332255`}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34, Background -> 
         GrayLevel[1.]], 
        Inset[
         Cell[
          TextData[
           StyleBox["Fall-out", FontSize -> 20]], GeneratedCell -> False, 
          CellAutoOverwrite -> False, CellBaseline -> Baseline, TextAlignment -> 
          Left], {0.16771365637827684`, 0.8154716429377189}, {Left, Baseline},
          Alignment -> {Left, Top}], {
         Style[
          Inset[
           Cell[
           "x", GeneratedCell -> False, CellAutoOverwrite -> False, 
            CellBaseline -> Baseline, TextAlignment -> Left], {
           0.5261043831360566, 0.32173819703586926`}, {Left, Baseline}, BoxID -> 
           "Text10", Alignment -> {Left, Top}], FontSize -> 29, Background -> 
          GrayLevel[1.]], 
         Point[{0.5812292688027954, 0.3979728350594576}]}, 
        Style[
         Inset[
          Cell[
          "A", GeneratedCell -> False, CellAutoOverwrite -> False, 
           CellBaseline -> Baseline, TextAlignment -> Left], {
          0.46865201119566785`, 0.4918841390306281}, {Left, Baseline}, {
          0.11490474388077745`, 0.1099544052097262}, {{1., 0.}, {0., 1.}}, 
          Alignment -> {Left, Top}], FontSize -> 34], {
         EdgeForm[{
           RGBColor[0., 0., 0.], 
           Opacity[1.], 
           AbsoluteThickness[8.31763771102671]}], 
         FaceForm[
          RGBColor[0.25098, 0, 0.501961]], 
         Disk[{0.5501548450698881, 0.4889369103276271}, {0.38244118869161126`,
           0.2578416997035142}]}, {
         EdgeForm[{
           RGBColor[0., 0., 0.], 
           Opacity[1.], 
           AbsoluteThickness[5.3088444423098835`]}], 
         FaceForm[
          RGBColor[0.999893, 1, 0.999847]], 
         Style[
          
          Disk[{0.7001336004473468, 0.5538729903684424}, {0.3707878780942424, 
           0.3168769080294773}], Notebook$$40$615179`DrawBackFaces -> False]}, 
        Style[
         Inset[
          Cell[
           TextData[
            Cell[
             BoxData[
              FormBox[
               OverscriptBox["B", "_"], TraditionalForm]], FormatType -> 
             "TraditionalForm"]], GeneratedCell -> False, CellAutoOverwrite -> 
           False, CellBaseline -> Baseline, TextAlignment -> Left], {
          0.9742927404723001, 0.19210619104375293`}, {Left, Baseline}, {
          0.09662873806928919, 0.17773815867638984`}, {{1., 0.}, {0., 1.}}, 
          BoxID -> "Text9", Alignment -> {Left, Top}], FontSize -> 42, 
         Background -> RGBColor[0.449454, 1, 0.0318303]]}, BoxID -> "Text11", 
       ImageMargins -> {{0., 3.39453125}, {0.5625, 0.}}, 
       ImagePadding -> {{0., 1.}, {1., 0.}}, 
       ImageSize -> {317.04296875, Automatic}, 
       PlotRange -> {{0.09800383391203739, 1.1548433883101858`}, {
        0.09886666666666666, 0.9224788194444445}}, PlotRangePadding -> 
       Automatic]}]],
   DynamicModuleValues:>{}],
  Setting[#, {0}]& ]], "Output",
 CellChangeTimes->{3.8096277907045317`*^9, 3.8096279356549873`*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"531f5043-a63f-40c3-ad40-0ed59bb932ba"]
}, {2}]],

Cell[CellGroupData[{

Cell[TextData[{
 "False negative rate,  ",
 StyleBox["Miss rate",
  FontWeight->"Bold"],
 ":\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[DoubleStruckCapitalP]", "[", 
    RowBox[{
     OverscriptBox["A", "_"], "|", "B"}], "]"}], TraditionalForm]],
  ExpressionUUID->"34e1ced2-5eb5-4561-997a-9f212f83b0e1"],
 "\t                    \tDo you fail to detect the cancer?"
}], "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745487358132826*^9, 3.7454874403379087`*^9}, 
   3.745487521037237*^9, {3.7454888583063374`*^9, 3.745488872164597*^9}, {
   3.745504471830068*^9, 3.7455045052045193`*^9}, {3.745504535465555*^9, 
   3.74550464233502*^9}, {3.74550483820763*^9, 3.745504841999709*^9}, {
   3.745504886281239*^9, 3.74550490711649*^9}, {3.746256047024415*^9, 
   3.7462560727878227`*^9}, {3.7462561048720617`*^9, 3.746256132158701*^9}, {
   3.746256538037135*^9, 3.746256540041874*^9}, {3.7462572300083447`*^9, 
   3.7462572664198627`*^9}, {3.777436281019128*^9, 3.777436405132362*^9}, {
   3.777436483601798*^9, 3.7774365230382767`*^9}, {3.777436587293992*^9, 
   3.777436608264352*^9}, 3.777436652465776*^9, {3.7774736030371437`*^9, 
   3.777473603680457*^9}, 3.77747365175587*^9, {3.777473860220972*^9, 
   3.77747388773921*^9}, {3.777474034259327*^9, 3.7774740726020727`*^9}, 
   3.777474105702566*^9, {3.7774741601796713`*^9, 3.777474174145604*^9}, {
   3.778040167902507*^9, 3.778040195205277*^9}, {3.778040236151596*^9, 
   3.778040239119673*^9}, {3.778041604432158*^9, 3.778041638293901*^9}, {
   3.778041679839189*^9, 3.778041727300071*^9}, {3.77804177523988*^9, 
   3.778041854718109*^9}, {3.7780427539950666`*^9, 3.7780428000469017`*^9}, {
   3.7780428359223013`*^9, 
   3.77804286440133*^9}},ExpressionUUID->"5fd955f7-8c2e-4502-87d1-\
33273b720258"],

Cell[TextData[{
 "False positive rate Fall-out, False alarm rate  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[DoubleStruckCapitalP]", "[", 
    RowBox[{"A", "|", 
     OverscriptBox["B", "_"]}], "]"}], TraditionalForm]],ExpressionUUID->
  "4cd52364-5db3-41ac-94f7-275fc9ab7289"],
 "\tDo claim a cancer in vain?\t"
}], "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745487358132826*^9, 3.7454874403379087`*^9}, 
   3.745487521037237*^9, {3.7454888583063374`*^9, 3.745488872164597*^9}, {
   3.745504471830068*^9, 3.7455045052045193`*^9}, {3.745504535465555*^9, 
   3.74550464233502*^9}, {3.74550483820763*^9, 3.745504841999709*^9}, {
   3.745504886281239*^9, 3.74550490711649*^9}, {3.746256047024415*^9, 
   3.7462560727878227`*^9}, {3.7462561048720617`*^9, 3.746256132158701*^9}, {
   3.746256538037135*^9, 3.746256540041874*^9}, {3.7462572300083447`*^9, 
   3.7462572664198627`*^9}, {3.777436281019128*^9, 3.777436405132362*^9}, {
   3.777436483601798*^9, 3.7774365230382767`*^9}, {3.777436587293992*^9, 
   3.777436608264352*^9}, 3.777436652465776*^9, {3.7774736030371437`*^9, 
   3.777473603680457*^9}, 3.77747365175587*^9, {3.777473860220972*^9, 
   3.77747388773921*^9}, {3.777474034259327*^9, 3.7774740726020727`*^9}, 
   3.777474105702566*^9, {3.7774741601796713`*^9, 3.777474174145604*^9}, {
   3.778040167902507*^9, 3.778040195205277*^9}, {3.778040236151596*^9, 
   3.778040239119673*^9}, {3.778041604432158*^9, 3.778041638293901*^9}, {
   3.778041679839189*^9, 3.778041727300071*^9}, {3.77804177523988*^9, 
   3.778041854718109*^9}, {3.7780427539950666`*^9, 3.7780428000469017`*^9}, {
   3.7780428359223013`*^9, 3.778042861755999*^9}, {3.778042895193193*^9, 
   3.7780429786551447`*^9}},ExpressionUUID->"de19a5f2-e69c-45f4-9ef5-\
31c114bd9043"]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[
     NamespaceBox["NetworkGraphics",
      DynamicModuleBox[{Typeset`graph = HoldComplete[
        Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9}, {Null, 
          SparseArray[
          Automatic, {9, 9}, 0, {
           1, {{0, 2, 5, 7, 10, 14, 17, 19, 22, 24}, {{2}, {4}, {1}, {3}, {
             5}, {2}, {6}, {1}, {5}, {7}, {2}, {4}, {6}, {8}, {3}, {5}, {9}, {
             4}, {8}, {5}, {7}, {9}, {6}, {8}}}, Pattern}]}, {
         GraphLayout -> {"GridEmbedding", "Dimension" -> {3, 3}}}]]}, 
       TagBox[
        GraphicsGroupBox[
         GraphicsComplexBox[{{1., 1.}, {1., 2.}, {1., 3.}, {2., 1.}, {2., 
          2.}, {2., 3.}, {3., 1.}, {3., 2.}, {3., 3.}}, {
           {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
            {Arrowheads[0.], ArrowBox[{1, 2}, 0.02261146496815286]}, 
            {Arrowheads[0.], ArrowBox[{1, 4}, 0.02261146496815286]}, 
            {Arrowheads[0.], ArrowBox[{2, 3}, 0.02261146496815286]}, 
            {Arrowheads[0.], ArrowBox[{2, 5}, 0.02261146496815286]}, 
            {Arrowheads[0.], ArrowBox[{3, 6}, 0.02261146496815286]}, 
            {Arrowheads[0.], ArrowBox[{4, 5}, 0.02261146496815286]}, 
            {Arrowheads[0.], ArrowBox[{4, 7}, 0.02261146496815286]}, 
            {Arrowheads[0.], ArrowBox[{5, 6}, 0.02261146496815286]}, 
            {Arrowheads[0.], ArrowBox[{5, 8}, 0.02261146496815286]}, 
            {Arrowheads[0.], ArrowBox[{6, 9}, 0.02261146496815286]}, 
            {Arrowheads[0.], ArrowBox[{7, 8}, 0.02261146496815286]}, 
            {Arrowheads[0.], ArrowBox[{8, 9}, 0.02261146496815286]}}, 
           {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
            DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
            DiskBox[3, 0.02261146496815286], DiskBox[4, 0.02261146496815286], 
            DiskBox[5, 0.02261146496815286], DiskBox[6, 0.02261146496815286], 
            DiskBox[7, 0.02261146496815286], DiskBox[8, 0.02261146496815286], 
            DiskBox[9, 0.02261146496815286]}}]],
        MouseAppearanceTag["NetworkGraphics"]],
       AllowKernelInitialization->False]],
     DefaultBaseStyle->{
      "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
     FormatType->TraditionalForm,
     FrameTicks->None], Scaled[{0.6473559496439313, 0.4913258629378596}], 
    Center, {1.0939453125000003, 0.8077690972222223}, {{1., 0.}, {0., 1.}}], 
   InsetBox[
    StyleBox[Cell["Actual",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "08f60e4e-4e2d-4c86-85b3-1f538a59e5ba"],
     FontSize->14,
     Background->GrayLevel[1.]], {0.7872504340277778, 0.9270182291666664}, {
    Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell[TextData[StyleBox["Predicted",
      FontWeight->"Bold"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "e58b6b29-948d-4ee3-a36e-fad0badbdd87"],
     FontSize->14,
     Background->GrayLevel[1.]], {0.061914062500000006, 0.5283637152777778}, {
    Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell["Positive",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "19cb483c-731b-4edf-a610-3bb42580755f"],
     FontSize->14,
     Background->GrayLevel[1.]], {0.5684570312500001, 0.8892795138888889}, {
    Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell["Negative",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "70e2430d-2ea1-4615-a4a9-810df63e602a"],
     FontSize->14,
     Background->GrayLevel[1.]], {0.9692165798611112, 0.8946289062499999}, {
    Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell["Positive",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "2b581548-c217-459a-be7e-67aeff600e27"],
     FontSize->14,
     Background->GrayLevel[1.]], {0.29457465277777783, 0.6666015624999999}, {
    Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell["Negative",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "0c0fa184-b0b6-43cf-8a7b-c993bedf960b"],
     FontSize->14,
     Background->GrayLevel[1.]], {0.2508148248726656, 0.32847793544128556}, {
    Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell[TextData[StyleBox["TRUE POSITIVE",
      FontWeight->"Bold"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "3614af9a-7269-49df-9001-2075074dc713"],
     FontSize->14,
     Background->GrayLevel[1.]], {0.4993082540561563, 0.6927716898841569}, {
    Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell[TextData[StyleBox["FALSE POSITIVE",
      FontWeight->"Bold"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "d077c01d-c8d3-4b93-82b5-f26d80d7a731"],
     FontSize->14,
     Background->GrayLevel[1.]], {0.8696852851159795, 0.6926713376689784}, {
    Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell[TextData[StyleBox["FALSE NEGATIVE",
      FontWeight->"Bold"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "ae8aadc4-c071-408b-8d4f-5092324325b8"],
     FontSize->14,
     Background->GrayLevel[1.]], {0.4693689392658213, 0.3271422231800848}, {
    Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell[TextData[StyleBox["TRUE NEGATIVE",
      FontWeight->"Bold"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "0a63386e-9ae6-4fa6-b7fc-b1f2397825a0"],
     FontSize->14,
     Background->GrayLevel[1.]], {0.8869488299338711, 0.32530902892581726}, {
    Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    GraphicsBox[{},
     ContentSelectable->True,
     ImageSize->{480, 360},
     PlotRange->{{0, 480/360}, {0, 1}}], 
    Scaled[{0.4995769782965392, 0.500596658711217}], Center, 
    Scaled[{0.5, 0.5}]], InsetBox[
    RowBox[{"A", "\[Intersection]", "B"}], 
    Scaled[{0.4920164632571524, 0.6407280206707224}], 
    Center, {0.1328031772076372, 0.03102625298329356}, {{1., 0.}, {0., 1.}}], 
   StyleBox[InsetBox[
     StyleBox[Cell["A",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "c17634b9-a8b1-4101-b544-5835b7c160d9"],
      Background->GrayLevel[1.]], {0.8374036640696526, 0.7644976381657207}, {
     Left, Baseline}, {0.0612240213038138, 0.09602615341975008}, {{1., 0.}, {
     0., 1.}},
     Alignment->{Left, Top}],
    FontSize->34], 
   StyleBox[InsetBox[
     StyleBox[Cell["B",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "996f9400-39a9-4cd1-876b-ca3cc390a889"],
      Background->GrayLevel[1.]], {0.6294401348333757, 0.45483176704400297}, {
     Left, Baseline}, {0.0612240213038138, 0.09602615341975008}, {{1., 0.}, {
     0., 1.}},
     Alignment->{Left, Top}],
    FontSize->34], InsetBox[
    RowBox[{
     OverscriptBox["A", "_"], "\[Intersection]", 
     OverscriptBox["B", "_"]}], 
    Scaled[{0.7812674802356796, 0.2639255933216951}], 
    Center, {0.1328031772076372, 0.03102625298329356}, {{1., 0.}, {0., 1.}}], 
   InsetBox[
    RowBox[{"A", "\[Intersection]", 
     OverscriptBox["B", "_"]}], 
    Scaled[{0.768081255527033, 0.6411446939225651}], 
    Center, {0.1328031772076372, 0.03102625298329356}, {{1., 0.}, {0., 1.}}], 
   InsetBox[
    RowBox[{
     OverscriptBox["A", "_"], "\[Intersection]", "B"}], 
    Scaled[{0.48696324022971343, 0.2618492690930787}], 
    Center, {0.1328031772076372, 0.03102625298329356}, {{1., 0.}, {0., 1.}}]},
  ContentSelectable->True,
  ImageMargins->{{200.01953125, 0.}, {0., 2.34375}},
  ImagePadding->{{0., 0.}, {0., 0.}},
  ImageSize->{417.93359375, 315.},
  PlotRange->{{0., 1.3333333333333335`}, {0., 1.}},
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.746256186790431*^9, 3.7462562135035686`*^9}, {
   3.74625649383808*^9, 3.746256516763362*^9}, {3.7462565622912273`*^9, 
   3.7462566460779057`*^9}, {3.746256686794189*^9, 3.74625676974461*^9}, {
   3.746256917774267*^9, 3.746256952404373*^9}, {3.746257110488223*^9, 
   3.746257132975525*^9}, {3.7462571634244537`*^9, 3.7462571888543043`*^9}, 
   3.746257291648781*^9, {3.746257466884364*^9, 3.746257620987812*^9}, {
   3.746257671396607*^9, 3.746257697941087*^9}, {3.746258156810814*^9, 
   3.7462581956557217`*^9}, 3.746718580810075*^9, {3.7468360291118*^9, 
   3.746836089462022*^9}, 3.746839816281643*^9, {3.778040667284306*^9, 
   3.778040828134152*^9}, {3.778040909170931*^9, 3.778040980116935*^9}, {
   3.778041016838009*^9, 3.778041082636539*^9}, {3.778042622521984*^9, 
   3.778042624725655*^9}, {3.7780430048297567`*^9, 3.778043011282056*^9}, {
   3.778043047763023*^9, 3.778043048343505*^9}, 3.778067788491816*^9, {
   3.778164014098974*^9, 3.778164059145014*^9}, 
   3.778164171261098*^9},ExpressionUUID->"6c51114f-0691-4cb2-8feb-\
2202f1ac2399"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"c74319f1-65fe-4eb1-970b-1440b66a5c1c"],

Cell[CellGroupData[{

Cell["3.9 Performance curves", "Section",
 CellChangeTimes->{{3.680343659228304*^9, 3.680343659873426*^9}, {
   3.744177526642951*^9, 3.744177549439575*^9}, {3.745506527316914*^9, 
   3.7455065621784554`*^9}, 3.745507339786367*^9, {3.745507725207642*^9, 
   3.745507826804557*^9}, {3.745522052689794*^9, 3.745522055422333*^9}, {
   3.746255848813325*^9, 3.746255852892675*^9}, {3.746292181841076*^9, 
   3.746292183294012*^9}, {3.7467180793143044`*^9, 
   3.7467180797572517`*^9}},ExpressionUUID->"0d940661-e0b8-40c7-bd17-\
810cea46ad13"],

Cell[CellGroupData[{

Cell["Scores and Precision recall curve", "Item",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAGIQ7c/yVU3p6WvHOVOfa4DogvgLOiC6PlZQF0R7PA50
qXj22lFR0M8HRN/aYWn58flrx/jN4dYg2qRhbtonIK14SiwfRH8LiugF0S1f
mqeCaAvOvdLhL1871p1IlgPRh3lNFti/ApojewtMv1tSugNEZ/hu2AWiczS6
boLovXzeD0D015aGdyB65ZQ170H0656Df0A0x0dTZgcgLa09QRBEh3xpFwLR
h08IHHAGmWdw4yiIVsxYfhpE74vQuACi+51NmFyB9OYtHcwg2mvFXB4QvWfq
KjDNezRHCESH6Z0B02xPUxPcgfQaoY5EEM0740UmiP5jXFAAolkuJ5aD6BOd
jRVgmo+3AUQLsGxdCKJniTdvAtHuuhDa6nWcri+Q9m7VMwDRAL2WzlQ=
  "],ExpressionUUID->"75f4b366-f542-4a66-8f1d-0ed6e130c98a"],

Cell[TextData[{
 "Let us consider a classification problem  with input space \
\[ScriptCapitalX] = \[DoubleStruckCapitalR] and output space .\nA  function \
f:\[ScriptCapitalX] \[Rule]  \[DoubleStruckCapitalR] is score function.   It \
is used to define the classification. \nFor example\n\n\t ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", GridBox[{
      {
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", "x", "]"}], ">", "0"}], " ", "\[Implies]", " ", 
        RowBox[{"predict", " ", "1"}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", "x", "]"}], "<", " ", "0"}], " ", "\[Implies]", 
        " ", 
        RowBox[{"predict", " ", "-", "1"}]}]}
     }]}], TraditionalForm]],ExpressionUUID->
  "e7cd7b61-2d76-44d3-9a38-fee34058a9c0"],
 "= Sign[x]"
}], "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745483209803815*^9, 3.745483226740646*^9}, {
   3.7454856209219*^9, 3.745485688712174*^9}, {3.745485930760127*^9, 
   3.745485996123598*^9}, {3.7462161579073753`*^9, 3.746216179118224*^9}, {
   3.74669235362668*^9, 3.746692358816144*^9}, {3.746692547676383*^9, 
   3.746692565509449*^9}, {3.7466928123174343`*^9, 3.746692866345549*^9}, {
   3.74669298001623*^9, 3.746692989393147*^9}, {3.746693094048452*^9, 
   3.7466931456856728`*^9}, {3.746693260505262*^9, 3.746693268248575*^9}, {
   3.746700800524507*^9, 3.746700846755909*^9}, {3.746700893231461*^9, 
   3.746700929260833*^9}, {3.746703377633247*^9, 3.746703388272058*^9}, {
   3.746703460926793*^9, 3.746703461330778*^9}, {3.746703507399054*^9, 
   3.7467035103806562`*^9}, {3.746708227184207*^9, 3.7467082362522793`*^9}, {
   3.746708303268561*^9, 3.7467083555063457`*^9}, {3.7467084110570087`*^9, 
   3.746708420048069*^9}, {3.7467084804080544`*^9, 3.746708749656746*^9}, {
   3.746708884096631*^9, 3.746708884099277*^9}, {3.746720106966214*^9, 
   3.74672013636438*^9}, {3.7467203084490633`*^9, 3.746720310191896*^9}, {
   3.746836359247572*^9, 3.7468363592477293`*^9}, 3.7737181550249767`*^9, {
   3.778067916054099*^9, 
   3.778067916703336*^9}},ExpressionUUID->"b5bde5ae-1c95-46f7-b9e4-\
dea4510a4e8d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Changing the threshold in the score leads to different confusion  matrices \
and different performance metrics.\
\>", "Subsubsection",
 CellChangeTimes->{
  3.68034367667273*^9, {3.680948996006885*^9, 3.6809490122068663`*^9}, {
   3.680949042512329*^9, 3.6809490481496983`*^9}, 3.680949088720416*^9, {
   3.745522248892448*^9, 3.745522260884776*^9}, {3.745522298494134*^9, 
   3.745522308294767*^9}, {3.746266730626422*^9, 3.746266747331202*^9}, {
   3.746266945153717*^9, 3.746266946674727*^9}, {3.7462670163466063`*^9, 
   3.7462670658713007`*^9}, 3.746720036802561*^9, {3.74672022932449*^9, 
   3.7467203009080667`*^9}},ExpressionUUID->"5d63156a-b851-4477-bbca-\
14b8e6ca1d83"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sign", "[", "x", "]"}], ",", "x"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.746719842321938*^9, 3.746719896661953*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"a532dbe0-200c-45aa-9fff-fa19b57ab271"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQrWcv9ur////7GcDgw/6g9rOrjeMR/PLzLbnp+/7B
+VeucL86mPgXzpc9kC9iLvMHzt+afYSV/+4vOD+hx/DDzaafcP6PSdUd++1/
wPmL+e5Jznj4Dc6f42VYdLnzK5zflJNYoen5Bc6vZl5VXvT2E5yf2HBe5dqK
j3D+1L1PZ8zJ+gDn77qvwbNG6R2cryzg4BQy7zWcv0mrI+vR4xdw/v2jGxXM
zJ7B+U91phrt3/YYzhesW2mmx/gQztcxe6+z9PMdOL/Z5e2FnRXX4XzRkHUT
IsUvIez7dpT/hMopOH/p7ae9L1v2wflaTL82Z0dvgfNjA2W23E5eAuev/5Kj
/OLWFDjfklV/+YOnIXA+AC1/uUM=
        "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBmIQbcmqv/zB0xB7BjD4YP/BX/1TflEanF892e1UtkkB
nN+QtSbnslYVnH9YobN9rkATnH/i+ztNVvYeOD89XStt279JcH6O3QQOua9z
4PydXNVXD5UuhvNPbo532di5Bc43fcQo1xixH85X/rD7p9Whk3C+5+KbZ/0i
LsH5rr5CzF+3Xofz++OvNxhsvwPnH/eT5Q0Qegjnv1UUrbs06zGcX1qindgv
9gzOv35HICjtxAs4P6HS5jm7z2uE/7XNuw6zvoPz1Tj3vFji8QHOl92T7cra
8RHOZ/jFtLLo0Sc4/3vg3rijql/g/Nsm8dKqLV/h/IJwAUGlO9/gfMkpTyJY
ZH/A+euiFyz/XPETzg+3rfc4sfcXnL8xLlfJ6s9vOP8HlzPzztC/cH7QRWsz
2Rn/4HwHDs0JfD7/4Xw9e7FX//8j+ADeJ67e
        "]]},
      Annotation[#, "Charting`Private`Tag$118103#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJxF1P0vFHAcwPHjMjp5XDTlyOM8zVCdRcYUc3LGjdHEOS01D6lbujOb0LWu
prFiu6TWdnci7UTJ5Nx5unlYpjx0uIudy3UY7nC6u3DVls/3h/de/8HbLaeI
fNUUg8GQ/vbPwEjHFaPRKDqwSO/B0huQ794He29pkSE+pBzlKjLUjjn3WYKM
UmhGn7UiyQ/GWk5RkPRxZuE14T44NWW50kfdA/G9RUdDnXfBjvxBM5vvBjC7
Klg9W6kHdU9KWaJIHcixnndiy3fAhvhg2uRDLVhZQGX4ErfBUuwbOm1tE6SW
j3t+a9KAdT1L7IY8NfhpwefIW/d10MM2Kjrl5SrY7sfKW1SowAVx20kCQQku
BdSFiD4qQLuyZkKgiRwMIGwE8LZk4L0La1+6GBLQIYVfc+nYBNi+I7YZ9hwF
edKlx8tMIZiZ7PxBeoULduFKp/uLOZEHnlk0calIF4Ee6m59WP8ISOTMjiWm
T4AxJHustkMCVlMk5UGdMnAoEW+VZC8H19wcyibqFWDxbX9qtaMSlMhsybnD
KjC75NxP84RVcMA/9NGA2TrofVig4sapQbwgP8aMpQExBtNm2uIm+Cu5J0vs
tQ1KT1NOeDG14M00Wzt32Q7oVPsj/RBeB/IzXr3eYujBtIi7ccM9BrAtq9A9
bPc3qMOdx3al7oHkr+EEPHsfxIVb9gleIPu4cxcvc5BBjBLqcz7S2rWzykmM
HCkIUThsIqMsfGusE4yg7pbuOD8Z2Sod4pHSkC6tud1VOcjdVK4SV4Ls5LhG
mDcib1htDDW2IL3pQnJsG7I2PvP6fQGSpql/ip1E+mXkuXBmkPLBs83R88gk
9oywYhlpYdpEdNtAivLpU73byDvTsZRsA/L/t8A/BhudfQ==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$118103#2"]& ], {}}, {{}, {}, {}, {}}}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-2, 2}, {-1.999999918367347, 1.999999918367347}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7467198584518223`*^9, 3.746719897418675*^9}},
 CellLabel->"Out[34]=",ExpressionUUID->"d0894b47-6e7e-44e0-95aa-53e3bca0f1ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Receiver Operating Characteristic (ROC) Curve", "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745483209803815*^9, 3.745483226740646*^9}, {
   3.7454856209219*^9, 3.745485688712174*^9}, {3.745485930760127*^9, 
   3.745485996123598*^9}, {3.7462161579073753`*^9, 3.746216179118224*^9}, {
   3.74669235362668*^9, 3.746692358816144*^9}, {3.746692547676383*^9, 
   3.746692565509449*^9}, {3.7466928123174343`*^9, 3.746692866345549*^9}, {
   3.74669298001623*^9, 3.746692989393147*^9}, {3.746693094048452*^9, 
   3.7466931456856728`*^9}, {3.746693260505262*^9, 3.746693268248575*^9}, {
   3.746700800524507*^9, 3.746700846755909*^9}, {3.746700893231461*^9, 
   3.746700929260833*^9}, {3.746703377633247*^9, 3.746703388272058*^9}, {
   3.746703460926793*^9, 3.746703461330778*^9}, {3.746703507399054*^9, 
   3.7467035103806562`*^9}, {3.746708227184207*^9, 3.7467082362522793`*^9}, {
   3.746708303268561*^9, 3.7467083555063457`*^9}, {3.7467084110570087`*^9, 
   3.746708420048069*^9}, {3.7467084804080544`*^9, 3.746708749656746*^9}, {
   3.746708884096631*^9, 3.746708884099277*^9}, {3.746720106966214*^9, 
   3.746720129453771*^9}, 3.74672017451935*^9, {3.746720396952031*^9, 
   3.746720396952765*^9}},ExpressionUUID->"fb2979d1-a5d4-416b-86b9-\
f64ee8440b00"],

Cell[CellGroupData[{

Cell[TextData[{
 "Is the curve of the ",
 StyleBox["true positive rate ",
  FontWeight->"Bold"],
 Cell[BoxData[
  FormBox[
   RowBox[{"\[DoubleStruckCapitalP]", "[", 
    RowBox[{"(", 
     RowBox[{"A", "|", "B"}]}], "]"}], TraditionalForm]],ExpressionUUID->
  "6783063a-29c6-499d-b3b5-e224123e9d4e"],
 StyleBox["= ",
  FontWeight->"Bold"],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"\[DoubleStruckCapitalP]", "[", 
     RowBox[{"(", 
      RowBox[{"A", "\[Intersection]", "B"}], ")"}]}], 
    RowBox[{"\[DoubleStruckCapitalP]", "[", "B", "]"}]], TraditionalForm]],
  ExpressionUUID->"fb6a4b5e-49c5-459c-86c3-5b5305c1cdaa"],
 StyleBox[" ",
  FontWeight->"Bold"],
 "versus ",
 StyleBox["the false positive rate",
  FontWeight->"Bold"],
 "  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"\[DoubleStruckCapitalP]", "[", 
     RowBox[{"(", 
      RowBox[{"A", "|", 
       OverscriptBox["B", "_"]}]}], "]"}], "=", 
    FractionBox[
     RowBox[{"\[DoubleStruckCapitalP]", "[", 
      RowBox[{"(", 
       RowBox[{"A", "\[Intersection]", 
        OverscriptBox["B", "_"]}], ")"}]}], 
     RowBox[{"\[DoubleStruckCapitalP]", "[", 
      OverscriptBox["B", "_"], "]"}]]}], TraditionalForm]],ExpressionUUID->
  "adf96af7-a00a-4d33-9d94-6d5a91623cc8"],
 "as we change the threshold from -\[Infinity] to \[Infinity]. "
}], "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745483209803815*^9, 3.745483226740646*^9}, {
   3.7454856209219*^9, 3.745485688712174*^9}, {3.745485930760127*^9, 
   3.745485996123598*^9}, {3.7462161579073753`*^9, 3.746216179118224*^9}, {
   3.74669235362668*^9, 3.746692358816144*^9}, {3.746692547676383*^9, 
   3.746692565509449*^9}, {3.7466928123174343`*^9, 3.746692866345549*^9}, {
   3.74669298001623*^9, 3.746692989393147*^9}, {3.746693094048452*^9, 
   3.7466931456856728`*^9}, {3.746693260505262*^9, 3.746693268248575*^9}, {
   3.746700800524507*^9, 3.746700846755909*^9}, {3.746700893231461*^9, 
   3.746700929260833*^9}, {3.746703377633247*^9, 3.746703388272058*^9}, {
   3.746703460926793*^9, 3.746703461330778*^9}, {3.746703507399054*^9, 
   3.7467035103806562`*^9}, {3.746708227184207*^9, 3.7467082362522793`*^9}, {
   3.746708303268561*^9, 3.7467083555063457`*^9}, {3.7467084110570087`*^9, 
   3.746708420048069*^9}, {3.7467084804080544`*^9, 3.746708749656746*^9}, {
   3.746708884096631*^9, 3.746708884099277*^9}, {3.746720106966214*^9, 
   3.746720129453771*^9}, 3.74672017451935*^9, {3.746720398788918*^9, 
   3.74672043164287*^9}, {3.7467204732129517`*^9, 3.746720496778007*^9}, {
   3.7467215666396723`*^9, 3.7467215677952433`*^9}, {3.778067978284745*^9, 
   3.778068002897545*^9}, {3.7780680404753523`*^9, 3.778068040967374*^9}, {
   3.778068080786668*^9, 3.778068095909933*^9}, {3.778068147234248*^9, 
   3.778068170594486*^9}, {3.778068208482634*^9, 
   3.778068208482767*^9}},ExpressionUUID->"7325694d-2fad-416e-acc6-\
1fd78c5f6aeb"],

Cell["\<\
Area under the curve, just what it says - the area under the ROC curve.\
\>", "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.745483209803815*^9, 3.745483226740646*^9}, {
   3.7454856209219*^9, 3.745485688712174*^9}, {3.745485930760127*^9, 
   3.745485996123598*^9}, {3.7462161579073753`*^9, 3.746216179118224*^9}, {
   3.74669235362668*^9, 3.746692358816144*^9}, {3.746692547676383*^9, 
   3.746692565509449*^9}, {3.7466928123174343`*^9, 3.746692866345549*^9}, {
   3.74669298001623*^9, 3.746692989393147*^9}, {3.746693094048452*^9, 
   3.7466931456856728`*^9}, {3.746693260505262*^9, 3.746693268248575*^9}, {
   3.746700800524507*^9, 3.746700846755909*^9}, {3.746700893231461*^9, 
   3.746700929260833*^9}, {3.746703377633247*^9, 3.746703388272058*^9}, {
   3.746703460926793*^9, 3.746703461330778*^9}, {3.746703507399054*^9, 
   3.7467035103806562`*^9}, {3.746708227184207*^9, 3.7467082362522793`*^9}, {
   3.746708303268561*^9, 3.7467083555063457`*^9}, {3.7467084110570087`*^9, 
   3.746708420048069*^9}, {3.7467084804080544`*^9, 3.746708749656746*^9}, {
   3.746708884096631*^9, 3.746708884099277*^9}, {3.746720106966214*^9, 
   3.746720129453771*^9}, 3.74672017451935*^9, {3.746720398788918*^9, 
   3.74672043164287*^9}, {3.7467204732129517`*^9, 3.746720496778007*^9}, {
   3.7467215666396723`*^9, 
   3.746721593611327*^9}},ExpressionUUID->"b0f570e2-d6f8-4da6-acac-\
853e4aeca653"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"b7b175ae-71aa-4f8a-8e0d-fc4eef33d0cc"],

Cell[CellGroupData[{

Cell["3.10 ROC (receiver operation characteristics)", "Section",
 CellChangeTimes->{{3.7737190664259443`*^9, 3.773719076367696*^9}, {
  3.778067407880725*^9, 3.7780674467425213`*^9}, {3.7781614549339867`*^9, 
  3.778161457965514*^9}, {3.778164554066148*^9, 
  3.7781645593794003`*^9}},ExpressionUUID->"b4edb431-6c70-4b24-b1c9-\
3c0643d4f851"],

Cell[CellGroupData[{

Cell["\<\
Changing the margin changes the prediction and also the false positive rate \
and sensitivity. ROC plots recall (sensitivity) against false positives.\
\>", "Subitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
   3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
   3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
   3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
   3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
   3.7460157957066813`*^9, 3.746015817111991*^9}, {3.7737204608782787`*^9, 
   3.773720474173882*^9}, {3.778038470562684*^9, 3.7780384705628366`*^9}, {
   3.778043676527753*^9, 3.778043676527896*^9}, 3.7780673992996187`*^9, {
   3.778067514470677*^9, 3.778067516241728*^9}, {3.778067622890007*^9, 
   3.778067660081093*^9}, {3.778067806958983*^9, 3.778067841477792*^9}, {
   3.778125889433967*^9, 3.77812589608208*^9}, {3.778152339317774*^9, 
   3.778152557718464*^9}, {3.778152670182706*^9, 3.7781527001377497`*^9}, {
   3.778164445005638*^9, 
   3.778164500971683*^9}},ExpressionUUID->"aba9caef-fa28-4ad2-a3de-\
57d0023a826f"],

Cell[TextData[{
 " ",
 Cell[BoxData[
  StyleBox[
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      StyleBox[
       RowBox[{"F", 
        StyleBox["P", "Text",
         FontWeight->"Plain"], 
        StyleBox[
         StyleBox["R", "Text",
          FontWeight->"Plain"], "Text",
         FontWeight->"Plain"]}]], 
      StyleBox[
       StyleBox[",", "Text",
        FontWeight->"Plain"], "Text",
       FontWeight->"Plain"], "TPR"}], "}"}], 
    StyleBox[
     StyleBox[
      StyleBox[
       StyleBox["=", "Text",
        FontWeight->"Plain"], "Text",
       FontWeight->"Plain"], "Text",
      FontWeight->"Plain"], "Text",
     FontWeight->"Plain"], 
    RowBox[{
     RowBox[{
      StyleBox[
       StyleBox[
        StyleBox[
         StyleBox["{", "Text",
          FontWeight->"Plain"], "Text",
         FontWeight->"Plain"], "Text",
        FontWeight->"Plain"], "Text",
       FontWeight->"Plain"], 
      RowBox[{
       FractionBox["FP", 
        RowBox[{"FP", "+", "TN"}]], " ", ",", 
       FractionBox["TP", 
        RowBox[{"TP", "+", " ", "FN"}]]}], "}"}], "=", 
     StyleBox[
      RowBox[{
       StyleBox[" ", "Text",
        FontWeight->"Plain"], " "}]], 
     RowBox[{
      StyleBox["{", "Text",
       FontWeight->"Plain"], 
      RowBox[{
       RowBox[{
        StyleBox[
         StyleBox["\[DoubleStruckCapitalP]", "Text",
          FontWeight->"Plain"], "Text",
         FontWeight->"Plain"], 
        StyleBox[
         StyleBox["[", "Text",
          FontWeight->"Plain"], "Text",
         FontWeight->"Plain"], 
        RowBox[{
         RowBox[{
          StyleBox[
           StyleBox["predicted", "Text",
            FontWeight->"Plain"], "Text",
           FontWeight->"Plain"], 
          StyleBox[" ", "Text",
           FontWeight->"Plain"], 
          StyleBox[
           RowBox[{
            StyleBox["po", "Text",
             FontWeight->"Plain"], "si", 
            StyleBox[
             StyleBox[
              StyleBox[
               StyleBox["t", "Text",
                FontWeight->"Plain"], "Text",
               FontWeight->"Plain"], "Text",
              FontWeight->"Plain"], "Text",
             FontWeight->"Plain"], "iv", 
            StyleBox[
             StyleBox[
              StyleBox[
               StyleBox["e", "Text",
                FontWeight->"Plain"], "Text",
               FontWeight->"Plain"], "Text",
              FontWeight->"Plain"], "Text",
             FontWeight->"Plain"]}]]}], 
         StyleBox[
          StyleBox["|", "Text",
           FontWeight->"Plain"], "Text",
          FontWeight->"Plain"], 
         RowBox[{
          StyleBox[
           StyleBox["actually", "Text",
            FontWeight->"Plain"], "Text",
           FontWeight->"Plain"], 
          StyleBox[" ", "Text",
           FontWeight->"Plain"], 
          StyleBox[
           RowBox[{
            StyleBox[
             StyleBox[
              StyleBox[
               StyleBox[
                StyleBox[
                 StyleBox["h", "Text",
                  FontWeight->"Plain"], "Text",
                 FontWeight->"Plain"], "Text",
                FontWeight->"Plain"], "Text",
               FontWeight->"Plain"], "Text",
              FontWeight->"Plain"], "Text",
             FontWeight->"Plain"], "ea", 
            StyleBox[
             StyleBox[
              StyleBox["l", "Text",
               FontWeight->"Plain"], "Text",
              FontWeight->"Plain"], "Text",
             FontWeight->"Plain"], "th", 
            StyleBox[
             StyleBox[
              StyleBox["y", "Text",
               FontWeight->"Plain"], "Text",
              FontWeight->"Plain"], "Text",
             FontWeight->"Plain"]}]]}]}], 
        StyleBox[
         StyleBox["]", "Text",
          FontWeight->"Plain"], "Text",
         FontWeight->"Plain"]}], 
       StyleBox[",", "Text",
        FontWeight->"Plain"], 
       StyleBox[
        RowBox[{
         StyleBox[
          StyleBox[" ", "Text",
           FontWeight->"Plain"],
          FontWeight->"Plain"], 
         StyleBox[" ",
          FontWeight->"Bold"], 
         StyleBox[
          RowBox[{"\[DoubleStruckCapitalP]", "[", 
           RowBox[{
            RowBox[{"predicted", " ", "positive"}], "|", 
            RowBox[{"actually", " ", "positive"}]}], "]"}],
          FontWeight->"Plain"]}], "Text"]}], "}"}], 
     StyleBox[
      RowBox[{
       StyleBox[
        StyleBox[" ", "Text",
         FontWeight->"Plain"], "Text",
        FontWeight->"Plain"], " "}]]}]}], "Text",
   FontWeight->"Plain"]],ExpressionUUID->
  "a72faab0-7314-49dc-90f7-371eb4c5f519"],
 "."
}], "Subsubitem",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
   3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
   3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
   3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
   3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
   3.7460157957066813`*^9, 3.746015817111991*^9}, {3.7737204608782787`*^9, 
   3.773720474173882*^9}, {3.778038470562684*^9, 3.7780384705628366`*^9}, {
   3.778043676527753*^9, 3.778043676527896*^9}, 3.7780673992996187`*^9, {
   3.778067514470677*^9, 3.778067516241728*^9}, {3.778067622890007*^9, 
   3.778067660081093*^9}, {3.778067806958983*^9, 3.778067841477792*^9}, {
   3.778125889433967*^9, 3.77812589608208*^9}, {3.778152339317774*^9, 
   3.778152536151492*^9}, {3.778152574701047*^9, 3.7781525990456057`*^9}, {
   3.778164251767372*^9, 3.7781642671203547`*^9}, {3.7781643969131117`*^9, 
   3.7781644390496817`*^9}, {3.778164477685157*^9, 
   3.7781644818153257`*^9}},ExpressionUUID->"61257c0a-61fc-4222-9ac7-\
d4fb0fd1f666"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[ScriptCapitalR]", " ", "=", " ", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"White", ",", 
        RowBox[{"Rectangle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", 
            RowBox[{"-", "2"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "2"}], "}"}]}], "]"}]}], "}"}], "]"}]}], ";", 
    " ", "\[IndentingNewLine]", 
    RowBox[{"\[ScriptCapitalB]", " ", "=", 
     RowBox[{"Region", "[", 
      RowBox[{"Style", "[", " ", 
       RowBox[{
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.5"}], ",", "0"}], "}"}], ",", "0.6"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Opacity", "[", "0.5", "]"}], ",", "Red", ",", "Thick", ",", 
          RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], "]"}]}], 
    ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"True", " ", "values"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[ScriptCapitalA]", " ", "=", 
     RowBox[{"Region", "[", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"s", ",", "0"}], "}"}], ",", "r"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Opacity", "[", "0.5", "]"}], ",", "Blue", ",", "Thick", 
          ",", 
          RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], "]"}]}], 
    ";", "          ", 
    RowBox[{"(*", " ", 
     RowBox[{"Predicted", " ", "true", " ", "values"}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"\[CapitalOmega]", " ", "=", " ", 
     RowBox[{"Region", "[", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Rectangle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1.5"}], ",", 
            RowBox[{"-", "1.5"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.5", ",", "1.5"}], "}"}]}], "]"}], ",", 
        RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
        RowBox[{"EdgeForm", "[", "Black", "]"}], ",", "Thick", ",", "White"}],
        "]"}], "]"}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"Full", " ", "space"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"TR", "=", 
     RowBox[{"RegionIntersection", "[", 
      RowBox[{"\[ScriptCapitalA]", ",", "\[ScriptCapitalB]"}], " ", "]"}]}], 
    ";", "  ", 
    RowBox[{"(*", " ", 
     RowBox[{"True", " ", "positives"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[ScriptCapitalB]c", "=", " ", 
     RowBox[{"RegionDifference", "[", 
      RowBox[{"\[CapitalOmega]", ",", "\[ScriptCapitalB]"}], " ", "]"}]}], 
    ";", " ", 
    RowBox[{"(*", " ", "Negatives", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"FP", "=", " ", 
     RowBox[{"RegionDifference", "[", 
      RowBox[{"\[ScriptCapitalA]", ",", "\[ScriptCapitalB]"}], "]"}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"False", " ", "Positives"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
     "\[ScriptCapitalR]", " ", ",", "\[ScriptCapitalA]", ",", 
      "\[ScriptCapitalB]", ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"FrameTicks", "\[Rule]", "False"}], ",", 
      RowBox[{"ImagePadding", "\[Rule]", "30"}], ",", 
      RowBox[{"Background", "\[Rule]", "White"}], ",", " ", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Row", "[", " ", 
         RowBox[{"\"\<FPR =\>\"", " ", ",", 
          RowBox[{"NumberForm", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"RegionMeasure", "[", "FP", "]"}], "/", 
             RowBox[{"RegionMeasure", "[", "\[ScriptCapitalB]c", "]"}]}], ",",
             "2"}], "]"}], ",", "\"\<Recall = \>\"", ",", 
          RowBox[{"NumberForm", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"RegionMeasure", "[", "TR", "]"}], "/", " ", 
             RowBox[{"RegionMeasure", "[", "\[ScriptCapitalB]", "]"}]}], ",", 
            "2"}], "]"}], ",", "\"\<Precision = \>\"", ",", 
          RowBox[{"NumberForm", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"RegionMeasure", "[", "TR", "]"}], "/", " ", 
             RowBox[{"RegionMeasure", "[", "\[ScriptCapitalA]", "]"}]}], ",", 
            "2"}], "]"}]}], "]"}], "}"}]}], ",", 
      RowBox[{"ImageSize", "\[Rule]", " ", "300"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "0.5", ",", "\"\<Radius\>\""}], "}"}], ",", "0.1", 
     ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s", ",", "0.2", ",", "\"\<Match\>\""}], "}"}], ",", 
     RowBox[{"-", "0.6"}], ",", "0.7"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.77814920339039*^9, 3.778149203977417*^9}, {
   3.7781493307939167`*^9, 3.778149418674514*^9}, {3.778149463684836*^9, 
   3.7781494796026907`*^9}, {3.778149510551922*^9, 3.7781495200986443`*^9}, {
   3.778149579633913*^9, 3.778149616197706*^9}, {3.778149697204105*^9, 
   3.778149697903366*^9}, {3.778150000155691*^9, 3.77815001119582*^9}, {
   3.778150104263974*^9, 3.7781501260618877`*^9}, {3.778158533338265*^9, 
   3.778158696528804*^9}, 3.7781587745196877`*^9, {3.7781593748364887`*^9, 
   3.7781593761457653`*^9}, {3.778162137786796*^9, 3.778162209994035*^9}, {
   3.778164307234004*^9, 3.778164341322003*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"62840a6c-ea77-45ee-a18a-ea67b089df4d"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 
    1.7060000000000002`, $CellContext`s$$ = -0.364, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`r$$], 0.5, "Radius"}, 0.1, 2}, {{
       Hold[$CellContext`s$$], 0.2, "Match"}, -0.6, 0.7}}, Typeset`size$$ = {
    600., {290., 301.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`r$6923825$$ = 
    0, $CellContext`s$6923826$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 0.5, $CellContext`s$$ = 0.2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`r$$, $CellContext`r$6923825$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$6923826$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`\[ScriptCapitalR] = Graphics[{White, 
           Rectangle[{-2, -2}, {2, 2}]}]; $CellContext`\[ScriptCapitalB] = 
        Region[
          Style[
           Disk[{-0.5, 0}, 0.6], {
            Opacity[0.5], Red, Thick, 
            EdgeForm[Black]}]]; $CellContext`\[ScriptCapitalA] = Region[
          Style[
           Disk[{$CellContext`s$$, 0}, $CellContext`r$$], {
            Opacity[0.5], Blue, Thick, 
            EdgeForm[Black]}]]; $CellContext`\[CapitalOmega] = Region[
          Style[
           Rectangle[{-1.5, -1.5}, {1.5, 1.5}], 
           Opacity[0.5], 
           EdgeForm[Black], Thick, White]]; $CellContext`TR = 
        RegionIntersection[$CellContext`\[ScriptCapitalA], $CellContext`\
\[ScriptCapitalB]]; $CellContext`\[ScriptCapitalB]c = 
        RegionDifference[$CellContext`\[CapitalOmega], $CellContext`\
\[ScriptCapitalB]]; $CellContext`FP = 
        RegionDifference[$CellContext`\[ScriptCapitalA], $CellContext`\
\[ScriptCapitalB]]; 
       Show[$CellContext`\[ScriptCapitalR], $CellContext`\[ScriptCapitalA], \
$CellContext`\[ScriptCapitalB], Frame -> True, FrameTicks -> False, 
         ImagePadding -> 30, Background -> White, FrameLabel -> {
           Row["FPR =", 
            NumberForm[
            RegionMeasure[$CellContext`FP]/
             RegionMeasure[$CellContext`\[ScriptCapitalB]c], 2], "Recall = ", 
            NumberForm[
            RegionMeasure[$CellContext`TR]/
             RegionMeasure[$CellContext`\[ScriptCapitalB]], 2], 
            "Precision = ", 
            NumberForm[
            RegionMeasure[$CellContext`TR]/
             RegionMeasure[$CellContext`\[ScriptCapitalA]], 2]]}, ImageSize -> 
         300]), "Specifications" :> {{{$CellContext`r$$, 0.5, "Radius"}, 0.1, 
         2}, {{$CellContext`s$$, 0.2, "Match"}, -0.6, 0.7}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{684., {383., 394.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.778162211425805*^9, 3.778163441375445*^9, 
  3.778164346259769*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"806d433a-2ad1-4dc0-b914-fc7d46d6d174"]
}, {2}]],

Cell["\<\
Changing the size of the margin one can draw the ROC curve. This is \
appropriate when the observations are balanced between each class. AUC is the \
area under the the curve.\
\>", "Text",
 CellChangeTimes->{{3.7781514085909233`*^9, 3.778151440791099*^9}, {
  3.778159406563593*^9, 3.778159534640465*^9}, {3.778164755597571*^9, 
  3.7781647633390827`*^9}, {3.778164835119212*^9, 3.778164846439645*^9}, {
  3.7781649259432983`*^9, 
  3.7781649335756063`*^9}},ExpressionUUID->"d330dc70-13ba-455c-86b0-\
1065d36ccb07"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\[NonBreakingSpace]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[ScriptCapitalB]", " ", "=", 
      RowBox[{"Region", "[", 
       RowBox[{"Style", "[", " ", 
        RowBox[{
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.5"}], ",", "0"}], "}"}], ",", "0.6"}], "]"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Opacity", "[", "0.5", "]"}], ",", "Red", ",", "Thick", 
           ",", 
           RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], "]"}]}],
      ";", " ", 
     RowBox[{"(*", " ", 
      RowBox[{"True", " ", "values"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalA]", " ", "=", 
      RowBox[{"Region", "[", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s", ",", "0"}], "}"}], ",", "r"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Opacity", "[", "0.5", "]"}], ",", "Blue", ",", "Thick", 
           ",", 
           RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], "]"}]}],
      ";", "          ", 
     RowBox[{"(*", " ", 
      RowBox[{"Predicted", " ", "true", " ", "values"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"\[CapitalOmega]", " ", "=", " ", 
      RowBox[{"Region", "[", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Rectangle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1.5"}], ",", 
             RowBox[{"-", "1.5"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1.5", ",", "1.5"}], "}"}]}], "]"}], ",", 
         RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
         RowBox[{"EdgeForm", "[", "Black", "]"}], ",", "Thick", ",", 
         "White"}], "]"}], "]"}]}], ";", " ", 
     RowBox[{"(*", " ", 
      RowBox[{"Full", " ", "space"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"TR", "=", 
      RowBox[{"RegionIntersection", "[", 
       RowBox[{"\[ScriptCapitalA]", ",", "\[ScriptCapitalB]"}], " ", "]"}]}], 
     ";", "  ", 
     RowBox[{"(*", " ", 
      RowBox[{"True", " ", "positives"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"\[ScriptCapitalB]c", "=", " ", 
      RowBox[{"RegionDifference", "[", 
       RowBox[{"\[CapitalOmega]", ",", "\[ScriptCapitalB]"}], " ", "]"}]}], 
     ";", " ", 
     RowBox[{"(*", " ", "Negatives", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"FP", "=", " ", 
      RowBox[{"RegionDifference", "[", 
       RowBox[{"\[ScriptCapitalA]", ",", "\[ScriptCapitalB]"}], "]"}]}], ";", 
     RowBox[{"(*", " ", 
      RowBox[{"False", " ", "Positives"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"RegionMeasure", "[", "FP", "]"}], "/", 
            RowBox[{"RegionMeasure", "[", "\[ScriptCapitalB]c", "]"}]}], ",", 
           RowBox[{
            RowBox[{"RegionMeasure", "[", "TR", "]"}], "/", " ", 
            RowBox[{"RegionMeasure", "[", "\[ScriptCapitalB]", "]"}]}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"r", ",", "0.1", ",", "2", ",", "0.1"}], "}"}]}], "]"}], 
       ",", 
       RowBox[{"PlotLabel", "\[Rule]", "\"\<ROC curve\>\""}], ",", " ", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<FPR\>\"", ",", " ", "\"\<Sensitivity/Recall\>\""}], " ",
          "}"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", " ", "300"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"s", ",", "0.2", ",", "\"\<Match\>\""}], "}"}], ",", 
      RowBox[{"-", "0.6"}], ",", "0.7"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.778150166709284*^9, 3.778150170348645*^9}, {
   3.7781514355222073`*^9, 3.778151588901376*^9}, {3.7781520413739243`*^9, 
   3.778152113041112*^9}, {3.7781521865737743`*^9, 3.778152241321903*^9}, {
   3.778152761075836*^9, 3.778152771233696*^9}, {3.778152985471404*^9, 
   3.778152990132207*^9}, {3.778158276511293*^9, 3.778158312605157*^9}, {
   3.778158348349185*^9, 3.7781583642036324`*^9}, 3.778158399516614*^9, {
   3.778158848261003*^9, 3.778158857146379*^9}, {3.778158912900413*^9, 
   3.7781589779310703`*^9}, {3.778159072502222*^9, 3.778159151040979*^9}, {
   3.778159182162221*^9, 3.778159184829173*^9}, {3.778160011666594*^9, 
   3.77816009016982*^9}, {3.778160824678298*^9, 3.7781608275281887`*^9}, {
   3.7781643713236017`*^9, 3.778164371790476*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"e1b0344b-4de3-45f4-8d0d-cd994dd93e41"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 0.30600000000000005`, Typeset`show$$ =
     True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`s$$], 0.2, "Match"}, -0.6, 0.7}}, Typeset`size$$ = {
    600., {187., 197.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`s$6973671$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`s$$ = 0.2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`s$$, $CellContext`s$6973671$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`\[ScriptCapitalB] = Region[
          Style[
           Disk[{-0.5, 0}, 0.6], {
            Opacity[0.5], Red, Thick, 
            EdgeForm[Black]}]]; $CellContext`\[ScriptCapitalA] = Region[
          Style[
           Disk[{$CellContext`s$$, 0}, $CellContext`r], {
            Opacity[0.5], Blue, Thick, 
            EdgeForm[Black]}]]; $CellContext`\[CapitalOmega] = Region[
          Style[
           Rectangle[{-1.5, -1.5}, {1.5, 1.5}], 
           Opacity[0.5], 
           EdgeForm[Black], Thick, White]]; $CellContext`TR = 
        RegionIntersection[$CellContext`\[ScriptCapitalA], $CellContext`\
\[ScriptCapitalB]]; $CellContext`\[ScriptCapitalB]c = 
        RegionDifference[$CellContext`\[CapitalOmega], $CellContext`\
\[ScriptCapitalB]]; $CellContext`FP = 
        RegionDifference[$CellContext`\[ScriptCapitalA], $CellContext`\
\[ScriptCapitalB]]; ListPlot[
         Table[{
          RegionMeasure[$CellContext`FP]/
           RegionMeasure[$CellContext`\[ScriptCapitalB]c], 
           RegionMeasure[$CellContext`TR]/
           RegionMeasure[$CellContext`\[ScriptCapitalB]]}, {$CellContext`r, 
           0.1, 2, 0.1}], PlotLabel -> "ROC curve", 
         AxesLabel -> {"FPR", "Sensitivity/Recall"}, ImageSize -> 300]), 
      "Specifications" :> {{{$CellContext`s$$, 0.2, "Match"}, -0.6, 0.7}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{684., {263., 275.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.778159191809492*^9, 3.778159226378291*^9}, 
   3.7781600941699247`*^9, 3.778160833738019*^9, 3.778162024639103*^9, 
   3.77816437642371*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"02361217-444f-453a-a0f8-20ef43609334"]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"18125049-c837-4584-ab6d-b49b41697be4"],

Cell[CellGroupData[{

Cell["3.11 PR (Precision Recall curve)", "Section",
 CellChangeTimes->{{3.7737190664259443`*^9, 3.773719076367696*^9}, {
  3.778067407880725*^9, 3.7780674467425213`*^9}, {3.7781595699665327`*^9, 
  3.77815957203942*^9}, {3.778161461929243*^9, 3.778161463564652*^9}, {
  3.778164993503072*^9, 
  3.778164995396702*^9}},ExpressionUUID->"bdbe7acf-bb40-4bf1-8410-\
83842be6801a"],

Cell[CellGroupData[{

Cell["PR - curves plot the precision as a function of the recall.", "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
   3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
   3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
   3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
   3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
   3.7460157957066813`*^9, 3.746015817111991*^9}, {3.7737204608782787`*^9, 
   3.773720474173882*^9}, {3.778038470562684*^9, 3.7780384705628366`*^9}, {
   3.778043676527753*^9, 3.778043676527896*^9}, 3.7780673992996187`*^9, {
   3.778067514470677*^9, 3.778067516241728*^9}, {3.778067622890007*^9, 
   3.778067660081093*^9}, {3.778067806958983*^9, 3.778067841477792*^9}, {
   3.778125889433967*^9, 3.77812589608208*^9}, {3.778152339317774*^9, 
   3.778152350150476*^9}, {3.778159801807184*^9, 3.7781598022131243`*^9}, {
   3.778160209151101*^9, 3.77816025282347*^9}, {3.778160610512279*^9, 
   3.77816061764412*^9}, {3.778161509480934*^9, 
   3.7781615564111433`*^9}},ExpressionUUID->"b032c732-eb53-45fe-b529-\
67b91364e785"],

Cell[TextData[{
 StyleBox["Precision",
  FontWeight->"Bold"],
 ":\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[DoubleStruckCapitalP]", "[", 
    RowBox[{"B", "|", "A"}], "]"}], TraditionalForm]],ExpressionUUID->
  "56be052a-8fac-4251-a2f1-8ffc23febcfa"],
 "\t                  When you predict a cancer is it really cancer? ",
 StyleBox[" \t\t",
  FontWeight->"Bold"],
 "\[DoubleStruckCapitalP][ actually positive | predicted positive]\t\t\n",
 StyleBox["Recall",
  FontWeight->"Bold"],
 ":\t\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"\[DoubleStruckCapitalP]", "[", 
     RowBox[{"A", "|", "B"}], "]"}], " "}], TraditionalForm]],ExpressionUUID->
  "f83738c5-9264-487d-abd9-1daecb596aab"],
 "\t\t\tWhat part of cancers the program detects?",
 StyleBox["  \t",
  FontWeight->"Bold"],
 "\[DoubleStruckCapitalP][ predicted positive | actually positive]"
}], "Item",
 CellChangeTimes->{{3.744010551656776*^9, 3.744010567237013*^9}, {
   3.74401059851165*^9, 3.744010600542663*^9}, {3.7447112025589943`*^9, 
   3.744711266439591*^9}, {3.7454800751768217`*^9, 3.7454800756333313`*^9}, {
   3.745480321711294*^9, 3.7454803864246902`*^9}, {3.7454804172033997`*^9, 
   3.7454804493230133`*^9}, {3.745480593356401*^9, 3.7454806252740593`*^9}, {
   3.745591248942667*^9, 3.74559130003762*^9}, {3.7455948011976*^9, 
   3.745594807272284*^9}, {3.745594866568309*^9, 3.745594886950808*^9}, {
   3.7460157957066813`*^9, 3.746015817111991*^9}, {3.7737204608782787`*^9, 
   3.773720474173882*^9}, {3.778038470562684*^9, 3.7780384705628366`*^9}, {
   3.778043676527753*^9, 3.778043676527896*^9}, 3.7780673992996187`*^9, {
   3.778067514470677*^9, 3.778067516241728*^9}, {3.778067622890007*^9, 
   3.778067660081093*^9}, {3.778067806958983*^9, 3.778067841477792*^9}, {
   3.778125889433967*^9, 3.77812589608208*^9}, {3.778152339317774*^9, 
   3.778152350150476*^9}, {3.778159801807184*^9, 3.7781598022131243`*^9}, {
   3.778160209151101*^9, 3.77816025282347*^9}, {3.778160610512279*^9, 
   3.77816061764412*^9}, {3.778161509480934*^9, 3.7781615232020597`*^9}, {
   3.778161568726671*^9, 3.778161579994582*^9}, {3.778164604538494*^9, 
   3.778164606755612*^9}},ExpressionUUID->"5a89b2b5-f0d1-47ce-8cb5-\
e3078a75a9c2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[NonBreakingSpace]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[ScriptCapitalB]", " ", "=", 
     RowBox[{"Region", "[", 
      RowBox[{"Style", "[", " ", 
       RowBox[{
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.5"}], ",", "0"}], "}"}], ",", "0.6"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Opacity", "[", "0.5", "]"}], ",", "Red", ",", "Thick", ",", 
          RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], "]"}]}], 
    ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"True", " ", "values"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[ScriptCapitalA]", " ", "=", 
     RowBox[{"Region", "[", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"s", ",", "0"}], "}"}], ",", "r"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Opacity", "[", "0.5", "]"}], ",", "Blue", ",", "Thick", 
          ",", 
          RowBox[{"EdgeForm", "[", "Black", "]"}]}], "}"}]}], "]"}], "]"}]}], 
    ";", "          ", 
    RowBox[{"(*", " ", 
     RowBox[{"Predicted", " ", "true", " ", "values"}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"\[CapitalOmega]", " ", "=", " ", 
     RowBox[{"Region", "[", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Rectangle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1.5"}], ",", 
            RowBox[{"-", "1.5"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.5", ",", "1.5"}], "}"}]}], "]"}], ",", 
        RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
        RowBox[{"EdgeForm", "[", "Black", "]"}], ",", "Thick", ",", "White"}],
        "]"}], "]"}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"Full", " ", "space"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"TR", "=", 
     RowBox[{"RegionIntersection", "[", 
      RowBox[{"\[ScriptCapitalA]", ",", "\[ScriptCapitalB]"}], " ", "]"}]}], 
    ";", "  ", 
    RowBox[{"(*", " ", 
     RowBox[{"True", " ", "positives"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[ScriptCapitalB]c", "=", " ", 
     RowBox[{"RegionDifference", "[", 
      RowBox[{"\[CapitalOmega]", ",", "\[ScriptCapitalB]"}], " ", "]"}]}], 
    ";", " ", 
    RowBox[{"(*", " ", "Negatives", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"FP", "=", " ", 
     RowBox[{"RegionDifference", "[", 
      RowBox[{"\[ScriptCapitalA]", ",", "\[ScriptCapitalB]"}], "]"}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"False", " ", "Positives"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"RegionMeasure", "[", "TR", "]"}], "/", " ", 
           RowBox[{"RegionMeasure", "[", "\[ScriptCapitalB]", "]"}]}], ",", 
          RowBox[{
           RowBox[{"RegionMeasure", "[", "TR", "]"}], "/", 
           RowBox[{"RegionMeasure", "[", "\[ScriptCapitalA]", "]"}]}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", "0.1", ",", "2", ",", "0.1"}], "}"}]}], "]"}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "\"\<PR curve\>\""}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<Recall\>\"", ",", " ", "\"\<Precision\>\""}], " ", 
        "}"}]}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s", ",", "0.2", ",", "\"\<Match\>\""}], "}"}], ",", 
     RowBox[{"-", "0.6"}], ",", "0.7"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7781609171397953`*^9, 3.778160932673975*^9}, {
  3.778161593651084*^9, 3.778161645603299*^9}, {3.778161787803425*^9, 
  3.778161788113315*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"c46d1f6e-4bd5-4bf7-9395-744397f02941"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = -0.31399999999999995`, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`s$$], 0.2, "Match"}, -0.6, 0.7}}, Typeset`size$$ = {
    720., {229., 240.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`s$5178161$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`s$$ = 0.2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`s$$, $CellContext`s$5178161$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, 
      "Body" :> ($CellContext`\[ScriptCapitalB] = Region[
          Style[
           Disk[{-0.5, 0}, 0.6], {
            Opacity[0.5], Red, Thick, 
            EdgeForm[Black]}]]; $CellContext`\[ScriptCapitalA] = Region[
          Style[
           Disk[{$CellContext`s$$, 0}, $CellContext`r], {
            Opacity[0.5], Blue, Thick, 
            EdgeForm[Black]}]]; $CellContext`\[CapitalOmega] = Region[
          Style[
           Rectangle[{-1.5, -1.5}, {1.5, 1.5}], 
           Opacity[0.5], 
           EdgeForm[Black], Thick, White]]; $CellContext`TR = 
        RegionIntersection[$CellContext`\[ScriptCapitalA], $CellContext`\
\[ScriptCapitalB]]; $CellContext`\[ScriptCapitalB]c = 
        RegionDifference[$CellContext`\[CapitalOmega], $CellContext`\
\[ScriptCapitalB]]; $CellContext`FP = 
        RegionDifference[$CellContext`\[ScriptCapitalA], $CellContext`\
\[ScriptCapitalB]]; ListPlot[
         Table[{
          RegionMeasure[$CellContext`TR]/
           RegionMeasure[$CellContext`\[ScriptCapitalB]], 
           RegionMeasure[$CellContext`TR]/
           RegionMeasure[$CellContext`\[ScriptCapitalA]]}, {$CellContext`r, 
           0.1, 2, 0.1}], PlotLabel -> "PR curve", 
         AxesLabel -> {"Recall", "Precision"}]), 
      "Specifications" :> {{{$CellContext`s$$, 0.2, "Match"}, -0.6, 0.7}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{804., {306., 317.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.778161636714878*^9, 3.778161652701397*^9}, 
   3.77816179483778*^9, 3.778161979955245*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"78a8e359-3307-4e47-bc1a-3ff90e4a8eda"]
}, {2}]],

Cell["\<\
Precision-recall curves are appropriate for imbalanced datasets. Here also, \
one can build an AUC, area under the curve. Good values is AUC curves \
approach 1.\
\>", "Text",
 CellChangeTimes->{{3.7781613393267603`*^9, 3.7781613436726227`*^9}, {
  3.7781618663283367`*^9, 3.778161907275585*^9}, {3.778164951105626*^9, 
  3.778164956036632*^9}},ExpressionUUID->"836deca6-0536-4c07-8be0-\
41a56127bd7b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"5b8027d4-8c59-45a3-b16e-3620556c118f"],

Cell[CellGroupData[{

Cell["3.12 Example with a neural network", "Section",
 CellChangeTimes->{{3.7737190664259443`*^9, 3.773719076367696*^9}, {
  3.778067407880725*^9, 3.7780674467425213`*^9}, {3.7781595699665327`*^9, 
  3.77815957203942*^9}, {3.7781613677324057`*^9, 3.7781613759834146`*^9}, {
  3.778161466760829*^9, 3.778161467747541*^9}, {3.778165221956805*^9, 
  3.778165229026251*^9}},ExpressionUUID->"34ccac00-a0d5-4c24-8e09-\
d966936ad9b9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot3D", "[", 
   RowBox[{
    RowBox[{"Boole", "[", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "\[LessEqual]", 
         RowBox[{"1", "/", "2"}]}], " ", "&&", " ", 
        RowBox[{"y", "\[LessEqual]", " ", 
         RowBox[{"1", "/", "2"}]}]}], " ", ")"}], "||", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "\[GreaterEqual]", " ", 
         RowBox[{"1", "/", "2"}]}], " ", "&&", " ", 
        RowBox[{"y", "\[GreaterEqual]", "  ", 
         RowBox[{"1", "/", "2"}]}]}], ")"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}], ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{{3.773719814391478*^9, 3.773719815286265*^9}, {
   3.773719869595706*^9, 3.773719889808671*^9}, {3.773719970445022*^9, 
   3.773719996256256*^9}, 3.773720177248012*^9, {3.773720207731585*^9, 
   3.773720213706698*^9}, {3.7737203898890867`*^9, 3.773720392990232*^9}, {
   3.778166251122097*^9, 3.7781662566802187`*^9}, {3.809670222858838*^9, 
   3.809670246337645*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"6b6946e4-8821-4ae6-94e6-ca136f4138a8"],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJyVnXmYVsWZt7vdt7iAiYpLVBqMig7gbtR2hxe3uCsYRTRBkaZBVHB31FEn
qECjuKGiLGKMRqM04AKooOAGNDsNKCDI0iAzn5q40eOMdZ/DuWvqynz+4/Xe
PF2n6lfLqXqqnjr7dKk+5w+blJWVrdmmrGzTn/7/zEUvjLmvVe/j+H/Z//y3
vrLbwcc91qL0t0rzv6yc31hReifiFa/vfMiYqg8j/snk/V6tKNVF/E8HT/6o
qn5OxE99pMuK2qr6iF/22if3V5SWipeVvXXVk7uVaj6P+O57dh9ZVb8i4jfO
OPqQmopVEZ/7b1tPrK1aE/HDjp53en3t2ogPXDdyfmPjlxHnN/pZT3P0NEdP
c/Q0R09z9DRHzyLP9TRHT3P0NEdPc/Q0R09z9EQn62nOb3P0NEdPc/Q0R09z
9CzyXE9z9DRHT3P0NEdPc/Q0R0/0sJ7m/L05v83R0xw9zdHTHD2LPNfTHD3N
0dMcPc3R0xw9zdGTcltPc/Q0J11zfpujpzl6mqNnked6mqOnOXqao6c5epqj
pzl6Uj7raY6e5uhpzvPM+W2OnuboWeS5nuboaY6e5uhpjp7m6GmOnpTDepqj
pzl6mqOnOfkw57c5ehZ5rqc5epqjpzl6mqOnOXqaoyf5haOnOXqao6c5epqj
pzn5M+d3ka+vRE9z9DRHT3P0NEdPc/Q0R0/yZT3N0dMcPc3R0xw9zdHTnHwX
ea6nOXqao6c5epqjpzl6mqMnz7ee5uhpjp7m6GmOnuboaY6eRZ7rac5vc/Q0
R09z9DRHT3P05DnW0xw9zdHTHD3N0dMcPc3Rs8hzPc0ppzm/zdHTHD3N0dMc
PUnPepqjpzl6mqOnOXqao6c5ehZ5rqc5eppTfnN+m6OnOXqaoyd/Zz3N0dMc
Pc3R0xw9zdHTHD2LPNfTHD3N0dMcXcz5bY6e5ujJv1tPc/Q0R09z9DRHT3P0
NEfPIs/1NEdPc/Q0R09z9DLnt3nrjl1PralYUjn8tDa962sXZfnnN/8OXz5u
i49alp6t5P+uF3PSMSfdIi8rg9tv8+D2h8+srVoW2cNtf8VDlYOq6tdF9pTf
nHwuaez70ZiqN6J8Fnn+XHPSuersPrv1qH8vSqfI83TMSafnThe3LCubHqVT
5Hk65qTT6qZvKks1s6J0ijxPx5x0Vi4ddHFNxfwonSLP0zHH3vN27N0OG97Z
rHN97fIoHbjtO/SZ2dDY+EVkD7f9qAOfvbGitDqyh9t+i896blGqaYjs4ban
HdoebnvaZZGvz9qr+yPt3va0yxR3OrQ/28NtTzuzPdz2tCfbw22PXraH257x
1nrSror26ytpP+a0E3Pagzn1bs44k2oPtqd+ya/r1+WlHm1PfZlTL+bob07/
TNWL7SmnOTq4vJQr9Vxz/r7I8/ZAfTo/5qRT5Hk61L/TMSedIs/Tob04HXPS
KfI8HdqX0zEnnSLP2xXtDnv0N+e55jw3Ze/5D/kp2ufzgZS95yf8vdPht+0p
r/eneG5q38rzAdL3vAJ7v/fhfo/D/V6G+z0LT71P/d6kHZvTLs1pZ+a0m5Sf
LfX+sj062t+FXuboZY5e5uhlTv7MqfeUX87jA9z9He7+C3d/RIfUesH9CDu3
c/qF993g3j+Cex8Ebn8+POUn9/uLdYo56xRz1inmrFPMKaffO5TTnHKaU05z
ymlOPuxXhNs/BrefB25/Bdzr7vZbPnF1fe2Sykv6ndA4tuqFiJ956La9y8om
Rvy9zU8dWVMxNeJPXzOxe03FjIh3mvX7e+prZ2d85BtXf9PYuKxy5ohHx1XV
L874Zj2PvKuitCLiXSq23LFUszLiE+fNHlJVvzriez0wfP+airURp5zkC045
zSmnOeU0p5zm5INym1Nuc8ptTrnNKTd81xcPaV6q+SyqX3jLR+r/1qO+Nqov
c+zdHuDbPDnq/lLNpCgdc+zdfuB39lg2ob724ygdc+zd3uA//rr/t7VVM6N0
zLF3+4SPu69V07KyeVE65tTr9f8xtVWpZmHGZ/1yxjE1FcsjTn2n7N1u237w
9NTaqi8ie9qHOfZOZ8BtPS6or10V2dOezLF3OuvaHrussXFNZE/7M8fe6Zz+
xbY9K0rrInt4qv9SP3DaqzntNWXvfkp7tT3t1Rx7p0N7tT3t1Rx7p0N7tT3t
1Rx7p0N7tT3c9tSHxys47RROPZlj7/ENTjt1OubYezyE006djjn2Hj/htFOn
Y469x1s47dfpmC+Y/kib/Us1lfz/Z7o+a/fm1F+R5+OV1ws3ndC7trbqy8ie
38X+tb5yl2O/f7qitCBqJ8wf7A9hHuP1Nc91v4a7X8OLz12f5dvtk/mq7Un3
hss3ebmqfmlUXp7jejHnd5Hn6VsfdHd9kW/rj17m2FMPrt8Ut86kk+LWH71S
3Omgf6oePa+mnNYN7vkw5UyNSynu9OGuX/Jnzt+n6t3rd+zc77B3PnluKv9u
t9in2rPXd/x2/rF3/rF3O+S5PhdKuYrzw9y/4XOP2Bfngbm9z/VhX5zv5fY+
t4Z9cV6X2/tcFvbF+Vt+3snjG/MNj5PoaE75nQ7zENtTftsz37A95bc98wrb
U37bM3+wPf4B29Mfbc961eM/8waPz6xjbc/8wPasb23PPMD2rHttz/ve9qyH
bc973fb0F4+HtAf3a9L1uSbSLfbr/H3qczvYF+dXub3PpWBfnEfl9j53gX1x
vpTb+1wB9sV5Ud4vPK6SjvfTSac4L8r7qcc30rXflXT8PqI+PD6TH79P4an3
pt9r1J85z/P7iOf5fcfzUtw6kK51oPzF9X7Oi+v3nBfX4zkvrq9zXlwv5+Ot
z21iX9R5ffb+8HjCe8Kc94E5474547s5/dD9nXp0f6e/mdOvzOk/5vQTc9q9
Ob+L66+cF9dTOS+uj3JeXO/kvLh+yevL5xDgPlcA9zkBuPf94d7Hp39ZB/Yd
UvP8Yj/Nudshz3O5sDMnXc9zSMc6kI456Xj+QzrWjXTMScfzItKxzqRjTjqe
L5GO64V0zEnH8yjqy/uk/PZ7kPZdfG/m++NOh/eiOen4fUo6fi792va0n9S8
NzW/Tc1jU/PV1LzU+0Rw7wvAvS8A974A3PsCcO8LrD7no4W1VZ9WbndT9Xbl
ZS9n+YTf+uC142oq3o7415e92FBR+iDitbt+1b++dkbEr/3Xgc9XlOZE/ODV
B79bVZ+/L7bY9Rft62u/zP7d+Wxbs+l9FaXPIz7g1LqdSzUrIr7uu6HPVNWv
jPjpf60+uKZiTcT/fMVxb9RWxfqQLzj153kIv30Ojd9+TzEemTO+mDNemNP/
zenP5vQr559+ZM4+pTn7lObsU5qz75jSzecx4N4/hXv/FO79U7j3T+HeJ6Uf
Op/0Q3P6oTn90Jx+aN5s+bQr62uXRe2/72NP/Udj4/KIzzmj6raK0sqIH7rJ
MduWalZHvKZ2m0er6huS/Yvnm/N8c55vzvPNeT68feURL1TVfx7lp3NDt09q
q+Lyjvx/mx9ZU/FFxMcPPapTfW3MNxs1a1Jt1aqI73H+VisbG2Pe5ZJhZ9fX
ron4TVvPva6iFOs2ccdrFzc2ro34vLdGlJdq1iV1ptzmlNuccptTbnPKbU65
zSm3OeU2p9zmlNt88oZxPxxUujMa/895tu7KN6qeyDh2Rd3WZ3bmzE88vq3r
Nr+ipiJ+j2Dn9Rd2q/901V6lmqUR3+TIISfUVMT9gufASdf9mnSdH9I1Z72X
aj/27+HXsz5ZPWqdDrcfGz5l6XYtO9S8FvG7T/tz5aCKcRH3/Blef+IJp46p
ejfiR/19h5n1tZMj7vkz/Nydb7mxVPNRxF+Z0mGLHvWfRNzzZ/iKazvNqaqv
i/jOH7+zR1nZrIh7/gx/tv4fX9ZWzY349MM6H16qmRfxlB/S7XbovsOXV9eP
jOqR+ajtj3ut3cULa9+K7Jmn2v6RFxZfVlY2JbJn/mr7+8bfXyrVTI/smdfa
/uT9DriipmJ2ZM/6wvZlA96/pb52fmRPe021f/vJ4d6XzOaN2mfM5o3aN8z6
tfYBs3mj9vXg1Jvr3f4ZOPVmbr8NnHoztz8HTr2Z288Dp97M7f/J6iPUm7n9
P4wjrl/GEXPGEXPGEXPGEXPGEXPGEXPGEXPGEXPGEXPGEXPGEXPGEXPGEXPG
EXPavfsL7d6cdm9Ouzen3af6o88PZPMQnQfI5hva38/mFdqvh3v/nfefdWB8
8TiDnf2rrHudDutec9a95qx7zVn3mrPuNWd9G9VXWN9G9RXWt1F9hfWtOevb
VD3aPwa3vwtu/xXc/ii4/UvUk/eh+O16fLN1+bzaqiVR/hlnrSfjqTnjpjnj
oznjoDnjnTn9IVqPhP4QrTtCf4jWF6E/mNMfUvV46cmDty4rWxjpf/9TP55V
U7Eo4vajzlp06PeNjbHO+Gftx8vev+HvbG+/bpafOY8NrCh9FuV/+F0fv1ZV
H3PqH87fO5/8vTn2xefmfnLvF2BXfO76yha1086bOu7TyH8It/8Qbv8hfJr8
h3D7D7uE55WaHvB0efNcn1HheeZ7h+eZfxSeZ35feJ75yaF9mJPPS+XP5HfR
/qf+G/wq5s2CX8W8b/CrmNcFv4r5vwS/ijn5tH8Vbv8q3P5VuP2r8Lbyr066
sHzU/J/4Vl9e8eCA/fL+1fSSJ97uPfan5y6b/of+Y/Nx491g3+vx515sWJi/
pyiP4yB47jL5G/nNv8MZ380Z380Z380Z380Z383x6xV57m80x69njl/PHL+e
OX49c37b3wi3vxFufyPc/ka4/Y1w+xupX8dfwB1/AXf8BdzxF3DHXxzbfPK7
Y37iN+/8y5u7HvhKxMevvWirYXcPj/iXy8966duzXo/4q50mrz/l9bcjPn23
Z1df3+/NiPec1GWb/qe/F/GDDiqrmLf4g4hfurjfb87o9n7E1zz85LH79JoW
8XNvf/LA0eV1EV994bIXq9vlcVLHBf7SId3Hzu8wK7JvsvLoUzYMinUbNfGO
98fOj+27Ddm6bt9F+blxdOTf4ee27zpm2R9fjTj6mqOj+TPXr9t+s3nvRBx9
zdHRvFm7/U8c/MOHEUdfc3Q0P3W7vx390IC6yuPE0dccHZ3Optefdd6ifedG
HH3N+b39hc12+Lq+V8Q3vee1/n/+xdB83rX/XkvKu8+P8nPuh0t+2f6n8beY
/vrKZ8ZsdmGLxnWyz98v9ivy2+PP3jVvfNdhw6Jk/j/+3bxL27Wsj9on+bV9
i82fW3NNdX4upf8FP5c/0jOU37xl+PtUfs4LelBe8oMe8I/bfD+4x8BlkT4t
V0xtPmjB8kjP+x5/9OUxzVdG9svP7Hrswu6rI/uTNz38g7Lahogzvnn/NxsH
1vTcobG0LLL3+Svy8ZenK4c0H7Q8svf5K9Lf8bzt92+/8IvI3uevsL9mq0Wj
u7dYHdn7/BX5mfzmCycO7NEQ2bfWOSvsW/a6adroMeui59LuqF/W0WsrHj1/
943qnd8+d/T03EG/W9h9aVRf6Ot6+a5fl0VltZ9HHH2dTsfj23Rr0bgi4ujr
dGq/avym1H5VxNHXfPvnP7mrx8A1EUdfP7fn75/ccdCCtXF7Dvqak+6/njLv
/IE94nZF/7D9om9HLh09Jm5X9BvzY1+6vnpB2aooffqT+WNdTv5hQ2lNlA79
zPbf/KrpvzcftDayp//Bu9/aapsO7ZdEejLvPenjwyeseerFiE+5e6vmZ9w/
MeInXHDSBZ++PDXiC5tOmDS2W+63ZJ78yC2XLC7/cXZkf+7yb//eoX/uh3zs
4WuXTh3wZfbvtHPSeXeHq/dt2vzziP960hF/PaJ7vi7g72/ru8Uxl4xeGfHP
Ws2ecseG1VE6Ry8Zdv6IdvG6gHzBWTf5fcG6yZx1kznrJnPWTeZtwjhifk/X
bh80LFwW6bZ096Mu3Knliqwe4MdP3/Lzw6pXRvbP3j2nZ8exqyP+45Ejfryt
fG2UDnY833ryfNvzfHOe73R4Pnz02zN2vL18eZSfr66eftWIdsuj/De5YeiT
wzp8EfGz93r666kDYt7zgOoDpgxaFaX/cl3Vnevmx3zG4mPHNCxcE6Wz/b3H
7NC0eUNkf9Cg7U7eqeW6yP6a32475IjuMefvKbd1o9zmlNuccjt9ym1Ouc2n
h3KbU24/l3KbU26ns+PjHa+49+N+0bgx8rw7X3nwhcEZX/xe21bP/3sv6by+
crfw9+b8/STx8YsaqlqOrq+8Z9z1fQdstN4/IMy77hW/ZG3vPw3rkB6vLvjF
pnd3HLs04oNGly+8Y8PSSAfSg/P3bj/8vfmDYR4w+qoJhfGB3785/OvCfjR/
f8g3n50z+53R0bi9/tLbuu91/uuR/s2OnNNkq6/GRPYDTn9h4Q+bT4rs15Xd
dPU+Z70X2d+1dsQxg/eaHPGt9lqxQ/8DPo5417rXhrzae1rEfxj/WfVvTvok
eu7bfQY8M2C/mRH/csbfv9j39FkRP2rKA2cvenVmlP4tnx30xvxxcyP+56Mf
Lu++eF6UztetD7ym5ak5vzL4C+xv6VM6vfKeY56P2iF+QtuPfH/3e7p+MT5q
z/sG/4LtTxvd/ptTHp0SpY9f0fZXvPv2zt0XT4/Sx99o+1+3uuzg0T1nR/b4
IW0/76Ef2m3YZEFkT/7QwzpTbttTPttTDnPya06+4G1Cf3A+affWk3Zve9q3
Oe3bnHZsPjG0Yz+X9mp+c2ivTod2aXvGtT0L64712W+Pe6eE+aLTnxzmi+bH
hvmiOfNF54f5ou2ZL9qeeaHHQ+aF5swLPW5/GuaF5swLnc7+rz5x7JRBS5Lj
/2GlD2fte/rCqN3+9bEpd1fPy/kfOz3+8Lr5cTrM8/cauPXU7i2WRunwd9j/
5+HP3rmgbEm03uE3/w6fMf6MX0//KZ077l/Qtk11vq48sTTh+of2+bRy7NlN
L2260XqTch1RfshZl4zOOflBD3jfVu//Yfuf/n7Shpb/9qd98nKdcs+9rQ7/
6XkX/+25Jgs2Ki/pWmfsZ7X8yzdNNipXn5D+s3d0f+vo6pzvdV7jgf+d7wML
+cnX40t1vxProo7BzwfH3vc7YY8/z/a+9wn73YPfzva+Dwp7/HO29z1R2G8e
/HDwG4K/2P4iyuN9oleCX9j2lMf2Bwb/b+TPDOWxPX5e21Me2+8Y/Lm2Z//C
9vhD3jt9l7Ebx5dNDX46pzMgzJeKfpW8nfieK/5+YpgnwmlPzg/74+YTwt87
P9j53ifO/6X8P44vhjuOGO77ZOC+Hwbu+17gG3R/C3ys7mNh39/5Z9/fnH1/
86Fh39+8Y9j3N2ff3xy/j/0hnAdwe1gY/D62Lw/nBGz/2+D3sX3ncH7A9oOC
38fjNucKbP9V8PvYnvMGtqd9mPP3TwV/oduP43Gw/z74C23veFjsLwn+Qts7
Hha98Bfa3vGwpN80+Att73hY7HsFf6HtHfdKf3Q8Kfa+xwnue5mycUn3LMGH
6t4keEfdgwR3nCz92e2c/mxOfzanP5vTn83Zf/U+Pu3A7Y19WdvTDmzPfq3t
aQe2Zx/X9rQD2zPO2p52kHovON4NO8eHYu/7RbEvV9wo9r5HFPvOiifF3veF
Yu84U+x9Lyj2jj/dO8w7PY5RfuvDvK3PAycddX/rVyJ+yKMLz5r3Zh6nxrzx
+at3uavbkg8i+4F77t9pwyZ1ET/znveua/dwft7munAOY3LCP/nUzk+tPaz6
84j/OKX7TR3Hxv7JTrf+dsvby1dF/PU22zw0rEPs72qyYt7eUwbl/knGTevz
ly6HNU4dEPtpt9lls/vXzY/9mV0/rNu1afOVEX//9mdGHNF9dcSbH9qz7SWj
Y38jz+P5zj/PN+f55jzfnOfDF7w55JRLRsfrsk96bH7olEFxeY/qdU3dHRtW
RPoc2HzWxIaFsZ/24RZHXzai3aqI95v77Bk7tYz1+c/5WzVMHbAm4iv69Vpw
WHWs25kPzu27bn687jvx+OO7dhyb9tNSbnPK7Xqh3OaU23xwKLfTp9zmX4dy
m1Nup/+7UG5zyu10+r7/s//1Z5r36/K+O2331S5DM85vr9/vXHnchDs2pPW8
ZatPxh7RPfaXVr9++HPDOiyLOOnB+XunTz/1fgrp2p75dNG/uj777fgduON3
SPfSaUd+O/7yV6N0HKeDDhVHzf1rr9nvRPaOx8nGvW2aLNv0uw8je8fdZONA
j5bbnta/LrJ3fA32U+a8W/HQPnMj+7GKo/ng++/7XXzT8Kje64b2bnX2PW9G
fp6lz1w39fWu70f8xXEX3tby1Ng/efW+Xz9SPW9WxFv0q3llbLf5EaeeUn5y
x63AHbcCb6O4FbjjVuCOW4GfprgV9EI/6+y4FcqJrrZ33Eq2Txf0tv1kxa1g
Tz3Y/inFrWBP/di+o+JWsKfebO+4lYtC/3G7Yt/C9U6/cv/dN/Qr27Nv4fTp
b07n8dDfbM++hdOnHzqdrUM/tD37Fk6f/ul03gv90/bsWzh9+q3Tod27v9Du
zWn35rR7c9p9qj86bgVerrgVeGfFrcAdtwJPxa1Yh+khzsH7GjMC9/ooGwcU
z9IrzI+t/0Fhfmz+XJgfux77h/mx7U8L8+No3yGcbzYnTsDz1aFh3uz5D/Nm
vx8vDvNm29eGebPtm4Z5s+3RzXEucMe5wB3nAj9QcS5wx7lQr9MVzwJPxb+4
PfzupT9eO6Jd7M9nvHa7Ylw2Z/w1Z5w1Zzw1Z9w0p1+539GvzOlX5vQrc/qV
Oe3sWt3rhY7X6h4hdLyr8vLjFr1aH/Guw9ruPrrnoqh+T1G8zPGdp3XeqWU8
D6T9ex5IPh1Hk52DCulhzzlS+xNIx/E1PM/3kp33eNMFb/13Oxw3uv8uG40n
PHenLa5qdnv5kkg333eXzedDe3S5Zij+/forB8zd+ife5OKT22+sD/mzPuTD
emLv8aRPSL/PzEWdmv4v+kT3/oV9nDML+V+f3YPjuB76kePu4bYfHOJ1bQ+3
fXUYX2wPt33TEGdqe7jtx4T3r+3htu8U4sdsXxfiuxynMDz0d/Mbwr0hvpcP
bvv2wT9le7jtm4X7LGwPt31DmCfYHm778eGeC9vDbU/7cfwX7cSc9mBOvZtT
v+bUozn15fgR6sucejFHf3N0NkdPc3QzRzfHx6GbObqZo5s5upmjmzm6Ob4G
3czRzRzdzNHNHN3M0c0c3Xz/GLqZo5s5upmjmzm6maOb44/QzRzdzNHNHN3M
0c0c3czRzfGV6GaObuboZo5u5uhmjm6Oz0I3c3QzRzdzdDNHN3N0M0c3xwuj
mzm6maObObqZo5s5ujkuEt3M0c2ccvlePsplTrnMyY/jUMiPOfkxpx7NqUdz
6tGcejSnvI6HpbzmlNecejSnHs2pR3N0czwOupmjmzm6maObObqZo5s5ujle
GN3M0c0c3czRzRzdzNHNcUnoZo5u5uhmjm7m6GaObubo5nhqdDNHN3N0M0c3
c3QzRzfHZ6GbObqZo5s5upmjmzm6maOb483RzRzdzNHNHN3M0c0c3Rynhm7m
6GaObuboZo5u5uhmjm6+7xTdzNHNHN3M0c0c3czRzfeio5s5upmjmzm6maOb
ObqZo5vvyUE3c3QzRzdzdDNHH8cboo85+pijjzn6mKOPOTr4Xlx06Kj9EXR4
QveAocNC3c+ADkfr/kPaz+va10OfskJ+8nnOyTovhD53FfKTzw8n6Zwq+mxT
yM9G80Od90OX23Q/MPp4Pwh9jtG9Z+izSP5Y9LlV9w2iQ5/Cc3Md2ut8FDq0
Ljw312GGzt+iQ6/Cc3Mdmuh8I/3otcJ9ibk+vicZXXxvG/oM1j1v6PNH+aXR
53Ddo4g+Xxaem+szUefE0GdA4bm5Pp113hh9Wheem+tTpnOe6DOjcA9krs8Y
3ReNPr6nDl3u1b126FMt/zz6vKT7IdHntcJzc32G6Lwc+txdeG6uT3edr0af
UYXn5vr01XlX9CkV7rfM9emte7PRx/fyoc9JuscPXbxPgT5Nde8l+vQsPDfX
5yKdG0Sf4wvPzfX5jc6To8+Ohefm+vxD537R57PCvZ25Pv+i+8PRx/u56NPY
v3hvIfp8of0adJmm+zzRp1Xhubk+O+v8JPr8UHhunn/fl0X6dQWev+9e1z1U
pNNG96Kjwwjtb6KD73nmea0L6eTv3+E6f0h+di2kk79/79c5Ruq9rHCPbv7+
vU7ngan3lYX7ePPy9td975R3U+3bUt4+ur+aevc9P9S772FGnwcLz8312UTn
LdHnhsJzc31W69wm+lxaeG6uT53OP6PPqYV7pHN91uree/S5XPvX6DNb93ij
j+87Qh/fO40+DYXn5vr4fCm6zCo8N9envc6pos+bhefm+rTWeW/0GV64NzvX
5zTd/48+E7SPjz6H6D5z9PG9T+jje7bRp0Phubk+43WeFn3aFp6b6zNS53LR
p1nhubk+D+p8O/psUrgnPNfneX0HAX321HmGbP6ve93Rx/dfoY/vFUefUYXn
5vrsofPD2byl8Nxcn810Dhld+haem+vToPP86NO5cC96ro+/B4E+PqeHPr4n
HH266B6wbD2ue9TRZ7PCc3N9+ipOB33WFp6b63O54oDQZ3bhubk+HRS/gA6T
dK87+4Y3JPivtJ4i/9vM0HcJA0/tu7UspJ/zvbU+4rl3ap1C+m01n8f+O83b
sd9R81vsx2kei/19mu9hf73mddn7de/i/Af7NprnYP+m4qEy/5XOP2TjbWE+
s9H8v3AvaD5/+1xxavCGBB+qeBb4KHHa20fKD3yzAcX5Evw+5RM+8R9XDq4o
bfQdk9BuX5M+8D00T6P9DCnc657zQzXfo/37nlXGAX+vinHgAd2/Cvd9p4wP
w3QuCD4iwX3/WIozzvRTfjK/fUHPnA9TPjN73cuKH6O3dGAcc9wT7baZzrHQ
PkcWnpuPYwfrXAe8rTjt5FmlAx+veXU27ul8Du1hjubntIc1+n4E7aGPzv1S
7/6uBPXleylTHP2dDtzzfMYTtwfqy+eT4T4nSTrOTzYP1LyddHzOGe57wrP5
kua32Ps+f7jvFc/mFZoHYu9z1HCf5ySdLTRfwt7nruE+/0k6VybmFf6uCun4
/Db8Zs034Cn/6juF9PP2PD7Bt9J8A57yl6bOCy2XvxHu+He449wzv4T8Ldl6
XH4GuOOsGR+8/8s4YM44YJ6tv8Tpp94Xpj+aU1/m9K8U97oV7vUa3OsUuOfn
cN9Pm/kB/F3UMD6bo7M5Opujs3m2jhOnvXkcY7w1Z7z9/30/psZJc3Tzvjbc
+7Zw70vCve8GT+0rjZWfPxs/5feGPyl/b3b+RH7O7HyF/Hu0h2k655ntA/r7
8qGdjNU8jXr0ve7UV4qn/Gaz5IeH95U/Pxt/5JeGHyL/Nvxi+WnhL8jfm40/
8lvCm8j/mc2LNP/MzlNpnozOvRLz/I6FeWneHzskxr0usoev0P359FM/N9vX
TnC3B7jbD/39IuUHXqP5P7w20a766fsCcM+3aVe2Z3zw/faMD/5+AXym2ifj
xi46jw3fLcFLOncNbyfO+HCI/MDw3RLzwHb6Dh38cvk/4QPld4Xbvwofoe/W
wSfIfwj/Un5LuP2T8E31nTv4nvK/wc+Q3y/TTf69TAd9Fw9+s/xX8BfkN8t0
k38s00HzPfh8+X/gnQr9Ip9ftWgs+kPg+2o/F76J1tfwzup32XtB/Q4+Xv0u
qy+1f/gbGs/h7ndZ+1E/hW8p/xt8rfxs8FVal2XtR+smeOo8vM9Xw31+GO7z
sXCf/8zGJa3rs/ej1uPMc2yf+RMS/oGU/RuJ9b7tGX/MKVcUxxTeU46/gP8q
sd63Pe+v6Hvuwd7fc8n2qWWf7ReI8x4xp53bD5n1a62z4Klzrav0nSD0nK24
MPgM8WyfLuHfeFA6UF7rDLe/BR36KR24/TDkx/rD7W+h3h2vlK2XFZ8OP0fn
SdDZcXzw8fp+Zeav0HkS0t9Cce7wD3ROg3QcJwifo+9dwo/TOQ3Sv03x8lmc
js4/kI7jEOFn6vuY8FqdfyD97xV3D/+9zhWQjr/nBV+m72nCd9G5AtLn/+a7
ab+edBxHCX9a39+Ez9R+fbY/ov3l7Hy4/Htw+/0YZzbT/jX2vrcH7n1t+oW/
D8s47O+dMW6bZ/NMcZ7r9Mm/OeNq9B3qMJ5E3wcP44Y540Pqueu0joB7fZGd
C03kx+nw3BR3+rST6Ptu7OPoPcj71zpTX04nxWnnTidrt4l6n5Wo9zVKH556
rjl6+vto1G/0PbXE9+xoz9YZ7nohn6cdt376nRvfZ5iIFyafRfv8/WX7bH9f
6aOn70tEf9+XSDqOZ6d+U/l3XCrt3PlHB8fdU1+Op4b7HgD6S/Q9taCb49/R
zfmkvzif1KM55XL65MfxvKTveF70973o6Gz9qUfHxZNPp8883ud4mc+ZM783
Z35vzvzenPm9OfNCc/yG22n/Gr+hOX5Dc/yG5vgNzdHH53XRxxx9zNHHHH3M
0cccHXzPITqYo4M5OpijgznzeHP08blc9DFHH3P0MUcfc/QxR5/B8t+ijzn6
mKOPOfqYo485+vj8LfqYo485+pijjzn6mNO/zNlHqdb+EXqao6c5epqjpzl6
mqOnOXr6XC56mqOnOXqao6c5epqjpzl6NpUfGz3N0dMcPc3R0xw9zdHTHD29
7kBPc/Q0R09z9DRHT3P0NEfPIs/1NEdPc/Q0R09z9DRHT3P0tB8S3czRzRzd
zNHNHN3M0a3Ic93M0c0c3czRzRzdzNHNnPZWJ78oeg7X+QrszdHZHJ3N0dkc
nc3R0+e90c0c3czRzRzdzNHNHH1u0P4C+pijjzn6mKOPOfqYo4/PddPezNHN
HN3M0c0c3czRzRzd2us8ALqZo5s5upmjmzm6mdN/zdHT573R0xw9zdHTHD3N
0dMcPc3Rs5n2ldDTHD3N0dMcPc3R0xw9zdHT58DR0xw9zdHTHD3N0dMcPc3R
s0HnptDTHD3N0dMcPc3R0xw9zdHT58PR0xw9zdHTHD3N0dMcPc3Rc7z2E9HN
HN3M0c0c3czRzRzdfK4M3czRzRzdzNHNHN3M0c381nAu3Otx4jbNiVc0vzac
5zY/OJwbNud8gNfjxHGZE+9kTpyPOfEt5sR1mBPPYE6cqtfpxGeaE5doTjye
OedKve7mPKg58UvmxO2YE69iTpyGOfGlXncTV2lOPKF53/A+9np5TjjHYH5o
OH9gXhPODZgTT2JOnKfXv5wL9HqTc4HmnAs0J17FnHgnr7+I84nWd+F8gzlx
3Z4nE89sThyvOfGr5sRtmhP36LhL4v3MiXMzJ77LnLgmc+J5zCeEfuf5OfHJ
5sTlmhOPak68oufbxOmZE59mTlxWtC4I/cv8rtC/PK+uDP3LnLhZc+IGPe8l
Xs6cODFzzouY7xf6keerxN15fki8mTlxVubEoXleRPyVOfFXfu8Tf+X3C3Ep
5sQneJzn3Lk5701z4ls8nhPn4HGVuBePk5zD8zhGPIM58TAe30YkOOckPF6l
OPu4/1dO/Iz9Y8TPmBM/E/nNwrkoc3QwJ67DnPgN+20or/0SxGPYnjgKc+Ii
zIl/MCf+wZx4BnPiGcyJJ7T/h/WCOec/zDmfYU78njlxeubE45kT9xK9F8I5
S3PiMcyJh/S4TbyiOXGJ5szP/b57g3Ncsuf8rjnjgPNJ+rbnXJHHf+IPPZ4T
f2jOeSOPz8QlenxuSHDiEs1HJThxZR632yY4cYxejxPHaE4cozlxjOaco/J7
gbg1c+IbvZ7lXIvfI8TTeh1H/zInHtKceCGvs1gP+j0C9/sC7vGfcdjjGPEw
5sx7zZn3mjPvNScexpy4JvcvzqWZc24smq+G90o0Xw3zEHPORZlz/tKcfur+
xXvB9QJ3vcBdL//sPev3FDy1v+D848cwx49hjh/DHD9GSjePY3DrNjwxbsDd
f+Huj3D3I+JeXC9w60/8j8tF/I/5U+HvI33C/DxqP2F+bk78hnWbm+DE/1hP
zpu6vMwPzbG3DpxDdXsj7sLtbbcEJ+7CvF2CE3fh8YH4CnPiK6L9o7DeNCe+
wpz4CnPiK8yJrzAnvsKc+Apz4ijMiaMwJ17CnHiJSIewXovKFfqJOfES0fw2
zAPdbokHi8btMD80Jx7MnHiwaLwK526jcTuclzXfKbTXaBwL8wrzXol52uWh
/B5/OJ9nTjoel25McPq1+bQEJ17L4xvxWubEdbgeWaebE/difYh7MWfciPpR
GGfMiVcxJ54k6i9hvWZOvI3zQ31F43DQzZx4m9T7y+t9uNfp8Gg9nlhHw72e
JZ7BHHufcyDOwXxGgrNf4HUH+wXm7BeYs19gzn6BOfOTFPe6Bu51SuvEegHu
eTvxG+bYe95OXId5swQnHc/P6RfmrL/MiUdyeyOOKNWuUuc3rPOvEutH3u/W
mfPTfi7c7Rnudsv5b+cT+8hvENqr+xfzbfMZYTx3PrE3515C539VgnNfoctV
Hsaf6BxXKI858Rjuj9znYt4nwYm7cD2yjnO9zwn+KNszDpiz7nM61Fe075YY
Z+AeV2cm3mtwv79mJua9cM974V5HwP2+5jy901mR4HMT6a9LzAfgLteKBJ+V
6F9rEu+F1f+Eu15WJ/IJd73A3Y/+GXd9/TN7l3dt4B4fvkjw1QnOOOz2jP/H
nHpxu12X4MQJeJ0O93uKc/9eZxE/4P6IfbTPEuwjP3Cw93wJ7nUc3O9H0vf7
Dnu/v4gTcHvG3utN4hDcHuDud6Tv8Sf7npr6I+m4nZOO+wvxIe4vcPcLuNs5
3O05+1652if6uB1i7/Z2UbiX3O/BIcFfYT25H9yc/Q63wwXB/+b8Lwz+N3Pu
0TbnPeJ+cURYR1h/7iU35z5uc+6hNueeWbdz7lc1HxvuYXe97xn2BcyJazUn
7tScuFDzH278uR27ftuF+nW76kB8uvcjgv/E48a9oT24Hx0a2oN5TWgH5tyP
7PGHe4rN3w/tJ3r/hvZj3iW0H/NrQrsx5x5kj6vc/2u+fWhvHgd6h/Zm3ia0
N/ORob2Z78C9cOLcy+xxlfuIzbmH1/yB0D49/nBvvnl5aJ/mfUL7NP97aJ/m
xNl6/Ofe5GgdFO6PM+eeXHPu9/f7gnvtzTsEv5A595ibc8+131Pc72zOvcbm
3Odrzj220fou9EO/lzl/Zc69e+bco2e+a3j/+T3Cfazm3LtqTny7OfHn5sSH
m3MPoN9f3Otnzj195veG9unxrTG0T/NXgy5ut3sEfdweuIfUnHsnXY/ch+X3
46WJuCfK4/cL9wR5PrZX6OeRHzvoY849VpG/NNh53O6QOB+OfbTuCOlG/vZE
/NceoVyuR+YlnqehoznpmqNjdF401Hvklwvtw/NMdDFHF3PGX3PamTnl8nyM
cplTrsh/mDi3Sf7Nyb85+Tcn/+a0A3Py73kj+Te/IXE+k3yak09z8mlOPs3J
j9tn+8T5TJ5rznPNeW4qHfd30onmnyEd8+rEPnXTxP4F5XK/Iz/RuUq+dyCe
3WukcTW710g8u79IPLuvUvPP7L5K8ey+SvuduK/S5yS5r1KcfHrcI5/m5Mfz
VfJjTn7MyY85z/V4S/qel5K+Oemn7KPzKsE+xT3vYvzy+AN3v8bOHHv3O+zN
+XtzdHT/In2v70jfnPTNSdec57o/ort59n0lrePIjzn5MSc/5jzPfHhiPkn+
zcm/Oe3DfLvEfDL7LpI45TKnXOaUy5x8mN+Q2Jcnn+7X5NN8cGI9i57uv6Tv
/kv65qRvXp1Yt2bfU1O/Jh/m5MfrSvJjnn2HSJz8mDdNrFuze+M1npBPc/Jt
Tv49Pyf/5uTfPPuukDj5Nx+TWBdQLo+HlMs8+y6D9wFDOVPjqufVlNec8ppT
XvPsO0GJ+8zN6xLrmuz7OOLoYI4O5tk9/+LoYk5/9rwdO8+r6xLrL/JvTvrR
Pnuw9/sFnpq/eZwkn6nx0/OiMxP+uk6J8wnZPZAJe/PsfmPNi7LvDmjcw97j
HvYer3iuOel4vCIdjyfYe3zIvmtg/1LgqfdXdE41/L05+ltnfru9dUqsi7H3
+oi/d/q0y9Rz/69+A+rV5UJ3c/Jtjo7OT6eE3wDueoR7XK1L+A3Ij9cd5CeK
c+TeRXHsPf/E3hx7jwNwzwNJJ8VT8zGXCx3N/wvAbpHE
    "], {{
      {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
        GrayLevel[1], 3], 
       StyleBox[GraphicsGroup3DBox[
         TagBox[{Polygon3DBox[CompressedData["
1:eJw1nAUYFcXXxu/GvRsmKtJid3f/bexW0gRBxUIlFAQFEwuxAUEQMegQFEQs
QBAEsQMQDAQxsAv93p/vfM9z5znvPTs7O7s7c+acM+fsFhdeefoVcaVS6Vqr
VBLRuVmlsqHob9VKZce8Uuks/LToTipdhJ8RHaYTOqlMjCqVdVQylUt07FfR
X1TWCu+geteKPiX6s3g/qfyt/+NEC5V/hTfXtU7gmK79sNrrrDKUYzpnqI5f
kLtfTwkvUX+6CI8QXiz8s47dIny0aAvx+wi/KP62ZaXyrPAl4v+ottao/KX/
d4ieqPKz6h6lchl9U/3ThLsLPyd8qvD1wpOEzxC+QXiK8OnCPYQnC++Su85I
0V/EXyM8QvQe3cuR6n9f0StVmgpfLNpf1zyF56J694qezP0Kb6DjI4VrKm1U
70/xJqidVsJ/CI8XbqwX8rjqTaEN/b9O/Inqw/a6x3HCV6oPj+p4F5XhqrOZ
6uwq/rWqs6nwNsKXCa+rNrfX8U/FW1elgfjnib++cCPhtsINhLenTeH1hBvy
/IUbCu8gfJVwfeHthK8Q/p/a3EZtfizeQF2/ncoIrpH5ureqb6WO1RNurfrr
CNcXPke4nvC2wpcLJ0WlMpY2Vb+O+E2F24u/v9rbT2Ur/f9Tx+4XPUP0HNW5
Q/hV1WkjfLvwK8LnCvcVfk34POE7hV8XvlT4EeGFwuPU3s4qH6mfHcV/VPy3
xX9KfRgs3lmiG4u/hfgXi7+R8ObCHYRv1PHjVL7iGqJjVP4RflbnXMO9i17C
OBZvgeq/nfnee6jPR4t/OfNI/GOEr2AeUUfHPhZuqHM3VP1r1eYGoseLnqvy
tY4dy/hQ+UK4qmPLRb9TG0eL1zny+VuonfNEj1A7+6nUUb23NEbWF+2kOuuJ
bqzSTfiBmsfDFcxd0Vk6912dW1/nHRGZz/83xf9AtIH4R4l3deT/l+leu0fu
x3Wx+0Yfrxc+Jzwj3iXvdE/1oQVjUbjQte4TPrni/t0sfFjF99tVeM+K+/mO
zp+scpjK5mrnXPEPVR8W6f8klUNVuuparUSPUdlSdc5XnV11re6xnxvPr4nO
uUj8QTreTfzW4jVTacoYEv9AHW+k//9Tma7/zfRcruR9MrZ1rEfk6x5QuD7n
PUmb4u8uep7aPEOlvf5fK9pBdBOV84XPDP8vED0LOcD7FD099vmdA69e5LFD
G3VU5us681R0qcp94l+t8oj4B/IOuW/xT6xZJo9VP0+oWcaOES5U9wXVebPi
d3BOGKuP1jx2vhc9R3VOY67q2C66h7aiQ3Sxy0TfVp16hZ/pdeH9HlQY86wO
LvwueCe3xn4HjIPDmUvh/OGF295VtMzM570j8y4Mcu8g9aOd6FD1+Xzxvq9Y
JmeZZSkyFXnZNsjMnQufO5g1SPgC4ceE/+WedbyV6N8qOq1yluifKqnwaaLb
Fe7fpqJTRZ8Kz6eP/r/PmiWaS8YO173M4D2q3ed0/H01doGOLRV+D3mv/1OZ
d2rzZvoq3Fz4eZ3zpMobyAvxnxT9pOpx2lClAc9S/BfE/7bqulupzKY+Y4sx
U3itZc09sWoZwhr3qXAP4ReFfxA+LvNYXS3e+SqDxF8k/qDC68JjogNUuvHM
1OcdM6/Nr6nucSo3if+C6m+p+91Cpb5Kd/GnMTbEv0D4MeF3hHsJvyz8k/Dl
amuM8HaaXz3FnyH8o/i9hV9jzRe+SfhV3h1yUvgV3qlwW+EhPEPhY4VvFH5e
uIPwcOGPhdsLPyH8kfAN6vP7wveIt6HKLsJXi7+B8M7CnapeI1jjrhGenVtu
ZIXXvkOEbxJ/pvh36f+X6nNj0YPE7yV+I+EDhXsyRsJacxFrkPBmwu2EX9e5
WwvX1OZrwn117HO183JuOVYVv4l4BwvfqPr7qs8H6zmvEu+3msfsGNFU9SYL
d0YP0v+Jwl+r/hXCo4SX8WyFRwp/JnxZzXrLUuF2wo8zDoU7C08SXil8dGZ9
4eWadSHG6irxrxYeL/yV8IXCg4XfZX7lbmcb9f+qmt/j5+JfKTxaeLnwgWrz
ELX5jXjXqEwQf4X4W5eWM+iAW5WWM+h0X6p05L3o/jbSuTvp3KWs86pzqvgb
6/inKmciT1jfVM4Q3lT0Q5XThevyLFX/FOGNWGdUThPeRPRhtXuS8Ibw1P43
wk+o/TOEv0PGoJeFNeeLsBYiqx4S/Vbls4rXuDNV/wfhJ5l/mt+7qSzVOUeI
/7v448S/X9fag7GKvqb/u/G+dO+R8DrC51Yr/wkWdbXSRviPqnXkU0R/V0Fv
Pkn0LxWqngGP9VX4fOE+YS1iHd9HlfdWqVuxbNxO/E9qHofM/ZNV/xnxFgi/
xTgTv47oqcg24Y2ETxfOhDcWPlN4tNrbSeUDnfe5nldr8ZuI1lUnayp76tgy
/W8pfiPmiq57kOquVButVR4Sf77aaSX8IGtP0KnQYd4Sbi58n/AbwscL9xae
Kny2cD/h2cJfqd3n9X+ZHtLXwleLv63oFyqXCt/KWplZ95/MGpRZH5+EHMts
K0wRXqn61whvL7pCpRMyR/RkHbtNeEbVOjD63svCZwnfKzyLsSq8j3B34a2E
9xa+Xngb4X2Fe2AXCO8nfIPwcrXbSrgxa0qQG73Ff1B9/Z9wLP4e4h8lfAe6
CfqWcF/hM4XvEZ4p/JLqbSD8pu7j0qrlBjrVU+hFKq/qWd+pNhejE4nurnOP
VJ3bVXeM/u+CvSC6g45/WLE+tJn+t694jdtc+OKK1+g9Sr877J0NI2N04qro
fpHrpaL7qnRAXqjswborunXmOl8iy1jbxBsmWrewDTVBbZ4a7DnWpB1K2wvI
1UUVj1Vk3/Kada3Ha7b59o9s9+2m+tvpGp+KrqiZd5T+v1dxOzwX1nvW/ReQ
91Xf4zThlioP8AzFux6Zovq/5daJTg960Zbirx/0rh9y60L0+WHRUyMf2zLz
vX+h9rYqfN4vqvO36F8qG6gMq1onnKo6H9U8f/uIfhjWsg9q1j23VNlC5ST9
v1X8l3TeG8I3C08X3gK9Ieg56GvYQehs8yLbQFur9FTjlwf9uJ3q7Uwd0ZaR
dXf09l1qloH91eY7auAT4UWiD2TWb1PRBmqjvsqnOrYr87xiXf/AmvWxx7Fx
gh6GDna5rvER81ft1NN5SyL/x8bgmgtz63W7oJuJDsys0z8oOj+yDNpW5dHC
514pupfe6+E6/pnospqvPwhZG/rwiGiSe/zS/18yr8vzcq+XjJ3uwptkvi59
3rfwc2gkuqxiPnr2koqfVRvRA2rmDVH9Un2cFlknW5V7jD0u+krNY/8r0W9y
j8tnsSVz2xrvip4d2bZBv31bdGEY59/q2FWqMyL3fXK/nQqvcdjjgwvLMezx
gcJdVf5QnenYiYXH/+mir+i5/E/X/55xyvMS/zzRl8U/VPzvhN8oPYZ+Unsv
CQ9hDArPEB4q/InwVOG6wotVf3bp8fdzYbsDW+AZ0Zm8C/F/EH5T+E3hP5AJ
+r8PY7bwfXK/6PX3l5ZZv4rXv7Q8/UX4vtIy/SfhG4X3RgYL9xLeS/hr4X6l
dccfhTdQ2VvtnSB6b2l9bo3wncJPCTcRfVclr/l5//esK8Y3iL+r+F+Jd7fw
WHQv0btURqJ7id5TenwcglKvc0psgIr15LeEhxYeK4yZ/UXfrVk3fkd0rnjP
qTRV6a1jqZ7VjaKxyjM0h1wR700d31ylSWTbD7uvjvhzwrmtVO9Mxr/o1oXt
ub/0bL/LbXsxrmbW7AcbV/V7QN8ej90ReWysG/md9Bd/btW2BHraN8J3FPY/
PCd6g/gvib+malvxjMjXu6XwfL8LG6rwnD9cdD2VPZkjouuylgg3E11HZTfh
owr3m/63xg5Q+8+r/dWsg4Xbb1nY7qQOtudFqjNMdT5Une46Vle8tbrH5qE+
53Wq2df0JXaB/kfq2w2io1QeER7NcxL9UPUvFX5V5zdW/ZtE941tZy2s2DbF
BsP+SmLbSFMq9l3x7hpHtu3hYzdh/08Ocnj/muXBYPRb1a+FczqKvhxZ51tP
+JWA0fFeiiyzkBsvCi8Wf91g581knY5dB/ykcNvQFrKadtoGWcGaiKzPYvfn
9Yrvg/uZW7H/8vbIduzxhde4xqInFl5r8EPgd7wzsn17pdq5ObJOeJXwrcKr
KrZNp4Y2G2deo1mr/849LhiP+Ny47qGZbUnsT/0q+2X2l/5dsz0yRMx9RB9S
6Sk8QPwhmf0jj4o+krkPDTP7YydE9slix9Iu9im+ioHCp0X2c+AfYz1+orCv
kTG2tmY/zwFqZ1hh3y1j7K+adZM9MveJvtGf04I/gzX7j5rn1A6ZZQY6AjrU
JjWvHfiENq95TcFXlGR+t+j4O9cs2/En/VmzDrOLjr8buf88k8MKr1P4xm6r
2Vdwq+h7YY1bPzzzp8OYZM1m7Z5T8fwYFuYI9hGYe8TvNza8r9tj+5V4vucW
llXb6FoH16z3Dq96Dg0J8/oi1X02sj0zSHh55P/bhv6g8x+SWYdvJ9qmCLqb
2nysZl/OD+iPhXUw/F59Y/vgbtL5s0QvVVkt3C/zOD9S9KKwTrFe7SMZe1Ts
tWyz3HOKcY4O/29YB18N94hvk7ULfX4kum7NeiU6JOtAHHmsr6/2XueZR15/
ksjjnvUQfX5U1ethJcjzF2vW/dDT8EGhl25UeD3ENnxI9TeObFMzbi6PvJbh
k+yoeu8wHkQPCDKH/6/kfn7InNvVznrCF6qdFpF9l/gtdyktJ5GX83Pr2+gn
+Dc5Pjf38S8rfr6sw3uJdqvaN8r1txe9rLCP4g1sWPSyyP+3UP3DRW/BhyD+
JSqrdOy4ILeR30Niz3me75n6/1jk9WWvzPOFecMcGxRZf91V/Ecjj+1TCz//
poXnD/MIvXd0zT4HfA/Yd5zLvFuTB71Y9Y8pLE+2QmfOPF4Gq/4zNfvkfmU+
FX4v2B+7ZZ5TzK1fc/cFnXp78R+MrOvvlHn+Mo9X55aRW4R1aUXF10OvwfZ/
GL9QbNmHf5bnsbLi8f1i7LmxTLyjw/msbzsEPQp9aonaP0t1FzM+8Z2qfK1j
m0b2XSCDeol3RfBBNw3PCp/hjkFvQX8Zrj53UJ37MvsVsRfqiL6ED1blC/3v
rXGyL7pkuF98kb/rfyMd/zyyT+GVcP0VoYB/FH9mmH/fcH+R3//PFduZ2Jvo
PI2CPY7O81oYI9RtKH6LivWoJsGWRx6gW6BjzK5ZpiBbXhceT7/CvMMXg09m
aO5r04df0b2CDwRfCPsVv4V5jT2DXTO35rUfHWBhzesf6yhylrWR9ZL1kTWZ
NRufJusu6y/6EvtQ79EX0baZ9aljM9ty2HTza94X2ji2XMXngu8FucTeF3tg
v1W83nJdjs0W3lB4lvCsUOf/fV7QZjr3bPFOUBlS2Hebh352KezDfxK9Hn9R
5H20pTq+OPY7XM79qTTGNop9rFF4/59wj4xHndtE9P4wXpaEOl8yBmIfe0tl
Qbg39KD5sdfFIvGYZjyvI/yy8FeRrzeDNoTLxGOO8Ua708PYahfapc3OhfeJ
huteloV+08anKh//fz8jr9Os0fh0G6qMjtwuvjJ8ZtcW3nt6Av9K4X3PYcK7
opvFthE/Ce02DLwPAv9DlY9i26D4mRbG1vWgbweMD+Pd2LJwkco7KnUD773A
3y201SBcYxrvILI+hV6FvY2fHdvuQvXxJPok3scqJ2f20eHPRd5/FGT+ibEx
vJ3+v1/in5R5zxC/Lfo2fWG9YLzgJ3s/rLfoAfja6mMfii7FXoztq0Gmz8kt
15H36BToFvjuT8zsw7ul5rZok+uylrOmf1vxszsltj15iOihsX2a3XXu7oxT
zY/rQj/p72E6fnjsOX975rqnio6o+n3dLdyv8H7oPerXjfp/qPh9dPy+ws8H
/oE6flBsH1afzPQUZLnKicL9VP8h9MjY/oGe4dnyjPcufS6+0C4qW4p/Cfp2
Zt8GOucpoU38848X9qdiLz+t8wbE9n8MDfbaS4EuiDyX2efA5u5Q2P5Gt87D
u8DvgD52fGa7Hh8S+95vhXObx37fvOPpkXV35jt6Pfo942ZawOj5M8KcY641
wJ4R77Pc84y5wVwblnmOnp7ZJsQ23CzIN+xJ7JGJoZ/0GxnIHiQ2C+OWfcrX
w3viffVTnxfk9rXgg+G+Z4f+zwltNg2y7Y3AhzcnXAsdamaQ5+MDXl2x/oYc
xNeBLAQjM9sX9rG9WnpviHaQvVeF98L7mRrb981/ZBbrFusV4/y5MNY3Trw2
sy7/GHvPEhtxTey9TGzTH2Lvd+KT263wHh97fc/Gtsd4Zuxj9gl1sOmeCHxi
F3iX3O/s2DoQ+g/+xqGxnzF23IjY6w966/Dwft+IHWtCHXSEx2LPM+phr7Fe
8D6R3cg7ZFXrIGeQYa2CHEMOtQyyCPnUIsgo1m10CdZu5FnzMMZGBFnMmsWz
YA8Xm4B7wxZCR1sW+oQ+/33s/V3k8Xex91l5RujSbcL98hzZF8YmYN1gDUPO
s/6jK6InZHoXg4VHRb7XZ8L9fsu8j20rokPdHdt+Yx/5lvC+2IO+Obwv/Hm3
xd6fRd+8N5y7MvbeLfwWwV7Dbpug8mDs+AfWk/6xbb85sfeh0TWx3foFPFf0
/lCH5/FAbPtwXuw4Htql74NC/1fFtpewleoF/RM9lDHybBgnk3jPseU+8n9C
wGNFx8eW9ciYkeH9wBsX+KPU1l2x7dlRomNiy2Vk/qiAv4ltL3Ft1mriZliv
54V2aZO2BwZMG6PDucieseFa6FbYWehXtIX9xV4U94Y9SIwBY3BTvcu9RP9S
WT/xeX8Ir5t43NF2lHjt4j7ixL6hMcF2w4Zj7lYTr59/qqyXeLz8I1wnsW+Z
uIt/Y+u92PdsUDGX1wpvmDju4W/hDRL7lKm7UeL61N041Oc+aJc2J4umiXWE
32PrMchT5usbYT4yFuaE8cD7fzOMAcbO3DA2uNdXwzxjHswOc4F9KfanGOfc
0+thHiCTpsSWS7/F1pOY37/G1quYcz/Hniecu4K2VTZjHOl5fSXaPvPzxh7m
mfeOPT+Zm8gnZBnzmLmyJswXngW2Azb22DBnsPG5N/yu2FHcMzFvrFmMzUlh
fJ4b5iT+nHGFnx17PTxH/P/sUTLfiJcgtmK0+tcjtm9/eJCVyH/eSa/wHnm3
PcO74B3eEPs9Dg1zHr9EuzAnTw3jcUV4DqxxPDueG7IBmY58uCP2PGScIhtW
BjmALFkdW54gJ5A1yArm7k+xdRreFc+dZz4zjOnV4Z4YW63CO+L9sK6yJvwS
205opnI89x57XWY8MZZeC2N6VZg3a8M9skb9EcbMllpTj9Dzu5X4h9AOdg5y
nDUMPe1VPetzmGv4VFP1JbHfuwcOn9j+zB7iNxf/EvFbCh+Yes/kJtEbEusR
jdk7TN2Ps0VvTLwm3yjcNnGsVf0QO4GOvQUyJ3Ls39661jWR91aIG0FHOV+0
l849P3Hs1NgwNhgjrYNtgo1yrK67S2rdfb7oqsRycZbqnZa6nWMy6wzYPh+K
90viMXgu81v/r9Kxj0V/TzyH5gh/kXgN6S3aPLV+0yvxvXFf74v+mFiuzdA1
GiTW2WaL/1limdhZtEVqP9m7ot8nlqetkSWpfTMtEj9TnmcX4bapbbtzsT0j
xzT2Fq9DYj/pBGIaU6/H44WHpF6PLxG9OHXMJut/08R23QT8mbw70YmiQ1Ov
6/eIDtX/rZmLogcmlrsL8KukXl+fF+/J1LrLNOGDE4/NqaJPpdZ1JvO8U6/Z
U4gFSr2Wj2MtTq0T7FF47Owp2k+8J3RsG/H7Cj8mvKXwyLCGspY+wjMQfwf9
HyA8WnjH2O+hT+J30YdnltgvzF5YF9F9RF/D3hD/tsLxsbeJ31T0df1/imco
ervOHchYZN7yHoTvUb1x6H/CW4k+Lf6jwpszn4WvEX5AdR4SfkZ4e/FfEB2R
Ws9rwL5m6rndiDih1HOb/XFsh3vF21H4BPR/4dsy70n2rzkGhH07/InEc7Cn
+b5o78z6MLrxD8GHid9pB5XjsWvUzvbCx2HfCe9Xs59kUNU+GPwkA4V3qzk+
5IGq95GIM7mf/kTeM8UXvJ34x4reSbxQ7j5j9xD3hgzGB94oc2zcmlrQqyrW
37BJsUfRITtk9se0EG2eWS8bpfpnZdYTn645ToX+NJDuvVnmGI8fa459oW/1
S8tW5P3yinV5dHp0e/wc6K/orr8G/9uzondH3idgj6Bv5H0F9hSGZvbptMSX
q3fSLrXs2Kdmf9GAqvfrsGEfEa6n0jS1DN1UeLPUMvdivevzUsdBT1JbR6Ye
V/CODvy6qt8k9foxU+PsiNRjcorqNU4t4z9ljKit54Xr46NPLcc7iLZPPec7
Mc9Sxz5fIXxB6tjndugdqcf6Regdqcc3e4/YaI9WLVcODrIF2XZokG/IoWsT
y6JtMo/lbTM/W+TZ6rB246PHxzUmYNZx+nJC6A/xrldGXi/o13Ghb8itk4Ps
aiN6WGqZfr5os9Syvo761yj1WngU8SJBRl0hXtfEeyn4Y++LPAfHiT8nsd7x
dOK5x7wbwVwU3o71OXdswnXqz/e59w+7hX025Ad7cv9GPo/YCPY2kSX1I9s5
6JjsF04p7H9hb3Eae3K6xlTRJLEvBj/NczXH4RCPg02IXskcRtfD74O+h7zY
I/aeN7onfhvqddI5m+BT1H1PrDmGh1gedGL0Vnwy6Mr/+Ym4RuL1j7XvwsTr
KGvoT6Lrp77e76J1UvufeiRej1mL2ydeM1gv0JHxN9HuX+JtnNofl6ofDVLr
PdiXTRL7C/4Rr25qn9klieUsMvayxLISOTlN/a4n/LToleLfkvqd/SK6Qep7
vruwnso+bOvwnBsEHeS4oM9cG3xB+ITuLezPuSX3eoYNg415T+G4L/jEaBKr
eUTNfkR0HezyOzM/b2L/2Z8hjwA/b93QDn4w7FLsEPxd96I3xM41OD7oWB1D
u7Q/oeo6tPVk1e+vQXjX/TP7EZFj9wc/J/KN8YFehc+L9RX/Vb0wJqDI8XZh
fwqZjw8SPx6ys2XQxzgf3yp6HtdoH47/J1dj+zr/i8nLrKuiq6O7grGnvo28
phF70TSMRZ4LMWQ8D/bW8ONOD22RZ7E78090qt7bO4n12Usz6wUd8Y+I90xq
nZs9UOzowaKPJF4jucZC0dWJfRDEw6BvD2C/T+XZ1Ph1HR+ZWi8fLtxfeFvh
/sLdhGPhLozx1Hone+XweorOUemaGs9lDAjfVDhWoRobvybep8gIxoXwx4nt
qpnoXKltg5nqx7TU/R+VWLdAFkxAv0us77+qYwNTP5NnE+siyJHxonMT2z3s
g+CXfkJ0Fvpsah8QsgiZhI6xUPwpqW3mD9ANU/sCFgm/kNre/kj45dS+gKcL
21rEqMwTf2JqX8Nb6KSp7f9vRddJPZ9bJtbX0dUfEL4+9bOYLLogsb2yRni9
1PKrDTZRatk9RnQ28kL8N4W/TmybDkqsk6GPXUXd1HEZyL2tYuuQk8Sbn9gG
uiyzHne56GDx7kpdDznMu0UHe1G89xLbRjNU7230atEBifUwxmvfxNfjWleL
dkodd3ZX4v/g24Q7ps6Fupa1ReUf4RnIm8R28z2Jj8H/RrRMvR9wOc8pdX5V
U2IZU9vumxHbkdqmp+1LQ/vTka+JbfRuidcn1ibkxLFBVgwT77nEdvmtifVv
dO8mxDGm9gXcnvjaXPem0jrHKj2TxdhGqX09t4k/sGZdaL3ceh17Z22EB7K2
iP9V5tjau9iTzK1DrkZPr1rfu1XH182tB9L+5qXjQ1uJlrn1OmKT1hFuVnFs
Evuy7M/eW3McL77v/qK/Z46xfJC4rcwxnA8Jr8wcF3ove2SZ40LvE/5WeH/0
SeFVmeNI++WOncB+HyTaseqcprvR14Lv/QFixDLHhT4s3Ke0/sp9/SX+Mehj
4v+YOb6U+HRkL/7Gp0SruW3bFaqf5t47Jj7q2NwxrsThNssd+/pX4ZhY9tCJ
JTsm9/7dn8Jblo6fbVM63oi4oznYzbnjdf9QnbNyx/fGxJTljl9dyz5A7pj8
34QPz50j8Lvw6syxsv3F26J03G5r0b8zx89/rjrfZY7JXyq8JnNMPvfIngTP
pwf2X+YY/s9UZ63wAcLL0XOEdxJego2e+/lgZ/yTOVb/C/H/zRxj/2XhfQv0
+ZvE+zXze18m/tm5Y5gT9S0KOj/tEFt+v+jNoksy56zdruOLM+ed3cZeU+Z8
tzvYj606V+tOnTM/c6x1V/HnZY7B7iJ8Ue78jnXVZrvc+QvrsO+ZO3+hFP44
c+5YH/bshHekTeHPMufQ9RX+JOyt3Cz8Xub8uxuF382cc9crd77K4cHe/DBz
ngJx4u1z54YQ+/9O5jy+nuItCLrZdew/ZM5Z601MROZY8W7CC4Oucr3wosy5
eDcIX5h7/7dQ/8/Lna+RC39Rdb7AAl0ryx2b8Sj7/Ln39AeIFrnj/Afmjntg
DN+n+isy73PdnTummj2wBwrnBaysONaRvIAVFcdANiod13+HaMPS8f63l84F
YG8MO478ggeJ9RH9Mow3ckEuy53LsGHpnE9yKNYTPjd3HkQmfE7u3Jaa8KW5
cy7WF26dO4+mKnx17hyNTYQ75c6D2Fi4Y+58jQ1K51sSC1eHfIrcORcbCV+T
O0ejrnDz3PHz5PGcLHy38N+6jzNz74lHpX1T/SRD32CvpnT81tnCp5TOt0QW
EV83k3W9cHwR9iMxpcRfsR9B3B15TOwhsA+OD+oCtTm7cOwQ9g+xgsRv4Isl
P5FYMny05DsSn4bNSbwosVLkVBBniC9oZ133I9F9S+c5MP4PKJ3nwBh7Ucd2
Yt0qvE+KH5Q4duL/0P3RVYk5If+BGEVilsifJEaRGLn/7FvRT0rHuh1b2Mdy
tvo/r/A+Gj5gYudPLZ2bgbw9rXR8P7L9g5DfuKPoh6XzJ3cS/ah0ruPOxCaU
zjf7Vu28A86ckzimdO4T7/SK0vmiU9Vmp9L5xtOJHyidI/oi9mLpPNJpvJfS
OV2Msf1L55sxvxYJr606znmhcP3MOYnPlc6PYly9Xjov6wz2WUrnLbA2TS6d
T8X4ebt0Xhx5i5NK51MxDieWzstivC0uHRu0O7G0pfPEGP/jVBbVnKs1oXS+
FmN1v9K5K8i0F3ivwh8U9kn+qWe+qHDeI7ET5HLsnTt2i9jgPXPHgBEDvFR1
Z6XeOyEO/mbxZ6n+ytL71o8U9oN9onpvF95jQp+dWHjfEH1tcmHf3NjEvroh
YQyfHXTIseg8ovvnjnshVnmv3PkgxBufkjvv4x/hD6rOb5qHfyh3rgrJOqfm
zk/5V3UOyG0TkTtymHCvimOhid8ljvfVmvNWiGcjfpu8pxninVc672m68Lml
c+uwy7CxNsRHktoGIo+DfavnRSextqFfip5QOgcbfeOY0nnXrDUnl861Zm09
vnS+MXLypNL51egkx5bOzWbtOLh0riOymr1d/C7j0XdK5z0izw8S/qfqXOPj
Sucto2thw2K34gc4sXTeNbrN0aXzsVkTjyidU8R69FXpGAX0qBWl4wyQ20cK
FzXndDcrnR/OWnZU6Rxv1tPDSucsse4cUlb+y5tibfpf6Zwo1rhDS+dWscYd
XjqvibXy8tL52y8Ib4QendrO43ni08C3sYeO9VSzY0V3z52bP0Z0t9y5+aNz
54kTO0g8PPl3xA4Tf01+5eyKcz3IbSGB84XwzMjfIC50Ru6YjinMl9xje7zo
vrm/LTBOdNfc3woYlTuXgzwF5MwhufPNn+N95c5Dn8T9qtwlPJl3lDtvfWLu
WIte2HLI19x+HXJfThQeULEsOjC3Hsi4PT53DvvzvN+wvqAfnpA7h53nRh4+
eSj/iHbLnD9/feYcM/J3/q3ZX0FMdufMcSA3i35dOrakq/AXpWNCDo7dP+zo
x7HxMserHBDaROckNokYJfRD4ouIM8Jvhf+K3ARyJdgnwWbHX3e12pme+bsN
5C+RB4H9NUz8V0T/ye3rIg79msz5cvST2M471MbzYQwuCnpaK/Gfrlg+42O5
WnWXq06LoCOx/hL0i5+MePUOuePw0Z0uzp2biZznexFvizdStGXub00g59m/
uAUfGjZEbr16Su7YUWyOF0vnp+D3RtdcGvzgh6n+wzXn6ZAXQ14POtH00j5z
4nzuyPzNC3y8tcz2E3Gn5NSQC40fmDWA+C1iVdjLI99nWcU6EPkW+KLxSR9W
c8wtuVTE6JIPhvwixwKfCn5s8nfwzRPze0jN/hW+OUFc4ynBj0quJT5w4mHI
ycDvjf+bnBpk5GulY3fJMUMmXpD5Wx/YzuQYk2t8QuacPr71ge8Fn/h/ufiZ
fe743htkzuFi3ZhVOk+BeH/eATluu+v4nDAviE+cG9Y08jXI9SDPltjgvTPn
QpMTfXDmfArid4hHZN+BmCvG95Ka9wnizLIAmUCeFzlK5N2hPyyuGUeZxwyx
kPPFf6vmGFN0YOJIeSesz8SmnhdZr/i65vz8nTPH+t4SWZ8hn5bY1P0z50mR
x1E3c+4bcdJ5GPPESM4rnT9FP9FhyMujTdZ34pY3Vd0FpfcNb8b/ktlGJjaM
mD58x/iQyRX6XMeaoGMLfxFsB/RkcqXJxyO3aHnmfOdPC3/7AxuEObYf/nB8
+rpGM/qZeh8O3r6p+XuLHs2+QuI8a/y+xGUT04bOjxz5IHNe5Mfiv585vxX7
ZYzOaVi1z+5I8ipT+23RJ9lbJa9qDjqd+GORYfjtq85Z3w7fedX5+lx/r9R9
IEYNe4r5T742+id66O748Lk3rim8TdV+e3I2WQtYE5D5cyr+DsAeqnN41d9c
WaPyQ+IYjW/wK6fOEVmGzp46RmSkrndnbF/Q5+IvT7xn/gxyNLZvubt4G1Ud
A7UpPpuq/b705aDE/YHWCX2rrzpJ1XEMuwofWvW+8Cy19aXo46IrROemjqP6
TfjXxPrHv6JLUseerhX+O3H8yIjMMUWcuxL9OnVMVSH6eeo4iUx0eeo4jJ9V
56fEMSmzGbup/YRVfOqp4zki0aWpY1h5xrulfs7ErtRL/O52EG+/qnORySd6
PLKNg17cO8gB8hp6RR7f5JBeXHHOKzKQvS/2pNhfIx6BvBX067PCGse3UIgX
IG+R70Iwn94vnW/GWkcuGvt9xDWQ70L+CHEK5FbyjZSukfPI+K7F9ZHzztDt
0PH4lg82J7Ynvilysoh9IB77ovB+ec98J4Q5/bGudWTNewLEauLPP1r4rsxx
Ah3ZL8u8lzc4vJN6YfwwjsjLoO4q0U303Nam9qOTC9M8sr5CzkvLIMeIvX84
yBxi7x+KbFPQP/rJXiH5AvcLn1Y4fuBMtTk5c2z/gMhylhwE5OiS0nYBe0bs
HfVknlcdx9C4dA5932A/PRHkLbk5LYLMZI1nred7R8R/sC/AXiHxnAvDukB+
QT/hUwrvseLzZx+AOEbiJIkLJef0iNh2BDlf08J6Sh/Y6yRGHv8Ae53E7XKN
TarenyTWnbgSYvvxJ7CfSOxnx9Lfh2Lt/qb0+kf88yWlv+uEzjaw9HcTsCna
lv5GD7rlsNLfaMA/8GzpbzHg/3m4dM48/reepfen8eP1KL1Hjs+qQ+nvSaHv
PVX6Gw34WEaEdYVvMnQu/U0K/GBdSn+rAn/aGaVz1/Ernl06Fx1/yzml13u+
qXV+GHN8h6p96e/CoK8OKP0tD/x7Q0t/VwIf7OOlv1GCr2xI6W9w4A98rPT3
JrCbnij9fQr8JINLf5sDf8Vlpb+7hP75TOnvWeD7alk6t5wxdmbpHHt8ni1K
52Pzrh8p/a0BfJhPl/7GBL6yJ0t/kwJf062ldSb2za8t/e0P1qbrS8cH4G/s
VjoeCL9f19Lf4MCveE3p74Ow3l1Y+ltL2AKjS3+3BT/PdaXjA/A9Di/9/Qv8
Qs1L5/bjv7q49LfA0NuvLv1NENavB0p/awAf6YOlv32Aj3RQ6e+bYGO2K/39
IGyTC0p/Xwwb4aHS31D4zwdbOv8fH1r30jEQ+DkvLf2tMWyER0t/2wV/0UWl
v++D3fF/C1ndyw==
            "]], Polygon3DBox[CompressedData["
1:eJw1nAf8l9P7xp/PeMZ5UJEyoxIK2aMo9EuRjGRUZkahkpVKwwgpIRXSIJGR
VVZEJKOMJBSiZTXtjOz/9XY9/9er0+e+z3rWOfe47vt8G5xzccfe5SiKvq1G
kf5Fb+q/QytRdJ4qJ6icm0fRjDiKBqltryyKuop/WvyV4icG1an/YeKfK0XR
dhq3HF6/3TR2lkoifmu1/yH6NZUF4mep/VzRD6isEH+4+O6iX1aZLH5X8ceL
PlXlcdHjmEPz7yb+HF3/Wc03UNffU/czVe13qH0LtTdW+w6id1f7JqrfKP4W
/T6osqvov9Vnge75TfFDxD8sup7676b+uep+U9094huJPkZ0J5WRoh+ueO5/
Nf5R0WPVp47oJqr7S3wjjY/1O1P8/Wo7QPQJos9QaaG2PcV3EL2Nfg8Sv4tK
IrqOynY8r/hU9M/qM0q/j1Q8d0nlbD3vM2ofoOdtqud9IY2i8zXmB13/TNFT
RB+o/h3V90zep+q2Vd/Nkig6UmP31tjX1D5YbbX0u6f4oDFzxdcQ35Rri39d
/GbiG+qdnKC5x6n8qOs9qfleVf0gvoXofdT/dfFXid9cv3vw7Br/qvhNxa9S
nwa6fm1d/2hd/0KV19TnJtW10Hyr1XeJ+o1R/7cZw9qp+N6/Vzlf/eeobpj6
H6z+NUW/oPaz1faTykrNv53aamj+o9S3vebbg/Wi+x2tciTfU/yxom9W2UTj
Z1T8Lb5T+Vrj62v8FhrfTuPbsV7Ufpz6jlT5VvR9qjtdfR+iv+i11Il+U2WV
+I/FjxL9lspSzbeV5ss13xGa73Xd8wfig/jW4v+n36d0D/1VN17v9iGNb67x
J5f9TPuK/5/aF+ja9VS/TPNtrb6baFwbjX9Q7c1Uf5L6dmXPiD9I/Imiz1Lp
rj6zNP46jTlQ116i8VuITjS+ldomqf/OvA/17azyido3V3us9sPV/pXaV6t9
ktrmqfTgGTTfCPVpqfmWq/82ojdV/7Zq21dtb6j/1eq7hX73Ez9Xv9eIr63f
K4P3GfvtJ43/VONra3yq8f/LvTcruuYrZe/Re0XvwvsX30XlKNHPq26EaATT
OPETxe8jur7KoRp/kPj6qt9W5RTNeafqOnINXW+E6qao7KK+f+o+DhbdTO11
9Xsa31D31xdBJ3qQ6EZVr2nW8j+qayh+L/E1xf8l/gLx+4r+UXP9pPKF+Nbi
Lyx7zzwt/iXx/UQPVWkqvqXGP17y/SHrmovfqpB5M3l20QNE36zynPjZvDfR
N6k8K/5l8f1FD1PZqeo9zN79W/xc8R1E9+XdcA/ijxd/heixfF890yHqvzXX
Fr1L1d+IbxOpvKO65fq9S30fC5YRF6u9cWTZ8bne4U+iH9L3GpF7j12i9iaR
914vzbe/xv+i5/tV5RH1u63k/fZrsUZ6q/+ukdfOF5rvZ9GPqu1mtTVGPqp9
X11/S83zjfhpfEfx76m0Vdv+qttBdZn4O/Q7UPwbkfmdq16DrL1/xX8cPCdz
zRT9g+gnK17rH7LnxU+vWJa/r3JF1TIdWc4amK8xg1R3ofh9RJ+se7xD85/A
HtK9v6q249S/D/eislB9jhV/uehHRL+s9mPEX1a2TGAtbBd77bAmumm+F8UP
0XwHaL7X9U5maMxwtU1MPfeT4q8v+xp8++1jf2vWANearvbryr4m3/op8TeU
/c0z0duo/5+i3+D9qf0Z1d0oupfKl6KPUF2PsmX+9uKboANU96v4Mfp9rGLd
WlX5XfROaq/qd4b4j/SMDdmz7EvRG/TbQHyZ+1J7e/0+oTmvFX2pyufIM9Vd
ULZOOE/P/5z6D9bz763nryF6ZsWy7EeVdqJf0JhbRF+s8oP4+upT0u/jrNGq
ZQKyAJnzeNVj6IvMeVv80eIvKVuGza/6nrgXZPaj4o8Uf1HZOqtB1ToQ3cc7
WxKso9HNs0VPVXsb0T3L1nl3i99JfPuy12j9qnUmuhKbhmvPYk2VfQ/I5jni
by9bRr8fvIZYO4+KnqP2HWPvxYFl6+7Zah9dtg7HdnhJ/G1l2xA7Vq1j0a2/
ly0r6sWWVcgMZMkOsfcCMmUz0c9XrBt+UDlE4zvz/bW+39dlL9D3eFV9hos+
RN/jO7XNU5/x6vuwSqK2+RXLsrUqJ4s+B/mi8W2wsUR3Vxkmur1KD9FtNf5H
zTdC/PnijxD/feQ+2IJvib+7bJvwNF3/YV3jIrU3EN1R7V1Ueqnv/0qWbe+q
//1ly7hT1ech9e+l/vVFN0H2VnytY1ROFH0660F0a5Wuog9DR6v/ZeLPFd9K
/KeRn6ExthQ6gr2DXuVdVdz3CJVc7YvE36r2b1VSdHPFsngdY8QvrFhWr0fH
if4YmSN6Wtm69hPxT5Wtc8/QPT+uMZfr+mv1vudpDZyu9st1rf1Fz5QM6Cb+
O/Gnie6OPtIc35ds40XsRdXNYS+rnKn5nlBdHzXtJLoVtjh6lL1dsa35jvpP
LtvmfFpzflCxrnkMWm0v8k2RX7zfitcIa4NvcDCyu+p3M1v8FuL3rtq2x8Z/
VnMcJX6D+k+VTH9efNeqba0Gok/XPU3VmN5qbyj6e41brPYnuH7ZtvVHVb8r
bOyjsY+r1pUNVD5UCar7pmyZ0ElzjBV/IvJf729xxd+Ib8Oee6/ib8S3QaaO
z9wXmwDbYIL4kyLPwVzjMtsKyHhk/bsVr3nWOjITWVkVv7psmbmN7i0Wv6bs
urcq3mPsLWTy4mAbE9tyRrBtUBL/Vdk2wlhdr42uN5xn0PXuEt9W/E3iT0LX
iG8t/kZ0jvgWKqfFtinf1/u8TvxI8ceIr6m+ldg+Fb7UKpVPdb014t8pW+aU
RdeN7fvMLlvXNqna10Dn4qvtU/Va4Xuu5J2Lf7RsGYDt0Ex8w4ptCGTfoqq/
HTJwhu7pWtW9qbFtU/sy21btu+DTYHv3Yv8UNsG6itcca409/Y3497CB1Pag
+DUV29jY1qzZr8S/L35q2TKjj/hjxT+s/g+V3Pal6iaW3edy0ceo7je9n9vV
/lHFNjq2OTIUWb6w6msh07H1L1YZVbLNf76+2Tz9vqeypejzsLfU/m3Je/LZ
im1kbGN8gv3Qp7FtEWwUfLdV+r2nbB8O2XeBfoeXLAOxBZ8Qv3fZNmH/YLsU
+/R7fc8e2Gdq36C6n9lDau+g3ztVvmGtqr2b2m+Ej7zXW8f2FdjzJ6p9YPEt
56p9Ce9C/NNqe4ZvFnuPsbf4ph3Ufp5++6r/MvU/S+trmtqvEN0o997uXbEv
xB5vKf409Kf4RZHfdV/xj5b8zo8Wf2nFvtcv4l/RPc/X7z+a8xDN94qe50z0
s9rfzmzLXYWOK9mmO7xqGYzsRSYeULUNyPvdUfWHVi3jke3M8aHW3CYaV5Ls
OVTzLxK/Kaac+MPEr1X/ZRXbwvOR2eJXVGwrv6vSomqdg67hmQ4WfwI6omQd
iW44Mva10REj1d5f9HS1/cs+Fj+0Yl/gT3QetlbF3+4v8beIH1axbfx3ZGyh
VDW2AcbQXPQVFa/lt/HZsG9iyz98muP1HK+Iv1FtzZEdVes8dB1rapn4vyvG
Gl4oW0boFUf/xpYdv1S8Bvj26KCN4j8T/5zoZ5FH4oegI5Dt4j8Itvmw9aaJ
/k19/xH/IrJF5cPga3KtJ4OxmaXiny8bo2kpfpDKLM23QvcxuFhjrC3q2Ovr
K8Z62PN/Vy2jkE0rVf4QDfD0kuhlKneq79Uqr6tvjbJlDWuctY3MuU78yfgH
JT8DY+vExm6YA1/y06qfFZ/ymor3EHuHOdHVP1dsu6Kz0a1bxbat0LFd0K+J
1/IWet4x6Db1/0tjayIzsP/QGSXvgVHibxL/h+hNeV59Dw2P/tKcB2uuD8Tr
57/Klrlt738rxsawwTvn9qHYa5vregvS/1R+9Kf+aw4Worpb1e8f9ltmLGy0
+HLZmNi7qXG7P5Db6j8//c+0jH7HTxbfqVhzrDV8HN7d7aqLy36HyP7PK8b6
0AFrNH5n9a2re2qfW3f/WLEtjg5/O/3PbYo2av4D1b6P+ImapyP7IbGvfA96
o2yfeZ3qttTvJJUD1fcyPcMcjb9G9c9ofB/xr4kfIn6G+MvxucRfK/5Z8Uem
/u61WD+qO1nt96u9u+h7cq9J1uYK5AP6N7XdsqnqpqvPJeo/W/2vAodR/0vF
vyL+avFPi78m2O/5Ws/zpPhrVW5BZoKhqe814m8W3w4MRPzV4keIPwrMR/y2
wbKrD7pJ/DLxi5EDmv8F9d0Vn5J1rzEfYMviY2OrqYwW3V91V+Lzasxv4jtq
jntFn6fxd9OmchVriTWl9t1VP0T8ochA9b1FdW01VzuVB8HZxLfGjkF2IRt0
/aboNtG3aq6qxh8XGwMCC3o98br9XWWK6qeq7muNrafSTfQLai9jq6rcp/YX
xVeQ0yr3i39W83+gvnWwv0QP0DWuRvajAzR+IO8Y2YSMEv9AattlLbpX9CDe
udpbskf0PPvyzkUepeuMBGsOluOT1b+z6P3Vfq3a24E7gI+l9nvXq32y6Oma
qx/fDv2S2Ocegp4SPSq3D4sv25T1LPoilaXIVfau+l6kMkv9B6n/NNanSjf0
geq+0vxPqv73yHjUJWBp4rvHxhTBFnun1vXbqu5V0dfHXh+dVeqrb7/YuqwT
30T8BantAsZcLPru1NgXGNhs0SN1fwdg54j+Uvdyu/iWyEXxq8X3Y89gQ+v6
P6qubzA2czbrjPenazTEltIzv6y6UWpvJr4/31ntt6I38QVVN1h1PWLrxlNU
Mt6xyrFqP1TtQ9Q+WuMPFj1I9CqurXKexuygPl/gy+j9PS26j8ZNpU38U+Iv
F/+w+MEqQ7kGro3azlJ5XPTFap+itsnBfktzXf8CbAe1P6b23mq/X+1niH9U
/EXi72Nv5LadWxd4TS+VF0UPVPsT2NLiH8G3ET9ZfEVzbqe5PxA/Xfwpap+i
9vPFTxLfVfwT4i8R/4D4c8HA8SXFPyS+u/hn8CXFPyK+J5i8+AHiHxffQ/xM
7DTxj4nvpet9qut9pvKW2jqpPIAfrvZ71f6v+LpqWyD+QfHbBK+PS9FvzIUy
Eb0f61vPOS+xHsKGfDK2jYCtcJzqR2v8EjB28feKf1n8Z+LXir9P/GzxffW7
LvYz8Cw/gKNrrqtV7kbvJbbbz1ZJ9T0f1Zj3VbeN+JLu7XviCqIHqYwTfana
1yMHeIdgfcH3x33Oyx0zAEsFUyWW0FxlGnYlthdrUP0OEh2rvMw7iS2vPlef
g8HANd8Q8Vur70LNN4r4h9bHD2o/RXTj4L3EO9ta9IWpdc/N+ODQqW39G8RP
F31PbDvlRdU10/zfFc9zGveg9m/BMEWfqlIRP1zXnEI/jVnBWg3GTqcg/0QP
U/v9al+v9mVqvwGfLvH9f8T6Tq0HuadnVX+T2h9IfP8r1X5qal+jjdpHiD4j
te/PnmXvfoOsL/n99xf/W2K/hWd6XPT1mm+MfpdrvkX4urxTta0q+f38ECzf
kfNv4I8Hy3Pk+pzcGCR+81X4HKLXZbZt2hD3yY3psh7w5/D3vwtej6zLV9T+
nfpvIn43dAn+g35fUpfDVNdO9Ffqd6Doqsos5LHqJqu9RWEPXKIxy/WMD6mu
C3s7Na5yrdq3En2Y6m5V20kaOwa8Q/xI8SeLv118a/GjxHcSf2duHxxf/DyN
3wusRfULNP+d6BT1/Z/Kbawd1d+h/hepLFT7XeiIzH3oe5ra71JbB/H3iD9H
/ATxLwRjzfjSt4i+THXHaHwtvrfu92Lxy8Q/KL6zxl6ocUtj73n2/rEqE0V3
Vf049T1e/N3izxY/XvwJ4ieJP1f8ROwf8XeIP1X8WPE76LeP5ttLdT+xttA9
Jdtyg9XWSXwjZI3ar+cZUuOC7VS3nehxqXHHoxmD/tL8u+MLiF6g+Sdp/B4l
r6fmGr86sSxeqHK0+vyu/rVFz1f9O4X9Nwb9obp90Qmqb4bsUJkjupf6vKc5
x6KzNfb21H74ysj7647UOPUXkfffoel/ZkC0s8YfJvocjd0F+ai6YZqvN/JI
dePEt2ftqU8j0Y2x+bB3VOqK31V8LnqD+tTifWjsm9hfwTg7NulfanswGFff
XPyvyMrE9MTieZ5KjMOxJ08XfwU2JO9I1/hO/Ddq3575i/X+UjBugk7vJ/on
5FDFsa3FZcsoZBV45Vyunxg7Y4/9Utjc2IP7RbbF2XPsvYsqBfaW+lqba65z
Rf+r+bes2pf6ouyY3/mFPUIs8C+1bVG1b7Wi7Pc7U+OD6HNEz1LZumos6RHR
t6WOUxGveoL3HywvkZsrc2NWYFdgWn+kjuldEDvmS6yvLLpu1VglduRF+BNl
+87YJDcF214fRdaHI8TvKX5JZPsLHwJf4m50nvr/kTgePZ79zPpLjI+MVdld
/NLEuETv4vuzHqCxYXoUmNqNhb2Bff2j+q9hbxT7AR2Lrq0h+mP1/TSxrzSz
WH9gdmB3R+BToUti4+BdVPZQ3291/2eJTtS2OPf661kyntBZfT9LjK32LNbj
zcGy4zF0kuiOGjOssF82FvY9eF/7wh7uyfouG0voKvpUjblfYw8R/SGyR2VA
4T+sVd3PevdPV5w78TE+cGr7owUyvrBXsRebFvbsxsQ4zh3q01j8u+iLqm36
Z0Q3SY1F8c5592DTEyvWT+wJYvxXFPKI2D8+Cb7JNYV9ii89pmSdhe4ip4Dc
gj3VvkztF+tawyv2P/Ch0Q/4iieyP9X/FN3Dvehq1a/IbT/cJ/4klb/Ruypb
lVyHPXF51TkfxKDxmbF5wWzAatCnTVNfnzXF2rq06pgx9hQ+PtjfeLDosvVy
x2B5hlxbqutPAIvTmD8i99lL/F0Vx6Z3LNu/6lbYw+iDl1SGVo1N7iz6WJVP
RDdX3ytZz2qrVTXWsrRsTOus2DF3sK5fwXIqjl0vKTtm373wR/DfjlH5CF2q
tj6pMbCzY+eAgI29onJr1WuoR+qchz6Fv4C/MrlizIr1RR9yDi5C5kbORZiD
TKh6D/dKnePQKzZGQO7D/RVjZOxv+hyf2p86TPR1qXMgesaW0eRGHKX3eYPa
66nts9wxCbB+MH9iFT9hn6rv0EI/gWl0jJ3TANYxLbVsIqb+VmoM4rhC/4JN
gLmcIn7LyFhMNbUthw2KLbpt6r3PNbk2GMtJsXMUwF7ATDoU/jFYym+x9XtN
8S/jm6fGesF854p+M7Msw3d6MTf+sDGyDEWW4qfhr+FD3QbOmtqfqxP5e90T
vJZaspZ5VtWtLBl/u090l9Sygmvi396TOjZFjOqN1P0/L9n+PIHvkTq3ghyL
eantZWxB6qYwV2LffrXqOqWW+cQ2iHGgCzqz5jTXDmX75w+njmUQ03hRdPvU
tkCm8ho+XWIsA5vzZORp7Ng6+Vhd1PZJ7Dwm8qW6gSVk9jdZG2ty4y7VAsu6
NDHGA9Yzr7BBwUuIJRNTflP0pcFYz1J8RnwDfNhCXtbQ3N1T3/uaQp/Bo9vA
HMAewITAhl5GR6T258H52evY4qPFn6a5WqnPjamfj3yICwq8ZqjK4WX3uRu7
TqUntmWBtzyaOVeLHDly5W7X+P4l+xT4FsfjA4PNqc836j8hGKvpgTzG9lSf
ASX7JPgmKxJjqf0KG204Orfs5+f+mgfPX1v0EtZubnyoZWEfTs58f9znOrXV
TI1VgUmATRynukFgeeqzHvkkfqD4A8SvE79j6tjDmcgh0RsSY6nU1Wc9JrbV
8SHxJcHAmL8Wck5zbZZav2LzgH2MT+xr8Hz4kn3V57JCH/2gvl9mXn/T1HZL
7v1LHB6bEdsR3AH84b81pHEDUuMZO0WWp8z/VeR4P/4M+w3ZuDAyhsL6Jx+F
2NyY1Pb0tQU+BX7SU9d8K7ZPgW8Bnsa3PVLlVtF3Bb9/vsPa3NdHln8YGVPB
vkZ2sUcnocuC42bI6OuC39eqyPkMY1Pbv/ie5OdNKOQBWB7f7Gtdf3zqNnL4
XivkF7FcbHps+1qZZcuw4n7w53h2ch7INWmh39p6nl/Kjvn2I8aATVpyTINc
SHLwyL0jJ/Jk7rHkeOJTwfjeHmXnezwX7F+R6zGv4tgn+NydrEfihMGY6urY
mA9YK5jJktiY7X9YSnDs4M+KYwu9g7E34hPTg/E5Yle/Vpx7MjCzPd+5wE8b
BduH9xT2O5juqtgYDVhvKTXWRvx/WWJ8APsQO3Fm7vj0c4n13QOZMVa+9+jI
2CuY89oCHwGL3knlbNHbF/pqe2KE+DuJ7T0wrs8K/w7sC3xlWeHPgoeAES0t
/EHwFvCUFbExqV1yY1RfxMbAwK7AkD6PjXmBLYFBfhkbkwKbfDk4VwWMDKwM
TO3T2BgWWFsr1Q0ueQ/kwRj7mtiYHNg7GPu6Aq8BewcD+yo2JgM29lxuvxH/
cTa6LTG+M0N8NRgjX5zY3wQ7fwcdqLZ5hX4sp7aNybdYrn7/JsYSsYGxhf9J
jIdjY2Nr/5LZtsce2ynYJlyj+hol24r75r43bD3sXexA7EFsPmw/MMFFsX10
sEIwtI9jYwxga12CsWP67yz6DJUnSrYxNgu26XZNbf9i67VIbV/j0+HbTdIc
55acX1o/OEZDrOYc7H/RpwVjQfTfhb2TuQ17d0ewUpUrC/m/I3gQ77BkGVoj
GJ/H96XPIdiawbIemb+d6OW5/SD8oZOCMcmPYscIwCovDP5WtcuWL2AU82Jj
HGAXYAxvxMZQwB6uD8bq8Ql6BuMZ+5WdH/liMObwZiH/wCLAJObGxlzAKv7M
fC/sQfYi75B3iU3XLhhDfbfAW8BWP82NE4IXHhaM8S6OjXGA/RLDmR8b4yC2
c2hwX/RDffCaYGwS/dJA/KbB/huYINggGOqCAl8AXyFmR+yOb9Y0GINdGRsz
BpvF/wSLRcaA/98dLNuJoZDPTozujNg5uMTuiGF3iS2DiG2TwzhR/KmRcxuJ
L5CL0z5xrh82HHEYZDiyHHtlecmx0nuD1yO+Dfm89wXr5zaFr3GZ+N+D4xXk
DIJn/RKcO0wOMfguOZkTRHeJnKv5K+9H9POx8TF0PLoem+IA0Xtkti2ICZF/
jM2E7YAOGxeMR45X/87IuNw5xOQCHJM4txh8cbTaj1ddXXzp3Lkz5NB8khkf
HSe+E+tVdOPMuU6HFfgi+Ohdaj9FdduK3iS3rEJmIjs3zS07kZHIyrZgRJFt
x7fFbwyO97wQG6/bRe2XiT+0wB85k0CuUdvEZxXIaeNswAmJc90OLuyxDolz
y8nBIn51eOLcrKHYaLHzPT8u8Nsx4juI3yp3zuLFoo9MnMvI++R7tCrw1N+C
41UzY+ORzdQ+lL2WGP9GP2NLYjOOZa+r7lKtq/2xJ4LxgK3L3oPgiT+njsVg
44wRvyCzL4VPRazq+dw4GHjYHLBElW6RY3Pvq62lxp+Xek7wBXCJswp5g+2G
v9Ki2P/EJm7IfC/4JMSabhV/UNk2FbEiYk43JbavRhZ4Kvn5wyPjecSQbgYX
iNz/K/F9U89xW3AuwZaxc03xaVoG27fYucQj0f/kHoABgQUNDfajfy/sYfAn
bPVNVLc4s31CLiUYHlge+N2Eks8TkI/LnMyNTEW2bghej+TgEf/7KXj9PBY7
foj8BksgHx88/0f2rNofjR1/BAMmH2NYZGyYa3CtV6rOBd4z2Bci33RKsHzF
FsRmIh66b3DcHX1XF9mWObcLmYJswR8itoaPeEewzYtfgX+BLbx3sC4kv/iB
YJ8J34k1cWfwGRhyKdskPhtzeOrYBvoD36FmcB5SV9XtFmwDRaljJthGs8SP
TIw3/sq6yb322RPsjZdURqm9Ffo/8/obnvgMxmL13yb33kEmIBuIeRP7Bh8A
v8QGwRZBB6ALiIkgS9hj7DXWF3Y59vlrmffHZeIbIiP0OyLxeYq6xTsjpgmO
CN6wSv3fFb9Qfe5DJ2f2wa9OvcZZ62CWYJenq30/9nvmewOTAJvAnsEHna66
xtgCuW0tbKLpxbMQz29UjAFDBkvGXjxCc72FjEhtw2DLILPeTiwDkGXz0YeJ
ZdpJ4u8vvhc5reS27pxbl2OzYLsQwzkussxF9s6laPz1qjsocwyPWB42ad3M
czyTGN9ibuy3GxLjCwtTyyBiccgsZBN4xnWJczjAS95LHH+cVjwzMUNih13F
18mcrzsjcW7TFGRH4pg1e5S9OhWbN3IO2VmF/AGzIB5fL7O9ta/oc9Tn9GB7
8uPEOR/Yn4ty24jg9Qm+Bv5dyTF88N331F43tQ2ALXCkyt4lP3/b4JgFfjE2
00HBNjrYEvGNnQr7o474PUtei+2Dcxmw4Y8OjmMQz5hcfAPwDeJZF0aOd2Cv
EXs9F/sy+NsTTyDm8XZsHwAZSy40vsGxwbkRyORjeF61Z6nragW/Q/QVOdC8
2yNUt1fJ77t1MGYKZkS+J1gqMXZ8XjDVDanlaz/97i1+derzRfil2DDYMnvk
jt8QxwEPWFHYzMRbz85sT+6fOv52YmZ5QfyH/dGswDjBOi8Qv1duf4J3d5b4
w4Pt+91KXqPg3/hbTdCnkfMb+IbsFXIHFhX2yM2pbRxsnRsKDAX7iXxWfFZ8
aXRkrUKf4EcjQ9/ILO+uTy0jkZW8T+LSxKd3D/bh0M/kHOPb3Zc5VxwbbH3x
fq8p2efeJHgN8SyfJ15brKfrSrYpsS2RL88nnrNvsV5uKlmGIkux0bDVwOzw
z8nJAmcGbx6gtm1S26bMR6xhz9zf9ovE8Wt8Jnwn8q+GiP5b49mMYGYDeXfM
WbKPwn5B56H7yJc8u1hft5Scb896Ir5IfI34JfHGa4PnHkDOV/B+Ja8HfJ14
1M7qs7FkH4T1jM+C74LPQ2zhgODc0DM0/o1g/dOt8M84G8iaYm2dERl7Qv8R
ayU+QO4qPg22BjZHE+zrzN+K+NYOwfYKuoh8xnrBMpN4G3E3ZCk+D7qLezhQ
9MLMeaHgVeRasbdvKPw3sGJyOj6IHVMl1wPMCb8T/xMsihyRD2PHWMkdIcYD
LgA+QOyHnFTySsGnyL3AR8RXxMfsJPqq4Fy7/uQUix4cjFVSd3WwjEPW/Vro
a3IATo5s82L7cnbvtaoxkv+3+fmFJ59pajDuwjtGv5ODTC4y5wHJfyHnANsZ
GxtbGx8CXwIMhXy3HXL7Avgk+CY75t5b2BDYEg8V/gn2D/YuNiu5AD0i27Kv
iX81sQzfPXOOx9TIGAVYBTY2sX7kJbb3w4V/wBkEziKQIwBOC17bPdjmJ7cA
+YcvQIwYGYuOA1+pl9vXwIfBl+kavLb3Fz+X9Zg6VkJMithUFhwrnoPMFn1C
cDyJuBK5mttlxrLBaPGH0B/EBrGZwBG2z5xrBuaHv3Z88Hk1ci7JvWQPsZeQ
KciWc4OvBYa/g/rXDr6Xucj04JwNfB18JnwnZCi6AB8d2Xpv5r7kUKwr7I9W
qW1YbFkwhjuK52PuE4Pja8TZyJ9ARqOLDkotu/Pc2BkYD1jPGnRg5BxEchG/
DsYuwTDJpUMHoYuQWei3/pljG8RQiKWASYBN8A47iK6TG+sCEwIbGpDZdiCG
QiylWthrTRPbgrvnlv/sMfYae5i9jExC360OjrUScyU3q1/m2A0xFWIrq4Jt
SXLAyAXrmznWQgyHWM6VmWM3xGSIzYDJ8nz1Eue6PZv5bCpnijlbPAOfPPKZ
Vc6uImOQNXzj44LtwcGFT7V/bhuKtU5uILYVNjm2OZgUuZrPZbbtwATBgp/P
LFuRseQyNMycS4FOQV+Tk3mU2ndNnKu5d277hbUHlvVSZuwMDI1cqZGZY7XE
+In1Xxjbt8Jfwm96JvNZac5o4b9inzfgXavuXbVdlTk2CEYBVvF0Zl8Mnwz/
dmbm3AhyWshtuTpzLJCYIrFFcjLbsTcT52qC8e8qfuvE2H8anEuBzTuvsGfx
xYnnbBS/Lng8ObLkyq4PzpUlBkMs5sbMsUNihMQKseH5nvi82Padi/fZI3Gu
DDbj7MT5X9iS12e2/ckpILeAPcHewB78rtC33Atn/smNxt7AdsRHIL64Nvh7
kLNL7i724eap7RVyXb5Qe/PIObV8L3QOuof8lX1Efx7sC/F9yM3FXsP25XzG
FWobmvh8w7uscdE3Bp/lGM2ZHGyNzL4RMVhisfhUrHe+Id9yWPDZ6NvV//Vg
H2qzyD49vtXqwvfpW9h6Xwbn/pJTy/dCX6G7OOPG2YqvgnNtybEl15YcB/Zf
w8T3z98m+EV9Pyn7bxTUrDqmTCyZOuQ9uWXbotNEv6D5x0fOsSHXhhwXrr9d
4tyXJzKf5eRvQoC3gNGB1eHTtwjWf8Qiv1VZLvrxzH87gr/ZgH+KT4E99HVk
/IiYU2PR2ySOReEbNMDWUPkksf4j946Y6NaZcxxYX1slzn24LXOsihwI+Gns
kchnTsFriAmiHw9MvD7xkfCVyMnro/sdlTn2RcyL9Y+OQ9eRI7dG9GOZ8ST+
BgN/i4GcVfzjPRPLrw2FLT4wta3+YeL80noqi/D7MtvuxOSIzY3OHPsj5sbz
4o8Tm2DPNcntLxInJV76D7pFpVnkmCGxQ/xd4qTYIBz82LTQR/snXu9gzGDN
xASxz/AR8ZVWo0My58jir++VWD4TUyG20qqQf+S8o58PSLy/88L+2C+xviFG
x3rbPnHsDn1ILuOX2E+ZbQh8B3K/sC2ezOy78jcKwBOxH8gFPF91u2X2UfXv
v5gDvis5L8Ryd0usz6Zn/tsG4KHgq4MzY7OckeO8CzkW5FpUEufikWOOPGqS
eD8QMyB2cFJh396S+XuRs0Luyq7ic96lyurMPj33+2ZiX//mzLkt5EyQO4FP
iW+Jz4D/OSyz/CRngtyJEeJ3i3xmnrPzYNZg18Rk8J/Q7/hi+NzEJ27KfLae
M/icxSdmROyoX2J9AaYBNsE359tfIf7wkvcI8ZjemXMtWXPEbz6p+G9s8Lc1
OFM8PPP+4kx+28JewffD5/1DdJvMsg+f9ufMe5K9OSExngMm+qX4sYnxIPCb
zyPb/1tk9uGwNw9KfFZxy8z+FWMYe13m3DBy0shN2y849+0q3eOr+CrBuX7I
VPB1MBKwHPYAe4Gcx9mxc5zJhSzlxlKIGRA7wCbBNvlMdR9mzl3ibwBw9p8c
pnLu2AIxCWITldyxCWIGxA7A7MDuiGmSLwrmzlpjzRH/rVN1jh25dZzbIAfh
n6ppchOq6j8hsg+CL7JJ1X9zgL81sFBly9yxN2KKxBbbF/bLWYnlK2frf1T/
RWWfSyAGhq8Fpkk+YrtCv5+R2P4AkwSbBMPkrATyFCx+UmLsBowTWx+bn9gE
+Qzg/eDB4MJHF/bFmYntA2wgbCHOS/ygtqXB+4kcJs4+8LeA1uv+FpT9N4GI
MRBruCZybi5n9fnbQTwrZ/Y7FvbTO4lt/9bF/u2c2J4CcwV7BZPlLMdn+FCR
zxBwlmBlcC4AOWrYexyeGlXYY8Rq/wxeC2CyYLNb5I79EnMm9rx57v1CTJjY
cO3csWhioMRCWxT6qGNi+3Gz3LFYYkTEimrkjhURgyUWC75ArJgzFeABWe7Y
FTE4YnEh93olxk2sG3/oiNT4EfY/f7MHPOKIxPrjC72jWuq7oewzrMSciD21
Tpwv0rLQrycmtmcfyZxLCyaF/VMzd2yYmDGx47cr/psK/C0F/obEP8GxOmKA
xAIfzIyVBo3/NnMMhVgKMSZyoYlZELu4NnJu9R/B2CV7jr33d3DskBggscB/
g2OLxAiJFf6FTI0cYyTWGOf2xfG58b3fqfhv+PC3e/ibFfgV+BfEHLAJa+WO
fRPjJtad5o7lEiMkVpjk9t2J8RLrRaegW3gn65HdVf8NEf52CGt0RXBuLjkl
6CdwVGw/5ANyAux0bWRM8svE/hrfqlnh300q9BdnEogf4sPiyxIzInZEzgi5
I+REcT7q0+DcMHLE0D/4xC8l1nHoulkqD0fOcSfXHXyX3GowN+xRciY4s8oZ
J3Ipnsq8F/Eh6gTHk9GV5NATb56f2RcAc/sFLC43/R+mgewq9Ac5CNjX5JiQ
a8KZIvLpJyaW72COYGDfBOtbck6R3/wtro26n8/K/ptc/E0dcl/3SXyenng2
sp8zGsSr8ZfBDvco/HPO6Lfh/SY+b49Nj23PO929sD/Idd078fl7sGZsEzBd
MLIhmXOXyXEk13HzqnMkyY3knsDsuG/uv2nueC/fqlFqPID4PO+qYWr//q7E
uggMc2XinCj0+Y6J7TFyYJE3tRLLu9pV50yTK7287L+Vwxlizg5z7oMcXezN
Rolzd7G38ed2SpxrDL5Jnh85OcT7iMkRmwNzJv7CGSnWZ83E8m6zqnPEyQ1H
BxDjJdbL31fjbA/2G3/PYHJi7P/azLG/91RezZyDjT25S+LcbM5rkUtNzLlD
6pxl7NudE+cy87ddNuh6H5X9N17IQcP+2DaxfXln8b3JSeb5OB9GfiPxR3I7
iengH9VJHOshljCP51f7EtE1qs5BJveYa9wQGxtmzTYoMFC+M9+b+P0Hmfcm
mEIl8xkQ/NeeifcL56HJpSOGSyx3ucbsHjkHH39kK9XtU/KeXiq6Fbm8VX87
zgn9H8vMKtA=
            "]], Polygon3DBox[CompressedData["
1:eJwt13m8ztUWx/FfOFNIGcpUhlKmImRMIhQZcwyRMTdlThEZc6MMDULSSZQG
Y4bQJN3qNrwaJA23KJRblJDQlcR9L7/+WOfZ67O/a+397Gfvtfep0G/YDUPz
JUnyFctgpc5MkrzMJHmC9eYXz06S57QPabcskCSD8idJhawkOZCTJFfhywXd
rm8PXX6xt2LbsWewLthWdrX2FGyWvs/4w8VfbtAn5LtXvh78AmIH699Jt5T+
JroMbAi2C1uG9cCyseHYbmwl1hs7bi7dsY+wOTFP7E9W/Iwk+RmvI38uzVrt
4/rvM+4U4/bCD+HX4S+LnaivtrhMYwzFvsOWYz2xwtgYbD/2MnYbVgQbix3E
XsUGYcWwSdgR7F/Y7dhZ2N3YAewVbCBWFJuIHcbewIZjeebyh/YM85rJrqAp
zu6hO0r3pr4RdBNYgt2EFdT8jLYFNkW7hnbNWF9xo7BjNG2Zr5t8hBfCR4r9
CXsR+wfNRHYG1gsrhH1Odw7dBOw3bBM2jOZI5NWe4HMiq0NzGSupXYq1st4V
6bJ8j1qxd8QneJUz0/WKdRuNfcouxgrS/Ygt4J9Ldyl2NhvH/9W4r+kbLG4s
+4t/Eq9kjIycdD4xr/HYF6yyuLV/r8HrtO9GDv4Cdgu2GMs2RrXYt6wXtoum
BNaE/1F2OufRdA/hH8f3kHOY9vfYCn29sEksH9YHK4x9Ib4WXSOfV0Yu8xsa
+yA7HaMh7Vx2XqwTm6f9WGbaF5rN7GvtyWLvZY+aS1GsJ9aAbnasjbhT+M3x
XY37pL4ONFNZDjYj8mPfiB+HnaSZiglJPsXyiR/A34YvxjrH743dgn2NPY3l
xp7C+mNfYgu5HeMcSdIj1gObi12LlaCbjP2OvYXdEWPS9cM+xxZg7bETWB9s
K5aHtcPGRE5+p4zTWzj5xPwukW9r1Aa2ERtCM56doumecXpayVa6ShqbaT5h
L2B9Yl8Yo2/E0j2BtcXujrH5nTNOb79kiz+jo07wO2akdW4zliPfCLE/Aqux
fjRnYndge7A12M1YQexObC+2FuuP3cX+4LdnyknysXz/jNpBdwNWDNuGHTG/
ttgm7C97Ywy/nHyrsG76f8LKRo2NuihmWdSXmBO/nP5rJK/s8F5PV57/YHZ6
BkfR3cV/WL6XWL6oy9hB+nX88ewMNfYrbEssdJw1dlnsqZg3VECu37Fc7B3s
AexqbA9WA5uDdYh7AduNVcZmYtdhJ4z9LVYiMz0zcXbeo7uHlY11w6bpe5P/
Pd0lsU+xa/X9Jfa/WBXsAawVdhJ7PdYV24EtwW7l/0BXFXsQa42donsNO9f3
rY/VjZrK/x/rTPcu/0G6JmJ3YGWwCVgD7GDUxqhZUWuy0lpRguYoa0f3Rpwb
rL7Yx/Uvs5YtjTPYOubxO9Jd5PMH2gFxBvm72Pn8SWIbYb/qr2qMs3wWzkrX
5ajP1fE7ybNdzuNyruK/apzeYv8tdiZdG361qIH0RbLSezN/7DP2Id0HdLOx
41ETxZ+yJz7EPtZ3ErtWTCZ2qfy5MXf+Trqy+ifSNRR7INY57hm6aXTV6Dby
n4x11X4TG2ueC/nf4RXFThXbVOzv2DGsC/Ze1EmsadRcdmHcidiI2KM0+1kj
uqew2saqEt+frluccexe+ub87XgR7HasGrZb/GH8/cy0jsdvdIS/gXXCXsIm
YFfxvxF7NjYCq459L/YFvCW2FBuG1Yx6kJOevTiDH+g7hq1kLbSXYEPj3uT/
RtcKewWbhNXC9mK1o2ZHPcEKxpzZU9g8LDfqbtRwthB7NGpbnH3+CtYcex4b
gl0Wv6V8XbH3sYexZthhrDX2KnYPVifW03cZ7rdo7Tc5iq2MOxNr73tUx0ew
SvxBYrdh7eLNEOdY7Iusg/Y6+caKbcR/Je4j7G1sBnZ91M6o5WLnGeNh+cbF
Wyj2i1y7aWvpa8VfGWfLnmhA8w7tCv46sR1p1ss3Tr4r+dvw/Fh/7HzsP/Lc
hz0rbpa4QvIdpFvD2tCtohtFV4+/nt2AbcDGY435q2JPZ6Y1MWrj5fzl7Jqo
G3IPxi7lLzXGCPNrE+fKOEv4q/Hr454QO5KuLv9+/Hma2TRFzOU3rLrzVkyu
OfHOpMuO84w9z+8cZ52uNF37OAtRtzLT90Q7fqeoTdjbWDbdL3Qb2aB44xj3
cbru/D50HY3Z2Ng7sb78X1i9eGfT3YidFe+juPext7DpWGv+HLpJcbdgTbC5
/Lx4q9BNx1pGaecPwBuYwx68Of0t/Pl4Tf79dM3jKRZ1Le4PbBrWIr4vf0a8
UTPTmh21+zvxj4gfm5XeM3HfzOZPYHf5HrPyp3fLRP6yqNn6V8dbQI59/H14
Xe08rJu+wtgF8RaN/S5nU1bbGm+i22zOzeL8yvsG/1G6i8SOjdpO/0fckXgd
bD7WJZ4pNFWz0xq8Keo2u0i+g3RNtFdEHdK3l2ZL7MuoU/L3Ne86NE9jjeP9
LPdB49+BXSB+OdYV24OVoany99txY9QidmHsC+xq7df+3gehmccq8ccZt17U
Zzkewy7GxmP1sT+xktguuTtqL9ZXWr5ScbdinbBnsDLx3jefMeY723wLWOfJ
OekejL2YS/csXVm6uVEntO82xhXGOBbj0t7vswPbQT+f/zO7gu5xuq50hcQt
1r/LGE2NMcAYz0T9xwfSbaGbT3cjfzorjPXFysSbmW4yloF1wIpiX2P1jdHC
eLOwc/j1+I/QlaIbhlWh+wWfhZXEhmKVsX2xF2h7mkdj8/kce5dmCX4ePx/d
D+a3lL+W7kPtvfh2+uXxfwZrGmvK78Iuj/spzhb9CeN00teVXz4nrZ2V473J
asQbLO5quRrG/2D6XuA3pivuc1FG+ka/kn8b+1J/m3gzxH4zv0VRG4yXLf4d
c3qOv4B9GkzsPmx5vM9ozxMzBLtEvp+x2VhpbDhWFduP/RrfA1uD/Wms0fE7
xtsT64mVottBdyd+SH9v7Q36KsT/VtoLjTvDXE7QrccHxT1KVxtfxAbyh7Cj
WB3+0/Gu4U8zRiH63sYoLXZn/B+CZWG5WHFse9TxeBtjPbCS2LdZ6bmJ89NT
e52+8uYyJ96t2iPpatId1vcQdi42GLsY+yn+txXbzHw750/3TV3+A3TF6G6l
q0i3h25kTvo9+mi/pK+iMWbSFY03GF0Fuh/1DWV58tWQr5y1H8YfKPYrsW21
p8fdJ+7/YP8hSw==
            "]]},
          Annotation[#, "Charting`Private`Tag$2706848#1"]& ]],
        Lighting->"Neutral"]}, {}, {}, {}, {}}, {
      {GrayLevel[0], 
       Line3DBox[{468, 1, 440, 200, 1995, 15, 2007, 29, 2019, 43, 2031, 57, 
        2045, 71, 2059, 85, 2270, 237, 482, 755, 1296},
        VertexColors->None], Line3DBox[{1357, 2, 1753, 291, 468},
        VertexColors->None], Line3DBox[{1359, 3, 1357},
        VertexColors->None], Line3DBox[{1361, 4, 1359},
        VertexColors->None], Line3DBox[{1363, 5, 1361},
        VertexColors->None], Line3DBox[{1365, 6, 1363},
        VertexColors->None], Line3DBox[{1367, 7, 1365},
        VertexColors->None], Line3DBox[{205, 8, 1890, 521, 203, 424, 1101},
        VertexColors->None], Line3DBox[{1370, 9, 1671, 205},
        VertexColors->None], Line3DBox[{1372, 10, 1370},
        VertexColors->None], Line3DBox[{1374, 11, 1372},
        VertexColors->None], Line3DBox[{1376, 12, 1374},
        VertexColors->None], Line3DBox[{1378, 13, 1376},
        VertexColors->None], Line3DBox[{469, 14, 461, 294, 1378},
        VertexColors->None], Line3DBox[{2017, 28, 2242, 207, 469},
        VertexColors->None], Line3DBox[{2029, 42, 2017},
        VertexColors->None], Line3DBox[{2043, 56, 2029},
        VertexColors->None], Line3DBox[{2057, 70, 2043},
        VertexColors->None], Line3DBox[{2071, 84, 2057},
        VertexColors->None], Line3DBox[{2084, 98, 305, 2071},
        VertexColors->None], 
       Line3DBox[{2085, 99, 266, 2087, 113, 2099, 127, 2112, 141, 2126, 155, 
        2140, 169, 2306, 282, 515, 183, 466, 318, 1516, 184, 1517, 185, 1518, 
        186, 1519, 187, 1520, 188, 1748, 285, 189, 1891, 529, 287, 518, 757, 
        1299},
        VertexColors->None], Line3DBox[{2097, 112, 2285, 265, 434, 1103},
        VertexColors->None], Line3DBox[{2110, 126, 2097},
        VertexColors->None], Line3DBox[{2124, 140, 2110},
        VertexColors->None], Line3DBox[{2138, 154, 2124},
        VertexColors->None], Line3DBox[{2152, 168, 2138},
        VertexColors->None], 
       Line3DBox[{1521, 190, 1522, 191, 1523, 192, 1524, 193, 1525, 194, 1526,
         195, 1752, 290, 519, 196, 467, 320, 2165, 182, 2152},
        VertexColors->None], Line3DBox[{450, 254, 503, 2084},
        VertexColors->None], Line3DBox[{526, 257, 504, 2085},
        VertexColors->None], Line3DBox[{530, 288, 1521},
        VertexColors->None], Line3DBox[{460, 292, 1367},
        VertexColors->None], Line3DBox[{450, 679, 1005},
        VertexColors->None], Line3DBox[{460, 680, 1006},
        VertexColors->None], Line3DBox[{526, 918},
        VertexColors->None], Line3DBox[{530, 919},
        VertexColors->None]}, {}, 
      {GrayLevel[0.2], 
       Line3DBox[{1995, 2238, 1527, 1994, 2614, 2166, 1996, 2615, 2167, 1997, 
        2616, 2168, 1998, 2617, 2169, 1999, 2618, 2170, 2000, 2743, 2239, 
        2409, 2435, 2463, 598, 2511},
        VertexColors->None], 
       Line3DBox[{2007, 2522, 2674, 2006, 1540, 2008, 2624, 2178, 2009, 2625, 
        2179, 2010, 2626, 2180, 2011, 2786, 2446, 2181, 2447, 2787, 2243, 
        2410, 532, 721, 1262},
        VertexColors->None], 
       Line3DBox[{2017, 2187, 2632, 2016, 2186, 2631, 2015, 2185, 2630, 2014, 
        2184, 2629, 2013, 2183, 2628, 2012, 2182, 2627, 2244, 2310, 2772, 342,
         2327, 364, 1149},
        VertexColors->None], 
       Line3DBox[{2019, 2523, 2675, 2018, 2524, 2676, 2020, 1553, 2021, 2633, 
        2188, 2022, 2634, 2189, 2023, 2788, 2448, 2190, 2449, 2789, 2245, 
        2411, 2436, 2441, 2485, 2487, 2484, 2509},
        VertexColors->None], 
       Line3DBox[{2029, 2195, 2639, 2028, 2194, 2638, 2027, 2193, 2637, 2026, 
        2192, 2636, 2025, 2191, 2635, 2024, 2746, 2525, 2247, 2311, 2601, 
        2745, 2344, 2328, 2246, 2355, 2498},
        VertexColors->None], 
       Line3DBox[{2031, 2526, 2677, 2030, 2527, 2678, 2032, 2528, 2679, 2033, 
        1566, 2034, 2640, 2196, 2035, 2790, 2450, 2451, 2036, 2612, 2747, 
        2248, 2412, 2249, 2442, 2478, 2488, 2518},
        VertexColors->None], 
       Line3DBox[{2043, 2200, 2644, 2042, 2199, 2643, 2041, 2198, 2642, 2040, 
        2197, 2641, 2039, 2680, 2529, 2038, 2748, 2253, 2252, 2037, 2602, 
        2775, 2251, 2329, 2250, 2496},
        VertexColors->None], 
       Line3DBox[{2045, 2530, 2681, 2044, 2531, 2682, 2046, 2532, 2683, 2047, 
        2533, 2684, 2048, 1579, 2049, 2791, 2452, 2453, 2050, 2792, 2454, 
        2254, 2413, 2255, 2443, 2414, 2480, 2479, 2514},
        VertexColors->None], 
       Line3DBox[{2057, 2203, 2647, 2056, 2202, 2646, 2055, 2201, 2645, 2054, 
        2686, 2535, 2053, 2685, 2534, 2052, 2749, 2259, 2258, 2051, 2603, 
        2776, 2257, 2330, 2256, 2356, 2503},
        VertexColors->None], 
       Line3DBox[{2059, 2536, 2687, 2058, 2537, 2688, 2060, 2538, 2689, 2061, 
        2539, 2690, 2062, 2540, 2691, 2063, 1925, 2455, 2064, 2793, 2456, 
        2457, 2415, 2417, 2464, 2416, 2481, 2515},
        VertexColors->None], 
       Line3DBox[{2071, 2268, 2267, 2751, 2070, 2266, 2265, 2750, 2069, 2264, 
        2695, 2585, 2068, 2263, 2694, 2584, 2067, 2583, 2693, 2262, 2066, 
        2582, 2692, 2260, 2065, 2766, 2359, 2360, 2331, 2358, 2357, 2501},
        VertexColors->None], 
       Line3DBox[{2084, 2396, 2397, 2317, 2377, 2376, 2779, 2083, 2374, 2375, 
        2316, 2373, 2768, 2606, 2082, 2371, 2372, 2315, 2605, 2767, 2370, 
        2081, 2368, 2369, 2314, 2778, 2367, 2366, 2080, 2364, 2365, 2702, 
        2313, 2363, 2362, 2079, 2361, 2777, 2604, 2312, 2404, 2403, 2078, 
        2611, 2784, 2402, 2261, 2401, 2400, 2502},
        VertexColors->None], 
       Line3DBox[{2085, 2398, 2399, 2318, 2345, 2541, 2773, 2332, 2378, 2379, 
        2319, 2346, 2769, 2204, 2333, 2380, 2381, 2320, 2774, 2347, 2205, 
        2334, 2382, 2383, 2648, 2321, 2348, 2206, 2335, 2384, 2385, 2649, 
        2322, 2349, 2207, 2336, 2607, 2780, 2386, 2323, 2405, 2208, 2282, 
        2754, 2406, 2407, 2324, 2408, 2465, 2494, 2495, 2521},
        VertexColors->None], 
       Line3DBox[{2087, 2279, 2542, 2752, 2086, 2280, 2543, 2753, 2088, 2281, 
        2653, 2215, 2089, 2595, 2654, 2216, 2090, 2596, 2655, 2217, 2091, 
        2755, 2283, 2218, 2286, 2756, 2387, 2284, 2337, 2350, 2468, 2351, 
        2486, 2517},
        VertexColors->None], 
       Line3DBox[{2097, 2223, 2660, 2096, 2222, 2659, 2095, 2221, 2658, 2094, 
        2220, 2657, 2093, 2219, 2656, 2460, 2461, 1602, 2458, 2092, 2757, 
        2544, 2424, 2287, 2439, 2499},
        VertexColors->None], 
       Line3DBox[{2099, 2545, 2703, 2098, 2546, 2704, 2100, 2547, 2705, 2101, 
        2661, 2224, 2102, 2662, 2225, 2103, 2758, 2288, 2226, 2325, 2608, 
        2781, 2289, 2338, 2352, 2469, 2473, 2472, 2510},
        VertexColors->None], 
       Line3DBox[{2110, 2230, 2666, 2109, 2229, 2665, 2108, 2228, 2664, 2107, 
        2227, 2663, 2106, 1615, 2105, 2706, 2549, 2104, 2759, 2548, 2425, 
        2290, 2440, 2500},
        VertexColors->None], 
       Line3DBox[{2112, 2550, 2707, 2111, 2551, 2708, 2113, 2552, 2709, 2114, 
        2553, 2710, 2115, 2667, 2231, 2116, 2760, 2291, 2292, 2117, 2609, 
        2761, 2293, 2339, 2294, 2470, 2474, 2512},
        VertexColors->None], 
       Line3DBox[{2124, 2234, 2670, 2123, 2233, 2669, 2122, 2232, 2668, 2121, 
        1628, 2120, 2712, 2555, 2119, 2711, 2554, 2118, 2762, 2296, 2426, 
        2295, 2497},
        VertexColors->None], 
       Line3DBox[{2126, 2556, 2713, 2125, 2557, 2714, 2127, 2558, 2715, 2128, 
        2559, 2716, 2129, 2560, 2717, 2130, 2763, 2297, 2298, 2131, 2782, 
        2388, 2299, 2340, 2300, 2471, 2389, 2482, 2475, 2513},
        VertexColors->None], 
       Line3DBox[{2138, 2236, 2672, 2137, 2235, 2671, 2136, 1641, 2135, 2720, 
        2563, 2134, 2719, 2562, 2133, 2718, 2561, 2132, 2764, 2302, 2427, 
        2301, 2428, 2504},
        VertexColors->None], 
       Line3DBox[{2140, 2564, 2721, 2139, 2565, 2722, 2141, 2566, 2723, 2142, 
        2567, 2724, 2143, 2568, 2725, 2144, 2597, 2726, 2303, 2145, 2783, 
        2390, 2391, 2341, 2393, 2466, 2392, 2483, 2516},
        VertexColors->None], 
       Line3DBox[{2152, 2237, 2673, 2151, 1654, 2150, 2730, 2572, 2149, 2729, 
        2571, 2148, 2728, 2570, 2147, 2727, 2569, 2146, 2765, 2304, 2429, 
        2431, 2430, 2505},
        VertexColors->None], 
       Line3DBox[{2165, 2308, 1750, 2164, 2742, 2581, 2163, 2741, 2580, 2162, 
        2740, 2579, 2161, 2739, 2578, 2160, 2738, 2577, 2159, 2600, 2737, 
        2432, 2434, 2433, 2506},
        VertexColors->None], 
       Line3DBox[{2242, 2177, 2241, 2744, 2005, 2176, 2623, 2004, 2175, 2622, 
        2003, 2174, 2621, 2002, 2173, 2620, 2001, 2172, 2619, 2240, 2309, 
        2171, 2770, 2343, 2326, 2354, 2353, 2508},
        VertexColors->None], 
       Line3DBox[{2270, 2269, 2696, 2586, 2072, 2271, 2697, 2587, 2073, 2272, 
        2698, 2588, 2074, 2589, 2699, 2273, 2075, 2590, 2700, 2274, 2076, 
        2591, 2701, 2275, 2077, 1853, 2437, 2444, 2445, 2490, 2491, 2489, 
        2519},
        VertexColors->None], 
       Line3DBox[{2285, 2214, 2278, 2785, 2422, 2213, 2652, 2594, 2421, 2212, 
        2651, 2593, 2420, 2211, 2650, 2592, 2419, 2210, 2795, 2462, 2277, 
        2418, 2209, 2794, 2613, 2459, 2276, 2438, 1596, 2423, 2493, 2492, 
        2520},
        VertexColors->None], 
       Line3DBox[{2306, 2305, 2731, 2598, 2153, 2573, 2732, 2154, 2574, 2733, 
        2155, 2575, 2734, 2156, 2576, 2735, 2157, 2599, 2736, 2307, 2158, 
        2610, 2771, 2394, 2342, 2395, 2467, 2477, 2476, 2507},
        VertexColors->None]}, 
      {GrayLevel[0.2], 
       Line3DBox[{1357, 1528, 2614, 1358, 1540, 1381, 2676, 1552, 1394, 2678, 
        1564, 1407, 2682, 1576, 1420, 2688, 1588, 1433, 2697, 1700, 1875, 484,
         778, 1322},
        VertexColors->None], 
       Line3DBox[{1359, 1529, 2615, 1360, 1541, 2624, 1382, 1553, 1395, 2679, 
        1565, 1408, 2683, 1577, 1421, 2689, 1589, 1434, 2698, 1701, 1876, 
        1878, 1937, 1956, 1955, 1991},
        VertexColors->None], 
       Line3DBox[{1361, 1530, 2616, 1362, 1542, 2625, 1383, 1554, 2633, 1396, 
        1566, 1409, 2684, 1578, 1422, 2690, 1590, 1435, 2699, 1703, 1877, 
        1704, 1938, 1959, 1992},
        VertexColors->None], 
       Line3DBox[{1363, 1531, 2617, 1364, 1543, 2626, 1384, 1555, 2634, 1397, 
        1567, 2640, 1410, 1579, 1423, 2691, 1591, 1436, 2700, 1707, 1879, 
        1708, 1939, 1893, 1961, 1960, 1979},
        VertexColors->None], 
       Line3DBox[{1365, 1532, 2618, 1366, 1905, 2786, 1906, 1385, 1910, 2788, 
        1911, 1398, 1915, 2790, 1916, 1411, 1920, 2791, 1921, 1424, 1925, 
        1926, 1437, 2701, 1711, 1880, 1895, 1957, 1894, 1962, 1980},
        VertexColors->None], 
       Line3DBox[{1367, 1668, 2743, 1669, 1868, 1908, 1909, 1907, 2787, 1674, 
        1869, 1913, 1914, 1912, 2789, 1676, 1870, 1918, 1919, 2747, 1917, 
        1678, 1871, 1923, 2792, 1924, 1922, 1680, 1872, 1928, 2793, 1929, 
        1927, 1682, 1892, 1853, 1881, 1953, 1958, 1952, 1990},
        VertexColors->None], 
       Line3DBox[{1370, 1535, 2620, 1371, 1546, 2628, 1388, 1558, 2635, 1401, 
        2680, 1570, 1414, 2685, 1582, 1427, 2693, 1685, 1594, 1440, 1812, 
        2702, 1686, 1774, 1797, 1941, 1947, 1946, 1987},
        VertexColors->None], 
       Line3DBox[{1372, 1536, 2621, 1373, 1547, 2629, 1389, 1559, 2636, 1402, 
        1571, 2641, 1415, 2686, 1583, 1428, 2694, 1687, 1688, 1760, 1813, 
        2778, 1689, 1775, 1690, 1942, 1948, 1988},
        VertexColors->None], 
       Line3DBox[{1374, 1537, 2622, 1375, 1548, 2630, 1390, 1560, 2637, 1403, 
        1572, 2642, 1416, 1584, 2645, 1429, 2695, 1691, 1692, 1761, 2767, 
        1814, 1693, 1776, 1694, 1943, 1815, 1963, 1949, 1983},
        VertexColors->None], 
       Line3DBox[{1376, 1538, 2623, 1377, 1549, 2631, 1391, 1561, 2638, 1404, 
        1573, 2643, 1417, 1585, 2646, 1430, 1695, 2750, 1696, 1762, 2768, 
        1816, 1817, 1777, 1819, 1944, 1818, 1964, 1971},
        VertexColors->None], 
       Line3DBox[{1378, 1672, 2744, 1673, 1379, 1550, 2632, 1392, 1562, 2639, 
        1405, 1574, 2644, 1418, 1586, 2647, 1431, 1697, 2751, 1698, 1763, 
        1820, 2779, 1821, 1778, 1822, 1945, 1951, 1950, 1989},
        VertexColors->None], 
       Line3DBox[{1516, 1656, 1745, 2731, 1503, 1644, 2721, 1490, 1632, 2713, 
        1477, 1620, 2707, 1464, 1608, 2703, 1451, 1598, 2752, 1721, 1441, 
        1595, 2773, 1798, 1779, 1824, 1823, 1972},
        VertexColors->None], 
       Line3DBox[{1517, 1657, 2732, 1504, 1645, 2722, 1491, 1633, 2714, 1478, 
        1621, 2708, 1465, 1609, 2704, 1452, 1599, 2753, 1722, 1442, 2769, 352,
         1780, 393, 1119},
        VertexColors->None], 
       Line3DBox[{1518, 1658, 2733, 1505, 1646, 2723, 1492, 1634, 2715, 1479, 
        1622, 2709, 1466, 1610, 2705, 1453, 2653, 1600, 1723, 1443, 1800, 
        2774, 1799, 1781, 1702, 1825, 1976},
        VertexColors->None], 
       Line3DBox[{1519, 1659, 2734, 1506, 1647, 2724, 1493, 1635, 2716, 1480, 
        1623, 2710, 1467, 2661, 1611, 1454, 2654, 1725, 1724, 1764, 1826, 
        2648, 1706, 1782, 1705, 1973},
        VertexColors->None], 
       Line3DBox[{1520, 1660, 2735, 1507, 1648, 2725, 1494, 1636, 2717, 1481, 
        2667, 1624, 1468, 2662, 1612, 1455, 2655, 1727, 1726, 1765, 1828, 
        2649, 1710, 1783, 1709, 1827, 1968},
        VertexColors->None], 
       Line3DBox[{1521, 1661, 1749, 2737, 1509, 1649, 2765, 1744, 1496, 1637, 
        2764, 1741, 1483, 1625, 2762, 1738, 1470, 1613, 2759, 1735, 1457, 
        1601, 2757, 1732, 1444, 1596, 1896, 1903, 1902, 1986},
        VertexColors->None], 
       Line3DBox[{1522, 1662, 2738, 1510, 1650, 2727, 1497, 1638, 2718, 1484, 
        1626, 2711, 1471, 1614, 2706, 1458, 1602, 1934, 1930, 1935, 1445, 
        2794, 1932, 1931, 1882, 1713, 1904, 1883, 1977},
        VertexColors->None], 
       Line3DBox[{1523, 1663, 2739, 1511, 1651, 2728, 1498, 1639, 2719, 1485, 
        1627, 2712, 1472, 1615, 1459, 2656, 1603, 1933, 1446, 2795, 1597, 
        1884, 1714, 1886, 1978},
        VertexColors->None], 
       Line3DBox[{1524, 1664, 2740, 1512, 1652, 2729, 1499, 1640, 2720, 1486, 
        1628, 1473, 2663, 1616, 1460, 2657, 1604, 1447, 2650, 1716, 1885, 
        1715, 1982},
        VertexColors->None], 
       Line3DBox[{1525, 1665, 2741, 1513, 1653, 2730, 1500, 1641, 1487, 2668, 
        1629, 1474, 2664, 1617, 1461, 2658, 1605, 1448, 2651, 1718, 1887, 
        1717, 1897, 1970},
        VertexColors->None], 
       Line3DBox[{1526, 1666, 2742, 1514, 1654, 1501, 2671, 1642, 1488, 2669, 
        1630, 1475, 2665, 1618, 1462, 2659, 1606, 1449, 2652, 1719, 1888, 
        1899, 1898, 1984},
        VertexColors->None], 
       Line3DBox[{1671, 1670, 1534, 2619, 1369, 1675, 1545, 2627, 1387, 1677, 
        2746, 1557, 1400, 1679, 2748, 1569, 1413, 1681, 2749, 1581, 1426, 
        2692, 1683, 1593, 1439, 2777, 1811, 1684, 1773, 1795, 1940, 1796, 
        1965, 1969},
        VertexColors->None], 
       Line3DBox[{1748, 1747, 1746, 2736, 1508, 1743, 1742, 2726, 1495, 1740, 
        2763, 1739, 1482, 1737, 2760, 1736, 1469, 1734, 2758, 1733, 1456, 
        1730, 2755, 1729, 1766, 2780, 1831, 1832, 1784, 1830, 1829, 1981},
        VertexColors->None], 
       Line3DBox[{1752, 1751, 1750, 1515, 2673, 1655, 1502, 2672, 1643, 1489, 
        2670, 1631, 1476, 2666, 1619, 1463, 2660, 1607, 1450, 1720, 2785, 
        1889, 1901, 1900, 1985},
        VertexColors->None], 
       Line3DBox[{1753, 1667, 1527, 1356, 2674, 1539, 1380, 2675, 1551, 1393, 
        2677, 1563, 1406, 2681, 1575, 1419, 2687, 1587, 1432, 2696, 1699, 
        1873, 1874, 1954, 758, 1975},
        VertexColors->None], 
       Line3DBox[{1890, 1854, 1855, 1754, 1790, 1533, 2770, 1368, 1801, 1802, 
        1755, 1791, 2772, 1544, 1386, 1803, 1804, 1756, 2745, 1792, 1556, 
        1399, 1805, 1806, 2775, 1757, 1793, 1568, 1412, 1807, 1808, 2776, 
        1758, 1794, 1580, 1425, 1809, 2766, 1810, 1759, 1856, 1592, 1438, 
        2784, 1857, 1858, 1712, 1859, 1936, 1966, 1967, 1993},
        VertexColors->None], 
       Line3DBox[{1891, 1864, 1865, 1772, 1852, 1851, 2771, 1789, 1849, 1850, 
        1771, 1848, 2783, 1847, 1788, 1845, 1846, 1770, 1844, 2782, 1843, 
        1787, 1841, 1842, 1769, 2761, 1840, 1839, 1786, 1837, 1838, 2781, 
        1768, 1836, 1835, 1785, 1833, 2756, 1834, 1731, 1867, 1866, 1767, 
        1860, 2754, 1861, 1728, 1863, 1862, 1974},
        VertexColors->None]}, {}, {}}},
    VertexColors->CompressedData["
1:eJztmbFOFVEURSfSURt6EhMKeivNtJTETzBYE3u+gcSSwobKwoQPgOJ1WNhL
ozGhEiq+APkF4wxn7XtWRbLyMty7ztnnzrtv9/3xuw8vpmm6356mrae/d9/f
vjo5vp/Pz/Z+vPy2ma+PPj5++rOZafzh4OrN5/1f8+uLu687N5fz7ePpl8Of
v3Gc5k2f+tSnPmne9KnPRJ8pnFbf9LrTvOlTn/rUJ82bPvX5Pz5HrePafnyO
fA3PS+Uu/fO0OWyOmPPH5zDrTsupXE7Oi1wul8vlcrl82feutd/Hqu551l4P
zQ+t3+TMPNLWT/udSC4n8LXzmM6r5hJtDtPmvFwul8uZ3PMly0+6z1E9y+Vy
Pne+ee8nl4+aX5o3eU9OywUtdyn5TfFJ85OyzpQ6LvW7zKh+uvVVuucUD+me
af7lcrmcNrdTOO0ckT/P+Utbv1zu+6dcLu/wPkPzlu5TLpfL0+fwUutf6vMp
3tY+v2j7kjP7KmU9tPWncNr5JWdyWt/SOK1e8p48JRe0dcrlhPlP21fV93F5
z/PC/pGTOS0XtNyNmusU/zSesq/03FXltGpupHBan3fjtH6gceulN71x/OhN
b5396E1vBK43vemN44fmjeaBxu1npgf96Ec/+qnaV7pPmn/96Ec/+tHPGD7/
9f+mf16elceq98Cq548632j9ScuFz6md5+ZCLpfL5XK5PIv7flXrWd6T2z9y
uZx23+v7gOd7hz6h3ZdW9RVtnbQ8puedlq9uHvQzhp8Ub/rUpz77eEvh1jfL
T4o3fepTn3180vzQOK1etHut9P3S1k/zTOPd5kP6vmj37Sm8as4stZ70HNHm
Xgqn5Sglp6PmndZvKeuhnQtyuVwul8vlcr8fyeVyeef7lhROq0u3e/6qexva
Oqv6au17MFpeqnKU/nxavWj5rZoPtPMx/RxPX39Kn7ivMd67aPMzndP6hFav
9PWPes7SfI7abyl5r1oPbU7SOK1etDqmzJP0/dI8e74w9+V+md5S6lK1X9q9
fbd6deO0OVPF/wKSH7mm
     "],
    VertexNormals->CompressedData["
1:eJztzqEJgFAYhdEfbW4hmAxOIJgMVkcQzK7w9rXoBjZBF/Ah5ysXTrr1ss1r
ERF7FVHGXXruMXDOOeecc84555xzzjnnnHPOOeecc84555xzzjnnnHPOOeec
c84555xzzjnnnHOekb/inHPOOeecc8455/xf3k1juzRnn8sfzjnn/ANPz+Wc
c84555xzzjnnnHPOOeeZ+CvOOeecc84555xzzjnnnHPOOeecc84555xzzjnn
nHPOOeecc84555xzzjnnnHPOOeecc84555xzzjnnnHPOOeecc84555xzzjnn
nHPOOeecc84553/3C53zJ2E=
     "]], {}},
  Axes->True,
  AxesLabel->{None, None, None},
  AxesOrigin->{Automatic, Automatic, Automatic},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGrids->None,
  FaceGridsStyle->Automatic,
  ImageSize->300,
  Lighting->"Neutral",
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "RotationControl" -> 
    "Globe"},
  PlotRange->{{0, 1}, {0, 1}, {0., 1.}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{0.5887359411763622, -2.3093188392034003`, 2.402173284854241},
  ViewVertical->{-0.1753737783496142, 0.6879042740890267, 
   0.7042952133568918}]], "Output",
 CellChangeTimes->{3.7781650335583487`*^9, 3.7781662597408237`*^9, 
  3.809659350507515*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"83ec06d0-9aa6-4e9b-83a0-d8f728250f7f"]
}, Open  ]],

Cell["Here is the true classification function for all the points.", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
  3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
  3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
  3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
  3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
  3.745594707642692*^9, 3.745594749020851*^9}, {3.7455951984040537`*^9, 
  3.745595198769042*^9}, {3.77372054966541*^9, 3.773720596926839*^9}, {
  3.773720627278757*^9, 
  3.77372064150084*^9}},ExpressionUUID->"f77130f6-5bad-4bef-aecb-\
93286d0d8498"],

Cell[BoxData[
 RowBox[{
  RowBox[{"trueclass", "[", 
   RowBox[{"{", 
    RowBox[{"x_", ",", " ", "y_"}], "}"}], "]"}], " ", ":=", " ", 
  RowBox[{"Boole", "[", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "\[LessEqual]", 
       RowBox[{"1", "/", "2"}]}], " ", "&&", " ", 
      RowBox[{"y", "\[LessEqual]", " ", 
       RowBox[{"1", "/", "2"}]}]}], " ", ")"}], "||", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "\[GreaterEqual]", " ", 
       RowBox[{"1", "/", "2"}]}], " ", "&&", " ", 
      RowBox[{"y", "\[GreaterEqual]", "  ", 
       RowBox[{"1", "/", "2"}]}]}], ")"}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"run", " ", "this"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.8096328561148977`*^9, 3.8096328599681177`*^9}, {
  3.809670269288932*^9, 3.809670276958002*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"b11c8372-1205-48a6-81ad-d53480cb4e93"],

Cell["Here is the data and its annotation:", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
  3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
  3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
  3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
  3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
  3.745594707642692*^9, 3.745594749020851*^9}, {3.7455951984040537`*^9, 
  3.745595198769042*^9}, {3.773720648354958*^9, 
  3.773720665279442*^9}},ExpressionUUID->"d4f298cf-405a-4fff-939b-\
826a74e6862c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", " ", 
   RowBox[{"RandomReal", "[", 
    RowBox[{"1", ",", 
     RowBox[{"{", 
      RowBox[{"1000", ",", "2"}], "}"}]}], "]"}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "this", " ", "redifines", " ", "the", " ", "data", " ", "variable"}], " ", 
   "*)"}], 
  RowBox[{"class", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"trueclass", "[", "#", "]"}], " ", "&"}], "/@", "data"}]}], ";", 
  " ", 
  RowBox[{"data1", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"#", "\[Rule]", " ", 
      RowBox[{"trueclass", "[", "#", "]"}]}], " ", "&"}], "/@", "data"}]}], 
  ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "run", " ", "this", " ", "to", " ", "try", " ", "create", " ", "the", " ", 
    "data", " ", "set"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.7781662769262667`*^9, 3.7781662795423717`*^9}, {
  3.8096702844341583`*^9, 3.80967034710135*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"02249c0a-da2f-4e2f-ad94-a8222f6f05bd"],

Cell["\<\
Specification of the neural network to classify:  2d input to 4 neurons, \
these feed to one output. \
\>", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
   3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
   3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
   3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
   3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
   3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
   3.745595124977663*^9}, {3.7455959850873213`*^9, 3.7455959908483343`*^9}, 
   3.746015829549378*^9, {3.773720691297339*^9, 3.773720701385709*^9}, {
   3.7781663085351*^9, 3.778166383413815*^9}, {3.778166417062088*^9, 
   3.7781664426630507`*^9}},ExpressionUUID->"15558e47-4de4-4814-a7d7-\
736a78e1dbc0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"net", " ", "=", 
  RowBox[{"NetChain", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"4", ",", "Tanh", ",", 
      StyleBox["1",
       FontColor->RGBColor[0, 0, 1]]}], "}"}], ",", 
    RowBox[{"\"\<Input\>\"", "\[Rule]", 
     StyleBox["2",
      FontColor->RGBColor[1, 0, 0]]}], ",", 
    RowBox[{"\"\<Output\>\"", "\[Rule]", " ", "\"\<Scalar\>\""}]}], "]"}], 
  " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "run", " ", "this", " ", "to", " ", "define", " ", "th", " ", "network"}], 
   " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.809670350310213*^9, 3.809670368507312*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"79898ff2-8ae1-444e-9742-75ef4cd33b95"],

Cell[BoxData[
 TagBox[
  TemplateBox[{
    RowBox[{
      StyleBox[
       TagBox["NetChain", "SummaryHead"], "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{Typeset`open = False}, 
       PanelBox[
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open = True), Appearance -> None, 
                Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> {Automatic, 24}], 
              StyleBox[
               OverlayBox[{
                 GraphicsBox[{
                   Thickness[0.014925373134328358`], {
                    GrayLevel[0.6], 
                    Thickness[0.018686567164179105`], 
                    Opacity[1.], 
                    JoinForm[{"Miter", 10.}], 
                    
                    JoinedCurveBox[{{{0, 2, 0}}}, {{{23., 91.5}, {30., 
                    91.5}}}, CurveClosed -> {0}]}, {
                    GrayLevel[0.6], 
                    Thickness[0.018686567164179105`], 
                    Opacity[1.], 
                    JoinForm[{"Miter", 10.}], 
                    
                    JoinedCurveBox[{{{0, 2, 0}}}, {{{37., 91.5}, {44., 
                    91.5}}}, CurveClosed -> {0}]}, {
                    FaceForm[{
                    GrayLevel[0.9], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{
                    15.5, 103.5}, {23.5, 103.5}, {23.5, 79.5}, {15.5, 
                    79.5}}}]}, {
                    FaceForm[{
                    GrayLevel[0.6], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}}, {{{24., 104.}, {15., 104.}, {
                    15., 79.}, {24., 79.}}, {{23., 80.}, {16., 80.}, {16., 
                    103.}, {23., 103.}}}]}, {
                    FaceForm[{
                    GrayLevel[0.9], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{
                    29.5, 103.5}, {37.5, 103.5}, {37.5, 79.5}, {29.5, 
                    79.5}}}]}, {
                    FaceForm[{
                    GrayLevel[0.6], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}}, {{{38., 104.}, {29., 104.}, {
                    29., 79.}, {38., 79.}}, {{37., 80.}, {30., 80.}, {30., 
                    103.}, {37., 103.}}}]}, {
                    FaceForm[{
                    GrayLevel[0.9], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{
                    43.5, 103.5}, {51.5, 103.5}, {51.5, 79.5}, {43.5, 
                    79.5}}}]}, {
                    FaceForm[{
                    GrayLevel[0.6], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}}, {{{52., 104.}, {43., 104.}, {
                    43., 79.}, {52., 79.}}, {{51., 80.}, {44., 80.}, {44., 
                    103.}, {51., 103.}}}]}, {
                    FaceForm[{
                    GrayLevel[0.6], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{28., 91.5}, {
                    25., 95.}, {25., 88.}}}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{42., 91.5}, {
                    39., 95.}, {39., 88.}}}]}}, ImageMargins -> 0, 
                  ImageSize -> {36, Automatic}, PlotRangePadding -> 0, 
                  BaseStyle -> GrayLevel[0.6]], 
                 StyleBox["uninitialized", 
                  RGBColor[0.66, 0, 0], FontSize -> 8, FontFamily -> "Roboto",
                   Background -> GrayLevel[1, 0.65]]}, Alignment -> {Center, 
                  Scaled[0.0001]}], CacheGraphics -> False], 
              GridBox[{{
                 StyleBox[
                  TemplateBox[{
                    TemplateBox[{
                    StyleBox["\"Input\"", 
                    GrayLevel[0], StripOnInput -> False], "\" \"", 
                    "\"port\""}, "RowDefault"], "\":\""}, "RowDefault"], 
                  "SummaryItemAnnotation"], 
                 StyleBox[
                  TemplateBox[{"\"vector\"", "\" \"", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[VeryThinSpace]\"", "\"size\"", "\":\"", 
                    "\" \"", 
                    
                    TemplateBox[{"\[Times]", "\"\[Times]\"", "\"2\""}, 
                    "RowWithSeparators"], "\"\[VeryThinSpace]\"", "\")\""}, 
                    "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                  "SummaryItem"]}, {
                 StyleBox[
                  TemplateBox[{
                    TemplateBox[{
                    StyleBox["\"Output\"", 
                    GrayLevel[0], StripOnInput -> False], "\" \"", 
                    "\"port\""}, "RowDefault"], "\":\""}, "RowDefault"], 
                  "SummaryItemAnnotation"], 
                 StyleBox["\"scalar\"", "SummaryItem"]}}, BaselinePosition -> 
               Automatic, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridFrameMargins -> {{0, 0}, {0, 0}}, BaselinePosition -> {1, 3}],
           True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open = False), Appearance -> None, 
                Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> {Automatic, 24}], 
              StyleBox[
               OverlayBox[{
                 GraphicsBox[{
                   Thickness[0.014925373134328358`], {
                    GrayLevel[0.6], 
                    Thickness[0.018686567164179105`], 
                    Opacity[1.], 
                    JoinForm[{"Miter", 10.}], 
                    
                    JoinedCurveBox[{{{0, 2, 0}}}, {{{23., 91.5}, {30., 
                    91.5}}}, CurveClosed -> {0}]}, {
                    GrayLevel[0.6], 
                    Thickness[0.018686567164179105`], 
                    Opacity[1.], 
                    JoinForm[{"Miter", 10.}], 
                    
                    JoinedCurveBox[{{{0, 2, 0}}}, {{{37., 91.5}, {44., 
                    91.5}}}, CurveClosed -> {0}]}, {
                    FaceForm[{
                    GrayLevel[0.9], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{
                    15.5, 103.5}, {23.5, 103.5}, {23.5, 79.5}, {15.5, 
                    79.5}}}]}, {
                    FaceForm[{
                    GrayLevel[0.6], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}}, {{{24., 104.}, {15., 104.}, {
                    15., 79.}, {24., 79.}}, {{23., 80.}, {16., 80.}, {16., 
                    103.}, {23., 103.}}}]}, {
                    FaceForm[{
                    GrayLevel[0.9], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{
                    29.5, 103.5}, {37.5, 103.5}, {37.5, 79.5}, {29.5, 
                    79.5}}}]}, {
                    FaceForm[{
                    GrayLevel[0.6], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}}, {{{38., 104.}, {29., 104.}, {
                    29., 79.}, {38., 79.}}, {{37., 80.}, {30., 80.}, {30., 
                    103.}, {37., 103.}}}]}, {
                    FaceForm[{
                    GrayLevel[0.9], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{
                    43.5, 103.5}, {51.5, 103.5}, {51.5, 79.5}, {43.5, 
                    79.5}}}]}, {
                    FaceForm[{
                    GrayLevel[0.6], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}}, {{{52., 104.}, {43., 104.}, {
                    43., 79.}, {52., 79.}}, {{51., 80.}, {44., 80.}, {44., 
                    103.}, {51., 103.}}}]}, {
                    FaceForm[{
                    GrayLevel[0.6], 
                    Opacity[1.]}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{28., 91.5}, {
                    25., 95.}, {25., 88.}}}], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{42., 91.5}, {
                    39., 95.}, {39., 88.}}}]}}, ImageMargins -> 0, 
                  ImageSize -> {36, Automatic}, PlotRangePadding -> 0, 
                  BaseStyle -> GrayLevel[0.6]], 
                 StyleBox["uninitialized", 
                  RGBColor[0.66, 0, 0], FontSize -> 8, FontFamily -> "Roboto",
                   Background -> GrayLevel[1, 0.65]]}, Alignment -> {Center, 
                  Scaled[0.0001]}], CacheGraphics -> False], 
              GridBox[{{
                 
                 DynamicModuleBox[{
                  NeuralNetworks`Private`NetChain`assoc3 = 
                   Association[
                    "Type" -> "Chain", "Nodes" -> 
                    Association[
                    "1" -> Association[
                    "Type" -> "Linear", "Arrays" -> 
                    Association[
                    "Weights" -> 
                    NeuralNetworks`TensorT[{4, 2}, NeuralNetworks`RealT], 
                    "Biases" -> NeuralNetworks`Nullable[
                    NeuralNetworks`TensorT[{4}, NeuralNetworks`RealT]]], 
                    "Parameters" -> 
                    Association[
                    "OutputDimensions" -> {4}, "$OutputSize" -> 4, 
                    "$InputSize" -> 2, "$InputDimensions" -> {2}], "Inputs" -> 
                    Association[
                    "Input" -> 
                    NeuralNetworks`TensorT[{2}, NeuralNetworks`RealT]], 
                    "Outputs" -> 
                    Association[
                    "Output" -> 
                    NeuralNetworks`TensorT[{4}, NeuralNetworks`RealT]]], "2" -> 
                    Association[
                    "Type" -> "Elementwise", "Arrays" -> Association[], 
                    "Parameters" -> 
                    Association[
                    "Function" -> NeuralNetworks`ValidatedParameter[Tanh], 
                    "$Dimensions" -> {4}], "Inputs" -> 
                    Association[
                    "Input" -> 
                    NeuralNetworks`TensorT[{4}, NeuralNetworks`RealT]], 
                    "Outputs" -> 
                    Association[
                    "Output" -> 
                    NeuralNetworks`TensorT[{4}, NeuralNetworks`RealT]]], "3" -> 
                    Association[
                    "Type" -> "Linear", "Arrays" -> 
                    Association[
                    "Weights" -> 
                    NeuralNetworks`TensorT[{1, 4}, NeuralNetworks`RealT], 
                    "Biases" -> NeuralNetworks`Nullable[
                    NeuralNetworks`TensorT[{1}, NeuralNetworks`RealT]]], 
                    "Parameters" -> 
                    Association[
                    "OutputDimensions" -> {1}, "$OutputSize" -> 1, 
                    "$InputSize" -> 4, "$InputDimensions" -> {4}], "Inputs" -> 
                    Association[
                    "Input" -> 
                    NeuralNetworks`TensorT[{4}, NeuralNetworks`RealT]], 
                    "Outputs" -> 
                    Association[
                    "Output" -> 
                    NeuralNetworks`TensorT[{1}, NeuralNetworks`RealT]]]], 
                    "Edges" -> {
                    NeuralNetworks`NetPath["Nodes", "1", "Inputs", "Input"] -> 
                    NeuralNetworks`NetPath["Inputs", "Input"], 
                    NeuralNetworks`NetPath["Nodes", "2", "Inputs", "Input"] -> 
                    NeuralNetworks`NetPath["Nodes", "1", "Outputs", "Output"],
                     NeuralNetworks`NetPath["Nodes", "3", "Inputs", "Input"] -> 
                    NeuralNetworks`NetPath["Nodes", "2", "Outputs", "Output"],
                     NeuralNetworks`NetPath["Outputs", "Output"] -> 
                    NeuralNetworks`NetPath[
                    "Nodes", "3", "Outputs", "Output"]}, "Inputs" -> 
                    Association[
                    "Input" -> 
                    NeuralNetworks`TensorT[{2}, NeuralNetworks`RealT]], 
                    "Outputs" -> 
                    Association[
                    "Output" -> 
                    Association[
                    "Form" -> NeuralNetworks`TensorT[{1}, 
                    NeuralNetworks`RealT], "Type" -> "Scalar", "$Version" -> 
                    "12.1.4"]]], NeuralNetworks`Private`NetChain`opart, 
                   NeuralNetworks`Private`NetChain`part, 
                   NeuralNetworks`Private`NetChain`selected = Null}, 
                  DynamicBox[
                   GridBox[{{
                    TagBox[
                    TagBox[
                    GridBox[{{
                    TagBox[
                    TagBox[
                    "\"\"", Annotation[#, {"Inputs", "Input"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    "\"Input\"", 
                    Annotation[#, {"Inputs", "Input"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    TemplateBox[{"\"vector\"", "\" \"", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[VeryThinSpace]\"", "\"size\"", "\":\"", 
                    "\" \"", 
                    
                    TemplateBox[{"\[Times]", "\"\[Times]\"", "\"2\""}, 
                    "RowWithSeparators"], "\"\[VeryThinSpace]\"", "\")\""}, 
                    "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    Annotation[#, {"Inputs", "Input"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]]}, {
                    TagBox[
                    TagBox[
                    StyleBox["\"1\"", 
                    GrayLevel[0.5], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "1"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    StyleBox["LinearLayer", 
                    RGBColor[0.66, 0, 0], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "1"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    TemplateBox[{"\"vector\"", "\" \"", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[VeryThinSpace]\"", "\"size\"", "\":\"", 
                    "\" \"", 
                    
                    TemplateBox[{"\[Times]", "\"\[Times]\"", "\"4\""}, 
                    "RowWithSeparators"], "\"\[VeryThinSpace]\"", "\")\""}, 
                    "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    Annotation[#, {"Nodes", "1"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]]}, {
                    TagBox[
                    TagBox[
                    StyleBox["\"2\"", 
                    GrayLevel[0.5], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "2"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    StyleBox["Tanh", 
                    GrayLevel[0], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "2"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    TemplateBox[{"\"vector\"", "\" \"", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[VeryThinSpace]\"", "\"size\"", "\":\"", 
                    "\" \"", 
                    
                    TemplateBox[{"\[Times]", "\"\[Times]\"", "\"4\""}, 
                    "RowWithSeparators"], "\"\[VeryThinSpace]\"", "\")\""}, 
                    "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    Annotation[#, {"Nodes", "2"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]]}, {
                    TagBox[
                    TagBox[
                    StyleBox["\"3\"", 
                    GrayLevel[0.5], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "3"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    StyleBox["LinearLayer", 
                    RGBColor[0.66, 0, 0], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "3"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    TemplateBox[{"\"vector\"", "\" \"", 
                    StyleBox[
                    TemplateBox[{"\"(\"", "\"\[VeryThinSpace]\"", "\"size\"", 
                    "\":\"", "\" \"", 
                    
                    TemplateBox[{"\[Times]", "\"\[Times]\"", "\"1\""}, 
                    "RowWithSeparators"], "\"\[VeryThinSpace]\"", "\")\""}, 
                    "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    Annotation[#, {"Nodes", "3"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]]}, {
                    TagBox[
                    TagBox[
                    "\"\"", Annotation[#, {"Outputs", "Output"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    "\"Output\"", 
                    Annotation[#, {"Outputs", "Output"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    "\"scalar\"", 
                    Annotation[#, {"Outputs", "Output"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1.1}}}], "Grid"], 
                    EventHandlerTag[{"MouseClicked" :> If[
                    ListQ[
                    NeuralNetworks`Private`NetChain`part = MouseAnnotation[]],
                     If[NeuralNetworks`Private`NetChain`opart === 
                    NeuralNetworks`Private`NetChain`part, 
                    NeuralNetworks`Private`NetChain`selected = Null; 
                    NeuralNetworks`Private`NetChain`opart = Null, 
                    NeuralNetworks`Private`NetChain`selected = 
                    Part[NeuralNetworks`Private`NetChain`assoc3, 
                    Apply[Sequence, NeuralNetworks`Private`NetChain`part]]; 
                    NeuralNetworks`Private`NetChain`opart = 
                    NeuralNetworks`Private`NetChain`part; Null]; Null], 
                    Method -> "Preemptive", PassEventsDown -> Automatic, 
                    PassEventsUp -> True}]]}, 
                    NeuralNetworks`FormatSelectedParameterChain[
                    NeuralNetworks`Private`NetChain`selected, 
                    NeuralNetworks`Private`NetChain`part, 
                    Association[], {}]}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], 
                   TrackedSymbols :> {
                    NeuralNetworks`Private`NetChain`selected}], 
                  Initialization :> {NetChain}]}}, BaselinePosition -> 
               Automatic, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridFrameMargins -> {{0, 0}, {0, 0}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open], ImageSize -> Automatic], BaselinePosition -> 
        Baseline, 
        BaseStyle -> {
         ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 
          3, ShowSyntaxStyles -> False}]], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->("NetChain[<>]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.773720711461967*^9, 3.7773571452948723`*^9, 3.777447420306918*^9, 
   3.778043284840745*^9, {3.778067293484871*^9, 3.778067306896371*^9}, 
   3.778165048538289*^9, 3.809632875122573*^9, 3.809659386302165*^9, 
   3.8096604372795877`*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"bbce2d21-c2cb-4928-8561-d347d85dd427"]
}, Open  ]],

Cell["Initialization of the network", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
  3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
  3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
  3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
  3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
  3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
  3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
  3.7455953964192657`*^9, 3.745595396419932*^9}, {3.7455954715605164`*^9, 
  3.745595487997805*^9}, {3.7737207218873997`*^9, 
  3.773720727259449*^9}},ExpressionUUID->"65d60a5a-e751-44ec-b854-\
0f553f286d92"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"net", "=", 
   RowBox[{"NetInitialize", "[", 
    RowBox[{"net", ",", 
     RowBox[{"Method", "\[Rule]", "\"\<Xavier\>\""}]}], "]"}]}], ";", " ", 
  RowBox[{"Plot3D", "[", " ", 
   RowBox[{
    RowBox[{"net", "[", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "0", ",", "1"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "run", " ", "this", " ", "to", " ", "prepare", " ", "for", " ", 
    "training"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.809670374519209*^9, 3.809670390263104*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"f6234ceb-c173-4104-8b76-2f2c96103bdd"],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJx1nHdcFFf3h4kNo76W2DAWjGKJJWCvyWD5iauxJyqSCLGXIFjBCmoSNUbB
RYOJBRRjjWILYAUVFQtNxEUXpRdhYSuisexvZjNzzlc+H99/9t0n1ztnnh3u
zJx77v1shs/E2dXs7Oy61LSzqy5+Hph6Inpzt6VfKZ8iCmwftPGrBV989UcH
1VkBuNfbYLXwd/Fjq5PqOvI45+kHBaeLTXpFe99Dnv1zwxNC0s1O55xUD5C3
3fnHGeHXL27e99Y+Qm6XOu4fYUTojMIob+17xx25J0b4SGpgl/1e/06+lwTP
80m/Oaly3+vnp1tXhCvz9rVQqfPf4//3Z6zQsvWPh721he/FM315nLAydWAv
tdNz5OEtn8YJmp8/jovyLkUeeKnWNaHPwIyvtVFl77VXV8QJO8oPP7Za9chd
D5+Mo++KVyl+9bA4QfkOvO2r3dfJM3C7JU/iyTPyDm9ukWfg4UvMCeQZ+/8m
+i55Bh64z/U+ecY4W/yaSJ7xuL8FJ5Fn7Cd4YjJ5xn4WpiSTZ4yzsGYKeQbu
daN6CnkG7jrqdjJ5xvOaNS6ZPCv+pOPOapZC7ZDPUKXSd+DhhkUPyDO2H7k+
jTwD95qy+iF5Bh6YMzWdPGP/Ec0ekWfgbaeefUSegced66IhzxjPxAANecbj
7j2tIc/A7SJiNeQZud0pDXnG455ZqyHPeNzXLhryrHiSuik+ryHPwOOyKzLo
3wN3den4hL5jP4NcteQZuFcnIZM8A8+u5viUPCN/lPmUPGP/p1Y8I8/It5Q+
I8/AA1WDssgzcvWcLPKM/OiiLPKM8Yz+Nos8o5/drbLIM8ZTeOsZeVZ8SLxF
5jPyDDzuUHO+noC3XRHN54/93BmVQ9+Rj0vOIc/Aw3sMyyXPyFv+lUuegXv1
s+SSZ+y/s0seecb2b6fmkWfk7X3yyDPy8UvzyDPwwGVz8sgz8qOqPPKM8bdu
k0eelfO2XYcXebwDHtdvUR55xvafN+frBrir71k+T+DhT78soO/As69GF5Bn
7CevTSF5xn52Lykkz9jPwbOF5Bl42+5ZheQZuNfFl4XkGc/3E7si8ozx9HxR
SJ4xnv6ZheQZ/Xic4/uucn5S+2kxBeQZeJyLH49r2D7v8yLyDLytIbGIPAPP
dvuhmOIAHvhdbjF9x/4/G/+cPAP3sj/+nDxjPwb9c/KM8bRrV0Kegbv2GlJC
nrH/12NKyDN6CFCVkGdsX9C7hDxj/DMalZBn5TykfpbNKSbPwMNznPk+ATxw
kI7HNWzf+o8S8gw8e29vvj6Atx1/hc8HuN24njr6jv10DdGRZ4y/MEtHnrF9
pkMZeQbuFfNVGXnG8/p+Yhl5xniefFNGnrGfyW5l5BmPW7srP/8p8Ur9z7tV
Qp6Bh//5B993gdvppuvIM/A4hyY8fgF39Yjmvzds7+NWTp6Btw25UU5xA/fy
76qn79j/4AA9ecZ+JsXqyTMe11+nJ8/Ik6obyDOeb2ltA3lG3qmWgTwDzx74
kp+nlbhs42emjjwDt4uI4ecY4NkPfy4nz9h+0lC+HwD3Wqfj8Qt4231DDOQZ
+zdvMJBn4K7dLxrofLD/2UUG+o7nlVPHSJ7xuLU7GMkz8MDJfY3kGfk0wUie
sZ8TrkbyDDwud6CRPCvHl9p/dbqcPAMP7x7Cz4XAs5f3MpBn4IGxOw3kGbhd
jM5AnoG75ovxKJ6x/1oBRvKM8bS4YCTPGP+I50Y6T+SZDUz0Hbmqu4k8Y/8N
h5rIM8ZzfayJPGM/LyeZyDPyURNN5Fk5jnQ9lLQ3kGfgbfvvNpBn4HZHahjJ
M7YfO89InoEH/nzdSJ6BxxV8YiLPGM8wdxN5Bu56ZJeJPGP/bgkm8oxxrjOy
Z2wf28hM34GHh3xuJs/As7cNMJNnjMdtqJk843lNHW4mz0p/Uv9B6ewZ+YvR
RvIM3FW4yJ6R73I0kWfgcbNWm8gz9u+eyJ6xH/emZvIM3Gv1JDN5Bm5XbbOZ
PAPPHnfOTJ6BB2ans2eMUzCwZ+ynWnULecb2N+pbyDPG07KJhTwr/05qf9zX
SJ6BB/oXs2fgdvopJvIMPHzMVfaM/TRtaSbP2L7GIjN5Bt62UTR7xn68XrBn
jMe1m4U8A/f61N1CnoFn+661kGf08OAPC/nCfjSn2DPG73CFPWM8X9xkz8p/
t13PL9kz8MDPFpvIM3C7zjnsGXh2pZuZPAN37fAXewYeF/iSPQNv23CohTzj
cWttsJBn7P9CDHvGfvYWsmfsp0+9CvKM8TTtUkGesb3GtYI8Avf6ZEIFfUc+
3aNCKLhQ635H1UH6lOIMj+B8KPDsJuNOCzN3CiHe2nJsH3iuXQL1i1xVepu+
K/9OOl+Lme+/wF0fRBmpHfDAtQ0q6Dueb9lkjh/zkA/3baD2mM90zoij9ugz
sw/fv+C42bMbVwhPUkJ7fK5S06fUz9jDB4VVQ5ZGRXnrkbsO+yGeviv/Xeqn
caWRvgMP79e3guKDfrL/nRBO7TDv+kt8HPWPv+Py5hw/9t+uP8ePeeDWB5ZQ
e4y/oVs8tYN+XPtncPzobYJ7hVBvlU+9j+xOY35y6tdjrwtje9ddKg29cNw1
NxzCiUP7hMaj4oXfTzzzFP8vtbdarSF/JR4hjvnV9c63BJ9G7h3t7FKo/Tur
tYHms0ji0D7lXuVtoXHi9VZ2dg+xf3PJ27PElfYidy7ae0cQGzW2s8vA9ppT
7aKIQ3u/wy3uCR7Df//Yzi4T49HnVcRI/138XxbyLCmfr7SHfuomzr9P7YFn
SXnpB097v7ZaczCeljGrrxCH9peu+CQJhy7Nf2G15mH72G86xBLH/HODdsnC
ij/2G63WAmx/w61vHHFov3fAgWRhpF+azmotem+eYvCxOOLQPrhVebLw6be1
i63W9+Yddkbr4ohD+3ktaqYIup5f5lmt781HjFxc7RpxzKv7VSYLVxsueWa1
vjdPkTGgPI445APWjIlJpusW89LV26fS9QncZVuHB3QdAk+Y+2kaXW/Yz/h3
aXRdAe+2MOkhXT/Aa0/cnE7XAx730y6P6Hqomj9XfnfgXx9tqaHfF7hD1wUa
+h2B57fdr6HfC/PhjjEa+l0wH17zgob8A/fVHdCQZ+A1Wi7TkGfI9x69lphB
njHv3erJY/IM/OWKR0/IM3CXM7Fa8gz8dIuQTPKMeWm/sU/JM/D4Roan5Llq
/lzxDDy8LPMZecb43TtlkWfgbadMziLPmD/ftyCLPGM8HWZnkWfgDo5uWeQZ
+LzcRlnkGfK9MYurZZNn4Anrg7LJM3DdlsY55Bnz2PW25ZBn4G9u/JtDnjEP
/7dHLnkG7mA9lUueq+bPFc8Yz7HOeeQZeO2EsXnkGY+bPiePPAPPHrA4jzxj
/2sX5ZFnzJ8P8cwjz8Cd+g3PI8+Q7+0cMyWPPAM/rdPlkWfgm/v455Nn4IaO
L/PJM3AH9cIC8gz85abUAvIMXOf+eSF5rpo/VzwD333geCF5Bh5c52EheQY+
r4O+kDxj+zlvCskz8ukiVzwDzzgn9qN4xvhbaQrJM+R733zrWUiegRf3fVtI
noH7LgwuIs/A7fY2LybPwPdG7igmz8ATEt8Wk2fgU6d7PCfPVfPnimfg3/Uq
ek6egcfsalpCnoE//K1PCXkGPj7UrYQ8A68x5usS8gy8s/vwEvIMvPZylxLy
DPneGuebPSfPwGt3uPKcPAN/OHJqCXkG7vq0sIQ8A3fInltKnoFnBD0pJc/A
9y74Skeeq+bPFc/AZ417pCPPwKeG1Skjz8Ab/uJSRp6BG34dWUaegbt8PamM
PON5rZxQRp6Bn74/rIw8Q773u94BpeQZ+NHQ7jryDPxlpxQdecZ88sXZZeQZ
uGFGWRl5Br7bf045eQaeEJRSTp6r5s8Vz8DjbyzTk2fg88ZE6skz8EO/avXk
GfPtdf/Vk2fgUy/UNJBnPN+BtQ3kGXhSQQ0DeYZ87zdd9pWRZ+DzNk8sJ8/A
z0e8LifPwE/PC9WTZ+ALNnxiIM/AU0wTDOQZeD3tFgN5rpo/VzwD/+5qjoE8
Aw+uVs1InjHOAS2N5Bn4+MjuRvKM8wIxA4zkGfjRU4KRPANvYhK54hnyvaeT
V+jJM/BW7xwM5Bl4/jBfA3kGHncpzkCege+uXcdInoEX60YbyTPw/qpfjOS5
av5c8Qw82DXPSJ6xfd9aJvKMeXvXdibyjHnyv/uZyDNw/7QRJvIM3KXheBN5
Bu51fZKJPEO+d94p8fpRPAMfufU5ewa+TD/USJ6Bp8zfZSTPwHcfy2bPwDuv
dTKRZ+CZyV4m8lw1f654Bu5vvmYiz5iHdyliz8ANh2uayTPw4GOtzeQZ+9/h
bCbPwPtfHmQmz8B9tww1k2fMA3/+pZE8A3c4ud9InjE/vOsVe0a+doyJPAPf
2fZPE3kGvtk9iz0D/6m1eL6K56r5c8Uz8G6L15vJM/B5a46ayTPw4SUJ7Bl4
24Z57Bm4bmQle0Y/5poW8gz86KIGFvIM+d6EdY/ZM+aNGw02kWfgTiWhJvIM
PPiMjj0D7+Y80EyeMV/tFmgmz8Drvb7KnqvmzxXPwBv+1MFCnvG88sZYyDNw
3xQfC3kGnnJgq4U8A19z/oCFPAM/Pfcsewb+dcur7BnydePHzzCRZ8wfdrzJ
noHr5n9mJs/Ag7evMJNn5HPj2TPw3fl1LOQZeGb9URbyXDV/rngGnpF7hj0D
n9dey56B/93yHXvG8+3QsoI8A++/v2cFecbjFgznPKfyKY3zX7jFkc9pW4dY
Y7xPSHzh9/3jyOeedocKfLSHhXdW6x8Lm8WRz0w5D/3Sam2+MzqWfA48+GDW
Je89gsVqPbH641jyeVHO0xqs1oCura6Sz+XvLrzprtoglFmt92aXXCaf0+V8
l6VK/rCaHL8oMXHN8vvkc7gcf4XY/nLfe+Rzoxy/2I+HS/Id8hkvx2+yWiN3
uSaQzzpy/OI/vld92y1+7+P4nbOi4snjuu1LLqidrknezvo4pZBP5VPkeyd1
TCGfg8+7uWdGXZHOs/R6ixTy+dTqfz/a+5LwRox//qtk8rl29HEhxOmC8K/V
eiPlz2Ty2SZUe3aRNkryX5TSJJl8Xs2t13GU+rxQabVqHGcnkc/Dcl5L7McR
82/+cvzil4J3rR+Rz5Fy/GL7I0GL08mnixy/yIsyTz4kn6ly/K+sVj9dWhr5
XCzHL8bZ3pD/gHx+wvFXfpWbSuPAeTl+iY9LTCHPFZ4ndU6qu7Zx3vhYQ35v
1RxxWO10x/Yc9aZcQ56VTynPHGvUkOc5E/xaLNLekq5nx/7ZGvLct7JBmjbq
pvBWvB6iYzTkuda+o7+p1PHS76J5tlJDnh8NHTIi2vuG5K30UDsNeW4j57VE
P9aTkH8zyPGLX/Jm5D8lz3Fy/CJv4NTvKXkOluMX+4l44pNJnr3k+EXPAQeD
tOTZRY5f9DbpeugT8mwnxy9y58NbHpPnVDl+kbtlzMkgz9EOliBtVKptvH3r
mEWewxbG/ah2snGvY+OzyO+mq7+pVOoU6fynJC7MIs/Kp+g54EefLPJ8KmFU
rUXaJMlz2lP3LPK8blFerDYqUfJcmfx5Fnke22TNSpX6vsS1qmfPyPM9Oa8l
9uOJ+bfzcvzSPMW2M7nkea8cv8g7OXvlkuef5PjFfvJC7HLJ849y/CJP/jok
hzwfleMX45li1yKHPPtz/CFz1NnkWcXxbxohvk8rnpeu33HMSWXLF03tWZ5L
nj0efv+LNird9tzo1pzzb8M6dZmpdrLxZRN755HfrqteCCr1Q8nLuEnD88iz
8inNE/mPyCPPrx2DXkV5p0ke7NsMzCPPeUs8HnlrH0hcuNcmjzxvkvNaIg/D
/JuvHL/IfdIHcv5tqhy/yDULzQXk2VWOX/QZkLa3gDx3luMXeYM9/QrIc0M5
fpE3nh2fT55fyvFLPguG5ZPnbDl+kSc/i+I8p3PJFze8tU8kb7XVYhyK5+Zf
vg5zUtn40ZcDOf9mDbq9Rhv12OZ59vxC8lyUG+KudnoseWmQuaWQ/Cb38eqr
UmdIvNe2PYXkWfkUPQRp9hWS5zDtS32Ut0biN9yCOc85TM5ridwT82/d5PhF
vvH/Ajn/1kSOX+Tjho54Tp7fyPGL3sy+b4rJc74cv8izpkUUk+f7cvwiD9sz
qJg8n5fjF33aZ90sIs975fil+9TToUXkuXTi/cwo7yzbc6khrpg8p/21+4K3
9pnt+fBlfc6/XXo563cnlY1nzx33nDxHjO6xVBtlm88IGLH+OXneuv/tOLWT
jVfejXhOfpca73RTqTMl7uge9Zw8K5+in6INMZznVD6l8QHzb8Vy/CJP67KS
828pcvwiv31grI48x8jxS39Hdk105Dlcjl8alxLulJLnzXL8Itdu9y0lz75y
/CKfW1G7lDxPleOXxp9jIZznTJPjlfIPfXpx/s3Nfs98bZSNz/s8pJQ9u3yU
EeVt4wkdCkrJs8u0uSPUTjmSD5/BnXXk+dDGxPPe2mzbuHHCQ0eeHU72aq9S
23hW9jod+f3t0R87nFTZkoeuy3ZwnnO6nNeSrmfMvymfIu918TPOv42Q45d8
+ttz/u2iHL/IR7d5Wk6ev5Djl+apu0SUk+eDcvzSfbzLtHLy3EyOX+TWqGrl
nLeX4xe5fsk+znP2UFff7KT6Lx/lMY3zb3/J8Ur3x1t3y8hzi4LkWdooG/eq
153zb9vr902L8raNp0GjA8vJc7X+e4eonWw8K+lGOXle8UO1095a2zxT7P8q
Oc9Z8uu8Niq1jdf9u4WePF+W81riFwHzby5y/CIf4HKF82/Kp9R/wxgDeXaQ
4xf5sRonDOT5N47fR/W7gTzbcfyd2q/iPOcyjt9eO5nznMUcv9/VbpznDBrx
oIlK/V+eauZgzr9V9+2/0Un1X17L/ZKePPvJ8Yr8zwbNOP+mu17DSxtV8N/4
M4Lzb166BUlR3jbe7K0P5zkfNk0drHYqsP0ulcGc5xwp9DvhrbV5C405xnnO
T+W8lvglDPNv2+X4RV595g3Ov1WT45e8Xb3JeU7lU7pfz4jjPGeJHL/IPX87
x3nO6XL8Im8fEMZ5zgccf9H6nzjPOYLjtz6bwXnOsn/DD3hriyUP73r7cv7t
Byf7hiq1jVty/+H8W/oY73VOKhuvvdbCnkfJ8Ur5hINdOf92NXyAhzbKxjt/
7MH5t553w+5Eedt47TUbOM952Fyzv9qpyPYe9OQA5zn95byWdD1j/k0nxy/y
Gz8c5vyblxy/dL35RnL+7aEcv8gH1TnDeU7lU/K86ATnOS/L8Uu/e9Z+znO6
yPFL952IrZznPMTx96qxhPOcoyN9vlA7/ZdHqujIeaHYjPS93toSW37vymLO
v/WqNriuSm3jxav/4fzb0a4HVzqpbNz3sZE9t1L+/uzs6u3qyPm34HWLJmuj
/qvL3TCJ8281jj6Mj/K2+fT81Z/znI/kvJbEMf82So5f5Eei5nP+7aocv8hv
b/Pn/FtPOX7p72hQIOffDsvxS38v1kDOvymfIp/SejXn37bL8Utcu4jznNU4
/uj133Ge89jMry5FedvyRbNa3mLPrbcd+lztZOPFhiaQF4qqs9tbq5P44ITv
OP9WK9u3lkpt417f7uP826qPNcucVDZ+3usRey5X3qvE6/+2PeffZnwXMUEb
ZeOdV/Xg/FtvOa8lfgnA/NtRjv/HTo04L9RKjl9s7/bQifNCwXL8Uj+HenBe
qIYcv+T5cT/Ov/nL8Yt8T0w/zr8pn9L4s7kH59+85Pilv6MdHTj/VsvhfyO1
UbY8UudHEzj/BvV1bd8cZM/lCx47qZ1s/DdLGXuewXWJvhd6cP5Nc+Wvj1Rq
G49pvYjzb6OL6vo6qf6rn7SPYM+xcrwiv+yTwp6D5XyX9K0m5N9qQPyLwtmz
P8fvUDOGPZfJ8Uvjed077PkHOX7J24009pwuxy9dt8sy2PMoOX6RO87RsM94
Od8l5YGdR4aT/44yN4jvTU/irhNvK/+7RuJ90OlZIvUTxx7mTSnl8V/5FI+r
OZPKv29t2cNHooeTrhXEIU9Ye8tEzhNCHVqwv2sw1Z9x/jDQ2DqY6yMhr7j5
s5WXqY4K+FdNH/C6YuBBThXxVKcCfPu+8ltUVwH87zn/cJ0E8MlfDb1L89bA
TRlBvF4LeFzun/dpXvA9/kMizWMB71ynIJHmXYDXq+yQRPMEwKd6d0qivDbw
rxuXJZJPyBPunrgziXwCr72m533yCTxmwyKuJwM+cnVgKvkEnqlfxetagR8K
cU8jn8Dn1W/BdQ/Av6kZzfP0wMc79Ewnn8D7p2xJJ58Yz4ar6eQTeHGv1HTy
CTzD90Y6+URvX4Sm03UM/MdjY9PJM+QDt/ZoyvtZAE9b8ZjrHYHP9B+iIc/A
e4VP5box4J4Xvn1MnoF7RPV+Qp6BH9loekKegd/73zZeHwjcfkB1no8HXj3x
G54/Bi5M3sDzncB9am3j+TngC4NW8HwScMdqQ3j+Az2cKuf9KSDv57hLzfXE
mA8MHMn7LAAXtt99Sp6xfWHJM/IMPDK3nOvDFC7Gs8l9Pq8HRn7jDq9fBe58
uznXhQAXXkzkOgbgDSas5nl34OP67uB5YuQTd/G8JvB+2zbzPBxwn38X8rwR
9pPgynXSkN/LajmV66qB6/cd530GgPdyf831oMCjj+zg9f/AV8c7cF0d8NDC
7VwHhu1vmbhuCbhmzzBepwq8cbP1vK4SuNu4E7wOELj10nVetwZ8WIsEXmcF
/IjHZV4XBHzr/nBexwI8oskK3idFeR6RjrvchfepAV50fSXXKwM/otHyPgPA
+41fyXWfwJ1javE6f+BuczbwunTgmp6lvI4a+LhlrlyfhP28WM/1NMA9SyK5
/gN4aMZdrlfA8/0tjefXgYfVvMfzwcCTZ57l+UvsJ/NXrrNXnu9Erh2RVIjr
Aaxyvi5MWv+u+If2ea3rF2Ldv9I+VlpHr/wukA/c88UGrheH9gG4jh7aJ3/b
qZg4xoPr66F9wNlLxcShfRauu4f25otfcr0ptHfE9fjQfvTcv7luEtpbx8I6
fWiv72pfQhzjwfX70N5NP6aEOPrEdf3Q3u9VYAlx7B/X+0P7vLxw3m8B2nvi
PgDQPmLTKd6HAX8v3B8A2tuXHuf9GdDPY9g3AH+vXqG8bwPGg/sJQPu5oct4
Pwc8X2mfAeW6Vd4/xP8YMPNrXgcC3H7BqhK6DoHrdzXkfQaAe1yI19F1BXxp
9blcfwz8XtcXXC8Ledc9CxbzPgPAkxdllNPvDjxoQldefw58yk8LeL008HNx
v/P6XuABFad5PSryvhd5/STwupHneL0W8LCd+3k/KchnFmW78PoZ4FNcp+jI
M/Ajn77hdQjAfeKjyskz8NA+nrzPAPAwNwvv6wF89LGBvM8A8NcNF/M+A8CD
lu7jfQaA72kcZyDPwJ2/fWwgz9jP+ee8nwPGedXI+zkAb17HxPs5AF/Yo5TX
X0PeMmJADq9LBK5/ZVdOnoF33XiW90sCLswdwPsMAD8zKpj3GQAeMv8p7+cA
PDagLe8zAPx1oDvvMwBcs2Mz7zMA3PndSd7PAft3ucv7OQBPO/6U93MAful1
Me/ngOd7Scf7OQD32Pic1wVDftKvyMVAnoH7fLyG93NAXn8v7+cAPPmXd+wZ
eOz+KbzPAHBr/mHezwG4Ywcde8bjenXifQbwuLem8j4DwBucDOR9BoCP+ymM
93PA4z74h/dzwPxt53jezwF4pOM9Xk+KcU4QueIZ8pBBYVr2jPnJzXN4Pwfg
zeNG8j4DwO/VPsn7OQDv99ie9xkA3it1Ku8zADzkXhjv54D9P8pkz8B9ujfk
fQaAn+s2kPcZAJ412oP3GQDetcky3mcAeGyLn3k/B+D6iu28nwPw0CFqM3mG
fGPz5kt53TTwuZPfsGfgzidy2DPwKcPceJ8B4PrxEewZuOdPFewZeL/bX/I+
A8CP9F7D+wwAD2h0hj0jv57JnoGHxlvZM7Y/9CnvMwDcWtmd9xkAXjl1IO8z
ADzW09VCniHvF7btFe/bANyx2XzeTwB40YZk9gncb0o33k8AePtvAng/AeBW
3wT2Cdw53Z73EwDeKflL3k8AeOjdBbyfAPCZqiDetwHPS3uCfQKf1Pwa+8S8
aGgy+wReeSnDIqyV6+F4XVHgP3O3XKf6M8jjPdsRGU/1UsBXbz55S1gi18dg
+2qrEoQv5HoOrMP85X93aV5f4Va5vlGZh4b2pw8PT6R5U+Dnq6Uk0jwf8O+s
Dkk0L4V8QLskmkcBPq+/PpHy/sBf9vspkertMF83fHAq1YcB71xr8AOqZwK+
rPlnaVR/A3xwQVGacFh+/lC4Va4/rCHPp0J739un0mn+Evjl23fSab4N+NFX
N9Jpfgjj7BuWTvMZwF0Of59O9W2Q79KbKzOoHgt40MGcx1Q/BFw77cQTwV++
3wO31fU9kucpgVtnbsoUesvzapi37LY2U1DL80DA/RwnZdK8C/C5S+pmUn0Y
5JGOzOiRTfVMmB8b+2c2ze8Ct9W/KfORwD3zt+fQ/BnmtTqtyqH5HuDW3pNz
qF5KybeIz/ODdv6TR/OamBeS6r6UeTjgdfefzad5I+A+o3fk0/wc1F/Z6peU
+STgjhuPFVGdsdX2P84zHP5AfqDNB/IA9z7wvr/pA+/1wz7w/j79A+/dlz/w
fv3pB96j/T/wvvzoA+/FvT/w/qvMt0G+xVaPFPyB99+V8vgJ76Hn6rwqFYzy
+Am8eetIHdVrwvvd1pBJZVRfCHxm04IyqocDHnt3RjnVuwAPmT1TT/UZwIfV
VOupngDi0Qae0tP8N7TXF17Q03wtvrd6/qOn+UXoZ1ybg3rhmjxOwvuUsHJL
OdWhKlzsp3JWXz3VTQIPGJqipzo/6CfLqauB6kuArz6dZqB6COCV4woNNH+P
74l+BgPNN+P74CXxfXClPB4CTz5XZhA2yuMhvL8EzfA1CII8HgJ373jNQPWI
wPtZ7Y1UnwHcp7vGSPUEwAf9WWCk+W/g1b8U30eU+VrgAadKjUInedyD5/+s
pACjkCePe/ie0lh8v1PqFYALyVdMNL+O7y8/J5hoPhjfLzrfNwn35PENnocb
pC410Xw88MYbtphp/hj4kRfBZpo/xvn66YMtNH8M92Wv4fWv0HwwcNt8sfKc
A9z/+xWJNN8Mzz/N1+7g53N8nuy9wUjzx8CzrmksQolcNwn9d9k6454wVV6P
odxPpXH41btEqgeF+2xC+raHVL8IvN6oRunCXnn9BtzXRn9yMJ3WUQAfNDPt
EdWVYv3/8Yla4bJcRwj8RLNH4nuXXPcGfEqjPpnCE3l9CMw3xTqYtEKmvM4B
56fm9HxK6wpw/ivn+2dUzwr3wbkTjNlUfwk8ILZPDtULKlz0YPCam0P1bTgP
NeuXHKGfvF4F7qfRrcqzad0I3B+nrAjNoXUOwEtD+uRSXT7wS4abuVR3Czyg
yyf5VCcKPDLMI5/qGrH/O+J9WanDAy7kn8+nujHg7dfezBdi5PU2cL/28T+W
J7SW140Aj273fT6t04D5hdtPahTQugJo36nj/gKqg4f2U952LKR6Ymjv9vdH
RVT/Cjy0fEIR1WtCP5EbthdRfSG0P3Iquojq4YCH1UkqovotnG/yflAkLJX/
TjFfPbpTIa3zAd78QUEhrUsBnnU3tIjWUQCPvjmwmOr+sV464X4x1anjPMi0
r59TvS/OR9xoWEL1qcDr1v+2hOopsf/zP5dQ/R/wTVMjSqheDXgvzakSqq8C
HjLwmNheHnfg/psn1UUXyeMS1htPui+O1/K4BPdZzyZvdMIoedyB+904qb43
WR6vgE9qMstA9crAG79WG4RN8nil3I+k3zd5e7nQWx6vgPsFz9YLanncgfvX
H1Jda7Q8jgH3uzfcSPXQwO/t9TNS/S7w0Mhwo3BbHseU+5R4XOcpBr2QJo9j
cP8qajPXIMyQxzHMB+YkGoSF8rgDPECq/wyTxzfov8GUOiaqz4b2QaddTVRP
jPfTGd4mqn/F+3JisEmoL49vcH+sLBc9L5XHN8yP/VvDKPSQxzfM48UtEu/v
8vgGfM+KZKPQQB53gNeV6io3yeOewqXrxCHaRPXl0N5ti8FE9dDAIxa0NVP9
LubN2rmZqd4U82bOs83CNnncg/u+RvWpkdbLAY+2bDcKH8njHrYf+too+Mnj
Hj4/LJ9uEirlcQ/7qRdjEs7J4w7mqaT6Rh95PATeYM8YM9XTA9/0t/g8o9R/
Y95v5GUz1SsDd8woMFN9Lfb/tJaF6kExL1fgaKH1gfAc4rPd3kTr2YC3NCw3
CaPkcQ94SGetidYLYR7sel8zrW8B3uCXzWbBXVlfWaX+UFk/gPmrE/UtVO8O
fOPWYRaqzwZ+bq2PheqJga+uGWKh+lfgbudOWaheE3hsmxsWoZU8HkKctvpA
5bkK6vf+6D+E65zg+a1Nh07x9JwB3POegZ8bIE/V+pPdt+m+Bbz6heZ3aLwG
nuO9kN8Dq+a7lPEUjtt2TrdEGteAZ249nUjjBfCMi9X47xz43u+ckuh6At5/
evMk8gDPn9mvWqSSB+CbN7xNJQ+YX6qexPUcwLvV2JLG6xmZv/yp20M636r5
LuV8MT+2/2g6nS/wVrVupdP54nP173fT6XyxPvD76HS6PrAeL3RbOp0v1r81
y+B8DfDIE8ce0/linVvXWU/ofDF/dbUmz9tVzYMp54V1az/8kknnBfzcxo08
HmE/M+bx3yfw26P7ZlL88Pw8qbAdP88Bt3+4np9vMH91OI3nvarmx5Q4gWsD
gnl9KObHpq3PoTiBN94yh/ejg+f5yMijvE4TnpM7ffmW7zdV82bKcfF5++k/
PO5gXdaGPfx8husWfV7wfEbVfJrSDzyv+plPFuHfs1XOC1XH/biA2+N+XMDT
cD8u4ALuxwW8Oe7HBVyD+3EB3yPtxwXPiwqfiftuAZ+C+24Bb4D7bgHX475b
wJ1x3y2MH/fdqppnw/kVuX2ktB+X4hPOY5NXNv89AC9KXc/5WawDmdaMrwPg
7evu498V+ono3ZTXo2E+be66cvIGPHqGB+dlMM926ReelwXeeNIhnkeEfiLv
nud5L8y/PYzhfATwI93OcB4c82PPF3M+Gp7/HZ/U5fo/4HUvh3K9GvQTsLIO
rxcD7hc8hNfTAT+xMIXX0wH3fJPD6+mAN2hWxuvpgN/+xMTr6YDXnWDk9VmY
B5s5m9fBAVftOcnr4DDPtqSczwt48+udeJ0a9r/zIa9TA37CO5fXqQGvqyrh
dQrYz886Xt8Ef0+a68t5HRnwuWtieB0Z8D1nzBwP8MrkS7yeC3j05Fu8ngvz
hD/c4/U+8HfcMnUBr6sCrgk6wv3je8rHm3kdE7YPD+L1LDAetD/zf9weeITH
IN5nBsZXo7SuQfkOebbkv1S87weMu5Okun3l7wR49zOfpVM/WH+eWs7zdsDN
TV7yfEbVenWlf4VL7+ndLVwXhfm6vwR+LoS8mf2KBfycBNxz1bqn9O+B+7Vb
z/tCVK3rVuIBHnR0NL+3Q57Nzn0xv1dD+zCHLfycivfN4qHsEbh2VhqfP9YV
z5vG9eVYL73+Ec/3VK2XVuLH+17oSq4Pw3rvFge4ngl4rPdFrr8BfqPaLZ5X
hvvn3BcteP0G5sf2nOH1BsADmgrsC54TAj66xnFg+wF9eb6qat2ycr54P7es
5HET64pvH+LxCPNpw67xOk/ME2Yn8/s29KPvkcrPLZhP+zGK55uxfnX9t/yc
Cvdrx9Tn/FwI7cNqLeH9WoE3qF/G+7VCP0sbT+Pnhqp1vIof4O17/h/P62D/
3st4HgXrdb/cxfMcmE9rf5T3ZcX8XsxJ3pcV64SPHOZ9Carm35T4q9aXKu3h
/hWxqhk/z1TNvyn9VK2fVPoFPqHfbl5XDveXyrib5dQ/8HN9A/g5QeF28rpy
5bhV6wmV42IdYMkGXvcN3NHxL15/jXmzmHa8/hr4id/X8/pr4L3qPuH7e9X8
mxJn1Xo8JU6cz7o2kddNY17O3o/XTWM/q3fyuma8fzVN5PiBex7qzuuagTse
38TrmoFvuvKE7/tV82/KeVWtf1POC/jcxx/zOmWcX8ty5nXKwMf1GsfrlPH+
3mUery/GOrFRszh/Aty+xS0+X8x3DfuM171iPdv85by+GPik0df5eaNq/k3x
ULU+jdbFMz8ReJw9YJz6VPYA3CPJxB6AZy37H69vBV73q3a8jvVD+SV4Xwno
P4bXBQNf6HiM/QDfZH7LfoBHrhvN64LhuOFHdvBzVNW8nOKtah2a4g14v8b9
eF0wvm+FePK6YODmo+t5XTD2f3wfe8P8pOUcrwvGfGNhPK/PrTpv+//0vhM+

    "], {{
      {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
        GrayLevel[1], 3], 
       StyleBox[GraphicsGroup3DBox[
         TagBox[{Polygon3DBox[CompressedData["
1:eJw1mXngTVX3xu89e59QCiHzTIY0GKIUMqUyhaIXjYQyJ2k0ZMicprdoLg2S
KCIUDSopKiGaNEikwZTQ4P08v+f8/ljW57ude+65Z++91rPWrnLNkC6Dk1wu
dz//BPzL+GL4rflcrh78H7gLfAZ8GdwZrgpfBLeCq8AXwi3hY+EG8CnwiXAT
uAFcHD4HbggfBzeE68K14S7wRXBl+AK4BVwUPguuBxeDz4brw7XgzvCFcCG4
PlwHLgjXg2vD2/UdcBH8j1hhuBj+Bz0ffDz+y7x/6z/YV3DEH8XKcp9W+HMY
242VgBP8Dux4uDj+d/yP2HbsF/4uiY/4nXm/t7+xn/Wb8Tn8Lr0L8F+sDPdv
iW/CWGm4BXw2fDE8GR4D3w2vgVfBk+A34dfgGfD78Ep4IrwSXgLfBa+Cl8IT
4DfgV+Hp8HvwG/Bk+C14GdwPfhx+EJ4Gvwu/Dl8HPwnPgm+BX4bnwv3hJ+CH
4C8wrZW/sFHAUvxLjI2GX4MXwBfCY+Fb4JN4yVfDZ2kdYffAkxnvDE+Bx8KX
wTPhSfAd8BJ4PtwCvhUeBl8JPwTfDY+Fl2udwg8wcefpd/I9Y/DLGF/I+FXw
LHgmfDU8G74HvhleCD8P/6rngwvgt2EF4BR/EdfcAA+A28HD4YFwe/hGeBA8
AL4PngYPhO+Hp8OD4AfgGfBUeBH8IjwbfhteAXeAR8CD4XvhFfCibI70zl+A
p8CvwPPgjvBN8JDs3Q6Dr4c7wSPhoXBX+Hb4RrgLfBs8HL4EvgMeAfeGp8Hj
4T7wdHiC3n/0GriTd9iK8YFwH8ZbwgPg3nBbeCjcH24ND4Kvhc+Hh8D98p6H
/vDVcBt4MNwXnpWtveXwcPgRxRr4RvhR+AHtP7guXEPrC64DV9MehU+Bq8N/
YzXgCnmvJ62r/8BHsGpwuXzu/xZnLVwVeC9WBj4B/w12DBzwea6pDVeFv1cc
gY/D79GehAvjv1NMgQvhv8ZSbWX8Aaw8XAK/DysLF8Xfyj2fgh+G74TnwU9n
+0h7ajZ8A/wwfB88Dn4RngPvx8rBJ+JvY/xp+BF4JvwB/Cb8F1YdLo+/nfE5
8KPwH1gF+CT8IayKYgz+MFZV8Qx/DddPhcfBCvTPwY/BI+EF8HPaF9FzMJ81
MDL6vb8I3xQ9H/PgPXAzuDJ+L9YcroL/DTsXroj/HWsKV8IfiI5r1fH7sQvg
avh90Xu7Kv5X7By4Av4XrAlcHn8Q6w6fjP8L66t1gN+G1YGL4q+MnqcHeLbL
o+f4fviq6Hn9L9w7OgfMUhyKzgEPwrdE54+X4F7Rc3wf3CM6N9wDb4LLcc0x
+J7ReeJexnfDZydZTIuOiTMZPw0bzfv8CP93dJyti/8nOoaeij8SHY/q4Hdg
DeBS+O3Y6XBJPS9WHz5Jz4WdDJ+g34fVhIvoWbAa8PH6TdhpcAm9D6wufKIS
Got2KHyG3gd2KlwcfxQbAp+O/xY7BS6G/zd6fZym/49eW8/wWzbD5RkvgP8J
awiXxh+Kjsu18D9jjeFy+D+jY3pN/OHoWFxb94uO+zXwG7FScIrfhTWCy+pd
YtXg4/CfYxXggvid2JlwGfxWrBJ8rOYKqw4Xxm/BKsKF8DdpbnkFz/Ibhkbv
h2f5LTdE76Xng3/TJVzTPu/PdYM75v2dl8IdlB/gTvD5eedraY8L8n7GXnDX
vN9fb7hn3vNzFdw972fsDnfKW7coXl2W9/z0gXvl/eyXw5fkPT/XwpfD/2KN
4NPwv/CsReFXEq+RfvCVec95X/iKvOd5LvxE3nP7PPw4PAx+AX4y73V0JdwN
/l3PClfKW7cobpRWzOS7NijP4n/i78pwKfxB7HT45CzOSGvVwv+JnQHXzHs9
XgFfmvfcXgy3hUvCHeE2ikXR+uwh7t8nWlfNhvtGa6ZH4X7R2usxuH+0xnoc
vj46Rj8BXxutqx6BB0bH4qfgwdExeg48IDoHPAmPiI77L8CDomPu0/CN0Tlj
LjwsOpc8Bx/H3hnP+DmMnQTfB58Pp/hmfORMrisBd4BbwwXg8+DG8FGsMXy6
cg7jzeFGymvcZwR/14/Wqy2kixg/QfeGm2kN8N2j4A/xRRhvCzdXnM+u0do+
Hm4DN9XaC877H+idMD4Dnsj49fC98NS8dZ101xTlOPxP2A7sN+xn7Puctb60
6xHlHq7fpDiWd+7+VPfXnMGfwGvgGcHj85XDsc3wOuXE7L4/YA8y/jH+fcVo
eB38ruIyvB5+L+/rfsue4WDGSuN/YHuxX7EFXP8t/iX8/pz1925dyzNUVM7F
v6AYCZfkw78Ga3ONP8b45/B6xodHa4hDwffV/XdiB3J+L79ktid7P39m31Uk
+z6x7nsou+Yz7THuvwX/sdYNvA3+XPEle+YteX/PYWxXznv5/9/3nuy7dZ+P
lTP1Dvj/NxPv9/3w+sR78M/g6w9l87c3e0ffaf9H69d9wTpAemCevl/7EC6Y
93s9mM3379lvUw2zMLGen6u5TRwHtL9XJV4Pig1z4K/gjdoz8Jd6ZuUG+Gt4
k/YkvBX+RHEW/gbeDP+DnQmfir+L51sLd45+nn3ZXP+m2ISvmPd72pv9rvcS
P/8fwc+8P5uL66K1+wHGv8v2kfbTHv5erd8XfI9d2fz+ku3ZoO/N9mOUVsn2
rHLQtsRx7B8++23i+KZ7fqN8CP/F+NeJY+Df8I7EezyvvJnlCOXo26Lr23+1
xvBNGU8YKwy3hs/VO8nioXL3X1kMUf76G26fc+4bG12LSnvsyX6j8s+BbO8r
Jx7M4oPy4P7s/srRPybOHblMv3QF2/G9E6LrbWmno1l8lpbYnDgXHAnWVtfA
PRSvgj8rbaBiWblPeWx74jk9ylgIzqHSGzE4b0pjlA6+j7RcbcXunPXejGjd
JP1UmPGeOesc/a265jq+99jg3CpdVDY4t0ofVg7Od9Kf87O4tFY6NzgnSotu
SryWDis2BOdTadHywTlXGvVhrtkIf8hniwbnLOmKEsG5Wxrm9ODnUb11lvRi
zjr2kehaSDo2DdYM0l3StmPgmxXPg3O6NFLj4BpWmqd5cF2sOvjE4FwszdMs
+LPSS8cEawbpwOewbok1sLTw3Yzfxf2/gs/NWav/kLhfsQDemrhPohw3NTjG
XspnpwTH3kvgyfBHcFd4ceIehbTuq4l7HdK3SxL3NKSHX09cmyhfL09cT0lX
TwuO7d24z4rEdZB09RuJ6yPp7aWJ62tp8unBuaM71y9K3A+RZl6ZOF5JA5wf
3AORVlwYnc+k+dsyPilnnXlBcN9A+vmy4Lq+Hrwsce2mWqBD8LuS9r40uG8g
rTs4uPZvDncM7jlIk3eDH8xZ93YP7htIM3cKzpvKn5PgD+EujD/F31/AG/LW
BRp/RzVD4vj2FtwLHg/fkXdfTe98NTw6uBZWXh0V3NtpF117qwZvD1/O/02A
R3F9T3gcfDt8BTwRHg33gO+Eb8t7jajuGJn32tIauxW+NLGWuCnv+ukxzR08
Lrgv1IHvmhDca+okzRzcw2kFTwyuPS+Gbw7ut7SBV0X3LKSFRgb3W1rDdwT3
oC6Cb9R6gs+DRwT3iFrC44P7Vx3h4cF9nhbw7cG9rAvhW7Xm4LaKpcG9rAvg
IcG9EfVIpKHmw8/wW/oH69smXLMhcT9QOv/TLIYrl32WuCcpXbcxce9R+n8d
fGrONc5HifsP0o0lg3saK/HFgnsdr+MLYdfBy/Clgvshq/AFg/ser+GLB/c9
3pB+C+6lrJCeDO6lLNc6StzTkP58N3FPQ/p2N9wOXgTvStxTfVl6IXHPULXq
F4l7qqrHv0zcU1WdvjZxz0Qa+OfEvdlX4C2J+6jSt6sT9xCkq3cm7rUuhN9J
3D+R9l6TuH8ijf1B4j6J9HOl1FpKc1cmi42K2XWCe01rFGuxZ+FGXNMnuM/Q
WOs5uN/YEF4a3feRBu4VvCYbwFcE9xjPhPsG1y9nwYOCexTNovW41sZi5nRg
cH3XlPHXo/sp0ur9guugs+EBwevkXOXB4J7em4q7wT0Z9WbeTtwnUR1RLbjP
thpfJbhH9w6+RnCf7V18heB+4Fv4mtjN8Pva05l2kl6qFNwnfBt/KHHP/FU4
H1wDKofuTZxPldOPYD3gpfz/vsT98MXw4cS99yVw5dRaU/u0bnBPby2+Ymr9
rb28Orquk156O7p+k4ZcGd2L/FkxOLqukG55M7ovuZvxZ6J7hZvgidG9fq3n
ydE9Cq3hSdF9Ca3hu6LPBrQXno7uOX6m9RxdK0rHvhddH0q7rs/qFmmGFdE9
sp1aL9FxarPeTXDP80ft++ge6C6tw+iaSvpkbXQNJj32YXR9JT12fXAfVfd8
K1r7Sg9/HF1fSQt9FF2nSeOtia6xpROuymKL1sO06F6E9v66TLdJy70TrVOl
OR+O7nuqz/NEdD/3E/ip6J7sBq336H7xx1pr0T3cT+FZ0f1Tzd090X0zrZN7
o/tmWm8PRfdhVdPNju6lqh58LLofvR5+NLpPvQ6+O7pvprV9Z/Q5itbbuOiz
Ga2f8dFnNlpjt0efr2jv3xp9ZiP9MD26h6OYdkf0uYviz5zo/vJGeGp0H0bx
bUz0eYbW6ujoMx7FrlHRZz+KP72xxbzbn/DXBPfDd2hfRvclv4JbBvfSt+Bb
B/fPv8B3Du6pbsP3CO6p/oDvEtwj/RbfMDhX6v3XD86Vej8tguvfz/H1gnOl
3lWD4LyseTkzOJ9qXroG91S/w1+i/QB/j784ixXSANKNqgtfTKw/VVuoJq2Q
umZW7lbtqdqrTuoa7/ucayv1VXS9Ptc+uO/9Db4N9l/4S/wZwblbmrNV8JnC
VvxFwX1jvat2wf3zr/GNtA9zXm/nBWsV5f8mwf1e7ccXorWI7rM8unesuXg+
WkPo/bwYrS30DDoL0O8rz/OPDe4FKT6MCdbb0i0vRZ8l6BnmRmsUzd28TLto
7m7Qnsk55gwN1jzK3e9H14SqwRdEn0PoPbwW3UPX3l8UfaaiuTg3+JxCcalp
cH9DseKc4LMMrcnF0ecumq+ewX317fhXo3vuWjPLonvrWnsvR/dHtK6GBZ/L
KM4siT6f0GdfiT7j0RqbGd2jVsyfEt3/lB6olbrmlwa+L7o3rtxRInXvXrqo
eOrzPGmqY1OfXUmrFE59VqfcFFP34pUfj099tqe8Viz1GZ40UrnU/RdpxRNT
nwVKU1VJXXtLpxVNfZ4n3VUk9dmhtO4Jqc8IlUND6t6ocm7J1JpVuu7B6PMe
5fHaqfsX0uo1U9fzqiNqpO4FqHY4OXX9r5qiKvxk4ro+n7rnKE1eMPW5oPJ4
mvrsTfm9euo+grR0gdTniNIJhVKf4Sl3H5P6LFBa4v7oswbl39Kpe0nShKVS
a2tpxQ3RfUbV+GVS95ikJ8um7kNJl34W3c9V7f9pdP9Otfn/ANwZ2Bs=
            "]], Polygon3DBox[CompressedData["
1:eJw1mnfgz1UfxT/33o+RJMloyMompfGkTVMKpaVCGS0aGkakjJKUStEwCiEq
FQ17Z1dP2kiaD+2heBrynJfzef647j33fr7f3+d7x3mf97lqdrmp3Y0xy7Jr
9U+u+pSUZQ+rbi+8Ux0dhGcI9xKOJbLsRdXbhL9ReUntwzU+UO2Wam/X8y+p
jApZNk5952jsWJX71D5P479p7Djh4cLnC/8ufLLwQ8KXCO8QHii8THiM8BLh
51VG6PtGqe80jdUXHqb2QPX9V+171PeR8FN6vrreb4PqhsJRdW+Nn6fxR4S7
C88Uvl31dH32ZfVdobE/hFupXUv13Rpvl/y3rhd+Rfh84UeFewjPEt6oupFw
Ut1HuKfGZwkPF14oPF31F8Lfqrysdr3c83N78Hx+ob6jhMuo7if8ueojhfdS
fbvwISpdhTvo+R/UbpB7/gYJ/6H2x3qugXBQ3Uv4OZUHgt/xVL3L3Sofqj1e
49U0H72EVwqPEN5P+Bk9Pzh4DViLycJDhO8XPl74ZpVX1L5fzy/SWG/hVcIP
ClfQ5/sLvyk8SriK8Bxq4c/0HUv1/ACNvy38mPoP1Hjj3Os7TON/q32nxv8t
/LjGD9L4HcJvCY8WPkB4iPAHwuOEDxHepLqxcK66rz5/q8ZXCD8gXF7jfYRX
Cz8kvL/wpcLPCd8sHISn6zP3B++BFhp7V+31KhM1PqnYE2PAmffKUJWP1X5a
YzX4PtX3BZ8JzsZdKu+o/YT6D9b47cJrhUcKVxKeyp7U8yPUd6LG+qqsUfth
jVfUeD/hdcKPClcWnqbnh+v5keprrrEpwncLPyB8gvAY4V7CA4QbCzfMvXas
4Z+cJ/ac8EThvfR9zYSnCU8QLi18m/ARah+rvo/0N48Vfpbfp75SGq8m3E24
o/CPaldV6SJ8ufD3av9LZSrnS7iknr9T+FS1z4YD9H3H557vSeoro/GmzKfw
I8Hzz54+Tu0Wmff6AOEWwi2FtwkfIzxB7SfVV4L9INxc7bPUtxV+EX6C+VPf
bn6LypPMt3Cm50vrmWZqN2cPFmeiqXCzzGeFM3qU8PGZz+4OzWF1tauob4XG
ZuR+V975bI0NhjOELxHeqeeHwAHC7YX/yx5VaSl8nvDPat+i8UbBZ/o94ZuF
Gwaf6XeFBwqfLXy+8C/C9VXaC1+ZQSIF5whfmpmL/lRfPbVrqG+NxnYK1xA+
QHhlbk47Uu3jMnMdZ+Jo4RMyn5W7hE8L5rRvhf/S55uoXVd9a3lW5Wn2r3Cu
+ftD43WFqwuv1tjfwocL1xNex9ypPMV5FU56vonw45w34X/UPjF3fJgqXFbj
LZPX58povqoN53Ieg/m/TfLfvyaaD85MXt8rovmcOTpV+MD/z13y2nSO3u8v
qDyo7xqtvtM11jZ5/xC/dmmspso1/H0984vaNVSu5vuFf869puy9GtFrfVHy
eSAI8ntqqXQX7qLnf1W7ffL56hm93y5JPl83Re/HF1Ue1bNj1deKvSV8ldqd
1PeT2nVU+gnfEhzvDsvNJXAK78ue4izVLPbavfqODZxf4Zr6e2epb4Hwa8F8
e47wEuG5wfxzhvA84VnB/NNKeLHwnGB+bSm8UPj1YH49mRgtPE24nPDZwouE
Zwfz9enCc4VnhoKvhI8PXhNiVy31LRNernKo2qdqfLbGXgqOD6cJzyH2BfNx
c+HXhGcE83UL4deFXwyOR8P0ezdm5mK+r3XyfruavatnT8kdq4nZ+2r8JOZc
+FnhfYQvSN4LN+j5VzV2U/L8DIt+/in19dezg9XXFG0j3EP4FuGDiUXChxf8
+B/Op/p6EEvVfpzYyv7R+I3q2x+twv4Qvpk9KrxQz+3DZ9XXDa4Tvk7ta1Ue
FJ4vvLfGvxLuIjyC/an2TeqrpM8v0HhZtb9WX1fmRrik8KfCHYXfKfi7WcGH
rxY67RP1Xc7cxj3bMtss3CF3PJoP/6p/MftJpTPvo77SGqud3G6u8dHERvar
xm9Q337JMaI+3BQdO+AguKh+ET/mqZRR+0v1ddZYqWRuPEL9Q4UnEuM1do/6
jkYLCDcR/he/Uc+8ljtWEDOI1V+p73S1y6p+K7fG47Mdo7XfFtWnCJeM5iM4
DC6Dozar73uV1mpXVL0+92+ES5tG/3aeOZmjG/1ZYgSxopTqN+FqPX+98GnC
T7D3Ve/FXoejc+ub0sQu4SuE3yUmBr/Tj9Exm711WXQs5x2OCf6bvNseTaZ2
h2ithgYZQnyN1ia8Q30937SIX6/EPWEh26S+y3LPKVwGpzHX83Ofdc78dckx
jFhGjHg7OkYQK2oKvwOncq5Vagmvh2uitejAzNq9TrEn2AuPqaxGtxGr9EwP
4VXEPGKdcPfcMYJYQYz6MPozPYX7ZP6u79BYaq8N1u8TVAYEz8FRcL/wHcFz
cCSxQvg24TuEGyWvwa3C/TOvDWcQ7oRDOZujOOPCvYUPRZsL3yjcCw4VHg/f
Cg9iTwrPjHu2craRGKuxZehEYqPw1cJvoNtYK84I64HuFP6dM5o7hh8q/Gdw
bGcOmcs/hHvyeZUywXPEXA3LHTuIIfvo7/+k8obaC9RXVQd1m+q/hSuoLI0u
tL9R/1X67HJ0ovB3rHluTVFb+K9grTFcpVvwnt0XbYmOVvtX+jQ2VqW32neq
7zC0KTpV7e2ccY2tE64q/BucJvyIyg1q36a+6uRqwl2DOXBv4UnCdwkPFT5G
eKTw9cK3Ch+SfCbRCkdkPquc8TP47dFnH049U7hcNNeyJnBvq+i1Yg+zlwdF
60f2BO9ybvReYfx54cHRex8O52+fE83t76kcW+i/n9TXIzle3g3vljAHsVfa
RHMTnEOsvqXgIjQ13H5GtNa+kt8s3E94jvA/qjuxt1V/knsO2Otto+dmcfTZ
26p3WAbXavwZ4f7qn5s7Jo3X2OTMseqy5Nz4Vo2/nrs8E/wbGeuS/OwdcG3u
HHRc8HeSm5JTk1t0i861eeaF4JyNz96QHM+HRsfHa5Lj8V3R+cDVyfH6zmj9
3y05Hg+I1vedkvVBn2h9iMZi7TtFa689mp/9G50LdEyOx72j9SFnnLPYOvrs
35isR+6N1htoJHKbrtHa6fpkfXJPtH5kzp4PzqmZS2Iesa98dG6AHiRX7RKt
3ckh0ML7RecW1ybrl4HR+RAaGG28f7Q2Zk2f0/fPzLzWu9V/hdp1VW8msCZr
83rCnwrH5HyoofCW3JzfRrhSdCxgz7UVrhy9F8kJyA2qqH5fuGSy/mwi/KXw
fdHabUlmrQJnE8t2BHM5Off8YA+EXLyZxi8lFqh8l5sD4cIW0foUjufs7Szy
g5XRev5HNFpuTiW2nx7NtcwnudW+0dpiT04ovDs41sPpxOp/inyA/KpBcD5D
/vaByjFq71LfqiI+EAt+CuZCzsCfrEfms4EnMk9jSzN7JU+qb01wDk0uDUeh
hc6M5q7fVF8oXFX1h8J5cn7aWPhz4e2qLxA+mHcR/kt1B2KB6o3CKdk/aST8
mfAO1RcLV1P9cW4PZ2zwGcfb2aX+jmrXVr0JvonORSdkzi3wSIhF7aK9E3J6
uPWi6Fy/RLLeP0z4i9wxmlh9uPBXuWMgsXB9Zm8Lzwk92zc63yUfIdesrnqD
nv1d9UVwq+qPcnsyxMYLor0aPAG8gAujvQJiUINCPxCb1qn9vdr/URkr/Huy
P1OmWB9i4N/F+hAb0eBocTgBrwgNj5aHM/B+yAFmFnoDL2ND8PqWJ2Ym7+fn
ivPK+pKDoE/QoGhRND/aH47BuyEnIDfgjOLd3JN7f3cWDsxNcn6GB8B5fz6Z
b8h5yX1fTM5F8BTwFl4SPi1zjkKuMis598WjgJ9egTMz58Scf3Iocik4By9r
ZnL+hScBf3yp33M0sU91f7gimV/wFPAWyBHJfclZyR3x2BYFe2R4b3AguTI5
LtwIp5Ebw5FwHWvO/pqYeS8g3vEyyHHJNfEnxxT7E34iJk4q4gOxEE8Fv4IY
RiyDo58o9ivcDeeTG8HhxAI4l1yPPQcXo0HQInho7XOfx3kF37A/yRHJFYkh
eHPkhOSGcDjeHjnlnIK/8PLw6BYGe4x4d+Rc0wt+hd/IUecW55/zDidPLPQ/
XD09md/Jccg3ZgifmNnTwNu4ILffuEK4Dr81Wc+UD86nLsrtN65Ck2r8vNx+
29Lg/Lldbr/tDeHawg8n6y3OAGfh/Nz+HTktue2Fuf3IlcJ1yfdzcxWc1UD4
4tz+5Wrh+sx1svfTsNCHzyT7w4cWemsKHCdcp9CTk5P9zNqF/lpEXBR+TnVD
fd9jyfq7bHD+8b766/C+aC7WK1m/VQjOF19Ijm94XHhdjyfrwXLB+dnoZG3K
+Sd/gbOrBccIuJwz107tBtFncTYaJbMnhTdFDsncrC3OMx5vyeCciNyIGFM6
mGOIPQs4c8X57462SM7H8NDwN36NPq8HqR6EPir+Ph4Zfs9sdInwFuFOwqM0
Xlk4D86HH03W6zE4330kWS9nwfnwtOTz26jQyyOT9f4/mfMpcszDgmMYuedr
yfkrnh9+EBoJ7xTPB+2ERsIrxfNBO6GR8ELxjNBO+MPkG4Mz54J4Xnj1eLR4
YXj+5FuDMvvHeFh4t2gYtAweEF7QyCLe4InhleMR4ZURj/CH8a/xp/HIuPvg
TgDvDI+L/JCcnjwOjwuvixhUKzkmtQmOgcQqNEjb4JiDNkHznBWsWXYXMbZ1
cAwi9hJDzw2OycTWVSp9M+d85H5oJPxQ/E20E/4ma9mu4HM085nBGgktzedX
qtRVqZecj+KnkBOQGxDTTwz2BLYXZ+L56JyMs4Jn/mqwxu9XxCPuXGIRz/CQ
8KY488MKvnshOh6Si6HhzgnWEGg77rQeC/acuOviDqpvcH7M3RQe1L3Bdxh4
U3h45KNoArQBnibeJpqMuy7mhFx6ZTFX3InhB+EXkW+j4dByaMoDkjUc+SL5
FtqOnGVKsKdKLoOfxGd4Fr8JjXJGsAbdVWie04M9kL8KzXBycM6FlpiF7sx8
J0W8hrNWF/prhPCMaH1Czv5LMsetKfTKg8mcCXfCwfclczBcDEcOT+ZcuBdO
fCB5/vHyuF+BT8fpffoQezXeJJnDGgefUbiNO7vFwXc43OVx57IkmMO5i4HD
lxb8gzd6nT5/SDAnrihi9AnBnELshrPhbmLC/ckeHF5cT+EqyZzTqtifcNFY
9X2l9tcqPybvN7iYvh+S9wx7Z6vKz8l3ctzNoUmrCn9NjArWoGWSNRzaBQ2z
s9CcpwRr7h2FJoRr4By0Incs3LV0hROTNe9JwTk0Wph3rpycB/BbpiZrcTQf
2o87G+5u0KDVeFfhC4M1bblkDi0VzKFw60P8hsx3uKw3HjZ3K3j2eNvfCF8S
nANVFN4mfHFwjlQh2dPG2yanqSH8be77jM6Z33MrMTk4Zy4vPCn5PrZWsD/B
fuMO+bNif01I9hbxGPGX5rLGmT1L/Lu9cu9l5pC5PDD3d/NOvNu85LPDGcJ7
OSD3b+cdeJcyueeeNWFt5id7J3gceB0lcnsH3CGRr5XKzT2sAWuxMNkfwCPF
K12UnK/gCeMNL0jOr/Bk8GaIsWWKeEh8XJecL3CHh79QOvfackY5q8R4Yj0x
Gu9xSTIXwol4zVVy7y3WlLVdncw9cBDeGJoCbYGmwLt6Lzm2EGPIV1Yk+xV4
ZnhnbyT7IXhmeGeR/ZbZs8S7zHN7m3gq5LPLk/N5PCK8on1zxwo4H+5fmuzH
4KnjrS9L9m/wiPCKUm4vFM+UfLlsbq6Cw+CyNcn5DZ4f3t/a5PwGT5B8tTLn
I/MZ46wdnHtvsufYe2gctA6aCW96fbJfgQeN38OeY+9xZ45X9nHyXTl3wviv
FXPHRmIisXFD8v0/d+r4te8K35vZA8Pv+Sg5FhOT8XvfSfar8TjxO95K1gJo
AvytD5L9Gu50ydfa5uY6OA6u25h8f8H/ccDv3kQMyXzHhd/ydrJXyh0Gftf7
yf4Jd/bkg/vkjgXEWGLth3Be5jto8lM83JrBZwxvF02KNuVM4g1OTJ4bnuHZ
NrlzGTgZbm6dW9uT45DrnJs7d0Dzo/0Pys0NcAbccVIy11+s735WeHEy93Ln
wd1HpdzaAw6EC/fPrTXQKGgVOAAuwFPAW0Ajo5XR1HiXTYrvOys6tpTLrS3Q
MGiZN4u/jweKn4BGRCuiEbkrwQ/Hb8czwTtBM6Id0YjcrWxJzr3Iwfi/AZ8k
51rkXPhNnyV7cXgIeAlwGFw2LTp2zlbfZNZOfZfDx8neHJ4W3tY3ybkWORfe
yLfCyzN7Png/eNIHBXvMywoPCW5qkdlb4v6Z3JccmLvS7cm5ODk53gsaF61L
jsNdwuZkv5E7Svw2Yv4W4WejtcCnwuMz/58d/MRzi/1zlcZfFn4q2X8+ONiP
fjo59lYN9svHJ/vjvDPvPiZZq1UMvg8bl/xbuIPA3yZmE4t+CI7lfCffzXcs
L/bM0OB3YC99mZz7kgPj136e7I/iieKNfiE8JbPHitfKO48O/k38lsuL33db
9Np8lbw2eK54r3OStTMamrsW/HnuT2pk9q/+nXx3wZ0FfvTu5NyBOy38bXIw
cjFyUu7yyFHIVchRuMtDE32q9tRorVRJY99l1hfojP1ya1E0Nlr762QvBU8F
rxLNtYn3jdZi5LzkvuR43C0yp8xtzcx3CVv1/KuZPWG8YdaAtSBn5K4STbRZ
7SmFVuIyEb+PO1D8+ZDbDyQfxx+skFv7kxOQG+zNHsmsOdGeaMBPhCdHa8Pu
xfwOKXJB9gh7hT3EXcuu5LPHGeTua1tyrrjHMxL+H9qvwLI=
            "]], Polygon3DBox[CompressedData["
1:eJwt13ncjWUaAODvO+dIliRLRpFBGEKTtawjW9nK3tgauylLZclkKWPf96US
GWtTqpnQrpCtLJUlJcy0aFcRJaHr/r3+uH/Pc1/P/Z7zvd/7Pssp2WNQm4Gp
rKysPSKHeDOdlVULfJvJyrpG/1pRWBSKPqtpbLr2sLyb/sPZWVkTXddYfoXI
K642XsXYJO1Z+QU1lUV1dQf4y+wmbRvWieWS/yLOyyuJimKwazewkupulTdT
d1b/RVZK25A1Z7/qF1Z7o/Zu1oddpuYl8WfWmv2VXS6/SuQXRdVXNzZVW1T+
B1Esk9z3TO2v8ouuu1HUcO1BXprfph3OHhSL5XnU5RZF9Ksam6w9Kf+f8ctF
TtGNrWd/NN5AfrvP+0X/SpYvvtt4NfkU7Tl5Dv3q6uqqO6r/Fqun/cF4Kf3S
l55JPJvirLaxWdqj8l764107w7Ut5B+KLmwUG88ayt8TrdiguA9WXf6+uIPd
x4azGvJKPrMfW8SWslbsXdGSDWTDWDV5GXWt2Rg2mdVke0ULNoANZVXl1dUN
Z2vYc6wb2yfasMFsJKsl3y/asiFsFKst3yOas/5sCKsi3yb+wrqzv7Oy8t2i
Gbs33h92Uzxv31uBdYr3IP4P8h38VtZT3l9dBXlZ3pFNZBPEanlF0ZctlC9R
11Ld5aw4a8nasZ/0c7HrtK1Ye3ZavwLrrp3NHmW3ufZP7O54x9hC1pSVZ3+L
Z8gWsSasHLsr5g+byeqxy9i1rHnMBTFGfoPowxbI54vn5blFCXaHvINrz+jn
ZMW0LVhbdko/ByuibcruYN/rp1ghbSPWgn2nn2FXa5uwVuyE/tv+nkba3mwg
qyjfKRqyXmwAu0FezbUPstXsWdY11gd2PWvHurBz+nlYaW1b1pn9pv+B2k7a
EWwsaxDzWd197Em2hnVkN7JBbGk8M9aefSx6sLFsGmsmPyjas2HsYVZXfrNr
H2bPsRdZH/aR6MpGx3vAGsVape5+tow9xe5iBUWBmIfGahibFvcl7tR/RN0k
dTcbPyQ6s5FsHLtVXlldLLpL2CrWgR0T98SaxOay1rGOiHvjs9k81ka+SzRh
fdl9rLL8HdGY9WGDWCV5Vd8xjK1ia1kXVpONZs+yDawXq8FGsbVsPevNtor6
7Me4p5jj4oBox4aqG62ujvy3eC9ZDVaPHdE/wnpqx7HprHnsCz6nDGvPurLz
+vlYWW2HWCPZhVgTWTltR3Y3u6hfhQ3VrmQr4jnJ06Iwayxvqe5b/ZKxxkZk
kvVyrvbf8mz9UuoqqPtQvwS7TpQwXlc+R9tCLNbfpW6/un8a/0pMYU+zF9j9
8q/FVPYMW8cekM8TR+XpWO/Zi8br+7xJ2pfYG2ygmjnxXsovXtpn1xv/mf3M
ysVeE3twKpnn12hrszrigLxArEWsi7ynurTrFohP5HlEbvZKrDXssPy83CVZ
61g9nYmxb/KNbECspWwR28H2stGsNhvH1sX9itfkDcVM9oZ8u7ph6s5EyMvG
ns72Gr9N3XztVraLjYh1mC1k27OTs8UodjtbwLax3WxkrMNsBtvItrGh7Bvx
GHuVbWFj5HXUjWfr429j97L54v/yXBHsZeN11U3QbmCvs/5qGrDp7HW2lQ2O
vYNNY6+xt9gQtkh8Jr9S5GWvGT/NvpeXiHtm21LJnlI+lazDsR4fkxcUlVhX
ea/4/7vulPhCXiSuj7NVrHvqVmoPsI/ZFDVXxVrOOrMeLJVO3sF4Fx+P903c
lUme0dhUMg9iPuTJkexbHVLJmSTOJmcunUGO6ecQl4lNrL1Ype6g/IjPnZpO
5taQVLJ3xB6S8nnreFFWS95Q3clY+9XNSSXvRbwfV6tryubF+UT+jrqHYi9n
y9k+9hGbxO5kT7J32SE2gc2KdVZ+Lt5l8YLxQuoqa7vx3jFHDCwUn8qviHtl
r6aSc1hTbb/Y98WpuH+xOvYM+VF101zXmi1j77EP2cQ447ClbC/7gI1nHdka
diieI5se5w+2gu1nh9nkOPewJ9jumJNsLPtJnJBfJ4rH36OmlViibo/8oLpx
6eT/N5dtYZtjTZA3FrPZJvlOdcNjT2Wz2JtsB3uQLY/3SF5AFGPvxPOP75YX
iu9lu9gadi5qRBm2n/2LnZTnF9eyt9kr6eRs/nkmObvGGXZJzLl4/qKwureM
PxHrnTwrvkezhX3CBmhnxPvC2slXitPxTsT/ge2OeZZOztdfZpI9MvbKxbGm
qrmgpqDYHHMvnZx9v8gk5/I4ny8V36rLxGeq2xrnB/Zr3IO4nu2LtSGdnLmP
Z5JzdJynz4ucrKa6+uqO6W+OtUN7InNp3RfFRbHYBzLJ2GztlnSyH3yfSfaR
2E/irB1n7pKZZD+cF2dw0UD/ft/xD99R3vgt7BH2PHuJ9WUb08m54KtM8tsp
fkOtEmfVXCNKq3s/1tZ08pvq6zhn6RcRtfTHsP+oe1ldv1jnRH82nc1nbeWb
0sn5/7tMcj9xX8vEj2ryxfeo22k82/iVsS+xJuy4/qfqHoh9ki1mneRPxWSM
vZSV1z0U7wl7SPs4W866yy/Ee5NKfqfF77XdPv8zNjj+R/In1HWWPytysQqs
KvsklZxZe6eSM3actc/JH1X3uf5VMdfVvR77LkvFfGc3sI/0H2PH5QXj/tjG
VDIHv8tOfmvFb64tmeS35G+X5mTMze2xBrEfYl0XRV27I9ZVltZezyqyw/rP
sdzxd7Jq7FP9/7IC2qqsNvs6nk28r3E+YbXYV/H8WX7tTewW9mWsmfH+a6vF
fs6+SSWbc77Ym1lj6ef6F9VdEfsXa8Q+SyX/57yp5BwQ54ERrjvORrDF8hXq
esjXigwrE8+DfRxzL/YQ7XL2DLtH/ng6maMxV5+O9yb2JzEy5nvsKcZ6yueK
I/Ls2D/YBuO/Ay3T4QI=
            "]]},
          Annotation[#, "Charting`Private`Tag$2734408#1"]& ]],
        Lighting->{{"Ambient", 
           RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, {
          "Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{0, 2, 2}]}, {"Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{2, 2, 2}]}, {"Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}}, {
      {GrayLevel[0], Line3DBox[CompressedData["
1:eJwt0rsvpFEYwOGPcRsMK6Jd0RAFpSgoN4pViSjoiGK3WIlsQakQOh1/AS0R
+k3o3MfMuM2ystkIu2Tjfg3PSRS/eU7mO5nznsxX0zvQ8S0niqJR3SqsL/Vb
87lR9IE/WM0NNvKQrTxnO5/Zw9JYFCX01bqew2zmONs4xS7OsJ+L/M5l/ucJ
77Wta/3TioFSXGWaa8xwnTthJu5yk3vcYlL74Xd4wBSzTPMnMzzkDo+4y1+c
dY9TPuhYN+GOmjBbkiNc4iAX2MdpdnKSnzjGJg6xjrX6Yh1nNx+d8Zl/2cIs
G8K9+JEX9v3hncp1FfaqyoxlrGSCFSwNe1jCBItZwng4j0UsYL4KrWMsCP9x
+I6vytNLeKYnGSOa83H2/j68Acy/Svc=
        "]]}, 
      {GrayLevel[0.2], 
       Line3DBox[{690, 1004, 473, 689, 1113, 912, 691, 1114, 913, 692, 1115, 
        914, 693, 1116, 915, 694, 1117, 916, 695, 1118, 1010, 1217, 696, 1119,
         917, 697, 1120, 918, 698, 1121, 919, 699, 1122, 920, 700, 1123, 921, 
        701, 1124, 922, 702, 1322, 1005, 923, 1006}], 
       Line3DBox[{704, 1011, 1218, 703, 488, 705, 1125, 924, 706, 1126, 925, 
        707, 1127, 926, 708, 1128, 927, 709, 1129, 1012, 1219, 710, 1013, 
        1220, 711, 1130, 928, 712, 1131, 929, 713, 1132, 930, 714, 1133, 931, 
        715, 1134, 932, 716, 1135, 933, 717}], 
       Line3DBox[{719, 1014, 1221, 718, 1015, 1222, 720, 504, 721, 1136, 934, 
        722, 1137, 935, 723, 1138, 936, 724, 1139, 1016, 1223, 725, 1017, 
        1224, 726, 1018, 1225, 727, 1140, 937, 728, 1141, 938, 729, 1142, 939,
         730, 1143, 940, 731, 1144, 941, 732}], 
       Line3DBox[{734, 1019, 1226, 733, 1020, 1227, 735, 1021, 1228, 736, 520,
         737, 1145, 942, 738, 1146, 943, 739, 1147, 1022, 1229, 740, 1023, 
        1230, 741, 1024, 1231, 742, 1025, 1232, 743, 1148, 944, 744, 1149, 
        945, 745, 1150, 946, 746, 1151, 947, 747}], 
       Line3DBox[{749, 1026, 1233, 748, 1027, 1234, 750, 1028, 1235, 751, 
        1029, 1236, 752, 536, 753, 1152, 948, 754, 1153, 1030, 1237, 755, 
        1031, 1238, 756, 1032, 1239, 757, 1033, 1240, 758, 1034, 1241, 759, 
        1154, 949, 760, 1155, 950, 761, 1156, 951, 762}], 
       Line3DBox[{764, 1035, 1242, 763, 1036, 1243, 765, 1037, 1244, 766, 
        1038, 1245, 767, 1039, 1246, 768, 552, 769, 1157, 1040, 1247, 770, 
        1041, 1248, 771, 1042, 1249, 772, 1043, 1250, 773, 1044, 1251, 774, 
        1045, 1252, 775, 1158, 952, 776, 1159, 953, 777}], 
       Line3DBox[{781, 1160, 954, 779, 1161, 955, 783, 1162, 956, 785, 1163, 
        957, 787, 1164, 958, 789, 1165, 959, 791, 1166, 569, 793, 1167, 960, 
        795, 1168, 961, 797, 1169, 962, 799, 1170, 963, 801, 1171, 964, 803, 
        1172, 965, 805, 1174, 967, 807}], 
       Line3DBox[{806, 966, 1173, 804, 1265, 1057, 802, 1264, 1056, 800, 1263,
         1055, 798, 1262, 1054, 796, 1261, 1053, 794, 1260, 1052, 792, 1259, 
        568, 790, 1258, 1051, 788, 1257, 1050, 786, 1256, 1049, 784, 1255, 
        1048, 782, 1254, 1047, 778, 1253, 1046, 780}], 
       Line3DBox[{809, 1058, 1266, 808, 1175, 968, 810, 1176, 969, 811, 1177, 
        970, 812, 1178, 971, 813, 1179, 972, 814, 1180, 1059, 1267, 815, 585, 
        816, 1181, 973, 817, 1182, 974, 818, 1183, 975, 819, 1184, 976, 820, 
        1185, 977, 821, 1186, 978, 822}], 
       Line3DBox[{824, 1060, 1268, 823, 1061, 1269, 825, 1187, 979, 826, 1188,
         980, 827, 1189, 981, 828, 1190, 982, 829, 1191, 1062, 1270, 830, 
        1063, 1271, 831, 601, 832, 1192, 983, 833, 1193, 984, 834, 1194, 985, 
        835, 1195, 986, 836, 1196, 987, 837}], 
       Line3DBox[{839, 1064, 1272, 838, 1065, 1273, 840, 1066, 1274, 841, 
        1197, 988, 842, 1198, 989, 843, 1199, 990, 844, 1200, 1067, 1275, 845,
         1068, 1276, 846, 1069, 1277, 847, 617, 848, 1201, 991, 849, 1202, 
        992, 850, 1203, 993, 851, 1204, 994, 852}], 
       Line3DBox[{854, 1070, 1278, 853, 1071, 1279, 855, 1072, 1280, 856, 
        1073, 1281, 857, 1205, 995, 858, 1206, 996, 859, 1207, 1074, 1282, 
        860, 1075, 1283, 861, 1076, 1284, 862, 1077, 1285, 863, 633, 864, 
        1208, 997, 865, 1209, 998, 866, 1210, 999, 867}], 
       Line3DBox[{869, 1078, 1286, 868, 1079, 1287, 870, 1080, 1288, 871, 
        1081, 1289, 872, 1082, 1290, 873, 1211, 1000, 874, 1212, 1083, 1291, 
        875, 1084, 1292, 876, 1085, 1293, 877, 1086, 1294, 878, 1087, 1295, 
        879, 649, 880, 1213, 1001, 881, 1214, 1002, 882}], 
       Line3DBox[{884, 1088, 1296, 883, 1089, 1297, 885, 1090, 1298, 886, 
        1091, 1299, 887, 1092, 1300, 888, 1093, 1301, 889, 1215, 1094, 1302, 
        890, 1095, 1303, 891, 1096, 1304, 892, 1097, 1305, 893, 1098, 1306, 
        894, 1099, 1307, 895, 665, 896, 1216, 1003, 897}], 
       Line3DBox[{911, 1009, 685, 910, 1321, 1111, 909, 1320, 1110, 908, 1319,
         1109, 907, 1318, 1108, 906, 1317, 1107, 905, 1316, 1106, 904, 1315, 
        1314, 1105, 903, 1313, 1104, 902, 1312, 1103, 901, 1311, 1102, 900, 
        1310, 1101, 899, 1309, 1100, 898, 1112, 1308, 1007, 1008}]}, 
      {GrayLevel[0.2], 
       Line3DBox[{251, 474, 1113, 252, 488, 280, 1222, 503, 295, 1227, 518, 
        310, 1234, 533, 325, 1243, 548, 340, 1254, 563, 1161, 355, 578, 1175, 
        370, 1269, 593, 385, 1273, 608, 400, 1279, 623, 415, 1287, 638, 430, 
        1297, 653, 445, 1309, 668, 460}], 
       Line3DBox[{253, 475, 1114, 254, 489, 1125, 281, 504, 296, 1228, 519, 
        311, 1235, 534, 326, 1244, 549, 341, 1255, 564, 1162, 356, 579, 1176, 
        371, 594, 1187, 386, 1274, 609, 401, 1280, 624, 416, 1288, 639, 431, 
        1298, 654, 446, 1310, 669, 461}], 
       Line3DBox[{255, 476, 1115, 256, 490, 1126, 282, 505, 1136, 297, 520, 
        312, 1236, 535, 327, 1245, 550, 342, 1256, 565, 1163, 357, 580, 1177, 
        372, 595, 1188, 387, 610, 1197, 402, 1281, 625, 417, 1289, 640, 432, 
        1299, 655, 447, 1311, 670, 462}], 
       Line3DBox[{257, 477, 1116, 258, 491, 1127, 283, 506, 1137, 298, 521, 
        1145, 313, 536, 328, 1246, 551, 343, 1257, 566, 1164, 358, 581, 1178, 
        373, 596, 1189, 388, 611, 1198, 403, 626, 1205, 418, 1290, 641, 433, 
        1300, 656, 448, 1312, 671, 463}], 
       Line3DBox[{259, 478, 1117, 260, 492, 1128, 284, 507, 1138, 299, 522, 
        1146, 314, 537, 1152, 329, 552, 344, 1258, 567, 1165, 359, 582, 1179, 
        374, 597, 1190, 389, 612, 1199, 404, 627, 1206, 419, 642, 1211, 434, 
        1301, 657, 449, 1313, 672, 464}], 
       Line3DBox[{261, 479, 1118, 263, 493, 1129, 285, 508, 1139, 300, 523, 
        1147, 315, 538, 1153, 330, 553, 1157, 345, 568, 1166, 360, 583, 1180, 
        375, 598, 1191, 390, 613, 1200, 405, 628, 1207, 420, 643, 1212, 435, 
        658, 1215, 450, 1314, 673, 465}], 
       Line3DBox[{265, 481, 1119, 266, 1220, 495, 287, 1224, 510, 302, 1230, 
        525, 317, 1238, 540, 332, 1248, 555, 347, 1260, 570, 1167, 362, 585, 
        377, 1271, 600, 392, 1276, 615, 407, 1283, 630, 422, 1292, 645, 437, 
        1303, 660, 452, 1316, 675, 467}], 
       Line3DBox[{267, 482, 1120, 268, 496, 1130, 288, 1225, 511, 303, 1231, 
        526, 318, 1239, 541, 333, 1249, 556, 348, 1261, 571, 1168, 363, 586, 
        1181, 378, 601, 393, 1277, 616, 408, 1284, 631, 423, 1293, 646, 438, 
        1304, 661, 453, 1317, 676, 468}], 
       Line3DBox[{269, 483, 1121, 270, 497, 1131, 289, 512, 1140, 304, 1232, 
        527, 319, 1240, 542, 334, 1250, 557, 349, 1262, 572, 1169, 364, 587, 
        1182, 379, 602, 1192, 394, 617, 409, 1285, 632, 424, 1294, 647, 439, 
        1305, 662, 454, 1318, 677, 469}], 
       Line3DBox[{271, 484, 1122, 272, 498, 1132, 290, 513, 1141, 305, 528, 
        1148, 320, 1241, 543, 335, 1251, 558, 350, 1263, 573, 1170, 365, 588, 
        1183, 380, 603, 1193, 395, 618, 1201, 410, 633, 425, 1295, 648, 440, 
        1306, 663, 455, 1319, 678, 470}], 
       Line3DBox[{273, 485, 1123, 274, 499, 1133, 291, 514, 1142, 306, 529, 
        1149, 321, 544, 1154, 336, 1252, 559, 351, 1264, 574, 1171, 366, 589, 
        1184, 381, 604, 1194, 396, 619, 1202, 411, 634, 1208, 426, 649, 441, 
        1307, 664, 456, 1320, 679, 471}], 
       Line3DBox[{275, 486, 1124, 276, 500, 1134, 292, 515, 1143, 307, 530, 
        1150, 322, 545, 1155, 337, 560, 1158, 352, 1265, 575, 1172, 367, 590, 
        1185, 382, 605, 1195, 397, 620, 1203, 412, 635, 1209, 427, 650, 1213, 
        442, 665, 457, 1321, 680, 472}], 
       Line3DBox[{277, 682, 1322, 683, 278, 501, 1135, 293, 516, 1144, 308, 
        531, 1151, 323, 546, 1156, 338, 561, 1159, 353, 576, 1173, 1174, 368, 
        591, 1186, 383, 606, 1196, 398, 621, 1204, 413, 636, 1210, 428, 651, 
        1214, 443, 666, 1216, 458, 685, 686, 687}], 
       Line3DBox[{459, 667, 684, 1308, 444, 652, 1296, 429, 637, 1286, 414, 
        622, 1278, 399, 607, 1272, 384, 592, 1268, 369, 577, 1266, 354, 1160, 
        562, 1253, 339, 547, 1242, 324, 532, 1233, 309, 517, 1226, 294, 502, 
        1221, 279, 487, 1218, 250, 473, 681, 688}], 
       Line3DBox[{466, 674, 1315, 451, 659, 1302, 436, 644, 1291, 421, 629, 
        1282, 406, 614, 1275, 391, 599, 1270, 376, 584, 1267, 361, 569, 1259, 
        346, 554, 1247, 331, 539, 1237, 316, 524, 1229, 301, 509, 1223, 286, 
        494, 1219, 264, 480, 1217, 262}]}, {}, {}}},
    VertexNormals->CompressedData["
1:eJztfAlcTVv7fzIl1xySJhKJMiWlWCRCKZKuMeleREiEKEKGXmWOWyKlASWE
jOmRZinNaZ5OnVNnSlKS6u911m6/7fvfn1PJve79OZ8+Pe3veXrWs+Znfdda
e4SFtfF6UREREeXuIiJdv0j/ofcDEq4CMBWf3Tr5gA2c26GRHLFCJDtVPtuw
4jm8nnSK/UScA4LnfFTx5AOn54UIyL+4vdRlbSUInotpcRHB52Bx3oqqMd6V
cJGl5S31gh5XHmVeliSVAki9/3L1GxUgeCb1s7kQrXiVAwKZh9D4X7Y/l8/B
shKIZzr9zsJlppyZe31vCVBku+1gf4HO/9dajhu8vMsBSyJdavq0+su+fsqg
tcyg1e9o+UjfSZ1v2ZsPAvlGKN5aVtHax34jOv9p9GnzS+c/nT9t9Z8uXZwe
JX368sT9htKPIr57e0719Z+mMr8cWssYWn3Nyw2mZ3i5IJBsLBOElltn2Wlv
fVFxYfntrPZM1cfPlO+F2/mJ/zV4e+v9e7VPYXjOO2/n5y/4IJDQYf324p3l
57eWD/Hc+vuOl//31u+s8uysdvi98P+r4xu1fqVjbb785IFAcrAMoy83gT6i
029v+6Hzk6qP7VLS6fj4QIePeSxW27uKDwJ5p93lSVtuHRwH/mqcyE/r/Akf
D3/iP/EfsR3+bM//bryz6ldSMuug3IlyaC0f/u35bW9c2l79723nR8H/reMA
5iEovERui35n8TDfy/9f/8Pc5ZmSBOPdlXta1lWC4Lmg0+xf6jfemXMY4PrJ
0XWnzrFB8FzYafn93vaf2YR/lLv6DASSDZZr9KQXnCXtf+t6ypC1ZJXW4CwY
eavxw6eQSixzkGlW+LKaqhdwa/LjDfeTK0HwXIRY5tFd1755CjES54OfybDg
pqVU4ptIBi2v/vsC2UFdld6iNy5V05RqGIAl2ril+7SwqyFwfhWj6+fTlfCI
qRNsHFqMCvdcP5ZokYY2SUipOpwpAywJ/0WoPHy/XP9bZZop4G6y+0ZcJhPS
8w1mGDmXohr1Zo8GjRBwYEgEPDxTCY06vw1781/7rCH6Kz4UwX/uNpugmnKY
YscyU3yfh4LLIJA5KAliTccbzhxTCcOUtklLZxahLl9TjQ17i+uxoHU9iox4
lj3D6DAT7NKu6kWHkn5mYf1ygj8XlDNSxOWsiMuZ0M/B+jlY33fc08jIM0/R
2N3u7It7OCCQZLocUZuzZud5oBh3pCakOJXWDoHTtBNa/cCJstW2IaWwv3DF
5U8aFUL1n25RGLS16i2MyNYIt7HjIkWX6goVo0iY8q6576w5bGhaEB51tPeX
8hyWFWaxLQZ12XD6wUsVDghkHnrHHl8XO7UACHlqpmne9jQmkhhv6v3H1FLU
2LwpQ5pRDgKZiTbZW4gMrwmF28P/SBtzhIMl6c/szCvPEgcmw4Exmx5b1/Na
cI2rK6Qkx7LgdrdMUZcGRgt+Fuf3LM7vIMvBM2r104CQM6W9V717x0Emq3pW
HFHKAbEdjPq+N5mg5nkNuLLF6Lag/6NueDw4hceB3l+tl2ln4HKrxOX2+4zj
y+fbFcJeFy2neh02nM7mBwf2iUWZTzYM1V/wEkrmeEjyVLmw5QIYe15+K7T8
24rXDxiwUjIgFqTfGeg1hXAgP0lcW+t5NppXqSDTfxwDHNQLXQ8WMCHk8KXP
VWcT0Mlr83T1Z96CcS5Ddxo287BMarFvNWqj9dtVXFDcIKlVsysbVeYphi/8
lAIVfYb1yuvJBVu5HoEPxdPRqMfN/hk3XoOh52r3a7N5WJJ29HC9XKHUy9wu
Jmv1lqfCmKDnOrNv8IS2ZypeOtS1V5Q8A57VVIStGsnCMg6Jr3sVvOpMLOwe
5Rhy3omHZZJQ+3T94pSLFUe6KQ+MXxv8oX6cg15u/NpukIGg3cBQQTtCT2aI
8XWfc1v+z97vYdRr76yW59afqp/4d8Lb2n4InIPrVxvXL4EfwO3Bi9Ie2mv/
rnyA1WYlPpxfsnhI3bhEsv/iuJXXOl4VCcH6ThT9OaMcF9t48eGwv2mpyL3I
P9mhxL20+PB0h4yDJ/iQl3Bcn+8RLdT/O9gfT4o/gYL2DlGUdk61syjyROnF
mgrQeJSdf0ixEHa90aoIikxHxLhM/N9ZSjnH4HrRpdTLaNGmvlZH2BB/6m7R
4WVFLfiKpovO25tewDPdp0PsH7XwiSJDsT87KflqxPqhFP2+2P47iv1huNxq
KeW2o/exkY9s+SCnOEQ+/WBsh9sJHd7603n9BZdvy/dEOePybcGp5fy9/Pm7
8ONsD79tKtkwQ6nXasNJXCyfo6wdaz4oWUWAQKbAe+ffgo/b81DmrZQrifOy
sGTCoefXGeJXS1Dm48gtatMS0ULGdZ5yJQ8EMrwlXSncfsop7edb27O94XH1
NYv4SOLkb9GVDhHgdOKyQUX3KPSgO3PPwcY0NMY55/6sz1w49PW54+PGWNnQ
hFGZfNAfaTRgx9snLXi2muo5PeDC6EIXvaCL5DjQY1G8vf2NCGCYbFpyK4SP
iPGC+J4YN7bgOIDAR1DigW+t387C+Xrekm/LeS1+Wl3v8fTE1WRkXvV0bura
tBZ8C3vrr16OP57/P/F/Fn5y/pnqkd0LW9rVjnu/aFs3stEsS3fLZ/3IfvSf
P44vWfkq52d7/om3wl/yW9fjUVyPzZR65wUI6n2hXZlMs3g5EPLFrxdeHmK+
RpIVqpc14xOAkAU6/WCz7V/XHlbjeaQEzyMEnoXnqXPVreepnoYC/VyK/ljc
b5iU/lKH+5kJ7l/C/DHC+ocp+gbYvnEH++P3xhsp7cEBt4dPlPYgiceBPl+f
mGE/iv90OKtbo97D8Vlw/ZLZoIrgSixzkI7PkMHvJnmBW7hxrflUFlTpdnOv
ZDJQg9q9Xx7My0CfM1V7vu7FhPvR73okHyhFhxdp+YaEhsAEe5Vm92AWvLlu
dnH8LAbyu8hk7h2UAuLXLUasMKiEUXY8nXfDyTht73s/5YWPKyDypOXAruKl
HeYbqXzOwUlo7qXgp2irnWO0vQ0PNlzbOM7mFMkHGjyUm65lyAPlxFOT7rqm
t+DKS336vEotgtSu83o7a7Bp7dPxdXT6pg6monFez0EgE+GCqeLjQRXkOPCq
RtbEroADW56k5E64nItMmxOMwxPTCQlbb49LGWbFoeV16fg3wn5b+Vg6/o0u
XwS+TGXPeP17XDif/uRkVBYZxw48s8h6TFceyNgWipmpZbbgVF6Ujn+j4znn
3HteF9IcCnN6BH3Of8mDeWYpMpsjkmn9dJF5WRzPywCBLIP99iYVmqdJPq2t
68cVdTNHPykpAvtTWotPDqoAts4MLYWGdDQt/VpYUgUb8Q48kmowiACJqHq5
bYMK0C9f/69Mexi2PwfbV8K84hnMK9ZjXtF5SYzKoLEvYbv6IXHRPB6gLXF+
hRdfd7jdLsH1EoTrJX3wUJkNPdJQqvn0+K1GlaA3+uDingMK0YV41ZH9T5QB
IS/mBSm7e6ahdeeUqs8E3waBDAe3gNGfFB6S8wKx/qCuO8S3Cup3IK5fcY5c
XI+yL+PAV1kMJnstTO3rWS36dDwntfyJv0Lwesibwp+If/1dHkbVp/IVcz+u
k7yW8goIWdXYQ1TmDOn/aFcBf6JK4U/oeE46P9Xx+vQuXp8K4znpeCEZbCen
jXwCHf9GxwvR8cntjR+uYf95FP/p4ofd2nZyV7IrQNN3j11QXss9CBGW2t2z
DiplYMarGbymkdmCU/lkAu+L/Z9A8Z+6jibwtvJIdPybsPKns0/HV7SX16KL
02j3s2h4CTr+rb08Z3v5N7pxg8on0/GcdPybsHKm84cOp+M56fTpxo3JUwXt
WZrSnlfjce8YZdyjjhsEjscPIMYN26NeBqLPckEg2WBu1DR5TAh9+dPxb4RG
N+znPIqf1HFDGM/ZVv4Nr6NbvifW0cRzp40bRmNrQ5oKId3QZmnuQ+HrFOq4
YaC+LfvSJR7cK7UJ6V8aAes0k/YcsEqm5Tnp7Ht4KWdHSqRhWQoq83a9qckm
/fTA+epFyde3tmfMcwKV58R8BdkvKXwF3fqOrj3fxv5zrrX2n47nbKv//xSe
kw7/v8YL0fFvnWWfjn/rLPv/dLyzeE46/Hu3Zzr+jU6fjn/rLH86irc3fqaz
QzcPttcfOv6Nqk/Hc9Lpf2+ek45/66h9uviZTr+9PCcdTuU5J2v3kO+j8RIc
SrpM0enNgeOu5znnduSjoynsgqjaPPAQrfMu+FAGt3epO3trlCBNwTofHcrf
1O/tchYI5Fv0RlVhKjuTAYTcunTjsNH8t51W/terhk7c//4lrO+182PvFDbs
67nby35CAdqje/5YSmUWdF8np6V2sBIasiT2mYTRn9/b73m5UMv3LCxSklQf
NY4JF8xk7ar6lyMdu4JHSiOKkE9TkZqMFAOC7j+beqqOjB+W9dZTUFFhAis4
6eSZL/q62Y1hhRql8MtrV28UUA4N0hs5D15lIf/ZF5O3TfWBK7kyleaKTHDa
I9HYa2A5rT8vPNdYWq4LRAv6huttvsABgSTXFQz/rWU7U3nAPTcz20wtRSie
dfm9cd6xcFivkLrDNZpPm65M4JqGvB4l6NT4ORa1MkyI4YYOdrqZjSwE5xtB
GZ9vVMbnG/tgfucSrvdLuN4J+9myvmPcG2KhdpTLJ/Y2PlrxjHXC5HIkyl/f
mFZ7hQsT6wfLeo7NpNWnu//evwp5JjFYKFXDaMHxGa9AO+a9XHyXUtp87Rwi
5Vu1NRfcFfm2l7pyANSi5ul6kOMw9VycMNwsYouHmjQLRC4X91shXkabrrhZ
BDtLPw/q1bSZZpvYUN9QM8G1ewqtPoEvwnzaCMyn+SR09ZhaXQQHTjsvSIyv
AMEzOe4pTZxftjKOAU0LmCNUl7HQYn6m6qfiFDAMMR6Ql8TFkjznQz1XOR6f
myTkNHx+UtfEtj5mZB4K9wlw3bKtArrY94n0iMuh9bP4o30X0ysMSL05+thE
LhMEz1G0+sJwKl9Hp5+5/f3cbSnlqCm3i/NCnWLY5NYQ2CUoT6gd6jlSYXzg
YNzeizCfKUyfal/k//upEqpPxUeOXbG+QiIfCHngxCLXC0eEp/ut/uBn8vs2
2qHj99qLf2/7xPqAui5or3578c7y81v5vbmU9SyVd20vT0inT5x73EE599he
fTr+kE6/vTwhnZ328vytP8LxttoPoZy/IvRb67U9XSruKOCRUJ2AP4IEAZ+E
huP7+H2/6jHDJn/j+cYfpTwJnNg/l6Ss31vvn3fc/o+ib415WmvM04ZSeFqC
zxDGY2A7qK12xu0UtCs+blf5uF3R2Sf+ou7jCONp6fxvL94oN1VbajkfXEew
HcbHxQv1k2rHaaut1KQBX+KV/KU7vPPfgOCZvL9A8BbC+ApxXG4CmQKVFF6X
zo4XHtcl28hPUvUlW78PQcSS0t/p0m0vvkXBdl1OehrsjakxfrVFuJ9UO8Q+
B/E9db+Dzs6PgtdR+MlvXdf/23BiH4VAqPspf7WdfytO7JcQCHXf5K+2017c
iNKPhPGKTiwBP0hI3l98HrK9OMFDC+OfO6rfVjsGFD5f2DnJJZgHJ6TUX8SH
E/umBEI9d0HwysL45I7qfy8792OHhbybdgpSu2hbXrdmQrm760T3uDJUoxzq
PUS0CKlFVM3kqTDggc0i9YzPJWiJyGG/9GdnYcWC9OjicUwwGetqP6p/ObJU
X9YwTaoUQi4Pk7d+VA7x4d2zMtlk3Pjaf89tDxUmoEhjZ9n+9LylXQPbUe5J
IBqa6vjkcQIPIm+Em2wbQMZ1YpVSy6an8uBa1PS5DVNJvHbpEtaDxRHQnavY
6/4Den7Sy1xKt1q6FIX9Oq/mj5pyEMhMWn0Ct17fJ2/OUy6451wfwbyThYxP
ub5duimakJBYJ+O/dygfpRzTHmcfVgTaEhfuPxdlQoAPV0tkQT7qMTk0OTGd
gfbudJv+YUkmQKrf0XXn6Xk/Ap+wPSpCZTUXUsJW+m62JfnDK2P8ZNd9wd+z
tvrv30ni4QulM1xOMUHhk4vH/htlqLnPcqMVx4vBRNQkImZ7BSxruD5MKjgZ
hR/znZ/LikEvVAoHZyhxQCCF3x+ntp/k3OlhfT1TIKHps3rSbC6sVD/5KrAn
ue9uiHm2kRRerqlx7+p+9dngpqlpLYFIPi3SJKIsfBEPLDYxfj95Oh1B/N7H
8yaw0IG5YR6Z5oXg1XP4zb5xuUj3pvGG048zgZDhq/2yg2+R4/PT2U3rdu9n
wO4FlyXN3VhC+8VFzFOdbCMf9WF9UorucwZcnNQ/1seMhRRWv56+0YY858KK
yfO09CLTXVjCP2XglgtXu1cnrSwi48nnmJ+ZT4kz9bC+N0X/1v5R0xp08yFA
xtVq2C6O0Ppq7/mlrgLv/7Qe7P7fXwcrWvCeX2Xln/iBIa3fsydykJJubxr7
X89Bz2r7Op3qD4H3+vqb8ydcvJW/VUL9Ida/fh3kE8QCzp30PZyLJRvcB7uu
nXmTHK8OD9x13dKNBy4L+0l/yCHPb4+28MnO38AF68eHPhfrZKOzYxxnrw4j
eaNDy7Q/9/Iiyzfails+IZoHz45d3rfi3P/s19xRfhEUwIODUxUgx4K0fwin
60xJV8Y3KcuxLx8Ong+dEp2dJLT8TYzPxsXH8CD9/iQ32eP0624va31W/ZYo
LNNhoKHxtucMsr+/+7BwnLJEFohKFMqkvyXx8Rv+27/SoULKQLpmLhlv7Pit
d3m9XgacK5F1ylYh8XD/2jPL/TLhWr7l7ak80g4T2+9Ksf8w1rk0al0WFD7z
DngYzxWa3x8df18N/f+QZ7TEJ2espnL9i4SPe9+Kz3plWHRqR2VLuhvv7bsT
1bUErbtwQjJ8Yn4Lvpk38zf9ffTraCf9MvfquWQcGBk4dKJ4TjaaWrjYTbLf
LbDwXs0c6cbBMg/1w/vFHnjf0IOyb0g3n35rfqfcr0tT1/EBI9NfdTgWHHBK
uXin3558oeluMD/Ql7uODYseZblInC5CU7wa7J0Of5kPXCxOLxThgPje+GsD
DrxGeyNdNasKk8GuWvmX2RZckAq0c5OuoH/fi8z85Y8nKhQg/x0PjFVus8B8
zbHudyxz0V653cdyjQqgcVy5q8WJSpD3mx9kVZuKPm+10BfTTABPv8JN8sd4
kGe607xZNgE99Te26Tk+BQSyGHj6IvopHuQ8eOipUtatyyVwt3qoQ2bPSrI/
3hrmC6ZFYMh52nTbiZx/RwjmQ6igzIODB3O8qjklIM3+dPlBYgVSY7Fipxvl
AiGzD0f+MfMIma7LmuN9FhaVwI2yyGsfM0m8/4nJb6UCCyCIlfhyzxCyXWUx
dG/2CiyE3D1Ri+TeCOc9ls/OfhsQXwCf9unGZ/Qh7dykmWelcLo3KOlqBk5y
eDurGKRWno80eE+WzwQNO285o2Iov529Q6GSxBkDzXeeuFMEmot7O04yFL7/
QsXdHnk7cW2yYIJWTKhPfw7s10/Qes1IE5rf9sYJSbLyuxtucOA3x03iwXva
8H4hmv0UsZ25tpZefDCt8l/P+J99kCmrMmKtvuC7zxr1OP0/OJ3/lzeuKOmx
jwtVi5PCqlhkf5+O500JPG8OHd5L+eN6cjwJ7r6/oq9eNlI1napb8IZMpykp
MWreFXI+3X7urmXSH1wIqpliM3wlaX/59vdmOh5cOO17VVV8qfDzJ5rYnyHY
HwI/i+ffkZT5VzvF+66UHRfuLPM8IFZN2rfB/lzH/thgvt0G8+RXKDy5HvaT
hf3UO6Z0Je3LOJIlpjV3/ItUmOmn9at1rxT0AZ/v/YDP9/KEnO/lxHbLt+vL
g2iphutDl6XCineOOnGT4mj1L+D4lUBOUuJYunJrM36x9fwyR8j88r1x5pw0
sW6y5S3+yO96s+5X+X8vHxhQ5KWseonVkl/pG4qh+3cLv99ExRUehY9O2JUE
hFz7WGbpmJF/P28WO2K7WuVvqXBYzrqXU4Bwf9Jfj9y70zETDj7NsR37oePx
ZIyFIL69i+PbhdeWeEQXlwEhZzj3P8Jb2HG+iIpnB5xI7e0Z2VKP61TS3ZZd
FX5ucD2O/1cJif+Jv7rO9G06foEHXkenHQ1KS+2w/zl4vTMWr3dK8LlAQvKM
BecD/TSsh/abFAKZDpHOH1RYcE7cQe1mNgP1u7j1TsS0LGRqoM5RDSqDxAEp
fc47MJDSaufaHrMS0MLHc0Qf3iwHseEzfPRPlKHQuwqnTDVSwDJ5e93qNSyQ
Sj5QAoUlyGH+kCtvS/NAgzVjdg8+EwqmjWdvVCxE/X+bWT1Ezwc8YwY1q3Rl
AV82aF+6HD3Pk9BrYB33YSBaViIRPfQkD6Tfr628HE6WDx3f1XB7S552cwmo
PTq6fdYLMi7Sx/HYehyPieL7vKL4Pq8o5T6vWVy0sfZRNjR3t9YZaVKEJumb
zu27PBptDLat3VRUANpzNsLKI2y0RDHToGpEGix4/sTX5EUheHjHqxcOrqS9
n5u2RWe71JFypPjKpPTCqwww90+4OfFDKTrG1I6bLPI2LA+XQzIlTp4ohO+q
ofBdzyl8F9192zyxs9XsoxkQfKGvT9weDsTIH33qFJOGLIKtmkVf34IrnHlP
0pp4WJLrX60Pvh6xYzJg65npTw9N4SED5n1x/VlpsKPKbeuno6XQu8eiuBe2
TKSE43AfHIf/juNwwg4dDyZ/I6hm/+li6Dd838XFL8j48PCC9ExLpQrwe/3e
3DOmFK18dSBqnk4a2pxhMKAwig22Xttk9hllIzGD9zYnDxSgctNVr9xHlMAB
Gb0Dyk5ke2svD6aI4/ZyStz+d/Fj2pse3ZHvkwcvNaunTYkk8ReYN9NrI282
B9t5QbFjhOOlZ5S47kfh02Ip9wHn4vzK43tq/bH99Dben/qn8my/avjfavAO
AYGMgBP7h8cYePFp7/0VD2JWDZKJRT7G82RZ4jy4Ix3buDGKHFcX3/B85D6K
B3sGNNxTdchAB1ckd9/iFoV+t9btefxJBewbIJ5ZZUzuM1Lv/R3iS+2tt4pC
0o7Luo0eywMeL3vB5Fek/fbyb0GBd/Ms43kgosOODbQlx/mT6TWb7AzY4Gzg
x191j6xfuvu/rT+dz79R7RN//eTl2ofT3SNrwnEkge/9xniyrTgdj0enT3eP
ySwgyWGJQkYLvvbVZr8FavT37ul4P7r3opT5OsdFegTCcuOyA7MucLAkx0fq
ez+oPNsvmGc7aibhFzbwIchtdVy7YAYPrGa/eDdoMjkvS0Tol/xuXwkBdfW1
UbXFiJ3qJqojW6ZNvKdCFc/jfarYS47UlsBBo5SjC9ksmDyuf83WNa/QFaPP
K15OewkHU8aZjvXjQe/y/O6ZvZORyvmkQ/1KQyBUo+HO+dslUH2v1nlpCTmf
Gmju0rxjUgybUK7U6fJK1E0sKfbm2duwfQC/2Cu6CEIctMIdJpB8kQuel93w
vMz9uLY30yIDViWnd7W6WQhxL7t1/xhUgaTqTKr27UkEHzPxsSmRRTCkS9qz
wTPJeOPv4tk8cD/YRjlf8aPwbF1DZ/uXhmdB2psBh5sHFMOIAg23XGMyblm/
TMH3Rlo65GXWy0rrCH9fMXEe2IFyHjhT1WrC5NVsmGkT4nzCnRznj7yPehBh
y4cR413D3jn+z/tq2smz0b334OEOk+Lkx2xg7DCfzKxrec/8n3g2xqSEX1Sv
lEP4lYc7Mp4UQTf9zLTsIwW07zFweS0/Y/u8KFTzVabD+3UcGT6HHMfozmnf
wPFAEiUeoHtfQXNVwZKdQSxY/mCD0Y11ZHxpjud3aTy/E3ihkUKu4XAe+FRo
WojdJfHO4t+uYv8/Yv9jxeX9+sRzwXOtzeZZoingGtvPcUp/4ffrHfH5STl8
fjIly/Dwlls84E8sjU9sjIWaz3cSFe0S0Ik7wRq3HpPjsFvIk4VmNrxOu1du
RxnPV+Lx/Ee79/1P4d96/FfMqm7zuXpp3db54tsK8tVZ5f+j8m8xOL440sZ8
fS/+LRvzSoQcje+ffu97wcJ4OUF8VPin9VQ9Pg8mSzl/LobvBedR1gvKOO77
DyXea++94DE4/r9Kif+p94Il8b7tabxv64f3bf8fWdnsiA==
     "]], {}},
  Axes->True,
  AxesLabel->{None, None, None},
  AxesOrigin->{Automatic, Automatic, Automatic},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGrids->None,
  FaceGridsStyle->Automatic,
  ImageSize->{372.9451431303956, 303.6570237155751},
  ImageSizeRaw->Automatic,
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "RotationControl" -> 
    "Globe"},
  PlotRange->{{0, 1}, {0, 1}, {0., 1.3348067998886108`}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{2.215008795665784, -1.5131626512540841`, 2.0625408664976623`},
  ViewVertical->{-0.503305822637603, 0.3438286901903784, 
   0.792757895388658}]], "Output",
 CellChangeTimes->{
  3.773720733160491*^9, 3.777357147909514*^9, 3.777447423173355*^9, 
   3.778043289181777*^9, {3.778067297445396*^9, 3.778067318886904*^9}, 
   3.778165062929863*^9, 3.778166065272626*^9, 3.809632880816764*^9, 
   3.809659400754655*^9, {3.80966042133158*^9, 3.8096604403531847`*^9}},
 CellLabel->"Out[77]=",ExpressionUUID->"c4818e12-33a1-41e1-8887-59d38547ff9e"]
}, Open  ]],

Cell["Train the network", "Subitem",
 CellChangeTimes->{{3.744010605902556*^9, 3.744010608647553*^9}, {
  3.744010679133648*^9, 3.7440106942012253`*^9}, {3.7440107331291656`*^9, 
  3.7440107586054688`*^9}, {3.745480510458893*^9, 3.7454805891693487`*^9}, {
  3.745480627178793*^9, 3.745480675922556*^9}, {3.74559181529712*^9, 
  3.745591816492278*^9}, {3.745592319185923*^9, 3.7455923384324083`*^9}, {
  3.745594707642692*^9, 3.745594771009461*^9}, {3.7455950115254297`*^9, 
  3.7455951428367243`*^9}, {3.745595203115478*^9, 3.745595361945335*^9}, {
  3.74559539914347*^9, 3.7455954501971607`*^9}, {3.773720761373189*^9, 
  3.773720762607098*^9}, {3.778166452770643*^9, 
  3.778166459228219*^9}},ExpressionUUID->"d9e19854-3daa-4bf9-a278-\
7a0186ff202f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"net", " ", "=", " ", 
   RowBox[{"NetTrain", "[", " ", 
    RowBox[{"net", ",", " ", "data1", ",", 
     RowBox[{"MaxTrainingRounds", "\[Rule]", "10000"}]}], "]"}]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"train", " ", "the", " ", "net"}], ",", " ", 
    RowBox[{
    "if", " ", "you", " ", "have", " ", "a", " ", "NVidia", " ", "GPU", " ", 
     "use", " ", "the", " ", "following"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", "\[IndentingNewLine]", 
   RowBox[{"net", " ", "=", " ", 
    RowBox[{"NetTrain", "[", " ", 
     RowBox[{"net", ",", " ", "data1", ",", 
      RowBox[{"MaxTrainingRounds", "\[Rule]", "10000"}], ",", " ", 
      RowBox[{"TargeDevice", " ", "\[Rule]", " ", "\"\<GPU\>\""}]}], "]"}]}], 
   "\[IndentingNewLine]", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.809670393263431*^9, 3.809670413129767*^9}, {
  3.809670467974859*^9, 3.809670553471734*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"b35dfae9-2368-4f44-b6ad-bf12625a05cf"],

Cell[BoxData[
 TagBox[
  TemplateBox[{
    RowBox[{
      StyleBox[
       TagBox["NetChain", "SummaryHead"], "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{Typeset`open = False}, 
       PanelBox[
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open = True), Appearance -> None, 
                Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> {Automatic, 24}], 
              StyleBox[
               GraphicsBox[{
                 Thickness[0.014925373134328358`], {
                  RGBColor[0.729, 0.729, 0.729], 
                  Thickness[0.018686567164179105`], 
                  Opacity[1.], 
                  JoinForm[{"Miter", 10.}], 
                  
                  JoinedCurveBox[{{{0, 2, 0}}}, {{{23., 91.5}, {30., 91.5}}}, 
                   CurveClosed -> {0}]}, {
                  RGBColor[0.729, 0.729, 0.729], 
                  Thickness[0.018686567164179105`], 
                  Opacity[1.], 
                  JoinForm[{"Miter", 10.}], 
                  
                  JoinedCurveBox[{{{0, 2, 0}}}, {{{37., 91.5}, {44., 91.5}}}, 
                   CurveClosed -> {0}]}, {
                  FaceForm[{
                    RGBColor[0.631, 0.8160000000000001, 0.498], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{15.5,
                    103.5}, {23.5, 103.5}, {23.5, 79.5}, {15.5, 79.5}}}]}, {
                  FaceForm[{
                    RGBColor[0.40800000000000003`, 0.627, 0.196], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{24., 104.}, {15., 104.}, {
                   15., 79.}, {24., 79.}}, {{23., 80.}, {16., 80.}, {16., 
                   103.}, {23., 103.}}}]}, {
                  FaceForm[{
                    RGBColor[0.38, 0.753, 0.89], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{29.5,
                    103.5}, {37.5, 103.5}, {37.5, 79.5}, {29.5, 79.5}}}]}, {
                  FaceForm[{
                    RGBColor[0.24300000000000002`, 0.608, 0.71], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{38., 104.}, {29., 104.}, {
                   29., 79.}, {38., 79.}}, {{37., 80.}, {30., 80.}, {30., 
                   103.}, {37., 103.}}}]}, {
                  FaceForm[{
                    RGBColor[0.584, 0.51, 0.8390000000000001], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{43.5,
                    103.5}, {51.5, 103.5}, {51.5, 79.5}, {43.5, 79.5}}}]}, {
                  FaceForm[{
                    RGBColor[0.4, 0.396, 0.659], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{52., 104.}, {43., 104.}, {
                   43., 79.}, {52., 79.}}, {{51., 80.}, {44., 80.}, {44., 
                   103.}, {51., 103.}}}]}, {
                  FaceForm[{
                    RGBColor[0.549, 0.549, 0.549], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{28., 91.5}, {
                   25., 95.}, {25., 88.}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{42., 91.5}, {
                   39., 95.}, {39., 88.}}}]}}, ImageMargins -> 0, 
                ImageSize -> {36, Automatic}, PlotRangePadding -> 0], 
               CacheGraphics -> False], 
              GridBox[{{
                 StyleBox[
                  TemplateBox[{
                    TemplateBox[{
                    StyleBox["\"Input\"", 
                    GrayLevel[0], StripOnInput -> False], "\" \"", 
                    "\"port\""}, "RowDefault"], "\":\""}, "RowDefault"], 
                  "SummaryItemAnnotation"], 
                 StyleBox[
                  TemplateBox[{"\"vector\"", "\" \"", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[VeryThinSpace]\"", "\"size\"", "\":\"", 
                    "\" \"", 
                    
                    TemplateBox[{"\[Times]", "\"\[Times]\"", "\"2\""}, 
                    "RowWithSeparators"], "\"\[VeryThinSpace]\"", "\")\""}, 
                    "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                  "SummaryItem"]}, {
                 StyleBox[
                  TemplateBox[{
                    TemplateBox[{
                    StyleBox["\"Output\"", 
                    GrayLevel[0], StripOnInput -> False], "\" \"", 
                    "\"port\""}, "RowDefault"], "\":\""}, "RowDefault"], 
                  "SummaryItemAnnotation"], 
                 StyleBox["\"scalar\"", "SummaryItem"]}}, BaselinePosition -> 
               Automatic, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridFrameMargins -> {{0, 0}, {0, 0}}, BaselinePosition -> {1, 3}],
           True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open = False), Appearance -> None, 
                Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> {Automatic, 24}], 
              StyleBox[
               GraphicsBox[{
                 Thickness[0.014925373134328358`], {
                  RGBColor[0.729, 0.729, 0.729], 
                  Thickness[0.018686567164179105`], 
                  Opacity[1.], 
                  JoinForm[{"Miter", 10.}], 
                  
                  JoinedCurveBox[{{{0, 2, 0}}}, {{{23., 91.5}, {30., 91.5}}}, 
                   CurveClosed -> {0}]}, {
                  RGBColor[0.729, 0.729, 0.729], 
                  Thickness[0.018686567164179105`], 
                  Opacity[1.], 
                  JoinForm[{"Miter", 10.}], 
                  
                  JoinedCurveBox[{{{0, 2, 0}}}, {{{37., 91.5}, {44., 91.5}}}, 
                   CurveClosed -> {0}]}, {
                  FaceForm[{
                    RGBColor[0.631, 0.8160000000000001, 0.498], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{15.5,
                    103.5}, {23.5, 103.5}, {23.5, 79.5}, {15.5, 79.5}}}]}, {
                  FaceForm[{
                    RGBColor[0.40800000000000003`, 0.627, 0.196], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{24., 104.}, {15., 104.}, {
                   15., 79.}, {24., 79.}}, {{23., 80.}, {16., 80.}, {16., 
                   103.}, {23., 103.}}}]}, {
                  FaceForm[{
                    RGBColor[0.38, 0.753, 0.89], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{29.5,
                    103.5}, {37.5, 103.5}, {37.5, 79.5}, {29.5, 79.5}}}]}, {
                  FaceForm[{
                    RGBColor[0.24300000000000002`, 0.608, 0.71], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{38., 104.}, {29., 104.}, {
                   29., 79.}, {38., 79.}}, {{37., 80.}, {30., 80.}, {30., 
                   103.}, {37., 103.}}}]}, {
                  FaceForm[{
                    RGBColor[0.584, 0.51, 0.8390000000000001], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{43.5,
                    103.5}, {51.5, 103.5}, {51.5, 79.5}, {43.5, 79.5}}}]}, {
                  FaceForm[{
                    RGBColor[0.4, 0.396, 0.659], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{52., 104.}, {43., 104.}, {
                   43., 79.}, {52., 79.}}, {{51., 80.}, {44., 80.}, {44., 
                   103.}, {51., 103.}}}]}, {
                  FaceForm[{
                    RGBColor[0.549, 0.549, 0.549], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{28., 91.5}, {
                   25., 95.}, {25., 88.}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{42., 91.5}, {
                   39., 95.}, {39., 88.}}}]}}, ImageMargins -> 0, 
                ImageSize -> {36, Automatic}, PlotRangePadding -> 0], 
               CacheGraphics -> False], 
              GridBox[{{
                 
                 DynamicModuleBox[{
                  NeuralNetworks`Private`NetChain`assoc3 = 
                   Association[
                    "Type" -> "Chain", "Nodes" -> 
                    Association[
                    "1" -> Association[
                    "Type" -> "Linear", "Arrays" -> 
                    Association[
                    "Weights" -> NeuralNetworks`Private`DummyArray[{4, 2}], 
                    "Biases" -> NeuralNetworks`Private`DummyArray[{4}]], 
                    "Parameters" -> 
                    Association[
                    "OutputDimensions" -> {4}, "$OutputSize" -> 4, 
                    "$InputSize" -> 2, "$InputDimensions" -> {2}], "Inputs" -> 
                    Association[
                    "Input" -> 
                    NeuralNetworks`TensorT[{2}, NeuralNetworks`RealT]], 
                    "Outputs" -> 
                    Association[
                    "Output" -> 
                    NeuralNetworks`TensorT[{4}, NeuralNetworks`RealT]]], "2" -> 
                    Association[
                    "Type" -> "Elementwise", "Arrays" -> Association[], 
                    "Parameters" -> 
                    Association[
                    "Function" -> NeuralNetworks`ValidatedParameter[Tanh], 
                    "$Dimensions" -> {4}], "Inputs" -> 
                    Association[
                    "Input" -> 
                    NeuralNetworks`TensorT[{4}, NeuralNetworks`RealT]], 
                    "Outputs" -> 
                    Association[
                    "Output" -> 
                    NeuralNetworks`TensorT[{4}, NeuralNetworks`RealT]]], "3" -> 
                    Association[
                    "Type" -> "Linear", "Arrays" -> 
                    Association[
                    "Weights" -> NeuralNetworks`Private`DummyArray[{1, 4}], 
                    "Biases" -> NeuralNetworks`Private`DummyArray[{1}]], 
                    "Parameters" -> 
                    Association[
                    "OutputDimensions" -> {1}, "$OutputSize" -> 1, 
                    "$InputSize" -> 4, "$InputDimensions" -> {4}], "Inputs" -> 
                    Association[
                    "Input" -> 
                    NeuralNetworks`TensorT[{4}, NeuralNetworks`RealT]], 
                    "Outputs" -> 
                    Association[
                    "Output" -> 
                    NeuralNetworks`TensorT[{1}, NeuralNetworks`RealT]]]], 
                    "Edges" -> {
                    NeuralNetworks`NetPath["Nodes", "1", "Inputs", "Input"] -> 
                    NeuralNetworks`NetPath["Inputs", "Input"], 
                    NeuralNetworks`NetPath["Nodes", "2", "Inputs", "Input"] -> 
                    NeuralNetworks`NetPath["Nodes", "1", "Outputs", "Output"],
                     NeuralNetworks`NetPath["Nodes", "3", "Inputs", "Input"] -> 
                    NeuralNetworks`NetPath["Nodes", "2", "Outputs", "Output"],
                     NeuralNetworks`NetPath["Outputs", "Output"] -> 
                    NeuralNetworks`NetPath[
                    "Nodes", "3", "Outputs", "Output"]}, "Inputs" -> 
                    Association[
                    "Input" -> 
                    NeuralNetworks`TensorT[{2}, NeuralNetworks`RealT]], 
                    "Outputs" -> 
                    Association[
                    "Output" -> 
                    Association[
                    "Form" -> NeuralNetworks`TensorT[{1}, 
                    NeuralNetworks`RealT], "Type" -> "Scalar", "$Version" -> 
                    "12.1.4"]]], NeuralNetworks`Private`NetChain`opart, 
                   NeuralNetworks`Private`NetChain`part, 
                   NeuralNetworks`Private`NetChain`selected = Null}, 
                  DynamicBox[
                   GridBox[{{
                    TagBox[
                    TagBox[
                    GridBox[{{
                    TagBox[
                    TagBox[
                    "\"\"", Annotation[#, {"Inputs", "Input"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    "\"Input\"", 
                    Annotation[#, {"Inputs", "Input"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    TemplateBox[{"\"vector\"", "\" \"", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[VeryThinSpace]\"", "\"size\"", "\":\"", 
                    "\" \"", 
                    
                    TemplateBox[{"\[Times]", "\"\[Times]\"", "\"2\""}, 
                    "RowWithSeparators"], "\"\[VeryThinSpace]\"", "\")\""}, 
                    "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    Annotation[#, {"Inputs", "Input"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]]}, {
                    TagBox[
                    TagBox[
                    StyleBox["\"1\"", 
                    GrayLevel[0.5], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "1"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    StyleBox["LinearLayer", 
                    GrayLevel[0], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "1"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    TemplateBox[{"\"vector\"", "\" \"", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[VeryThinSpace]\"", "\"size\"", "\":\"", 
                    "\" \"", 
                    
                    TemplateBox[{"\[Times]", "\"\[Times]\"", "\"4\""}, 
                    "RowWithSeparators"], "\"\[VeryThinSpace]\"", "\")\""}, 
                    "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    Annotation[#, {"Nodes", "1"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]]}, {
                    TagBox[
                    TagBox[
                    StyleBox["\"2\"", 
                    GrayLevel[0.5], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "2"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    StyleBox["Tanh", 
                    GrayLevel[0], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "2"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    TemplateBox[{"\"vector\"", "\" \"", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[VeryThinSpace]\"", "\"size\"", "\":\"", 
                    "\" \"", 
                    
                    TemplateBox[{"\[Times]", "\"\[Times]\"", "\"4\""}, 
                    "RowWithSeparators"], "\"\[VeryThinSpace]\"", "\")\""}, 
                    "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    Annotation[#, {"Nodes", "2"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]]}, {
                    TagBox[
                    TagBox[
                    StyleBox["\"3\"", 
                    GrayLevel[0.5], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "3"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    StyleBox["LinearLayer", 
                    GrayLevel[0], StripOnInput -> False], 
                    Annotation[#, {"Nodes", "3"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    TemplateBox[{"\"vector\"", "\" \"", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[VeryThinSpace]\"", "\"size\"", "\":\"", 
                    "\" \"", 
                    
                    TemplateBox[{"\[Times]", "\"\[Times]\"", "\"1\""}, 
                    "RowWithSeparators"], "\"\[VeryThinSpace]\"", "\")\""}, 
                    "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    Annotation[#, {"Nodes", "3"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]]}, {
                    TagBox[
                    TagBox[
                    "\"\"", Annotation[#, {"Outputs", "Output"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    "\"Output\"", 
                    Annotation[#, {"Outputs", "Output"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]], 
                    TagBox[
                    TagBox[
                    "\"scalar\"", 
                    Annotation[#, {"Outputs", "Output"}, "Mouse"]& ], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1.1}}}], "Grid"], 
                    EventHandlerTag[{"MouseClicked" :> If[
                    ListQ[
                    NeuralNetworks`Private`NetChain`part = MouseAnnotation[]],
                     If[NeuralNetworks`Private`NetChain`opart === 
                    NeuralNetworks`Private`NetChain`part, 
                    NeuralNetworks`Private`NetChain`selected = Null; 
                    NeuralNetworks`Private`NetChain`opart = Null, 
                    NeuralNetworks`Private`NetChain`selected = 
                    Part[NeuralNetworks`Private`NetChain`assoc3, 
                    Apply[Sequence, NeuralNetworks`Private`NetChain`part]]; 
                    NeuralNetworks`Private`NetChain`opart = 
                    NeuralNetworks`Private`NetChain`part; Null]; Null], 
                    Method -> "Preemptive", PassEventsDown -> Automatic, 
                    PassEventsUp -> True}]]}, 
                    NeuralNetworks`FormatSelectedParameterChain[
                    NeuralNetworks`Private`NetChain`selected, 
                    NeuralNetworks`Private`NetChain`part, 
                    Association[], {}]}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], 
                   TrackedSymbols :> {
                    NeuralNetworks`Private`NetChain`selected}], 
                  Initialization :> {NetChain}]}}, BaselinePosition -> 
               Automatic, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridFrameMargins -> {{0, 0}, {0, 0}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open], ImageSize -> Automatic], BaselinePosition -> 
        Baseline, 
        BaseStyle -> {
         ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 
          3, ShowSyntaxStyles -> False}]], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->("NetChain[<>]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.77372082687376*^9, 3.777357258158141*^9, 
  3.777447535986081*^9, 3.7780434003203*^9, 3.778067437073951*^9, 
  3.778165234309214*^9, 3.8096329962229424`*^9, 3.809659463923911*^9, 
  3.809660410047525*^9, 3.809660555395214*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"2c768ac0-5522-4c77-a5e0-d72765968e3f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", " ", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"net", "[", 
      RowBox[{"{", 
       RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellLabel->"In[79]:=",ExpressionUUID->"899ceac5-5448-4412-9794-dcd1be397eea"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["0",
       HoldForm], 
      TagBox["1",
       HoldForm]},
     {
      TagBox["0",
       HoldForm], "0.9394879341125488`", 
      RowBox[{"-", "0.009169816970825195`"}]},
     {
      TagBox["1",
       HoldForm], 
      RowBox[{"-", "0.22675836086273193`"}], "1.1801947355270386`"}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, 
      "Rows" -> {False, True, {False}, False}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableHeadings -> {{0, 1}, {0, 1}}]]]], "Output",
 CellChangeTimes->{3.773720827043345*^9, 3.777357270896941*^9, 
  3.778165251951332*^9, 3.8096594732512417`*^9, 3.8096605614256496`*^9},
 CellLabel->
  "Out[79]//TableForm=",ExpressionUUID->"578e1fc7-a7af-4b72-a41a-\
c34896fd2e6c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot3D", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Boole", "[", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "\[LessEqual]", 
            RowBox[{"1", "/", "2"}]}], " ", "&&", " ", 
           RowBox[{"y", "\[LessEqual]", " ", 
            RowBox[{"1", "/", "2"}]}]}], " ", ")"}], "||", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "\[GreaterEqual]", " ", 
            RowBox[{"1", "/", "2"}]}], " ", "&&", " ", 
           RowBox[{"y", "\[GreaterEqual]", "  ", 
            RowBox[{"1", "/", "2"}]}]}], ")"}]}], "]"}], ",", "m", ",", 
       RowBox[{"net", "[", 
        RowBox[{"{", 
         RowBox[{"x", ",", "y"}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"m", ",", 
     RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.778043221429202*^9, 3.778043257554076*^9}, {
  3.778043376102174*^9, 3.778043377892787*^9}, {3.778067214362013*^9, 
  3.7780672258619328`*^9}, {3.7781665412359867`*^9, 3.7781665662746077`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"2bb27e79-9bdb-44f5-931f-e3aa8447843e"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`m$$ = 0.532, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`m$$], -1, 2}}, Typeset`size$$ = {400., {180., 190.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`m$$ = -1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot3D[{
         Boole[
          Or[
           And[$CellContext`x <= 1/2, $CellContext`y <= 1/2], 
           
           And[$CellContext`x >= 1/2, $CellContext`y >= 
            1/2]]], $CellContext`m$$, 
         $CellContext`net[{$CellContext`x, $CellContext`y}]}, {$CellContext`x,
          0, 1}, {$CellContext`y, 0, 1}, ImageSize -> 200], 
      "Specifications" :> {{$CellContext`m$$, -1, 2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{493., {256., 268.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.773720869388302*^9, 3.777357275468418*^9, 3.777464810772976*^9, 
   3.778043262302025*^9, 3.778043406563167*^9, 3.7780435603769093`*^9, 
   3.778067228718183*^9, 3.778068314713008*^9, 3.778165118515501*^9, {
   3.778166558484147*^9, 3.778166568548675*^9}, 3.809633004780908*^9, 
   3.809659488056972*^9, 3.8096595553014193`*^9, 3.809660566401272*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"f02f231c-910f-478b-aa5d-ba2cfe05b93d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"3a0931a8-fed5-4267-a45c-9c365550433c"],

Cell["3.13 Performance curves", "Section",
 CellChangeTimes->{{3.7737190664259443`*^9, 3.773719076367696*^9}, {
  3.778067407880725*^9, 3.7780674467425213`*^9}, {3.7781595699665327`*^9, 
  3.77815957203942*^9}, {3.7781613677324057`*^9, 3.7781613759834146`*^9}, {
  3.778161466760829*^9, 3.778161467747541*^9}, {3.778165221956805*^9, 
  3.778165229026251*^9}, {3.778166653689973*^9, 3.778166664237451*^9}, {
  3.778166728385298*^9, 
  3.778166728783276*^9}},ExpressionUUID->"6212e466-7719-4b77-b380-\
43c38c6a2926"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["ROC  (Receiver operational characteristics)  curve:", \
"Subsection"]], "Section",
 CellChangeTimes->{{3.754982115341199*^9, 3.754982184902438*^9}, 
   3.754982351326235*^9, {3.754982387456822*^9, 3.7549823949990063`*^9}, {
   3.777357878118767*^9, 3.777357886555996*^9}, {3.777358540542655*^9, 
   3.77735855581747*^9}, {3.778166676116928*^9, 
   3.77816669756439*^9}},ExpressionUUID->"a775ac91-db8a-45ea-8080-\
0e0b25457336"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", " ", 
   RowBox[{"RandomReal", "[", 
    RowBox[{"1", ",", 
     RowBox[{"{", 
      RowBox[{"1000", ",", "2"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellLabel->"In[82]:=",ExpressionUUID->"7b044c36-ac5e-4ca4-a7fc-ade03fcbf402"],

Cell[BoxData[
 RowBox[{
  RowBox[{"netclass", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"net", "[", "#", "]"}], " ", "&"}], " ", "/@", "data"}]}], ";", 
  " ", 
  RowBox[{"class", " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"trueclass", "[", "#", "]"}], " ", "&"}], " ", "/@", "data"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.77816628451248*^9, 3.778166284935864*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"cdcb1d37-b333-45db-9c34-3f72b444696c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}], 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "+", 
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]], ",", 
       FractionBox[
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{"#", "[", 
          RowBox[{"[", "4", "]"}], "]"}]}]]}], "}"}], " ", "&"}], "  ", "@", 
    " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Count", "[", "\[NonBreakingSpace]", 
        RowBox[{
         RowBox[{"Transpose", "[", "\[NonBreakingSpace]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Boole", "[", 
                RowBox[{"#", " ", ">", " ", "m"}], " ", "]"}], "/.", 
               RowBox[{"m", "\[Rule]", " ", "p"}]}], "&"}], "  ", "/@", " ", 
             "netclass"}], " ", ",", " ", "class"}], "}"}], "]"}], ",", "#"}],
         " ", "]"}], " ", "&"}], " ", "/@", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"p", ",", 
     RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<False Positive rate\>\"", ",", "\"\<True Positive Rate\>\""}], 
     "}"}]}], ",", " ", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<ROC curve\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7781657477778797`*^9, 3.778165764009244*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"22784029-cdfb-420b-bef3-ea9f385effaa"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJzt1V9IU1EcB/ARPfjQw4IeFvgyMFDoIcMgQzgk9DBhDxo9aASV+BDDysxI
LOhhRMiIGEtCTExbUTHKbAsqexEcEWgi5oOSguXmn+0GBeuxe873+vvBPR22
egwvR8ZH7u7O+X1/51z/2QtNbTs8Hs8n+09+4vou/tfPiQO77GGRfTfP2GOT
rOhbJ49U9g5X9q6Svx6+vWIP8r5AtCIQXSbvPOq1xyL5/EKqfSE1R1a3V8yQ
s92Dme7BNFnd3v6W3P/onD3ekOe7TtnjNfmK5HzS6BPqKt2HgrM1wdlXwhov
fOmxLLHnWKM92D/rpn/UTY+R5d01QfbY/o8v7aF5qUf+xxJq+QHdU7WZgc4p
3ZfK0x3l6VHxXj5unJ1Ifm4JJSzRqCY4Ku53ym/orpZxT7wgLxWu2+O55muY
sFDl60qQkcezko28noqTITlDdkNVPNbUULqPyOXX6m7ua7PHEzL64bFQX6/S
jXzjmsv8YW992d8b/fCQjPxHNP+ScRXy5PkWWRD2pK81Uj2Zd/Ie1qymG9eN
fB+Iu5Ix3V61AYfIcnfZw2jVTh0DZNS7X8jV+MNmX1YNarZcja9VN86be6Je
FezffVAVLC9UOzT3FbWKx68becbEbvUDW/WOklHPO5pxXrDR/jky9q/Z2M85
p/6RosZ+ZatyRtjYD2z0u9l7VSA5p563NKOf2ejnTTL6mY3+1Y36hp3+NRv9
wT6uDgTdqN+Noka/sJH31vyuaka+ZiNv3Xj+RSf/DcenixrnPxv9YTbyZuN8
NRvnqdnIe8NZh8fjtmqnzDoZebJT8vWTNBvnBRvnAxt5s5EfG/uXjffdGhn7
wWzUi433Exv7Zc21vmzJxnmZdc0365pPhow8v5GR/4rr+ctk9OciGf0zR1Zx
h2bIyPeDq77vXHkMkbev7etP128VvP42
       "]]},
     Annotation[#, "Charting`Private`Tag$2742785#1"]& ]}, {}},
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"False Positive rate\"", TraditionalForm], 
    FormBox["\"True Positive Rate\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
    "ScalingFunctions" -> None},
  PlotLabel->FormBox["\"ROC curve\"", TraditionalForm],
  PlotRange->{{0, 1}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7773577529685802`*^9, {3.778165740679516*^9, 3.778165769235774*^9}, 
   3.809633076432349*^9, 3.809659574770192*^9, {3.809660615760984*^9, 
   3.809660631317101*^9}},
 CellLabel->"Out[84]=",ExpressionUUID->"d3a9e190-0ab7-4d78-b2ac-bba013c93375"]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["PR (precision-recall)  curve:", "Subsection"]], \
"Section",
 CellChangeTimes->{{3.754982115341199*^9, 3.754982184902438*^9}, 
   3.754982351326235*^9, {3.754982387456822*^9, 3.7549823949990063`*^9}, {
   3.777357878118767*^9, 3.777357886555996*^9}, {3.777358540542655*^9, 
   3.77735855581747*^9}, {3.778166705193831*^9, 
   3.778166705492755*^9}},ExpressionUUID->"48246c1e-ed1a-46ee-823f-\
a6e622dcb382"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}]], ",", 
       FractionBox[
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{"#", "[", 
          RowBox[{"[", "4", "]"}], "]"}]}]]}], "}"}], " ", "&"}], "  ", "@", 
    " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Count", "[", "\[NonBreakingSpace]", 
        RowBox[{
         RowBox[{"Transpose", "[", "\[NonBreakingSpace]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Boole", "[", 
                RowBox[{"#", " ", ">", " ", "m"}], " ", "]"}], "/.", 
               RowBox[{"m", "\[Rule]", " ", "p"}]}], "&"}], "  ", "/@", " ", 
             "netclass"}], " ", ",", " ", "class"}], "}"}], "]"}], ",", "#"}],
         " ", "]"}], " ", "&"}], " ", "/@", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"p", ",", 
     RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Precision\>\"", ",", "\"\<Recall\>\""}], "}"}]}], ",", " ", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<PR-curve\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7781656575729713`*^9, 3.778165670376432*^9}, {
  3.778165788339102*^9, 3.7781658014810667`*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"89d33cc4-a036-451f-8bf3-24fc249eccdf"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJzd1ntMW1UcB/BOmwiZLMMRhwJiHRExG0TYI0XNj0fClsYtBjZowPEY7I+B
uo0BFssGbBQfIEhGmXESUR5SZt3DtXPQYiLhsRC2scGmg60IozB7HyAoIEK8
957ee0yvTeFfb9rcfJrexznn+zvnyA4cjj34mEQi6Wa+7Fkpv9yT124BCXdM
wf/NQWc33fDxGxEsD31kGxzA9t0bZRkq/FWwX5t16JumUWyZ8VCneUxwVGl3
S9ncQ8Gffb+laOkFq2CdMim+r3dC8LUjVlVi4CPBL53/ylT6+2+Ch33b+i4O
EYLjf/p5c/Of2HVyD8q0ixQs2eBmzst27v01mTfzi1buN+VtmpRPSKDNcw/U
NA2Tta01p85iDw00bTfosIOfd8+fvYKd8danRyO7sLcVmzqCO0mwqNlfaJD6
lk1V3sZ+d3eq7uQtEq7LJ744dl3skVptzpSFhHb2dmYaOj9PaJl4QILecCcx
S09DjefxiFyChNpj7BVi21Ip27OL2PnhxUervCnBY5tntBeepqAAvTAoRtf2
FGzFNhfr5CWxKzfXjakUJGWxb0jDzHjvmZAUChRBjdWxCtdO5g4Kwtnmy8X2
XHspr+Ed7PLg1smvyyjgLg8S+1wLe2CblOc+3KOjwE1Wsj7KbfW+te69pIUf
sA+sZysM+8zj6RovxvPscM1RLl0VMxFyu4uCu4lsh7l2l3d6+Stdzs932tNI
n3/9r6N5Z4V1gAKu+Y1i7xrN/GX/Qwq0LKvFDmh6vap4Fvvlu34hRint1J7f
1vctemFnXj2SYAmgge0dWYlr+6c167MY53AFILaHQvPR3CYa2NZ5p4sdPrMx
rC6MhihuQFbvMO6gIZTrQAqsN8YpS7RzU8vrgtWMueGXiR1ijWM+TG65B1BQ
FOR+vCcDu0ZX+YQ5d+WO9RwJzc6115lE7J54qUcgY1SOpMgZhKG3Moe2zy9i
vyHbcT6aMZpvSFCqNAkqzcpdEVhwZbqEts8vJGgsink9Y254ylfvL2OU1CHG
aH4hQVUR0R9/irbXPwl/tG1ReDJG9f0fjkzL7T1JwzNcQEj4bo02JrsaOzrf
Y3wbY1S/YkcsnIaF07S9XglQVxn2mRhzj58gYGn38ouFjFF9EuCzdeFSJGNU
f679XNmTmV0NtL0exf6rv/LEbD2fb7Ffe//g2z8yjuMmULG7VX4b3YzOHXHf
APcNfP4JMB5WLpYa+PwSYA7Y2SLtwT7x9/z0WDefR7GTpvdu6Ojm8yh2SuOS
bd89Po82KLwM9/xJ5w5Zk3zRizFaL8XuT45Su5N8fsVefnVwxzLB59MG9IDB
d5jg87V6j2qfqr9J8Hm0QXRzg08nY265y7IB6R9XepUxWv9c+4MB6ZieMVr/
XLt1e3DDxwSfX5uwb3E0yifeVxnZ7YIBG8232Gg+w0b7C7xPQ/WGjfI7KRjV
O97nof4fF4zGa8zherzvRPkaFozGf1Aw6t9+wag/rglG9WByaN8FB9cJRvVV
7eCSFRu9v8rh/qmr9j9aKsE4
       "]]},
     Annotation[#, "Charting`Private`Tag$2743117#1"]& ]}, {}},
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Precision\"", TraditionalForm], 
    FormBox["\"Recall\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None},
  PlotLabel->FormBox["\"PR-curve\"", TraditionalForm],
  PlotRange->{{0, 1}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7773579232457047`*^9, 3.778165807649528*^9, 
  3.809633096092906*^9, 3.80965961522785*^9, 3.809660638917378*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"713c1e81-25fe-4b7a-9d83-111ddcb24f42"]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"4d77ad9d-b90d-4804-b878-00f4ffadc7ea"],

Cell[CellGroupData[{

Cell["Summary", "Section",
 CellChangeTimes->{{3.680520544004032*^9, 3.680520544700644*^9}, 
   3.680785663679714*^9, {3.680872752626235*^9, 3.6808727529047117`*^9}, {
   3.680948985483108*^9, 3.680948987463172*^9}, {3.745477556250626*^9, 
   3.745477557181159*^9}},ExpressionUUID->"0a53f60e-3f68-4525-847a-\
dfe345de56b6"],

Cell[CellGroupData[{

Cell["Concepts", "Subsection",
 CellChangeTimes->{{3.680948989495232*^9, 3.6809489926954317`*^9}, {
  3.7455224556833277`*^9, 3.745522461366543*^9}, {3.746718084988278*^9, 
  3.7467180853228893`*^9}},ExpressionUUID->"cb5215c2-2d9e-454e-9f6a-\
39152ff6883e"],

Cell["\<\
 Leakage, Sample bias,  input feature shifts, concept shifts....\
\>", "Subsubsection",
 CellChangeTimes->{
  3.68034367667273*^9, {3.680948996006885*^9, 3.6809490122068663`*^9}, {
   3.680949042512329*^9, 3.6809490481496983`*^9}, 3.680949088720416*^9, {
   3.745522248892448*^9, 3.745522260884776*^9}, {3.745522298494134*^9, 
   3.745522308294767*^9}, {3.746266730626422*^9, 3.746266747331202*^9}, {
   3.746266945153717*^9, 3.746266946674727*^9}, {3.7462670163466063`*^9, 
   3.7462670658713007`*^9}, {3.746721557417103*^9, 
   3.746721558008717*^9}},ExpressionUUID->"ffa52ba6-c62d-473d-8a9b-\
6cbc05ed2657"],

Cell["Bayesian machine learning and inference", "Subsubsection",
 CellChangeTimes->{
  3.68034367667273*^9, {3.680948996006885*^9, 3.6809490122068663`*^9}, {
   3.680949042512329*^9, 3.6809490481496983`*^9}, 3.680949088720416*^9, {
   3.745522248892448*^9, 3.745522260884776*^9}, {3.745522298494134*^9, 
   3.7455223232658243`*^9}, {3.746266693753428*^9, 3.746266705462682*^9}, {
   3.7462669287629843`*^9, 3.746266939333274*^9}, 3.746267078395557*^9, {
   3.746278176728126*^9, 3.746278179570107*^9}, {3.746278280826344*^9, 
   3.746278281885262*^9}},ExpressionUUID->"b2dabfea-5f86-42d7-b4b7-\
79af422c4de7"],

Cell["Maximum likelihood", "Subsubsection",
 CellChangeTimes->{
  3.68034367667273*^9, {3.680948996006885*^9, 3.6809490122068663`*^9}, {
   3.680949042512329*^9, 3.6809490481496983`*^9}, {3.6809490893831787`*^9, 
   3.6809490925639*^9}, {3.745522207076488*^9, 3.745522208361093*^9}, 
   3.746278236740114*^9, {3.74627828408025*^9, 
   3.746278285146124*^9}},ExpressionUUID->"d7d7d2b1-1fca-4a2a-b080-\
66a6d1ca1303"],

Cell["Logistic regression", "Subsubsection",
 CellChangeTimes->{
  3.68034367667273*^9, {3.680948996006885*^9, 3.6809490122068663`*^9}, {
   3.680949042512329*^9, 3.6809490481496983`*^9}, {3.6809490893831787`*^9, 
   3.6809490925639*^9}, {3.745522207076488*^9, 3.745522208361093*^9}, 
   3.746278236740114*^9, {3.74627828408025*^9, 
   3.746278308659801*^9}},ExpressionUUID->"ad5f83bc-0be3-4e35-83d9-\
f80eaa7a9b94"],

Cell["\<\
Performance evaluation
\
\>", "Subsubsection",
 CellChangeTimes->{
  3.68034367667273*^9, {3.680948996006885*^9, 3.680949030257667*^9}, {
   3.745522184369989*^9, 3.745522214754339*^9}, {3.745522344046917*^9, 
   3.745522407554493*^9}, {3.7455224383673687`*^9, 3.745522451270772*^9}, {
   3.746278214138028*^9, 3.746278225734334*^9}, {3.746278257003824*^9, 
   3.7462782592977324`*^9}},ExpressionUUID->"e37ec566-18cc-4be8-91fd-\
9d961fd522c5"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
Saveable->True,
WindowToolbars->{},
WindowSize->{1544, 949},
WindowMargins->{{Automatic, -91}, {-102, Automatic}},
WindowTitle->"Machine Learning",
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
ShowSelection->True,
TaggingRules->{"SlideshowSettings" -> {"Toolbar" -> True}},
ShowCellTags->True,
Magnification:>2. Inherited,
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 18, 2020)",
StyleDefinitions->Notebook[{
   Cell[
    CellGroupData[{
      Cell[
       TextData[{"Style Definitions for ", 
         StyleBox["Wolfram Presentation", FontSlant -> "Italic"]}], 
       "Subtitle", 
       CellChangeTimes -> {{3.557228362314048*^9, 3.5572283638633575`*^9}, 
         3.5572284035873003`*^9, {3.5572284466807275`*^9, 
         3.5572284628951063`*^9}}], 
      Cell[
       StyleData[StyleDefinitions -> "Default.nb"]], 
      Cell[
       StyleData["InlineFormula"], StripStyleOnPaste -> True, 
       HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
       LanguageCategory -> "Formula", ScriptLevel -> 1, SingleLetterItalics -> 
       True, MenuSortingValue -> 1650, FontSize -> Inherited 1.01], 
      Cell[
       StyleData["InlineMath"], StripStyleOnPaste -> True, 
       HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
       LanguageCategory -> "Formula", ScriptLevel -> 1, SingleLetterItalics -> 
       True, MenuSortingValue -> 1650, FontSize -> Inherited 1.01], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Input"], CellLabelAutoDelete -> False, MenuSortingValue -> 
          10000, FontSize -> 13], 
         Cell[
          StyleData["Input", "Presentation"], 
          CellMargins -> {{84, Inherited}, {Inherited, 10}}, MenuSortingValue -> 
          10000, FontSize -> 13]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Output"], 
          CellMargins -> {{84, Inherited}, {Inherited, Inherited}}, FontSize -> 
          13], 
         Cell[
          StyleData["Output", "Presentation"], 
          CellMargins -> {{84, Inherited}, {Inherited, Inherited}}, FontSize -> 
          13], 
         Cell[
          StyleData[StyleDefinitions -> "StyleMenuClear.nb"]]}, Open]], 
      Cell[
       StyleData["Note"], CellFrame -> {{False, False}, {False, False}}, 
       CellMargins -> {{68, 26}, {5, 0}}, CellFrameStyle -> GrayLevel[0.9], 
       CellChangeTimes -> {3.68034367667273*^9}, MenuSortingValue -> 1400, 
       FontFamily -> "Georgia", FontSize -> 14, FontWeight -> "Plain", 
       FontColor -> GrayLevel[0.3]], 
      Cell[
       CellGroupData[{
         Cell["Style Environment Definitions", "Section"], 
         Cell[
          StyleData[
          All, "SlideShow", StyleDefinitions -> 
           StyleData[All, "Presentation"]], PageWidth :> WindowWidth, 
          DockedCells -> Cell[
            BoxData[
             GridBox[{{
                TooltipBox[
                 ButtonBox[
                  StyleBox[
                   RowBox[{"  ", "\[EmptySquare]", " "}], FontSize -> 20, 
                   GrayLevel[0.7]], Appearance -> None, 
                  ButtonFunction :> (
                   FEPrivate`NotebookToggleFullScreen[]; {}), Evaluator -> 
                  None], 
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "SlideshowToolbarText", "TooltipToggleFullScreen"]]], 
                StyleBox[
                 RowBox[{
                   TooltipBox[
                    ButtonBox[
                    StyleBox[
                    RowBox[{" ", "\[FirstPage]", " "}], FontSize -> 25, 
                    GrayLevel[0.7]], ButtonData -> "ScrollPageFirst", 
                    Appearance -> None], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "SlideshowToolbarText", "TooltipFirstSlide"]]], 
                   "\[InvisibleSpace]", 
                   TooltipBox[
                    ButtonBox[
                    StyleBox[
                    RowBox[{" ", "\[LeftPointer]", " "}], FontSize -> 25, 
                    GrayLevel[0.7]], ButtonData -> "ScrollPagePrevious", 
                    Appearance -> None], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "SlideshowToolbarText", "TooltipPreviousSlide"]]], 
                   "\[InvisibleSpace]", 
                   TooltipBox[
                    ButtonBox[
                    StyleBox[
                    RowBox[{" ", "\[RightPointer]", " "}], FontSize -> 25, 
                    GrayLevel[0.7]], ButtonData -> "ScrollPageNext", 
                    Appearance -> None], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "SlideshowToolbarText", "TooltipNextSlide"]]], 
                   "\[InvisibleSpace]", 
                   TooltipBox[
                    ButtonBox[
                    StyleBox[
                    RowBox[{" ", "\[LastPage]", " "}], FontSize -> 25, 
                    GrayLevel[0.7]], ButtonData -> "ScrollPageLast", 
                    Appearance -> None], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "SlideshowToolbarText", "TooltipLastSlide"]]]}], 
                 ButtonBoxOptions -> {Alignment -> {Automatic, 
                    FEPrivate`If[
                    FEPrivate`SameQ[
                    FEPrivate`$OperatingSystem, "Unix"], -0.4, -0.5]}, 
                   Appearance -> "Palette", 
                   ButtonFunction :> (FEPrivate`FrontEndExecute[
                    FrontEnd`FrontEndToken[
                    FrontEnd`ButtonNotebook[], #]]& ), Evaluator -> None, 
                   FrameMargins -> 0, ImageMargins -> 0, ImageSize -> 
                   Medium}], 
                
                DynamicModuleBox[{$CellContext`cells$$ = {}, \
$CellContext`tagFind$$ = False}, 
                 TagBox[
                  DynamicBox[
                   PopupMenuBox[
                    Dynamic[
                    0, With[{$CellContext`nb$ = ButtonNotebook[]}, 
                    SelectionMove[$CellContext`nb$, Before, Notebook, 
                    AutoScroll -> False]; If[$CellContext`tagFind$$, 
                    Do[
                    
                    NotebookFind[$CellContext`nb$, "SlideShowHeader", Next, 
                    CellTags, AutoScroll -> False], {#}], 
                    Do[
                    
                    NotebookFind[$CellContext`nb$, "SlideShowNavigationBar", 
                    Next, CellStyle, AutoScroll -> False], {#}]]; 
                    SelectionMove[$CellContext`nb$, After, Cell, AutoScroll -> 
                    False]; NotebookWrite[$CellContext`nb$, 
                    Cell["", Deletable -> True, ShowCellBracket -> False], 
                    All]; NotebookDelete[$CellContext`nb$]; 
                    SelectionMove[$CellContext`nb$, 
                    If[$CellContext`tagFind$$, Previous, Next], 
                    Cell]]& ], $CellContext`cells$$, 
                    StyleBox[
                    RowBox[{
                    DynamicBox[
                    CurrentValue[{"CounterValue", "SlideShowNavigationBar"}]], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "SlideshowToolbarText", "SlideshowToolbarCounterText"]], 
                    DynamicBox[
                    
                    CurrentValue[{
                    "MaxCounterValue", "SlideShowNavigationBar"}]]}], 
                    "ControlStyle"], Appearance -> None, ImageSize -> 
                    Automatic], ImageSizeCache -> {50., {6., 18.}}], 
                  
                  EventHandlerTag[{
                   "MouseDown" :> 
                    Module[{$CellContext`cnt$, $CellContext`nb$ = 
                    InputNotebook[]}, $CellContext`cells$$ = {}; \
$CellContext`cnt$ = Apply[(
                    NotebookFind[$CellContext`nb$, #, All, #2, AutoScroll -> 
                    False]; CurrentValue[$CellContext`nb$, {
                    "CellCount", True}])& , {{
                    "SlideShowNavigationBar", CellStyle}, {
                    "SlideShowHeader", CellTags}}, {1}]; $CellContext`cnt$ = 
                    Apply[If[$CellContext`tagFind$$ = # == 
                    0, #2, #]& , $CellContext`cnt$]; 
                    SelectionMove[$CellContext`nb$, Before, Notebook, 
                    AutoScroll -> False]; 
                    If[$CellContext`tagFind$$, $CellContext`cells$$ = 
                    Map[# -> StringJoin["Slide ", 
                    ToString[#]]& , 
                    Range[$CellContext`cnt$]], 
                    Do[NotebookFind[$CellContext`nb$, 
                    "SlideShowNavigationBar", Next, CellStyle, AutoScroll -> 
                    False]; SelectionMove[$CellContext`nb$, Next, Cell, 
                    AutoScroll -> False]; AppendTo[$CellContext`cells$$, 
                    ReplaceAll[
                    NotebookRead[$CellContext`nb$], Pattern[$CellContext`s, 
                    Blank[StyleBox]] :> With[{$CellContext`ss = Join[
                    Take[$CellContext`s, 1], 
                    DeleteCases[
                    Rest[$CellContext`s], 
                    Alternatives[
                    Blank[String], 
                    Blank[][FontColor, 
                    Blank[]]]]]}, 
                    
                    Condition[$CellContext`ss, 
                    True]]]], {$CellContext`cnt$}]; $CellContext`cells$$ = 
                    Replace[
                    Part[$CellContext`cells$$, All, 1], {BoxData[
                    Pattern[$CellContext`c, 
                    Blank[]]] :> $CellContext`c, TextData[
                    Pattern[$CellContext`c, 
                    Blank[]]] :> RowBox[
                    If[
                    
                    ListQ[$CellContext`c], $CellContext`c, \
{$CellContext`c}]]}, 1]; $CellContext`cells$$ = 
                    Thread[Range[$CellContext`cnt$] -> \
$CellContext`cells$$]]], PassEventsDown -> True, EvaluationOrder -> Before, 
                    PassEventsDown -> Automatic, PassEventsUp -> True}]], 
                 DynamicModuleValues :> {}]}}, AutoDelete -> False, 
              GridBoxItemSize -> {"Columns" -> {Automatic, Fit, Automatic}}]],
             "DockedCell", CellDynamicExpression :> If[CurrentValue[
                EvaluationNotebook[], {TaggingRules, "DisableController"}] === 
              True, Null, 
              (FrontEndExecute[
               FrontEnd`FrontEndToken[
                FrontEnd`InputNotebook[], #]]& )[
               Switch[
                ControllerState["Apple IR", {"B1", "B2"}], {True, 
                 Blank[]}, "ScrollPagePrevious", {
                 Blank[], True}, "ScrollPageNext", 
                Blank[], None]]], Magnification -> 0.75], 
          ScrollingOptions -> {
           "PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit}, 
          ShowGroupOpener -> False, MenuSortingValue -> 1300], 
         Cell[
          StyleData["DockedCell"], Editable -> False, Evaluator -> "Local", 
          PageWidth :> WindowWidth, CellFrame -> {{0, 0}, {0, 0}}, 
          ShowSelection -> True, CellMargins -> {{0, 0}, {0, 0}}, 
          CellElementSpacings -> {
           "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, 
          DynamicUpdating -> True, CellFrameMargins -> {{0, 0}, {0, 4}}, 
          ContextMenu -> None, ComponentwiseContextMenu -> {}, 
          ShowStringCharacters -> False, LineBreakWithin -> False, 
          Magnification -> 1, Background -> GrayLevel[0.97], 
          TooltipBoxOptions -> {TooltipDelay -> Automatic}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Headings", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Title"], MenuSortingValue -> 1, MenuCommandKey :> "1",
              FontFamily -> "Georgia", FontSize -> 36, FontWeight -> Plain, 
             FontColor -> RGBColor[0.796078, 0.0705882, 0]], 
            Cell[
             StyleData["Title", "Presentation"], 
             CellMargins -> {{90, 100}, {10, 100}}, FontSize -> 54], 
            Cell[
             StyleData["Title", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subtitle"], MenuSortingValue -> 100, MenuCommandKey :> 
             "2", FontFamily -> "Georgia", FontSize -> 24, FontWeight -> 
             "Plain", FontSlant -> "Italic"], 
            Cell[
             StyleData["Subtitle", "Presentation"], 
             CellMargins -> {{90, 100}, {100, 20}}, FontSize -> 32], 
            Cell[
             StyleData["Subtitle", "SlideShow"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subsubtitle"], CellMargins -> {{48, 0}, {10, 5}}, 
             MenuSortingValue -> 200, MenuCommandKey :> "3", FontFamily -> 
             "Georgia", FontSize -> 20, FontWeight -> "Plain", FontSlant -> 
             "Italic", FontColor -> GrayLevel[0.2]], 
            Cell[
             StyleData["Subsubtitle", "Presentation"], 
             CellMargins -> {{48, 0}, {10, 5}}, FontSize -> 20], 
            Cell[
             StyleData["Subsubtitle", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DateSection"], CellMargins -> {{30, 0}, {12, 24}}, 
             ShowStringCharacters -> False], 
            Cell[
             StyleData["DateSection", "Presentation"], 
             CellMargins -> {{90, 20}, {2, 36}}, ShowStringCharacters -> 
             False, FontSize -> 21], 
            Cell[
             StyleData["DateSection", "SlideShow"]]}, Open]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Sections", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Chapter"], CellMargins -> {{27, Inherited}, {8, 34}}, 
             CounterIncrements -> {"Chapter"}, MenuSortingValue -> 2410, 
             FontFamily -> "Georgia", FontSize -> 28, FontColor -> 
             RGBColor[0.811765, 0.117647, 0.145098], CellTags -> "Chapter"], 
            Cell[
             StyleData["Chapter", "Presentation"], CellFrame -> None, 
             CellMargins -> {{80, 60}, {20, 50}}, FontSize -> 36], 
            Cell[
             StyleData["Chapter", "SlideShow"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "LargeChapter", StyleDefinitions -> StyleData["Chapter"]], 
             CellMargins -> {{27, Inherited}, {8, 34}}, MenuSortingValue -> 
             2430, FontFamily -> "Georgia", FontSize -> 30, FontColor -> 
             RGBColor[0.811765, 0.117647, 0.145098]], 
            Cell[
             StyleData["LargeChapter", "Presentation"], FontSize -> 54], 
            Cell[
             StyleData["LargeChapter", "SlideShow"], FontSize -> 54]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Section"], CellFrame -> 0, 
             CellMargins -> {{20, 0}, {5, 5}}, MenuSortingValue -> 1200, 
             MenuCommandKey :> "4", FontFamily -> "Georgia", FontSize -> 24, 
             FontWeight -> Plain, FontColor -> 
             RGBColor[0.811765, 0.117647, 0.145098]], 
            Cell[
             StyleData["Section", "Presentation"], CellFrame -> 0, 
             CellMargins -> {{48, 0}, {5, 10}}, MenuSortingValue -> 1200, 
             MenuCommandKey :> "4", FontFamily -> "Georgia", FontSize -> 26, 
             FontWeight -> Plain, FontColor -> 
             RGBColor[0.811765, 0.117647, 0.145098]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subsection"], CellDingbat -> "", 
             CellMargins -> {{48, 20}, {10, 8}}, 
             CellGroupingRules -> {"SectionGrouping", 40}, CellLabelMargins -> 
             0, CellFrameMargins -> {{0, 0}, {0, 0}}, MenuSortingValue -> 
             1300, MenuCommandKey :> "5", FontFamily -> "Georgia", FontSize -> 
             20, FontWeight -> Plain, FontColor -> GrayLevel[0.25]], 
            Cell[
             StyleData["Subsection", "Presentation"], CellDingbat -> "", 
             CellMargins -> {{48, 20}, {10, 8}}, 
             CellGroupingRules -> {"SectionGrouping", 40}, CellLabelMargins -> 
             0, CellFrameMargins -> {{0, 0}, {0, 0}}, MenuSortingValue -> 
             1300, MenuCommandKey :> "5", FontFamily -> "Georgia", FontSize -> 
             18, FontWeight -> Plain, FontColor -> GrayLevel[0.25]], 
            Cell[
             StyleData["Subsection", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subsubsection"], CellDingbat -> "\[RightGuillemet]", 
             CellMargins -> {{66, 26}, {5, 5}}, 
             CellChangeTimes -> {3.68034367667273*^9}, MenuSortingValue -> 
             1400, MenuCommandKey :> "6", FontFamily -> "Georgia", FontSize -> 
             16, FontWeight -> "Plain", FontColor -> GrayLevel[0.3]], 
            Cell[
             StyleData["Subsubsection", "Presentation"], CellDingbat -> 
             "\[RightGuillemet]", CellMargins -> {{66, 26}, {5, 5}}, 
             CellChangeTimes -> {3.68034367667273*^9}, MenuSortingValue -> 
             1400, MenuCommandKey :> "6", FontFamily -> "Georgia", FontSize -> 
             16, FontWeight -> "Plain", FontColor -> GrayLevel[0.3]], 
            Cell[
             StyleData["Subsubsection", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Text"], CellMargins -> {{66, 26}, {2, 0}}, 
             MenuSortingValue -> 10000, FontFamily -> "Georgia", FontSize -> 
             16], 
            Cell[
             StyleData["Text", "Presentation"], 
             CellMargins -> {{66, 26}, {2, 0}}, MenuSortingValue -> 10000, 
             FontFamily -> "Georgia", FontSize -> 16]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "MoreExamplesSection", StyleDefinitions -> 
              StyleData["Subsubsection"]], CellDingbat -> None, 
             ShowGroupOpener -> True, 
             CellGroupingRules -> {"SectionGrouping", 45}, MenuSortingValue -> 
             2100, FontWeight -> "Plain", FontColor -> 
             RGBColor[0.636862, 0.0564706, 0.]], 
            Cell[
             StyleData["MoreExamplesSection", "Presentation"], 
             CellMargins -> {{88, 60}, {12, 12}}], 
            Cell[
             StyleData["MoreExamplesSection", "SlideShow"], 
             WholeCellGroupOpener -> True, FontWeight -> "Plain"]}, Closed]], 
         Cell[
          StyleData["Item"], MenuSortingValue -> 10000]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Text", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Text"], MenuSortingValue -> 2000, MenuCommandKey :> 
             "7", FontFamily -> "Georgia", FontSize -> 18], 
            Cell[
             StyleData["Text", "Presentation"], MenuSortingValue -> 2000, 
             MenuCommandKey :> "7", FontFamily -> "Georgia", FontSize -> 18], 
            Cell[
             StyleData["Text", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["MathCaption"], MenuSortingValue -> 2010, 
             MenuCommandKey :> "8", FontFamily -> "Georgia", FontSize -> 18, 
             FontColor -> GrayLevel[0]], 
            Cell[
             StyleData["MathCaption", "Presentation"], 
             CellMargins -> {{120, 12}, {12, 12}}, LineSpacing -> {1.25, 1}, 
             FontSize -> 20], 
            Cell[
             StyleData["MathCaption", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "IntegrationMathCaption", StyleDefinitions -> 
              StyleData["MathCaption"]], CellMargins -> {{0, 12}, {2, 24}}, 
             CellFrameMargins -> {{0, 0}, {0, 3}}, CellFrameLabels -> {{
                PaneBox[
                 FrameBox[
                  StyleBox[
                  "Integration", FontFamily -> "Helvetica", FontSize -> 9, 
                   FontColor -> GrayLevel[1], FontWeight -> Plain], 
                  Background -> RGBColor[0.811765, 0.117647, 0.145098], 
                  BoxFrame -> 0, FrameStyle -> None, 
                  FrameMargins -> {{3, 3}, {1, 1}}], ImageSize -> 56, 
                 Alignment -> Left, FrameMargins -> 0], None}, {None, None}}], 
            Cell[
             StyleData["IntegrationMathCaption", "Presentation"], 
             CellMargins -> {{30, 12}, {12, 12}}, 
             CellFrameMargins -> {{10, 0}, {0, 5}}, FontSize -> 20], 
            Cell[
             StyleData["IntegrationMathCaption", "SlideShow"], 
             CellMargins -> {{30, 12}, {12, 12}}, 
             CellFrameMargins -> {{10, 0}, {0, 5}}]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "AutomationMathCaption", StyleDefinitions -> 
              StyleData["IntegrationMathCaption"]], 
             CellMargins -> {{0, 12}, {2, 24}}, 
             CellFrameMargins -> {{0, 0}, {0, 3}}, CellFrameLabels -> {{
                PaneBox[
                 FrameBox[
                  StyleBox[
                  "Automation", FontFamily -> "Helvetica", FontSize -> 9, 
                   FontColor -> GrayLevel[1], FontWeight -> Plain], 
                  Background -> RGBColor[0.811765, 0.117647, 0.145098], 
                  BoxFrame -> 0, FrameStyle -> None, 
                  FrameMargins -> {{3, 3}, {1, 1}}], ImageSize -> 56, 
                 Alignment -> Left, FrameMargins -> 0], None}, {None, None}}], 
            Cell[
             StyleData["AutomationMathCaption", "Presentation"], 
             CellMargins -> {{30, 12}, {12, 12}}, FontSize -> 20], 
            Cell[
             StyleData["AutomationMathCaption", "SlideShow"], 
             CellMargins -> {{30, 12}, {12, 12}}]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Comment", StyleDefinitions -> StyleData["Text"]], 
             CellMargins -> {{0, 12}, {2, 24}}, 
             CellFrameMargins -> {{0, 0}, {0, 3}}, CellFrameLabels -> {{
                PaneBox[
                 FrameBox[
                  StyleBox[
                  "Comment", FontFamily -> "Helvetica", FontSize -> 9, 
                   FontColor -> GrayLevel[1], FontWeight -> Plain], 
                  Background -> RGBColor[1., 0.647059, 0], BoxFrame -> 1, 
                  FrameStyle -> RGBColor[1., 0.647059, 0], 
                  FrameMargins -> {{3, 3}, {1, 1}}], ImageSize -> 56, 
                 Alignment -> Left, FrameMargins -> 0], None}, {None, None}}, 
             MenuSortingValue -> 2200, FontSize -> 14], 
            Cell[
             StyleData["Comment", "Presentation"], 
             CellMargins -> {{30, 12}, {12, 12}}, FontSize -> 16], 
            Cell[
             StyleData["Comment", "SlideShow"], 
             CellMargins -> {{30, 12}, {12, 12}}, FontSize -> 16]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DisplayFormula"], 
             CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
             StripStyleOnPaste -> True, DefaultFormatType -> 
             DefaultInputFormatType, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, 
             MenuSortingValue -> 1700, 
             UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
            Cell[
             StyleData["DisplayFormula", "Presentation"], 
             CellMargins -> {{120, Inherited}, {
               Inherited 1.75, Inherited 1.75}}, LineSpacing -> {1, 5}, 
             FontFamily -> "Georgia", FontSize -> 20], 
            Cell[
             StyleData["DisplayFormula", "SlideShow"]]}, Closed]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Items", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Item"], CellDingbat -> "\[RightGuillemet] ", 
             LineSpacing -> {1.5, 0}, MenuSortingValue -> 2700, FontFamily -> 
             "Georgia", FontSize -> 18, FontColor -> GrayLevel[0.2]], 
            Cell[
             StyleData["Item", "Presentation"], CellDingbat -> 
             "\[RightGuillemet] ", LineSpacing -> {1.5, 0}, MenuSortingValue -> 
             2700, FontFamily -> "Georgia", FontSize -> 18, FontColor -> 
             GrayLevel[0.2]], 
            Cell[
             StyleData["Item", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["ItemParagraph"], MenuSortingValue -> 2710, FontFamily -> 
             "Georgia", FontSize -> 18, FontColor -> GrayLevel[0.2]], 
            Cell[
             StyleData["ItemParagraph", "Presentation"], 
             CellMargins -> {{120, 90}, {12, 12}}, LineSpacing -> {1.25, 0}, 
             FontFamily -> "Georgia", FontSize -> 20], 
            Cell[
             StyleData["ItemParagraph", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["ItemNumbered"], LineSpacing -> {1.5, 0}, 
             MenuSortingValue -> 2720, FontFamily -> "Georgia", FontSize -> 
             18, FontColor -> GrayLevel[0.25]], 
            Cell[
             StyleData["ItemNumbered", "Presentation"], 
             CellMargins -> {{116, 20}, {12, 12}}, FontFamily -> "Georgia", 
             FontSize -> 20], 
            Cell[
             StyleData["ItemNumbered", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Subitem"], CellDingbat -> "\[RightGuillemet] ", 
             LineSpacing -> {1.5, 0}, MenuSortingValue -> 2730, FontFamily -> 
             "Georgia", FontSize -> 16, FontColor -> GrayLevel[0.3]], 
            Cell[
             StyleData["Subitem", "Presentation"], 
             CellMargins -> {{136, 20}, {10, 10}}, FontFamily -> "Georgia", 
             FontSize -> 21], 
            Cell[
             StyleData["Subitem", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SubitemParagraph"], LineSpacing -> {1.5, 0}, 
             MenuSortingValue -> 2740, FontFamily -> "Georgia", FontSize -> 
             16, FontColor -> GrayLevel[0.3]], 
            Cell[
             StyleData["SubitemParagraph", "Presentation"], 
             CellMargins -> {{136, 90}, {10, 8}}, FontFamily -> "Georgia", 
             FontSize -> 18], 
            Cell[
             StyleData["SubitemParagraph", "SlideShow"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SubitemNumbered"], LineSpacing -> {1.5, 0}, 
             MenuSortingValue -> 2750, FontFamily -> "Georgia", FontSize -> 
             16, FontColor -> GrayLevel[0.3]], 
            Cell[
             StyleData["SubitemNumbered", "Presentation"], 
             CellMargins -> {{136, 20}, {10, 10}}, FontFamily -> "Georgia", 
             FontSize -> 18], 
            Cell[
             StyleData["SubitemNumbered", "SlideShow"]]}, Closed]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Input and Output", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["CellLabel"], 
             CellLabelMargins -> {{12, Inherited}, {Inherited, Inherited}}, 
             LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> 
             "Helvetica", FontSize -> 9, FontColor -> 
             RGBColor[0.269993, 0.308507, 0.6]], 
            Cell[
             StyleData["CellLabel", "Presentation"], 
             CellMargins -> {{12, Inherited}, {Inherited 1.5, Inherited 1.5}},
              FontSize -> 12], 
            Cell[
             StyleData["CellLabel", "SlideShow"], 
             CellMargins -> {{12, Inherited}, {Inherited 1.5, Inherited 1.5}},
              FontSize -> 12]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["WolframAlphaShort"], FontSize -> 18], 
            Cell[
             StyleData["WolframAlphaShort", "Presentation"], 
             CellMargins -> {{120, 10}, {7, 12}}, FontSize -> 18], 
            Cell[
             StyleData["WolframAlphaShort", "SlideShow"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["WolframAlphaShortInput"], FontSize -> 18], 
            Cell[
             StyleData["WolframAlphaShortInput", "Presentation"], 
             CellMargins -> {{120, 10}, {7, 12}}, FontSize -> 18], 
            Cell[
             StyleData["WolframAlphaShortInput", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["WolframAlphaLong"], FontFamily -> "Helvetica", 
             FontSize -> 18], 
            Cell[
             StyleData["WolframAlphaLong", "Presentation"], 
             CellMargins -> {{120, 10}, {7, 12}}, FontSize -> 18], 
            Cell[
             StyleData["WolframAlphaLong", "SlideShow"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["WolframAlphaLongInput"], FontSize -> 18], 
            Cell[
             StyleData["WolframAlphaLongInput", "Presentation"], 
             CellMargins -> {{120, 10}, {7, 12}}, FontSize -> 18], 
            Cell[
             StyleData["WolframAlphaLongInput", "SlideShow"]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Output"], MenuSortingValue -> 2030, FontSize -> 18], 
            Cell[
             StyleData["Output", "Presentation"], 
             CellMargins -> {{120, 10}, {7, 12}}, FontSize -> 18], 
            Cell[
             StyleData["Output", "SlideShow"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Definition", StyleDefinitions -> StyleData["Input"]], 
             CellFrame -> True, CellFrameMargins -> 15, CellFrameColor -> 
             GrayLevel[0.85], MenuSortingValue -> 2032, Background -> 
             GrayLevel[0.98]], 
            Cell[
             StyleData["Definition", "SlideShow"], 
             CellMargins -> {{120, 120}, {12, 12}}]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Print"], FontSize -> 18], 
            Cell[
             StyleData["Print", "Presentation"], 
             CellMargins -> {{120, 10}, {7, 12}}, FontSize -> 18], 
            Cell[
             StyleData["Print", "SlideShow"]]}, Closed]], 
         Cell[
          StyleData["MSG"], FontSize -> 16]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Styles of Links", "Section"], 
         Cell[
          StyleData["Link", "SlideShow"]], 
         Cell[
          StyleData["SearchLink", StyleDefinitions -> StyleData["Link"]]], 
         Cell[
          StyleData["FunctionLink"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Special Styles", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Picture"], CellMargins -> {{100, 100}, {20, 20}}, 
             ShowStringCharacters -> False, MenuSortingValue -> 5000, 
             Magnification -> 1], 
            Cell[
             StyleData["Picture", "Presentation"], 
             CellMargins -> {{100, 100}, {20, 20}}, Magnification -> 1], 
            Cell[
             StyleData["Picture", "SlideShow"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "PictureCaption", StyleDefinitions -> StyleData["Text"]], 
             CellDingbat -> "\[FilledUpTriangle]", 
             CellMargins -> {{114, 100}, {15, 4}}, ShowStringCharacters -> 
             False, MenuSortingValue -> 5100, FontSize -> 14, FontColor -> 
             GrayLevel[0.3]], 
            Cell[
             StyleData["PictureCaption", "Presentation"], 
             CellMargins -> {{114, 100}, {20, 0}}, FontSize -> 16], 
            Cell[
             StyleData["PictureCaption", "SlideShow"], 
             CellMargins -> {{114, 100}, {20, 0}}, FontFamily -> "Helvetica", 
             FontSize -> 17]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["OverviewTitle"], CellFrame -> None, 
             CellMargins -> {{100, 100}, {20, 60}}, FontFamily -> "Calibri", 
             FontSize -> 24, FontWeight -> "Bold", FontColor -> 
             GrayLevel[0.4]], 
            Cell[
             StyleData["OverviewTitle", "Presentation"], CellFrame -> None, 
             CellMargins -> {{100, 100}, {20, 60}}, FontFamily -> "Calibri", 
             FontSize -> 24, FontWeight -> "Bold", FontColor -> 
             GrayLevel[0.4]], 
            Cell[
             StyleData["OverviewTitle", "SlideShow"], CellFrame -> None, 
             CellMargins -> {{100, 100}, {20, 60}}, FontFamily -> "Calibri", 
             FontSize -> 24, FontWeight -> "Bold", FontColor -> 
             GrayLevel[0.4]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["OverviewSection"], CellFrame -> None, 
             CellMargins -> {{120, 100}, {10, 10}}, ReturnCreatesNewCell -> 
             True, FontFamily -> "Georgia", FontSize -> 22, FontWeight -> 
             Plain, FontColor -> RGBColor[0.811765, 0.117647, 0.145098]], 
            Cell[
             StyleData["OverviewSection", "Presentation"], CellFrame -> None, 
             CellMargins -> {{120, 100}, {10, 10}}, ReturnCreatesNewCell -> 
             True, FontFamily -> "Georgia", FontSize -> 22, FontWeight -> 
             Plain, FontColor -> RGBColor[0.811765, 0.117647, 0.145098]], 
            Cell[
             StyleData["OverviewSection", "SlideShow"], CellFrame -> None, 
             CellMargins -> {{120, 100}, {10, 10}}, ReturnCreatesNewCell -> 
             True, FontFamily -> "Georgia", FontSize -> 22, FontWeight -> 
             Plain, FontColor -> RGBColor[0.811765, 0.117647, 0.145098]]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["ChapterTagline"], CellMargins -> {{60, 90}, {15, 0}}, 
             MenuSortingValue -> 2420, FontFamily -> "Georgia", FontSize -> 
             20, FontWeight -> "Plain", FontSlant -> "Italic", FontColor -> 
             GrayLevel[0.3]], 
            Cell[
             StyleData["ChapterTagline", "Presentation"], 
             CellMargins -> {{90, 90}, {15, 0}}, FontSize -> 24], 
            Cell[
             StyleData["ChapterTagline", "SlideShow"]]}, Closed]], 
         Cell[
          StyleData["PlotLabel"], FontFamily -> "Helvetica", FontSize -> 14], 
         Cell[
          StyleData["NonPrintButton"], 
          CellMargins -> {{128, Inherited}, {16, 0}}, FontFamily -> 
          "Helvetica", FontSize -> 12, FontColor -> GrayLevel[1], 
          ButtonBoxOptions -> {
           Background -> RGBColor[0.811765, 0.117647, 0.145098], 
            ButtonMargins -> 4}], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Program"]], 
            Cell[
             StyleData["Program", "SlideShow"], 
             CellMargins -> {{116, 48}, {16, 16}}, FontSize -> 18]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Editorial"], ShowCellBracket -> Automatic, 
             CellMargins -> {{24, 10}, {6, 6}}, 
             CellBracketOptions -> {
              "Color" -> RGBColor[0.786999, 0.0386053, 0.0571756]}, 
             CellFrameLabels -> {{
                Cell[
                 TextData[{"Edit:"}], FontFamily -> "Helvetica", FontSize -> 
                 16, FontWeight -> "Bold", CellBaseline -> Baseline], None}, {
               None, None}}, DefaultNewInlineCellStyle -> "None", Hyphenation -> 
             True, LineSpacing -> {1, 3}, LanguageCategory -> 
             "NaturalLanguage", FontFamily -> "Helvetica", FontSize -> 19, 
             FontColor -> RGBColor[1, 0, 0]], 
            Cell[
             StyleData["Editorial", "SlideShow"], 
             CellMargins -> {{Inherited, Inherited}, {0, 0}}, 
             CellElementSpacings -> {
              "CellMinHeight" -> 1, "ClosedCellHeight" -> 0}, CellOpen -> 
             False]}, Closed]], 
         Cell[
          StyleData["DialogStyle"], FontSize -> 17], 
         Cell[
          StyleData["TooltipLabel"], CellFrame -> 1., CellFrameMargins :> 
          CurrentValue["TooltipFrameMargins"], CellFrameColor :> 
          CurrentValue[{"SystemColor", "TooltipFrame"}], TextAlignment -> 
          Left, TextJustification -> 0., ShowStringCharacters -> False, 
          FontFamily :> CurrentValue["TooltipFontFamily"], FontSize :> 
          CurrentValue["TooltipFontSize"], FontWeight -> "Plain", FontSlant -> 
          "Plain", Magnification -> 1.5, FontColor :> 
          CurrentValue[{"SystemColor", "TooltipText"}], FontOpacity -> 1., 
          Background :> CurrentValue[{"SystemColor", "Tooltip"}]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
         "Styles for Screencast", "Section", 
          CellChangeTimes -> {{3.520687019071189*^9, 
           3.5206870238431892`*^9}, {3.520687323526189*^9, 
           3.520687328236189*^9}}], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData[
             "LargeChapter", StyleDefnitions -> StyleData["Chapter"]], 
             CellMargins -> {{27, Inherited}, {8, 34}}, MenuSortingValue -> 
             2430, FontFamily -> "Georgia", FontSize -> 30, FontColor -> 
             RGBColor[0.811765, 0.117647, 0.145098]], 
            Cell[
             StyleData["LargeChapter", "SlideShow"], 
             CellMargins -> {{100, 10}, {15, 100}}, FontSize -> 48]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["LargeChapterTagline"], 
             CellMargins -> {{27, 60}, {30, 20}}, MenuSortingValue -> 2420, 
             FontFamily -> "Georgia", FontSize -> 26, FontWeight -> "Plain", 
             FontSlant -> "Italic", FontColor -> GrayLevel[0.3]], 
            Cell[
             StyleData["LargeChapterTagline", "SlideShow"], 
             CellMargins -> {{100, 60}, {30, 15}}, FontSize -> 32]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["LargeOverviewTitle"], CellFrame -> None, 
             CellMargins -> {{100, 100}, {20, 60}}, FontFamily -> "Calibri", 
             FontSize -> 24, FontWeight -> "Bold", FontColor -> 
             GrayLevel[0.4]], 
            Cell[
             StyleData["LargeOverviewTitle", "SlideShow"], CellFrame -> None, 
             CellMargins -> {{100, 100}, {20, 60}}, FontFamily -> "Calibri", 
             FontSize -> 36, FontWeight -> "Bold", FontColor -> 
             GrayLevel[0.4]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["LargeOverviewSection"], CellFrame -> None, 
             CellMargins -> {{120, 100}, {10, 10}}, ReturnCreatesNewCell -> 
             True, FontFamily -> "Georgia", FontSize -> 22, FontWeight -> 
             Plain, FontColor -> RGBColor[0.811765, 0.117647, 0.145098]], 
            Cell[
             StyleData["LargeOverviewSection", "SlideShow"], CellFrame -> 
             None, CellMargins -> {{120, 100}, {10, 10}}, 
             ReturnCreatesNewCell -> True, FontFamily -> "Georgia", FontSize -> 
             30, FontWeight -> Plain, FontColor -> 
             RGBColor[0.811765, 0.117647, 0.145098]]}, Open]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["LargeItem", StyleDefinitions -> StyleData["Item"]], 
             CellDingbat -> "\[RightGuillemet] ", LineSpacing -> {1.5, 0}, 
             MenuSortingValue -> 2700, FontFamily -> "Georgia", FontSize -> 
             24, FontColor -> GrayLevel[0.2]], 
            Cell[
             StyleData["LargeItem", "SlideShow"], 
             CellMargins -> {{100, 20}, {10, 10}}, FontSize -> 26]}, Open]], 
         Cell[
          StyleData["Entity"], ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Entity"], 
          AutoStyleOptions -> {"HighlightSyntaxErrors" -> False}, 
          ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              
              PaneBox[#, 
               BaseStyle -> {
                FontFamily -> "Helvetica", FontSize -> 12, FontColor -> 
                 RGBColor[0.395437, 0.20595, 0.061158]}, BaselinePosition -> 
               Baseline], FrameStyle -> RGBColor[1., 0.504768, 0.], 
              Background -> RGBColor[1., 0.980392, 0.921569], 
              FrameMargins -> {{3, 3}, {1, 1}}, 
              ImageMargins -> {{0, 0}, {0, 0}}, BaselinePosition -> Baseline, 
              RoundingRadius -> 2, BaseStyle -> {FontFamily -> "Courier"}]& ),
             Editable -> False, InterpretationFunction -> (#2& )}]}, Open]]}, 
     Open]]}, Visible -> False, FrontEndVersion -> 
  "12.1 for Mac OS X x86 (64-bit) (March 18, 2020)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"],
ExpressionUUID->"1aa208dc-c18e-49a6-83b3-aa6ebe5d16a4"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[3152, 82, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"dca6144f-5976-4c77-8ccc-7784153dfcba",
   CellTags->"SlideShowHeader"],
  Cell[6246, 154, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"43cb44f2-e522-4b71-bb8b-1af3cc3f05ec",
   CellTags->"SlideShowHeader"],
  Cell[14038, 330, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"555ec7f8-e3a7-4e21-8668-378af81a27b9",
   CellTags->"SlideShowHeader"],
  Cell[140613, 2601, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"52786686-cffc-4e9a-8fea-6d359540b1bc",
   CellTags->"SlideShowHeader"],
  Cell[175416, 3291, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"138c1b88-76d3-4a2c-a1f6-e37f42ba931d",
   CellTags->"SlideShowHeader"],
  Cell[194088, 3613, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"29142129-0b06-4b36-8870-724e842ad13c",
   CellTags->"SlideShowHeader"],
  Cell[222805, 4230, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"31571948-28b8-4f53-8ba5-f47bafcb8eb2",
   CellTags->"SlideShowHeader"],
  Cell[239116, 4533, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"3c4f22a5-48aa-45ec-a659-88f5dc5a02f8",
   CellTags->"SlideShowHeader"],
  Cell[260096, 5000, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"bb643d10-79af-4367-8d5b-705db6954e3c",
   CellTags->"SlideShowHeader"],
  Cell[277354, 5411, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"3d0e105f-a6cf-4e54-b1bf-61135b1d397e",
   CellTags->"SlideShowHeader"],
  Cell[310450, 6162, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"57948627-368c-44bd-b19f-65655cc3e8a5",
   CellTags->"SlideShowHeader"],
  Cell[348231, 7046, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"ab14fb6a-f800-4e80-8e18-6bc9b977fdd7",
   CellTags->"SlideShowHeader"],
  Cell[356354, 7237, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"9c3fca23-10fc-4d1d-b4ba-6534b91fef67",
   CellTags->"SlideShowHeader"],
  Cell[392913, 8062, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"177cc76c-d460-4a39-90ed-eeb1ca47d1b5",
   CellTags->"SlideShowHeader"],
  Cell[535751, 11180, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"c74319f1-65fe-4eb1-970b-1440b66a5c1c",
   CellTags->"SlideShowHeader"],
  Cell[550099, 11492, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"b7b175ae-71aa-4f8a-8e0d-fc4eef33d0cc",
   CellTags->"SlideShowHeader"],
  Cell[575644, 12114, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"18125049-c837-4584-ab6d-b49b41697be4",
   CellTags->"SlideShowHeader"],
  Cell[587173, 12377, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"5b8027d4-8c59-45a3-b16e-3620556c118f",
   CellTags->"SlideShowHeader"],
  Cell[768299, 15722, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"3a0931a8-fed5-4267-a45c-9c365550433c",
   CellTags->"SlideShowHeader"],
  Cell[780622, 16042, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"4d77ad9d-b90d-4804-b878-00f4ffadc7ea",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 825803, 17018}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[609, 23, 536, 8, 163, "Title",ExpressionUUID->"673397e0-114c-47ca-b6e8-1ba2701cca33"],
Cell[1148, 33, 726, 11, 96, "Subtitle",ExpressionUUID->"bc674b96-27b2-4506-b096-3232f6c6fc6c"],
Cell[1877, 46, 128, 3, 59, "Input",ExpressionUUID->"70606add-61f0-427a-8219-59cb9e02661f"],
Cell[CellGroupData[{
Cell[2030, 53, 659, 12, 146, "Subsubtitle",ExpressionUUID->"8a1c21e9-b6cc-412f-bb7b-baf57a2b8da0"],
Cell[2692, 67, 411, 9, 236, "Input",ExpressionUUID->"77a8ef8b-016b-4bfb-ba2a-53a3a7d2f428"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3152, 82, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"dca6144f-5976-4c77-8ccc-7784153dfcba",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[3299, 88, 81, 0, 76, "Section",ExpressionUUID->"816d6242-9319-45be-b2bd-d45125b75a06"],
Cell[3383, 90, 547, 12, 58, "Subsubsection",ExpressionUUID->"9583d73b-420f-43c4-a310-f1e0e240ea77"],
Cell[3933, 104, 455, 7, 52, "Subsubsection",ExpressionUUID->"8d1cc421-efd7-4d94-993e-8317e9a2f909"],
Cell[4391, 113, 494, 8, 52, "Subsubsection",ExpressionUUID->"dcd0f6d8-ccf4-44d6-a2f4-9a2d06388071"],
Cell[4888, 123, 431, 7, 52, "Subsubsection",ExpressionUUID->"9d5442c7-787d-4c12-a539-971f756795da"],
Cell[5322, 132, 423, 7, 52, "Subsubsection",ExpressionUUID->"d79e9dde-6cbc-4d9f-8d8e-dbea328a89c0"],
Cell[5748, 141, 449, 7, 52, "Subsubsection",ExpressionUUID->"2577b4b7-4049-4a65-b4ce-b89cedb785fc"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6246, 154, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"43cb44f2-e522-4b71-bb8b-1af3cc3f05ec",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[6393, 160, 460, 7, 76, "Section",ExpressionUUID->"93cf2715-81fd-47ea-acf0-b805669ec812"],
Cell[CellGroupData[{
Cell[6878, 171, 766, 13, 63, "Item",ExpressionUUID->"1ac96af9-93f1-4c74-acc2-9af7c5b9085b"],
Cell[CellGroupData[{
Cell[7669, 188, 581, 8, 54, "Subitem",ExpressionUUID->"3b52d537-3268-423f-a46f-91f8f43593bd"],
Cell[8253, 198, 943, 20, 54, "Subitem",ExpressionUUID->"4847c60e-3ccc-4297-9d25-3111be1b1d92"],
Cell[9199, 220, 1434, 32, 54, "Subitem",ExpressionUUID->"01732774-73c1-46ae-871d-ed0f918b6d81"],
Cell[10636, 254, 859, 17, 54, "Subitem",ExpressionUUID->"aa04658d-7b79-4266-9c8a-e0c7075cd348"]
}, Open  ]],
Cell[11510, 274, 882, 14, 104, "Item",ExpressionUUID->"b4a8e102-225d-4216-a0d6-26710ab873a1"],
Cell[12395, 290, 1582, 33, 114, "Subitem",ExpressionUUID->"4776af01-ad08-4da4-a997-e3cf8106fb2d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14038, 330, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"555ec7f8-e3a7-4e21-8668-378af81a27b9",
 CellTags->"SlideShowHeader"],
Cell[14163, 334, 541, 9, 76, "Subsubtitle",ExpressionUUID->"2f7be268-218b-4822-838c-0a9fca9ec81a"],
Cell[CellGroupData[{
Cell[14729, 347, 1896, 27, 58, "Subsubsection",ExpressionUUID->"8edb4f96-7f4e-49a3-8e32-6716de5323bd"],
Cell[16628, 376, 1612, 42, 183, "Input",ExpressionUUID->"597b31ef-3a40-49d1-8b4b-d47ec086505b"],
Cell[CellGroupData[{
Cell[18265, 422, 7860, 173, 801, "Input",ExpressionUUID->"f81ea062-3263-4b01-bed6-ea894169c11e"],
Cell[26128, 597, 107160, 1823, 260, "Output",ExpressionUUID->"09c58a6c-a521-4c4d-9bbd-2e433b19eae9"]
}, {2}]],
Cell[CellGroupData[{
Cell[133322, 2425, 2093, 55, 244, "Input",ExpressionUUID->"758740b5-3c75-481e-9744-8ea9001a6b21"],
Cell[135418, 2482, 2499, 51, 823, "Output",ExpressionUUID->"9da1e646-8eaf-48f0-af87-124d656aafe5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137954, 2538, 177, 3, 59, "Input",ExpressionUUID->"ab78848d-e80a-4dfd-8b3a-9ce6018ee255"],
Cell[138134, 2543, 2418, 51, 4016, "Output",ExpressionUUID->"006a15ae-24ae-4d58-bdf0-6eef002c5566"]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[140613, 2601, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"52786686-cffc-4e9a-8fea-6d359540b1bc",
 CellTags->"SlideShowHeader"],
Cell[140738, 2605, 548, 8, 76, "Section",ExpressionUUID->"071815d2-0777-4be8-97e8-ee74caeeaf85"],
Cell[CellGroupData[{
Cell[141311, 2617, 571, 9, 70, "Subsubtitle",ExpressionUUID->"425e050b-1e32-4a61-9e2b-edadc549d09a"],
Cell[CellGroupData[{
Cell[141907, 2630, 1820, 36, 63, "Item",ExpressionUUID->"2b442fd8-cc15-4fcb-b942-5a5e9e9c1221"],
Cell[CellGroupData[{
Cell[143752, 2670, 2249, 48, 59, "Subitem",ExpressionUUID->"df62b697-d578-4a6b-9e4b-af34077d78ef"],
Cell[146004, 2720, 1585, 29, 54, "Subitem",ExpressionUUID->"5b251269-eddb-4212-958c-416473bec6cc"]
}, Open  ]],
Cell[147604, 2752, 2381, 46, 145, "Item",ExpressionUUID->"388fd3ed-5885-4cd1-af0d-cc8bd6cecaf9"],
Cell[149988, 2800, 2527, 49, 145, "Item",ExpressionUUID->"ff63f81d-d7b6-414b-801f-f2641c7599c1"],
Cell[152518, 2851, 1755, 28, 104, "Item",ExpressionUUID->"2aa06dcf-3a5c-489c-82c1-750f9ff744fd"],
Cell[CellGroupData[{
Cell[154298, 2883, 1788, 29, 111, "Subitem",ExpressionUUID->"e4730cf8-3257-4576-acae-66c9cb1435d6"],
Cell[156089, 2914, 1749, 25, 54, "Subitem",ExpressionUUID->"cdf45c27-ab59-409d-88d6-5b7fb7e75ef9"]
}, Open  ]]
}, Open  ]],
Cell[157865, 2943, 17502, 342, 422, "Input",ExpressionUUID->"ecce9c3b-ae85-4a42-976b-e374aee17747"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[175416, 3291, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"138c1b88-76d3-4a2c-a1f6-e37f42ba931d",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[175563, 3297, 902, 14, 82, "Subsection",ExpressionUUID->"09f5a281-b057-452f-82e4-890e9e41ad04"],
Cell[CellGroupData[{
Cell[176490, 3315, 1069, 15, 63, "Item",ExpressionUUID->"bd351922-a104-4a9a-8cd0-e082edf4804c"],
Cell[CellGroupData[{
Cell[177584, 3334, 1241, 19, 54, "Subitem",ExpressionUUID->"178c79b2-8e3d-4358-9503-a668f5d4d9a8"],
Cell[178828, 3355, 1374, 19, 54, "Subitem",ExpressionUUID->"9631aea0-e02e-4d1b-8b95-42f938b21821"],
Cell[180205, 3376, 1393, 21, 111, "Subitem",ExpressionUUID->"26900893-e3f1-44ed-ab60-b5d963a747e0"]
}, Open  ]],
Cell[181613, 3400, 1071, 15, 63, "Item",ExpressionUUID->"1b05cbec-856a-43e1-b68b-01f830457b54"],
Cell[CellGroupData[{
Cell[182709, 3419, 1221, 17, 54, "Subitem",ExpressionUUID->"552fbef0-1fff-4c26-8152-62c7986c5d1b"],
Cell[183933, 3438, 1364, 21, 54, "Subitem",ExpressionUUID->"8a8b5cdd-d044-4fe4-8620-80f6e5a1fb2d"],
Cell[185300, 3461, 1404, 21, 54, "Subitem",ExpressionUUID->"f2288be7-272e-4376-b0cd-5d927289c62d"]
}, Open  ]],
Cell[186719, 3485, 1074, 15, 63, "Item",ExpressionUUID->"690374cf-13e8-4876-85c5-a804c4e1e2b9"],
Cell[CellGroupData[{
Cell[187818, 3504, 1134, 16, 54, "Subitem",ExpressionUUID->"a0542893-e6bc-4efd-88f4-16d8202c3819"],
Cell[CellGroupData[{
Cell[188977, 3524, 1308, 18, 50, "Subsubitem",ExpressionUUID->"d8e39311-7953-45c8-b04b-96ff1a12c0ca"],
Cell[190288, 3544, 1237, 19, 50, "Subsubitem",ExpressionUUID->"4a698390-1baf-4e7e-bdbb-8235a488eee3"]
}, Open  ]],
Cell[191540, 3566, 1127, 16, 54, "Subitem",ExpressionUUID->"66f72c28-33f4-4f21-a9a4-ac1dff414882"],
Cell[192670, 3584, 1345, 21, 50, "Subsubitem",ExpressionUUID->"abb0b78c-1927-4966-9fab-7d451540435c"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[194088, 3613, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"29142129-0b06-4b36-8870-724e842ad13c",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[194235, 3619, 791, 12, 82, "Subsection",ExpressionUUID->"8de04b62-3426-4842-83d5-9fa262e5f0df"],
Cell[CellGroupData[{
Cell[195051, 3635, 1120, 16, 63, "Item",ExpressionUUID->"7ec566ad-9f78-45a3-9c79-89b31b39b5ea"],
Cell[CellGroupData[{
Cell[196196, 3655, 1689, 36, 96, "Subitem",ExpressionUUID->"3acb50f0-4474-4046-af7f-f8883b077d0e"],
Cell[197888, 3693, 1250, 17, 54, "Subitem",ExpressionUUID->"3013611d-6b97-4f0c-b07a-89dff1622baa"],
Cell[199141, 3712, 1561, 29, 54, "Subitem",ExpressionUUID->"2f30eac1-d960-442b-876f-74a956decdd8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[200751, 3747, 907, 25, 133, "Input",ExpressionUUID->"18ff436c-c4da-47a6-8b33-2cc6ae289b30",
 InitializationCell->True],
Cell[201661, 3774, 6369, 126, 461, "Output",ExpressionUUID->"eea0f289-7b5e-49f7-bf0d-b0e6cc4e719f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208067, 3905, 1133, 16, 63, "Item",ExpressionUUID->"dd208bde-9244-4c25-8b4f-6b6cb1c9973a"],
Cell[CellGroupData[{
Cell[209225, 3925, 1609, 32, 58, "Subitem",ExpressionUUID->"5cfe092b-e991-4c66-80b4-598bbda09fda"],
Cell[210837, 3959, 1669, 32, 114, "Subitem",ExpressionUUID->"dcd0a5e1-7b0e-4d08-90c4-85d7a123ca49"],
Cell[212509, 3993, 1248, 17, 54, "Subitem",ExpressionUUID->"e7c385f8-dfe5-43ca-83d9-509326f42441"],
Cell[213760, 4012, 3850, 89, 106, "Subitem",ExpressionUUID->"9f540483-8425-4ca5-8e78-a8e4e3591d52"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[217659, 4107, 2334, 61, 236, "Input",ExpressionUUID->"c1d443f3-e68e-4d93-adca-5bb654b19efd"],
Cell[219996, 4170, 2751, 53, 625, "Output",ExpressionUUID->"4df99f54-4e6f-4bfe-9e3f-103c2022463d"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[222805, 4230, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"31571948-28b8-4f53-8ba5-f47bafcb8eb2",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[222952, 4236, 560, 8, 76, "Section",ExpressionUUID->"b21ea221-b231-45d1-a804-b2746d4a804f"],
Cell[CellGroupData[{
Cell[223537, 4248, 1039, 17, 145, "Item",ExpressionUUID->"6f0dac4f-1f3b-49c5-9741-eaba7c7c3f31"],
Cell[224579, 4267, 2280, 56, 151, "Item",ExpressionUUID->"4c8bd4ff-e5cb-4f9f-a9da-12ff77ba91d7"],
Cell[226862, 4325, 1491, 22, 104, "Item",ExpressionUUID->"9adf3e45-6f8f-4775-8628-a5cae489f35d"],
Cell[228356, 4349, 1560, 23, 104, "Item",ExpressionUUID->"aab631e3-5ace-4bf7-bce6-92170320d10c"],
Cell[CellGroupData[{
Cell[229941, 4376, 1649, 27, 168, "Subitem",ExpressionUUID->"47448890-6790-463c-86cf-f3b712bf37d0"],
Cell[231593, 4405, 1435, 21, 54, "Subitem",ExpressionUUID->"57dd910e-0ce9-45e2-8cbe-d73ae86bbdc5"],
Cell[233031, 4428, 1519, 23, 111, "Subitem",ExpressionUUID->"1283dee6-d284-49b2-b9c9-4fcac8e401bd"]
}, Open  ]],
Cell[234565, 4454, 1379, 21, 63, "Item",ExpressionUUID->"ab33c3ad-3d9d-4ca1-b7d8-ae0afba02c6c"],
Cell[CellGroupData[{
Cell[235969, 4479, 1498, 22, 54, "Subitem",ExpressionUUID->"dd7ae633-e000-44a2-8bdd-473016a6d19a"],
Cell[237470, 4503, 1573, 22, 54, "Subitem",ExpressionUUID->"928ee0ea-f0b0-40ff-8089-f17fe716637b"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[239116, 4533, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"3c4f22a5-48aa-45ec-a659-88f5dc5a02f8",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[239263, 4539, 572, 8, 76, "Section",ExpressionUUID->"653650d2-5c79-49b7-909d-c639aa60ce69"],
Cell[CellGroupData[{
Cell[239860, 4551, 2006, 48, 232, "Item",ExpressionUUID->"4693a4df-1a2a-48aa-8b71-923d7855ef48"],
Cell[241869, 4601, 2564, 70, 103, "Item",ExpressionUUID->"2f450b1b-bbb3-4344-9c0d-186e4c111c03"],
Cell[244436, 4673, 1722, 49, 110, "Subitem",ExpressionUUID->"03c43136-66b2-498b-a11d-82f43eb4f159"],
Cell[246161, 4724, 1320, 19, 63, "Item",ExpressionUUID->"15cf0c6e-85bb-44a5-b43f-e1b5aa142f34"],
Cell[CellGroupData[{
Cell[247506, 4747, 1997, 41, 116, "Subitem",ExpressionUUID->"16871d28-01fe-4962-95a3-ca7406c278e1"],
Cell[249506, 4790, 1001, 25, 59, "Subitem",ExpressionUUID->"c014a25f-74f2-46ed-a542-8573f5ba456c"],
Cell[250510, 4817, 1619, 41, 158, "Subitem",ExpressionUUID->"2276c2d4-8b16-4c4b-8bf7-fbeb02feed20"]
}, Open  ]],
Cell[252144, 4861, 969, 17, 145, "Item",ExpressionUUID->"41e63eb5-826a-42be-a23c-c0e3d2ff7273"]
}, Open  ]],
Cell[CellGroupData[{
Cell[253150, 4883, 853, 12, 82, "Subsection",ExpressionUUID->"21609be6-4260-4567-ab07-1d53e0fb57ca"],
Cell[CellGroupData[{
Cell[254028, 4899, 2149, 35, 111, "Subitem",ExpressionUUID->"b029f330-66d0-416f-8550-73b4a6842c11"],
Cell[256180, 4936, 1901, 26, 54, "Subitem",ExpressionUUID->"6dc66af7-7ce1-4028-9f21-715667c3ea43"],
Cell[258084, 4964, 1939, 28, 54, "Subitem",ExpressionUUID->"b3375c49-b6aa-48af-aea1-2d6449988d04"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[260096, 5000, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"bb643d10-79af-4367-8d5b-705db6954e3c",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[260243, 5006, 1010, 20, 89, "Subsection",ExpressionUUID->"1ecf6e4e-64be-40dd-a043-285bd63adead"],
Cell[261256, 5028, 674, 21, 47, "Text",ExpressionUUID->"db3ebcc0-299a-4510-99c4-41f91370508b"],
Cell[CellGroupData[{
Cell[261955, 5053, 4862, 111, 167, "Item",ExpressionUUID->"674c5090-0313-4a8f-b7dc-9236aeae98b6"],
Cell[266820, 5166, 659, 11, 63, "Item",ExpressionUUID->"1f275fd3-6c17-4930-80c7-24f6ead2cfce"]
}, Open  ]],
Cell[267494, 5180, 1416, 38, 55, "Text",ExpressionUUID->"2941dadf-a403-494a-b07c-34ccde75f18d"],
Cell[268913, 5220, 837, 16, 63, "Item",ExpressionUUID->"a5994580-19d2-4b71-bf0c-9b0426a530f6"],
Cell[CellGroupData[{
Cell[269775, 5240, 2476, 69, 308, "Input",ExpressionUUID->"380077c2-03d9-44ae-83a2-20b49fc9fb38"],
Cell[272254, 5311, 994, 15, 50, "Output",ExpressionUUID->"4bdd79cd-02c5-4098-bae6-0cfa0cfce766"],
Cell[273251, 5328, 3564, 62, 866, "Output",ExpressionUUID->"6af49586-6585-4a43-a4e5-4583fff4aa38"]
}, {3}]],
Cell[CellGroupData[{
Cell[276849, 5395, 211, 4, 59, "Input",ExpressionUUID->"04c2b65c-84a3-49cb-b7b4-b473db809751"],
Cell[277063, 5401, 230, 3, 49, "Output",ExpressionUUID->"751a1fdf-485e-4df2-a4fc-a702233eb5bc"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[277354, 5411, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"3d0e105f-a6cf-4e54-b1bf-61135b1d397e",
 CellTags->"SlideShowHeader"],
Cell[277479, 5415, 149, 3, 101, "Input",ExpressionUUID->"54478e21-8030-46f7-b170-f75ee5f59f1c"],
Cell[CellGroupData[{
Cell[277653, 5422, 968, 15, 130, "Subsection",ExpressionUUID->"e5d772e6-0ed7-4996-b4c0-ea417fdb9273"],
Cell[CellGroupData[{
Cell[278646, 5441, 3634, 78, 109, "Item",ExpressionUUID->"6cfc79f2-2e44-449a-bf47-21a17f9b885d"],
Cell[282283, 5521, 775, 13, 63, "Item",ExpressionUUID->"664f0333-072d-4a71-be47-2b100e774957"]
}, Open  ]],
Cell[CellGroupData[{
Cell[283095, 5539, 2970, 83, 146, "Input",ExpressionUUID->"6593c66d-8dca-4dd6-90d7-9a81694ede8d"],
Cell[286068, 5624, 3637, 69, 817, "Output",ExpressionUUID->"557333f5-7215-4143-b3b7-0d6868b0fecc"]
}, {2}]],
Cell[289717, 5696, 901, 16, 63, "Item",ExpressionUUID->"f6ad1486-6520-4ffb-b62b-e7936f977b8b"],
Cell[CellGroupData[{
Cell[290643, 5716, 6862, 146, 628, "Input",ExpressionUUID->"cfe69aa9-bda4-4948-93a0-07ad9e640278"],
Cell[297508, 5864, 3329, 62, 845, "Output",ExpressionUUID->"7a922c45-e676-4428-9cc8-5dd634d0f4b6"]
}, Open  ]],
Cell[300852, 5929, 1628, 41, 72, "Item",ExpressionUUID->"f8107099-930b-4b94-b314-df504b7e376b"],
Cell[CellGroupData[{
Cell[302505, 5974, 4528, 116, 668, "Input",ExpressionUUID->"f6977fc1-9b82-4c09-82cc-a963ff23ba4d"],
Cell[307036, 6092, 3353, 63, 938, "Output",ExpressionUUID->"e47452b5-3831-42d2-a928-f7af3e16a75a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[310450, 6162, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"57948627-368c-44bd-b19f-65655cc3e8a5",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[310597, 6168, 705, 10, 76, "Section",ExpressionUUID->"bcea2b36-facc-49cc-9094-4437593d414d"],
Cell[CellGroupData[{
Cell[311327, 6182, 898, 16, 145, "Item",ExpressionUUID->"6d14baec-2331-4f7e-9be0-bc67fe507c7e"],
Cell[312228, 6200, 3506, 74, 154, "Item",ExpressionUUID->"81d64db5-305b-41f0-b716-d442d455bbb8"],
Cell[315737, 6276, 3289, 66, 111, "Item",ExpressionUUID->"3ae2076b-c5e3-4181-a1f7-3901fdb645c7"],
Cell[319029, 6344, 9306, 223, 254, "Item",ExpressionUUID->"10d4577c-7d92-4c6a-9178-1ae834fc8ac9"],
Cell[328338, 6569, 1989, 27, 63, "Item",ExpressionUUID->"b4d73e49-8f94-454c-ab51-276e0629d3fa"]
}, Open  ]],
Cell[330342, 6599, 2050, 58, 138, "Input",ExpressionUUID->"3277311d-3102-4ed4-b7db-16e94f4de488"],
Cell[332395, 6659, 1807, 55, 138, "Input",ExpressionUUID->"a0d30cd8-fc57-41a7-8f73-3b897b0b9326"],
Cell[CellGroupData[{
Cell[334227, 6718, 1931, 29, 104, "Item",ExpressionUUID->"ca518c8c-889b-423d-8d5b-6e84634999e5"],
Cell[336161, 6749, 2782, 48, 58, "Subitem",ExpressionUUID->"80fd6ad4-69b1-4777-8992-9bd53ec9eabb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[338980, 6802, 988, 23, 107, "Input",ExpressionUUID->"fd392e8e-67f6-4d41-ba9f-b15fd66bd920"],
Cell[339971, 6827, 594, 15, 98, "Output",ExpressionUUID->"e9212941-212d-4342-8af8-88eb7d228f0f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[340602, 6847, 991, 23, 107, "Input",ExpressionUUID->"0a7d4b55-b729-465e-8855-ee135888010f"],
Cell[341596, 6872, 689, 16, 98, "Output",ExpressionUUID->"61e25e9b-6747-49ba-a8f4-165f6971a21d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[342322, 6893, 1263, 27, 59, "Input",ExpressionUUID->"e380385c-8bd0-467f-99d2-a060bd00b047"],
Cell[343588, 6922, 915, 26, 73, "Output",ExpressionUUID->"1195d084-7211-4d30-bc1d-bc39f31d9291"]
}, Open  ]],
Cell[344518, 6951, 3664, 89, 162, "Item",ExpressionUUID->"8036c607-aba9-4105-af04-39e566c2e10f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[348231, 7046, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"ab14fb6a-f800-4e80-8e18-6bc9b977fdd7",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[348378, 7052, 574, 8, 76, "Section",ExpressionUUID->"f52351ac-45d3-455c-9f88-2f1607084dca"],
Cell[CellGroupData[{
Cell[348977, 7064, 837, 15, 145, "Item",ExpressionUUID->"71feb05a-86f6-4fbe-af47-7592302f3f95"],
Cell[349817, 7081, 1722, 42, 64, "Item",ExpressionUUID->"691b2170-0cce-464a-bf53-f9fc27bbc247"],
Cell[351542, 7125, 2203, 48, 97, "Subitem",ExpressionUUID->"2a077940-0e5b-4585-b08d-14715d3b9521"],
Cell[353748, 7175, 1093, 17, 63, "Item",ExpressionUUID->"bcedb240-d279-4e93-84a7-960f928535fc"],
Cell[354844, 7194, 1449, 36, 80, "Subitem",ExpressionUUID->"2423386e-3de9-45d7-9f3b-d2853d8f13f2"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[356354, 7237, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"9c3fca23-10fc-4d1d-b4ba-6534b91fef67",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[356501, 7243, 502, 9, 76, "Section",ExpressionUUID->"250d3a64-2edb-4a2f-8fbe-d191c6076c2b"],
Cell[357006, 7254, 166, 3, 42, "Text",ExpressionUUID->"2c7b9425-78f1-44f9-a3db-ad1b38ae6d8e"],
Cell[CellGroupData[{
Cell[357197, 7261, 959, 15, 104, "Item",ExpressionUUID->"6d42cae0-81b6-499d-9d18-cad1329bef8d"],
Cell[358159, 7278, 1121, 20, 104, "Item",ExpressionUUID->"761947d6-54ed-458f-aa6d-42f8be7fc4ec"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[359329, 7304, 507, 9, 76, "Subsubtitle",ExpressionUUID->"605a41bc-35f4-45ee-8d1f-cb473818f3a1"],
Cell[CellGroupData[{
Cell[359861, 7317, 1076, 17, 63, "Item",ExpressionUUID->"cc0b1f3a-ad25-4bdb-b91a-66b18afc233a"],
Cell[CellGroupData[{
Cell[360962, 7338, 1855, 47, 59, "Subitem",ExpressionUUID->"73f38a56-04e5-49ea-bad5-75524119ae78"],
Cell[362820, 7387, 1352, 26, 54, "Subitem",ExpressionUUID->"bd787a9d-3245-41ed-ac0d-cce70548e9ce"],
Cell[364175, 7415, 1040, 17, 111, "Subitem",ExpressionUUID->"a41a8b12-df9e-4932-8bf6-e506e275b898"],
Cell[365218, 7434, 812, 20, 57, "Subitem",ExpressionUUID->"0654c10c-d035-4914-91ac-2431ca94584e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[366079, 7460, 1019, 27, 101, "Input",ExpressionUUID->"afdb7066-38ab-40cc-90dc-e6908215ae31"],
Cell[367101, 7489, 8241, 156, 507, "Output",ExpressionUUID->"481ae4f4-b4cb-4701-ba19-94c6ae1088e1"]
}, Open  ]],
Cell[375357, 7648, 564, 10, 54, "Subitem",ExpressionUUID->"269c798f-a032-474d-9316-e1aaffe4611e"],
Cell[375924, 7660, 1131, 23, 195, "Item",ExpressionUUID->"7953eafc-067b-4077-a76f-85f71fa70436"],
Cell[CellGroupData[{
Cell[377080, 7687, 680, 19, 59, "Input",ExpressionUUID->"e8af0568-6d64-4a21-a770-c0f48aaad581"],
Cell[377763, 7708, 442, 9, 49, "Output",ExpressionUUID->"d5898d12-9c4b-417a-89a1-7ea32754dccf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[378242, 7722, 1213, 34, 96, "Input",ExpressionUUID->"e15f0e9c-931b-4a91-8606-030946f69f21"],
Cell[379458, 7758, 6415, 126, 533, "Output",ExpressionUUID->"98696f62-3889-456e-8365-261aae8ab42e"]
}, {2}]],
Cell[CellGroupData[{
Cell[385907, 7889, 1043, 17, 111, "Subitem",ExpressionUUID->"985b0ef4-4e3e-4d4c-ae90-bd853402e95b"],
Cell[386953, 7908, 1663, 37, 66, "Subitem",ExpressionUUID->"b1843bd9-49a5-4033-9c07-c8f0272b0c41"],
Cell[388619, 7947, 956, 13, 54, "Subitem",ExpressionUUID->"a3917807-d301-42e2-b8fc-3b2621ad4be6"],
Cell[389578, 7962, 1796, 51, 61, "Subitem",ExpressionUUID->"66a1424b-cf47-4e8f-93b1-b36084148416"],
Cell[391377, 8015, 559, 10, 54, "Subitem",ExpressionUUID->"55f02391-c774-488d-8648-9a7769c3ed90"]
}, Open  ]],
Cell[CellGroupData[{
Cell[391973, 8030, 529, 14, 92, "Input",ExpressionUUID->"5300db44-f09a-4ef2-aa24-42f8f1afc497"],
Cell[392505, 8046, 347, 9, 74, "Output",ExpressionUUID->"20a1ada6-27ec-4111-a274-12b342a2ac4a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[392913, 8062, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"177cc76c-d460-4a39-90ed-eeb1ca47d1b5",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[393060, 8068, 609, 9, 76, "Section",ExpressionUUID->"ca9d2620-35dc-481d-8538-e2aa34958cca"],
Cell[CellGroupData[{
Cell[393694, 8081, 1556, 30, 63, "Item",ExpressionUUID->"fb933ba0-e5a9-4ee9-ac20-35c537acabce"],
Cell[CellGroupData[{
Cell[395275, 8115, 1463, 27, 54, "Subitem",ExpressionUUID->"9392e4d0-c344-4ac2-a31c-6337d4a2c5bc"],
Cell[396741, 8144, 1576, 31, 54, "Subitem",ExpressionUUID->"180273e9-9580-4236-8e68-26b4c80d6b6d"],
Cell[398320, 8177, 1778, 33, 114, "Subitem",ExpressionUUID->"d7cfbbe2-eb1b-4213-8919-66f3011e81ea"],
Cell[400101, 8212, 1798, 38, 114, "Subitem",ExpressionUUID->"ab4bf3d8-835d-4384-b212-02b703ee2831"],
Cell[401902, 8252, 1968, 42, 119, "Subitem",ExpressionUUID->"bd9dc01a-536a-4eb6-a671-6b3c2fd7ec54"]
}, Open  ]]
}, Open  ]],
Cell[403897, 8298, 419, 7, 59, "Input",ExpressionUUID->"e51a8c33-e2d5-4c44-a118-31b4c78e1d07"],
Cell[CellGroupData[{
Cell[404341, 8309, 38087, 838, 1650, "Input",ExpressionUUID->"20e1db96-2a1d-4382-a276-d086972dc99f"],
Cell[442431, 9149, 79794, 1733, 595, "Output",ExpressionUUID->"531f5043-a63f-40c3-ad40-0ed59bb932ba"]
}, {2}]],
Cell[CellGroupData[{
Cell[522259, 10887, 1888, 34, 65, "Item",ExpressionUUID->"5fd955f7-8c2e-4502-87d1-33273b720258"],
Cell[524150, 10923, 1882, 31, 65, "Item",ExpressionUUID->"de19a5f2-e69c-45f4-9ef5-31c114bd9043"]
}, Open  ]],
Cell[526047, 10957, 9655, 217, 661, "Input",ExpressionUUID->"6c51114f-0691-4cb2-8feb-2202f1ac2399"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[535751, 11180, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"c74319f1-65fe-4eb1-970b-1440b66a5c1c",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[535898, 11186, 538, 8, 76, "Section",ExpressionUUID->"0d940661-e0b8-40c7-bd17-810cea46ad13"],
Cell[CellGroupData[{
Cell[536461, 11198, 570, 9, 63, "Item",ExpressionUUID->"75f4b366-f542-4a66-8f1d-0ed6e130c98a"],
Cell[537034, 11209, 2236, 43, 324, "Subitem",ExpressionUUID->"b5bde5ae-1c95-46f7-b9e4-dea4510a4e8d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[539307, 11257, 690, 12, 98, "Subsubsection",ExpressionUUID->"5d63156a-b851-4477-bbca-14b8e6ca1d83"],
Cell[CellGroupData[{
Cell[540022, 11273, 388, 10, 59, "Input",ExpressionUUID->"a532dbe0-200c-45aa-9fff-fa19b57ab271"],
Cell[540413, 11285, 3596, 79, 462, "Output",ExpressionUUID->"d0894b47-6e7e-44e0-95aa-53e3bca0f1ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[544046, 11369, 1390, 19, 63, "Item",ExpressionUUID->"fb2979d1-a5d4-416b-86b9-f64ee8440b00"],
Cell[CellGroupData[{
Cell[545461, 11392, 3020, 66, 150, "Subitem",ExpressionUUID->"7325694d-2fad-416e-acc6-1fd78c5f6aeb"],
Cell[548484, 11460, 1530, 23, 54, "Subitem",ExpressionUUID->"b0f570e2-d6f8-4da6-acac-853e4aeca653"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[550099, 11492, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"b7b175ae-71aa-4f8a-8e0d-fc4eef33d0cc",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[550246, 11498, 342, 5, 76, "Section",ExpressionUUID->"b4edb431-6c70-4b24-b1c9-3c0643d4f851"],
Cell[CellGroupData[{
Cell[550613, 11507, 1321, 20, 111, "Subitem",ExpressionUUID->"aba9caef-fa28-4ad2-a3de-57d0023a826f"],
Cell[551937, 11529, 5881, 171, 108, "Subsubitem",ExpressionUUID->"61257c0a-61fc-4222-9ac7-d4fb0fd1f666"]
}, Open  ]],
Cell[CellGroupData[{
Cell[557855, 11705, 5611, 133, 716, "Input",ExpressionUUID->"62840a6c-ea77-45ee-a18a-ea67b089df4d"],
Cell[563469, 11840, 3685, 75, 795, "Output",ExpressionUUID->"806d433a-2ad1-4dc0-b914-fc7d46d6d174"]
}, {2}]],
Cell[567166, 11918, 526, 10, 86, "Text",ExpressionUUID->"d330dc70-13ba-455c-86b0-1065d36ccb07"],
Cell[CellGroupData[{
Cell[567717, 11932, 4814, 112, 398, "Input",ExpressionUUID->"e1b0344b-4de3-45f4-8d0d-cd994dd93e41"],
Cell[572534, 12046, 3052, 61, 556, "Output",ExpressionUUID->"02361217-444f-453a-a0f8-20ef43609334"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[575644, 12114, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"18125049-c837-4584-ab6d-b49b41697be4",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[575791, 12120, 375, 6, 76, "Section",ExpressionUUID->"bdbe7acf-bb40-4bf1-8410-83842be6801a"],
Cell[CellGroupData[{
Cell[576191, 12130, 1315, 18, 63, "Item",ExpressionUUID->"b032c732-eb53-45fe-b529-67b91364e785"],
Cell[577509, 12150, 2209, 45, 190, "Item",ExpressionUUID->"5a89b2b5-f0d1-47ce-8cb5-e3078a75a9c2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[579755, 12200, 3965, 98, 356, "Input",ExpressionUUID->"c46d1f6e-4bd5-4bf7-9395-744397f02941"],
Cell[583723, 12300, 2977, 60, 641, "Output",ExpressionUUID->"78a8e359-3307-4e47-bc1a-3ff90e4a8eda"]
}, {2}]],
Cell[586712, 12363, 412, 8, 86, "Text",ExpressionUUID->"836deca6-0536-4c07-8be0-41a56127bd7b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[587173, 12377, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"5b8027d4-8c59-45a3-b16e-3620556c118f",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[587320, 12383, 427, 6, 76, "Section",ExpressionUUID->"34ccac00-a0d5-4c24-8e09-d966936ad9b9"],
Cell[CellGroupData[{
Cell[587772, 12393, 1334, 30, 101, "Input",ExpressionUUID->"6b6946e4-8821-4ae6-94e6-ca136f4138a8"],
Cell[589109, 12425, 68040, 1151, 582, "Output",ExpressionUUID->"83ec06d0-9aa6-4e9b-83a0-d8f728250f7f"]
}, Open  ]],
Cell[657164, 13579, 695, 10, 54, "Subitem",ExpressionUUID->"f77130f6-5bad-4bef-aecb-93286d0d8498"],
Cell[657862, 13591, 906, 23, 101, "Input",ExpressionUUID->"b11c8372-1205-48a6-81ad-d53480cb4e93"],
Cell[658771, 13616, 624, 9, 54, "Subitem",ExpressionUUID->"d4f298cf-405a-4fff-939b-826a74e6862c"],
Cell[659398, 13627, 1008, 28, 142, "Input",ExpressionUUID->"02249c0a-da2f-4e2f-ad94-a8222f6f05bd"],
Cell[660409, 13657, 876, 14, 111, "Subitem",ExpressionUUID->"15558e47-4de4-4814-a7d7-736a78e1dbc0"],
Cell[CellGroupData[{
Cell[661310, 13675, 683, 18, 101, "Input",ExpressionUUID->"79898ff2-8ae1-444e-9742-75ef4cd33b95"],
Cell[661996, 13695, 23208, 481, 101, "Output",ExpressionUUID->"bbce2d21-c2cb-4928-8561-d347d85dd427"]
}, Open  ]],
Cell[685219, 14179, 769, 11, 54, "Subitem",ExpressionUUID->"65d60a5a-e751-44ec-b854-0f553f286d92"],
Cell[CellGroupData[{
Cell[686013, 14194, 760, 20, 101, "Input",ExpressionUUID->"f6234ceb-c173-4104-8b76-2f2c96103bdd"],
Cell[686776, 14216, 51520, 845, 623, "Output",ExpressionUUID->"c4818e12-33a1-41e1-8887-59d38547ff9e"]
}, Open  ]],
Cell[738311, 15064, 752, 11, 54, "Subitem",ExpressionUUID->"d9e19854-3daa-4bf9-a278-7a0186ff202f"],
Cell[CellGroupData[{
Cell[739088, 15079, 1037, 23, 224, "Input",ExpressionUUID->"b35dfae9-2368-4f44-b6ad-bf12625a05cf"],
Cell[740128, 15104, 22507, 462, 101, "Output",ExpressionUUID->"2c768ac0-5522-4c77-a5e0-d72765968e3f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[762672, 15571, 654, 19, 59, "Input",ExpressionUUID->"899ceac5-5448-4412-9794-dcd1be397eea"],
Cell[763329, 15592, 1245, 37, 134, "Output",ExpressionUUID->"578e1fc7-a7af-4b72-a41a-c34896fd2e6c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[764611, 15634, 1422, 35, 142, "Input",ExpressionUUID->"2bb27e79-9bdb-44f5-931f-e3aa8447843e"],
Cell[766036, 15671, 2202, 44, 542, "Output",ExpressionUUID->"f02f231c-910f-478b-aa5d-ba2cfe05b93d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[768299, 15722, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"3a0931a8-fed5-4267-a45c-9c365550433c",
 CellTags->"SlideShowHeader"],
Cell[768424, 15726, 514, 8, 76, "Section",ExpressionUUID->"6212e466-7719-4b77-b380-43c38c6a2926"],
Cell[CellGroupData[{
Cell[768963, 15738, 451, 7, 60, "Section",ExpressionUUID->"a775ac91-db8a-45ea-8080-0e0b25457336"],
Cell[769417, 15747, 273, 7, 59, "Input",ExpressionUUID->"7b044c36-ac5e-4ca4-a7fc-ade03fcbf402"],
Cell[769693, 15756, 469, 13, 59, "Input",ExpressionUUID->"cdcb1d37-b333-45db-9c34-3f72b444696c"],
Cell[CellGroupData[{
Cell[770187, 15773, 2198, 63, 233, "Input",ExpressionUUID->"22784029-cdfb-420b-bef3-ea9f385effaa"],
Cell[772388, 15838, 2468, 54, 542, "Output",ExpressionUUID->"d3a9e190-0ab7-4d78-b2ac-bba013c93375"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[774902, 15898, 430, 7, 66, "Section",ExpressionUUID->"48246c1e-ed1a-46ee-823f-a6e622dcb382"],
Cell[CellGroupData[{
Cell[775357, 15909, 2214, 62, 233, "Input",ExpressionUUID->"89d33cc4-a036-451f-8bf3-24fc249eccdf"],
Cell[777574, 15973, 2990, 62, 666, "Output",ExpressionUUID->"713c1e81-25fe-4b7a-9d83-111ddcb24f42"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[780622, 16042, 122, 2, 100, "SlideShowNavigationBar",ExpressionUUID->"4d77ad9d-b90d-4804-b878-00f4ffadc7ea",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[780769, 16048, 323, 5, 76, "Section",ExpressionUUID->"0a53f60e-3f68-4525-847a-dfe345de56b6"],
Cell[CellGroupData[{
Cell[781117, 16057, 257, 4, 82, "Subsection",ExpressionUUID->"cb5215c2-2d9e-454e-9f6a-39152ff6883e"],
Cell[781377, 16063, 620, 11, 58, "Subsubsection",ExpressionUUID->"ffa52ba6-c62d-473d-8a9b-6cbc05ed2657"],
Cell[782000, 16076, 609, 9, 52, "Subsubsection",ExpressionUUID->"b2dabfea-5f86-42d7-b4b7-79af422c4de7"],
Cell[782612, 16087, 415, 7, 52, "Subsubsection",ExpressionUUID->"d7d7d2b1-1fca-4a2a-b080-66a6d1ca1303"],
Cell[783030, 16096, 416, 7, 52, "Subsubsection",ExpressionUUID->"ad5f83bc-0be3-4e35-83d9-f80eaa7a9b94"],
Cell[783449, 16105, 453, 10, 92, "Subsubsection",ExpressionUUID->"e37ec566-18cc-4be8-91fd-9d961fd522c5"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)