(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 348050, 7733] NotebookOptionsPosition[ 337043, 7414] NotebookOutlinePosition[ 338962, 7468] CellTagsIndexPosition[ 338882, 7463] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Code", "Subsubsubsection", CellChangeTimes->{{3.401066205515625*^9, 3.40106620590625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"plotTree", "=", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "labels", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "coords", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"coords", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"TreePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "\[Rule]", "1"}], ",", "\"\<2\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "\[Rule]", "1"}], ",", "\"\<1\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4", "\[Rule]", "1"}], ",", "\"\<-3\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"5", "\[Rule]", "1"}], ",", "\"\<-2\>\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"6", "\[Rule]", "3"}], ",", "\"\<1\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"6", "\[Rule]", "4"}], ",", "\"\<2\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"6", "\[Rule]", "5"}], ",", "\"\<3\>\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"7", "\[Rule]", "3"}], ",", "\"\<-3\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"7", "\[Rule]", "4"}], ",", "\"\<2\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"7", "\[Rule]", "5"}], ",", "\"\<1\>\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"8", "\[Rule]", "3"}], ",", "\"\<1\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"8", "\[Rule]", "4"}], ",", "\"\<-2\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"8", "\[Rule]", "5"}], ",", "\"\<1\>\""}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"VertexLabeling", "\[Rule]", "True"}], ",", RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", RowBox[{"VertexRenderingFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Panel", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"labels", "[", RowBox[{"[", "#2", "]"}], "]"}], ",", "Small"}], "]"}], "]"}], ",", "#1"}], "]"}], "&"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"VertexCoordinateRules", "\[Rule]", " ", "coords"}]}], "]"}]}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"perceptronPlot", "=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "labels", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"labels", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(1\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(2\)]\)\>\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"TreePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "\[Rule]", "1"}], ",", "\"\<\!\(\*SubscriptBox[\(w\), \(0\)]\)\>\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"3", "\[Rule]", "1"}], ",", "\"\<\!\(\*SubscriptBox[\(w\), \(1\)]\)\>\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"4", "\[Rule]", "1"}], ",", "\"\<\!\(\*SubscriptBox[\(w\), \(1\)]\)\>\""}], "}"}]}], "}"}], ",", RowBox[{"VertexLabeling", "\[Rule]", "True"}], ",", RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", RowBox[{"VertexRenderingFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Panel", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"labels", "[", RowBox[{"[", "#2", "]"}], "]"}], ",", "Medium"}], "]"}], "]"}], ",", "#1"}], "]"}], "&"}], ")"}]}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plt", " ", "=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"labels", ",", " ", "coords"}], "}"}], ",", RowBox[{ RowBox[{"labels", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \ \(1\)]\)=g[\!\(\*UnderoverscriptBox[\(\[Sum]\), \(i = 0\), \ \(2\)]\)\!\(\*SubsuperscriptBox[\(w\), \(i\), \ \(1\)]\)\!\(\*SubscriptBox[\(X\), \(i\)]\)]\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \ \(2\)]\)=g[\!\(\*UnderoverscriptBox[\(\[Sum]\), \(i = 0\), \ \(2\)]\)\!\(\*SubsuperscriptBox[\(w\), \(i\), \ \(2\)]\)\!\(\*SubscriptBox[\(X\), \(i\)]\)]\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \ \(3\)]\)=g[\!\(\*UnderoverscriptBox[\(\[Sum]\), \(i = 0\), \ \(2\)]\)\!\(\*SubsuperscriptBox[\(w\), \(i\), \ \(3\)]\)\!\(\*SubscriptBox[\(X\), \(i\)]\)]\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(2\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(1\)]\)\>\""}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"coords", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"TreePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "\[Rule]", "1"}], ",", "\"\<\!\(\*SubscriptBox[\(u\), \(0\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "\[Rule]", "1"}], ",", "\"\<\!\(\*SubscriptBox[\(u\), \(1\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4", "\[Rule]", "1"}], ",", "\"\<\!\(\*SubscriptBox[\(u\), \(2\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"5", "\[Rule]", "1"}], ",", "\"\<\!\(\*SubscriptBox[\(u\), \(3\)]\)\>\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"6", "\[Rule]", "3"}], ",", "\"\<\!\(\*SubsuperscriptBox[\(w\), \(0\), \(1\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"6", "\[Rule]", "4"}], ",", "\"\<\!\(\*SubsuperscriptBox[\(w\), \(1\), \(1\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"6", "\[Rule]", "5"}], ",", "\"\<\!\(\*SubsuperscriptBox[\(w\), \(2\), \(1\)]\)\>\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"7", "\[Rule]", "3"}], ",", "\"\<\!\(\*SubsuperscriptBox[\(w\), \(0\), \(2\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"7", "\[Rule]", "4"}], ",", "\"\<\!\(\*SubsuperscriptBox[\(w\), \(1\), \(2\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"7", "\[Rule]", "5"}], ",", "\"\<\!\(\*SubsuperscriptBox[\(w\), \(2\), \(2\)]\)\>\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"8", "\[Rule]", "3"}], ",", "\"\<\!\(\*SubsuperscriptBox[\(w\), \(0\), \(3\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"8", "\[Rule]", "4"}], ",", "\"\<\!\(\*SubsuperscriptBox[\(w\), \(1\), \(3\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"8", "\[Rule]", "5"}], ",", "\"\<\!\(\*SubsuperscriptBox[\(w\), \(2\), \(3\)]\)\>\""}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"VertexLabeling", "\[Rule]", "True"}], ",", RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", RowBox[{"VertexRenderingFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Panel", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"labels", "[", RowBox[{"[", "#2", "]"}], "]"}], ",", "Small"}], "]"}], "]"}], ",", "#1"}], "]"}], "&"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"VertexCoordinateRules", "\[Rule]", "coords"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dynamicDemo", " ", "=", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{ "w10", ",", "w11", ",", "w12", ",", "w20", ",", "w21", ",", "w22", ",", "w30", ",", "w31", ",", "w32", ",", "u0", ",", "u1", ",", "u2", ",", "g"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"g", "=", RowBox[{"Function", "[", RowBox[{"x", ",", FractionBox["1", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}]]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "w10", "]"}], ",", "r"}], "]"}], ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "w11", "]"}], ",", "r"}], "]"}], ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "w12", "]"}], ",", "r"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "w20", "]"}], ",", "r"}], "]"}], ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "w21", "]"}], ",", "r"}], "]"}], ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "w22", "]"}], ",", "r"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "w30", "]"}], ",", "r"}], "]"}], ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "w31", "]"}], ",", "r"}], "]"}], ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "w32", "]"}], ",", "r"}], "]"}]}], "}"}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"MatrixForm", "[", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "u0", "]"}], ",", "r"}], "]"}], ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "u1", "]"}], ",", "r"}], "]"}], ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", "u2", "]"}], ",", "r"}], "]"}]}], "}"}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Dynamic", "[", "\[IndentingNewLine]", RowBox[{"Plot3D", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", RowBox[{"Total", "[", RowBox[{"Flatten", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"u0", ",", "u1", ",", "u2"}], "}"}], "}"}], " ", ".", " ", RowBox[{"g", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"w10", ",", "w11", ",", "w12"}], "}"}], ",", RowBox[{"{", RowBox[{"w20", ",", "w21", ",", "w22"}], "}"}], ",", RowBox[{"{", RowBox[{"w30", ",", "w31", ",", "w32"}], "}"}]}], "}"}], " ", ".", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"a", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]", "]"}], "}"}]}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.401066087578125*^9, 3.401066160234375*^9}, { 3.4011199286325207`*^9, 3.401119954547126*^9}, {3.401119991609887*^9, 3.401120008702186*^9}, {3.401120040914592*^9, 3.401120097390492*^9}, { 3.401120161725251*^9, 3.401120177182559*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Neural Networks", "Title", CellChangeTimes->{{3.40105710428125*^9, 3.401057112859375*^9}}], Cell[CellGroupData[{ Cell["Joseph E. Gonzalez", "Author", CellChangeTimes->{{3.4010571151875*^9, 3.40105711821875*^9}}], Cell["\<\ We are going to go through Neural Networks and review the process of back \ propagation. \ \>", "Text", CellChangeTimes->{{3.401123760203965*^9, 3.40112383533815*^9}}], Cell[TextData[{ "Experimental ", StyleBox["Mathematica", FontSlant->"Italic"], " based presentation." }], "Text", CellChangeTimes->{{3.4011237456869698`*^9, 3.401123759026046*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Single Perceptron", "Section", CellChangeTimes->{{3.401057126828125*^9, 3.401057152921875*^9}, { 3.401058577390625*^9, 3.4010585803125*^9}, {3.401119778831525*^9, 3.401119780114086*^9}}], Cell[CellGroupData[{ Cell["The Perceptron", "Subsubsubsection", CellChangeTimes->{{3.40105767815625*^9, 3.40105767990625*^9}}], Cell[CellGroupData[{ Cell[BoxData["perceptronPlot"], "Input"], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{ GraphicsComplexBox[{{0., 0.}, {0.7745966692414834, 0.7745966692414834}, { 0.7745966692414834, 0.}, {1.5491933384829668`, 0.}}, {RGBColor[0.5, 0., 0.], Arrowheads[{{0.03685673738335107, 0.7}}], {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(0\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.03685673738335107, 0.8}}], ArrowBox[{1, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(1\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.03685673738335107, 0.8}}], ArrowBox[{3, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(w\\), \\(1\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.03685673738335107, 0.8}}], ArrowBox[{4, 2}]}}], {InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(0\\)]\\)=1\"\>", StripOnInput->False, FontSize->Medium]], {0., 0.}], InsetBox[ PanelBox[ StyleBox["\<\"g[\\!\\(\\*UnderoverscriptBox[\\(\[Sum]\\), \\(i = \ 0\\), \\(3\\)]\\)\\!\\(\\*SubscriptBox[\\(w\\), \\(i\\)]\\) \ \\!\\(\\*SubscriptBox[\\(X\\), \\(i\\)]\\)]\"\>", StripOnInput->False, FontSize->Medium]], {0.7745966692414834, 0.7745966692414834}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(1\\)]\\)\"\>", StripOnInput->False, FontSize->Medium]], {0.7745966692414834, 0.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(2\\)]\\)\"\>", StripOnInput->False, FontSize->Medium]], {1.5491933384829668`, 0.}]}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0., 0.}, {0.7745966692414834, 0.7745966692414834}, {0.7745966692414834, 0.}, {1.5491933384829668`, 0.}}]& ], AspectRatio->0.7071067811865476, FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{3.401119977327154*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["There are several parts", "Subsubsubsection", CellChangeTimes->{{3.40111188082388*^9, 3.4011118896357403`*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Link Function ", Cell[BoxData[ FormBox[ RowBox[{"g", "[", "u", "]"}], TraditionalForm]]] }], "Item1Numbered", CellChangeTimes->{{3.401111894204224*^9, 3.401111907464517*^9}}], Cell[TextData[{ "Weights ", Cell[BoxData[ FormBox[ SubscriptBox["w", "i"], TraditionalForm]]] }], "Item1Numbered", CellChangeTimes->{{3.401111909650449*^9, 3.4011119435400553`*^9}}], Cell[TextData[{ "A bias term ", Cell[BoxData[ FormBox[ SubscriptBox["X", "0"], TraditionalForm]]] }], "Item1Numbered", CellChangeTimes->{{3.401111946323945*^9, 3.401111951704337*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Link Function", "Section", CellChangeTimes->{{3.40105841003125*^9, 3.401058414875*^9}, { 3.40111982814913*^9, 3.4011198297193117`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"g", "[", "x", "]"}], "=", FractionBox["1", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]]}]]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401058234265625*^9, 3.40105824234375*^9}, 3.40105839671875*^9, 3.40105844090625*^9, {3.401061191859375*^9, 3.401061195515625*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"g", "=", RowBox[{"Function", "[", RowBox[{"x", ",", FractionBox["1", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}]]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "8"}], ",", "8"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.4010584169375*^9, 3.401058451625*^9}, 3.4011199852081623`*^9, 3.4011200154498453`*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw12nk0Vd8XAHCZ5+GZHp4xlaJEIir7JCFFIfPXLJWKEomKCCljNEiZp6SU kJlDAxWJzEXGMr4nZHim3+2P31pvrbc+655179nn7b3PuWs9U09n2ZMMDAyM xIfx3zeWXl8fF4EdsJuufXxHRQSWpi+Fb1zyBHXhMUVebjks/Xd2s0rhK1BX edN5ta8LS0/8cjZSUAX1MxUnnI4YY+nOxp4QAQ1Q/36+ePX9Biz98tGnP0MI NN6nRDPpHsDSDrvymm6ZguabQInk7VewtM32w98PxINmR++xZ4MtWNp88+/R 5TbQXHDVvjToj6WPiMszX7AArT1TYqY7ZLC0BsOTvda2oFU17cFyZxFL8zZF 5iq6wt7midK3ntpYqvrU+ZBmX9AW3tX3sZIZS5XOdV6eiARt7YP7yndxYanC 4ANn2NJB+9Sd5AXzI1jqaZKwETSCdnld+ubAL1gqrrVK+JUcgEu/SNcRIyx1 Sps7O/YLIMc73Uyi97EUv1Beg+lmONDWRl+5/gBLcaYLl3vsgwNT25bLl42x FIty4PM7JqDDkr7jJJ8MlqQbmsXWXQMd9bm+jPmfWHI4cNlatRV0Hu88524p iSVLJwzHBa/DQfet5OOHnbGkU+04V1sbHNro3afJQ8KS/+VVF7sGwSFt5zVB KVUsaXk/3n5uBxyyvnRK042MJY3O7HstGA6HYpbfMfbpY0lN/hgr0/1waO2l X89NbizJ76CW2ZwNeoOf5CzVqjCleiVw/6crYFBPKsxXxZhS9svst80mMPiV /inwYwumFH1ViB1rhcOstrxaKb2Y8iyjZZhDCQ7r6Y6OteZjyoMj8nf0B+Bw A1MssbCYcv7Rx473hmD4zebV5KMETKFoCHliSTDipFp90WvGFFEt792kRjBS VumkJ3lgCmn/N/pJfzAyS793sWsFU9h140M5O8AoiTu7b48flpgzJSWax4Kx Ksc5KztuLNF4nv/dBBMcc+3S3Jq7DUtcy+ARFx6D4wsls2l1tVjCN/vcz9MJ YML9q8trJgFLeOU2ZlbogYncTgU78SkscfpVpLJjOpgYkaIUlMuwxIlqLt28 /8AkU5znAEsVllDq5vBEzWBqaRK6cUoXi/fysbw7Wwxm36w4HvjEYPHObBUP mT1gRlW5r83IiMVb99uJtpXDCQ5lLxvuTCxef7bo7H4MJyBhRH1LGhYvaHAh 8X2CE/kKYkMTo1g8LAg7FPaDeZzL2q+lFiyuPOdPX+EEyyu1c/volVh8W0R2 5qsosEy43TgSvYzFN8m1Gp/kB8vSa0k31m2xuLjJ1rQvwmC5OMx7d/ArFmd+ 0WWQKgNWV/EjjYC7WKz71O4HurvB+vZwEm6pwWLB3dMqkY5g+zEi0e6CEha7 3hQWV+QPtpOZD4/xlmGxK7WU2R/34T++sfYoOgWLeTw9/EbpE/xnsTSXy5CP xWwuZ2g17YL/fqsP3T7sjcVUBS10eVnBnt886Y8xGZMHjlZaxDwHx4Mum+5y 3cbkH8i0pOQDOFpOHlc3CMXkzl1j5J8D4HguxrYl0RmTmySEv+8UAccHGx+u OT7H5NIxT4evgeA4Hr43+dVmTI4NkzsjYApOCQ5e9QzfMBlqwq/GLYILxx4P gV9BmKylN15L+Q0uG3VV/INcMFntixFrdge47L8UHJk2jclbewXulheCi9f+ GLk3aZgsSE/MGfQAl96QZ/clMRYd3f28TWUIXCs4wy9OKGHR2LwWpa9fwC3e oa+rUw2LRuza5WVTCW6vEfsB6hgWDS2/XzKcB24thkaJcpZY1P+jjc5iOJzi 6+NvUZnGoq6/hqxlDsKpGPbPyL8Hi2rK/g31LIXT95NT1iMrsMhAglgfbwa4 v7/S8VF8Cxb5ockGtnHgPnayx1zjNxbp6J5LfRoMZ3mCxyc4h7BIo0Szi44z nLUwVh0UNMIib1JCRi/LwdnxnR6b0syxSEQ2baY3Hc5L2ClGRg9ikd3FH9ie p4JnlnqKvWkoFtlpUXh6KRY8m3NCfojvxyLbFlI/6d0AT7oJJUskEovIaF6N 7HeECwpbGlh2xGARzioVkpA0XAi8MbHxtS0W/vnuCeVqMlzcVdP2B33Fwre/ eakYPgGvwtvUSVUNLBzy9ZMhlzx4fRob0lnhwsKBX+ScP+eB16Db5HHqLSzs 09B672g5XBIobRTPD8TCTtWqC8bdcOliTWmWeTwW1nw6W2UmAt4a/uGX/XKx 0FiAz2HbGPDpeekuauSGhYavNjlTRMDnL/0jveMVFvrpt8n/RzJcFjgtYFX6 Hgu1X2p/bpcPlw2erprc9sVCtWfU+Rwa4XJpw3BHcSEWemQ23+7KDr4p2R4O Ve5Y6PDWK07ngsHvNh+XoWA6FjpY/sQ+ug/88pIG+NUzsJD2EWxboAV+X2yV 8wIksNAuD3bzvzPgL+S8wyuJuC75OsEw0An805+GQtdlLDizt3RXHIKrDcZa twMVseBjo0WWkjUI0GxkqQsexoL3f1IYe2wgwDmnPENoFAvGXoD1lTcQEFGO nHM0sGBo3C36AQ8I6AvpD7uUgAU9O0Wpn3ohMKzU54+yPhbUddTo7K2EGxem pPvIvZg05eX7jOkqBA3GG8TxOGDSqCOr/SMPCFqiGMrfL8GkIaP7gsrOEMxX 67kW+BmTuhVeX7M1hOD9jq/fGN7FpHd9U8aFZAh+ND98iqkQk54ccZ51LoKb VmmMqEwek47IG++rpULI5JSiaes9TNIT+PHHchBC2VCVMes0JqH1s1lT7RAq Wyy8ZBaPSeo9t/nEKiHUkqHi6M4CTJKLfTtwMQJC3ypAhNFxLLC0qhkmqwBh aT9E3kf0YYGnHfLNN5wg3J9h1/aUJCyQ0aud0m0B4Qly5+jK1Vggedjqgqoh hL85c2R+ZwoWuDcTyT+sBuGzJ3N8PohhgSDeWVMDdrjtKZlGvmKCBaz1a9v5 8uHO+YKstKfuWICjzL4neRkiw5/HKlTyYwFmfOXZwjRE5lWcljrDivnX6+Ou Hh+GyC9zxbnvtDD/3/YPFMYvECX82+8/DTHMPzCz3c4tHaKyvm3WasWYv3zb cv8OA4huoo3AcBPmd3+SMFJ1H2JTreKFOCww/0mNgMQr9hD75rIPd3oU5ndo dT22SwFiGwt06aphmN+cXbn0aTnELgUcYNj0EvPDpQ8R8X1w94Rf4ZYGwPxC hnMq7lsgjl/UOkT1Cea7OpNM3+4F8cmrsZ9/nsN8FxXcXTKYIb6MyZBZsxDz udnvbiI/gPhv2zqpo98x3/GPjalMFXCPrV+83D0V821KpR/qYYZ7Xr+Ha4RS MW/zMfO7YQ/g/rE4Dx67ecwr95xb4Wc5PJSPvJeeeQ3zkhNfbNh3DR4eEJY3 S7HBvLy3jbof7YeHdpiv4dwRzEN3i7ljiuHhw+sPQ9oEME+rLGnifT0kcD+u fWfUjnmCHojl57VBwuqtOjI7D+buv7FFzZcKictodGLrV8zd4dHA3fYKHlNc dTY3smHuRrvTIyoX4fH+lyofHWYwd6nWs/vjc/D4RmVYjpA85o75u33Bbhme sJf9YRytxdzgrlauyw5JMqdyZ5dmMVfyCR3EvxFSPDvaXzNYYq54d/+BndGQ 8ih4lBx7CXOF3ygMPr4IKW9dL/3Hcxlzeb2Qf3e3EVK5hv1Vt9lhLn1WtsOC 3pDqFGMxU8yHOWkljaYiHyCNJCGVrS6NOQ9IWLhKukN6+Hzk64MIc6qrxLDs b4P0NNegz2s0zKmoX59trw3pZX8u0GwGMaew957RFEFInzjd9NRfFHOMNUmc l6mEjGMt/pF7aZgjLqD/sjwvZEo963X5/QqzDw26h297DVntYbdZ98Vi9m7F MscWacj684BR/0cDZv/iw67pGwnZPPWTsnYdmL2MLWv83UnI1ot/RvaVxOzR SgNG9mTILmveYC3Sh9n3+FqR7l6HnOwF4e9lmpgtivvQk0UDyE2SW2dRYMds web3fJKLIbeqsag5pQGz+SYPGR+Sg9y+pB7nrALM5qxyY/3uMjyTKaG0Sllh Ng2LSmfFfHiW/YmyWP8dsw6k7driIAR55Q/tzDtLMau6ukzB+5+Qv2H9CmM/ G2ZV2qO7ZHYN8jfZCpdq7sKsclpn0AAZ8g16q0vGifG82gXNK8chP9bqw5md opjll74OVRXDS9mtFXVPzmCWB1Ynt6WkwqtNiivXDghi5nn/3Aw/ZyiwW6j5 cGkCM09ea5pgXYMCL60G3bkazDwYMKN6LxEKwuJLpldkMfOXm1q1L1uh4OWt xyd+B2Hm7IjPP38dhNeMfo/SFHkxs8UTKsVMHl4/f9iw/ZcLZnpTo3pfaQSK SIc3dM7MY6a8UWpWwDYoUnTjzD22ETOlkZ4VN3tAkW5Ko0/0NGaKcJPruLgI Rb5nhuwuW2ImRx5B0RJOKOqz1XJ39cJMHDaziQd2QnHBxxv3RKQxo+18UYr5 VSjxjJz/73EsZjSRufAyG0NJpDfPWLQ8ZtQzVKpZZIaS3KvbNlVzYsadSZn9 idFQMjTWU3a/GzOy6N6X/ZkKpTZHGe9MtOAN+XE+mWc+QJmR1qMPecl4w4Yd 6rkBAlBx1C/z6+Y1zLDA36DwJgwqzto3+LzPxgyTs9Y5VDpU3HF+ccRCAjN0 lV7LdhiEioZ63sY7hZjhlU5dxoHXUKnPfN0pxgUzOFgaJ7GYQtVhV+OXAoM1 61cZmmTFtkCNm36foOv+mnW399PSd/ih5vZ2g6G7ATXrphGCkvRFqHmuxjQg 61Kzvk3YWvxHA9TMZJUOjCrXrHVvHRFKPQ0YRcu4y/yoWdMwXWXf8gxw665j e/ca1azMZinR1JWgjtEvx4DfpmaltywwcIcb1ImWDLGfDK9ZqW9q5ducAnXb uTgcCmJrVh7P+yqLkqDOcvoAl96nmhVd/VqPhQWoyy8J66hdqVm+N25OLauD t446QRwB72vo6soB1P1W8O5bdKRmnXbNwpWyr1O6N6F+pVUkdWC0ZsFF7dik QR00iApvPlU8VLNglP9lwogBGlQ89LL1g2oW5DIax8yvQYObc8OG30Y1841R DSNul6GhxXyXwKm0mnkZJ9wbfho+5jk79JPoNXMNHK+aGo/C5wtKx8Wf2tbM iFrH5p8QhuZ9nobW1XdqxuUb+N7Pv4ZvTyT05Wa/1vSFjEWNfM+CruB51xs3 N9a8c/leRDGxg17v4R8/AyrgrU9d+1XOMhhQf8vQbPwUfloFSW0Y3A1DnVfV N9/6D8bqtJYqpjfCL8rcHjHRlzBjZdzUnXEYRg3q6mVaWWDm/Hu3/NBpGD2e 2HO1TwZmbu5dv0m8/4xanfftDf0DM/lbVbZvH4XR04xHrjeSYJaZ6d6N0nAY DRtX2xtqC7MvS223NDXA6NvXstePTsBfNtlRn0V9GNOUdJIsPQYLxX+ZSEaH YFzQ1uSxkiUsfFz6w+EUDeNiLvBf4hws9K79ZPDpgnFpt7N5Ck2wyMpeTk12 h3FF+5sv2zNh0YLi9YlGjD8o3Di09wYszh8cvHmXGH8xrXDnCTrQ1eNq5zqI 8Z81Ttve5QK64cOXE+OFMP4117momgx0+ydJg2srMN4h8o53swLQw7L9WrYQ 9+sfqpM6UwL0jnKVF1eI8fN63erFLrB8eSDNTXwFJmRUpy6cNoSVkp03Oh1i YOLCS9PS7Cuw0vgL9k2GwYQPfdatthtWBh+vpvsFwMTVAxcZur7AKi+b//l4 D5gIreEJKSqGVdc+b6Z6Y5hIvC5y50owrJEiT+1U5oWJt6yfm+48gvXzo0bh a9Ewye+afLpiF6zfTOaiRoTBpLDAAUk9Llh/ZPbpBDkAJsXKKAp/3sD6uxp9 aVUPmJSj3wqOW0UMPJ9lbAq3wORu3dteshTE4JouNv2bDSatFmattu5BG0jH eSSN62HyyUxMH/0R2kDxEhnYIQSTqR8yyPp30IbN92SyeBxhMvPBsO9x4rpW l5rSZzpMPldcOfbkDNrg4mi777ASTFYofFbl+og2FF3ItT0YC5NdntpKt0wQ o8XdQ4/22MAUv445fV4SMToWHrMTzYYpwTTnO0czEKN7u7XM/CxMiazM+ovx IMZAsXNPiyNhSjL3hYnTacSYkxZfqloDU9u6G0skhRDjYsFA53Z5mNJ9SC7g 1UJMia0BwrJTMOWT8GnTtjjElFl7Me3qHpi6ElA9wq2KmPJfndzeFgxTV51e JDDxIqa66KN6t0RgKkgqeMBMGTGNG4r7TmrDVKS32abPZohZs/ZNz5sYmEqP Kzsr74mYu17RUo+owFRj3pT7XlnEPJgypJR5Daaad0/LHTRCzJPRHaWrH2Cq pWpvsbU6YmE4V9Xyioi3420Jn5s1YlFQiGQSJp7f/yqoaXwasfimKpz8+Q2m 5riujx7qRawiMU6K3j5AJXdGUNLZEausRSWNUwSoEnBJ7yZGrEpS5NcppUCV zAwKunYXsR54/lXz0wpQ5dwkatlOItZzn8BANhioivUJsvdVEOtbFknXL9FA 1WbdeYXNHLF5+ncnK2QD1TH0xuilfYjNX2e3U7UBUJ0fZus+LURsoRx3N5mN AdU1x3BW0xixJSYYPA9UAurpGsqfiRzE9r64pLz9NVAvtGx/fV0ZsUtM3+8M rgbqjSAj/GwbYm9wM+X/0QnU5I3XUldJiL3Vu+tkhCFQUxq33CtVQ+w/btqX a1YCNc1r4iW/BmKfTj3r8iAVqJnl9WpKo4iD3BPy5vhpoOapMarOliOOM8Yl tm/pQC35sidxoxji5NSgZOdRgNqc/70LohGn0KH0ZWsivhYpu2KFLMQpdWLr cXYGoLZGqr15HYA4VS/uXnIdBmq789iBWjPEaZN37KjUC6D2rCT1iM0jzjzp oD9x2kAdGazYoxyNuI6y/d7n5whUemiuZy4dcVlQ2xtctwF1ubdu1nMOcTm1 vzthPAvUVbXN7pQFxOWbkXZOPgyo69+/HY6KR1wZYPu4+TnQWERWSRFViIt+ uXl50xLQ+LSPWuhMIu6nI6VlrXFAk7M3HrTqRtyFjTmHqv4D2sab598JZCLu 6sL7LU83AU0+RzCr0hFxtwV5jV0vBdrmseXbtAzEwyC5XUyhD2iK9udPhCDE Y3ki7UrgNqCpMdm3kzgRL8vbOxqKb4Gme9hg3lkI8fL9yTihbA+0Q6oypnXV iFdcuvKi6iLQ9MR649biEe+Oq9Q8LSWg6f/ibQ09h3gt1cykDe4B7chFz6hL hxDv0ywK20k3oJmaQ/G7YcR3JOxFZwo70Bysw67QOhGfedGHufR0oDnK+ma5 1SE+h8F+gex9hEe9f1cXIz5vIB15cQFozpcS5OSTEd+Thcs1Fd1AOxmQarWV A/FRT0NO1zOgnT2dpydohvgNMkcrOTYD7fI9zjGLv4jfKN19R/0M0Hz3qV+S rkH8pikTaWHVhIcePmvsRPz/JVJvMVsAzU957UugPuK/EDtnsh4KtKs1frZM HxB/wrX133+HgXaj7PeCIzfiHzUXFRwk5ntHrrJ9zRXxT5kmhKV5EC40zd7+ E/HPHBdbctQCWsRBzdzcZ4h/5Qilr7cVaJGOa9e73iIB/gNyud0bgBZ9z+/u wa9IYM/2HdDsCLS478PaW+uRQDjLobOVkkBL/NPBFZWBBKI86HQxIaA9vhJ1 65wUEojrehV+mZvwWnzmiQokkPRcIkt5BWhJ7DHGBT5IoND0T19GD9BShOzY 7B4ggb7UZJOIB0DL4BZ87OiNSLv3LmjY8gLtWdDbZAE6ImllPX9fykp4dvav 2F5EQnzOJ4RWgZZ3Msrh0lZEMhxsuvBlEmjP9db8ZQIRyfF2xjOdT0DLZ6T+ +imKSBGdxyW33QJagUN+bMwoIg165TLSGYBWUpB7kasakX4HznYPEfGVcv3d 5yWESJNR2q8aMeGTLQePfEak+Zw2+5QbQCsj75NTLUSCnD/Wy3XXgVbuO9Ej mYQEd+lbXIxZA1rVxs0/TDSQYAiFqX8TEW+d0u2DOYFI8PZW4xI+Iv/r/Lr4 tEqQYLT6o6jFSsIfPozHTyLBBBPlvZ+vAe2tQ1gWyxoSfB5m8/DCMtDeRSZ2 v7qOBNumC4wr6ED70O7PcXAeCW16b19lsgC0z5tEQrs3IyFF7d6X3cGEz71P yxRGQjtL/0t3Itbvc5GQ/PgvJLQ3z+bWBSLfGg/cdVHiRkImdy1Mok8ArclK PIPtGBK6bmc08ukV0Jovte9PikFCbX/38x48A7RvZ1Q72ByQUI9HJcOnOcJZ FRkBakjo56jWrCmxHt8GZorMipDQ+Pc9XU4JQGuzPn9ipxcSZqhVSw/8ALR2 3VQbHUMkrBSlpF4pB7RObhs52RNIOGSThIPad6D1uIyMyy4j4duhfLuXiPrr eUA6lfEYCUePMHFXTROuX9FliEXCjzLHy/WZgfZdkcM33AcJv5QvF7beQZgq qPuVHQn3yFt9vk7Mp/f0jmGzKCSyc+MDjQ9EvP073ob65CCR3Tfv8N4h4uu3 3u/taIZEtIaujxwj8r//ZsCvSHMkcijjZFzXMcKd1gHnnyAR241qU+NXgDZw zScixxqJhMl9y+T9DLTBynAHpzok8kNOgN+SqPcREYat/bVIZGBTovJTZ8Ia EdtdfiGRX1s3Gi+ZE7aaDG0jPL1zd9Rj4nkjj3cxzlghUWZtG86fLED7JdlW fT8fiSrZZLC4JQLtt8SDv621SPRavBrd5x3QRumnlt6PINGgB9ViH94AbUyU ksOygETDEvU1RXMJ73qR3uGERGPTrH3LogmfO6nuvw+JZr68PrdqTfiH8r2j X5Bo4+cPtBAq0MaLLV5dm0FkSWar4XtiQJs8xi+Ym4TIct4i0jf3ED7zqnXt MCJvGfpm40X0m8mQ7dnbECKrvjX6epzo55OllQaFOohsEKxTyUPU95SMarEO cT9vBqX4UCL/p0ZfCCk6IPKnFQYdX6If0ZxI+Y6LiPz1bNX1U4yEfaOfV9ki cvt3/1ILGcJRk8e3bEPk/vK/O9TsCJcbbd0ZgcjzfuNi0x1AmxbIjUrdj8Rk F779OfORcDmt6rgHErsym5Nqmw+0P4uVPGxnkFgAK31jpxrQZjh9+stskdhN 8aM5phWEKWJWBqxILAr9yT/cQBgkMwweILG06L2VGkOEQ6QKjZqR2CeF5i4h MtBmOcWT9alIXMJuka+RqKc51oK+XSpIXOaiYbwBsR/MCbeRxvOQ+KaQJJG3 MYTlh3Zs7Ufiynk6kuVPCOs0XNFdR+IHFyMVn5YQvl4wFz6ExM/Fy+iHEP1p blpoyXM3Eq9qMAjcbwm0v/WlpVEUJF5Xx/fr7w/CbS4w9QiJ11d0GucT+fS3 f03s4RQSb3npJiV9jjCdRUDOGYmPPLhZtYGY37yizVbDciTB41pNf0+sx3yE yqXDBUjCbsPuy8ZEvSwgQW+nT0jCib7Sx3qHsOEkx5AjknCbe3eoho+weYmK RjqSuDBqJrxTnPDZTb5Z1kgipPlCEUmZ8H2Xl8RbqMTzpLw/HTaEf3uPCLci iRUtufP2BUBbDLY8qvoIUTakSk4XE/NdjHRXjWVBFDZWMW9uYj9YfOAZM1GB KAKt/P5llwk/M1mUc0CULWfWwoWIelhs8fUeeowopo960j/WAW1J8kRIpCWi PF2K61JrI5zXdM7sJaLkO0TbRhD73VLR8UdBvIhS+P5236A64coG8/EqRKm+ e2Mkhug/S033y+p3I0rbVo+ZcSKflqi5HX5PEGXd+ghPyi+g0Xe8O32NB0ma lzEd5CTOB/ScLaLsxUjSpu4eL5VE+EXvAzY9JOnQKN/Toki4KOLpvDySPPNT z+shcb6g134panqLJANYbqdvJM4f9O9/wjPDkWS2Kf+GfUT9LfMWksPXkOT8 BKXGgzjfLHucZUoIRpLLcy8iTLQJe2+5Ji6ApBjWtC3VrAj7/agdLENSXAIO VDrx+yyHqnSbH0RS0hoZUmFE/1t+fEslqRtJ6YdsvZ5C7BfLH36pul9GUgmS 6ntbTIG2Qn71UPgukkqKW95o+pCwFIPTZAGSymDHnN+IfFrZaDBrRox/MXe4 u4Poryvb391lbUVSbz/b+X6/SljHrT65C0nR/EIKRzIJuztcemaHpPXavyku zRMudqpTLEPSf6MvUOQeAW1V86YxlzzhUnVmLu5/TtWrXiA8sDwxG/DPVdq6 l5H0/O5bFe+c/3lh67s8wj9SbN2I89eqlvvMY4SkF7d9Scwlzjere02P5I0i aXr9drGdRL9Y3S8jUbCD8PTsBjGLf95HfW2OpJfFS8c2NPyzNQ57TdhDt7T1 xT/HO+ZqIekV4f+svIn8WtVmjesYQdKrLhEPSzn+ebL6pynhKJPAVGJ/XQWO QLFwwiWip8Kp/7xZewsR3xpnhoZ16z87lGJVwgXlHctP/rk1ZXCK8Pcb1cO8 /0yzqD6IpNdZ9LIbif1mFXFzn58hbNV6OenkPx/yNowlHJxgH9r1z86bfRMJ P7fX8zD854BOv+2EO+R3WFT+8+Nbx6zR//8PQLh0N13hf2unk7g= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-8, 8}, {0., 0.9996646497600681}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.401120019676489*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Demo", "Section", CellChangeTimes->{{3.40105837675*^9, 3.4010583845625*^9}, { 3.401119842033224*^9, 3.401119847619959*^9}, {3.401120266162537*^9, 3.4011202665813847`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "=", RowBox[{"Function", "[", RowBox[{"x", ",", FractionBox["1", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}]]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot3D", "[", " ", RowBox[{ RowBox[{"g", "[", RowBox[{"w0", " ", "+", " ", RowBox[{"w1", " ", "x1"}], " ", "+", " ", RowBox[{"w2", " ", "x2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x1", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"w0", ",", "0"}], "}"}], ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"w1", ",", "2"}], "}"}], ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"w2", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.4010577733125*^9, 3.4010578426875*^9}, { 3.401058086203125*^9, 3.401058141625*^9}, {3.40105817978125*^9, 3.40105820890625*^9}, {3.4010584269375*^9, 3.40105842996875*^9}, { 3.4010598635*^9, 3.401059866453125*^9}, {3.401111818647669*^9, 3.4011118199559603`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`w0$$ = 0.3999999999999999, $CellContext`w1$$ = 2.1900000000000004`, $CellContext`w2$$ = 1.0499999999999998`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`w0$$], 0}, -3, 3}, {{ Hold[$CellContext`w1$$], 2}, -3, 3}, {{ Hold[$CellContext`w2$$], -2}, -3, 3}}, Typeset`size$$ = { 256., {99., 100.125}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`w0$385$$ = 0, $CellContext`w1$386$$ = 0, $CellContext`w2$387$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`w0$$ = 0, $CellContext`w1$$ = 2, $CellContext`w2$$ = -2}, "ControllerVariables" :> { Hold[$CellContext`w0$$, $CellContext`w0$385$$, 0], Hold[$CellContext`w1$$, $CellContext`w1$386$$, 0], Hold[$CellContext`w2$$, $CellContext`w2$387$$, 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`g = Function[$CellContext`x, 1/(1 + Exp[-$CellContext`x])]; Plot3D[ $CellContext`g[$CellContext`w0$$ + $CellContext`w1$$ $CellContext`x1 + \ $CellContext`w2$$ $CellContext`x2], {$CellContext`x1, -3, 3}, {$CellContext`x2, -3, 3}]), "Specifications" :> {{{$CellContext`w0$$, 0}, -3, 3}, {{$CellContext`w1$$, 2}, -3, 3}, {{$CellContext`w2$$, -2}, -3, 3}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{296., {156.375, 160.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.401058105734375*^9, 3.401058141875*^9, {3.4010581800625*^9, 3.40105820928125*^9}, {3.401059844*^9, 3.401059867140625*^9}, 3.401120920931424*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Neural Network with Multiple Hidden Layers", "Section", CellChangeTimes->{{3.401058550234375*^9, 3.401058592765625*^9}, { 3.4011202240408707`*^9, 3.401120238712432*^9}}], Cell[CellGroupData[{ Cell["Lets Consider what this network looks like", "Subsubsubsection", CellChangeTimes->{{3.401060951828125*^9, 3.401060958421875*^9}}], Cell[CellGroupData[{ Cell[BoxData["plt"], "Input", CellChangeTimes->{{3.401057156015625*^9, 3.401057311234375*^9}, { 3.401057429640625*^9, 3.4010574370625*^9}, {3.401057586328125*^9, 3.401057630609375*^9}, {3.401057720515625*^9, 3.401057747984375*^9}, { 3.4010586469375*^9, 3.401058794984375*^9}, 3.40105922759375*^9, { 3.401059267109375*^9, 3.401059812515625*^9}, {3.40106005090625*^9, 3.40106007915625*^9}, {3.4010601098125*^9, 3.401060264234375*^9}, { 3.4010603034375*^9, 3.401060304796875*^9}, {3.401060344296875*^9, 3.40106037140625*^9}, {3.4010604044375*^9, 3.401060456875*^9}, 3.4010605036875*^9, {3.401060540234375*^9, 3.401060562765625*^9}, { 3.401060675609375*^9, 3.40106071421875*^9}, {3.401060757859375*^9, 3.401060848734375*^9}, {3.40106139603125*^9, 3.401061422171875*^9}, { 3.401061460859375*^9, 3.401061467640625*^9}, 3.401064277578125*^9, { 3.401065747421875*^9, 3.401065778*^9}, {3.401066316859375*^9, 3.401066332921875*^9}, {3.401067550265625*^9, 3.401067551578125*^9}, 3.40106840546875*^9, {3.401120034808262*^9, 3.401120036216926*^9}}], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{ GraphicsComplexBox[{{1., 2.}, {2.5, 3.}, {2., 2.}, {3., 2.}, {4., 2.}, { 1., 0.}, {2.5, 0.}, {4., 0.}}, {RGBColor[0.5, 0., 0.], Arrowheads[{{0.028937842778793417`, 0.7}}], {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(u\\), \\(0\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{1, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(u\\), \\(1\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{3, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(u\\), \\(2\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{4, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(u\\), \\(3\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{5, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(0\\), \ \\(1\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(1\\), \ \\(1\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(2\\), \ \\(1\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 5}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(0\\), \ \\(2\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(1\\), \ \\(2\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(2\\), \ \\(2\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 5}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(0\\), \ \\(3\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(1\\), \ \\(3\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox[ "\"\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(2\\), \ \\(3\\)]\\)\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 5}]}}], {InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(0\\)]\\)=1\"\>", StripOnInput->False, FontSize->Small]], {1., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"out(x)=g[\\!\\(\\*UnderoverscriptBox[\\(\[Sum]\\), \\(i \ = 0\\), \\(3\\)]\\)\\!\\(\\*SubscriptBox[\\(u\\), \\(i\\)]\\) \ \\!\\(\\*SubscriptBox[\\(Z\\), \\(i\\)]\\)]\"\>", StripOnInput->False, FontSize->Small]], {2.5, 3.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \ \\(1\\)]\\)=g[\\!\\(\\*UnderoverscriptBox[\\(\[Sum]\\), \\(i = 0\\), \\(2\\)]\ \\)\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(i\\), \ \\(1\\)]\\)\\!\\(\\*SubscriptBox[\\(X\\), \\(i\\)]\\)]\"\>", StripOnInput->False, FontSize->Small]], {2., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \ \\(2\\)]\\)=g[\\!\\(\\*UnderoverscriptBox[\\(\[Sum]\\), \\(i = 0\\), \\(2\\)]\ \\)\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(i\\), \ \\(2\\)]\\)\\!\\(\\*SubscriptBox[\\(X\\), \\(i\\)]\\)]\"\>", StripOnInput->False, FontSize->Small]], {3., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \ \\(3\\)]\\)=g[\\!\\(\\*UnderoverscriptBox[\\(\[Sum]\\), \\(i = 0\\), \\(2\\)]\ \\)\\!\\(\\*SubsuperscriptBox[\\(w\\), \\(i\\), \ \\(3\\)]\\)\\!\\(\\*SubscriptBox[\\(X\\), \\(i\\)]\\)]\"\>", StripOnInput->False, FontSize->Small]], {4., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(0\\)]\\)=1\"\>", StripOnInput->False, FontSize->Small]], {1., 0.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(2\\)]\\)\"\>", StripOnInput->False, FontSize->Small]], {2.5, 0.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(1\\)]\\)\"\>", StripOnInput->False, FontSize->Small]], {4., 0.}]}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1., 2.}, {2.5, 3.}, {2., 2.}, {3., 2.}, {4., 2.}, {1., 0.}, {2.5, 0.}, {4., 0.}}]& ], AspectRatio->1., FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{ 3.401060937671875*^9, {3.40106140771875*^9, 3.40106142359375*^9}, { 3.401061462890625*^9, 3.401061467953125*^9}, 3.401064278359375*^9, 3.401065778578125*^9, 3.4010663515*^9, 3.401067552890625*^9, 3.40106840615625*^9, 3.401101502953125*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQl8bEWV9yV73gIPERBQFpE9BNxHdIgRd83km5nv8zMaHTGacYtGMTpx bAcfBg1GNMYlxtEEIQFMENqFFk1wEqAJhEAbbEJDaENDXkMa0pCW10DQ89Wp qlN97u3qm87bePiR30ted92qOv/616lTp5Zb1XDu5z/20bZzP//xlnOPfdvn zm3/2Mdbzjv2rZ/5nAgqPcBxDpgSv9cd65SJz+A4rj/4cwP+ef7zRj6/QP5X Cs888wzoH+dMS9hX8e+JGHSR+XQ8z6KKR4dHHnkEEokE3H///fL/HTt2HA8P PfSQU44fXY9EVCGrgERP2EstYd8oMt5xdrQIA38fffRRWF1dhb/85S/wxBNP lMDOnTtFDuIjfsL/HRVWxsP2dlQVjJgQ28rKSgmCLSlIV7WrFgrUhHOoT1XY 8v7GXszbVS3l8hEmWVxchMcff1wyVAXZbFZQgeyIT/JXfK7cUHCFDK40FD/2 2GNSCArDHyHYucCCTxIustsb+lHpjcprWksuJXQSTfd+j/ClvD7LIJlMwj33 3CPpFsmr93RVYhDCSqfTcO+998Ly8jKrygpXM2c6tTGVKpXBFVbdIYu4j2S5 bG4p3HXXXfDggw9irTg1MmW5TIm1tLS0BLFYjNGhmhdSxKrE2VidcHxe8kVl X7SvBB3v1rM77rhDmiOMLX7LZOJSnqc2I7sWVsYwopi5uTks4gVaOpYWqdZV cTSLTTUhauqiDcX21PTs7Cy2OdkqT9cpiBIsvEGjjAMCVCZ3A2xsYWFYSpGv c9HeyNRTtttvv10qCZatVkfH73/84x+Z9iriIpEI8XCMjko03Hbbbc5FxUf1 AXE6qxIMw5w81Y3YdPRjGWTMJWeoi4r60sI4yveiGq9frmNYDhgkVNDF7zpR ffg91WPBdZMvWOlMko2SCh2Wzaagr0ENCErk31Lxtw4mUypedfEFsompJDHp MDQ4bjENfTNW5osg4wU6ejIRh0QyLb8dsU4rYEgPNNgyEOqoEUIaIBSNCwsT hWg0BimDvMLKt4BSgIODDLkZ2Wji410i9y6IpdKQzmTXydSnxNtMxgkYaJJE yt+mnnHIZLMvKr7wB5kqmYEmzGFgxjmw+OZ4sI6amukRAHokV1ssyX2aKJUl MtAgYnRANCOYiIegRqDpCScP97Q4XZ4CxdmmY2fi41LDagJBSGezNkh7p0QY 0XAqaqdLgGgZiwk1V2GTAaFgLWNYS1pvq1z1b2nIBYp6MBmk1Ay05Iq6ydN2 BLBCTdRW1M2W5D6KaIqaCkMdVthMyhR1pk9UaE0PJMW3QzGMvOR8tSzl0Ezz jwU7hNgmCCezuUwHmmQDDacUw/g3HRmQ2h9KkCWrLMhpjo5dk0lhqXCOs8oi ZPpwWFYgeT6U8hyUxK1Sv7vCScZ3neC7T0Ly+n7mV1neUo/RVSOVjXRtVRr0 ZI8Q6rRBJI0CYtCBlkjrd6lRjnHZmoeiadWDcEVYpzlWaRfIR44yr8JqpHN6 vKmQGEuzxVEGRqzWXVxBUZmINJFdk8lcfUgdF5xnYjDQ0QEdgYB4FhB/q8Vf 8b1HNspCPYDLo1+/yStNOTi/VkXuwQ6Bsq4HwuM9sjEI0ymfhbvOBqepC0bG hqCtxpEli4lcvHbCpytXYrdtSOzOFWUQZM+kjIDXtKzTq1cbW1pISgbGWkR4 R0ijSUKPKGDDQET6MdGZGVGUGfG3EmYica0p6tdm8fw6S60iCtJmmf1QCxUu AHGdbToZheBQDwSEJnT1jYlazlgNqpdnV/bltuy1wpVBOpWAyGQQhkYmUbE2 aK43GU4LFCA2JsNa+kaEOqMr1KKbAfIZhrBgs0RyKswNfo/EZEs3VpHxumlD 9oRiZxNBhaqhBxLZ7AtY5axjKTaQwwYHDMqObfXmbGx8KjoOPdj4u4YgktJa hgYh0CHSojEolcYg0BPCOrOyVWqRu7HBxiatPdGRNomyRpqtESlxW/GNfaPZ +Gjb5iKyWq8f3dCgZovFRCWkUXAahoTYOAQQQiAkjYFx/TcwntkjEtZtoJV+ uaIiajOR1+0VZcy0rGrtfaZn+mTtdITi2kWIKH+yS44lNls8ifVHPnsm83WJ WlfAFuIqndcdbZwroa3xMASD45DI5FpxFo3+WEiGHcSyXMdc7U6WPvZrU5HZ brX3J16j7e+P7J15G4x4iq7eXRsaeSdTfMZAtqg+alfj9Sv9xjEvttgz77jA NhYpJt2644k9N+dVvqFu6GgvQ+soRsH4Pp66d3axGK95/XJuLb4z2J0sPTV3 2223yZEBzu/zcuVNSysQGKSjc9W1zd6uE9WD45ZbbpELYF5+MQwxenBgkI7O M8cgkZMLxzpRPesQN954Iy6Ayol8Ee00rYI79dw+LofdfPPNeWsyGMaSOS9h RaB0IuuLNp7Eg29qakouJeESnlz5I/U9iSFFRcU1p5tuuikPKYaxDJxcDkcw AJSDEHfR7iT2oBeuu9QLLHcmk2HAcwu7Ilw+x3jY6rKZjKsAGMbycJj4Cmsm QuhFu5neVYxNcuHn+uuvl6t3GEsvFJrUug3Sai0ZTx1cZg8mI8SCnQI5FI66 xRWV1noffvhhifUPf/iDXNdfvvtuuPPyy+GZp59W2w42S2ZQ44ooViFUGy5X hRXgAw88cNH+CMqyWwbX037729/K/7FZYApcsBK2tgSBCo1Ds4uQ8X/9WXU0 pXsowhYZiFJROu7UQDTXXXed7DDw5+mnnoKZ/n74/Re/CI/ee+/5sgC5zSA+ hXB2qxRlMovKgtjQMl2kwWQF3886mAL7ofDxtddeK7UQV3HvvPNOmJ+fL8E1 4BK4++675ScBQXyU68L4rWx3nwpFFEKkMOzBUDiCEGDULpzcdoUdwqCF2tup RX/FU78+RXA2VoYt/Kn8LYBQyhTyu7W9fEREfVhEXQfOXkbjs90NjWI4HIZf /vKXcOWVV8Lw8HAZXHHFFULo5YJV8Un+is8lMriUBzsleyhqlSt4ZGREYvnV r34lsS0tLaltdpUu6E8Ja8VatxPAQOn5iJYgzBbccMMNcPXVV8u8L730UiFc 5Cz+Xvqzn8GPvvUtKUeUt0QGV+BHGUS/l15yCfzo4ovV42rX48suu0zmes01 18D1oh3NCUlrTz8tCimk07Y+rPvffOpT8PiOHWqcIfB7YV0yOCihDF92mVOi 4XFBBl4pQqFg/6jlLngoTTR5hUArwms0whu7uyEhCFbcqrB7hQ36nWA0m07r sDJvO6MCPjA9Dbd+//taq1QYRtspLA3PMiKIvPUHP5DfvOSkRFuktHcMDcFd ghie3+++8AWqb+eVbvQiqaz7v/3tbyb6vaGQTMLRe/Tk6yRNUH/f73/vkoal 8RLy17U1uD4QgPj11ztf90H/RCoFv/nkJ+FpuV9IhV133nle9K/Vj274+tch IZxKLp6jr7Jz36WjYmEeF8rEk8cnJuD2n/7UFfYXYfER6WP33+90WdATUkx3 1y9+Ib8VgZ5zX+2D3sM9DdZFFImAS1tdWqLaNmEPirERhq0JN+cCH/Sc+02F 0f+DhXsb+mo797Sv9wExfrmlr09+I2nXtrUZvacsud5TWo6e0qImEvdFoOfc U3Qbeg/35zNppPeUnOs9oed6f74Pes795sLoX2fh3oZ+k537r+ioXO8pOdd7 CuN6/xULekLKuS8CPed+sw96D/df1lG53lNyrvcUxvX+yz7oOfdbCqM/y8K9 Df1mO/df0lG53pM0rveUJdd7SsvRU1rOfRHoOfcU3Ybew30nk0Z6T8m53hN6 rvedPug591sLo3+9hXsb+i127r+oo/7+P/7D6D0l53pPYVzvv8jRC6SInpBy 7otAz7nf6oPew32HjpoVYxFEwKVxvacwrvcdHL3mnuI98cgjhvsDC6N/g4V7 G/qtdu7P01HRzyG9J2lc7ylLrveUlqOntJL7q65y5eeDnnNP0W3oPdx/jqQJ r4r0npJzvSf0XO8/54Oec39QYfT/qB9NXXihEWVDfyDn/jOfIe7bdVSu95Sc 6z2Fcb1vt6AnpJz7ItBz7g/yQe/h/tM6Ktd7Ss71nsK43n/aBz3nflth9Gdb uLehP8jO/ad0VK73JI3rPWXJ9Z7ScvSUlnNfBHrOPUW3ofdw/0mSxvSeknO9 J/Rc7z/pg55zf3Bh9HUW7m3ot9m5/7iOyvWeknO9pzCu95SWoyeknPsi0HPu KboNvYf7f9dRud5Tcq73FMb1ntLa0O989FGZnxBn1k0s6N9o4d6G/mA79x/V UbnekzSu95Ql13tKy9FTWtTE6NiYKz8f9Jx7im5D7+H+I0wa6T0l53pP6Lne f8QHPef+kMLo6y3c29DTgoiH+w/rqFzvKTnXewrjev9hC3pCyrkvAj3n/hAf 9B7uP6Sjcr2n5FzvKYzr/Yd80HPuX1gY/Zss3NvQH2Ln/oM6Ktd7ksb1nrLk ek9pOXpKy7kvAj3nnqLb0Hu4/wCTRnpPybneE3qu9x/wQc+5P7Qw+nMs3NvQ v5C4n53l3L9fR0W9fyyRcCXnek9hXO/fb0FPSDn3RaBfvusuCQG5P9QHvYf7 Jh2V6z0l53pPYVzvmxh61DIBwcTj3B9WGP2bLdzb0B9q5/7/6qio99Pf/a78 RtK43lOWXO8pLUdPaTn3RaDn3FN0G3oP9+9h0hZ+9zuXNK73hJ7r/Xt80HPu Dy+M/i2Me5wY4OI5+sPs3P9vHZXrPSXnek9hXO//twU9IeXcF4Fecq9tzuE+ 6D3c/4uOyvWeknO9pzCu9//ig55z/6LC6N9q4d6G/nA79/9LR+V6T9K43lOW XO8pLUdPaTn3RaDn3FN0G3oP941MGuk9Jed6T+i53jf6oOfcH1EY/dss3NvQ v8jOfYOOyvWeknO9pzCu9w0W9ISUc18Ees79ET7oPdy/S0flek/Jud5TGNf7 d/mg59wfWRj92y3c29AfwbnPzee8Q0flek/SuN5TllzvKS1HfySLFx0ddeXn g55zT9Ft6D3cU3Ku95Sc6z2h53r/dh/0nPujCqMnAjj3NvRH2rmnRs/1npJz vacwrvdvtaAnpJz7ItBz7o/yQe/hnrpqrveUnOs9hXG9f7MPes79iwujf6eF exv6o+zck4PN9Z6kcb3nnJLeU1qO/sUsHnFfBHrOPUW3ofdwT0MzrveUnOs9 oed6X++DnnP/ksLoyWxx7m3oX2znvk5HHe/sRF12Jed6T2Fc7yntI/fcI8MQ PSHl3BeBnvuYFN2G3sM9TYM++fjj8OtPfMIljes9hXG9/0cf9KhxmB9yf3Rh 9O+2cG9D/xI7969nqKZ7e+U3ksb1nnNKek9pOXpKG/nZz+BPP/+5Kz8f9Jx7 im5D7+J+YeEshmrhuutc0rjeE3qu92f5oOfcH1MYPTkbU11dhnsb+qM59zk/ hxarud5Tcq73FMb1ntJy9ISUc18Ees49Rbeh93BPW0y43lNyrvcUxvWe0trQ c+6PLYz+nyzc29AfY+f+VQwV6T1J43pvOGV6T2k5ekrLuS8CPeeeotvQe7h/ JUNFek/Jud4Teq73lNaGnnN/XGH0NETg3NvQH2vn/uU6Ktd7Ss71nsK43r/c gp6Qcu6LQM+5P84HvYf7M3RUrveUnOs9hXG9P8MHPXIv+9pMxpxwZ0FPg0vO vQ39cXbuT2eoSO9JGtd7wynTe0rL0VNazn0R6Dn3FN2G3sN9DUNFek/Jud4T eq73NT7oOffHF0b/zxbubehfauf+VB2V6z0l53pPYVzvT7WgJ6Sc+yLQc+6P 90Hv4f5kHZXrPSXnek9hXO9P9kHPuX9ZYfQ0JcS5t6E/3sv9FVcg9ycyVKT3 JI3rveGU6T2l5egpLee+CPSce4puQy+5/+EPifsTGCrSe0rO9Z7Qc70/wQc9 5/6Ewuj/1cK9Df3L7NwTqvEvfcnoPSXnek9hXO8prXC0JVJEb9hg3BeBfjka Ndyf4IPewz3ZkidXV+HXH/+4SxrXewrjen8cR6+5p3i4z032tYL7Ewujp4lc zr0N/Ql27o8hVLfeavSepHG95xpGek9pOXpK+8dLL4U/XXmlKz8f9Jx7im5D 7+GejyZI7yk513tCz/X+aB/0nPuTCqP/P/rR5Ne+JicGuHiO/kQ79zRe5XpP ybneUxjX+xdb0BNSzn0R6Dn3J/mg93BPs0xS7wVXPDnXewrjen+kD3rO/cmF 0dPyC+fehv4kO/c0N8z1nqRxvacsud5TWo6e0nLui0DPuafoNvQe7s2qAtN7 Ss71ntBzvT/cBz3n/pTC6GnhjnNvQ3+ynXtaTeN6T8m53lMY1/tDLegJKee+ CPSc+1N80Hu4pzVwrveUnOs9hXG9P8QHPXEv8jXenAX9ey3c29CfYufe7Bpi ek/SuN5TllzvKS1HT2n/eNllhvsi0HPuKboNvYd72rHF9Z6Sc70n9Fzvt/mg 59yfVhg9Lbdz7m3oT7VzT/ssud5Tcq73FMb1/kALekLKuS8CPef+NB/0Hu5p dzTXe0rO9Z7CuN5v8UHPua8pjP59Fu5t6E+zc0/vNHC9J2lc7ylLrveUlqOn tJz7ItBz7im6Db2He/M2DNN7Ss71ntBzva/2Qc+5P70wetokw7m3oa+xc09v gaHepxcXXcm53lMY1/tKC3pCyrkvAv3Df/qTHFoj96f7oPdwX871Xvj3PDnX ez5zQnpfztDLtZNo1MTj3NcWRt9s4d6G/nQ793S3Aur9zd/5jvxG0rjeU5Zc 7yktR09pkXsUwfPzQc+5p+g29B7u6coA1Ht8qZJL43pP6Lnel/ig59yfURg9 bW3j3NvQq7AKyf21n/40cU8KTxK4rlMSpuscKSXhNBcBlNN8RkGg5YZmXOgZ e9/7XPG5Tp+hqwV1OvjRj0r9Z+g4jWcWRkf7GzmNNnQkDWv7p2efTTRSVK6u VAtI2c/e/GaYCAQMAs5ZEag4Z2daUBFniGr+mmu4evroYrmpzYf++Eejkzb9 e3lhiP9mIc4GUYms5AbWq4s+BreSK55Myw0wN7bEahGQOasUPb+jc1vVEl3/ HiPg52Twxm1MHTPAxsl47DFD+CsKo6d9xJxwG3ry0LhVLdN/PcT7OdccPXUV 3ABT2rnhYTlHjN+KQM+5p+j5zrXbqpbbuaeoXMFpWMbRV+gwboDNwIZx/8rC 6M/Vj3D/cVp7xzb0JP6ea6/1vCWfxz0NfwUaufUBv51kQW970fsETcuaKNEa fhb/33bZ5ehwmAU+y4v1P7QgppeJ17K5rMS/AnNa5AJywSIhTZmsra7A8kpW f8svCzmrOJNM2GjmcmFiEBrxEMHGTpiYX341ZbK2CJ2eE+2d9pBJrqyWeTWG I+Be4O871aue9N76/ER/TtrCiq0A5kVlXW/ozTFnHWARttcWBka7Gz3los1f c4OtUN/aDd2t9dA6PG9zCA4pUhJN+Ux31sP2aXnajF6kFpq/MgG1wtOZXV6F 1dVlmBjsh9lVUN2W8zE7GOPCqfbHiHMLKVAW/p4uWgscUwjd2eQP6QiLAFWy alhbGJb+2oLEsgTtotpDywrZbz/7WcnWocVlP9vdKLJXLZMOO1hbGIX65kFY NRZVv6xUUUjyay25vcg/Cb1Bu3TbbTl1WlurtmA4qmDuVTDXWw9O55SullXo r3egcXBOfhPN6vAis6MtGMtT3VDfOYGNWffepugFJPkVvUASegOVFGLmRz/K mQIG4Mh1sq7tniV9hFn5ffrIIrOh8iKqXtEae+eztvJaJJxOegXL0NvaKyoU f1agt74WhheyZRvHrF5MrITU3XfDynQ3NPer6oOVKWis70YJDmXL8W7bdSRS cm8OyfT2WkRCORZAsRsg5hgIZaKrC0nRyjIPwaklMzAKtTpQr+Jq11t7EOUw 3d0Ko4uy9xEMN2KWDh0cVaCc5INCdlba4tbRRQ0arWorzGVz/RVHfvCui9ym C7061y/Pxp0QOa7pz7WdIdV7+hT6oL0IeX6wEZzmUYUBm6noXNpDi/sCMqWb C6lesXt2RdfvVn+5CLOxHganF2BhelhYeAc6J5apDX9IZzHXLwxQbT9gDy5L iSIUM4VKrQcRWwxsp7YdZhenxedmmF6YgNZmaUYVkznYL9gNkdt02uz8oIyP vfnygvhc3w/Twe3QPrpQsMTb9h5cWJ6Q36cw/Qp+roWJ5bV9BndtdQkm+rfD 8NzKGUWJFElWZmF7Y62M09odFNpm+rF/k//h3HQWRltVlO6pRdEyRGuZmIPh 1lZRuoKlNmqxOg31TqMAOwXtjY1yD9bsGsbshk5CkQN+8O5JJarnB5vB2T4l vMduSWX9dtWrjrar5LZyb9sdxFvXR4xAZwehuXU7bBcwRFLn4N2GW7Ue3Ffq aOuIeDWv9K2mtfXPL0GwvV4K7hUGCNZmobVVqZy3MLU67fLUdhG/G0HC4miz +QyLw/IzpvUMl0wT2RW5ZHdFJJjodLTLkJVdLvUsC6Ot0DxIr39WF4NRv9NZ XQwmFnfPYnj5BvJ1VaFIkp2HVgdhr+kWImDPrqriCG9D9G46+wOlfnW3NkJj Z1BaNvRO+jsHJZylie1Q2zosqfcM+7ZtQNQLtahlYdyaa2uhd0q1ibXFIHT2 q1INNwujF1K93kR/p1L3XmG51kB1jpuKQjrR20j3COFAYk7F08tsm4tBiwoq Rj9Zc67v+qhvwjGmEcuGl1u1WSmW47WsEJ1dO0MnK46vNchmV3Eq4RXudjw9 2Am1osvQHMDccC/I3kp0J83YhaCvsDInXNF6aTgGJ+aNr89HklTT6+U3OTsq fG9FgukWIfeyoXBMhLGqRwOlh78VkvfBRmU0sRSL06MwPLtyUJFFuGl2VLk6 ze3Q2d4JQWESTNb2waxCU2468NbOTmjv7IeFVdCtqAJo/IWsdHa2Q/fwNFab 7hzNfMl8r/gm3QHDGx9AEJDFYDvUtgvDLcq3sjQL/UKrRRqaesCyIC2CbTP8 wrFvd30zGudcedZWYHFRdyawKMbGUr1pcM5HrZQku7IESyvKg8oKr7C2OYiW 99WagpWlJeM/TIkK75wyTiGVcXUWy9grc7WV0YwX+5vJr8gVghXM3BG9tmb0 4jAWr1VU8nw2N95GDUe72z276tjGqSZeFjvAdkFHDh/a09rtfDkiV5y54oqD jQrNfe/0sm9xxGgcp2dcar4w3EgDeT2GLJcKtbgwD6H+dql0oaU1Jis3QjyC 4meXYXF+Grob0etTeF9t8lqD5cVFmJsaFnhwkmA+r9byilnOBzry55mnnjKv Q8JKSI4yFtZyr0hSa80Vt0yOunENUk/nKQNZKStrYnjC6FIWxQs/edUwUCbj zAa7ZembB+docK3HRAaVHhPR7BhkF2G4s1F6eMGF1dfq4OW5ELTLWT0xCl6z t0tVeppx4WMmqryH5ubkgg2YPrxCwJmAWSJJMlCLDJhSrC1BaBA7J0lMqQ5+ KpPhs3Uv0JktjLZDc+8ELC0KDw7NiRjOiIZPhythKmoL5ToJTqK6aFRJDie6 7CMFUrPVFUqLY2nRoCeWmE1bE2aQWt+S4K8ZzaHmjmYzl+cmRMdUT0pnZvly Lq+hL5NMeo7AEEKWQ1Bfvx3mlhZF/GbJE5tAXBVE9HZ2y9EsLUzgnB7TqW2s xYTEOFxa98btML2cNadS4URv8o47TMGUZDEeEr3osjAw86Pt5FARMzYnmp4t jHZCZ3Be+KJLMNgs/SxXTzDc2g4TS6JjXpyQDW50MethDZV7QTTH9nbZjdPb fbZDQpamBmUm2LX0TyyYfd9uDXopKylOaWcff9xMv+dyqIf+qcVjdNQd6oYS ps1EYrMaBdZ3Cs1e07Pb5ehKQ6dmpHl7ULYWXayfW/C/wV5dJB2NIK6wPPyn P5m1A1xAo+1QX1M5j/rk7KGAJj6f3rlTtlSA3HF8XBpNuONyLK0OUjxcq0de cJ30bBaPeNJrO3Qu283f/jbR6NjqkHY7JUUWtw0MyG+1dl78jgDl6GkNnK8O UlpcGcQVQvxG6C3ra4T+4TvvlAvFuDpI0fOPAFULvhgOkNsHwLlfue8+ispX B81mKYae1qz56iClpddFso89Zl7WtaBv04/+Z/t2uerKC5t/eGwpTHz5y5D+ 85/lt5cz7tkqEy0L8BVxs1mKoadFSL46SGI490WgJ+559Pwjn5XJp1XxV9q5 p6h8VZzCOHr+IiPpPcXj3L+xMHo6TZFzb0NPe7WQZ2wj+O3Vdu4pKtd7WkPm 6OlFUK73lJZzXwR6zj1F5+hJPNf719i5p6hc781WL4aeukWu95SWc19fGP1n LNzb0JN4rvf/YOee1g+43lMYR0/nNXO9JzGc+yLQc+4pOkdPs+xc78+yc09R ud6XWtDzF9dJ7ykeco8vCyH3byqMns5A5dzb0JOnw/We94OM+xKtwUzv5Q9H Tl0K13kSwXkvAjnnXUWv4MhlGq3vyphu9tItozA9dyE9W5eG6beMw/k9pzDK z1r4VSjLXSi1Tmu9r3Jxeu9110klZrDeqLPgW+s0b+YgER80nLNzdC0iGtwr F/zwh1E36zWVxNWvRVlH3/teAvAmnQpV71rR1//q3/8dqfCRTWcFcyaIODxt ZOhNb5KaRnhwH1r3IYfI+EKrKCo2navPVRtpipBmKylqw+QFFxD3VFKi93cd HXDd5z9P2lGvU0ljJoTjY6EEPrLP86lzrOeVeNzVturks2pev8ZwedqWjltu Ggk3XD5qSJDQe3QbqUq5nK4NkkzDoal2ullCw/aM0PCHWSZva9JpKs0metwb hT/cSvm0689b2KPeANkIX3yx/EbmgsMlg8jgaoNYlWeOPMxSUtxWhQrCRXAr 5dMTEHJOMiHHLHE3FzBTzpFTR8SRU4fFu2Czf9BNOiVnnBsxtoNuLOjpHHWb B0RaC6wb5ejJCeDoqRvN74LzegxKzrknMVzBfTwgQs+5J9+ZKbhxTTj6V1vQ UzzeBZv9g27uKTnnnpJzna8rjJ66eM49dZFc583lOww9bTfk6Mn5zXc987in 5Jx724U8PqMuQs+5J/Rc723X19DOU46eBij5t+zkcU/JOfckhuu9D3q6/YBz T0fqc723XQBzhgW97bYR2h3JuRfwKDnnnsRwvScyfdBz7smUcb23XeNxugW9 7bYRc1mJm3tKbrhnA2uu928ojP4/LNzTmURc720XYZxmQU+THflTDXncU3L8 StyTGNsBTz7oOfeEnuu97SoJsz2aobfdumAuzHBzT8k597YLGnzQ050lnHvq Rrje2y5jOMmCnmYk829dyOOeknPubRc0EJk+6Dn3tIrB9d52pP4JFvQUL//W hTzuKTnnnpJzvX9dYfR02w3nnjpBrve2Q+mPt6C3nT5PR+97uKfknHvbQfVE pg96zj2h53pvO9bdnAbB0NMG5fzT5/O4dx1EobknMVzvfdD/p4V7moLB5KT3 h1jQH8PQ0wDRdgr3IXbuKTnnnsRwvScyfdAj9xP/qb6RA4J6/6uPfazg4dx0 Apzh/s47radwm0O83dxTcs697cDu1xRGT3dUce5p8g73x5Pe2w6IPsqCntYZ 80/hzuOekkvuL73UJYbrPZHpg55zT+hxLEZ6bztimZZ9OHrbacTmIGnOfTxO yTn3toOLfdAHiPuvfhWWZmbYI7feFz5i2Y2eIOWfRpzHPSXn3NsOLiYyfdBz 7mnSmuu97ajZQy3oKV7+acR53FNyzj0l53rv894P3SzHuSfXleu97bDWQyzo baey0pG0Hu4pOefedoCrzztXhJ5zT+i53tuOOzXnKTD0ZEjyT2XN456Sc+5J DNd7H/T/ZeGeFmu43tsODDWrrAy97XRKOprTwz0l59yTGNuBfj7oOfc0bOB6 f4wFPV8iJPQUj+u9OdzSzb153QInrDX3lJzrvc/7p3QfJOee3g/lem87OJEv ERJ66v7zT6fM456S4+FY+BIgF8P13ueNY0LPuSf0XO9tRw/yRTZCbzulzxyw 6OaeknPubQf6+aCnm0Q59zRk43pvO7yv0oKeHMf8U/ryuKfknHvbgX4+L9UT es49LaZzvbcdwVZuQU/x8k/py+OeknPuKTnXe5/jGLZbuKcBJ9d72yFmpRb0 ttPK6IVHw70gW3BPyTn3toPNfA7yIPSce0LP9V6hqsxbbeHIaaiXf1JZleJd hGveZVpGOhXadoClBbW697eccy5/kpGIedEVj3LETRT4I9vAfffpd21zqzG4 m0b69gI9PWM6LzVIEGnyvDsYNPzjrLwg3XqqEx21RC+v448oBn9jk0p0prtE uE0DR+T4g+9SXnz00Vp6JVzy5jfDD884Q15bqduEjPfk448b7hF5/8tfjnGM dv3tr3814o7TeWEnSyW8rqND1nX3C1+Iazta2yokez1HHCFZCn/rW9D/ilfA jjvuOEU/Zu1DZvXMU0/hSOdlWgKeeDDyT/8kFREXk27q6YGB17wGfvGBD+gu XO+OUdV40ze/CV2bN8P5joNbrBzK5tK3v12G4e9Fhx4K3z3xROjasgUVR9uZ arklS+u6/MF1PqwKfAvZu6iJ4VotzKmrV3/oQ/DNF71IkiswlKAwbIGf/rTh 7aVaj5F7hNL7spfBdF8f/M/55/MWebLmhrU++IOI8u1jj8VqILt6/Ve+QoUS 39Rf7TRwpfiqxoeXn+Fy3TXnngs/qKmhFLFf/9qDrxSG3/UukzOV4+sHHSRv ps0Veass8vdOPVXqENGF62dS71gbf/zBB+GrZWU4ijMy8K6GC6qqXOhxEc2N pVquHVPVfbWkBH5y1lkQbGmBy97xDgh99rNoB8zUP9/GdawmkYzBzb29EgPm s3DddUTi4tRUXlHPP+AAyDz0kIyhX8slC4c5eTnHsamXwcsbG/OyReX0okP1 R3EYF9c0NYOl+jGRePUHPyijoG6LxkZS8OV4rxQ9v+JCg6eZuFGXwy3f+560 ekzvjHpf/JKXwN2//KX8doxWH2z/aFfwteft5eUk7sp//VcjjvwN3DmGrYvD +uGZZ5p4mlO6d/0XunA8OvLnLkWFFEWaIFvP8cejuSBjhEr449e+1jy+oKIC buzulp0+GTFss1e9//0uUSjeXS3qdAZcSubxsAV6if3uCSd4oG+WnRP9eDss bCRUj6IbNkMDxI5KjTmUaXmCZKOFSl45XPbOd7ooELrh7s0U+Zecc44L+rde /GIP9HL4+Xve48rqrquuyp1LLQyPV1+wneMZYUjhbz/3ObjosMMMVNRgmp05 TufP2y3+Tl14oev0Ym+N82qg6iL9FHbGxEMTS+dl0dAI6cOjXs8vKTGYsOrd ilku+x+O6b7xcaLva6zmv19T44KGnbI7qzLepLCTIuawR8TeLleR5XKfAm2c RF/uJ69/vQhVWYvPHuUrl13gd447zmQv+jzNXIW8p4SX4GdvfSvWOK0eLojO /mvaqBJ6rDjaqW3uWRDxvnHwwa542BlpZ8AQhrBJ1Nc2bYK1J58kwrp0FLTj PUceaaIJk2X8ZNayUd39zBZKxw0cKqGKNzcyIlWXG1t92g4jrEzGIzHCiB6v keF5NRSMXgee30muOmoxngYjegRTF1hP2Ho4Udhgf1Bb64JKG3o4BCROtAgp S/RMal7KuVA/Rd+nS9CHTwUqagbCiZFBgibd9NSpQ9jyCTh2u+j04BsHNErC 4Qy62aL7NKAuFjxpH8oF6genny7zEY4s1Qr17t8+5hg0MLTMi9fWoK8zWFeH DYlY4e3yaM3s0088AWNNTQaksCWmbVO4aP96es75OtM67MKH3vhGE/2Kf/5n WV7RqxnTNFRfb7p7dFH/srysB/fl0opiGhIteMgdBy8qBsNu6esz+X9j2za4 UPRFj9xzj1loRXcEB1TCkTTmAjt2KuYxmhFpLoRp2y7chiceeYTEzP73f0sx ePiHLuE39KM//Nd/yRoD1kegMb7qfe9zWQ90sDGL//6Hf8BBE60bCXsE3z76 aElIan6ecvi+aMGYcy4HdTA54rrv9783K2GorGgGRXyr03GMjoeHCaE6/vrj Hzco0aQiT/hNF6pbPxoUPjgi4+IvEW1Fb+0xnSa+4PId4aIi/XSdLXpfvxZV +KNXvQqNECWf/fGP5f4wniX2kehc4Dc6TADP3sLtZd94wQvwNDPppJA4dPb6 TjpJDpWoFD95wxtMaV/pLgVtceeIUY+x2xW+jQlDEvFUN5G9mQdG/wjHN7kL LtS8QEjDpTBsmJhW9G9mTQR7BKw87QJQVPQ7sRvlB57zoYJGf5F+JMeoYtzO q1HOCwgV5WHMC7euKvjd1oK3PmHPj99oVcHjIVJUPi/gc2ELoWfjUSNNzgv8 5jfyG7e2hN52/R6l5XMDlFau4X7iE5J7WlVA7pn7RVH5/IAP+m9auKcscOxF 766RF8LR2+bl/W4p4tybeXk397Z5YCLEBz3nnrJAvZdjf6H3HL08mW9uzucq LPvtXMg9bm0VXYi58MvDve0iL58rrnos3NM0PjZ87BJ5GEdPpNjQc72ntHi7 JR2ERjPbHu75xXSk9z6XoxF6zj1lgc6KHnMbLeHobXPDfrfSce6p4/dwb7vA zgf9t/QjHPAQ95QF1/sjLehtl4tQWq73FMa5N3PDbu5tFzf6XApI6Dn3lAXX ext62+yqbd2Pwjj3NLvq4d627udzneTFFu7JEnK9P8KC3nbQv98tpJx7us7A w73twlKfi0gJPeeesuB6T0u5HL3tuHZKy/We0nLuaaaUuEfPXnBPUbne+6D/ toV7yoLr/eEW9LZDt/1u3+Xc09HiOIJm3JMYrvc+F/ASes49ZcH13obednSy 363TnHs6INrDve2Cap+rm7+jH/3PBRfA0qw8nsNsttiBM8eefR6IHiczHxJ9 rTk1Vwwv8LhFjh4dStJ7SnvXL35hFjroDUQP9xQVp1NxCYAX3nK+JaFHd/UG Ne+Qk3b11dLhxm/kT6KzjXWE53bTUi4OXnDEihtS+X3vD+rVIEr7lKhLnOND P+dMxj3CRM0VefOL2W+86CK4/8YbDXrsUD3o6R3IZ555Bv7617/ir7DF+Fcd OfBXFS4Q5Ie9UIfhdxw7i/+dQyieCCNRVRYZL2DxZFqSUYJBh5lPx1vyk8ud ZUz4mshARHAOo8gKjBu4EiK/vQL/HsAJqJLP6OeRRx6BRCIB999/v/x/x44d 74OHHnpIDErER9cjEdUxW+fZKkmVRsqzLZC145d3iSVvNVAr33BeZfYSYxT8 ffTRR2FVKNNfRAN/4oknSmDnzp1CsviIn/B/R4WV8bDno+5SVBWMVCPlKysr JVgHttqusoTJyCKP56vsWa8y1fqpdlTbfL569pvqKeU2r1xWE9q6RdEJP/74 4zLXKsgK/6RM5ig+yV/xuXJ/D66QwZWGiccee0yW6351coTs6ej4Y27rWdmf 20WvsBZdFJVeg/i7Km25rbTaP9D6XYadP9xzzz0yiohavd+UYddVG4Ow1Ol0 Gu69915YXl5mqq2aNIaxYjvP7XJXWMstqpZeTvIU9++xtKKILge9FObn5+HB Bx9EC++0sBaBFn9JjFNjsRjTCzk8kGE6TQvDQElElrTxk8V0bFHF8wPcTS0S iUgPHGOJ3zKZqJSXUfcs+29YGSsoFmVubg5po6UyZBCD1DjkOV3GUlNGUW3m JT9duOd+FZbyKnQ8Def2229HdwijOB/Riaip3XHHHbkaV20G9VpH/4jOnGLP zs6ajdYsmuONJ3L1gkBBaK44CPz+R703wgMCg3X0j+rM8esd+uwy0lAWzZHx DsCvB2C4j3xuPTAMi+J2mPJAfITRjEGC09yxUAyENx5qmw+S8v1Ik4oNK904 e8/FYvKG5Vfjfw9lW0dLP6Qz8nTfRbbfc2XqCmtqIcXGqV8S/6a9L02L3Obw KszzRAuSV1NjyaQgEY9DMp11ajaEjnLIpBIQTyQhk8W3CIpDbJN+euFSeCZY z7SEvcxSxpONQYhBh+NAYDyhXe9yyMRD0CAPW1S/QzNJ51SP6WAcFDIdJCId GRDZNMCMKAiJiIx0mOydugBE03i9mVu1sSuyqdhGoXvzFXk5LgarOFu2qdnj i5hB9iMc5Z+sG0Y2m4GxFoEuMC4bRzoahI62jlIIBAKiGB0dbdATjIpHCegS BajrmZTRomNIWBNEMlnnBJlVtauNFWjYDncINYnOKQQlPSPJ6ptJKRnBPmjr 0FCqBKoAhGJpwemY4jKC0ZIw0CTQtwVPkrlUFkRhq749TMSJ60Dwqen9e+bc f4p5vbZ9irZVsbE2ueEzISjJpOLlMDMzIyiIxFOC7CHxqA7Cac1aRqlCz0xK 1g/BKM7cnaxbXzabgoEGUVd9MzLXVByvAlRS46kMzAw0gFPTB2ldT+lIH1mG U3JS1zeRu1fAnKgCFrVcMrxX5hrXm/jDpTBbl7T745t8c6HadQ2MJyV7EA6H hVYihVvg1ltvhZlwGCKxFKRmehSVKUqbgr4aB5qGolSsTbvt0WzIKd0bbERQ N+sGIIV6G4swNsolG+HwjNThcFedsH4h8UzBTs/0SXYmU6aSnd2hgzulfs7r 37FGeClgPi7tT00mk3t8Gm29mUtv20TDkLNGCDoGbcofgXQsBIGOgEO9WaCj A/pEb5byaAsxV9M1afIpxsXSsikJc7EgFuoTnSeJLsPPshsPtom+tmuyRJOb TQQJiXbuCntee7qkXnl5/XQp3HXXXWZSr4YRw6cMCxnLU6iI6GFIZyXkVOrK TYV7JFOmXyAncpJ83GI7PSNFeFF1+G5QOGmkzPTVGWMiO8IcGcYdLa6T23gp ZP4FerYyKXEvzpvZpiVFNdlqiZQgnYhBNC49UIeaYDYVlpwORNIq62RIuqBj 8UxeMymivyBRiVgUEooyIyoR6pCnCsZ1VcWDyqdIZvPbRSFbvKtF8eafZ+hK cd7OzNWdrsnlM4AFyN39qY18rxqR14jGGEpQPbt7kJmBJqnkA2Mj0ILjr46g HPiW7DaW/WAWK5+OyFCTdGZTRu35NEscuoSxcxq6YGwoICu8ZzJRulda276Y 6Np/tcFnQozaEM6iExW1zPoiRYX6EGqa2UwSxoNBiCYzZgQQCQ6IkaoYno5M 4lDmpLzK38gcGwnKJCMQDEUkR+SgZDNxGOsJiEF5AMbCCRq32wQVmI7bQDFO 9sk9f86Jc0p2iTfIAnZpn0/yeaDu6SnfsudO0Q/WOSYTcUgkZWfkHGZp3Fx1 12sdsWBADhjq6moEPY58eRa/16Cj1yT9n12YODzFUJuGsbYaYWWFhJoaJaBU ZC4ECIvSMjCjXcP15wwPMi0qLcYOCUgkkqjzhxdfDhrQ8FnHoz3SLX4sr4GD dAvDKS05iaYnKZt6xrHZH1GEacIYBxGSdJjmOs017w165gVjHOKiUYnqGRmp hKGhIRE80NWiEDT0FSrfVktYtcXWF7B41slHQj/T10QEGPR1PWGD/oWEXvhP TXKWuANGRoYqNPqhoQEINNXILBp6wpt1rnyueaslbFOB3sxPfzDFgabqUtBT k6s6zHcskjpsF6k2M6BWqtcDW6S6yZkN4eFGMyJ5PCTbTk84WYy6ubU2I73O +HiXdJBjqTSkM9nDPMA7gnFjKeOhAM3POf6FzoVtwbCNTT9S5SQmeyTNHWMz kIgLVzwahXgyfbhHD3AQVmkkp2GkBUelYYd0iE2L5xB6w4qdqjxQ1yEWMR6L 66nPJIygltT0SO+xWAoJIJv2VHTZaPWb4HTryYEmCzXT3jIWM17aZEA0sZYx 6ZUc7unrtNJsbLqy3ISpSSTFQIXFhcrKSd0kxEQtRiJi4JbK2vxnmj7MJkJ6 lSJNjcT09kh4oKYOxlN2/7PCQ+z9Zg7P7Q4x4m2OxB6ayTTen6jSYIdSEyGx yspRBlKiP48KSZGo1C4/jqIjLdISxHKGJMdRbASauuQai5WjcpNTbo5/J83z lbOo5rGhNT+b3ZnedFdJchzbRwtE0rpKnnUloknU3+/YJSVad/Iz13hzHVOp mWboEQaK0M30NUjlSRpnIJ8cn8ZMs37kOPIGq7wANEhxabKks6T7xK5QXGWf jkBHXR20qHVEU7LkZJfpj8kOjwfaIJRUDGzyEDmepL68yjVDjTJmxvrEGKYB GtpGEFelpwUWMYVqPENRvUNoQJ02CCd1H71Zz7Q50gdVHX4LTCYzUng6MgIN dU3QERiQC9hlJquMmm1VhpMUI5uNQk9gzDCHYWzVQZex0rUSgSPAERwBNtVB x0hE877+TO02TUQmk4FkfAa66tD7GEIDoZvR3q07NkNcbN1VeYq2jndD0bHJ 1mk/0txGfdp58HY9JZtrDHVmusakXceDljXHe3o/P8nWTBQd1ZBKZTztv025 Y6lJAT4ge3KiM9yDc8d9stWS6qTFkCWVWY9id5iZ6MeJmho1oUlD/+L8qm1G n9OiI6qRqIWdpRFANp0iULL1oNmv6dErv+EuqAtMMj8rDgEc6oxEnVx7yAg3 LelqD+v576Y2e2pwMYOQZIsZKh9E9jVX6zTzu5crKjeBX2xFyTIV5b0po7M1 f35OdMQjbcpo9U3G5LAfF01i99wA78W2MUlto0J3FH3a4sRgoKNDGLVAiVzS 2Sz+iq89Qe27WkcBprfka2vrTIgUbsEV1G1pXTINiqopMTkETTgMq2mBobGe 3EKTqKaGOtXj5VRPeSS48EQjKrUe48BIVPXzkgBh2bmK8WpTJG+ReQ3JsBGz iUG6zYilacgwpNOZrBCWrllvF1WEk8hL0lfHiaqUBjWY4NWuxhANAxEzVMd0 ob42aeTr2vpgCJewG/RSt26opjKS4zLeQCRt2FLq0aWXSDSbnulcvgpWZip2 XIYFQnEdrxIyMbWZKGA6mlw6ygsblhiQ6W7D3SsU8hcpXmSoxUwrkDI1DUQ0 N8Jbjk/Khtc2Ft0XykTOJl8ZKt1zyuRlp4CzSF6BUoiDwOziQpRmfVYPIDtC xqLjTEeDIS8F0ZkZUbm4H0AoRSSOCmAUL7/bK2qkWK4huc1XAdMlO4sMrKzu hDQTR8zoHWTSainbtQU6Oj6ltpEl1MRHQ9cIjAcHtMFpUFsYJKM9sGPnTtMM MhG5ahH4/f2atVw9Y9NJy3pWM1h1PZN59ZyzzJWySWLfVxNQzKr+TOVdonWQ 6Yf61ZDIBuao2oV1Lze78VCXgh0IQkJ0V3FkNhY3XbmKm1aL9T1hw67eHehm 91Nqb4HqKsXoY2wcxvpyk13JnIXBfIndJC1fr1DDrQI12lWV3jIWkxCwpenh GBFMS7ic4HRkSOlKWDoTMIn2zWmC8PJO08WxpV/5q22MbSC3sVW1Q9yqS7OV wm+YiQty40p148k0I1eID8g9lKYFadV1Sp8dtaXFvGvv3/NqW+Ghc50Fuk3G RsWhp84hp1NB0J1HS9+I8FFqaODP7FMYwsI6qT1LwkvE75GYq6Pidoq8zvVc +2qjFy67SVvA0KGsI4dSj7dJHG6jEmAMoBkhFPcnJicDsmg0FcO243AWjXNL g6dgLG2ajCpKE7TUyP4Torjk2tQmsNTg9oIST+XiSm25bg7Y7aKiNA2NQzBQ p5jMZKmXZkm89WpZ697IcieVJzKiLYZxgCukpcDy9I2MQF9Hg2rTMylTc/Go h8pSiKf0uKOLDFW5aP41xpsl94Z88QhSJHz2nB9fnXOr6lS/HRWWZwjzbBD5 1Lmrky/6kz1O6mnnsfC4dC1ED6obVgWPz82O9/VJzmGBlVyaccEd7qhs2gEz uj/Q0gCBgREYGVDbDXACbn9SQrYAvQeUsNyHQP/x0maq9UwUAtLrC0BMd32p 6Dj04NinawgibJpPjokCvOsrlYOiQE9IzqjYbIvXB/IZCFFUj8kr0cHpVAIi k0EYUuv0vFLD4bCsTtqkSRs0pdqpTUyQ87LzKpbqNR0dU72MGDSoet2qdKNu AOJo9gVHI10Ncm4kOtJEM0kqa1axFVSQ5KTuBeXiXClVaC5qXoVubGaCXPeZ gRZXz48SwsEh6MIRa6APxiMJ08fpTb2MrzK9qVeYkDrp65AF4eNhrwUJ6+5z JJbOsyBNQzMwKVp4neitccatLxyRblRbMJ5ri2yfB/Gllp89vk4Fj8qNByFZ b75DxdtkareuK6SzykB0fAR6AgG5OXQoGIZkZt/oVXUxepVrEBvXo+InTvxW cHD6U5ryOrn0wuh0xzcNPzdFYfRtF7eJbKYEbvtEA1C93dblhdOWW/LQgnFy Kkds5rzKQFJTBTi0N+tL1WpaS7+kIQeESL6cFI1LTnCk7l6JFA7ZUCQ3RN7l Vk25TvY06KaQMiNcvauZlXuz3tmcUotkdTmvc7xLTczx5ksqmZpRHDUNzOi8 NwEt6neF0/I9EfLlRmIiv+gA6NeNcmZatPYGipLh04E0a1HslORmg2pI85yb idnbNX1gMTWtrapr00xFkZVffFPcSjip2TUNYA5bqTXinKPoovmYn3ZCb3Tn 0havKNXCtzJVGNFUNDU1aKtcYye2FELSaxGuXyxjHLQwTk2TjYwH5fMaNVUN Cb1aGVPTmrkFi9xGeePG0lQTdQyBYCw3de4zoVjEBitjYwSxqgjCV4ulDyTd TUyqCfKaBmhqcI1rPPOFykwxHnNrSym5l6BjUqlQVE7LaR7Zi39iMCq3Wnl3 /xgSaG5Y7rlpgslkbq7db5qw0D4w2i6RmFSDYtxDduC+rntpbcyCk95CRDW7 obrf4JoZzVii8gdECZtaWqClrc2shuB0j2l0lkFtMeNl5T36tOdq5YCIwVJo PAyJVApi0ZgaIOmS5dp3qRlcNQkjo+BvE35RHCLRhPGLEsKziyZoFiINsUhU zWYJu5VOx+SEKs5ipMT3DO2QqDDvtQrvDDKxEXIkzXp/ehLqNM+lGvmubnoz hOAkl9SbBgjFMweS7qbjMBkKwfhMTBjaOERjqtXIxtYVdm8IqdHNNVOt6ZDr aLjVyaxdpSCKFBgnTYwfIvFC26PKNB0RvWF7El/U1FPYZleFGPn25VobTRFt dBfdVlOpfRpJ1DFGZ58oRcFNWLugFOuxUGxjFN7spPBmg/o3JBQhFAoKZYhr cvKGgMXOWxXT3s0u0bSauWwJ9MB4LG22+5jtl9IE5HgQWhpPu2qVRkHCjmvn uhLGcf8Ye1OQam5AOJGlWgTuQw+01NHuSLboXqzjWG36gLRoXi3Q0CTK2dIG bWaTrVzlpaKqGdEGMXwfgVhOwxPjXcafIWObjEYgoddzea/J9mWVG+ExbexG zDArFFDCo7nRvNzT39cFLThe7JupypW22BFdGSTDQ6JjbhJlbIG2tibqScwr RiLSwbtdrbRRl+2wckp3vVorTUGLcgm97xRscLMhHyp6G9e116rGVW1J5/eC Mu0VlTNg8YxrEIkEdIUSzHcplO+yaSNl5kkGIuMC32RUKg6lS8yEYGw8WukD aTd3GhJLiZlxw1AQzc94SHyeRM3fOEukWXr5h7MU7GgxO4VsLOU6uiQM5vZi GaIyCTnun4nzxZQUhINjEI6nbUTtznZDYieTiEBwjHQopHQoeC1EEulnQYfK 5ZEQ3j1dJbuuSxvccHiKlrQLGwnpZY1YUB3+0jYSNV16qK0O314t2KEc6dH4 Inb2nWaYT+udfXU4l8y347Wod2hNP+vZ6XSkh5pCu+2KLdgWItyyA8krax3v ocbbb/j5AcRERgxJarTMSFI4NYlEQgQnEnEYH9DrMeHkgRb6j9I5FNcfk7yo XuTBmcdkKicvNgM92DWrKVbzPgvbunIU5Dwcvx5xV0qmenC2EUQK28Bmqz33 +hh1x0XMC1JJw0MB4cN1yDf32lpaKtAJEFHRrWsTwWPRVG60kclIUzqgKtHb hIp+cbpMLoD0CAkdHR1CSlulFtqGQV1B6ZvnajG3dcCr04Ws7wbKtk1nyRbQ nSM8YtbZBbMB1+LZOiGOFgbM7mO5Xh8utrd5Dp3zRwt5BdZ+9783oXevmHyl dvhHZqV2D77sfNttt8kNmnhkEdf0dQ4MoPeicxtY2AxVbkdH7kVK+eZJTDjX QzAyHjtcQy40HevfX5Dw9d4JPJC4tCzzvUgzbENQYEm92DLnXv6zLpwd7iM5 vzu55ZZb5KFjXkuEYVh3vvVTmZtvbRmCGL75E41CNCanPZwzdHYbIb3gW3Mv 1+Ss1wMXA+xMKNzBlsGNN94oDz/Ho12M85A77QWP+rn55psLOjdnaKBmG0Ys 47xiF5jIG9i/skgGbABe6VviqakpeeIXevLyzLes9uVOYmXH7gqPBrvpppsK lv1MLTo6ps+YGI/rsA2tB5xhCHC9A0MqsN6kug2FN22eOyv3kcrCYN1nMhlG gLIjeMwJvr+CzzGe7MN37MDrgE7wcIGJSGJiXFVD32RCOxa7Pm/7ckOMa1xQ o3W+ULaF5j9tENfLK4+4TfJcpOuvv16ekYTk6BPqDGk6K5pDo9x0cJk9mMYS LNgpkEPhqFtcUen8wocfflhi/cMf/iCP0FwRqi+v2bvvPtvxha/QLKl9XGq5 73ReoOJaNZHNhxVncPjrtWsbjlqTQYHGrU6YxGOPfvvb38r/saEjA3iKj0hS gtWF928LKVhx+L/+rDCV7qEIW2UgSkXpeFwpornuuusMd4gUL8yTF6hdeSU2 LHMj7549fNA2zVPhmqCI5N5VtL02uvtndOzjAwZtYXTinBkg2aZjdt/L3J2X a58TFbrujFXumFcs9bXXXivNJR6ldeedd+LVESW4KbsE7r77bvlJ5CU+qncM xLey3X0qqMArL1AYunQoHEEIMOoI1wqD7ynRv+EFndocHsdaHw1XyU+TL2SI kXxbj/C4h7rkdEdNYPyMDXT3OkvKscCY60wPvYVmvdYB5s0mryOr4rcKyk4N PcFrrrkGLr/8crj00kvLYGRkRMAfHh7GT/JXfC6RwaU82CnZQ1GrXMGXXXaZ xIIzv4jtgQcekP6B4z4xGn88dvSYgo5qOSQi4zDQQ0OIGTl/e6Y2EBtxWO3j IOq1ivNa7Whk15nXwb1Tg+E6++jCwtGWoj471zS8W+eMdRH6zGeoLl5sAfhc PPr/OTSr89w41O7ZLxtT3gZ76zrKorz76aUOjfbmd4SlBPvyLLT/ZSeWLjVG r4DmywjWTjZf5oGFQTo6t0TeK3ZYNMcbj12x8y+MMtZ70D3CeOYyzRVxbDRX 5MGGQTo6l4lBIieDjUVzvPHEM8L2r8SbGMUx3g7VwTgtwWZtPsyME5+18V73 hmEsmfNhVixKJ7Kma5480W2xRRSN+P/Y2TxEB99www32WZcPMux81sWLHcNY Bo43hzJXDkLcZsaVj+Qyr2RdnvfYa4DmT7AevfMnKsPc+fLe+RNvkTCM5eGw TCqsmQihVCpP2nWTivi6YO+1V9Q23bLxfOf9c37j7zTqJlfUQtM2xtpslqqD ba+IWiqE5vlq2nDU6nWrSQyitJnfVGz9PF89+6568JZ3bQKbvLb9i19E236Q DK4y9zc+25OIz4kI1evOdOa6vWpzn7IPvc7z/PIIVb78mkubK5+ntOgIlX6U 0s3Q79c2YocYoqCbdOcVV6CbtJXZCPx5duY498+n6828lhrWFIduk+DDpvP/ J51Vhegks6qUseJ5JSxKCdVlgU4z6/xnfvhD6vy3eBo2/qDjjW9j//KXv4Qr xTBpeHi4DK644gqRGmemxSf5Kz6XyOBSHuyUPB/VL2qVKxhn/JHiX/3qV5Jy MQylyx3XMxoFasp5vqr2WVXZ7PsWPdPxfNU8q1VTpqzeB+3uDM3k/u1vf6PF QOcc+bcU5kRGy2LwhN+O02EYz90W3Wkp3sLEBCzecIMrP562WsN5UhjheaEY tw8NweqOHa0YVQ/S/s1upxu11OVoVM7JiVwdCtv56KPwm09+EpOYCfEHb7lF Fjg6NgZ/XVv7mMr8XDsd/6Qzmvza1+CB6Wn5jcIil1wC0dFR+Y3WC54UY8xb +vpg/EtfgvSf//wJlfmH7cgbLMgbLMgpcwTAkH9SZf4Rhhwn+jXyd1uQv9uC /F125G0q84/akb/LgvxdFuTvsiF/5plPq8z/3Y78nRbk77Qgf4cdebvK/GN2 5O+wIH+HBfk7OPK2NkL+WZX5J+zI325B/nYL8rfZkC8unqcy/6Qd+dssyN9m Qf42O/LPq8zb7MjfakH+VgvytxByMZia/u53YeI//xORf0Fl/mk78rdYkL/F gvwtHLnQlruuugqRf1Fl3m5H/mad0VRXFzxw883y25styM+xI+9UmX/Wjvwc C/JzLMjPsSP/ksr8PC9yYaAF8jdZkL/JgrzejvzLKvPPc+T9/YS8npALe03I 6y3IKXMEwJAHVOZfsCN/owX5Gy3I67zIv/xlRP5fKvMv2pHXWZDXWZDX2ZGf rzLvtCM/W2d03/g4IpHfKGxpZgYeUmMp5x858t5eQr5dZf4lC/LHH3igUmcE kJWTCWvi22t11LWVOehtrZcLs4MT86+RwRUi70bzSon6bYa5LLza5LQG2ewq ZNcwD1Ze0a7v+sUvsLwXKEhf1imwvNPCpIB0tdTf7EIQ6mtbYXCwE2ob+2HF 4CqFtflekbpfIAaHQAGswmCjA91Ti1L64vQoDM+uvEo+3iQf99c7siidne3Q PTyNyeUPGhvNVZcCFtCCnt65U8dRBVOClqBTlLp3dlU+mOp0oHFwnrCtziK2 XiEuhxeTdNc3w8QyhVXBytISrOq8pzrroXNqWX5enJpChi5UQL4i/9sCa1kC K+ppVX3Ozg+KGPUwqx+tzqHkbmSq1lC5BqurazohVsuaQwMSFV0BPVPHRzFZ HX0Nq9CUW/zNzkJrbTvMZyl+mRdWuY66ONoMtduVQf4GZ3SrqNZhpTONvbC0 OgfN4nNt+yjskGikHrHCKHS1mvm5fqV37cOzMD/aLj9vDy2S286TnCHDKlm1 10NwYQmGG/FzK0yv5IhYGBbZdk7Jb7Wa70IwVzWRy6IZzk0NQ70jK7/bXUhY DkmJoekgtDY2Qq343C2a3BVXdasaWy1UyM0CTTM4rcMwPbodGhtF26vvhP7+ QaRdyZ73lnKrKeX20DQMtjeKduNA8/ZeGA5GYGJ4wuhZFuXV9jN5WwpiDc6r VMtzIWivdaRmLa2Bt6RCs7djYxDwViZaVfWElgBWpmSu01r0yvR2j+TNsLY4 LOtiUfA5LCXUmvjLcxPQL1qFU8sVdAvM9darulqb1fUzLJvxglCH5t4JWFqc he1Y382jGG4KWQimq30siYI2Y+V088a3Wbbw2u5ZJFApk8x8GXoF6NbRRRWO n4OLuko2i4wXoFVIGVzA0qsrYTonlqgiYEEoT3v7MCvcZq0O7YCGYHG0Vdoq RcgqhLoV6trG7TC9nDVp7NhWYbi1HSaWxKfFCamko4tZx1OsxVAn2QtttRpV 88vOQ3dzK2zf3grt/dOyR+DtabBe6rwsyES7ENkalHFepZupqnsHgrKnmpdt Z/v0yqvXE7syC52NtTJp8/agZMalbUL62hKMdndCY327bkOL0NvcDlPLa9Iw Uycp+kz57TSdbm1pGrrbm6GxXWqFKOAoNGvyX2lKtgazo72yDfTPrsjSzQ62 Q+fovC5ZJTyZvqeg/IsV1Is0jPlgUPkG997rDOqwhBjLYr+M31Rn53xT/id6 /Ntv5z3+j3Vw9rHH4ObvfEf2TpmHHvqeStSjn7p8kHvv/ZEORjHY185ffTX2 JN9XiS62SzpTY0NPB/dSgNHHUvjTz38OMTEGB6MAbkSP3X//D1Xm37YjOkNn JL0iEYReEYVxr+gMO/J+lXmvHXmtzmjqwguNP0dh3J873Y58QGX+XTvy0y3I T7cgp8wTN93Ekav6c77Hkbe3E/IaC/IaC/LTPMivDwQQ+U9U5t+3Iz/Ngvw0 C/LT7Mh/qjL/oR35qRbkp1qQn2JHPqQy77cjP8WC/BQL8lPsyC9RmQ/YkZ9s QX6yBflJduSXqsx/bEd+kgX5SRbkJ9mRX6Yy/4kd+YkW5CdakJ/AkX/724R8 RGX+UzvyEzhyPW45wYL8BC/ya65B5JerzIfsyF/GkGPTxm8vsyA/3o78SpX5 JR7kv/vCFxD58Rbkx1uQH29H/nOV+aX6afKOOyTyuZERRP5SC/KXWpAfZ0Oe SIypzC9jyG/70Y8IuUpUAan5edIWDJEIReKj9OOH77wT/rKsBgWsQCTy/htv 5OW5SokcsZfnWBlcbsqDoi869FAcfjpH6Wfhb30LfvL610ufXpfROZbKl06r 8n3lKwjxaiXscnv5jtEZopBffOAD8M3DD4fzDzgApwCMsNH3vhfOFx39f7/u dTIO1tQx9pJdo4RdSSWLROC3551HMynkxGN/+8xTT8lvan9ppcTz07PPhp4j j4TtFRVwQWWl/H/43e/WQCqh7+STZRg97z3hBPjZW96C/aFDe2hx2+8OvWm4 hDMi7MMfzj8fGfmlAjmI/22W79qWwdMCzmNilPfIwgJk//KXEhksBrtzc/Cw oAa/HarDnhLjzAduvRX+fMMNQgL+LYU/4xu++qXlI3S8p0XdYLg33oOi5376 ySdNfmtra5AUch697z6nRMN5QgzuU/feCxmhU8+srW3C4CsZbJGMvZGiZ1Hc YZfz6NV5L7A88sgjch8C7tvA/3Gv0sdx45heP+HPRFynZD0R7kclmFgUBDcZ 47Yo3B4lt8Kq3VRsY5rZeMU3qz0fdS9HrcrbG4j/0ya2lZUVVYGyxVLFOlfw +s691IZqgjuZ9Y5D98uP5u2Byud0cLU3WPKFm3qw5MgANlxXEy2XBC2LFnzP PffIqFgr1ftZwfYSO/g/MoQvQNwrDFkymXSzUybZwX0U+CagULzPMQGoh7gr /K677rJYPdw6pUzSzr316u6zG4a2Gd8asRCGL4HhzK+Idp5OQTTjuxyWFOyN mc/rFPo1q/w2nZfiPIYKg/CdF38Zz8XXtNYLK67k7TKF/a0pwbZ/4rdpcXj3 WUJdHuWcuuHqep1OIU9619d4V2tYeNXcQFNuIaCpZxyfn7KLQir13bBt5jYV dpOkPsC+2nWVZIF76cXIzs00vgBoafV0RsdZVB59c+FIjB2DPDNTpq/6UPfV mRvObRecH68LwivMU2nrVDlRwa5SZ1j45VTlucup1rm5+UQM42dWFFcr+8IO 0tHz8oSMllF17K26K8dRN5mV5+7JSc/IMw+7wjusd/Lujp3w3ors0zb1y+tn UfOSNyA14PUOuTsMMhF5HFTuhtRSfiOMc9J6+plXF2eZnJMQFVWezuYuMPC5 d9HZeFs0kuhGmpGoZqyi0O1p3ua2f5h0qox4OATX3no/i1fmvabpOWTVN97h nqXLTFfh1NTVoZWrAnVMWU2NqsdwKqsPO9pI5q/Xmcf1yddNXQMwMjRUAUND QyJ4oK/LHFMqDLO5AYl1JlssYQd6OF3Hfv8jWWK8taVpSGaRu05EncyG3QKJ Z92MEc/D6NDzXbfi5jisTBoSwiFFHysWT5GVwRbaJy+Myl3WgifX0SmvJl6u QzJAedjWfWfYk+EBCLBjzfHm+o4+eSenhnswhLvU5Zs1Nfq8yY4xfYVAGsY6 mqChpQ26hibNxV9GljDsWEd4lTU/6QVv2ukJJcyxxTlspm90bCfDlBr07j40 HRuHro5PQUNdB16+uHGbn6u/DKTx2up0xjFXFeNd5qk0VbxyKOT1EcqZwGsB alSHnLvvpwFahqKM62pIJ1O5S/kSauFQncqegh7kaDKVq4Mo3vmjrmU0ZxJn UpBU1zg4dI9UBqEpGAau6nB5E6zkYZrLFHTVNMB4Kr+DXL8NVOlyZeLj8o4+ 8hIb1HGvUkJivEcdl3iocB6HIFAnG6p8hBcaqfN48UIJ7ItqlGOWnFTXPU8m jPK0OLlLRrHSO/Cc5mSO1GxyBrqa6qT4wNCYvBVLXU1E1zYljcFQdxJ14AU7 2hBUyCuna+gQ1baANGkdwTh17dwFMPeh5l1Jvsl1JTlLk+u06yTX/Ha24hq0 wn480N3PNQFFcVpQ32AagPYS2sYgmY7DQIsxyxKAtL8N8l5LeWNGjblrR1RT KKDqIZmAEenwB3I3PmoOpe3K89e3MH89qe/IDEBoMgRd+nKavnCK1wPZnBCe ougab2zWZ9kKfY8nYUYfDO26xJI5R+b4/sI3QZsbxVk6b11sxDF0+TbMWmnv vG8mrSVug1AbuWspeZLX2eaI0rg8aa6LVUoNPUuh4nfA3Tt30k0Q4110x5AA m8jSvQmTgTrouPZ+cI1fNqvxixkqpDXApDSR3tZQ6GYSMql4b4qtGynRVUX3 fI6rs/ohLs81b0PwRmvIu6Sr7Tx34+ZuETZRc7Vz9q7WjvEL9AHqPeGUqRXZ f8lr082x5TmwNZ5a6crVSkNNAJsN1UoqrK9LVq2EDt0Ji8rCO2HyR3JbciO5 HCqLZE8jUdd9yrve1VV1VYYxdV5hR0ibSOEyyGNF4xkzHEGvODSTYH1C3u2h 1IuxqLxp+N1Au64bq6rhKHnma4s6Q900gIA60Riy61TDjKyGGd0LhIXFMleg yUbXIDubIehpkDeFua5F6+MWK5C7NduMNQmXUboYa5h51kreFygPbqULHdSw LNjGh2UJWbQ24bWYiwDdVzTmLhbIGaCN9wYK1IHmmvaaphbdFbXhYMe4Eo6+ VoxuWkM+hMulOuSD9KBAVYHyQFTT12fbyst1HeW16WyQsjps8qbjpWtJa5qa zFVgXZP2jpeaDd6ruJlUL9giYce1fo1jr9AwYu7RcV/BV75H6KPp9HQiCuN4 pdZkBBsXGYlkLAqxJF2To+7NSqBzlUmoezlahiAa0zdPoc+HtzNk8D6tCF4f T0qIV1HTvefjwl63CEOosFZBKjYjrwiZEf0c3jqvruVSjAnDbe7I1Z6PLj1x Ji/risZNb4Y3rEdiibxrC9WNasZ9FT56oT5vneHX4VSB0UkYjyRZP6Dub+0Z iZiWp4YOubCDWJscaqqBupYO6BsJsy5cHao81mZuPClniKNRZcEOoTbnc00V ZZeOT0JPAL2HJhz00j1Tuz7Yo+FnPKSUnd/+hJeBdvWMu0H6XNcl+dg/p+pc o7CkciydhgE5oUXFXREeWkNgcrdlbXxo9nqjSElztWpfOA6pZMJRd3mUQjQ8 IlHjdSSneSSsX8001ZGOBqFNjGTlFRNtbeaKiRb5FXrGouY2l+IrsI7peiqV lGvkyXTWewLm/jGzZluOFT6RGuaUQ9uAOW+fWpL16uO9N8NWp01hKh6DhL7T MBpUveFQNH0a7Ibn8ibWshv0HC+d3158fb+R1DWTkVfzjfe16BFWdhdyq2NW lF/6KcpqcivSmL9J121G9CJjATWfJlr4qbttJQ1v8jpk6anxM7n3T2u3Ja/A eF98Q0cfjIwNQZv0lbuUN6TI2B0937jRo3pPxSZhoKdLXq7T1TcG0WQR9f78 Wu4+tUn7YtafnRnJq8ZnKZ+d5MhTYNAtt9xi233iPX7xs6wzoAMVb7zxRkvK wocftrE86BDDqakpSx7W0wbbGLXeIwPF+NqVjdyd9/zJc8+pqFInRf3aDkR7 4IEHXPWb25b4/FFSeyxCKY8gyMO/lQWP88rbtubeKvr88Ui78tT/GCXPXl5p 20W1isYhz6y9+uqr6UR851k4Ev/5qLaolSaMLgnAiwuwutRoNVensopv2Pef nQP+H6wXfGU=\ \>"]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Matlab Style Forward Propagation", "Subsubsubsection", CellChangeTimes->{{3.401060962296875*^9, 3.40106098265625*^9}, { 3.401067067609375*^9, 3.401067072671875*^9}}], Cell[TextData[{ "Lets define a matrix ", Cell[BoxData[ FormBox["W", TraditionalForm]]], "as:" }], "Text", CellChangeTimes->{{3.401061215140625*^9, 3.4010612229375*^9}}], Cell[BoxData[ FormBox[ RowBox[{"W", "=", RowBox[{"(", GridBox[{ { SubsuperscriptBox["w", "0", "1"], SubsuperscriptBox["w", "1", "1"], SubsuperscriptBox["w", "2", "1"]}, { SubsuperscriptBox["w", "0", "2"], SubsuperscriptBox["w", "1", "2"], SubsuperscriptBox["w", "2", "2"]}, { SubsuperscriptBox["w", "0", "3"], SubsuperscriptBox["w", "1", "3"], SubsuperscriptBox["w", "2", "3"]} }], ")"}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106100221875*^9, 3.40106117340625*^9}, 3.40106121325*^9}], Cell[TextData[{ "We can multiply this matrix by ", Cell[BoxData[ FormBox["X", TraditionalForm]]], " where we have added a 1" }], "Text", CellChangeTimes->{{3.401061226640625*^9, 3.40106125475*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"W", "\[CenterDot]", RowBox[{"(", GridBox[{ {"1"}, { SubscriptBox["X", "1"]}, { SubscriptBox["X", "2"]} }], ")"}]}], "=", RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ { SubsuperscriptBox["w", "0", "1"], SubsuperscriptBox["w", "1", "1"], SubsuperscriptBox["w", "2", "1"]}, { SubsuperscriptBox["w", "0", "2"], SubsuperscriptBox["w", "1", "2"], SubsuperscriptBox["w", "2", "2"]}, { SubsuperscriptBox["w", "0", "3"], SubsuperscriptBox["w", "1", "3"], SubsuperscriptBox["w", "2", "3"]} }], ")"}], "\[CenterDot]", RowBox[{"(", GridBox[{ {"1"}, { SubscriptBox["X", "2"]}, { SubscriptBox["X", "3"]} }], ")"}]}], "=", RowBox[{"(", GridBox[{ { RowBox[{ SubsuperscriptBox["w", "0", "1"], "+", RowBox[{ SubsuperscriptBox["w", "1", "1"], SubscriptBox["X", "1"]}], "+", RowBox[{ SubsuperscriptBox["w", "2", "1"], SubscriptBox["X", "2"]}]}]}, { RowBox[{ SubsuperscriptBox["w", "0", "2"], "+", RowBox[{ SubsuperscriptBox["w", "1", "2"], SubscriptBox["X", "1"]}], "+", RowBox[{ SubsuperscriptBox["w", "2", "2"], SubscriptBox["X", "2"]}]}]}, { RowBox[{ SubsuperscriptBox["w", "0", "3"], "+", RowBox[{ SubsuperscriptBox["w", "1", "3"], SubscriptBox["X", "1"]}], "+", RowBox[{ SubsuperscriptBox["w", "2", "3"], SubscriptBox["X", "2"]}]}]} }], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106100221875*^9, 3.40106117340625*^9}, { 3.401061241328125*^9, 3.4010612615625*^9}, {3.401125946851246*^9, 3.401125950490035*^9}}], Cell["\<\ Lets define function application as element wise. Then we obtain:\ \>", "Text", CellChangeTimes->{{3.401061277078125*^9, 3.401061295*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"g", "[", RowBox[{"W", "\[CenterDot]", RowBox[{"(", GridBox[{ {"1"}, { SubscriptBox["X", "2"]}, { SubscriptBox["X", "3"]} }], ")"}]}], "]"}], "=", RowBox[{ RowBox[{"(", GridBox[{ { RowBox[{"g", "[", RowBox[{ SubsuperscriptBox["w", "0", "1"], "+", RowBox[{ SubsuperscriptBox["w", "1", "1"], SubscriptBox["X", "1"]}], "+", RowBox[{ SubsuperscriptBox["w", "2", "1"], SubscriptBox["X", "2"]}]}], "]"}]}, { RowBox[{"g", "[", RowBox[{ SubsuperscriptBox["w", "0", "2"], "+", RowBox[{ SubsuperscriptBox["w", "1", "2"], SubscriptBox["X", "1"]}], "+", RowBox[{ SubsuperscriptBox["w", "2", "2"], SubscriptBox["X", "2"]}]}], "]"}]}, { RowBox[{"g", "[", RowBox[{ SubsuperscriptBox["w", "0", "3"], "+", RowBox[{ SubsuperscriptBox["w", "1", "3"], SubscriptBox["X", "1"]}], "+", RowBox[{ SubsuperscriptBox["w", "2", "3"], SubscriptBox["X", "2"]}]}], "]"}]} }], ")"}], "=", RowBox[{"(", GridBox[{ { SubscriptBox["Z", "1"]}, { SubscriptBox["Z", "2"]}, { SubscriptBox["Z", "3"]} }], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106100221875*^9, 3.40106117340625*^9}, { 3.401061241328125*^9, 3.4010612615625*^9}, {3.401061317796875*^9, 3.40106138603125*^9}}], Cell["We can then prepend a 1 to the result to obtain:", "Text", CellChangeTimes->{{3.401061549296875*^9, 3.401061569890625*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"out", "(", "X", ")"}], "=", RowBox[{ RowBox[{"g", "[", RowBox[{ RowBox[{"(", GridBox[{ { SubscriptBox["u", "0"], SubscriptBox["u", "1"], SubscriptBox["u", "2"], SubscriptBox["u", "3"]} }], ")"}], "\[CenterDot]", RowBox[{"(", GridBox[{ {"1"}, { SubscriptBox["Z", "1"]}, { SubscriptBox["Z", "2"]}, { SubscriptBox["Z", "3"]} }], ")"}]}], "]"}], "=", RowBox[{"g", "[", RowBox[{ SubscriptBox["u", "0"], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "3"], RowBox[{ SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}]}], "]"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401061593546875*^9, 3.40106175921875*^9}, 3.401067084484375*^9, {3.401126059698992*^9, 3.401126059818142*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Forward Propagation (Example) #1", "Section", CellChangeTimes->{{3.40106435728125*^9, 3.401064368359375*^9}, { 3.401067051515625*^9, 3.40106705578125*^9}, {3.4010670910625*^9, 3.401067093375*^9}, {3.4011202900048122`*^9, 3.40112029164918*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "What is the value of ", Cell[BoxData[ FormBox[ SubscriptBox["Z", "1"], TraditionalForm]]] }], "Subsubsubsection", CellChangeTimes->{{3.40112030559665*^9, 3.401120312487235*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plotTree", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(1\)]\)=g[?]\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(2\)]\)=g[?]\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(3\)]\)=g[?]\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(2\)]\)=2\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(1\)]\)=3\>\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.401057156015625*^9, 3.401057311234375*^9}, { 3.401057429640625*^9, 3.4010574370625*^9}, {3.401057586328125*^9, 3.401057630609375*^9}, {3.401057720515625*^9, 3.401057747984375*^9}, { 3.4010586469375*^9, 3.401058794984375*^9}, 3.40105922759375*^9, { 3.401059267109375*^9, 3.401059812515625*^9}, {3.40106005090625*^9, 3.40106007915625*^9}, {3.4010601098125*^9, 3.401060264234375*^9}, { 3.4010603034375*^9, 3.401060304796875*^9}, {3.401060344296875*^9, 3.40106037140625*^9}, {3.4010604044375*^9, 3.401060456875*^9}, 3.4010605036875*^9, {3.401060540234375*^9, 3.401060562765625*^9}, { 3.401060675609375*^9, 3.40106071421875*^9}, {3.401060757859375*^9, 3.401060848734375*^9}, {3.40106139603125*^9, 3.401061422171875*^9}, { 3.401061460859375*^9, 3.401061467640625*^9}, 3.401064277578125*^9, { 3.4010644091875*^9, 3.40106441275*^9}, {3.401064475515625*^9, 3.40106450896875*^9}, {3.40106454615625*^9, 3.40106460953125*^9}, { 3.401064711609375*^9, 3.401064793*^9}, {3.401065119453125*^9, 3.401065126109375*^9}, {3.4010653570625*^9, 3.401065490984375*^9}, { 3.4010656114375*^9, 3.401065725828125*^9}, {3.401065823453125*^9, 3.4010658245*^9}, 3.401065906359375*^9, {3.401066116984375*^9, 3.40106613484375*^9}, {3.401066169484375*^9, 3.401066189828125*^9}, { 3.401066223015625*^9, 3.40106622340625*^9}, 3.40106840009375*^9, 3.401120302681209*^9}], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{ GraphicsComplexBox[{{1., 2.}, {2.5, 3.}, {2., 2.}, {3., 2.}, {4., 2.}, { 1., 0.}, {2.5, 0.}, {4., 0.}}, {RGBColor[0.5, 0., 0.], Arrowheads[{{0.028937842778793417`, 0.7}}], {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{1, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{3, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-3\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{4, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-2\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{5, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"3\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 5}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-3\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 5}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-2\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 5}]}}], {InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(0\\)]\\)=1\"\>", StripOnInput->False, FontSize->Small]], {1., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"out(x)=g[?]\"\>", StripOnInput->False, FontSize->Small]], {2.5, 3.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(1\\)]\\)=g[?]\"\>", StripOnInput->False, FontSize->Small]], {2., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(2\\)]\\)=g[?]\"\>", StripOnInput->False, FontSize->Small]], {3., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(3\\)]\\)=g[?]\"\>", StripOnInput->False, FontSize->Small]], {4., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(0\\)]\\)=1\"\>", StripOnInput->False, FontSize->Small]], {1., 0.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(2\\)]\\)=2\"\>", StripOnInput->False, FontSize->Small]], {2.5, 0.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(1\\)]\\)=3\"\>", StripOnInput->False, FontSize->Small]], {4., 0.}]}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1., 2.}, {2.5, 3.}, {2., 2.}, {3., 2.}, {4., 2.}, {1., 0.}, {2.5, 0.}, {4., 0.}}]& ], AspectRatio->1., FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{ 3.401065791171875*^9, 3.401065833328125*^9, 3.401065865703125*^9, 3.401065913515625*^9, 3.401066177640625*^9, {3.40106621578125*^9, 3.4010662241875*^9}, 3.401068400515625*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "What is the value of ", Cell[BoxData[ FormBox[ SubscriptBox["Z", "2"], TraditionalForm]]], "?" }], "Section", CellChangeTimes->{{3.40112032882136*^9, 3.401120342830868*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plotTree", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(1\)]\)=g[1-6+3]=0.88\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(2\)]\)=g[?]\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(3\)]\)=g[?]\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(2\)]\)=2\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(1\)]\)=3\>\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.401057156015625*^9, 3.401057311234375*^9}, { 3.401057429640625*^9, 3.4010574370625*^9}, {3.401057586328125*^9, 3.401057630609375*^9}, {3.401057720515625*^9, 3.401057747984375*^9}, { 3.4010586469375*^9, 3.401058794984375*^9}, 3.40105922759375*^9, { 3.401059267109375*^9, 3.401059812515625*^9}, {3.40106005090625*^9, 3.40106007915625*^9}, {3.4010601098125*^9, 3.401060264234375*^9}, { 3.4010603034375*^9, 3.401060304796875*^9}, {3.401060344296875*^9, 3.40106037140625*^9}, {3.4010604044375*^9, 3.401060456875*^9}, 3.4010605036875*^9, {3.401060540234375*^9, 3.401060562765625*^9}, { 3.401060675609375*^9, 3.40106071421875*^9}, {3.401060757859375*^9, 3.401060848734375*^9}, {3.40106139603125*^9, 3.401061422171875*^9}, { 3.401061460859375*^9, 3.401061467640625*^9}, 3.401064277578125*^9, { 3.4010644091875*^9, 3.40106441275*^9}, {3.401064475515625*^9, 3.40106450896875*^9}, {3.40106454615625*^9, 3.40106460953125*^9}, { 3.401064711609375*^9, 3.401064793*^9}, {3.401065119453125*^9, 3.401065126109375*^9}, {3.4010653570625*^9, 3.401065490984375*^9}, { 3.4010656114375*^9, 3.401065725828125*^9}, {3.401065823453125*^9, 3.4010658245*^9}, 3.401065906359375*^9, {3.401065967296875*^9, 3.401066004765625*^9}, {3.4010662313125*^9, 3.401066238*^9}, 3.40106839646875*^9}], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{ GraphicsComplexBox[{{1., 2.}, {2.5, 3.}, {2., 2.}, {3., 2.}, {4., 2.}, { 1., 0.}, {2.5, 0.}, {4., 0.}}, {RGBColor[0.5, 0., 0.], Arrowheads[{{0.028937842778793417`, 0.7}}], {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{1, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{3, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-3\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{4, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-2\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{5, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"3\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 5}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-3\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 5}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-2\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 5}]}}], {InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(0\\)]\\)=1\"\>", StripOnInput->False, FontSize->Small]], {1., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"out(x)=g[?]\"\>", StripOnInput->False, FontSize->Small]], {2.5, 3.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \ \\(1\\)]\\)=g[1-6+3]=0.88\"\>", StripOnInput->False, FontSize->Small]], {2., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(2\\)]\\)=g[?]\"\>", StripOnInput->False, FontSize->Small]], {3., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(3\\)]\\)=g[?]\"\>", StripOnInput->False, FontSize->Small]], {4., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(0\\)]\\)=1\"\>", StripOnInput->False, FontSize->Small]], {1., 0.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(2\\)]\\)=2\"\>", StripOnInput->False, FontSize->Small]], {2.5, 0.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(1\\)]\\)=3\"\>", StripOnInput->False, FontSize->Small]], {4., 0.}]}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1., 2.}, {2.5, 3.}, {2., 2.}, {3., 2.}, {4., 2.}, {1., 0.}, {2.5, 0.}, {4., 0.}}]& ], AspectRatio->1., FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{{3.4010659304375*^9, 3.401065931828125*^9}, 3.40106600946875*^9, 3.401066238703125*^9, 3.401068396875*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "What is the value of ", Cell[BoxData[ FormBox[ SubscriptBox["Z", "3"], TraditionalForm]]], "?" }], "Section", CellChangeTimes->{{3.40112032882136*^9, 3.401120353758422*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plotTree", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(1\)]\)=0.88\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(2\)]\)=g[2+4-6]=0.5\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(3\)]\)=g[?]\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(2\)]\)=2\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(1\)]\)=3\>\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.401057156015625*^9, 3.401057311234375*^9}, { 3.401057429640625*^9, 3.4010574370625*^9}, {3.401057586328125*^9, 3.401057630609375*^9}, {3.401057720515625*^9, 3.401057747984375*^9}, { 3.4010586469375*^9, 3.401058794984375*^9}, 3.40105922759375*^9, { 3.401059267109375*^9, 3.401059812515625*^9}, {3.40106005090625*^9, 3.40106007915625*^9}, {3.4010601098125*^9, 3.401060264234375*^9}, { 3.4010603034375*^9, 3.401060304796875*^9}, {3.401060344296875*^9, 3.40106037140625*^9}, {3.4010604044375*^9, 3.401060456875*^9}, 3.4010605036875*^9, {3.401060540234375*^9, 3.401060562765625*^9}, { 3.401060675609375*^9, 3.40106071421875*^9}, {3.401060757859375*^9, 3.401060848734375*^9}, {3.40106139603125*^9, 3.401061422171875*^9}, { 3.401061460859375*^9, 3.401061467640625*^9}, 3.401064277578125*^9, { 3.4010644091875*^9, 3.40106441275*^9}, {3.401064475515625*^9, 3.40106450896875*^9}, {3.40106454615625*^9, 3.40106460953125*^9}, { 3.401064711609375*^9, 3.401064793*^9}, {3.401065119453125*^9, 3.401065126109375*^9}, {3.4010653570625*^9, 3.401065490984375*^9}, { 3.4010656114375*^9, 3.401065725828125*^9}, {3.401065823453125*^9, 3.4010658245*^9}, 3.401065906359375*^9, {3.401065967296875*^9, 3.401066004765625*^9}, {3.401066051546875*^9, 3.401066067828125*^9}, { 3.4010662488125*^9, 3.40106626065625*^9}, 3.401068393046875*^9}], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{ GraphicsComplexBox[{{1., 2.}, {2.5, 3.}, {2., 2.}, {3., 2.}, {4., 2.}, { 1., 0.}, {2.5, 0.}, {4., 0.}}, {RGBColor[0.5, 0., 0.], Arrowheads[{{0.028937842778793417`, 0.7}}], {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{1, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{3, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-3\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{4, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-2\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{5, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"3\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 5}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-3\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 5}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-2\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 5}]}}], {InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(0\\)]\\)=1\"\>", StripOnInput->False, FontSize->Small]], {1., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"out(x)=g[?]\"\>", StripOnInput->False, FontSize->Small]], {2.5, 3.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(1\\)]\\)=0.88\"\>", StripOnInput->False, FontSize->Small]], {2., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(2\\)]\\)=g[2+4-6]=0.5\ \"\>", StripOnInput->False, FontSize->Small]], {3., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(3\\)]\\)=g[?]\"\>", StripOnInput->False, FontSize->Small]], {4., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(0\\)]\\)=1\"\>", StripOnInput->False, FontSize->Small]], {1., 0.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(2\\)]\\)=2\"\>", StripOnInput->False, FontSize->Small]], {2.5, 0.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(1\\)]\\)=3\"\>", StripOnInput->False, FontSize->Small]], {4., 0.}]}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1., 2.}, {2.5, 3.}, {2., 2.}, {3., 2.}, {4., 2.}, {1., 0.}, {2.5, 0.}, {4., 0.}}]& ], AspectRatio->1., FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{ 3.4010660694375*^9, {3.40106625528125*^9, 3.401066261359375*^9}, 3.401068393671875*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "What is the value of ", Cell[BoxData[ FormBox[ RowBox[{"out", "(", "X", ")"}], TraditionalForm]]], "?" }], "Section", CellChangeTimes->{{3.40112032882136*^9, 3.401120342830868*^9}, { 3.401120374058086*^9, 3.401120375621649*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plotTree", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(1\)]\)=0.88\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(2\)]\)=0.5\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(3\)]\)=g[3+2+3]=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(2\)]\)=2\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(1\)]\)=3\>\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.401057156015625*^9, 3.401057311234375*^9}, { 3.401057429640625*^9, 3.4010574370625*^9}, {3.401057586328125*^9, 3.401057630609375*^9}, {3.401057720515625*^9, 3.401057747984375*^9}, { 3.4010586469375*^9, 3.401058794984375*^9}, 3.40105922759375*^9, { 3.401059267109375*^9, 3.401059812515625*^9}, {3.40106005090625*^9, 3.40106007915625*^9}, {3.4010601098125*^9, 3.401060264234375*^9}, { 3.4010603034375*^9, 3.401060304796875*^9}, {3.401060344296875*^9, 3.40106037140625*^9}, {3.4010604044375*^9, 3.401060456875*^9}, 3.4010605036875*^9, {3.401060540234375*^9, 3.401060562765625*^9}, { 3.401060675609375*^9, 3.40106071421875*^9}, {3.401060757859375*^9, 3.401060848734375*^9}, {3.40106139603125*^9, 3.401061422171875*^9}, { 3.401061460859375*^9, 3.401061467640625*^9}, 3.401064277578125*^9, { 3.4010644091875*^9, 3.40106441275*^9}, {3.401064475515625*^9, 3.40106450896875*^9}, {3.40106454615625*^9, 3.40106460953125*^9}, { 3.401064711609375*^9, 3.401064793*^9}, {3.401065119453125*^9, 3.401065126109375*^9}, {3.4010653570625*^9, 3.401065490984375*^9}, { 3.4010656114375*^9, 3.401065725828125*^9}, {3.401065823453125*^9, 3.4010658245*^9}, 3.401065906359375*^9, {3.401065967296875*^9, 3.401066004765625*^9}, {3.401066051546875*^9, 3.401066067828125*^9}, { 3.4010662488125*^9, 3.40106626065625*^9}, {3.40106637540625*^9, 3.401066411953125*^9}, {3.401068382359375*^9, 3.4010683851875*^9}}], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{ GraphicsComplexBox[{{1., 2.}, {2.5, 3.}, {2., 2.}, {3., 2.}, {4., 2.}, { 1., 0.}, {2.5, 0.}, {4., 0.}}, {RGBColor[0.5, 0., 0.], Arrowheads[{{0.028937842778793417`, 0.7}}], {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{1, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{3, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-3\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{4, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-2\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{5, 2}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"3\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{6, 5}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-3\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{7, 5}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 3}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"-2\"", StripOnInput -> False], TraditionalForm]], {0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 4}]}, {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"1\"", StripOnInput -> False], TraditionalForm]], { 0, 0}, ImageScaled[{0.5, 0.5}], Automatic, None, Background -> GrayLevel[1]]}]}, {0.028937842778793417`, 0.8}}], ArrowBox[{8, 5}]}}], {InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(0\\)]\\)=1\"\>", StripOnInput->False, FontSize->Small]], {1., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"out(x)=g[?]\"\>", StripOnInput->False, FontSize->Small]], {2.5, 3.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(1\\)]\\)=0.88\"\>", StripOnInput->False, FontSize->Small]], {2., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(2\\)]\\)=0.5\"\>", StripOnInput->False, FontSize->Small]], {3., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(Z\\), \\(3\\)]\\)=g[3+2+3]=1\"\ \>", StripOnInput->False, FontSize->Small]], {4., 2.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(0\\)]\\)=1\"\>", StripOnInput->False, FontSize->Small]], {1., 0.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(2\\)]\\)=2\"\>", StripOnInput->False, FontSize->Small]], {2.5, 0.}], InsetBox[ PanelBox[ StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(X\\), \\(1\\)]\\)=3\"\>", StripOnInput->False, FontSize->Small]], {4., 0.}]}}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{1., 2.}, {2.5, 3.}, {2., 2.}, {3., 2.}, {4., 2.}, {1., 0.}, {2.5, 0.}, {4., 0.}}]& ], AspectRatio->1., FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{{3.401066370484375*^9, 3.401066376515625*^9}, 3.401066416859375*^9, 3.401068390125*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Done!", "Section", CellChangeTimes->{{3.40112032882136*^9, 3.401120342830868*^9}, { 3.401120374058086*^9, 3.401120397259865*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plotTree", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(1\)]\)=0.88\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(2\)]\)=0.5\>\"", ",", "\"\<\!\(\*SubscriptBox[\(Z\), \(3\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(0\)]\)=1\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(2\)]\)=2\>\"", ",", "\"\<\!\(\*SubscriptBox[\(X\), \(1\)]\)=3\>\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.401057156015625*^9, 3.401057311234375*^9}, { 3.401057429640625*^9, 3.4010574370625*^9}, {3.401057586328125*^9, 3.401057630609375*^9}, {3.401057720515625*^9, 3.401057747984375*^9}, { 3.4010586469375*^9, 3.401058794984375*^9}, 3.40105922759375*^9, { 3.401059267109375*^9, 3.401059812515625*^9}, {3.40106005090625*^9, 3.40106007915625*^9}, {3.4010601098125*^9, 3.401060264234375*^9}, { 3.4010603034375*^9, 3.401060304796875*^9}, {3.401060344296875*^9, 3.40106037140625*^9}, {3.4010604044375*^9, 3.401060456875*^9}, 3.4010605036875*^9, {3.401060540234375*^9, 3.401060562765625*^9}, { 3.401060675609375*^9, 3.40106071421875*^9}, {3.401060757859375*^9, 3.401060848734375*^9}, {3.40106139603125*^9, 3.401061422171875*^9}, { 3.401061460859375*^9, 3.401061467640625*^9}, 3.401064277578125*^9, { 3.4010644091875*^9, 3.40106441275*^9}, {3.401064475515625*^9, 3.40106450896875*^9}, {3.40106454615625*^9, 3.40106460953125*^9}, { 3.401064711609375*^9, 3.401064793*^9}, {3.401065119453125*^9, 3.401065126109375*^9}, {3.4010653570625*^9, 3.401065490984375*^9}, { 3.4010656114375*^9, 3.401065725828125*^9}, {3.401065823453125*^9, 3.4010658245*^9}, 3.401065906359375*^9, {3.401065967296875*^9, 3.401066004765625*^9}, {3.401066051546875*^9, 3.401066067828125*^9}, { 3.4010662488125*^9, 3.40106626065625*^9}, {3.40106637540625*^9, 3.401066411953125*^9}, 3.4010664805*^9, {3.401066513171875*^9, 3.40106658859375*^9}, {3.401068374671875*^9, 3.40106837696875*^9}}], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{ GraphicsComplexBox[{{1., 2.}, {2.5, 3.}, {2., 2.}, {3., 2.}, {4., 2.}, { 1., 0.}, {2.5, 0.}, {4., 0.}}, {RGBColor[0.5, 0., 0.], Arrowheads[{{0.028937842778793417`, 0.7}}], {Arrowheads[{{0.5, 0.5, GraphicsBox[{ GrayLevel[0], InsetBox[ BoxData[ FormBox[ StyleBox["\"2\"", StripOnInput -> False], TraditionalForm]], {