(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 147580, 3339] NotebookOptionsPosition[ 140606, 3094] NotebookOutlinePosition[ 140945, 3109] CellTagsIndexPosition[ 140902, 3106] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Regiones intrinsecas creibles", "Title", CellChangeTimes->{{3.418390434606001*^9, 3.4183904481054125`*^9}}], Cell["Caso Exponencial", "Subtitle", CellChangeTimes->{{3.4183904620053997`*^9, 3.418390467293003*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"ExponentialDistribution", "[", "\[Theta]", "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.418387581974118*^9, 3.418387653697251*^9}}], Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], " ", "\[Theta]"}]], " ", "\[Theta]"}]], "Output", CellChangeTimes->{{3.418387638084801*^9, 3.418387655079238*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"model", "[", RowBox[{"x_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], " ", "\[Theta]"}]], " ", "\[Theta]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4183876578532267`*^9, 3.4183876847018332`*^9}, { 3.4183887802271214`*^9, 3.418388818381985*^9}, {3.4183890241078043`*^9, 3.4183890290449038`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"k", "[", RowBox[{"\[Theta]1_", ",", "\[Theta]2_"}], "]"}], ":=", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"model", "[", RowBox[{"x", ",", "\[Theta]2"}], "]"}], RowBox[{"Log", "[", FractionBox[ RowBox[{"model", "[", RowBox[{"x", ",", "\[Theta]2"}], "]"}], RowBox[{"model", "[", RowBox[{"x", ",", "\[Theta]1"}], "]"}]], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Theta]1_", ",", "\[Theta]2_"}], "]"}], ":=", RowBox[{"Min", "[", RowBox[{ RowBox[{"k", "[", RowBox[{"\[Theta]2", ",", "\[Theta]1"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"\[Theta]1", ",", "\[Theta]2"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Timing", "[", RowBox[{"\[Delta]", "[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4183877075847373`*^9, 3.418387918027339*^9}, 3.4183880098393583`*^9, 3.418388849977417*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.01999999999998754`", ",", "0.193147180560128`"}], "}"}]], "Output", CellChangeTimes->{ 3.4183879109371433`*^9, 3.418388036607849*^9, {3.418388822758278*^9, 3.418388851048958*^9}, 3.418389032740217*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[Theta]\[Theta]", "=", "2"}], ";", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Theta]0", ",", "\[Theta]\[Theta]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.4183879220731564`*^9, 3.418387964684428*^9}, { 3.4183880498769293`*^9, 3.4183880774966445`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1mc4Ff4bBvBzkCRFQuXXsBNlJWXk/qaFKBWhwiEjq4xCKqMUSSgVicy2 EIpIGRlZ2Ztkj7L3Ov/zf/Vcnxf3fV3Pq+cRNLt8yoKJQqEIUSmU/88pQ60n dXH5ONEUKzN1ch5qdZd3lPH/QFS/8XTV9BxoHbx8cp4/MBpoVjr9YQ43h7KY wrp+IMJ+KuS55RwyqGytFxIKIOsi+XJn6yykpKIDF/YX4d+1PVtXN8xgk2/l hIRpCawU9teGMk1DifaimKmiBEkudb/6iqZwVtEuslmpFJ8PuMYjcArhQyuP +vOU4XqMlk/vlinw6yB8oKgctMmaADX1SQRy6AvohlZiNpnH+FP+OLbOZbPn lFei2Srp/fmn40jsEZmSZKlCSojFr/fW46j4Nv6T2bEKv18k88hyj2OtY6Bz qmY1JG0sxOxsxhBUV1DIvVyDrf0P7qTIj0Igb+dHD/laLKhwi+7iGkVyYsjz QZta8N0jqXsbR1Dpa+qQ11AL3/MP/oZqjoBLaWmT08c6PF0UOu6gOIzgF/L2 VeYN+FzwIHBR+S8E7j/X3/+8AavXVNFu0IeQ7Mqk9raqATVWckdf5Q+hUqeS z1u1EZoW37T/ag+Bi9kuR2ZjE9SLcr3HrAfx0CpufXBpM248uPw8IrsfGQIu 32nLzRhMpHg0P+hHR5O6raxsC1LtU4vuGfdDSms4r/ppCyp+2VAUqP0okVF0 4jVrBccRd7Znx/rAMl9RGT7bhj3ZV7YfmuiBZGrMDVvJdkg7VFZ3/+zBKbsr 4irG7Ui3TTnSEd2DmPZNXm357WCrCKvuPNED1XxzaYGg3+jwqi+Y/tgNlSNL hdWPOtCZwFxif6cLlbG9m5UTOjAnl9G3z7QLF+i/nOIKOqDhn6h3fH8X/DNi t16Z7cC6r8bxutOdaJJQd+E1/oOjnB1O6badcOEMETXY0YmzV2g/RS78QVKj uE/b9y5Uq/4OvUJvh+ZVxYOFjV1Yadkd11DUjt51mkxJY10wvOjiFRXcjq3H bL28hLsR94gjz1C4HQHZH24I+3aD5yvvLyPtNlyMlbtqfbwHxvFnTJpTWiBg p2I51doL03/876ayG/GVTVu0faoXRr8fc2k+bIT+S6PuwrV9+Bd5sWTAvBGB 7R5mYaQPf9r9ktnWNGJRJ9dYOb4Pqc8EmVJpDWjcc0Tf27Yfp0LPNuzhrcdD +gn1NfMDCH3eVCqdVIPEIBtvbt5BREaMHy/wrUHJtjuZG2QGsbF12DuKVgMm krlTyHIQt5wd8retr4GTl8i6vdWDiLK3ekmuV0OXOtdEezcEgcHxuGD9Kmxk jrVNO/sPdQmH/iq4V0A+5Gv8l6v/sKxSVxqvVAEd4Ya2b8H/oCfgZuixUI57 Bzl0fhb+g1LdjsuOHuWYv+0i3y43jK/ryT21e2VoZTm2tHL1CK5EFWwa+VgC HWb3og9Go3BxHe8v0CyCj6rZYw2bUcS2qy5n8xch45qmaY/LKBbOa4VRhwoh MMq/sDl4FAaUzAfWAYUYac2SCsgbhVOsxebk6gIEfl56YrN9DOGhrNPpdj9Q bu1tvn1sDN2JTMzdNbmgvLSWzV8ag7gYy2nPhFzId5xcNmYfh8fmMS/DO7mI OCMU9lR4HCuMVTf+3JsLu4P5pSvOjCPwjnDx/agccGxZsbs7cxx5R004Eya/ QbPSjxrjMwHTRU56wqdMqK5wWX3s0QSCo/s8mR0yIad0gXcqagL6uW0/6yUy 8V/8/h0aWROQm7NlGYv5gr+u4zpjYxP4qLDF8c+TDARuOx99wGQSTA33bwo+ /oxbuhrvhuwmERO+Yfe03me43FNIe+I+CVv1Q+77N36GyQRX8cCTSRRKDp8T fPEJMkUFIw/LJlFMu8QslZSG6kvS6FScQtE5Mf2WnhQUxm3WCDg6hf4V0hsf J6Ygs3HVaQW9KTQG91h9dk1BnFq3pb/DFAqkxML2rE7BFb5ngXKvp1B82f0T 596P4PvG1H6LZxrdor8zbx9MguGa+hvCI9NI7C6Vve/5Fqc6z2Q9WGT42nD2 Ksm30ExvmJtZNYPGWf0EhYY3UDJtcikTmcHkn4U7YbJvwP+p1eHq2Rkkn5s/ ZTn8Cq3nu8yLCmaQqCXR5ekbj1pZ8zjZmhn4fThi57c/HmWsPX+ed8xAiOeP +u7JOGQn9xo7LMwgImNKxP5CHF6wDBpskp3F+z+FBUYasTBJGNWyjZgFTe39 uWdy0TDwdrxf93YWHe/8PPu7o6BzZvwn0mfxRoSuXG4RBUKZPMJTPYsA3wzH rbYvIKA7Q7JXzmGcn8X86+0IdC4syXM6z0HIQjO8aigMFsdWb0nVmMclLQ/t bUGPcGt9332FM/PQchH7HrzvEaJb8ua/mM2jtvjLuYHOh2i1dW/MuT6Px3LP 32kpPYRuwEBIxYd5bGyRGvLtC8Kh8iL2wXUL+GF5O8pV8D7MnsRds9+6ADvr pI+uwf7wMvLsH5VYgDnVpkqS6o+v/xQKZw4uQMXObPptnx/k177yXuGyAC5c cKsuvguREz6zAs0LiO/u1fZqvgW1DTSr+N4FsKknpK8yvwXab+X67RML0DR5 wCM94o2IyxOpUhyLeHPLtO8ouzd4gs0uq6guIporZA/Paw/IGai2f9dchICl jdPTmpvQEeDXPqi/iGRHMqPIfBMByVUSmg6MPO1tZZPtdbBUkV792EWo9EWd ljFzg9CzzXotiYvw+ph11OG1K4jpbL5x1iImBaoqs0ZccGMsKcaidhGUty6r be9dxeS6bUbOrEugGL4r6OhwQteppZpAmyV07PpZU61shzyedk8BtyUIxBul bllri+j6b5Ipd5ZA28pDk+2zxvmzXrfropcgvrxqf/gHK9SbMu/e3MBwk9ur Av8LSBPubv/Qzei/9u70u0dmeNTzwx/jS+hf//qPWIwpTljf7TRbs4ztSkqB UXEmKHZY9ejtwWWM673f4MpkiFdyg/uVTy5jhYhvqrO7Pu5MlgyUGS/D0GHy mBpdD2puAQdGry1j7PjhL9ulT0NAyf6ft+8yet2TGrY3n8Tygvaz9U+WUSp+ 607ZQx1keXKOKSQzPEQJ/qCthfADoxHF2ct4ZSeposWmCTfmKvWzpcvIyzHn aGk5CnnfR9E3e5fxITmX5lh+ENwazlqck8tofj2uoz10AGPsurPRVDoaZ/pU 8gQJEgN5dX5spsNYRmy3WrIiAnSmF/Qk6Eh0cE/JSVKADXfD6769dCSPm5sX /t4N9dr009cO0zFxPExoB5HF9qdhdPbTdOwS271wM2YXWA2uvY+g0fG0Ntft q9AOdG86qy91iY7YjJn0TGZR5LUoMedcp4PL2WSr2CFBREf+l3TyHh0x76/O GhT9Bw+TxbNdT+ko1H2yYTafF0aCbaxX4+moLJD9c/cmF1S6slNYU+jIPMLd Uti7EvwvXxiHfaeDtl1Jo0mDgllLT3aJcjoMcw5MsB2ZVK0Xp33OaqajP1au TPRHj2raIDHT7qej2M4m4syTKtWQBMG1v6cY+V0XHHe/f6uquJdqlEGlEAq/ p3X4G1dV8bAxOW82CqGVCv84wZanumHuD5smJ4U0jge8UV7fpsp6trqdm49C ZndwjmmpDKtOZealtWymEIPht+XqxXOq3f+l+scLU0hQX3uQchQzam/E0ewl KCRSyK1iKXs18ttCFBRkKeT3Yr0eexQ3UlR9OOh7KaRtlxZH6NqNiI260lmk SiHmmofkPHZuxUOKRUbwYQqJiawJKL8uBC9TvUBDLQopS+mNsNgrhst5h82F TlPIidPGvK7qEjAWVlAaMqSQDoN9lU6JUlDp4eu9YUUhabE36t2U5fHtu7xu tT2FGIUVJwtmK4CEn8rbfoVCbEIiSLOZIg6dCHxR7UUhQmLhouGbgMIdCRzi vhSy14wisIn3ANRZStxvPqCQOulLZUuJatD6skJfPJyx3w2peuENR1ARIlxw M5pC7B0+c0v3HIXOpQO7a15RiLKaSILlDw3oCt/k9EilkMJyv4+jn7Rh9GCy qKaMQhaP32DXkD2NDituhR01FOInKegdfE4XZmoy8R5NFOIQqi7BGqgHyxlb rx29FMJlKZihsdoAl0y79nnSKURHfmVvnYURRpWpr2tXUAmX65kbcpXGcOLb xivBQSUbw2oNdgnS4FJ6dqx2I5UYWHFsHnlhCo891W8l5Kjkok9Yz+5ic1C4 Rjd47aMSt5FMh6HnFrg1uOZunSqViGcWrj7rbIm7URpmXseoJExnX8nhXRcR uCqXv96ckV+zvSuzzBZRbUn3vUOpZGfQgS/vmh0hlFE+Vx9JJTl3XL5O0pwQ /2jIamc8lfjx2rCP9DvhzdHthxqSqWQ2543O4JIzkj++WNxZQiVp/WQ6TdkF OXce2DcuUkm/ZoarM8t1HJKZmlrDzEQqI6eX7GOuo7j5vMfBVUxEvNTqTidu oFJ6Z1AiLxN502DaJ+N9k/G/lyT7SDGRTpNIxxB2L1Cl2CZlaExE4OUT5pM5 jHtQf8v9Xj4TsRszv9z33g+FXoNM338yEb8PJlVsXPegKXnq/uQvJpKhZO1R dOUeTnkJRpi0MhGahZbYJuIPM4mc7D1TTETmb9fYZNt93PJYonSKMROWC/vm yvYEIV/MzVfJn5kED72r5xcPgfhxM6mZYIYN8lz3XgxBwFWtutRQZuLwPGl/ zJsQ6P4QEN71kpnw6VvqnpV4jG7Tn9+25TCTd3ysL/Rkn4A1kn+aZZqZVFYk hbBrh0Jzfbb5L1MWopL+M8os4zmq6FQ1c8UVRKZu14Oj8bEI3T+4Mq2UlWz0 nn/H/DwBF1MdL5V6spGR3uhQEbU0ZOywtxqQZCdv3HVZ0twzkctSZLsrazXh skrJdUIO6jbkcCnarSGTzd+3ZD7OR2zQhlwbCidh/9TOvDazENnbVq6SO8dF itN15ApESzDg+nVeVm4dYbfmHyzyLIcjk+D4j/l1hKfvdeQX7UrQxeu+KNdy E46ma3dl5qow4L3P93DUerLqsVz5r9s1WN9SF3nKkodIdnJ59FHroFaZ53NQ lZeIxYToRIbXo2LG2LFoJR9Z9ehMjjp3I0yyNKWkO/lIVsTD0/OxTZD2dJAP z9hAVE186SmiLTh/9TAJ89pInNmGZ639WhG40mazu+Em8trqW3ggUzu2lO1f HhbmJ8el3PSvGv3GUPCxHVaD/IQv6si/Ub0OfB97I5Kf+x85qfBX8xDbH4z4 fBJN8d9MTnCGfCt4/weiaetmfMy3kN/5rv3jhp1I591SMSi9lcwMbSrJn+vE PVez4dMzWwndR6GwJaQLtKsz7dG/thGDFAPdnfu6UVIdaZOjJUA6Dn34MFLR jb6MPm2hTAHyONdNNOhyD4SjKuruiAoSkScWPv7svQjc+qAj5Z4gWeX+hSM3 rBcLts41J6cFiU5z+m1nmT6EnpLVyDwnRJYu2rD+zOrDKcWACyLfhUi6iZC1 plo/uIbXWlIkhcmHtsSMsap+LCpbD70MEiae7gVj/XoDGNIfMsheFCYeD8e+ ZHcOwFjb7kIJw+d4DthXMFyp9s++geFYWz+B3wyn7Rq5NcZwQujyXUrXADyY JxJEl4SJRa/f6YMMcyfNUwIZDjXnHSpmeB8r+1vjZWHyiXctT233AN4t+Kfa Mpwlb1DYzfCWsdXf3BjevCPcbYphptY1NY8YXnq4oo2vZwBlH9ctFTK82sL9 pSHDJkabTkrThYk3X6v8b4arT4WfU2H4WGBc7wjDh9T/s9RguLnFLIzSOwDx 3VuuX2DYabZ4QZDhcTbBl6EMH9q3O8+cYfPlmKR4hvlNvjhfZbhhQijzI8N/ z+0Vvcvw13aRX6UMpzXw+71mWKr2ZVMjw+lnvBQzGI75Kdbdw3DL+7bBYoZ5 vr8eHmd4W4NcRBPDd9PE5+gMBzV6ag8y/D9JUdXy "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0.01, 10}, {0., 1.6450092220162167`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.4183880324318447`*^9, 3.41838808399599*^9, 3.4183889281598377`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"GammaDistribution", "[", RowBox[{"\[Alpha]", ",", RowBox[{"1", "/", "\[Beta]"}]}], "]"}], ",", "\[Theta]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", ">", "0"}], ",", RowBox[{"\[Beta]", ">", "0"}], ",", RowBox[{"\[Theta]", ">", "0"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4183881899483423`*^9, 3.4183882449273977`*^9}, { 3.4183882934671946`*^9, 3.41838832058619*^9}}], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Beta]"}], " ", "\[Theta]"}]], " ", SuperscriptBox["\[Beta]", "\[Alpha]"], " ", SuperscriptBox["\[Theta]", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], RowBox[{"Gamma", "[", "\[Alpha]", "]"}]]], "Output", CellChangeTimes->{3.418388247761473*^9, 3.418388323209963*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ga", "[", RowBox[{"\[Theta]_", ",", "\[Alpha]_", ",", "\[Beta]_"}], "]"}], ":=", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Beta]"}], " ", "\[Theta]"}]], " ", SuperscriptBox["\[Beta]", "\[Alpha]"], " ", SuperscriptBox["\[Theta]", RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], RowBox[{"Gamma", "[", "\[Alpha]", "]"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"post", "[", RowBox[{"\[Theta]_", ",", "n_", ",", "t_"}], "]"}], ":=", RowBox[{"ga", "[", RowBox[{"\[Theta]", ",", "n", ",", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nn", "=", "12"}], ";", " ", RowBox[{"tt", "=", "4.88"}], ";"}], "\[IndentingNewLine]", RowBox[{"fig1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"post", "[", RowBox[{"\[Theta]", ",", "nn", ",", "tt"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4183882600190988`*^9, 3.4183882775643277`*^9}, { 3.4183883425677977`*^9, 3.4183884699910235`*^9}, {3.418388658942723*^9, 3.4183886749857917`*^9}, {3.4183890413025293`*^9, 3.4183890443769503`*^9}}],\ Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3c8198Xx62Uvff6DBFJhVLpc8+VLV+VIgmFZJVRkSKJsmUkSZkRIVIq K9l7Zc/wsaVkFFL8Pr+/3o/n4z7O45zzOuee97lEaxcjWwY6OroGRjq6/38T fKyZ918KRb/eZ9946dy4r7qTYHCW4AC7P1q48MmeObJVW+ZPINyCc6fl7j3q Y1RLKA+X2kYIhgP8prN96u/UrlDcr65KPYWEJG3dJZL10Xddo2krGs/BU8Hg nf0p36N/nAyGFu2SoObGajRDwtOjyfRDwataKXAkKR48t/KParZE7fzdmwrf hIatjwjWHZ2J06lYcUiDDVYzq9mrg0fDLv0zX95Ihxtd5faegT+O7tv3bm0x PAMcmQKrLnHRUTo37GN+Sr2CttoC5i5BbopHneS+hfwsCLa1820elaSIPupq +q6RA7XHeB4lPlCglFmG2M13v4bm/i37fx6HKdbymPGbXR60HeBlMeHQpjBs 3G5b8X4Dr9MqgjYfGVG6Ro0lVrTy4f41D5WxQEvKy9p9Tsucb8F3jfXt5wf2 FM8ctqKl3rfAJaSdel3/OkU/eop5KfkdcHhKpL+qvUMR96w4s+hQAJ3KHs7K MQGUHxbPU38qvQeRLfV5nb5ISrnGzZ8LG+9BuSTi4UhFHCVazggtVH+AV+GP G4J/plAuce0J+xH+Ebz35BeQXr2iHPy1feC7SSGUEy66SxLfUrYPUmW/SxXB q2aWumOniyh95Z/c52eK4HaIji71bgUl62Vc1bf8YjC5TE4Y+1lH8Q67zvPt dgk4DjYKvz/UTjG8ZnhhTqMUBpXjWKQauikEU7nXs+yf4O38x6+NDMOUJQrT xkz3Jzguz2ppKTdOqSaP6M4klsGvOHHXKslZSixLcey03WdQKrybPWz6k1Jw U//adeFyeF506Y0x8Rfl+ZyqyLJ3Ofxnq2DgTtqgPLDYWX5trBzEa/XLr5+k R87tvHZLWhWgEsR/fvvqNnRWg47zWlYF9I4vHVwvYEP4w/eCRc5KaM88MHTO igfJyQ2ed7teCXda+Yck8gUQ7/N6hsXeStAtMD+l8VMUbXB+eOV6tAp2kpXs PqUT0MS9Fyd/JldBIVeEFPKSRi0rkasu26ohZ7BrwkNQDn2w80lccKiG2g8j TW+eKqKkASctl9Zq4LywZ7tYrBIK+u/c/A+lGpgSOS/pfucgcivXfuT8pAaM tGR3e4qrITNllSM/NmjnxWdnhXQx0nhJHLt6sRbsbBO5K701kIIIV9D36lqw OqLD2oF0kEDYX8WrcnXQuEy+fvTFcbS5Ods9H14HWw2KafUXT6Jpt17vK0t1 wHP+jZ+U2WnUPlFNnjepB99n9s5Xm01Q4dm3jU4l9XCoMkRGtd4MpTQmuX2T agD2LTq5yQsX0Erce/mRsAZ4/UzNSCXKGmnbNY13rDeAF6e756sZW/T0wNjz 2suNUBV6xzey1gHNM64aF3c2Qj/z9DsmijOCDnauXNwEN7Z2LvC/cUPRyaT6 lNdNcOfZvVt7XtxAk86H7j0WbQYxgZfUPUye6BDF8EhwYDNcrqpaqx31QqFs l5a9V5qhzuueFqu0L/rafyvH1aoFXvrcTLRI90P7MyNsL7W2gO9eJu77dx6g +x7pkqZqrVDgeYwn+EMQ6tUs6T2e2QoHznPlO58PQ/J8XyJBoA0SDjiIE45G ojtjU3rKfm1w7+fSNG94NGrP+8sgu9AG+eWWj0plHyNeYLHkUGyH/SKX4r7z xSE1mZgjgZfaIRD9vLXT7Bm6xCElRP+sHRx0/hQlMiahhyuvlm9/aYeV1LNv 9oSnoMJBlfaV7V/gVwQ7+9OuF2is8nOOM/oCQlYvFr5bvESsWfrBMze+wLDm wu57e18hlahuW+vsL1DEdM1U9mQOsvS8eGxo7At8tcyJO1qXhwIvfJM0Ee6A N78Nz5m05qM32h4bbYYdcJajo+TO/Ds0sIe+T+9BB8QKO5a/PPYBMQqEFVSV dMBtmfmkwu5CpPBXMIqy1AHJi8lKK1klyGQ85erHXZ2QZfakda2uDN1tVNDf f6ETUp9VZF4SqUCZ+R9lsh93gugaZM+sVaKOuGOMO5s7QUOF3uDXthq0cbdl JJGhC168Fof9mnVI2s60VPhwFxy9uP373Y8NyNBwPC7apQu4lm5eZrrUjG4e cHZnf9kFFeeKnaUN21Aj431FOr5uaFry0hVa7UArc5xst/W6IVVylCTb24Uk Op5OL9/thkXpU4WU0R6kXSRdffVDN/hK0m8ZCPQj1+S85On5btBgfnny2q1B FB945I4VuQcsJt9T1ri+oirnmnOD53rALbLugILzKBKkDPK21fZAXoTY/cro cYSlLy/o/uuBDXuNeoLxJHJgW2yqVO4Fz8lmPcsj0yh6ySvzqGMvXO8R/K9U cxaV9jM/+JDcC8/VWrOeenxDU+VRVvt6e4GP3WX8esd3xJUpjrI4+uCcf7vY jT0/kbWH0mrC7T5wqq/sMt9cQmEWnzqF8vtg7iOF71/4CnqvqfsmaroPLJuO TLce/o2+7u4MY5PsB4063X5PxjW0g8/S4cGZflDimmksmF9HSn9mtLZC+sGS bUf0ydUNdH7sOulWRT9YlDnFKu7cRLl5wYNXFAdArV+k1ugWPczxzoXpWw2A S/KdFbkCBpD10Ee7YgYg7+q+E6v0TJB8lC1lfH0A2vc1yx4bYIahJCejCoVB 0Dj5oOHT5R0gwtjMmHRhEKz6h00UWFkhuiHsslnNIGSqxKnox3NAq8J3oUNr g/BoYM8BnWAuYIv8r0Fg9xDsfszpM9vADfdNOBW+RA7B6Xb2Q2fo+KC8yHk4 t2oI9o1V+jQp8cM/8baHYb+HILNxUTvPXQA8xiMWdcyHYSpPPT1lrzC81f6Z ujNiGBzDi4lKmSKw8OrkGcbKYQiQdJdXVhEDe1eej2WyX2Ep4siV9mBJSOt0 s39u9hUWgnQWI+UJMHawQ+R2+FfIGsg1zBAjgtm/aO8Dy18h79r4u1UiGWIv Lu/hkxkB7cKIJdlD0tBZdXrkp+kIqNzzvvD2/E4wCOE/llM2Atl6B87MNctC 0Pcby8GLI2D9lzkiW0wOrDMdO5R5RyH3SaDXj1vykMTW5M+jNQpbjm+8jtvt AUTxMve1HIXmXt2YuFVFGHLefWDh5ijwnP2vcspgHwh3hE41Z42CQL48izqb EnxgPPpZrXoU6kTtJuTXleDMgfknWcOjcOb+8BfzRWWIijPQC+IeA97Pa/lM DAdhX+Nf4qrcGLBDN9dBMVVo3cj5Y6sxBrnL761l8CFgvcCRo+ExBsbj4QGd uUfAf2cr59bgGChtmhjZCWAgnfWZvvprDFxt79pm92AoD1IsH+Kkwn/xl1e8 k9Th77eHbsXqVIiTT0YfdDUgXgL05c5TQe714dkncppw6MQCKe4GFTKr7Zb+ 8GqB+9sTXe4ZVPh560W+Np0O8E9s5UyUU+HYHbqz75h04a3AmwenB6gg3MNN ecWrBz88uVX3c4zDlwm1HG2D42AHX57OXxsH3ZhH7/ilTgJd6u/iwdBx4Njn kjFfdxLimMSHGtPGoatT0OiGxymob7gs+apnHHL83h+VmzSCiwphELcwDtU3 Bg+/SD8Naw/zLwbumIANvWD7y1fOwK4zf1Ntj0zAy6AnAfYcJlD+gVh95vQE nBhs41mfNgFTEZ1JjSsTUHtOgdmj4SwEfY2SJSVOgMhoEt9IyjmYsZfN+Uo/ CSIsVSIHXluAb5NBS4voJDz6lkU3X2UJworXfpQqT0Kz6+DwEvUC6C6X7ntm OwlhdjzdJhJW8OqO0fuzDZNANd51gzfbBo6N3uzRpk7CxOY/YyOzSzBwLGH1 wMYkpIr7MN7ltAXWHTOH+fdMwXWd3+nMAZfBMfpOWXvkFHQ5xa68L3AAhl+p I59fTQGJy1pc/aEjxJ+tp8urnII96fNskVedoFGcTyN8ZQrEZsxGZilXYXdG Zp2e6TT8voQZTGNcoZqldeaQ2zS4TciKfxJxA/Mryyy7QqbBx5CdzjPVDcL2 IwPm0mm4LWZut7vsGsyXdLZXSs1A/PEjXSoEd7gvub6Yf2gGksULA5cr3EH8 niRfyqkZaJ/8Z+dv5wEG2g7Gd/1nYL/s9/MmZTfhdftmv9r0DLzt8eYLe34b tJWlN+TpZuGs5VXPWEsv+PpYT1xUZBYMyMSqZWlv4DwfY7mmPws78p18Zsvu gPOk3HhB7izEc5FsmmJ8YdSyf0dFwyys0LPsn+a5B6f7ghRbJmbB4l+Kydeo e3CoafrWpOgc5Hc8uBQS7weM+encgoFz0JwmeJOj/T54yBsfJKXOQdBSUYaq 7QOYecFkrvhpDgy1pu0f/3sArbE2GdrLc7C8cmqn8KFAiPMmopsXvsGdUy3U a93BwPq73cb/9jeY8Dn/xe1BCNxx8Q2OePwN1gn4yb9DoWBtPdKV0fQNMsor T8xkhYGCboJTn+o83HqSdelYSQRU8Ik8Pcz9Hd5XbrUNHn8EKuH1ZVq7v0O6 4c+/A5WP4CWz58Qp7e9QMaobv6YWA2HrPXsdvb/D5c8Td9JUHoPJSExt/Mx3 aMnbk2uEn0C9qeb8S8Yf0BnQfqK//gmodSzzvJP8AU2mrpqZp+OAUGNk0XTm B+xka3dWdn0Kc1ncKxvlP+Bkh51HSM0zMJcuF9kx9AMSJD4njVx8Dm0JLsC/ +gNWLAsi0zafQ0Fka4jCngVoUbFLiVRPhLseYUSLpwtwYlHxSNG1ZGAl3pcd OfQTLu9wPBt/5gXUH43a66P1EyxZSz0OvnkBAaaJqhJGP0H+XvZ2Oo40YIgs 1Dnv9BPo09ceEhvT4M/mvF1vwk9I2NcuWGf0Er4NGWe2MSxCxkhVcGPiK8ha s37jzLUI/74FnpvgyAJ7ftdCDvFFCO0ZccE+WTBxPKT++IFFiPJLC66yzoah 4rKZOrtFyNt+5hC3Gu2dFicrV968CAsW79nKYt5ASIHK/gv9i+Dqym8R1fMG dNvVD29OLkJEAvE3m0g+VG831zu6tQgea7eoq0n5UOoR6VC4fwkGFE5U571/ C6/PrL96E7sEnV1ZQoV07+Ehd5N8ysVleLGrZmqYvxiKVCXeGzovw7nre6SW rxXDhKUL/PVaBmw4ENTwpRjUXvOdOftkGcqIoR8+RpXAjJ75HY7WZfgVFasX JPoJNPy/t91SW4EEfQX1HNlyWPvF5W4k+Avuf3ByikmqAuvBM58Zm3+DnO6v QiOPJmB9NnbVrf83LNbL641/bIK3Zs7iI1O/QThKRvjlehMwDgTeKqZfhXGP OaeyO82Q1les7Ka6Cu+mqSckglpgqpuQ+TV1FVz7ZVRfpbWBY/t8ZNGtNfDk /Mua+ecLuNXct3aR/QMnm2Y1mc16QHJCm/m38h9ImODtsrjdA00MLFne+A9c PAUW2fE9sBOHLwaf+wM1nCXXZAZ7oL/4sW9a6B9giT1xPOJ8L6i/eZnYv/AH mrZEMyrO9QHPs/oBjcINCGxwve6kOwBlRSE+jdUb8G86LjD+8gA49RmQTn3Z gLm3E3Nv7g9AjcAXB8u5Dahgjp2NKh+AW5H9a57if6ElVWNFWHUQxh7MCeb6 /oWaj/Kfv0oOQb4r+2lhvX9wQ0ggNbhnGJrj+W69NvkHrnn5ArzLtL2jWjTp 2KV/sL+jcMmZ6yuIish9u3L3H1gtUZXTdL7C/Qot/4r3/4D7ETdx8f1XMOG9 +86RtAn7fXbzlQSPgOvRgP6tvZtg+OO51bkXIxByOXwrhrIJrfptX2pKR+Bz 8bPjn0034e2Iaf72hRHYZVM4zhexCdQC+BW9axT+vFvk+7SxCTOE2aOVD0aB /+vaYSOWLVgVvdr2I3IUFHfQXZwW3AKVdw5LW89GwcacM4dHaQvSP0xfbMun 7RlMuzUv22/Bku8pHamhUUg0vnSDq3sLrms9yrLfPQaFd53i06hboFsTkNim Mgadr66VH/65BQ359/4TQWPAdBczv91Gh0MyWnzOnByDQ52GRkMEOnyxSb7a 7voYpHg5ze07S4elDhsV/nw3BvvKWdYCLeiww0Rf4J/iMShnytw2YkOH/+3L 6ZitGIPR8AlCuCsd7rhq/sazbQwkky3OzgbT4cC1534ms7Q9ZWLjEo6kw9vL KqVCF8aAIhd/7UksHa7KPr2YRttLzN/2hGu9oMNqszFCQfRUiK8+UZ1SSoeZ ygq62ISpIM/y48taJR1m1p9xd5CgQtF/YSMnGuiw7Go1OYdEhb6e+j//uunw 88y0+FEFKgjOqu83W6DDKvcvVG3DVHi5ZxTl/6LD2lrzMaGaVDhwzcdgx186 HP4r2uG3LhXObBTbfdhBj9+MkQhep6gQzaGSyEuixxceH1zFVlQgGXVkO+yi x4HPdfkWLlEhP9a1qFyRHm8ep9f2s6dCu9TrLmc1euyp8pDe1IUKFy8dp9ao 02PlspCY+GtUWMicXRDXpcdNaneMKt2pwKkkw9Z0hh73/dS2r/CiQqJHtTDp PD0uPPu6Jc6HCntKrGVuWdFjnRyZW8b3qGCgmaQu60yPm9WZKn0CqDAURDnh c4MeH9XQdf0WRAWnlkHz7tv02BlbBFBCqRBiIuzpH0iPs2v2cEdHUEH02YcH A+H0+M51hriYKCq8GjnzaH8MPead7cvzfkSFQ9LLyUHx9Lg8v8ha/zEV6u2j ckeS6fHpau7Sf7FUMH29t/RgBj0mluXUxcZRYXqxpSH8NT3eIVEWJRBPBWYv 1km1Ypp9wfSj6udUiP2cuRRdTo+nscbUSgIVdjLp0M3V0vTReLqbLYkKBbqT HOot9Pjrl1W37clU0Az3F4vrpMfbSY11szTu+kKUW+inx5ElvWpvU6hgI1h+ UHuUHi9kaAxfTKXCkpmlZsIUPc5LCS35RWO/pL+nVubpsf6xwCnXF1Q4ua/Q bfcyPR6+al/ZTmPJiutR1uv0OOSNC6twGhXmT+3Nf7pFj2MmfVu1aVxMnWtv 38aAGcfaJC1oHHT95c/t7Ay47fUI23kamzBZcwMvAy5uvPcS01j6scQ+D2EG zGbXvcVB46Wd/SdeSzJglkRtuSqav/IPMS4T0gzY8224ykUaP9Q5GSG2mwE3 6uYqT9LiNe9jyzPaz4Cvp/w+ZERjeYe61mBVBkzXsWmSQct3bd3vRzmFAZ/e zEieoOlRG4I41zQYcFGkmBwrjWPE/uzZq8+A91xrZBSm6Wmd8/6/yycZcJj6 FU3ORCrso7hdTTBhwEyhm5vztHpstiiEd5kzYLfNKp2CZ1RotpzJYbNhwHwv NZQv0eoXv/Ci+ZgDA9YS1+35S6uvve+F+VsuDNi/4quWzxMqHOQRY893Z8AR iyZPZmj90aEUfVzKjwF3BDsf9IymQnLVf04mQQw4wHUhLyGSCs5nWELDHzJg 2nWxyXlIBVYP38aNeAYs5fuh/UEIFdSLnPX63jHgr5E1J3bT+ptTX96Bq5gB 9/TTiSXQ+n9oYDJIu5wBM4e3DazR7ofnX/P6gmYG7Pff2FNnDyq8geM6UZMM +FPn5xZjRyr4tDPb1X+j6ftvZVnEjnZfrCoDthYZ8BGtJ731NlSY8Ttce3WT Ae/edg6mzalAqJXV0hdixFpfi27IGVLhh8n4pXsSjDiWmWqvrU+F0unE+4Vk RtxV82LBUJvW/yyC1TL7GDE6NUgiIypEGjBpMOox4j/rd+QHafOGrnMUl95m xPq/7kWlMlPh/mxZyu17jPjJ15laAdo8Y6FLYDgcxIgj7gpzXN+gvev2nKt+ /5gROzkO28zT5uHOwC86eW8Ycf5/kle+9o6BvlqlYeoUIyZ/FJgdezEGraeS 8y5+Z8TsLkf0dySMwWl7H26pFUas55CnIBZLm5+Pj3Q8o2fCOp/aBbYHjYHz wlvjx+JM+PSH+ZENxzF49OKFeZARE7YuDWr23jMGwsX3PmmfY8J1H/MO+Owc g+ftFyS3XWTC0ifWXzlLjMHLf2Kj964y4YHUU6YSHLT/ydkYG68gJvzdTNPg w7dRGGJ74OhcxoQfZ7il/EkfBZkblz3PyG/DcpvEM9+5RmHPkZHTSfu2YakL bvL1zKOgQme6d+7gNmx+Ych2/8YIHAvTm7qrsQ1/NmsvOdgzApZpCmeyzbfh EovD1sahIxDbtbSXIWIbbiiZCxRb+grbDtydzlvehrd17DsU+m4YJn49MWH7 xIyfT65/vMg3CPqTjnei3XZgcc+FtvdK3WA4EblbUpIV/yjue8OQ3gbNuye6 zKVZsWwAk1jZ3TY4fl3V55k8K7Z8Pl8cZdYGugxf24VVWfHbii87/Ljb4Bhh twffSVbs73flU/CdVjhgXlO+w48Vc1aH8B03bwHxrnXj5UlWfC/076T8niaI F/tva/88K07vybUXYWsCEZvkTNclVkw65fGONNsIgkvaG983WbF3qVTfg/RG 4OaOSZ4RYsOPfiXUR0g1AqOB4rdhPTY8kp53qVS4AeaqrH3rX7PhUwW7uj9I 1YFUVJ/jwwI2HPzxZJrXZi2csTQ0PlPChl0KfylYDddC2dph+dF6NvzpfIbn w2e1EL2Hp2t1nA3nNu7SvCZSC2pPPsvKirLj4TKzvAtiNRDmKN72IIAdF9CF E2pVq6BCNbroeDjt/MNAUIpoFfxm2pHGE8OOdeGCVcK/SriYtOyZkMKORSb4 NX5XVYJKVyPpfSk75kgq7tttVAnDlFseE0vsuF+2rzfhRgUo8vRIaFzgwFta uQuxqZ9hKnzK77EtB/aK7mZ4ev0zJLCuTk87ceB9uXYb7ZqfgZ1J+G2YJwfG Ur0q1OkymPt9TrsnigMbuZuOBuwrg/ShYWeHag5sYjIzXt5UCuKZk58j5Djx fm4p0V1yxdAl/VuaupcTZ/Kd/i+PrhhCU5hDVA5yYnhASrfvK4I/8bJn+o9x 4iIbFzW3oCLoC3eYIZlz4l/fE7R75grh0fXv3B8ecuLkrZXLXwo/Aiv8shpa 5sQ3gr9ZR3q+B0/1XTs+/OHEpkZ+aodOv4cpjfO5EfRc2D2h9YWA4nuo1K34 c4yLCwf4h1u5ThTAbaPwR6/kuXBovw4l+XQBfLPdWeNhxYVVL5t5lam9g+Yw 4108bVy4gOT4J25/PhyJCGqd6+bCl9I8BR7x5kNmVMmN6iEufLWAOah0+Q3c jyVW3Jzjwtlz9149//AGJNt/KywwcOMXS6kmYegN9PRX1hhLcuNN2VPw53Uu 6Hw3WyUZc+OYiRWmwFPZkMjv33nXlBsHbVLv3pbKhhW17Lyh89z4/KtE0qfv WZAcsmEXa82N5V4w2yuGZsEf2ed9LK7c2F/O4v2HhleQYz1c9DOEG7MXyY6z G2cCd98F77JybjzySJHFIDUdLm8FmopVc+OzdmRbt1vpUCrzRsWzjht/pSv1 HDiZDg7udN/3t3LjV6UUWw+6dKjkTbFIH+TGi9HnCpqs0+DGf1QU9psbB0ar zScpv4C+ykv0Zgo82IjhMu9TxhT4qT4gemcvDx5gP7i7eiIZtlecUElW4sGD JRt/CbXJcPDzEbupQzy45ZxJjXNwMsSUcLdc0+LBbGeEGk/zJsOJgtK4UEse zFVLyhY0S4TadP59nyJ58PsTxv2LO57BV+kQvdFHPBjdf65Y3hMPv15sWTM+ 4cEX7u2+QE2LB+nUucd6CTx4ZbPTi3AsHvwSyze6X/FgZfeIEQ/fp4CeXKn7 UcmDO27JpMiyx8H7oGpLwi8e3D61GBFi/hgy9ZuEA9d4MOkLv23UvscQz97R 8X2DB/Mmy9ycY3oMvpEj2iUMvNhr2e9YVG4MGMT9UTTh5sVXwhflX2yLAWrG vq3Q3bz41Rr7hF1lNHQ7qBYtKfJiPYuPK8bPoqF+N7p+TokX7zb9qffwRjS8 zjs+LXOYF9uLL/cNykaD58fLbRXavFjMsFl/OCoKOOueJ61a8eI93pe9eK5H An3wi3OWtryYs7j1k9PJSFjRz+KrsefFtffmJnYoRkJ/68fAaBdeTNoTqsbf FQFpPR0ue+7wYuRnyHSo8SEcmdqBbeJ48WEGDze11jC4vM19tLWVF2sXpp52 2RsMolINvRtfeLHcTk6ljr9B0HpIom1XNy8+briH6VFjEBy8UvPJb5CWn+sV YQW7IGDuFHh2cIYX3+V3w9lpgZCe/ME4kZ4PjycWypvtCwDTYtb/mpj4cKea zkVjxgBg77LUXNvOhw06Ph9O73kAN7ZvVzbi5MPXd68nYZ8HoOl8lptZjA+/ kDjXb/LlPkyorTVeVeHDazcfegcF+EOcsUFlvCofds0onwqz9AcDl+SiuiN8 OI3w13H4oD8UpOpmEtX5cBC7dNHFGT+4z/L0Qfd/fJgvcPUc1dAPpHsPY4od H4abQR42cvfA5prXe/Z4PnySaGZBIPnAQaWv7+US+PBwlQc1bOIOsC7hD9rJ fFh+PJ3RJeMOvHFj/uj7kg9r003NRSregb+uUYUrb/lw33SxxoFj3hDrklEy 1MSHC//OZZz2uQ0Oe1lL11v5cKD3p5ZSndtwdOFKqWAHH66xFT0XwXMbxp2V Pp3s48OyI5HFV1/egn3On8qqJ/hwQ9ry840uT2i40lmR848PiwgJ83/WvAnP FQ5WNtDx49rm9+MO/DfBdT6ucoqRH2fcWt+8NuEBglcsqwis/NhaaN0j4YEH WDvNVscI8uMfnsNq6s3u8Ndhq857Lz9++SVm9IDjDdhrt7vVwIofMz/bUH08 4QZfHaRcXl/ix2O+HBHpJW4QdoWPm9OeH+eN+GHOR24w67Zxqs2ZH6/mmSxP HnODF95N3ae8+fFFuqcpz166glC007DJE5r967HnwhvOUBtzwedjPD+++Uv9 fdo7Z7jx5LSUcCI/Zrsn/qz5ijN8ea5m1Z/Gj4fP9U/OjV6F0Ay2yfNv+XGr p1EUtF+BrdLs+Yst/JjzkouCeqMj5H5OCq9o58c7KtM1N0IdwbzykSKpix8X 9Z+6iwwdoajOy3V8gB+/Xw3/c77LAa53HF+xneHH4tU5rV1T9jA9/W3DkVEA FwVnPO4g20EbrwKb+2EB/Moh1W/7qg2gq1dnnx0VwG7Kbx5xNNlAbl1uXSUI YNV62QqXJBt46L3/Pre2AD50+nqylp4NGEwd/JdtJICHY07TSadYQ2OR+gLV SQAT9v5o4LOygiP8/i0sLgK4di+hIPiIFWQ5V2fvuyaAt/R+MJ3it4Jgso69 jyfNH+8pky/1F0E33GBM5IEAJjGeOR944CLUXDzbeTJRANu6bz/vf8QSVEri 8m+mCOC1XYQ3LKsWkCYwEJGYJoDThFneSRVYwP1Gc4P5LAEcXOih9XuvBRxT sa4J/CiAH4dNpysqmkP59qsfy9oFMBeb76FBDTMoyfV7psAoiG1zPYzoWkyA 2cBY9AmzIOY21Plv12MTODUr+5SeVRDbaG0jd1qYwDS5JbaHWxCzdX4fyPlp DHxPhaJ9JQXx4x+NlqfEjcHJPyeo67AgjpBJkL8acho+EO5uB4ogPj1HpsNm p4G+7FTAKyyInx+ZS70vfxqerP3299ERxOmfVEwvNBtB1VX1u7uMBXG8S4AC CBiBmGmPu7erIC6YcbvUVXwSLv/KXJm6Loi7T+vInYo6CfnRXtdP3RTElqtJ lfvsT4JOC8FNxkcQ3zxavcovdBKuH3O60h4qiFML78y8XTKEJgU6G+kMQVx/ dC1xf6IBeNHLn2weFsRCiSu8v6/rwpQmW5/MmCC2uBL0LU1VF04GzV+4NyGI 6bq2RqkbOiDNledy8Jsg7qsvFtoeoAPN4ioRyWuCmFOI9V9LsjZIHkKtN/iE 8LCQvLPugiYEeUmZtAkK4b0dxANnSzRhqYzuq5yoEB4XGRemBmpCnVbV968E IfzronuLHUkTXE/rcugpCuGDE+bh/BYaUOlsZCChJ4S76tIYdsyog8Jb5a6b BkL4pNn8tnMl6hD7i9+844QQDvocFSwQoQ5O3r1OgSZCGIn6qbaoqgN/iHno oo0Q/vya5ZX4QwyX0y831vgI4bM2tp+H4hGwDt3WdS4QwtLmdcE5xCNw8OYr joiPQnh6t82eXROHwYq3ryOvWAhvDxYr3ptxGAp1D1gslgth9mKvlmHFw3D5 /YLbjRYhHHW5T/Sx5iGoeHjp2e0pIZz445TwtaCDMC/36OKzWSHcyPjtKen0 QRCuqdhZOi+EU0LkeP+TPAjOG5Jv/i0J4W/W74vYPhwAcfv+at8tIbzxfpnM 902Fts8Z/ggQFsZF96X0nByVIW3I+12GmDB+tKvx7LGjytB2M9uzXlIYz4tq JvhzKoNM7g5G1p3COLFOm6xeoASdolVC4fuFsehTjsmHTEqguKKq/khfGIfK vs/O/7gPJl8SY5K8hXF1X9yerGoFmL8/ts7oK4xZ2T7YfLmlAEvWKRfs/YVx 4E01m/d7FYBOirh7f4gwfsEFcTkJu0H0CaGy8okw1mKaLJDxk4eTgVI/J98K Y5+ajrctTrvgrO2Isf4HYXwjZ9R8efcusNRIKsktEsYRcVHbSuZlwWlLMvBm uTD+tHhpp7yrLATclJRkaRXG435X5Cx8ZKDUTsJAYVYY3/m7g631gzRUaQ3n R87T/E2iKCtfaWgkJwj9WhDG3NPfl+7qS0PviPj4p9/C+JDkwvLZUTIsnRW/ fYJJBPNSOvRO8pJhl65Y5jUpEfwwNmunzkMixOwSYSoyFsEfpbr0hUolwNxS JmPcVAS3MU3IX78mAdIxyvqc5iL4vlaIo6+cBBRs/RdpYy2C108ce5L5VBy6 evzEOV1EcGuDuzGjnxjwPZhXsQkSwV8cFv8LdROBgeL13vBQEXx3qp+koSQC qT+ZvQofimAi2VI6ZlkYlMyJFRyPRTB/3lP+vzeFwUjZ5L/CFBHM1dGv8ClQ CKLHPttylNDi47Y0HqgQADOhlh2HykSwo1Oxk3+oAJD+G8i2rhDBFfMCOW+M BeBt4crixzoRzN6S1hb9jR86IuR8rLtE8PyMEeWMBD/woEexH7+LYOaeW3oN T3ghMv5ynRVBFBNqvIQHK7jgpoffdW+yKLaFi3ke17nA0ihR6omMKCa5fVpu 3ckFCqw9N5sVRLFMa216bhgnNNzS2qV6WBRzHi25smHNAQznpIPZjURxk+35 UvN9bDCrgg/IGoviDUHhzr/zrNDObT6mbiqKr0ozNEEWKyTVPzp801IUl3B9 s8uUYYWjhxjnxhxFsWrh2plBGRZwF6Lqf/QXxS56GTkhGtvBfPnf7y8Bovjh f7eqc1i2g2abyIv5YFGsZTpqfr6dGXgDT20QI0XxhDnzhOkFZsj9XZ4d9lwU m/2e+pzvvw1mupPYrd+L4p8VWa/qJhjBLMailX1aFD8b/Mh9m44exN+xijnN ieKQniMnNDvoYOTLR7uG76I4V1FfNziNDi5x8dIHrIjiF/sEPH306cA5pFZ5 i14MO1IMiqZVt5Cf796ni+Ji+EZf7ixL5l+kmTQ0eYIghl8WHbvWf+4v2l4W rJRLFsPp9yUjb7H/RWEb402O8mL4vzk+EfKNDRTrEbc5riqG3TPu2o4Z/EGv rtBf6jGiMZ3jxHHSGroSmvtGxUQMD5ccYFQaXUWKWef/RZ8TwzUGo2oNiavo 7fT72BMXxXDSdrcaRslVVGrt2FB/VQxPH3hXcVP6N2o37VQsCRLDxZf8Ob6e WEFrmunrSWViWNYojfmRwCLyLknyr64Qw58PDfo9mv2J6JTiOWarxfBIOywx lP1E26UiiEpNYljryrK9vP1PJLjuqVfdK4b7V67+/Ou3gJRfGzyd+SmGmywr vN9yfkcfyDpkjhUxvD2V5ePzqnl0JF799f5VMTy5bkKvdWseHQs8WHH7nxjm 1zK4Xj/1DZ20Isyys4pj2VJXH/vGOeQssHJoP1kcL6aq5ga9nUFLoT8qjWXE cevbJp5712aQO8OswW05cbzpaCUtrjyDvBeGL1btFaft17xsKh+mUWhDXZDx UXH8b/xeyueqKZR551nfLWNxbKOoybv2ZwKNTx7zrAwUx/v+fFtSaR9Dx5Ja U+VDxXHkH4EDvQljKNnUrCX6oTh2+/tGetuVMWTZ5EayeSyOhRWrpTdZxtDA m+RmxhfiWGHzj8JRg1HU4bVJ0CoTxxM2w8lWX4bR/gMhx19XiGPrRZYjDd7D KPKHgIdAjTheFsCnxeWGkaHVnqbJJnF876g5s9f9IdSobe4e0C+Os/eZTXRr DaJKnuKGuhVxHKguJrT0sw8Rm7RW9q6J49fqKbzLr/qQ7/0vknEb4nhdR9W1 2KYPodWZ6/YMEjjB1nroUX8vKh4SkmThlsAn9nH4qLb2oLcZ7tf0d0tg+ltZ Q/79XYjHij7hraIE9rgR+3AtoQu5iobXiSpJ4Be5osBv04UUw9PEvx2SwHk2 pe6HFzpR1rXO2lBtCVzRfe8QK1cnSqXsF2uxksC9uXRyBk5fUKUhq//GJQl8 UM05+/XRL4h6YXxOzp7m36n4czDnF0T2e1wc4CyBDzf35ue8a0dptevnsJcE Tq4rXfZibEfpJyrj3sVI4L1KdjMeri2o9uIzOuoTCbyew6vlRmxBU2437Lmf SWClqGb+o53NSCZG5tDVFAn8beLGyyOHm9HLvpBemVyafS/XbApnE8q0Oi0Y XyeBd3wDW/PhelR/TcGnvlECXxXtCr0SX49m/LdN/W6RwDBxpHePaT3a9fLj +9NdElhVayq/tLsOvZoTM+YYk8BD1sZ6A321KOv6xCPfPxLYcqt26em/avT6 gTuP3R5JfNHrjfbuDxVo/qiF34N9kvhWQSSbbGAFUljRXH6hLInTftPHJphW oCxr/u7Rw5K4a+AP3++/5SgT3sWZaUtit2fsrMrHy1Ha+k8pwwuSeKp3PeTt +ic08aYv8oq1JDbbpjIw8+oTItuX04faSuKRH2Lkn2afUGpPxHidkyQ+tXJH 3eFzKUp6p5ih7imJya8jlJqjSlD81SuKB6Ikccf89uSnZkVoQPpM0ukYSfxq S7nrh2AREhlS4772RBLvlvnd8KuzEMXpsy3lJkjitRK+Lp6TheixbNb7XVmS 2LW8zejUyY8ocmz6qHiVJF6PZa247vIeBRrbHGf8JYnDnSMqj0u8Raknhsxt 1yRxxEdSVPxMPirVM3au25DEx31bjXwL8tESRScqlEEKp1ys4mI1zEfmMrt7 +bil8KHvPtyzgW+Q0uqStfRuKSx11lFuUT4X/bfodCNAUQpvb8znWOp4jey/ TTyY2S+FqV2E1gWv1yhhpCcz55AUZur4r6KnPQftqC/+oaIthbWfeykyB2Sj r3F+t7WspPDA8yHTFLFXaD16IzTjkhS+eaTTbX9HJuIPv5HAYi+FW4ovKj8O zkR69y6XtzhL4eHuByatfzJQgYM+s4m3FH7ViHnrpl6ikCO80ZefSOG4Wc57 U9Q0lK4S+qI+XgqLaammp6enoXJFpvfyiVI4oI9zQMAhDf0i/e79kSZF25cL n9MvvUAX2QYkbr6VwnKpo7XtbC/QgaGUV4EtNP95eUtvLFIQt6L9Wl67FA7L UhpmVExB83cVdfo6pXBbeV9n72YySiOXTOwakML+4t3B/1KSEb9Tl1TjlBRu Wn379uBQEvrjzXicmY6AC5yEVdkOJ6CZ9MvX4ukJeKPzMjFp5jnqaW14qshI wNtjrE5wPH2O3hIiZ0yYCfhwrcsFl7/PkGO1eEAGOwGzWYhusLXEo362gxW6 IgSMLjAdr3sUh2pVns4MiRJwc+TQxz8n4lCBxV8uN3ECrjizkjLFHoci8yot n0oR8FiK0eHRoCdI9/SJv7M7CdjXYSJxZ3AsKoy3Vw1VImBDFZNY61cx6GVV k6WUCgGXO10axK4xKGZeMeDdAQKet/z8r1g1BrmiX12DhwjYZ0zwtHf9I7SL eu+aAhDw21/kO8yL0ShO7tnrluMETH0WZThqHoVWlrXT/f8jYO/yN37lu6LQ ibKl54dPEPC2/X1ktV+RiPm0fli6EQGHt6y9XIuIRO7e6453zhFwy+8Thxvi IpBR29lde+wIeCaeeVPycxjKfcpIGLcn4K6Z7KJn9mGI5VKe0FNHAn5etddD hC8Mla8xb9/mTMCONoKH2J1C0V7Sh8mhGwR8769hso9MCGJ3538R5kfA+i+/ R+1tCET2UB5/7D4Bq61a3L56LxBVsVyJXntAwHV/nhHuHQlEtxOr7l0Kpul7 vfCrVF4Amq27dvFoJAEr5/krr6U8QLWiXyTmEwiYWWyEgS/HH5EmvQVSkwj4 Dv/43ceu/uhO3i4O0xQCTv+tldFwwB+paPr+rUoj4CGp3y2o0g+lXt07+Cyb gO8/mH4jPX4P3S0PjzteRIvH/QC7soYvmhsuj1kvJuDWh9YCzby+yGRjOTKj lIBD1Te6p2ruIoWDZsGM5bR4zueJtrDcRX3ZMrdLaglYb+qosW3iHaT05PP5 3V0E/NO1QZ64dhslFCyd7e8mYNe+xrOvM26jHR07zwT2EjBBkpAqY3objbCH GYwPEPCHWPX27pJbKMzPlPJsjICVfPfvGA73RFNXFyXZFgh4+rVMlZmZBzoV Ki1W9JOAMyJcuh8IeaDSzLNCdksEXFN5zNyj2x09Gv/EVfWLgOkUJ1oTT7sj fC6Ezusvrb90IsbaTG+geE0ydY6FiJcdg+oG719D26xNvsaxEbF2sTLV4r9r yPVu8IA2BxGf8tk0vi94DekUL3SkchMxPDzV/CHLDa3sLa0yEyLiNjHyR58B V/SfmHF6ozQR31dyIpJznFHchGL5eRki7rxnzqxo4owmXu8YnJclYsLaEocs vTPyxqXcXLuJWCQEW/afu4pybMnep/cT8Y55Edd1gSuI9c2i0RCFiOs61Qy5 Pzogk1tNV68CEce9vRE04OyAUo+lB21iIlZgzIWrsg7ocLdpGUGTiBOCFx6N x9sj+z+f5Wz1afnEy0n0h9ihOs2HdD9MiPjk78NHpcNtES+nvdhdUyJ23zAc 9j1piyx71Q9ymxHxp8sPVQP4bdFvh19OShZEzHDJe9g/8RKSiTDv9bAh4kCr fnuRYht0v18+d8uFiG9sNhbu47RG7alMDZFuRKzyZ+KH3qAVEr/ydZx4nYgr 9n7jW8y0Qu82o0Q0PYhY/m8b77iWFaKS1+8HeRPxkZREkkLARaTuXHeeJ5im p2MyLxlZoj99s9rVIURs09FbHD5mgQo02JVuhhGx6ubhGu4ACyQjcmrHcAQR n48v/G7UYY7YqwcKMmOJ2MNbneR88zzqE/nBgdOI2LFQeMfpRVMUfZ97fSmd iH+lsM60ppmi4wtKE+kZRBx6LpdZ+ZwpKqu+WcyWTcRFoaI7X1WfRWku9Ha9 +UTs23wkk+GlCXKt4S93/kzEB7U+sClFnkHy+1SziRW0+lZOq/09eQaNx5+L 7aokYplwl4IA3jPIxDXxypFaIvaePeDd+eQ0Oiq2S4S5hYiZeMcbOLON0A43 tWsJA0T8YhvnNZWlk6hy0MLi5BARZ1e1UBjKTiIvbV9dxq9EbN9jKucSchL9 EKuRdBgj4hqdj1OSO0+irlrDJpUZWr33On/WqjJESeLW0s2/aPU26Wp0/HYc HVHerWi9SssPcM3P+OOoS29FdW2NiIPXWi6aHz+OdtwMOC79l4j/5tpYD+Tq I9cvWde8GUh4Y2nVTsFXD+GA5XIFLhLumoy1FtDXQQPPSxsruUm4wu9rXBez Drrx7kGXKS8JTzSKCZ6p1kaZo0Iz9wVIOErC6kqoujbiUTvKNSxGwp7H9e6l aGoh6sJ9i/BdJFx7SuHdaycN5M1saEeWJ2FG+wt0d5U1kKCEkFvRbhKukeNG ixvHkL7+q/uTiiSsdPC+S/7DY+htWks25QAJi5qf3XIpUUf+5wT/fFcnYWP/ 8xKu+zCSdB1hvK9Bwt0/HPc/oMeoMCCTQ1SLhM9/5hlSfwlo/t0RorYuCRN5 F3uaFxA6w3lBN9GQhFN9TY3oIyhIuioj1vA8Cf/b3tDktnEEtSqspQ2Zk3AG h6NOWu4R5Bmr+87RkoTvE/87nmd9BDU5zLYFWJFwkVXdPa2Ww+ga926Wz3Yk nGJTulsp5xD6bJHrtfcGCZNfnF0SjziI7Os2gz+5k3Busax/o+FBxLv/RNzx myT8TjSqYg/XQXSZ6WeB3W0S3nudxYIj+gBiz97/I8mXhMWibXv/JKkgs7WC i9zhJMzQX2L8Y0AJMVlvc0l8SMKtNS+P8acrodwm4zsKkTT9JSWjOlyUEH3S 76e6j2h6E5ezebYroUytQ52+T0n4qNWM3pWj+9Gv6BKtxXQSNsj2OePotxcl /mU7czeDhN8QOEq1du1FupfNrTlekfDDndNZhDZF9PzwPx+5HBI+Y5iy2CCl iI6NokKrtyT80pA5LqFZAUXuqZTvKCNhm9XcM/9OyaPMQ+dZ/MpJeNr8qqoy nTz6rLEyvb+Sptc76/VLeXLoxzmZ9KgaEl6i/0R+wy2HjgeESJ1qJuG4r2Wa j77KIuYRI/72fpo+XbUxouk7kcTct6W7gyTM+euke5HVTqTy6/6XvcMkzMNj dHiX1E5kw/bxYcQoCYtXawc4PZdG5apiLCemSfh7q1S4VjIZeUWO/2tZIeGC sodB6k1EFP3Me+jObxL2d7idVf2IiLJeCpTsWaPlf454atmciPpKdTzDN0hY +rvKpv4iAR2czV4yYCDjHW/D5rKJBPRT/cZ0ExcZb+/hIXCDBNrxH0etFw8Z g354d8G4OJIyfZm2m4+MPz+uu3EjWBwZOvdZhQqSsb/qr7mDfWIoO/7okL4E Gcfucte74ieKLi8zfWmQJ+MmutWobmZhZJml2WquQMZmeV4uGeVCyMTqftPC HjKmu7M9XNNLCGm3MdYK7Cfjgc/1br1Lgkgmm6HESpWMn+h7ZhO/CaBJa7r0 dQ0yDt06ft1xkw8NieDUMC0yPvG+Om6+ig91td9NktIhYwr/3BXhED5Ujbae aumTMUdeUKCtMB9KE918GHWSjCutn/qkHOVFlzo2POUsyLhWb+9BnlRuZB6s 5lFqScZZMgr8xm7c6Az2un7iIhnb35t5KKPOjTRz/1x1tyHjzqXOrd5qLiQd sm5d4UDG9P+upGSZcKJx9VWDcx5kbCXsMJSRxYYG1g7qz98k4/UPRWye59hQ R56Hzt1bZHza+E2ACgsbqpT4rZ7uTcbf77qX2zmxotT1lYOLfmQ8Rc8W4XyE BVnnLxGCI8hY/DJ/UxvddlTP4vWDEkXGd9uIAtEfmdEea8bSpWgyZmFkz1dz YUZrvPxnzWPJmO2CXuzhsW0o4saB8L0JZOzQ+5LhURsTKlX1XO/OImNdB6Wd Lp0MiBRJVxeSQ8bSz9oCbZ8woMCZoBjIJeOH1IwhEXMGZPT06d5X+WS8pcku 8G6aHs38Kbb1LiTj8uuTpvbb6ZFA2b8vpFpav0w93Vxq2aTcFgxI6q0j49S5 hrlwp03KqDPn1bAGMt4oq8++yLpJyZGS2vG7mYy/xrvbJx7/Rzl2D6OGTjI+ HNz9gHdog+Ks6Z/lMkbG7bmSeuX71yldz9k8pcdp+cQIqcuMrVEO/3qk1T9B xh8dpIXDotYoTC/TRo/NkHFpzZFe/V+rlGfbawUFF8h48r8qKqr/Talv3OFf +peM9+6XFLn2dIVyRWMssoHGgp+WODyerFC4S4sSe2j8+amp8u3HKxTT147F P2msNlDD5R+1QpmOaF6U/kfGLzLSOZ8Er1CYjSMvhtPY2sSdUH9rhaIxIoQs N2n9WnzshqHZCmXq7M/jTjS+vWBxzdR0hRLSXn/Ok8ZqyzeTrU1WKB0Vt9yj aTyvEht202iFYp02mFNL49hTf1+80F+h+Dokie3dIuNvfe5NTGorFGnqTbmj NHYZNq/jObxCqTc7qapHY3WBP0uSqrT4DehP29CYg1mr/7DyCiVJ0SbkCY13 mCeOue1eoRzLUItLo/Ff20IzXzlafFL8L/Np/OLOJcYI2RWKIk9NRRONXZsv jueQafEFJ7T10fjQVoZoKXGF4sHgMTxJ44+qLveapFYool6G35Zo/HAlX2hQ YoVStiyzvkVj5/dOw3NiK5T/AYeqBrw= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{0, 0}, Frame->True, PlotRange->{{0, 10}, {0., 0.5825639344975858}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.418388451624614*^9, 3.4183884720640044`*^9}, 3.418388676578081*^9, 3.4183890451580734`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Solucion num\[EAcute]rica", "Subsubtitle", CellChangeTimes->{{3.4183905117168813`*^9, 3.4183905299531035`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"d", "[", RowBox[{"\[Theta]0_", ",", "n_", ",", "t_"}], "]"}], ":=", RowBox[{"nn", " ", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Theta]0", ",", "\[Theta]"}], "]"}], " ", RowBox[{"post", "[", RowBox[{"\[Theta]", ",", "n", ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Timing", "[", RowBox[{"d", "[", RowBox[{"3", ",", "nn", ",", "tt"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4183884954977007`*^9, 3.418388593328374*^9}, 3.418388995136145*^9, {3.4183892347506943`*^9, 3.4183892361627245`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"3.294000000000006`", ",", "0.7197525574241581`"}], "}"}]], "Output",\ CellChangeTimes->{3.4183886018205853`*^9, 3.4183886872934895`*^9, 3.418388845571081*^9, 3.418388981396388*^9, 3.4183890235069404`*^9, 3.4183890537303996`*^9, 3.418389245385987*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pts", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]0", ",", RowBox[{"d", "[", RowBox[{"\[Theta]0", ",", "nn", ",", "tt"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "0.1", ",", "6", ",", "0.25"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.418389367872113*^9, 3.4183894504508553`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1`", ",", "26.453582271306402`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.35`", ",", "12.751335736080957`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6`", ",", "7.6142853487879565`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.85`", ",", "4.765473544690207`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1`", ",", "3.002058982805569`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.35`", ",", "1.873618138224955`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6`", ",", "1.1598951660276813`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.85`", ",", "0.7344313884354856`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.1`", ",", "0.5161180045443479`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.35`", ",", "0.4488886086604557`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.6`", ",", "0.49222047802019786`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.85`", ",", "0.6161857246083039`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.1`", ",", "0.7985239517313036`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.35`", ",", "1.0226828546464437`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.6`", ",", "1.2763893711826384`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.85`", ",", "1.550568710303034`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.1`", ",", "1.8385215108667492`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.35`", ",", "2.1353030572136404`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.6`", ",", "2.4372608412025527`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.85`", ",", "2.741693773530158`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.1`", ",", "3.0466028234142435`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.35`", ",", "3.3505091802665383`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.6`", ",", "3.652321383137131`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.85`", ",", "3.951238166635101`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.418389688843648*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dap", "=", RowBox[{"Interpolation", "[", "pts", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"fig2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.418389459654089*^9, 3.4183894859919615`*^9}, { 3.418389545417411*^9, 3.4183895586965055`*^9}, {3.418389725806798*^9, 3.4183897639316187`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13c8l98XAPDPIis7yR4ZIYpSRp2jSBRJ9sooq6L6loZCKaREJYkiJVFR mlZCykx2xmfJzJ4h4ff8/npe79d5Xq97n3PPfc698p6B1ocpJBJJm0wi/f+p s5jtfGu6Hk76BIQ1Km7ATbdaDnu+aADPeT6fEiMtDK3WMN94sAk2+9pKGS1p YGbuR+UXd5ugXfWcKCtfAxsTd1CVaptgRTbd0DVIA9f6OBSJ6zXDQNZR98kJ daymXtEkibQAr+R0idmUGopt6xT+8a0V/DiKHRek1iGu9R7bvdgKn/qXhd/1 qqIf70RNmc5P2Lo5k6b5ShWL2jmvfnj0E64Wbm5yNVZFzyDt2Yfn26BVImoo 6IwK5ry61nlUswPaLFWCGUtKOCg8eMPcowMqkVWQ2aKEKkHm21XjOyBZTDCG nK2Ejwx507rnO+Cni1eyrasS3q664e30tRPGOsOMnMvXYlB37ISpCwMO9UuW Bj9XxDe7xh8rxTKgSExb1OuaIo5lWdlQyxiQ0Ev/UuyriL7HhT4WqzDhk9WZ oVpVRXRavH1h8xQTVHsDt4nnKGAqb024kAkb1plNz3PXyuP2bcEuYW5sYAWu pZzPlUd6gPrmsTNsyJ+gbTS5J4/ijdf7ap+zoWjG9X2flzzeStxrFiXYBQ6R cvpqZHkMV6rjX+7sgqciR42szeXQBxruD5/shuYuHWHrRWkkPf5T0Hm9G4yZ vLqrf0hjIk2KXp3eDY5VTdt00qSxsspbJqu1G0wVL785tksaVW3+PT6s3wPb R0KN6PFSOOCr8pJJ7oVBoa2hckaS6H/7YnF9XB+Uu7t8MWsSR8rMY9bnrD4I xwMqDTnimGRfSXpV1gfV31/pPYwWx2opkZ0x033QnDmgQN4pjurPMivMHPqh 2SdMfODDahwubKovkx2APqOwNW+fi2FA77rudzm/oUk1vMioWBTZbu1cpVW/ 4ckJQc7GFFE80Bal+b3nNyjI8z59GCqKW2v6z/VKDIKR6pWFbiNRpOY+FRSL HAQ3qtI78SoRTLwgv/3MwSHwfjJ8NJ8pjKUia+7rCY4A07FHv0dcCDfFVBab qI8A1XJFhMCSIGZwnu3Zv2sENlXIuft0C+KN+VYt/wsjEK3z9nlyjiDaseK/ JQ2MQP/B/AV+U0EcfC44vVAyCly1tVixzI888ldUWFvHQVffUKJQhg8rDW9p hZiMwy6z5J8r//BihEPKFmnrcci9vkc49TsvUuLyTJ2PjMPZfy36wRd58e/S sM/Ph+PAqOafXcnmwSG6beYPygRcpU4K6L/mxtpElXUltROQfNJh+/PTKzD6 3aaNB9snQK3xdNWC9QrcXW+kt9Q7AXZ29B8hG1Zg+QoXM8PlCTCzlTwhPsyJ RUFxfnkbJ0FuKGT2zmFOzLaZz3qdMAnHPavTgz048KZgjVqa+xSwmV1c0cFU zN8i/d4yYAp0gr6Nb3ahYo9bIPwLngLXOwL1ItuoaJAtYmN/bwpmkOR8aJmC A2YuF1fWTUHS3dwRqwgK7gwf+XHOYBpCIjk8JB6ScW5G4LS12Ax4717IorQv g6K05/Ky4gxseIzWFU+XwdL43bXsjTPQpei6l3lyGZ7edkjhspiBEM+LFDL/ MlhrpVUUh8+Aj9KKlTy7lyDbV1tCfWIGbESDy+HrP/DstPlMrf0DHS0v7P9O zwNPctexE+1/gGf8jYx8zTy8cQqQYvX9gbvbOm5eT5sHakfkuQLyLFCirLeq 7ZuH9LYCnRNbZmFvoJ9VRPYc9LXIZTIfz0Kw1vr7QUGz4F8/HJd/bg5+vJ94 KbtlBoTjzoFK5BzkRx82UVk1AwX7OEfj4+fAeNuOGd+paeD9Ibvn+Ks5iLZa 9r3/ehpefrfmUOmdg5byFUYZ66dhtDrvXLzVPNjfsPyooT0FJ75e8QxU+QsP VLpVH7lNgEzPLs4/On9B4pV68A/jCaihcD+/gH8hmJkqpaY+AUoYM3HN8S80 /HyS7T43Du0Fd8PSr/8F/axdL+vix8HodUZK+9hfyGj+cF7sxRgIJVd27Mxb gCLSp/9Yg8NQnB8dUl2+AL86V505UzoMR9r2KuxvWIDzm60UXBKH4euqBj+3 wQVoykrayGM6DOfi2ufOSv0DWhgrePzZEHRdHRTLCfsHK9eNkx+dGYTc43wH xM0WQf2Jz6DL3gGoTRI5l223CHmrVoPuOmKfl0uk7ji0CBIJnrOunAMgsWbd 0NHQRYj9bvUvobQfrpSahJe+X4R4PXbRW/1+sBMOfeuvsAROL1cu2+r1wXHD iPZlrSUIEOh6cVaiD6K9Y5bjty2B6HLlp56FXvhckLzns8MSCJzqmL33uRdU vfK6RWKXIMJYVszLvBf+vp0Q+bSwBK6LfFcsj/WAKHNOz5p7GaJ2p8b3WfeA JhfJvV9sGeTYthlftvaAlwv/SyHtZYjp0Xm3h6MHamnqxt6+RLyxrvp6Wjek 2B46JdCyDKuKXY7e7PsFeaFHktJ/LcP8aFaabf0vIm8nS/TGiTrXUD/lWvAL aKHI+YaDhCaF33+uj/0FW5ssrelyJAwpyhmsMvgFacFHBjfYk/BRZVFF7qMu 2FDCPRfpSkIX+s1L92K7oISWycHyIuGD2qnC3JAuYMf0yMUcJ6G+Vfv3y65d IPPI1f73NRLm7qhUuiXdBUnl+8rTikgYWc1+ovGMDWrcow1zZSQsN7zwAO4T fcbiBmtfFQlfl+qGh19nQ1tr5d/FFhIGll15Z3CcDWK/jTY6jZHwLUtrId2A DbdXbkoRViCjI8gIFn9ggYJ14ws/VTIaUfVf73/EgtyE4/klmmT8V57QYBTN gnrZ7OYAAzLKjiRb6B5kAb+2Mm+NDRmXQ27J+6xkQUpQubiCMxl12SfKWuaZ sL7QU/mcBxm/3U3fl9LHhL3GqUYqAWRUyrrWY1DKhGg78bPhkWQskRUYSz3P BInkD1c7Ysh4qnH772Y/JmSxbO5sjCcj54ZGfQ9HJlT63sphPSLjQsLL+yF6 TOAM5uk1KCAjx5dhwy+LRN/+nDl5u4SMh4L/DGSNMUCJZkoa/EZG5c2n7Xu7 GGAcEy6Z2ERGXgenjY4VDLic+m//9DAZ9XjCfqgnMMBqQ94J9SkyxvEH3h6I ZoBM6X+3POfJuC29y2o6lAEFvwbr6zkoWOMzHzXrz4Co/zLGV/BRsCxy0nvU nQF2NE9BEKbgdunV3Dr2DJhUat+XLUPBiRvRnunGDCj5EB/Ys5aC6Lg+pN6A ATdNrWIl1QmHPlE202GAml9F3bUtFIwsyu2TUWSA58v3Ft5WFDysN5J6gJMB G7adOPbQjoIRgmUpnct0WPquEdPsQsF33AWF2fN0SBp7UrvDj4LeuwrFtUbp 4Bt2cPhcIAUpF8Q/MQbooCskyZd7moJtH3F3SzcdGrVv75G9TMFDykmdDzvo 8OiLxRG7KApu2CO7O6CVDgE23NdjbhLjO60+FNFIB8Pe8ufl8RQUsHjZ1VtH B56gsOqFJApuleL670YNHdo4DQe10yg4VGJTfa6SDhn3Zrn9n1FQd1PR/eyv dDil+nZdWjYFFQJ976h8oYNRfoBZ21sKFvqH+/WX0IHfXM1PoICCK+W21A0X 04He0Ru1q4SCilHZ/235RIfnR9IyL36jINcDQb6KQjrRZ10q39VSsNIm2iy5 gA67YsQHhhqJfBbetHHOp4OoTPMKxXYKJhQ+kHfLo8OvnFgVJxYFP6xNb0z/ SIfXsMf0Vi8FW7NVNbUIh9Rz+lQOUVCDP+fvvw902OtRFrE8QcGxfx+XVhJx icmLGbpzFLTfWE3yJDxwWe/bsSUKJnr6VswR/iAy05tOo+KQqdiaRmK8K+mv Oeg8VIxItC8aIeZjvfmokogQlTg3vj6zh5i/3DcVE/PVVDzq8ERoqIgOo3bd hy5JU1FZ971VLfH9Rf0pV/IUqUh28VsYJfITfdYpfWwdFTdf2tlmTeTPgVus XHkDFeddKrJnifwqJzV0u+pS8XLG2R0MIv/TajHUu4ZU5F7V6UKtpUPcXtpO qhkVe7eVGQo20cGN8dlTfx8Vs7wtY/8Q660REHz5hC0VjW8lXZLqpENl7GQp y4OKHZWXDir30CFBLqdLzJeKRsZr27h/0+FQrh/ZMoCKzil3eTSIeiM1sbHo PBUv1kx9UCfq8crv4rTzl6goQ5XfeJ2oV27SQ4peFBWnDr8L0CHqWXi9Y/n7 u1Ts/uDA7yrKgHs7tyidekDFtnWxDIYkA6ScVkVoP6FibkOQeQaxH5QiG0xf vabip6r0n3ybGPD84avMYx+pWJ0iePi5IQM038VwaxRT0f/NWf+bJgzY2mVW k1lDRcnUqI+qDgwwNyizfNxHRb7Gd9YpYQyo2//olfsIFe+wBBJ9rjPggG+I oOw0FYVhkfs08T9wuavfmEym4ZPFdgvnbAYEjL2xvStFw7GiTAsLJgPuPHni EmVNwxFPjtGIvUwQL7j0aZcjDVPfWN067syEB/UHZTjcacgV7FR9358JGYuS 7EvHaFgWOv0z6xoT8uzjvYKjaBjzYJ9jXjUT6LxX/QOKaWi9g++9pQML3BW8 ajS+0vAY8pgJHGFB71YjjaEaGnIzJzt5QlgwenhxxKedhlMjITPr01lALjl9 wmOahgc6dppITrFA+ZT3WRs1Dnx4ZVSz1YIN6/VZB1I3cOD7/KNDsg5s2ERy 0BrU5UCZG2GNlzzZsOOGWV/oTg7kPfSyIoa4t7ila9i8cOHASLdh9pfHbEho ntSixHJgbGDV4buLbODYHNr/aooDLW/+DNAu7wK+hdmyv/NEPCHrsl1DFwiX Hk8xIXHihVUaC7HMLpCz8LTt5OPEmMarpTvmu8DwsMkXTmVOzK3w0n2q9QtO 3eVNdXXgxBuxV+3NH/2Cnpl7dryfOHFBHtefj+uGx0Y6/zG+cOLo1ss8J4h+ fTCmLvZVNSfixdPfLr7pho61HFUH2jixTln4yovmbmg4cNLgwRQnppdh/9ya HijO3Su3Xo04VyeFNEVn9sC9Y+RBy3srcKk7RnuuuRfMe/0v3j7Bha7vw8Pd vQdg10XFl8ZnubB52U38WfAA7FhF7/gTwoXmMR6Zi3EDoG9isdX5BheKXXb0 7ygcALWnWlOKz7jQxizMzEr4N/AenvZ9T+fCg7c3PR4p/Q21PRdt2ky58bxP T7+t+hBY9sSpy8jwYHSf9md+lVEY/OIZVpnNizmDXtgqPgmaQq3SOw+uxJTz 9gsLT2eAB2Y86FP8eNLEht9DZR5MR5xmFWwFka8ti/pqzSK0lR0iO2kIod6p q2zRaBK+jyp3k5sRQrpdl9TIUaIvcJxm19UJY15of6TfRRp6nQx+z5ckghxr lhlLRzlRy0e9bq+HKB588EqVeoALfwhr8J7WW4X9NMn4RnceLMy5nKxBFUNg m/z4t5sPg8lqVrUMMZRmvuG2siPuS/TzuwPerUaaRl5nhpog9mbIx6deEEfd O54b/MSEMF51DS3fdg3mnMhoaREWxrgk7woPOQlsTOhct/RXGJ3iXev4+iXw UtjJjsEOEZwzfjqfWiyJ5GfMvY5Votjdu+NsWaQUlujkHZN5sgofb9so+d1D GrU6A02Tr4lh9tXTQj7rZfCl+UdXJefVGGnrtYc6I4MFP596/VQQx830tKzI 77KYHcw7fXtaHBPXJWd/3yOH1zt3VgbmrsHQkpjEPflyKKfzNUwmSAItJG2f Vq+VxyV1fe1MTUk0CqhwFromj04GzPX5jZKYKuW5tnZGHqXPGEbYB0vh2i/P EiydFTDv4CbpFAFpjFtfptZYrICU3a22pERp9J6iNVSpKSImqfqekZdBz9xJ uWuxiqg5T2KeuieDldVc4UX/FLHb84VYFq8sHt3ZFVdF+NLRQoMPhAWL8lNa Cf9Uf+j+hbBDtn/BOOHq6pYsBuH+2NqJtYuKGB0uqS/MJ4uctnHuMYTjcub2 BxPeyVq93W1JEY84z7lZrJTFPvvxPUcIP8jeHuJEOLq+0vEsYZ8cu4c+hBtL z52+TZhZsNBxibBneufLb4TXzK+x+UA4zC9VUmuZmE9bxjZZfllc++vMOkPC X+dXOGkQrnSy2mJGuPCrfpAeYcG95ANe/3/fdVXOAcKpml7R9wjfiUqRjCK8 45lBYjrh4IUbuncJ98mKZuQSfrzaYv9jwppCX0trCFeZ74goItx47eGPNsJ2 HmceVREOogQxeglvlwspaCUsEWw5NEnYNNKuuZtw8ZTyPHFBRb0E0ug44f8B FQTqnQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{0, 0}, Frame->True, PlotRange->{{0, 10}, {0., 16.13993075080311}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.41838969239876*^9, {3.418389737994323*^9, 3.418389765964542*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fig3", "=", RowBox[{"Show", "[", RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "fig1", "}"}], ",", RowBox[{"{", "fig2", "}"}]}], "}"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4183897886471577`*^9, 3.418389834583211*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3c8198Xx62Uvff6DBFJhVLpc8+VLV+VIgmFZJVRkSKJsmUkSZkRIVIq K9l7Zc/wsaVkFFL8Pr+/3o/n4z7O45zzOuee97lEaxcjWwY6OroGRjq6/38T fKyZ918KRb/eZ9946dy4r7qTYHCW4AC7P1q48MmeObJVW+ZPINyCc6fl7j3q Y1RLKA+X2kYIhgP8prN96u/UrlDcr65KPYWEJG3dJZL10Xddo2krGs/BU8Hg nf0p36N/nAyGFu2SoObGajRDwtOjyfRDwataKXAkKR48t/KParZE7fzdmwrf hIatjwjWHZ2J06lYcUiDDVYzq9mrg0fDLv0zX95Ihxtd5faegT+O7tv3bm0x PAMcmQKrLnHRUTo37GN+Sr2CttoC5i5BbopHneS+hfwsCLa1820elaSIPupq +q6RA7XHeB4lPlCglFmG2M13v4bm/i37fx6HKdbymPGbXR60HeBlMeHQpjBs 3G5b8X4Dr9MqgjYfGVG6Ro0lVrTy4f41D5WxQEvKy9p9Tsucb8F3jfXt5wf2 FM8ctqKl3rfAJaSdel3/OkU/eop5KfkdcHhKpL+qvUMR96w4s+hQAJ3KHs7K MQGUHxbPU38qvQeRLfV5nb5ISrnGzZ8LG+9BuSTi4UhFHCVazggtVH+AV+GP G4J/plAuce0J+xH+Ebz35BeQXr2iHPy1feC7SSGUEy66SxLfUrYPUmW/SxXB q2aWumOniyh95Z/c52eK4HaIji71bgUl62Vc1bf8YjC5TE4Y+1lH8Q67zvPt dgk4DjYKvz/UTjG8ZnhhTqMUBpXjWKQauikEU7nXs+yf4O38x6+NDMOUJQrT xkz3Jzguz2ppKTdOqSaP6M4klsGvOHHXKslZSixLcey03WdQKrybPWz6k1Jw U//adeFyeF506Y0x8Rfl+ZyqyLJ3Ofxnq2DgTtqgPLDYWX5trBzEa/XLr5+k R87tvHZLWhWgEsR/fvvqNnRWg47zWlYF9I4vHVwvYEP4w/eCRc5KaM88MHTO igfJyQ2ed7teCXda+Yck8gUQ7/N6hsXeStAtMD+l8VMUbXB+eOV6tAp2kpXs PqUT0MS9Fyd/JldBIVeEFPKSRi0rkasu26ohZ7BrwkNQDn2w80lccKiG2g8j TW+eKqKkASctl9Zq4LywZ7tYrBIK+u/c/A+lGpgSOS/pfucgcivXfuT8pAaM tGR3e4qrITNllSM/NmjnxWdnhXQx0nhJHLt6sRbsbBO5K701kIIIV9D36lqw OqLD2oF0kEDYX8WrcnXQuEy+fvTFcbS5Ods9H14HWw2KafUXT6Jpt17vK0t1 wHP+jZ+U2WnUPlFNnjepB99n9s5Xm01Q4dm3jU4l9XCoMkRGtd4MpTQmuX2T agD2LTq5yQsX0Erce/mRsAZ4/UzNSCXKGmnbNY13rDeAF6e756sZW/T0wNjz 2suNUBV6xzey1gHNM64aF3c2Qj/z9DsmijOCDnauXNwEN7Z2LvC/cUPRyaT6 lNdNcOfZvVt7XtxAk86H7j0WbQYxgZfUPUye6BDF8EhwYDNcrqpaqx31QqFs l5a9V5qhzuueFqu0L/rafyvH1aoFXvrcTLRI90P7MyNsL7W2gO9eJu77dx6g +x7pkqZqrVDgeYwn+EMQ6tUs6T2e2QoHznPlO58PQ/J8XyJBoA0SDjiIE45G ojtjU3rKfm1w7+fSNG94NGrP+8sgu9AG+eWWj0plHyNeYLHkUGyH/SKX4r7z xSE1mZgjgZfaIRD9vLXT7Bm6xCElRP+sHRx0/hQlMiahhyuvlm9/aYeV1LNv 9oSnoMJBlfaV7V/gVwQ7+9OuF2is8nOOM/oCQlYvFr5bvESsWfrBMze+wLDm wu57e18hlahuW+vsL1DEdM1U9mQOsvS8eGxo7At8tcyJO1qXhwIvfJM0Ee6A N78Nz5m05qM32h4bbYYdcJajo+TO/Ds0sIe+T+9BB8QKO5a/PPYBMQqEFVSV dMBtmfmkwu5CpPBXMIqy1AHJi8lKK1klyGQ85erHXZ2QZfakda2uDN1tVNDf f6ETUp9VZF4SqUCZ+R9lsh93gugaZM+sVaKOuGOMO5s7QUOF3uDXthq0cbdl JJGhC168Fof9mnVI2s60VPhwFxy9uP373Y8NyNBwPC7apQu4lm5eZrrUjG4e cHZnf9kFFeeKnaUN21Aj431FOr5uaFry0hVa7UArc5xst/W6IVVylCTb24Uk Op5OL9/thkXpU4WU0R6kXSRdffVDN/hK0m8ZCPQj1+S85On5btBgfnny2q1B FB945I4VuQcsJt9T1ri+oirnmnOD53rALbLugILzKBKkDPK21fZAXoTY/cro cYSlLy/o/uuBDXuNeoLxJHJgW2yqVO4Fz8lmPcsj0yh6ySvzqGMvXO8R/K9U cxaV9jM/+JDcC8/VWrOeenxDU+VRVvt6e4GP3WX8esd3xJUpjrI4+uCcf7vY jT0/kbWH0mrC7T5wqq/sMt9cQmEWnzqF8vtg7iOF71/4CnqvqfsmaroPLJuO TLce/o2+7u4MY5PsB4063X5PxjW0g8/S4cGZflDimmksmF9HSn9mtLZC+sGS bUf0ydUNdH7sOulWRT9YlDnFKu7cRLl5wYNXFAdArV+k1ugWPczxzoXpWw2A S/KdFbkCBpD10Ee7YgYg7+q+E6v0TJB8lC1lfH0A2vc1yx4bYIahJCejCoVB 0Dj5oOHT5R0gwtjMmHRhEKz6h00UWFkhuiHsslnNIGSqxKnox3NAq8J3oUNr g/BoYM8BnWAuYIv8r0Fg9xDsfszpM9vADfdNOBW+RA7B6Xb2Q2fo+KC8yHk4 t2oI9o1V+jQp8cM/8baHYb+HILNxUTvPXQA8xiMWdcyHYSpPPT1lrzC81f6Z ujNiGBzDi4lKmSKw8OrkGcbKYQiQdJdXVhEDe1eej2WyX2Ep4siV9mBJSOt0 s39u9hUWgnQWI+UJMHawQ+R2+FfIGsg1zBAjgtm/aO8Dy18h79r4u1UiGWIv Lu/hkxkB7cKIJdlD0tBZdXrkp+kIqNzzvvD2/E4wCOE/llM2Atl6B87MNctC 0Pcby8GLI2D9lzkiW0wOrDMdO5R5RyH3SaDXj1vykMTW5M+jNQpbjm+8jtvt AUTxMve1HIXmXt2YuFVFGHLefWDh5ijwnP2vcspgHwh3hE41Z42CQL48izqb EnxgPPpZrXoU6kTtJuTXleDMgfknWcOjcOb+8BfzRWWIijPQC+IeA97Pa/lM DAdhX+Nf4qrcGLBDN9dBMVVo3cj5Y6sxBrnL761l8CFgvcCRo+ExBsbj4QGd uUfAf2cr59bgGChtmhjZCWAgnfWZvvprDFxt79pm92AoD1IsH+Kkwn/xl1e8 k9Th77eHbsXqVIiTT0YfdDUgXgL05c5TQe714dkncppw6MQCKe4GFTKr7Zb+ 8GqB+9sTXe4ZVPh560W+Np0O8E9s5UyUU+HYHbqz75h04a3AmwenB6gg3MNN ecWrBz88uVX3c4zDlwm1HG2D42AHX57OXxsH3ZhH7/ilTgJd6u/iwdBx4Njn kjFfdxLimMSHGtPGoatT0OiGxymob7gs+apnHHL83h+VmzSCiwphELcwDtU3 Bg+/SD8Naw/zLwbumIANvWD7y1fOwK4zf1Ntj0zAy6AnAfYcJlD+gVh95vQE nBhs41mfNgFTEZ1JjSsTUHtOgdmj4SwEfY2SJSVOgMhoEt9IyjmYsZfN+Uo/ CSIsVSIHXluAb5NBS4voJDz6lkU3X2UJworXfpQqT0Kz6+DwEvUC6C6X7ntm OwlhdjzdJhJW8OqO0fuzDZNANd51gzfbBo6N3uzRpk7CxOY/YyOzSzBwLGH1 wMYkpIr7MN7ltAXWHTOH+fdMwXWd3+nMAZfBMfpOWXvkFHQ5xa68L3AAhl+p I59fTQGJy1pc/aEjxJ+tp8urnII96fNskVedoFGcTyN8ZQrEZsxGZilXYXdG Zp2e6TT8voQZTGNcoZqldeaQ2zS4TciKfxJxA/Mryyy7QqbBx5CdzjPVDcL2 IwPm0mm4LWZut7vsGsyXdLZXSs1A/PEjXSoEd7gvub6Yf2gGksULA5cr3EH8 niRfyqkZaJ/8Z+dv5wEG2g7Gd/1nYL/s9/MmZTfhdftmv9r0DLzt8eYLe34b tJWlN+TpZuGs5VXPWEsv+PpYT1xUZBYMyMSqZWlv4DwfY7mmPws78p18Zsvu gPOk3HhB7izEc5FsmmJ8YdSyf0dFwyys0LPsn+a5B6f7ghRbJmbB4l+Kydeo e3CoafrWpOgc5Hc8uBQS7weM+encgoFz0JwmeJOj/T54yBsfJKXOQdBSUYaq 7QOYecFkrvhpDgy1pu0f/3sArbE2GdrLc7C8cmqn8KFAiPMmopsXvsGdUy3U a93BwPq73cb/9jeY8Dn/xe1BCNxx8Q2OePwN1gn4yb9DoWBtPdKV0fQNMsor T8xkhYGCboJTn+o83HqSdelYSQRU8Ik8Pcz9Hd5XbrUNHn8EKuH1ZVq7v0O6 4c+/A5WP4CWz58Qp7e9QMaobv6YWA2HrPXsdvb/D5c8Td9JUHoPJSExt/Mx3 aMnbk2uEn0C9qeb8S8Yf0BnQfqK//gmodSzzvJP8AU2mrpqZp+OAUGNk0XTm B+xka3dWdn0Kc1ncKxvlP+Bkh51HSM0zMJcuF9kx9AMSJD4njVx8Dm0JLsC/ +gNWLAsi0zafQ0Fka4jCngVoUbFLiVRPhLseYUSLpwtwYlHxSNG1ZGAl3pcd OfQTLu9wPBt/5gXUH43a66P1EyxZSz0OvnkBAaaJqhJGP0H+XvZ2Oo40YIgs 1Dnv9BPo09ceEhvT4M/mvF1vwk9I2NcuWGf0Er4NGWe2MSxCxkhVcGPiK8ha s37jzLUI/74FnpvgyAJ7ftdCDvFFCO0ZccE+WTBxPKT++IFFiPJLC66yzoah 4rKZOrtFyNt+5hC3Gu2dFicrV968CAsW79nKYt5ASIHK/gv9i+Dqym8R1fMG dNvVD29OLkJEAvE3m0g+VG831zu6tQgea7eoq0n5UOoR6VC4fwkGFE5U571/ C6/PrL96E7sEnV1ZQoV07+Ehd5N8ysVleLGrZmqYvxiKVCXeGzovw7nre6SW rxXDhKUL/PVaBmw4ENTwpRjUXvOdOftkGcqIoR8+RpXAjJ75HY7WZfgVFasX JPoJNPy/t91SW4EEfQX1HNlyWPvF5W4k+Avuf3ByikmqAuvBM58Zm3+DnO6v QiOPJmB9NnbVrf83LNbL641/bIK3Zs7iI1O/QThKRvjlehMwDgTeKqZfhXGP OaeyO82Q1les7Ka6Cu+mqSckglpgqpuQ+TV1FVz7ZVRfpbWBY/t8ZNGtNfDk /Mua+ecLuNXct3aR/QMnm2Y1mc16QHJCm/m38h9ImODtsrjdA00MLFne+A9c PAUW2fE9sBOHLwaf+wM1nCXXZAZ7oL/4sW9a6B9giT1xPOJ8L6i/eZnYv/AH mrZEMyrO9QHPs/oBjcINCGxwve6kOwBlRSE+jdUb8G86LjD+8gA49RmQTn3Z gLm3E3Nv7g9AjcAXB8u5Dahgjp2NKh+AW5H9a57if6ElVWNFWHUQxh7MCeb6 /oWaj/Kfv0oOQb4r+2lhvX9wQ0ggNbhnGJrj+W69NvkHrnn5ArzLtL2jWjTp 2KV/sL+jcMmZ6yuIish9u3L3H1gtUZXTdL7C/Qot/4r3/4D7ETdx8f1XMOG9 +86RtAn7fXbzlQSPgOvRgP6tvZtg+OO51bkXIxByOXwrhrIJrfptX2pKR+Bz 8bPjn0034e2Iaf72hRHYZVM4zhexCdQC+BW9axT+vFvk+7SxCTOE2aOVD0aB /+vaYSOWLVgVvdr2I3IUFHfQXZwW3AKVdw5LW89GwcacM4dHaQvSP0xfbMun 7RlMuzUv22/Bku8pHamhUUg0vnSDq3sLrms9yrLfPQaFd53i06hboFsTkNim Mgadr66VH/65BQ359/4TQWPAdBczv91Gh0MyWnzOnByDQ52GRkMEOnyxSb7a 7voYpHg5ze07S4elDhsV/nw3BvvKWdYCLeiww0Rf4J/iMShnytw2YkOH/+3L 6ZitGIPR8AlCuCsd7rhq/sazbQwkky3OzgbT4cC1534ms7Q9ZWLjEo6kw9vL KqVCF8aAIhd/7UksHa7KPr2YRttLzN/2hGu9oMNqszFCQfRUiK8+UZ1SSoeZ ygq62ISpIM/y48taJR1m1p9xd5CgQtF/YSMnGuiw7Go1OYdEhb6e+j//uunw 88y0+FEFKgjOqu83W6DDKvcvVG3DVHi5ZxTl/6LD2lrzMaGaVDhwzcdgx186 HP4r2uG3LhXObBTbfdhBj9+MkQhep6gQzaGSyEuixxceH1zFVlQgGXVkO+yi x4HPdfkWLlEhP9a1qFyRHm8ep9f2s6dCu9TrLmc1euyp8pDe1IUKFy8dp9ao 02PlspCY+GtUWMicXRDXpcdNaneMKt2pwKkkw9Z0hh73/dS2r/CiQqJHtTDp PD0uPPu6Jc6HCntKrGVuWdFjnRyZW8b3qGCgmaQu60yPm9WZKn0CqDAURDnh c4MeH9XQdf0WRAWnlkHz7tv02BlbBFBCqRBiIuzpH0iPs2v2cEdHUEH02YcH A+H0+M51hriYKCq8GjnzaH8MPead7cvzfkSFQ9LLyUHx9Lg8v8ha/zEV6u2j ckeS6fHpau7Sf7FUMH29t/RgBj0mluXUxcZRYXqxpSH8NT3eIVEWJRBPBWYv 1km1Ypp9wfSj6udUiP2cuRRdTo+nscbUSgIVdjLp0M3V0vTReLqbLYkKBbqT HOot9Pjrl1W37clU0Az3F4vrpMfbSY11szTu+kKUW+inx5ElvWpvU6hgI1h+ UHuUHi9kaAxfTKXCkpmlZsIUPc5LCS35RWO/pL+nVubpsf6xwCnXF1Q4ua/Q bfcyPR6+al/ZTmPJiutR1uv0OOSNC6twGhXmT+3Nf7pFj2MmfVu1aVxMnWtv 38aAGcfaJC1oHHT95c/t7Ay47fUI23kamzBZcwMvAy5uvPcS01j6scQ+D2EG zGbXvcVB46Wd/SdeSzJglkRtuSqav/IPMS4T0gzY8224ykUaP9Q5GSG2mwE3 6uYqT9LiNe9jyzPaz4Cvp/w+ZERjeYe61mBVBkzXsWmSQct3bd3vRzmFAZ/e zEieoOlRG4I41zQYcFGkmBwrjWPE/uzZq8+A91xrZBSm6Wmd8/6/yycZcJj6 FU3ORCrso7hdTTBhwEyhm5vztHpstiiEd5kzYLfNKp2CZ1RotpzJYbNhwHwv NZQv0eoXv/Ci+ZgDA9YS1+35S6uvve+F+VsuDNi/4quWzxMqHOQRY893Z8AR iyZPZmj90aEUfVzKjwF3BDsf9IymQnLVf04mQQw4wHUhLyGSCs5nWELDHzJg 2nWxyXlIBVYP38aNeAYs5fuh/UEIFdSLnPX63jHgr5E1J3bT+ptTX96Bq5gB 9/TTiSXQ+n9oYDJIu5wBM4e3DazR7ofnX/P6gmYG7Pff2FNnDyq8geM6UZMM +FPn5xZjRyr4tDPb1X+j6ftvZVnEjnZfrCoDthYZ8BGtJ731NlSY8Ttce3WT Ae/edg6mzalAqJXV0hdixFpfi27IGVLhh8n4pXsSjDiWmWqvrU+F0unE+4Vk RtxV82LBUJvW/yyC1TL7GDE6NUgiIypEGjBpMOox4j/rd+QHafOGrnMUl95m xPq/7kWlMlPh/mxZyu17jPjJ15laAdo8Y6FLYDgcxIgj7gpzXN+gvev2nKt+ /5gROzkO28zT5uHOwC86eW8Ycf5/kle+9o6BvlqlYeoUIyZ/FJgdezEGraeS 8y5+Z8TsLkf0dySMwWl7H26pFUas55CnIBZLm5+Pj3Q8o2fCOp/aBbYHjYHz wlvjx+JM+PSH+ZENxzF49OKFeZARE7YuDWr23jMGwsX3PmmfY8J1H/MO+Owc g+ftFyS3XWTC0ifWXzlLjMHLf2Kj964y4YHUU6YSHLT/ydkYG68gJvzdTNPg w7dRGGJ74OhcxoQfZ7il/EkfBZkblz3PyG/DcpvEM9+5RmHPkZHTSfu2YakL bvL1zKOgQme6d+7gNmx+Ych2/8YIHAvTm7qrsQ1/NmsvOdgzApZpCmeyzbfh EovD1sahIxDbtbSXIWIbbiiZCxRb+grbDtydzlvehrd17DsU+m4YJn49MWH7 xIyfT65/vMg3CPqTjnei3XZgcc+FtvdK3WA4EblbUpIV/yjue8OQ3gbNuye6 zKVZsWwAk1jZ3TY4fl3V55k8K7Z8Pl8cZdYGugxf24VVWfHbii87/Ljb4Bhh twffSVbs73flU/CdVjhgXlO+w48Vc1aH8B03bwHxrnXj5UlWfC/076T8niaI F/tva/88K07vybUXYWsCEZvkTNclVkw65fGONNsIgkvaG983WbF3qVTfg/RG 4OaOSZ4RYsOPfiXUR0g1AqOB4rdhPTY8kp53qVS4AeaqrH3rX7PhUwW7uj9I 1YFUVJ/jwwI2HPzxZJrXZi2csTQ0PlPChl0KfylYDddC2dph+dF6NvzpfIbn w2e1EL2Hp2t1nA3nNu7SvCZSC2pPPsvKirLj4TKzvAtiNRDmKN72IIAdF9CF E2pVq6BCNbroeDjt/MNAUIpoFfxm2pHGE8OOdeGCVcK/SriYtOyZkMKORSb4 NX5XVYJKVyPpfSk75kgq7tttVAnDlFseE0vsuF+2rzfhRgUo8vRIaFzgwFta uQuxqZ9hKnzK77EtB/aK7mZ4ev0zJLCuTk87ceB9uXYb7ZqfgZ1J+G2YJwfG Ur0q1OkymPt9TrsnigMbuZuOBuwrg/ShYWeHag5sYjIzXt5UCuKZk58j5Djx fm4p0V1yxdAl/VuaupcTZ/Kd/i+PrhhCU5hDVA5yYnhASrfvK4I/8bJn+o9x 4iIbFzW3oCLoC3eYIZlz4l/fE7R75grh0fXv3B8ecuLkrZXLXwo/Aiv8shpa 5sQ3gr9ZR3q+B0/1XTs+/OHEpkZ+aodOv4cpjfO5EfRc2D2h9YWA4nuo1K34 c4yLCwf4h1u5ThTAbaPwR6/kuXBovw4l+XQBfLPdWeNhxYVVL5t5lam9g+Yw 4108bVy4gOT4J25/PhyJCGqd6+bCl9I8BR7x5kNmVMmN6iEufLWAOah0+Q3c jyVW3Jzjwtlz9149//AGJNt/KywwcOMXS6kmYegN9PRX1hhLcuNN2VPw53Uu 6Hw3WyUZc+OYiRWmwFPZkMjv33nXlBsHbVLv3pbKhhW17Lyh89z4/KtE0qfv WZAcsmEXa82N5V4w2yuGZsEf2ed9LK7c2F/O4v2HhleQYz1c9DOEG7MXyY6z G2cCd98F77JybjzySJHFIDUdLm8FmopVc+OzdmRbt1vpUCrzRsWzjht/pSv1 HDiZDg7udN/3t3LjV6UUWw+6dKjkTbFIH+TGi9HnCpqs0+DGf1QU9psbB0ar zScpv4C+ykv0Zgo82IjhMu9TxhT4qT4gemcvDx5gP7i7eiIZtlecUElW4sGD JRt/CbXJcPDzEbupQzy45ZxJjXNwMsSUcLdc0+LBbGeEGk/zJsOJgtK4UEse zFVLyhY0S4TadP59nyJ58PsTxv2LO57BV+kQvdFHPBjdf65Y3hMPv15sWTM+ 4cEX7u2+QE2LB+nUucd6CTx4ZbPTi3AsHvwSyze6X/FgZfeIEQ/fp4CeXKn7 UcmDO27JpMiyx8H7oGpLwi8e3D61GBFi/hgy9ZuEA9d4MOkLv23UvscQz97R 8X2DB/Mmy9ycY3oMvpEj2iUMvNhr2e9YVG4MGMT9UTTh5sVXwhflX2yLAWrG vq3Q3bz41Rr7hF1lNHQ7qBYtKfJiPYuPK8bPoqF+N7p+TokX7zb9qffwRjS8 zjs+LXOYF9uLL/cNykaD58fLbRXavFjMsFl/OCoKOOueJ61a8eI93pe9eK5H An3wi3OWtryYs7j1k9PJSFjRz+KrsefFtffmJnYoRkJ/68fAaBdeTNoTqsbf FQFpPR0ue+7wYuRnyHSo8SEcmdqBbeJ48WEGDze11jC4vM19tLWVF2sXpp52 2RsMolINvRtfeLHcTk6ljr9B0HpIom1XNy8+briH6VFjEBy8UvPJb5CWn+sV YQW7IGDuFHh2cIYX3+V3w9lpgZCe/ME4kZ4PjycWypvtCwDTYtb/mpj4cKea zkVjxgBg77LUXNvOhw06Ph9O73kAN7ZvVzbi5MPXd68nYZ8HoOl8lptZjA+/ kDjXb/LlPkyorTVeVeHDazcfegcF+EOcsUFlvCofds0onwqz9AcDl+SiuiN8 OI3w13H4oD8UpOpmEtX5cBC7dNHFGT+4z/L0Qfd/fJgvcPUc1dAPpHsPY4od H4abQR42cvfA5prXe/Z4PnySaGZBIPnAQaWv7+US+PBwlQc1bOIOsC7hD9rJ fFh+PJ3RJeMOvHFj/uj7kg9r003NRSregb+uUYUrb/lw33SxxoFj3hDrklEy 1MSHC//OZZz2uQ0Oe1lL11v5cKD3p5ZSndtwdOFKqWAHH66xFT0XwXMbxp2V Pp3s48OyI5HFV1/egn3On8qqJ/hwQ9ry840uT2i40lmR848PiwgJ83/WvAnP FQ5WNtDx49rm9+MO/DfBdT6ucoqRH2fcWt+8NuEBglcsqwis/NhaaN0j4YEH WDvNVscI8uMfnsNq6s3u8Ndhq857Lz9++SVm9IDjDdhrt7vVwIofMz/bUH08 4QZfHaRcXl/ix2O+HBHpJW4QdoWPm9OeH+eN+GHOR24w67Zxqs2ZH6/mmSxP HnODF95N3ae8+fFFuqcpz166glC007DJE5r967HnwhvOUBtzwedjPD+++Uv9 fdo7Z7jx5LSUcCI/Zrsn/qz5ijN8ea5m1Z/Gj4fP9U/OjV6F0Ay2yfNv+XGr p1EUtF+BrdLs+Yst/JjzkouCeqMj5H5OCq9o58c7KtM1N0IdwbzykSKpix8X 9Z+6iwwdoajOy3V8gB+/Xw3/c77LAa53HF+xneHH4tU5rV1T9jA9/W3DkVEA FwVnPO4g20EbrwKb+2EB/Moh1W/7qg2gq1dnnx0VwG7Kbx5xNNlAbl1uXSUI YNV62QqXJBt46L3/Pre2AD50+nqylp4NGEwd/JdtJICHY07TSadYQ2OR+gLV SQAT9v5o4LOygiP8/i0sLgK4di+hIPiIFWQ5V2fvuyaAt/R+MJ3it4Jgso69 jyfNH+8pky/1F0E33GBM5IEAJjGeOR944CLUXDzbeTJRANu6bz/vf8QSVEri 8m+mCOC1XYQ3LKsWkCYwEJGYJoDThFneSRVYwP1Gc4P5LAEcXOih9XuvBRxT sa4J/CiAH4dNpysqmkP59qsfy9oFMBeb76FBDTMoyfV7psAoiG1zPYzoWkyA 2cBY9AmzIOY21Plv12MTODUr+5SeVRDbaG0jd1qYwDS5JbaHWxCzdX4fyPlp DHxPhaJ9JQXx4x+NlqfEjcHJPyeo67AgjpBJkL8acho+EO5uB4ogPj1HpsNm p4G+7FTAKyyInx+ZS70vfxqerP3299ERxOmfVEwvNBtB1VX1u7uMBXG8S4AC CBiBmGmPu7erIC6YcbvUVXwSLv/KXJm6Loi7T+vInYo6CfnRXtdP3RTElqtJ lfvsT4JOC8FNxkcQ3zxavcovdBKuH3O60h4qiFML78y8XTKEJgU6G+kMQVx/ dC1xf6IBeNHLn2weFsRCiSu8v6/rwpQmW5/MmCC2uBL0LU1VF04GzV+4NyGI 6bq2RqkbOiDNledy8Jsg7qsvFtoeoAPN4ioRyWuCmFOI9V9LsjZIHkKtN/iE 8LCQvLPugiYEeUmZtAkK4b0dxANnSzRhqYzuq5yoEB4XGRemBmpCnVbV968E IfzronuLHUkTXE/rcugpCuGDE+bh/BYaUOlsZCChJ4S76tIYdsyog8Jb5a6b BkL4pNn8tnMl6hD7i9+844QQDvocFSwQoQ5O3r1OgSZCGIn6qbaoqgN/iHno oo0Q/vya5ZX4QwyX0y831vgI4bM2tp+H4hGwDt3WdS4QwtLmdcE5xCNw8OYr joiPQnh6t82eXROHwYq3ryOvWAhvDxYr3ptxGAp1D1gslgth9mKvlmHFw3D5 /YLbjRYhHHW5T/Sx5iGoeHjp2e0pIZz445TwtaCDMC/36OKzWSHcyPjtKen0 QRCuqdhZOi+EU0LkeP+TPAjOG5Jv/i0J4W/W74vYPhwAcfv+at8tIbzxfpnM 902Fts8Z/ggQFsZF96X0nByVIW3I+12GmDB+tKvx7LGjytB2M9uzXlIYz4tq JvhzKoNM7g5G1p3COLFOm6xeoASdolVC4fuFsehTjsmHTEqguKKq/khfGIfK vs/O/7gPJl8SY5K8hXF1X9yerGoFmL8/ts7oK4xZ2T7YfLmlAEvWKRfs/YVx 4E01m/d7FYBOirh7f4gwfsEFcTkJu0H0CaGy8okw1mKaLJDxk4eTgVI/J98K Y5+ajrctTrvgrO2Isf4HYXwjZ9R8efcusNRIKsktEsYRcVHbSuZlwWlLMvBm uTD+tHhpp7yrLATclJRkaRXG435X5Cx8ZKDUTsJAYVYY3/m7g631gzRUaQ3n R87T/E2iKCtfaWgkJwj9WhDG3NPfl+7qS0PviPj4p9/C+JDkwvLZUTIsnRW/ fYJJBPNSOvRO8pJhl65Y5jUpEfwwNmunzkMixOwSYSoyFsEfpbr0hUolwNxS JmPcVAS3MU3IX78mAdIxyvqc5iL4vlaIo6+cBBRs/RdpYy2C108ce5L5VBy6 evzEOV1EcGuDuzGjnxjwPZhXsQkSwV8cFv8LdROBgeL13vBQEXx3qp+koSQC qT+ZvQofimAi2VI6ZlkYlMyJFRyPRTB/3lP+vzeFwUjZ5L/CFBHM1dGv8ClQ CKLHPttylNDi47Y0HqgQADOhlh2HykSwo1Oxk3+oAJD+G8i2rhDBFfMCOW+M BeBt4crixzoRzN6S1hb9jR86IuR8rLtE8PyMEeWMBD/woEexH7+LYOaeW3oN T3ghMv5ynRVBFBNqvIQHK7jgpoffdW+yKLaFi3ke17nA0ihR6omMKCa5fVpu 3ckFCqw9N5sVRLFMa216bhgnNNzS2qV6WBRzHi25smHNAQznpIPZjURxk+35 UvN9bDCrgg/IGoviDUHhzr/zrNDObT6mbiqKr0ozNEEWKyTVPzp801IUl3B9 s8uUYYWjhxjnxhxFsWrh2plBGRZwF6Lqf/QXxS56GTkhGtvBfPnf7y8Bovjh f7eqc1i2g2abyIv5YFGsZTpqfr6dGXgDT20QI0XxhDnzhOkFZsj9XZ4d9lwU m/2e+pzvvw1mupPYrd+L4p8VWa/qJhjBLMailX1aFD8b/Mh9m44exN+xijnN ieKQniMnNDvoYOTLR7uG76I4V1FfNziNDi5x8dIHrIjiF/sEPH306cA5pFZ5 i14MO1IMiqZVt5Cf796ni+Ji+EZf7ixL5l+kmTQ0eYIghl8WHbvWf+4v2l4W rJRLFsPp9yUjb7H/RWEb402O8mL4vzk+EfKNDRTrEbc5riqG3TPu2o4Z/EGv rtBf6jGiMZ3jxHHSGroSmvtGxUQMD5ccYFQaXUWKWef/RZ8TwzUGo2oNiavo 7fT72BMXxXDSdrcaRslVVGrt2FB/VQxPH3hXcVP6N2o37VQsCRLDxZf8Ob6e WEFrmunrSWViWNYojfmRwCLyLknyr64Qw58PDfo9mv2J6JTiOWarxfBIOywx lP1E26UiiEpNYljryrK9vP1PJLjuqVfdK4b7V67+/Ou3gJRfGzyd+SmGmywr vN9yfkcfyDpkjhUxvD2V5ePzqnl0JF799f5VMTy5bkKvdWseHQs8WHH7nxjm 1zK4Xj/1DZ20Isyys4pj2VJXH/vGOeQssHJoP1kcL6aq5ga9nUFLoT8qjWXE cevbJp5712aQO8OswW05cbzpaCUtrjyDvBeGL1btFaft17xsKh+mUWhDXZDx UXH8b/xeyueqKZR551nfLWNxbKOoybv2ZwKNTx7zrAwUx/v+fFtSaR9Dx5Ja U+VDxXHkH4EDvQljKNnUrCX6oTh2+/tGetuVMWTZ5EayeSyOhRWrpTdZxtDA m+RmxhfiWGHzj8JRg1HU4bVJ0CoTxxM2w8lWX4bR/gMhx19XiGPrRZYjDd7D KPKHgIdAjTheFsCnxeWGkaHVnqbJJnF876g5s9f9IdSobe4e0C+Os/eZTXRr DaJKnuKGuhVxHKguJrT0sw8Rm7RW9q6J49fqKbzLr/qQ7/0vknEb4nhdR9W1 2KYPodWZ6/YMEjjB1nroUX8vKh4SkmThlsAn9nH4qLb2oLcZ7tf0d0tg+ltZ Q/79XYjHij7hraIE9rgR+3AtoQu5iobXiSpJ4Be5osBv04UUw9PEvx2SwHk2 pe6HFzpR1rXO2lBtCVzRfe8QK1cnSqXsF2uxksC9uXRyBk5fUKUhq//GJQl8 UM05+/XRL4h6YXxOzp7m36n4czDnF0T2e1wc4CyBDzf35ue8a0dptevnsJcE Tq4rXfZibEfpJyrj3sVI4L1KdjMeri2o9uIzOuoTCbyew6vlRmxBU2437Lmf SWClqGb+o53NSCZG5tDVFAn8beLGyyOHm9HLvpBemVyafS/XbApnE8q0Oi0Y XyeBd3wDW/PhelR/TcGnvlECXxXtCr0SX49m/LdN/W6RwDBxpHePaT3a9fLj +9NdElhVayq/tLsOvZoTM+YYk8BD1sZ6A321KOv6xCPfPxLYcqt26em/avT6 gTuP3R5JfNHrjfbuDxVo/qiF34N9kvhWQSSbbGAFUljRXH6hLInTftPHJphW oCxr/u7Rw5K4a+AP3++/5SgT3sWZaUtit2fsrMrHy1Ha+k8pwwuSeKp3PeTt +ic08aYv8oq1JDbbpjIw8+oTItuX04faSuKRH2Lkn2afUGpPxHidkyQ+tXJH 3eFzKUp6p5ih7imJya8jlJqjSlD81SuKB6Ikccf89uSnZkVoQPpM0ukYSfxq S7nrh2AREhlS4772RBLvlvnd8KuzEMXpsy3lJkjitRK+Lp6TheixbNb7XVmS 2LW8zejUyY8ocmz6qHiVJF6PZa247vIeBRrbHGf8JYnDnSMqj0u8Raknhsxt 1yRxxEdSVPxMPirVM3au25DEx31bjXwL8tESRScqlEEKp1ys4mI1zEfmMrt7 +bil8KHvPtyzgW+Q0uqStfRuKSx11lFuUT4X/bfodCNAUQpvb8znWOp4jey/ TTyY2S+FqV2E1gWv1yhhpCcz55AUZur4r6KnPQftqC/+oaIthbWfeykyB2Sj r3F+t7WspPDA8yHTFLFXaD16IzTjkhS+eaTTbX9HJuIPv5HAYi+FW4ovKj8O zkR69y6XtzhL4eHuByatfzJQgYM+s4m3FH7ViHnrpl6ikCO80ZefSOG4Wc57 U9Q0lK4S+qI+XgqLaammp6enoXJFpvfyiVI4oI9zQMAhDf0i/e79kSZF25cL n9MvvUAX2QYkbr6VwnKpo7XtbC/QgaGUV4EtNP95eUtvLFIQt6L9Wl67FA7L UhpmVExB83cVdfo6pXBbeV9n72YySiOXTOwakML+4t3B/1KSEb9Tl1TjlBRu Wn379uBQEvrjzXicmY6AC5yEVdkOJ6CZ9MvX4ukJeKPzMjFp5jnqaW14qshI wNtjrE5wPH2O3hIiZ0yYCfhwrcsFl7/PkGO1eEAGOwGzWYhusLXEo362gxW6 IgSMLjAdr3sUh2pVns4MiRJwc+TQxz8n4lCBxV8uN3ECrjizkjLFHoci8yot n0oR8FiK0eHRoCdI9/SJv7M7CdjXYSJxZ3AsKoy3Vw1VImBDFZNY61cx6GVV k6WUCgGXO10axK4xKGZeMeDdAQKet/z8r1g1BrmiX12DhwjYZ0zwtHf9I7SL eu+aAhDw21/kO8yL0ShO7tnrluMETH0WZThqHoVWlrXT/f8jYO/yN37lu6LQ ibKl54dPEPC2/X1ktV+RiPm0fli6EQGHt6y9XIuIRO7e6453zhFwy+8Thxvi IpBR29lde+wIeCaeeVPycxjKfcpIGLcn4K6Z7KJn9mGI5VKe0FNHAn5etddD hC8Mla8xb9/mTMCONoKH2J1C0V7Sh8mhGwR8769hso9MCGJ3538R5kfA+i+/ R+1tCET2UB5/7D4Bq61a3L56LxBVsVyJXntAwHV/nhHuHQlEtxOr7l0Kpul7 vfCrVF4Amq27dvFoJAEr5/krr6U8QLWiXyTmEwiYWWyEgS/HH5EmvQVSkwj4 Dv/43ceu/uhO3i4O0xQCTv+tldFwwB+paPr+rUoj4CGp3y2o0g+lXt07+Cyb gO8/mH4jPX4P3S0PjzteRIvH/QC7soYvmhsuj1kvJuDWh9YCzby+yGRjOTKj lIBD1Te6p2ruIoWDZsGM5bR4zueJtrDcRX3ZMrdLaglYb+qosW3iHaT05PP5 3V0E/NO1QZ64dhslFCyd7e8mYNe+xrOvM26jHR07zwT2EjBBkpAqY3objbCH GYwPEPCHWPX27pJbKMzPlPJsjICVfPfvGA73RFNXFyXZFgh4+rVMlZmZBzoV Ki1W9JOAMyJcuh8IeaDSzLNCdksEXFN5zNyj2x09Gv/EVfWLgOkUJ1oTT7sj fC6Ezusvrb90IsbaTG+geE0ydY6FiJcdg+oG719D26xNvsaxEbF2sTLV4r9r yPVu8IA2BxGf8tk0vi94DekUL3SkchMxPDzV/CHLDa3sLa0yEyLiNjHyR58B V/SfmHF6ozQR31dyIpJznFHchGL5eRki7rxnzqxo4owmXu8YnJclYsLaEocs vTPyxqXcXLuJWCQEW/afu4pybMnep/cT8Y55Edd1gSuI9c2i0RCFiOs61Qy5 Pzogk1tNV68CEce9vRE04OyAUo+lB21iIlZgzIWrsg7ocLdpGUGTiBOCFx6N x9sj+z+f5Wz1afnEy0n0h9ihOs2HdD9MiPjk78NHpcNtES+nvdhdUyJ23zAc 9j1piyx71Q9ymxHxp8sPVQP4bdFvh19OShZEzHDJe9g/8RKSiTDv9bAh4kCr fnuRYht0v18+d8uFiG9sNhbu47RG7alMDZFuRKzyZ+KH3qAVEr/ydZx4nYgr 9n7jW8y0Qu82o0Q0PYhY/m8b77iWFaKS1+8HeRPxkZREkkLARaTuXHeeJ5im p2MyLxlZoj99s9rVIURs09FbHD5mgQo02JVuhhGx6ubhGu4ACyQjcmrHcAQR n48v/G7UYY7YqwcKMmOJ2MNbneR88zzqE/nBgdOI2LFQeMfpRVMUfZ97fSmd iH+lsM60ppmi4wtKE+kZRBx6LpdZ+ZwpKqu+WcyWTcRFoaI7X1WfRWku9Ha9 +UTs23wkk+GlCXKt4S93/kzEB7U+sClFnkHy+1SziRW0+lZOq/09eQaNx5+L 7aokYplwl4IA3jPIxDXxypFaIvaePeDd+eQ0Oiq2S4S5hYiZeMcbOLON0A43 tWsJA0T8YhvnNZWlk6hy0MLi5BARZ1e1UBjKTiIvbV9dxq9EbN9jKucSchL9 EKuRdBgj4hqdj1OSO0+irlrDJpUZWr33On/WqjJESeLW0s2/aPU26Wp0/HYc HVHerWi9SssPcM3P+OOoS29FdW2NiIPXWi6aHz+OdtwMOC79l4j/5tpYD+Tq I9cvWde8GUh4Y2nVTsFXD+GA5XIFLhLumoy1FtDXQQPPSxsruUm4wu9rXBez Drrx7kGXKS8JTzSKCZ6p1kaZo0Iz9wVIOErC6kqoujbiUTvKNSxGwp7H9e6l aGoh6sJ9i/BdJFx7SuHdaycN5M1saEeWJ2FG+wt0d5U1kKCEkFvRbhKukeNG ixvHkL7+q/uTiiSsdPC+S/7DY+htWks25QAJi5qf3XIpUUf+5wT/fFcnYWP/ 8xKu+zCSdB1hvK9Bwt0/HPc/oMeoMCCTQ1SLhM9/5hlSfwlo/t0RorYuCRN5 F3uaFxA6w3lBN9GQhFN9TY3oIyhIuioj1vA8Cf/b3tDktnEEtSqspQ2Zk3AG h6NOWu4R5Bmr+87RkoTvE/87nmd9BDU5zLYFWJFwkVXdPa2Ww+ga926Wz3Yk nGJTulsp5xD6bJHrtfcGCZNfnF0SjziI7Os2gz+5k3Busax/o+FBxLv/RNzx myT8TjSqYg/XQXSZ6WeB3W0S3nudxYIj+gBiz97/I8mXhMWibXv/JKkgs7WC i9zhJMzQX2L8Y0AJMVlvc0l8SMKtNS+P8acrodwm4zsKkTT9JSWjOlyUEH3S 76e6j2h6E5ezebYroUytQ52+T0n4qNWM3pWj+9Gv6BKtxXQSNsj2OePotxcl /mU7czeDhN8QOEq1du1FupfNrTlekfDDndNZhDZF9PzwPx+5HBI+Y5iy2CCl iI6NokKrtyT80pA5LqFZAUXuqZTvKCNhm9XcM/9OyaPMQ+dZ/MpJeNr8qqoy nTz6rLEyvb+Sptc76/VLeXLoxzmZ9KgaEl6i/0R+wy2HjgeESJ1qJuG4r2Wa j77KIuYRI/72fpo+XbUxouk7kcTct6W7gyTM+euke5HVTqTy6/6XvcMkzMNj dHiX1E5kw/bxYcQoCYtXawc4PZdG5apiLCemSfh7q1S4VjIZeUWO/2tZIeGC sodB6k1EFP3Me+jObxL2d7idVf2IiLJeCpTsWaPlf454atmciPpKdTzDN0hY +rvKpv4iAR2czV4yYCDjHW/D5rKJBPRT/cZ0ExcZb+/hIXCDBNrxH0etFw8Z g354d8G4OJIyfZm2m4+MPz+uu3EjWBwZOvdZhQqSsb/qr7mDfWIoO/7okL4E Gcfucte74ieKLi8zfWmQJ+MmutWobmZhZJml2WquQMZmeV4uGeVCyMTqftPC HjKmu7M9XNNLCGm3MdYK7Cfjgc/1br1Lgkgmm6HESpWMn+h7ZhO/CaBJa7r0 dQ0yDt06ft1xkw8NieDUMC0yPvG+Om6+ig91td9NktIhYwr/3BXhED5Ujbae aumTMUdeUKCtMB9KE918GHWSjCutn/qkHOVFlzo2POUsyLhWb+9BnlRuZB6s 5lFqScZZMgr8xm7c6Az2un7iIhnb35t5KKPOjTRz/1x1tyHjzqXOrd5qLiQd sm5d4UDG9P+upGSZcKJx9VWDcx5kbCXsMJSRxYYG1g7qz98k4/UPRWye59hQ R56Hzt1bZHza+E2ACgsbqpT4rZ7uTcbf77qX2zmxotT1lYOLfmQ8Rc8W4XyE BVnnLxGCI8hY/DJ/UxvddlTP4vWDEkXGd9uIAtEfmdEea8bSpWgyZmFkz1dz YUZrvPxnzWPJmO2CXuzhsW0o4saB8L0JZOzQ+5LhURsTKlX1XO/OImNdB6Wd Lp0MiBRJVxeSQ8bSz9oCbZ8woMCZoBjIJeOH1IwhEXMGZPT06d5X+WS8pcku 8G6aHs38Kbb1LiTj8uuTpvbb6ZFA2b8vpFpav0w93Vxq2aTcFgxI6q0j49S5 hrlwp03KqDPn1bAGMt4oq8++yLpJyZGS2vG7mYy/xrvbJx7/Rzl2D6OGTjI+ HNz9gHdog+Ks6Z/lMkbG7bmSeuX71yldz9k8pcdp+cQIqcuMrVEO/3qk1T9B xh8dpIXDotYoTC/TRo/NkHFpzZFe/V+rlGfbawUFF8h48r8qKqr/Talv3OFf +peM9+6XFLn2dIVyRWMssoHGgp+WODyerFC4S4sSe2j8+amp8u3HKxTT147F P2msNlDD5R+1QpmOaF6U/kfGLzLSOZ8Er1CYjSMvhtPY2sSdUH9rhaIxIoQs N2n9WnzshqHZCmXq7M/jTjS+vWBxzdR0hRLSXn/Ok8ZqyzeTrU1WKB0Vt9yj aTyvEht202iFYp02mFNL49hTf1+80F+h+Dokie3dIuNvfe5NTGorFGnqTbmj NHYZNq/jObxCqTc7qapHY3WBP0uSqrT4DehP29CYg1mr/7DyCiVJ0SbkCY13 mCeOue1eoRzLUItLo/Ff20IzXzlafFL8L/Np/OLOJcYI2RWKIk9NRRONXZsv jueQafEFJ7T10fjQVoZoKXGF4sHgMTxJ44+qLveapFYool6G35Zo/HAlX2hQ YoVStiyzvkVj5/dOw3NiK5T/AYeqBrw= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{0, 0}, Frame->True, PlotRange->{{0, 10}, {0., 0.5825639344975858}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {189., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13c8l98XAPDPIis7yR4ZIYpSRp2jSBRJ9sooq6L6loZCKaREJYkiJVFR mlZCykx2xmfJzJ4h4ff8/npe79d5Xq97n3PPfc698p6B1ocpJBJJm0wi/f+p s5jtfGu6Hk76BIQ1Km7ATbdaDnu+aADPeT6fEiMtDK3WMN94sAk2+9pKGS1p YGbuR+UXd5ugXfWcKCtfAxsTd1CVaptgRTbd0DVIA9f6OBSJ6zXDQNZR98kJ daymXtEkibQAr+R0idmUGopt6xT+8a0V/DiKHRek1iGu9R7bvdgKn/qXhd/1 qqIf70RNmc5P2Lo5k6b5ShWL2jmvfnj0E64Wbm5yNVZFzyDt2Yfn26BVImoo 6IwK5ry61nlUswPaLFWCGUtKOCg8eMPcowMqkVWQ2aKEKkHm21XjOyBZTDCG nK2Ejwx507rnO+Cni1eyrasS3q664e30tRPGOsOMnMvXYlB37ISpCwMO9UuW Bj9XxDe7xh8rxTKgSExb1OuaIo5lWdlQyxiQ0Ev/UuyriL7HhT4WqzDhk9WZ oVpVRXRavH1h8xQTVHsDt4nnKGAqb024kAkb1plNz3PXyuP2bcEuYW5sYAWu pZzPlUd6gPrmsTNsyJ+gbTS5J4/ijdf7ap+zoWjG9X2flzzeStxrFiXYBQ6R cvpqZHkMV6rjX+7sgqciR42szeXQBxruD5/shuYuHWHrRWkkPf5T0Hm9G4yZ vLqrf0hjIk2KXp3eDY5VTdt00qSxsspbJqu1G0wVL785tksaVW3+PT6s3wPb R0KN6PFSOOCr8pJJ7oVBoa2hckaS6H/7YnF9XB+Uu7t8MWsSR8rMY9bnrD4I xwMqDTnimGRfSXpV1gfV31/pPYwWx2opkZ0x033QnDmgQN4pjurPMivMHPqh 2SdMfODDahwubKovkx2APqOwNW+fi2FA77rudzm/oUk1vMioWBTZbu1cpVW/ 4ckJQc7GFFE80Bal+b3nNyjI8z59GCqKW2v6z/VKDIKR6pWFbiNRpOY+FRSL HAQ3qtI78SoRTLwgv/3MwSHwfjJ8NJ8pjKUia+7rCY4A07FHv0dcCDfFVBab qI8A1XJFhMCSIGZwnu3Zv2sENlXIuft0C+KN+VYt/wsjEK3z9nlyjiDaseK/ JQ2MQP/B/AV+U0EcfC44vVAyCly1tVixzI888ldUWFvHQVffUKJQhg8rDW9p hZiMwy6z5J8r//BihEPKFmnrcci9vkc49TsvUuLyTJ2PjMPZfy36wRd58e/S sM/Ph+PAqOafXcnmwSG6beYPygRcpU4K6L/mxtpElXUltROQfNJh+/PTKzD6 3aaNB9snQK3xdNWC9QrcXW+kt9Q7AXZ29B8hG1Zg+QoXM8PlCTCzlTwhPsyJ RUFxfnkbJ0FuKGT2zmFOzLaZz3qdMAnHPavTgz048KZgjVqa+xSwmV1c0cFU zN8i/d4yYAp0gr6Nb3ahYo9bIPwLngLXOwL1ItuoaJAtYmN/bwpmkOR8aJmC A2YuF1fWTUHS3dwRqwgK7gwf+XHOYBpCIjk8JB6ScW5G4LS12Ax4717IorQv g6K05/Ky4gxseIzWFU+XwdL43bXsjTPQpei6l3lyGZ7edkjhspiBEM+LFDL/ MlhrpVUUh8+Aj9KKlTy7lyDbV1tCfWIGbESDy+HrP/DstPlMrf0DHS0v7P9O zwNPctexE+1/gGf8jYx8zTy8cQqQYvX9gbvbOm5eT5sHakfkuQLyLFCirLeq 7ZuH9LYCnRNbZmFvoJ9VRPYc9LXIZTIfz0Kw1vr7QUGz4F8/HJd/bg5+vJ94 KbtlBoTjzoFK5BzkRx82UVk1AwX7OEfj4+fAeNuOGd+paeD9Ibvn+Ks5iLZa 9r3/ehpefrfmUOmdg5byFUYZ66dhtDrvXLzVPNjfsPyooT0FJ75e8QxU+QsP VLpVH7lNgEzPLs4/On9B4pV68A/jCaihcD+/gH8hmJkqpaY+AUoYM3HN8S80 /HyS7T43Du0Fd8PSr/8F/axdL+vix8HodUZK+9hfyGj+cF7sxRgIJVd27Mxb gCLSp/9Yg8NQnB8dUl2+AL86V505UzoMR9r2KuxvWIDzm60UXBKH4euqBj+3 wQVoykrayGM6DOfi2ufOSv0DWhgrePzZEHRdHRTLCfsHK9eNkx+dGYTc43wH xM0WQf2Jz6DL3gGoTRI5l223CHmrVoPuOmKfl0uk7ji0CBIJnrOunAMgsWbd 0NHQRYj9bvUvobQfrpSahJe+X4R4PXbRW/1+sBMOfeuvsAROL1cu2+r1wXHD iPZlrSUIEOh6cVaiD6K9Y5bjty2B6HLlp56FXvhckLzns8MSCJzqmL33uRdU vfK6RWKXIMJYVszLvBf+vp0Q+bSwBK6LfFcsj/WAKHNOz5p7GaJ2p8b3WfeA JhfJvV9sGeTYthlftvaAlwv/SyHtZYjp0Xm3h6MHamnqxt6+RLyxrvp6Wjek 2B46JdCyDKuKXY7e7PsFeaFHktJ/LcP8aFaabf0vIm8nS/TGiTrXUD/lWvAL aKHI+YaDhCaF33+uj/0FW5ssrelyJAwpyhmsMvgFacFHBjfYk/BRZVFF7qMu 2FDCPRfpSkIX+s1L92K7oISWycHyIuGD2qnC3JAuYMf0yMUcJ6G+Vfv3y65d IPPI1f73NRLm7qhUuiXdBUnl+8rTikgYWc1+ovGMDWrcow1zZSQsN7zwAO4T fcbiBmtfFQlfl+qGh19nQ1tr5d/FFhIGll15Z3CcDWK/jTY6jZHwLUtrId2A DbdXbkoRViCjI8gIFn9ggYJ14ws/VTIaUfVf73/EgtyE4/klmmT8V57QYBTN gnrZ7OYAAzLKjiRb6B5kAb+2Mm+NDRmXQ27J+6xkQUpQubiCMxl12SfKWuaZ sL7QU/mcBxm/3U3fl9LHhL3GqUYqAWRUyrrWY1DKhGg78bPhkWQskRUYSz3P BInkD1c7Ysh4qnH772Y/JmSxbO5sjCcj54ZGfQ9HJlT63sphPSLjQsLL+yF6 TOAM5uk1KCAjx5dhwy+LRN/+nDl5u4SMh4L/DGSNMUCJZkoa/EZG5c2n7Xu7 GGAcEy6Z2ERGXgenjY4VDLic+m//9DAZ9XjCfqgnMMBqQ94J9SkyxvEH3h6I ZoBM6X+3POfJuC29y2o6lAEFvwbr6zkoWOMzHzXrz4Co/zLGV/BRsCxy0nvU nQF2NE9BEKbgdunV3Dr2DJhUat+XLUPBiRvRnunGDCj5EB/Ys5aC6Lg+pN6A ATdNrWIl1QmHPlE202GAml9F3bUtFIwsyu2TUWSA58v3Ft5WFDysN5J6gJMB G7adOPbQjoIRgmUpnct0WPquEdPsQsF33AWF2fN0SBp7UrvDj4LeuwrFtUbp 4Bt2cPhcIAUpF8Q/MQbooCskyZd7moJtH3F3SzcdGrVv75G9TMFDykmdDzvo 8OiLxRG7KApu2CO7O6CVDgE23NdjbhLjO60+FNFIB8Pe8ufl8RQUsHjZ1VtH B56gsOqFJApuleL670YNHdo4DQe10yg4VGJTfa6SDhn3Zrn9n1FQd1PR/eyv dDil+nZdWjYFFQJ976h8oYNRfoBZ21sKFvqH+/WX0IHfXM1PoICCK+W21A0X 04He0Ru1q4SCilHZ/235RIfnR9IyL36jINcDQb6KQjrRZ10q39VSsNIm2iy5 gA67YsQHhhqJfBbetHHOp4OoTPMKxXYKJhQ+kHfLo8OvnFgVJxYFP6xNb0z/ SIfXsMf0Vi8FW7NVNbUIh9Rz+lQOUVCDP+fvvw902OtRFrE8QcGxfx+XVhJx icmLGbpzFLTfWE3yJDxwWe/bsSUKJnr6VswR/iAy05tOo+KQqdiaRmK8K+mv Oeg8VIxItC8aIeZjvfmokogQlTg3vj6zh5i/3DcVE/PVVDzq8ERoqIgOo3bd hy5JU1FZ971VLfH9Rf0pV/IUqUh28VsYJfITfdYpfWwdFTdf2tlmTeTPgVus XHkDFeddKrJnifwqJzV0u+pS8XLG2R0MIv/TajHUu4ZU5F7V6UKtpUPcXtpO qhkVe7eVGQo20cGN8dlTfx8Vs7wtY/8Q660REHz5hC0VjW8lXZLqpENl7GQp y4OKHZWXDir30CFBLqdLzJeKRsZr27h/0+FQrh/ZMoCKzil3eTSIeiM1sbHo PBUv1kx9UCfq8crv4rTzl6goQ5XfeJ2oV27SQ4peFBWnDr8L0CHqWXi9Y/n7 u1Ts/uDA7yrKgHs7tyidekDFtnWxDIYkA6ScVkVoP6FibkOQeQaxH5QiG0xf vabip6r0n3ybGPD84avMYx+pWJ0iePi5IQM038VwaxRT0f/NWf+bJgzY2mVW k1lDRcnUqI+qDgwwNyizfNxHRb7Gd9YpYQyo2//olfsIFe+wBBJ9rjPggG+I oOw0FYVhkfs08T9wuavfmEym4ZPFdgvnbAYEjL2xvStFw7GiTAsLJgPuPHni EmVNwxFPjtGIvUwQL7j0aZcjDVPfWN067syEB/UHZTjcacgV7FR9358JGYuS 7EvHaFgWOv0z6xoT8uzjvYKjaBjzYJ9jXjUT6LxX/QOKaWi9g++9pQML3BW8 ajS+0vAY8pgJHGFB71YjjaEaGnIzJzt5QlgwenhxxKedhlMjITPr01lALjl9 wmOahgc6dppITrFA+ZT3WRs1Dnx4ZVSz1YIN6/VZB1I3cOD7/KNDsg5s2ERy 0BrU5UCZG2GNlzzZsOOGWV/oTg7kPfSyIoa4t7ila9i8cOHASLdh9pfHbEho ntSixHJgbGDV4buLbODYHNr/aooDLW/+DNAu7wK+hdmyv/NEPCHrsl1DFwiX Hk8xIXHihVUaC7HMLpCz8LTt5OPEmMarpTvmu8DwsMkXTmVOzK3w0n2q9QtO 3eVNdXXgxBuxV+3NH/2Cnpl7dryfOHFBHtefj+uGx0Y6/zG+cOLo1ss8J4h+ fTCmLvZVNSfixdPfLr7pho61HFUH2jixTln4yovmbmg4cNLgwRQnppdh/9ya HijO3Su3Xo04VyeFNEVn9sC9Y+RBy3srcKk7RnuuuRfMe/0v3j7Bha7vw8Pd vQdg10XFl8ZnubB52U38WfAA7FhF7/gTwoXmMR6Zi3EDoG9isdX5BheKXXb0 7ygcALWnWlOKz7jQxizMzEr4N/AenvZ9T+fCg7c3PR4p/Q21PRdt2ky58bxP T7+t+hBY9sSpy8jwYHSf9md+lVEY/OIZVpnNizmDXtgqPgmaQq3SOw+uxJTz 9gsLT2eAB2Y86FP8eNLEht9DZR5MR5xmFWwFka8ti/pqzSK0lR0iO2kIod6p q2zRaBK+jyp3k5sRQrpdl9TIUaIvcJxm19UJY15of6TfRRp6nQx+z5ckghxr lhlLRzlRy0e9bq+HKB588EqVeoALfwhr8J7WW4X9NMn4RnceLMy5nKxBFUNg m/z4t5sPg8lqVrUMMZRmvuG2siPuS/TzuwPerUaaRl5nhpog9mbIx6deEEfd O54b/MSEMF51DS3fdg3mnMhoaREWxrgk7woPOQlsTOhct/RXGJ3iXev4+iXw UtjJjsEOEZwzfjqfWiyJ5GfMvY5Votjdu+NsWaQUlujkHZN5sgofb9so+d1D GrU6A02Tr4lh9tXTQj7rZfCl+UdXJefVGGnrtYc6I4MFP596/VQQx830tKzI 77KYHcw7fXtaHBPXJWd/3yOH1zt3VgbmrsHQkpjEPflyKKfzNUwmSAItJG2f Vq+VxyV1fe1MTUk0CqhwFromj04GzPX5jZKYKuW5tnZGHqXPGEbYB0vh2i/P EiydFTDv4CbpFAFpjFtfptZYrICU3a22pERp9J6iNVSpKSImqfqekZdBz9xJ uWuxiqg5T2KeuieDldVc4UX/FLHb84VYFq8sHt3ZFVdF+NLRQoMPhAWL8lNa Cf9Uf+j+hbBDtn/BOOHq6pYsBuH+2NqJtYuKGB0uqS/MJ4uctnHuMYTjcub2 BxPeyVq93W1JEY84z7lZrJTFPvvxPUcIP8jeHuJEOLq+0vEsYZ8cu4c+hBtL z52+TZhZsNBxibBneufLb4TXzK+x+UA4zC9VUmuZmE9bxjZZfllc++vMOkPC X+dXOGkQrnSy2mJGuPCrfpAeYcG95ANe/3/fdVXOAcKpml7R9wjfiUqRjCK8 45lBYjrh4IUbuncJ98mKZuQSfrzaYv9jwppCX0trCFeZ74goItx47eGPNsJ2 HmceVREOogQxeglvlwspaCUsEWw5NEnYNNKuuZtw8ZTyPHFBRb0E0ug44f8B FQTqnQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{0, 0}, Frame->True, PlotRange->{{0, 10}, {0., 16.13993075080311}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {189., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{3.4183898358550396`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4183898572858553`*^9, 3.4183898878798475`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.44866822717595`", ",", RowBox[{"{", RowBox[{"\[Theta]0", "\[Rule]", "2.365876104225836`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.41838989050362*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"est\[Theta]exact", "=", RowBox[{"\[Theta]0", "/.", RowBox[{ RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "2"}], "}"}]}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.418390768816572*^9, 3.4183908003619328`*^9}}], Cell[BoxData["2.365876104225836`"], "Output", CellChangeTimes->{{3.4183907888253436`*^9, 3.4183908016938477`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"hh", "=", "2.5"}], ";", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], "\[Equal]", "hh"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.418389153583982*^9, 3.418389201232497*^9}, { 3.418389314635563*^9, 3.418389319172086*^9}, {3.4183895053297677`*^9, 3.4183895115386953`*^9}, {3.4183899385226684`*^9, 3.418389945602849*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\[Theta]0", "\[Rule]", "1.1971979623614908`"}], "}"}]], "Output", CellChangeTimes->{3.418389946574246*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"corte1", "[", "h_", "]"}], ":=", RowBox[{"\[Theta]0", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], "\[Equal]", "h"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"corte1", "[", "2", "]"}]}], "Input", CellChangeTimes->{{3.4183899663126287`*^9, 3.418390028572153*^9}}], Cell[BoxData["1.3154223792470714`"], "Output", CellChangeTimes->{3.418390029423377*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"corte2", "[", "h_", "]"}], ":=", RowBox[{"\[Theta]0", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], "\[Equal]", "h"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "2", ",", "5"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"corte2", "[", "2", "]"}]}], "Input", CellChangeTimes->{{3.4183900405994473`*^9, 3.4183900574737115`*^9}}], Cell[BoxData["4.236749554990002`"], "Output", CellChangeTimes->{3.418390058234806*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"prob", "[", "h_", "]"}], ":=", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"post", "[", RowBox[{"\[Theta]", ",", "nn", ",", "tt"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", RowBox[{"corte1", "[", "h", "]"}], ",", RowBox[{"corte2", "[", "h", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"prob", "[", "2", "]"}]}], "Input", CellChangeTimes->{{3.4183900647641945`*^9, 3.418390148985299*^9}}], Cell[BoxData["0.9534679143320199`"], "Output", CellChangeTimes->{{3.4183901425159965`*^9, 3.418390149726364*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pp", "=", "0.95"}], ";", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"prob", "[", "h", "]"}], "\[Equal]", "pp"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "3"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4183901748524942`*^9, 3.418390251342481*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"h", "\[Rule]", "1.9537351230136404`"}], "}"}]], "Output", CellChangeTimes->{3.4183902172734923`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"cut", "[", "p_", "]"}], ":=", RowBox[{"h", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"prob", "[", "h", "]"}], "\[Equal]", "p"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "3"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hh", "=", RowBox[{"cut", "[", "pp", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"hh", ",", RowBox[{"corte1", "[", "hh", "]"}], ",", RowBox[{"corte2", "[", "hh", "]"}]}], "}"}]}], "Input", CellChangeTimes->{{3.418390263930582*^9, 3.4183903639143515`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9537351230136404`", ",", "1.3278206397347656`", ",", "4.197768184097069`"}], "}"}]], "Output", CellChangeTimes->{3.4183903189496956`*^9, 3.4183903650359645`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Soluci\[OAcute]n aproximada\ \>", "Subsubtitle", CellChangeTimes->{{3.4183905354510093`*^9, 3.418390550112091*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ FractionBox["1", "\[Theta]"], ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.418390553867491*^9, 3.4183905690593357`*^9}}], Cell[BoxData[ RowBox[{"Log", "[", "\[Theta]", "]"}]], "Output", CellChangeTimes->{3.4183905699105597`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"phi", "[", "\[Theta]_", "]"}], ":=", RowBox[{"Log", "[", "\[Theta]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"theta", "[", "\[Phi]_", "]"}], ":=", RowBox[{"Exp", "[", "\[Phi]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.41839057541848*^9, 3.418390628004094*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"est\[Phi]", "=", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"phi", "[", "\[Theta]", "]"}], RowBox[{"post", "[", RowBox[{"\[Theta]", ",", "nn", ",", "tt"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4183906417839084`*^9, 3.418390685656995*^9}}], Cell[BoxData["0.8575164601184012`"], "Output", CellChangeTimes->{3.4183906886513004`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"est\[Theta]app", "=", RowBox[{"theta", "[", "est\[Phi]", "]"}]}]], "Input", CellChangeTimes->{{3.4183906914353037`*^9, 3.418390709000561*^9}, { 3.418390829143318*^9, 3.418390829644038*^9}}], Cell[BoxData["2.357298971799325`"], "Output", CellChangeTimes->{3.418390711153657*^9, 3.4183908308557806`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"est\[Theta]exact", ",", " ", "est\[Theta]app"}], "}"}]], "Input", CellChangeTimes->{{3.4183908086438413`*^9, 3.41839083369987*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2.365876104225836`", ",", "2.357298971799325`"}], "}"}]], "Output",\ CellChangeTimes->{3.4183908345010223`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"nq", "[", "p_", "]"}], ":=", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "p"}], ")"}], "/", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"nq", "[", "0.95", "]"}]}], "Input", CellChangeTimes->{{3.418390863102148*^9, 3.4183909115518155`*^9}}], Cell[BoxData["1.9599639845400538`"], "Output", CellChangeTimes->{3.4183909132442493`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reg\[Phi]", "=", RowBox[{"{", RowBox[{ RowBox[{"est\[Phi]", "-", FractionBox[ RowBox[{"nq", "[", "pp", "]"}], SqrtBox["nn"]]}], ",", RowBox[{"est\[Phi]", "+", FractionBox[ RowBox[{"nq", "[", "pp", "]"}], SqrtBox["nn"]]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4183909315205293`*^9, 3.41839099868711*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.29172359308031537`", ",", "1.423309327156487`"}], "}"}]], "Output", CellChangeTimes->{{3.4183909731804333`*^9, 3.4183909993480606`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reg\[Theta]", "=", RowBox[{"theta", "[", "reg\[Phi]", "]"}]}]], "Input", CellChangeTimes->{{3.4183909764150844`*^9, 3.418390990074726*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.3387329314485958`", ",", "4.150834204424383`"}], "}"}]], "Output",\ CellChangeTimes->{{3.4183909914667273`*^9, 3.418391001671401*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"corte1", "[", "hh", "]"}], ",", RowBox[{"corte2", "[", "hh", "]"}]}], "}"}], ",", "reg\[Theta]"}], "}"}]], "Input", CellChangeTimes->{{3.4183910180349307`*^9, 3.4183910423999662`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.3278206397347656`", ",", "4.197768184097069`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.3387329314485958`", ",", "4.150834204424383`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4183910434915357`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Caso Uniforme\ \>", "Subtitle", CellChangeTimes->{{3.4183904620053997`*^9, 3.418390467293003*^9}, { 3.418391095155825*^9, 3.418391098009929*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"UniformDistribution", "[", RowBox[{"0", ",", "\[Theta]"}], "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.418387581974118*^9, 3.418387653697251*^9}, { 3.418391103127288*^9, 3.418391111389168*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UniformDistribution", "::", "\<\"minmax\"\>"}], RowBox[{ ":", " "}], "\<\"The syntax UniformDistribution[min, max] is deprecated. \ Use UniformDistribution[{min, max}] instead. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/UniformDistribution\\\", ButtonNote -> \ \\\"UniformDistribution::minmax\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.418391118339161*^9}], Cell[BoxData[ RowBox[{"\[Piecewise]", GridBox[{ { FractionBox["1", "\[Theta]"], RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "\[Theta]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output", CellChangeTimes->{{3.418387638084801*^9, 3.418387655079238*^9}, 3.4183911188198524`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"model", "[", RowBox[{"x_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "\[Theta]"}], ",", FractionBox["1", "\[Theta]"], ",", "0"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4183876578532267`*^9, 3.4183876847018332`*^9}, { 3.4183887802271214`*^9, 3.418388818381985*^9}, {3.4183890241078043`*^9, 3.4183890290449038`*^9}, {3.4183911467600284`*^9, 3.418391176663027*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"k", "[", RowBox[{"\[Theta]1_", ",", "\[Theta]2_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"\[Theta]2", "<", "\[Theta]1"}], ",", RowBox[{"Log", "[", FractionBox["\[Theta]1", "\[Theta]2"], "]"}], ",", "\[Infinity]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Theta]1_", ",", "\[Theta]2_"}], "]"}], ":=", RowBox[{"Min", "[", RowBox[{ RowBox[{"k", "[", RowBox[{"\[Theta]2", ",", "\[Theta]1"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"\[Theta]1", ",", "\[Theta]2"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Timing", "[", RowBox[{"\[Delta]", "[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4183877075847373`*^9, 3.418387918027339*^9}, 3.4183880098393583`*^9, 3.418388849977417*^9, {3.418391189080883*^9, 3.4183911892711563`*^9}, {3.4183912239209805`*^9, 3.418391346587366*^9}, { 3.418391384612043*^9, 3.418391392273059*^9}, {3.4183914474423885`*^9, 3.4183914596699705`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"3.985700658404312`*^-14", ",", RowBox[{"Log", "[", "2", "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.4183879109371433`*^9, 3.418388036607849*^9, {3.418388822758278*^9, 3.418388851048958*^9}, 3.418389032740217*^9, 3.418391196591683*^9, 3.4183913936149883`*^9, {3.4183914512979326`*^9, 3.4183914607214828`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[Theta]\[Theta]", "=", "2"}], ";", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Theta]0", ",", "\[Theta]\[Theta]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.4183879220731564`*^9, 3.418387964684428*^9}, { 3.4183880498769293`*^9, 3.4183880774966445`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Hk01P0XB/CZsSsVWUoIQwYPhSKR+6GeFpVqyJIWUpQlUUrySOGRbSqe QhIJSZI9+zKRXUa2kDCWjH2sM4z5fX9/3PM+r3Puue//rsIVd/I1Ag6HK8Tm /5nIXJXf0V0AUkIibekDguhu1bnUrQsFUHLLPKCiUxBNTk1ZfwwqBI+nSNb2 tCDqOiJX3pNWArIEPeF6awEkdtE5OtWjFJoGey4H7hRAJ28X3PI8UAZppKKQ ljF+RE0wIwo3lQPNrOBBqS8/svKF6tfLlcDnvSFDpIAP3QkeySJcqALPUAN9 42A+FBkZFn+9sgpUY5Xc/W34UFNa1929IVSop2XXz+P4kEmHu2qTdDX0Memx ked5kd2AhKT2w2rIeIHrwOvwon8mSggx9Gr40D4spLWRFxXiBfscMmrgsHe+ Tm4lD9LUTKSsHqwFamFKzgstHrQ9uHVezb4BDor7R5poEtABuzd1hJYGiK1J oQWIENB5fdf4ngONYGF4hnNsCo9eTQgcDRVvgtRN0zNmmXgkfQZejdc2A2st mjW4D48oG63kLaJbgXeE1+2aNQ7JscqEK5tb4RNN/RzZCIcyR5QW1XlpQPO2 I0Up4VBLObOex4MGWcaecVuGubDJg3I717QNSl7Of5FQ4MLTjppvYus/QIeU /9dsHgfkqX9l++1th38SJs3iQziQlRkVx3DGXK/xb/klDrQG29+idrWDpPeB NHNhDmw5wNnumd0B/TQaPcRxDZ692etGu9oFM8cTt1/VWoXnTu+2PmvsgS6L Qycu8LGgUP5uhd16D7hQRFUUxlZg4OcxFy2tXvj08laBXP0KaJ6cpra97IV7 sV3vKyNWoGGPvqfElT4QXlnsCNm+ArzsltZXK7/giU9iEeXAMhge4XxrixwA XX8THcKbRWhNGpUxyBgAOdekjIigRXDgfvd8VzMAyYhoZuS2CKGFSXJ3Vgbg 8Md/TUUOLsJPtWN3JS4NgvnKL1vL/gW4uzlK2Vp1COo8TtgaqizA525S4K8K Oqi8mKoe+c4EUy/9Q9+66fD9i5p1dQkTRkVNCZ/n6GAkGraz9D0T5E64+PsT hyH41PUzSw+ZEF72yZcYPAzk1dj/KFpMuJ6k7XXDbASM154ckImdA3lXQ8fF vlHY/3p5C/KehVLBU8r9i6MQNUdj9zjOglXKxeFvm8ZArPhx0ZNzs0Dp97sS g8aAz/fxVhmdWVg7U3XJIHkMyDJZNIP+Gejed8Tqkcsf6CEJo572aXjOPX1M hD0OLt+qjZ/3TELmU+dHYhIMoK9/dbQpmoSGnUHFUnsYENuZRz8UMwkEVPyX oiMDDorZNvpZToKnv5KoXhsDSO4KDYHtE2CBZ/20S58A4tTacHQnA7bxJLnk nZ+CIkUUpDP3B87w+NR+ujgLR/6j5vB4jUCg0ZX/jjvPwqCnxsS1CyNQeN/U fuTuLByLruPtPTQC8rPSqzLPZoEaYn6dIzYCM30lmuHUWQgPuti9M2cYKAWc F84qc3B5PMDp6zwdmm88uqoyNwcmhvCaFjAEpq1P8G8D56HcIsdQNfk32Ih0 +hJnlqDyfIRr+tkOuHZig2zucTZMRz72klKvh8dbx8J0LdnQfO/YH73pOkjs pbKLrrChoMoFeWXXQZ+LT3flAzaoZd7QObK/DizCx6NaPrGBmbtxt9HRWjjc XCvMEF2FZ6xuM3fnGlA6Hbgi37MKh9WbFZVqqsBEys4peXQVJO3ZnMywKrD7 bdCpMr8KRLJNjDm5Cl67z+dqblwDinla5vjvShB/dsXd0GgNKpMP10WsVAAv DY1aJa1Bk4vOD4fbpUAnc35QnDlwND13ySkiH6ji/Q/lvTmgBunTrlL5kNhZ rp4TxAGdYSGNtLd5cOG8f0BHIgfSvUbyKwtyodOeR0emiwPm2dte3KFnQ90t ocgPh9Zhn9muGJ+IDEjVZhw0OLsO1ZtY5TvTPkLQQsN406V1MLTN8lL/mg4m 3uHGs/fXwTqVoOzFToOSh5vndLPWgSNwLKXWLQUyKRJnqmW4wKJK8+u1vIbw M0ur59S4sKebG8DdHAfOYl3vx/S44Hnks1woORZUXsZwhc258OAtXZD+8wUk xu/4fDaEC28DhCYU6RHgd3ntPP0lF6RPSGlle4bCRYVf/F7JXJDd6GNZxBMM 0ilvLsVUcKFlPkFLW80fVhwfCqs1cyG8BurRw/vQSbIrKOnhwlImbYj/kyfk MdCVU3+4oP3Iwfl6iRNEZShs+r3IhSx+CeL2vy1AXw9/sRCPQzr9H2+eCzQA Usyc9iNBHNJycdMd4tiBFGtQ0HQzDg22lwz7Bd0E/vNt/WKS2H56WG0Oz11Y LKbm9crgUM2DvsfNVb4wvCM3NJmIQ8ZJ2bwh5Y/g668oXV0tHNp3OXX9mdcT yDEK3MjVw6EL18bFWC1hkJRwZ6gW+9sZX2dq2buegr/9OYrNSRwqo7387TQe CYYjkqO+TjhU11YpNxseC+UVey3a3HBoUohflbAtDtArMlXlDg6p0Tvwvkmv 4fBpyps2fxzaY05npuUnwMkiPivSKxyKwjp9GElwMWKh9kcTdn/QC9e7mgZ+ +9o+qGnj0Q4BRpz+nRyoDIpw617Do9l4BYFd7DL4uss7+EAoDyLjL5PdXtQD jYs3uarPh8bqW6usJNog+iBDIK+RH9nce7cp430nXM/1uNn4UBAtlTaQbh7u hUJVN6dxdWFEMO5OPuH3G6p4a100SjagDxn8zyxjB6FDqnKLvqsImnJZS7jm R4ekp1JVzrjNyB53wjpObQTKdgoIadtuQeMBS79Sh0Zh/F4pW0tbFKXpV3/v 8v0DHgQFZjVbFFHE1AQ7x8eBS+ooMmgXQ6MP3ljyXJ2A8Uf7g/9O2Ip4n3CY +IJJ2NrbEU92FEdPlVf5bRemwKSVGnjISAJpnLUMO4JmoGX5kketgCQyXk6m qu+bhcslppq7hyTR5ndWuk2ts7D74a29rwql0GODmimhq3NwwetvFOO/DSmE 72yk/pkDioCzjI/NdiSsJd3Guc0E2aaD69NEaVRU2yD4Y44JE89OqDoxpFHu IOleyI15qJhLU/patQOlFDXOxIzNw0xgvnJOqAzy3aod32qzAMp5osuBV2VR RxrDkti2AF8kZFsYu+XQFMHI1QEWIeTelWnzZTk0oVr6quz9Ith5Lfcnft+J KCnnxPGSS9DQFu9ceVIe+ae/jz7lswRjhWOnFIvl0abrSZamw0tATGjpCFJW QF94PkWUH18GilzEQE6IArIXTKWqpy7DqsvtH2eXFJDcvBtZUnAFoslax4tt FVGWvvlzd/sVIOuHOyhVKCLXXn+8xpcV2DK9yRGnTkT5kdvDdMVYsGZwYyLl KRFZtIhK2V1jwYTVhHXZGhGZXo8XTC1jwaVTrg4NmE0Md9zPwtxqMuXWhTkE RY4XY87TmHk8h1m9x6XhO2Y/nvkMZQ4RlZKbw1iYxT6zcRTMzXbHRU6Vs2A/ v/CHS+tE1Ke5a8MC5vTV0FwXzGJyDT7rmGXnNpR7Yy4wcmIIVrCA0CfyIxKz o3hEvSzmpmxRzjfMDmLBwUcxX764/exuLhG9sNtLiMPcRn5la4i5wtnFIwXz 4WM7HI9jHkqNG/iMmaQj+8ABs0H+WHk1ZqagQko0Zl11zQfTmK+uv/2cjFn9 myZjBXPXvGJxNmaHKJINTyULSvuVvjdiLqkW0NuGWbM95Wc35inSVIoi5rf1 u4ZHMAdWNIprYBaveD/NxBzy5F2AHuZ/80gsLmbewDtMY8z/A3xdqV4= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0.01, 10}, {0., 3.1097008142688867`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.4183880324318447`*^9, 3.41838808399599*^9, 3.4183889281598377`*^9, 3.418391409407697*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"ParetoDistribution", "[", RowBox[{"\[Tau]", ",", "\[Alpha]"}], "]"}], ",", "\[Theta]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", ">", "0"}], ",", RowBox[{"\[Tau]", ">", "0"}], ",", RowBox[{"\[Theta]", ">", "\[Tau]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4183881899483423`*^9, 3.4183882449273977`*^9}, { 3.4183882934671946`*^9, 3.41838832058619*^9}, {3.4183914874499164`*^9, 3.41839155849207*^9}, {3.418391735576705*^9, 3.418391740213372*^9}}], Cell[BoxData[ RowBox[{"\[Alpha]", " ", SuperscriptBox["\[Theta]", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]"}]], " ", SuperscriptBox["\[Tau]", "\[Alpha]"]}]], "Output", CellChangeTimes->{3.418388247761473*^9, 3.418388323209963*^9, 3.418391525975313*^9, 3.4183915608154106`*^9, 3.4183917429673324`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"pa", "[", RowBox[{"\[Theta]_", ",", "\[Alpha]_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{"\[Alpha]", " ", SuperscriptBox["\[Theta]", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]"}]], " ", SuperscriptBox["\[Tau]", "\[Alpha]"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"post", "[", RowBox[{"\[Theta]_", ",", "n_", ",", "t_"}], "]"}], ":=", RowBox[{"pa", "[", RowBox[{"\[Theta]", ",", "n", ",", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]\[Theta]", "=", "2"}], ";", RowBox[{"nn", "=", "12"}], ";", " ", RowBox[{"tt", "=", "1.8068"}], ";"}], "\[IndentingNewLine]", RowBox[{"fig1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"post", "[", RowBox[{"\[Theta]", ",", "nn", ",", "tt"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "tt", ",", "4"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4183882600190988`*^9, 3.4183882775643277`*^9}, { 3.4183883425677977`*^9, 3.4183884699910235`*^9}, {3.418388658942723*^9, 3.4183886749857917`*^9}, {3.4183890413025293`*^9, 3.4183890443769503`*^9}, {3.418391533756502*^9, 3.418391540816654*^9}, { 3.4183915726524315`*^9, 3.418391683201393*^9}, 3.418391719683852*^9, { 3.41839175727791*^9, 3.418391796684574*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1mk0lW0XB/BzjjMfM6mkTIUkqTyEtHcImZMpmULmpBRlJhSFSKQkUSkk QjIVDabImKmBJA2EokI473k/Xeu39r3++9r3h2ttSeej5odJBAIhl0gg/P+s 8P2+Me/rIpBdp1/PXRRFqby6EI/xRVCRWBu13k8ULwyltW+cXIRi1Vsfg01F 0dlM+2ThzCJI5e64X8grirzbMutKlheBYLH3KV/SanT9bWxdI7wEdm+uauel r0LBkJLoTlyCKZct1+IaRDC07GxfivYSfC6Ml6jMF8GvE/byFrpLEEbcrMqT JIJP7JkdvYZLwCuaZSBlI4Ke4LLmndUSlIe6BC+Mr8A60oqHYz5LIL9XJkZV dAX6xp0a+ndlCRaapcTSk4RQ8Z1u7Ny1JZj7fP0K+6QQTimu2Pw7awmaRHUk LtgJoV9PSdDkrSUYG5gK5JcXwuPi4ys+Fi/BNvU+77oGQQwotzdqaFqCtaeC LidRBTHso1blxbklaPm0Y2NCFj/uUhZwSvi3BN+mC7iE4/iRHTtEjV9egpnX 8jWP/fkxQiHE4gx5GVxHMlYc3MuPUYHlUyf5l2F9wgmNpXE+jOWRkzkotwz9 ivME1Xu8mKTGc2mDzTLUeCwwxYy48VdMU8KU7TKUmbPlneW50aLrzLlK+2VI e/rhYjedG1d5L4QauyzDnP8dVG1gYU7mF4+TvsuQn5v54p8WC8vY9bteRnP6 Ef+K6Okwsf9lwHfXkmUwkbjrf9iVjuqC2z4rli2D/1GKR54eHTMdfgzNPVqG CGvLLp5NdDz01+XNhZplWD3yQ0vvFw2/y+2rK2tcBmWzM+ruUTRcPL8pjfxh Gc6t+Z659R4VJcyHd99isuGitX9HER8FneZUNJx42OCoKFtw4y8Zs7MSlMX4 2fB83X6xoiEySoyry6auYIPgf24y0sUcR1/mjpZgg63A7VxPc44fGfS5qLBB WH6jtl4mF4qLlvtIO7MhZvxtoZ4OCR3qWG5DrmygaJ1oy91Cwiw3Z8dr7mzg n41jrF5DwnWlfOZCR9gw1hu5z+QXEdcZealynWKD2Mee9OGbHIeJkz4lsMHm nMTecxSOR+LScyrZwNQ9Xbuuhg1lOf2jGZxz50PvpduX2bDXRXZb8lM2jN7N OO54lA0nRl+0hr9kQ83uA6Pu0mx4NcYm2ney4Vbdv32NCctwavykz8pvHN98 T4/xXgLPhWIJXW4Ceuxwz/xv7z8os7VprOchoJ93x9ozcv9guYp9RJOPgPLz Xm0LtH+QGmxSrSxIwHMR3q/dGxegbnHcUnoVAevKmri36S+ACFvmPGE9Acfq CapW++bhOdf131UaBAx22HDPJeIvfBhW112rSUAFUYFmN7e/sFDbnxa+i4Cx iTP954z+wrZTwjt0dhPwxAH6po2r/0L2xPmgNl0C5vDzWvaW/oGwN0HsoX0E JLQZ7auf/A1qeTYMigcBXaXudPSfngWL6D8H3D0JaE/NcT/mMgt+h1Lzm70I aH4i2Xm98SzcXdNhmHiEgB1v9dn9ErMgclEvcaU/ASt6mtVPN8/A7CkVIfkw AtK55cJPi8/AAwPhtaapBNxUHyeQ/f4n/FEuWtl+mYASWer78pt+wk5xfUHT dAKerX3DaC/9CS0zwTTTqwQ0oNZbucf/hNHMTz9Nsgko+945sn3HT1g19bDB pJCAYi97XjtenYaIS/v8TF4QUNw07/WWoUloCB33ev2SgCed2rUcqyeBxyPm sEkjAa325h+rTp+EqzsrbU1aCGjx5DT/vNkklH2W2GPSQUDF9yveRb38AV9V p1ebvCPgHXcJRtajCTB7l/jceJaA/VvixX0rvkOsf0Btw28C2k5f+WWZ8R2q mQ4V8JeAf8RMdJyDv4OM2uaCrQsE3HHM/M4X+A7/Lr9KWUEgIvVAxp7slm9w x5Tu/J5FxPjnoi3ZY19h8Vkk4Yg0EXNZe5zzVb/ANlvPhc/rifhVqP1vy9ov 4P7TbNZBhoitr2zTmeQv0CUu8dVsIxGPb91gOdYxBnkhT9qVtxDxKEk+hOUz BuYq/7IW1Ym4c6d84fe8z3D33gnNC+ZEPGaX1zCnPApFteYfx/cTUSejoXWL xCiUdSrFGFoS8d9jk75Q1ijUz0+0Mm049cyzFxxGPsHg3sN2cfZEtPW9eWZL 8ifg/m4ZHOvByXcN9J/7NQJ+8qqVEWFE7IkrjfVv+AgBu1bYD4cT0bvgzWOb so8QYj5DwEgidg5rv9yX8xHigh7os88QUe7lO77wsI+Q0yLbHxpHRGfBPWPP VT9Cj9eqv0GpRCSc7G0cuT8MqgXzyifziSgizCtcaToEHq3dUb8KOP0W9AOD Nw/B1R/3O47eJ2Itj7S8G2sIFrc4+3gVE/HZiTulpY0foK6sJdfxERHfRbv2 bdT6APpPrgkaPCMiUypH33rXezjQqTm9bpCIHZI0HW/ztxD/a+WuzLdE5C6P Wjmo/BZqhH6dX/2eiPYmjvbeK9/COqs7ssLDRFSojE6dfTcII4O8jowxIs69 +Mm87jkIXqNDbTM/iZjpArmScQMQ/DeyoIlBQpXnIxPDQ30Qctk8V4FFwvW6 hn8JTX0Qtl362kVuEhp/Gi9XL+6DqKMv4m34SPjqtOfAQkQfxH+hen0VJqGt 8r7ofOk+uNp3Xo4uQcJ9BjUqRUd6obLi8m09FRLKTtpciBZ6A1WWbtcLVEnI KC6wubXcAzUzKpf51EjYf23QffBbD9Rt6Y/u0yChx3rVb+fqeqApT9TVfTcJ y0aSKiZ8e6A//YbUWSMS7nV3+VTZ3g1/A+/daHAmYfC9zDPPs7vg67PGNGlX Et6zF4ztT+yCfp6xhIjDJGTJlYoQQrugKlcqRN2Dk39Q/WLsgS4Ia79mU3SE k+fBzPcV6gKybKJA2ikS7vQ2nM2I7wT+3uNnDieS0DJzJOxNTAcQJZODniWR sLryyGaRgA745f3gmHgyCXf8d4Ls7tYB3cQJx4FLJHzDyx7dodcBaZsP7zTO IOGBgrEz1xgdsDbG+rfyLRJKCZ/876pUO8gr73QnV5GQuKY2ZcC6DXQvWNHD q0nI384+26zWBodG/e7N15BQ3/777cE1bXAl9fb45FMSPuRSeeo43Aq037x+ Ay9J2HrtvfxPr1YYLf94qqiThPLp8Vl8sa8gS/VsvM03EgqUZZuodzdDVdLN Td3fSZjME8WiVTbDmy/VrcYTnHlu6btNZzUD95VpXu0pEkbtenl0lXczBM8d uLT5NwmLn5ttryI3g02lQiaJyIU27b4MOc0mENToul+4igsjLEZOdtY3wDLf pzkeUS78ku1KCS5sgPHRGe2ja7hwKJFHXD29AV4krhjcuo4LceXLS3M+DRAw YkOtkObCa79hyX91AwzGDTnUK3LhpRGvBbOAl5DTP8HXq8OFAi0+m5jwAhLv L9mq6nLhvG9Wr5rCCwiO4r1zRY8Lb2mYWoSsfgEWCko7DxpwobFkeoDa7HOg Rvh7DJtyoUdqjmxK/nPwkl2o+27Lha4ZQ9yFos9hWwDtONuPC28o1v5YpD2D vTbC7mHHuVCh7aHR0u96cFKXtFvy50KDQuASGK2HpGV13X8BXJgvoLDueF09 TMT6iv4N4cIAi8ycVUH1kJf+5tnkOS4kR9PmPk3XgVhlrtCHbC40D+rwfd73 FJSvFdPtc7gwGZKb9R4/BcPQ2qW3uVxY5mmS9+PKUwja3fdl4A6nf93K/ddt n0JfM7PmTSEXXgkK3Htu6AmkDB5zbXvMhV53N2/3maoF2iKU13Rw4WKUiNAx mRrgPX/1nnIXF47ILf5xZNWAsOjv64XdXGh/tn7Ia7oaJHbkx2b2cmE86ZV2 T1U17DghbBPyjrPn0H7P/TSrBq+JrwsaXznzHc24syuqClrfJWM1mwvDS8oe mM09hi7vCeXtRDKa31G6Hzv8GPoXdDcWkMg48WKrwJumx/B51aLANQoZaX/z blZlPIZlC7dPQSwyPn94eun2zsewpU09Vn0lGd+dtn49FlsBKbWfXlUqkrG4 cPmQk8Ij8GxW9lqlRMbflyK4Blc9AnwTQw/cSsamiHxZN8ojmJyQ3aOsTMag pMHC8g/lYCDm86RIjYxpBtY3t6SUA1fwbHGuDhl/3ircGL5YBid2UNISbMlo dUHUm/9DKRjqWClPHCRjtJTUiYrWUpAyy+sysCfjlSFGq291KXS47+WjO5GR 9/JbGd6MUlBITzgXdZiMRYGseh7LUhj9vSI40I+M7efPRJM6HoJlqYzToVgy dpXQcy07S8Cq1f/u+7NkfCCZHnW1rgRsPtdNH4gj42FFJaPpByVgt/JgpPkF Mp6Z32/xOrEEXIOTcrRTyCjGqtppblwC/tpzoxuyyJjaWN/j2VYMyd3Nnt/L ySizvW76ycMH0Dbj4+//mYyKUVHC1WqFkB1XfLh3jIyuwjdyj0gWwnHxWWu1 r2Q0NaNXqTAKYZVh8E72dzLW37SX5h4oAJecOMr5aTI+dooNrj9dAPNmd9Jz /pFRrrh0o/bTfNhQNFTdKUDBmux2J17bezCnLV2kLETB14lluzx07kHLgFt2 ujAFF6SJ5F7Fe+BHmYy2X0nB6IbQPxNc96DabtH4mxgFpQ13HKQ+uAv7WKuH CXIU7Hh1w72XfhdCPczJSrso+OJPXplnyx0IYqVkFwMFL20X6g0vvwOcx2vn 1t0UfK/wNjs/+w6cmDU7uU2HgtWZ699qBt4BrwjTMWUDCl7I94+22XAHrK4Y NalZUXC0QoRuFHMblJp0L2j7UtCoTijt2v5boOgdK/fiKCcvNMRi3e5bsIm3 4YXOMQpWDGgolireAhmLPUt7TlBwlergF0HmLRAb1vbVD6Jgp8Oc6936XGDM oZlxLAUVK7ZYrVHOhRFZDWHrLAp++Ly7IndDDrwObHrQcYOCQXM8z1NW5EB1 o6WhwU0K9mRoiSdTciDV3S9K8xYFb9/0jq/+fBN0825PS+dTcHWwWNDLOzfh ngx/23Q5BYVcGjyyN90Evw2fY+LbKHi3IkKGhdmwLJX0t3aRgv2HIg5aS16H 6ilBzXXLFOxt23GiiHEdTtWkRYWxOf+XcVZT9FcmzFhm8QCJipN/jqdueZ4J X8/dl66jUVHWK0fN1C0TuidfmT4TpKLS8tWOfcXX4G4V/W6DHBV32bmf+mR+ FfaZR9m0W1AxVDCl3ud1OqgrkPSNrahYWDWn31yZDlLUKNVX1lRMeD8opHY7 HX5VRoo02nLqNmKy5iHpkCIZ2fPEiYpUO5vNHpvSoXs63KzIh4pdJ+f1hRLS wDIpVD8hmoopizU6Y/aX4UDrqR2GZVTs+aIdXbf1EghKT3U+KKei8TJ5NlDq Erw6fdhbuIKKqfP/QncKXQJNWfOs95VUfJQZUDwxmwKSUZvIfk+pOPYwc/fX xynwTfVDe2oLFdeZ3GjZrZ0Cp3O13T8MU/FZvsIpxUPJkBHEm3aMh4Zp0ddF pMOTAMO6FNt5aai1hZ477pYEXyPTGhX4aXjxsL9Gk0kS7IhbN/9FkIY7d+/e W7suibN/KNo5rKJhy2+x8dSniSBSbiJlKE1DcUk5gXFyIqROJRatV6NhGPeZ iJrrF+CiK19jnysNqyvalf3J8eBysp2x342GCTbCrgJTcaASm2T02p2GuKMl 7NlAHLzN4+t64UXDQxofFe0fxIHMON/7Ej8aStQLnTt+MA6qj/HPnA+hYcWV 8lc8FedgLExAHFNpaBJkeTEp+CzszBAKvPuchvHnbn7TVImBYZkWF+ZLGs6c 0EtXk4mBM2URZj4NNEykHjfQEomBlvYfG5WaaegbwpUa9CcabKhN7ype0zDy m+zpmIpoOOkfotU4QMNvPPNvFjSiocj4M8/YFA2PS/LuXmVyBiRIFbekxeio tMnk+XBqJExmemrkrqVj0gbx8w9jI6FWVaxLSpyONj3OuRdPRYLtkUi2pBQd f0mGpB+zi4RL/Ya2EnJ0rJomm71cHwnUB8N8a5XpmCJyTjW/IgImDjKDRYzo 6CzrF6fRGg6V5fb7GCF0PBpFHBtoCIGAJfsvkaF0TP70MtyzOASU9ziELoTR 0SdWc5p1NQSKehzujUfSMT48RSDuSAjkzjgSX5+lox3pWLjzihBI2OpcknKJ jg1udnFnPILh0H03AbECOrr077/EIxYEjNtHOxUH6dhiylg/URYIVzzdBBLf 0lE4y2d6MjcQZBTt9/14R0fR7pv9yymBoFVh0FkwREffJ8qde44FQlDzhk65 z5z7CP7+76hiIHz/8bZDapqOs07h0TIFAdCqot8hQmUgYcmv7cP9k3CxSaJ9 eSsDUW/zbdNef9h7VagyeDsDnQpc1q9p9AeSDzV3TpmBA8dmt8xU+MMJvomA X6oMdE3reNqU4Q82VhXrxjQZyJ3nlUh38AfxUWPftr0MJB3J8ej8ehyK2EE8 mYcYeOmiisIu2nFO/zeGaskM3HK5T8nisB9YxTwZykxhYF3ENa0XB/xguDvP n5DKQJ1vTWs0Tfxgxi/oWmMaAzNqe2l7Vf1AtEB83DKTgd8+WBKaGX7gKe4V fzyPgdEXtPManI4Clc5uKqhl4LODljG5NF/AATnddd8ZKGe0a8oi2hsqexwH gsYZ6OfvL3/xmDds60jz6ZtgYNPoLsUBB2+QbiRfujjFwEJZLddUNW+glg8P kX4zUMT9il3RlBe8unjl9Bc253ubYSV3By+w0qffL17BxB4en8bcPZ7gXfFF SHs3E9vWqoC4mjvw1onuq9Vi4nIA7aacnDs8bDJOVNVh4p6kTbaw0h3mB0rp CnpMjKFG3k797QZnF8OXhI2ZqFsk6/H+oRvk7l71ZcyGieztqovvt7jB21f6 VfF+TLzayt5vtv0wGA7fc+q6wUSNP5ODT+1doO5wt972m0xU+TcYWW3mAsrj i4qpOZy8Yu/UOm0XEPtjumR5m4lGzwyGxja6wCTrT8ZAPhN/5S5h7h9nuKiq 1T1czsTEB0VTPcnO0Js4uGfqFRPXPv5GG399CJw1WZu455hI0/n42cfZCYgd SjXx80xMCuJZzrVygmxnK2PGPybK37iiMmrgBENnbx6lLjNRrirue/h2J7Dr Ui0jkFloJRl+XpriBJburpq/+Vi40VHZU97CEfSTa00/yLLw/eaDokOz9qD4 +eiJYmsWzgWcrmG7HYSs2fMPVhxg4TG+Vv5+i4PAS777PciWhdtikmxqtQ7C pNSw0x57FuZT314tWncQipzMjAedWXjQ37VPvs8WtrxTkiH7slC/1KYk0sAW lLp/9llHs9BByTreTf0AbKv312AXs5A6aO0kqGkNyaHvT9o/ZGFj/OESeUVr mFbTK64uZWFm83ljY3FrKHoouuHUIxaSHR7qlxCtQf5WPe/PahZeUMwPmGmw AsmzfCMjDSz8cKRJxna/FfAbF5xreMepP3tSFupvCT/6R94k0LlxTZxhbVr7 fgjI0a9iMLlxcs3amvn6/UDwKcqKYXFjkqlTm1vZfhBmn3YP5eXGv9IWNMeM /aCxQWDeR5gbz75e8a/BZT/EHQMxIwluVNeapfsumMMGZqYzcwc3zhL1DD8p moO9huVUrDs3djY56HY/NIPHkSWh3zy48eZLjy2775qBYBMPt5EXN8rAF6NH 182gyaJBTuAINyp9Ved/dM4MtvmqOl87zo3ep39tYDmaAe3m6jcPQrnR0PQi ncZjBiXUD1X9lzj593tzdd6ZAKXLLVa+jhvDFk/YlZw1gvgNT5/k13Pjo4aA 0YMnjID/9Mq/8s+5sXe556zwISMQlWhy39TAmXfv5dkH6kag5Ltxr0IrN9Kl CrcnThqCHXOCpdjPjSZxUl0fbAyhTOtY8tZpbuzPViqJVTUA59LgzB0SPPiH ojtSK6oPvaWSPSWSPLg7L030G1MfDMoaWZukedDlY3+0+D892F4uFLxWhgep C0Zt99/qAbmi4ABJgQffCShqmV7Xg7yqtyKtqjzIP9vhnyWlBxP1GsmOpjyY wvNZ4L//dCGg419MbBgP3vha8u3iKR2ol1zzI6yXB2mPqhxmr+2G+lrN7o// 8WLETK7u9TlNmE9gq0wl8uKtW4IXLnerwdcMBd+dY7zYGaBibHFQBS5M262f 1eFDoZmPzj0y28EjWMHG6jofDj/zDc26qsTZn9lM6SU+7Joz32wTrgC8RtVh ihzTOjoTusMUQEov8Jcax1JW36ZNODbQnBow41hOdeTJnlAFyNw4dDeMY2LD /OntwQqwi/RUd5BjwlipD1+gAkSXhkUlL/Phk9Jf2s2+CnClSP1PJscSnj5/ dTi+f++P512On/OF3q87ogC9N3z3PeXYbd5Z8rGPAshecJD4wXHzY5DL81KA FtddT/TZfCj4VOlhjJsCfHBc2GrBcSlFKInI8S/bR7cdObZwPO8belgB1uxT TAjgmCq867+Trgrgo7nO7hbHD5fvfXR1VoCIHYPtDzgutNHoHj6kAJe3p2lX c5xi5dxox/GTjbybujjuoR6rsHBSgK71LVnvOfa9blPa4agAY+Kxgt84js5+ U2LE8YKoVuwsx6qkrw+bHBSAT2R5ns3x1bKkRzoc/w+uXa6a "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{2., 0}, Frame->True, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.418391624657211*^9, 3.4183916483612957`*^9}, 3.418391689240076*^9, {3.4183917630962763`*^9, 3.4183917985772953`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"post", "[", RowBox[{"\[Theta]", ",", "nn", ",", "tt"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "tt", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4183920996001453`*^9, 3.418392103405617*^9}}], Cell[BoxData["1.0000000000000249`"], "Output", CellChangeTimes->{3.4183921070508585`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Solucion num\[EAcute]rica", "Subsubtitle", CellChangeTimes->{{3.4183905117168813`*^9, 3.4183905299531035`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"d", "[", RowBox[{"\[Theta]0_", ",", "n_", ",", "t_"}], "]"}], ":=", RowBox[{"nn", " ", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"\[Theta]0", ",", "\[Theta]"}], "]"}], " ", RowBox[{"post", "[", RowBox[{"\[Theta]", ",", "n", ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "t", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Timing", "[", RowBox[{"d", "[", RowBox[{"3", ",", "nn", ",", "tt"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4183884954977007`*^9, 3.418388593328374*^9}, 3.418388995136145*^9, {3.4183892347506943`*^9, 3.4183892361627245`*^9}, 3.418391824574678*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.07000000000000617`", ",", "5.089214645363342`"}], "}"}]], "Output", CellChangeTimes->{3.4183886018205853`*^9, 3.4183886872934895`*^9, 3.418388845571081*^9, 3.418388981396388*^9, 3.4183890235069404`*^9, 3.4183890537303996`*^9, 3.418389245385987*^9, 3.418391830002483*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pts", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]0", ",", RowBox[{"d", "[", RowBox[{"\[Theta]0", ",", "nn", ",", "tt"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "0.1", ",", "6", ",", "0.1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.418389367872113*^9, 3.4183894504508553`*^9}, 3.418391844533377*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1`", ",", "35.72970901351083`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2`", ",", "27.411942846791284`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.30000000000000004`", ",", "22.546361549493184`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4`", ",", "19.09417668007173`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "16.41645406430115`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6000000000000001`", ",", "14.22859538277363`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7000000000000001`", ",", "12.37878722484649`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8`", ",", "10.776410513352177`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9`", ",", "9.363014085475541`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "8.098687897581595`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1`", ",", "6.954965739929665`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2000000000000002`", ",", "5.910829216054083`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.3`", ",", "4.950316723971623`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.4000000000000001`", ",", "4.061021058126938`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "3.2331066002834987`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6`", ",", "2.458644346632626`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.7000000000000002`", ",", "1.7311488848353895`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.8`", ",", "1.0452479187559902`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.9000000000000001`", ",", "0.6972827989323025`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "0.8100830994012582`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.1`", ",", "1.1336538429860092`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.2`", ",", "1.5511127791280273`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.3000000000000003`", ",", "2.0066846062113637`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4000000000000004`", ",", "2.4732220753895566`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", "2.937414429216621`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.6`", ",", "3.3928165416815745`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.7`", ",", "3.8364615751295945`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.8000000000000003`", ",", "4.267169593436362`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.9000000000000004`", ",", "4.684682819298896`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "5.089214645363342`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.1`", ",", "5.48121078033803`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.2`", ",", "5.8612214906868285`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.3000000000000003`", ",", "6.2298331123051165`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.4000000000000004`", ",", "6.587631669245608`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", "6.935184089208857`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.6`", ",", "7.27302913014625`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.7`", ",", "7.601673669060938`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.8000000000000003`", ",", "7.921591925531465`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.9000000000000004`", ",", "8.233226252961895`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "8.53698872407436`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.1000000000000005`", ",", "8.83326307330656`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.2`", ",", "9.122406750991143`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.3`", ",", "9.404752954847316`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.4`", ",", "9.680612568218493`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", "9.950275971330296`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.6000000000000005`", ",", "10.21401471290071`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.7`", ",", "10.472083041235528`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.800000000000001`", ",", "10.724719300309378`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.9`", ",", "10.972147199512584`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "11.214576967074594`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.1000000000000005`", ",", "11.452206397448602`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.2`", ",", "11.685221802633137`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.300000000000001`", ",", "11.913798876797248`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.4`", ",", "12.138103482830548`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5`", ",", "12.358292368655285`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.6000000000000005`", ",", "12.574513820368175`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.7`", ",", "12.786908258553211`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.800000000000001`", ",", "12.995608783437905`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.9`", ",", "13.20074167395715`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.`", ",", "13.40242684524326`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.418389688843648*^9, {3.418391839265803*^9, 3.41839184890967*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dap", "=", RowBox[{"Interpolation", "[", "pts", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"fig2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.418389459654089*^9, 3.4183894859919615`*^9}, { 3.418389545417411*^9, 3.4183895586965055`*^9}, {3.418389725806798*^9, 3.4183897639316187`*^9}, 3.4183918715322*^9}], Cell[BoxData[ RowBox[{ RowBox[{"InterpolatingFunction", "::", "\<\"dmval\"\>"}], RowBox[{ ":", " "}], "\<\"Input value \\!\\({0.00012257142857142857`}\\) lies \ outside the range of data in the interpolating function. Extrapolation will \ be used. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\ \", ButtonFrame->None, ButtonData:>\\\"paclet:ref/InterpolatingFunction\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG", CellChangeTimes->{3.4183918760987663`*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nc81fsfwPFjRSJ7y94SDp1wr94fZZ2uiq6cjMxIsvJrIKOUkZmRbFeK i7RuKSWFjBsZIdlZx0wcq5xzvuf3vX98Hp/H8/H4jNfj89dH0TPohDc7gUBo w8d/c2hPt0qUUTucmNQstSgzQbLi3JE/7duhyqST1pJjgrh2hHDP+3VBfclv 1mozRmiOHC2wVt4FVy4+5vn+yQh9TEmWYE53gdRYqdNSjRFqTezNTNDtBsUH zw6m3zJCScLLpQUV3RD9x8xXZ30jJKqk/OFDYQ+EH741QUw8gNTMUjjF4nrh y/4oxUEKCUlMZfLk3e+FVhjeXjQnIZ7YPD75pl4gLMxu7iGS0EJbuagmoQ9s FRfMxvhI6LFto4ppeB+EaSaktTXtR0buW+begf2QKjjsy31gPyJHe8S+cBiA u/VuQmR9Q0RMa7AsuTgAlazwJW4lQyRbrMiTkjEACZ6TniPChmilfiLxTOcA /HklQLZ53QBlYx63RSy/QhNyKUqtNUDTkZ75F/YPgmbwQF2bpQG6FuH1VEd0 GNI14j83+BGRX3JTiBRxGOycJtSuniYi+wJlQy7bYYi3yx8+bEtE6nVTNSNJ wxAgOrzKTiKiTrpXXRLHCBQlmJUashOR7NUzrfO0EajZfbbcplAfvQzzHn3Q MwZpz+j3bozqobKD5wekaWOQmWMistmth7I5LvSkCY8DgXzR7vIHPXQ5JaI5 7M9xoMS7lBZX6SFSSWb10f5x6PlenJIeroecp7/Vh/t/A+Np2nExaT00tEsg TSl4Ap56aP8b0rQPDTqd1w25MgXVrLg8bYW9KHHSyv9u3BSoxipNR/HvRSZ+ KhV1d6bApVBh/tu2NioIG1Xifj4FVgK+X7v7tZF7znHxgpUpoNfKEl2TtdFs vwGz+dw0fNefYpNjaKENW8ZHKZcZcJoWTa+a0URCVik+DWgW3tcku8mOqCPB Pu9nB5wXwYPtyJGqDWWkrOBfEev5A4Kquf+srVBARqMB7WYZq2BoaENanJFB DdvXbPry1yB3T/yDzhJx5Puura0+ZgPOLqFwkp4wyvUqlxZz34K3S/TgUG8+ pHNqYhPz/gU5sikBaQGcaGzteCci0yF3pPvZCT46pMoMKAfb0aF5zuv6885t OHjYNazYkQ6SJ05N6aVvQ3GGvwp2jg7k1JM2N8S3wV3/VvibRDq8XjSQ71P6 BVOBjWqkDjp06gnr2JlvQVY2OcK7jw4Vj6ZrY3dugXl9d0/WCB2UPg/GMjo3 4T7/eMTaEh02nGVbXjttgs9D+ucn/Azoqs2yf3dpA+bmDaO1jzOgJmuaX7Ru DXKE6vqcKAyw3rVLLDtuDayND2slujHgW5AYd4zdGlQk2PXPBTHA+GRLdskc DfzUA7XLbjMgqEurx1yWBtLHN6715zBgc529wHlhFdovR3zhLGHAi4fF6iuv VmFvS+J1r6cMEFSV8C+grML3M+UDCp8ZQLkycLWnYAWKkvfp2A4xYF1q7H7o hRU49vxFTPQkAw7eX8ceWa7AI44POmM0BigHOTbnzfyA4HvfbuSLMKG4OO30 cOky0Mal9MRPMsFu65CMheMSKHhtGcqfZkLHlMJEpfgSHKf2GWt4M6Hw8ayt ef8iPFxKO2xyiQkztFsbUg6L4POLi+J6hwlBcXdb4nwWICtiyvlsIRN8OojH 3+ssQBPrvXvwAya85DsvaLo5Dwo7IvxiXjCBPZGPkydpHoaEaZFl/Ux42n9L WfrDHPBkd8U8HmUC6eiN6dI7c3BAqjr+1QwTJIc++V/znYMsed/0jxtMSDF7 kmcsPAeN9yyye5lMGFfaUJaen4VVVeX8ES4MhNRnfjvZMAvH9o7dXxbDoOKB wvjkpVmIePymYmsPBp1qUseMT8xCFTH3EUENA/uv4iI03VngMbZ/JUzCQGLo qk/GDyqQ6vTfyhzEQFT/9tfIHiqcAYFGFUsMtpo5fHufU6HB4mM7yQGD5RrP sg/RVFhpK+8GVwyapOhGZ85SQc4mtt/aBwOONpsnl2ypYNPlOWQXiIG1zZHK HnMqhJ9A406XMcilxDk2mlDh7/49015RGLjdS+SVJ1Jh4BR9zj8Ogw8UibYp LSrsGPn6/VIqBhv3lgr4VKlg6FZDi8rGQPbxx8w7ClTwnMzcii/CwKf8wsvw PVRI977AuF2GAbOmRPiVDBXezx1jy3uEAd9OmSdk3Mvn9+4orcGgoa0wT1uW CrI/du56WI+BueLCiKMcFf4ImRV40YLfb/r+erci3rvxQbS+EwM/8rfMJDW8 N/SeVOsXDDyCeOXi91LhCz1arnsMg/4hTOudARW4ok8rD1IxWKuJbNb9He9l /01jchkD6j6rn30WeG+spM7iJgYDATKdlfj73ObZ1F/HMKAVvbardqHCu6Re EnMHC3y+T6d8PYf3ZaQiAQkWMFOHnXLjqXBEzN9CUp4Fl4002NRzqBCWQz6i qM6CzSpC0qcKvKeI097gAAuqC09ePNlNBU6lyVO/AwtMQk7M75uhgsGDd6ct rFgQ+XbYX4iO318VfpZCYUHDmayPE5qz4Mxm0dHvyoKXJg+OCpvNghpFQN/e hwVicULdMo6zUMd+f9v2Egtij5ynP0yahTnHTylHMllQpqHNHbg9C/88vktr y2OBpbX8X3yScxDF5UmxuscCcqjNLT/SHIg+3VQwf8qClS/vL1IuzQHwKDw3 7WKBjo5Uez59DnhdFyTrvuD7A0cJw3Lz0PfP80iTMRbUOL0aeHdoHvzcyFYH vrNAl0MxPSB5Hv5wNg7I4SKgQZKjxE6lBbjyzJOQoUxA8SqVL9Ioi+Ay2kq0 UyegXS+/0SquLcIhHh1vQW0Carkl4mVduQh8rlv/phIJiJV1engXaxHu7UzO TDIjILU2QZUbj5ag0/2FWqwbAf386DY0qbwMagI8R0PzCcjlX0I07dEKPFy5 XpZQTEAFjyYFSjpWgPiZzsopxdc/X959fWEF4M6PZ7VVBLR5YT2mR20VTskM SNLfEJBya0NIbskqJKqXTUeOEFBD0fvrDfk0WAbziBt72BBRU9Vd6v461ARf q0otZkNMc2j8yfUL+lQzue0y2JH88fP/KxwkIJUbvRqnczlQQzVh9+f7XMjY dtywOJ8T5VVeDoy25EWjwbEHU5K5EPlqh+Hald3ombEjf3P6DlQp1GZsGiCE xB1aB/+O5UZlgyXtYd4iCCYJ6Y0XedCq0cTFt2ZiKFfcl18tdCcyrWqSUjWQ QDFF5+L3+/Eil/gMq8M0SVTYmdOSGrwLmZRF3wpqlkaRgZkre0L4UOMi2fRu tCxa9NCQdPTkR9UlRSLGu+VQEnOBc8xnNyqtTi0IeSKPXi9Z/djtJIAcbtZm Gd9RQF9UjSZNVATRZx7XmzvJishX00s384EgGmwy9PXcoYQaHJyvmskJIbsd 8T9Xniohg1MLFaIlQmjLwSyw0kcZ+d+wHDCVEUbJFa/dGnhVUIIPzzZbpjDa /usuZ0S5Cnq7x4O1ICqCXDusPcSPqqJaLI5DK1UEDSWmhbyaUkWd/xxeSBES RacUBcKmY9RQs4JPS3KGKIps7kxGMuro5suTJRO8YsjSLUqOv0wduSiNuDqn iKHVomJdCWMNRK/RldHmFkdBOYyGQ+80UATHfMedKPxfsL7PlR1pInEVYw9V ggQSWlSOf9Gmia4EOqzzhkkg3iTHriwLLbSazOsnxpBAUcmz2/IftZDsTTNR VdwX31WX6+K2uhpab4i7tvacPeAuPEcVtscdwNlU7YqbbNn4JgO34Pq2WyHu ElYYvyBTAg1ZX2uUbtdCdiHzT3gxCeSgMxEt1qGFIs4pOEvjJvm4a6viLnen cGnhJvr2fzHEzTzW7EjGXdf6l4497grtEvYE3GWbdUMZuNlmTtlzsSSQv8Iu A8FPWmjvSBomintklToqj5vS2/K3Cm7blFcJurirGwyZh3FHKJmOHcPtWCRY FoP7Smt7Qgrum3esbDNwZy+cNCjE/Tg5arsEt87X/tGHuLmuLh1rwL0l/JLY gVsvRPlXN25rd8nRYdzO55xKv+EmhwbFL+KOc08/uoJ7p3OdPh33U0rbFuu/ 83lYw7ydWuj/WI0BgQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{0, 0}, Frame->True, PlotRange->{{0, 6}, {0., 26.649500081754304`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.41838969239876*^9, {3.418389737994323*^9, 3.418389765964542*^9}, 3.418391876178881*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fig3", "=", RowBox[{"Show", "[", RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "fig1", "}"}], ",", RowBox[{"{", "fig2", "}"}]}], "}"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4183897886471577`*^9, 3.418389834583211*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1mk0lW0XB/BzjjMfM6mkTIUkqTyEtHcImZMpmULmpBRlJhSFSKQkUSkk QjIVDabImKmBJA2EokI473k/Xeu39r3++9r3h2ttSeej5odJBAIhl0gg/P+s 8P2+Me/rIpBdp1/PXRRFqby6EI/xRVCRWBu13k8ULwyltW+cXIRi1Vsfg01F 0dlM+2ThzCJI5e64X8grirzbMutKlheBYLH3KV/SanT9bWxdI7wEdm+uauel r0LBkJLoTlyCKZct1+IaRDC07GxfivYSfC6Ml6jMF8GvE/byFrpLEEbcrMqT JIJP7JkdvYZLwCuaZSBlI4Ke4LLmndUSlIe6BC+Mr8A60oqHYz5LIL9XJkZV dAX6xp0a+ndlCRaapcTSk4RQ8Z1u7Ny1JZj7fP0K+6QQTimu2Pw7awmaRHUk LtgJoV9PSdDkrSUYG5gK5JcXwuPi4ys+Fi/BNvU+77oGQQwotzdqaFqCtaeC LidRBTHso1blxbklaPm0Y2NCFj/uUhZwSvi3BN+mC7iE4/iRHTtEjV9egpnX 8jWP/fkxQiHE4gx5GVxHMlYc3MuPUYHlUyf5l2F9wgmNpXE+jOWRkzkotwz9 ivME1Xu8mKTGc2mDzTLUeCwwxYy48VdMU8KU7TKUmbPlneW50aLrzLlK+2VI e/rhYjedG1d5L4QauyzDnP8dVG1gYU7mF4+TvsuQn5v54p8WC8vY9bteRnP6 Ef+K6Okwsf9lwHfXkmUwkbjrf9iVjuqC2z4rli2D/1GKR54eHTMdfgzNPVqG CGvLLp5NdDz01+XNhZplWD3yQ0vvFw2/y+2rK2tcBmWzM+ruUTRcPL8pjfxh Gc6t+Z659R4VJcyHd99isuGitX9HER8FneZUNJx42OCoKFtw4y8Zs7MSlMX4 2fB83X6xoiEySoyry6auYIPgf24y0sUcR1/mjpZgg63A7VxPc44fGfS5qLBB WH6jtl4mF4qLlvtIO7MhZvxtoZ4OCR3qWG5DrmygaJ1oy91Cwiw3Z8dr7mzg n41jrF5DwnWlfOZCR9gw1hu5z+QXEdcZealynWKD2Mee9OGbHIeJkz4lsMHm nMTecxSOR+LScyrZwNQ9Xbuuhg1lOf2jGZxz50PvpduX2bDXRXZb8lM2jN7N OO54lA0nRl+0hr9kQ83uA6Pu0mx4NcYm2ney4Vbdv32NCctwavykz8pvHN98 T4/xXgLPhWIJXW4Ceuxwz/xv7z8os7VprOchoJ93x9ozcv9guYp9RJOPgPLz Xm0LtH+QGmxSrSxIwHMR3q/dGxegbnHcUnoVAevKmri36S+ACFvmPGE9Acfq CapW++bhOdf131UaBAx22HDPJeIvfBhW112rSUAFUYFmN7e/sFDbnxa+i4Cx iTP954z+wrZTwjt0dhPwxAH6po2r/0L2xPmgNl0C5vDzWvaW/oGwN0HsoX0E JLQZ7auf/A1qeTYMigcBXaXudPSfngWL6D8H3D0JaE/NcT/mMgt+h1Lzm70I aH4i2Xm98SzcXdNhmHiEgB1v9dn9ErMgclEvcaU/ASt6mtVPN8/A7CkVIfkw AtK55cJPi8/AAwPhtaapBNxUHyeQ/f4n/FEuWtl+mYASWer78pt+wk5xfUHT dAKerX3DaC/9CS0zwTTTqwQ0oNZbucf/hNHMTz9Nsgko+945sn3HT1g19bDB pJCAYi97XjtenYaIS/v8TF4QUNw07/WWoUloCB33ev2SgCed2rUcqyeBxyPm sEkjAa325h+rTp+EqzsrbU1aCGjx5DT/vNkklH2W2GPSQUDF9yveRb38AV9V p1ebvCPgHXcJRtajCTB7l/jceJaA/VvixX0rvkOsf0Btw28C2k5f+WWZ8R2q mQ4V8JeAf8RMdJyDv4OM2uaCrQsE3HHM/M4X+A7/Lr9KWUEgIvVAxp7slm9w x5Tu/J5FxPjnoi3ZY19h8Vkk4Yg0EXNZe5zzVb/ANlvPhc/rifhVqP1vy9ov 4P7TbNZBhoitr2zTmeQv0CUu8dVsIxGPb91gOdYxBnkhT9qVtxDxKEk+hOUz BuYq/7IW1Ym4c6d84fe8z3D33gnNC+ZEPGaX1zCnPApFteYfx/cTUSejoXWL xCiUdSrFGFoS8d9jk75Q1ijUz0+0Mm049cyzFxxGPsHg3sN2cfZEtPW9eWZL 8ifg/m4ZHOvByXcN9J/7NQJ+8qqVEWFE7IkrjfVv+AgBu1bYD4cT0bvgzWOb so8QYj5DwEgidg5rv9yX8xHigh7os88QUe7lO77wsI+Q0yLbHxpHRGfBPWPP VT9Cj9eqv0GpRCSc7G0cuT8MqgXzyifziSgizCtcaToEHq3dUb8KOP0W9AOD Nw/B1R/3O47eJ2Itj7S8G2sIFrc4+3gVE/HZiTulpY0foK6sJdfxERHfRbv2 bdT6APpPrgkaPCMiUypH33rXezjQqTm9bpCIHZI0HW/ztxD/a+WuzLdE5C6P Wjmo/BZqhH6dX/2eiPYmjvbeK9/COqs7ssLDRFSojE6dfTcII4O8jowxIs69 +Mm87jkIXqNDbTM/iZjpArmScQMQ/DeyoIlBQpXnIxPDQ30Qctk8V4FFwvW6 hn8JTX0Qtl362kVuEhp/Gi9XL+6DqKMv4m34SPjqtOfAQkQfxH+hen0VJqGt 8r7ofOk+uNp3Xo4uQcJ9BjUqRUd6obLi8m09FRLKTtpciBZ6A1WWbtcLVEnI KC6wubXcAzUzKpf51EjYf23QffBbD9Rt6Y/u0yChx3rVb+fqeqApT9TVfTcJ y0aSKiZ8e6A//YbUWSMS7nV3+VTZ3g1/A+/daHAmYfC9zDPPs7vg67PGNGlX Et6zF4ztT+yCfp6xhIjDJGTJlYoQQrugKlcqRN2Dk39Q/WLsgS4Ia79mU3SE k+fBzPcV6gKybKJA2ikS7vQ2nM2I7wT+3uNnDieS0DJzJOxNTAcQJZODniWR sLryyGaRgA745f3gmHgyCXf8d4Ls7tYB3cQJx4FLJHzDyx7dodcBaZsP7zTO IOGBgrEz1xgdsDbG+rfyLRJKCZ/876pUO8gr73QnV5GQuKY2ZcC6DXQvWNHD q0nI384+26zWBodG/e7N15BQ3/777cE1bXAl9fb45FMSPuRSeeo43Aq037x+ Ay9J2HrtvfxPr1YYLf94qqiThPLp8Vl8sa8gS/VsvM03EgqUZZuodzdDVdLN Td3fSZjME8WiVTbDmy/VrcYTnHlu6btNZzUD95VpXu0pEkbtenl0lXczBM8d uLT5NwmLn5ttryI3g02lQiaJyIU27b4MOc0mENToul+4igsjLEZOdtY3wDLf pzkeUS78ku1KCS5sgPHRGe2ja7hwKJFHXD29AV4krhjcuo4LceXLS3M+DRAw YkOtkObCa79hyX91AwzGDTnUK3LhpRGvBbOAl5DTP8HXq8OFAi0+m5jwAhLv L9mq6nLhvG9Wr5rCCwiO4r1zRY8Lb2mYWoSsfgEWCko7DxpwobFkeoDa7HOg Rvh7DJtyoUdqjmxK/nPwkl2o+27Lha4ZQ9yFos9hWwDtONuPC28o1v5YpD2D vTbC7mHHuVCh7aHR0u96cFKXtFvy50KDQuASGK2HpGV13X8BXJgvoLDueF09 TMT6iv4N4cIAi8ycVUH1kJf+5tnkOS4kR9PmPk3XgVhlrtCHbC40D+rwfd73 FJSvFdPtc7gwGZKb9R4/BcPQ2qW3uVxY5mmS9+PKUwja3fdl4A6nf93K/ddt n0JfM7PmTSEXXgkK3Htu6AmkDB5zbXvMhV53N2/3maoF2iKU13Rw4WKUiNAx mRrgPX/1nnIXF47ILf5xZNWAsOjv64XdXGh/tn7Ia7oaJHbkx2b2cmE86ZV2 T1U17DghbBPyjrPn0H7P/TSrBq+JrwsaXznzHc24syuqClrfJWM1mwvDS8oe mM09hi7vCeXtRDKa31G6Hzv8GPoXdDcWkMg48WKrwJumx/B51aLANQoZaX/z blZlPIZlC7dPQSwyPn94eun2zsewpU09Vn0lGd+dtn49FlsBKbWfXlUqkrG4 cPmQk8Ij8GxW9lqlRMbflyK4Blc9AnwTQw/cSsamiHxZN8ojmJyQ3aOsTMag pMHC8g/lYCDm86RIjYxpBtY3t6SUA1fwbHGuDhl/3ircGL5YBid2UNISbMlo dUHUm/9DKRjqWClPHCRjtJTUiYrWUpAyy+sysCfjlSFGq291KXS47+WjO5GR 9/JbGd6MUlBITzgXdZiMRYGseh7LUhj9vSI40I+M7efPRJM6HoJlqYzToVgy dpXQcy07S8Cq1f/u+7NkfCCZHnW1rgRsPtdNH4gj42FFJaPpByVgt/JgpPkF Mp6Z32/xOrEEXIOTcrRTyCjGqtppblwC/tpzoxuyyJjaWN/j2VYMyd3Nnt/L ySizvW76ycMH0Dbj4+//mYyKUVHC1WqFkB1XfLh3jIyuwjdyj0gWwnHxWWu1 r2Q0NaNXqTAKYZVh8E72dzLW37SX5h4oAJecOMr5aTI+dooNrj9dAPNmd9Jz /pFRrrh0o/bTfNhQNFTdKUDBmux2J17bezCnLV2kLETB14lluzx07kHLgFt2 ujAFF6SJ5F7Fe+BHmYy2X0nB6IbQPxNc96DabtH4mxgFpQ13HKQ+uAv7WKuH CXIU7Hh1w72XfhdCPczJSrso+OJPXplnyx0IYqVkFwMFL20X6g0vvwOcx2vn 1t0UfK/wNjs/+w6cmDU7uU2HgtWZ699qBt4BrwjTMWUDCl7I94+22XAHrK4Y NalZUXC0QoRuFHMblJp0L2j7UtCoTijt2v5boOgdK/fiKCcvNMRi3e5bsIm3 4YXOMQpWDGgolireAhmLPUt7TlBwlergF0HmLRAb1vbVD6Jgp8Oc6936XGDM oZlxLAUVK7ZYrVHOhRFZDWHrLAp++Ly7IndDDrwObHrQcYOCQXM8z1NW5EB1 o6WhwU0K9mRoiSdTciDV3S9K8xYFb9/0jq/+fBN0825PS+dTcHWwWNDLOzfh ngx/23Q5BYVcGjyyN90Evw2fY+LbKHi3IkKGhdmwLJX0t3aRgv2HIg5aS16H 6ilBzXXLFOxt23GiiHEdTtWkRYWxOf+XcVZT9FcmzFhm8QCJipN/jqdueZ4J X8/dl66jUVHWK0fN1C0TuidfmT4TpKLS8tWOfcXX4G4V/W6DHBV32bmf+mR+ FfaZR9m0W1AxVDCl3ud1OqgrkPSNrahYWDWn31yZDlLUKNVX1lRMeD8opHY7 HX5VRoo02nLqNmKy5iHpkCIZ2fPEiYpUO5vNHpvSoXs63KzIh4pdJ+f1hRLS wDIpVD8hmoopizU6Y/aX4UDrqR2GZVTs+aIdXbf1EghKT3U+KKei8TJ5NlDq Erw6fdhbuIKKqfP/QncKXQJNWfOs95VUfJQZUDwxmwKSUZvIfk+pOPYwc/fX xynwTfVDe2oLFdeZ3GjZrZ0Cp3O13T8MU/FZvsIpxUPJkBHEm3aMh4Zp0ddF pMOTAMO6FNt5aai1hZ477pYEXyPTGhX4aXjxsL9Gk0kS7IhbN/9FkIY7d+/e W7suibN/KNo5rKJhy2+x8dSniSBSbiJlKE1DcUk5gXFyIqROJRatV6NhGPeZ iJrrF+CiK19jnysNqyvalf3J8eBysp2x342GCTbCrgJTcaASm2T02p2GuKMl 7NlAHLzN4+t64UXDQxofFe0fxIHMON/7Ej8aStQLnTt+MA6qj/HPnA+hYcWV 8lc8FedgLExAHFNpaBJkeTEp+CzszBAKvPuchvHnbn7TVImBYZkWF+ZLGs6c 0EtXk4mBM2URZj4NNEykHjfQEomBlvYfG5WaaegbwpUa9CcabKhN7ype0zDy m+zpmIpoOOkfotU4QMNvPPNvFjSiocj4M8/YFA2PS/LuXmVyBiRIFbekxeio tMnk+XBqJExmemrkrqVj0gbx8w9jI6FWVaxLSpyONj3OuRdPRYLtkUi2pBQd f0mGpB+zi4RL/Ya2EnJ0rJomm71cHwnUB8N8a5XpmCJyTjW/IgImDjKDRYzo 6CzrF6fRGg6V5fb7GCF0PBpFHBtoCIGAJfsvkaF0TP70MtyzOASU9ziELoTR 0SdWc5p1NQSKehzujUfSMT48RSDuSAjkzjgSX5+lox3pWLjzihBI2OpcknKJ jg1udnFnPILh0H03AbECOrr077/EIxYEjNtHOxUH6dhiylg/URYIVzzdBBLf 0lE4y2d6MjcQZBTt9/14R0fR7pv9yymBoFVh0FkwREffJ8qde44FQlDzhk65 z5z7CP7+76hiIHz/8bZDapqOs07h0TIFAdCqot8hQmUgYcmv7cP9k3CxSaJ9 eSsDUW/zbdNef9h7VagyeDsDnQpc1q9p9AeSDzV3TpmBA8dmt8xU+MMJvomA X6oMdE3reNqU4Q82VhXrxjQZyJ3nlUh38AfxUWPftr0MJB3J8ej8ehyK2EE8 mYcYeOmiisIu2nFO/zeGaskM3HK5T8nisB9YxTwZykxhYF3ENa0XB/xguDvP n5DKQJ1vTWs0Tfxgxi/oWmMaAzNqe2l7Vf1AtEB83DKTgd8+WBKaGX7gKe4V fzyPgdEXtPManI4Clc5uKqhl4LODljG5NF/AATnddd8ZKGe0a8oi2hsqexwH gsYZ6OfvL3/xmDds60jz6ZtgYNPoLsUBB2+QbiRfujjFwEJZLddUNW+glg8P kX4zUMT9il3RlBe8unjl9Bc253ubYSV3By+w0qffL17BxB4en8bcPZ7gXfFF SHs3E9vWqoC4mjvw1onuq9Vi4nIA7aacnDs8bDJOVNVh4p6kTbaw0h3mB0rp CnpMjKFG3k797QZnF8OXhI2ZqFsk6/H+oRvk7l71ZcyGieztqovvt7jB21f6 VfF+TLzayt5vtv0wGA7fc+q6wUSNP5ODT+1doO5wt972m0xU+TcYWW3mAsrj i4qpOZy8Yu/UOm0XEPtjumR5m4lGzwyGxja6wCTrT8ZAPhN/5S5h7h9nuKiq 1T1czsTEB0VTPcnO0Js4uGfqFRPXPv5GG399CJw1WZu455hI0/n42cfZCYgd SjXx80xMCuJZzrVygmxnK2PGPybK37iiMmrgBENnbx6lLjNRrirue/h2J7Dr Ui0jkFloJRl+XpriBJburpq/+Vi40VHZU97CEfSTa00/yLLw/eaDokOz9qD4 +eiJYmsWzgWcrmG7HYSs2fMPVhxg4TG+Vv5+i4PAS777PciWhdtikmxqtQ7C pNSw0x57FuZT314tWncQipzMjAedWXjQ37VPvs8WtrxTkiH7slC/1KYk0sAW lLp/9llHs9BByTreTf0AbKv312AXs5A6aO0kqGkNyaHvT9o/ZGFj/OESeUVr mFbTK64uZWFm83ljY3FrKHoouuHUIxaSHR7qlxCtQf5WPe/PahZeUMwPmGmw AsmzfCMjDSz8cKRJxna/FfAbF5xreMepP3tSFupvCT/6R94k0LlxTZxhbVr7 fgjI0a9iMLlxcs3amvn6/UDwKcqKYXFjkqlTm1vZfhBmn3YP5eXGv9IWNMeM /aCxQWDeR5gbz75e8a/BZT/EHQMxIwluVNeapfsumMMGZqYzcwc3zhL1DD8p moO9huVUrDs3djY56HY/NIPHkSWh3zy48eZLjy2775qBYBMPt5EXN8rAF6NH 182gyaJBTuAINyp9Ved/dM4MtvmqOl87zo3ep39tYDmaAe3m6jcPQrnR0PQi ncZjBiXUD1X9lzj593tzdd6ZAKXLLVa+jhvDFk/YlZw1gvgNT5/k13Pjo4aA 0YMnjID/9Mq/8s+5sXe556zwISMQlWhy39TAmXfv5dkH6kag5Ltxr0IrN9Kl CrcnThqCHXOCpdjPjSZxUl0fbAyhTOtY8tZpbuzPViqJVTUA59LgzB0SPPiH ojtSK6oPvaWSPSWSPLg7L030G1MfDMoaWZukedDlY3+0+D892F4uFLxWhgep C0Zt99/qAbmi4ABJgQffCShqmV7Xg7yqtyKtqjzIP9vhnyWlBxP1GsmOpjyY wvNZ4L//dCGg419MbBgP3vha8u3iKR2ol1zzI6yXB2mPqhxmr+2G+lrN7o// 8WLETK7u9TlNmE9gq0wl8uKtW4IXLnerwdcMBd+dY7zYGaBibHFQBS5M262f 1eFDoZmPzj0y28EjWMHG6jofDj/zDc26qsTZn9lM6SU+7Joz32wTrgC8RtVh ihzTOjoTusMUQEov8Jcax1JW36ZNODbQnBow41hOdeTJnlAFyNw4dDeMY2LD /OntwQqwi/RUd5BjwlipD1+gAkSXhkUlL/Phk9Jf2s2+CnClSP1PJscSnj5/ dTi+f++P512On/OF3q87ogC9N3z3PeXYbd5Z8rGPAshecJD4wXHzY5DL81KA FtddT/TZfCj4VOlhjJsCfHBc2GrBcSlFKInI8S/bR7cdObZwPO8belgB1uxT TAjgmCq867+Trgrgo7nO7hbHD5fvfXR1VoCIHYPtDzgutNHoHj6kAJe3p2lX c5xi5dxox/GTjbybujjuoR6rsHBSgK71LVnvOfa9blPa4agAY+Kxgt84js5+ U2LE8YKoVuwsx6qkrw+bHBSAT2R5ns3x1bKkRzoc/w+uXa6a "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{2., 0}, Frame->True, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], {189., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nc81fsfwPFjRSJ7y94SDp1wr94fZZ2uiq6cjMxIsvJrIKOUkZmRbFeK i7RuKSWFjBsZIdlZx0wcq5xzvuf3vX98Hp/H8/H4jNfj89dH0TPohDc7gUBo w8d/c2hPt0qUUTucmNQstSgzQbLi3JE/7duhyqST1pJjgrh2hHDP+3VBfclv 1mozRmiOHC2wVt4FVy4+5vn+yQh9TEmWYE53gdRYqdNSjRFqTezNTNDtBsUH zw6m3zJCScLLpQUV3RD9x8xXZ30jJKqk/OFDYQ+EH741QUw8gNTMUjjF4nrh y/4oxUEKCUlMZfLk3e+FVhjeXjQnIZ7YPD75pl4gLMxu7iGS0EJbuagmoQ9s FRfMxvhI6LFto4ppeB+EaSaktTXtR0buW+begf2QKjjsy31gPyJHe8S+cBiA u/VuQmR9Q0RMa7AsuTgAlazwJW4lQyRbrMiTkjEACZ6TniPChmilfiLxTOcA /HklQLZ53QBlYx63RSy/QhNyKUqtNUDTkZ75F/YPgmbwQF2bpQG6FuH1VEd0 GNI14j83+BGRX3JTiBRxGOycJtSuniYi+wJlQy7bYYi3yx8+bEtE6nVTNSNJ wxAgOrzKTiKiTrpXXRLHCBQlmJUashOR7NUzrfO0EajZfbbcplAfvQzzHn3Q MwZpz+j3bozqobKD5wekaWOQmWMistmth7I5LvSkCY8DgXzR7vIHPXQ5JaI5 7M9xoMS7lBZX6SFSSWb10f5x6PlenJIeroecp7/Vh/t/A+Np2nExaT00tEsg TSl4Ap56aP8b0rQPDTqd1w25MgXVrLg8bYW9KHHSyv9u3BSoxipNR/HvRSZ+ KhV1d6bApVBh/tu2NioIG1Xifj4FVgK+X7v7tZF7znHxgpUpoNfKEl2TtdFs vwGz+dw0fNefYpNjaKENW8ZHKZcZcJoWTa+a0URCVik+DWgW3tcku8mOqCPB Pu9nB5wXwYPtyJGqDWWkrOBfEev5A4Kquf+srVBARqMB7WYZq2BoaENanJFB DdvXbPry1yB3T/yDzhJx5Puura0+ZgPOLqFwkp4wyvUqlxZz34K3S/TgUG8+ pHNqYhPz/gU5sikBaQGcaGzteCci0yF3pPvZCT46pMoMKAfb0aF5zuv6885t OHjYNazYkQ6SJ05N6aVvQ3GGvwp2jg7k1JM2N8S3wV3/VvibRDq8XjSQ71P6 BVOBjWqkDjp06gnr2JlvQVY2OcK7jw4Vj6ZrY3dugXl9d0/WCB2UPg/GMjo3 4T7/eMTaEh02nGVbXjttgs9D+ucn/Azoqs2yf3dpA+bmDaO1jzOgJmuaX7Ru DXKE6vqcKAyw3rVLLDtuDayND2slujHgW5AYd4zdGlQk2PXPBTHA+GRLdskc DfzUA7XLbjMgqEurx1yWBtLHN6715zBgc529wHlhFdovR3zhLGHAi4fF6iuv VmFvS+J1r6cMEFSV8C+grML3M+UDCp8ZQLkycLWnYAWKkvfp2A4xYF1q7H7o hRU49vxFTPQkAw7eX8ceWa7AI44POmM0BigHOTbnzfyA4HvfbuSLMKG4OO30 cOky0Mal9MRPMsFu65CMheMSKHhtGcqfZkLHlMJEpfgSHKf2GWt4M6Hw8ayt ef8iPFxKO2xyiQkztFsbUg6L4POLi+J6hwlBcXdb4nwWICtiyvlsIRN8OojH 3+ssQBPrvXvwAya85DsvaLo5Dwo7IvxiXjCBPZGPkydpHoaEaZFl/Ux42n9L WfrDHPBkd8U8HmUC6eiN6dI7c3BAqjr+1QwTJIc++V/znYMsed/0jxtMSDF7 kmcsPAeN9yyye5lMGFfaUJaen4VVVeX8ES4MhNRnfjvZMAvH9o7dXxbDoOKB wvjkpVmIePymYmsPBp1qUseMT8xCFTH3EUENA/uv4iI03VngMbZ/JUzCQGLo qk/GDyqQ6vTfyhzEQFT/9tfIHiqcAYFGFUsMtpo5fHufU6HB4mM7yQGD5RrP sg/RVFhpK+8GVwyapOhGZ85SQc4mtt/aBwOONpsnl2ypYNPlOWQXiIG1zZHK HnMqhJ9A406XMcilxDk2mlDh7/49015RGLjdS+SVJ1Jh4BR9zj8Ogw8UibYp LSrsGPn6/VIqBhv3lgr4VKlg6FZDi8rGQPbxx8w7ClTwnMzcii/CwKf8wsvw PVRI977AuF2GAbOmRPiVDBXezx1jy3uEAd9OmSdk3Mvn9+4orcGgoa0wT1uW CrI/du56WI+BueLCiKMcFf4ImRV40YLfb/r+erci3rvxQbS+EwM/8rfMJDW8 N/SeVOsXDDyCeOXi91LhCz1arnsMg/4hTOudARW4ok8rD1IxWKuJbNb9He9l /01jchkD6j6rn30WeG+spM7iJgYDATKdlfj73ObZ1F/HMKAVvbardqHCu6Re EnMHC3y+T6d8PYf3ZaQiAQkWMFOHnXLjqXBEzN9CUp4Fl4002NRzqBCWQz6i qM6CzSpC0qcKvKeI097gAAuqC09ePNlNBU6lyVO/AwtMQk7M75uhgsGDd6ct rFgQ+XbYX4iO318VfpZCYUHDmayPE5qz4Mxm0dHvyoKXJg+OCpvNghpFQN/e hwVicULdMo6zUMd+f9v2Egtij5ynP0yahTnHTylHMllQpqHNHbg9C/88vktr y2OBpbX8X3yScxDF5UmxuscCcqjNLT/SHIg+3VQwf8qClS/vL1IuzQHwKDw3 7WKBjo5Uez59DnhdFyTrvuD7A0cJw3Lz0PfP80iTMRbUOL0aeHdoHvzcyFYH vrNAl0MxPSB5Hv5wNg7I4SKgQZKjxE6lBbjyzJOQoUxA8SqVL9Ioi+Ay2kq0 UyegXS+/0SquLcIhHh1vQW0Carkl4mVduQh8rlv/phIJiJV1engXaxHu7UzO TDIjILU2QZUbj5ag0/2FWqwbAf386DY0qbwMagI8R0PzCcjlX0I07dEKPFy5 XpZQTEAFjyYFSjpWgPiZzsopxdc/X959fWEF4M6PZ7VVBLR5YT2mR20VTskM SNLfEJBya0NIbskqJKqXTUeOEFBD0fvrDfk0WAbziBt72BBRU9Vd6v461ARf q0otZkNMc2j8yfUL+lQzue0y2JH88fP/KxwkIJUbvRqnczlQQzVh9+f7XMjY dtywOJ8T5VVeDoy25EWjwbEHU5K5EPlqh+Hald3ombEjf3P6DlQp1GZsGiCE xB1aB/+O5UZlgyXtYd4iCCYJ6Y0XedCq0cTFt2ZiKFfcl18tdCcyrWqSUjWQ QDFF5+L3+/Eil/gMq8M0SVTYmdOSGrwLmZRF3wpqlkaRgZkre0L4UOMi2fRu tCxa9NCQdPTkR9UlRSLGu+VQEnOBc8xnNyqtTi0IeSKPXi9Z/djtJIAcbtZm Gd9RQF9UjSZNVATRZx7XmzvJishX00s384EgGmwy9PXcoYQaHJyvmskJIbsd 8T9Xniohg1MLFaIlQmjLwSyw0kcZ+d+wHDCVEUbJFa/dGnhVUIIPzzZbpjDa /usuZ0S5Cnq7x4O1ICqCXDusPcSPqqJaLI5DK1UEDSWmhbyaUkWd/xxeSBES RacUBcKmY9RQs4JPS3KGKIps7kxGMuro5suTJRO8YsjSLUqOv0wduSiNuDqn iKHVomJdCWMNRK/RldHmFkdBOYyGQ+80UATHfMedKPxfsL7PlR1pInEVYw9V ggQSWlSOf9Gmia4EOqzzhkkg3iTHriwLLbSazOsnxpBAUcmz2/IftZDsTTNR VdwX31WX6+K2uhpab4i7tvacPeAuPEcVtscdwNlU7YqbbNn4JgO34Pq2WyHu ElYYvyBTAg1ZX2uUbtdCdiHzT3gxCeSgMxEt1qGFIs4pOEvjJvm4a6viLnen cGnhJvr2fzHEzTzW7EjGXdf6l4497grtEvYE3GWbdUMZuNlmTtlzsSSQv8Iu A8FPWmjvSBomintklToqj5vS2/K3Cm7blFcJurirGwyZh3FHKJmOHcPtWCRY FoP7Smt7Qgrum3esbDNwZy+cNCjE/Tg5arsEt87X/tGHuLmuLh1rwL0l/JLY gVsvRPlXN25rd8nRYdzO55xKv+EmhwbFL+KOc08/uoJ7p3OdPh33U0rbFuu/ 83lYw7ydWuj/WI0BgQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{0, 0}, Frame->True, PlotRange->{{0, 6}, {0., 26.649500081754304`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {189., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{3.4183898358550396`*^9, 3.418391883058774*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4183898572858553`*^9, 3.4183898878798475`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.6908286172302028`", ",", RowBox[{"{", RowBox[{"\[Theta]0", "\[Rule]", "1.917286878288274`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.41838989050362*^9, 3.4183919348131933`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"est\[Theta]exact", "=", RowBox[{"\[Theta]0", "/.", RowBox[{ RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "2"}], "}"}]}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.418390768816572*^9, 3.4183908003619328`*^9}}], Cell[BoxData["1.917286878288274`"], "Output", CellChangeTimes->{{3.4183907888253436`*^9, 3.4183908016938477`*^9}, 3.4183919894517593`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"hh", "=", "2.5"}], ";", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], "\[Equal]", "hh"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.418389153583982*^9, 3.418389201232497*^9}, { 3.418389314635563*^9, 3.418389319172086*^9}, {3.4183895053297677`*^9, 3.4183895115386953`*^9}, {3.4183899385226684`*^9, 3.418389945602849*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\[Theta]0", "\[Rule]", "1.1971979623614908`"}], "}"}]], "Output", CellChangeTimes->{3.418389946574246*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"corte1", "[", "h_", "]"}], ":=", RowBox[{"Max", "[", RowBox[{"tt", ",", RowBox[{"\[Theta]0", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], "\[Equal]", "h"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"corte1", "[", "2", "]"}]}], "Input", CellChangeTimes->{{3.4183899663126287`*^9, 3.418390028572153*^9}, { 3.4183923004990234`*^9, 3.418392314108593*^9}}], Cell[BoxData["1.8068`"], "Output", CellChangeTimes->{3.418390029423377*^9, 3.418392017722411*^9, 3.4183921728054094`*^9, 3.4183923159913006`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"corte2", "[", "h_", "]"}], ":=", RowBox[{"\[Theta]0", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"dap", "[", "\[Theta]0", "]"}], "\[Equal]", "h"}], ",", RowBox[{"{", RowBox[{"\[Theta]0", ",", "2", ",", "5"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"corte2", "[", "2", "]"}]}], "Input", CellChangeTimes->{{3.4183900405994473`*^9, 3.4183900574737115`*^9}}], Cell[BoxData["2.298563992897387`"], "Output", CellChangeTimes->{3.418390058234806*^9, 3.418392023010014*^9, 3.4183921781731277`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"nn", ",", "tt"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"corte1", "[", "2", "]"}], ",", RowBox[{"corte2", "[", "2", "]"}]}], "}"}]}], "}"}]], "Input", CellChangeTimes->{{3.418392195898616*^9, 3.418392240002033*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "1.8068`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.8068`", ",", "2.298563992897387`"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.4183922012863626`*^9, 3.4183922414641356`*^9, 3.418392321298932*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"prob", "[", "h_", "]"}], ":=", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"post", "[", RowBox[{"\[Theta]", ",", "nn", ",", "tt"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", RowBox[{"corte1", "[", "h", "]"}], ",", RowBox[{"corte2", "[", "h", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"prob", "[", "2", "]"}]}], "Input", CellChangeTimes->{{3.4183900647641945`*^9, 3.418390148985299*^9}}], Cell[BoxData["0.9443529953113804`"], "Output", CellChangeTimes->{{3.4183901425159965`*^9, 3.418390149726364*^9}, 3.418392026114478*^9, 3.4183921584647884`*^9, 3.4183923531447244`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pp", "=", "0.95"}], ";", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"prob", "[", "h", "]"}], "\[Equal]", "pp"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "3"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4183901748524942`*^9, 3.418390251342481*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"h", "\[Rule]", "2.0955970521531637`"}], "}"}]], "Output", CellChangeTimes->{3.4183902172734923`*^9, 3.418392356649764*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"cut", "[", "p_", "]"}], ":=", RowBox[{"h", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"prob", "[", "h", "]"}], "\[Equal]", "p"}], ",", RowBox[{"{", RowBox[{"h", ",", "2", ",", "3"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hh", "=", RowBox[{"cut", "[", "pp", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"hh", ",", RowBox[{"corte1", "[", "hh", "]"}], ",", RowBox[{"corte2", "[", "hh", "]"}]}], "}"}]}], "Input", CellChangeTimes->{{3.418390263930582*^9, 3.4183903639143515`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2.0955970521531637`", ",", "1.8068`", ",", "2.3191521839288827`"}], "}"}]], "Output", CellChangeTimes->{3.4183903189496956`*^9, 3.4183903650359645`*^9, 3.4183923715211487`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Soluci\[OAcute]n aproximada\ \>", "Subsubtitle", CellChangeTimes->{{3.4183905354510093`*^9, 3.418390550112091*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ FractionBox["1", "\[Theta]"], ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.418390553867491*^9, 3.4183905690593357`*^9}}], Cell[BoxData[ RowBox[{"Log", "[", "\[Theta]", "]"}]], "Output", CellChangeTimes->{3.4183905699105597`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"phi", "[", "\[Theta]_", "]"}], ":=", RowBox[{"Log", "[", "\[Theta]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"theta", "[", "\[Phi]_", "]"}], ":=", RowBox[{"Exp", "[", "\[Phi]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.41839057541848*^9, 3.418390628004094*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"est\[Phi]", "=", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"phi", "[", "\[Theta]", "]"}], RowBox[{"post", "[", RowBox[{"\[Theta]", ",", "nn", ",", "tt"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "tt", ",", "\[Infinity]"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4183906417839084`*^9, 3.418390685656995*^9}, { 3.418392436354374*^9, 3.4183924364945755`*^9}}], Cell[BoxData["0.6748906581317996`"], "Output", CellChangeTimes->{ 3.4183906886513004`*^9, {3.418392431206972*^9, 3.418392438657686*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"est\[Theta]app", "=", RowBox[{"theta", "[", "est\[Phi]", "]"}]}]], "Input", CellChangeTimes->{{3.4183906914353037`*^9, 3.418390709000561*^9}, { 3.418390829143318*^9, 3.418390829644038*^9}}], Cell[BoxData["1.9638182366752592`"], "Output", CellChangeTimes->{3.418390711153657*^9, 3.4183908308557806`*^9, 3.418392441541833*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"est\[Theta]exact", ",", " ", "est\[Theta]app"}], "}"}]], "Input", CellChangeTimes->{{3.4183908086438413`*^9, 3.41839083369987*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.917286878288274`", ",", "1.9638182366752592`"}], "}"}]], "Output",\ CellChangeTimes->{3.4183908345010223`*^9, 3.4183924526377883`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"nq", "[", "p_", "]"}], ":=", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "p"}], ")"}], "/", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"nq", "[", "0.95", "]"}]}], "Input", CellChangeTimes->{{3.418390863102148*^9, 3.4183909115518155`*^9}}], Cell[BoxData["1.9599639845400538`"], "Output", CellChangeTimes->{3.4183909132442493`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reg\[Phi]", "=", RowBox[{"{", RowBox[{ RowBox[{"est\[Phi]", "-", FractionBox[ RowBox[{"nq", "[", "pp", "]"}], SqrtBox["nn"]]}], ",", RowBox[{"est\[Phi]", "+", FractionBox[ RowBox[{"nq", "[", "pp", "]"}], SqrtBox["nn"]]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4183909315205293`*^9, 3.41839099868711*^9}, { 3.4183924642344637`*^9, 3.4183924670384955`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.10909779109371376`", ",", "1.2406835251698856`"}], "}"}]], "Output", CellChangeTimes->{{3.4183909731804333`*^9, 3.4183909993480606`*^9}, 3.418392467969835*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reg\[Theta]", "=", RowBox[{"theta", "[", "reg\[Phi]", "]"}]}]], "Input", CellChangeTimes->{{3.4183909764150844`*^9, 3.418390990074726*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.1152714086197333`", ",", "3.45797627097`"}], "}"}]], "Output", CellChangeTimes->{{3.4183909914667273`*^9, 3.418391001671401*^9}, 3.4183924717352495`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"corte1", "[", "hh", "]"}], ",", RowBox[{"corte2", "[", "hh", "]"}]}], "}"}], ",", "reg\[Theta]"}], "}"}]], "Input", CellChangeTimes->{{3.4183910180349307`*^9, 3.4183910423999662`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.8068`", ",", "2.3191521839288827`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1152714086197333`", ",", "3.45797627097`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4183910434915357`*^9, 3.4183924737581577`*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{840, 662}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 114, 1, 83, "Title"], Cell[707, 26, 104, 1, 49, "Subtitle"], Cell[CellGroupData[{ Cell[836, 31, 206, 5, 31, "Input"], Cell[1045, 38, 212, 5, 30, "Output"] }, Open ]], Cell[1272, 46, 438, 12, 31, "Input"], Cell[CellGroupData[{ Cell[1735, 62, 1178, 34, 89, "Input"], Cell[2916, 98, 253, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3206, 109, 424, 11, 31, "Input"], Cell[3633, 122, 6461, 112, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10131, 239, 543, 15, 31, "Input"], Cell[10677, 256, 405, 11, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11119, 272, 1434, 38, 132, "Input"], Cell[12558, 313, 20811, 347, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33406, 665, 118, 1, 28, "Subsubtitle"], Cell[CellGroupData[{ Cell[33549, 670, 781, 20, 52, "Input"], Cell[34333, 692, 298, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34668, 703, 402, 11, 31, "Input"], Cell[35073, 716, 2021, 51, 88, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37131, 772, 606, 15, 52, "Input"], Cell[37740, 789, 6789, 118, 245, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44566, 912, 303, 8, 31, "Input"], Cell[44872, 922, 27779, 467, 439, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72688, 1394, 253, 6, 31, "Input"], Cell[72944, 1402, 213, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73194, 1413, 389, 10, 31, "Input"], Cell[73586, 1425, 115, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73738, 1431, 493, 11, 31, "Input"], Cell[74234, 1444, 147, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74418, 1452, 482, 13, 52, "Input"], Cell[74903, 1467, 88, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75028, 1473, 484, 13, 52, "Input"], Cell[75515, 1488, 87, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75639, 1494, 521, 14, 52, "Input"], Cell[76163, 1510, 114, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76314, 1516, 331, 9, 31, "Input"], Cell[76648, 1527, 141, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76826, 1535, 651, 19, 72, "Input"], Cell[77480, 1556, 211, 5, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[77740, 1567, 127, 4, 47, "Subsubtitle"], Cell[CellGroupData[{ Cell[77892, 1575, 189, 4, 45, "Input"], Cell[78084, 1581, 108, 2, 30, "Output"] }, Open ]], Cell[78207, 1586, 356, 9, 52, "Input"], Cell[CellGroupData[{ Cell[78588, 1599, 408, 11, 31, "Input"], Cell[78999, 1612, 90, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79126, 1618, 219, 4, 31, "Input"], Cell[79348, 1624, 111, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79496, 1630, 172, 3, 31, "Input"], Cell[79671, 1635, 153, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79861, 1644, 448, 13, 52, "Input"], Cell[80312, 1659, 90, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80439, 1665, 387, 12, 51, "Input"], Cell[80829, 1679, 182, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81048, 1688, 167, 3, 31, "Input"], Cell[81218, 1693, 178, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81433, 1702, 278, 8, 31, "Input"], Cell[81714, 1712, 288, 8, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[82051, 1726, 159, 5, 77, "Subtitle"], Cell[CellGroupData[{ Cell[82235, 1735, 273, 6, 31, "Input"], Cell[82511, 1743, 488, 9, 21, "Message"], Cell[83002, 1754, 784, 20, 38, "Output"] }, Open ]], Cell[83801, 1777, 518, 11, 45, "Input"], Cell[CellGroupData[{ Cell[84344, 1792, 1134, 29, 86, "Input"], Cell[85481, 1823, 367, 7, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85885, 1835, 424, 11, 31, "Input"], Cell[86312, 1848, 4303, 76, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90652, 1929, 615, 15, 31, "Input"], Cell[91270, 1946, 322, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91629, 1958, 1540, 37, 112, "Input"], Cell[93172, 1997, 9162, 154, 248, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102371, 2156, 310, 8, 31, "Input"], Cell[102684, 2166, 90, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102811, 2172, 118, 1, 28, "Subsubtitle"], Cell[CellGroupData[{ Cell[102954, 2177, 807, 21, 52, "Input"], Cell[103764, 2200, 322, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[104123, 2211, 427, 12, 31, "Input"], Cell[104553, 2225, 5233, 125, 202, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[109823, 2355, 627, 15, 52, "Input"], Cell[110453, 2372, 532, 10, 21, "Message"], Cell[110988, 2384, 4632, 83, 245, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115657, 2472, 303, 8, 31, "Input"], Cell[115963, 2482, 13935, 238, 439, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[129935, 2725, 253, 6, 31, "Input"], Cell[130191, 2733, 239, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[130467, 2744, 389, 10, 31, "Input"], Cell[130859, 2756, 143, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131039, 2763, 493, 11, 31, "Input"], Cell[131535, 2776, 147, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131719, 2784, 606, 16, 52, "Input"], Cell[132328, 2802, 149, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[132514, 2809, 484, 13, 52, "Input"], Cell[133001, 2824, 136, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[133174, 2831, 310, 9, 31, "Input"], Cell[133487, 2842, 296, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[133820, 2856, 521, 14, 52, "Input"], Cell[134344, 2872, 188, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[134569, 2879, 331, 9, 31, "Input"], Cell[134903, 2890, 163, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[135103, 2898, 651, 19, 72, "Input"], Cell[135757, 2919, 223, 5, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[136029, 2930, 127, 4, 47, "Subsubtitle"], Cell[CellGroupData[{ Cell[136181, 2938, 189, 4, 45, "Input"], Cell[136373, 2944, 108, 2, 30, "Output"] }, Open ]], Cell[136496, 2949, 356, 9, 52, "Input"], Cell[CellGroupData[{ Cell[136877, 2962, 460, 12, 31, "Input"], Cell[137340, 2976, 139, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[137516, 2983, 219, 4, 31, "Input"], Cell[137738, 2989, 137, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[137912, 2996, 172, 3, 31, "Input"], Cell[138087, 3001, 178, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[138302, 3010, 448, 13, 52, "Input"], Cell[138753, 3025, 90, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[138880, 3031, 440, 13, 51, "Input"], Cell[139323, 3046, 209, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[139569, 3056, 167, 3, 31, "Input"], Cell[139739, 3061, 200, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[139976, 3070, 278, 8, 31, "Input"], Cell[140257, 3080, 297, 8, 30, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)