(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 149033, 3456] NotebookOptionsPosition[ 144995, 3317] NotebookOutlinePosition[ 145349, 3333] CellTagsIndexPosition[ 145306, 3330] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ Integraci\[OAcute]n por Montecarlo con muestreo por importacia\ \>", "Text", CellChangeTimes->{{3.603975587364377*^9, 3.6039756113941107`*^9}}], Cell[BoxData[ RowBox[{"expdev", ":=", RowBox[{"-", RowBox[{"Log", "[", RowBox[{"RandomReal", "[", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.603975614158078*^9, 3.603975648521308*^9}}], Cell[CellGroupData[{ Cell[BoxData["expdev"], "Input", CellChangeTimes->{{3.603975628772027*^9, 3.603975652030669*^9}}], Cell[BoxData["0.2489127091541813`"], "Output", CellChangeTimes->{{3.603975630508976*^9, 3.6039756536779327`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{"expdev", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1000"}], "}"}]}], "]"}]}], ";"}]], "Input",\ CellChangeTimes->{{3.603975634235011*^9, 3.603975688381275*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "data", "]"}]], "Input", CellChangeTimes->{{3.603975690172782*^9, 3.603975693848466*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {0.5, 380.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{17.5, 38.1436974789916}, {-93.90124624848578, 96.28778676483914}}], StatusArea[#, 380.]& , TagBoxNote->"380."], StyleBox["380.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[380., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5, 0.}, {1., 233.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{37.1436974789916, 57.78739495798319}, {-20.714962424910084`, 96.28778676483914}}], StatusArea[#, 233.]& , TagBoxNote->"233."], StyleBox["233.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[233., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {1.5, 160.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{56.78739495798319, 77.43109243697478}, { 15.629246548702326`, 96.28778676483914}}], StatusArea[#, 160.]& , TagBoxNote->"160."], StyleBox["160.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[160., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5, 0.}, {2., 82.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{76.43109243697478, 97.07478991596638}, { 54.462784904069025`, 96.28778676483914}}], StatusArea[#, 82.]& , TagBoxNote->"82."], StyleBox["82.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[82., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0.}, {2.5, 65.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{96.07478991596638, 116.71848739495798`}, { 62.92650480203356, 96.28778676483914}}], StatusArea[#, 65.]& , TagBoxNote->"65."], StyleBox["65.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[65., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0.}, {3., 26.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{115.71848739495798`, 136.36218487394956`}, { 82.34327397971691, 96.28778676483914}}], StatusArea[#, 26.]& , TagBoxNote->"26."], StyleBox["26.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[26., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {3.5, 22.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{135.36218487394956`, 156.00588235294117`}, { 84.33473748512033, 96.28778676483914}}], StatusArea[#, 22.]& , TagBoxNote->"22."], StyleBox["22.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[22., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5, 0.}, {4., 12.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{155.00588235294117`, 175.64957983193275`}, { 89.31339624862888, 96.28778676483914}}], StatusArea[#, 12.]& , TagBoxNote->"12."], StyleBox["12.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[12., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0.}, {4.5, 9.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{174.64957983193275`, 195.29327731092434`}, { 90.80699387768145, 96.28778676483914}}], StatusArea[#, 9.]& , TagBoxNote->"9."], StyleBox["9.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[9., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.5, 0.}, {5., 3.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{194.29327731092434`, 214.93697478991595`}, { 93.79418913578658, 96.28778676483914}}], StatusArea[#, 3.]& , TagBoxNote->"3."], StyleBox["3.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0.}, {5.5, 4.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{213.93697478991595`, 234.58067226890753`}, { 93.29632325943572, 96.28778676483914}}], StatusArea[#, 4.]& , TagBoxNote->"4."], StyleBox["4.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.5, 0.}, {6., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{233.58067226890753`, 254.22436974789912`}, { 94.78992088848828, 96.28778676483914}}], StatusArea[#, 1.]& , TagBoxNote->"1."], StyleBox["1.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0.}, {6.5, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{253.22436974789912`, 273.86806722689073`}, { 94.78992088848828, 96.28778676483914}}], StatusArea[#, 1.]& , TagBoxNote->"1."], StyleBox["1.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1., { GrayLevel[0]}], "Tooltip"]& ], {}, {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7.5, 0.}, {8., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{312.1554621848739, 332.7991596638655}, { 94.78992088848828, 96.28778676483914}}], StatusArea[#, 1.]& , TagBoxNote->"1."], StyleBox["1.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0.}, {8.5, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{331.7991596638655, 352.4428571428571}, { 94.78992088848828, 96.28778676483914}}], StatusArea[#, 1.]& , TagBoxNote->"1."], StyleBox["1.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1., { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->NCache[{{0, Rational[17, 2]}, {All, All}}, {{0, 8.5}, {All, All}}], PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.603975694656329*^9, 3.603975698174662*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"x", " ", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.603975717308074*^9, 3.6039757307052317`*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.6039757319527807`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{"expdev", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "100000"}], "}"}]}], "]"}], "/", "100000"}]], "Input", CellChangeTimes->{{3.6039757359972*^9, 3.603975772521999*^9}, { 3.6039758962755003`*^9, 3.603975898475663*^9}, {3.603976132655765*^9, 3.603976134444426*^9}}], Cell[BoxData["1.004025744197396`"], "Output", CellChangeTimes->{{3.603975750560007*^9, 3.6039757806610107`*^9}, 3.603975899131072*^9, 3.603976135386807*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], " ", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.603975717308074*^9, 3.6039757307052317`*^9}, 3.6039758311701603`*^9}], Cell[BoxData["2"], "Output", CellChangeTimes->{3.6039757319527807`*^9, 3.603975832559701*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"expdev", "^", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "100000"}], "}"}]}], "]"}], "/", "100000"}]], "Input", CellChangeTimes->{{3.6039757359972*^9, 3.603975772521999*^9}, 3.6039758368963614`*^9, {3.6039758896152554`*^9, 3.603975891966466*^9}, { 3.603976142162258*^9, 3.6039761424994698`*^9}}], Cell[BoxData["1.999411811473281`"], "Output", CellChangeTimes->{{3.603975750560007*^9, 3.6039757806610107`*^9}, { 3.603975837193296*^9, 3.603975845405353*^9}, 3.603975892676527*^9, 3.603976143355486*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], " ", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.603975717308074*^9, 3.6039757307052317`*^9}, 3.603975854109838*^9}], Cell[BoxData["6"], "Output", CellChangeTimes->{3.6039757319527807`*^9, 3.603975854403686*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"expdev", "^", "3"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "100000"}], "}"}]}], "]"}], "/", "100000"}]], "Input", CellChangeTimes->{{3.6039757359972*^9, 3.603975772521999*^9}, { 3.603975860195907*^9, 3.603975877420217*^9}, {3.603976148406288*^9, 3.60397614875489*^9}}], Cell[BoxData["5.898839885494238`"], "Output", CellChangeTimes->{{3.603975750560007*^9, 3.6039757806610107`*^9}, { 3.603975860751593*^9, 3.6039758849480047`*^9}, 3.603976149846675*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Gaussdev", ":=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"-", "2"}], RowBox[{"Log", "[", RowBox[{"RandomReal", "[", "]"}], "]"}]}], "]"}], RowBox[{"Cos", "[", RowBox[{"2", "\[Pi]", " ", RowBox[{"RandomReal", "[", "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6036642710956907`*^9, 3.603664320129106*^9}}], Cell[CellGroupData[{ Cell[BoxData["Gaussdev"], "Input", CellChangeTimes->{{3.6036643219843903`*^9, 3.603664324257454*^9}}], Cell[BoxData[ RowBox[{"-", "1.1381727302917397`"}]], "Output", CellChangeTimes->{{3.6036643248736477`*^9, 3.603664328025337*^9}, 3.603976157408206*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{"Gaussdev", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10000"}], "}"}]}], "]"}]}], ";"}]], "Input",\ CellChangeTimes->{{3.603663667175972*^9, 3.603663726530081*^9}, { 3.603664345545472*^9, 3.6036643574077597`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "data", "]"}]], "Input", CellChangeTimes->{{3.603663715746311*^9, 3.6036637213211*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-4., 0.}, {-3.8, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{17.50000000000003, 27.06263736263739}, { 95.06175446733212, 96.28778676483908}}], StatusArea[#, 1.]& , TagBoxNote->"1."], StyleBox["1.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-3.8, 0.}, {-3.6, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{26.06263736263739, 35.62527472527475}, { 95.06175446733212, 96.28778676483908}}], StatusArea[#, 1.]& , TagBoxNote->"1."], StyleBox["1.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-3.6, 0.}, {-3.4, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{34.62527472527475, 44.18791208791211}, { 95.06175446733212, 96.28778676483908}}], StatusArea[#, 1.]& , TagBoxNote->"1."], StyleBox["1.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-3.4, 0.}, {-3.2, 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{43.18791208791211, 52.75054945054947}, { 94.83572216982516, 96.28778676483908}}], StatusArea[#, 2.]& , TagBoxNote->"2."], StyleBox["2.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-3.2, 0.}, {-3., 9.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{51.75054945054947, 61.31318681318683}, { 93.25349608727645, 96.28778676483908}}], StatusArea[#, 9.]& , TagBoxNote->"9."], StyleBox["9.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[9., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-3., 0.}, {-2.8, 12.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{60.31318681318683, 69.8758241758242}, { 92.57539919475558, 96.28778676483908}}], StatusArea[#, 12.]& , TagBoxNote->"12."], StyleBox["12.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[12., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2.8, 0.}, {-2.6, 26.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{68.8758241758242, 78.43846153846155}, { 89.41094702965815, 96.28778676483908}}], StatusArea[#, 26.]& , TagBoxNote->"26."], StyleBox["26.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[26., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2.6, 0.}, {-2.4, 28.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{77.43846153846155, 87.00109890109893}, { 88.95888243464422, 96.28778676483908}}], StatusArea[#, 28.]& , TagBoxNote->"28."], StyleBox["28.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[28., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2.4, 0.}, {-2.2, 58.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{86.00109890109893, 95.56373626373627}, { 82.17791350943544, 96.28778676483908}}], StatusArea[#, 58.]& , TagBoxNote->"58."], StyleBox["58.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[58., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2.2, 0.}, {-2., 73.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{94.56373626373627, 104.12637362637365`}, { 78.78742904683105, 96.28778676483908}}], StatusArea[#, 73.]& , TagBoxNote->"73."], StyleBox["73.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[73., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2., 0.}, {-1.8, 135.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{103.12637362637365`, 112.68901098901101`}, { 64.77342660139958, 96.28778676483908}}], StatusArea[#, 135.]& , TagBoxNote->"135."], StyleBox["135.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[135., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.8, 0.}, {-1.6, 191.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{111.68901098901101`, 121.25164835164837`}, { 52.11561794100986, 96.28778676483908}}], StatusArea[#, 191.]& , TagBoxNote->"191."], StyleBox["191.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[191., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.6, 0.}, {-1.4, 284.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{120.25164835164837`, 129.81428571428575`}, { 31.094614272862643`, 96.28778676483908}}], StatusArea[#, 284.]& , TagBoxNote->"284."], StyleBox["284.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[284., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.4, 0.}, {-1.2, 327.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{128.81428571428575`, 138.3769230769231}, { 21.375225480063406`, 96.28778676483908}}], StatusArea[#, 327.]& , TagBoxNote->"327."], StyleBox["327.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[327., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.2, 0.}, {-1., 421.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{137.3769230769231, 146.93956043956047`}, { 0.12818951440922888`, 96.28778676483908}}], StatusArea[#, 421.]& , TagBoxNote->"421."], StyleBox["421.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[421., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1., 0.}, {-0.8, 495.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{145.93956043956047`, 155.50219780219783`}, {-16.59820050110575, 96.28778676483908}}], StatusArea[#, 495.]& , TagBoxNote->"495."], StyleBox["495.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[495., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.8, 0.}, {-0.6, 627.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{154.50219780219783`, 164.0648351648352}, {-46.43446377202439, 96.28778676483908}}], StatusArea[#, 627.]& , TagBoxNote->"627."], StyleBox["627.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[627., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.6, 0.}, {-0.4, 713.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{163.0648351648352, 172.62747252747255`}, {-65.87324135762289, 96.28778676483908}}], StatusArea[#, 713.]& , TagBoxNote->"713."], StyleBox["713.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[713., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.4, 0.}, {-0.2, 735.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{171.62747252747255`, 181.1901098901099}, {-70.84595190277598, 96.28778676483908}}], StatusArea[#, 735.]& , TagBoxNote->"735."], StyleBox["735.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[735., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.2, 0.}, {0., 837.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{180.1901098901099, 189.75274725274727`}, {-93.90124624848583, 96.28778676483908}}], StatusArea[#, 837.]& , TagBoxNote->"837."], StyleBox["837.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[837., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {0.2, 820.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{188.75274725274727`, 198.31538461538463`}, {-90.05869719086753, 96.28778676483908}}], StatusArea[#, 820.]& , TagBoxNote->"820."], StyleBox["820.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[820., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.2, 0.}, {0.4, 714.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{197.31538461538463`, 206.878021978022}, {-66.09927365512983, 96.28778676483908}}], StatusArea[#, 714.]& , TagBoxNote->"714."], StyleBox["714.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[714., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.4, 0.}, {0.6, 732.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{205.878021978022, 215.44065934065935`}, {-70.16785501025511, 96.28778676483908}}], StatusArea[#, 732.]& , TagBoxNote->"732."], StyleBox["732.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[732., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.6, 0.}, {0.8, 625.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{214.44065934065935`, 224.0032967032967}, {-45.982399177010464`, 96.28778676483908}}], StatusArea[#, 625.]& , TagBoxNote->"625."], StyleBox["625.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[625., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.8, 0.}, {1., 534.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{223.0032967032967, 232.56593406593407`}, {-25.41346010387717, 96.28778676483908}}], StatusArea[#, 534.]& , TagBoxNote->"534."], StyleBox["534.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[534., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {1.2, 440.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{231.56593406593407`, 241.12857142857143`}, {-4.166424138222993, 96.28778676483908}}], StatusArea[#, 440.]& , TagBoxNote->"440."], StyleBox["440.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[440., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.2, 0.}, {1.4, 358.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{240.12857142857143`, 249.6912087912088}, { 14.368224257347663`, 96.28778676483908}}], StatusArea[#, 358.]& , TagBoxNote->"358."], StyleBox["358.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[358., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.4, 0.}, {1.6, 271.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{248.6912087912088, 258.25384615384615`}, { 34.03303414045312, 96.28778676483908}}], StatusArea[#, 271.]& , TagBoxNote->"271."], StyleBox["271.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[271., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.6, 0.}, {1.8, 172.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{257.25384615384615`, 266.8164835164835}, { 56.41023159364209, 96.28778676483908}}], StatusArea[#, 172.]& , TagBoxNote->"172."], StyleBox["172.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[172., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.8, 0.}, {2., 129.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{265.8164835164835, 275.3791208791209}, { 66.12962038644133, 96.28778676483908}}], StatusArea[#, 129.]& , TagBoxNote->"129."], StyleBox["129.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[129., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0.}, {2.2, 80.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{274.3791208791209, 283.9417582417583}, { 77.20520296428234, 96.28778676483908}}], StatusArea[#, 80.]& , TagBoxNote->"80."], StyleBox["80.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[80., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.2, 0.}, {2.4, 63.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{282.9417582417583, 292.5043956043956}, { 81.04775202190065, 96.28778676483908}}], StatusArea[#, 63.]& , TagBoxNote->"63."], StyleBox["63.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[63., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.4, 0.}, {2.6, 33.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{291.5043956043956, 301.067032967033}, { 87.82872094710943, 96.28778676483908}}], StatusArea[#, 33.]& , TagBoxNote->"33."], StyleBox["33.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[33., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.6, 0.}, {2.8, 26.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{300.067032967033, 309.6296703296703}, { 89.41094702965815, 96.28778676483908}}], StatusArea[#, 26.]& , TagBoxNote->"26."], StyleBox["26.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[26., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.8, 0.}, {3., 14.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{308.6296703296703, 318.19230769230774`}, { 92.12333459974165, 96.28778676483908}}], StatusArea[#, 14.]& , TagBoxNote->"14."], StyleBox["14.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[14., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {3.2, 4.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{317.19230769230774`, 326.7549450549451}, { 94.38365757481125, 96.28778676483908}}], StatusArea[#, 4.]& , TagBoxNote->"4."], StyleBox["4.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.2, 0.}, {3.4, 6.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{325.7549450549451, 335.31758241758246`}, { 93.93159297979733, 96.28778676483908}}], StatusArea[#, 6.]& , TagBoxNote->"6."], StyleBox["6.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[6., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.4, 0.}, {3.6, 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{334.31758241758246`, 343.8802197802198}, { 94.83572216982516, 96.28778676483908}}], StatusArea[#, 2.]& , TagBoxNote->"2."], StyleBox["2.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2., { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.6, 0.}, {3.8, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{342.8802197802198, 352.4428571428572}, { 95.06175446733212, 96.28778676483908}}], StatusArea[#, 1.]& , TagBoxNote->"1."], StyleBox["1.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1., { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-4., 0.}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->NCache[{{-4, Rational[19, 5]}, {All, All}}, {{-4, 3.8}, {All, All}}], PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.603663723168139*^9, 3.6036637282834673`*^9}, { 3.6036643490706244`*^9, 3.603664365272087*^9}, 3.60397621876318*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"x", " ", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "/", "2"}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"2", "\[Pi]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.603976271996563*^9, 3.603976302749124*^9}, { 3.603976479053463*^9, 3.603976479367424*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.60397630379676*^9, 3.603976480174367*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{"Gaussdev", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "100000"}], "}"}]}], "]"}], "/", "100000"}]], "Input", CellChangeTimes->{{3.6039763151589108`*^9, 3.603976326205399*^9}}], Cell[BoxData["0.00435301704693544`"], "Output", CellChangeTimes->{{3.603976327611684*^9, 3.603976330921351*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], " ", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "/", "2"}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"2", "\[Pi]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.603976271996563*^9, 3.603976302749124*^9}, 3.603976343875132*^9, {3.603976486376698*^9, 3.603976486623961*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.60397630379676*^9, 3.603976344348804*^9, 3.603976487197456*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Gaussdev", "^", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "100000"}], "}"}]}], "]"}], "/", "100000"}]], "Input", CellChangeTimes->{{3.6039763151589108`*^9, 3.603976326205399*^9}, 3.603976363804111*^9}], Cell[BoxData["0.9998457211140868`"], "Output", CellChangeTimes->{{3.603976327611684*^9, 3.603976330921351*^9}, 3.603976364700534*^9, 3.603976493938487*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "x", "]"}], " ", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "/", "2"}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"2", "\[Pi]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.603976271996563*^9, 3.603976302749124*^9}, 3.603976343875132*^9, {3.603976486376698*^9, 3.603976486623961*^9}, { 3.6039766136293907`*^9, 3.603976617363564*^9}}], Cell[BoxData[ FractionBox["1", SqrtBox["\[ExponentialE]"]]], "Output", CellChangeTimes->{3.60397630379676*^9, 3.603976344348804*^9, 3.603976487197456*^9, 3.603976618218194*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.603976622879642*^9, 3.603976625192828*^9}}], Cell[BoxData["0.6065306597126334`"], "Output", CellChangeTimes->{3.603976626086287*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Cos", "[", "Gaussdev", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "100000"}], "}"}]}], "]"}], "/", "100000"}]], "Input", CellChangeTimes->{{3.6039763151589108`*^9, 3.603976326205399*^9}, 3.603976363804111*^9, {3.603976628726296*^9, 3.603976632956071*^9}}], Cell[BoxData["0.6052643598146122`"], "Output", CellChangeTimes->{{3.603976327611684*^9, 3.603976330921351*^9}, 3.603976364700534*^9, 3.603976493938487*^9, 3.6039766340573187`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", " ", "y"}], " ", "]"}], " ", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], ")"}]}], "/", "2"}], "]"}], "/", RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.603977177522504*^9, 3.603977221369491*^9}, { 3.6039772681937323`*^9, 3.6039772726937838`*^9}, {3.604350250767877*^9, 3.6043502858058968`*^9}, {3.604353466073265*^9, 3.604353493139718*^9}}], Cell[BoxData[ FractionBox["1", SqrtBox["2"]]], "Output", CellChangeTimes->{ 3.6039772230024*^9, 3.603977273557968*^9, 3.6043503013793507`*^9, { 3.6043534749099894`*^9, 3.6043534940199738`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.603977226618791*^9, 3.6039772327652683`*^9}}], Cell[BoxData["0.7071067811865475`"], "Output", CellChangeTimes->{ 3.603977233401778*^9, 3.603977274776402*^9, 3.604350307023761*^9, { 3.6043534884802113`*^9, 3.604353495250432*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Gaussdev", " ", "Gaussdev"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "100000"}], "}"}]}], "]"}], "/", "100000"}]], "Input", CellChangeTimes->{{3.6039772459849043`*^9, 3.603977253004981*^9}, { 3.604350335014318*^9, 3.604350335364328*^9}, {3.604353500654599*^9, 3.604353504062767*^9}}], Cell[BoxData["0.7098742717215031`"], "Output", CellChangeTimes->{3.603977256879697*^9, 3.6043503407049723`*^9, 3.604353505772698*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"promedio", "[", "data_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}], "/", RowBox[{"Length", "[", "data", "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.6039800932096987`*^9, 3.6039802688710318`*^9}, { 3.6039803906915503`*^9, 3.603980400209466*^9}, {3.6039808718745937`*^9, 3.603980875184156*^9}, {3.604000550264509*^9, 3.604000550714779*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Gaussdev", "^", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1000"}], "}"}]}], "]"}]}], ";"}]], "Input",\ CellChangeTimes->{{3.603980275010803*^9, 3.603980298707432*^9}, 3.6039804133819523`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"promedio", "[", "data", "]"}]], "Input", CellChangeTimes->{{3.603980300629661*^9, 3.603980303668253*^9}, { 3.604000561019348*^9, 3.6040005615928297`*^9}}], Cell[BoxData["0.9670662438661917`"], "Output", CellChangeTimes->{ 3.6039803045378027`*^9, {3.6039804031492033`*^9, 3.6039804151360817`*^9}, 3.604000564142926*^9}] }, Open ]], Cell["\<\ Ecuaci\[OAcute]n diferencial estoc\[AAcute]stica\ \>", "Text", CellChangeTimes->{{3.603985786218508*^9, 3.6039857968576193`*^9}, 3.604000468485034*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"\[Mu]", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Nn", "=", "1000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]t", "=", RowBox[{"1", "/", "Nn"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6039860019854183`*^9, 3.6039860468518677`*^9}, { 3.6039861360552*^9, 3.6039861516591997`*^9}, {3.6039861910927877`*^9, 3.603986191946537*^9}, {3.603986285437435*^9, 3.603986312831008*^9}, { 3.603986436966939*^9, 3.6039864536062813`*^9}, {3.604061999368535*^9, 3.604061999960431*^9}, {3.604065504771627*^9, 3.604065509241111*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"x", "[", "0", "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", "i", "]"}], "=", RowBox[{ RowBox[{"x", "[", RowBox[{"i", "-", "1"}], "]"}], "+", RowBox[{ RowBox[{"Sqrt", "[", "\[Sigma]", "]"}], " ", "Gaussdev", " ", RowBox[{"Sqrt", "[", "\[Delta]t", "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nn"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.6039858815409517`*^9, 3.6039859932566023`*^9}, { 3.6039861174385643`*^9, 3.603986128665012*^9}, {3.6039862380407333`*^9, 3.603986259561985*^9}, {3.603986418247054*^9, 3.603986419035039*^9}, 3.604062009385223*^9, 3.6040624775302553`*^9, {3.604065640386907*^9, 3.604065643097584*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]t", " ", "i"}], ",", RowBox[{"x", "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nn"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.60398597983113*^9, 3.603985987708626*^9}, { 3.6039860541195087`*^9, 3.6039860776664352`*^9}, {3.603986320088089*^9, 3.603986342498519*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.24720000000000014`, 0.24, 0.6], LineBox[CompressedData[" 1:eJw92HVYFGsbBnBggw0UVEzswA5EbL0HWzGwGxS7FbEDO4+KARaKYncgiooC oiCgSMPSsMEWLG0g8g3Msx//nGsvZHbmfZ/3/t1z2rltmLbMzMTERM0zMan9 798HJQmT3JzRKuPAqVTpE3CfF2HK+947V0QG4s/e1cEe51eizHrZqcP5b+j3 GzGg8Rb9tNEB2GX9dGzeTg+Y/Iqeu+38YPr326F+2stewPPHDo2tnejxbpgk B1/p0nYB/f0+9Mrs/PDV2nshQ3KmnLq4/gB6jTp8fNRirxDueoeQNPXn8a6j AkPejbcw6370CKY2Q69x45+FcNc/hqJYt8Z9vnuFDHr1detHvxOoHmz32G77 Y/q+/2DTwbdFB5dQBLU+rJsadBqNo5eunn06nL7fC6NNFJ90+8Lh+7ntc/eV Z6HPrL/Hr384uPs5h+WjHj0YP+YTMn7XfSH8/7u8JnbJZ3reC+hduWNZs/Gf YdM7q6Nwvzd+Vl4fsuRcDLj79YHvofvXdrjFYt7Suiuiq+RQZ7vpP2h9LmGH Za6v/7poXLlc94PQNutOzz34BdzzXEGfZwcEzqMfQBb7c7r8zlVoX79rsMs8 kJ7PF7FibbcJzy6iOX9W/Z4vr+GQx5Ag5bpAet7rGGFpOWT8yDDM4S6IXjGF 9oum36Pnv4Els3fOVCU+wcQBxx0XKW9gmu/R++GDjetxE7unHN9+MikS+qm1 V7yJHxsvd1kQ8JnWxx/Fac19QoOjcXJtQdWDEn94x/Z8NbLiO63XLfRVLr/Q bN83dD/ahH2EW5Bkbvc3GRZF63cbJ2yW65zmJiDm5ujXZdW3sTc5stvNrqm0 nndg3X+p963DiahdrWb8uzj76bohzTSR1vcuMvseyAnRpECSemvjMMk9qH7L 7j5Lk9F630NionOTEw5peFj7uFb30W+yuOuAXWm0/vdxZu8X+27NZJhQe7km DzD3oOxB5IMs2o8HGOLwG7y72ahb7pYP8WXJBVerSVm0Pw9hb5fYICQzDbWr F9f+Eb5czW8ZsDSV9usRTo4pK5kxJgVdF5z5VNHlMYKupl55Vy+F9u8xzIs3 jTtSmYQo9motej/BipKENS5j02g/n2Dn9cY76s/MxMqzhbvh8BR570ZczgpP p/19ivYjJjcfGyADe3PsIz/Dgu8pKxw6ZdJ+P0PfAibmk0k6ZrDDw24pal4E Hzt/LY32/zku2Ct94tun4Ta7eqm3niMwIPrZzKBkmofnKFmW9a3dqySUVydt 19i+wCU7q6e9JiXSfLxAzDtDUKo8DqPqBuAFhgfn3LWrl0jz8gKuvPIPT4tT wW5e7QOhhbZou/1gGc3PS9QM6+xv75IK7vZeYr54ncm5S0k0Ty/ROuhYq9g3 abCv+wmA4sdxU98RqTRfAXAb/W+r+1UZDoZGsxPEfpamNS5rl0HzFgCvSfxW go2pSGR3n10TbOwzfsnYqCSav1condWgYe55GTrUXfAV+kdMKvHgp9E8vsL+ SR/m2ndPxea6DQiExeTvTo7PjfMZCDuRX+fk5DSEV3RhdzgQQ54kPez4MJ3m 9TWi5yxv6uGbjYbcDSJqSYzXwr7ZNL+v0bl6246r3tmou7uvr5F9LNQQ/SCb 5vkNXjb/bvHkTjZeXjPci3B6g3GvnnRuFZBN8/0Gooa9z1l+SINZ3QO/QVCs QxPbJ+k070E4tGNMx1Pe6ZjGDQzGyR7ce7NNRvMfhM2fG75fe0UG/9rHTQqC e9dRx97uNp6HtwgeYjLn0N1UlNZebs5bhAwe8ux5YQadj7c41Lr90qE2ORhR O/4ZbxHefUJBF30unZd3mL930bBZq3NRN74u7xD6tF/Uhmv5dH7Y3/9bb9tv Sx7ydtZuyDsMHLbu2YCpuXSe3uPkCdsDes9c2NUN+Hssevz+v01j0+l8vUdm b69Z1eEy7PceyY7MexSs9y539M+g8xaMHUtn7Fk1JwPx7es2GIVeCyfp7LLp /AXD8k7konDvHLSrTf/CYEh9es6xeJdK5/EDKkL7b943Jg2bao/Hxg/wGDro xjrLVDqfH9C5a9t4mSYVYbW7W/YBjmbzej76m0rn9SPiHyRenH0nBVbcgYRq +5jbU/5LpvP7EX0XBI5s9CoZdcv3+yNmbP/UMd89nc5zCIY/N/mXlZGNutvb HYIfNyI7f2mcQ+c7BIKymfPnjs6BSd1PKCyXpzX4k5tL5z0Ub4Mmh50NzcX9 CCf2RIfC5sHwqq4xOXT+Q5H/bqtQGJ8HZ/Y0sjOKXhtCAmqO51MehCI99N2x Mnb9f9Xq8zkUx1oOTQ2ekk/5EIqRf+c0c+2Qjxstag9EGJK6K/t1GaqgvAiD eGLXRyJbOcbVbXAYggbdb/Wgl5zyIwwNem4fY9JNieJ7tTfIfp557LjfQTnl SRgcMoObalyVuFR7d9FhaDXv9FnZJTnlSxj+Ru6N0LySo3a4xlt8gq2TblVi iYLy5hN2t4oYUXpIjto0SZj0CVclg4sGD1JS/nzCzgfO0RvDlaidFnZk4DQn cPP2xRrKo0/gN3jh+AI61D1u3CfkLu+xe31fHeXTJxz6XGHbp7cGdZdrGA7H TWYb7DZqKK/CsW3X4cLHj7Woi6Pp4UgasyBhmq2W8iscx4J1PfvP0YKrD+H4 OcXFgWmiozwLhzp+TdstJlrUxUFqOALqXegXLdRQvoUj/EJD991DtPCsC5zP sP9bkjzQTUN59xlL1ZeeHF+hRee6A/QZbgfyq45M1VD+fcaOgJFO7cO1+FFX Lz4j2i7N6uN+LeXhZ4T4BWfp+2ixrfY4ZH2Gasr6MdnZasrHz1iSN9okaoEG bWrHufUXLH1qMlL1UEN5+QVoOj+4g7kakbXjt+gLOri0GbpjqJry8wuWzBjm +OOQGhvqAvILajpVWIp2aihPvyD4rXBuRH8dmtYd+C84w3s2cnpPNeVrBKwf alqsnqpG3e11jEDbRTZhV2s0lLcROPx9wtF4sQ7L634iMCvtxz+H31rK3wi8 79QxtJ2fBrXliU1YbH2YNG59cy3lcQQcGzR4/oH9+9p03K6JwJN9gX4ZJzSU z5Fwanf6SshGNVzqLhiJP2N1IzaP0lBeR6LXb/d9XXw0ENYFVCTsHgwMjO9Y QPkdiVc9U6QjypWo3Q3rp5Go8Xd5O99eQXkeifpVI+O9lyhQ1+4MkRB4rNzr JVVRvn9FiZ/mbIvnKvyrPW52X3G5WCQ7+kVFef8VDeXDzf0T1LhbO87uX/H3 1plvrzcpKP+/YoT8ffdpZxWYzD0wFuUYnO5uVJIHX/Fw64EjvGAVKmu3o+Ir mky+5HCxWEU+ROHOlsvj7k4pwPXaxx0QhUKH7xVNu6rJiyhEuEZdH/tHjTF1 CxiF0CCbvXnbtORHFAbuPzrf+YkaRXU8RGHLfNwaJisgT6KwOycs54xcBZ/a eK+KQt83U+Jn+hSQL9GY4Nn4nzxShbp4HhaNYskc2WF/FXkTjY2/P187MVCO unjdG431H2/PsNfLyZ9oJH3e6uwXqwQXf9FIX92+fx6/gDyKhtn7+iOetFRx 8WIWg9edK0drS1XkUwzaaLuEvLEsQN3xHRkDoad7kvnJAvIqButHVVy7matE 3fE4HINrIZkjZk9Xkl8xKD8XGy1trQQ3fjForD28ocWjAvIsBl/eeyY5VWqQ XLu9om8Y6nAuOMpFR759Q7s1GyxjZuuxp+4Ov6E8s96F1/Fa8o7t3X9CvAJ6 adGpbgC/Ifl7s83Fy7Xk3ze0eaR95fxCi+/f6n6QkDlqwCtrHXn4Db3MP8qu rSzElrpA/Y5Ts84NrT9IRz5+x58VHf4cqdSxuVw70N/xOlwd8atJEXn5HaWR F+dluBjwpe716juqyhVngpYUk5/fca/LmNDIMQasqwvo7xALfZvcCi4iT7/D uop/jdEVoS6urGOR2q7j6gs7i8jXWJyd5tLRL1uPujiYFYt9lz60iQjVk7ex 4PuNsmnnpgf3+hWLY4nZ14tdi8jfWHwsP9PRY44BFtyBw1eta9rys0XkcSwS rzWy/GSiR924tPiBibd+dfFU6cnnHzg1blGjv+6FqNuOBT8QfLfjtsPLi8jr H7COLFp/9FshuNezH2j8enj8rz9F5PcPCL9g0obZhai7XM4PPEyRlm34Xkie x8Fw5+Oy/VsMdN7j4CBc3jBhfDH5HoePg1bzl90vpvMfhyslTvrfr4rJ+zjs a/P64aYvpZQHcazvNw0qtzLyPw6vV8e2f9GqnPIhDtF39I6m/cupD8Th0ELp 4uyUMsoL9u8Zm6Nem8upH8Shma/g7LanZZQfcZiyQO+6blkZ9YU4XH20r2zm mlLKkzi8kQSJC3Ql1B/isLeeiVfvZSWUL3E4uGjm3awdZdQn4tF2wZHog9PL KG/icUHeza7L7DLqF/EImjE79ubbUsqfeGR1PTjzaWUJ9Y142IxRV6+ZUUJ5 FI/JZb3MI2eVUP+Ih4fL44jypqWUT/GY0MvU1nJaKfWReARuPKD0blFCeRWP K6XipbtXl1A/iYfFj+Ab6TkllF/xSNjjFFEhK6G+Eg/FBLNOF5aVUp7Fw9mt a06kdSn1l3is8P84ZdHCUsq3eNh/Oex9I7uU+kwCVN7mQ6Zll1HeJeDGiw6X Tpwso36TgPWXNb52+eWUfwloazpl5+Lh5dR3ErDj/IHWec5llIcJkJ4cujsq sYz6TwKUyw9f9lxTRvmYgPoWM4PK+5ZRH0qAS5ua+ldRRnmZgOVH7/hPGFhB /SgBz/Wnm3eOLKf8TMC6CXb5VuPKqS8lIKfRqujCUeWUpwnweznLp1uLCupP CaiccNBiZF4F5Wsixpz99zf1cgX1qUTwBtdsuFlcQXmbCOXMgI6eARXUrxLB 2LitUMrKKX8TMUqRFKb7VE59KxGby68XHXhdTnmciENnrCbZvCqn/pWIXwW/ mjjaVlA+J2L9552bV2wopz6WiDfdf7W//qCc8joRhr9+PXeZV1A/S0TbS/z0 ZXsqKL8TcfXB8CmWWeXU1xLx6O7hQz5/yinPE5E2aMXTTdaV1N8Sccq68ewb sysp35Nw4OelXaNLK6nPJWGzbHMLg/gn5X0SOre5PfRLRQX1uyRM3+ppc/1P BeV/Ety2u9yc2KeC+l4S5v+e81U7tpw8SIJj9OIFL8LKqP8lofjuv0UB28vI hyQc/rvB5npgKfXBJDiPPXmuCTsfnBdJGFO6YnQUO19cP0yCosvCv/NLysiP JCTFMTc/S8qpLybh+N+eZzawecF5koSbF3/vuT+wnPpjEnp+ODhWUF5OviRj 2kWx/KhbBfXJZDRfcWP6d3YeOG+SYTf17rZu0RXUL5MR5fFN8Sy3gvxJRgtH N7XX10rqm8mIm1CzqXe7n+RRMiZuW3/8xahf1D+T0Tp+dUa3mb/Ip2T0aRNr MS/mF/XRZHj0qnI5d/YPeZUMn2mSBSaN/1A/Tcadjs+bZXn8Ib+SkVrya6f7 4irqq8noX7zF5WCTKvIsGfErnnWaUlxF/TUFGpsjEYuv/iXfUjDqdpvdAzf+ pT6bgkNTHpqfOVRN3qWgS6+Vk0c1+0v9NgUCU4l9t7V/yb8UdDP3dK2KrKK+ m4Ibtl8mOVr8JQ9TcLHzxHORVtXUf1Pw9tDGPweXVpOPKZCtfpvh2/Uf9eEU LLI4MfnR/BryMgX9+zbST7v/j/pxCqTV95xCQv6RnylI8s5Z1bOwmvpyCuZs 2Ldu2s1q8jQFG/3y5/Tl/aP+nIpYyWLz4R2qyddUtAh3LG68vpr6dCq6Kfk9 f8yuJm9T4Rib3v7b9n/Ur1Nx7j/dPObWP/I3FTnuruOG6v5R305F1s5WLbds qiGPU/Hzdh916cAa6t+pyHzX+l2LASYM53MqquyxaKW1CcP18VRoG597omR/ z3mdimm+13ogxoTh6kIqvMc39G+23ZTh/E6F69MDHwsDTRmur7OfM9ImD7Ez ZTjP07BZ/8wvTWnCcJ6nYfuBDsqv10wYzvM02MWnnpQfMGE4z9Owaai3TcdO JgzneRpKtztEDCurIc/TcNXqwtQtL2vI8zTwYobe38avIc/TkHdrUoFH2j/y PA2+iR8ilulqyPM0LHofd19z3oThPE+D/0eh4/MoE4bzPA1BAbcvMe1NGc7z NEw7daLtVakpw3mehv4XF35sl2/CcJ6nYZ6vskfefFOG8zwNqvqF9UQCM4bz XIafil73ytnfc57LoLnu3H3BeVOG81yGC2LlsMpEU4bzXIYWSz0Ouh8wZTjP Zeg98lXU+ZZmDOe5DMt8L39qKuIxnOcyWNSXvuoq5jGc5zLcaMMT9ZnAYzjP ZTjvuef3xhU8hvNcBvf3l6fElJsxnOcyTM7KdWoeaMZwnsvwQTBuWelEM4bz XAazqdOjIu6bMpznMux9p17T8qkpw3kuY193i1odsDBjOM9lKEkRbl3gZ8Zw wKXj1LnO3dcYzBjO83TU/z2zz3BHHsN5no7ptzrcHmHLYzjP09EqzL/Hph48 hvM8HZtuV488aMFjOM/TkVq9Ke0in8dwnqcjQCfYqXjHYzjP02Gy4NSp6K88 hvM8HZUDTS4U5PAYzvN0WHX6+1/nVjyG8zwdi3MWpTtP4TGc5+m47p/00zOL x3Cep+ONTVxBs/94DOd5Omzdo6IazeYxnOfpGDuxSrDjvRnDeZ6BtWbjVP+N 4DGc5xnwOMafXzaMx3CeZ6Dnxfqu3n15DOd5Brb61k8eIOQxnOcZyDbtzRwr MmM4zzNgc8TtcfACHsN5noEd4k4ms2VmDOd5Bhx83b/qSswYzvMM/AwQrS3Z Z8ZwnmfAvUrg/FZvxnCeZ2BbRUrN0fY8hvM8A3Lt/P9SBpgxnOcZGNDvmVTA 3g8XVxmI/FW0N7Ezj+E8z8CL3Z9SMhryGM7zDFz2m3UseA2P4TzPhJlo5rrq IzyG8zwTgm2OW6p38RjO80y47a+5f3wfj+E8z0SHG9E8yz9mDOd5Jrbs7l+P PdUM53kmdu2QVh5pxmM4zzMxzudCdT1nHsN5nol6s3sctpzDYzjPM+E6MzVr JzsPnOeZ4C+0L15wgMdwnmfiRPLAvi/X8RjO80wM9Qt6eq8nn+E8z8SSZ0UV mls8hvM8E6mvm3Z6we4n53kmPnkt3Dy5H4/hPM9EE+ttWVJ2XjnPs9DCsEbv 5cljOM+z0Dxg1/Bidv84z7OwtAkTmnGPx3CeZ+H3l/sppgU8hvM8C4HXRli0 8+YxnOdZsJ/Q7NGNtjyG8zwLvme1g4e84jGc51no1T7wWGwhj+E8zwJUI5/n /MdnOM+zMOKpoWP3jgKG8zwLstI9xS0gYDjPszD8cwgvII/PcJ5nYeMoTceA s3yG8zwLcx3Dgz3q8xnO8yxYPtfNk2j5DOd5NsYst9+6ooGA4TzPRvBVVeaH GQKG8zwbExtOGz9PKmA4z7Phu2bs79K5AobzPBuTRrc7kWjgM5zn2XjiEfgq PprPcJ5nY0hi+O7XiwUM53k2lg8SNQm7IGA4z7PhMNvEwra5gOE8z8bxohGd Yg8KGM7zbJwTFQ2/GClgOM+z0XyHg1N5PwHDeZ6N+u+rh2+ZLmC4eM6G7sl4 p1b1BQzneTaiV6X2HNJFwHCeZ6NwibiXOofPcJ7nIMH63Yf99QQM53kO/Bys PLaF8RnO8xwkDWvi73lYwHCe57Dvid0HNhgoYDjPc9B40SnZ3nsChvM8B1EL Uzz3zREwnOc5iFt/0L7XXz7Dec5+30sLu1KGz3Ce5yAvYvjmxHl88jwHp/Kb dpfc55PnOdB07hpR/olPnufg/OPrZzusFJDnOdjnNe75snw+eZ6D2Kv2dy8M FZDnOYhv0Ubhxs4D53kuJv+TnCx7w6fzngv/OZV/7/cUkO+5sBnctcF+9vm5 85+L2ae+FNqx88d5n4uyecL/tsbzKQ9y0T606UlRUwH5n4v9w3fEuwTwKR9y IeTv7udQw6c+kIuFf1J+/njNp7zIRV7uwmfqL3yG6we5+C8qz256Lp/yIxf9 +kU+uZvCY7i+kIuaotIx0BjzhL0fiVnKSDbfuf6Qi/69DGGLCoz5kothS8qk 8sc8husTucgdZm4dvMyYN7mouOG9J2Q9j+H6RS6CfUfHhRwz5k8u5oT9Sr7N 5g/XN3JRknfD1fW0MY9y0WLr3g7RrOdc/2CvF6T/+ey3GeVTLlIa3Gx4i/0+ ro/k4l5Oy2hLNn+4vGLv/2XgspORZtRPcjHin6GJOtuM8isXioIeDSI2mlFf Ydfj9ZXQjl2MeZaLKw96D17I+sD1l1zctbtpOmuVMd9yMd3+8roOrKdcn8nD M+d6pmkD+ZR3eejgenzSmSF86jd5GDPl0f7DffmUf3m4u32q+ezGfOo7eVh6 eHh06UVjHuZh6MB95Qt9eNR/8uATMNz6m8yYj3nQxT7Y49qQT30oD0/7XRly 8IUxL/PQ9ZRDlyNvedSP8nCswfwvGTDmZx5G1hS38Ao39qU8uBus216czKc8 zYPLlKHyozv41J/ysNW91azBBQLK1zxg7UTPqscC6lN5CG+zUqr0EVLe5qHf htB3vEtC6ld5ODHjsM+VhkLK3zxsHOrdpZ+1kPpWHmyVDVtIjgspj/Ow2bYh /06GkPpXHpq2mJqwuYU55XMeLK9MVx7fbk59LA/DfUz/PLwopLzOwzjb707F M4TUz/LQO16uHGElpPxmn6elf/DpMAH1tTycz/W+Z1csoDzPQ+dqt9N8Np+4 /paHxFk3Ple6Cyjf89H40mvb064C6nP5aO78vX8zOZ/yPh99jv57XDKCT/0u H7/6jbs55iqf8j8fN17PX2rYx6e+l4+488dbte7NJw/y0aaz19Nt0/nU//Jx dWHL/tW7+eRDPiZefymzbMOnPpgPJmXy5BI7oxf5OGNVWrNrDJ/6YT4eaaxi Jvc1+pEP14dlUSOFfOqL+dg9rNGOg2wecJ7kY820WU7XE/nUH/NhnjHbvt96 PvmSj+nLE4MOr+BTn8zHoMDUuX9H88mbfMQLD0w+lm3sl/mwa/bo5pPufPIn H+tOXLu1eBaf+mY+9i1v4lq1gE8e5eNBhVXTPPYz1z/zUU/BnOzP5g/nUz60 RVLT+DBjH83HWs1w+Qm2X3Be5aPixMQ9iav51E/zIRAHPahewie/8rHhS4tR A/vzqa/mw9H28qEp3nzyLB82gs6OHX/zqb/K0a+86arKMwLyTY4VfltFi3sJ qc/KoXw8Pn7eMCF5J0fSNP8RygZC6rdyjC3tUcU7LST/5IjuKlecMzGnvivH mgdeC941NicP5Qja7TSm/URz6r9y9J59sd7RAebkoxytOqy742VjTn1YDnVW cQ+P6ebkpRyDTnbNShKbUz+WQ9XxcnuLhubkpxw/4wJvtp5vTn1ZjgYRVg01 QnPyVI65l9oFtdUJqT/LIW+8LrTotpB8lSP5V6p1eKGA+rQcA0xkG1b8EJC3 cvQK87ntZSukfi3H0D0vujxgzw/nrxx3/tsjynsuoL4tR4+dr6bGsHnCeSyH xwJ72YIhAurfcuS+Tm9fyp4fzmc59lrP6/w1iU99XI7izkc/iJwE5LUcPKuS iYutBNTP5bjgX7yh3Mvotxyn72w8WWwQUF+XI8Hx58SdZwXkuQJHE2VZc7ON nivwvVXRunqNjJ4rMGRCg5jE7gLyXIHH6oYLuvQ3eq7Adq+TYdGzBOS5AuLJ q+W2F42eK+ClbX+IcRCS5wpsq/bX/20qJM8VeK+8HL/VUkieK5DZtuZTPJtf nOcKtGw8fXDvUgF5rkB/beX9AomQPFfAxMX9q6VGQJ4r0KlnO/ULGyF5rkDN kC19rJ8JyHMFtpbUuN+PEZDnCljda8wrHiQkzxVwW9nt3ZZ5QvJcgWTtx8E3 2wvJcwWWzTz48PMBIXmuwOC7C6ZkNhOS5+zn79MGNJgrJM8VCFjtM021Vkie K5Db9NP74wOE5LkCfnN3Zdt7CslzBa7EvJyfsF9Iniswd3mPs6N+CclzBdv/ yu08nMzJcwWs7bpN3t/InDxX4PXu9G6OmULyXAGDp7x1tIc5ea5A9Pc7M182 MCfPlRCNG5T2Qy8kz5UYNXNQvyCVkDxXovncD7+9HgrJcyXeOCROjPkqIM+V eKRvEqpn54HzXIk/Cq97/3wF5LkSbt8bXwhUCMhzJdb8OiZ1uiIgz5WQJ/T+ 5fRIQJ4rEXFlRb0O7L/nPFfC7+a0dWvEQvJcicGajg7f9wrIcyVSw9pOMvw0 eq6EZkLpg6SJAvJciaABLbut8TZ6rsQ/51YTxhcaPVfixLv2EaW2Rs/Z9ahs u7N7K6PnSqjcf+0b8UFAnrN/38euazl7f5znSsQ/aRrz7pPx/UoJRWHW9Zw4 AXmuxMc/HiWPTxjft5QwvbRx4oQdAvJcCQup7yormfH9S4l9HWOTtgfzyXMl ZJusZIXbjO9jShz4FOMxhO3/nOdKvD66U9Toq/H9jF2fqdMdus8zeq7ErpRr U/XjjJ6rcKby0MyNfY2eq7B15ISzd5KNnqvgZ7paoWTf5zjPVfjk3/i2FYzv cyrIYkXMJKGAPFfhS+VVy/sfjJ6r4D7jY0E/D6PnKpQOGrbOXGD0XIV/t25r zzUyeq7ClvMrmrqaCshzFURPp8Z9TjR6rkLY9apKz49Gz9nrhzgpRrN5ynmu wsbGIeuv3Da+H6ow+eoh0dQtAvJchVsG98Z+K4zviyp0Gzp53Sat0XMVBpbv id3TzPj+qEJQo3aNGVc+ea7Cx+qf3QY1N3quwnzfZ0veNDd6roL/23vOZ4p5 5LkKe7p1Xb+w0Pj/k1RwfHxtt+sFo+cqOLeQv5yRZPRchcTmDZxsfho9V+He kwz7yH5Gz1XovXqG25z/e67CFc3B9Ku9jZ6rsKJpI1fHVkbPVbj5fvBWm6NG zwtg2cYj8MFn4/tqASStUrvWsxSQ5wWY/GftvpuWxvfXAtzfv0N6boOAPC+A /asOB3rvFJDnBXjZ+NTYlvMF5HkBXFbdezvtB588L4Dt8T5p7wcLyPMCWLe3 +q0+aHzfLUCp+8OSOGcBeV6AsgS91e27xvffAvzJ1r69NFtAnhfA27Try0PZ xvfhAjQY5jS1NXteOc8LkH7e8Zr7XiF5zj7v0xu/7Z4KyPMCnEkrn/QkU0Ce F6DqZpYKxUbPC2BS+p+4ZIHR8wL4mgh/LmbnkfO8AJdWv1lnLjJ6XoDLN0xM PdobPS9Ay/VeVw2uRs/Z9TMN22R62Oh5AX7Mr7DiHzC+bxdAvLpn9Xp2XjnP C/C066a7N7yNnrPrM/6n+ZlIo+cFuN3XdsPBtkbPCxA5LXFwdn0heV6A8++q ng4XCMlzNWxkj1Prsf5wnqvh+URq8WiNkDxX42R1mo10ppA8V6N9peyqPdvf OM/VWDLr1NtH7N9znquxrbv19bePhOS5Gi5JTc/fXmj0XI2N6bvnPHhl9FyN otDQmp3djZ6r8XhgqefvdAF5rsb+VWnBXduak+dqBAy8G9E21pw8V6PqkGt8 4SNz8lyNM3cvqd9+NSfP1Vg2+8D+2VXm5Lkak+4Gynw6ichzNT4EdFbO2C0i z9nrr+w0Y2imiDxXQ7DxnCCwSESeqxG1O6Btj1Mi8lyNFZePtvm7WEyeq2E/ ctTIEoGEPGfXb1r9oSWWEvJcjd7KdZvze0jIczXWnvlwp2WWmDxX4/rHFRYH 24vJczWSlK/D65WIyHM1pmtnhf5pJybP1ciwdB7UxFdEnquxz3O0x8uTIvJc DXnnTc3CZCLyXI23L6IiZnqJyHMNdkTtb2mZJCLPNfDNfj+2/h4xea5h5yFL JPYRk+ca3D77x+1YmJg81yBx29sPw93E5LkG9yaP8BvXRUyeazBphtPooHdi 8lyDxU52gUdvislzDeq9HRs0fbSYPNfg/rlGQb0CROS5Bv/Qv+OHUWLyXIPA Bp9/dZsvJs81eNJ4xrTxZ8TkuQaG9ZIS/nMxea7BaW2P4fXY5+E81yAqsmru is9i8lyD/Qs7KTNGS8hzDQJ8D51VBEnIcw2GdvDt8yNSQp5rUH+EYbnjXwl5 rkFus1HSTSck5LkGndbdm3djvYQ81+Dx46rYNmsl5Dm7PoMdHCWPxOS5Bt5X DJeeeIrJcw003qs7ft8uJs818NmxZZPbEzF5rsGo6+PMk2eKyXMN9C+/9Ftt JSbPNTD79+2VuL+YPNegT/MpI++sFJPnWowNWpAUfkNMnmtR0vnfolOdxeS5 FqvaNrf5PURMnmtxcDSTWv1WRJ5roeV9mnGGJybPtZjkkCuXseeB81yLn2UT nNvuEJHnWvT/+TfbL05Enmux28f64GW2E3Cea5E1PWHmzbZi8lyLXol/R+Tb iclzLdZe3zoyCmLyXIswt6cHaorF5LkWwRfmRVey88B5rsV1P7OAlkvF5LkW Xe3KulQOFpPnWiz02bE0eY6YPNcioLBRt6jnIvJci6S19xbp/5mT51o8cZvu 8WyiiDxnrzfw8P7b20XkuRaD3OYsrOoqIs+1uJvT6lYk+7yc51r4Xbpu1/qT iDzXonqTX1pDVxF5rkXrkr2bpy8Tkeda7Jldcu60t4g812JCjMupYS9E5LkW fUbt2Lzyiog810Lm/Wj1nxsi8lyLnie0LinWYvJchyS3+fdO3RSR5zrY3mrQ shm7n5znOjY/Rxz1eSYiz3XYOun+4t63ReS5Dl19whZOGCYmz3VwLt8VZCsS k+c6vNhx4tK/ZWLyXIdtQ7LNmXpi8lyHjCcze6xdJybPdXDY7zCM0YnJcx3a nh82mV8jJs91GPmKnz+wuYQ812H269KKeaFi8lwHx5vPAvzSxOQ5e/31ZVm8 bhLyXIe0yyNnvpwvIc91GHK6+sWwqRLyXIeHX2YkDl8iIc91mPgjeF/oEAl5 rsPeRkeandWKyXMdrjn5Ctv6iclzHd72SrFqGCcmz3V4vSRjgzX7mfNch5Ze 73a+LxCT5zrMUA9xacHmH+e5Dt2cQ04fYs8X57kOupYLTNccEpPnOgx09rnY MURMnusQV7m54xh/MXmuQ/GnXyGvUsTkuQ7LdMrIUjbvOM/16O1xvJdylpg8 18PR+qL7Y3Mxea7H1ZM/D6ex88R5rodkWauvNZPF5LkevkM/D/WeJybP9ajw qdfgiYOYPGd/v71ho0d9xOS5Hs2cm6/sYSEmz/VYs/jgiWonMXmux7OSjUsM 38XkuR4jPF22i9eIyXM9NMPeLxk0W0ye6zH7WBcPS6GEPNfj35USWY8mEvJc j/M6f/mYfAl5roeTyc7x1pOk5Lke1vfeH3k8T0qe62EaFrfIlc1vznM9miS8 URxl/57zXA/bEZOaLvGRkOd6rLUvraieJiHP9fgxcoXP+UZGz/UY32TXrAMu Rs/1cJn/cf3WdUbP9bDZ2nJz25cS8lyPLh4bHPt1kZDnejgU2Q+6kSAhz/Vo EL7t67QfEvJcj9ipe0xcO0nJcz22De3/KccgIc/Z37eUvF0zWEqe6/F+z41V Fu2k5HkhhNm2J4ddk5LnhYixOb11c7aUPC+EebW954EDUvK8ELPl61TrV0vJ 80JUWX0d+KhKQp4XYtsdg92xHlLyvBA9VkVabO4oJc8L4WzyOHHfcyl5XojJ tvfE1V2k5HkhZEfdZYczpOR5Ia6s2dfvRmcL8rwQ9V+L8/6ppOR5IazTnsby n1mQ54WQX0k6kjTPgjwvRNq1pOI7Wy3I80KMz4lZP9OuHnleiEHRq19f61+P PC/EaXH7ps7ZFuR5IZ4cMVn2uEZKnhfil+ha9udGFuQ5uz5jN9v2fiQlz9nr N+l3RbFQSp4XYsb6mcL2Gil5XgjPdkf1I/2l5Dl7v23n+uucpeR5IbJHlTae byElzwvRzqt83FT2+pznhShSPZt56qmUPC9EYVHchSRTC/K8EPVCo0I3s9fj PC+Ek4u3pPYz53kRhmqmxg2QSsnzIrxe3HBMn2FS8rwIBXYjnbZUS8jzIkzz V6/UDZGS50Vw3xV31G6BlDwvQqp65Ob1i6TkeRGG+5SfWXNSSp4XQT5mcEIf Ryl5XoQrpz4OqyyXkudF0KTX8PLaWpDnRWgx3OdmyUAL8rwIDS23vjMVWJDn Rdjsw1Qwi6XkeREWLJqWOuuxhDwvwtuI2JIBiRLyvAiPXryYNdtZQp6zzz/5 sP3MVRLyvAhXnReXf/0qIc+L4LMn5XnPqVLynH3ees4Dri6RkudFmJDgve1b Hyl5XoRhHRShdlcl5HkRBga6eioyJeR5EXavRfQDXwl5XoRO8z7v7PJMTJ4X Ycb756ajWojJ8yIENxqSY15q9LwIst/H14T1FJPnRfhY2Pq11SoxeV6Elxe6 6NIDxOR5EQ5FtvvbdqfRcwMCU/3dUtl+yHluQKH9itLRbJ5ynhvwaM37g0ej jJ4b0P1g56g1bB/iPDfgT7R7g/7+Rs8NOJVr5TG/SkSeG1AqrPeqcoDRcwOu ZHfwdLE3em7Arw9lSdsDReS5AScjg71qzhg9N+Bs0vrL0XONnhvQ9euGe+O3 iMlzA+o1vLHbv8DouQHF93229nsvIc8N6LX03tqJvY2eG2Af2NmGv9DouQEl Q8o/OCwzem6Aon1H28DVRs8NSOEdC6+vFpPnBohbLH5RNl1CnhvQ/4JhQ8uG EvLcAN/8+c8v5Rs9NyDve6n2y3uj5+z3FyTuSN8gIc8N2NPl8qnhIUbPDVi3 sWmbG2z/4Dw3YFlAmOd5awl5boDby8Gy8hdGzw0Q7Xi5z9fV6LkBfz3yuz+S GD03gAmpr+2hF5HnxbjZyC5vcLGI+R9C5cJD "]]}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0.}, Method->{}, PlotRange->{{0, 1.}, {-0.08307132356941987, 3.6516680003490163`}}, PlotRangeClipping->True, PlotRangePadding->{{0.02, 0.02}, {0.07469478647836873, 0.07469478647836873}}]], "Output", CellChangeTimes->{{3.603985983355303*^9, 3.603986017807806*^9}, { 3.603986049736885*^9, 3.603986078038381*^9}, {3.603986130753805*^9, 3.603986154345648*^9}, {3.603986195089572*^9, 3.6039861988503103`*^9}, { 3.6039862477915697`*^9, 3.603986261850597*^9}, 3.603986294481825*^9, 3.603986343157428*^9, {3.6039864205968313`*^9, 3.603986460674902*^9}, { 3.604062005465218*^9, 3.604062010788562*^9}, {3.6040624801326733`*^9, 3.604062486666192*^9}, 3.604065511374853*^9, 3.604065644926632*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Nmuestreo", "=", "1000"}], ";"}]], "Input", CellChangeTimes->{{3.6040623395713577`*^9, 3.6040623515924053`*^9}, 3.604062411928548*^9, 3.6040657197211113`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"sim_", ",", "0"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"sim", ",", "i"}], "]"}], "=", RowBox[{ RowBox[{"x", "[", RowBox[{"sim", ",", RowBox[{"i", "-", "1"}]}], "]"}], RowBox[{"(*", RowBox[{ RowBox[{"-", "\[Delta]t"}], " ", "\[Mu]", " ", RowBox[{"x", "[", RowBox[{"sim", ",", RowBox[{"i", "-", "1"}]}], "]"}]}], "*)"}], "+", RowBox[{ RowBox[{"Sqrt", "[", "\[Sigma]", "]"}], " ", "Gaussdev", " ", RowBox[{"Sqrt", "[", "\[Delta]t", "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nn"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"sim", ",", "1", ",", "Nmuestreo"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.6039858815409517`*^9, 3.6039859932566023`*^9}, { 3.6039861174385643`*^9, 3.603986128665012*^9}, {3.6039862380407333`*^9, 3.603986259561985*^9}, {3.603986418247054*^9, 3.603986419035039*^9}, { 3.604061858002082*^9, 3.604061905817203*^9}, {3.604061960066308*^9, 3.604061977345784*^9}, {3.604062141609475*^9, 3.604062166073394*^9}, { 3.60406225102573*^9, 3.604062255730006*^9}, {3.604062356241446*^9, 3.604062357970745*^9}, {3.604065664954082*^9, 3.604065670170285*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"R2", "[", "i_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"sim", ",", "i"}], "]"}], RowBox[{"x", "[", RowBox[{"sim", ",", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"sim", ",", "1", ",", "Nmuestreo"}], "}"}]}], "]"}], "/", "Nmuestreo"}]}]], "Input", CellChangeTimes->{{3.6040623735697947`*^9, 3.604062399993176*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", " ", "\[Delta]t"}], ",", " ", RowBox[{"R2", "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nn"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.604062018864482*^9, 3.604062172864736*^9}, { 3.604062309602241*^9, 3.604062321104797*^9}, {3.6040624262417183`*^9, 3.604062428552805*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "data", "]"}]], "Input", CellChangeTimes->{{3.604062125467266*^9, 3.604062132234962*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJwt13VYFF0bBvB9xUYUxdduxcIODNR7FbE/A+zXQGywO1HBRgwExEDBQAQD BURApbu7YYvtoGGX+gb24R+uc83u7JmZc+7fPSOtjpvv78BiscQ6LFbb/6ZP lZn/s1qPgRsclQ57d0E7tsSgT0LFqKTj0Nha/z7z9BDYkQ+SZvPO0/ETmNLX 3GPEhOu43Pfrcu6lMzic4Ffs4nCTPn8BidXBY83G38VFydjpXT9fQVi35oXj Qh3o+9cRFHr2V8dVj2FSts7x2TE7tEyqMf61w4nOdxP7thScHvrYGSEre3Qw unMbnp9H6k9ycaXz38WS5m4ndJqfYV5A/Lm/b+5jysO18+1tX9DvPcCZ8Pd9 1xq749ewW7INvx7Czedt2S/ua/r9x+gc8ino6WAPvIoe4Xfq0BOUzZ/0OM/f g+bjBJ/o143Hx75Fkbr9B9FQbf3ed9Q7mp8z7rTYnqvu9R6Dp5aM6XzDBZV5 T64Pi3pP83XFvsROVyd5fMD2fe1nxKRFyaU2p71o/m7IbZGqR979iBfP2/9Q ctd/uyrZm67nBZwSvK5+zfyEgtR6C/6Hl+jMXj8kt6svXd8rZKHk4s4cXwzs uLnn5B/uUO80dfa7+Zmu9zV6ne481uf+F2zVnhClI7qbSyRf6fo9MLks7uRx 5TesmXNvsWW5B+7HHgop5vvR/fCEs94YTs8d3yHf0HZGT9gPHrGs9fF3uj9v oZgW5c9b8QMOR0SNnyrf4pdsiK5Z6A+6X++wpJfb1sCB/jC604+5hHe4d+to 3e6OAXT/3mP2zpImSVoAkjzNflY3v8fpvwHDN+4NpPv5AWOuefiv+BWItrs1 oKMXBGXne36tD6T76wW5r3fe/1b+RPe8dycWdv8I917VQoOvP+l+f4TLlpCx S7cHwaftcvW9sfLAbftJxr/o/ntj1Ye1a3QSfmFV2+n6fYJJv5NrRywPpufx Cf2WXboonx6C9ts9xAc7xf+rs+kZSs/HB1E1o6fODwhF291LH+WLnTUfV3ta /abn5YsxbzIGWlT8xoQdjyJrx3/GvytnLIgZ+oee32cY2Ey72Xn2HyQwZxs0 9QuWHstce9/kDz3PLxh/x6zguvoPDj1RXMHsr8jVGZuVM/MvPd+vGKUxrQ9e 9BfM5JhL/gb1m8NTtz/+S8/7G27/b9FC535h2MgsHuaRwun2nYEOMWH0/P1Q oj92QoBeON4zdy/vnR+UJYlXTE6E03rwg/q/hYZK33DUNGdfkIz9DjPXgN47 K8JpfXyHl9W6oNJ5EVjavgC+Q+HnuLX5egStl+8IE/X8PDQjAszDa7sgLGlZ tzNkeiStnx9I6LEk6NiWSGin9wPLqlg7Lh6KpPX0A1YPrW0d0yMxs/3PH/Ne pN+9yo6i9eWP/SU/v/35FgX78ERmBfnjmKa75KUsitabP27onLGYrBuNLObp M/cEtwe4rWkwj6b1F4CDd3ftP/M6GqPbTxiARTlusV/Lo2k9BmD4Z+mqyf+L wen2BxCII16JioNBMbQ+A7Gs9999CR1iEVU7nnnCgag+EHPf70wsrdefMEgf 0+ovi0Uf7QQR7ccb/XRdHK3fnyirf3Bo1qk4tM8u/icSLt4M3DwontZzEA4q dw+M2ByPH+6qj7Grg2By4ofh1ofxtL6DEFWn+z00OB4d2i84CMd7nL7234oE Wu+/sOjUjzTPCwkw1y4YVP/rJXobnkDr/xfMtzi8qjRNxNu2y83+hW7/6SVE f0+k/RAMbG0uyRIloqrtdFuDYRG2oUjHLIn2RzAMrmfpix4nYUnb8i8Khvsh j8e3vybRfgnB8bj+xbbOSWhfvrtC8Pxkz6eO8Um0f0Jwoe9l/nq9ZHAvtT2Q ELi9LDIyEibRfgrF0fhuWY3KJExvX+ChyDHfMs5iXjLtr1CseiC3GnY6GTdc TJklEwrdPSa26/8m0377jfl/56z4r1sKMka1P2BIa/coA/RTaP/9xpf7y2MT xqZgZFv6K37jeaCB2Z39KbQf/yBy6PSjeq9TcLJte5z4gxfnv98/XJtC+/MP toQaO/ZJSUFE29Ot/oMKOzN/y/6ptF//4lK8/4EJfVKhr92QWFVnZ8U1TaX9 +xcj7x3s9tovFe23T/0Xe3T66ib/SaX9HIZ+qmnvG8NS0T69K8y+nVg3Ue9V Ku3vMHw+ktY9WJUKVvtfOO6eeSQtGp5G+z0cR389sbIxTYN37GpmR4djaOcz DqNep9H+D0fvStOdcZ5pWM/sRmaNwvpLbfzTvDTKg3CcPIBbusPS0dCmT3Q4 OoluiQZtTad8CEecy+iHg6zT4TGobUNEwPjRwgEu7umUFxHYcLgfK7MkHSva HzCTA4bpXS5y0ik/IrC/cezN6d0zUPGxbYIRaOmdZfhjegblSQR066Y392Nn wK1tdokRKJ7n3Fu1MYPyJQIjOaUp1y5moG1xrewRCTMDD11lZAblTSRuh8wR W4gy0JYmmf+LxMHvc54fZGVS/kSi8cyHB179M9G2Wpglg+Lxweet52VSHkWi YvR7I6FVJtovl8kh77KxfldsMymfIsE9MCWs6W4m2k/XJwrzIi1SvG9lUl5F QVURXrHicSba48giCoUz9ly3vZ1J+RWFyDADjxqvTGjrQxT+tdNPavqRSXkW BXHp9tEXZZloj4O8KNQ9XytKm5NF+RaF0iEueoJFWbjWHjjRmDpr+sy+s7Io 76Ix6fD5USk2WRjXvoGiwbuuWe/2IIvyLxqGTaeKx7lkIa29XkTDaUj+/mT/ LMrDaHj0+x3yIC4L59u2Q0k0jFtM5KaVWZSP0Tixy6Ow38BsDG9bzsNisOFd /OfeW7IpL2MQO9lsucHSbMS1LT/LGJil2s2auD2b8jMGix4feCqZl43j7QEZ w/QVW/mcbdmUpzH4MPfh/AU+2ejfvuFj8O5iv2mypGzK11hgi/dgqWEO2qc3 JhY1UZyz3VblUN7GYqJ59YBhx3JwoP0vFqIrtSc1u3Iof2OxPkm9TO9qDtrK E5OwuDXo0KB5STmUx7FQ1ddHHxqai7Z0vCCJxZiim3kN63Mpn+NwUHB3a8zb XOxqP2EchPUDeyW8yaW8jkNAhvuDm/656NweUHE4om/0wissl/I7Dof0pzn7 8nLR9jT6fo3D8u1ndb4MyqM8j0PctPXiTUfy0N7uVHFIilXU6b3No3xnHLi5 oo+nLA8tbdttejyaTF1NH43Kp7yPh6Px4+QTZ/Ph1bacT8XjXah0ut7tfMr/ eHSdvXG4lW8+1movGD8WDzx3ITafPIiHj3ltmWlTPuraHkdtPHy9C/7OnVRA PiTgc3eTJyePF+B12+XOScBX1wm81cxY60UCpo5W3zsfX4Bl7TcwAUd62bjW 1xSQHwk4O8UmOqJPIZTtPCQg89/qZpPVheRJAvjTRn+/crYQrm3x3piAVcLz JwU7CsmXRKSfbnixi12I9nhemIjzTXtdEpnjWm8ScXXboXqry4Voj1fbREyI vj7p8ItC8icR+a1hW3p4F0Ibf8z458TGTf6F5FEiLl8NiLVLKNTGS4ckhHYJ D39XXkg+JaGHi0vmnCFFaN++pknYfsA8+OikIvIqCYEGRvFrDhWhfXvcSoLe mJDjLx8XkV9JzP2LeOhkXwTt8ktCb/cfI++6FJFnSbh7QrjpZGYRctoeb9dk NH/Mzuk3pZh8S8b1gKOpoSjG1fYZJqN+/Ixzj08Vk3fJGNpL7jz+ZTEM2xdg MsKc74xDZDH5l4wZ4+Jy76cVIyW5/Q+O3hse9ywuJg+TEeJ6YKzTwBKcbQ/U FNgNXK10siohH1NQfSo+/MHGEgxtX9ApOBLl5LvjfAl5mYKk5tH2O1+WIKb9 9SoF24/s/v0qoIT8TMGlyJFDpyaX4Gh7QKfga8T7N0Y9SsnTFFiHn1+4Y2Qp 2uOqbyqc7/t967SnlHxNRfU/VtNf+ZWiPQ42p6LbQZfnh+6UkrepuOy27URD RCm0r1+pSAhYGDWjqJT8TUXw/FZLZX4pemg3HOwDn9jtKyglj1Nh7lFhP4pf ivblMigNT3cZzhDqlpHPaZi/3v4rx6IM7Y9jRxqKL/FGTrleRl6n4calEXGz EsqgfT1LwxlV6B77LhzyOw2mkz6dmzCEg/bTlaXhWvqeL+smcMjzdLjGD1ka Z8Kh/Z6Obbtkrx5s4pDv6ehnML/v9e0c2v/piPFN+V/1RQ55nw6dWX9/Dbfj UB6kw2rmsxPDnDnkfzq2fMyeFO7EoXxIByflu8+cLxzqA+nYP6tiT3Eqh/Ii HcfyDE0CmzjUD9LRZWXlGP1aDuVHOr5PPb9vtS6X+kI6Mr8oGrcYcSlP0tG5 8FI/5Uwu9Yd0NNpmavymcilf0hGYv9No6VIu9YkMrErGvJRVXMqbDNh8mtio WM+lfpGB0K99fNev41L+ZGDEzHf7Jf9xqW9k4IVmxeioTVzKowxM72SU5WnN pf6RAaXnpjcj7biUTxkorB+3sOk6l/pIBjIcOorePeNSXmXgVYNF1KJPXOon GbC4IBwy1pVL+ZWBtFTH0R8+cqmvZIA9gD/PI4xLecZcD79hDDeXS/2F+T2T Fx+b1FzKtww4e88c+aeVS30mE26B4Zy3BjzKO2bs4r5CoM+jfpOJ41NS7tfN 5FH+ZQIOVsanTXnUdzLx26XsT+RFHuVhJgy8fe4OfMij/pOJesGdsML3PMrH TBR0Lh2/8QuP+lAmvnYbtntNBo/yMhMPVTHLzhfwqB9lIt2M06+ujEf5mYmM RY1et1N51JcykfPcLjJIxaM8ZeYjPePe2ItP/SkTWSPuT3s5l0/5moX17g+b TBfyqU9lod5vsmfHHXzK2yx4BUZdXm3Pp36VBf3x7NbMx3zK3yws9Zh/4OIb PvWtLExOc7P6EMenPM6CVcaUY41+fOpfWciNMuq3qpBP+ZyF9O8yJ7syPvWx LMSyXfwzc/iU11nY/fWtuiqNT/0sC5E6Ft5TxXzK7yysrfEbG6fhU1/LwvWS peE8OZ/yPAsPEyu/vx4goP6WhXfGRVfdJwgo37OxL0znYS5bQH0uGyEpGxO+ 7BdQ3mdjWdZASchtAfW7bHhOHXHm5gMB5X82alNXvN3zWEB9LxvOd1SKt64C 8iAbG/s4reT5Cqj/ZaNlw0JBXaqAfMjGnXrFmxsKAfXBbIiXHTixrUs5eZGN P5Mu7S/vWU79MBtp4xqPp68qJz+Y35/9Q+i2p5z6Yjb+blw4Yd+2cvIkG97W 2bOdmc9r+2M2/NwP77fYVE6+5MAh2kS22bSc+mQO3lZOkm22KidvcnD28969 Msdy6pc5GGF/8JPyazn5k4PUNBO3t6Hl1Ddz8E9no/lBCeXkUQ6W9Ot+bmRe OfXPHMy4d8/9dhch+ZSDgS+rLGboC6mP5iDRqPetHQuF5FUO/I+HdbBZKaR+ moM75t1yf88Qkl85aO3JP9tnmZD6ag42Oiv7K9cJybMceNp3mfxmm5D6ay6a oq6VhF4Wkm+5MPTszb1hLaQ+m4t5vKZtNz2F5F0urvNqfCZ5CKnf5iJmVm1z wA8h+ZeLXitcFq9xF1LfzQV/8qnNh78JycNc/PMqy9a3QEj9Nxe2Jb2C9MqF 5GMuJiYHDhrYRUR9OBcrs59MFwwRkZe52Ln+y6mCwSLqx7n4uP+M6EFnEfmZ i+iZPqnGE0TUl3Px61P/MaGzRORpLmoKf4miV4moP+dhupWwQmwjIl/z4Piy 7tNWFxH16TzsmWzh2TdURN7mQbSQs9Y6WUT9Og8OFkOU3+JE5G8evgcp936J FlHfzsOUJVevLeeKyOM8VHQL4ffsLKb+nYcv7wy/R48Rk895yH+grDExE1Mf z8PaC092TtslJq/zYDHh4/WYS2Lq58z8as9ufWQnJr/zIE222Gf+REx9PQ9d nBWDT3mJyfN8NDm6ftS8EJPn+VhcY3rohIeYPM9H3Jk75f8x39d6ng/TfgsL K26LyfN8SPPEV5p/isnzfARsfvxnTqSYPM+HVddzNxNyxOR5PsIH943kS8Xk eT76z9u7eE2FmDzPR9k8p/GrWRLyPB/95MZZrYMl5DlzvkVW304sk5Dn+Vhz K9Asao2EPM/H0zFNo5OYsdbzfKhWi8o/bJGQ5/nobVwTWPxAQp4XoL9DmKV/ nIQ8L0DgqBkxVfkS8rwARwvK9B7XScjzAlTvM7V9rCMlzwuwYy3/pTEz1npe AJuyUYWBLCl5XoAtyQtv/flHSp4XYOUFixl6JlLyvAAN0sEpr7ZKyfMChPYa YzrihJQ8L0BRlt+q0Zel5HkBHOQtvRdbSsnzAvhmSNyabknJ8wJ8uzofRnZS 8rwAXXVdvlo/lZLnzPx0X1w84SwlzwvBPjh0be1bKXnOvGcUV4xM85OS54Xo VBsxzS9KSp4z7z0rNP10sqXkeSHWFR8/eatASp4XIqDT5aKOJVLynPm818aF n+RS8rwQZos9Z876R0aeF2Km+5+a3dNl5HkhPMr/rvOeJCPPC3HJ9fYOzQwZ ec6899xa9iFor4w8L8SAUs1a66My8rwQtkYd6v6xlZHnhZgz38Fj034ZeV4E A/u1ni63ZOR5EazWR3IGPpOR50VY3t3AZZWHjDwvwjfWcPvUnzLyvAhXpqZc SAiWkedFcF1dlXdbKiPPi7D34PVP8lYZeV6Ey8cSR97oKyfPi3D6rYtoxCw5 eV4E8cDE/c5GcvK8CNFvLtnqTpWT50WI05kStmqynDwvgtsc3T2i/XLynHkP G3T+yb2NcvK8CCe+nht6+IGcPC/C4H+8n3R0lZPnxZi0/8aTFC85ec68V3Hx K8tPTp4X4+m0SafWhMnJ82LU/luas4gvJ8+LcenoryFBQxXkeTFCJMkeAUYK 8pz5/gN+r3gzBXlejIaWfeNTNirI82IcL8Tzgq0K8rwYZzlX7k07ryDPi6EK WXE++oOCPC/Gnc2NVSuzFOQ5c76VQa8O1SjI82Ic6Pr1tXFXJXlejKy+CWN7 9FGS58V4tNGl7tlQJXlegqlnlx7IWKwkz5n3Rs8rHSMmKcnzEgSJzr233Kok z0tgOFKgtB2lJM9L8DF6o7Fgo5I8L4FrlGPnrD1K8rwEnwY4wvqskjwvwZfn hYrmR0ryvAQvUidcMTqvJM9L8O1Wxca8J0ryvASDvlmNLXBXkucl2Op6/msX VyV5XoI+I1siezkryfMSlEuOhyekKcnzEhjzxvWsTlCS56V40WyTPq5QSZ6X QpZjc+Z3rJI8L8WI1b8FnVOV5HkpDG1H77gQqiTPS1EuCp77hDmu9bwU0yYY 33QsVZLnpRBWeZpcVyrJc+b7pz2jzPVV5HkpDpoFhfRdpyLPS3Hp6rb0ucdU 5HkpSur+1/3geRV5znz/yKqq53Yq8rwUq/unen58oyLPS3H9Vv5QP2cVec68 V7sphk/6oSLPS1E82kF4zUdFnpdh4sQ/h0PcVOR5GW7unrq6m6+KPC9D7903 3d0+q8jzMtxaHxLr/EtFnpchwmR2a88SFXlehmQdWdyHGhV5Xoajm0oE88tV 5HkZxi7gld1VqcjzMsx0nRsSVakiz8ug4j+7F5mvIs/LkBWbOGNkjoo8L8PL z28cNraoyPMynLN06veJVUGel2H2qJ3yKp0K8rwMnb4lbBYwx7Wec+DCcX2b 2KWC9jsH1pMcP6sNKsh3DniCjTGJ+hW0/zkwOXN5d5xuBXnPwRtLz9MDhlRQ HnBg8G7RprPDK8h/Do7MHlwyr1cF5QMHrb83Dzg/qoL6AAdlLdtcC5mxNi84 yPKzyX0xtYL6AQfZ5oVvs5ZUUH5wMHjC+RmGKyqoL3BQ5b/Qj2tRQXnCQVqZ XeaeLRXUHzjw77T1qmhPBeULB3yHshyeTQX1CQ7qRwzuZHG2gvKGg9jlkuTX JyqoX3DguWq13ZljFZQ/HFT+vprkZldBfYODIbpC07xHFZRHHPwTbpdg/qmC +gcHJfY3s+/4V1A+cWD/sOHZiuAK6iMcfFPvc3nNjLV5xUFi0yUvXnQF9RMO Ok3bemNJfAXlFwd+l87W34ypoL7Cgcb9A/OaUEF5xow/h71DVQX1F+bz86+N 6tu5kvKNg8V7XN82d6ykPsNFVsTFkf6jKinvuJjao6agDpXUb7h4VPvZ9/t/ lZR/XDxQVX0v31dJfYeLQEmnL0sPVVIectFhxbIcn+2V1H+4eB936PcI5vva fORiafLP+6c2VFIf4mIU59eoXdsqKS+5uJ1tMWzIjkrqR1yMlx7JXru3kvKT iz3CWIH8SiX1JS4+C9Y9+nGukvKUiyS3/NyuRyupPzHjCRmTxCcqKV+5SNhr EfLJrpL6FBfLfUXbB7+opLzlou/cPyrbl5XUr7i4d3B1gOpPJeUvF33M/nuw LqqS+hYXw0/Nm1mWWkl5zAWrdPuU2ORK6l9cXDjuOXAiM9bmMxdnd7z74RNX SX2MiwH/DTXXK6ikvObi325bvtUzY20/4wJLbp1qEFVSfnOxyMJrw0lhJfU1 LkoP9m1YK6ukPOdCNT1niKeqkvobF5klCcP85JWU7zwoO0YfnFhXSX2OB9Xg zYp7rZWU9zz8yF+c92VAFfU7HgLujWCt/reK8p8HhU1cy+s5VdT3eOiydgjX 2KyKPOBhUNiXmXP3V1H/42FqeceNi22qyAceGl8U3x54vIr6IA9zXnm9vGld RV7wEHdYp0T/ZBX1Qx4yYpx2TDtWRX7wcF932KgQuyrqizysMF/X9IY5rvWE h0f5nbaOOVdF/ZEHbvnqvldvVJEvPIidOFuOvK6iPslDa/aDl+m+VeQND2lX zAU7fldRv+SBLZI9n8WMtf7woP95/cwLEVXUN3mIiF9zgZtfRR7xMJNzdaer tIr6Jw+zBi8YqadbTT7x8DmEvfOf3tXUR3n4EFFg1tyjmrziQa/r6p8V/aqp n/Jw0SD09Zuh1eQXD5J6dqDQsJr6Kg8lL7u+OrKpmjzj4bR6ct6uPdXUX/lo 2mv2tdOVavKNjyvFk0SZN6qpz/JxcvGnmX0eVJN3fHyN3hVj6FpN/ZaPui7D FZnfqsk/PsadyTyoDqymvsuHzeZuc7qFVpOHfLwz07UcEVtN/ZePDsnS3q5R 1eQjH5suRK+dllxNfZgPefG/bvNLq8lLZn6XD28zllRTP+bjqm9p3srGavKT j8uaGYIF+jXUl/n4qaqbPW9IDXnKfH/D1Q0WzHFtf+Yj+OM695aWavKVD3ej Id5z9GqoT/Ph99jfuhPzfa23fJzb9Eu+fkAN9WvmfOB26DCxhvzlY8vpUa/f T66hvs2HU5IrJ3NGDXnMR5lfhIX3zBrq33w8uLaxdcu8GvKZj6cvjpjMN66h Ps7HzvoRw+MW1JDXfEwaG7L728Ia6ud85L2MWHdqTQ35zRw/n/tQz7yG+jof 0kQ9UfTZGvJcgNXbd64Yc6eGPBfgo2dI/+IXNeS5AK83f3YQx9eQ5wLsijG7 H5VTQ54LYGvCqtYrrSHPBZh2r9J0Na+GPBfg31Pi7Vc71JLnAhx6ZnvIe1Qt eS6A/aPd+3mza8lzATjdL/2uXVFLngtwtM+RG0d21ZLnAmgONh4de6GWPBcg Xbds/nvHWvJcgGE6n5sdntaS5wLMHiN+ZO1bS54LcOCF9Wnd8FryXIDv9XsK PeJryXNm3PPPT5faWvJcAKXrB/dIeS15LoC49kaPCFktec7Md92hpx51teS5 ALGhPvsWdqkjzwUIfzZ7glnnOvJcAJ//Blben11HngtwVjp655tZdeS5AJU2 8+VLVtSR58x46cF1dWZ15LkAfQSLxrsvqyPPBWhMDvvac3kdec58PpUdkre4 jjwX4K3bfzrqJXXkuQB3t28o2rC9jjwvh15dSvTz3XXkeTm+W/ZZ8OR0HXle jhzN8SXHbtSR5+UY7ps97e6dOvK8HP/Zr38V86KOPC9Hl7erny7zrSPPyzHO aLjY+HkdeV4O/v967/niXEeel0Oa0jWwmDmu9bwckcIau5lf6sjzcgQEhK4V ZtSR5+WY9vDtznHZdeQ5c/6YXyM6pNSR5+WwuO5xpwcz1nrOzC/ctoMpr448 L8er9G4WhZV15Hk5/PJN8w52qCfPy/HRQn+uTed68rwc7yM6FV3tX0+el6P+ dNVu40n15Hk5tt/xYtuOrSfPy7EtqdLy5/x68rwcxtJuOtNm1ZPn5ZBvjS+R z60nz8uR1nhsvnJxPXlejjP3vZ9uWl5PnjP3Z6/hil1H68nzcsS/2bn3/Z16 8rwcovEDNtg415Pn5dgjWGPl9LiePC9H8JasBb636slzIVT2kT83Xq4nz4V4 b9qQkmpXT54LEeHYJ/L1w3ryXIglP5JfTn9eT54zx5f37vP6ST15LsT1wYM+ HXGqJ8+FiI84ffyOfz15LkR6he+md8xY67kQE6WiuCnJ9eS5EDXfbg2bVl9P ngthF7alb7JeA3kuhO1Uox+d+jeQ50JcNt7Q5fDgBvJciHvLP698N6KBPBei 8/tpUx5NayDPhZi6891x36kN5LkQz703secYN5DnQjgpjlh1WNhAnguhO//l p75mDeS5EAucpnRdtr6BPBfCeK+pWvdcA3kuhIV36PYzVxrIcyH+/ejg7+zQ QJ4LYf/l3uEXnxrIcyHiurXeKXrfQJ4LMffKxUFDsxvIcyFmlsR3eFDWQJ4z 9+fvq1mfuQ3kuRAVDmZRz3IayHMhTA2UV8siG8hzIWr99J6dSmkgz0VwdPA+ wo9uIM9F8FZ6Heme1kCei9BlLOuNbWwDec4cd7G34zDf13ouwkWnQ5EXaxvI cxFmGl5XTmxqIM9F2LQjbbxVSwN5LoLw5lXbI8oG8lwESUPvtLUZDeS5CM3H 7z10Zq5P67kIZrN6LJgibCDPRVig8zDoLnO9Ws9FUF4f815P1kCei/Dm6OVl otwG8lyELLPapSHM57WeizAgYGGXQub3tJ4z88OFzpuZ69N6LkKYydMp5iUN 5LkIVmcNrsxlPq/1nJmf2+aMs9UN5Dlz/MK3J8L+avJcBHaHkl3SzmryXIQT w4PvDe6oJs9FiL3Z0f9aFzV5LsL20PxuecxY67kILgN0/93AfF7ruQiH35q/ sFU3kOciyPI0C5yZ+629XObzt9a3tH1e67kIfeaPv26vqybPRViatO9fLwM1 eS5G73E+sqHM89B6LsbFNFX/wTpq8lwM7mt/joAZaz0Xw/zcxcBD3dTkuRix Zfn7p/ZQk+dieLwMGtiF+T2t52JMKWH5FQ9Qk+difH3vXG0+WE2ei/FriKyG x9wvrediTB6wyKOpu5o8Z8ZWk/N9+6rJczFGO/Y9ZzVMTZ6LsemMy/MoQzV5 LoZ81eVx18aoyXMxBs078UJ3spo8F6MpcujSkcxxredimJ668iF4rJo8F+P2 b9/wYUZq8lwMq5cnFz+bribPxYirfTN/lrGaPBfD9o+pefAaNXkuRkpxo2+2 hZo8F6P2c9zV00fU5LkYYz4v3950VE2eixHJizTn71GT52KYjT56unGfmjwX 4+7ZLZcPn1WT58z1/lx01sZeTZ6LcezSzOUD76nJczHWv2Ldqn+tJs/F6OM0 dnVllJo8F+PDPw8MPHLV5LkEZ28kxFhnqclzCWI85xfkJ6jJcwk+ua2tnJqi Js8lyD3eUXcL83mt5xI4jNrsNVOpJs8l6Bv41OtavZo8l6BpqZuiukVNnkuQ P5Rl2btVTZ5LUJrL8TDtpiHPJbgdf511nxlrPZfgQM7a7TMa1OS5BBXT7qeO 6akhzyXw+7NoUeRgDXkuwcEri+8Lx2jIcwl0i+4+6T1bQ55LYH/UqThrmYY8 l+BMRpD/hO0a8lwC1u88000XNOQ58/tzz87rdkNDnkuw2tVw/J2rGvJcgoaU GwO/3NWQ5xJYb/Gwbn6vIc8l8BluaVDxV0OeS+C2oeT9eR8NeS7BROs5F4L/ aMhzCXa8X9SL/VtDnkugs3nYAR9/DXnOPJ8rNmeGJ2jIcwk2p8c7Ls/WkOcS DG9xzODkashzCXxDF/FymeNaz6WYNXUS+wFfQ55Lobz49VmDWEOeS3F8E7YE l2vIcyk6jQkPiIjVkOdSHOYd6rssSkOeS3FrzIBNDZEa8lwKA+v90UeZ+Wo9 l+LizRqr2mANeS7FJP8pvuPzNOS5FIp32Ta9azTkuRQfxhwIWsvRkOdSnOvo ffZYmoY8l4LXpUktZO6n1nMpBs8qMtqVrCHPpehgqJ+8NUhDnkuxt39vhVOY hjyXIke/ztKNud9az6W4PWNVVlmGhjyX4sbG9O4neBrynDm/pXGngWoNeS6F oWX1gDJmvlrPpbi3OVjNatKQ51KMTli81bpVQ55LEWL5KJA3tpE8l2K+t0Nu Y79G8lyKOUE+ZoP0G8lzKewdtxmemdlInksxYECiuQW7kTxn5rOIZ3rZtJE8 l+Ibq/RG0ZJG8lwKJ93jOiVrGslzGURrLKeP29BInsvwa8/MhIMXGslzGdb1 Ddrw+nojeS7DGY3ZMAe7RvJchh0l/aS73BrJcxmEIWsvW/o3kucyHEn44GYY 3EieyzDI80/u7/hG8lwGrzMTHuWkNpLnMvQ7Y722Q1Yjec6MI+0G2Wc2kucy 9GHfONexspE8l6Gml/TV7sZG8lyGYx+MLeeNbCLPZfhqp5d8xaCJPJfh5omA Jzq6TeS5DJtWsFrfjW4iz2XwGNd7ln6PJvJcBr0e0/V/zGgiz2WQ+ykm75nV RJ7LcOOXqevyJU3kuQzDHV/rz13VRJ7LsD5smA9/fRN5LkP4hpLlhTZN5LkM POuuu0PPNZHnMiwourGy3r2JPJeh++fOHfZ7NZHnMuS92lbw3qmJPJfheqlN 4kLmuNZzGTplv3VK/t5EnsuwXWJ4YE1CE3kuh+6Q6KDrIU3kuRxxYVUjg6Ob yHM5vBzrrT4LmshzOaQndQ3NC5rIczkG6fAWm7Q0kedyGB7b0tzS2kSey2Fx 8eK58G7N5LkcPS4f8xdUNpHncrywNdd/3KmZPJdj8ZNDhT+bmshzOfP+vbL7 luYm8lyO6tX6/YYNbybP5eDsLo7+x6iZPJdj0XFlaA+TZvJcjmHVKw4Hz28m z+Ww5RavMV3WTJ7LoeN705d9qZk8l8Pkwiqza0+ayXM5TDOspvTyaSbP5aj6 8+/Vj97N5LkcV5cv8x0d2Eyey9HtU/PKHeHN5LkcvqVpD/KFzeS5HDPGX1gv VDeT53L8L+yKzKtXC3kuR/FNo0r3gS3kuRydZ764mGTYQp7LEfNdsCF7bAt5 LseAeXV/83e0kOdy7Hvifp5r2UKey1Hwc9H4XcdbyHM53h7fbNLNqYU8V0Bi dSpi/LMW8lyBf/LMnqZ9aCHPFYgtclH09mshzxXgDX7eJSu+hTxX4JKHyr6m qIU8Z44v+dHDMquFPFcgU2//2N9pLeS5Am7fnNmnE1rIcwW+17eYRSa2kOcK OGh+H94f0EKeKxASkjZ2hW8Lea7AkeM+OODTQp4zx3eO0vyMaiHPFTh8fuKB LsxY67kCfy2HaIqqW8hzBQ4sYF+yrGohzxXIDjwrdVS2kOcKDFk82D2qoYU8 V2DWz2fb7vRpJc8VYHHcDLYvbCXPFTi6fZAmd3Erec7M7/Qc38qlreS5AuuK HDMs/9dKnisw5dw3acaVVvJcgS0+NyMW3G8lzxUY3TLisvJZK3muwLPb55Jq g1vJcwWC1u2SK3+1kucKdDZbGOmW1EqeKzAsyOD2n7+t5LkC3NRU4ym/W8lz Jbpafc8z9W0lz5WYVPtqwITXreS5Er1XIX+MQyt5rgTXanzx2net5LkSwsou IfNetZLnSljusLV75tFKnivxrb9Js/2LVvJcCZNjKZd5fq3kuRJTHivPB/i0 kudKvH5fscT/Tyt5roTjkTe3Xxa3kudKZGVm2G/MbyXPlXBwMVh9JK2VPFeC fSDZyDG3lTxXwsa2s9cnaSt5rsTd3+tuGzW2kudKTHu3W6mWt5LnSrS8+PCf d3Mrea5EfkGihacOi631XIl/7p9YsrEHi631XAm92UNmt/RksbWeKxEWc6L3 IF0WW+u5EvPLwwqHMse1niuRZtDwt5MBi631XIk9/+RfHT2QxdZ6roRz8XPj mF4sttZzJWa7D+izifm+1nMl7HxKI7nM+bWeK9Hzzs/+C/RZbK3nSuzU2VB1 vjeLrfVcieHemye79mextZ6rYNNF9HPlcBZb67kKJ782TYwYymJrPVdBnOyd 7TiexdZ6rsL6pIROs01YbK3nKgxVNWKtKYut9VyFrJdJXL2VLLbWcxXYPVMN +69lsbWeq6D8/HBaDjPWeq5C1Y/RRve3sdhaz1UIS0yu/LSXxdZ6rsJ39y1l j61ZbK3nKrh86zNn4VEWW+u5CuM/1IU+389iaz1XYYN1zLx6SxZb67kKi87U fxxlw2JrPVfBTH9W/uZLLLbWcxUG/giYcZMZaz1XofGYJvHnBRZb67kKyY+W dXC7y2JrPVfh1+Hni2fcYLG1nqswTHf7M4vbLLbWcxViahV9wl+y2FrPmd/f uL0535vF1nquQtDQxddG+7HYWs9VGO3ilPMrgMXWeq5Cyp4jrlbhLLbWcxXm WERsfRfBYms9V6F/UGq27m8WW+s5c38DS1oPBbPY2umpsNiqeu6rSBZb67kK yzo/69MpmcXWel6BxXtGeHDyWez/A1ObC/c= "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0, 1.}, {0, 2.1058971891290246`}}, PlotRangeClipping->True, PlotRangePadding->{{0.02, 0.02}, {0.04211794378258049, 0.04211794378258049}}]], "Output", CellChangeTimes->{{3.6040621328343143`*^9, 3.604062155604162*^9}, 3.604062212757617*^9, {3.604062301890136*^9, 3.604062324828288*^9}, 3.604062430909255*^9, 3.604065520818575*^9, {3.60406565294221*^9, 3.604065699873283*^9}, 3.60406576761026*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"10", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", "1"}], ")"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.603993897851609*^9, 3.603993929821459*^9}, { 3.603994595321838*^9, 3.6039945953894978`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw12nc41V/8AHC7UiQro4x7M5KkEi3eJ0lKWSUlW0ZWSFa+ykh2hMzKygoZ KRKHzJBRZETLyL6fyzWy+t3f8/x+/9z7vJ57zufzOee83+d97vN8xC1u6Vkx MTAwWNM//vfb8lUU5d+/JXzYcdrqHxxAvKtCkifWlvBAf6f6210HUL36CyP3 5SUsbFeREfxXDkl+r/g4TSzhz7YbLz1K5dDktuGM/l9L2K3Ol/JAWg452x25 Wlq3hAtkbnJd37kf+UoM1Fg/XMLbVJc9sjbtQ0nJ5MefOJewCeV19nt5KZQn n5j2ln0Jm4rOd/LvkELvGjiL09jo7o9TCqdKogHK3447G4u47TXLo+YSSSSk 1skhMruIiZ7BPUGKkih52ifE6dMi/vWwY5T9tARKUf56f3v4Imaez5ubvEVG z38E39Ldsoj7Q9cTI/jFkNnWzR33WRdxifuRbK4NUURSeihXxLiIJflOlcp3 iKKsyAcznCsLWIF8UItwEUWFyv72bZMLuGtuNMm+QgS9T75rc7ZtAXdLGi2o 6uxGAwZOpsqPFrAmk9y95RQhlBIwU+0QtoDfrO9JELkthExeOYikPFzAJuIM PI7nhNBvNvuhlXsLmFdcf9x/URBNlNlcL3dewOn3m6Si9ATRMo+5wWG9BfyB 2faNOLcA4u+8pL2XbwGri2gnZRfyIcF2qV77HQuYUCo0cAnlQ7vaVk0KORbw eFxxp6k1HxJvznA6zLaASxgEyvJE+JBszXyE8hINn1GTDlyM4kWqRTFtuv00 rNc9LHPVhwfdivpyzvspDdeEFBR8cdyBXCOzu94n0vCMuVkXn9YO5BZ+99q/ OBp2MWgo9pbbgbyDyTcDI2m40PzhzXwKFwq6fzs48h4N5/wpXy24zYVSnHma 0s1p+PQp1R4llu2oWeeSWqsEDe/qWOG0d96KZBK4X7wXp2EWLav0dwpbUfiP LtbC3TSsrqZ13eAvO9Jx0mmK4qPhklbJVI8AdtQXdvH8FVYaLj72317t5C1o vPGszq+ReXylnURV6t+ENiufNFrKmMci+XtyfoSzILvA1ffjz+fxH+Hqk8GG LKit9d3ugeR57HhCV8hLmgVFGR778T5mHuvV/eE/3MCMBDwVLfwD5rHo1r2j zEzMSLpU3pbDch5P41S7pWBGpLFXwo1MmseHSvyqjz5ZB6NNs3sMReaxeNGz Z9Ea6+A8+qYnSmgen9cL2m+2ugbxaRpKG9z0/tdSbhhbrMGYoMNKH/M8tqvp ie06sgqB7KX3I0fn8B+f2G0Oc8tQO4Ui/ubM4XcZx8/X19Cg++MWFfkXc9h8 YU3SxI8G49mfZ63T5rBAaZm8tSoNuG7c0OlOnMPbOheHcMM8mA0+5HkVOoct QzslY7rmYKOtPfGGwxxe2Sn3+cE6AccLjbI6Dszh1suOvEznp6Cgh0u+bN8c njxhuTtwaBLE1usrkqTmcIVx8+sll0lgu7D/k5XoHFZYalItfjoBnyfW51c5 5/DmcMV2Y4ZxsJN4fkp6loqjJV5k7pobgaELl1o5Jqn4lL/PrGvsCOi4bdKf H6X/nnDrRbHSCCjW3bKtHqLirN/f+cfuDwOTOXp0+RMVTzKlKgiL/IaklF+D 9/OpON3llLEz2w/gqI+zts6hYm+flOMZNt/h/tQ5QjOTiju1VqixLUNgfbyE eWcKFUvUNnoUxQ3CoT5/mYIwKt4ualOQgwaghWePZ78dFfOyUja/GO8B5RN9 jNiail3lWEWRVQ8UWYSHZVpQMUfLdd3g4W54Ukx7dsuQilNv3MoUHv0CFtoN DaznqdjL76T6gbUuWAm15jm0l4qDi4saZObaoDDwVoOMBBX3NRW5tJLbwMLX 04MsTsWkzrM5D662QotL6DdeQSo+v3XivkrrR0i6WpixtJnui9XhwT2NoKX3 Vp9goWKugW+K70UbgelCzaYJBipuWXff/tehAezgs/3AMoH3i5yWCuKqh2OS i4erxgkcv4uBvexuLUyL/hstGyGwvZ+H8t+hGkgV3JxQ+JPA91PlLRRP18Bm DqG1530ERjV/vkjur4a+eeV6/2YC3yUkKFBbAeEz6u536+nX2y7oOPa6HNAf bWm3GgIbjH6OMil8CzkD5uFW5QTe2f+oqrSkDDxrH1zWyCGwivdYhB9DCchW RrKdyiSwsRsb3xlSMfx8HV9+LJXArZZTqu/OFYFGTu6ufQkE3hxSoHnpUgGs pZW0k2MJrJpr+kmp/iUUJVfe3xVFYMqBsVZTlAc7H30a4QgmsOnB+QBDw2xo Cf76hC2QwEa5ETd2L78AX/8fGv/uEdjPbw8XS1omjN2h5hMeBO6Kzt63mzcd 3hjx3fliQ2BX46sHTq8ngd0VEak2SwJP38lo05xIABEdqf56UwJb7i2n7p56 AkGnjym/MSDwswE3vp8HYuC4siql8BKBAy8MVRe5RsOsomZatjaBI/3FwgSe PIIrMsasiWcJrKwb2XPeMwTY91i/jT5N4Bahzy8e5gZB9e5bN0OBvh4lJANj 1kBw3ekpHHCCPr+eto35YX4gucPv010lAqtdDyoq8PSFAfbQe26HCdzxm2fO U84bIlliDjoeIDDDwyfH/jvqDqobycNW+wjsw5rk6/PEFRaWMuNMpAgcU3ow yiXKCQyD38ankAnsvOGqpbhmCzUCLYkDovT1mMqOG162BMncwWSBXQRm+6m3 T2abKYQfozy9IkDg+q3G+z6pG8DcR8bUWF4CP9ZNGP+TqgMGhrzpn7kI/Opq z9Mbh9Xh/aRkJhcHgY979Q1H1x4H0t1jWVpb6ONzb7hfJr4PgrdeyAlnJTDj 9cZGfnUemE02yWthJPACV65lHudPleyrv6/uWKPgovI64+e6wyquXpuMI2gU 7P7NZeKDKy+oJMmab5mh4O5g8crQTbKwpVLX6sEoBe+PyLAvunACur+532T8 TsGHXmvxyHqrQ+pasuN/Xyn4a/XQ7/EqHXDYXevyt52C51BQ7PfLBqCkMnbn ThMFP+MzOHGQ0RSYTLd6UzEFPz5mHs3xyxLa78n7OpZT8BbNuxb2rbaQlKrv P1FEwRI/nay0wQmsar2DrHIpOCZyU8A+EVdYY2qINE6i4H6uk+nkcU9oJk8+ 7n9MwQ+emsQfKfWBGLXt8fphFPzpz8QldvP7IBN07flFHwq+UvNt/nhPICxk +WZ8dKPgzwJOHK2nHkJNU0b2GUcK5lk0Lf/REQIGW2ZfKZtQcOGCIdsRnUdA kuF5XXGFgvmT1x1I4vT4O3+0/Ig2BRNJvJ2VeY8hMNy/Zj+i4BvJHXqulDjQ Kciuzz1KwVmyu0keefEg3N7WLHGQgmVrWFoG7yRCyfadXbtJFByix09OUn4K vvInexKFKLhh5Gxy/7HncE7XvJ+Ph4K36+yo2pORCj8fv/zFwUIf3zojR0NT OnDyo7n10Vn8JaUgU8QlGwYUrRa9vs9iZ8vMPQavcuCFQejKwtdZfH5aIN9j IRdOJnYzzTbNYpKvdu/VxHy4uesmz/fcWdz/rH6bt2gx1JMeK1Q7zmI/rO++ z/ctaH2NmIy3msVpnKRuqmM59IWEpLoYz+LBK41DEhYVME3c3yZxcRZPJD36 02RQCTz41kiY7Czu2OZTEuqBweL6xdhrUzO4j1At+q1aD9Oc584fHp7BLaOb gvSG6sH9gxoDx7cZbDh/VO+bVwOE7j3pUNMygx3N82zkKxqheElGTSpvBr9J Tul9rfMRGGI302i2MzhVy2Al9Fc7hJ5lyWs3m8EOsgoaBSkdwLv6zzTn6gyu mRCOH5XtBGmLpdbrGjN4Lc5a5e90J2jLj2V8kJrBu7Ri9333/AzP2uouRY1N Y6JISay7ugdOsN4r3XdjGjOn8ZTIrA+C9FjEliijaVx+NfCZt/MQ8DelmNIu T+PpOZX+yJEhIILfba06M41/G18yYez4DlnbFi21pKbxm733r/135Sdw8zry ukxO4SHUW6et/hvGSdfvvHGewippIWu/7MYgFikpnfpvEiscyZq5/JoCzI2U odY7k/iN5niFECMBrpo5gVecJnGDK0vIAWkCdK8IfrY3ncSx+Rkyje4EcDqs Ojw5NYnFCxUFM/ioEByP06dYJ/Gp4cw3y9fmwGf2LOeTyAlsvUN1aH2VBpYp V0cnn4/jD8N+xtMpK9CRLbKFMWkMv2Yev269kwWJbCs6iN+M4GCr5vs7GLci drGxjom837iyMrZex3YHcrj8ICEn5yfeeEINajzFh8zqfrSKPB7CidUmgSHV AoikvKHb4NePOZl+BF65uAvl2pb+qnzTg63DOmxP6omibovnoppZPTjBiO3n IxNRxGAcZjwQ14Oji4/ZDtqJoiu6lv3Lbj04xf9pnFmAKGI6ztN15HAPfibs 1cr7WhQZbr1d8+pVN54+KrjAwy6G2AsPPc/I+YK74q4z2dmIIbv5YqOwpC68 JjSyGMsvjhIVqSdsQrvw7tWxY6+FxVGzl7zwae8ubCTTEtYhJo4kGF71r1zr wo1HGy+tyIijn9vyr9gJdmEuaZ7jYiCO9CWzdM4ldOKnR3Qev7QWR34lCiGc sh24W6z1ZkmJOPp+tPRs49YOLNgWl6j9VhydxAfZfKfa8e7opITxSnG02CoX MJPXjm/jH2scDeLIYVT6v7a97binI11GslccXRXY7RIq9QmviL8PCF0RR3K+ rNfYyK14Z1hpL78KCQm964wfZ2nF0fEKcSOnSIh1Mflry1gLDigN8ik8Q0KD jocuP8prwXx7rtcpXiShUGNTbYFDLTj1kSqHoBEJ/TlZcUbm1Eesb9/mSvYi odRVh0Napk3Y7Pe2PvUiEgpXOuoif6oJX7zNbhpfSkIet5mLuMlNWPrEo/Hh NySkNZW4v3esEed8yN5wriKh9YFGaTOnRlyiX77zegsJGb4TE3X9rwHL6mhs chomIR6v7q1PkuvweMSw50NuMlr+93cHxbsO6xulRT/mI6PvQaICGoZ1uMvr 9OcEATLKibXbsyJAb79i1vhEhIxUihiUTZ58wG8Ncq9elSGjm39knSSjazEv 1UicishIy0nP7Z5zLda0atpXeJqMFBY8vPu0a3HF5VJNa3Uy2mCqCwrlrMX2 vNVNTZpkFCty7flsWA2WWeh5rH2FjHxfsqc5cmC89sglwsWOjM5V6BeItlVj vc1Jrj8cyIi3KbWiK7Qac/tNGGnQ/4/m/lb8fGRzNT73d7/yVjcy6ha0ZN5g qsI2vtzc+v+RkUxwpVXk8jsszCmuuhxJRr03HGReDb/BV3bVt7kXklH1kI7S m6w3eHyWOC5RREZZV46oVd18g5m/ZxzvKCYjN40N41ZKGd63W3+ar4yMuGSj ov+svsabZs9vcaqkP9986bIobyne3lRXrNFERvIOCaxSvSW47ZrC0qtmMhIY 9eGWSyrBIxYfGrhbyGjs6xnZk2IlWKlab62ljYz83/WaXpUtxqaWJh9YP5PR HealCPGQQiwlx6iT+Y2M1BZw9oHthVi3poZaN0hG3H+Ca5XjCnByRA3fjyEy KmwRWriWlo8tkv793vSTfv1oFaPHFXm4+9S5YPIIGb0O2OSeCnn4QPqng6Kj 9Pvd6XxU2JCLZcbfGvKPkZHoNYu6lq4cLHvJae/SHzK6KhYkwzyZhblsQ4v9 p8hIkltbbYdzFpYYN7xoOE1GNGYBE9HFF5j/i6D1/hkyiv6TG32C6QXmeaDG 0ThLRi2Fn5ZvC2XgesEOmVoqGSWkPuH2T03HLL9CstzmyMj6salslGQ6Frgt 8pQ8T0bM7lTT/ENpOJVh/O9tGhl5eMtEfox7hoXu9dl/X6TH0yzx9VXWU8zg tzhnt0R/Hou3ok/epuB9/lpi83T3nFMrtuhPwjFJqw6Ly2SUX8W+ojGZiAU6 VsNc/pJR4MEu1QOrCdhdOVxnnO7Dgibdq7viseTruo/NK2TEHrFn9+/9T3Dv aXHfQ6tk9JthyqpZJQ6L7PLpjac7etxjKdYsBm+xyfLUXyMjWyMVdNflMSa3 KtUU0I06WULM/aNxleH5fMZ1ev7cIh8x0niEj0YHuaTQHWFQ1ChtF4GzYv47 P0z3SVC+uhAWhnM8o5okNshoSrJlorYgBMvdyx23pDuJ0+BuZMdDbHPpdcFT us8tDm+7Tn2AP3A+4/9C9/KQ8zMpnkC8qKRPZvlHRtkN6wdoCv547cPHL/J0 XykIra25ch+z75iRukY3u8yBLCGqD35OFIv+R7ftX42PpQpe2OfptsoUuhub LaYveN7BaTVzf9/STU7w2T5W6YIvO18fbKebqUPWamPDHovKg8UvuqsczV7K B93AH4n4MArdVAHp4QYhQ2zOZX71L92d+SI/Luup46OG8c0bdLOYa4oFn5aD H2zHBv/RnSuX7rHtnR7Ivj8Ts0Z3oufThS89ZnA8onqGRvdQ/81XaVq2YL7y YmqcbtIJxZu3mm4BUP+F99F9WMsvWiT1Nrxt6+qqo7vH18bpgZEHTF4mvcuj 2+PVRc1pgbuggv+eiaBb6Odh6Us9vmBSaH7Hnm6TzRFMQxp+cPiQlcYZul+J MbhwSQXAdBMXFqKb4djtH6dZH8DaNdf+Kfp86+qOXfQYDgJelBhfTnf6zWvv 82qDYR88+XufbrUkSNzhGw7+1Ua5LHTHlZRsOmMUCauTWkuYvt63R7lPnNwd BZPBthPudNevP8i9tRoNXuTb73rp8TMdgs1CJh+Dg2JCoh/dfPx/d2b0x4Db nwu7pei2lnMI+vo2Ds4yDXFb0eMx8t0LZSLrCXhPLwWu0+P3rfoP2pYn8fDo jnhKNN2bTfUsld0SgXvngXf59HjPe3QUZco/hQoz+4pCer6w1D9/v0nhGWSd XLcWoNt0me2YvdJz+PLv54IPPd9CiyYFBJ+nwrVPj8oVF+j7vWDFjp8v0qFD JrbPgZ6/9qXTHdFSGbDMVRxf8L/5fVEs8nRuBqhaKh6fIMhozu8he3Z+JsgI v5TRpdD300l9ZqfSLFiWZfwwTN9PvgSG1IoeyQaV+Z0vVifp8y1ada/rTTY8 l5B14qTb8NKeNYV3OXDy2/vSPeNktP39HG21Jg+cIzb4een7mWfEo7GQ9kKg HPNI2BggoxdSdZkndF5B44un7A39ZPS5dtFipusVsFOsbwb1kRH/auGtHLsi CE7rnP3bQ0bOB/intzoVQ9EfmmRmJxlJJIyMfHYrBWee1A+sDfT8tNqoe1lW CtHZ/07erSMjvUMCGYGLpTDtnpY/VUtG99s0zRU9XwN/i4BTVTUZDTCUDiXe LQM7RhS2p5y+Pjf9vpr5vwXzquM1jHlkFNzKWDZS/RYyj7JXqefQ99/9/jG2 q2+h7/q6ycMserxS/XWc3coB6RXErqaTkZlXYMs96woYXBTpe5VMRgdDHlY/ O18Jzl/DNDXC6fUtJyJrkBtD/xHdOGV6fWxn53xgpo3h9Wqj57INGTU7RFqO hGEgPT6485UVPd4TznK5M9XA5xrm4O3mZHTJSOPTf3dr4ClLo/ZTA/p4R86d jXCshcs71/bP0Os1B+3CiXzdOtgWUCBxQ5Be7wYOWXq41oHRBGvXdX56/a0R CFONqYOLpgcStXjo+RU+MtDXXQfH/xsOlOAgI+k9Pt6sV+vhoXXjdAIDGale fllhYtIAaiqUXfFjJOT+esvRHfZN0NQibrpSSEJeSRTTwbAm0MxZlLv6koR8 7vc8zM5vAp1f6+rF2SQUcCGtV3m2CeREkvT1U0koauSoh51LM+SlnNxpFU1C L3lt39R5fIRtT0MCM11J6Kdbo4J7YCs0+/QoFh6kn7+aWYVyMlvhX49PZ9h+ EurbdeZff30rZAV83G61l4Q66+s+KrO2wdfX1Afs4iRUw1trwhrUBp4UdE+c i4Sev64Mjn34CdgeqJH8ZsSRCa1osCS0AzbVbHHleSGOZisufvBo7oJVhcdN 05vo59UtTW53e7uAL9pcQphZHBldRVL3xrpAs/wzSX1DDLUsHgoPYvkM0ozB zI9pYujFYYErcegzRAlsj2D8JYaMCn5PlJR/Br24fs1TFfT2qR47ZnO+wIMV NlEd+vk562Ga2Y2QHph1ypWVcRNFEosveTyT+4EpMFO4UWkX+l4iWnXCdgg4 Hc+RwkYEkH78z+CpqJ/wekuC+0cnPvTsRXjVhSe/wQUab60+2oFYrjvOsHqN QJ73prONE1tRu1lutl7gGNhP9Lpq3GBBZRxCxksO4/BhRoZF5scqjO1Tf37b bRxCkp0DHrxaBYHzrr8od8fhud6Wa6v3VsEnqMVqPHQc5FniniqKr4LaP2+n /pxxGDA59ZJyYwU+E9/uVY6MQ0UH23I4dRlmvzxNv2c0AdKWmS/viS2C2NzH kVXLCQg/FvriFm0B9LgWJT3tJ8Bz/E21b/MClF3QeunsPQF98axTK84L4NOw UWqeMAGuob9cb9XRgP2tacPp7gmYeBefau80D5JJ4uObLkyCEMOb3oYhAhIl PDwlL0+C1ZjD2YclBGwrbtt8xmgSYswT5W8/JGC+yWOvv8Mk7N4zr9x6kICa hU92a+GTcGqDfYh5BwWu63rPEJ8m6fnkcdnJZxqiNn+Z69eeAlGWm51mCX+A OVY6YNlgCrY6JUZfuPgH3EV9eXaaTYFnqKVDEtMfMFbcq3DZeQq2mFKETZzG QObGvTvtUVPwOJ1VMvr8KDTgfcsfuqZgDKXasPAPw4p74PrLS9PANptqrbA8 BOw9jTNwfRp4c8Jr3QKHQOjwlu9fLKYhWCi6ymPHEByjRFSvukxDZLunQ/P+ QfC0ib+nGTUNusxWXjm3BmDRII9xqm0a+vxPhjEJ9gLbm2mqb/c0TBmISX0o /gr8vAd+cw9Og1+tXrO25lc40ln64fjUNJg4aq703u8BN42qgNAtM5A+VaZW tPAF5o52ssqoz8AAs/Il0qYuYIrnXqy6OAMut6qHBAo6gXvh8piu/gyIiXEz TVzqhIPF/Y1eN2Zgz4feTYc0OsB57/DDj/4zcKH4yOeEp20wK7i45SaegVCf Ke/zKU2w4XF0ZY0+5EXWA5+FWJqA86v3ZFT7DCSR342VOTbC/sf/WsqHZkBP 8oySnnoDOLBvCd+8NgPcqekCFznqYGpFmDPn6CzM1hwzVPhTBScbH174jmbB 3ktB+ODQe4iMng/lPTcL/O2GOLm3EuSlWzf5XZuF3qbv7C39FeCu781o6D0L hl/WjBZ53kCT2BhE+c8C106175/2l4HAtK5vY+gsWNQe2HHowmuo9N+7eih5 FkYvLbEVPSkBhqI+2tb3s0AyvxAz1FAIenfVDqvWz8LS7Qud8qcLIEO9yMWz bRZc99Q+/vbxJagPPZwdGZwFuUcvf16Zz4H4nHlZ4dFZGJfO5lB6kg3jt03t dWdmwVaEzBypmgVh7ErjVeuzoDcUkYbfZsBgT7okjZUCTz/lruXeTwe5NE4r GU4KfLVODZS5lAadSmO/nohQYKO5UlZY5hnwW8V9uwUUIAy+S7sIPQEbeUah rLMUYNBWV7Q4Gwvlqw5XB7UpMCSZubj+8DFcf6zWo2FGAaOs5Z2TwZGQb1zE c8+WAimnvfR+3g+DDeldemXO9OuFrPO8TA2GVDzfLu5HAXaW2hzlqwEwF2rK cTWEAt819mqfIe7D6SutmpHRFMgqaz+jav4fxIorhdYnUsDrba3a70NeMDad 3rySRoEzpGc5efp3QKmcc9PBPAo4tPz36NtHFwgO8D5jU0KBmpjTOnaijjCg NRbw9B0FullGLSlaNrBPSO/Dlw8UUFb+97eRZAE+o1UM7K0U8D7OkDOseB3a i/YC+kIBeVmN3F+ul0DUJ+4/92/0/s/7/vEsnAPns4zv84cpILL53sDdEwAf uB1Xfk9RYNN0XI/AwwPA873vqCCNAp/x3toYQX64kavmob1GAbXiiUxFpl8q 14/3DagyEfBszxpmjJ1QYRHjXDFmI8CkI9nGy0wQ8lnVBL3YCdhTZ8mUIncQ 9Ke8jsZyErCftaKKNw/BRucrg1fcBPit1Ig7WGtC1ptR9xZ+AiQ3fy+Xs7kM 2inCT0aFCAh0ennir4sRLPvpljGIEtC92cTs4qQFpNo87BYmE9ByjOvaNg1b 2HzXtpUsRUBmt+3choITOEee+7BvH7295/vXj264Ql+aTMXhAwRYBZ0dc2Ny ByjbWnTiMAGk/Dt7HGlekNU8nXVaiQCZEdO4N8d9gXPw01PNEwTsY77wtsnO D74zRYVdP00A+7cWFVpgEKjzu/hbniXAK2OmbE43BAr36nnZaxLw3uJtYtm5 cPhPh9fm7iUCRNUdBpiMo2HEcsE4wICAyrd762wFY+CCx9fLYdcJYBAx8bk1 FQu7niWoJlsSwJz+bc+zzgQILPY6lmFDH7+S9P3R4SSYrjeUf2lPQETxXMA2 jqdQObVLpPI2AQO6LadTOlOB9G+dt86DgN/Z8iFybOkQyv1ja+tdAkbIrfs7 1TPA8Fja34EAArTmehXMJ17Ahwv+xG96Xbj5XtnBTDMbZMws/0yGERCTXJ0f WZ4Df4MkelZiCHhaobI54fVLSOjOLRLKJED2yC8bEaFiYBgPzSblEPDr4X23 c8vFYLtq/0wmn4BdsxtD+wZLQIkkF378NQElSLxRsuw1fL1VYmNYT0C58BC/ VX45qATEmFg0E6B6JvpAZXkFZD1x07dro9cx/2uV4y3v4E6V4mnvbgJ+Quq5 AYYq4N1aKZI0QsAG4wdSfX8N+Iik8KWPE3A4VsP7gUctjBz8b1veNAFcDlZl qgIfoPQqrFTQCHBpj6eVW9SBXlZdTz8LFU5yOjz4JNwIUafawgUlqNBcZrRq KtYG6tUZhwelqbC8J1Jr6GcbrB2/O/BMlgqsZykF2zM/ga2CjPQeBSqklZNP JR3qACQVXCd3mgr9Hx60Hz/aBcQ2tZXT5lR4M7e52qS8G7JChNPYrKiwWuvq mSfXA0Zs82c/2lJhPXdxv0lWDzT/S4vTcqaCd9DCDEPSV0id+yd/7R69PU/B A83HfaDdV2nj9JQKVy6VtZU2DQKLfgznwTQqfMXhZ0cvD8G7Lruy+UwqPL9h bB4+PASSrYLMXvlUUNY9/0uF9QdsVHk8C6ikQpKzYKxkwU8ozDjck9BPhRJP f45xiWHgvPVStY5vDnorYytP5Y6DVXo8V6/gHBTITPzcwTUB73sCvk/unoOK oY3t7R4TcPOkkTe35BwkHFho2XZ+Euq3cJSYK85Bm3SPR+nfKfDOdBJnMJgD thtjR/YEUWCs/yCDcsIcULbP8DW9nAdlDpF2nZQ5EO/WveYzOw+xiD3lRuoc vd/j6qKDNDiV/VspPGcO9vwI5E+ooEGKW8ytb+VzMNNbxX+zg35e2r7w3at/ Dsz5FS30eZahWq286o3QPEizCDRYbKyB5a+kEw9E5iHrt80npgvrsNn3v4pL pHlYG1ZuEUxaB723qmXE3nmYaWpLKFDagLG9n/Jljs1DjoGh9m3Pf8C5/Xfy M4N5IAUMvL+ymRGZ9G/1Doqdh/HRHKaP7cyI2X126XLCPHC6juSorTOjHO6u O+QU+jmsx6Tk3z4WNKf5xKUmYx5Kq1odFUJZUFC12M2Vknmw+/VvI/kcKyrM OHLVqWsekifbLe51s6F1R1PFK5w0uB8zdshDmB1ZHJ0J28FNg1+bf9lt0WVH jUx3f7Xx0eD8OWubwSB2FBn/JPz0bhoINBlLn5lnRyK1n37Ly9IAJA3IEh1b kQrvyUdbz9PgU0rrwLEYDnTvncB4zQMasDRbHmrK4kIjgVnKPiE08P1zxv5d AxfS0FaIUYqgQYYC+0LHCBfiGtFWKYylQePZ1mMW5B0oleNhbHIGDaoXW1Uk 0negGrMF5F5LA8nlDdqhLG7EuOlz4r51GsQub0v81syL2ILd+I8yLkBjRerW 4xRexL5lZ4wa6wI8Vpc5WsfHh3i3GoUbcyxAc18/1xVLPiS9fcz30e4FUBrN XL/HwI+0dq5YzisvgLDGi4pF1Z0oRYokV+m7AHCk7QDDhCBS1HD9cJ5hEe48 4svgqRZFIYe2UnawLEJ1v1rXrWlRNLgrU7h/0yIYNrb98OYQQ/7UHjeb7YtQ elgyGk6KofakY1KBIosw19M7X58khmxmGMKrTi5CZJy3cdN1cZTw+JG+vNci 1NQpHRqfIaGVwfxxvrlFmElrOx96WRKpOTRHXVxchAQfTSLcTRJFrA4ffbCy CKZ7+k3yYyWRmJBwCI1pCcZOPft4qkcSnTUI2fuFZwmK1bBSs4EUiu2ysos6 sgQktdsRWhbSSK5RZJrdawkmW/7pJEXIIE/947Gq/y3BOddv5VrFMqh2RP+k t98S+PUL+4v3yKDLzBHhEyFL0Dri7EDavQ/dRauyzUlL8DXFgz2mcB9qftfr +OD9EsSZUeqO98oi7vPzfFU1SyBfe+XytzVZZNTPWU2rX4Kfz5r4kkn7EWXp DOeNT0vALcRg5um0H/EfeV2o+n0JyJ9G773cJIfM6juueP9eApycznZWTg7l XpraKB5bAoa3glJM+nLopCtJW5yyBDWnKm/2psuhIEaVpavzS3ChdH8W9aMc 6oy69jxqaQki70wW7aPKISGxO2ebV+njuSwc/0DgAPq/98ng/98n+x9Caknm "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-1.5, 1.5}, {0., 15.624995408163704`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.603993915402814*^9, 3.603993930198186*^9}, 3.603994595967134*^9}] }, Open ]], Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", "1"}], ")"}], "^", "2"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.6039941448268633`*^9, 3.603994148133482*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"4", " ", "x", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["x", "2"]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6039941733667307`*^9, 3.603994182863723*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwtmXk0Vd/7x5GKQgPJkDSREPpQSeq5FSlJGTMkUxqJiGQmIVMqmUOUaJBS KsmjSYOhzCTDPfeap4vrnlOk3/mu9fvrrNfaZ+3hed7Pe++99mond1MXAT4+ vhp+Pr7/fZ2fJIz9+0fiJ07wnX//5CokpmUUt8+QGN5yX9pqUK7i4957R30o Ei1ta+JeNcpVKHa+/jrMIdHwpojL9QK5ikERVm4bk8Qjmtsf5ZjJVXic2WxV /IFE8Ufm4bsLVlQEKfysOBFJov8u85vnbGQr0tLX3qgRI3H13ONDmxqlKrK6 otxNhHlo3NHwM/ODeIXkD7NDG5ZN4a+iKJE9CxdVfDlsplelwMVFAquNbFLn V+zboHBh7ZpJLLfm35N6ga9Cp/Bo3nf1CYy31Qzw3DmFf6JPiP+3YRx11ok7 b7zHxsJw90/KCuNYrsa9ss+SjU5BvhfXrh5HmZO/GpPns/Hb+eh2CelxVLv6 +lP9GRamWRXmkkLjaPHgVMYrTQK3KfI03/ZzcHqL5WfPzC70fXfFfF8+B3PX xUl4WTfjFHn31rH1HNzzUqt7I1WMNlEvkzPWctBgNld/UPgZVkh9S/0pz8G/ Zw6Ez6wowthtY7ctpTgoN/D+9u74fFzjvy3PWJiDczbOuxH3+AZmz6S7BTaP IZ/iqfVUyl04Ijz6ZMexMZx8vfTYdNYH+Ljmhla52yiel8xbVGfSAsbNcYPJ LqOY9yu7bP+7Fmi9ejX7vN0odip+/Oys0QrDnBARhYOjaJTJdyxAtA3E0Z0d ozqK/H4vD+/+8BOcbA8mWg+NoOnQobCtcp3AlyjE5Z4aQZ8p5pEyfQKiDQQf 1DqM4KYCQYX7FwmQmP5nn281gk1/VLceLyBAyYmsst03gma5RnYWIiw4pNGb +379CKZumxZf9oMFmdUfzBJ6hzF8tlBv2aEe2D43uFjl+DAWCu4IOa/SD0q9 ccIJR4dxscFTxxrzfpD8nGHPNR9Gw7YDXwWC+oETVbrwrf4w8gZ0zf9874c8 EZ6z8fphHMkV9ZPzHIClEm4S5weHcFOpg+iOJ4PQv8bWu8RjCD3dIm9sEB2B 5jlnqmROD+Fn/lXa3zaNwAe27+pgxyGM/KZYqG85Apl5STUGpkP4YeqzVk3m CJgp1yu0aQ6hVvqRGnm1USjftL95mjeINxxzNX/pj0EiY+vWXYGD2O5qtuDv Iw7MqRzrqPIexPfnF7cUl3HA80B+uOW5QTR/IHbcupoDJpbS9WftB3G12656 jyEOiLlOuybtGsThrbmRdUrjEJWMOUNzB9Gi2T35WPY4BIwaiCXFD6Bey7DZ 17AJGPLie7EqcgAffXVIdEyYAJvfr2wfBg/gwN2HGgO3J2CboHJBhccARlZr J1S+mgCetIjekOkANneaeZWOTICH/o9LjOUD2DLn3oIY80lwzrDqGczqR32O Z8T4Mi4kPO/b0ZDcj7Vnmw5dWsOF8mqfpDfX+vH5sXvbRtW4IPM30SA2uB8D 5rpEZhlw4YddXcFG+35k1e99vcqXCzvlDc95rOxHZ6OinpwmLkjnbCenMvqw 5MXvtrqwKdhb+u1QZ2IfGq60fS0cNwUX6q3zK2P7kL+JHayePAU/BHytkwP6 sCxyX7vewymIcH7+RvtoH1oFaV1Krp8C7rqNIf6yfRhwrbSCKceD7/dXCvOn 9eKU7jFy830eOIxU8F+40Ytv2+duKSzkwcR/zn96o3vxdMlH++UlPJAovz9U 7d+Lik4lUWUfeWDVqFGbYteLS048fmvK5AHBt+emxmq6/aXQyuLlJHjt7YnJ le5Fy55rZ3VXkiAYGxkuubQXdW36uCXrSFi/vNp7RqAX2202fw/eRILrRgur L+wetIm+ru5oSALP+qScQ34P1m87LXzyEgmRWcKSDdk96H/X4fy8YBKkeh6K 7U3twQcOTJfkcBK2e3D+qUT3oOnix0Lx10gIibhEkGd7sEj+6fvauyQsKI65 f029B+WSoj1zqklIpzZmCyj1oNlgGJ9dHQmqO3+keK/qwe60t2eFm0k49FUi 2nZJDz43Uxrd2kVCYtdt1/WTbNxBSmrQvg0rRYo2YQkbN9++uLRkCQXn2Eq/ rhXS7TpjC1jLKCgvuxPhkMfGvpGayn/SFNi53WznT2Jje8SFHKE1FGTU+lzR 82Zj8j+T21abKBjOG1Nf5sbGobqR44KbKdgefOpnz3E22idZrc3WpuCnuo16 pDkb3VnGmfeBAunrO9q+arLxuNgDBmlEwanTJZfTVNg4fyLfc+1hCl7tUlc7 u5aNB3M7a8GMAquJVZdFxNkYfDRHfr81BUlmghsPTbCwssCnOfM4Bb0qgS3y gyws91sudvAkBVsEeaEcJgt/ci1zh05T0PS8r/l6HQt31Lvw/TlHgYRkVUhj EQsHnxZqH/Wl4PjoHpV7+SzcaaSxJN6PgueVZU3e2SzcevaVX1EABWYXC5WX J7CwcV2CzOcQCnIOrW/qi2ThkZLXdm/CKJhYnx38KpiFjNLbB7LDKbjRer3R 2p2Fs/P279KNooAoWhCsfJKFxXsHLSavUrDp6uUN08dYGNf7Wy09hoIf27yD MoxZ6K4lte9tPAWrlo4que2l+2/ju7U1gQKPwRMNO3ayUKF6YUXOdQoWpVsp dW1k4carut8OJFJwzKuu/okCC/cb6pZcvUVB4QHDwBA5Fi40WJr2KokC45nt 9atF6fUxuU4DKRRkNj4PmBBkYbx3u/lQKgUjjzau/zBDoL6mkVVnGgWxdvIB x4cJvCsV8jg5g4Jfm1MUN7MJVN0qJ3LsNgWqYkvq5v4i8KcrdWtZJgUBvVf9 mxsIlH8RZFJOc1W5gOL9KgJPL5TTt8qiQCbZ/8fFDwQqn2VcZNF8xp3rt+8N gT++W4zaZ1NQauCmIF1MYI3Wt6Iamhes6v0+8IDAhFsLPqneocfPEKrqziEw 2fHRT3+aH0urVLakESjGu9ZcRnNQ0sF3tTcIbHj+tXyM5sPiHmWfogn88M8t VSKHgjUJN16WhRH4Uvu6qwrNkyIvnhX7ERj9zmCnFs0fr7Y8fuBJoOzMPQl1 mpPm/cm/c4bAPYYVU7I0n7q84m6KE4Fdog/7/tD9b+ODrGs2BH7N9+NU0bwg 0DEtwpTAzoA9ktf+N9/fl28FGhI4PSRtr0dzoU9ewoXdBP45srRuiF5f8OSX mLM6BJas2eV5hebDHkMRTv8RKFJYum8JzWtGRMOslQlstr1pc42OF/e0RuDh NQSOx3U9/kfH91Ovqa+BDIE6ecX7nGhOcvb22rmUXs+8dZte0vk51Z18bvMC AssX67vN0vnTsSs9rSpA4DNFlTnaNC/8+ev42j9MhAeDlHM6Pb+G1bZLBpmY Hmqw4iath5DDepZCBBNXpYpaJtF6Mak5YfKvjYlF92bnxybT86l8aDDylYnW CsXDxrTeKvfU7ma/Y6Lq0SyVFbQeUyo4O9pfM9F7kdB0+w3aD0o3a30tYCLT M9tZk9azyFYr9Yo7TCztpYSqaL13Fvspv0xlot8x+SMWcRSEPcZV964ycSVz /bzd0RR8yd4vGnqaib97Ha0DLlOQJucq5OvIxCVqLmMFoRScTYuf427NxOHI tmPfgikQS2z4fXQ/E+2mTxAsfwrMI+16tTcwUfPWIUU/LwoUBUOY6quZ6Kko +R+cp4AMyfmlKM1EszaOAUn7Q5pfX72EMBNPqGg9YJyhoNvtPHL6u7FLa+Ok tgMFruZXUvLzu9EosLz/434K7syWairf6Ub/DbrLJ/ZS0JzPqX2Y2o3lVWrm EnoUMP7azn0S3Y0hFaqi2jtp/8n7z/OFazd2imTP/Uv751uy68B7jW60ZAg7 hi6n/eTOsr49G7rx0vmMSn4JCtYbHQj7tLobc3/EXL24mILr2SWvviztxsV9 2tv3CNP1dkPmQOZAF2pIMlts/5CwYov37MvzXciKFTNI+klCRHS31hunLtzy Xrn+HL0/cDoPnC0368IrdtHCO+pJ+Bi5pvXj5i5clliTUPqVBLe270/rfnfi UI5vjM4rEsoDlF2GQjvxveW8MNObJDh86KpaeaMD8brSb8HdJBjsoFw6QjvQ ZLxCaL0uCWovF/NlnO9A0WrfRzu2kDDzYJeWtEkH/uSd/7pPmYSUG7kZ4os7 8JPuS+GWJST8cDzpJhT/C2MdeevaOnmwi29MbOJqO7pUx9VlefBAyW9+QdGl dnx3buiWw2keLObK73E/3Y7LH1a8lHTiQWff4YvD+9rx6tSMqrMZD/y+P+vq nd+OQcMDcYGbefAs06eo/cpPdNKZffCWnII1O2ZNPoW2YaL4EbvkC/T5Y8kO 1VTPNjR//LvyjusUBPX6z3NzbkPDW9/Tc49Pwc9rv0sl9NtwoXtsepz5FNwk uGuPC7Xhf+tiw6Y1p0AwamhK4For3jr57NSecS701remMjJacE7f4hP3XbhQ cKqY+aakCW+e+ZbfuWUSGp2y5A/kNaGPhsec5aqTwGcXY/fzVhPGJL6q2rt6 EixNnNuoC03o/FoHYxdOgoCOeN1mzSZ0FTTof9ZFn/8WelU8edKI9RKJXLeI CVhQ+F9Wbn4DPqvMjaiuGYczk0+PxqTV4YtHJctS9DmgFjTXet7aKvwT03Pq 8+AAiF9qXJiU/gHpw4h8tQILWo67Kj9hleBKucr25ufNcNFPOf7rrUy8/8jO sSa+HB5c02bc1bgN3H+Fn68rv8X406HNDmEv4aBzeULWoRYU5Rptf2TyARQk njcLMAnsvlCp5RNeBTGd3zzYOwdx9PXB9xe/1IFyfWvrzCkOKgh/vuDfUgfr ntuaX77AwaNWjPXBvXVgU39jaE4IB7/x/ouNEKyHgOx91pNJHLynKWV5i1EP r+Jn86I/0v8/JgaevaoHARHu86SV4/gt++KS0fwGMDMR6uWvHce8yDsOx682 QfDuYa6Y9CQ6PHV78ii1CWTfC8yvWjuJMu3bZrkFTfDxTsaLILVJjFerT7/y rQnCjiz6Xr1nEn2aBFryFjZDlC+xa865Sdy79vjBgbhmSHevzWyomMTeckWd czdaoFlJa6LJnovZ/RNRJTktMM/L2PzSaS7aLMWW2Wct4Pz9RpS4FxdrXY54 X2togf5EY2PVCC6WiEQVFUm0AqUWfnv0IRcjbAYUJ5NaQTrI533RFBcVeA/F fdPb4EDwKDEbOoVSn0zWPHzQBv25WU3dV6dwQSKp0fm6DR63vJQqvT6FnE17 jPVa26DdMNrf9M4Ulrn9jFq87Cfwez1dK1MxheY9QrP58T9hzLktkG9mCsMa XfrbQtvhR6KE1Vw3HnrnLiRFrrdDznZnh89ePDzl+XQuI7sdpolgiRA/+l6+ +O+avPJ2OLsk4WxTJA+ljRLtPKfbwYNvnv6iHB4WfXhfv8D7F+RVSCm8aeRh 5zP5t9tPdYBy0rGU7/+RWKPtqbzmYgds3Nitu0ubxLLyj8lCER0g83KnUcEO EtO/nfZsyu2AfRkaKUf3kWhFFK937+qA4Yvb7A7ZkVi3ZN+NHMtO2NLodszx CokVyWn/olw64V/prrNbo0kskhtxdb/QCb99ztyac43E+A03DHRvdILESSu1 oBQSDXf9mmmq6YSeSXJw+gGJHz08Tgrrd0GdfKPJsloSi3nvG8fMuqDaz3fU sJ7EnIBlu5uduoARN2Dj00xiaFTpityQLlhb9/1aYSeJO7MF63XLuqA5e5aZ O0rir5NGK19Jd8MP9Bq8LUJh44Mpc5XV3eBafGKn2mIKq0YyYzKVuqGSkSnx XJzCUq9xKnxrNxxcfUkrW4bClOCkBhOLbkj+pF76ez2FFsndUUMJ3SA8rZb9 mEFhvEGxKH9qN5wIqQqo30PhF/LKDck73XDX1iJ3cC+FOlYqGbuedtPnNrcX XCMKV0r7PEmu64b+m+YMdysKj3zdp/W4rRsEa/hxoy2FCZdkX79ndkPemIRl lx2Fc35WvB8Z7waT7QXPZZ0p7E9b2LxnKRNmOOoRlCuFqw902ljLMEHE/5nM IXcKbaaLus6tYYJhmHhSynkKq20tB1L/Y4Kc6WMlQR8Kn664MzNmyoTh6Z5F O4IoHKz2Cp1rywTFCwJqyiEUrgvcO0/WmQlaf735F4RRmNQxtGivFxPSYjKf 3LlCoV/mlrUZN5lgn5nurxFLYbGxcP7TdCaQdySTn8VRODzbrvo5lwnCho5b 1l+j8Jh96JaJYiacq7vT13edwuRF5m/mlzGhoGnziOZNCn+gIkPuIxM2fWmy 80ykcM+q6v37Gpkw/c77ZGUShQE/MmvtfjFh/ag4tz2ZwpKQ82ZebCZ4mf6p Z6VQOKah1xo1zAQzfupvRyqFSkxJu0wuE3aK/jr3LY1Cx+sDzOIZJuRHecsX pFOYtqvsxFdBAgQjbgr7ZVAokuPowZUg4PTh1PMTtynUN9WaEpYjwG63PCs1 k8Iggfl+8goELOc74a2ZReHLZ22zWhsJEMnQXYM0c5weXTbcTMAzJU+WbjaF G8SDhRx2EBD4qunZI5qdPpjEeesTQNhtiRa7Q2GG17qlMQcJsFRxdnaiuWkt mZRtQcBBTRXtfJrFGr/KltgRsDPKTqCb5n3hGdlVLgSk6359I5xDYaiWuwLT jYB2px3HFGguZe96wPMm4LzoVdZ/NE8mSqiLBBHQYOyv/z9W1e8rXh1BgM82 VuBaml2mXmtvjSegputaxDyaM+/FvjVKIuCw+WHrdnq8C0pGOS23CWC6nNfJ o3n/w4WRTvcI+FKw99lxmleqVZ0deURAXdOXN5I0c4uiD/s+J6Ayi2NSRq/3 m6bh5jllBHi9LXG3oDm7RFgm/gMBOWzxxQQdL59tX2elqgiQr+JTc6L5QFkU K7eegBeKPh+b6Hivgn1f1H4SoPrYtVaXZt67+Y9fMwkwk+jYm0znp1rv83W9 AQIml1Qo9dD5y/kc4fOdQ0CzrZi7Is2+hnttbSgCvt2vkLCl832wZi6j5x8B yQ+/S1ym9UDVhwtPi7Fg+Gnvose0fmot9EavSLLoe0033xNaX7mtcxoWr2SB qpy09l1af8adYRmKG1lQlK7qcorW5zrH3aFPtViQF0Ud3krr9zeL/4SuLgtq 2nvP/ab1fXcgRN30AAs6Y0Q3HqH17+fKkOgwZcFR860fJuj6ODT2jzppw4Jt NicuhtL184cb9D7wNAs2T5Uo+F6l0IQv0KIgkgXnDC1Fv9H1p3hZV0frGgsW dnfMm6Xrc2buzEpMYoGdowZvXTCF+Qv9+xvvseDArFTOAX8KZyUv+fN9ZEH4 ZdWcaU/a71K1HWKqWDBjBW8rPSgsWEHpSTawIOQLcS/8HIXmay6KqRIsaDUq r2o9TeGDjd53jvCxYU7N9C+mPYUhRVoRxHw2LLX43LKb9iMLTe4Zt0VsuKww cDHJhkK+bV5al1ey4b3P0sRlFrSf6Z3/XKjLhh9l6k8891MoaOs2MvcSG+r6 NRfcVadQ9oDlKs1QNjT9zf/OVKHwv+1g5nCVDfOmI8IXKVHoILvkdWkqG+Jb O3J0VlH4tv15uHspG2wMU2ZrF9H6OToj2zbNhrM2+5MHh0iMM+oxnifYA3qc 66br+ki8q1sbqinSA0+kPiYdJEhsWJHdF7eiBxoP6GefayVRo2NP8e4dPZDq clRw8AOJA3Yxho+CesD/Va93RTKJfMYXAtsiesDTWxTHrpMotdOuaN61HrB3 z1QWiyVx70p1ScesHnirZ39IKoTejzrrmcsqeiA/66+s40kSj9rLXArm74Xi kyWKSO+vtQ4F903De6Gq2kk5pIyHYWuDdaZiesF9yb6Fi17wcHOveU3yzV7I 19hwJf4xDzPO8k3+yumFeYsE1O0zeXjW58jOk+96QfftnK97g3koFDu3yX+2 F1TdJq4o7+Th7peOAvd8+0A6qi1bvmgKeZe23jII6QPhv5sjXuZNYYGuqNJg ZB8E1ubZwe0pXPz+1UH15D5QTu6vWRk9hV3Vi1Jfv+gD603E6hXOUxhAvFWv neiDe5LW80WWTuELURk70rUfhpY8089w5mKvyt4srwv9wMqWnXK04qKUoSdz zL8fNjs13Fp+kIsBEd9c+qP74c2V8GTTLVzU++d3ri2/HwRuGS+dL8TFek57 8Bt2P3B+x6S45E/iaMPtnOCjA9Ag9De4+dcErpr4yp52HoCeXIuGhO8TaLqY p+h7dgC+43M/nfcT+MLI+KGH3wDMCe94ant/AgM+zRY7pgxAXJiOdpPHBC54 af9pT+MA3A1Utcrmm0DFtNX9840GwS15V+AF8XFMVbjoq2g+CLLHPHTeCYyj yNNqIf2jg7BEMyT79zgHJz9f3BDmOghljSrGG39wsGKq5sxM7CBwExaHZMVw 0NbEb4RTMwgal36Hmv0dwwShhom2Q0Ow7E3sbbMHI/jHJ/zvQ7NhqLG592A8 vB8XNFWOgO0w/B5Lzx227UcZTeHOBqdhKGzz9Xz3Xz9uG4srnz4/DNsnpE9T XX3oezI5+EDCMLxTPZmRpt2HvCMP+Ieqh8Ho3G21+0QPTmj/mKu8dwQ0bHgZ qdIsHPojK5avPQoiyyP/HF79E3UrI406GaPg9KJ694LiNoy/PhktsX8UlHXt B5z12lBDqWp+qPUo3BRLGiBdWtHHwo/fxm8UrCV8u7LuNiNfUSt3YdkozJH0 HWxd1ICSLrfa3WEMDsz4XPfS+YzZJyMbZddyQKLJeKb981MQ8j9VtXY9B6yx yW6srRg84ve/V1HhQIZ8kG/syAuAFwuLtmty4Dmh4+QiXQqdAgkxtns4cGHQ yLl21ztYkZmyO92ZA55bjXq3132FlMaCIpm7HHisVJa39kMTJOyqjpVWGIcr NZdekOZsEHN/uPvDsgnYnrfyldAyLpTrvXpbIjMJXSrHRVr28DH+utlvsRTj wkJplV0rBucx+OfXp6r85QKzi3vcbbcYY8s+z/eGfDzY0CZmaJcqzvjz61H/ sgkerFI9JvprpxRDz/VLwkEeD0ZsTmYUmksx4qZZ2lf+8KDNj/M2+owUY5WM 7FWuAAnpndFonyTFMDhydUODOAm6p2VGA0alGIl1LmcSNpPgr+gTdiVbmqFW uXJ4wSX6nr/ycXP7QlmGr4VO4u5AEua4v5Fjr5FlvGNb6PqFknBTK1adt02W YT4nLnbgKglB7oGlW0/JMvwZ06pf0khgtbRmanySZXwpbXG7UkbCFTF9lemQ FYylhpPL3laQYC5/YTw7ZQXjaJtYOfcjCRp9EZmHi1Ywxkh9seM1JGQM2z+v 6VrBkNz8vHB3Jwll/DJ8AHIMh4/fLf0IEhJms9W0jsgxCsyGZp/2knDGbIWp prscQ9dzzaHVYyTUWlBBh7LkGBH8O0mrSRLSVDpiXF/KMX4kWGclkCRMFJQn 3vwux5BZ5W3wZZqEP+xj6R/75Bj//34J//9+yfg/zOm7PA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-1.5, 1.5}, {-7.499998591836804, 7.499998591836804}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.603994183502432*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"x", "[", "0", "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"v", "[", "0", "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"-", "40"}], "x", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", "1"}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.6039939784260397`*^9, 3.603993995703204*^9}, { 3.603994103514781*^9, 3.603994111457625*^9}, {3.6039941538709393`*^9, 3.603994158754534*^9}, 3.603994391219304*^9, 3.6039946037036257`*^9, 3.604065809577277*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"\[Sigma]", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Nn", "=", "1000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]t", "=", RowBox[{"10", "/", "Nn"}]}], ";"}]}], "Input", CellChangeTimes->{{3.603994201418584*^9, 3.603994244717202*^9}, { 3.603994303814877*^9, 3.603994308821653*^9}, 3.603994349896648*^9, { 3.603994424834634*^9, 3.603994437435027*^9}, {3.6039944743807707`*^9, 3.603994475742198*^9}, {3.603994535166542*^9, 3.603994579042542*^9}, { 3.603994670215293*^9, 3.603994724565436*^9}, {3.6039948009997787`*^9, 3.603994826177804*^9}, {3.604056739328979*^9, 3.6040567426875067`*^9}, { 3.6040567906396933`*^9, 3.604056824423889*^9}, {3.604056903000071*^9, 3.6040569041438828`*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", "i", "]"}], "=", RowBox[{ RowBox[{"x", "[", RowBox[{"i", "-", "1"}], "]"}], "+", RowBox[{"\[Delta]t", " ", RowBox[{"v", "[", RowBox[{"i", "-", "1"}], "]"}]}]}]}], ";", RowBox[{ RowBox[{"v", "[", "i", "]"}], "=", RowBox[{ RowBox[{"v", "[", RowBox[{"i", "-", "1"}], "]"}], "-", RowBox[{"\[Gamma]", " ", RowBox[{"v", "[", RowBox[{"i", "-", "1"}], "]"}], "\[Delta]t"}], "+", RowBox[{"\[Delta]t", " ", RowBox[{"F", "[", RowBox[{"x", "[", "i", "]"}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Sqrt", "[", "\[Sigma]", "]"}], " ", "Gaussdev", " ", RowBox[{"Sqrt", "[", "\[Delta]t", "]"}]}]}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nn"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6039940426748943`*^9, 3.60399409954503*^9}, 3.603994233615056*^9, {3.603994419717825*^9, 3.603994420279604*^9}, { 3.604056708483567*^9, 3.60405672600047*^9}, {3.604065795850018*^9, 3.6040657983377533`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", " ", "\[Delta]t"}], ",", RowBox[{"x", "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nn"}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.603994236042367*^9, 3.603994291878793*^9}, { 3.603994450497312*^9, 3.603994488568273*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.24720000000000014`, 0.24, 0.6], LineBox[CompressedData[" 1:eJw923c8le//B3B7b47Dsc5o0lIJqa630iTRVKlob1qSSqWkpKiU9tKQhtGS ipLsvTfHOPY6HDLidz7f875//vk8dI5z39f7eb2u677vz/uwtrqt3CEhJibW JCkm9t9/T2q9X8z1ukDE8Ef0ezAxOvLJdG2mM4kx9G11jHlElK+37ljM3UVE rz8n379tULyQd5Tcu/vfz2vy97VnvvTr4/j+98TN7MQ9SQsf0ub4379EkTtS t+9KR1/Cv/9Izsw+PG9KahBRKA51n6vwhYRrmsUfkr6Fn/eVdC19MvnHoftk onNggmDCdwJOvETN70/w8+OItovruBbp5+S58K+LQ38SFfXRTz+yXuLxfpHT r7VdXW68JjP+9/ObJL63W5k7NhyPn0i+Z3jyv259TX4LJgiP8IfkfOL3P94W hueTTD6nhEl9WveKrPzfAVPIJL7RPrEvL/H8Uol6YWmc2+BLwvX67wPTiHPv +6BTG8PwfDPI9cfH/xo0viaH/js990xSdOXWq1VrwvH8s0iOnKYR8/kbrHsO 4cYEhUx69w7Hk0PueIrbDzEiyZL/HSCXPHdbP7HBLgrHl0viS3dXJeVEk/+O 5hyYR07/6FRc/fQjjjefbGdo7b4Q+Zn8bzjF+cRFsf6Zzc0YHH8BcdxQ8DB9 Sywx+u90DAvJvZPvwHLbd6xHIaG5RTfEzoojO//3U0TC62Xn7jb5ifUpJmIn orPB7hf579O03heT3JL050FbErBeJYSd5TSh0eM36fvv4wQlZNoup3PGeYlY v1JifSbN8t6qJPK/8swtIwqdRsklC1OwnmWksv7quRbTNPK/0/MtJ0FL3G+w ytKxvhWk44Ohwoa4TJKZ8d9PBXllG3Le6VE21ruSuAzMjKkpziH/G65WFXHl BQS+Uc7D+lcRh1oj1Zkb8sn/Ps65mvCKXTcwEgvQo4aYvrBlXZtbhOOpIZtd eSd8uorRp4bs1pBoNnpZiuOrIZ8qlyrobipHLy6Rfq2jtcKlEsfLJbwJf3uX XaxGPy65ECM5+qWiBsdfS+I6RkMaO7joWUvk1g04yCjUYT1qyXBY5SLjyfXo W0ca4/XzmzwasD51ROLVgHZACg+964jpCs+zLWOasF71JHNla8Xjh83oX0+8 jwyZb5/YivWrJzxZ0yi/7204HxrIqdAnM4w3dGA9G8iNnKbgbqkunB8NxHnC w+PJlV1YXx4pSHpekBDTjfOFR7K3l5vY+/Gx3jySd3tTyNDyHpw/jcRB58OG UJlerH8juVS9I3TkYy/Op0ay1GOlnLWDAD2aiPjB5Y3bSgXo0UR+d15bVG7T hx5N5NrOjS529/vQo4mknFpnyi3rQ49mYmnwa85PiX70aCZmYWrro1T70aOZ lHDnb54u348eLSQh4GzCy7Y+9GghW89kaE6K7UOPFvJ0dFtE8N4+9Ggl2mBt snFYgB6tJOHDJ63AIwL0ENZ5/dzAgspe9GgjO2QsD86e24sebeSklPyU+Ns9 6NFG1v21dexv4KNHO+kX2/7yziw+erSTsdtmzJtwpBs92olv4/ysoE+URwcx YxR1dbR2okcHmdXya3P0ng706CA6Lk6/Xavb0KOT0L9aHY9e24oenaT8kO0j y6Jm9OgkZzJDLxivaUKPLkK7HWWTWcLD8XQRx5R7EYI9DejTRbwt29+OGa3D 8XWR3BMfXo5/V4teXWRHquGUwONcHG8XmbJdh/1mZQ36dRHFLaeUHvtU4fi7 SadVjNFS/wr07CYaw6vu2saWYT26SYKFx5FnBqXo203SZ+qP9XhRjPUR1qnb Jn6efRF6dxNO7CZ9RVoh1otPtneGm+oU5KM/n+Sa93POJuVh/fjEPFbGpZWX i/OBT3aONeDtM8jFevLJoqQZ3ziOOTg/+OQ5e1zCxpPZWN8esl1Jf53J/iyc Lz1k6tuu9ZmfM7HePWSRstZvvlomzp8e4uXZ777aMQPr30OWuDbd7wxLx/nU Q4wzbvjRm9LQo5dEW3863O6Vhh69JME/Y/xO5TT06CWzpVu4lxNS0aOXFI28 lXO+l4oevWQ/47P0saOp6CHMpa3T8fAlqejRS2aOZnprNqSgh4DEbFKdox6R gh4CojNPyXTDiRT0EJCt10aLnaamoIeAWE2MZh6sSkYPAQkJOvDR6VsyegiI yvg17OdvktGjT7j/k3exZcno0UfuKl30i9udgh59xOCKrk0aSUWPPtI0nLgk 1S8NPfrI/vBZE+zq09GjjyRp+VX+25iJHv0ErM5EQBPl0U8EvmItm3floEc/ 2VD9eK3HmVz06CfplcmyoRl56CF8/dTR9KMmBejRTwo2Vxa89ilEj7+kJ6S1 aOVIEXr8JeWm50u2LS9Bj7/kifWbfsPkUvT4S45tTHmTcKQcPf4S7pXlRnqz K9HjL5mQMOzgubgaPf6SI7rJlyNu1qDHABn60/Hwyj0uegwQ1xSjiCUva9Fj gMCSZ0bjw+vQY4DcYJUHbMuuR48BEvx318Q4TR56DBBmf+6JwAuN6DFIIjVW RObINqPHIElY6D5wOqgFPQbJ5DeFi3+x29BjkGyO0WdrvG5Hj0HyvaZzc/DM TvQYJNsjTsWOc+lCjyHiH3Unfxm7Gz2GSGO+vNxXXjd6DJE6xXFJJi/56DFE fj9ezPu2oQc9hohLe2fjYYle9BgiaXTLJ8bBvegxTD4Mt1dOEc5bkccw+Rxk tNXyMrWfDJOHRs8nPawUoMcwOXpmopOjHrW/DJP5RgY6dvP60GOYhNyAnRNs qf1mmNhN8WG1C/cjkcc/khXkP7LDnNp//pGKccnLvwrntcjjH3m6P1T3aYEA Pf6RXd5yTloXBOjxj4S8OGe6hSlAj38kYtXiPtmYXvQYIZ+aVSc2LOlFjxFi azt9xdLMHvQYIc/0xkD64h70GCFnsmcoOn+h9uMR4pNsqLmHyUePESLeVDPz tG83eowSM/+WG668LvQYJTvqkkyGSRd6jJKP2/QXvJzaiR6j5KLiGrMbWe3o MUoaCt90LTrWhh6jxH2C1cJJY1up+wxInbCtfa1wfxGNRwzSJ+X+zgykrlfE INLneqP/tEYcnxjomj+R10ih9hcxeK9+IcZ8fz2OVwwevBhSDzOk9hsx4DIn VRl2UddTYnAgscEqLaMGPcVAP9q8vnFXNdZDDK6wx7+rsqTyJgadF+/8KbAq x/qIQUK744LQcdT1nhi0nVbMyNArxnqJw4XSDbrGkwrRXxyOvcmZaXgoH+sn DuwfvscfpefifBCHq+4xX+8xqPVGHATqU3e4OGTi/BAHBf68E2XPqOtfcTDx 7V2V8//rqTiU7lhe8FohCestDs6zd294KpeI80ccrr1Y5OijkYD1F4d1RydN idL7ifNJHGqd4l7p3P6OHhLgRzYrRsz4ih4SkHDljt6q8E/oIQHa3f0zSjqi 0EMCHF49rijMfYMeEuD5WLeRZxSKHhLw1WRwyWB7MHpIQA5kJ89234EeEvDF z18wLiYoXuQhAWerfQ8Vzn4WL/KQgOGfgo5J297GizwkwF+W3vJk5od4kYcE MNz3TL37OSZe5CEBMdEKKT7/fsSLPCTh8qCnEu/3r3iRhyRcX1Nc/mJPYrzI QxJIwamSG4zkeJGHJBy68yhq+0hqvMhDEqw6jX/VaWXGizwkIb5hk/dN1Zx4 kYck3Ckvc7b8lBsv8pAEvYHmMTW78+NFHpLg6CVu5K9WGC/ykAS5ZrOksTFF 8SIPSXD1M1hoda0kXuQhCcw7MbecfMriRR5S8PSOlM54j4p4kYcU6CW60X5u qYoXeUjB0o/fipdPq4kXeUiBw5eTnzUnceNFHlJgbpD6JtqyNl7kIQX1S4rs tm6tixd5SAFz28FgC7/6eJGHFLxx4daNvG5ADylIcLq9NKWMhx5S0F7kfWus ShN6SIFHWsizJdbN6CEFo8M9vvpnWtBDCmy0Bma0JbeihzR4wcAuI8129JCG rU+P/XDe3YEe0nDl+MJwt7hO9JCG/Mlei7IvdqGHNBiYtv40N+xGD2k4mxJa MCeiGz2kITVr8Y/9lnz0kAbxhMbh4R989JAGs++RN8ZY9KCHNHCuW1eOhvWg hzRk5s/vCzDqRQ9peNEYmvX5ci96yMDY3Lhvpzt60UMG1Hm6iolLBeghAzLD 1SlFVwToIQPGasGWG+IF6CEDLjeWit2qE6CHDFz9u3nVm14BesiAnpL9i/0d AvSQgQZZJfc7ZQL0kAHvt6u31scI0EMGKp4sMLkfIEAPGXg1fywxF56PyEMG utY0hdEEveghA5rWVgvd/XvRQxauXuzZ6KTWix6yYFgY1fv2ag96yMIZOQuF Icke9JCFX63pC66f4qOHLIz2lKuYNlEeskA7P/fDk8WUhyzYJC6qib/fhR6y kFLs7VpS14kesjD/rveEtz4d6CELIbd38q/PbkcPWbgwlxh+FG9DD+Hf1y17 aVbRgh5y4Omp9cTsczN6yEHI5T2Z2UFN6CEHyRPtxGu3NaKHHJh6LzluY89D DzkY7Fc8ZbGkAT3k4KfuNcVs53r0kIPzUcUxTcfq0EMOlvUnbxTel6OHHGww 9U9p/8ZFDzk4ZGS79cnfGvSQg9aA8y5VC2rQQw5OGTStH9GrRg85+LNSZ+qk pEr0kIcTxZkXUg9VoIc8FBzSf5NkUY4e8mCnsvVJi0oZeshD6wLVV9skStFD HnoGH84X7yxGD3mY9W+un2phEXrIA9+pn9cbW4gewvebf3H6/LMAPeTho8uQ xNk/+eghD7sGaP+4/XnoIQ8uEzTXj1rkoYc83OpOn3nyZC56KMBP2YdGD0py 0EMBDBrX/8jenIMeCtDyMO6M00g2eiiAufsFmGyZjR4KoJbw2943KAs9FGBh Sd45iUlZ6KEAg0OVcu8iMtFDAcboXkka7slADwWwPajz7PHxDPQQHt8gq6zu Xzp6KIB4DVFOP5yOHgogdXPh+Vuy6eghfP/6BcEW/mnooQjm3qf/LtJPQw9F yPEDjrdeGnoogo9UwP4fzanooQiCYLUkpXfU/qEIfvUm85IWp6KHIhxbN3/a duNU9FCERvNI+oWOFPRQBNdk+WnKghT0UIQj5o+n7WSloocinF8TVFtnlYoe imA4KVps+8JU9FCE4dszCH1/KnooQdxzlf6C4FT0UIKDK+yf5nakoocSFGmp HWsaTkMPJVjtXdod3pyOHkpwf8ZQ9qxfGeihBNoPc8q+RGWihxJ4FV3y+HYv Cz2UoDyAfpv4ZaOHElyT3sDcNCMHPZTgw2vptoaPOeihBDYDhQny+3PRQwlO 7PHUqpibhx5K4FZr+5Rhlo8eyiBdNrC6akUBeihDz+Pp12RcC9FDGRZcsJdb 7lmEHsqww+NB7TLvYvRQhoFTvze43SlBD2UwfXtvVWdZKXoow+4e7+O0JeXo oQxZ7iqxtD8V6KEMnidTqzbNrkIPZZC6AU1DJdXooQxnxv9IPhpbgx7KkNi7 8YzMIy56qMCv33rp6X616KECHaeXvRk+X4ceKsCtG1wmeFCPHioQm+NdEPOz AT1UoG57WbztXx56qEDzZqkzP42b0EMFLN/7Vo5ua0YPFVCp5C82fNWCHioQ yB2ssh5qRQ8VWHskr0beoR09VGBcQ0TTiYcd6KECC/p6TjRUdaKHCtgoGz9s vdmFHqow97phB392N3qogudzX/+4sm70UIUxez0ucr356KEKh/XTjveM6UEP VfBPapG+lNaDHqqQlP3O78W+XvRQhZ6WVaNTxAXooQp9OT3WY84J0EP4/vXW HnUtAvRQBV7goqUxs/vQQxXuTlEPnnGkDz2Ex5PPH5l8sw891GBu7qU79rf6 cDxqsCBbt671XB/6qEFy1C2H+o19OD41OJwpO92K3YdeasCs3x6RVSzA8arB O3H2z5IT1P6vBh6zHjopiAlw/GoQuyhi/G+vXvRUAwX6yrEtzVQ91GAk6Gny tlU96KsGMmb6N6Z84mN9hJ+vcmeemgofvdWAfUa779kear9Vg6Insh4ecV3o Lzye0WHX/XLU/qsGejcyXsg+78D5oAYfde8cnWXejvVUg3kRsjUV2dT8UIO6 oJV+9hdbsL5qINlyYt5a+2acL2og6PM3GRDOP1G91aByYVkEX74R548aeB3x Szs82ID1V4MdC8KtbnTU43xSA1qqb2Uevw491IE9bvEzb/k69FAHz3XP6/Wn UXlRh9M7VCK7VnPRQx0WVhg4n7tcgx7q8FX1ZpDsvWr0UAef5rnZEiZV6KEO hX4WU/NyKtBDHW5zcltPvS9HD3V4sPNBrf69MvRQh7V/OKeTAkvRQx2mjB6J OPyJWj/UIdLS6eNt4X4r8lCHIbEVgu3TitFDHXxnu1wMvF6EHuowmaw6t4tH 7b/q0LjD3/LPgkL0EL5um1+/+iO1H6vD35CeSbkLC9BDHb4EFpkNd1P7szoc cyVfV9zNRw/h+app6dnszUcPdZhasJWusTIfPdRhjtfhJebL8tFDHV5wQ4Ja LPLRQx2uhCg9SxeutyIPDSixtV+ab0+tvxpQ5HP3rY5vPnpogM/DzsiT3/LR QwPOra1inR1fgB7C3w9OWeH/tAA9NCAwk12tPaEQPTTg6GXHw1saC9FDA/5t P/f2z4ci9NCAwz6cp/6bqfVbA47riJ27L1WCHhqg7uH+MuEn5aEB52V3FFnu LEUPDVh4Pr/WfFYZemgI7ye9+K6q5eihAWLTts2b00St9xqw58vGB4lZFeih AcG/LHnD+ZXooQEqs+zGxIlXo4cGRE3ceOzFhBr00ICRxCdnp/ZQ138acIX3 wVIvjYseGhDikPpmxrNa9NCADSu1jJ1u1aGHBjSVyDZzQ6h8aIBvp6a0V1gD emiCzVp15T3xPPTQhMfyjcfMKxrRQxM+iUex3vY3oYcmuA24PgjWaEEPTYhP kMhXG9uKHpqQofHCWdG8DT00IffuW0asSzt6aIJKwy037eAO9NCE0zsbb9cL r99FHppgez5gzd27XeihCfQt69w+Eup+QHj8lysvS9d3o4cmtH+zXex2no8e msBsuRelodODHpowcWyrxLPHPeihCZM6JaIj9XvRQxO6lt9fxwjoRQ9NULa2 aH7X2osemvBc7vPNa/Oo/UATnl2Ku/HyNHV/pAm7Ly2JPflRgB6acGz49hjD Yup+SROstJ/wklsF6KEJHikx21YJ78dEHppwJsLt6asaAXpoQdPM9LC9ws8T eWgB+cBeMPOQAD20YAd9D3OyrgA9tGCw79w2v/Be9BC+/jyodJ5JL3powRHJ zDDGsx700AK246utr3Sp+y8tWDwzrzjkNh89tGDk2I41CerU/ZgWnO05c1X/ cjd6aIH1AcWNY8QoDy2wz3RvXebVhR5aELDBb1dNayd6aIFtX+CMFUUd6KEF L4+GZWrkt6OHFmyK/LnLsrINPbQgctK1CwxBK3pogWtWiFW2OrV/aIHZivs8 0+nU/qEF1zZ4BMZuovYPLXifIzja6kftH1rwNKTbUSWd2j+0QKbB/e+Y8Y3o IaxP00jM5ps89NAC8+4FHH06Dz1o4LnjiLtSRAN60KDfZ+qfQOsG9KDB3gG/ mIS6evSgwZKXNp2+PvXoQYN8y7L4jAn16EGDp2NjfBfk1qEHDYxzr4nd96hD DxoMGM2vN2fWoQcNaqfzi0l1LXrQoMD08AXmU+r5Cw1esNbPG7hQix40cF/q 8MpIeD8p8qCBWKRDi2xELXrQ4IRXncSvvFr0oIHGud1xz7tr0YMGb1YMjFVm 1KEHDYwMYy3eLqhDDxrMrpT4nuxVhx40mMLqqnn6rQ49aPBh15dp3xXr0YMG 4ulDs05vrUcPGpT/naDXlViPHjSYt6rCbfo4aj+nwffWkWUJdxvQgwbKv2dM eKpJeWjDs6IjK+oeUeuVNtysu2mWMoFar7Qhar2TtO/7RvTQhiMLxo9btI66 f9eG6wY0uxnqzeihDc4n/OZGZTajhzbc/XPK96N/C3poQ91W+l0151b00Iad K1r/yE5rQw9tSD+19lScVDt6aIOa2raxUYXt6KENWxKCLMbHdaCHNpSGBR+3 SqTyoQ0f3r4698iVur7Shsaxtj/Cm6jrK21woBtPMjvejR7aQL/4Qtl6tBs9 tOGlx67uA8f56CGsj/zr6GVcPnpoQ9vu3ZED83rQQxverX7sYn+Vej6lDfNl my2jSnvQQxsKR94qv6NTz6u04dTPyruFhHreow0JU4uI81rq+RUdcqPPXPm8 lnr+Q4fssDErfq6hnmfRgeviG+Y+l3oeRAf76o6YpXrUekUH2ahEXYNW6vkQ HdrW/jlwJIpar+iQcTUge9ouar2iA3vEbmmdYg960OFzikKGWzS1XtHhsnH7 y4+r+OhBh86Kjyv3d1DrFR1sH4V9512k9g86HC5heqXTqetdOnA8rK25bykP OiyXVZgzZwHlQYc+X07FiSed6EEHKHJZxEroQA866D6uZCTWtqOH8PzcT2Rr D7ehBx1srtgFHNFuQw86OOTWRwRMa0UPOtCWtegaz25BDzqM7vFZGyy8PhZ5 0GFVzKxsxQtN6EGHftkrG5x/NKKHDiRpvKoZ7KDyoQOnYgw6usfy0EMH5Ilc W+GuBvQQ/u7v3834Sq1XOvB+td/mb8rUeqUD203OiE09S61XwtczSvyD5an1 SgdoStXGzr616KEDpUlqq9U1qfVKB7JeqzAWhXDRQwcsfh1MylLhoocO6Px5 vifsbA166ICCR0aAQL4GPXRgZvb0gwJ2NXrowKywAvHV86vQQwd2fj8uK3O8 Ej10oEjJselsG3V/rQM3Xw1W7D1RgR46MBC66M2EaRXooQNPC4+VONaXo4cO pCk23ZwTUo4eOvAP4lfWCO/fRR46MGfqQpPXhuXooQOKtxQsryiXo4cOWCtb FSaOK0cPXci8Y2zbsbgcPXQhldv84vCDcvTQBeuwpV/r1annc7rwfb/3uLzc CvTQhRUVip7vv1Sih/D9PMUDez9R9x+6MJpqN7ggvRo9dCF4Dz/dy6sGPXTh 6PK7SxYZc9FDFyzmxbCvV1MeuuC0LoQRH0PtH7pwKd5KPvIe9TxfFy7/ODLz 1Y169NAF/XE7d3FCG9BDFxKlv4Kx8PpR5KELF1fHnponvH4UeehC4KgtbZtM M3roQoPvevg7vwU9dEHDQOfylSut6KELJwd0Xp9rofKhC23eN2huqzrQQxc8 9hh7i//pRA9d8Do0b5ZtSBd66EKjw+FenkM3eujCktvOs5Jk+OjBAJd582pb f/DRgwFiU020JA/2oAcDwnXG+elrU+sVAzK+BCu+jKTWKwbYN+dnfV5E3Z8z YIpNkdvcVOr+nAGv1jGvHjTvQw8GSHHjHn261IceDDjos/N28u8+9GCA1hfJ e1/q+tCDAbf+Rt5e2dSHHgygvawIFVT1oQcDaofoCabf+9CDAfOvHtAnPn3o wYAdKvqz0iz60EN4/NhbJzRyqOf9DNDp8nVLXks972DA/kU9E2mZ1PUuA2Ym dJSfn9WLHgyY5TdX3e06tX8wIDLQ2sSsgY8eDFjqIpO/g/DRgwF+pqM2b250 owcD+t4lrTpQ1oUeDMgpJsf3jOtCDz2Yd5JpMZvXgR564PzG25V7rB099KBE OXyFsvB6UOShB2eiAjdt9qPuP/Rgk4q99iMWtZ/rwZ+wL5Pc86jn83pwzXRf tP51Hnrowc01TxdHbKWef+nB9Z1Z7xIX1KOHHmQ6Glq2WNWhhx64phbIbiZU PvRgebzKGpMVXPQQHm/Hys8HdlDrlR6MrNZR3jqeWq/0INBs5aGFlyrRQw9q vkxgSotR94N60BD5LKPWtww99OD8EptXUvKl6KEH4kt4i6emFqOHHmg/l7te +qQIPfTgVlz7v6FzheihB7G9FifppwrQQw9m2do/lvei7s/1wHiq5dHx/tTz UD0w+WCdUxNNPW/XhxJnQ9q+ghz00IcszW3tzpXZ6KEPG9UuHVSVzkIPfRh7 8/nFC+YZ6KEP+ytDO786UM+z9cFyzemtz+6moIc+bLuV+yLEgPr/o/pwYHL9 0xz+H/TQh2Hbh/tDExLRQx/WPHn3+/PQb/TQhxz5Ez7ztX+jhz6E8aW4azcm oIc+vGdo7C3+9As99MFrdtTbis6f6KEP9xrXmG34F48e+qAyyXHAcOAHeujD ucBlRgu7v6GHPjCzqgP7Z8aih3A8dJ0wj5gY9NCHXctXKBzw+oIewnro5ix0 W/0ZPfThVLadRyvrE3roQz33bEK77Uf00IcpUXHbZrV/QA99SOUMhjU4f0AP A1hv9vnf4eJo9DCAcAOlsr+MaPQwgLtPBWs1JKLQwwBi/1jcj5aLRA8DGKtX +7Ny+B16GECew7fdk6e/RQ8DGLhcVcMICEMPAzi77a8hfekL9DCAg+HnqpaE PkMPA0j4UxSR++IRehjAU/ot3+3Vd9BD+P5j/5L1a4LQwwBMg64wv5w9hx4G 8PZH5rHCNavQwwAy5Di3wu0OY/+BAfg65x3MeHsB+ykM4MniLZKq1dexH8EA vMNtOvsC7mN/hQFkr355a67aM+xPMADrX/XSL36/wn4LA8hfuvysU9l77Fcw gC9TAtLOJ0dj/4UB0Dh7u621P2P/gvDzxBwPmNfHYD+GAWjxJ8+wEXzDfgZD iJj4UXPB7zjszzCEIHk/k3TrX9jfYAiHpKYPvZnyG/s1DEF7z8oUOvsP9jsY wtU7p/U8upOwf8MQDvcEbCotScH+B0Mws7tasEciHfs5DKHSqkZxyYxM7Icw hO3yOXuXO2Zjf4chOKxg/O76nYP9EYaQObutoK4uF/s9DMErQNzEuC0P+yUM 4eTPfOcVOgXY/2EIQ0pWTeZ+hdg/ITx+4ZQwxX9F6GEIrMl+vG/uJehhCLfG XtziUl+KHoagOqliqYtzOXoIz8dGwt66tgI9DOHv/omDeqFV6GEIR/NMx9ia 1qCHIRxxMfy0lsZFD0NYPhSonjbMRQ9D6E8cePLlXy16GAJjYRfbVbIePYxg QjVn3h7jBvQwAg+bcINWFx56GIGMw3GjwvBG9DCC6APB6vWqzehhBPLRH48k +beghxFwDDN5Lj2t6GEED8S2h9fub0cPI+DF/HCxFOtEDyM4ms5adtOG6l8y gtuL5+w+K031KxvBkZ1fDznFd6OHEXhXspbuPMRHDyMw+704YC67Bz2MYMtt j7vtqVR/lRGU/Dnx3G1XL3oIz2dT682Pgl70MII1K194jrgL0MMIBkpNQrXq BOhhBFdu7rs5b1EfehiBTkwFvyiI6jczgjPdJ5d7JvWhhxF0e37LY1VT/chG oLVDuymgtg89jMDiKu2nZwbVn2YE1z79XCd40IceTMg4elvqxqo+0XikmTDj 7mn77m4B+jDhZ21OcaynQDQ+VSaEGIY+38ej+s+YMGW9jpQ4wfHqMqGfVnSg O6AH/Zjgkjlto1gmXzR+DhMe/Lq++q08Hz2ZsPxsTorJwm5RPaYwYd0a6dSL PlS/GRMW++9WaTzeKaqPBRN+lM1oK2xqR28mXHo2I7jtSJuoXvOZoEYXsIoZ rejPhInvWsKcPjSL6mfHhMltYhObNzXhfGCC2LgkjeuajaJ6rmMC9GxzepvZ gPODCQ6K9vZ/HtWL6uvKhFtH7e4zrtbhfGFCgN4W283HakX13scEuSlzdXtd uDh/mHCyRHX+FXvsZz7GhFWHzno+vFyF84kJS3K/lljfqRB5nGXCYIun/pjK MpxfTPinmLfj9sJSkYe/0CN48KYavxjnGxPsAvcsqvxTJPIIZsL6Wd9Ci+8W 4vxjgt6BTFnBhQKRxyMmuJ+RCKR75uN8ZMLmX320jyfzRB5hTIi/NUfc7FQu zk8mpO6ZwH33Ikfk8YEJpmc6l76uz8b5yoQ3a47Yfj2YJfL4wYTPT37u8u7P wPnLBN+XnHqnOFwfk5lg8ZGuEyuWjvOZCaf+fLB5lIT9yblM2Gv19oF9ZBrO byZsP1pyOOV9msijggnFuyyWy1Sl4XxnguaP95JBjukiDx4THh3ydZDsSMf5 zwTn0Gavos8ZIo8uoa++iw09LBPzwITE2ulrNr7OEnkMMmFPzVN23utszAcL 3m5d/r7pWA7mgwVX6DNyrlnkYj5YkOvpNFXbJA/zwYLG6O/JAk4+5oMF7qmz Kl9aFmA+WLDPg2Yj40L1B7IgW+HfOMMnRZgPFuy3b09q7S/GfLDgBrszZ+AY rt9TWHDJtCt2THsZ5kP4e9WdCLFnFZgPFpjuPPHYzK0K88ECy0nvDqfp1GA+ WFBc+NjRSY3qD2bB9aQxjStUajEfLDgsM2V3k24d5oMFrRdKsxWZ9ZgPFuyy 833nwaDywYKHl1NsBox5mA8WqNtUxofZNGI+WFBa3JPnfrAJ88GC2+q3E4LD mjEfLEje9Hzfq9YWzAcLPLcWcqWs2zAfLGg/fSlZKagd88EC/agn3BM5HZgP Fti3e/ilSmL/sD8LClVezxS/14X5YEGGZlSYx7huzAcL/OSf2bu+6MZ8sGD+ nYs+cxj4/YpHLBi56GFf7I/rVSgLpsl+ueswhOtVGAsiTSRfZ26i+o1Z8N4u LiXiWw/mQ+j/auRYrlEv5oMFD0qbGqsOYX/uDxYY/RuV2Rvdi/lggdaZtYcX tvZiPljg9aFiX5G+APMh/Hy9+ZGz52J/ci4LLPYuNwtYRX2fhAXf9zTfNXcW YD5YMPnaXr/tDgLMBws2JkX4T5gmwHywYFF1zYeq0V7Mh9DH+7N8ZUIv5oMF HN3ay/ZHezEfLAjjBTpFauL3UwaF/jJrp7PCezAfbEhfEOaeZIH7oTQb7BIV Gk1i+JgPNjzwObLTypSP+WCDqdWv68deoYcWGxwi3FaE6KOHLhvU1ku2NYd0 YT7YELH3PE1VvQvzwQadNYfzjxt3Yj7Y8Hx9966BGR2YDzaELs8RT1najvlg Q1ybNEN1XRvmgw26Qz/j/HdS1wtsoJ/dEn7VswXzwQaPH5qhhf7NmA/h+ZLO hb7vmjAfbOhU2VjE5zZiPthgfDrBdLEutX+wQcm3N+edIw/zwYZ3bvopTVca MB9saL4omzk1m+pXZsPL2uND1/XqMR9sKDbR/U3bV4f5YMMvzfEWN1LweuoY G/hbwq6/WF6L+WDD/U1P5zBLuJgPNjTM/qvYeZiL+RB+/nRXfxM6F/PBhrPd 6x9ezajBfLBh/vtHBs1XajAfwtcl0rXLoAbzwYY3ZRf3Synh9wsesYG9j5PH /lKN+WDDgR8XvZfsqcZ8sKHsQbXz67nVmA820Coam75MrMZ8sGFn4M1Yu/VU vzUbTt9cNCSXXI35YINfVrfvOw6uVwnCv3fY/anVqwbzwYbIrWPd/StqMB9s 2P9wVO/EHC7mgw1bA5S/P/7ExXywgTeyICnCsRbzwQZGwOykWn4t5oMNXU90 Xlq/x/2cxwbXoObz7P3o0cqGHez5BgGWDZgPNrjU+qVf0uNhPthwaFcX67Zk I+aDDVtk5vyY+68R88GB0LPHXs+TaMZ8cKB4allpoFwL5oMD828NHH9o0Ir5 4ECmefywzLQ2zAcH6n9NCFlG2jEfHNjgNlFaz7ED8yH8vH9frvu5dGI+OHBc u+9jkEUX5oMDVxJOKsp/7cJ8cCDsU2YNczb1/QoOiBe6Pd/zvRvzwQH96blJ A3P4mA8OqHFDmr9/5mM+OPCl97S52qwezAcHJE+/4YRH4vfV7DjwKfj11Yes XswHBxrXn7Y864ffx1jHgbOnVf1aa6nv+3GAl7il8RoH1ytXDiiPOeDCdcT1 aicHcp10sibuw+8/7OOAxjjGC/ZxAeaDA7sdaHkXDggwHxxIKHsgCFhPfX+D A1l3btbJTcfvD57lgF+v48Oevl7MBwcSJ4+pvS9cj0X54MC8m21d0i69mA8O DBc3d2bK4fVuMAekrExctcN6MB8cOLHuVOIzc7zefcSBR9NkH1rFU/sHB8I3 Pbt7fTG1f3BgzFvfnz4ZeL37ngPudjZHOYvQ4wMHSrm582l/ujAfHHC5RMZ5 Lu3CfHDgQmON86eQTswHB35zp5ltutmB+eBAiXb0PquAdswHBwojXqZ6u7Vh PoTzZWvqovbtrZgPDsTWx4wrcWzBfHDAeEup2Yc5zZgPDmgfeV85kdWE+RDO V9kTlxSVGjEfwnpH08Uk6DzMBwdOhTVNChjbgPngQM81j7nhUI/54ICnz7mR R5vrMB9jwOHF3kGrwFryf/KRJ04= "]]}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0.01, 0.}, Method->{}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.603994238819023*^9, 3.6039942994965687`*^9}, { 3.6039943819686737`*^9, 3.6039947468071947`*^9}, {3.6039947801009502`*^9, 3.6039948504444323`*^9}, {3.60405677197409*^9, 3.6040569644439173`*^9}, { 3.604065813265573*^9, 3.604065830801384*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", " ", "\[Delta]t"}], ",", RowBox[{"v", "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nn"}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.603994236042367*^9, 3.603994291878793*^9}, { 3.603994450497312*^9, 3.603994488568273*^9}, {3.603994765573957*^9, 3.603994773752555*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.24720000000000014`, 0.24, 0.6], LineBox[CompressedData[" 1:eJw1m2dYE1sXhUNICAmEVHpLQUXFiiKCcrbYFQvYu2JviGJB7CL2glgRrICo IIIo6rWAogJeBClKEelFEKT39uV+syd/fDDJzJyzZq93nT0nctdtLmuZDAbj tzqD8d+/+6QRk4u8jpG699/nbz78mVB/XyYb7ma6W95+S16a+fxxfnmLcDzt pb/e/4vvB5MW4WtF2JsocsP/v9dDsmHsTMuGlgz8fARZxbEbO2lsJql2/u9/ ooiD+bzjgrc/8fvPyMyv70tDPHMJLyvIfSzvBfHnCl5tFpfi8V4RnzjeSu3M YtJ/6YUPzZZvSEsdFO07V4rHf0eEfv7jBqwvIsGqb2cFxZEXnnMev5xUhOd7 T5I550wEyW+I9f9f8SRVHLVkCj8+ljr/RyIda7DnVGVibHyzpeoMn8i1frYf 6vt/iaWuJ4H8Ln/VNXF1bKzL/0+YSJbeDXy2f8EjvL4kMpDz20E2No0Uef13 wC9Eb6nTxVXOGXi9yWRNn2zr/cefk+3/XZ77VzLixp3vnQu/4fWnkEwDZbHx 9hzC+P/rG/kee2nUr8cFOJ5vZLTs2uYfBb/IlP+fII3Mi4AFPnXFOL40kmim 96o0opz8d7alF9LJhFOfD+W9rcTxZpApE/oVuPpVkP8PJyuDJOa+hmv7y3H+ M4lYdsMjd0AlMf/vcsy+k/0lb89nZpQTaj6+E7Pf59/xL1aRdf9//SDL9j9w 6TuyGvXKIuuWeKX+W1xF/juaNCKLNDbFZ++Y/IdQ85VNhrZ7ZSc11ZGW/w7X nE2+WfkdaUprwPnLIbOaw8r5c9vI/6dnbC5JPLz8xi+NNpzPXDIhnz8nMqaJ /P/yfH4SfQdW9vvgVpzfPOKzYfXf6m2t5Gvyf6888sFyqu/tnHac719E3Ocq JxV6yP+HK80nfWc8tns0hgHU/OeT1AMvw9+FqcH/D7e0gAw8vsmmnxsTKD0K yfCh5+f8HcMGajyFpNsit3rIcjZQ+hSScVvVZAO2sYEaXyHZWHPdS2nJBUqv IrL/XaVXci4PqPEWkSdsUj/zkBZQ+hWR8Ol360I+84AafzGxH7JEyLivBZSe xSSD4aTu7aYN1OGKyaFb0pyvhkKg9C0hKVOmfvPcLwRqfkrIFJsnfQOZIqDk KSFGj2+q/1wjBmq+Sknw9ak79OZIgNK/lAhiTTfbP5EANX+lJN3AY/m24VKg 7ocyEuG6hn1SqgvUfJaRz36ByhIrXaDujzISs/ed7llXXaDmt5wc3TrvWMBA KVD3SzmZURxzqHadBOe7nCwKWSRx1RQDdf9UEI+duwyrNEQ4/xXk2faRMa0u OkDdTxWkcxXrXGoiD/X4TbIW/HtjdjcL9fhNrlvXcvWLGajHb5IS4XlP/qMN 77ffpHGBTxX0rcX6qSSO/aeOeWObifdfJXEp0opPdfoYS+lRSXI805+IZpTH UnpUkfDR8xyqXzTGUnpUEbeKNFulfm8spUcVMd2YlGJ/gh1H6fGHeG4Ytz7v BS+O0uMPyb54ROTmwI+j9PhDJk3L3mG0XBBH6VFNcoZETuA6CuMoParJ0SG7 zx8bL4qj9KgmGy1DIx1kojhKjxpyfGOsVYeuJI7So4ZcFu//m+QtjqP0qCGb 5kpd25+L4yg9/pKWBV3y5p/iOEqPv8TDIfRqLUjiKD3+Er9+60ZdsJLEUXrU Enev19fKP4njKD1qyYHjT+LGfBXHUXrUkgfP5tw+5yeOo/SoI2LtmwnHK0U4 njrivHfv3REvRHGUPnWk4Wfa19zD9PjqyHk7n88l9jpxlF51ZHnxbauJN7Rx vHXEw2KWbUMUL47Sr44Ux1wSDL+jieOvJ1PMygRFoRpxlJ71xJU7d5FjXxbO Rz25MmxtRv/lzDhK33pS+Im5d8QHBs5PPbnldvk372oP6l1PHibv+vNyQW8s NV8NZHHN2fk5czpQ/wbCmLBfceJ7cyw1fw1kzcnUih2P6fuhgfSb9mWodmNj LDWfDeTegtU3WF+r8f5oIKOsujz+2VeFPGkkA9eOeTUopiiWul8aSfyxM68X Di+Mpea7kVSd+MLaHVMcS90/jSR//N6U7O2FsdT8N5LaC0u6DL8Xx1L3UyPZ qDVRYuvyPZbSo4n8+cfj7pY132MpPZqITf/9TloOX5FfTaSjO/xFmopnlB5N 5POO4tlegW9jKT2ayMzi4EBz4/exlB5NJK6AeWa/R0YspUcTWSPdIy42+BRL 6dFMQhbbzjjc+TGW0qOZMIOaEo//To6l9GgmG7ztbzwJSI2l9GgmQ+HalTcb XiNvm8mdMotJFqcfoB7NxP7OrvEpaz6gX7eQP6z0u3FvfiIfWkjp4vWb+jDK kEctxF1nxT+N6nXIvxZS16ZduZpVj3xtIa7Dti4etLABedJCGgpvwvhFjciv VjI9cv4Uk/etyMtWkvvPhYCpizsJpUcrOVbtcT9iAgP9tZX0vK3hO8jV0J9a Sb3O7Wa9Dwz0W9X7SVH+cadofrSRbPWKS3OXMtB/24jFp53soO1M9K82Uv1h 8/SeGhb6cRuZ+osR7DxEA/2sjezrq1OjHcpFf24joGZ0+KMbB3nTRqbkFLQe COOiX7eTOvukx7v78JA/7eTN/nddL1dy0b/bidboc4/K72kjj9qJZW/c1Jxw Afp5O8mssdpqyxQjn9qJd7Zx/ye/xejvHWR1j5l4t5UEedVBXng0zpkaLEG/ 7yBVFp4PGnQkyK8OctlzVtvPWbT/d5CbobsvnXKRIM86SNzINx7Hm2kedBLT Jdrm8YMlyLdOErTnve+Ip2LkQyf57j5ZKbknQj06yYLL2/oXrBSiHp0kYsq0 nqJd2qhHJ9n6fC4/s4nmRxe5+jsijf+bhXp0EdPKknMH9jFQjy7CcDdkrDJq w3zURT5kz20pm/MH85jq/ZFr9O0MMjFvdJHZm9rTbfbGY310ESItv9dX+R3r o5ukfnxkUKX3B+ujmzS/a1q2k9uO9dFNDuv43Onc3Yv10U2CFs4/vmqvOvpV N5nQu/oidxUrjtKjm+Q9TZcmP2Ojv/eQT3VTzrlbaMZRevQQzqxPdbfEPPT7 HpKR/3f+y5HacZQePWTLBeOdO/fx0f97yLBQ3Q0iR504So8eEu9sdm+tRIA8 6CWLp+0TVxAh8q2X+M0/1au2RYh86CXjU+zDvcaKkHe9ZJHZ+FyrPCHyopcM 82SsmLFRiPzrJeGdWl82LRIiPxiQEDBOsLZEgONhgFOK8fv4vjRPGFAydMqP cn8Rjo8BbzMKVLIJkS8MKJz08K73VCGOlwETW8YL1p3hI28YsJRTkD3egx6/ 6v2uFyNqtmghfxhwlTlrqAfRwvlggIH/7pR9FZrIIwZEe+3Iq9Lk4fwwoG1X XbrnCS7ySfV5zp1X2601cb7U4AWJfSC9x0ZeqQE3yPLdm8ssnD81mDT2+McI CzbySw1CZxr7W+sxcT7VYF9CINPnDQN5pga/ZyvSe272IA/U4BDnof2qbx14 v6jBtduRjRsN25EPasD/qGzwPtaG/qoGVusTbGzOtSEv1OAV8/MD7cgW9Fs1 8Lq1UCTt14z8YMLZoEs3Dhq1IA+ZEPk5rF/cnFbkCRNqXyxu5PVpRz4ywTvb MZZn1Yl8YYLG4P6HcwWdyEsmPNzIuPbHuwt5w4SYvxGLH8zqQX4ywbXcUGmW 3YP8YULQne71one9yFMmcJtmOanN6UUeMSH++N3sfjZqqAcThtS1dvkfYKAe TFjwJN2kz2w11EMdGl/yv/09w0A91OH9At7ApDQG6qEOo3mScwUCJuqhDlvM BslvOKmjHupwf+XUERYMddRDHUzVjJb5X2Xh/a4O5XVvPgZPZGPeUAd5ap+Y 5CcsvP/VoXK94JGh6m9KD3WYZz/rqXaTBtaDOsxx9tvmtlkT61sdJmvELL2y XhPrgwV7b79e0VbBwfpgQeqJFexXPC7WBwseTo+Lc7lK1z8LjjWeb/KZy8P6 YEH1+Kn/9G3XxvpgQfqF3O7q69pYHyw4+cHuw7K1dH2wYLpd+N9H8XysDxbY ujzbaMLSwfpgwZrEbZO39PCxPliwoZYxIoorQD1YUHyP9Cp1hKgHC0IsmTyG lRD1YMPc137hBx8KUQ82qDX38a2Opv2FDUuUp0VflglRDzbsDxZXrffjox5s WHGRn9vtoo16qI5nx3Vf0k3nbTawj4zdalXKRT3YMCIfxr3+yUE92LD26lTf TJ4G6sEGWzYpPt+Pg3qwYWhhs6PVG9pv2dB8Y9ys3Ah11EMD+ut9OfQ6Qw31 0IAzl1bKXVLbsT40QJ6/QGOheRPWhwakv/o69s+MaqwPDYgO2ZZW9DQX60MD LEuKmwq845E3GvDoct9RlzrzMc9owLoN5MWjuVXIHw2wOvPgqL8TnW80IDM5 z15zTgfySAM+2ZcvuODGQL5qAEhS9szIZGFe0IDRbkzfsGwO8pYDIaGZA7x8 6PzAAf3WpH9jS3nIXw5Y3zR9/2AHnSc4ULs6f/6XDm3kMQc+8htKhy0VYL7g wIZ7BjeaEun1KAdW3h1lEX5FiHmDAz5878QHDiLkNQeWyq2CJ7OFmD84kP40 68XDczrIbw4sjM+LWfRQG/MIBxK8ZgcwYrSR55rQNCfKr/6+NuYTTXBZkv/X djUf+a4JT94v8XI10cK8ognzjCtPDrzGRd5rwv3oaV3TuzUwv2hC9aBvkoNn NTCPaYLfkFN6z701MM9owp65mquSQ1iYzzThn1jLrvNidcw3miCddcCq4b4a 5jVN2Oiizk1W+TClh+p61/bRj49koB6aYMMOmp12i4F6cEFe4+I4+WIP9mP+ u05r7QN63ZhPuXAoXnfR4NEduJ7lwlCZMDWgtAPzKhfcE1Y4BZzsxP4HF57w yu/7n+3E/gkXymzHlxq7t+H6V/V99sIVM0+2Yf+GCwf01l9ykzZh/4cLwRsn sRTBDdg/4kL2oqbTFUcasP/EhZth/ZV+qbXYv+JB8gqTYX+SKjC/8yD9Rf2R v4/p/h0PDuyOsBo9rgTzPA+y1dIC1nkWYr+IB9EP+ZyzdzMw3/PgqUbG7agp 2VgfPKjra+BlM7cY64MH65evNRs2LRvrgwfcn97V4Z+zsD54cLg2oU/2gJ9Y H6q/uSUNO+sycT3AA8GsbRF992djv4AHOXHBW4bu/Y7rAy1gqAub0gNXox5a sGya9/LJ2+JRDy1o8xulqfY8AfXQgr27Hp3+nJCBemiBpc3u/BtNMaiHFhyd I/U/tToB9VB9f1mh/pYtl5Hnqs8nrLD76PIeea4FO/evYFk/fYY814IpIe/6 L4+8iTzXgpkHjL9rjnmHPNcC51hF0KjMWOS5Nsyavw0WXUpDnmuDyeTqx3Yr q9CvVO/PCBvSY1aBfqUNZdHToh5ol6FfaUOLU5bOjf0V6FfakHCje8Ti9+XI c23Yn1orrTCoQJ5rw6q5Ux52pJchz7XBSXA84YVTJfJcG4Z+WtBxqLgeea4N /Zrz2k4daML1sjYIv92PM+7ThnlaGx4N6j5jcrMT1898mDD3zNWa8A7M13z4 PP1VddHETlxP82FOSKDzlyvtmLf5sDM49fWFc524vubDjkD1GYcO9mL+5sNw r5C4pZlqyA8+HLitBt436P4BH6azFf+y7ZjIDz5k+s/e/cKB5rnKZ/5xfmRk ykJ+8OGD1tG/dqM1kB98eGXzeu2ETA3khw64DvYt/XRHE/mhA8+aRl+f7K6F PNcBG3nxVoOD2shzHWjbU9+5cKsO8lwHrm4yDFtXw0ee68D3d3fshl7TQZ7r QJzfwzVt5wTIcx2YbVta8CZAiDzXAYdbGvofg4TIcx14oDPbtW2yEHmuA1/D QoYcWU3zXAfmfYoq/Sqgea46XklhRcwsmucC2PNefvbjSAHyXAAJM7xvbOLQ PBfA3Y1WF+NG0TwXwLzAoUVHBtLrBwF8/aq/MH6PAHkugG8zty/PGcFHPQQQ Um2nXtGtiXoIwO+lxaiFoXS+EsBZC66bYkgv1ocAXnf3GdVf2IL1oTq/tsf6 oM7fWB8CYDjCyiPXHmF9CGGtnscB+2n5WO9CMOSO2lP1vAb9SwjTh22tFRxv wfoXQp4yiLNa3I1+JoSjdsLXmouZyEshPIisHTX7Cwd5I4TgdM/zFRyan0KY O9t6t+s0beSPEFwGezk5rOMjT4VwoEVr55pyHeSREJ69q+jXovocNT9COMkK lYbrCJFPQtj03OPIwhc0b4XwJsCf2fVZhLwSQlZL6J+R30TIXyFoFQkqbFR/ U/eDED4N578vOEPzWAg7OrPmeugLkWdCKJ1uaUr26CCfhbD+zbwcvZ3ayDch rJg+TnpvNL3eFsL9M3prD3jzkHdCED31b6xR+T41/0JIqb8wLPKKJvJPCG8r TZNGJ2kgz0UQNLj82Bk7NvJQBEfvBiuc17OR7yLwXndgeMEvdcwrIrB1eLNt /AYm8l4Ez5c9cH+tWtdQeoigbcL4bysqGKiHCMy+GFyZs7gL/VoE7jv7lq/s 7kD+iCAlNuH3NibNUxGULxqgN8SlGXkkgulTY3z2uTSin4sg+lR56M+wBuST CNjx9x49Ydeiv4vg+pkJB3/H0P0pEdzZZsd+Gl+L/BXBOtv4M3Xq1cgvESxk RFW+ulKGPBbB58Cw8ddXFCLPRFCkeWJepHMR8lkEIyL/JJ5amY58E0Fkz+5i ccUH5LUIJukZPvl85gHyTnW+zecnFnBeI79FUGd+odzlyCXknwiEeXPDOs7F Y32IAfatSjKy/o7+K4Y5m+9FPXb4jjwRQ678jk6+QRn6sRj+PAnO6fpegXwR Q5LvP6Y7J1ehP4th2SLfFXoRDcgbMaxxD4/obG5EvxbDusLMEvvHdcgfMXjd P50XMqoO/VsMbIv20PQVDcgjMeiNKI4IsqxDPxdDp+4Xm9RZTcgn1fVpzDth PLIZ189iWJ31dKPzoGbklRicRk8c5OzdgvxVjbcnwubQ0XbklxhqVnwVFOzp Rh6L4Ybb4MgVrgz0TzEcHJBsuC+B7teIIXVSvpjdzUI/FcOgJfoWq43YyAcx MKzmzPN9x0F/FUO5MjHEg3CRF2KYN3Lw29xbdP9bDM80YxMWjNVCfkigyjt/ jOU3LfRfCQyze/V5TYQW8kQCVsOmdEbf0UI/lkD2g+h58hQe8kUCU9Jy3Pe8 56E/S+DwkDfnhWI+8kYClQsTp7FU6z1KDwnUpHn98V1L91skMM55S9esFbR/ S6Btd+qxEFu6/yKBa62nTv3REqKfS+DE8PtGoQoB8kkCtew98VUc2t8lqvVs WFH3Xh7ySgIHd4YMz99C+70Elh/9sODeBzbySwIv94W6pz+ieSyBM52+TkVD aD0kYN7rfHtFCN3/UH2/smL7+M3NmDcksObRNH6Jzh/kgwQSFCbXblsUYv6Q wO/i6GcBqU+QFxIoURvlt2Lpd6wPCeQUE1na5HrMu1LIDEl/TsZ1ID+kcNQd EtcMU0O/kkLzXIuy5YFs9Csp9JMr6gfkaaJfSWHptpHHRUn0eksKHzKWRnvf p58HSiHv3m1Trj/9PFEKwweM3RtdT69fpBC4P4O3KpKH/JDCItsPuXvjeMgP KRwfa528x4KH/JDCmXHfCl7kcJEfqs9/sZQMNtZCfkhB72FAY9lsLvJDCn0G 3mu0Y2oiP6RQ/fPvEFYY3Z+WwruRAtni4RrIDylM2fzAadkPNvJDCgtKA46G xrKQH1Io333u6ugiFvJDCo5+Gzdf385EfkjBcPvFt0lq9PpVCq/mjl/zMq8L /UoKX6Yec1CbSD/fk8Ka6a+rhXOaUA9dkI119Fjk2ox66MKJXy89tV0akOe6 8GxM31kF3Q3Ic13IHZzkOPB4PfJcF17Xhy7+alCP+V4XHA+JmVXP6nG9ogtB AR3HlxTUIT90weymbWrpykrkhy4c2si4NWbCb+SHLnwKvhwf0fMd+aELkYuX sjRfxqJf6cIO2eyFO2uy0a904ergiOEBv3+iX+mCS7+aQ1XybPQrXfBdL6/0 vViAfqUL60Nmz1E6FqJf6cLb+5umxB4vQ7/ShTlnIrbYzKPzty50nMnqP3la LdaHanxrl4yOrq/D+tCFO03pvu52jVgfuuAQyjnT1NOA9aELEYnvkw386P6h LpTxXUac+NqKeV0XhBnej/4M70R+6EHPcceGZ387kB968FW04nKhWQfyQw+6 MkaMyPOi+3N6UOdk98zSkol+pQeJLQMuO21gol/pQfX2Jg2XXUz0Kz2wW2pY 1b2dhX6lB7EGT1cqo1noV3pQ4rbnW9YnFvqVHrxYZXf06XoW+pUeRG3cXXAi WgP9Sg8ajqzq13GNi36lOv9Y+5C+FZroV3rgEF4Tsnol7Vd64Nn3TCg3Swv9 Sg8q7xnzXPx46Fd60N5ZuO+jJ91/0oOJz1PemT5moV/pweHAlRcGOTGRH3ow Tn/nd6l/D+qhB5wPSYWBP7pRDz1Y9/zsy+U2baiH6vzT9I8/XlGLeuiB71+9 R8P8i1APPWBUXzdOuHcE9dCHHquOklKt61gf+qA33N3KrqcY60MfcuyuDNoc UYX1oQ9fJV5WbmkNWB/68Hx47JDJqjxM6aEP630Hp7CZ3Vgf+gCCTbYW39XQ r/Rh6La/u897qqFf6cPT0kRy7jAT/UofjCx7d8gS1dGv9KHZfs1MfVsW+pU+ 7Ag+1uMSzUa/0odD1neNY1X+QemhDykhGSz7eyz0K33gLDxg92uXBvqVPny2 VL9zP4ber6EPH12/EcNvbPQrfYg5kbi0+rgG+pU+DNrgeqF+iwb6lT5kWMqP n/HQQL/Shw8j9oTcEWiiX+lD32IL3TtqHPQrfYhftMZmXoI65l3VfNt+XKNY r455Vx/e1TtWHOvHwrxrAHZpG58U3FXHvGsANnkGI974MpEfBtARPmm3o1AN +WEA1SNnL5n3hn6eaABbhNeXbQrpRD0MIODQwY4BA1pRDwOou5nwjpnRjn5l AAk+U5tuurSgXxnAgPCNc6MGtaFfqc6/1X7ezNAO9CsDsHTwMD8YT/eTDOCR O1HUDm7FvGsARWltb7pPtGLeNYDslGFX4mubMe8agBNH4nEztxHzrgH0n3Ze l6FDP08zgN7PBTYzvcox7xrAnA3Om37ezMO8awBDb/guqrr9C/OuAXRmuSbM NMnHvGsAv0fVenAD8zHvGsCE2ojNZw58w7xrAOuqffd9efcP8kM1X1W/2Mzn 9PM6AzjK7qNc8zsJ68MQnMYtfZVzpBD9yhDc4p8lTq4rR78yBI2h/R4NedeA edcQ5pWltnjvaMG8awi32hg1ixPaMO8agt/Y+f86KDox7xpCbWn26oXibsy7 hpAHTlYFA9TQrwzBzJs9Y9YzNfQrQzDamTTiwEg2+pUh/GOlM/OEkPYrQ5Cm 7LFVjtJEvzKEtTbh7bJAuh9uCBuy9EeHvdFCvzKE1khZXvsP2q8MoTp6dLmf Kd3vV43XzGXExSod9CtDiFk1kz9Mi+4XGIJJPM+XpRShXxmCJqv232u36f0q qutr3GR8X0uMedcQQv5qBH0KFWHeNYQ7acJLI2VizLuG4PW5cNvXDyLMu4aw ehM36XGxCPOuEdw/pCwcP1yEedcIgtMO2+3fJMS8awR+0oBfPwfrID+MYHfY AsWkWXzkhxF8id21Y/pBLvLDCF5+3fPymg8b+WEEQx7UFH2I7UU9jMCHv+8t S9KK6w8juChPSz/a+BvXH0bwbXWOXVjiG1x/GMGdb0eydjt+xfowAkFb8CrN /n+wPozgss2lmMR7LVgfRrDl/PfWh1FdWB9G0OY1Jr3Yg4V+ZQR8d93W0EgO +pURXFKGXE0r5aFfGQEzo2jMqg189CsjSP4w81+OOd0/NwKZVcCu0DQh+pUR GNxNuEmGCdGvjKDDNzp/VL4Q/coIrHOOndfuEaFfGcHjygGnVl4WoV8ZwUed +xU7j4rQr4zhxP1yr/ldIvQrY6iOLMpf/IXeH2AMS45OTef9FKFfGcOAPc+8 SvaI0K+Mob45q+LtMnr/mjGsD95T33eVAPOuMXjui9n65CQf+WEMNgv82ZUs ul9iDIM5w9fO+8hFfhjDFZfB3yIfaiI/jKGuc/6uxp0c5IcxTH635vCxDLqf bww5SUsGbN1H88MYak9aBZRNoPlhDOyg4y3KfuqohzGMXaAlfbybiXoYwxcD k4zs60zUwxjCtQfP/mHfi35lDDVqIT+X13WhXxmD/8Y7y4LUu9CvjME1JjR+ 9qV29CvVfJyr2rvYuh39yhiGvRWM1Nvain5lDAXGA9XL2c2Yd42hn5vHpEOv mjHvmoCP/x3PzdtakOcmYBgWFZUoaEWem4D8ZoDLlFN0/8oEzhecXFH6kd4/ aQIH769ac9+9GflhAk2/XG2On29AfpgAs98Q122DapAfJtCtXm296VkN8sME JsWvP2SytQT5YQJq0YrlizeUIz9MoMJx/kfmuGKsDxNw1X9xc0f/QqwPE5CV 7Tq4f14J1ocJFJcHOoacq8D6MIGFlvZupSMqkR8mUBjs0kfpWon8MIFR22MO J0XR/RITmOYGztMvF6MeJnDyecCGOp0C1MMEvIy2DE18nod6mMCxYenjC/7+ Qj1MINu66vznMvr5gGp+vWuOfDv0AfUwgcSbq70+DklGPUzgx8UJHmuFX1AP U9CdHbivZn066mEK902Hfz3q9hP1MIWPntvnLVqcjXqYQn7n4bE3Gbmohynw ikpnBK79gXqYQnKuMq3xaznqYQq73PP3ZbmWoh6m8JhVLp56ln5+YgrDyMD+ C2NKUQ9T6Ad8C13tYtTDFApy9w6N6/6NephCWLdpiv3qStTDFMYVZ21f7FeB epjCn3M+zQ/E9PMWU4h0DrE0YhajHqYwQbDqgOBMBephCs2ZVu93kr+oh+r9 7uv23clVqIcplIrjHYK+1aMeppDw6Hh+Xd8W1MMUJt3skAU1NaEepjBj1J8d FuFNqIcpJFW6TnI4UY96mEJ1SXDmhQGNqIcpnPo5qdPzBL0+NwNGY/0azR2t qIcZqEGOskPYhnqYgbRKeizetQ31MINpaQEC4zstqIcZWNXFvlqYTO8PM4PD 846lnuN0oh5mEBl9NjrHtRP1MAOjU88V4/fQ/UQz2DZ143z7R/R+MjMgvYfe vjHrQj3MIK9duiE/hd6vbAZm0hO/7s7qRj3MwHHMmZTFVWroV2aQO2l9wQ9g ol+Zgfr02VrGfZnoV2YQJvf4faIP7Vdm0Dbbur5nCe1XZtBvSF70fi79vNIM hu6vXP+4io38UP39OivNM4eN/DCDn78M+8knaiA/zGCquQFnwg0N5IcZXIya q2atz0V+mMFub3HUuXNc5IcZLNfiPfiSSj+vNYe7peaZES46yA9zOC/01qsx FiI/zKGyYXO63TaaH+YwZv6lL/zD9P5lc5g8OerW6QAR8sMcynTytX+4iZEf 5qr8u6ridZQE+WEORgu4rCtDJMgPc5hlfrWuXxa9n8wcrqvb1hj0FSM/zEFy x5q7eLUI+WEOeW7R59kTRcgPczC77Td12Eq6324OYRNv910Xr4N6mMPc4CEf dydpoR7mMDjZOdxNqol6mEPTgUkz506h+yXmsNVhR/XQ5bQe5sCbPHyKj7Ib 68McZm4Zvo7T2IT1YQ7r0u4auk8owfowh8js8Z4Tlz3H+jCHiKAHEEuKcD1o Du4OFu/nXmjAvGsOKdOP7E9+1IV5VwbFJbm+q0XqVF5ky2DlvdeDgsI5mLdk wJtd17PnEu4PEcjAbvK5xxsX0flLBot8PcN9VouoPGkog3/0LNJPvxNjHpPB 4L4nQ0ZIJFS+VMogbmVByLmhEsxnMugdltVhwpRQeXOwDNhXNm1dtUaCeU0G 4Oc3cP5+3K9sK4NL75jJa0aKMb/JYEkqX3o2R0jlUUcZJA5kVoafE2E/QAaz qivf1Yfh8y0nGdg8ztedIaf7mTJIarpqPT9DQOXVBTLYfl/ZdeEyvd9EBmNe 9tsX9gr3f62SQWnUoJTVzlqYx2Xwd9jssuU9PCrPblaNb/FW9bHJPMznquMF TBJtbMT9YrtkcOzb8BntU+i8LoNUh4FRjffYVN49rBpPSZ/Nm8tRDx8ZHHFh x2peZlB6nFbN98n+l5jO3dgPksG7JxolZ526qfXJZRmwQm3t5LxO7A/J4NHI tH/vjMPnpbdU473QJz0mpA37RTI46DhYY2NjG7V+eSAD7vQ2+fDGJuwfyeD9 rbjCGO96aj0TLQMNjrBmlGMD9pNk0PR9tNlKF+znv5XBZ7e5uQ8v/8X+kur6 Hw6oOXKsmMrXCTI4PY57Kf/pZ+xvyMApv2SivVsUlbfTZFD476gsHt8D+x2q +89w34z+Oz9Q/pkng48hJkFlvj/wfpeB5fhaNZ/z+ZSflqvm92ei8nZgCfJB BuNTLobPuVBB+WudDPJcrwSHmFciL2Qg+fRDcEML+dchg8lLZj6s3k7vZ5DD 54dus0YzGykesuXw69D9abZPaJ7IQRGeVPR9RhvFR4EctlhXG0w360S+yMG7 9J2Wc2wXxUtDOSQcuGk5z7EXeSMHixn2s04n4e8XlHL4+VPvwJNQ+nmWHJj2 /K3XndG/B8vh8I4xO97OZaP/yeHt7d0xuj7Yv7CVgzxzX+X9bjb6oRxcfZ9+ yrXSpPzdUQ59j3b6D/qqif4oh8YxFf6lch7l905ySFkUa77Ln+4vy0G873PI tp3Y71ggB+cO309xgXS/WQ7zR2qwlUe1KB6sUl2f24hfp6R89FM5bA7KWnf0 sQ7Fh81ySHRfezT9LL1fSA4P/lkzURgmpHixSw7WWQ4vipfQzzflcL136dnQ aQKKH4dVx+Of2rJrlQ76rxyWnv2SUTCfT/HktByGt/k+rHOjfz8jh909go2Z SZoUXy7LwacwSPEtne4PyeHLnbxM+x7sz9+SQxjX/2lkK90vkoOBvKBryxh1 So8Hqve3nx0+YD7NUznYpl38cem8OqVHtEr/52/JHQ3690Wq+6OA22ehTTuV F97K4UT8l5rnI1vQ3+WQuWeL592ljVR+SJDD0Q2jt82bWYl+LwfZ0u91T7YV UXkiTQ6RBw6uv6H/L/q/HLwEo8qT96ZT69M8OeiYVG//NbgS+4NymD0h/XdW Hj4vK5fD5UfnPO9ntiIf5GD8uvXvwyc9VD+6Tg6tP/n3yvKZuB6XQ0DyjD3N N1mUX3XIwZdZl/FKSe9nUMCb8g+Fg824yA8FLMs8bdq+mIf8UEBJQ9rpoN/Y LxUooNS5pnGDOf28SgGXsi03/6rE/XqGCig731X6dj4P+aGAzOOHzzkM0UR+ KGDJ+euHFoo1kR8KEFvZtafnayA/FOC6O/6ezjMO8kMBlv6vK6v3c5AfCrBR 9+mOGctBfijgH7V1MW02HOSHAt7P9TXICaT35yrAM8azzKlIHfmhAOsx5eL4 6+rIDwV02Jnu7DigjvxQwAw9o19jZ9P7RxWq+eX5CN2YyA8FnORx9mw8rYb8 UMDYXHJEPkYN+aGAyc+mKKPe0vtTFLDFLPaYLRP3w+xSQO3O5QG8phZ8XqCA GwmaRwLiGymeH1bAisBDs4ZU1+PzAwXk7/h+NbJPDdXPOq0A/Ql9y8ZBJfJD AQX6Tx7lO9cgPxRgduH20d1BpcgPBUgOflhUU12M/FDplWv9cMrGfOSHAq6+ mtKnPy8N+aEAA2tT64n9Y5EfCviiJa6QX02n8nO0Ai4nt9z76FaG6wEFWOSH OXCElVgfCkic0WdiHx69PlCA470aT4aIrg8FxHne9r35pgHrQwHq4S8dzzxs xfpQwJNl93rk+3qwPhTQ/3K/nuZ9vcgPBfzSjMwb78TE/KoALdf1D5tPMym/ KlfAOsf77bMELMyzCjgRm8p6LNKg/KpOAU97RrjPeKiB+VYBE3xcByxfpUn5 VYcCQusCRfoHuJh3lSAx+f6q5iaX8iu2EnZVCLfP1dHC/KtUrcedWmck8yi/ Eihh6v6Z0hsHeJiHlXCkTvhu8Vv8/aChEkZU/Xnlf4SH+VgJ4/0NTDVu85Af SmgKMC4/rMrjVH0o4fk+tUehNlzkhxKczB+NtNnBRX4oYfkQ1ou+JlzkhxIe D0z5YpJI719RQuCPWpuJ+TQ/lJB6q1QmbOAgP5SQc+dO9GkB9sedlPDee+mF ieXqyA8lVDee7tucq4b8UAKrdMntNNKO6yElTBk4euooA/x9ziolTBv9/vGV uBJcHynB6/m3htRn6RTPNysh+6nxNmt+CtaHEngZo/ZPsS7A+lBC3nF7/cEF f7E+lHB2YPD2WdJWrA8lGAQXmU582oH1oYRBg/NMpsrpfKUan9/J4XWaatgv Vc3PA7uinBIm5VeXVZ/fbnnjcgu931sJ/1wtetbnGIfyq1tKCLGOejhiBQf7 qUqwCb+xvlwT/eqBEkZFfSwNdOBhf1UJnmkLH3wagf3JaCWc2Xvl8hMLTey3 KuGXxo5170/i/u63Sii6MLQwYAsX+69KqP+26rHTUy7lVwlKcBaYZmxO0cJ+ rBISjgUmjNTE/eBpSsidHSgX/uJhf1YJplqZPgFCLcqv8pTQyx8WuDFSC/u1 SnhyYpRLiwDzbrkSdsIR5781HOzfKiGJcf32kcscKu/WKWHZQQtX4WIN5IcS GLZ/+xhKNJAfSii9br8uDFjIDws4p/OsdW+Tetz/AEM7S40= "]]}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0.01, 0.}, Method->{}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.603994238819023*^9, 3.6039942994965687`*^9}, { 3.6039943819686737`*^9, 3.603994805108428*^9}, 3.604056854094108*^9, 3.604056969861659*^9, 3.6040658406165943`*^9}] }, Open ]] }, WindowSize->{740, 867}, WindowMargins->{{4, Automatic}, {Automatic, 4}}, FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \ 2010)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 154, 3, 26, "Text"], Cell[714, 25, 204, 5, 27, "Input"], Cell[CellGroupData[{ Cell[943, 34, 98, 1, 27, "Input"], Cell[1044, 37, 114, 1, 27, "Output"] }, Open ]], Cell[1173, 41, 267, 8, 27, "Input"], Cell[CellGroupData[{ Cell[1465, 53, 131, 2, 27, "Input"], Cell[1599, 57, 10416, 319, 241, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12052, 381, 299, 8, 27, "Input"], Cell[12354, 391, 72, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12463, 397, 346, 9, 27, "Input"], Cell[12812, 408, 161, 2, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13010, 415, 352, 10, 27, "Input"], Cell[13365, 427, 94, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13496, 433, 399, 10, 27, "Input"], Cell[13898, 445, 211, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14146, 453, 350, 10, 27, "Input"], Cell[14499, 465, 94, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14630, 471, 368, 10, 27, "Input"], Cell[15001, 483, 187, 2, 27, "Output"] }, Open ]], Cell[15203, 488, 385, 11, 27, "Input"], Cell[CellGroupData[{ Cell[15613, 503, 102, 1, 27, "Input"], Cell[15718, 506, 157, 3, 27, "Output"] }, Open ]], Cell[15890, 512, 321, 9, 27, "Input"], Cell[CellGroupData[{ Cell[16236, 525, 129, 2, 27, "Input"], Cell[16368, 529, 26130, 800, 241, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42535, 1334, 524, 16, 27, "Input"], Cell[43062, 1352, 91, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43190, 1358, 252, 7, 27, "Input"], Cell[43445, 1367, 113, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43595, 1373, 572, 17, 27, "Input"], Cell[44170, 1392, 116, 2, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44323, 1399, 303, 9, 27, "Input"], Cell[44629, 1410, 160, 2, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44826, 1417, 631, 18, 27, "Input"], Cell[45460, 1437, 184, 4, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45681, 1446, 120, 2, 27, "Input"], Cell[45804, 1450, 88, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45929, 1456, 356, 9, 27, "Input"], Cell[46288, 1467, 184, 2, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46509, 1474, 882, 25, 27, "Input"], Cell[47394, 1501, 203, 5, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47634, 1511, 122, 2, 27, "Input"], Cell[47759, 1515, 187, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47983, 1523, 415, 11, 27, "Input"], Cell[48401, 1536, 137, 2, 27, "Output"] }, Open ]], Cell[48553, 1541, 616, 15, 27, "Input"], Cell[49172, 1558, 323, 10, 27, "Input"], Cell[CellGroupData[{ Cell[49520, 1572, 181, 3, 27, "Input"], Cell[49704, 1577, 169, 3, 27, "Output"] }, Open ]], Cell[49888, 1583, 166, 4, 26, "Text"], Cell[50057, 1589, 684, 14, 73, "Input"], Cell[50744, 1605, 823, 20, 43, "Input"], Cell[CellGroupData[{ Cell[51592, 1629, 473, 12, 27, "Input"], Cell[52068, 1643, 15955, 265, 237, "Output"] }, Open ]], Cell[68038, 1911, 198, 4, 27, "Input"], Cell[68239, 1917, 1456, 36, 58, "Input"], Cell[69698, 1955, 457, 14, 27, "Input"], Cell[70158, 1971, 486, 13, 27, "Input"], Cell[CellGroupData[{ Cell[70669, 1988, 130, 2, 27, "Input"], Cell[70802, 1992, 15552, 260, 242, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86391, 2257, 407, 12, 27, "Input"], Cell[86801, 2271, 13254, 224, 247, "Output"] }, Open ]], Cell[100070, 2498, 250, 8, 27, "Input"], Cell[CellGroupData[{ Cell[100345, 2510, 367, 11, 33, "Input"], Cell[100715, 2523, 9972, 169, 237, "Output"] }, Open ]], Cell[110702, 2695, 635, 17, 58, "Input"], Cell[111340, 2714, 867, 17, 73, "Input"], Cell[112210, 2733, 1151, 31, 43, "Input"], Cell[CellGroupData[{ Cell[113386, 2768, 487, 13, 27, "Input"], Cell[113876, 2783, 15079, 252, 235, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128992, 3040, 536, 14, 27, "Input"], Cell[129531, 3056, 15448, 258, 234, "Output"] }, Open ]] } ] *) (* End of internal cache information *)