(* 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]], { 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[2+0.88-1.5-2]=0.35\"\>", 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\\)]\\)=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.401066481078125*^9, 3.4010665521875*^9, 3.401066599109375*^9, 3.401068378125*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Demo", "Section", CellChangeTimes->{{3.401061777515625*^9, 3.401061780109375*^9}, { 3.4010671285*^9, 3.401067128921875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dynamicDemo", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.401062227375*^9, 3.401062280890625*^9}, { 3.40106243090625*^9, 3.40106246865625*^9}, {3.401062573890625*^9, 3.401062750765625*^9}, {3.40106279921875*^9, 3.401062971296875*^9}, { 3.401063035546875*^9, 3.40106369940625*^9}, {3.401063765765625*^9, 3.4010637861875*^9}, {3.40106864603125*^9, 3.401068729265625*^9}, { 3.40106877065625*^9, 3.401068793484375*^9}, {3.401068844828125*^9, 3.40106888184375*^9}, {3.401112268050767*^9, 3.401112270149783*^9}, { 3.401120141569812*^9, 3.4011201478245897`*^9}}], Cell[BoxData[ DynamicModuleBox[{$CellContext`w10$$ = -1., $CellContext`w11$$ = -2.37, \ $CellContext`w12$$ = -2.11, $CellContext`w20$$ = -0.10000000000000009`, \ $CellContext`w21$$ = 1.46, $CellContext`w22$$ = -0.6800000000000002, $CellContext`w30$$ = 3., $CellContext`w31$$ = -1.55, $CellContext`w32$$ = -3., $CellContext`u0$$ \ = 0.22999999999999998`, $CellContext`u1$$ = 1.0899999999999999`, $CellContext`u2$$ = -3., $CellContext`g$$ = Function[$CellContext`x, 1/(1 + Exp[-$CellContext`x])]}, TagBox[GridBox[{ { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { SliderBox[Dynamic[$CellContext`w10$$], {-3, 3}], SliderBox[Dynamic[$CellContext`w11$$], {-3, 3}], SliderBox[Dynamic[$CellContext`w12$$], {-3, 3}]}, { SliderBox[Dynamic[$CellContext`w20$$], {-3, 3}], SliderBox[Dynamic[$CellContext`w21$$], {-3, 3}], SliderBox[Dynamic[$CellContext`w22$$], {-3, 3}]}, { SliderBox[Dynamic[$CellContext`w30$$], {-3, 3}], SliderBox[Dynamic[$CellContext`w31$$], {-3, 3}], SliderBox[Dynamic[$CellContext`w32$$], {-3, 3}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { SliderBox[Dynamic[$CellContext`u0$$], {-3, 3}], SliderBox[Dynamic[$CellContext`u1$$], {-3, 3}], SliderBox[Dynamic[$CellContext`u2$$], {-3, 3}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, { DynamicBox[ToBoxes[ Plot3D[ $CellContext`g$$[ Total[ Flatten[ Dot[{{$CellContext`u0$$, $CellContext`u1$$, $CellContext`u2$$}}, $CellContext`g$$[ Dot[{{$CellContext`w10$$, $CellContext`w11$$, \ $CellContext`w12$$}, {$CellContext`w20$$, $CellContext`w21$$, \ $CellContext`w22$$}, {$CellContext`w30$$, $CellContext`w31$$, \ $CellContext`w32$$}}, {{ 1}, {$CellContext`a}, {$CellContext`b}}]]]]]], \ {$CellContext`a, -10, 10}, {$CellContext`b, -10, 10}], StandardForm], ImageSizeCache->{256., {103., 104.3125}}]} }, ColumnsEqual->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, RowsEqual->False], "Grid"], DynamicModuleValues:>{}]], "Output", CellChangeTimes->{{3.4010631964375*^9, 3.401063270140625*^9}, { 3.401063308*^9, 3.401063415890625*^9}, 3.401063513234375*^9, 3.40106354640625*^9, {3.401063582671875*^9, 3.401063622546875*^9}, 3.401063703125*^9, {3.401063766421875*^9, 3.401063786609375*^9}, { 3.401068715640625*^9, 3.401068729640625*^9}, 3.401068883421875*^9, 3.40110151825*^9, 3.401112271729107*^9, 3.401120190560978*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Generalized Back Propagation", "Section", CellChangeTimes->{{3.40106403075*^9, 3.40106404321875*^9}, { 3.401067024359375*^9, 3.401067027625*^9}, {3.401102791171875*^9, 3.401102793578125*^9}}], Cell[CellGroupData[{ Cell[BoxData["plt"], "Input", CellChangeTimes->{{3.401067561953125*^9, 3.401067562328125*^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.4011027965*^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 ]], Cell[TextData[{ "Suppose we want to find the best model ", Cell[BoxData[ FormBox[ RowBox[{"out", "(", RowBox[{ RowBox[{"x", ";", "U"}], ",", "W"}], ")"}], TraditionalForm]]], " with respect to the parameters ", Cell[BoxData[ FormBox["W", TraditionalForm]]], " and ", Cell[BoxData[ FormBox["U", TraditionalForm]]], ". How can we quantify best? Lets considered mean squared error. " }], "Text", CellChangeTimes->{{3.401067605296875*^9, 3.401067661390625*^9}, { 3.401112317397195*^9, 3.4011123556259537`*^9}}], Cell[BoxData[ FormBox[ RowBox[{"E", "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "n"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"out", "(", SubscriptBox["X", "i"], ")"}], "-", SubscriptBox["Y", "i"]}], ")"}], "2"]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}}], Cell["\<\ There are many ways to do this. One of the most common (and least effective) \ methods is to use gradient descent. This corresponds to the update rule:\ \>", "Text", CellChangeTimes->{{3.401067709515625*^9, 3.401067755828125*^9}, { 3.4011123779405212`*^9, 3.4011123919948463`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["u", "i", RowBox[{"(", RowBox[{"t", "+", "1"}], ")"}]], "\[LongLeftArrow]", SubsuperscriptBox["u", "i", RowBox[{"(", "t", ")"}]]}], "-", RowBox[{"\[Eta]", " ", FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["u", "i"]}]]}]}], "|", GridBox[{ {" "}, { SubsuperscriptBox["u", "i", RowBox[{"(", "t", ")"}]]} }]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401067196390625*^9, 3.401067463*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["w", "ij", RowBox[{"(", RowBox[{"t", "+", "1"}], ")"}]], "\[LongLeftArrow]", SubsuperscriptBox["w", "ij", RowBox[{"(", "t", ")"}]]}], "-", RowBox[{"\[Eta]", " ", FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["w", "ij"]}]]}]}], "|", GridBox[{ {" "}, { SubsuperscriptBox["w", "ij", RowBox[{"(", "t", ")"}]]} }]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401067196390625*^9, 3.401067502640625*^9}}], Cell["Recall we have the following graph:", "Text", CellChangeTimes->{{3.401067776515625*^9, 3.40106778209375*^9}}], Cell[CellGroupData[{ Cell[BoxData["plt"], "Input", CellChangeTimes->{{3.401067561953125*^9, 3.401067562328125*^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, ImageSize->{347.3333333333334, Automatic}, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{{3.4010675626875*^9, 3.401067587375*^9}, 3.401068426546875*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQt8nFWZ/pBr0wt35CY3kWvTsnjdm4xdFll1Y9xdFzf+u7tqtC5CpKvO atQoFCMG42o2ijG6NlwawEZlQBlZUjAFhkAoDMUhHahjGAgDGchABjpCwPd/ 3nPOe+adb975ZtIWaHfJ75dk5nzn8pznPOc91++clo99/t8+2fGxz5/b/rFj z/7sx9b+27ntnzv2PRd8VjnV7hMI7HO9+v3ZsYE69RkCgaI/+HMD/nn9c6XP B+K/0+Hll18O1MIf//hHsD/GUwfzpJ6/9NJL7vlKwe2rzE3FqGM91sbN/XXj 3+OFB0fx9BbxR/DUU09BKpWCRx55RP9//PHHj4MnnngiUI8fix4pryrecvAq RnvQAqPVuQk06RzzHyHqgF/cNTZuFk85QjAY/j799NMwNzcHzz33HDz//PM1 sGPHDhWD+oif8H/AuNVxt93m1euGf2s1GAQ1Ozur3BRMyphfWbyCOVoQrm6h ELRnleCric0ojWAEjuY6qNeIka2pqSl49tlndSSLIJ/Pq6QxfvVJ/6rPjQty rtPOjQ77M888oxPBxPBHJRy4cGdB1HJnlc3KSV2ik2pwpeFJbsGpNYipqdiP 4fzWQTqdhoceekj7Ur6bdje16IQostksPPzwwzAzM8OoXVj65Vktl8oltgCR VXRjKQUWnFSDmJSyckWU1sKDDz4Ijz32GCo9cKoOWa9DovKnp6chkUgwCor9 v9HH/yWWMswMutkwb2T5oCCTk5Oecr7vvvu0mUZfroiKc7moSrdlLEGMcuvW rYjvwl1LabEc6yXMSqGTaT4WHG+tizcWiwU8BbZlyxY0R9pyLbcwqIgxNy5z xV6Pkr3yYlKJkfejLA7yrWLy4rj33nu1OjHyZusdv99///1FguH+jhb8cQTo Zv1yr4i1xNoWx7ycFQi6YV4YE9zrUbLXMjiOYiWCTiomPybqd5NUK+Sh2mQW LyivC4u1ak5O9tg+a7sqquWIKsKVyckRHhvIgyo1+YDd3+YtlxqD3lAI+kcm AodXKe/9rD3MZ6PQovrzzS0tEGxuho6hCcdZFeApmmx8BNpbgjh2gpbQCGQY 9VVWC4coF4O2QBDCiSSMdDRD+0gicFiVuSJGRruC0DYU19+WVJ8bCp7PKVKa eyHrCV5FLhpd9cjAUJsaTHYMYzS2ZFPQ3azc2oYgHeuHlq5R7Z5Tn4OhiNVv A2SivWAHovY3CGOZPG9XWWYkHqgmJMIhFboNoulCWzsx2KbcWiCayRuU7Yrj oQlv9bOxl2GqsWwCjZ4E1G9mTLHZDWmhOipGy1XHQo3eV/1NQBeqtCuio8zG BjUzXaMpyIx1Q7BrzCSFalZJ/T4ehlBHqBa6urpUfyQU6oDecNx4yWVVM5HQ BYHRZdT3nBGeTpBXQ6EWe9nGQE1WZ2O9WAE6IJbNa8QhLLv2EYzeRpeFoRaN utrkeCtt6a8+OcZ7g2CfPIbGzyyaJJcqfiegXSXTNjQK4S5Mvh1iOVMeLaEi NUMuk6yHiYkJlXYsmWGpZqA/GIBgb1SLgcY1lao25Tqfz0E4pHIa7IXoqKko vdG0STpn0khHOlTZjhn5SAmUUfWiKtLI53KQTY1Ci3qWpsLnaVRhJKQuVi1R nB5T5s9U/JbeqCmlud8q2pthJJ6AYVVdO0YSSC9Eo9FaTbGqdNEo3LdtRqJZ bIFrq2/Ay6NdbA2INVPNXZDUmppRbi3Q1t4Ozcp0jSSyXtPl37ZLCdb4JIh+ ZreFoT2IRdaPxVJls4+DQMwiGfnESIeOuX0o5uxlPj0B/V1dMBgxBiSbiEBX qMvYlkb1UTW8ZFs8xC+pbLGLEaicp8Imby29kEJhGWDZTIaakUCZdsBLpo15 sRzxftUbYoS3mBpnlbvBlkLT1BVOaPNsFFHI+dIqG+wlNt74sCG+Wdsw3WS6 eKuouIt9otmPRVNF3Vxsiz2XHNFRdYSTkEsM68/90fRSolOZgXw+DYMmw96S 9qlOi60pxt5AL/YGWoYUzqRu3wKqQcoZM7CA+tJURYzLqqsQfp12at9Hu5p1 l4Ta9/SYsZA/jD7udILheDdGqg0LHDPU2BYzO9GvowxFkrbNj+k2qbn7Zsxp mVR8hxFLS9rF8omMwtyOHUsXxibVWGxXYqNhCI/FESpV7tREBEZG487CkddM KgFj4SEYHk0sEtrvasYlZAczySiEw6OQyhGRqr6m4xAeiWi3auL3VV/lJJps xVr4OOe1H7K/9gi8kwY+nX/vpIF/T947aVChR34S7HQ3+fDqgkpdXml4vYDu 66mVOpr33HOPnjvC6UtOX5nZJ3Sy3jl9ZWafeOTL5cgJx1133aWXCLzFiG4Y jQcHOlnvHAc63X333V4cPPLlcuQ01Xj77bfj/Kue9lRejmRWHZ1wbvnOO+8s mQlGNxYscCRLhcLdcccdRbhKEjvFJzHCt3nzZj3tjusdem2EyvdQFhg7QDg/ r1IsQYpuLIKAN4a6ohhuu+02D+ayAE7wAUDoVY9dFzxmOpfLsWQLSxnKXT9H fyhlbwbQjcURYJE0iJGoEvbkQYJxQgUYL/7hDzYbi/U0+S233KKn2dGPXVFx YW1lpfUsqq/WuU52rik0W86ZVraefPJJnditt96qVz9dbViiKUGhVIEnsDOA mioCUmwUV7hXlKBa7lwuR5JXbSGUES7HaSISgSe2bv2azoJZW8XVgV//+tf6 P2oeg+DcuzKkNZgnpUi0qZg7/G8/G0tb6+OhRpv2RToujBMXsTGNm266SRto /HFFXFgb94ET2A14Gsviwb0GRSX8ytJTnQfVsSd3Px5zyv2mz38e7v3v/4YX lQC6WAbwB/3deOONWq64FPPAAw/gWlcNrofVwLZt2/QnlaT6qNfI8Fud5+ki 91QF1VFgs4JRYtQqifKr5U3wnBrh0k8ZNIGFwVlcCY5Oy7tyu5s5WchT49bg z55ZNH/phRcgdsUV8OvPfhara+ArHuz4g9U5Go3C9ddfD9deey1s2LChDq65 5hqF4uqrr8ZP+ld9rtHOtdw5YNyavF5heHhYx3bDDTfo2KenpwPSlpavW7en VOYevvlm/Y1yICALvELQqtwRY7caaZON/ZHrrrtOR3nllVfWYbwKmAKpU8Bf 9blGO9dy50DNwr1edeWVpV4btNerrrpKY0Asm8fG4NFHH9X5UCaKF3NGqYVX 7S+h4zK7M+p3Sj5/UG04fmuwblllH6ZVe87dVLuu/c6l0wqacutmxfer88+H 2WRSpWs8z6gU00qfBotxwyKm/Vr7sUr1NhvPY3ffDZu7TayN1u1hZTX/5wtf UIPrrAJiOiUeYROMnGo+b/rc54qCP//UU3DjZz5T5Pb09u1wY0cH7Hj66YA3 C4oo5+8F1fz96rzztL9F1u2Xn/60k8jKYvS4q230S1+CJx94wHl/WLWU//Mf /6HRN1r0nrK42Hr9/W9+A1t+9COrN+OG3uZUPfAS8pt16+Bl1dm7WEBPYeMj I3Df0FBRfAL6txP3quM/dvHFRd4l9B7u11mvEwMD8MhttxUF3/LjH0NS6YW7 3fmd78ADqirit4t80HPumyqj59w3CegXydzTkCqydi08b9oWh+ARVcPvvuyy IrcXVYcMM55WQ8kLBfSUNOfeB/07BO790Hu4p22QXPcUnOue3LjuKayEnnO/ uDJ6zv1iAX0T4/5/QiHi/ivWK9c9Bee6d4Qw3X9FQE9hOfc+6N8pcO+Hfl4Z P8b9l61XrnsKznVPblz3X/JBz7lfUhk9536JgH6xzH2n9cp1Twi47smN675T QE9Jc+590P+pwL0feg/3X7Beue4pONc9uXHdU1gJPed+aWX0nPulAvolMvch 65XrnoJz3TtCmO5DAnoKy7n3Qf9nAvd+6D3cf9565bqn4Fz35MZ1/zkf9Jz7 ZZXRc+6XCeiXytx/1nrluicEXPfkxnX/WY5eIUX0lDTn3gf9nwvc+6H3cL/W ekXdoxMPznVPblz3FJZzT/449/tWRs+531dAv0zm/jPWK+r+nsFB/Y2Cc907 QpjuPyOgp7Ccex/0fyFw74few32H9Yq6n9q8uSg41z25cd2f74Oec79fZfSc +/0E9Psy7lk/5zzrFXX/3MxMEVKue3Ljuj9PQE9JP/izn8F969frbz7o/1Lg 3g+9h/tzrVeuewrOdU9uXPcUVkLPud+/MnrO/f4C+v1k7j9lvXLdU3Cue0cI 0/2nBPQUlnPvg/5dAvd+6D3cr7Feue4pONc9uXHdf9IHPef+gMroOfcHCOj3 l7n/hPXKdU8IuO7Jjev+EwJ6Sppz74P+DIF7P/Qe7j9uvXLdU3Cue3Ljuqew EnrO/YGV0XPuDxTQHyBz/1HrleuegnPdO0KY7j8qoHcb/Bn3PuiDAvd+6D3c /6v1ynXvdqwz3ZMb1/2/+KDn3B9UGT3nnrxz9LRM4+H+n61XrntCwHVPblz3 /yygp6Q59z7o3y1w74few/3/s1657ik41z25cd1TWAk95/7gyug59wcL6A+S uW+zXrnuKTjXvSOE6b5NQE9hOfc+6FcJ3Puh93D/T9Yr1z0F57onN677D/ug J+5V+QUOqYyec3+IgP5gmftzrFeue0LAdU9uXPfnCOgpac69D/q/Erj3Q+/h /kPW63NPPul0T8G57smN657CInp0m3nwQeePc/+Gyug5928Q0B8ic//31uvU 2JjTPQXnuneEMN3/vYCewnLufdCfKXDvh97D/d9Zr/f88IdO9xSc657cuO4/ 6IMeFUbcH1oZPef+UAH9G2TuW63XX//7vzvdEwKue46KdN8qoKekH/z5zx33 Puj/WuDeD72H+xbrleuegnPdkxvXPYWV0HPuD6uMnnN/mID+UJn791uvXPcU nOveEcJ0/34BPYXl3PugP0vg3g+9h/v3Wa9c9xSc657cuO7f64Oec394ZfSc +8MF9IcJ3M/n839jvXLdEwKue46KdP83AnpKmnPvg/49Avd+6B33Cq7inoJz 3VNwrnty47qnsBJ6zv0RldFz7o8Q0B8uc0/VhuuegnPdO0KY7v9aQE9hOfc+ 6M8WuPdD7+GeDC7XPQXnuic3rntqKCX0nPsjK6Pn3B8poD9C5p66SVz3hIDr nqMi3a8S0FPSnHsf9FR1OPd+6D3cB61XrnsKznVPblz3FFZCz7l/Y2X0nPs3 CuiPlLmnKQmuewrOde8IYbp/l4CewnLufdCT0eXc+6H3cE+TWVz3FJzrnty4 7mkSUkLvuM9k7NYJX/Sc+6ME9G+UuacpaK57QsB1z1GR7insUw89pPv3iJ6S 5tz7oKfGknPvh97DPS0cIXJ04sG57smN657CSug590dXRs+5P1pAf5TMPS33 ompQPfiNgnPdO0KY7t8hoKewnHsf9NRV4tz7oefcq5zSRgGssVhzeXCue3Lj uqcNHhJ6zv0xldFz7sk7R3805/5znyPu32q9opbRanKkXPccFen+rQJ6Shq5 v/cnP9HffND/rcC9H3oP96dbr1z3FJzrnty47imshJ5zf2xl9Jx78s7RHyNz f5r1ynVPwbnuHSFM9xSWo6ewnHsf9DTA4dz7ofdwT8dncd1TcK57cuO6X+GD nnN/XGX0nHvyztEfK3PfbL1y3RMCrnuOinTfLKCnpDn3Pug/IHDvh97D/anW K9c9Bee6Jzeueworoefcv6kyes79mwT0x8ncn2y9ct1TcK57RwjT/ckCegrL ufdBT9MSnHs/9B7uT7Jeue4pONc9uXHdn+iDnnN/fGX0nPvjBfRvkrk/wXrl uicEXPccFen+BAE9Jc2590FPE1qcez/0Hu7JK9c9uXHdkxvXPblJ6Dn3b66M nnP/ZgH98V7uFTGKe9Iz1z0F57p3hDDdHyegp7Ccex/0NBHJufdDr7m//HJd /CqnZAm57ik41z25cd0f44Nec6/ckHtSmA96zj155+jfbNGrJDj31H/huicE XPccFemewj798MNaJYiekubc+6CnaWjOvR96D/c06kDd4woED851T25c9xRW o7fckz/O/YmV0XPuTxTQnyBzT3MFqHtc/QFmCbnuHSFM90cI6Cks594H/T8I 3Puh93BPs0yoe1x548G57smN655mByX03OZQm+KDnnN/koD+RJl7mhvGzOCq J0fKdc9Rke4PFdBT0pO/+IVuUvCbD3paPOLc+6H3cE8rOlz3FJzrnty47t1a loCec39yZfSc+5MF9CfJ3NM6LNc9Bee6d4Qw3R8koKewnHsf9P8ocO+H3sO9 e3+Y6Z6Cc92TG9e92zcioOfcn1IZPef+FAH9yTL3tO+G654QcN1zVKT7/QX0 lDTn3gc9Lfly7v3Qe7in3XJc9xSc657cuO4prISec39qZfSc+1MF9KfI3NMe V657Cs517whhul8qoKewnHsf9LRZgHPvh97DPe2O5rqn4Fz35MZ1T7vaJfSc ++WV0XPulwvoT5W5p3cauO4JAdc9R0W6bxLQU9Kcex/0tMmDc++H3sM9vYnE dU/Bue7JjevevYMloOfcN1dGz7lvFtAvl7mvt1657ik4170jhOm+XkBPYTn3 Puhpiw/n3g+9h/s665XrnoJz3ZMb1z29gSmh59zTvI8Pes79CgF9s8w9vWjJ dU8IuO45KtJ9jYCekubc+6D/iMB9efQNXu71KwNK8DSnxrW+wgZhWtdI9TpJ PL6CZYhoXlkZKKd5pQB0hYfmm7/4Rbirv5+mHbmcySvK+cYLLjBDpHicYuUM +gCj7XWcQT9gyOB1H/sY/PQf/xGe/O1vyStXKlGDbP3kXe+CO3p7XZQv7tjh 6DqtMipO12llUdVrqrD6M2X6yLDeFeT0Pfc4OUrS84G4WiBOgmiqfSNJTcdR JMPf/tbH1jZyzemw3PY6O8tY/ZPKkDmrfyJAdg3Xbbc5g1rjEaZl2a9/wZA7 S8Vtr9S/8EFP21g54RJ6Sh5fxSKDWsvUy4h3XoV+NUdPrQS3va4Hy7intQ0f 9Jz70wX0bqCiOCaDWi9zT+MXLvCTBPQNhJTZXmlM44OeNkBz7iX0NJxlYnfv GXu4d16Z5smNo6c3dbnu3aiZcf+Wyug5928R0NNECNc9vS3q4Z68ct2/WUDv XkBluqewnHsf9PTCBszPwexcXn+T+nbEM8AcjG9Yq0NunnazQPNzs2BCQ/Er sIUiWWLVNjvep4/BW9Xaqv6vhA2Tc3aH6yJeVcxPfgo2rF0FgdXrYSoPfM6O OJDeHDS9HlTmDPStCuiNwq3q/8o1G0GBdPur5uf1GTbXf+pcLGRa+RRY+iSF mArDmrUDsLFvLfRtnuEdMQpBPVaY36LS7FN0gdtUNBVeB2sHNkKfEu/mGaB3 Jj2lT6+xTm7sgfVb5jTlk5PTNGWV39oHq3q26G/kplKD2dk5/Y06PsysW35V Tc9vhZ7ODQhKUTsJ0/nCdNb0lg2wSmV4YPOUfU++HmaEsjLqsO+7IMd52NC6 CsJ6e8U0dK5cA5PzQAvoMDcOrSv7YBYoJRVkfhJWBzqVZyyhMKxavQGLpegV 0oJumlgeN/V0Qnhq3k0gzm3pgVXrxvU3KlWY3w7rVnfCxo19sLZvM9FBLRx+ o1kkmI7A2nURFTGnMq800wrjipp3yCVRwoDKdUCF0PzP6dCb56DZPVYiXNNn cqt46FuleNyepzZLJGgmAitXau0oOPi8B5+bdw0XOb2UiZn6/JrmVT3KE72x 1KAqXw+sHthqeJjdrBTag8EJTCmf9bB9/WpYGzZpRNa2wvrJfKXoCMHkwGro 3MTfo6qH8Z41sHFqXofY2teKwV37bTKh2bM1r5L/giQM3bYlXFaOG4NUKWSN MgmeArNRqAqcV1VXqX7NxikbNqDt3dZ8oXbxYjvAplmGDZPk1EapSO3Ezr5a 9D7p6p/tkTBsnzf5WbdSC25/C3lu64CuqJtUnPP288pOo2yCjPCocA/wYZdO 1ImokUvP+Kx+tqWnFdZtnrWluNQvPUXNJGyMbDcsbOqEQOfmA6xetg4oW75y AGs7TK5v1cFUEo7UkvIvG8RJgIl8uUcCvnSqYl+5EiI6e9OwVnVfsXibbf4o bGDlWtgypYpLPR/fvgnWrF5vilDFF1GcBIwESAG+tKhSX6Wsnq4OyuqtXLUe M2XfpFxWOcmZzbCmdbXKrfLTul6rxxTHEshPrjfH4q6NwMx29XnVAIxjY7Nx u1XjJPS0Kiw94/YtqqXliNXew2tU0W9hRT8+SyVfKanxvjXQuma19jOwxQVD s7pRxapT2TylhKdi3bQVNqxZA8ZCUD3Vxb+CSKkQTKgSxTKoXJSz4wPQ2rkR NqtezdoNkyblRbqCr0Krvn0zrNXNXytsmUdF90Dnxu0k2fzcHIEPVEvRloE1 KorNqmezWrWoeUeRf4omkfwsTE1NY6EdYMt+UtnnwLrNsF15W4lt9Tq9TRM2 ruXMzsPc3LyzVJVo3dKzCtZGTOCI8te3dc5prZr0ZqenYHo2b9NbqqvbwEol iMlpCGN/ToXrw3qoOklr1phymIz06I7aOC/9CsGEKlFU+kuqIjU/MwXbp2et yWlSFW2d8qftM0xtXO0+w9QG/XnO9aiqZGNqu2KD2K8u/oOsX93EdWLN3aJL rQ8tSp/u/cH2jWtg9Xp6aa4KumbHFV3rYPP4elVFNzLrs5B0sEZNqvYT09FE mnRs92hAtbPUoKjKgWmsWEiwgr6LGvTqSDvNEjE/uwV61rSqah0G03bOwECn 1gdMb1qnxgHYBZ6HfH5eZ1yNA6y8qyPioAWlA3qgoVPKz7t0ZsY3wGrVAqlh hKmgamjROWDS3LA6AJ2RqYURnp+B7dunMZ2FJ7EExtd3qv7JWtfX2LqhD3Rj oKznarSY2KLhCcnz1DQvLIwRgZ0k2rkSMkOKkiHoQnJLm435WMd1uuXB4n47 kdnD/aOkd6t0b0FFuX59HwxEJt8uO9t68Ek597RVmg83K+SIBnx8pGMQywPE MnD9gtD4LKwGuqaXDW5TN3czk3RsEqKQCZcx1tH2S5KGK6wToX/++Mc/uiEu H+8dKcCR/LkXgubzqr0ZV2W9CuN+u+y83JMhBl7K0BFlE2woycjLL72Ew2HC yMdWh8lgjvDxmlc9oU7VVrT2jWOqb5edK2annrsRTDeWLk14kVQ+ejCLe/rd 9op6aRDhisID8lCfIKQKbOJNgqq2tuoOh92nLz/zybihqhE8QwD9g9ONhbeG /XJRy/s7bv4bR4F4OJGd+qCX7sU+dS28PG/bWaBZXDkzh8nRuBqjelGda9dB D3YZbLfgbT7PLDcFg1TEwzutfFnHWM8N24nEQ2QsriKYLgN9Az49ZhVCW1hs H1N/c0f5PPwwJmIhlM8CGRIWhxPvoQ4KNqhT2v87BDdrl+nMHT4QoHeHSl8k L4btNiOrdoMVOz/0Rs8LeHKIM3svvfiim7zmqKiFeyGXc+sTFBarGrKDuaSX syxb+tvK4hxp7888o5Mi76VHANVqPy+bw2NLNu7YMqPtK9LhUZQjXKriW1po MYGSmbzuOj0/jN8IjjBV+2/2EV9MkNC7k9BwMeGCC/Q3t4GhuDx8D01j6KUN DOSPFhOem5lxJ0T5oOeLCX8poHen0OFiwg9+oL95F9Et936HBXL0bmVb2LjD ufdBT6dnce4l9JS8XkS79Vb9zS0BF3PvvAqHZHL0tDgqbdzR3J9/vuaeXqn0 Qc+5J++lx0wWE3qazD3NXXPd8+NVERWip5VGrntKhnPvg/7TAvcSejIaXMyn y9xLXvmCGaF/C3Mj3bsjcBn3Z1RGz7k/Q0BPqyuc0LfK3JNXXkwNAnp6XY/r nsJy7n3Q05l3nHsJPSXPxfw2mXvJq9tOxNBTy8R1T/4498HK6Dn35J2jp2g5 obRC4uGeFgB4MZEbR0/n0nLdUzLbwmF34KkPejotkXMvoacJYy7mP5W5l7y6 zVAM/Z8xN9I9+ePc0wlRPug59+8W0NN0Iyf0z2XujddGXkz6hyN3DSLTPCXB efdBTidcct6N9waOXIexIjZNwRIv3dxLCdJ32SiZvjm3qyoD5NQa7/VFAC1P tsIuKqIzuWmTppshOsNGwSRLlLmTHgQ0pCJOF4FHNL9S+rnhU59yFBJHN5x7 Lgx/4AOU+rttmSOgX6pH4U98AmmoImFOA3m/o7cXrjjrLK2wVTZmlMSlb3gD 3KzoYUdH3Pq1r8Fwa6tWik9qF5TNZp0u4tu++U0iPmhzStze0tWlT+63qgja UFTYGJsSQBVpSwVOlYHXKSOtJl64rn556pT1W+8qh3RChgCJjtEtNU6N3Lro Hw7N1M8lRdDwh4fx1CIbppHXDu2PWyef+kxQpVaAWx0yExwuN4RUcY0hXFRi hjzMUlBudVwSzDoRFAH5vwskU+vLm0+3S4whpwaII68TwroBejHprv1i1p6C 8xbZp+9A6KWeDx6HTC1tnYD+7QJ6aj5Lm946vQeCcU/BOfeUDBe4D3o65Vrq 8eOeVmo+qTvD0dN+GxIooid/vOmlDWoe7ik4577BEyVq3qfPTOil0Vbqjjsc f40C+tMF9NI9HHQJiYd7Cs65l67s8Blt0fno0kgXd35579Lg6Gm4xNHTwITr 3m2vK+aegqMzjWopuHQEjA96zj1557qXLrhYIaCn4VLpUKuEewrOuadkuO59 0NO59px7MmVc99I1Bd5pAkQv3UdA+8A83FNwzr10dcGfV0bPuSf0XPfSQf/e t5MQPU1ylE4xlHBPwTn3Lhmm+z8rj55uNeDc03k3XPfSUfnedwoRPU1Eld5H UMI9BefcU3Cue4Ljg55zT9657vcV0HvfBEb0ND1WOrVWwj0F59xTMlz3Puj/ Q+CehqBc99KR4d739xE9+Ss9l72EewrOud/fEyXq/p2V0XPuCT3XvXTotvfU DUQvnU9Nh3N7uKfgnHvpKOt3lEdPd5Fw7qkJ57qXjq0+RkBPb6Ny3bvjrYu5 p+CcewrOdU9wfNBz7sk717108LP3hCtEL53TS+slHu4pOOeekuG690H/RYF7 6oBw3UvH93rPpUP00jm97pjfYu4pOOdeOtL3bZXRc+4JPde9dACu9zRJRE9L JKXn9JZwT8E59y4Zpnufzdd0gxDnnqYcue6lI2S9Z8Aieum8UnfUbDH3FFxz j33MJ58Ujzb12WBP6KXXA7Tup/UWUfEQVl7M1L8nQkvPKy3hnoJz7qWjTX3Q 091T0msxWvcdZppFOkrTe946PzC09LzSEu4pOOf+CE+U/MgvH/TSK0la99// vv4mHUbpvSWBH/vIdU+HVnq4p+Cce+mIR59XkujOMOkdMK37TZv0N+k4R+/d JvzgRK57d+wj417lhIJz7ik4173PG2yEXnrJjuteOhDReyMRP3qQ654O70Pu EbnlnoJvu/56d+QmP/yQdO+Dnm6Mk1795Lo/RkDv7Yzzw/u47t3xd8XcU3DO /TGeKFH3Pq9dEnrptVuue+lgOO/tf/wIttLz60q4p+Cce5cM073Pa7ddAvf0 pg3XvXS0mvfOTn6IWen5dSXcU3DOvXTkl88L24Reet2c6146nKxeQE/d3tJz vEq4dysnjHvpyC8f9HTPo3TMAte9dMQUXyIh9OSv9ByvEu4pOOf+zZ4o+Wup PuilIy647s1AqLFknYIjl84yerMN5+Fdh7WkFw4hEt5FFSB/Tf9r4ITrn9nf /Q6zYbiq11s5cum0fmTrgB3LFhYzHr/3XoeenvFlFbwuV/mx/DfAs489pmWC OcGwlnQa45YecVeni5F+VGZootZqWn9bXpwvVhRaQN879VTIbNt2vGVy/L/+ C3oPP1y/rchqB/xhbs4xifkdeMtbsASdxjBaSvEY/XcR7lPRMscfrC13fve7 MNrZCevqNUeU7d/+9Kcw0tamEV3d2gq/+OhH+fuu0hkC9191lUvtOIt88ze+ AT/60z/F9+fhmr/7O/1K5+VnnglXve99tNn1QlsIWLaYue83N8OFgQBGFyAC UJLohr/fWLoUvnfKKXDJfvvByEc+YpNq0jOcmBn6IZnixg/vAuF1H/84kWOJ qdfff/jWt8J3jj0Wvr98OVzc0KD8qxSVf2tMi7KGWBHPL/71X+H6T35SF5Kt pFZYxQcXINkX1dbCM488QuYGs2yzpb6Zv9H//E+vSr5qdTXe1wc/W71av9Cv YiJw9EZ7AVytzjTFTP4uXrQIE9c+jGVfBrdeeCH0HHSQ3gjF6rWOjNd7/Izx bd2wwaWBpHjRYyaLsTTB+mCwUHjLlmHZw7Uf+pCWFVo2XDkixT5x//20Yc9i rNc2As9g6Dv+eB3HLV/9qjPYuKPqkv33L8JAy0AlDJq9MD0HH1zkHdn00ocV 3kvfpi9/2VOZGjSdX29q0n6xGCx9tfYxsnaTksmP3vlO7eU/jzoKZUqpIBHe VND8UCrUI/jjyy9Dt1J9AXU99J98sjZNaFyxQ42qc++0qiYEFYnfqPuEcaBB Rg2pAqfkvn3kkW5X2nGW76s/+EFXXvjbe8QRxXa4Fh4dH4evL15chLx7yRKd SiGqBm1YeVTfOuwwlBo9/uk557hHF9XU6OqjHpMYkN31Z5xRlMrY17/uKQVT 4FizuL90LFbCI/or5nuJNqvZqSnyq/3oRssIEy5buVKHUYbMda4fuvFGLWSM oc6mhw1bcXr12ujx3CsbSkTSPdc48PFC5+/gUlRYzDwqRawTK55IWVwP63Wd RtuLmyN//i//AhfV1TmoKCXbSrr4w+3tRfEXTmdtKEn7G/vui/TSGpjuoCgv mDvKwoX77ANbh4e1DxpT4JJm/0knFdW9DX/7tyVZRX88OTQ5lrWLrBfs4XEv scsvt2jr9TvR5P6D005DSRZVJHQrQGiAC5XusDmgfsNsMgnX/P3f11tPSEyx 3up182vVr3+V4XTJ43YDcl/X0IDdisJ6m7I+31WtCy9s9ENHihJTf3j2WaqE zh9Wj2cffZTVrjqsmCYtxfZzMzOWpHX2KZpMQqLsEvWGsZUm59+Njvo1GGi4 sctjAhp/Kgi10EWlbeubGzLgPgVKRuGm1H+oeijkrLpNxMxd3/teSY365gEH 6FNkOTPYRm/u7sZCc6n/5qKLSmo6tpKYxMDpp9vxq6MFo1DdBtIHNSSoVnS6 4qyznPXaMTurURDg777pTXhxFq0Uot3EKq68ODC8MTnGpohtK0Wjeo78bOV1 dTq32IukNUTckIDdHYxJEUtsfOeYYzyH1NfD9ptuchF/69BDtdSpPNF+ofvN X/gCMXCxTQEvvP/h296mE1dtLYVAW40qU/1O1xRg3wZjQdt+e08PYg7QCRXY y0W1YxhdnMPDLvXbL71Uu/ElATwbCN1UGDf4R0Xj9hoFx9mEy5S6bAfVtV7Z 3/9e94mtbI5jwdEJ+/k2k1+3j3C79aWHHAIPjow4BNh2rH/3u4t0ik005uDa f/gH5JdWVbAfctmKFZpeVSKkK+yafPPAA3WNp1hv+NSn4EfveId+hWZfqxys 6ThOoS6L0iHmiRSBXVXsBWMjrlREMaHRpp3stjJ320eJG27QhcFFjn0zHBEU tFarB0TY38Zs09QgDiyw7104VL1WT5Fvv/nmorBoyC8/6yx45tFH3SWS0xMT 2kgjbapdouB48pR33uKq977XSd+DXrokANHTKJ8aVkSvZ3DLXFBISPkon9yQ oeKbIeu8jbl0kYPPJQHfsI+kyzHQNNAoX0IvzbKTv9LZrcJwPvfEE8Wz7IXu nTvWhY3yKfM+6KWLSVLRqBvlHyWgl67b8ruVhHNPs+we7qULTHwuJrlE4J6i wANgvLO6HL00Ty3N6lJYzr27XKmYe2lW1+dKG0IvXcjDdX+kgL781TfybTyc e7oix8M9v8qJdO+D/psC9xQF172EngQprexJt1Bx7otmegvcSxdW+VzlROil S8C47o8Q0EtzpRS2dDWjmHtqUDzcuyUfpnufS8B6BO4pCq57qqEcvXSZgHT7 GoVFnpFQ5N5dOlDMvXRRm8/1cYReuvxOdUT0gBWgsLzG0UtHwkureOTGuaej 4z3cS6t4PugvFbinKHAOBJF60SN/T2zdKh7sTf647smNc+8OAC/m3h2gznTv c20ioZcu3Hz0zjt1Fxu/HSqgl45n9rttk3NP77J5uJcu5vS5cPNbAvcUBXKC ww78RoviHL10EBuFlW6Z5dwXvctG3D/4IAXnuve5qpXQSxfNct0fIqCXjkr1 u2VWc29v0KB32TzcUzLSgfYC+l6Be4oCdU/2XkIvnbbpd7sy536lzL20a8Pn imJCL11uzXV/sIBeOj6RwnLdU1jO/Z/I3LtbwZnufS63/jZxf/fder6Gp4Yz Gb+z9p768ogeJxqfYHtT9PxoZ6dGT2F1W2HfGeRbBDAscv8WL/cqt4p7Co5z 2bgCwOH8ysiAo+fv5bykRsPqV/UA8G8tPKF4wd7CS/pEf+OWfuAB+MNzz+lv B1q3HXNzMB2LwfOzs4ED0E0PPejps6oE0lu3wgs7drhYcmqE/JQSB4/5GdWj elpxwxHw1Q89rqvVD+owKZi+7z54OpmEF194gdJSH+FxlRYiOdi6oTfK2Qr8 u48e5xXlnNL4Z8Ft/yr90VaCl80EasHfPuhE6TXxMPrnKVXHUqkUPPLII/r/ 448/HvggPKFKuB4/Fz1Tft0UcSnGRUVxC/H6RSstOO1no2VZ2qloixgoTqIG feN7Pk8/DXNKR88pbT3//PM1eF4lGiBl//DkSvU/YNzquNvrXp3XGu2jVhOI RM6qKmDI1UXg1soO8EgFCwt/Xy+AV6oApArrrVmvl8KrUgpFhqihqA5MTU3B s88+i8EXQT6fV/Fj3Hk86Uj9qs+Ne5hzg8v8M888o/FjPlSezMyfWQ73ZC2w l+StUcybtWPuUE+sPXtpBuXC80rUlOGM6i099NBD2idmsWkPy4tvFtEJs5nF LQgPPwxPPvkkzUyrjzxfe0m2GsVsYRkVpFmHPaK9MG9ykam8FanSrMAlEgl4 TI2KlaVtY3Gi4Z1WXflt27bR+xnqI/kMGK/1RV4xpgJ3tTA5OenxX+f1L/Qo t6p+v+kfK791Olgtz6W1DHuGWz1zwx71/fff7xZs1Gfths/2mqzUuaxgOajy oIoQUwPDvS43tTw3AUH8mCvVtUBvH7EhqMbce++97s2k+9TY03oLfMTyRP7w meOpFoN5vNZyrxIIFAraFxXk/9kQ+DVm1/EpZvxuvQW4PwzOqx0CKvK3D37d B/35J/4Rxhk6IdwDhcSJAfKHzxgDPH1vlMprBQbq9yARVRKWH0l7Rz6qKsS9 IyuiyKhkcOIIhYb1ZKX+a9xoHHeiLMYP65gbeGo8FancTZBGMYhfTfVLqlBz D7TjTYZdmsk5rooJoiqy/+pYI2+e9pAxtNetwqxAFXSeaGkK4HYcq90G6xYL 90Mo1AtjSXxjvTraTxLio7qQnhiBrlAXDEdTRfH5Fc+C4itTjPWaiFdkMFfH apY0osSJ4ZP9mF/GcpaDifAQDA4OwtCQ+t8/iMxDMhKC5vZhSCYiEFR91ols 3rHCrYtU8Y2/pS6NZHQE+in+wX4YHktCLjGs36iPJWPQpfwNxrMneeywLaDy 5bOTKdTyFIrNYx2k0+ndPsrhxZUXRlmF4qrlxRUgQpgKIZtO1aIBU9Ulk8vD WFcQuqMZ/Sja3aI+p48XzK7HWpeUGobwaj6XSQcoqXQmB8mRDmgfiutnKaWO 9qHY8bYhKpdUmRLcpdTKZ6ykNGvhwQcfdOOuU20t9oy7FlZZsjA62A2hri7o Ur8hZQbC8UehPxiEcCrvSqFrLB3QYcl+Vme/CnpORAZ15JhIVygE/eG4LV5T 1JloLwRDoyVpVLZpu5BGGTtXp1PZTQOiZawG0dBLFVCZ8tndQ68GKxGsVV2K BnxmKdkN8VbuKb9S+UmGQ7oy4TNTmeK7Id6qesx7V5Z8e85btmxx49nllgE+ 9BV0iq2+8i51J+psRlKRLmhuG4JEPFx1Q2ujVWarNN5aG28uMaJPUpxITkBI PR+KZwNVtLC7FrVP02rmA0gWzdY7ofAxwqdZr/HRIWWr+iGaylXdL6SwmVgY uru6ITyRrroPWDZsGTtYnMHlHqoRVXlD9urON0h4d2Vku2xBed2VlMjwYEM8 0tEMgeZmCDY3L0KZKq/N6muzEmT74IRdUthzZzYarVsi3KXQq2wEmwMmH3X6 e3NzQNmFQcjk83vB5MarmpuqRX2yxebpj1djdU4gpWWi0IYXggVDMDw81IBD DOU8NDQIXW3N2jy29EbfbNUpJVRmdsQloKUc0DH1Dg832gQGu9u1U6ClH0mT +r4eKy4asZ1JpbqZl2Km9ydjqYZPWVtYh1dv42k+IBsbVHhaYCxTkBRCH25X 8umOulapkt0/0YVN6BYqFE46PSUjXfotkFS+0NBWonFB8VXVPuzr9JyFSHcb BNvalSVrh7F0biHEHemiyUEmlYS4IiEWT2IZOALjw+16IJxgbnk1OG7rHiuq aLypf2OVRL/R6ksN31QPJq6exSGVybtkUhEd7VAsy8ozDV3NQRhVZdwkJH1k lWXySiW9sOJLqV5bsB9yKoZ0pAOau8YCh3lMri3CMiXoYsolYWRwCIZHRlTl HIFklkpmfz0U09W02VicQEALRePOxoahJdimxqSDEM/SqDgHYazt7SOIrMFl Pw69XSNlC32JNTJ8vgFhDfd2QUdbEELDsaJm1W8OiLKVS03AyPAwDOuZGZ4t TC2pa5NuIALGOHVHkibdbAxCaljd3tEFkQQekmDSTY91awuB3WQq1tGuDoik 8wvK18RIP4Q6WqClYxgtX9G8XIXJp31JeKko9OMsQFcvRGKppj02V1X1ynky sSHbLOheVUC/kvyPnWsh2B01SSnVt7Sw1ryhIFH3G0QrXm/j9ZshcnWjePZr P1cxMpCIjUI7Nl2jMW3aTKqK8WxGT4OZaNMw2KLaid4J/T0T7Yagqo40AsVy wXnAtuF4oFAjcpBKpitwXOxGZTbRqyqjNaHeGT6hDyDOuVEtycb6NWMjY2Mw GhmDVI4MVBNkMjkXX2KkQ4+84pjnzJgaMHbpdofyGO0Nqp5KP6TzhRFtNp0i jqqv9fibjqhuW7eOq66KYiwz0VcwBDGITiQgFccJZS2OPTCLC5pd5A3CIsos 9Rf1+DgFyWRSzzI+8KuLSqoPdpSyatgf6gjV4jScYiIU6oDecNya3ixkswno xr5zV0TlMIvW3CTlnfXz6SMUWr8M9Ad5ra7XRsrMXGagN6g6XtlCqaBbpL9D G7FgRz8MdSvmTa13lYs65Pn0qPY3GMu6yjnR36JarG5I5k38unKGwrqtxPwZ BNRaj6qSDkBXJGkrWJ2dZtBuoAcSBQE0GyaNrax2krW8dauFtsEtEOlq0SPH JRZ/amwI2pqx1W2HoZFeMmlalS3BXqaa2kL+usdsOo2QmejX6QzHs8Y4Ix+q 5UYjT0ak1LAs1nENtal0lRHPOiWmtA4CbUPaTYO2SSMcK+ISPvw6UOX5qFd8 xGy6GehW+VYNkdPFXs1LVb07adLSoFgKuWREK5UrGe3IGWf0agS2F6jdc5lk PUxMTOB5Jb+bYWbFVMRgb1Qac9da/Vc3nVJnDY/XbiUj3ZrFYFcYUso+JpUR SiSS2k7u2PG4ru2qH0yEx8P90BEKaTNUo/8uU3apC27cNmtNsmp9R0ZhpL8w YkwXDAGZSkddWvcHWiCapQwt9UBUXdSQ6c62jyQAx0EoFNtlL9itRapxHNLO /dG0jmIM7VCgDaKZvGQXuLSrm3A/sIS8clY8mc4aCL1qxNY96gRQZMWXWSv+ Wz0GQavY0j0Mo+FBrRtNCtWWZl1biojL52K6q9M1mipDXN7VoIBtRCb620xZ 944ViMPqmtA9Hmw8MAozutZROwNcXFt64XHH3gKm9xdCYBpu7g9pJv63E1hx morm2hdblNn4iGlsuyOWmByM9rZDsEWpLdhhcm3MCkSj0VptWhphIhqFWCIj mRfbllUci1okNLiLDdsK7yg00zDWZjgrnUnGEYPGUWv/JjO2G94dtf7qVY3F qdr+op4D9Upig226P5fK0/TekkJPJWhahrhKewjjbFHxmBbG8U8LQukxMwAZ iY5CBxZtKOL6h7zLIJWNtLZCK/8ee09rIDjaCKnO02ihTALG1i+BWDKj4HRp 8SeoUFSfr6ihNMp1EHPJEdMZS2St2yKl0l5t6NpVA9etjF8cqWrrUHCaYSSZ k9pKA09FkJ3QlaBtaBTCXUHNYiyXd90thqCKkW+VnGSVc3tbLxbl/wpOql7N omFiZsK0VC39Y1b7DZDNZAr9BLR0iQhuHzKWrtGtvEuVd6mNtoo+/mJLz8Rg u2srdXTZOAz1dusRF2vtM4kYWhBdNjX6b536PmEqbxDH0FGqu6YXL9fdqDWb w4msrbtNLgNtQxOqmQwqYzYM3UFEFIN+VWgd4aTTkVktcI0+UeYdptnqu5jR 4dfPL2dOs4lRGI6oTKoRaIvpmpSa06XOnMaG2vS8LhkblE+wVK1uDGpTaxmM WbE2GcEHByGJ7UZzFwx3tyhtTEB8WEXdMsSmMlTjlR6zLaZeUaiVuCik2uSR Rrk+ftmmJYt5jisuzKpzLLeXc1FVv54qVGrMNP842tvX2YjyraZ/D5xmF8Z6 W6ySM7rpTsbGYGQ4DMlcocVMRPpp043tZi/R3yOK5HAoUNS6jXabmQ5e84jh zITpibQNTlg3Mz7q1WZRjatyE7azhLVTxRcf1GZTlbMjGTPcQl5y1bSV5brR xACzf0oiCQgP9kO3nh1NOwas/WMMLHVGkPpX4ST1CoelBqLe5cCsxuAkQ4rU 12RmiJTFwo7dSLtVUT9OCiZ1z0A1G24am4Y27UMxx61f4+jTFRZJyKXUiKkb uroVCROpvZqEXdpKQGjTtuaFRuKFZsvsycvncrpXNbhTlbD8QLpBV8aIbvBV HyFhJh1c4k2w4xGVVc1gC7TZChGwAwuqdzW2cIsGErm46WkGe9kM5QHMD86d qLyOmbY4rudZmk1BKki6WLpuFld+XDczZXpaAZzjUPV3LF3gktVUPs23M5sW 3GakgmGkaF0TsmPHjF6H1WanrcU23M1eXVI4GjcY4lW/PJETGMLGvbnQtCTD 2m+zmVaH1GiX6f8Li0iFjnjGTRzosVk44RhiU0AFhnZ6L8SrStL+O0FS0XJU 3c7yU3U9X0x1Ojqk6o3qkre3Q0dHW40dFg/Gso466vDxVSJVx2lGcCf2Zyx1 RZKznfkWiCRzS6ndUv2bsUgERicSkE4nIZ4wdVDX5+5oHQ+tZ6HQMuQMAftp 51Rc9Y7cukQG4rG4bolN9yelyEmKS1NkdPS4VpvtnJvhjGXzNEsR6y80s/U2 yAJ2jyyz0TB7ans3TRp9XI2CI6NRSKnRRyKeMMhtaWfyhflZGjW3KdNPSxg5 xVcsnnKjlpQaLMRTNL+QVTmOw6NbShasKONm1KY7+nYPvh6OuOmZ7BgE7bRs fYXyL9erfa1zn/59yVrWTud+Z3bbLLa84ZpaeCQM4TD+RiCiFB9R/2OprGs+ zc6QBIyFVQszmljAmLKJ6pLKdbirHVra2lUd74CONrImIVzbOYDqtp5Ta4Gu 3mFIZN1QMzXaXdK5SMdjqBigfiv1v2kFypC5TPdtdAvbNuwmxCJdJmW31wFb T9XFascxZ/9EYGGjxKqs135EZdZMarYrCzuayNI6VWGLGOuY1WoTFE9mmf2r tRkwy0wk/tGuZl2VaHaPRDkYTbulsFh4ELrag7RPa2Gjv1cpj0tYQdKSUe0u 5rGqUd0C9hJTxUlNjNpKo36x0oxG1Gez7v4Gb5bNSgdpNxxqd9syCtpNu7lR N1+quv6jKvqJZGGbB1ITDY9ANJm1hFerU/+67iDbrXJ60izphnTIdnckVVRK bAXDlQCqMzaqoh+Lo7urwRMRGBmNW/u4EOXtNtRNrp3Mwmjx8sGC0e/U9m3/ PVwnspwMtZvNL5FU0b6rdrsWVqglhel02u9XaU8V7VZMhEOmjRmOu6m4SEcQ Xzvy1EQ3Ry1uSvN9ua76ZNi0r02m6g1HJ9kmZie2B9G7DHG7VoEzW+lMul6/ Q1anmu0J6MWGykxdkiX0zIceInRAPL0vcd8OFXhO9cWbbVMYSxcSTyVhdNCu oUTTNMoVJiADB1fBQJmdNTsHQpj5syB2eu+LfrNuARtS3KbkXAJ6OzogFAqp ZqmjEdsnFUMHOnWHdU/NlVvxfNph3hQrbwZW4+WhLmjvCEFIxd/R3t5gk2vH r8p5JJ4pJFc8eVWSXOW9wgtLrniaqJBcWVt1zz336PeO8JVibqt83kUq2i+w ZxxXsCe9K/fK5OM1eUfulS4SYV7grrvu0qcUeNtOdEOtll9zptdysZ0eHh7W b1YMjUT1WHp5hYaR1iUpDmmzsdSSl1nerByN76vjt99+uz4kC18uVt5OsbFh CHTCN8vvvPNOP8NIAOKDLdqaj0bV6Np0Z4p6uX7WjuKQtpR6e8rlTFjFOMq+ Crx582Z9CgEeDKHPlCBLdgJjA/nG4wruuOOOymxgNyYF/S1BHEYHVlRpHQph CwOuFdXXyPLBfWpBnd4LgdGgCnK5HMt44awG5a6foz9sRH0I2N2nzRSGIWkY bGvWU4G1uzmN1+pQIMpH6bhmd+ftNTko6NXLno/AF+uzFG655RZ9rgKK2J5q 4sRto6MTZvK2D2md62Rn6lgx50CZGCSvGrDKEJ1Hg2cwIr5bb71Vn/ozpaxM /plnTpLrGJnEfBY3MJuJuZNtq8e7w4wUSc4uGjbkqvT2YTnrWz6uhZyJhCcn /PrXv9b/0SIjLfj2ugpRg+WmihsDYwnif/vZNA61u+whsNS5Y6KYOJ66hGBu uukmnX38eTIe1+fep+64o8xJQa4pSoxBRA1bEjhz1NyrBwcLbhKF8deCm8Ry cVQ8zAljv/HGG3X9waMEHnjgATwXsgb3RdbgiZL6U8AcLpnQu3UTuEdmp58a twZ9+CQmhv0wTBxBKDDmuCZzStEzqmzwcjy8WkLVFXd3iVgYODUW06Po7u5B mEhlVyyoHEpGVysWVARy8Irs4w9aA9z1dP3118O1114LGzZsqINrrrlGxXn1 1VfjJ/2rPtdo51ruHKjZTV4btDN2dRHDDTfcoDFNT0/TBa0EGa/ym7zuOqog x8tlIr3nX83RAT4TQN4ovX3dt2DAWgvHIx26rYhP1XxYMIQemyrOspxjm6py 4XzmRs6pkCTL0t/YjHjoPlamu403Q5UEX+LZT94FzyVifp/M9dEyxL1tOPn6 CP81d/MZ4b9frh5HMe1hTu1kFDcd3qNjcbRDc1bcGglHx2L7WOy1lnslbC1y vTiSYcNGz05M8IjQCbc4EjYcudH8BcdG8xcM29133+3xWsu9ErYPyLwdYVtd xIazAWzCIPBPLGGaMVBtA40usZlg3v/J9ki4b4yRn9mNI+ySIHXeIBbxB4lN 1VtkbB7GEGN8bHgfKIzvP8SipvH97bffzudGxHmBD7Fc8HkBnovbbrvNL3Cd N7DNz9/JJXAoyw9Kkg3YAyzWwnH2fMSuhElZQo16B/sfYs2ONNjnuUJZyeHl pFV4m7F/kAvK3Oi0RGcMS7aKgVq5cdYrM1Lb+7wuLvJK1cY7ylR9NxogYxdz Txsg731el1RFO3JdqFCL9YGOr3P/6khecW+N0YdkK2suaCvcDeYzHRF4FeYj 9hgPNTrHjWVnRVDQNHalOyBeu2mcPcaDoW2R72SS66OZS6heZ64qwSFhtiqf I/crDvRUZfwpM5kVeOVms17Tpyr36FZmJo3UV1RxfVj630pSox9J4i2P3kvj XifMS5itmh+WW9kDWNW0N4Lq30cffVSPmn7xi1/o2cYrr7xSBR4eHlZ/N2zY oGcf8Vd9rtHOtdw5ULMXeP3JZZfBlUNDuy3WpiJn/L3qqqs0edcpvpFM3FZV 6y6DNfe21r+iVDcUOV/+4x/D0OBg4XFJqD27iBfAcBkzMT8/r+/Jzao27PcP PeTlfc/O/mvudQH82wuF2+QOQau15Pp+6O5u/Y3cXlCDBbxfGy/IbrXBs1NT sOnLX9YXOP/h2Wf/RTsHPiKbtA+wZoKuzqbI4yMj+kpr/NbCgqM7Jvro+PhH TeSrZeQthJzdKt7CkP/qvPM08hYP8rv6+xH5x0zk/ywj/1sBOUX+4M9+pq+0 xm/vl5G3m8j/1Yv8u99F5O8XkL9fQP5+GfknTOQf5chVxbHI3ycgf7+A/L0y 8jUm8o/LyN8rIH+vgPy9DDmCsMg/ZSJvl5H/jYD8vQLys2Xk55rIPykjP1tA fraA/GwZ+adN5Gtk5O8RkJ8tID9LRm7uDAv8m4z8LAH5WQLys2TkHSbyc2Xk fy0gP0tAfqYXuQqukF9gIj9PRn6mgPxMAfmZEvK5ubUm8vNl5H8lID9TQL5K Rv5ZE/lnZOSrBOSrPMiff+opF7kH+edM5BfIyN8tIF8lIA/KyEMm8n+XkQcF 5EEBeVBG/h8m8s/KyM8QkAcF5O+SkX/RRP55Gfm7BOTk9uLzzzvk75KRd5rI QzLyvxSQU+QP/vznDvlfyMi/bCL/goBckdpoI5pT3Zk86J/A6fpvI9ZAyP7+ 90A/8/N5mNf/5wPvtOEwsafw9poXXwy83bopH5Cfy7tvQo6/YkB9kcWCOb7/ qqtUVxbd8G8eIuvWQF94A6xdMwAzyvXtNra56XHoXBmANQObEfXbtHOD+jMD favwDYRV0Kr+r1yzER+/VT9uUn/mYP3qlbCmbz0M9AzA5JzJVyoaJbICXzXA vqT/LcFCg/l83lFgswXz29er2CP680ykE1avnwycZsF5/NPtblv7WqFni06y nFfaCgP5rdDTuQHQc35qEqbzEFgpB6mjINNhla8t2vmhX/0KOQ58rTgv+e0b zPuSrX0wPbcVVqvPK9duhERkLazqGddB57b0wKp14za1xWXDWOZgS08rrBuf Pa1CEuQdpiOwdl0EVWSTqBRGKSk/B1sGWmGlgrWuOEeKel3WkXGV+VblRX3u GRiAH/d9TOVoi5ijcmHCVg1FOWr08+5mEiYHVkPnphn9bUUFaCaZPIxv6FTP W2F8Zr4kVzAN6xQJfZN5mN20RpOzNjKtcxJYu8nyuBZaB7baXDWUC0MIx02m 9LeVFZKBuUnYGNmuk5ndpFB2bq4cRuVoatoQONm3Gga2zlGuvmx539ypilWX SR4GsI6uxro5AwOrV8PG8U3Q2doJKlbDe1MZ7wrRZARaVao947OBP/GNGmC8 bw20rlmtUQ5ssUXq432gEzr7lFpUdjduzxfhb4KpCBZYD8xqTfXpwtuqq6LK +vbtMDsPFpCfX+NfGZGq/M5OT8H0bL4qvzNT22FqJh+4mItJ6Xd+Gjb2dCpz uBaM8ZmCvtVrYbPSXb1Vh7IVhC1wahXh3rKb/HzDQP2GhfGbiy7C5k5/+5F1 e1mNtLfffLP+9i3uHduAad4E/9CGwAYLG5qtaqTZa0JcYkN42tXLyFmlQT1a 1YB/2wTqsU89Lf1pNhnd0n/96/obuWFLj3E/n8k4C09wbLv3nybyS2VEK21E vKWnyHlLv4Ij37iRkH/XRN4rI1/Bkds+ygqGXPdRFPIVXuTf+x4i7zORf1tG 3iwgX8GQ3/uTn+hvy2Xk/Sby78jIlwvIlwvIl8vIv2ci/66M/FQB+XIB+Sky ciOiwH/JyE8RkJ8iIKfIZ5NJjvwHJvJ+GfnJAvJTBOQnScjvvttUmMD3ZeQn CchPEpCfJCMfNJFfJiM/UUB+koD8BBn5j03kAzLyEwTkJwjIT5CR/7eJ/Icy 8jcLyE8QkB8vIzfV11q3EuTHC8iPF5AfLyM381GBH0vIo9E3CciPF5AfJyO/ wkT+E4Z801e+QsiPE5Afx5Gff75GfpyM/EoT+XoZudkB28CRo4v+/sT995td dvVFIxWboQBtnvVkZoNJ73I5M8fYCFlmdCmNtLUFKLGB00/XbRXP3DFy5oZN YlfImTvaRoiZubmzE3557rlwoeqv/NeJJwZojx62zxfW1MAl++0Ht37tazpn R7Oc/fanP6WcXWMSu0rOGQ1FHr/3Xnghl9PfDrZen374YfjpOefAFe95D/Qc eGANolBeL9xnH+ofBMwOvEWQvOUWjZF+v3P00XDl2Wdr7MrvITaVZx97DBPV 32o83Nz9/e+j12sN3A0yN9R7RfKvet/78HGAIsdc6fT32QdRaqxTY2MkgIDZ XdcIt33zmwWsKi/0P3bFFTauRRrkZStW6Hzhj4fTjQbk1TZGXWlVKeAsMob8 STAI6xoa4JfnnRd4g0X3i49+VLupX5V1/FsLd/b1edDVwsYPf7jE3+2XXur8 HWQRvvTCC3DFWWfBxY2NcHtPj6Zxk2Jl4gc/QBpHDMIf21jZKpzqNOLfOr1k kdm2Dbb98pdw+7e+VQO3XXqp8poaH3deD7IrHvMvvggPXHut9kH+Jm+4wfk7 1K443X3ZZfjU/T58882KAHzWAJPXX+/c71YgsQ/3zPT0Enx8ZSlayu8Fgtvl 3Hvx6j/+CHetBz7uc9m6tPxblETxI32jOFaP1/bq89e9Nnq9ll78biabqPis xbWl2uBK1XMTOj9ZM194O2NhN2vvOc50/hcRhRtx6Ep2xUBR3TOtDt78zW4a d2fkvfZ52e2EoBO/9PzJJ58sIsRs1ce9Efay7vNYnHRX97Zt2wQLhluZjHnZ see/+SK5LWVuaFNx54dADr5cYi8fPt+GIEbxHQshBHsjqMOG4O8rXeEb4nyG it7R8U9jd7/x/GpzX10uz/WomvbKWmZ3dzH8uQ3Bj7Ond3ViYTxKuhfGktmi eywXEjO/2j4HE2E872IQ7waFwf5BjBmSkRA0tw9DMhFx11Of4KEN3xYSqia9 /vcXtjLz47uz6VSt3m7QoC+kwQvX6d55c+F6+jgdyv+lQX+6S7OYhdHBbgh1 mUvv8dztcPxR6FcdSXMHlkm8aywd0Be6Sq/5+bP6WhkgOuyVLq4v8DjjDqmr FMcy5lahMtgDU/5CUKffteYVdVPC55k2BL/7e+Fa3zONWeEMWuEu6zp+lzUG q7YUF27S/oxwVHXT8Zt2xQCSOat0zS9dt1t9EZ9mZbcr9+CesOBU6apavNaz u6MfT0N1p2jg6eDd7b14j6Ht2r0i97iSG6+DS+wT51Z8h+tij0QqmG93zF8m A5lMxmEwfxXdaX3BidWzOW0duyXmwNYU9CrzOpLMEeO5+BA0m1sN3E2Bu3aN pyl1e42n1pGC6fz7EmN/7VWeDbvc5JgMHaMzMRwKAp11HWgOQdQWdD4zYQ61 tXWtV9X9YK+9GTKXgK4gndYf1QdBmcvk7BGZ7tI5PPUaRWQvysxjG9oMLUPx Aqk7eX0jXbuGRHcHCX+7PmCXXbPngpbcKol/za2S/H6sknsldrZ1PaakfMxR 220wlsrpo/QG2wIupzO6yrUr9jMQGwk5ZrW09InFeOhoVjO84Z8CrheC1hAv BQhFEpCImHB4lTRdi/PIzapfFBrVfu3deYFautDD3O5bzb15Ae8wCX/Z3Xl0 q45+rG9DVRBHE5BWzWqLtSCqadVM0w2FXnr8bgIsU0DeW54r9wW8l4ziDQ41 1uxlJ8wxYngIvr6/yZzfosHhycB0iUHG+jOnBNNlJmk64DUTHXQVKjQSp2sS zY1Q9rqGZLx+t91D1qirMYJoH04YNktuOS2+K62xCiorGxFOpbGEjMqYh8pA gcoJdh9EBSrxjjy6YEdlhu5SMDGa+wDsFVGB2t1zPRTd36WLwB3nndHRtdjL RpVfCsrusQoQOm61LcOucareiJhyOxIi+radfncbQ1Sf0d+lb6v1Y5ZKwNwe pcxyGzMaZKaVuR/WOdDm2ekvPao6xaGI9mtvAioYjV28BajRatZcJd7umgVd QOaaQ6dFdlORs+M7Wf2LOsyeeyDdLU4t0G5voOgfS9lWvQv4hVJRPNUdGzpz R5s5oXxf3fmN491ToRsLmTH3ZDj1BDoKF7GGFfntG7a5JjBV+WYXGrBo5J4b XUi0xvqOUnWxNaxXNx5KB9IZehXunqnZLazTlGE+l4aJUTxdewwS6RwZC7ym Is6uMsimEhBPmsupJqzZGhyL6VtNjalrhsF4BpLxGPqj69jotgt9hxralSA7 hH5nr9qgqz/0wb4qPX7VBl6xoBqnosN/2R0fRDe/QqNBaEarHpa8gUosk1AU RnXXtHBWYhIG1cgTq3Hh1PuY6n8PaYns71qhnbr9YF/bZle4Y8F7y8HCzR5N wlRxqv1+tmj8DsmXTq+vZsKpqjPSd3J+qbqTwHd9XskNmCsfX72XTSPtitvC p4/OsDzmkmPQjVdPm9PkTvVEVLlAzrAmPJuKw4Syd/qMQNWUY/2k2Kon/92k SH2FXgtMKLmfspMN4qtRDNzoZSHSaypBKJzYFQgLn0Yi2pJj/dBmhql2Hmcn rbIr1eQEjMXUkAUv+zF1eCdK1YktNQGD3d3Q3TuIV3MsX3BE3snECsbp3F02 N+e9bkM8uWTnjfHS8FkLY6eA8RB0CpiwOus9m+vTVj87dhSdzSWELH9G1hoW BzsjS4hDPJdqDatNwrlURdG8fgrUHu+1odxZUkUF+foJOrvLQ12Fg1Dwjecy 1OPP/7ETT6p+upQ/1b8VTkkROP4/dnTF3uG1vvzxALYIdYnesOd8Duzz/wFG w7BO\ \>"]] }, Open ]], Cell[TextData[{ "Lets first derive the update rule for ", Cell[BoxData[ FormBox["U", TraditionalForm]]], ":" }], "Text", CellChangeTimes->{{3.40106422290625*^9, 3.401064229140625*^9}, { 3.40106780728125*^9, 3.401067817078125*^9}}], Cell[BoxData[ FormBox[ RowBox[{"E", "=", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], "2"]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401068003703125*^9, 3.401068005984375*^9}, {3.4010684503125*^9, 3.40106845084375*^9}, {3.401069721234375*^9, 3.401069723703125*^9}, 3.401101825140625*^9}], Cell["Taking the derivative we get (stuck?):", "Text", CellChangeTimes->{{3.401068124140625*^9, 3.401068137953125*^9}, { 3.4010697499375*^9, 3.40106975709375*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], "=", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], "2"]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, 3.40110182678125*^9}], Cell["Applying the infamous chain rule:", "Text", CellChangeTimes->{{3.401068141171875*^9, 3.4010681926875*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], RowBox[{"f", "(", RowBox[{"g", "(", "x", ")"}], ")"}]}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "u"}]], RowBox[{"f", "(", "u", ")"}]}], "|", GridBox[{ {" "}, { RowBox[{"u", "=", RowBox[{"g", RowBox[{"(", "x", ")"}]}]}]} }]}], ")"}], RowBox[{"(", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], RowBox[{"g", "(", "x", ")"}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401068196328125*^9, 3.40106828534375*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], "=", RowBox[{ UnderscriptBox[ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", SubscriptBox["Y", "i"]}], ")"}]}], UnderscriptBox["\[UnderBrace]", RowBox[{ RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], SuperscriptBox["x", "2"]}], "=", " ", RowBox[{"2", "x"}]}]]], RowBox[{"(", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], RowBox[{"out", "(", "X", ")"}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.4010679574375*^9}, {3.40106801609375*^9, 3.401068017203125*^9}, { 3.401068301484375*^9, 3.4010683318125*^9}, {3.401068458625*^9, 3.401068462046875*^9}, {3.401069765953125*^9, 3.401069774453125*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], RowBox[{"f", "(", RowBox[{"g", "(", "x", ")"}], ")"}]}], " ", "=", " ", RowBox[{ RowBox[{ SuperscriptBox["f", "\[Prime]"], "(", RowBox[{"g", "(", "x", ")"}], ")"}], " ", RowBox[{ SuperscriptBox["g", "\[Prime]"], "(", "x", ")"}]}]}], TraditionalForm]], "Equation", CellChangeTimes->{{3.401126662653432*^9, 3.401126691295251*^9}}], Cell["\<\ Now we need to take the derivative of the neural network. Lets first replace \ out with the function from the top perceptron\ \>", "Text", CellChangeTimes->{{3.401067984109375*^9, 3.4010679908125*^9}, { 3.40106803671875*^9, 3.40106806425*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], RowBox[{"g", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], RowBox[{ SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}], "]"}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.4010679574375*^9}, {3.40106801609375*^9, 3.401068017203125*^9}, { 3.4010680755*^9, 3.40106809415625*^9}, {3.401068467046875*^9, 3.40106846740625*^9}, {3.401069777578125*^9, 3.4010697799375*^9}, 3.401101829796875*^9}], Cell["Chain rule again", "Text", CellChangeTimes->{{3.4010681146875*^9, 3.4010681163125*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], RowBox[{ SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}], "]"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.4010679574375*^9}, {3.40106801609375*^9, 3.401068017203125*^9}, { 3.4010680755*^9, 3.40106809415625*^9}, {3.401068469203125*^9, 3.401068469546875*^9}, {3.401068517109375*^9, 3.401068528765625*^9}, { 3.401068571640625*^9, 3.401068572921875*^9}, {3.40106978396875*^9, 3.401069785890625*^9}, 3.401101831421875*^9}], Cell[TextData[{ "We know that only one term in the ", Cell[BoxData[ FormBox[ SubscriptBox["Z", "i"], TraditionalForm]]], " sum will remain and that is ", Cell[BoxData[ FormBox[ SubscriptBox["Z", RowBox[{"i", "=", "k"}]], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.40106853334375*^9, 3.401068552984375*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], RowBox[{ SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}], "]"}], " ", SubscriptBox["Z", "k"]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.4010679574375*^9}, {3.40106801609375*^9, 3.401068017203125*^9}, { 3.4010680755*^9, 3.40106809415625*^9}, {3.401068469203125*^9, 3.401068469546875*^9}, {3.401068517109375*^9, 3.401068528765625*^9}, { 3.401068565203125*^9, 3.40106858371875*^9}, {3.4010697974375*^9, 3.4010697996875*^9}, 3.40110183340625*^9}], Cell[TextData[{ "Done thats it!!! Sort of. Lets look at the derivative of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"g", "[", "x", "]"}], "=", FractionBox["1", RowBox[{"1", "-", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}]]}], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.401068591171875*^9, 3.401068615828125*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ")"}], RowBox[{"-", "1"}]]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ")"}], RowBox[{"-", "2"}]]}], FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.40106913734375*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ")"}], RowBox[{"-", "2"}]]}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], "1"}], "+", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.401069173671875*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ")"}], RowBox[{"-", "2"}]]}], RowBox[{"(", RowBox[{"0", "+", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], RowBox[{"(", RowBox[{"-", "x"}], ")"}]}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.401069203109375*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ")"}], RowBox[{"-", "2"}]]}], RowBox[{"(", RowBox[{"0", "-", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.4010692123125*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ")"}], RowBox[{"-", "2"}]], RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.40106922653125*^9}}], Cell["With some manipulation we get:", "Text", CellChangeTimes->{{3.401069229453125*^9, 3.401069233375*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ")"}]], FractionBox["1", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ")"}]]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.401069252609375*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}]], RowBox[{"g", "[", "x", "]"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.401069266484375*^9}, {3.401069536984375*^9, 3.401069538*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ FractionBox[ RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "-", "1"}], RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}]], RowBox[{"g", "[", "x", "]"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.401069266484375*^9}, {3.40106952140625*^9, 3.40106953984375*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}]], "+", FractionBox[ RowBox[{"-", "1"}], RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}]]}], ")"}], RowBox[{"g", "[", "x", "]"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.401069266484375*^9}, {3.40106952140625*^9, 3.401069571984375*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", FractionBox["1", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}]]}], ")"}], RowBox[{"g", "[", "x", "]"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.401069266484375*^9}, {3.40106952140625*^9, 3.401069581359375*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"g", "[", "x", "]"}]}], ")"}], RowBox[{"g", "[", "x", "]"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.401069266484375*^9}, {3.40106952140625*^9, 3.40106959628125*^9}}, FontWeight->"Bold"], Cell["Recall that we earlier had:", "Text", CellChangeTimes->{{3.401069611515625*^9, 3.401069617125*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], RowBox[{ SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}], "]"}], SubscriptBox["Z", "k"]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.4010679574375*^9}, {3.40106801609375*^9, 3.401068017203125*^9}, { 3.4010680755*^9, 3.40106809415625*^9}, {3.401068469203125*^9, 3.401068469546875*^9}, {3.401068517109375*^9, 3.401068528765625*^9}, { 3.401068571640625*^9, 3.401068572921875*^9}, {3.40106980928125*^9, 3.4010698109375*^9}, {3.401069879453125*^9, 3.4010698805625*^9}, 3.40110183990625*^9}], Cell["we can make a simple substitution to get:", "Text", CellChangeTimes->{{3.40106963990625*^9, 3.401069647890625*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"g", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], RowBox[{ SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}], "]"}]}], ")"}], RowBox[{"g", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], RowBox[{ SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}], "]"}], SubscriptBox["Z", "k"]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.4010679574375*^9}, {3.40106801609375*^9, 3.401068017203125*^9}, { 3.4010680755*^9, 3.40106809415625*^9}, {3.401068469203125*^9, 3.401068469546875*^9}, {3.401068517109375*^9, 3.401068528765625*^9}, { 3.401068571640625*^9, 3.401068572921875*^9}, {3.401069659234375*^9, 3.401069675015625*^9}, {3.401069814359375*^9, 3.401069817015625*^9}, 3.401069887984375*^9, 3.40110184278125*^9}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"out", "(", "X", ")"}]}], ")"}], RowBox[{"out", "(", "X", ")"}], SubscriptBox["Z", "k"]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.4010679574375*^9}, {3.40106801609375*^9, 3.401068017203125*^9}, { 3.4010680755*^9, 3.40106809415625*^9}, {3.401068469203125*^9, 3.401068469546875*^9}, {3.401068517109375*^9, 3.401068528765625*^9}, { 3.401068571640625*^9, 3.401068572921875*^9}, {3.401069659234375*^9, 3.401069675015625*^9}, {3.40106970803125*^9, 3.4010697083125*^9}, { 3.401069819296875*^9, 3.40106983359375*^9}, 3.4010698896875*^9, 3.401101844234375*^9}], Cell[CellGroupData[{ Cell[BoxData["plt"], "Input", CellChangeTimes->{{3.401067561953125*^9, 3.401067562328125*^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.40110159640625*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQl8ZEW1/iXrbAyL7DuyQwgD+hQ3wqAgLjG4Gx3fkxfNUyESl/gcNYoD ASMRiXEJUZwITAAnCg1Kg2TgJQNNIATCQAwNQxMahoY0piEN02DA8z+nqk71 6Zvq252ZAcE/+f2S9K2u5auvvjp1qu69VbWnf+vLX2o6/VtfaTj9gPd/4/Tm L3+l4ZsHnHLWNzCodDvP224If285wCvDz+B5OX/oZz39eePztvi8i/pXCv/8 5z/B/HjVjrA2+nsQvPTSS/jFyy+/bL/ooL8H0xf7yxwXyNTw9NNPQzweh0cf fVT9f+KJJw6EJ5980iunjzlfYVQsIQ8AX9kHmDAsPBePL8wVb183WoJBv3// +99hZmYGnnvuOXj++edLYPPmzZgDfqRP9N/TYWUybJtF9YfR31IFhkBNT09j GMIsyUvUAkmUi/83FcH/XF4XyrB8WXtBeZc48s5pi3JVG0oyOTkJzz77rKr8 AshkMsggUYKf1C9+rpxXcJkKrrRN8Mwzz6hCqDD6wYK98330vYKCKNishXSt ImOBryY2LQ6G4e0nm64MnnrqKXjwwQcVs5jBwm3dahREWFOpFDz00EMwNTUl Wq1ctdq8pFMqg7GGwQIh83ehKqrCNoSvuHmXVuEszW9PS+GBBx6Axx9/nFrE O1KlLFcpqYU2bdoE0WhUUFFGXbDopsjPgovwLAvligUKEyV58y6qwllUIpHY P1dd9957r7I3FNsKIzfDBUWGbS8wUpYbNmwg9s43ZE9MTFiy98lDdpaGMkUD hZk0+4jcOcnf/vY3X4vec8891K9UFzzKpGAC6DuLpwzGxsa2pOaLHLVEqBcK W0JB2i7PO99Smy+i9XyVI8QkCKpclYlO19SGWZmWwt13321J2NdBgoWrSaZs TfR9Ta4c+6677goCcZTggsLoO9HiVBZH3c+H19/SFGbiyqhUlTk2MRdE+TaS bIEK7OuI6iNS1GFfURgFjY6OBhF5uM88mO7tbF0Jqti6L5oX+PnlWnQldzTR M5k0JBNJSOPVngEylhXdwRiMTDoO4f4+6OvthZ6eXhiMpdDUBZMXILUdDC/x kRD09PZBf18v9IZGKn0mVOaIigyoo8WZiUNXfQ3UN9RDVW0HRNMZb4/51jUV gSqcWnSEB2EwPABjibSlfB51SyViMNDTAF59D4xFE4vn17sYTHKwFbymAUVF pLUGWgbi3u4+VZlKueqkGV2Cf5PQW4/zzqY+SBlmiau2Kgyr71Vh0f4WqGnq p8+Li68uD4XRUAtWpR4iiexQONJTj2G1EEnqElORNqhpjSwpngqtMDYZwXW4 raMeWgcSKjwZ6cCSBk33qVDXZt5tfmtgMJkpN31MCs5hA1zMLrDYotCKOVa1 hnUdx3pUCa3YUCXMTRgbsbYHEni10NF4+U3CAtPhBztqMNcmGEtlVIktVIeG furLpr7E7CC3m+g0QZZB5740qA4w0lWv/gtWITUegpamllJobW3FCrW0NEFH aFyzl07hCBZVjULZJfE6zXaMXfSgnpixHKF9SY1AA+Ko7x2AUCsx0ABj6Uyp qWWoASEOJgyhhVvS5y4YmrOloX0MtSCvNR0QGdB66YgkuBHTI7ryHNlv+nzG Koh3l29Swj3VXWeYwhb2GnT7DCpDkIB0MlYOIyMjiOeeh6cEkiR01XhQ0xFx DSmlxQ++i3i8SQxCvek6tR0RnVVqHPr7ByAaG1Ot3TWWcjZygO1YaFsbe3aD 6ZlVrRAzFYkO9EJLPQlpUEOReQdYDpq/ZOEvccNHy9HbUAM19bX42wUx5Bj5 hEgkUqo4rYSRSAQtd9LFq7e4eBvsam2Wa7S/SaFq6B0zApqCwf4eaGttg96B 8fn5D66CStmLiIc0vTgoxk19ZqYehZGBEIQGY37DUcCl4OgCvikJR6xklrFU NAytLa2ethSV+LkFuthS+BiVo4LLOOQ2arlK21ObNemtoagyZUUYV5MV5zTe p2tRpYyqGlxMTkVb0sKgSgPlU7APVkA61q+ybArFIB3tU5+7IomlPtoKdrdK Jf0OGjRraeCPKdPvoa1Oi3pvxSSA59x5AOfwpdKl03iVgJ4t5aYSBlqr1JDO jkZiUJvvnkjC6KrYPrTQ9JfUSJfKoSUcM9ZuTJnlqrYB4mkJzKu/FIOTqy1d FaSD/Ywtm6LMHRBplBtTnX6cKsKjW3wkDGtvul9duRqg0Kxl7liYjEUgFBqA eDpjHaFMYhxC/WF4dGazN08K2W8KwN8/MM7jlY2ajEdhMNQLfQPRQgaGS9qr AOMBPWwv01fnP4EJWld4debz/kWFgBHtlQFBEQ8rwo0rcqEg2LH2LxQUsO9H ujybfO7rnkVUIo8v6tJeAceSWKU1I1qulG04Z+mtlLqYjbqvI6qPLgoy0SVd eRao0GdSq/d+LVEYRpc47rzzTht1X0dUHw4KMtElDgq64447cnGUkQOnFoxp sRKjHSFGGgpKJBJw++2356wv33bbbTLJ3nmS+BeLKUwk8/YWVeF0t956qw8f hqhlcboVoW5bsLIOEcWSh0Lr54RMIl2/fr078e55EvsxU5jIwPPnUJaTw9DQ kA89SYh0QfVOp9MCePZWA4ar7ykeqVNWgNrSn373Aun9daAwkYcnMqlwZoLS zKnGInU77+abb6aVbBXL3PGwqU3/41tN3AVNcJk7mO2DCPby5OCKWmrm5Hyf im5AEb5bbrlF4b3vqqtgNpM5z1SBFuJfoSosygnOh8f20sWqVUjtReDJx0gg oIUFAT322GO5hkDfB6dbAjfccIP6T7KnJLTmjra0hBCiosisElb6bz5rG1+6 1RHQx+FwKpQKp3vHBObGG29URp9+7rvySrjxm9+EqfFxecf7lcJeoqAtCIRk 2xaZR6bpJwCOtw3wVObFQ93f0bT0Q19ff/31Sndkme677z6631VCN7BK6Daj +mTuONJNLboq24pvdViFuqlGhZE5o8IJBIIpMVaK8D11//1wwze+Aff09lK3 9c4RTbvNsC+w3wYiyr3XfoGxIE9jsqcwGf9sE0SLCiFifeVpUvoh60LD+LXX XgtXodVbs2ZNGVx55ZVY2BVXXEGf1C9+LlHBpTLYK9lGUStUcF9fn8Jw3XXX KUxodvUzJRUWMrYu3LN6NffhVRSmGEcloF1Sg/bVV1+tsrvsssuwPMwU/152 6aVw8U9/qorAKpao4Ar6qIL497e/+AWs/s1v9NeL1NeXX365yu2aa65RuW9E KziFlM/+4x+qpVFj/JAFNfJfzjwTnn3iCS0DLMEPqufnP4fV3d2lqoTKHAD8 uefCC+mzwb5wThw/IuzEujjTzG8zcO7Aymy86SbDoA57Ee35zT/4Afztj3/E 0rWf4Os9XJvH7rgD7vzlL9VVpQmLobaIfhk2htRyPD8TyYkJG+/5ZBKu/9rX 4B9q5NVhf/32t21Xqc5F/wzavXBzM7z0j3/YLAj9uu9/Pwe9TxEXmKhUmYdN 5Tn5DA7jf21pyQl7eXYWbm5tpZp5FzjQM9K7L7kEJrANdQ/SYVSkD/3bzVfD 2Mwb//rXnKIk+gVu7ttN1Ju+8x14FpUjS7u+qQk2ox8us3wObTghRbI8TutC T9z/5YwzFPcLC6OX3C8IQJ/D/d/+xnOODI42VBqoQU2HkULi6BDLGj2OcxNq DzLZ5zvQc1rJfQD64x3cu9AvdHPPjwo+NjysspClxdatUyhkmNQ9p3Whl9wv Koxecr8wAL2P+3NNVKoMV56TS91zmNT9uQ70jFRyH4D+HQ7uXegXublfZaKS 7p9Bn0SWJnXPWUrdc1oXesn94sLoJfeLAtD7uD/bRJW659Kk7jlLqfuzHeg5 reQ+AP07Hdy70C92c/8DE1XqnkuTuucwqXtO60IvuV9SGL3kfnEAeh/3rSaq 1D0nl7rnMKn7Vgd6Riq5D0D/Lgf3LvRL3Nx/z0SVuufSpO45S9I9hZPuOa0L veX++ee97Qujl9wvCUDv436lifoCzjL+/NWvqisu7c5f/crqnrOUul8p0SNS Qs9pJfcB6N/t4N6Ffns39//LqNDPGe7szCmN/BzWPYdJ3XNayT3Hk9wvLYxe cr99AHof999mVL//PWzE2ZtEOoM+Peuew5Tu0fHDHu1924GekUruA9C/x8G9 C/1SN/ffMlEHVq5UBMjSyEdk3XOWz01NWXvPaV3oJfc7FEYvuV8agN7H/TdM VNI9lUaLblya1D1nKXX/DQd6Tnv3734Hf/vTn9RVAPoTHNy70O/g5r7ZoXsu Teqew6TuOa0LveR+x8LoJfc7BKD3cX+WQ/ecXOqew6Tuz3KgZ6SS+wD0NQ7u Xeh3dHPfZKJK3XNpUvecpdQ9p3Whl9zvVBi95H7HAPQ+7s8wUV+YmVH2nnTP pUndc5ZS92c40HNayX0A+hMd3LvQ7+Tm/isCFeueS5O65zCpe07rQi+537kw esn9TgHofdx/WaBi3XNyqXsOk7r/sgM9I5XcB6Bf7uDehX5nN/eNJurAd79r dc+lSd1zllL3nNaFXnL/psLoJfc7B6D3cf9Fh+65NKl7zlLq/osO9JxWch+A /iQH9y70b3Jx/8IL/+3QPZcmdc9hUvec1oVecs83JgPQS+7fFIDex/3pDt1z cql7DpO6P92B3t7KFdwHoH+vg3sXevsmUy73/2WiSt1zaVL3nCXpnvz71OSk x2ld6BX3GEbc71oYveR+lwD0Pu4/b6Iq3X/lK0r3XBrp/tFbb82p0aaREav7 zzvQc1rJfQD69zm4d6Hf1c3950xU0v3tF12UUxrpfvS3v80Ju/eyy9SSKV1x WkJP7YFk2HiS+90Ko5fc7xqA3sf9Z01U0v1DN9yQg5R0f+O3vpUTRrq/5Yc/ VLr/rAM9I5XcB6A/2cG9C/1ubu4/Y6KS7lHLOaVJ3XOWUvec1oVe2pzdC6OX 3O8WgN7H/accuufSpO45S6n7TznQc1oqgrkPQH+Kg3sX+t3d3H/CoXsuTeqe w6TuOa0LveR+j8LoJfe7B6D3cf9xh+45udQ9h0ndf9yBnpFK7gPQv9/BvQv9 Hm7uP+rQPZcmdc9ZSt1zWhd6yf2ehdFL7vcIQO/jvs6hey5N6p6zlLqvc6Dn tJL7APSnOrh3od/TzX2tQMW659Kk7jlM6p7TutBL7vcqjF5yv2cAeh/3Hxao WPecXOqew6TuP+xAz0gl9wHoP+Dg3oV+Lzf3HzRR133ve1b3XJrUPWcpdc9p Xegl93sXRi+53ysAvY97bjqpey5N6p6zlLo/1YGe00ruA9AzAZJ7F/q93dyf IlCx7rk0qXsOk7rntC70kvt9CqOX3O8dgN7H/ckCFeuek0vdc5jU/ckO9IxU ch+A/kMO7l3o93Fzzw621D2XJnXPWUrdc1oXesn9voXRS+73CUDv456nxS+m 01b3XNrIr38Nj65fn1OjTXfdpXRPd3Q47dMPPqi8YULPaSX3AejZbEnuXej3 dXNfI1Dd/rOf5ZT2yC23wOhvfpMTdu/ll8MdXV3qitO60Evu9yuMXnLPWbjQ +7g/QaB6KBzOQZpOJLhEG/bySy8p3T88MGCXUCV6Riq5D0DPA57k3oV+Px/3 tOyK3PPNC4qWeuSRnNLCZ52lOJRZSt1zWhf6559+2nK/f2H0kvv9AtAT9zTx MdzzLUepey5N6p6zlLp/pwM9p1Xc//GP6ioA/Ucc3LvQ78/c33ef5P54gYp1 z6VJ3XOY1D2ndaGX3PPWRwHoJfechQu9j/u3C1Sse04udc9hUvecVqJnpJL7 APTspkruXegPcHP/Hyaq1D2XJnXPWUrdc1oXesn9gYXRS+4PCEDv4/4tIirr nkuTuucspe7f4kDPaSX3AehPc3DvQn+gm/tjBarIhRfmlCZ1z2FS95zWhV5y /+bC6CX3Bwag93G/TKB68Prrc5BK3XOY1P0yB3pGKrkPQM+TS8m9C/2b3dzz 3m4UbToWyylN6p6zlLrntC70kvuDCqOX3L85AL2P+yqH7rk0qXvOUuq+yoGe 00ruA9B/zMG9C/1Bbu6PdOieS5O65zCpe07rQi+5P7gwesn9QQHofdwf4dA9 J5e65zCp+yMc6Bmp5D4APS8JSe5d6A92c3+YQ/dcmtQ9Zyl1z2ld6Jl7hOAd Uhi95P7gAPQ+7g8RUa/78peV7jlspLvb6p6zJIXRfIt0z/H+/tBDCimh5zDJ fQB6XkyU3LvQH+Lmnjl9YnTU6p5Le+T//s/qnsOk7jmtQm+453iS+0MLo5fc HxKA3sc9d/ANa9ZY3XPy9JNPWt1zmNX9TTdZ4yDRM1LJfQD6Tzq4d6E/1M09 D8v0pBzrnksjMlj3llNzT4R0z2ld6Gk+zNwfVhi95P7QAPQ+7qUzzbrn0qTu OUup+/0c6DktTTzH+/vVVQB6vgUguXehP8zNPU+Bpe65NKl7DpO657Qu9JL7 wwujl9wfFoDexz2vdEjdc3Kpew6Tut/bgZ6RSu4D0H/awb0L/eFu7nl9Uuqe S5O65yyl7jmtC73k/ojC6CX3hwegl9wnJybkjQrWPZcmdc9ZSt3v7kDPaSX3 Aej5xp3k3oX+CMn917/O3PO9QKX7n/40pzSpe+lRsO45rQu95J79oQD0kvsj AtD7uOcb00r3f/lLDlKpew6Tut/FgZ6RSu4D0Nc7uHehP9LNPT9OonT/8MM5 pUndc5ZS95zWhV5yf1Rh9JL7IwPQ+7iXD4Ep//7ll21pUvfSk2bd7+hAz2kl 9wHo+Xa75N6F/ig39/zoptQ9lyZ1z2FS95zWhV5yz7OYAPSS+6MC0Pu45yd0 pe45udQ9h0ndb+9Az0gl9wHo+UENyb0LfZWbe36uXuqeS5O65yzVO2zk3z/y iH0m34Vecn90YfSS+6oA9D7u+W0YnMFpe4+659JI95NDQzk1IoVRUvkWmETP aSX3AehXOLh3oT/azT2/w/bE3XfDbR0dOaWR7u/q6ckJI4Xx+ymcltCreyfj 4zae5J7XHgLQS+6PDkDv455fqNzQ1wfRP/85BynpnpwKGaZ0f/bZSvcVDvSM VHIfgJ4fr5Lcu9BX+7m/9FLivox1/4MfwN83bswpjcigeazMUuqe07rQS+6P KYxecl8dgF5xf8klymgn6S3pubrn0qTuOUup+xIHek4ruQ9A/58O7l3odRYV 8CS9zZ/lngXPq3pS65xEaF0iZVCS5mWFgUqaj8kLtDyH5tsuuIB0bbOXmub4 rGnijbnk+JLLAIj/5eDSBXGZUQJx+Zu3v13BQy45Z6lZTk7vN/y6upqytQgk cccWRiWJW+ZAxUSQEK/94hfVUG00GiDIctuk42vXWmG6RBgA8QsO4lwQdfRK SNxzD1tZvyADrG6FVJ9Ka5Tp6vDHFUYrCT3WgVaXugDuu+IKtqrqx2cAeJSR ouQw2bG5s0vj6xrkApDzM8SSZxdyLp58G7aopUK0gm92JqRo2V+U6NnQSuPr cu7eUhi95P04B3ouXlrUcoPexz1Hlbo+woGeBzlpfF2TmgD0/PS55N6FnosX GrfbA/i45/molDqHSfT83rh0OlyT+bcWRi+5f4sDPWcrNJ/zgr3gXi6ksO4P c6C3L3kL3bsWUgLQN5iv7vjlL2ktPqep5i4DlcLgOefA340Hza9JK+5pcUVz LxcQWfdymZnRyxeIKWw6FnMuIP5HfvRfNV+h5YDpabWpjtM9Yp4zm4ZhZbUH jd1DgLH3ciTn949Rx7JJdHA5DHcuV9tI1tXR/2aYyPCqxAL1BNaknoPqn8wm WNOM8VZgF8o4S7NuCpoS5Z4jLzxdIv/hpv/9X3XjpjygeH7S0Bb3ztNh4Mo/ 6Q02KlQWU8OdKtnyujr8Xw1rJma0hTFvPGHi2Y2wasVKWLu2E5o7h6Sf8zff dhgbOuugfVTj39OdnF9m9SljoakFIPlrV7WDyiQzCRObMvZJuMyGTljePhqU O5NG/Z0eWKGrXeeZ9fEm64m17bBaRZ6BiYlNOayUw8bVK6A5tEk1Zri5DlZP ZKwLSC4ey5HnKaPtdbBqeFqAd+fB/EiRPR2Ncn8GmITO5k6YnBUPyY22w/JV wyLrSlfW6vNTqKI9iszreBtvFta1r4TQ5KwZ5CwL4eZqaNe10jUcmrYe7PRw O6zo3qB5mB6CuuXtsIn26slPiCu7HYzCSDA3raSXxqegs7ETdN2moXM5inZj hofK2YnVsHylHpR2Kg7JXP7cSDi7VxbBMoNguL0R1mLT0A/1K0xu/QEsA1Zg FmhBjT9gxvm84HivrFAj1mtU1GuYG6wSZjZ0K1OwDr+eNZ+rV4ax9bPWaFi0 2s4BSIPK0wtuS5XEITMKdVhO49pJA5f24m2EDUquM7BuzRCoj9ProNpbhTFg p3nAJd6Z2C2Fq8vbfkugeluKVYtgCWzoRqNd3a3ynVhdp9KxLDeGQ7BxVrfy quo6GJ6BHC0UQkw1XA7NYTUMQxhr3rlhxohhMWRQxWpj5OYwTG3Ez8u7YTi0 CprXbtTKmgirvBGNeXctGK2jrJ1MMobpVTfD6OQwfl4BwxvXQeOK1TQUqyGq bkUjLKfRrXt05yIRIkRor0Oe24dfBwiXcZshtrVYukI2NKk73LoNsKaxEdYR uKkhaKxbgd0f861brVSWp9nzoUWlYRarYGh4NdQ1riUybLNP4LjhrRqCjeva UcToFqxShgzWNpvi1U8GZjLcoYqA7ChvJ1MezAwjayjejUPQrFyQOhidpT7U DisNTZnpTTC5iWVWLMZZmJmZfV1g5M5ORqQbXdDuiU0QatbeXCf11dlRaGw0 bZeZhsnJTYSvSrb6kqJQQmYKNm7cRGbnGEsMDu4rSYOjiqROskydyhOCjWsb YcXqCYwyS0nwX0ZZrJ3mBdgWubNJNjW0CqO2k3Rhcu0K+xkm16jPMxg5k1EF Usm6tIXFIDW+3hYiW1gEMn7/tDg4b+G4mQlo9AiOahANx7iW3ThA43BkeqBt ziKgqLmhktHsLDfn1PAaWFGNxmtIi2x2MgQruzXCNSs8WBme9E91vJ3mgXIX U87s9Ci0N9ZB3cqQHvTQ7eheqcwRbFq3Cqob12CqGRhe06yGnCF0tnU5S4vA OGqGquXoKCGruj/uOG+YS4uCuW7uxGlH04uLYZN0kJnJmCWhxTC8eiVUo+Xl QXbDmk5QIwxa5RVkiad1w6HAzYTUrI0VSypKAGEtx9lG99Ck3bhMTr3YYykE JfzXOXM/OyOinlK3vFMJRIfhDCqzAdpXagyZyQnYlOHtN+ZX7b05P8eMbA/x 3eoV1dDYuRq627thYgbM099l2pvCslav7oTusFkLFDN+7IzL0RAiOmZHTjb4 FTDf/M5WHO1oXXWnGlh5VgSbwtC8Srtre7pB2KhiUrWPTR7CeujZJSMKNTeT x6aujvRXYFpVYGgmqAK58zJLaRa9+nn5pZds/InuFbBSDz62ZhIGx5MTGDvP VjZ5Bka766B61TDPkWlEmJkaxhZeTnCPKlwROYGwnInpjAZRMacij952Gy22 7GbrOQFrw8YVXbcSvJVD2Xf7ckHtwTm6ffRsDTNorVaqcXN4apZrmJnUxrKu c5iaP6CGPF2WnjH3HIevbqhdqMLCyIonaktPKIrVEbtFwHBnI7onK1Sv7R6d 3ssNkqvkc0t5bks1ndykG32icwV0o9v/dvNdZmpSD46A3bZODZSer84T4XZl modtq+osZ0zPp5+HbrjBPE9U7vRYdcsvsNtd849vaY0f6pneNAmbplX+doOY F7JJ7RqYC71d4tEemrpi3oa7V8LKznZlTNduzDAJhHhl8ypoJ8/BOIOGBN7E CJEbEw32dSZ6dIMfzNzNxrP+mn02Pc+iKC2A0lI5qzUfEn4+kUd/uuJnt6Ym N8LklCbKLt8oP2dSpTWm8g/mK7kQ+m6DztcETDctQ9Leg3S1owijpcmM2uF8 bmmMdPP0tFq9l3tT0bN1vN8hb8ZGq/dcI7OMe6b5il6RpIfFJd9z96vCVk6l YErvsm2fFfLxzTtr0a2Luy6+WF1xGNfoqfvvtzda6P6+f5c0uQjN7+I5FqEZ vbwB8B4Hes72/quuggeuvVZd8dM2vvbg531o+ZxWOelqqQM9342iGwD/96Mf 0c452f3cfv97deORrgLQ83Zj8uaLCz0XT8XQo+50xc9M+LjnBWwKYjXxho0S Pa+kyhsAnJbURHswEfc1hdFL7k9woOfiqTvRjS8aMY/xcU+vgiD3HJVuG00O DqqrxQ70fBeWlunVjS/UPaclIu7/g+6AAei/5uDehZ6Lf/Lee+HWn/xEXR3r 5p43hJW65zCJnu+vSd1zPMk9b2cWgF5yz5Wdu5turu6Pc3Nv9/0VurdPMAn0 fIdK6p6LkdwHoOdNAiX3LvRcvNT9W93cs3WUurdPMAn0fENL6p7TSu753esA 9JL7Ex3ouXil+//5H6X7t7m556hS9xUO9Px2ptS93COeuQ9Az9tLSu5d6Ll4 pft2vfE5u2w+7stNVKl7DpPo7UxK6J7jSe55O7MA9JL75Q70nK3SfSikrt7h 5p6X/KXuyxzo+a1kqXsuRnIfgP7rDu5d6Ll4pXscl+nqXW7u+QaH1L3/xiah 5yFd6p7TSu7fWxi95P4kB3ouXur+PW7uddRKqXv1I5GzUZaa5yIk7wHIeUNY ybtGXiGRqzRG77pLLMqh+6UXX5QalyhPNLkJaUta31cYm2RVV6U8B5tRstHL ghyvhTZHJOkKQMtNFkKtzJbd08OB5psOpt5r2o7RrP30p0mVDJIZ+t0JJ8DV X/iCajNOQmq79ktfgj99/vO0E0ARBUsamDWaq3Ufd5zC/j6TM9177jrsMLj0 1FNJSByVHpHo+/CHlUgCSuP9jV3VpPpQNob4k4xEiVvqOPega7eutVWKwrRJ mWpxclrpBbLbL7qoCACuVidBk82SfUrra6FFQdUng0Vpff6riVtuO4c0WAFC bAnoJP+3ahUbIgmLu6ZA5XGXJn7oGRr68XUiYw0qLV+0SQT9UEOzcQrozozU NQhYJ3N21lqJuZOwXMjaDi5QVogeWuIfH7GcVBodLoImVmycAgYA3hXcNfgS STzQsmWWyHn8kch5oCCrRA+LZdOW+UnnwVdwbpPTY1G8rVGA68DoXY4PixbE 6CnRH+9Az6MnCzmbds6kjJNL7rkYqe8A9LyfvMvpFPq2qCR6PjBHome/Swjd Ps/n456dTsk9+1dS8wEuM6N3TbboaRg10KLmXQfhvNWBnn1eoXkDaQ73nFxy z8VI3dfkR/8dB/c80SWu1v/4x+rKdZQMz5Ykep4YSN3zc2byaUTknh8kldxz cqn7gGk6o3ctMhAhE9dco65ch7Esc6Dn2ZLUPR854+Oek0vu5ZOHrPsA9HwK hOSeTRnpPvnAA+rKdZwJrxJI9DzPlrrPeRoxy719XURwb588FLp/T2H0kns+ UkPq3nUoRZUDPa9xSN3neeyQk0vuuRip+3fnR/9dB/dsx6XuXcc62MeVBXpe CJK6z3neL8u9fTVTcM/Jpe6ZzAD0kntGL3W/1IH+cAd6ueM+636pm3tOLrnn YqTuA9Dz2S2Sex4Epe5dRwvYFWOBntdVpe75AAUf9/zEreTeHiPAun/4YUtm AHrJPQ+CNA+5trFR6d61QfzBAj3PovgNUnp9gnXPRxD4uOfkknsuhnRPBJDu 35Ef/fcd3PPaBb0mtf58fRaZa4t1uzMDc3/ffXbvbnrLlHXPG8n7uOftcST3 nFzqnskMQC+5Z/S0qstnt7zJgf4AB3q5ozjr/k1u7jm55J6LUbpH4dKtnwD0 fOKS5J79F5rXJM3ivWubb7szg0Avd7Bm3fNm5sw97SyJ3PNWdHSPQM18kXu+ w0QL+qz7txdGL7ln94l0T/Y+31bT+zjQ830bqXu+10fc03PjZjGCk1NlaLZN V1yM1P3b8qPns7ok9+w+Sd27tjvm22gSPT9ILHXPmzrTQoXgnrdGkNxzcqn7 gCf6Gb3kntFL3eff7jgXvdzdl3XP2yL7uOfkknsOk7oPQP9DB/e8Vi1179py l5tZope7ybLu+b6vj3vWuOSem1PqPuBdEEbveotI6t61ceouDvQsZql7vinr 456TS+65GKn7gLeI+IQ91xtctFTBundtPWr3NhDo2ZBI3fMGqz7ueWSS3HNy qfuA988YvevNOXqNh3Xv2rxzRwd6u9Om0D1vUerjnpNL7uV2pKz7APQ/cnDP 04bBc8+1undtfynvazJ6ubMj6543+fRxz26r5H5/EyZ1H/COJaN3vT8rde/a xHCJAz0P/1L3+7u55+SSey5G6j7g1Vo+F9P1mrLUvWsbQHlnkNGz7yN1z5sd +rjnWaDknpNL3Qe8ZM3oXa+IS927NtJb4EBvd70TuudHMnzcc3LJPRcjdR+A /hwH9zzhlLp3bUUn760xernLGuueN9xT3KMcDPe8RETck4/5wsyMdbpZ95h1 0OYCjN61LQX79/m2Q+OFL9pNQ/n3iJ5nLEr3t9yirnjLOnrjVHDPySX3XIzU fcC2FHyarWtLENL90HnnqSvXllz2bQyBnt9wVLr/9a9F2gV+7hUOQTwnve/K K+1WvQGbmTByyTsjMjuJi5YvVye2vmwOm6c+8bc//cnMbXNvHYnaHG6Sqm5w 1lmcpXpJ/hCTlJqENog3TcJtwdNe2QXsZkjZd96oYvYum3gVzjxC1WYAiNZR EwpMZQCUK2p6ly9XPFBvye7mpG/0/BnZvfwDH6D68FM+lIQeKqLGOGfBAq7K s48/Dn0f+YiSDhmi37/3vTTJlVtDcX9gzLR88c+XXxZEV8KlJ5+sgBAgKoFu 91F2f1yxgp/i5Xpx29GLwz8qK4PVJ55o6rVAvXF5tudB2+LF8PNDDlHjx5Uf /ahChVS92USj3OnoWv6h5qOo1O2wOXn93Zzbpa4ONECp2S495RQVdfUJJ8BP dt1Vl7hkiUFRqXYHpzCKQz2SsjZNbViukF1N/V647760W7Pd+hIrSFngL17p v+ZIAdnW55jGoZ0YqFQaNbqPPbbEpDhv6VLaokwwrTfS9+dMu67kVnR7uOTd 74ahtjbLj5H3nDumtG3B2dttB/FIJDtUpNNwwe6755Tx45139nWvhepQXoMF 2t/0JnWoC+07cdXHP67Ip7tFbK9oRp+Lsdz2eiKS8sCmtpY4et11c+ppniKZ y2Cpqsb5O+6oIpZxdHPPC8TwRPu5cLZM86+XLbOCPtC0L90KpngX7LGHytvQ x/fHJIv9n/2sitrztrepDeW4KDKF/qIou1wWS6H3pJN8NS2D60h6WaPPiqZG 5UdpGCn14N+95z22IahPpRMJzp2eA6UgieJn++9vUZhHHtmy0uizqqIih3bi ws8j2Td/5egsbI53gEFHRP10n30sup8feijtLiZvMpH5kdmQNc3NRh9q0XX4 4TnxLtxvvzmwqLdQr8nCXwxXfuxj3LxzhiNSJam/8+CDyexZ//fhm26CX1ZV 0XdWTmZYFOWVw2+OP95WjX5DX/wij1V84j3ZOSpCQpdDG2dFnVVm1Vdb6+z0 Oo8K6NhrLwWJTDT5Z9RKKEFGS6STYZL9jW7xySKw1ra/4RAyp0FJVuYxWmP9 c92RyIUXctRL3vUuHszsXIVGsFXl5TlauujNb7YmjWsuaqd+cShlEs9jcrCi MgoNGgeb7+i2qxR/8oEHrB5oxDunslKYhXKlflr8JuJojPpRaanHIGlzEm4Y dt3p0QjO/xdHHnmwUTZtEyEh/fKoo0hO7JzSKEk2UfK59jOfsZXfT8QjqyBJ IvXloihXB9XY4kpKlFoNSeebKDROcZTztt9e7OJdpnb94O9wQGdhXXHaaXNa HYdCJUY6vIcND/Ub5DwH5bmLFsGzjz2WwxUdqcbFoFnlJiJvj4NJmM/E49aL p3keqSLbRPr0XyaAiaIB33Q3C/UPn/zknOYiFaKDo8q6+K1vPSaXI/LNLv/g By0aHCMsRzTpYu6QXq2hStUasqGJ/WtOP52MrL2TSqu9ZI8kOPR9fOC0AiiP 7mXLrIOPA74KO3+HHWiIYV7Irl926qlKnmyPzUlFgpcKPc/+8pctvFXYBZ57 6iluYXKdKBgp5XfofmwKJuP7q6OPVl+jh8kpmAbsV6YfVSj7+3O0kVwI9Ykn Rkd5Fkz2h7rOuQsW2OqT781Y2YxTd8T6wK+qqrLboWN7URjhRi3wrVR6HI48 JjIsaD5ZdBQz92iEMuVqGDsDQ+eey/Vgm4E9h2vOz2fQo/I/3mknclSsjSXP gMLIaeF57804xCvN7r03zR/4dhcdZMQ9p+vQQzkHerSKnmoCMSDRzjCGX3uf kDxgMlrYQSxbyJxyayVb1JnIhPxkl10sSvIUiSlCaSr1E1FU50EH5ez9T5t9 8gFRso+eh338BvRRkXxegqO9KckbRtc15y4OjdiyRn/6z/9UT4rR1Y6mV9Hg Qc7gT3bbTfUeNGpW8jPI9UUHHijkpGdINJzTlanFBearv37723POX6B5GBWR IyX0aWlkR4fFLqFmnn0W/vCpT+XciLoaeyodkyXT0gSUTAfN/PlmCA2fNGUy ngFHpbudV33iE2oCxFlS52dlV+eid507gp/tgoBEz9Nn180QuxCGHZ4sv0RP 25vyzN/eDJGLBA88YBfCxsaUu0PPhgacO9JhvnKd+UK8m3mEDSP0NCt8csMG 5+0ELp6OhaPj4WRaXvEi7vl2gm9xjKNSJXlRIODEGkbvOm+HJlX8zhEPJBK9 6xQ5Tqvmvl/7Wg56yT3fTvBxz8WQy6lWAcLhIPQ/dXDPWZAFM9vK2XVlid61 IM9Iqdez7v139oj7OQvyWDNxE1BO/G2W+dG7zvgi3asFYDRVLvT5z6PK1b08 noxmjNkwwz1O0Q33HFXqPuCMrwsd3DOnUvccJtG7lrTtjQ+he04rueeBy8c9 R5W6DzgdjtG7zraTut/bgd61KMxppe7tXVXBPY8jPu65GKn7APQ/c3DPWUjd cw+V6F1nZNgjDIXu7buNgnv2unzc+2/4ke4DTkVk9K7zNKXuXehdy6pcc6l7 Tiu557M0fNxzVKn7gPM0L3JwzzdWSfe0kifDJHrXfvVcvNS9/442cc+78vu4 56hS9wEnsTJ61zmypHveu28PB3rXruOcVureHoEruOcFVh/3XIzUfQD6Tgf3 nAXpnrdl44cMJHrX3tH2uGChe04ruecdsn3cc1Sp+4ATiBm96+xqqXsX+moH eq651L09dltwz+9L+rjnqFL3AWdX/9zBPXtfUvccJtG7to7l4qXuOa3k3u7N m8s9R5W6Dzj1nNG7zmyXut/Vgd61KSinlbrnMMk9vy/p456LkboPQN/l4J6z kLpnX16i5ycvXOgJDevezgPEnT37xmEu9xxV6n63wujV/Q38mrjnLJTucZ5F urfocaJ7Pc5ankT//m0C/c04SaabUFxzetckZm742QMycCbCT4/9h5t7jkpP cN2IQaR7zpImUD70vzBfjeJE+RHzgiI/l0av1fPdZg5LYS1pUY5uK/Gzai8i gvU4acVpokVKByrTMphMm3nmGXUf4IV0OueNQ0JOikKWOCq90jpi3jjkLOnR UB96frnoJZw0voxiw190SelvbtjO9LeE5pa7OL7dUYRxAbs4cpbxXtbhWLeg 0g6kT0o7ZSYepXtpdnZu2oD8jqa/28kaL5BY4emnn4Z4PA6PYtvQ/yeeeOI0 ePLJJ3H2jR9zvsKoXqmoWm51F6gitzJbkYXdyMKRlReUV5m7shSFfv+OPXNm Zgaew27z/PPPl8DmzZuxZPxIn+i/p8PKZNgbUW3UEhWjVBFIRE5PT2N8pJZv 5AZp441WeLVaQXYlZUXUt5jbG9S/UtSXSstTrvoBaX1ychKeffZZlWoBZDIZ eikU88zQvlz4i58rX2PBlbbSz+C4SxWgitAPVsrj3aBIYv92FaRBk5+m9lXu dVK3clfdzI1WI84ySCQS8OCDD6ooGHXha6wOgc1GQVS9FPrjD6GfOTU1JXRZ Rr7Bv1XdSJJcN7p+/dWtIl/dcjxTnG/ibPnxxx8n0+rVCzGTqd20aRNEo1HR 0qUwMTFRMH6WvVJ1nRu/zB9/u9x+cs899ygPlGLhb5lKVCpraUzeayOsXFSK YG/AKRISxuoZGxt7vdeGJ0V0bw0vX3e1KZW18Xz6Hx0dJXeConifNZXnHkNK tE1ZCnfffXdgVMtTqWr13KilMqofBOVM5oWif85Ep+t77703p/NRKfniyU5H 1znxtqPL7Sg8oOTPiranMKqEqL4s3BVVVF+W/1nRBiZqUPXLX0PyKdRBCpD0 eqxKnkZ8fVTFKTI1Hz5WdaNSfmZLfXOUQ32fVvlUyrxtnkGdsVC6fJ1Tp6vI l05WwYe+2hHmqtGrY0540UGgca0iHVjEglShCi0zQJPoTqdM8x9eZCWPMfEy mTSmT0Iar44osuJ50xYk4zWyAuMPK7CaUagdDjN8eJ5npJvGKxzgUM6pVBqv UxBuq4ea+gaoqWqAwUT6MJ/BMU3laqk5uadF7mkqLQ5d9TVQ31APVbUdEE1n XLnnMWdbnHupzD3HwqCqibFXZHJeJqyLawJNj4ce7WsiSqExL7HVTMUGoKuj A7q6uvAX//cOQCoegpqaLpIzJMJNUNU6eJAxsxKFwxD6m81VYmywDzo6unSJ WHLvQBSSg63gNQ2o7yOtNdAyEC+mREdTbnWJlUEl5jZvGTz11FPbfB5Y5oPh n4e6WtYl4HRiHK8GBgYwr4HIOCQG26CmLaKLwhaure2BJKY4hELYHBSylv5C EuMRU0gFRMYTMNJRD60DCfVdMtIBNa2Dh7ryz2dRtyr/PFa3FB544AE74TzS OAebfRPUfLRu/XxmBxtmbUsyrjyr8fFxGMf/Y+Nx2zwqrmmelBLClpdf4TN/ AY7p1ldz6ZxqpuJRW031P56EkS5qwLiKaxpwa5w8Vw3zGPjXdQ3zu7FYL6rl NpqBby/45Lk+9gzZMWgYIz6rTUfKJMI4WnQox8uMFl4Ro7o/m2SkDbyGsEIy qAxywpmNr3WLzyZgnNaIeHJ+lClVzuN9HLCm2MnMOjzaHdSzjzQMdKCjU4sO T00TRJLFO6XB+caht6EGnaha/O2CWHpuvvnM6xblm9eskuI55yofgnzmlF31 VFK5y+rK38wBZsp6+pg8E5A8jw3Inzygg+VW9ChHaXnU8fqYIb+xbvFarErR etya6khrX0DLh5iomcQg1KP1qKqpgSoPc/XUGy5VVVVApyaTkXP50b6BwGn0 DjEIoyF0zdGg1NRUmfzL1HVVFRZbr5zWQkXks3/zLqLYZRjZIocXAJfPNB5q KI4NtCkDXd/WA329vRXQ29uLwT1dbVBLJxvib0ckwWarOFbJJ0hBf5NJ3tdX ybm2Naggr7aLau3PNZjIeeVa1DCygyk/MdIPrS2t0BeJe3sVObQw9sG2GvDq e9VqDHvPmWREyRaJ84pl7lBOm4lCC6ZtCcVsL4qFW9VbwHExgBTibF75FcXW UmMw0tE+tffyWGwMWull9fGUt2eRrO3DLZlOQTyq3dloLGmJyySgqwZ7Rceg Bas83MFEjlmRHsVePrMSsKbDpaeTCYgqJ3oc4smMLT0eVjn3jqU8iai1qgYG 0NQsLLL0PEMBqy2FpScSKXW16JVCFOh/ylZlSsd6TSdSFtZTrzefdsYKaOgd V1nHwy34ecwUWaEmGya++a2BwWRmoYMPh5GnSDuYqOP9rWTc0cjXQlv/+ELz ZaStSmVMVpL+17T0U+/WRqClHmobmqCtd5CXYCGTGlGdDmdDlqvkSA90hON5 tbPYGE8RBqnoALS1NEFtTQuMJDNmJrdFi1HcY5ir2tparE6TynaBBRBT/VMN CIbLtnDMVGkMWnDoa2hqhXA05ZWwvRokm10LI6mszRlobYJwIjOvqo70d0FL Uy3UNvWpxZliqppnFYyrmhrrxWo2QFM9jtjo18czr+WqzmP5LdtrssUutZae DkEaicUhFoup9Z1rv/9BaItot19Ny1v04l9qPIQwWkqhtbUVu1IL6qwjpDsY mcRUKgpt5BW0hiGJ12nroQU3Sh43akc2oW3YsyLa4iw0f1MJOyWyZqZnjOIk oYO60WDSLmKkxntVo4Xj2RWCTDoJiWR6Xo2gf5NYxVplvlSDFrsYuJQLVv28 FgZTXMhCnGGlbQHR/ibVHOO0jJ4chBqvVamQKxPpwAG7pgsSmWxlUok48j0/ RanfRBg7dJvKy1mZfKMztwxN2zvQmKOcbcu8tipTlGugoS+BdCyMEFG/LSEr rlioxTeI6M/pZKwcRkZGEPdYLCmQJJULUNMRWeRiNHjltGJONyFt12iPW/2t 6oAnMEoEuwR6FQsMcJsqMQJtaLqIm9Ze9AqxM7ZFErpXmM9i0Us3TwtEM7yy sXQugFREedL1XXo1nCykcmAHE3KFr9y0fhTp8rx6iCQy9uuRnnplBHG+Y8Zn Vk8COnDUvGmKx/F5rL6Wz0GKLgCGap7qe8Zg5oEQUlcP4Vjaz1N8sBfqaWCu aoDe/g4e/ZVGa2s6SEMUNws0CT21qIu2QVP6XJ6SI12Kl77xlK50V62a5KHl lzzp5ItUlr31iAANeirDUeLKfJI/ntLRLQIChuJ+YrObqsBl3CCqyhVVU48+ DGODfVhEgxiq/q34KnqNwLUiXGr4SI33q6G/pi2sDEQ62g90eONIbES5Br2m MmgcIBKJlCoDUQkjkQjc88CUy0g4lyRKHS2cZ2F5geCnr0m7nF2DUUjE9Uge jen7P8ZgsF+SSUehp6UFWnAcL1Gj+RL8i9cdIaRSz2K8GvRlBsPQVqt9nS7l EFhDwvY63IJfN/Srwb6CrXaK/Qrl6EPaNLYxNgtMtEEy/zg8jKWo3nqiZ7IC h50YsH5nUYvlhZycmJ7EqBtIpLyxtPGgpZOzJOvkoCWmtq9t64OBUI8aKNiq abmpflBuGR6Dhhx/vtJq3tO3q9TcUM0N7HxxoeKBpqXkQ2l726PN+UCc+4RP 5apYJzF5lv+tZvISk4BIfw+0YMPXdo2wZgwvipaS1yM5BSeVTNBiC0mPdbVd g9pmjYWgrbUNQiMJ6+GnomG1+JJlpRKvW6CL/WJff1/saKc8/i9PRkn/PWT7 yDwmM9k+nMK5hOrWFg2VND4youyOtj6LYWQshgYpotqkY8RoHrNs8+Y4B1n3 mEwrjfo4ZZaduhY7dBuaEq8pDIlxJB+ng60IrbZnjCHMvV1CGaQhRHYCx4rI QAcvy1k5iA7OawKF/Okgny2TZhc0xe4pm+VyQwr5bAl6rAG1H7W+Vih3ZDPq YVLSsX41jwhFU5aU5EiH8ncajHc1Tr5OfRNCqoL+WDqQFJwJNCiOByDUWsM2 yJIiEPhJyeeXs2J8pGTvWiXQxqq5B/PhvY4JKcq3X2JSxwe1eWnoGcnOxUS/ XOKjOJ+jvoh7QyaGmvXE+JWB8f42lnZuh4xABEkuUVQvwb94PRaFtHGtOyI8 f0A4cz12vm1PJSp3p0atE7PHTd2yhpYYEjSAVkFbF3rgNT3oAdjGM/avXHtR DWbFq6oVYhhaYtjPnU/ZDjkPx3xRHi+Jpgw1VSgJWlRp6KEZ4FwvaYnyksai SXRO69XybkKsjNXMVaGdL5rS0AQZES7UQkYOYjQ+YD370GThSAbjfZh1rfIW 7YDJN2mUoe+IlLroyJY6D+c7Hx1Un6ZaoqMK6eg1q4KvZzqK9q23N9ETpjO2 9I+bjldmjDaOdLpD+sfJed46tjYlPa5mwVTtaNouPVkngfzgVunTLFV+cGtH GKZn7lfmqKmPR3Ltofon1CZLnjcMtOn5dz8aRZ435Ex+VH+tgQiiSQy06r6I XZp8nsFW/Hzm9XbgV12YXKIO6jR831b0Tsq50sHUPO5MM1N+Z4fci6mpaWZq rp+z1Po50/dcrJKGYuxB97nGjVzyyyyhXpW6l+MiSy0QVWly+o3hIuWSLWxS bfEEj416McNTq/zWZIrC8zA1jxvfrzGmdpgvU7pEffvGjuFF07ZVN9lLTM6J SC/Uk+1raICmpvoS47FffM+0jcpj1WbzSBjfoXE5zwFGwZqV1JiqP7meSN0S YxL1TW26gV1vJitI0WCuM8wVSUa0tarvGTGzlaWKIgqjPqj7o5e10spC44R5 JOm/O8QLMuN9mnV1H6FBLWnYhQfpDWsI8388wOX16DCzVGAUUl9fawiu8muQ ax9uZXuWtrWPdFRlaxvTRqqqTfeGuLJpDXD33LtGWT9Urw9x07aGol6ul6eX cQvVPp8b/Bqo/Ya5N5K2rPZb8lDFIsNbOj4Gof4QhEL0G4ZwGH/x/1g8ZbuS eh0jHoXBUC/0DUQXFKA8n1vMT8fY7lbfQ5VYYrp0MjqiSh+JJSAeHYeYukmg uxrOSctsaj0DMJ1VE769ihlFh9l6Sujq0mPAPN9LxsYhalZzzM0ie4eMZrJU ivZzYmr5wGtVnphYYErNe/6Z35VZqDgdjwxAeCAC8SRiHzfYTesmRW9PDOpu QjNtXqZOJ2I59YtH9dOyGTOnjY6NQzJp7yOxUPR0DB2WUMw85UCLdglrV1KD 6Ia3zWtC+crVcmlxtUzzhMTeaCrdwtpu0yczuYeR3FvRitTjeNbQ1GSfOarC wWonYXF60devaUAfoC+SveOPddKPA+EMOpbOLoakYHxc3/RfbMLM6q3wQraH lFkvaxG3oBuUJRqwlKZig9DR2qQm5JF5iJuf68gzXOsbrRnjhXDX1YuJDa0d MBBN8YBv1xhrchcAUzEYj8mHSEqxEe39Gtt7B1qrlH+k1hGxRNZRTyRhfYqx UA+0NtTw81PFSvtfUMcytLQxeaOldCur+cpoOp3A0YBHjZAeNcIhGBiJebub vPQjWNJrpLnUCLR1DBQQLrpTsQjmOwDxdCa7bpkYx5EqrML8D1oGPBFVzEC3 mx3oUmbgV92NURPVbeHc7ibuCFj6qbeODWD2g+PUvRh4fCQM/QPjdqAq8mGq bQx8oYgqVu5L54u96Meu/A92BzwnxU+cZxID2jzqV6nsegW6ibWtgzmWQK5s 72o8iC14fomfNdT3pNVE3j6EE26qscLU7JW7lo2x8oWLD3yzrnDxVnXZ1VlT 7BY/33NYEajzzJsOZTLoLqC98xeDZCKOofF4HOOPR/pUU2anZKVy7dPbg8KK fTCGn+RNoyddZe4RjiUSuqwy/BuDgZ4mznuRgedYU9TGqdhHWLasWMfanSi2 KHN8pAvlK/dCnZ5I0727poYmaEEfpampCW02DncYv6HhTLqGDvTrtvWrZa/Y y3O6SpHeVnS5WnSVsDK2SmdSlVqgfzyZE9/2AzQuyWR2AWRLqvaKvTX3r6ha 4MIOiZHe66J3saXRz/OuF99B9e9vEnCb3hU1z41r/1YoDis4MjKi9gnwD1IU dtddd+Wzevyiq5q7kGWrrUXzUgM9I8k5/lM+Q8Z5uB6X9eeRzyoVzCOPiSmj OwdqFzF6TRdzOkLIg4Jo87Tbb789r6E5UgxCdEusayyF8Yru1Da5eLrRlTxP x8mfPPBdzltvvVW9w0/7L6itG9iyHiJqT+Khl/1vu+22vLXf1q85WbeWHguu qsIBNG7d321Vxr/whTSunpyxvRrVe5VeUnv1qheobtpZi1qRenU6nRbCzu5k geHqe4pHgn5RnHcrBc72h24k0CJBP1ap0KtX+eyczUvMkgrllc/e5c+ruHXP RWornJtvvlntw0dMmI1DLEMmF97thTMzwWXuYHbPRLCXJwdXVNWs2Oy8Nwzt fEH4brnlFo33hz+kY1Or8tph/UI0r+Lwq9nzHYhc85n5DkR58wjctYfehL/h hhvUfzLQRAC9MY5JSqiF6PBbLIjaiv6bzxpW6VZHwMksh1OhVDhtkkRgbrzx RlVN+vn7ww+rvdjvuvhidU70kUHNQX4/vd/RUKueeXKN6YWawzVlmW9z5M2j 4CZKlNv111+v+gpZlvvuu4/2oiyhJ/5KaNMP9cnT+3+oJ0fxqmwrvtVhFWrD SyqMvC8qnEAgGL1Nkt70h84NoL3+6XQz7BfeEY6WOMpasLR6Iz1t2Stqpcgm 1y6yunIlzzPE5E+e3xtV24rT0duPPQbr16+Hq6++Gq644gq47LLLsNC+vj78 u2bNGvqkfvFziQoulcFeyTaKWqGCL7/8cgXimmuuUaCwY2iclTl7j9FZCLJv HOZrEar5p8zgljMDKW5lppikeVZVPuUYaXxJuRU+YAZSn7wOdairXpryQh3a GTlfz81GntNFP2Tw+cg+2IHvtb5R6Ks6/3/1q/KKzfdfjao4ncwP+/tGczP1 DT5ck4w1T/vlBN2xqysNJkFRBXd0mRu1VEZlbB8x2Oh8b9Ev+NjGO+64w07x ZYE8xRfY7rzzzsCoAhtd5kYtlVEZW52bNz7HjmakYhb+GTNsb/bNwuXW3zQv LSKJ3FGbruckKfMnMYg/6mezp4fY3M8EDw0NuefQnxBA5BxaYqcRZF6JZS3o OiBxmT+xqc/HZAvgiGZagM9BpAUg/6zpE2LMcM2aZJVIB/NNL2tF1+70FfnS m4p9wt1Q+vS6RWpPttfaROf1F3VxTlTuMa5JWlYUi9S+d29w/+pxn+1Qi5Q1 e4P7rY26qFjujTH6pNvK7mVmlXRQzL92kv+aiVCilhwWBC41WJdEHyv1BnNF M4d06aNtKoNY8/7/o60iH23m1JxPu72JPUQHpp9XfVnoX/otqojC8ixJecUc B/cGYQ7C5pzchvJ8gyhBlDln7TPuUXV3X6ekH3KD6J7utddeC1dddRUt3pXB lVdeialp/Q4/qV/8XKKCS2WwV/L/YdSFOcH0S+ufxN11112nuEQ33iv2ONA3 +H9l+Xedm+rg3HuD9G1Aujlg9rNun8CeX/3Pf9pDeN9tDuZ9FptkuKtLHfO8 nwmTJ1vs4ki7r4k3gQgeWb9eXb0nb9oyeBxHh9t++lN4VK8urRDn/37ObTA/ YUod7uyEh2+6SV193IQ9NzUFfznzTPgHzno+bpI///TTcOtPfqJO55554on/ 0pl/XtLx7W8zHR8zGfHp4i/PztrM6XT2iWuuUVe8EPUITpzo4OwH//IXqt4X dOb/ychffFEi/5gD+UcdyD8qkbe3M/L/1pl/wY38NAfyjzqQnyaQU4EP4iiF yBt05qe7kZ/mQF7nQF7nRv4lnXmDG/lHHMjrHMh5aTiGY6tA3qgz/6Ib+Ucc yGsdyGvdyL+sM290I/+wA3mtA/mH3ci/ojP/HzfyDzuQf8iB/ENu5GfozL/i Rv5BB/IPOZB/0I38TJ35V93IP+hA/gEH8g+4kX9NZ36mG/mpDuQfcCA/1Y38 LJ15kxv5qQ7k73cgf78P+eA55xDyr+vMz3IjP8WB/P0O5Ke4kX9DZ97sQj42 dooD+ckO5Ccz8mRScv4tnfk3JPLsIPE+B/KTHcjf50P+UDhMyFt05t90I+fM b7/oInh4YEBdvdeB/L0O5OlE4n915i1u5CeZjFKTkxb5ex3IT3Ij/47O/Ntu 5Cc5kC93IF/uRv5dnfl33MhPdCBf7kB+IiNft04i/57OfKUb+YkO5DUO5DUC +fof/1jpHJG36sy/50Z+ggN5jQP5CX7kN9xAyH+gM/++A/lT999faTKanZmG mQyoq7eqv5Xw4nPPwewLLwD/zGZ0hFkE8A6T7mV0/TPPPKOeBj3ehGUyMzCr k5hZ7Zwan61B/cCkeBqnf/QNXZWbFJOhVdDcvRY6EejQFHDmk8NrYLlXDd1D k97bOcH0MIZ5qJY69b9xzYT5biFs6F4B1c2dsBo7cnhiRqEiwH854wxmyPuR RvND9W+Joojqmpnles+AqvnsBKxACWyiz1MhWL5iDYUvs7BnYWZmlslCGmbt pB7LhE5EN5wB7zhTQaZTIZrJ8EM8mYm1sGr1BhU8uWGCSvC4CAcqMwmg4idh 5YpumMZPzz72GKSffNI7J7diADPQvZzez1gOoY2bYE2dpwbj4Qf/DNXVnaDY yQxDXXU7ZaNLXYQU1qkHqJvXjMLE2mb1eVV40kCfVhUbmoFjTfTMxjX6fey6 Ttg0swEp87AF1urc8WfTunZoD0/q6NvnBzU9a1W3abQbwxQo1WDnuuu1KjwM q5tRA9UerFjVCZf+tjOoXhvXrACvcQ0Mr10FdXXLUT4robt7NUxkHPVajE0e ViDDwyForKuDavzc3t0NoQmu2SysxvB109xgi/MiWxOa0A2s1OxB5/CUd56u 1Nkm6YZORLRyCHMdNXSi2jIk9JUwZRRYvXy10McimJ1co7ibRChrqonHahhm dI4aoZRXUelY4+l1jbqRw5tgZiIM6zZq+odWVsPKoWmPW9cJi9BMbtKlbOiE Fd0bciqzCGYwlMZaAj65tlHd/Cdgo92NsHLtEKxpXgFrJjJcCMxuhEbMfPVG gq13JF65ThcwEW5XzYDJjzPRh1aiwtpHVS9TUlqxFj9NQfeKOmhcgXi9FTCa FWg+MFPD3dC8qh2aMYvGtRtzqrAQcQwpHCEl/Akl61XD05rZyY2waXrWY0DU 7Ksxl7rVupnXNSOoxhBbRervRNpxJuvJ8Eor75nRTgVogxIhSh+tPvYE77gi YGSmJmHj5LR3vuwelUqYo2s7lWi7R3XU0dXNSPyEsbY4N920ibGZh54rYXbT MLRjw9Q1r1VNTJZpRfMa6k52jMBIsLZ9JdQtbyaKiVHoXEEWezYbJ6D8n2io FxgYUZzmmmHPu8yEmQFVXV0oo5fRUCiH4V6Tgobc9eefD4Ntbd5FOsVPTQoa acTYeokJpjJo3mlGBJPoQvOtb7Q/zhRDoz0NtnR1rCiaR/tjTXIL59xzySr/ XGd+kRvRMpORHe1feslmLkf7ZQI5FbjxxhsJeZfOvNONfJkD+TEO5Me4kf9S Z97lRl7tQH6MA3k1I0e3WiD/lc78F27k1Q7kRzuQH+1DPtTWRsi7dea/ciOv ciA/2oG8yo38Yp35r93IqxzIj3IgP0ogHzrvPEb+G535xW7kRzqQH+VAfqRE jp6PQf5bnXmPG/mRDuRHOJAf4UD+3FNP/U5n/ls38sMdyI9wID/cjXy1zvwS N/LDHcgPcyA/zI8cfxH573Xmq93ID3UgP8yB/FA38kt15r0O5E/ee++hDuSH OJAf4ub8cp35pW7kBzuQH+JAzvGszv/6V69P53yZGzanuP1nP7OwD3LAPsgN +wqd+Ro37Dcz7EcegRu+/nUF+yAH7Dc7YF+lc+5zw9YpyiVs9XPfFVd4+6jv KuCJ0VHIpFIqXFTlQHdN/qDLu9JdkwNMnqImcPMPfgDn77ADSWNvA4eCfvee 9yjX11TQ4yc2sVK2cv26sKvclTvA5HbbBRdA/2c+A2ejp0C/f9+40eOSLv/A B1TY6hNPhKtPP1210f5cs6eeUrUyneKPurC17prxrYjH77hDLWvQ1a4mKj2T fdmpp8Kvly2DtkWLSqlEjHr/H/7AfHt7qr+V0L7LLhYn/V504IEKG07zzZ0N nAEODtp0PL8iVmj8xqb3rtZA+92scIpbfvhD+GVVFbzw7LP2WXNaTDAle4zy pu98x5a2h+g//ng/P+QQNcnNVnwB3PGLX8AvjzrKysrHqFat9ycT28co9J50 kirl0pNPJkeHQf75q1/VhW+3HVZfF37pKaf4QFbC+Nq1WSq32079v2D33WE6 FjMVroSJq6+Gs0tK1O+L6bQVF9F4rUZ3tYlKNGK3gGsbG+GcykpYVVGh/uO1 5Y/kfOVHP0rfITT6WwoX7LmnD1oFDHz3uyo9/56/007wxN13M6rHhodVj+Cv //DJT6q1A+xq3nUalbIUi9VcUPuuV5x2Gvz62GOx2O7jjsMw/Ax3XXKJirGr iffi5s3Q/7nP5cSjezJ0H4Vi7K7+lsM1X/oSfavyuPhtb6N7KVhF+q4SprHn rsaG4e/p/2+OPx4mb70V/X6M8wcB0Hdr7ixH2JUy+sKcu6b04zi33vvvgIPr XQ8R5BSR+5U6ZJ166L/2NPg3olb6o9pHCqenp00zKRPLzccD2xrTpbhVfWe+ yy12M9m3e+Z3MPhrJ5j3K2Oi6IEuPnweGcjpe+WKEzq4XByU7m2Tk9JfO8GS EAqSZ7ajlcghpEwRQk/amCPJzxB58onkExMTDgtGj8Rp87J56455/leFLRFh ZFPp7R0HOfR+kjmN+UyTghkdHR11pRCvMDWZFHRJbyPM6aVzUpwpUFHQ3Xff XaCM1/oZsoW4L66WX/Gpmh+3Nsxu62Z4p0kh99HP7g+dhHBPK7S09sB4KueY 0vlkvr3IXG8r1tPTS2eWQk9XL0RiKRhsq4WG3hGI0Qa5evM7e2qsqLvn6J2m NO9dBrPcXzyZiJeqbZgqIJlOqOPW9IkFdpfOA1Wq/C+Bzim0qCqGu4gztXEz tLTQQX6P2H225aa8B1MK+f5ncaz+q2xQ9hCOuVzeNLV5UZHZ+HeIC+gSZr+e dzk0yhsgRzpqob5rEKKDXVClDzQoLJ05lJ5k80Qx9nZAa0cfRLdE8a9Nq1Ym qtdPhzvh3K+mqooPYaZzpKv09saUrNiGnL9tewfjsBtdtkBfnz1sube3B1rr 9dlTtR2RN2+NJWS7pk/2qVWnV2SPjtUbIVa1Rez5wMU38THWRqbVNpzjOG6O jcfU1ttcwnhfA/CBeLbUaB/U692drUKLL3VvziU1Bm1NXerEjewpSOPQ1tBB pyMaH2/H7I7nVZpPemJqMKH34EiN9UFtTT3bdUNuGkJN9tis7Pk949DR2m97 vr8bLjbf2LB0DPo6WtV21S19Y4t8EilgxHkPwFQyqfZmyFods1+DPqzTK7N4 0so/0RucxNES1dCONMx4erzX2gR78lMqKTYDTujj5TpG9HgRaYOaVj5qjorU 2zzX942byutWj5uz0EhHCNPGDyTG/I7Qnt9tgxVbPfDoCu2vKtHXUgO8C7hX 1QIR09CZ5IjeRNv0tQ7s+zUdEdNSUWit4f39IzDeUwtVav9Ms0uoPQcJhaG2 lTXHb2ZoI5kqqO0dz5JKjkJXkz6dBMXZS0dX6O05LalWrIkBFa/HnuWsz8Bp q2H8DdBQk3MYX3ZHY33Mjt5Yl/9WQSiee2IXHWGAfTtruLZ0jN1/TvuMqSMo 62Ewjgyn4/o4LVPTKdXlGpD9JIz1t1hmlbTUJsu072pKMbzmM549GJesYa3a gDkK0bBORyddlxjJPXpTC1SZg3PHQ13Q1NLi6UPlFkOLPifYnr7Q0T8A/V3Z c+ATogX88yX6TSjMtRBJ2XOA1NfqjFWEOBCFxHjIbEetD1UkpkvMAOCnJxbW m3fWtIYgnohDTL3aEFM9Lk8D8TbLxbsDlT450O6hJcbs6c2s9TkY6gSpqg67 2zttjmxKNe3BGyXboxp4k95kpMd2qJb+cd7/Vp9Jpc+zSMbGy83xaLGksSNt Edtog3Rsd1VXThdg4EpENfpQaD6aQPmFCKKhL6rZFN2EB98xc9hDhzjaO4jK wkZEUqktoaByzEell6VyJFtqISrpiD4+Bwgrw4cX6Bz12QfJ6Bg9Ye7pE4to C8IRzWmNQsSUqpM981AaMYf89YkTxFQT1PcZK5ZU2dX2jCnQGJeTjvTo7tIV SXiMTlptw7AdnIo3Irrd9tYnW+rTiXWO6ohSdWpWILPcAhHjaPfVC6PBZhrN fZ+qgTLPVn90IlBVS1jFjYa7aB6SNRpqTpK0J+kxLnXiUE0uwTzo0xHyuWeX VJpDyRvssKAaSJ+6aLU42FFrDFrS2vEt7P45DvPOubbHHjaFE0nebHgwbkb1 VpDnXkXobCQa6PQZEXqf9qXK+R2nI7Jars9WRh/YYdXjNWXPBgwh+Q1rHrBD YFxv+OnhxKieD+UwR9/k+hVmq1X02cRxMla02voOcHcxPaxDDR4R3ug937ws bY4ZqaJDo9ifKNkmrNudwXEiPTJAG4zjnCuRZmORScXVYQP2wIB4FMbVcdZp GDFmq2dwzJyVSqauCnrGkxAbH6N4fHYcZTNGx0xSFmRXasRW/AvUTviD4TAM jOCwlEDXO5oA67i1RbLTHDolssoQkeajSCiYyovZg8WTfDaE3Vdfezs1Skjh WJrpHuvKclfhGEaLnpbsxi2WjCKFEeWaZo/4i0FPa5fqxtm9/8fQ/+5VEtnR jkJdCp+ZpNpd2Af02Cu30k9gdePmDPSlZswmyxFqbYDaenS0GprQVecjZFqU RSIXvr+rTTlh9V0j8zd7vBRjZ3naD2FMoZYGPkjTHIhQCfGRAXtMQIi2rkeF hUKDahv/HeYN4J22MVPmlMIaCMdz5jQN2ufZ0lUmPnaJjuJLJLObfUdHoIPo 1KPU1q8u2QkzOusdTU1ouVtom+1Ks48z7bjd0hZSKnqdLSZtTdj8V5BOMDzG BvvUEWqtXf0QS2WO9GVUuEFOMCY8PoajRSwOEXLlzKHVnFvx5J/Iioz1qSGK 2vGILRwQX41mEEYvNY6CrGWfa2sgzH8ZqcZ25BSM9KIFQ4t32NZYZZZHfGQQ RqK6VXEuzJs1Ft+g2YxC0NHWCm2oMzTR88/Iv45YwC59ZastzRlvmA9fLcUm c7I1Au6Hia3fZAoKuvPOO3NT6Du0vg3YvK8a/WzenN2B7bbbbnOk9G165mV3 PWsUefCuZ+vXr3fk4dtizBPJ3XuMYQVzslmssilyY6V8ew29sbPSKxm1wrk/ 0+OPP57TkNmHb97YHGfrIpQppirz7kVEb6/noZ5+8mx24v2b7nZS9LdL5Lfq N88OKYpF/+MwmmPzqJv6pcc9yITShIM2O7j88ss9tTOCp3ZUVpsh0C9+LlHB pTLYK3kj6jaKWq52k6YmoM06qEnQNmES/dSi41E+dbH+tf/Z2+7/AUJ/hwU= \ \>"]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "Gradient of ", Cell[BoxData[ FormBox["W", TraditionalForm]]] }], "Section", CellChangeTimes->{{3.4011206434035053`*^9, 3.401120651222905*^9}}], Cell["\<\ That wasn't too bad. How about the next layer. We again start with:\ \>", "Text", CellChangeTimes->{{3.401069893875*^9, 3.4010699150625*^9}, { 3.4011017315625*^9, 3.4011017345625*^9}}], Cell[BoxData[ FormBox[ RowBox[{"E", "=", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], "2"]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401068003703125*^9, 3.401068005984375*^9}, {3.4010684503125*^9, 3.40106845084375*^9}, {3.401069721234375*^9, 3.401069723703125*^9}, { 3.40110180540625*^9, 3.401101806109375*^9}}], Cell[TextData[{ "Taking the derivative with respect to ", Cell[BoxData[ FormBox[ SubsuperscriptBox["w", "k", "r"], TraditionalForm]]], " (and applying the chain rule)" }], "Text", CellChangeTimes->{{3.401068124140625*^9, 3.401068137953125*^9}, { 3.4010697499375*^9, 3.40106975709375*^9}, {3.40110173890625*^9, 3.40110177040625*^9}, {3.401101880328125*^9, 3.4011018851875*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], "=", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", RowBox[{"out", "(", "X", ")"}]}]], FractionBox[ RowBox[{"\[PartialD]", RowBox[{"out", "(", "X", ")"}]}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]]}], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], FractionBox["\[PartialD]", RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], RowBox[{"out", "(", "X", ")"}]}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, {3.4011017835625*^9, 3.401101811890625*^9}, { 3.401101855375*^9, 3.40110187203125*^9}, {3.401103522015625*^9, 3.401103529140625*^9}, {3.401105412417034*^9, 3.401105470975539*^9}}], Cell["Expanding out we get:", "Text", CellChangeTimes->{{3.401067984109375*^9, 3.4010679908125*^9}, { 3.40106803671875*^9, 3.40106806425*^9}, {3.401101895359375*^9, 3.40110189915625*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], FractionBox["\[PartialD]", RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], RowBox[{"g", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], RowBox[{ SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}], "]"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, {3.4011017835625*^9, 3.401101811890625*^9}, { 3.401101855375*^9, 3.40110187203125*^9}, {3.401101907734375*^9, 3.401101915359375*^9}, 3.40110351034375*^9}], Cell["Chain rule:", "Text", CellChangeTimes->{{3.40110192528125*^9, 3.4011019295*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], RowBox[{ SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}], "]"}], ")"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], " ", SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, {3.4011017835625*^9, 3.401101811890625*^9}, { 3.401101855375*^9, 3.40110187203125*^9}, {3.401101907734375*^9, 3.40110199040625*^9}, 3.40110350675*^9}], Cell[TextData[{ "Recall that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", "x", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"g", "[", "x", "]"}]}], ")"}], RowBox[{"g", "[", "x", "]"}]}]}], TraditionalForm]], CellChangeTimes->{{3.401069021421875*^9, 3.4010690888125*^9}, { 3.4010691204375*^9, 3.401069266484375*^9}, {3.40106952140625*^9, 3.40106959628125*^9}}] }], "Text", CellChangeTimes->{{3.401101992328125*^9, 3.401102007265625*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"out", "(", "X", ")"}]}], ")"}], RowBox[{"out", "(", "X", ")"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], " ", SubscriptBox["u", "i"], SubscriptBox["Z", "i"]}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, {3.4011017835625*^9, 3.401101811890625*^9}, { 3.401101855375*^9, 3.40110187203125*^9}, {3.401101907734375*^9, 3.40110199040625*^9}, {3.401102042796875*^9, 3.401102062765625*^9}, 3.40110350315625*^9}], Cell[TextData[{ "Remember that each of the ", Cell[BoxData[ FormBox[ SubscriptBox["Z", "i"], TraditionalForm]]], " is connected to all the perceptrons from the lower level so we must take \ the derivative of each." }], "Text", CellChangeTimes->{{3.40110223759375*^9, 3.40110234565625*^9}, { 3.40110356846875*^9, 3.401103570015625*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"out", "(", "X", ")"}]}], ")"}], RowBox[{"out", "(", "X", ")"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], " ", RowBox[{ SubscriptBox["u", "i"], FractionBox["\[PartialD]", RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], SubscriptBox["Z", "i"]}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, {3.4011017835625*^9, 3.401101811890625*^9}, { 3.401101855375*^9, 3.40110187203125*^9}, {3.401101907734375*^9, 3.40110199040625*^9}, {3.401102042796875*^9, 3.401102062765625*^9}, { 3.40110229403125*^9, 3.4011022961875*^9}, 3.4011035005*^9}], Cell["Which becomes:", "Text", CellChangeTimes->{{3.401102363109375*^9, 3.40110237628125*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"out", "(", "X", ")"}]}], ")"}], RowBox[{"out", "(", "X", ")"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], " ", RowBox[{ SubscriptBox["u", "i"], FractionBox["\[PartialD]", RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], RowBox[{"g", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], "3"], RowBox[{ SubsuperscriptBox["w", "s", "i"], " ", SubscriptBox["X", "s"]}]}], "]"}]}]}], ")"}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, {3.4011017835625*^9, 3.401101811890625*^9}, { 3.401101855375*^9, 3.40110187203125*^9}, {3.401101907734375*^9, 3.40110199040625*^9}, {3.401102042796875*^9, 3.401102062765625*^9}, { 3.40110229403125*^9, 3.4011022961875*^9}, {3.401102383578125*^9, 3.401102435984375*^9}, 3.40110349778125*^9}], Cell["Another application of the chain rule:", "Text", CellChangeTimes->{{3.401102446984375*^9, 3.40110245115625*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"out", "(", "X", ")"}]}], ")"}], RowBox[{"out", "(", "X", ")"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], " ", RowBox[{ SubscriptBox["u", "i"], RowBox[{ SuperscriptBox["g", "\[Prime]"], "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], "3"], RowBox[{ SubsuperscriptBox["w", "s", "i"], " ", SubscriptBox["X", "s"]}]}], "]"}], FractionBox["\[PartialD]", RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "0"}], "3"], RowBox[{ SubsuperscriptBox["w", "s", "i"], " ", SubscriptBox["X", "s"]}]}]}]}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, {3.4011017835625*^9, 3.401101811890625*^9}, { 3.401101855375*^9, 3.40110187203125*^9}, {3.401101907734375*^9, 3.40110199040625*^9}, {3.401102042796875*^9, 3.401102062765625*^9}, { 3.40110229403125*^9, 3.4011022961875*^9}, {3.401102383578125*^9, 3.401102435984375*^9}, {3.401102506515625*^9, 3.4011025615*^9}, 3.4011034956875*^9}], Cell["Taking the final derivative we have:", "Text", CellChangeTimes->{{3.401102480609375*^9, 3.4011024983125*^9}, { 3.40110256721875*^9, 3.401102581328125*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"out", "(", "X", ")"}]}], ")"}], RowBox[{"out", "(", "X", ")"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], " ", RowBox[{ SubscriptBox["u", "i"], " ", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["Z", "i"]}], ")"}], RowBox[{"(", SubscriptBox["Z", "i"], ")"}]}]}], ")"}], SubscriptBox["X", "k"]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, {3.4011017835625*^9, 3.401101811890625*^9}, { 3.401101855375*^9, 3.40110187203125*^9}, {3.401101907734375*^9, 3.40110199040625*^9}, {3.401102042796875*^9, 3.401102062765625*^9}, { 3.40110229403125*^9, 3.4011022961875*^9}, {3.401102383578125*^9, 3.401102435984375*^9}, {3.401102506515625*^9, 3.4011025615*^9}, 3.401102594265625*^9, 3.4011026569375*^9, {3.40110273959375*^9, 3.401102765875*^9}, 3.401103493234375*^9, {3.4011036824375*^9, 3.401103687125*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Why is it called back propagation?", "Section", CellChangeTimes->{{3.4011032203125*^9, 3.40110322990625*^9}}], Cell["Lets look at the following two equations:", "Text", CellChangeTimes->{{3.401103239703125*^9, 3.401103244734375*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"out", "(", "X", ")"}]}], ")"}], RowBox[{"out", "(", "X", ")"}], SubscriptBox["Z", "k"]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.4010679574375*^9}, {3.40106801609375*^9, 3.401068017203125*^9}, { 3.4010680755*^9, 3.40106809415625*^9}, {3.401068469203125*^9, 3.401068469546875*^9}, {3.401068517109375*^9, 3.401068528765625*^9}, { 3.401068571640625*^9, 3.401068572921875*^9}, {3.401069659234375*^9, 3.401069675015625*^9}, {3.40106970803125*^9, 3.4010697083125*^9}, { 3.401069819296875*^9, 3.40106983359375*^9}, 3.4010698896875*^9, 3.401101844234375*^9}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], "=", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"out", "(", "X", ")"}]}], ")"}], RowBox[{"out", "(", "X", ")"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], " ", RowBox[{ SubscriptBox["u", "i"], " ", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["Z", "i"]}], ")"}], RowBox[{"(", SubscriptBox["Z", "i"], ")"}], SubscriptBox["X", "k"]}]}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, {3.4011017835625*^9, 3.401101811890625*^9}, { 3.401101855375*^9, 3.40110187203125*^9}, {3.401101907734375*^9, 3.40110199040625*^9}, {3.401102042796875*^9, 3.401102062765625*^9}, { 3.40110229403125*^9, 3.4011022961875*^9}, {3.401102383578125*^9, 3.401102435984375*^9}, {3.401102506515625*^9, 3.4011025615*^9}, 3.401102594265625*^9, 3.4011026569375*^9, {3.40110273959375*^9, 3.401102765875*^9}, {3.40110335915625*^9, 3.401103378171875*^9}, 3.401103491203125*^9}], Cell[CellGroupData[{ Cell[BoxData["plt"], "Input", CellChangeTimes->{{3.401067561953125*^9, 3.401067562328125*^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.40110159640625*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQl8ZEW1/iXrbAyL7DuyQwgD+hQ3wqAgLjG4Gx3fkxfNUyESl/gcNYoD ASMRiXEJUZwITAAnCg1Kg2TgJQNNIATCQAwNQxMahoY0piEN02DA8z+nqk71 6Zvq252ZAcE/+f2S9K2u5auvvjp1qu69VbWnf+vLX2o6/VtfaTj9gPd/4/Tm L3+l4ZsHnHLWNzCodDvP224If285wCvDz+B5OX/oZz39eePztvi8i/pXCv/8 5z/B/HjVjrA2+nsQvPTSS/jFyy+/bL/ooL8H0xf7yxwXyNTw9NNPQzweh0cf fVT9f+KJJw6EJ5980iunjzlfYVQsIQ8AX9kHmDAsPBePL8wVb183WoJBv3// +99hZmYGnnvuOXj++edLYPPmzZgDfqRP9N/TYWUybJtF9YfR31IFhkBNT09j GMIsyUvUAkmUi/83FcH/XF4XyrB8WXtBeZc48s5pi3JVG0oyOTkJzz77rKr8 AshkMsggUYKf1C9+rpxXcJkKrrRN8Mwzz6hCqDD6wYK98330vYKCKNishXSt ImOBryY2LQ6G4e0nm64MnnrqKXjwwQcVs5jBwm3dahREWFOpFDz00EMwNTUl Wq1ctdq8pFMqg7GGwQIh83ehKqrCNoSvuHmXVuEszW9PS+GBBx6Axx9/nFrE O1KlLFcpqYU2bdoE0WhUUFFGXbDopsjPgovwLAvligUKEyV58y6qwllUIpHY P1dd9957r7I3FNsKIzfDBUWGbS8wUpYbNmwg9s43ZE9MTFiy98lDdpaGMkUD hZk0+4jcOcnf/vY3X4vec8891K9UFzzKpGAC6DuLpwzGxsa2pOaLHLVEqBcK W0JB2i7PO99Smy+i9XyVI8QkCKpclYlO19SGWZmWwt13321J2NdBgoWrSaZs TfR9Ta4c+6677goCcZTggsLoO9HiVBZH3c+H19/SFGbiyqhUlTk2MRdE+TaS bIEK7OuI6iNS1GFfURgFjY6OBhF5uM88mO7tbF0Jqti6L5oX+PnlWnQldzTR M5k0JBNJSOPVngEylhXdwRiMTDoO4f4+6OvthZ6eXhiMpdDUBZMXILUdDC/x kRD09PZBf18v9IZGKn0mVOaIigyoo8WZiUNXfQ3UN9RDVW0HRNMZb4/51jUV gSqcWnSEB2EwPABjibSlfB51SyViMNDTAF59D4xFE4vn17sYTHKwFbymAUVF pLUGWgbi3u4+VZlKueqkGV2Cf5PQW4/zzqY+SBlmiau2Kgyr71Vh0f4WqGnq p8+Li68uD4XRUAtWpR4iiexQONJTj2G1EEnqElORNqhpjSwpngqtMDYZwXW4 raMeWgcSKjwZ6cCSBk33qVDXZt5tfmtgMJkpN31MCs5hA1zMLrDYotCKOVa1 hnUdx3pUCa3YUCXMTRgbsbYHEni10NF4+U3CAtPhBztqMNcmGEtlVIktVIeG furLpr7E7CC3m+g0QZZB5740qA4w0lWv/gtWITUegpamllJobW3FCrW0NEFH aFyzl07hCBZVjULZJfE6zXaMXfSgnpixHKF9SY1AA+Ko7x2AUCsx0ABj6Uyp qWWoASEOJgyhhVvS5y4YmrOloX0MtSCvNR0QGdB66YgkuBHTI7ryHNlv+nzG Koh3l29Swj3VXWeYwhb2GnT7DCpDkIB0MlYOIyMjiOeeh6cEkiR01XhQ0xFx DSmlxQ++i3i8SQxCvek6tR0RnVVqHPr7ByAaG1Ot3TWWcjZygO1YaFsbe3aD 6ZlVrRAzFYkO9EJLPQlpUEOReQdYDpq/ZOEvccNHy9HbUAM19bX42wUx5Bj5 hEgkUqo4rYSRSAQtd9LFq7e4eBvsam2Wa7S/SaFq6B0zApqCwf4eaGttg96B 8fn5D66CStmLiIc0vTgoxk19ZqYehZGBEIQGY37DUcCl4OgCvikJR6xklrFU NAytLa2ethSV+LkFuthS+BiVo4LLOOQ2arlK21ObNemtoagyZUUYV5MV5zTe p2tRpYyqGlxMTkVb0sKgSgPlU7APVkA61q+ybArFIB3tU5+7IomlPtoKdrdK Jf0OGjRraeCPKdPvoa1Oi3pvxSSA59x5AOfwpdKl03iVgJ4t5aYSBlqr1JDO jkZiUJvvnkjC6KrYPrTQ9JfUSJfKoSUcM9ZuTJnlqrYB4mkJzKu/FIOTqy1d FaSD/Ywtm6LMHRBplBtTnX6cKsKjW3wkDGtvul9duRqg0Kxl7liYjEUgFBqA eDpjHaFMYhxC/WF4dGazN08K2W8KwN8/MM7jlY2ajEdhMNQLfQPRQgaGS9qr AOMBPWwv01fnP4EJWld4debz/kWFgBHtlQFBEQ8rwo0rcqEg2LH2LxQUsO9H ujybfO7rnkVUIo8v6tJeAceSWKU1I1qulG04Z+mtlLqYjbqvI6qPLgoy0SVd eRao0GdSq/d+LVEYRpc47rzzTht1X0dUHw4KMtElDgq64447cnGUkQOnFoxp sRKjHSFGGgpKJBJw++2356wv33bbbTLJ3nmS+BeLKUwk8/YWVeF0t956qw8f hqhlcboVoW5bsLIOEcWSh0Lr54RMIl2/fr078e55EvsxU5jIwPPnUJaTw9DQ kA89SYh0QfVOp9MCePZWA4ar7ykeqVNWgNrSn373Aun9daAwkYcnMqlwZoLS zKnGInU77+abb6aVbBXL3PGwqU3/41tN3AVNcJk7mO2DCPby5OCKWmrm5Hyf im5AEb5bbrlF4b3vqqtgNpM5z1SBFuJfoSosygnOh8f20sWqVUjtReDJx0gg oIUFAT322GO5hkDfB6dbAjfccIP6T7KnJLTmjra0hBCiosisElb6bz5rG1+6 1RHQx+FwKpQKp3vHBObGG29URp9+7rvySrjxm9+EqfFxecf7lcJeoqAtCIRk 2xaZR6bpJwCOtw3wVObFQ93f0bT0Q19ff/31Sndkme677z6631VCN7BK6Daj +mTuONJNLboq24pvdViFuqlGhZE5o8IJBIIpMVaK8D11//1wwze+Aff09lK3 9c4RTbvNsC+w3wYiyr3XfoGxIE9jsqcwGf9sE0SLCiFifeVpUvoh60LD+LXX XgtXodVbs2ZNGVx55ZVY2BVXXEGf1C9+LlHBpTLYK9lGUStUcF9fn8Jw3XXX KUxodvUzJRUWMrYu3LN6NffhVRSmGEcloF1Sg/bVV1+tsrvsssuwPMwU/152 6aVw8U9/qorAKpao4Ar6qIL497e/+AWs/s1v9NeL1NeXX365yu2aa65RuW9E KziFlM/+4x+qpVFj/JAFNfJfzjwTnn3iCS0DLMEPqufnP4fV3d2lqoTKHAD8 uefCC+mzwb5wThw/IuzEujjTzG8zcO7Aymy86SbDoA57Ee35zT/4Afztj3/E 0rWf4Os9XJvH7rgD7vzlL9VVpQmLobaIfhk2htRyPD8TyYkJG+/5ZBKu/9rX 4B9q5NVhf/32t21Xqc5F/wzavXBzM7z0j3/YLAj9uu9/Pwe9TxEXmKhUmYdN 5Tn5DA7jf21pyQl7eXYWbm5tpZp5FzjQM9K7L7kEJrANdQ/SYVSkD/3bzVfD 2Mwb//rXnKIk+gVu7ttN1Ju+8x14FpUjS7u+qQk2ox8us3wObTghRbI8TutC T9z/5YwzFPcLC6OX3C8IQJ/D/d/+xnOODI42VBqoQU2HkULi6BDLGj2OcxNq DzLZ5zvQc1rJfQD64x3cu9AvdHPPjwo+NjysspClxdatUyhkmNQ9p3Whl9wv Koxecr8wAL2P+3NNVKoMV56TS91zmNT9uQ70jFRyH4D+HQ7uXegXublfZaKS 7p9Bn0SWJnXPWUrdc1oXesn94sLoJfeLAtD7uD/bRJW659Kk7jlLqfuzHeg5 reQ+AP07Hdy70C92c/8DE1XqnkuTuucwqXtO60IvuV9SGL3kfnEAeh/3rSaq 1D0nl7rnMKn7Vgd6Riq5D0D/Lgf3LvRL3Nx/z0SVuufSpO45S9I9hZPuOa0L veX++ee97Qujl9wvCUDv436lifoCzjL+/NWvqisu7c5f/crqnrOUul8p0SNS Qs9pJfcB6N/t4N6Ffns39//LqNDPGe7szCmN/BzWPYdJ3XNayT3Hk9wvLYxe cr99AHof999mVL//PWzE2ZtEOoM+Peuew5Tu0fHDHu1924GekUruA9C/x8G9 C/1SN/ffMlEHVq5UBMjSyEdk3XOWz01NWXvPaV3oJfc7FEYvuV8agN7H/TdM VNI9lUaLblya1D1nKXX/DQd6Tnv3734Hf/vTn9RVAPoTHNy70O/g5r7ZoXsu Teqew6TuOa0LveR+x8LoJfc7BKD3cX+WQ/ecXOqew6Tuz3KgZ6SS+wD0NQ7u Xeh3dHPfZKJK3XNpUvecpdQ9p3Whl9zvVBi95H7HAPQ+7s8wUV+YmVH2nnTP pUndc5ZS92c40HNayX0A+hMd3LvQ7+Tm/isCFeueS5O65zCpe07rQi+537kw esn9TgHofdx/WaBi3XNyqXsOk7r/sgM9I5XcB6Bf7uDehX5nN/eNJurAd79r dc+lSd1zllL3nNaFXnL/psLoJfc7B6D3cf9Fh+65NKl7zlLq/osO9JxWch+A /iQH9y70b3Jx/8IL/+3QPZcmdc9hUvec1oVecs83JgPQS+7fFIDex/3pDt1z cql7DpO6P92B3t7KFdwHoH+vg3sXevsmUy73/2WiSt1zaVL3nCXpnvz71OSk x2ld6BX3GEbc71oYveR+lwD0Pu4/b6Iq3X/lK0r3XBrp/tFbb82p0aaREav7 zzvQc1rJfQD69zm4d6Hf1c3950xU0v3tF12UUxrpfvS3v80Ju/eyy9SSKV1x WkJP7YFk2HiS+90Ko5fc7xqA3sf9Z01U0v1DN9yQg5R0f+O3vpUTRrq/5Yc/ VLr/rAM9I5XcB6A/2cG9C/1ubu4/Y6KS7lHLOaVJ3XOWUvec1oVe2pzdC6OX 3O8WgN7H/accuufSpO45S6n7TznQc1oqgrkPQH+Kg3sX+t3d3H/CoXsuTeqe w6TuOa0LveR+j8LoJfe7B6D3cf9xh+45udQ9h0ndf9yBnpFK7gPQv9/BvQv9 Hm7uP+rQPZcmdc9ZSt1zWhd6yf2ehdFL7vcIQO/jvs6hey5N6p6zlLqvc6Dn tJL7APSnOrh3od/TzX2tQMW659Kk7jlM6p7TutBL7vcqjF5yv2cAeh/3Hxao WPecXOqew6TuP+xAz0gl9wHoP+Dg3oV+Lzf3HzRR133ve1b3XJrUPWcpdc9p Xegl93sXRi+53ysAvY97bjqpey5N6p6zlLo/1YGe00ruA9AzAZJ7F/q93dyf IlCx7rk0qXsOk7rntC70kvt9CqOX3O8dgN7H/ckCFeuek0vdc5jU/ckO9IxU ch+A/kMO7l3o93Fzzw621D2XJnXPWUrdc1oXesn9voXRS+73CUDv456nxS+m 01b3XNrIr38Nj65fn1OjTXfdpXRPd3Q47dMPPqi8YULPaSX3AejZbEnuXej3 dXNfI1Dd/rOf5ZT2yC23wOhvfpMTdu/ll8MdXV3qitO60Evu9yuMXnLPWbjQ +7g/QaB6KBzOQZpOJLhEG/bySy8p3T88MGCXUCV6Riq5D0DPA57k3oV+Px/3 tOyK3PPNC4qWeuSRnNLCZ52lOJRZSt1zWhf6559+2nK/f2H0kvv9AtAT9zTx MdzzLUepey5N6p6zlLp/pwM9p1Xc//GP6ioA/Ucc3LvQ78/c33ef5P54gYp1 z6VJ3XOY1D2ndaGX3PPWRwHoJfechQu9j/u3C1Sse04udc9hUvecVqJnpJL7 APTspkruXegPcHP/Hyaq1D2XJnXPWUrdc1oXesn9gYXRS+4PCEDv4/4tIirr nkuTuucspe7f4kDPaSX3AehPc3DvQn+gm/tjBarIhRfmlCZ1z2FS95zWhV5y /+bC6CX3Bwag93G/TKB68Prrc5BK3XOY1P0yB3pGKrkPQM+TS8m9C/2b3dzz 3m4UbToWyylN6p6zlLrntC70kvuDCqOX3L85AL2P+yqH7rk0qXvOUuq+yoGe 00ruA9B/zMG9C/1Bbu6PdOieS5O65zCpe07rQi+5P7gwesn9QQHofdwf4dA9 J5e65zCp+yMc6Bmp5D4APS8JSe5d6A92c3+YQ/dcmtQ9Zyl1z2ld6Jl7hOAd Uhi95P7gAPQ+7g8RUa/78peV7jlspLvb6p6zJIXRfIt0z/H+/tBDCimh5zDJ fQB6XkyU3LvQH+Lmnjl9YnTU6p5Le+T//s/qnsOk7jmtQm+453iS+0MLo5fc HxKA3sc9d/ANa9ZY3XPy9JNPWt1zmNX9TTdZ4yDRM1LJfQD6Tzq4d6E/1M09 D8v0pBzrnksjMlj3llNzT4R0z2ld6Gk+zNwfVhi95P7QAPQ+7qUzzbrn0qTu OUup+/0c6DktTTzH+/vVVQB6vgUguXehP8zNPU+Bpe65NKl7DpO657Qu9JL7 wwujl9wfFoDexz2vdEjdc3Kpew6Tut/bgZ6RSu4D0H/awb0L/eFu7nl9Uuqe S5O65yyl7jmtC73k/ojC6CX3hwegl9wnJybkjQrWPZcmdc9ZSt3v7kDPaSX3 Aej5xp3k3oX+CMn917/O3PO9QKX7n/40pzSpe+lRsO45rQu95J79oQD0kvsj AtD7uOcb00r3f/lLDlKpew6Tut/FgZ6RSu4D0Nc7uHehP9LNPT9OonT/8MM5 pUndc5ZS95zWhV5yf1Rh9JL7IwPQ+7iXD4Ep//7ll21pUvfSk2bd7+hAz2kl 9wHo+Xa75N6F/ig39/zoptQ9lyZ1z2FS95zWhV5yz7OYAPSS+6MC0Pu45yd0 pe45udQ9h0ndb+9Az0gl9wHo+UENyb0LfZWbe36uXuqeS5O65yzVO2zk3z/y iH0m34Vecn90YfSS+6oA9D7u+W0YnMFpe4+659JI95NDQzk1IoVRUvkWmETP aSX3AehXOLh3oT/azT2/w/bE3XfDbR0dOaWR7u/q6ckJI4Xx+ymcltCreyfj 4zae5J7XHgLQS+6PDkDv455fqNzQ1wfRP/85BynpnpwKGaZ0f/bZSvcVDvSM VHIfgJ4fr5Lcu9BX+7m/9FLivox1/4MfwN83bswpjcigeazMUuqe07rQS+6P KYxecl8dgF5xf8klymgn6S3pubrn0qTuOUup+xIHek4ruQ9A/58O7l3odRYV 8CS9zZ/lngXPq3pS65xEaF0iZVCS5mWFgUqaj8kLtDyH5tsuuIB0bbOXmub4 rGnijbnk+JLLAIj/5eDSBXGZUQJx+Zu3v13BQy45Z6lZTk7vN/y6upqytQgk cccWRiWJW+ZAxUSQEK/94hfVUG00GiDIctuk42vXWmG6RBgA8QsO4lwQdfRK SNxzD1tZvyADrG6FVJ9Ka5Tp6vDHFUYrCT3WgVaXugDuu+IKtqrqx2cAeJSR ouQw2bG5s0vj6xrkApDzM8SSZxdyLp58G7aopUK0gm92JqRo2V+U6NnQSuPr cu7eUhi95P04B3ouXlrUcoPexz1Hlbo+woGeBzlpfF2TmgD0/PS55N6FnosX GrfbA/i45/molDqHSfT83rh0OlyT+bcWRi+5f4sDPWcrNJ/zgr3gXi6ksO4P c6C3L3kL3bsWUgLQN5iv7vjlL2ktPqep5i4DlcLgOefA340Hza9JK+5pcUVz LxcQWfdymZnRyxeIKWw6FnMuIP5HfvRfNV+h5YDpabWpjtM9Yp4zm4ZhZbUH jd1DgLH3ciTn949Rx7JJdHA5DHcuV9tI1tXR/2aYyPCqxAL1BNaknoPqn8wm WNOM8VZgF8o4S7NuCpoS5Z4jLzxdIv/hpv/9X3XjpjygeH7S0Bb3ztNh4Mo/ 6Q02KlQWU8OdKtnyujr8Xw1rJma0hTFvPGHi2Y2wasVKWLu2E5o7h6Sf8zff dhgbOuugfVTj39OdnF9m9SljoakFIPlrV7WDyiQzCRObMvZJuMyGTljePhqU O5NG/Z0eWKGrXeeZ9fEm64m17bBaRZ6BiYlNOayUw8bVK6A5tEk1Zri5DlZP ZKwLSC4ey5HnKaPtdbBqeFqAd+fB/EiRPR2Ncn8GmITO5k6YnBUPyY22w/JV wyLrSlfW6vNTqKI9iszreBtvFta1r4TQ5KwZ5CwL4eZqaNe10jUcmrYe7PRw O6zo3qB5mB6CuuXtsIn26slPiCu7HYzCSDA3raSXxqegs7ETdN2moXM5inZj hofK2YnVsHylHpR2Kg7JXP7cSDi7VxbBMoNguL0R1mLT0A/1K0xu/QEsA1Zg FmhBjT9gxvm84HivrFAj1mtU1GuYG6wSZjZ0K1OwDr+eNZ+rV4ax9bPWaFi0 2s4BSIPK0wtuS5XEITMKdVhO49pJA5f24m2EDUquM7BuzRCoj9ProNpbhTFg p3nAJd6Z2C2Fq8vbfkugeluKVYtgCWzoRqNd3a3ynVhdp9KxLDeGQ7BxVrfy quo6GJ6BHC0UQkw1XA7NYTUMQxhr3rlhxohhMWRQxWpj5OYwTG3Ez8u7YTi0 CprXbtTKmgirvBGNeXctGK2jrJ1MMobpVTfD6OQwfl4BwxvXQeOK1TQUqyGq bkUjLKfRrXt05yIRIkRor0Oe24dfBwiXcZshtrVYukI2NKk73LoNsKaxEdYR uKkhaKxbgd0f861brVSWp9nzoUWlYRarYGh4NdQ1riUybLNP4LjhrRqCjeva UcToFqxShgzWNpvi1U8GZjLcoYqA7ChvJ1MezAwjayjejUPQrFyQOhidpT7U DisNTZnpTTC5iWVWLMZZmJmZfV1g5M5ORqQbXdDuiU0QatbeXCf11dlRaGw0 bZeZhsnJTYSvSrb6kqJQQmYKNm7cRGbnGEsMDu4rSYOjiqROskydyhOCjWsb YcXqCYwyS0nwX0ZZrJ3mBdgWubNJNjW0CqO2k3Rhcu0K+xkm16jPMxg5k1EF Usm6tIXFIDW+3hYiW1gEMn7/tDg4b+G4mQlo9AiOahANx7iW3ThA43BkeqBt ziKgqLmhktHsLDfn1PAaWFGNxmtIi2x2MgQruzXCNSs8WBme9E91vJ3mgXIX U87s9Ci0N9ZB3cqQHvTQ7eheqcwRbFq3Cqob12CqGRhe06yGnCF0tnU5S4vA OGqGquXoKCGruj/uOG+YS4uCuW7uxGlH04uLYZN0kJnJmCWhxTC8eiVUo+Xl QXbDmk5QIwxa5RVkiad1w6HAzYTUrI0VSypKAGEtx9lG99Ck3bhMTr3YYykE JfzXOXM/OyOinlK3vFMJRIfhDCqzAdpXagyZyQnYlOHtN+ZX7b05P8eMbA/x 3eoV1dDYuRq627thYgbM099l2pvCslav7oTusFkLFDN+7IzL0RAiOmZHTjb4 FTDf/M5WHO1oXXWnGlh5VgSbwtC8Srtre7pB2KhiUrWPTR7CeujZJSMKNTeT x6aujvRXYFpVYGgmqAK58zJLaRa9+nn5pZds/InuFbBSDz62ZhIGx5MTGDvP VjZ5Bka766B61TDPkWlEmJkaxhZeTnCPKlwROYGwnInpjAZRMacij952Gy22 7GbrOQFrw8YVXbcSvJVD2Xf7ckHtwTm6ffRsDTNorVaqcXN4apZrmJnUxrKu c5iaP6CGPF2WnjH3HIevbqhdqMLCyIonaktPKIrVEbtFwHBnI7onK1Sv7R6d 3ssNkqvkc0t5bks1ndykG32icwV0o9v/dvNdZmpSD46A3bZODZSer84T4XZl modtq+osZ0zPp5+HbrjBPE9U7vRYdcsvsNtd849vaY0f6pneNAmbplX+doOY F7JJ7RqYC71d4tEemrpi3oa7V8LKznZlTNduzDAJhHhl8ypoJ8/BOIOGBN7E CJEbEw32dSZ6dIMfzNzNxrP+mn02Pc+iKC2A0lI5qzUfEn4+kUd/uuJnt6Ym N8LklCbKLt8oP2dSpTWm8g/mK7kQ+m6DztcETDctQ9Leg3S1owijpcmM2uF8 bmmMdPP0tFq9l3tT0bN1vN8hb8ZGq/dcI7OMe6b5il6RpIfFJd9z96vCVk6l YErvsm2fFfLxzTtr0a2Luy6+WF1xGNfoqfvvtzda6P6+f5c0uQjN7+I5FqEZ vbwB8B4Hes72/quuggeuvVZd8dM2vvbg531o+ZxWOelqqQM9342iGwD/96Mf 0c452f3cfv97deORrgLQ83Zj8uaLCz0XT8XQo+50xc9M+LjnBWwKYjXxho0S Pa+kyhsAnJbURHswEfc1hdFL7k9woOfiqTvRjS8aMY/xcU+vgiD3HJVuG00O DqqrxQ70fBeWlunVjS/UPaclIu7/g+6AAei/5uDehZ6Lf/Lee+HWn/xEXR3r 5p43hJW65zCJnu+vSd1zPMk9b2cWgF5yz5Wdu5turu6Pc3Nv9/0VurdPMAn0 fIdK6p6LkdwHoOdNAiX3LvRcvNT9W93cs3WUurdPMAn0fENL6p7TSu753esA 9JL7Ex3ouXil+//5H6X7t7m556hS9xUO9Px2ptS93COeuQ9Az9tLSu5d6Ll4 pft2vfE5u2w+7stNVKl7DpPo7UxK6J7jSe55O7MA9JL75Q70nK3SfSikrt7h 5p6X/KXuyxzo+a1kqXsuRnIfgP7rDu5d6Ll4pXscl+nqXW7u+QaH1L3/xiah 5yFd6p7TSu7fWxi95P4kB3ouXur+PW7uddRKqXv1I5GzUZaa5yIk7wHIeUNY ybtGXiGRqzRG77pLLMqh+6UXX5QalyhPNLkJaUta31cYm2RVV6U8B5tRstHL ghyvhTZHJOkKQMtNFkKtzJbd08OB5psOpt5r2o7RrP30p0mVDJIZ+t0JJ8DV X/iCajNOQmq79ktfgj99/vO0E0ARBUsamDWaq3Ufd5zC/j6TM9177jrsMLj0 1FNJSByVHpHo+/CHlUgCSuP9jV3VpPpQNob4k4xEiVvqOPega7eutVWKwrRJ mWpxclrpBbLbL7qoCACuVidBk82SfUrra6FFQdUng0Vpff6riVtuO4c0WAFC bAnoJP+3ahUbIgmLu6ZA5XGXJn7oGRr68XUiYw0qLV+0SQT9UEOzcQrozozU NQhYJ3N21lqJuZOwXMjaDi5QVogeWuIfH7GcVBodLoImVmycAgYA3hXcNfgS STzQsmWWyHn8kch5oCCrRA+LZdOW+UnnwVdwbpPTY1G8rVGA68DoXY4PixbE 6CnRH+9Az6MnCzmbds6kjJNL7rkYqe8A9LyfvMvpFPq2qCR6PjBHome/Swjd Ps/n456dTsk9+1dS8wEuM6N3TbboaRg10KLmXQfhvNWBnn1eoXkDaQ73nFxy z8VI3dfkR/8dB/c80SWu1v/4x+rKdZQMz5Ykep4YSN3zc2byaUTknh8kldxz cqn7gGk6o3ctMhAhE9dco65ch7Esc6Dn2ZLUPR854+Oek0vu5ZOHrPsA9HwK hOSeTRnpPvnAA+rKdZwJrxJI9DzPlrrPeRoxy719XURwb588FLp/T2H0kns+ UkPq3nUoRZUDPa9xSN3neeyQk0vuuRip+3fnR/9dB/dsx6XuXcc62MeVBXpe CJK6z3neL8u9fTVTcM/Jpe6ZzAD0kntGL3W/1IH+cAd6ueM+636pm3tOLrnn YqTuA9Dz2S2Sex4Epe5dRwvYFWOBntdVpe75AAUf9/zEreTeHiPAun/4YUtm AHrJPQ+CNA+5trFR6d61QfzBAj3PovgNUnp9gnXPRxD4uOfkknsuhnRPBJDu 35Ef/fcd3PPaBb0mtf58fRaZa4t1uzMDc3/ffXbvbnrLlHXPG8n7uOftcST3 nFzqnskMQC+5Z/S0qstnt7zJgf4AB3q5ozjr/k1u7jm55J6LUbpH4dKtnwD0 fOKS5J79F5rXJM3ivWubb7szg0Avd7Bm3fNm5sw97SyJ3PNWdHSPQM18kXu+ w0QL+qz7txdGL7ln94l0T/Y+31bT+zjQ830bqXu+10fc03PjZjGCk1NlaLZN V1yM1P3b8qPns7ok9+w+Sd27tjvm22gSPT9ILHXPmzrTQoXgnrdGkNxzcqn7 gCf6Gb3kntFL3eff7jgXvdzdl3XP2yL7uOfkknsOk7oPQP9DB/e8Vi1179py l5tZope7ybLu+b6vj3vWuOSem1PqPuBdEEbveotI6t61ceouDvQsZql7vinr 456TS+65GKn7gLeI+IQ91xtctFTBundtPWr3NhDo2ZBI3fMGqz7ueWSS3HNy qfuA988YvevNOXqNh3Xv2rxzRwd6u9Om0D1vUerjnpNL7uV2pKz7APQ/cnDP 04bBc8+1undtfynvazJ6ubMj6543+fRxz26r5H5/EyZ1H/COJaN3vT8rde/a xHCJAz0P/1L3+7u55+SSey5G6j7g1Vo+F9P1mrLUvWsbQHlnkNGz7yN1z5sd +rjnWaDknpNL3Qe8ZM3oXa+IS927NtJb4EBvd70TuudHMnzcc3LJPRcjdR+A /hwH9zzhlLp3bUUn760xernLGuueN9xT3KMcDPe8RETck4/5wsyMdbpZ95h1 0OYCjN61LQX79/m2Q+OFL9pNQ/n3iJ5nLEr3t9yirnjLOnrjVHDPySX3XIzU fcC2FHyarWtLENL90HnnqSvXllz2bQyBnt9wVLr/9a9F2gV+7hUOQTwnve/K K+1WvQGbmTByyTsjMjuJi5YvVye2vmwOm6c+8bc//cnMbXNvHYnaHG6Sqm5w 1lmcpXpJ/hCTlJqENog3TcJtwdNe2QXsZkjZd96oYvYum3gVzjxC1WYAiNZR EwpMZQCUK2p6ly9XPFBvye7mpG/0/BnZvfwDH6D68FM+lIQeKqLGOGfBAq7K s48/Dn0f+YiSDhmi37/3vTTJlVtDcX9gzLR88c+XXxZEV8KlJ5+sgBAgKoFu 91F2f1yxgp/i5Xpx29GLwz8qK4PVJ55o6rVAvXF5tudB2+LF8PNDDlHjx5Uf /ahChVS92USj3OnoWv6h5qOo1O2wOXn93Zzbpa4ONECp2S495RQVdfUJJ8BP dt1Vl7hkiUFRqXYHpzCKQz2SsjZNbViukF1N/V647760W7Pd+hIrSFngL17p v+ZIAdnW55jGoZ0YqFQaNbqPPbbEpDhv6VLaokwwrTfS9+dMu67kVnR7uOTd 74ahtjbLj5H3nDumtG3B2dttB/FIJDtUpNNwwe6755Tx45139nWvhepQXoMF 2t/0JnWoC+07cdXHP67Ip7tFbK9oRp+Lsdz2eiKS8sCmtpY4et11c+ppniKZ y2Cpqsb5O+6oIpZxdHPPC8TwRPu5cLZM86+XLbOCPtC0L90KpngX7LGHytvQ x/fHJIv9n/2sitrztrepDeW4KDKF/qIou1wWS6H3pJN8NS2D60h6WaPPiqZG 5UdpGCn14N+95z22IahPpRMJzp2eA6UgieJn++9vUZhHHtmy0uizqqIih3bi ws8j2Td/5egsbI53gEFHRP10n30sup8feijtLiZvMpH5kdmQNc3NRh9q0XX4 4TnxLtxvvzmwqLdQr8nCXwxXfuxj3LxzhiNSJam/8+CDyexZ//fhm26CX1ZV 0XdWTmZYFOWVw2+OP95WjX5DX/wij1V84j3ZOSpCQpdDG2dFnVVm1Vdb6+z0 Oo8K6NhrLwWJTDT5Z9RKKEFGS6STYZL9jW7xySKw1ra/4RAyp0FJVuYxWmP9 c92RyIUXctRL3vUuHszsXIVGsFXl5TlauujNb7YmjWsuaqd+cShlEs9jcrCi MgoNGgeb7+i2qxR/8oEHrB5oxDunslKYhXKlflr8JuJojPpRaanHIGlzEm4Y dt3p0QjO/xdHHnmwUTZtEyEh/fKoo0hO7JzSKEk2UfK59jOfsZXfT8QjqyBJ IvXloihXB9XY4kpKlFoNSeebKDROcZTztt9e7OJdpnb94O9wQGdhXXHaaXNa HYdCJUY6vIcND/Ub5DwH5bmLFsGzjz2WwxUdqcbFoFnlJiJvj4NJmM/E49aL p3keqSLbRPr0XyaAiaIB33Q3C/UPn/zknOYiFaKDo8q6+K1vPSaXI/LNLv/g By0aHCMsRzTpYu6QXq2hStUasqGJ/WtOP52MrL2TSqu9ZI8kOPR9fOC0AiiP 7mXLrIOPA74KO3+HHWiIYV7Irl926qlKnmyPzUlFgpcKPc/+8pctvFXYBZ57 6iluYXKdKBgp5XfofmwKJuP7q6OPVl+jh8kpmAbsV6YfVSj7+3O0kVwI9Ykn Rkd5Fkz2h7rOuQsW2OqT781Y2YxTd8T6wK+qqrLboWN7URjhRi3wrVR6HI48 JjIsaD5ZdBQz92iEMuVqGDsDQ+eey/Vgm4E9h2vOz2fQo/I/3mknclSsjSXP gMLIaeF57804xCvN7r03zR/4dhcdZMQ9p+vQQzkHerSKnmoCMSDRzjCGX3uf kDxgMlrYQSxbyJxyayVb1JnIhPxkl10sSvIUiSlCaSr1E1FU50EH5ez9T5t9 8gFRso+eh338BvRRkXxegqO9KckbRtc15y4OjdiyRn/6z/9UT4rR1Y6mV9Hg Qc7gT3bbTfUeNGpW8jPI9UUHHijkpGdINJzTlanFBearv37723POX6B5GBWR IyX0aWlkR4fFLqFmnn0W/vCpT+XciLoaeyodkyXT0gSUTAfN/PlmCA2fNGUy ngFHpbudV33iE2oCxFlS52dlV+eid507gp/tgoBEz9Nn180QuxCGHZ4sv0RP 25vyzN/eDJGLBA88YBfCxsaUu0PPhgacO9JhvnKd+UK8m3mEDSP0NCt8csMG 5+0ELp6OhaPj4WRaXvEi7vl2gm9xjKNSJXlRIODEGkbvOm+HJlX8zhEPJBK9 6xQ5Tqvmvl/7Wg56yT3fTvBxz8WQy6lWAcLhIPQ/dXDPWZAFM9vK2XVlid61 IM9Iqdez7v139oj7OQvyWDNxE1BO/G2W+dG7zvgi3asFYDRVLvT5z6PK1b08 noxmjNkwwz1O0Q33HFXqPuCMrwsd3DOnUvccJtG7lrTtjQ+he04rueeBy8c9 R5W6DzgdjtG7zraTut/bgd61KMxppe7tXVXBPY8jPu65GKn7APQ/c3DPWUjd cw+V6F1nZNgjDIXu7buNgnv2unzc+2/4ke4DTkVk9K7zNKXuXehdy6pcc6l7 Tiu557M0fNxzVKn7gPM0L3JwzzdWSfe0kifDJHrXfvVcvNS9/442cc+78vu4 56hS9wEnsTJ61zmypHveu28PB3rXruOcVureHoEruOcFVh/3XIzUfQD6Tgf3 nAXpnrdl44cMJHrX3tH2uGChe04ruecdsn3cc1Sp+4ATiBm96+xqqXsX+moH eq651L09dltwz+9L+rjnqFL3AWdX/9zBPXtfUvccJtG7to7l4qXuOa3k3u7N m8s9R5W6Dzj1nNG7zmyXut/Vgd61KSinlbrnMMk9vy/p456LkboPQN/l4J6z kLpnX16i5ycvXOgJDevezgPEnT37xmEu9xxV6n63wujV/Q38mrjnLJTucZ5F urfocaJ7Pc5ankT//m0C/c04SaabUFxzetckZm742QMycCbCT4/9h5t7jkpP cN2IQaR7zpImUD70vzBfjeJE+RHzgiI/l0av1fPdZg5LYS1pUY5uK/Gzai8i gvU4acVpokVKByrTMphMm3nmGXUf4IV0OueNQ0JOikKWOCq90jpi3jjkLOnR UB96frnoJZw0voxiw190SelvbtjO9LeE5pa7OL7dUYRxAbs4cpbxXtbhWLeg 0g6kT0o7ZSYepXtpdnZu2oD8jqa/28kaL5BY4emnn4Z4PA6PYtvQ/yeeeOI0 ePLJJ3H2jR9zvsKoXqmoWm51F6gitzJbkYXdyMKRlReUV5m7shSFfv+OPXNm Zgaew27z/PPPl8DmzZuxZPxIn+i/p8PKZNgbUW3UEhWjVBFIRE5PT2N8pJZv 5AZp441WeLVaQXYlZUXUt5jbG9S/UtSXSstTrvoBaX1ychKeffZZlWoBZDIZ eikU88zQvlz4i58rX2PBlbbSz+C4SxWgitAPVsrj3aBIYv92FaRBk5+m9lXu dVK3clfdzI1WI84ySCQS8OCDD6ooGHXha6wOgc1GQVS9FPrjD6GfOTU1JXRZ Rr7Bv1XdSJJcN7p+/dWtIl/dcjxTnG/ibPnxxx8n0+rVCzGTqd20aRNEo1HR 0qUwMTFRMH6WvVJ1nRu/zB9/u9x+cs899ygPlGLhb5lKVCpraUzeayOsXFSK YG/AKRISxuoZGxt7vdeGJ0V0bw0vX3e1KZW18Xz6Hx0dJXeConifNZXnHkNK tE1ZCnfffXdgVMtTqWr13KilMqofBOVM5oWif85Ep+t77703p/NRKfniyU5H 1znxtqPL7Sg8oOTPiranMKqEqL4s3BVVVF+W/1nRBiZqUPXLX0PyKdRBCpD0 eqxKnkZ8fVTFKTI1Hz5WdaNSfmZLfXOUQ32fVvlUyrxtnkGdsVC6fJ1Tp6vI l05WwYe+2hHmqtGrY0540UGgca0iHVjEglShCi0zQJPoTqdM8x9eZCWPMfEy mTSmT0Iar44osuJ50xYk4zWyAuMPK7CaUagdDjN8eJ5npJvGKxzgUM6pVBqv UxBuq4ea+gaoqWqAwUT6MJ/BMU3laqk5uadF7mkqLQ5d9TVQ31APVbUdEE1n XLnnMWdbnHupzD3HwqCqibFXZHJeJqyLawJNj4ce7WsiSqExL7HVTMUGoKuj A7q6uvAX//cOQCoegpqaLpIzJMJNUNU6eJAxsxKFwxD6m81VYmywDzo6unSJ WHLvQBSSg63gNQ2o7yOtNdAyEC+mREdTbnWJlUEl5jZvGTz11FPbfB5Y5oPh n4e6WtYl4HRiHK8GBgYwr4HIOCQG26CmLaKLwhaure2BJKY4hELYHBSylv5C EuMRU0gFRMYTMNJRD60DCfVdMtIBNa2Dh7ryz2dRtyr/PFa3FB544AE74TzS OAebfRPUfLRu/XxmBxtmbUsyrjyr8fFxGMf/Y+Nx2zwqrmmelBLClpdf4TN/ AY7p1ldz6ZxqpuJRW031P56EkS5qwLiKaxpwa5w8Vw3zGPjXdQ3zu7FYL6rl NpqBby/45Lk+9gzZMWgYIz6rTUfKJMI4WnQox8uMFl4Ro7o/m2SkDbyGsEIy qAxywpmNr3WLzyZgnNaIeHJ+lClVzuN9HLCm2MnMOjzaHdSzjzQMdKCjU4sO T00TRJLFO6XB+caht6EGnaha/O2CWHpuvvnM6xblm9eskuI55yofgnzmlF31 VFK5y+rK38wBZsp6+pg8E5A8jw3Inzygg+VW9ChHaXnU8fqYIb+xbvFarErR etya6khrX0DLh5iomcQg1KP1qKqpgSoPc/XUGy5VVVVApyaTkXP50b6BwGn0 DjEIoyF0zdGg1NRUmfzL1HVVFRZbr5zWQkXks3/zLqLYZRjZIocXAJfPNB5q KI4NtCkDXd/WA329vRXQ29uLwT1dbVBLJxvib0ckwWarOFbJJ0hBf5NJ3tdX ybm2Naggr7aLau3PNZjIeeVa1DCygyk/MdIPrS2t0BeJe3sVObQw9sG2GvDq e9VqDHvPmWREyRaJ84pl7lBOm4lCC6ZtCcVsL4qFW9VbwHExgBTibF75FcXW UmMw0tE+tffyWGwMWull9fGUt2eRrO3DLZlOQTyq3dloLGmJyySgqwZ7Rceg Bas83MFEjlmRHsVePrMSsKbDpaeTCYgqJ3oc4smMLT0eVjn3jqU8iai1qgYG 0NQsLLL0PEMBqy2FpScSKXW16JVCFOh/ylZlSsd6TSdSFtZTrzefdsYKaOgd V1nHwy34ecwUWaEmGya++a2BwWRmoYMPh5GnSDuYqOP9rWTc0cjXQlv/+ELz ZaStSmVMVpL+17T0U+/WRqClHmobmqCtd5CXYCGTGlGdDmdDlqvkSA90hON5 tbPYGE8RBqnoALS1NEFtTQuMJDNmJrdFi1HcY5ir2tparE6TynaBBRBT/VMN CIbLtnDMVGkMWnDoa2hqhXA05ZWwvRokm10LI6mszRlobYJwIjOvqo70d0FL Uy3UNvWpxZliqppnFYyrmhrrxWo2QFM9jtjo18czr+WqzmP5LdtrssUutZae DkEaicUhFoup9Z1rv/9BaItot19Ny1v04l9qPIQwWkqhtbUVu1IL6qwjpDsY mcRUKgpt5BW0hiGJ12nroQU3Sh43akc2oW3YsyLa4iw0f1MJOyWyZqZnjOIk oYO60WDSLmKkxntVo4Xj2RWCTDoJiWR6Xo2gf5NYxVplvlSDFrsYuJQLVv28 FgZTXMhCnGGlbQHR/ibVHOO0jJ4chBqvVamQKxPpwAG7pgsSmWxlUok48j0/ RanfRBg7dJvKy1mZfKMztwxN2zvQmKOcbcu8tipTlGugoS+BdCyMEFG/LSEr rlioxTeI6M/pZKwcRkZGEPdYLCmQJJULUNMRWeRiNHjltGJONyFt12iPW/2t 6oAnMEoEuwR6FQsMcJsqMQJtaLqIm9Ze9AqxM7ZFErpXmM9i0Us3TwtEM7yy sXQugFREedL1XXo1nCykcmAHE3KFr9y0fhTp8rx6iCQy9uuRnnplBHG+Y8Zn Vk8COnDUvGmKx/F5rL6Wz0GKLgCGap7qe8Zg5oEQUlcP4Vjaz1N8sBfqaWCu aoDe/g4e/ZVGa2s6SEMUNws0CT21qIu2QVP6XJ6SI12Kl77xlK50V62a5KHl lzzp5ItUlr31iAANeirDUeLKfJI/ntLRLQIChuJ+YrObqsBl3CCqyhVVU48+ DGODfVhEgxiq/q34KnqNwLUiXGr4SI33q6G/pi2sDEQ62g90eONIbES5Br2m MmgcIBKJlCoDUQkjkQjc88CUy0g4lyRKHS2cZ2F5geCnr0m7nF2DUUjE9Uge jen7P8ZgsF+SSUehp6UFWnAcL1Gj+RL8i9cdIaRSz2K8GvRlBsPQVqt9nS7l EFhDwvY63IJfN/Srwb6CrXaK/Qrl6EPaNLYxNgtMtEEy/zg8jKWo3nqiZ7IC h50YsH5nUYvlhZycmJ7EqBtIpLyxtPGgpZOzJOvkoCWmtq9t64OBUI8aKNiq abmpflBuGR6Dhhx/vtJq3tO3q9TcUM0N7HxxoeKBpqXkQ2l726PN+UCc+4RP 5apYJzF5lv+tZvISk4BIfw+0YMPXdo2wZgwvipaS1yM5BSeVTNBiC0mPdbVd g9pmjYWgrbUNQiMJ6+GnomG1+JJlpRKvW6CL/WJff1/saKc8/i9PRkn/PWT7 yDwmM9k+nMK5hOrWFg2VND4youyOtj6LYWQshgYpotqkY8RoHrNs8+Y4B1n3 mEwrjfo4ZZaduhY7dBuaEq8pDIlxJB+ng60IrbZnjCHMvV1CGaQhRHYCx4rI QAcvy1k5iA7OawKF/Okgny2TZhc0xe4pm+VyQwr5bAl6rAG1H7W+Vih3ZDPq YVLSsX41jwhFU5aU5EiH8ncajHc1Tr5OfRNCqoL+WDqQFJwJNCiOByDUWsM2 yJIiEPhJyeeXs2J8pGTvWiXQxqq5B/PhvY4JKcq3X2JSxwe1eWnoGcnOxUS/ XOKjOJ+jvoh7QyaGmvXE+JWB8f42lnZuh4xABEkuUVQvwb94PRaFtHGtOyI8 f0A4cz12vm1PJSp3p0atE7PHTd2yhpYYEjSAVkFbF3rgNT3oAdjGM/avXHtR DWbFq6oVYhhaYtjPnU/ZDjkPx3xRHi+Jpgw1VSgJWlRp6KEZ4FwvaYnyksai SXRO69XybkKsjNXMVaGdL5rS0AQZES7UQkYOYjQ+YD370GThSAbjfZh1rfIW 7YDJN2mUoe+IlLroyJY6D+c7Hx1Un6ZaoqMK6eg1q4KvZzqK9q23N9ETpjO2 9I+bjldmjDaOdLpD+sfJed46tjYlPa5mwVTtaNouPVkngfzgVunTLFV+cGtH GKZn7lfmqKmPR3Ltofon1CZLnjcMtOn5dz8aRZ435Ex+VH+tgQiiSQy06r6I XZp8nsFW/Hzm9XbgV12YXKIO6jR831b0Tsq50sHUPO5MM1N+Z4fci6mpaWZq rp+z1Po50/dcrJKGYuxB97nGjVzyyyyhXpW6l+MiSy0QVWly+o3hIuWSLWxS bfEEj416McNTq/zWZIrC8zA1jxvfrzGmdpgvU7pEffvGjuFF07ZVN9lLTM6J SC/Uk+1raICmpvoS47FffM+0jcpj1WbzSBjfoXE5zwFGwZqV1JiqP7meSN0S YxL1TW26gV1vJitI0WCuM8wVSUa0tarvGTGzlaWKIgqjPqj7o5e10spC44R5 JOm/O8QLMuN9mnV1H6FBLWnYhQfpDWsI8388wOX16DCzVGAUUl9fawiu8muQ ax9uZXuWtrWPdFRlaxvTRqqqTfeGuLJpDXD33LtGWT9Urw9x07aGol6ul6eX cQvVPp8b/Bqo/Ya5N5K2rPZb8lDFIsNbOj4Gof4QhEL0G4ZwGH/x/1g8ZbuS eh0jHoXBUC/0DUQXFKA8n1vMT8fY7lbfQ5VYYrp0MjqiSh+JJSAeHYeYukmg uxrOSctsaj0DMJ1VE769ihlFh9l6Sujq0mPAPN9LxsYhalZzzM0ie4eMZrJU ivZzYmr5wGtVnphYYErNe/6Z35VZqDgdjwxAeCAC8SRiHzfYTesmRW9PDOpu QjNtXqZOJ2I59YtH9dOyGTOnjY6NQzJp7yOxUPR0DB2WUMw85UCLdglrV1KD 6Ia3zWtC+crVcmlxtUzzhMTeaCrdwtpu0yczuYeR3FvRitTjeNbQ1GSfOarC wWonYXF60devaUAfoC+SveOPddKPA+EMOpbOLoakYHxc3/RfbMLM6q3wQraH lFkvaxG3oBuUJRqwlKZig9DR2qQm5JF5iJuf68gzXOsbrRnjhXDX1YuJDa0d MBBN8YBv1xhrchcAUzEYj8mHSEqxEe39Gtt7B1qrlH+k1hGxRNZRTyRhfYqx UA+0NtTw81PFSvtfUMcytLQxeaOldCur+cpoOp3A0YBHjZAeNcIhGBiJebub vPQjWNJrpLnUCLR1DBQQLrpTsQjmOwDxdCa7bpkYx5EqrML8D1oGPBFVzEC3 mx3oUmbgV92NURPVbeHc7ibuCFj6qbeODWD2g+PUvRh4fCQM/QPjdqAq8mGq bQx8oYgqVu5L54u96Meu/A92BzwnxU+cZxID2jzqV6nsegW6ibWtgzmWQK5s 72o8iC14fomfNdT3pNVE3j6EE26qscLU7JW7lo2x8oWLD3yzrnDxVnXZ1VlT 7BY/33NYEajzzJsOZTLoLqC98xeDZCKOofF4HOOPR/pUU2anZKVy7dPbg8KK fTCGn+RNoyddZe4RjiUSuqwy/BuDgZ4mznuRgedYU9TGqdhHWLasWMfanSi2 KHN8pAvlK/dCnZ5I0727poYmaEEfpampCW02DncYv6HhTLqGDvTrtvWrZa/Y y3O6SpHeVnS5WnSVsDK2SmdSlVqgfzyZE9/2AzQuyWR2AWRLqvaKvTX3r6ha 4MIOiZHe66J3saXRz/OuF99B9e9vEnCb3hU1z41r/1YoDis4MjKi9gnwD1IU dtddd+Wzevyiq5q7kGWrrUXzUgM9I8k5/lM+Q8Z5uB6X9eeRzyoVzCOPiSmj OwdqFzF6TRdzOkLIg4Jo87Tbb789r6E5UgxCdEusayyF8Yru1Da5eLrRlTxP x8mfPPBdzltvvVW9w0/7L6itG9iyHiJqT+Khl/1vu+22vLXf1q85WbeWHguu qsIBNG7d321Vxr/whTSunpyxvRrVe5VeUnv1qheobtpZi1qRenU6nRbCzu5k geHqe4pHgn5RnHcrBc72h24k0CJBP1ap0KtX+eyczUvMkgrllc/e5c+ruHXP RWornJtvvlntw0dMmI1DLEMmF97thTMzwWXuYHbPRLCXJwdXVNWs2Oy8Nwzt fEH4brnlFo33hz+kY1Or8tph/UI0r+Lwq9nzHYhc85n5DkR58wjctYfehL/h hhvUfzLQRAC9MY5JSqiF6PBbLIjaiv6bzxpW6VZHwMksh1OhVDhtkkRgbrzx RlVN+vn7ww+rvdjvuvhidU70kUHNQX4/vd/RUKueeXKN6YWawzVlmW9z5M2j 4CZKlNv111+v+gpZlvvuu4/2oiyhJ/5KaNMP9cnT+3+oJ0fxqmwrvtVhFWrD SyqMvC8qnEAgGL1Nkt70h84NoL3+6XQz7BfeEY6WOMpasLR6Iz1t2Stqpcgm 1y6yunIlzzPE5E+e3xtV24rT0duPPQbr16+Hq6++Gq644gq47LLLsNC+vj78 u2bNGvqkfvFziQoulcFeyTaKWqGCL7/8cgXimmuuUaCwY2iclTl7j9FZCLJv HOZrEar5p8zgljMDKW5lppikeVZVPuUYaXxJuRU+YAZSn7wOdairXpryQh3a GTlfz81GntNFP2Tw+cg+2IHvtb5R6Ks6/3/1q/KKzfdfjao4ncwP+/tGczP1 DT5ck4w1T/vlBN2xqysNJkFRBXd0mRu1VEZlbB8x2Oh8b9Ev+NjGO+64w07x ZYE8xRfY7rzzzsCoAhtd5kYtlVEZW52bNz7HjmakYhb+GTNsb/bNwuXW3zQv LSKJ3FGbruckKfMnMYg/6mezp4fY3M8EDw0NuefQnxBA5BxaYqcRZF6JZS3o OiBxmT+xqc/HZAvgiGZagM9BpAUg/6zpE2LMcM2aZJVIB/NNL2tF1+70FfnS m4p9wt1Q+vS6RWpPttfaROf1F3VxTlTuMa5JWlYUi9S+d29w/+pxn+1Qi5Q1 e4P7rY26qFjujTH6pNvK7mVmlXRQzL92kv+aiVCilhwWBC41WJdEHyv1BnNF M4d06aNtKoNY8/7/o60iH23m1JxPu72JPUQHpp9XfVnoX/otqojC8ixJecUc B/cGYQ7C5pzchvJ8gyhBlDln7TPuUXV3X6ekH3KD6J7utddeC1dddRUt3pXB lVdeialp/Q4/qV/8XKKCS2WwV/L/YdSFOcH0S+ufxN11112nuEQ33iv2ONA3 +H9l+Xedm+rg3HuD9G1Aujlg9rNun8CeX/3Pf9pDeN9tDuZ9FptkuKtLHfO8 nwmTJ1vs4ki7r4k3gQgeWb9eXb0nb9oyeBxHh9t++lN4VK8urRDn/37ObTA/ YUod7uyEh2+6SV193IQ9NzUFfznzTPgHzno+bpI///TTcOtPfqJO55554on/ 0pl/XtLx7W8zHR8zGfHp4i/PztrM6XT2iWuuUVe8EPUITpzo4OwH//IXqt4X dOb/ychffFEi/5gD+UcdyD8qkbe3M/L/1pl/wY38NAfyjzqQnyaQU4EP4iiF yBt05qe7kZ/mQF7nQF7nRv4lnXmDG/lHHMjrHMh5aTiGY6tA3qgz/6Ib+Ucc yGsdyGvdyL+sM290I/+wA3mtA/mH3ci/ojP/HzfyDzuQf8iB/ENu5GfozL/i Rv5BB/IPOZB/0I38TJ35V93IP+hA/gEH8g+4kX9NZ36mG/mpDuQfcCA/1Y38 LJ15kxv5qQ7k73cgf78P+eA55xDyr+vMz3IjP8WB/P0O5Ke4kX9DZ97sQj42 dooD+ckO5Ccz8mRScv4tnfk3JPLsIPE+B/KTHcjf50P+UDhMyFt05t90I+fM b7/oInh4YEBdvdeB/L0O5OlE4n915i1u5CeZjFKTkxb5ex3IT3Ij/47O/Ntu 5Cc5kC93IF/uRv5dnfl33MhPdCBf7kB+IiNft04i/57OfKUb+YkO5DUO5DUC +fof/1jpHJG36sy/50Z+ggN5jQP5CX7kN9xAyH+gM/++A/lT999faTKanZmG mQyoq7eqv5Xw4nPPwewLLwD/zGZ0hFkE8A6T7mV0/TPPPKOeBj3ehGUyMzCr k5hZ7Zwan61B/cCkeBqnf/QNXZWbFJOhVdDcvRY6EejQFHDmk8NrYLlXDd1D k97bOcH0MIZ5qJY69b9xzYT5biFs6F4B1c2dsBo7cnhiRqEiwH854wxmyPuR RvND9W+Joojqmpnles+AqvnsBKxACWyiz1MhWL5iDYUvs7BnYWZmlslCGmbt pB7LhE5EN5wB7zhTQaZTIZrJ8EM8mYm1sGr1BhU8uWGCSvC4CAcqMwmg4idh 5YpumMZPzz72GKSffNI7J7diADPQvZzez1gOoY2bYE2dpwbj4Qf/DNXVnaDY yQxDXXU7ZaNLXYQU1qkHqJvXjMLE2mb1eVV40kCfVhUbmoFjTfTMxjX6fey6 Ttg0swEp87AF1urc8WfTunZoD0/q6NvnBzU9a1W3abQbwxQo1WDnuuu1KjwM q5tRA9UerFjVCZf+tjOoXhvXrACvcQ0Mr10FdXXLUT4robt7NUxkHPVajE0e ViDDwyForKuDavzc3t0NoQmu2SysxvB109xgi/MiWxOa0A2s1OxB5/CUd56u 1Nkm6YZORLRyCHMdNXSi2jIk9JUwZRRYvXy10McimJ1co7ibRChrqonHahhm dI4aoZRXUelY4+l1jbqRw5tgZiIM6zZq+odWVsPKoWmPW9cJi9BMbtKlbOiE Fd0bciqzCGYwlMZaAj65tlHd/Cdgo92NsHLtEKxpXgFrJjJcCMxuhEbMfPVG gq13JF65ThcwEW5XzYDJjzPRh1aiwtpHVS9TUlqxFj9NQfeKOmhcgXi9FTCa FWg+MFPD3dC8qh2aMYvGtRtzqrAQcQwpHCEl/Akl61XD05rZyY2waXrWY0DU 7Ksxl7rVupnXNSOoxhBbRervRNpxJuvJ8Eor75nRTgVogxIhSh+tPvYE77gi YGSmJmHj5LR3vuwelUqYo2s7lWi7R3XU0dXNSPyEsbY4N920ibGZh54rYXbT MLRjw9Q1r1VNTJZpRfMa6k52jMBIsLZ9JdQtbyaKiVHoXEEWezYbJ6D8n2io FxgYUZzmmmHPu8yEmQFVXV0oo5fRUCiH4V6Tgobc9eefD4Ntbd5FOsVPTQoa acTYeokJpjJo3mlGBJPoQvOtb7Q/zhRDoz0NtnR1rCiaR/tjTXIL59xzySr/ XGd+kRvRMpORHe1feslmLkf7ZQI5FbjxxhsJeZfOvNONfJkD+TEO5Me4kf9S Z97lRl7tQH6MA3k1I0e3WiD/lc78F27k1Q7kRzuQH+1DPtTWRsi7dea/ciOv ciA/2oG8yo38Yp35r93IqxzIj3IgP0ogHzrvPEb+G535xW7kRzqQH+VAfqRE jp6PQf5bnXmPG/mRDuRHOJAf4UD+3FNP/U5n/ls38sMdyI9wID/cjXy1zvwS N/LDHcgPcyA/zI8cfxH573Xmq93ID3UgP8yB/FA38kt15r0O5E/ee++hDuSH OJAf4ub8cp35pW7kBzuQH+JAzvGszv/6V69P53yZGzanuP1nP7OwD3LAPsgN +wqd+Ro37Dcz7EcegRu+/nUF+yAH7Dc7YF+lc+5zw9YpyiVs9XPfFVd4+6jv KuCJ0VHIpFIqXFTlQHdN/qDLu9JdkwNMnqImcPMPfgDn77ADSWNvA4eCfvee 9yjX11TQ4yc2sVK2cv26sKvclTvA5HbbBRdA/2c+A2ejp0C/f9+40eOSLv/A B1TY6hNPhKtPP1210f5cs6eeUrUyneKPurC17prxrYjH77hDLWvQ1a4mKj2T fdmpp8Kvly2DtkWLSqlEjHr/H/7AfHt7qr+V0L7LLhYn/V504IEKG07zzZ0N nAEODtp0PL8iVmj8xqb3rtZA+92scIpbfvhD+GVVFbzw7LP2WXNaTDAle4zy pu98x5a2h+g//ng/P+QQNcnNVnwB3PGLX8AvjzrKysrHqFat9ycT28co9J50 kirl0pNPJkeHQf75q1/VhW+3HVZfF37pKaf4QFbC+Nq1WSq32079v2D33WE6 FjMVroSJq6+Gs0tK1O+L6bQVF9F4rUZ3tYlKNGK3gGsbG+GcykpYVVGh/uO1 5Y/kfOVHP0rfITT6WwoX7LmnD1oFDHz3uyo9/56/007wxN13M6rHhodVj+Cv //DJT6q1A+xq3nUalbIUi9VcUPuuV5x2Gvz62GOx2O7jjsMw/Ax3XXKJirGr iffi5s3Q/7nP5cSjezJ0H4Vi7K7+lsM1X/oSfavyuPhtb6N7KVhF+q4SprHn rsaG4e/p/2+OPx4mb70V/X6M8wcB0Hdr7ixH2JUy+sKcu6b04zi33vvvgIPr XQ8R5BSR+5U6ZJ166L/2NPg3olb6o9pHCqenp00zKRPLzccD2xrTpbhVfWe+ yy12M9m3e+Z3MPhrJ5j3K2Oi6IEuPnweGcjpe+WKEzq4XByU7m2Tk9JfO8GS EAqSZ7ajlcghpEwRQk/amCPJzxB58onkExMTDgtGj8Rp87J56455/leFLRFh ZFPp7R0HOfR+kjmN+UyTghkdHR11pRCvMDWZFHRJbyPM6aVzUpwpUFHQ3Xff XaCM1/oZsoW4L66WX/Gpmh+3Nsxu62Z4p0kh99HP7g+dhHBPK7S09sB4KueY 0vlkvr3IXG8r1tPTS2eWQk9XL0RiKRhsq4WG3hGI0Qa5evM7e2qsqLvn6J2m NO9dBrPcXzyZiJeqbZgqIJlOqOPW9IkFdpfOA1Wq/C+Bzim0qCqGu4gztXEz tLTQQX6P2H225aa8B1MK+f5ncaz+q2xQ9hCOuVzeNLV5UZHZ+HeIC+gSZr+e dzk0yhsgRzpqob5rEKKDXVClDzQoLJ05lJ5k80Qx9nZAa0cfRLdE8a9Nq1Ym qtdPhzvh3K+mqooPYaZzpKv09saUrNiGnL9tewfjsBtdtkBfnz1sube3B1rr 9dlTtR2RN2+NJWS7pk/2qVWnV2SPjtUbIVa1Rez5wMU38THWRqbVNpzjOG6O jcfU1ttcwnhfA/CBeLbUaB/U692drUKLL3VvziU1Bm1NXerEjewpSOPQ1tBB pyMaH2/H7I7nVZpPemJqMKH34EiN9UFtTT3bdUNuGkJN9tis7Pk949DR2m97 vr8bLjbf2LB0DPo6WtV21S19Y4t8EilgxHkPwFQyqfZmyFods1+DPqzTK7N4 0so/0RucxNES1dCONMx4erzX2gR78lMqKTYDTujj5TpG9HgRaYOaVj5qjorU 2zzX942byutWj5uz0EhHCNPGDyTG/I7Qnt9tgxVbPfDoCu2vKtHXUgO8C7hX 1QIR09CZ5IjeRNv0tQ7s+zUdEdNSUWit4f39IzDeUwtVav9Ms0uoPQcJhaG2 lTXHb2ZoI5kqqO0dz5JKjkJXkz6dBMXZS0dX6O05LalWrIkBFa/HnuWsz8Bp q2H8DdBQk3MYX3ZHY33Mjt5Yl/9WQSiee2IXHWGAfTtruLZ0jN1/TvuMqSMo 62Ewjgyn4/o4LVPTKdXlGpD9JIz1t1hmlbTUJsu072pKMbzmM549GJesYa3a gDkK0bBORyddlxjJPXpTC1SZg3PHQ13Q1NLi6UPlFkOLPifYnr7Q0T8A/V3Z c+ATogX88yX6TSjMtRBJ2XOA1NfqjFWEOBCFxHjIbEetD1UkpkvMAOCnJxbW m3fWtIYgnohDTL3aEFM9Lk8D8TbLxbsDlT450O6hJcbs6c2s9TkY6gSpqg67 2zttjmxKNe3BGyXboxp4k95kpMd2qJb+cd7/Vp9Jpc+zSMbGy83xaLGksSNt Edtog3Rsd1VXThdg4EpENfpQaD6aQPmFCKKhL6rZFN2EB98xc9hDhzjaO4jK wkZEUqktoaByzEell6VyJFtqISrpiD4+Bwgrw4cX6Bz12QfJ6Bg9Ye7pE4to C8IRzWmNQsSUqpM981AaMYf89YkTxFQT1PcZK5ZU2dX2jCnQGJeTjvTo7tIV SXiMTlptw7AdnIo3Irrd9tYnW+rTiXWO6ohSdWpWILPcAhHjaPfVC6PBZhrN fZ+qgTLPVn90IlBVS1jFjYa7aB6SNRpqTpK0J+kxLnXiUE0uwTzo0xHyuWeX VJpDyRvssKAaSJ+6aLU42FFrDFrS2vEt7P45DvPOubbHHjaFE0nebHgwbkb1 VpDnXkXobCQa6PQZEXqf9qXK+R2nI7Jars9WRh/YYdXjNWXPBgwh+Q1rHrBD YFxv+OnhxKieD+UwR9/k+hVmq1X02cRxMla02voOcHcxPaxDDR4R3ug937ws bY4ZqaJDo9ifKNkmrNudwXEiPTJAG4zjnCuRZmORScXVYQP2wIB4FMbVcdZp GDFmq2dwzJyVSqauCnrGkxAbH6N4fHYcZTNGx0xSFmRXasRW/AvUTviD4TAM jOCwlEDXO5oA67i1RbLTHDolssoQkeajSCiYyovZg8WTfDaE3Vdfezs1Skjh WJrpHuvKclfhGEaLnpbsxi2WjCKFEeWaZo/4i0FPa5fqxtm9/8fQ/+5VEtnR jkJdCp+ZpNpd2Af02Cu30k9gdePmDPSlZswmyxFqbYDaenS0GprQVecjZFqU RSIXvr+rTTlh9V0j8zd7vBRjZ3naD2FMoZYGPkjTHIhQCfGRAXtMQIi2rkeF hUKDahv/HeYN4J22MVPmlMIaCMdz5jQN2ufZ0lUmPnaJjuJLJLObfUdHoIPo 1KPU1q8u2QkzOusdTU1ouVtom+1Ks48z7bjd0hZSKnqdLSZtTdj8V5BOMDzG BvvUEWqtXf0QS2WO9GVUuEFOMCY8PoajRSwOEXLlzKHVnFvx5J/Iioz1qSGK 2vGILRwQX41mEEYvNY6CrGWfa2sgzH8ZqcZ25BSM9KIFQ4t32NZYZZZHfGQQ RqK6VXEuzJs1Ft+g2YxC0NHWCm2oMzTR88/Iv45YwC59ZastzRlvmA9fLcUm c7I1Au6Hia3fZAoKuvPOO3NT6Du0vg3YvK8a/WzenN2B7bbbbnOk9G165mV3 PWsUefCuZ+vXr3fk4dtizBPJ3XuMYQVzslmssilyY6V8ew29sbPSKxm1wrk/ 0+OPP57TkNmHb97YHGfrIpQppirz7kVEb6/noZ5+8mx24v2b7nZS9LdL5Lfq N88OKYpF/+MwmmPzqJv6pcc9yITShIM2O7j88ss9tTOCp3ZUVpsh0C9+LlHB pTLYK3kj6jaKWq52k6YmoM06qEnQNmES/dSi41E+dbH+tf/Z2+7/AUJ/hwU= \ \>"]] }, Open ]], Cell["\<\ We propagate the derivative information backwards to the inputs:\ \>", "Text", CellChangeTimes->{{3.401119269214446*^9, 3.401119301365095*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubscriptBox["u", "k"]}]], "=", RowBox[{ StyleBox[ RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"out", "(", "X", ")"}]}], ")"}], RowBox[{"out", "(", "X", ")"}]}], ")"}], Background->RGBColor[1, 1, 0]], SubscriptBox["Z", "k"]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.4010679574375*^9}, {3.40106801609375*^9, 3.401068017203125*^9}, { 3.4010680755*^9, 3.40106809415625*^9}, {3.401068469203125*^9, 3.401068469546875*^9}, {3.401068517109375*^9, 3.401068528765625*^9}, { 3.401068571640625*^9, 3.401068572921875*^9}, {3.401069659234375*^9, 3.401069675015625*^9}, {3.40106970803125*^9, 3.4010697083125*^9}, { 3.401069819296875*^9, 3.40106983359375*^9}, 3.4010698896875*^9, 3.401101844234375*^9, {3.401119326572047*^9, 3.40111933114589*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], "=", RowBox[{ StyleBox[ RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"out", "(", "X", ")"}]}], ")"}], RowBox[{"out", "(", "X", ")"}]}], ")"}], Background->RGBColor[1, 1, 0]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], " ", RowBox[{ SubscriptBox["u", "i"], " ", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["Z", "i"]}], ")"}], RowBox[{"(", SubscriptBox["Z", "i"], ")"}], SubscriptBox["X", "k"]}]}]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, {3.4011017835625*^9, 3.401101811890625*^9}, { 3.401101855375*^9, 3.40110187203125*^9}, {3.401101907734375*^9, 3.40110199040625*^9}, {3.401102042796875*^9, 3.401102062765625*^9}, { 3.40110229403125*^9, 3.4011022961875*^9}, {3.401102383578125*^9, 3.401102435984375*^9}, {3.401102506515625*^9, 3.4011025615*^9}, 3.401102594265625*^9, 3.4011026569375*^9, {3.40110273959375*^9, 3.401102765875*^9}, {3.40110335915625*^9, 3.401103378171875*^9}, 3.401103491203125*^9, {3.401119355966669*^9, 3.401119358232709*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", "E"}], RowBox[{"\[PartialD]", SubsuperscriptBox["w", "k", "r"]}]], "=", RowBox[{ StyleBox[ RowBox[{"(", RowBox[{ StyleBox[ RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"out", "(", "X", ")"}], "-", "Y"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"out", "(", "X", ")"}]}], ")"}], RowBox[{"out", "(", "X", ")"}]}], ")"}], Background->RGBColor[1, 1, 0]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "3"], " ", RowBox[{ SubscriptBox["u", "i"], " ", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["Z", "i"]}], ")"}], RowBox[{"(", SubscriptBox["Z", "i"], ")"}]}]}]}], ")"}], Background->RGBColor[0, 1, 0]], SubscriptBox["X", "k"]}]}], TraditionalForm]], "EquationNumbered", CellChangeTimes->{{3.40106766440625*^9, 3.40106769884375*^9}, { 3.401067834734375*^9, 3.40106785934375*^9}, {3.40106790084375*^9, 3.40106790184375*^9}, {3.40106801309375*^9, 3.40106801471875*^9}, { 3.40106845271875*^9, 3.40106845559375*^9}, {3.40106972603125*^9, 3.401069745640625*^9}, {3.4011017835625*^9, 3.401101811890625*^9}, { 3.401101855375*^9, 3.40110187203125*^9}, {3.401101907734375*^9, 3.40110199040625*^9}, {3.401102042796875*^9, 3.401102062765625*^9}, { 3.40110229403125*^9, 3.4011022961875*^9}, {3.401102383578125*^9, 3.401102435984375*^9}, {3.401102506515625*^9, 3.4011025615*^9}, 3.401102594265625*^9, 3.4011026569375*^9, {3.40110273959375*^9, 3.401102765875*^9}, {3.40110335915625*^9, 3.401103378171875*^9}, 3.401103491203125*^9, {3.401119355966669*^9, 3.401119358232709*^9}, { 3.401119400215996*^9, 3.401119404810253*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Questions?", "Section", CellChangeTimes->{{3.401120710654097*^9, 3.401120711640831*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"], Cell[TextData[{ "Any feedback about ", StyleBox["Mathematica", FontSlant->"Italic"], " style presentations is welcome.\[AliasDelimiter]" }], "Subsubsubsection", CellChangeTimes->{{3.40112072105851*^9, 3.401120745053273*^9}, { 3.401121116879242*^9, 3.401121130124116*^9}}] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"Brackets", WindowSize->{761, 635}, WindowMargins->{{4, Automatic}, {Automatic, 4}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, Magnification->1.25, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)", StyleDefinitions->FrontEnd`FileName[{"Article"}, "JournalArticle.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[16859, 435, 64, 1, 11, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[17566, 464, 64, 1, 11, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[21832, 594, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[34165, 831, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[38511, 946, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[85424, 1911, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[95583, 2166, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[105313, 2412, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[115077, 2659, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[124960, 2907, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[134804, 3150, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[139496, 3266, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[275384, 6067, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[289564, 6465, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[335785, 7375, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 337518, 7429} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 97, 1, 28, "Subsubsubsection"], Cell[690, 26, 16132, 404, 1371, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[16859, 435, 64, 1, 11, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[16926, 438, 97, 1, 90, "Title"], Cell[CellGroupData[{ Cell[17048, 443, 99, 1, 49, "Author"], Cell[17150, 446, 178, 4, 25, "Text"], Cell[17331, 452, 186, 6, 25, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17566, 464, 64, 1, 11, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[17655, 469, 198, 3, 64, "Section"], Cell[CellGroupData[{ Cell[17878, 476, 106, 1, 28, "Subsubsubsection"], Cell[CellGroupData[{ Cell[18009, 481, 40, 0, 33, "Input"], Cell[18052, 483, 2930, 70, 342, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21031, 559, 118, 1, 28, "Subsubsubsection"], Cell[CellGroupData[{ Cell[21174, 564, 199, 6, 19, "Item1Numbered"], Cell[21376, 572, 189, 6, 19, "Item1Numbered"], Cell[21568, 580, 191, 6, 19, "Item1Numbered"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21832, 594, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[21921, 599, 144, 2, 64, "Section"], Cell[22068, 603, 389, 10, 52, "EquationNumbered"], Cell[CellGroupData[{ Cell[22482, 617, 564, 18, 79, "Input"], Cell[23049, 637, 11055, 187, 276, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34165, 831, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[34254, 836, 183, 3, 64, "Section"], Cell[CellGroupData[{ Cell[34462, 843, 1569, 46, 202, "Input"], Cell[36034, 891, 2416, 48, 520, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38511, 946, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[38600, 951, 178, 2, 64, "Section"], Cell[CellGroupData[{ Cell[38803, 957, 136, 1, 28, "Subsubsubsection"], Cell[CellGroupData[{ Cell[38964, 962, 1085, 15, 33, "Input"], Cell[40052, 979, 39162, 713, 385, 8745, 212, "CachedBoxData", "BoxData", \ "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[79263, 1698, 174, 2, 28, "Subsubsubsection"], Cell[79440, 1702, 174, 6, 25, "Text"], Cell[79617, 1710, 614, 18, 88, "EquationNumbered"], Cell[80234, 1730, 203, 6, 25, "Text"], Cell[80440, 1738, 1977, 65, 88, "EquationNumbered"], Cell[82420, 1805, 150, 3, 25, "Text"], Cell[82573, 1810, 1657, 55, 88, "EquationNumbered"], Cell[84233, 1867, 130, 1, 25, "Text"], Cell[84366, 1870, 997, 34, 90, "EquationNumbered"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[85424, 1911, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[85513, 1916, 255, 3, 64, "Section"], Cell[CellGroupData[{ Cell[85793, 1923, 202, 6, 28, "Subsubsubsection"], Cell[CellGroupData[{ Cell[86020, 1933, 1956, 31, 53, "Input"], Cell[87979, 1966, 7531, 192, 468, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[95583, 2166, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[95672, 2171, 199, 7, 64, "Section"], Cell[CellGroupData[{ Cell[95896, 2182, 1887, 30, 53, "Input"], Cell[97786, 2214, 7466, 191, 468, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[105313, 2412, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[105402, 2417, 199, 7, 64, "Section"], Cell[CellGroupData[{ Cell[105626, 2428, 1938, 30, 53, "Input"], Cell[107567, 2460, 7449, 192, 468, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[115077, 2659, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[115166, 2664, 256, 8, 64, "Section"], Cell[CellGroupData[{ Cell[115447, 2676, 2006, 31, 53, "Input"], Cell[117456, 2709, 7443, 191, 458, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[124960, 2907, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[125049, 2912, 138, 2, 64, "Section"], Cell[CellGroupData[{ Cell[125212, 2918, 2085, 33, 53, "Input"], Cell[127300, 2953, 7443, 190, 468, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[134804, 3150, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[134893, 3155, 133, 2, 64, "Section"], Cell[CellGroupData[{ Cell[135051, 3161, 609, 9, 53, "Input"], Cell[135663, 3172, 3772, 87, 432, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[139496, 3266, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[139585, 3271, 203, 3, 64, "Section"], Cell[CellGroupData[{ Cell[139813, 3278, 95, 1, 33, "Input"], Cell[139911, 3281, 38926, 709, 385, 8745, 212, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[178852, 3993, 536, 16, 44, "Text"], Cell[179391, 4011, 410, 13, 65, "EquationNumbered"], Cell[179804, 4026, 295, 5, 44, "Text"], Cell[180102, 4033, 610, 20, 58, "EquationNumbered"], Cell[180715, 4055, 620, 20, 60, "EquationNumbered"], Cell[181338, 4077, 116, 1, 25, "Text"], Cell[CellGroupData[{ Cell[181479, 4082, 95, 1, 33, "Input"], Cell[181577, 4085, 36024, 662, 375, 8790, 213, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[217616, 4750, 238, 7, 25, "Text"], Cell[217857, 4759, 435, 11, 37, "EquationNumbered"], Cell[218295, 4772, 166, 2, 25, "Text"], Cell[218464, 4776, 745, 20, 55, "EquationNumbered"], Cell[219212, 4798, 113, 1, 25, "Text"], Cell[219328, 4801, 775, 27, 53, "EquationNumbered"], Cell[220106, 4830, 1121, 32, 75, "EquationNumbered"], Cell[221230, 4864, 487, 15, 53, "Equation"], Cell[221720, 4881, 257, 5, 44, "Text"], Cell[221980, 4888, 1029, 29, 68, "EquationNumbered"], Cell[223012, 4919, 94, 1, 25, "Text"], Cell[223109, 4922, 1306, 36, 68, "EquationNumbered"], Cell[224418, 4960, 335, 11, 26, "Text"], Cell[224756, 4973, 1031, 26, 68, "EquationNumbered"], Cell[225790, 5001, 366, 11, 37, "Text"], Cell[226159, 5014, 457, 14, 53, "EquationNumbered"], Cell[226619, 5030, 645, 21, 53, "EquationNumbered"], Cell[227267, 5053, 763, 25, 53, "EquationNumbered"], Cell[228033, 5080, 728, 24, 53, "EquationNumbered"], Cell[228764, 5106, 575, 19, 37, "EquationNumbered"], Cell[229342, 5127, 492, 15, 37, "EquationNumbered"], Cell[229837, 5144, 109, 1, 25, "Text"], Cell[229949, 5147, 609, 20, 55, "EquationNumbered"], Cell[230561, 5169, 515, 15, 55, "EquationNumbered"], Cell[231079, 5186, 557, 16, 55, "EquationNumbered"], Cell[231639, 5204, 750, 23, 55, "EquationNumbered"], Cell[232392, 5229, 524, 15, 55, "EquationNumbered"], Cell[232919, 5246, 462, 13, 37, "EquationNumbered"], Cell[233384, 5261, 106, 1, 25, "Text"], Cell[233493, 5264, 1076, 27, 68, "EquationNumbered"], Cell[234572, 5293, 122, 1, 25, "Text"], Cell[234697, 5296, 1336, 35, 68, "EquationNumbered"], Cell[236036, 5333, 1039, 24, 55, "EquationNumbered"], Cell[CellGroupData[{ Cell[237100, 5361, 95, 1, 33, "Input"], Cell[237198, 5364, 38125, 696, 390, 8745, 212, "CachedBoxData", "BoxData", \ "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[275384, 6067, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[275473, 6072, 164, 5, 64, "Section"], Cell[275640, 6079, 199, 4, 25, "Text"], Cell[275842, 6085, 455, 11, 37, "EquationNumbered"], Cell[276300, 6098, 390, 9, 28, "Text"], Cell[276693, 6109, 1272, 33, 57, "EquationNumbered"], Cell[277968, 6144, 193, 3, 25, "Text"], Cell[278164, 6149, 1083, 28, 68, "EquationNumbered"], Cell[279250, 6179, 87, 1, 25, "Text"], Cell[279340, 6182, 1357, 37, 68, "EquationNumbered"], Cell[280700, 6221, 545, 16, 25, "Text"], Cell[281248, 6239, 1268, 33, 68, "EquationNumbered"], Cell[282519, 6274, 346, 9, 44, "Text"], Cell[282868, 6285, 1307, 33, 68, "EquationNumbered"], Cell[284178, 6320, 95, 1, 25, "Text"], Cell[284276, 6323, 1567, 40, 68, "EquationNumbered"], Cell[285846, 6365, 119, 1, 25, "Text"], Cell[285968, 6368, 1800, 47, 68, "EquationNumbered"], Cell[287771, 6417, 164, 2, 25, "Text"], Cell[287938, 6421, 1577, 38, 68, "EquationNumbered"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[289564, 6465, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[289653, 6470, 116, 1, 64, "Section"], Cell[289772, 6473, 123, 1, 25, "Text"], Cell[289898, 6476, 1039, 24, 55, "EquationNumbered"], Cell[290940, 6502, 1548, 37, 68, "EquationNumbered"], Cell[CellGroupData[{ Cell[292513, 6543, 95, 1, 33, "Input"], Cell[292611, 6546, 38125, 696, 390, 8745, 212, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[330751, 7245, 154, 3, 25, "Text"], Cell[330908, 7250, 1199, 28, 55, "EquationNumbered"], Cell[332110, 7280, 1709, 41, 68, "EquationNumbered"], Cell[333822, 7323, 1914, 46, 68, "EquationNumbered"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[335785, 7375, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[335874, 7380, 95, 1, 64, "Section"], Cell[335972, 7383, 761, 18, 95, "PreviousNext"], Cell[336736, 7403, 279, 7, 28, "Subsubsubsection"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)