(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 130241, 2546] NotebookOptionsPosition[ 127361, 2487] NotebookOutlinePosition[ 127784, 2504] CellTagsIndexPosition[ 127741, 2501] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basics of probability theory", "Title", CellChangeTimes->{{3.888426100663587*^9, 3.888426108154323*^9}, { 3.888492816646288*^9, 3.888492822278082*^9}},ExpressionUUID->"5f847942-f17f-4f02-90a7-\ b96f9d335881"], Cell["Limiting cases of binomial distribution", "Subtitle", CellChangeTimes->{{3.8884928822106333`*^9, 3.888492890563479*^9}},ExpressionUUID->"277c6875-953f-476b-b6cd-\ ba7bed99f1d2"], Cell[CellGroupData[{ Cell["Large N at constant a = N p", "Subsection", CellChangeTimes->{{3.888496822962297*^9, 3.888496853208166*^9}},ExpressionUUID->"c29141bd-415b-41b5-b558-\ 6b8b6ac2e6cc"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"NOfDraws", "=", "1000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"x", "/", "NOfDraws"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "n"], "*", RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}]}], RowBox[{"Factorial", "[", "n", "]"}]], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "30"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(n\)]\)(n)\>\""}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", "20"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", RowBox[{"DiscretePlot", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"NOfDraws", ",", "n"}], "]"}], "*", SuperscriptBox["p", "n"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], RowBox[{"NOfDraws", "-", "n"}]]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "30"}], "}"}], ",", RowBox[{"Filling", "\[Rule]", "None"}], ",", RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.888496417394601*^9, 3.888496443386924*^9}, { 3.888496507603401*^9, 3.888496797571443*^9}, {3.888500688406693*^9, 3.888500702643552*^9}, {3.8885463176538982`*^9, 3.888546356691402*^9}, { 3.888556425780295*^9, 3.888556443591688*^9}}, CellLabel-> "In[228]:=",ExpressionUUID->"dba066c2-140a-4b6e-bd54-b7c18f2c1ef6"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJw1eXc8lW/4f2ZUZJO99zq2czzPfVEplL0/JZEVWRmJIiGrQiqUmRUSKiuV jINo2Ss7SfZI0vie3/fb7/nneb1fz/Vc5329r/d9ve77PCJOPuYu1Lt27Yql 2bXr/92/j3W0iCfk48OXVoz00kNRbxZPiO5gJPJivfzYVjoMAed7J57BFCTp zI+Z14WhINOSAZrBPBT6wMDm58QlxLrEnbI9UIVcQk5OVItFoPEGY5+NgSb0 R/8LPKiLRBmc3GfO07WgOJbk8UWWq8jSe9x2TaUV5U4P5CGPq+iNkK/eyvU2 NMxaFPGbPwpVRyZzLhzsQt+m40Rok6ORvvj8p9WBbqQ61zpLKotF+abGtpXe PWh/8+2BqxxxiOpSVbcvXS/ilXxfM3MpDjX0XWxbVulDcUf3C29axCPCtb2V i9cH0IETthfPMiUi/nn5qK8HR5F7u9Ij1+qbaHtA8/bKwBRymq+uaF+7hWpV GByLZKYRWVWrXRGloqDrg7IOodPISNfOSj8xFa3phTR2Cs6gq59srsdL30bz j+q/Fbp8RjV0LtWeHnfQ6FVM7+T6FzRF6lQs2JeOGpUOLncwL6LR1Caup4NZ 6HI8e32E4yKy32UzakHKRjqfp6M0qxZRcynhTV5WNqrLiOItsFpCLqvJVoWq OaiKjnw44v4yQvZqj5x25aJd/3utIObEB6ekdXNR9zlxYz7OVSQ4FSC6+jAP NR8syv+Yt45s0gLcjpMKkfKNx1+32tfRp9+NrOznC1HWYI2i4PI6sqdhMeIv LUQXzrXXniVtIK7uY/NbfEVI8e7XLpreDdTBeeFX+65ilDEvt6lO9x1Nsj+S Cup/iHyTKw5nuP1Aq+SR/LbyR4h/vG7WSf43ar1X9MPjZ9U/frvggAphIz39 GeLwOlWy+yANaD91PlBS+BzJ7n5ANrWhAdu1RWfTrucI8man0j1pwHIzc2Vh 9TnyGjzHJ59KA8Krb4fosQbUcigs0fQzDaSSxwgV3Q0oQCDdO/0aLaRf6r7l ufMC9bzrVpHrooPWpr97U4Qa0ZwHl0nABB1kMLw/YEZoRH9o7T1fbNCB9V2P +zQHG5EsafKBiQA9OElUc+i5NqLIomWOAG96UKh+7S1Y1ohUIvZtNbDshnOq 4gGi6q8R1f+WwwAf077S7f3+GqUQ9J8bWzHA2qHjvd3EJqQ0YncEc2cA+WaG 8hiDJtQVda5HLpQB2LtD82VsmxD9YOo3hlwG2IktPawT2IRCL0/zNS8wQMsh 1Z2b5U3oTGdEmGYUI/ALRcm9F2hGGi7PMeEne8Crer2qdLEZ9TC/72Am74GW rzJ8P7ebkW/tlNXvwT3g6T4qqErfgkr27vEe/rMHVuijL50RbEFCVbZZqYZ7 QarG+Njr4y2I4e/mH4apvUBj4LFiUNyChtKUG1dZmKDBfuzuuFEryugp3R8k wQRtvAGinNatyJ5Z6tRPbSawafTrUnBspfhZ4A+1MxP8F5TIxxDQiia89+hw PGMCSfdv+xwyWtHcoZkaDTtmqM9V5A+bbEUPw0/tfn6OGR5X6TENfW1FZ+uH rVEkM/hOHe7iXmtFC0ofN4+UMkOoTZIfkZqMVnhfqtr9Zga2V9T5bCJk9GPl 7uPQ3P3wPOhUCbUdGdXJsf/9+2w/tDErNgSeIqOLrjeMo97sB6lVcleHC/mf 31hAXvnPtzuBZBQxXcv5XpQFrpevWanHkdFERBDGqsAC3LbssY9vkJGuoJqL hSYLfBzpv7InlYyo7R4/HTBiAblK8XqnLDKKeldgMRHAAlS8EcP3KsloxtM5 VDScBZrnpqb4qsnoMKPIgzNxLJAs43YvrJ6M6A/dX5vLZIGoIQveiSYycp20 45UrZgHqCxUTU2QyarvMrXeuigVecXDZkN+QUWxdSvIqmQVsaaXtlLrJaM7a tE71Iwtka2bMPe0jI4MNpsnAERYgHMxR4hsioz1Kcco/l1ngkJ/Yatw4GZ3t 0rfV+ckCu+tkzqdMkdEbD9qIy7SsYC7T9zz0Mxkl5Ie/pz7ACtUnjj5bmScj QzUPNk4xVnjUMtvnu0hGDC3mVlIKrLB2ImO9e5lS77TEiJEuK0xaawC2QUZ6 5/cLOhixwq1hiUuHv1P0pdl29LViBfe3mj1KP8goTLRrNtWDFV4+dP5WskNG xKpnMkXnWaFfq+8l6Telf7rZXnWXWOHbOe535X/IqPpj7OPOa6zQtzMsSrur DQWe9l/7lMwKv5Y120hUbUht9T/1lXussCjyqNWKug2tRRy+QF3ICry5QjLm NG2ogkXpOUcFK9CIDP9Spm1D3jk8fyTrWeG6c+KxNQqWV6bW1W5hha5cQ/E7 dG1o/tW3q0bvWIF1PTGJn74NFZv0kU8OssKZKsWsaAp2G3/J6DvFCgFT5+w/ UrCkT/GxyAVWGL053/2Xgmf+JN9M/c4KG4RCTtbdbSjvRmh34S42YNlDQ6Cj YEdBF866PWxgdqVZdZQSL1hubNvJwQZLUYwKdyh4FNO690mQDTgmreRVKTjj rcjYsjQbnM24pvuEws/25F4RalU2YNUfCeOiYK7FDWcOjA3OOc4vnaDU0xs2 Vih5hA0u5ZUUx1DqT9nX/lXLjA0Wrc49v0XRx+x+pbzRf2wwUzSmFUXRj0X+ ns9JFzYI/UmrakvR993zqCofHzbgU4eG/X/JKNHIe/NKCBuEsBt8KaH0x3DE Riv1KhvcPK/cJvOL4gdP3dDC62ygn+fgk/iTjMg/ZV/W3mUDoaKU9W5Kv/V4 /xz8VMoGb548m9i7SfFDyZeY5Wds4M7wzv/PGhm91P7YQdXIBs4nMNW+FTIi 2eWbSPaywTVs722lBTL6OXc9RWuMDf6oyTs9+UpGtReC+wzn2EAhVuoZ3xcy Uksz/M/nFxu0XX54JGOSjNak1LKu0LMDWSrgWcUYGVXUCEzeYmEH19psurIR MlIYWHGtFWeHLfkfZWaU9SLJddef6jg7qJ+zaPuvjbJeCyKesduww3Bo8ea9 ZjLKUz/7Q+I0O2TWPX37+hUZCVphlw0D2WEfE+3Myxoy4k6djruVyQ6eDvJp VwrJiEfuWdSPQnZQ9KzS180jI96mmPCTFezwPZ6GPJ9JeX9FJlCqmR0OXdtz a4cyPySO+To+n2OHTeqDm1yR/38ecYDH7chFCco8UqX9rTGtygEmmnmzBraU eu+9IxzFOMA7s+lNpTkZaajkyD/S54Cv9eG0dMcp68nxoGiwHQdgyWPj53Qp 86ohjmlvOCW+jJvlmAwZmQRwzai84YAbleHZZputyHTv3NjdHg7wHe3DQ5da kXle3dCvUQ5I9Xg4kfylFVl/OPGevMwByx/v34sZakUn5R/U23NyQps3I21y QyvynFFKjnTkBCHD4gK98FZ0zdIA7/7OCfKSZK/ZrRbE+/QdLzUVF/x2HUuW WGpB5eyWW4S9XGBsylFnPtOC+rsdKpKFuICN7VhJ8IcWJG4WIGp2lAsyClqd VopaUNPxbPoP6Vzg1E2qemXRgn7rb757q8MNpmE6VAvZzf/04gEOpiunT1Q1 ofPauac6InkAW0nWV2ZvQoeWf170nuaF5k2+Ya62F//i+UGK+dNvINejKzpm p3m1BODy/LN39KE16KhD1pqmngAMB489T3KsQcwR365aHROAu8cqAiX0a9D9 5ujCJEcB8LkwPeXDWoNqDeu/0ccJwNebCmmJxdVoxVYsaH1IAPjTBqdohp4h h8DN+K5QQRhl23795uBTRCxPf3r5lRCEvM3xzdCvRIcG3v1eaheCAw1vV48Q KpHxLtojp7qFoGnxWzgtfyVyNvceQp+FwG8oeqNkteIff2EYE3jMKFNdgfRD RcIj6IQhp0LjenlmBfIV+v5AV04YcpUXHNVWH6MWt+zF5iBhuGY9Oh0f8AgZ /NJmCwsVhpTR2x0fjj9C75J6NdQihOFyuSmTptQjNFTHGJEfJwz07U9HzgyX oaW9AWzR94XheClfnb5eGeKpOKqp3yQMqwp0p+V4SpHXj9WIdiYRGODAqvNH ixHRz5Vrlk0Ejh6q8xKsKUYM88OlNDwiQK61onqVXIwKRpr7cVERaN+30hJw pBiNvbwt/0xDBF6cnMqselqETKK1B3NPiUDLJM+lwDuFSIXtilJopQgwHq1L XQvKR7sSNlvSqkXAWX4qCKzz0Tuas/bVz0Wgu7kg+Kl6PvLcNI9ebRWBXiq9 AubNByh/UHzEbVgEBgulzeIDH/zTTxRyfL3CG5PzEFd2e4wljSgsFF1dSbmU h7blWMYUrESBK5Oh+OLDHPQ9k/eKqr0olFlyPF67noM29kuIa58SBZG9vpev ++egpXXts4c8RGFOZlpaTicHTT13/m5/SRSeJj3cw5iXjd4Y1TDHFlCeD3gw kKizUIanA5raFIUe/hpy7kYGuvvJferLT1F4vdfq1FprBko1OR+9+FcUgv/b ZLp6NwPdUI3t/MEoBrdu35p3JmWgyJ1Km/2CYvDFpF1XMCYdeSbQ+eroi8Ho /OUaA6k0pFNalnPnjhi4PtA+xXH3NhoRLs0+fE8M0k3yCwr8b6OLdx5mbWSL Qcx6AauH8W1Uc6XwvvlDMRBWsiqNpr+NVGxz0pgbxCh63uRmDUlFMnSpSTGT YuArd03B0O3WP/3EgcuXzLNzJwVxnQqNCJIXB+Yfq0FMbsnoWW9IuARBHM4Q T167fjQZWRpeuNyrLg5VHF5yRNlklKIeGKaCxIFa0P0iz1ISYtrnc2HJTBzq qIKOzAQnIdo6J1/XYHEY1c68LCp1E62yGTpaN4lDtl21JFNvAhr0Ev1wtk0c 8q4k4rqZCaiR/BOFd4lDtxCZ5qNrAkq6WCpU3C8ODRxePVQ78Uh5at/49rw4 rCcfIN2Xikfele9PZrJLwPrQETPz5Fg0b2L138wZCTD29E56+SAadT9U6Pzh IQHvWokqycHRqJ6GnsTkIwFs5+ebK42iUVxNNa9GiAQUm8szj2xEIWkhnuFr 1yVAMsn2cZNhFHJbGraVq5aAnaGJG/G0V//pJQmGdLMveGYi0Eyio7X/bkno HSNtKT6KQN7z8qLK+yTBfOJB5fHECLR1ZHtxkUUSliN+4gWeEWgPTUq0B68k BNtfvvtbNgIphzQ/dVSQhJia36dv24ajSy6S7CYWkpD0O++1hP8lxIUvvJfL loQIEZ7pO2shKOde7b2vDyRhTGEkYvJFCJLZjnIrKqb8/plqpoS4EKTzVOCv aJUknO/YafwhEoKcZU0UeVslQUukUVfJ5gKq4KpKZPgmCVS1b1mSuoOQwXKw wWcNKRgJKgy9wBiA+AmCMQw6UsCWlb0gMHoeLfm3NMnpSkGRv5eJ0OPzKPU7 i46/kRTIT+wNUrU+j8Z+P1T8e0oKpqmE9JKK/ZH/vlH2A3FS8LL/jNCdk37o kHGkqc4NKXDrIqRWqfsh7iTp66duSUGFeH64CLMfamAPpC/MlILPtE8CN175 Ino+5m2VKimgf+UoeUrKF2XIwNixESn4pKwRlcbojbw8Z3l9J6TgT5SD0r3m cwg9SrS59VkK9pzpNiJcPodmlIc+DC1Lwc6Zq2Xsm17/+iUNcZ8dmsZEvZCi ln+zK6001MU1Sad+9UTN+vnFEQrS4AOBabkLHmjBmeH803BpCPlzNFzc0hUt ZR168SpKGma4m+fyhFzR8lDE7s44abBEB8eSv7mgNZPte5O3pOH2sqroyygX tEWab2EulgahnORD2g1nEDVHF5fHB2l4DA75u5EzojVhOB3QJw2nzmxGKbI6 I7r4Q6Xhw9Lw7ugVs7ppJ8Sw6wW6MyMNm7/ZK7binBDzwiP35h/SMDwU+J56 5DQ60HKzXkBEBhhrWl5U3HBEvH87aWUkZYBKlGblpasj4icymKjJyUAUw8V0 CeSIBCsipg3VZWD22XGt9clTSPy+374LBjLwpi74qEWlA1IOsHDo9pOBDCHv t4o+J5C+ODf1tSYZuMhbInLfwRZ9dTpSTGqTAd8BqadnJG1RYm6w8UqnDMgn WLIWLNmgHsHBDLs+GcA33dLjImyQ44F0Vfk5GXB9U6Dc8dAa/f3fSwbk5iu2 DIqsUAgzn8tHJlmIa3XJO81qhfiPG+2NYZMFoFIvxScsUWNCaCWRWxYWiglD 0Y8tET3j6O8HwrLgmB7vaWJiiVJoMu8EqcoCfaeZeN0tC1T2Q7Cdz04Wnhhb 7NFWMkcmmibeH05S4ov/nLOnNUdrgeEc0U6ywHxWqGRoyAxpr487LnnKwrGr xNalaDNEXszZbrwsC5WjqpdPTZmi8SlROdd8WSihE3C6ZGOC2N5K3qhYloWY d8YrWVuG6M+ycsGbDQq+Nrx+qNIQzbORGma2ZeEu/S/VO56GqMnWZJ6HVg7C e1+Eqk0ZoPMzwfpXeOTA/ISYvubAUdS70/7HTFcOlhhl5rnH9VGjYA+nl74c jGNKha15+qhM95N8jJEccLxilmNw00fR11bt663koH32jJn+6mGkwc5bI3pW DhJkzFYi9x1Gd2U9fdZT5ICUIds9c+IgijoeGMOUJgc7O98kjsgcRL6+4ZlS mXKwEbjfT/a7HjpafavzvyI5+FqwYuyTrEc5nzVItTyXg7Dzqdbdb3WRvR3T ROqMHLjoxMbRn4R/60ceQoKfDK1RIcQf+9hUQ0MevEVv3Wy9R0Il5Y+at4ny 4BtWapluRUJafaUaL5A8LO0p2ORgISFL0WL+Qwby8HNj5+/vGCJKbMiZMzsh DzyprEd9wrTRzkpyxLlIyvNVYc+0KE0Uy520rnxNHgL87mzoHtWkzL8brhsJ 8uBkYOp3aZ8mUkmIPxZ6Wx7s+kekC+5ooLMSV3niiuUh1irXIbVSHQ3bBVTk v5MHCZXq+xO71JB7hL+Ye4880EmCPedbVfS90PeO3KA87Jpxf9WerorYNrzC qiblIWyfA3WRmioyvOFytHGDUh/bxQuiviqorsl6YoRXAVhOhm+L/1ZGaXLa LOxuCsBHeJaf9EEeWRm9TXrpqQAcLS4HDsTIIzbP06xnfRVA/kT9lI2OPEoo iWN7HaIAm1ecV1dL5NBlmWEOn0QFuPyUVskzSRadkQo90FmpAE2c1xO4QqWR yJH9GUHVCpDQ8XrzCEkajbk+4BV9rgDk1//Jcf+SQjaFnXwhLQqgneh9OC5c ChlK8AtKDSgAT2jV99Trkogg9kL06i8FYK68RMvbKv7v/ypFYOhJWbK8L45K nD6LDdMpgpatU2+ArTgSz2OSIOxXBNmr/qvfFsUQj4iD1LiIIjwmh3TuFhJD fwT/ypGOKEJwxyRhIU0EveHVVV9PVoR3cjNBWm0C6IPgY0nau4qwbSvtu+kr gPpFBXg47yuCMMoMyeETQJOy2z81ChXhpx4XV815fvSDWNl4sV4RUP5vqXxF PiT5n8gx6mlFMA3Y1XDpLQ+SP3UTY59TBKMp6Qm6aB6k4vxbUXxRETxNhqls MR6EeQ6x6m9R8F/rDbMKbmQZmjwQt1cJTmmbPnLO5kKR96icWdWUYMuAEY7k cKDYbB9LUW0l8E2z7Y9w5kA3Hnw6rIorwXJNVoiLFAdKL62TtjqqBCYjz99K V7Kjiud+S2knlGDmHseKaxcbGhuZDBGOVoJVqWQVA2FWNDNu4kmIV4J8o2vh bossaH76xQm9m0pg/ULqFNdzFrT5LR2dSVcC5m7OViFbFrTvlxld8SMlGFip ZPIh7EdE/qYkpX4l8NpZLDzvsg9NiYmPfR2m8D/U3LePax+Kk4uRyx9XAlWS UNrFtr1okGhI5vmqBO9QkWen/F4UbNe9Q/VLCQ4Q7vszUO35tz6V4U1v/oXs VkZkb+SnOs+iDCVkEhPh3W6kaCJqf4RdGfheMywJJ+xG1BY9EfmcyhCFvZxq PbobPbRXf+fAqwyBU4odUmR69MNj271HTBm2PZTIBzro0J3YK1kNGspgmqSn rbFEg84mqrQe0FYG1yGezsJnNAhPmv4WRFIG27OrJyov0aDPdw9rE0AZ/OSm j9zYT4PUihh7CwyUISYyOEKHSI26W5MZb55QBt1wtQrhkl2osENPecGBwj/o JX754i508e26tcFpZUjHWZIdjHYhkT6rfBpXZficbG5z6NNf3HfmALrgQ+Hz iFdNJOgPzkyTF3A6UhnCjZgLxnt3cPrtVxarUcrgca7Vm/3yDv5n6ZPKlWvK 4GNa52ckvYMvDx9YzUlUBtrmvNiG8J/4h6rkcxN3lCEt7/55C+I2nuJ0xfVU qTKE3HHvWBn5jsfbZh9efqQMXQMrzXyp3/FI4xfi4RXKIH19/7rQ8e/4eeL2 VNYzZTh77KtkyetN3JLN79TYK2WosJgaj3y6gXM1Odqe7FWGUv1bsXqv1nDm 2suai/3K8PXXePPc1TWcvvw+16UhZTA5M/7joMEavpU+2Ht/TBkWH1hwsvav 4oN+pmajc8oQN8lU/3ZrBc8QAcP/fitD2WCSJ3q6hP9f/wlQRGoz0TVZwuOZ whhCqQmQvcDy9/bqIh66XUPO2E2Avm+hKymqi/iJj0oHh1kJUHiw7SJ76zdc 8IqQjp0kAQaHHt635fuKl59nEP0kTQDZkpAMma45HHdd3X1ajgCWtSM3vl2a w08aNfe4KxMgYvqyi+bMF/w+p5vnBSIBPAYsah88n8UPlJRn3DUmgKi25ekb t2bw4vt3I/jMCND2rIyobj6Da92McM22IMB3c87L+awzuG2AuUqRLQFWux+x 9KRM43fw7x3VTgToPlR1lpA1hXP0YNt9QQSwlfE5v39gAs9vlRy3CyHARanM dfXcCVy1dn/rp1AC/Ob0GaP2msDNMyeTPkcQQKN/G8XSTODJbtHSm/EEeHn0 wzeegDGc+VeXDUc2AYhRUcudMSN41tIzLC2XAIbywWsKiiO44mSWGH8+AYIc gqce9A/jx8m+y2IPCfBQlb34pewwnpjEcU31CQEO6Yln24wP4owSJ6rN2wgg oCW64B/cj589gAxLOwgQSGRNi1Ttx98wiY7RdBFgf6Ubv91KH574/Qvdsw8E EJrkWTPz6sOZ289bcQ8TQDDu9rrGuV6czTNhY2SBADzxL9epkrtx/1PesWrL BBjZ5P4aZduN91iY8V9fpfSHmcGiXLgbT9XhPoR/J0CD/znJxaqP//ygAtik wfa+gQ84f2W9igubChzLL9qXW/gODyvIJL/gUIGzLeTr74++wz+lR9hzcatA u/D0CY6Ft3hWpH5kG58KDDLXhPaqv8WFLbs/ykioQO1Y0pOhvk5cYuur75Km Chwpzc09e7gDj/nWRXuEqAKOZgcbMrba8dnxx2nZOipw412e4pOSdry4PbDR VFcFrgr7laSwt+OyGVQsTwxVwO5YzOWWZTKuiB14HHxSBQbEp/57974FfyLm sUPtqAI7R8SzVuJacK09dUduOKkAFfPghe+HWnC9AduJfDcV+Dyv/y73RTNu 7ZfG2u2nAhEl38pk65rw8ALuAPkYFWBo5rJ60d+I0ya6NdbEqgC6xyYxktmI x/vX7DuYoAKVxnXxT1wa8VRkU2CXpAI8hdwvOJdf4cVDd/pjMlTg4l3OIzJH XuIfmLi0J8tV4Ev5hoCLxnPcasMl2qtSBRYzvU1nh+rx4eFnH7eeqAC/09kf aZfr8Zkiq7PMdSogf9/y/NXOOvyH7u17pGYVYCzrlKI7X4uLBHH8uT1Aybd5 qi9n8xleeOKMociwCtCMbQXFljzD5Q8+vVM2qgLfxcMbPRyf4RoslkrNkyow dPhC6773T3HDkluOK99UIGDTlTG85sm/fqvCXen6C6t1lXg7+cSLEmpVMLr5 rLwkpBIXfFxYs4dOFeyWMxMjdCvxN+HEsjeMqnAt9NGWVk8FLiridNuQXRUS n9620f/9GP/oXOlmKKkKxwNOlhh+KcMlj+2cLpFWhQmD6qD5uDI8TO3wiT1y qkDHsdL/WKEMl6YbMn2jpAo87P6OmRdK8YjCXURDbVUQDPiqlM9Xgit/Ndln eEwVGmNvNEffKsJjPqbTlxirgvNXprkV/SJ8tG561x4zVfg9/VvPeKcQj40P 3uywUoVw5hX6XtdCfEIue8zglCo4eAbcbDhagCd5L1UY+KsCxYrjeeoP8Flr rdKHAapwQnmW58v3PFwHRRYwBquCpaTLl7XaPHxuP1dGR6gqnLdrLLJBeThU YlcNolVBPcGInsMqF19eT7QySFMFjx7P2KZD2fjoYK51ZoYq7OzjMOCfyMLf vKi2Wb2vCrdn6bsqw7Lw/GsTdum5qkBT33PgSl0mbs+n5vC1RBUkRpP0DHXv 4616I65xL1RhWplzLSAmHa+SWnH79EoVuE7Oso2rpuM5++g8CE2qsF8UXh6f SsMv9it6DpFVoeint668XhqufDbSR+aDKrzIcupLY7qL30uWudAxpQoHlBx4 8j+k4rFBeIjAZ1XwqX80tp6Yigf9Z3HR74sq6FelOPAapuKmEpfCDixQ9D8T rzVJvoXT132I8NhUBZOjna/2v0n55xc1ULZ4e8n0VTLuNxEcx8igBm9Lnz3s 2UjCHVoT40/uUYO7y0tt7i+S8GMluQmV+9RAxVy+uDwmCZcM6Lxux6oGs8hN 9BBfEj66WyjlIa8ayDzg4a1Ju4EfUSJnGCioAQ3Js307LQG3pT9q+UFJjbK/ sO0p1UjAz37qYLJRUYOIMaOmJ33x+I2EtxFnNNUo57OGg0+44/H+L72u4boU foVm7zdLYvEzOdMqz6zUIP2KlOz4nhg8KNhlgWSrBlnmfN+Xn0fjscZfCprs 1eBe2M9RDu9ovOzXPM+HU2rwWXPEIrEvCl+3Xfsz76EG4UPxq28rruKRrFSd wpfVYGFDXirv9hU8dS4yqihCDcTSvIWsrK/gha9occWraiB342jrLPcV/M05 hkpSrBqMnnNTz8iMwFnf7L9rnaIGL1pe8k+6hOM5kYLOiYVq4PPSOHWKLgyv ssvhZ3+oBtG3UgXDckLxFmXR/vRSNQjOETkRphOKz41JGBRVqIEvI6k088JF XImkoNRUrwZzDjqEiV0h+Mt10s7WOzXQ705iCjsehOd21ThZfFSDkPs5RS1U QXhUgeqb8h41cJt6W8hQE4gb2MiluwyqgXnYkHiQeCDeW8+r2TNJ0YflT1jS ngB8/sq2f/mGGpBX67rlqfzxt/aBw4xbahDDk8Dd3OyHV6iu6rpsq4FUhd9x yWt+eODnORb+P2qgWH9C0oDF759f1EHgzenQwClffJfBYHncbnWAsKMJdXK+ OBdLzfwZXnXgrCxtPb7nHL49p2LeyK8OpuebT3UUeuGjr8vr+ITUwaf30MuU Q1547vnC2G4xdXiEPF//vuqJyw/clgQFdQj7gnIaWc/ielkBTnygDhIRXqRI FzdcInilI0hPHUY+a9l853DDGUy9CN2H1CHJ0GYppNUVf0t1ZlecgTqsmM/l 5sq44rYuFlnfzdXh1dFeVo4/Z3BveZXhjy7qcJ0uP/txrxMeuMX785Q7hV9R V7nwDSc8rImGd+ksJb9neFnqUSc8wbbPbo+vOtyvQb+DGk/jxVEXhvQuqsPQ UffApueO+NToy8EnN9QhNoHBnOX5SfxrUdEP3WR16JgSeCVodBJf8U/i+XBL HVyaLou8GT2B/2Vwsl1IU4cZP1LqBO0JnF+dblD8gTps2WQibzd73Pq60cDt GnVw99nKOeFng5+0VdsSq1cHsbI5xlIeG/yMmAB3VYM6JApEWeq9tsbP1y1Z v3utDpd8fHe0uKzxpM/J/fRd6kD3I4Wn/Z0l/gYb7AueoOi3wLpTFmSOf2R4 vUk3rQ77Om6OhCmb44M9DzlTP6tD1sKWufk3M/yLR6hVxbw63LEKlvvrbIbT 3hHsm9ug8HlM77zjaPqv/xogTbelwPPKGMeWzvTaMWqAjZGf4K99x3Gu50fy GvZqgG35UTbLgmP40jVZXyFmDTikcbKRCx3Ds0RW9n5m04CzOeyr7UFG+B/L 0IO+/BowJVH2+MR3A/zV8+SqGCUN4GAfu2ypcgRPiw2I+ErQgFMuv2tVx/Vx Xysb42NqGmDVmkbQvK6PCy/zz7Nqa8DT6DGVewuH8QjRYpFMPQ3Ie/U7x6v2 EK4b9zLpiZUGFPy2z999RQ/ntc514LLVAEO5p5+9cT18TTRKPsReA8SF2u1f /9LF8xoM2vFTGpDz9r0qX5guTr3S+7fDXQOE1NOxY9GAN1t/854I1YDdfea/ xC5j+H2xdzoHL2vAn4NlSgnsGB6wUrGnMEIDJGgjk71KdHDx+KBCz2gNKEtv dI0bJeFRL6jGvt+g8BV435ZtRsQPi/McZ8rTgPbNIrkDoZr408VWkTP5GiC2 1WsTK6WJi9ec/15fSKlncjyKr08DpzV8n+1eqgEhA9XHs1Q18CafmLXmpxpA rg93Lv2thuPPN+5ebKPEa4jm1jep4OVReV4fOzRAqfZSWEW4Ci5gbKor3aUB 6WrmWcmYCv5ronS+7wNF3yy7A4wNBLye3hkjDGvA7HjMZlCzMq5h/nHqywIl 3+mHluHrCnghX3gNvqwBXrQvIhhjFXDOz/KJt1c1YG/Ji3PMggr4RnCs+sHv GmDcxCQZYCz/zy+awHSdx0C7UhZX+vpIwYpNEy4x14SsT0nhWVX/UZdxaELV nLfOXKIUzhzGOEDNrQnBJYE3mLSk8CVml4gKPk3wUklyG0qWxMvU+Hv2SmiC 0uibYjoLCVw6Iv5Ck6Ym5H4K/GrHIIY3kArojhE1wSx/VazhhShuuvUqpU9H Ez6PqcxgAaL4Be/NsjldTZB34mK4OSOCt59wnGQ+pgm+MZuNGx+F8RM8od5p xpqgnb51b/ymML7Sc3tHxEwTNDunHnUYC+M8Rp2c6taaIHbrWhdPthDurq1h +J+jJrRtHb/cWSuA/9owHZhx0oT08520bQcF8KQKzzPeLpqwJpgZdu0DP14r lXv5yllN6NTlC9BZ5sMZuPY9KQrQBJE+W8tG4MUfrk3ybcRqwqkTVt2ditw4 Xv6r+FKCJsho9s2J9XDh3R7cGrtvaEKIVpL9xAUu/OfEMVPeW5qgyjkl7NfO iRu+r4mCTE3AWR6TnII58LH4btY32ZqQYp6afUySA/fXX8yyyNOE9+3N3/37 2fGMF6J1rkWaIGTRVupIZMfnS68vJlZS4ouu6gALG37Zrfgi11NN8Hts2BbX zoqziTXvzqnWhI97J09+u8KKEzN+iDx5rgnOfpsbn7dY8PhYZ+uhVk3g1AxF Nyb247Iu2q8khjXhh+J2WZ3gPvymqPHPq6OaEP8mRJCpei++Me6kPjWmCSrk mPlx4734S/vE0qxpTfiqv8m1FLUHNzcdv8u9qAmiIaRLvNSM//ykBR8fl1C/ xOjxsR/ppW7UWlAbv56v/5UO16sun22l1QLuTSFvp7t0+D7C4IlIRi1wDGew EdiixXMk5Qx22Cg4mjVYroUGb2f9KLIooQX7O2Z/KiVT4QrvP58wktaC2Uu6 U8dMqPCUxJ93H8pqgcgrbfqTzFT4id3izK5KWrA0w3zY4OYufPlX0M8xLS2I +fWeZ07zL8Y1x9/zwUgLvuWLJ6Q938FCCwjMSsYUvvclXxIsdrAJJ32D66Za gJTyJ48v/MRKPvm8MrDSgpqYd7Tboj8xvKeptMlBC+ovCh2Nzv2Bubx0j3rq pwWSUQe0do9vYkvn5oMPB2iBTHBk+bXoTeyCgJdnf5AWFLwo6/BV2MTiw3zM f4RqgcA9hXLXKxtYBTFIWCeGwr/riaCh9jpGnN9ifxurBXVNp5kuzK9hzekh ux0StGDzL8uhmftrWP+PsKXwJC1oC7cYcaZbw35VX21oztCCK1IrnBdnVrAY V7oKy0wtWDlgI8iRvYLt57r24HO2FrxQeb9Ftl/BRAPj43cXaIHbLwXvzpJl 7Ihqsq3RYy1Ye/A9XrR8EUt5nLXR3awFxJ4w36Os8xj/KeE5Z7IWtKc0N7YW fMUKmPNGNtq1gGNIYXaL9BWrPVfQxPVOCxTlzSNOnZvDPsmVJdkPaoGgo7P7 1elZzHVEIerbsBYsh/JyL0XNYivxj4PDPmlB4FzzpyGpWYx6vsoha4pSv/Tq I37/z5h0cZ381IIWPHtVbFnGPYNV2ZCEzy9T+h/TxRbWMo2Rdr9gp13TAnXG dLVs/2nM2LXxp8SWFmg9t/Z60z2F/Z//tIGWu2Gbs2sSe5XTe2aVUxsIV+Q0 LVbHsIljIqeCeLTBcttQf9/5MWzX9jm7HV5tUKZ6gL3+/gnTM9ttTCesDT+I e+/8pfmEkamImgdkKfHPD53cVhvBvjyKIWTJa4N/yFHdhtZhjMG+R05MSRvK 9dn8ke0wZlDlJaygpg3ZLn8YPCOHsC6nbEZdXBuWHjQx3ZsfwBaZF2jIoA3u NAJ3HsQOYMzPtf4YHtSGJnHFp5rSA5gpe/ea5VFt6CMqqs979mM9zbSj7uba MNdfy9ZN24cNi58tT3LVhm6PtbjW4G5s50N1MaeHNjBNjUkOynVj/JdoHmR4 aoOfzWaC4ORH7GTf/bv5vtqQFlB1XdXkIzYR/T6i9qI2LGsZpv/S+oBRqfCH Ype0ISd2l6r1wntMdIyybwrXhhGL8M2P7u+xMxrUZ7uiKHpE1q3TuL/Dvsyq WUzc0Ia33le9vC53YQy3rhx3SdaGkCJd8SGGLkwavTsyf0sbwm7WHhO/3Ymd veums5GmDaVmoxxaT95gS0cyJBgeaENR08/peNoObKP475ZSjTZYfXFInd5s xWat9XPi6rThalHGEFVuKzZIe/3o9HNt0BESqXU+3oo9d+RNv9OoDc0KYxbj D1uwSB514u8ObUhMOGGh7teMBZBDp6y7tCFSeoywLNGMuQY0xVe804YYVdn4 9pEmzOCDyYhzjzaY/hx4327YhLHEng17M6oN9J/FJa+rv8aoNSrFxccp+c99 G3y/1ohtTG91XZrUBiW23nHWykZsAEULEGa14cKxpYUo5UYsayv75d1lbTgw dE8jMvAl9n/fz7RhUUnZNMblOSbv1rfLhZoIhBU/E771ekyQk//hS1oihf+D bTy+HmNpdjLj2U2Ed8JG6pui9di64Epu514iLNXRPqSyq8Pq+/ccVOEkAl3h K73t/hqsLMrsWwI3ERoUKtL3X6zBslTSbn0+QATl3Sd1EwRrsCs3JGbSBImQ LFjnmelZjR3Vh+i/UkR4tPijK5PzGUbciFGwkyXCD58DDcbNTzH5vLd9VfJE mN7f/ErH/ym2/4+9pCuBCIOvug+96HmC9T8LbOsiEmHS8mz3h/wqzFmilDHj OBECzGtfhoVWYBdbHc5KmhJB5OL7yDj1CizJha2zypwI43n5N4MmH2MNBSGJ nTZE6CZN/drsLcc4JI/u/32aCC9lrr7v7yvDZMk7PnFniBAtoD2D/ivDwPXx B043Ivgk5nqUTpVi5wq5UhS9iHCvr+GB+1YJRpb8zOEYRIQ2STele5oPsVFy WuDCBSKIJVkqaXQVY2uux/ovhBJBRon+capTMSZU9ORucgQRhC2v7glPLcIu SEXyNscT4VkUS+nBfYWYrLSQsGQ2EfJ3Jck0HH6AQXt3RFUuESTIvY9Oredh 1u4xk3g+EWi6S5455OVhV4sX82weEiGTcbXLljYPG5VukIh7QoQrK8qR+QM5 2Fq7TwxnNRFGPRhn4m/mYAweYl9ya4nwO3CNMe9oDqb+ML64/gURDq5GPc0M y8ZuyNjJLbQRYX/xgR9a3plYfse+xAtviJCGPXlKu3Ifq/doXKB9S4TskaTR 2fP3sS8PpcoFuolg0banvPPKPQxkvyubjBKhMlygV+5ZOrYqe0ujaoUIvN67 Ttqev4MNdsFh9nUiXL2oJcx/4A7W6L1kEbBJBP+vnzj1G29jN6oM/DR+EuGL WUZjNdvtf/OTBK5P/hs5ZJCKyRJ3ldXTkEBnFHsR1HYLYx19VM9HT4KH863i A8G3sB+X/usIYyBBi+sR8QCZWxj5dfUszkR5n8E81TQpBXMyOCfSzEWCxXuX ZvZ7JWMG33iVxQ+QYLM2UvmjRDKmfL0dj+YjwZ2eYlQykYT9+SB24ogwCbIK 52JT7JKwe7bDdzplSJB+kJ/t5uMbWK/bkX29OiR4HkV15CFtAvaccZNXHZGA Ll+t3OluPJZXmidzR5cEN27WVn+Qi8d8l3/r2+qTgJ3m/uhjuziMKfjplVET Euyntwlqab+GbfA4JWHmlPraaCS93K9ho/X7s7MsSTCfM+V5m/EaVvLnbIOj HYVvjiKNlWkMph8jsjXjRKkPRTl8WYrCFKTf0+m7ULCiNPfP9CiM400YR5Eb CSTPrKDT+lHYFNMgwcOLRDl/1s9xP7iKhd++4bUYSALxsjS1NM9IrDZ/Z3Iz lgRC0k0rFWoRmMbBgC3DBBIsuY8HMc+FY88mF/blXCfBl8PPfta6h2NVgmOa hikkyPd1/zzncxkrS2u8nnWPBBFWtrZTqWGYrKb2g/VMEvzcdfJ+qWgY9rCv svZoDglSjNMWNKtCsUK2B9Nr+SSw2Ewyudx/EctJjNY+Uk6CMzvjYgyqIZig 3B/j+xUkYNsbsl/p3QUssyPozGoVCU7v5fk0c/YClkHvfvNeDQmWlzdHZ4qD sdQIw8/LjSSwnB58kqwRhMUF7E9O6yFBRxK9zutb5zEG9tjCxT4SlMVHvZU/ fB6LqdzVoDdIgkcXtMQ+bPljUUurswujJFA7b8ZV6uiPXXbv1dGdJYGoz4l1 ZfDDftEfN78zRwLcLm978KcvZb/W6vZtngRBtDIJqdW+2IWp6pTbyyS48Hcg RJ3gi/mfSJ/7+oMEvbmEM7Yu3tjKT9Y/+A4JavWLknfmz2E+6fHsqb9JkMty +1m0/7l/fteBrdxkif9+eGFe/aE4Tq0DWW4x7IRrXpirqUNqyl4dOCm+03mA fBazPyQGJEEdUFtXb9VOdcN+9zIwNwvrwNR764/UCm5YjsvSiKGYDmTc20qN b3PFZmPqgu2ldeDr4fzYWipXzL/D5HGIig7gSdDTEncG47RXv0SlrgNJVj4e dUpnsNp5XqM4TR1gXOa1Vxtwxv7snZ1N09GBPXQVhx/IOmPxxmGCtfo6MIMX sD+bOo0pjJ9eQAY6cOMzXZRc6mnsg8+R+jYjHejXlvr5Xf80xpXMZj1gqgN3 ZNxUgiocsbye4uvf7XXA+rCwwZb4Kazetu+Xmo8ORGmlPdTg/w87+bX+TYOf DryXHvvalW+P7bqYk3YoQAcO36yy91Syx/TveapZhlD0AK2NTEM7rPsTldd5 ylEkjrGbfemuDRbo/UV7J1oH2i4tDg4q2WA8f7t2X42l1JM82xjXYY05CKc9 SLmuA4cqr4YLUVtj806KI5V3deDphVCXY9cssevr7A+1M3RAY1WGNl3eElOO 2g56fV8Hfj9dpvHvscCCClrYPubqAHts45VyCQuMes7ecKVUBxJ0f3Jnjphh fOeu1Sk26oCNVqXhHhYT7MZfV/WEJh0InteJjrxpjFGn6Fd+aaH0g/fZEAOr MTZfTfcwp0MHZBvvPxLkPY7V74pKY+uh9HMY17xx0AhTvOXM4dOnA1cGzl67 3W2I5UkcTOoc0AHLpMMrns6GWLwhdWzUqA7IZ5T1uccbYPapEcHfP+tASmNP 6+jCEeydpOO6+ZwOjFbbjN2OO4Lp1SGfx/OU/KZm0bNSRzDZsT+u7ss6UFko +UrNQx/blrpkPfxDB7hNlEn9vw/98ycG34Y+3VehPYSlPQ9Rf7kXA6X9w+93 n9XD9hnbVfIyY5BgAwbuAnpYxISWQjALBh/oZXRou3Uxd7of4sqcGOW88DZp GNfFNE2COPIEMWC6/8ghRBKwkkmrpD/CGHDcrN2yJyNMMEB9339iGEy310ks 6SKMPn2DhkMag+bz18X9EY71T/mvRxMwQPO0H6ksdDDDQHOfKVUMCt5LdH4c JWEvd6t8wzUweN2U2B7nTsIK5VentogY3Hha154STcSCgny6PQ5hMMdCH6XR p4Vx7vGqPG6DwSF9w+KUFnUs/+Cliyt2GIQ83fv5j4M6pnLpxsFbJzDwNzVC sKOGGa9U9A2exoBNu3tTWFsNi+nf3Hb2wkD3lK9iSIcKxsGyu5neB4MfcvSM ZX4qWJ4BT+JDPwy0BPfvDuRTwV41EAWXgzB4wpsUVXaegP3IC9e7eAWDE/5a GkvqyljMaNJegSgMFKytx/l6lTAOrrzeVzEY8HC6OfEiJUw5rsWVLhGDfk/7 C6ICipiHD2NC0h2K3tYfdPf9kMOGSbd6Cksx6JnqlzklJI25B+bfNyjH4IX/ SU6hcinse/kzl4UKDFonP1ov4lIYm+jgFqEaA981bfWbrpKYEYMA/4tGDIyu 5rHOd4lj7qGonJqMwSc3uMi9V5wyL0/D0U4MHpez6+iaimENvYVnevow8Apk mkxcEsEGj3R85xnBgLAndET9iAi2Uf8t1mGCsk3YJafxtUAYU8hVfvR1HgNn 2/9opL8KYoYcFkhpBYPByo8XD7cLYK7XAj8GbFLyF7em91byY5E/7zrX/8TA 45rsk8ACPizrXP3m378Y5Hjuu9SVx4v9DwNtIJg= "]]}, Annotation[#, "Charting`Private`Tag$26520#1"]& ]}, {}}, {{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], TagBox[{}, Annotation[#, "Charting`Private`Tag$26553#1"]& ]}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], {}, GeometricTransformationBox[InsetBox[ GraphicsBox[ {EdgeForm[None], DiskBox[{0, 0}]}, DefaultBaseStyle->{"Graphics", Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}], {0, 0}, Automatic, Offset[ 6.272]], CompressedData[" 1:eJxTTMoPSmVmYGCQB2JGIGZiQIDDTV/EDB2r7SG8D/YSXEeqV8gthPIZHA7M OTgjomYrlM/h0M5rKFz49SCUL+Bw+vSf2qi6Y1C+iEOI6CVOlRYYX8JBOr0l tvjwIShfxsGr/yuD7vFdUL6Cg83e2UX3N2+A8pUcbmW+MlzasAjKV3GY26hR Pyt3EpSv5vBrgdA13dUNUL6Gw7RsTgORudlQvpaD7b47YfXioVC+jkO5nf2k nse2UL6eg9HS811P9ilD+QYOHAl1e2TyOaB8QwfnyPi1M3Pf2EH4Rg5PT9i5 bjY5D+UbO8ju2Ca+1HQDlG/icIgjnr/lWz+Ub+rAvrvYK+V3LpRv5lC87w9D 7kUvKN/cofBJ1+H3r9WgfAuHW2ZPY2oOMkH5lg4dBzV2rs2/awvhWzmcE573 VMNgG5Rv7ZAt99p5p9gEKN/GIW8rV/3pyjQo39ZhpeIHh4sedlC+ncPWbazJ DzYL2wIA+P6CbA== "]], {}}, Annotation[#, "Charting`Private`Tag$26553#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(n\\)]\\)(n)\"", TraditionalForm], None}, { FormBox["\"n\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->400, LabelStyle->20, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 30}, {2.365746065397296*^-14, 0.17990315968599158`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.888496414385292*^9, 3.888496432952325*^9}, { 3.888496536907207*^9, 3.888496552757429*^9}, {3.888496620322693*^9, 3.8884967980784893`*^9}, {3.888500689054441*^9, 3.888500703173757*^9}, { 3.888546325657946*^9, 3.888546360488278*^9}, {3.888556421024336*^9, 3.888556444196579*^9}}, CellLabel-> "Out[231]=",ExpressionUUID->"5df599f0-7605-4096-9c32-42504b3639dc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Large N at constant p ", "Subsection", CellChangeTimes->{{3.88849684328941*^9, 3.8884968461476088`*^9}, { 3.888496877961444*^9, 3.888496915210497*^9}, 3.888500433954681*^9},ExpressionUUID->"ead5b434-81fb-4653-8b2f-\ 55fde290c1b3"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"NOfDraws", "=", "1000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Expn", "=", RowBox[{"p", "*", "NOfDraws"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Sigma]", "=", SqrtBox[ RowBox[{"NOfDraws", "*", "p", "*", RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], "\[Sigma]"}]], RowBox[{"Exp", "[", FractionBox[ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"n", "-", "Expn"}], ")"}], "2"]}], RowBox[{"2", RowBox[{"\[Sigma]", "^", "2"}]}]], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "NOfDraws"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(n\)]\)(n)\>\""}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", "20"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", RowBox[{"DiscretePlot", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"NOfDraws", ",", "n"}], "]"}], "*", SuperscriptBox["p", "n"], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], RowBox[{"NOfDraws", "-", "n"}]]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "NOfDraws"}], "}"}], ",", RowBox[{"Filling", "\[Rule]", "None"}], ",", RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.888496417394601*^9, 3.888496443386924*^9}, { 3.888496507603401*^9, 3.888496797571443*^9}, {3.888500443154786*^9, 3.888500635158318*^9}, {3.888546443600668*^9, 3.888546451865514*^9}, { 3.888556534115243*^9, 3.888556551890888*^9}, {3.8885565876189747`*^9, 3.888556614467998*^9}}, CellLabel-> "In[267]:=",ExpressionUUID->"b4b2f88f-f00d-4017-b458-a7d47350d8a7"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxF13k0Ff8fP3D7XsiSVCr7mjXrnZkXyR5KCQlZL67ruu6K7FnKrmSNkCQJ 0aKylDaVlLJ9bEnKkuyUys/v/H7n2/wxcx5nzsz7+Xq933POe/Z5Bh/1YWNh YanbPP3f6/TCbxsz32VUxdn9g2CQpSr5KlPb9Eo3lqXh5vq23kGVwf/dd8eV z9jZexHPtGPdVMObK1g4rixiWDXh4rFDZNU/l+IO/yxhh1uenyNltuWrNnMs LC6WiEDNEQY3269JVSkjJfP5EhlgY/WrWL6eqGbb0z73o0QbcGwpTj97H+yH zDj+QxRT0AuY+I6+1NIUXnSszfSyhY44hS3C349qow8YR84IHQM9rs+Xn66h B0pCm28OOjlD6elA2etLMnrDlkPv183cQJRY9Gu66pG+j3XYd8+3p2G7uZJt Oq+FoXHTKsdbojdscB6sSosoMOK/94ll5ydf2C2HCx20q8bN2V9KuDvtC5Gm wwPTnHW4D5M2AsdWfEFi6XnbB2oDrmjnve2p/H6w7a8ZrTT2ES62IahISdwP dh4/MTPc0IbzPSwj82yvH5xYG77QgHuKs5roq/RU8QN86YV+J+pLnHpU2v6N A35wRY3JXx/diROVMG0oAD9weHPubczB97i12p8G+tZ+wKXXXiIw+BE3aHmr 5cNxP5gbD3nmID+AaxvzPhTi4QdeDsNDywdHcBXhkq+2BPrBk3d8x31qxnDn RLvsq6h+gBvMucZqP4Ej3jzbYxbtB0/vI/ebS6dwDmZGrp/P+UGiShXL9ec/ cPojc5+iLm6Ob/aEOrWwgNvFqPDbVeIHeoN3+O9fXMGxCLt+v1flBxx7VLQS v/7CfbkuHHq80Q/470SgphwsSIfJ87X5Fj9YVCi9cUqQHan5LyIyrcMPpCLM 62k3uJAsihaHykc/SN/Rpr+ywIfQt3xLfj7iB/0eX3vD2IQQ14oiQe8pP5DO ip7iYRdBAHO4yLLsBxTNPadvZYgjsn08O4s2/MDyCV/K43ZJhDekucSADw82 lQ8juR/tQWZ5KfI9oniQCTHSMOqURt6XKlWT9+Dhikhl0lYzeeSO0YimoDIe tjKLa0TclJGCDxfu3tDBg/rvrd7JWupIdJAVYoHhoXu51ugQWQvx5mJ5Mm6J h43KapngNwcQi+JGi5hjeKha1b1CbTNA1PQDO3e74+FeXpHHNzyKbHu391iT Px6m79ALAueNkRX/nn5HCh62H5wRf6F0CBlgS3FfjMRDb8E31uYFC6SlwPhL ejIesM/3v2/1OYyU66wGqF7Aw+6CK2OdtkeQpDfVcy8u48HX8ojWFvdjCMHX k+ZzHQ+z78R3ja+cQI5sbP/N2oCHq89/smipuSK6uW9iLjfj4aS5oId1mgci qRnHbfQSDwfOaeVykb2Qvy/1U3u78bDvS61aZ7cv8tlzdhtlGA92n1fZs14E IC/Wy3KFJvEwsL50tBwfjFRfcJa6uYiH7ylnu/biyUiGmmC55V88LNX1Nohn UBHqs3alCR5/eERfwmljTMTFPexWrIg/iKyP4cLPn0HQNfUDe6T8gaW6TE7f PAaRzvzS9EDRHzg0WhZfa8Uj3MoF4KTtD/fVX0Vn5iUiM4/tny0h/vD3+ryf efp5pOskl02mhT9YXjkg7CmWgTQsPXin5rA53geBde0nWUheasiJjlP+4E/P k3IYvYhEyisM+eL94Urj6Qf2kXmIZ8ugJ3uoP2h7f5kn1hUhZk5Z34rP+MOf 3yOUOIsriMq8ORGX5A9albyv/u4sR2xw6aGyWf6g+dJ5mkXhGkJI7GEIFPoD X25U/fPyKiTl/e7Ipav+oLo2K9V2tQap3u0TN3jLH+r95kOPXK5DXuOrk9rv +8Mz1rd+rlgDMnN7MbX6iT9Uty6fkzK5iwhsGGZfeOMPfmyG8m4NTYiqVWxu RK8/POWy+vX4ajNic/FlkfenzbwMtWG+C20IYVSozGbaHx4EZnY9UWhHUlSc KnWW/eHQf36MmB3PkZu04pu7NvxBx6hvyITWgXS2TdRz8AaAw/sHi09sOpFZ gf33ZrYFgOYJ1Yj/HN8hW52ojz7sCoC+0nEGW083sr/s4eOH8gEwf7596/ma HsR2lv1FuUYAnEwnXMmc6UeIBtZvUgwDgOctjvmiaAhJi896TzENALerS7SP 30aRW2/7e11tA4B0R8zjP5vPSJfkviFTpwBIFI5R7eGYQOZ88GOqngHwQoPg Or1zEhGqu/VVlBAAJpmE9ZuXZxCN3yszv6kBoKuv//7q4TnE3hxdGI8KgPEd T/1HMhYQUtbZ1dfJAfDRpj+NXXoZyRh6/bshezP/K9d1bf41pE5RlK2oKABY gsrce0+sI+9DT3KfvRYA08PilFbRDWShuVQgqC4A7PX8nqhWsqLb+KaEjz8I gFEblpiALRyo1nHN7cjTAAgrj2rSfMKFHi1h7JJ7GwBjSw3/3e3mRcnTLfu2 9AdARPTTCZLVFjRLl1theSwA0qheRyTzhdDbMbaqQzMBoPJkePn2223oh9cX NZ+uBMA3O5qlmK0YurR9SPcmSyBcFSmTPSQlgYp6yeIu8gVCjFhXyimrnahO TaDxGdFAyDIoZrsxJIUe+1lv5iMVCAYX3uf6kfehFNNf1ocVA6HK/Vn14h0Z 9EK68ZEDWoGg0BaMP2kqjzYOJDnuxgXCjKwLZ6CMEtoj13WS0ywQsBfyloun VNEV0vbT3+0CwY9PHpn4q46KP3Tz/egcCO93ypONeLVQXe6KwEdegVD8Wm63 lIMO6nj0O+lqUCCoKVVP3BjXRWlFOrRUeiAcPlorZ//MAM35Fh5OjQmEgLpb mnhWBL2r/ST61PlAkFP/lbvfHtC+SL6EQxcDYS/tsInHCRN07eWR82rFgXDe 9vaZxkJTVEIsL0PseiCUCI/m2imYo/oeoxf/1AfCQyq9dPuGJep0Q6Hgy8NA ODUyLNWtehhlrBBL3jwLBDfOYx67T9mjucZ3rjZ2BUKHatR1Xuej6P2UP1VF A4FQ1CUbL5txDB3oNa09Ox4IbNZldVy8J9Bf0imNQbOBoOJ98dd6hzMqSexu Or62mceYS0Js2BU1vC/ZirARgEQjlhfJeaARr259WuTfdKljPRuHJ9o8ZMpe JUYADznc27jt3ijLXL+sxx4CsEl5lrX5+KLGbMFm4koEkKw+lfd9CY/GinLg X2sRgB6veK73VSDaLp+XHIsjgMISe+HveSLKZbD/hr4ZAXr5HO680gtBLayf vJ61I8DwgZCuPvlQ9Nwpp9lyZwJ87vkattOair4O/i540osAriU31jiq6OjW 2FhN4SACXDAWUkq1DEPtL2x3eE4jwGIHtRbVOINmVVRTzkQTINNrWrhUKxr9 cM84R/scARznzOSM1mJQ8Vc9dyezCXAlLPTpge9x6ImhwP7iIgK8Y62xNhVP QHN/sKwfv0aASPchg2RGEjrAmrNLoI4AetzE5ZId59Fdoiro4yYCdL9KNq/e SEXd5FvdGe0EKL9n0nczNwMt0T8es7+TAGWBOZ1/XLLQMaup0vFeAsT9vfOs 1eoCKnsqqj3/EwEsGKelDhNyUN9g0Qn7aQLMhL4jurbnopUx17m5lwnAXbjj kYhTATqVjSo9+rvZz5YGMwG1y6hqRbdVKE/Q5veiE1ZTXoIG3cMTlLYFQYwW P/beuRSt6fiTOrIzCPju2MudMyhH5wazbl2UCwIK4RV/s3kFqvVD4Z21ehB0 VwcZ3kiqRCmsjxZYDYJgy8kcoWmWG+gdkaOi90yCYLdqsHJY4010Te7rAaJN EDynaLONHq9FDfUjTsg6BkFwGG/Wq6U6NMJKmDngHgQPfXi+VjXdRptdK/Iz /IPAXsevcrqqEWUJNnpoFhoEVYF6KyYv76ImMV1DvyOC4JenQm39jiY0Lttn oz4hCM7knBFJL3mItl/9tdc/IwjUhwcb4j1bUK576SZ78oMA33swyE6rDbXo kPX+WBYElWIbuxV6HqPnBu+fPX8zCA40r4vdK25HX8/aXjO+GwSmGt8lVLKe oVtZx1+stgZBU/Qf/q+1L9Asua0C3h+CQMsvuVcu9g36Qa9MTXJ40xnPvQOk ulBxK327rq9BYJ406LQ9/x3q5PqGlDAfBCErUfvO63ajeUTPLNx6EAiFDs55 r3xAB6JXby9wEKEI9/sFZbAH3ZWd8rFyKxF2v6koaJ7uQ0vu3pEQkybCLkfX NIXsIXTspbXhKxUi4CHspP6OUVR2cPRkzAEipJj33boW/wn1naWe0cOI8Ivj y8bGls9oJQt/8XeLTac9vx1/dxyd2lbSWnaUCFe9PLJL4iZQVbkDY86uRLj+ p1rkG+UbesvSXe5ZMBE0TDfuKb+fQYdtmgrtwojQzGJ4pyL8B7rVXky0P54I He+p19rV51HEgXTeM50IiSd8EM22BZTg+IptJo8Itf1oZDJlCS1wlg+jlhPB Xdg5EW+zgna4xsz/rSFC2+ekKznWa6iil96ocDsRBAjgsPDqN3rCN+tEQScR dHZXl1532EAT/L93yvYTgcZdETPOzYrdIViY1XwmQuW+NCvhWDbsS3DZI71Z Irjt363sJcmBiYb+1WlbI8KMXmYhWzcnZkpzrrZiD4Zonhv6hjXcWGmEYMEp iWCwvhbRYd/Dj72LCtj2VToY3Ip4cyIVt2IscU+TSWrBcMz52ciCgxCmnrCX 9ZdeMJTPh6d33BDG3JLDGXEmwcAyuV/Ke7cIlprS80PgcDDEbBnJp1SJYg/T Nf1yTgSDtKqd48tj4tjOnK/HrxOCYYdS/PIijyRmlWfyRoseDCk/YosmxHdh YYVFpg9jgqGtGtvibCWFXS9ee3AoJRhWShDXrqN7sb5SB+23OcEgJhdbmXtx H8ZdUVPldCUYLMQNxztnpTHd67zSYzeC4fE1o8rX7rLYhVstQsutwcB/v7C9 L00Be1IvmRT5Khi+pB93/WGnhC00Uje4e4Khc4v17PB+FUz6fhctczQYdB/m /nRSU8OOPFSZlZwOBhu52IV9h9Wx6JYEn/LlYBhoPNzL80IDc/pEmhVnIUFO eccX3t+aWOL4K58SPhLsMmR61hXrYFK+zH1fBEkgd8Erniasi935Kj+kJEaC XCXjFLZ8PWxiKubY7T0kmMwfO7JvyRCLJKgLrcmSoLD8u7TiCxwmNjv4CqdM AtdT4vLDd1HMdF7v4DMdEuSL8SkN0o2xQfKXv3yGJJiYvyt5rMgEC13KarLD SNBr53wiuPsgVrr6XbPfkgTV/hamlyhmmCGz4PtuOxIc2jMifOCTOfbul8V1 z2MkeO3lYpB72hJj+Vu2d8aNBN5zDB/eKzZYbtSRQQ1vEjxsYed4d9oWU2fd uET1J0GXqETQt132mBuHi+BGKAnO7L8gkr7jKLZylvvVQSYJdvgEy8mqOGBp 3I0JSZEkcK73fqhpdQx7xCf0VziZBBnbb2ZU1DtiZJ8E5u9UEgTVp46FTpzA FFt/L01kkYCLcZqrSsEZy6JOTj8oJIFDb07HQvdJzKLL3a/iCgnSzONu9GKn sD/KPWMZFSTYVrSY9LLJDcOPPu73qSXBUylH3Uc/PDApI4Pj9o2b4+19sM75 9DTWffFWl2ETCdZYuNOvlXpiqHXhc8F2EnQUV4m0070x0TvUxvu9JKCVeQh/ S8NjHUIzGuWDJGitE0qMrPbHogI9q9M+kWA9qyV1tTsAm9prV+Y1vZn37Mhd MA7CSsKfStnObfaTk37GO5GIHe8xytdfJsER6stXwn3BWOt5xcwtGySYdUhN eWMTgtEmLgussYeARkaP6SlOMqZiLJY0xhMCV8885qM+IWM5K6xRd7eFQCVm oky2p2CE0/8RTsuHAMoqzXxaQ8ekHx75Zq0SAj2axZJtFxhYr/gLL12NEIgb cCxLiGZiJq8bXPgNQ+DokWk/on84JqGXZtF4OAQGmzTMdKKjsCcCxrK81BBg yzc3FDkZjzH87hYvMkOAHGPa9/tnPLb/sdrO4cgQkGdNO21ScBbLpUtuu50U AirunY2Z4wkYcWxxw7VwM1/bQ+rz9GRM8l7Ff7VPQsC2/PB2M410zIyfhY3z ZQiQRIwWbdfSMbKbs6JzZwhYssS60DwysA4OASprfwhEl7tCilImFn4kZOvR 2RCY6Ou1vNKUhVWWd+hULG4+f6wollsqG/uwKnPy11oIFMayr/dHZ2Oql3uu lbKTYfVcE8Pa9AI2OGVkvChBBu0vETt4Wy5iPOhFP3MpMuTt+toZIZmD6WTO phbIkOFO/5lSP0oOlqJ3ZeDgfjLc4DQcUJC5hN0794slV5sMgcOAb6VfwsaH HBRm9MlgKrz3vGPHJQyJ56JcOEgG850W7zj9c7GAXvf8bxZk2Caq7fClIRfL Ub7firMlQ/mXKUu7v7nYbFfgli9Omz5yBnFMzsMkZZ9qG7iRAc0OW2nuyMPM 6FIuqV5kcFLSfmTJm49d3v2u4gCRDFxyNdW+Z/KxDpLym+RQMqQ2BK2+qs/H Vp7ELQ4xyJBb2VL7czwfk94+tEMrkgx7HoqoD4oUYLYBupAQRwbdee/fHlgB FvYo3XcgiQxXfY+P0fwKsAqhyZT9aWQ42XJ2eUtKAfbey+R2bDYZblXsLtl+ swDbuFPQ35NLBtfa8BsJHQWYKt/yhvJlMohms1vajRdgTqds5aPKyLA3kU3S 71cBFl97zaa7kgwffUt1nwoUYrXsrKEKNWS4z/9F23NnITbo6JIXfpsM/Ral ivryhRhP1e2Wt/fI4NAZV2eiVojp/BGYkGkmw1vt9cVIjULMw95XgPGEDCxu 6iXT6oVYSlmL1usXZKgjjMwnqRRi91YknPd2kqHGxbDWSaYQG7ckR1G6ydBJ vaHqtr0QEyp6dfVF3+Z6eFcIl7kLMdyc7Otdw5v5P2pa7VkqwPAHIxdIn8kw tfBbYXKwALuQ0yvx9BsZQsobtDkfF2BtkxrYjlkyeObMGEWWFWCzuHM+QYtk mFvqi/CIKcAkMz6fb1sjw5Yi6dz7Jwsws8+4erG/ZCjs6T6fq1WAkXVz+vzZ Q6FawLdyC1cBdjn5x99HPKFQ2/LzrHLP5nwOWsht2xoKiVWP11jLNucvbj2k SSIU7vgEd2lq52Mj98MrlneHwlG3gfO9q3lY4dz6gIZMKBg1dB6+fj8PE3f7 ffCaWigUbegfVzuQh/EZ/BG7YBIKTIZaecDWXOx58Bmrt+ahsPtjP/fulktY fMWfSL7DoUDl0RB4HnQJ+yvy92v0iVCwlzvuSX6ag83P/r0fRAiFyHMKslan L2I1clGzlSGhEH0AZR3guIgFuG5Ij9NCobc744TFtQvY+MuN8y4xoeD0U3Hf gclsrK+cxc08JxRox/9K0LyzsFYXNrZ9raEg46xz2vlKGnYmM1bX9WkoWMWI lXkOp2KGL9gCL3WEwq9JajBzVyrWcID9w5aPocA/omARVngeqxTiqPg1GQpt vzXYdtQmYT7m8QMHfoTCz4FQjcmfiZh0JIdgyFIo6MjFGM4fSsQKpzkYX/+G wgVv7+O7v5zF0p9xWn0QocCjXQln60ziMJs/ZyMFd1Bg/mrbrMSVWIxHh+u2 lRQFXDpkVEPZYrHYK1y72hQpIPvcqRjXGY3RIrhnbyIUkOQOVxkSP4Np306U njShwKFFVuEkzghsbpL7hKwFBfCjjSx3f4VhASd4WvOPUiDbsJz17hoDc9Pi zUr0o8AvJrHm0EEqZmByNAFPoMCqTKHxMIWCiR4tCLMMoUCmBkeiYHUo9jJE zYs/nALmcvUxwipkrDyGdmImigLfhX45vCSHYJGZLdZv4inw5UG3wbcWEqZT d0QnPY0CUubKP3Q/EDHBtnxFUjYFyA+foZJpQdhU1+ddR3IpMGGjYWJ8lICV zFE5RUopsD4Tbdq05o/xa+T35DRS4IOl3WLxfR9sAvvcQW+iQHR2C3Wl1Rtr tVNtcWqhAK6XsK7yzgujBTdfk3xJgSwT+BrE74kdieIuXH9DgZQBtyaxA6cx 1XT7jMH3FDDmnynv9vXAxmrGGJcHKUDhdfqU9OQU9qhZJSjqEwVmyLiovcdd sdxOymmPCQoYGLX7WCy7YIdnuayk5yjwtMJD9aa7E3ZPTWVnBTsVto2Fkkvf OWDZCEUwkYcKkaM5X7JfH8WIhx+x47dQ4Rf+c9Ps+yOYTJDdjNJ2KiR4P9Xw YLHH/kbkjvLtosI4etqOctgW60v59GF6LxWsIw418tTYYGnVoY9uKlMh/YbO R7ZKS8z/4cO6NHUq5CWH7+AFC8z0NWdFsA5183+/Vk5z0gz7OX0pTROlgpfQ 9Sd2BFPsw/po7LaDVIjF32RwHDqI1fAr0xfNqVCXHO56QtUE81Z56N54hArq dV0HomQBw4w4j+U4UuGw1JkvXngUk7S2taCfpAIkv/4eUYLD3gaMahj4UMHY +b/kPEcDrCpMSU4ygAqo006dvPd6WPw58o514mYe9cgkUy9dzLCKg+0Rgwof 9w3vmW3WxsSaDq8UnaFCdu/1FYUkLWzuZc5UZCwViALDIfGemljFpGI3pFCh G6dF/ZS2H4v5GfJ8XyYVvnk4F8yXqGKuvA8esOVs1u9/uUjhrTImrHS4vL2Y CtOxJKH4MAXMU5N5UPAqFRpNv9spf5TDGgyujjlXUeHv1lbvq1ayGKfJu5jy W1RgUTv2ndovjTla/dn7o2HzfrP5lFr0PqzyqFKrQRMVBiZtUBKyF/vpctw9 voUKt/+rchrdI4UVBt4s2tGx2c9i1dPJIzuw2dB+nPdbKvyXLLcnf3k7hkVw DtZ8oMKSFkN2UVUcy4jXDP/ZT4WD/Kp26XGi2FjKKUnTESqsmq+Lxq9uw3Qu Jt9PG6eC1M6xaJZEYexsUaNT/yQV6iMbtG00hDDFmi2XiEtUqFFQXX2ZzY+F 3THQvf+TCmZZOxd9ibzYq2afj+wbm/WWsZwqJ3Fju55nUmw5aODfPRM+dYkT I759JJLHS4Mz78fPPP/EjrX2TtZ/3kqDXb2zD75bs2HCo2JH94vSoHtMiE/r AwvWMBeU8USKBuPyXxLFiL9Rrp956ltlaeCqeYnxZucv9ATrs04nJRrkzetW 96+sopW8C0Fl+2kw50by2fJ7Gf0lLLVlVpsGCew/bhEVl1AbSatqfQMafDj9 8LY2cwEtkqZZx6E0uF9VJN06PYeCdmeyhCUNzlWOr8s5z6BZRr8UvWxpMJK/ 78zQzCT6+aD8i5sONBBzuoCS6r+iOjZH/dacaJC6M/atfMUXNOFYJNdBNxq8 zpOTONf+Ge1zrbqa6kUDsj85zZ1vDFXy6THtw9OgRYCQe5Uyir6m7o8LCqVB Iz7El+/Ef6hUpIv0PQYNAntidHUm+tDghIQ2tkgaeAoXBeyt6kFb0+o9DsfR QPGtX1T55Q/otkvDG5eSaKB9c+nk55b3qHcxX/FYKg0OjMsctuB7hzZe00XV smkQb+eYxrHciXLVeg7Rc2nwaWXrx7+Sr1Gne2kRj4towGaBZL+LfolWtTbt 3FJGA0f0Xh9u33N0/cVE04lKGuhx4aT8VttRm3fbXEpv0iBp+xWdnr+P0cv9 6M+ZehqU+puV4LXb0LlPAbl692iw4wR297J0C2o8laMX+4gGDMLMqqDyQzRr 4XHP68c0WB8T96uh3UfHf81St7+gwfXYAadEtruoLvtOMc83NNCdGyVKv2hA E/nNG6rf08B4oPsi43E92icS6rDaS4PiiRd50zO1qPKu4gXjIRocfTGaFZFQ g4bLvspMGaPB/jhDkIy7gb5WXdXo/UqD3hix4bQXlajUAZmufd9pQBuX/XPE vgINRuyCCQs0uBV9FfCi5eiwlGmn6yoNuLb3LWtolKK2LAZqh3/T4F2aTU41 vQR99EktBWGlA6++LkWnswhVfSI9rcZFBy03lmtbVvLRwvLtVlL8dEiOpBSn eeSi/AkC17cK0eEtPgqd4M5Bw/xYeTZE6fBGbh/aPJGNTlms+P7YQYeXaECT 5lom6qw8/XREig62fCk+7XoZ6Av+UdkuGTowk9PuNZikovrfP8S1KtLBM0Nm 32nPc+i1zpdjtWp0MOm6HnPjeSIqXttsfEWLDttbHL6YE86iCZm3SzL16NB/ eb6LYhWHLpMrN2JwdDB/XScy5xqDeh8rciMb06FdR3ywD4lCPxzIeuRpRoc7 l2+zCElEoAe3J+5ysN583/rurwnAROvXwsMP2m/W64JdXrxFQ6UHSAPax+kw 5WE9WudOQTMf+BjIutCh3rVZtdGSjLIUueSKutPh56m+tXA8CSVF2q1yeNMh WsTmKTcxCB1xN3VcxtNhb/7Ha2dOB6C2xgaNX4Lo4IN85tpW5oc2S+8X7SHT wZ6rJwlT8UHVOGRCn9Hp8Hljn5LWoida+GX7+zsRdCBE5jXeXfJABZ4LaF6L oYMU0UDW65gbGl7JmnEpgQ43/O45CO4+iU4lr8wmnqfD/oY9s/qGTqhL4PRh RgZ9c39mtD2+7Dj60ma0Gn+RDjXWp7Z4HHFA9fd/5HfOp8P1dvmXS7gjaKVg R4Bl8WZ9jFk32VZbdPt880uDcjroDT0NMA6wRhPe31ZUvk4HxRbOOnmiBbpy uzJRsoYOBqyyJY2PD6E+F4sm+G7Twcb9dtNt94PoB1rWofW7dCgvvmXeiBij pk6J5dMP6fCN9eAbkWoUvW0QwT7YRofcjdLm44eMUOmdIZ6vn9HBn1ov6IjT R7N++7Q9fEWHcwXnEPvEzU3nsMvem1102M1jvxi2WxsltdhFFX2kQ2rvyscf KxroaInpcOoAHbZq8GxT2bEftYs1QCJH6LCr+Tt1e60y2uy1v5A4ToeNq3+3 a11TQPcfkll3m6RD5b1GqwNLsmiRvISL3SwdHlzff2cqVRoV4NlyH1vcXF+G 9gFChL1oxCSrhMYaHXCQ/jd66250umOFtvcPHW46vt12p24H6lI9/VGIjQEe H+ePjTeKox2pozqs3AwwSUClSEKiqEHwx+x5fgbE/cI7Dt0VRivtOxY+CTGA FBKi7m0uiEpotRx5L8aAp+u1vvdy+dFEkYbax5IMOHV1f6mWIw+6slQpeHsP A8brvvY+DuVEfXuKiGWyDFC4UTdeMcGGfryb9SZbiQHKvWLV5ldZUNO8RNX4 /ZvPC70N0bb9gyiHuusOazPg22+viorYn4jQYT3QN2CAqFgF/7jmCrIiL2iV hTLg9LNDNZ02i8ggy1eHmYMMsOmSUJJ4Noc8Hmg+ZWbJACVxe01x2e9IZUOO X4ktA57MPd5212YSSUsjhvxyYABBZYjxc/ELQsGbhR9zZkAY16D7Ku9nxMVE 6myNGwOaf429fhA9isCulTQebwYcrFYZEswdRORX3uR6+jMgu2znCvK4DxHo ulr6kMgAxf8wSY2gj8jC9TPV4hQGqF0ZuRmQ9B7pizt+h8RkwPGoyzLRnF1I 8ym11o5IBugWhaeV3nqFlOtxdsjGM4BFsYe16ttz5JzwUHdkMgPsH+WHvClt R0jTDUN9aQxQz1zTPvCmDXF8mvJV6wIDLnu7yLrWNyO4Yu/5lDwG9BrK9XSE NiHSTNz6xGUGGFeOL7u8uIPwOIhyGpczwOxDwM3MwtvIrOrM1oLrDAgnbktk jNQiH7jaJZZrNvPevl+by3ETaRotkLZrYMBPxiNlwlwlUtIUqnr9PgNK79xt kyBcRRIuWOuyt2zmJ568bOBdihCIMnCqnQG0DO3HP9KLkaMW65Z3XzJA/ut/ lkHCBYi+dLeD8FsGvLmtyZKtfQmR+l11KvADAwyJnWH40WyEoyfW72n/5ngq fqe+cGQiU7dcQvaMbObRSSFI7UtFupK1wpnjDEiLPl5hPpWE3PHiO9s9yQCO G4d4i2zOIoXIWJraDwaUExYm32jFIrHbm3ITlxjw7NG3s59EoxD8fGbpp5+b eUbIFZAYhti+8q822mBAz8OSvdZXaIjOVeM7FzmY4NJaUuhsHYpIRu1o/cHL hK0mPl68ISSExXn+paUgExRlSmpzWAnIhNbL7jJRJmRFBtxm7/VDXgtcGfqz gwnV7lO4ExbeSP0E4+uJPUzg5F99ro2dRnJb7efrZJkgORPT02Z/ConMV1zn V2aCroKH+P0JJ8SbwsLpq86Etrx948syxxEr276trTpMUE1fbFCYO4JoKNZK SBoyoW7ee3iKYIuIsyVJUzAmPEiYXmfrsER+/+eu2mnKBAJ+35U/fYeQsUY9 XUUrJtzXI/BejzJBXqQLQqwdE0Z8PEQM7DCkxv+r5eAxJvg5uV9yCzdELhxs cdB1YYJClPw+Di9dJGz3pVMZ7kyQ2zH/RmtKC/FYJfpNeTMhtnvMXWJBHTF7 ZxZiGsAEm6U1f78VZUT1hlT45WAm8P4JZ+Y3yyPbzq7Er1GYsL/ux7edajLI mltn2tEwJnSOj43fV9yLDOtX5FZHMUGJTzKZU38n0r4tspTrLBMksLTwkElx xKgrosn8HBOK0OvfDzmKIPWp4e+T0pmwV01+rsVOCFG0Dpt6eYEJ5lxsJO0Y fqSYh8nGn88EnWmDG0Q1bkT8GV3SppgJ0oLDHzzOsiMpcTSt1HImbFOglH0k siDsxlSrzutMSMnXChK8to4L+xvqKXiLCdxeeioSxqu4+QfkMPuGzX4rGLlU nF/E4ZkhWZn3mfD4C3skI3AON6JLqnrfzIQOUcXMsaxpnOMS8bFIOxO0U1cY CzJfcW/qggaOvdzsn3uF6A/8Z5zp5u7mYufm/OpHlD06NIprUg3k6+1mgobM oQKVQ//hNKf8pSX6mWCoLpfd0NODq7yGN3QeZsITy6U2UalunJSP39H8z5v9 Vjz0TvrPW9xFad+A/74xIcA3KL6rpQMnMOodu2uWCY7zIvFw8hkursgr/9Qi E+b9F/CT1Y9xv1w86y+vMeEw8VHQSfUWXIjE6Y6RP5v1zsw/4eNqwn376D62 lz0MsKrS/vSGRpx7ttuv0zxh8NRwMlZWoh7XY39qW9mWMLCqOEcXUqjBPXnl YiInEQbHCBlyFyfKcYbJzi6+u8OgG2nFmXtdwdWaOZGvSYeByNT1DvJUIe5y 2/FSJbUwKAhuNBRdycaJRR1rCtAKA6Nwx5PMrAxcCs7h/Q29MDi9i3XXg+jz OOZde7b9JmHgqi/gGPotFnfsprWn1okwqBcIa0x8EoLjyzOWNooJAwa7kaB0 ri2OTlIrtfkYBpYHk1br0zhwAtzLTO2BMCiU9xv4yMGKKyl6eERyJAxqH3io ZCn/NurosGb99i0M0p6S934yWTTaJRfgEfc7DFh4SHOC05+MHvdXSDXJhMOq xZvJPpdmI4GDewsUyOHgl1IgOvM71OiKmMgFNsEIYKdxyKG5fYb0vjuojNcZ WO1PHRn87mXQPpbx3+2SSBDbUefVx/Ofnuk7GTaevihILtz7/O1FDd17xCbS 5wvRwD7nAdXFmjrJEpH9YVoxcPIwV56BrqKWxruSy+ZDMTD67o3V5hSpz60X K67ExwLXBdbPI90GagSrphuu++Kg5MzHxoCRWuVH17TPr3XEQYSqpk7fg1aF DsUXXjb+8eBBfLGSwvZRdn6nAWssx1lQ6B2/8fPI5tZ7N+/6TPVZsJ3OquEo d5K6enDpu6BVAuj+bri6prQgqcVAEfxSAijazbCf5922Pbyr7CwjOxHau7k5 bqweEhnK/5IVoJ4E8erfFJ1LvQTFKAm/M/uSwEXNqTxB5y8fb4iJewgtGdqd fp9p57zD9T7ilFTCvnPwyK3E2n3PZ9bGX8dKI16eA06W/3c4FPrtUfE9D/+f LM9t+te2CqX8zyt7fV9V1fwz5vfWU9Eq9X92e3jJ8b+Ff9Y/EH7QLCPtf+4J N1HmzP5n6mNe4faL/1xvlztsXPDPqgGNTKTin/cW/7il8/CfeXm9d8l8++dK OxX2sal/NstZmCz5/s/xMjF3pRb/+S9y+ajk339eIPclCYum/88Z94uDu8T/ WZ3FzzF9xz8TUpdltuz554lr21p4lP85frb/6nPVf5Y5cCUlQf2fPR6ru3Ac +Oe/PKvwRO+fi+yaFWIN/xmXc3arMfLPA4M2yxvYP/8f7GxQnw== "]]}, Annotation[#, "Charting`Private`Tag$27080#1"]& ]}, {}}, {{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.0038500000000000006`], AbsoluteThickness[1.6], TagBox[{}, Annotation[#, "Charting`Private`Tag$27113#1"]& ]}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.0038500000000000006`], AbsoluteThickness[1.6], {}, GeometricTransformationBox[InsetBox[ GraphicsBox[ {EdgeForm[None], DiskBox[{0, 0}]}, DefaultBaseStyle->{"Graphics", Directive[ PointSize[0.0038500000000000006`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}], {0, 0}, Automatic, Offset[ 6.272]], CompressedData[" 1:eJxd2nlYjPv/P/DJWtaxlBDGlkQaSxThVURpMUVJlGnfM+3TtN0zoXRwBqns I1uWCCFlKaEsMY442Sc5ZInhkDji57rer8/1/Xn5g+txvb0872cz477v9z1D /Za7Bbbn8Xivfv2m8+vPdrz/++U1ITlwpOLyECbtTJ21BjFanpsAl6Hl1LSw EUY30bqw3abjA/UlGMrMh2meiZrebYfQfcFkqs/o+wd7D2M2hOjdCqcnZXFo Iyjx/sd31qk7aAEcfvSkNMJPOJx5GIQmvORfNs9CjwDHqPJpn7tp0Magn3aq Y5XnxBHMJjB2ed63Oq+VaFPIi3hrEXf2LnosZBu8bqddOWIk8zhYYPUlZFGv GLQQbh9a9sD0+jn0ePgvYvzkQsPOxswTIOqV0T7FcxF6IpyWF8rq/fLQkyDQ /b+LFWeeoC3AR/9xkuGk4aOYJ8NCw7r4W41B6Cng2fLxiFnvg2hLeOHVNH11 5Fu0FWS+0bWwKjMzYZ4Ky/2/b5nwKBI9DY5XFymXPDiMtgYz6a2MmQ9fo6eD y/34P5KNTEYzz4AJH9wj3F4GoGeCYfoS2ZCVu9AA5et7pt0Kf8TMAfTuVyU6 udDAlK3bgFvMy6kG7V2ZORs4/nbWJpdRq3HdFpIWhX6M73kR121h1ZjMSAuL r7g+C3wX6JbIjMaPYeuzwO20dEPqtiBm3mzoPKb4neGA7bg+GzaEJH7Mgr9w 3Q6SJ5V/UCzoNJat24HfTr/BuXunMvPmQI6q+LJ3t+W4PgfWQOczPw/uwvW5 EGd2JT1q3x1cnwuFpw38Ovp0NGPr9rAoz3wTr2wyM2cPN8x7X5buD8Z1B1DO NXjYb0A+rjtAkLsiZWj3GlyfB54PyhqOZXzB9Xnwh/7XsglZxuPYuiNcWGEq GTrGnZlzhJ6Ph6QvkmfguhM49Nv9qVfBMVx3gpc3GtXNDk9x3Rmsj+o8VUFX c7buDF1z3ac5zZ/CzHOBA+8D5Pmb/HHdBVzDl5x5aKrE9fkwdEXm8YHWZbg+ H2aI0xb+8/Y5rotgR/CiUStC+UL2dhBB1fVtjz3crJg5ETRHXHy7a4o/c4UI yut3PPx2Yg0zzxV23jhg9tPwJM67Quzkq9GLs57gvCsEK3sPNa7sOJ7Nu0Lm lSrVw8xxzDw3SCoZckg2wJ0Z3ODM89z33udTmDk3eFH5uXLovN047wZtLWND o1dcxfkFMEt3d4nDbi3OL4AeL/zHTw3Qn8DmF8DBDPe3vYdMY65YAB1kO/Pb PomZeQuh/EHkzazXK5hhIVQ0X9jeP+4Azi+ECa/mnIhU3sT5hWBZundsH6OP OO8OF75es187Tn8im3eHhP0Wk37GWTJz7uAhmRFv1bCEucIdDspcSi/7pjPz PEC2w1FvYvQunPeAyp8nNEHGVTjvAffGjlpx+dJznPcA6R8uydnQaRKbXwRL K/y+xa8bxQyLIKFby7mle+yZuUWQrfrgVJQUylyxCNov+EunoXM2znvCcWPB cfW8gzjvCX+/+6PdS7iG856w9+KNSWZvXuG8JziJdltNcNazYPOL4ZOe/MLN CBNmWAw77S78cd11LjO3GDTSDRHRHYOYKxaDF69+QdcNK3DeC8wSPbb5t9uN 815gY2Q11M63Eue94LqNJqtnzFOc94LGVKNHS42/4/wSSDw0SWShNZzM5pdA 4OSgN0cfWzBzS8CtqsDkx1c35oolkN9Dar/MWcLMWwq5V4rT4sv+wPml8EM+ MqXEcz/OLwUnHeNz8QlVOL8UtN4LTt/na3DeG/RtBxm8nPUN572hl9fFGpNZ +lPYvDf8eJI4Sr/beOYKb8g4a1go7OPIzPMBy9fD9w5xCmQGH6it9Y0Nyedw 3gfedS7+NHrnZpz3gY++y55w+SdwfhlErzpaf+V4Lc4vg7tdzgRtdnqB88vA ZtKhadI8niWbXwZjNhSZlyQaMvPEMMJD0FnYMJ5ZIIauU7ym933hwAxi+Hm4 sn9snh+zWAyJ+4MtZsXLmDkxfDfqf2z9gQ3MKjFULJdvCu1/EPPE8Mzq5PPK fheZNWLIzVjWp+5JPeb7woA6V8dzH7WY7wtWa3u+DX7ZyYrl+4K07IXOwmOD mcW+0PDv9SelAZOYOV8Yd8Yv1VQzj1nlC+/3JU8xUfoyV/iCqWnk9tmXEpg1 vsDVBF9LsVvLzPOD8UOrd0w+WMAs8AOTq7POr9t2GvP9QCeIezV7Vy3m+0GL 9HJEdPQzzPeDb/cTBppWt2C+H9w2nuD+o6nrVJbvB55vru0Z9kXArPGDn4He 2xsSJjHz/OHb4YLzIWn2zAJ/sCiyCrXo580M/vDuu86OrBHRzGJ/uNAyel9V txXMnD+0DnOyPmyXx6zyh3HKHrnfbh7EfH8IND17Xb7vPOb7g/GN8Kgf/rcx PwBefdcviMttxPwA2HBquI3Vi8+YHwDWH5WXSp11p7H8AKi2XzvY5soAZi4A lu+wNDW0N2NWBcAQ7vjz7ddmMlcEwMCYg63Ww1yZNQFQ9fzlvlfufsy8QOjq 72FjnxzLLAiEtjP39eavXcEMgZCnPGVjlLkJ8wOhxyfdxIEB+zA/EL65Jq8Z LTiN+YHwTqv79uTpaswPBLOJwqino+oxPxBGWTYe/iOqCfODwLHftLLE7FbM D4LsZ9sUNsm61iw/CFY9rEwOtTFkFgfBI1mgyunJKGYuCFwgTr/fwinMqiC4 s+bRmOK9c5grgsD7cM5Z1T13Zk0QrF/wyeDz6wBmXjD8+Xx2w8CXscyCYJh2 5YVP1S0F5gfDZJvUdacOrMf8X3//blxaeZIK84Nhvk7usKasI5gfDOV+RtEr jM5ifjD4fOncKD51FfODIcTnY//z3n9jfgjcuGvfu9nwH8wPAevGiXozmj9i fghIht8f9/UJbzrLD4FF/v5nKp51Z+ZCwKpheFy08wBmVQgUCB07nOKNYq4I gT5PCtrWt01k1oTA9/B3GWtn2TDzQuHI7J0V9bucmQWhYLPwnPFNu8XMEArB LZH61eGBmB8KbdVP2zy6xmB+KIzeaLg1eXIa5odC1/4eXiuHr8b8X//eWi+T TtdyMD8U+ofb3Akz2IX5YfD1vKttyptDmB8GsoN1Rl8PncL8MHBQ+B0qcLqI +WEQKKvX+b60FvPDwNOkhqsP+xvzw6B/9jCdOOUzzA+D6aNmmi+2bcb8MND7 zi958KYF88PBsSM3/eR9nRksPxwG7Y2dU7S7KzOEQ/z6TWaP7PSZxeFgH+o7 vG2OgJkLhy+ne+y4UmXCrAqHso2e9VfLJjBXhMN/zds6HDe1ZtaEw/4+rjon etgx8yIgacYMowfO8zE/ArY2FM7eMWwR5kdAmsf4voN4vpgfAT+DDywt+zsE 8yNgkk3VJe9uMZgfAXccB51M6CPD/Aiou3UiZ3i5AvMjYEduVN2Ei9mYHwlL rg1U5+hsxPxIMJl9L3n2/S2YHwmdvsZ93vewAPMjQZM9q3cXz4OYHwn6k4tU aU7HMT8SDjZ3s2mcewbzIyEt0rZXJ59KzI+EsWfFR/uWV2N+FDQ/iXl1Y4ga 86Pg7/vfBl++dhfzo6CsOjzt7LzHmB8FJxev4vnlNGJ+FCR/HD4vT/c15keB bPfp5dcmf8D8KNCsNpf672nB/CjwcimvmrGzDfOXw7Tl/fq9tms/k+UvB1XG 2U38j7rMsBy2n/7XoLYHn1m8HBL9sqbaKvsyc8vBv8zs+IHxA5hVy+HSaJ9G l3wBc8Vy2NzFoTj39QhmzXJwSAlpSbYyZeZJQDe3vPZPLyEzXwKxp5sbLedN wuORwN1My5G3ulgxCyXwl9PXCvMLM/D4JPAooOFa12pbZpEEfGp//tv79hw8 XgkEL9jg8CzHkVkigbDgzMlnN4nw+CXgwvPrUvr3AmalBPzGOQ9btmMR9vmV 99Z5nlnrEuZiCWz1utL9U5IY+0ngJ8y5ZCbyZ1ZLQG03dmbHVUHYVwJHzSu7 hQ0LY9ZK4JiF55TqMVHYPxrGuS8xerEgGvtHA3fw2+zNtbHYPxpkXcQbKlYk YP9o2DzdtjpYloT9o2HY/kFDLx9Jwf7RkL9s7c51fA77R0Pr9xkv617KsX80 DK970vXiwwzsHw3/aQS2816vxP7RMLf9z96X+FnYPxqedE7Oe+GYjf2jIdBs 75/X89Zg/2iAyD07Pr9fh/2jweGlZ3jRfiX2j4Z+2dE3rerXY/9oKOozs3Ff p43YPwY+HX1Td9s8B/vHQEzNGq9k0SbsHwPuSy8newTmYv8Y6ONyP9YwPA/7 x0B/xxaH1T752D8GdNrHH8yx3oz9Y8BXv2GlV7st2D8GLk8Z2TqjCM3FgPmV td9bp27F/jHwY0+ibOcBtCoGlpba2pZ8QRfHwKWoPgVjR2zD/jHQbVKCc+I4 tDoGurjbhaYboDUxEN3PY+/hRzivjYF54qAgjRzNi4XUdrKBks5ofiy82TPr g9FyPD5BLIyq9B2jV459hLHQfYZT6qFm7AuxMOTmwOsVev/rHwtFHZZesu6N Px9xLHhX56ituuDPTxILFwcaXmn6hD9vLhbWHe6u4e7i66GMhVr/zr7Coxuw fyx8E46a3WMlvn7FsbDPqEjU3Qtf34pYaODf2Nfg+7/XPxbujQhZtsoQ3x+a WHj2dfytbY9WY/9Y6D9uqMjseCb2j4Ns3VOHirbh+48fBy1uAT1+7MD3pyAO PFw3bAgtx/evMA4O533uu/BlOvaPg5sfjGY8Xv+/938ctEt02XY1ET8f4jjg +tflrdqMnx9JHFTrZW883IKfLy4OxjoJXPuvw8+f8te/N8h7tcFZ/Hyq4uBo 5zY9WQ1+fovjYIjhiBk862DsHwfTeqxaVsQPwP5x8Pa2OssAfLF/HDjcmZQ5 INMb+8fBoTG9zqwxWYz948H4x9elXzzcsX88DHR+vK5XRzfsHw/V23vV6Tm5 YP94OFU+p2jkEgfsHw+pqs4LfQV22D8eEi9KqyevssH+8dBoLC7784M19o+H YxeME+5cn4L940HS+VrWPNlE7B8PrQnC02fOm2P/eFjw4YO7a+Vo7B8P9hYb Qo/W4v/nFfGguC/per8M/79Xx8OfUzN3mF7D84EmHmxXZFtrvfSxfzzcGSLr +vdHPJ/wEuBGZETJ65ou2D8BPowov5XRuyP2TwCLyGi3FDkP+yfAfc/3F8+e /4rnxwTILjwevLXtX2ZRAlR2mjdP2/QOz5cJcMlzxDyd6y+ZJQmwoLhhjrX1 Mzx/JoC/Wc5f2+seMisTIO/8qF4zRuL5V5UA5/YL+i39cYu5OAFiH5bsXtq/ Bs+vCZC7p1rWsc9FZnUCZF5RHtv3owzPtwlw1PaxZ3LvEmZtAhT/fLznVGkR nn8TwbK3jjn/1V5mfiJUXFBdsdRX4fVAIux8YHIjTpHHLEyENevyJ7QzWo/9 E0HnH9eB369nYf9ECBj5/UPiczn2T4Srs5f82eFUEvZPhE5Hs460BOD1EpcI NUkPjCZahGH/RNg+qHqKdZ4f9k+EEBevCd6zvLB/IrSeHv+0SeqG/RPhnJtf TGeNA/ZPhL7HX9Qe6WqL/X/12eWsF863wv6JML78vqWp+3jsLwWLM+1ydJ6O wv5S+JKzPDnYB68vBVK42W/xxr1eBthfCpWOd1/NC+qB/aXgPGC+g++mDthf Cie3VvndqfwPr5elYN0w4V333R+ZJVIoffj+zc83TXj9LIUbqztLmvI0zEop PM60V/3g3cPraSnUTLmXkNYDr7eLpSDraPPm7wFVeH0thWtRwXpFHc4wq6WQ 42e6pqeoGK+3paAJW3tvnPleZq0UXKY1ZEsCt+L1dxJ8X380YdSe9cz8JGis vP2Tp1qF9wNJYBP2bFfCPynMwiQYtru8SCzG+w9Igl4bzfoWzglmFiWBbNOg 0wOWemP/JAjW+JSWSNywfxL8UzIkRNJrLvZPgmUP5JLvZ62xfxK4xw2YeOHO eOyfBA9aJObHOhlj/yQ4FD935+ABA7F/EozY86HhzRY+9k+CbcfzDilndcD+ SbC35lPkOlUru5/T/jqeWbfGbbzZjPd/MpjfY3JJTUsDM18G0zXyyCjlXbwf lEGwep/e9mq8fxTKIKKu++WoY+fx/lAGqZHaGvcJx5lFMqjsqVdyP2Uv3q/K YFBqQY2Z3WZmiQyEkTXlT/LX4v2rDNZEvAtrs5UzK2Ww9NjEVXHd4/B+9tfx dZh1eODEYOZiGZh/2tlbWO6F97cy2DrPWFp12IVZLYO0Bn2BY6YN3u/KYHzD j/qEfydifxkcW1UkObHdGPsnw1y7rVL/rP7YPxmunouvDjjZDfsnww2P+kP/ 9eZh/2Q419Ro7tb8AfcnkqFlzIBRG181MouSocu6pcLRne/hfkUy6BXfcWxn V8MsSYbwPdsDMneV4f5FMshhyvVNA4qYlcmwoSrru6xoJ+5nJEOU3cYVSWPW MxcnQ4H5xI85qxW4v5EMPyQXXj19h/sn6mQoNx6+vskzEPc7fs1/fZLLu+zB rE2GgPA0n9lCe9z/SIH+C79V7c6zYuanwLp1LzzffjHF/ZAUKDbK/lDnbMQs TIHM1seOXXK7Y/8UeJ3p/6d17Q+2XyRKgRtJc5eYad/jftWv+fb+uk9TNcyS FMh+MV8nvUWN+1cpEPfhc79t4kpmZQp83RhjyCs/hvtZKZATfPnnjg4FzMUp UOja3nib9Qbc30qBpju3sl38FMzqFPhkPNJ4dnwM7nf9z37M2hQYaynsIvJz w/2vVBi+U7lxt7UtMz8Vcip91pzoMAH3w1Ih/5kyckz5UGZhKnweOPzzK3Ev 3B9LhVa7gkvfW3jYPxUGnX1uvDVNi/uFqbDY0dkWPj5llqSCKOL2+87qm7h/ mArON2L3Htx8jlmZCluXPvYIcDuM+4mpoLnvHyZv28JcnArVpy7dEO1Yjfub qVDo/2iLgaWUWZ0KAy5/OfCzNgj3O1OhSnnSzMDfnVmbCpdqRUenfJuF+59p cOBRn7RuuROY+WlwfYlBCc9qKO6HpkHsm/Ty1Gs9mYVpMFz3zzWeVm24P5wG C888ulBb+ZpZlAY5UBWyOgj3d8VpINKRyg+MvsIsSQOxT96Ei91KcP84DeZf gEXP+QXMyjSYY9Ozce9kJe4np8FHx+ZNi76nMBengf+TwcPCbobi/nIazNt6 3tT5mQezOg0ag7bsGTd5Nu43p8GVO5kBZ6pxf1v763gHOv/lZTIE95/TQZ15 dOU7YVdmfjo8L1jtvabgC9s/F6TD1ULhEJuE58zCdAhf6KXbvOc27renw5P1 ry5ddTnPLEoH7qT75kHNB5jF6ZBhZiv+bJDLLEkHV/0rmrfnFbg/nw6jDtr2 kBYvZ1amg++Axqs7iryYVekAQ9/ZnPCZw1ycDsYGgw3PHZmAzwPSYdGWLknP +g5hVqfDvZ1flUEVesyadMjjd1w/CD6z5xPadAjb/ub1gsQGfH7BgUN3T6Pa /BvMuhx8zvz32FjX08x8DsaL4z0Ovy9gNuTg2csnuz0K1jELOJhUNOrs6CNS ZhMOYk48v/681p9ZyEHPU6d0eIXzmS05OPmJM+g70Qqfl3Dwn5N6W8234cz2 HEieecwVruvJLOJAqHh0q/p2K3ve48nBR3F9N3l0I7OYgzaNRjdj0U3mEA6q 5vf0T8w5zSzhYMXQsDYJFDBLOdC9/u/axSPW4PMlDhYvGuHxams8cxYH2v0/ uTOrxMzKX8d7/riDk5kDcz4Hbvd6mf7TfyKzioPtAQe0bY+NmAs5mLPa2f7m mY7MxRzsaXfZa4iDlj0/K+UgM6Wu3NG1Hp+ncRDX3++Usf5F5hoOvqe7TGuq wedxag4urYnV73BxI3M9B6dKmq+b66YyazhIbv46OGlGIHMTBy+nXNw25YsL s5aDKG5Z4DTZZOZWDsacXqYaAgJ8/ieHqjhH8wHBnZl15RAy5qhRQY2WPW/k y0FnxjeTbt/+ZjaUg7J1x4GjPSqZBXK4YWc0RW9sIbOJHN7XqjMbe6xnFspB V1HVZ/O3RGbLX39/ZFC62VUxPu+Uw+sTVT86hcxltpfD9cp/Z9aBkFkkh4vL Hu+alGzA7CmHL8prw0Jaf7Dnr2I58LoM/8af+Q9ziBwqnTV35Lq1zBI52Gc9 F1ysPMEslYOz5UTt8eot+HxXDtO+ZtXk91EwZ8lhhCx+8zfnEGalHE51dxry yk7EnP/r53Ho8ddPJyyYVXJYcuGLzo07RsyFciiVmM527tWeuVgO244c/zZ+ yCv2fLr01/HvssoJSVbj82w5bB1cW2CYfZK5Rg477ggHX9bdxqyWw8v+/buG jlEw18thZVz7w3/FBTNr5DAzukNOiokLc9Ov16clfONnl4nMWjn4HVmdq9xp yNwqhyu1+6e8sfuJz+8V8GC2o+/s6kZmXQWMy+iY5/C6hpmvgMTGKR072R5l NlTAmGvHjLtmbmQWKCDXQmiY4iRlNlFAzfeOx4uNfJiFCujkPfVEU44ts6UC 9DJXzb90zxi/L6CA3d5ZlQ8+dWW2V8Cb6S4f7bp8YN9PECmg+d2KNf8drWP2 VMDLBc96CtqfYRYr4LDdo6PPBu1gDlHA2C4vy5Q9FMwSBfQpy5g/RRnILFWA 32x1bvu9Dvh9CAWMbu7ydcmyccxZCih90D43/FUvZqUCgi/dyevW5TP7Pka+ Ara+3XbfdVs9s0oBLYq/YpwOnWUuVMCTkZe+D9ylYi5WQJtp1jHjyfh9j1IF ZKT1s507IIi54lefcD2Ly24OzDUKsOhmsWLt87HMagUcujXCpnMYn7leASVL HhdmbfjIvm+iUYADtN61b65jblJAI/+pbF7yaWatAi6ePJzKm76FuVUB7yaF ullNSMXvr2RAzt1e4zqZiZl1M8C9bfLb4Ps2zPwM+OtFZeHA7cOZDTPAd86l q8MT8PszggyY22PDMc7/Jft+jUkGdK7bFPLZ7yqzMANuLTzx73WvQ8yWGTBn pvkGA7u1zJABDRsqd4z/GsVsnwGvSg4fEkx2ZRZlwJuydzPkvibMnhnA+/9/ iYlDiCXEUmKOOItYSZxPrCIuJC4mLiWuIK4hVhPXE2uIm4i1xK3EvBW/W5eY T2xILCA2IRYSWxIDsT2xiNiTWEwcQiwhlhJzxFnESuJ8YhVxIXExcSlxBXEN sZq4nlhD3ESsJW4l5q383brEfGJDYgGxCbGQ2JIYiO2JRcSexGLiEGIJsZSY I84iVhLnE6uIC4mLiUuJK4hriNXE9cQa4iZiLXErMW/V79Yl5hMbEguITYiF xJbEQGxPLCL2JBYThxBLiKXEHHEWsZI4n1hFXEhcTFxKXEFcQ6wmrifWEDcR a4lbiXmZv1uXmE9sSCwgNiEWElsSA7E9sYjYk1hMHEIsIZYSc8RZxErifGIV cSFxMXEpcQVxDbGauJ5YQ9xErCVuJeZl/W5dYj6xIbGA2IRYSGxJDMT2xCJi T2IxcQixhFhKzBFnESuJ84lVxIXExcSlxBXENcRq4npiDXETsZa4lZi3+nfr EvOJDYkFxCbEQmJLYiC2JxYRexKLiUOIJcRSYo44i1hJnE+sIi4kLiYuJa4g riFWE9cTa4ibiLXErcS87N+tS8wnNiQWEJsQC4ktiYHYnlhE7EksJg4hlhBL iTniLGIlcT6xiriQuJi4lLiCuIZYTVxPrCFuItYStxLz/vjdusR8YkNiAbEJ sZDYkhiI7YlFxJ7EYuIQYgmxlJgjziJWEucTq4gLiYuJS4kriGuI1cT1xBri JmItcSsxb83v1iXmExsSC4hNiIXElsRAbE8sIvYkFhOHEEuIpcQccRaxkjif WEVcSFxMXEpcQVxDrCauJ9YQNxFriVuJeWt/ty4xn9iQWEBsQiwktiQGYnti EbEnsZg4hFhCLCXmiLOIlcT5xCriQuJi4lLiCuIaYjVxPbGGuIlYS9xKzFv3 u3WJ+cSGxAJiE2IhsSUxENsTi4g9icXEIcQSYikxR5xFrCTOJ1YRFxIXE5cS VxDXEKuJ64k1xE3EWuJWYt6fv1uXmE9sSCwgNiEWElsSw//5/wG+TXBc "]], {}}, Annotation[#, "Charting`Private`Tag$27113#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(n\\)]\\)(n)\"", TraditionalForm], None}, { FormBox["\"n\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->400, LabelStyle->20, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 1000}, {0., 0.027528747216638835`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.888500458007657*^9, 3.8885004779581223`*^9}, { 3.888500623900593*^9, 3.888500635735593*^9}, {3.8885464411057653`*^9, 3.888546452547317*^9}, {3.888556534609345*^9, 3.8885565525070877`*^9}, { 3.888556588098445*^9, 3.88855661476307*^9}}, CellLabel-> "Out[271]=",ExpressionUUID->"c967e334-7ca7-47ac-95b3-d9a9ceabb063"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Example: function of two stochastic variables", "Subtitle", CellChangeTimes->{{3.888492784554522*^9, 3.888492814565033*^9}},ExpressionUUID->"faed844d-0022-4c8e-94da-\ 4e011f12f0d1"], Cell["Our analytical result ...", "Text", CellChangeTimes->{{3.888492978335197*^9, 3.888492985017283*^9}},ExpressionUUID->"8f36625a-afb5-43ad-a541-\ 599f8009e123"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AnalProb", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"HeavisideTheta", "[", RowBox[{"z", "-", "x"}], "]"}], "*", RowBox[{"HeavisideTheta", "[", RowBox[{"1", "-", RowBox[{"(", RowBox[{"z", "-", "x"}], ")"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{"AnalProb", ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(Z\)]\)(z)\>\""}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", "20"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "Input", CellChangeTimes->{{3.8884261345617247`*^9, 3.888426210408926*^9}, 3.888426286372879*^9, {3.8884925872252493`*^9, 3.8884925900544786`*^9}, { 3.88849291768442*^9, 3.888492964880612*^9}, {3.888546813441259*^9, 3.888546816150364*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"f6b00a9f-626e-4c14-8667-b8d42ecd032d"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBmIQHVOnc+X///f7GaDg3id3gc9fEfyE9GSfZ68R/NSA WUfOXEfw85Q4ts5cj+A3Hns81TgewV/GNzs8fd87OP/DPM7b52rewvmrVopf aT78Cs63bbivkWfxAmH+9Q5uuV1P4fyjEskPNrM+hvO/qn4XqK9/AOdPt6pI T2i7DefXax094at+Dc6X3NT6cKnKRTj/v3TA3snZx+H8eLYfPkm9u+D8tWn5 lmrLZ8H5XyTmLbvvOxPOtzl9Rnjml+lw/hl9rXfcTlPh/BsfT7o+3tkP56/T yTL84lUC589+7Xlm8+lcOP9W7X7TesZkON+SVX/5g6chcD4Aclp+/Q== "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCwBGIwzaq//MHTEHsYrWGZpRKsngGnQ7v2a9y7WwanzQ6y lPxwqoHT3H+WxHNeaYDTr41erVK2bIPTYQG7FNY0ToDTfPO6N3+6NRFOH3sd 42ZpMhlOm7X/zz72bCqcFt/nsv2B92w4/Wbq82Vc3Ivh9BrmIlv7q2vh9CTz N/qhZevgdEV2mlK2+Ho4vShzbfNpnQ1wOvfiwozveRvhNMvCLiP/z5vhtLFD zLF/v3fAaY/9/7+tazsIp7lD74eWFZyB0zolc/ZNnnwZTissuzqrcdINOH2C ee2kxX/vwun7KR2Zum0P4fSW2E7xxc5P4PTrqyvMg788g9OeTXx/zpa9hNON Ls7nkvTfwOkoA1mfHksEbSLz/eRWZwT97POqoxwRCNpnsdDedQ0IWoLp0epf FxH0hv0NnZNK3sLprtVR7HvqEHTydJPWpx0IWiz/RYPFXARdIxdQce8ogvao lU/XEn8Hpx9Y7XM5tBNBb1+QsGbHYQTdx8Yssv4sgra55P549kMEPSPzYmMp 53s4HTDjyT6NSASt/q9NTT4ZQf9L1uwTzUXQa/TzYpkaETTH8e+/b69A0Pd1 ZiVf2oSgt02yOX1iD4JOiWuctfUCgrY+osy05haCFtI6lrnoCYJ+1Z9xccY7 BF2bsYa/9yuCBgAy6NNC "]], LineBox[CompressedData[" 1:eJwVzH1Q0wUcBvAdb9JQiPHWAclQjJdSyIhmuB4oUVQueZOTNBZCMKFQSXER EHcVQYcOkBeBSIQpMNgAreEm2BhvCTiByYvx0kaCIrD9UDhedFu//vje9z73 PPc4nzwd+qUBhULxJe//397nztljTCCD3WBxcUUD7v7eRO/XCUwnJ7qV/KNB 6rflVz1tCGzeck9aOaxBXMNXCg97At41b0Xy+zRg0ix8nV0IZI2rctpaNHAL UCY5uhNoOo9tPQINrDnNVXa7CIxZVEgGqjWYnwyjmjMIeOw7Nv8vV4PSuiuP Ng4TkDfIg6hsDULG6m2F5QSijtQOVf+lBrvuSobNNQJeArnBcJsamak/zabd IEAxW9ltcksNoSNLdLiZAK/b/zK7Qg1qNC1irpvAAnM8bGeyGp1znCKX5wQ4 75gPixzUYLwMsC4PXELea+dG7yUtwmmr0jJ7ZQmyDkxorBdAyfiAdYDxAhSj fP+z3DnI2Sm3rIqXEbvLqnRMMYtPL3f6pS+uIPZRSobxjsdQjb5P79+5io+C C/+M56kQXXPJxC1nDWknu2ZY45NYzqPi1P11eLUOGx7vHcMeSVHTAbOXcLSr Y6qGFEhIMnV/L/YVmnJbW+Km+tG497cXhje0yLY3j1E+kMF69+OEC/VafHF6 qnYfTwaOq8f0syYt/DqF6lqODB/TRAODd7Qgvj6SetZZhpEn9wVXB7UIbs/L N/imHa8KtPG+Wi3obCupi60UgXMnJpLDdchMfPfDodsSCKaqwmYjdfCyGeoq i5aA9vBpbyRLB+Xd5JAYqgTjd8+J/RJ0CKb9zl4+LkZSYW6xeaYOdLFPia2+ BYVoDebX6yA12bv8WcAfUBU5dKkM9FB+cvFET3UjhHb8wbVNevhR23pnKI1I K2VMWWzRI3NggWEUJYRtxdFVph2Zfx5k4/+GAId4XPeyt/WQppjJJbl83Lxp eCk0nHRdDoTnr+N774KyU5F60M+IBf1DPASJ6DWZUeSez5zDvCcPs2KmVMgm 9zoC11yfVcGh/cJzaroelRObmq9FVeLHB/MRHdf1oDhtDvDgFiMkJDXmbz65 X5/oHH+wCFsVpmeWGsk9Rp+22rAQt0d25DhJyH7oL6I3OflYmGTd+U5OmmoZ vE2WDTFL3VOgIPvbB0x/9clClirtYd0YmTO57Tb1P4A+U7o4Ok1aaR9Hc0vH YpzbhvoJaavSUWNLDiRPRSYmi6T32x1cX0/G0QWFk/cq6QjXY9KSaMB75Ofu DdJGnjXKmXD8BwoY3S0= "]], LineBox[CompressedData[" 1:eJxFx2kogwEAxvHXzJFjskgpISPG8GVylLMkZhhFyayNL86GcqetTYQmZ85y tpA5S3o/CIkPyoz4sOYuiuS+DaX3eerf089dXCzIpREEEfDb359cOJD9NCKS +N9UKF+Tagm3VXdyj6zg7C+P6Gc7ODY8f1PGhP3q5vi2jvAbEZXJcobb6cIy AQt+lThxtV6wcG3nKckHZstjyhP94VWjd1VcMHz//lAXzoOT7xqb2GUww7A4 TFuHiVpZWojUhPKHWqg5ZdIoF/ZqWpir8JJvg6V9kSllm/gSPzmDTvmAs6Or JOHJwQjWudCMcoYmyN7lG65WDsn0E+aU1ZcufQyeBWXFgFJk4MMiwY3ndArs RJIzielwvSpzo1kM5wT13FlVwm4KhziLcfgzuMb2QA0f3pztjk/CqvT5rNhZ +JstKFWSsF6rGjTVwUv1LxLdPtwRlu0zcggnjPkvRBvg5YrtLdkV3MXhqlKu Yelpf5r7LezNKzhaeYTpJnujrS/w8WJYnugdJvNGAgK/4G5X6yejEf4BF92Y wA== "]]}, Annotation[#, "Charting`Private`Tag$25798#1"]& ], {}}, {}}, AspectRatio->NCache[ Rational[1, 2], 0.5], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(Z\\)]\\)(z)\"", TraditionalForm], None}, { FormBox["\"z=x+y\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->400, LabelStyle->20, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-1, 3}, {0., 0.9987244897959184}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.888492591900599*^9, {3.888492949104089*^9, 3.888492966709436*^9}, { 3.888546806257509*^9, 3.888546818088941*^9}, 3.888631299091077*^9}, CellLabel->"Out[3]=",ExpressionUUID->"e5962f0e-4a12-4aff-a387-97f9e460f5b9"] }, Open ]], Cell["... agrees really well with experiment:", "Text", CellChangeTimes->{{3.888492987761407*^9, 3.88849299212431*^9}, { 3.888493059454183*^9, 3.8884930614641237`*^9}},ExpressionUUID->"41d464db-00ff-46b7-a44b-\ 4ac2e0e791d4"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"NSamples", "=", "1000000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DATA", "=", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "NSamples"}], "]"}], "+", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "NSamples"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"DATA", ",", "200", ",", "\"\\"", ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(Z\)]\)(z)\>\""}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", "20"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "Input", CellChangeTimes->{{3.888426353727153*^9, 3.888426377069525*^9}, { 3.8884264357163687`*^9, 3.888426530326741*^9}, {3.888492642441341*^9, 3.888492716639377*^9}, {3.888492756605926*^9, 3.888492767546402*^9}, { 3.888493339902254*^9, 3.888493345587352*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"d79a496a-e18f-43d2-bcd1-d47929dac2be"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[ Opacity[0.]], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[ Opacity[0.]], RectangleBox[{0., 0}, {0.01, 0.0049}, RoundingRadius->0], RectangleBox[{0.01, 0}, {0.02, 0.015}, RoundingRadius->0], RectangleBox[{0.02, 0}, {0.03, 0.0251}, RoundingRadius->0], RectangleBox[{0.03, 0}, {0.04, 0.0338}, RoundingRadius->0], RectangleBox[{0.04, 0}, {0.05, 0.0421}, RoundingRadius->0], RectangleBox[{0.05, 0}, {0.06, 0.0551}, RoundingRadius->0], RectangleBox[{0.06, 0}, {0.07, 0.0646}, RoundingRadius->0], RectangleBox[{0.07, 0}, {0.08, 0.0793}, RoundingRadius->0], RectangleBox[{0.08, 0}, {0.09, 0.0876}, RoundingRadius->0], RectangleBox[{0.09, 0}, {0.1, 0.0894}, RoundingRadius->0], RectangleBox[{0.1, 0}, {0.11, 0.1032}, RoundingRadius->0], RectangleBox[{0.11, 0}, {0.12, 0.109}, RoundingRadius->0], RectangleBox[{0.12, 0}, {0.13, 0.1286}, RoundingRadius->0], RectangleBox[{0.13, 0}, {0.14, 0.1351}, RoundingRadius->0], RectangleBox[{0.14, 0}, {0.15, 0.1403}, RoundingRadius->0], RectangleBox[{0.15, 0}, {0.16, 0.1537}, RoundingRadius->0], RectangleBox[{0.16, 0}, {0.17, 0.1613}, RoundingRadius->0], RectangleBox[{0.17, 0}, {0.18, 0.174}, RoundingRadius->0], RectangleBox[{0.18, 0}, {0.19, 0.181}, RoundingRadius->0], RectangleBox[{0.19, 0}, {0.2, 0.197}, RoundingRadius->0], RectangleBox[{0.2, 0}, {0.21, 0.211}, RoundingRadius->0], RectangleBox[{0.21, 0}, {0.22, 0.2192}, RoundingRadius->0], RectangleBox[{0.22, 0}, {0.23, 0.2221}, RoundingRadius->0], RectangleBox[{0.23, 0}, {0.24, 0.2367}, RoundingRadius->0], RectangleBox[{0.24, 0}, {0.25, 0.2493}, RoundingRadius->0], RectangleBox[{0.25, 0}, {0.26, 0.2622}, RoundingRadius->0], RectangleBox[{0.26, 0}, {0.27, 0.2663}, RoundingRadius->0], RectangleBox[{0.27, 0}, {0.28, 0.2743}, RoundingRadius->0], RectangleBox[{0.28, 0}, {0.29, 0.2788}, RoundingRadius->0], RectangleBox[{0.29, 0}, {0.3, 0.2946}, RoundingRadius->0], RectangleBox[{0.3, 0}, {0.31, 0.3044}, RoundingRadius->0], RectangleBox[{0.31, 0}, {0.32, 0.3136}, RoundingRadius->0], RectangleBox[{0.32, 0}, {0.33, 0.3311}, RoundingRadius->0], RectangleBox[{0.33, 0}, {0.34, 0.3462}, RoundingRadius->0], RectangleBox[{0.34, 0}, {0.35, 0.3412}, RoundingRadius->0], RectangleBox[{0.35, 0}, {0.36, 0.3572}, RoundingRadius->0], RectangleBox[{0.36, 0}, {0.37, 0.3576}, RoundingRadius->0], RectangleBox[{0.37, 0}, {0.38, 0.379}, RoundingRadius->0], RectangleBox[{0.38, 0}, {0.39, 0.3754}, RoundingRadius->0], RectangleBox[{0.39, 0}, {0.4, 0.3939}, RoundingRadius->0], RectangleBox[{0.4, 0}, {0.41, 0.4032}, RoundingRadius->0], RectangleBox[{0.41, 0}, {0.42, 0.423}, RoundingRadius->0], RectangleBox[{0.42, 0}, {0.43, 0.4285}, RoundingRadius->0], RectangleBox[{0.43, 0}, {0.44, 0.4335}, RoundingRadius->0], RectangleBox[{0.44, 0}, {0.45, 0.4421}, RoundingRadius->0], RectangleBox[{0.45, 0}, {0.46, 0.4535}, RoundingRadius->0], RectangleBox[{0.46, 0}, {0.47, 0.4551}, RoundingRadius->0], RectangleBox[{0.47, 0}, {0.48, 0.4767}, RoundingRadius->0], RectangleBox[{0.48, 0}, {0.49, 0.4752}, RoundingRadius->0], RectangleBox[{0.49, 0}, {0.5, 0.5022}, RoundingRadius->0], RectangleBox[{0.5, 0}, {0.51, 0.5092}, RoundingRadius->0], RectangleBox[{0.51, 0}, {0.52, 0.5004}, RoundingRadius->0], RectangleBox[{0.52, 0}, {0.53, 0.5308}, RoundingRadius->0], RectangleBox[{0.53, 0}, {0.54, 0.5334}, RoundingRadius->0], RectangleBox[{0.54, 0}, {0.55, 0.5372}, RoundingRadius->0], RectangleBox[{0.55, 0}, {0.56, 0.554}, RoundingRadius->0], RectangleBox[{0.56, 0}, {0.57, 0.5778}, RoundingRadius->0], RectangleBox[{0.57, 0}, {0.58, 0.5694}, RoundingRadius->0], RectangleBox[{0.58, 0}, {0.59, 0.5791}, RoundingRadius->0], RectangleBox[{0.59, 0}, {0.6, 0.5976}, RoundingRadius->0], RectangleBox[{0.6, 0}, {0.61, 0.5929}, RoundingRadius->0], RectangleBox[{0.61, 0}, {0.62, 0.6093}, RoundingRadius->0], RectangleBox[{0.62, 0}, {0.63, 0.6197}, RoundingRadius->0], RectangleBox[{0.63, 0}, {0.64, 0.6329}, RoundingRadius->0], RectangleBox[{0.64, 0}, {0.65, 0.6528}, RoundingRadius->0], RectangleBox[{0.65, 0}, {0.66, 0.6524}, RoundingRadius->0], RectangleBox[{0.66, 0}, {0.67, 0.6833}, RoundingRadius->0], RectangleBox[{0.67, 0}, {0.68, 0.6786}, RoundingRadius->0], RectangleBox[{0.68, 0}, {0.69, 0.6985}, RoundingRadius->0], RectangleBox[{0.69, 0}, {0.7, 0.6973}, RoundingRadius->0], RectangleBox[{0.7, 0}, {0.71, 0.7041}, RoundingRadius->0], RectangleBox[{0.71, 0}, {0.72, 0.707}, RoundingRadius->0], RectangleBox[{0.72, 0}, {0.73, 0.7267}, RoundingRadius->0], RectangleBox[{0.73, 0}, {0.74, 0.7351}, RoundingRadius->0], RectangleBox[{0.74, 0}, {0.75, 0.7266}, RoundingRadius->0], RectangleBox[{0.75, 0}, {0.76, 0.7636}, RoundingRadius->0], RectangleBox[{0.76, 0}, {0.77, 0.763}, RoundingRadius->0], RectangleBox[{0.77, 0}, {0.78, 0.7952}, RoundingRadius->0], RectangleBox[{0.78, 0}, {0.79, 0.7851}, RoundingRadius->0], RectangleBox[{0.79, 0}, {0.8, 0.785}, RoundingRadius->0], RectangleBox[{0.8, 0}, {0.81, 0.8082}, RoundingRadius->0], RectangleBox[{0.81, 0}, {0.82, 0.8084}, RoundingRadius->0], RectangleBox[{0.82, 0}, {0.83, 0.8385}, RoundingRadius->0], RectangleBox[{0.83, 0}, {0.84, 0.8245}, RoundingRadius->0], RectangleBox[{0.84, 0}, {0.85, 0.8537}, RoundingRadius->0], RectangleBox[{0.85, 0}, {0.86, 0.8646}, RoundingRadius->0], RectangleBox[{0.86, 0}, {0.87, 0.8543}, RoundingRadius->0], RectangleBox[{0.87, 0}, {0.88, 0.8716}, RoundingRadius->0], RectangleBox[{0.88, 0}, {0.89, 0.886}, RoundingRadius->0], RectangleBox[{0.89, 0}, {0.9, 0.8905}, RoundingRadius->0], RectangleBox[{0.9, 0}, {0.91, 0.8969}, RoundingRadius->0], RectangleBox[{0.91, 0}, {0.92, 0.913}, RoundingRadius->0], RectangleBox[{0.92, 0}, {0.93, 0.9249}, RoundingRadius->0], RectangleBox[{0.93, 0}, {0.94, 0.9305}, RoundingRadius->0], RectangleBox[{0.94, 0}, {0.95, 0.9499}, RoundingRadius->0], RectangleBox[{0.95, 0}, {0.96, 0.9628}, RoundingRadius->0], RectangleBox[{0.96, 0}, {0.97, 0.9617}, RoundingRadius->0], RectangleBox[{0.97, 0}, {0.98, 0.9737}, RoundingRadius->0], RectangleBox[{0.98, 0}, {0.99, 0.9984}, RoundingRadius->0], RectangleBox[{0.99, 0}, {1., 0.9982}, RoundingRadius->0], RectangleBox[{1., 0}, {1.01, 0.9975}, RoundingRadius->0], RectangleBox[{1.01, 0}, {1.02, 0.9715}, RoundingRadius->0], RectangleBox[{1.02, 0}, {1.03, 0.9889}, RoundingRadius->0], RectangleBox[{1.03, 0}, {1.04, 0.9633}, RoundingRadius->0], RectangleBox[{1.04, 0}, {1.05, 0.9596}, RoundingRadius->0], RectangleBox[{1.05, 0}, {1.06, 0.9356}, RoundingRadius->0], RectangleBox[{1.06, 0}, {1.07, 0.941}, RoundingRadius->0], RectangleBox[{1.07, 0}, {1.08, 0.9246}, RoundingRadius->0], RectangleBox[{1.08, 0}, {1.09, 0.9235}, RoundingRadius->0], RectangleBox[{1.09, 0}, {1.1, 0.9041}, RoundingRadius->0], RectangleBox[{1.1, 0}, {1.11, 0.899}, RoundingRadius->0], RectangleBox[{1.11, 0}, {1.12, 0.8952}, RoundingRadius->0], RectangleBox[{1.12, 0}, {1.13, 0.8635}, RoundingRadius->0], RectangleBox[{1.13, 0}, {1.14, 0.8661}, RoundingRadius->0], RectangleBox[{1.14, 0}, {1.15, 0.849}, RoundingRadius->0], RectangleBox[{1.15, 0}, {1.16, 0.8462}, RoundingRadius->0], RectangleBox[{1.16, 0}, {1.17, 0.8257}, RoundingRadius->0], RectangleBox[{1.17, 0}, {1.18, 0.8269}, RoundingRadius->0], RectangleBox[{1.18, 0}, {1.19, 0.8113}, RoundingRadius->0], RectangleBox[{1.19, 0}, {1.2, 0.7984}, RoundingRadius->0], RectangleBox[{1.2, 0}, {1.21, 0.7832}, RoundingRadius->0], RectangleBox[{1.21, 0}, {1.22, 0.7916}, RoundingRadius->0], RectangleBox[{1.22, 0}, {1.23, 0.7636}, RoundingRadius->0], RectangleBox[{1.23, 0}, {1.24, 0.7641}, RoundingRadius->0], RectangleBox[{1.24, 0}, {1.25, 0.7534}, RoundingRadius->0], RectangleBox[{1.25, 0}, {1.26, 0.7581}, RoundingRadius->0], RectangleBox[{1.26, 0}, {1.27, 0.7305}, RoundingRadius->0], RectangleBox[{1.27, 0}, {1.28, 0.7435}, RoundingRadius->0], RectangleBox[{1.28, 0}, {1.29, 0.7231}, RoundingRadius->0], RectangleBox[{1.29, 0}, {1.3, 0.7054}, RoundingRadius->0], RectangleBox[{1.3, 0}, {1.31, 0.6873}, RoundingRadius->0], RectangleBox[{1.31, 0}, {1.32, 0.6738}, RoundingRadius->0], RectangleBox[{1.32, 0}, {1.33, 0.6836}, RoundingRadius->0], RectangleBox[{1.33, 0}, {1.34, 0.6699}, RoundingRadius->0], RectangleBox[{1.34, 0}, {1.35, 0.6557}, RoundingRadius->0], RectangleBox[{1.35, 0}, {1.36, 0.6284}, RoundingRadius->0], RectangleBox[{1.36, 0}, {1.37, 0.65}, RoundingRadius->0], RectangleBox[{1.37, 0}, {1.38, 0.6189}, RoundingRadius->0], RectangleBox[{1.38, 0}, {1.39, 0.6115}, RoundingRadius->0], RectangleBox[{1.39, 0}, {1.4, 0.6009}, RoundingRadius->0], RectangleBox[{1.4, 0}, {1.41, 0.5948}, RoundingRadius->0], RectangleBox[{1.41, 0}, {1.42, 0.5933}, RoundingRadius->0], RectangleBox[{1.42, 0}, {1.43, 0.5739}, RoundingRadius->0], RectangleBox[{1.43, 0}, {1.44, 0.5715}, RoundingRadius->0], RectangleBox[{1.44, 0}, {1.45, 0.5478}, RoundingRadius->0], RectangleBox[{1.45, 0}, {1.46, 0.5338}, RoundingRadius->0], RectangleBox[{1.46, 0}, {1.47, 0.5253}, RoundingRadius->0], RectangleBox[{1.47, 0}, {1.48, 0.5192}, RoundingRadius->0], RectangleBox[{1.48, 0}, {1.49, 0.5136}, RoundingRadius->0], RectangleBox[{1.49, 0}, {1.5, 0.5151}, RoundingRadius->0], RectangleBox[{1.5, 0}, {1.51, 0.4942}, RoundingRadius->0], RectangleBox[{1.51, 0}, {1.52, 0.4816}, RoundingRadius->0], RectangleBox[{1.52, 0}, {1.53, 0.4744}, RoundingRadius->0], RectangleBox[{1.53, 0}, {1.54, 0.4682}, RoundingRadius->0], RectangleBox[{1.54, 0}, {1.55, 0.4493}, RoundingRadius->0], RectangleBox[{1.55, 0}, {1.56, 0.4493}, RoundingRadius->0], RectangleBox[{1.56, 0}, {1.57, 0.4281}, RoundingRadius->0], RectangleBox[{1.57, 0}, {1.58, 0.4326}, RoundingRadius->0], RectangleBox[{1.58, 0}, {1.59, 0.4053}, RoundingRadius->0], RectangleBox[{1.59, 0}, {1.6, 0.4013}, RoundingRadius->0], RectangleBox[{1.6, 0}, {1.61, 0.4036}, RoundingRadius->0], RectangleBox[{1.61, 0}, {1.62, 0.397}, RoundingRadius->0], RectangleBox[{1.62, 0}, {1.63, 0.3741}, RoundingRadius->0], RectangleBox[{1.63, 0}, {1.64, 0.3695}, RoundingRadius->0], RectangleBox[{1.64, 0}, {1.65, 0.3586}, RoundingRadius->0], RectangleBox[{1.65, 0}, {1.66, 0.3424}, RoundingRadius->0], RectangleBox[{1.66, 0}, {1.67, 0.3444}, RoundingRadius->0], RectangleBox[{1.67, 0}, {1.68, 0.3224}, RoundingRadius->0], RectangleBox[{1.68, 0}, {1.69, 0.3128}, RoundingRadius->0], RectangleBox[{1.69, 0}, {1.7, 0.3008}, RoundingRadius->0], RectangleBox[{1.7, 0}, {1.71, 0.2903}, RoundingRadius->0], RectangleBox[{1.71, 0}, {1.72, 0.2942}, RoundingRadius->0], RectangleBox[{1.72, 0}, {1.73, 0.2788}, RoundingRadius->0], RectangleBox[{1.73, 0}, {1.74, 0.2613}, RoundingRadius->0], RectangleBox[{1.74, 0}, {1.75, 0.2637}, RoundingRadius->0], RectangleBox[{1.75, 0}, {1.76, 0.2515}, RoundingRadius->0], RectangleBox[{1.76, 0}, {1.77, 0.2375}, RoundingRadius->0], RectangleBox[{1.77, 0}, {1.78, 0.227}, RoundingRadius->0], RectangleBox[{1.78, 0}, {1.79, 0.2126}, RoundingRadius->0], RectangleBox[{1.79, 0}, {1.8, 0.2077}, RoundingRadius->0], RectangleBox[{1.8, 0}, {1.81, 0.1977}, RoundingRadius->0], RectangleBox[{1.81, 0}, {1.82, 0.1847}, RoundingRadius->0], RectangleBox[{1.82, 0}, {1.83, 0.1759}, RoundingRadius->0], RectangleBox[{1.83, 0}, {1.84, 0.1697}, RoundingRadius->0], RectangleBox[{1.84, 0}, {1.85, 0.1517}, RoundingRadius->0], RectangleBox[{1.85, 0}, {1.86, 0.1456}, RoundingRadius->0], RectangleBox[{1.86, 0}, {1.87, 0.1307}, RoundingRadius->0], RectangleBox[{1.87, 0}, {1.88, 0.1235}, RoundingRadius->0], RectangleBox[{1.88, 0}, {1.89, 0.1163}, RoundingRadius->0], RectangleBox[{1.89, 0}, {1.9, 0.1108}, RoundingRadius->0], RectangleBox[{1.9, 0}, {1.91, 0.093}, RoundingRadius->0], RectangleBox[{1.91, 0}, {1.92, 0.0857}, RoundingRadius->0], RectangleBox[{1.92, 0}, {1.93, 0.0719}, RoundingRadius->0], RectangleBox[{1.93, 0}, {1.94, 0.0652}, RoundingRadius->0], RectangleBox[{1.94, 0}, {1.95, 0.0524}, RoundingRadius->0], RectangleBox[{1.95, 0}, {1.96, 0.045}, RoundingRadius->0], RectangleBox[{1.96, 0}, {1.97, 0.0313}, RoundingRadius->0], RectangleBox[{1.97, 0}, {1.98, 0.0253}, RoundingRadius->0], RectangleBox[{1.98, 0}, {1.99, 0.0128}, RoundingRadius->0], RectangleBox[{1.99, 0}, {2., 0.0051}, RoundingRadius-> 0]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.04, 0}, Frame->True, FrameLabel->{{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(Z\\)]\\)(z)\"", TraditionalForm], None}, { FormBox["\"z=x+y\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->400, LabelStyle->20, PlotRange->{{0, 2}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {None, Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8884264484556303`*^9, 3.888426531064746*^9}, 3.888492593617141*^9, {3.888492644720847*^9, 3.888492717059351*^9}, { 3.888492757275022*^9, 3.888492768076433*^9}, {3.888493341008277*^9, 3.888493346058498*^9}, 3.888547190421852*^9, 3.88863130345188*^9}, CellLabel->"Out[6]=",ExpressionUUID->"c386c4c6-f919-461b-9d4d-67c6c20ccb43"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Example: Central limit theorem", "Subtitle", CellChangeTimes->{{3.888492846585847*^9, 3.888492858797865*^9}},ExpressionUUID->"8b3eee4f-e2af-42bf-b1a7-\ d8c0cf2d5ed1"], Cell["Let\[CloseCurlyQuote]s take some generic probability distribution:", \ "Text", CellChangeTimes->{{3.888493064907545*^9, 3.888493068484048*^9}, { 3.888493408209653*^9, 3.888493425004476*^9}},ExpressionUUID->"de07adab-181d-4181-b83c-\ 6a77f8df2a00"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"NSamples", "=", "20000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NOfDraws", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DATA", "=", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.1", ",", "0.6"}], "}"}], "->", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", "1"}], "}"}]}], ",", RowBox[{"{", RowBox[{"NSamples", ",", "NOfDraws"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ExpX", "=", RowBox[{ RowBox[{"Mean", "[", RowBox[{"Flatten", "[", RowBox[{"DATA", ",", "1"}], "]"}], "]"}], "//", "N"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AsymMean", "=", RowBox[{ RowBox[{"0.3", "*", RowBox[{"(", RowBox[{"-", "2"}], ")"}]}], "+", RowBox[{"0.1", "*", "0"}], "+", RowBox[{"0.6", "*", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Asym\[Sigma]", "=", SqrtBox[ RowBox[{ RowBox[{"0.3", "*", RowBox[{ RowBox[{"(", RowBox[{"-", "2"}], ")"}], "^", "2"}]}], "+", RowBox[{"0.1", "*", RowBox[{"0", "^", "2"}]}], "+", RowBox[{"0.6", "*", RowBox[{"1", "^", "2"}]}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"DATA", ",", "1"}], "]"}], ",", "Automatic", ",", "\"\\"", ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(X\)]\)(x)\>\""}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", "20"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"\"\<=\>\"", "<>", RowBox[{"ToString", "[", "AsymMean", "]"}], "<>", "\"\<, \!\(\*SubscriptBox[\(\[Sigma]\), \(X\)]\)=\>\"", "<>", RowBox[{"ToString", "[", "Asym\[Sigma]", "]"}]}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.8884932314712973`*^9, 3.88849323311005*^9}, { 3.8884932757575808`*^9, 3.8884933216208467`*^9}, {3.888493357532353*^9, 3.888493370125964*^9}, {3.8884934376933203`*^9, 3.8884936611581173`*^9}, { 3.888493693779108*^9, 3.888493831428824*^9}, {3.888494747991884*^9, 3.888494756365634*^9}, {3.888494815523197*^9, 3.8884948401463823`*^9}, { 3.888495197028517*^9, 3.8884953811052856`*^9}, {3.888547689579495*^9, 3.888547759902822*^9}, {3.8886316269386*^9, 3.888631668506049*^9}, { 3.888641225930141*^9, 3.888641271003126*^9}}, CellLabel-> "In[107]:=",ExpressionUUID->"88c0d2c1-cf55-4a6c-ad14-b0c893d83b62"], Cell[BoxData[ RowBox[{"-", "0.0006375`"}]], "Output", CellChangeTimes->{{3.888493796768156*^9, 3.888493832311029*^9}, 3.888494756872344*^9, {3.8884948160594177`*^9, 3.888494841025407*^9}, 3.8884951978100357`*^9, {3.888495246022369*^9, 3.888495258893169*^9}, { 3.888495346397376*^9, 3.888495381606344*^9}, 3.888547592284504*^9, { 3.8885476904632177`*^9, 3.888547760368568*^9}, 3.888631541565217*^9, { 3.8886316275165787`*^9, 3.888631668975428*^9}, 3.888640764134841*^9, { 3.888641229233433*^9, 3.888641271563333*^9}}, CellLabel-> "Out[110]=",ExpressionUUID->"069ea1bc-8674-4523-a675-c009f919e1a6"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6579999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6579999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2.5, 0}, {-1.5, 0.300236}, "RoundingRadius" -> 0]}, ImageSizeCache->{{98.81, 221.78}, {-16.452830752023374`, 133.954614459328}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.300236]& , TagBoxNote->"0.300236"], StyleBox["0.300236`", {FontSize -> 20}, StripOnInput -> False]], Annotation[#, Style[0.300236, {FontSize -> 20}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.5, 0}, {0.5, 0.0999295}, "RoundingRadius" -> 0]}, ImageSizeCache->{{343.25, 466.22}, {83.39315390413897, 133.954614459328}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.0999295]& , TagBoxNote->"0.0999295"], StyleBox["0.0999295`", {FontSize -> 20}, StripOnInput -> False]], Annotation[#, Style[0.0999295, {FontSize -> 20}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5, 0}, {1.5, 0.5998345}, "RoundingRadius" -> 0]}, ImageSizeCache->{{465.47, 588.44}, {-165.79250387301175`, 133.954614459328}}], "DelayedMouseEffectStyle"], StatusArea[#, 0.5998345]& , TagBoxNote->"0.5998345"], StyleBox["0.5998345`", {FontSize -> 20}, StripOnInput -> False]], Annotation[#, Style[0.5998345, {FontSize -> 20}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-2.58, 0}, Frame->True, FrameLabel->{{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(X\\)]\\)(x)\"", TraditionalForm], None}, { FormBox["\"x\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->400, LabelStyle->20, PlotLabel->FormBox[ "\"=0., \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(X\\)]\\)=1.34164\"", TraditionalForm], PlotRange->{{-2.5, 1.5}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {None, Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.888493796768156*^9, 3.888493832311029*^9}, 3.888494756872344*^9, {3.8884948160594177`*^9, 3.888494841025407*^9}, 3.8884951978100357`*^9, {3.888495246022369*^9, 3.888495258893169*^9}, { 3.888495346397376*^9, 3.888495381606344*^9}, 3.888547592284504*^9, { 3.8885476904632177`*^9, 3.888547760368568*^9}, 3.888631541565217*^9, { 3.8886316275165787`*^9, 3.888631668975428*^9}, 3.888640764134841*^9, { 3.888641229233433*^9, 3.888641272436449*^9}}, CellLabel-> "Out[113]=",ExpressionUUID->"6dfab2fc-15f2-4696-bdf6-2b1688c8e3a8"] }, Open ]], Cell["Let\[CloseCurlyQuote]s take a look at the distribution of the \ average:", "Text", CellChangeTimes->{{3.888494694245659*^9, 3.888494708813118*^9}},ExpressionUUID->"28ad825a-9703-417f-ba23-\ 43ddfabd7001"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"YDATA", "=", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"DATA", ",", RowBox[{"{", "2", "}"}]}], "]"}], "/", "NOfDraws"}], "//", "N"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AsymPDF", "[", "x_", "]"}], "=", RowBox[{ FractionBox["1", SqrtBox[ RowBox[{"2", "\[Pi]"}]]], "*", FractionBox[ SqrtBox["NOfDraws"], "Asym\[Sigma]"], RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"-", "NOfDraws"}], RowBox[{"2", "*", RowBox[{"Asym\[Sigma]", "^", "2"}]}]], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "AsymMean"}], ")"}], "2"]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{"YDATA", ",", "200", ",", "\"\\"", ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(Y\)]\)(y)\>\""}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", "20"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"AsymPDF", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.888494742478465*^9, 3.888494850328315*^9}, { 3.888494928844545*^9, 3.888494941790909*^9}, {3.888495496401506*^9, 3.888495541960786*^9}, {3.88849559330147*^9, 3.888495639528905*^9}, 3.888495705123251*^9}, CellLabel-> "In[114]:=",ExpressionUUID->"e0d287fa-c5c7-4b8c-a835-b98b23421d7c"], Cell[BoxData[ GraphicsBox[{{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[ Opacity[0.]], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[ Opacity[0.]], RectangleBox[{-0.545, 0}, {-0.535, 0.004999999999999996}, RoundingRadius->0], RectangleBox[{-0.515, 0}, {-0.505, 0.004999999999999996}, RoundingRadius->0], RectangleBox[{-0.505, 0}, {-0.495, 0.004999999999999996}, RoundingRadius->0], RectangleBox[{-0.495, 0}, {-0.485, 0.004999999999999996}, RoundingRadius->0], RectangleBox[{-0.46499999999999997, 0}, {-0.45499999999999996, 0.009999999999999992}, RoundingRadius->0], RectangleBox[{-0.45499999999999996, 0}, {-0.44499999999999995, 0.009999999999999992}, RoundingRadius->0], RectangleBox[{-0.44499999999999995, 0}, {-0.43499999999999994, 0.019999999999999983}, RoundingRadius->0], RectangleBox[{-0.43499999999999994, 0}, {-0.42499999999999993, 0.029999999999999975}, RoundingRadius->0], RectangleBox[{-0.42499999999999993, 0}, {-0.4149999999999999, 0.029999999999999975}, RoundingRadius->0], RectangleBox[{-0.4149999999999999, 0}, {-0.405, 0.04500000000000046}, RoundingRadius->0], RectangleBox[{-0.405, 0}, {-0.395, 0.05999999999999995}, RoundingRadius->0], RectangleBox[{-0.395, 0}, {-0.385, 0.039999999999999966}, RoundingRadius->0], RectangleBox[{-0.385, 0}, {-0.375, 0.07999999999999993}, RoundingRadius->0], RectangleBox[{-0.375, 0}, {-0.365, 0.10499999999999991}, RoundingRadius->0], RectangleBox[{-0.365, 0}, {-0.355, 0.09499999999999992}, RoundingRadius->0], RectangleBox[{-0.355, 0}, {-0.345, 0.08999999999999993}, RoundingRadius->0], RectangleBox[{-0.345, 0}, {-0.33499999999999996, 0.09499999999999992}, RoundingRadius->0], RectangleBox[{-0.33499999999999996, 0}, {-0.32499999999999996, 0.1099999999999999}, RoundingRadius->0], RectangleBox[{-0.32499999999999996, 0}, {-0.31499999999999995, 0.22999999999999982}, RoundingRadius->0], RectangleBox[{-0.31499999999999995, 0}, {-0.30499999999999994, 0.2249999999999998}, RoundingRadius->0], RectangleBox[{-0.30499999999999994, 0}, {-0.29499999999999993, 0.2649999999999998}, RoundingRadius->0], RectangleBox[{-0.29499999999999993, 0}, {-0.28500000000000003, 0.26500000000000273}, RoundingRadius->0], RectangleBox[{-0.28500000000000003, 0}, {-0.275, 0.29499999999999976}, RoundingRadius->0], RectangleBox[{-0.275, 0}, {-0.265, 0.4399999999999996}, RoundingRadius->0], RectangleBox[{-0.265, 0}, {-0.255, 0.4799999999999996}, RoundingRadius->0], RectangleBox[{-0.255, 0}, {-0.24499999999999997, 0.4899999999999982}, RoundingRadius->0], RectangleBox[{-0.24499999999999997, 0}, {-0.235, 0.5800000000000011}, RoundingRadius->0], RectangleBox[{-0.235, 0}, {-0.22499999999999998, 0.7949999999999994}, RoundingRadius->0], RectangleBox[{-0.22499999999999998, 0}, {-0.21499999999999997, 0.7849999999999994}, RoundingRadius->0], RectangleBox[{-0.21499999999999997, 0}, {-0.205, 1.060000000000002}, RoundingRadius->0], RectangleBox[{-0.205, 0}, {-0.19499999999999998, 1.089999999999999}, RoundingRadius->0], RectangleBox[{-0.19499999999999998, 0}, {-0.18499999999999997, 1.0199999999999991}, RoundingRadius->0], RectangleBox[{-0.18499999999999997, 0}, {-0.175, 1.1350000000000022}, RoundingRadius->0], RectangleBox[{-0.175, 0}, {-0.16499999999999998, 1.234999999999999}, RoundingRadius->0], RectangleBox[{-0.16499999999999998, 0}, {-0.15499999999999997, 1.3699999999999988}, RoundingRadius->0], RectangleBox[{-0.15499999999999997, 0}, {-0.145, 1.595000000000003}, RoundingRadius->0], RectangleBox[{-0.145, 0}, {-0.13499999999999998, 1.6899999999999986}, RoundingRadius->0], RectangleBox[{-0.13499999999999998, 0}, {-0.12499999999999997, 2.1249999999999982}, RoundingRadius->0], RectangleBox[{-0.12499999999999997, 0}, {-0.11499999999999998, 1.925000000000001}, RoundingRadius->0], RectangleBox[{-0.11499999999999998, 0}, {-0.10499999999999998, 2.050000000000001}, RoundingRadius->0], RectangleBox[{-0.10499999999999998, 0}, {-0.09499999999999997, 2.084999999999998}, RoundingRadius->0], RectangleBox[{-0.09499999999999997, 0}, {-0.08499999999999998, 2.3550000000000013}, RoundingRadius->0], RectangleBox[{-0.08499999999999998, 0}, {-0.07499999999999998, 2.3550000000000013}, RoundingRadius->0], RectangleBox[{-0.07499999999999998, 0}, {-0.06499999999999997, 2.599999999999998}, RoundingRadius->0], RectangleBox[{-0.06499999999999997, 0}, {-0.05499999999999998, 2.465000000000001}, RoundingRadius->0], RectangleBox[{-0.05499999999999998, 0}, {-0.04499999999999998, 2.7799999999999994}, RoundingRadius->0], RectangleBox[{-0.04499999999999998, 0}, {-0.034999999999999976, 2.9649999999999994}, RoundingRadius->0], RectangleBox[{-0.034999999999999976, 0}, {-0.024999999999999977, 2.5800000000000005}, RoundingRadius->0], RectangleBox[{-0.024999999999999977, 0}, {-0.014999999999999977, 2.92}, RoundingRadius->0], RectangleBox[{-0.014999999999999977, 0}, {-0.004999999999999977, 2.9}, RoundingRadius->0], RectangleBox[{-0.004999999999999977, 0}, {0.0050000000000000235, 3.11}, RoundingRadius->0], RectangleBox[{0.0050000000000000235, 0}, {0.015000000000000024, 3.025}, RoundingRadius->0], RectangleBox[{0.015000000000000024, 0}, {0.025000000000000022, 2.8500000000000005}, RoundingRadius->0], RectangleBox[{0.025000000000000022, 0}, {0.035000000000000024, 2.8299999999999996}, RoundingRadius->0], RectangleBox[{0.035000000000000024, 0}, {0.045000000000000026, 3.1249999999999996}, RoundingRadius->0], RectangleBox[{0.045000000000000026, 0}, {0.05500000000000002, 2.7700000000000014}, RoundingRadius->0], RectangleBox[{0.05500000000000002, 0}, {0.06500000000000003, 2.7299999999999978}, RoundingRadius->0], RectangleBox[{0.06500000000000003, 0}, {0.07500000000000002, 2.7100000000000013}, RoundingRadius->0], RectangleBox[{0.07500000000000002, 0}, {0.08500000000000002, 2.4950000000000014}, RoundingRadius->0], RectangleBox[{0.08500000000000002, 0}, {0.09500000000000003, 2.329999999999998}, RoundingRadius->0], RectangleBox[{0.09500000000000003, 0}, {0.10500000000000002, 2.220000000000001}, RoundingRadius->0], RectangleBox[{0.10500000000000002, 0}, {0.11500000000000002, 2.2100000000000013}, RoundingRadius->0], RectangleBox[{0.11500000000000002, 0}, {0.12500000000000003, 2.004999999999998}, RoundingRadius->0], RectangleBox[{0.12500000000000003, 0}, {0.13500000000000004, 1.9549999999999983}, RoundingRadius->0], RectangleBox[{0.13500000000000004, 0}, {0.14500000000000002, 1.7050000000000032}, RoundingRadius->0], RectangleBox[{0.14500000000000002, 0}, {0.15500000000000003, 1.6999999999999986}, RoundingRadius->0], RectangleBox[{0.15500000000000003, 0}, {0.16500000000000004, 1.5999999999999988}, RoundingRadius->0], RectangleBox[{0.16500000000000004, 0}, {0.17500000000000002, 1.3850000000000027}, RoundingRadius->0], RectangleBox[{0.17500000000000002, 0}, {0.18500000000000003, 1.189999999999999}, RoundingRadius->0], RectangleBox[{0.18500000000000003, 0}, {0.19500000000000003, 1.0499999999999992}, RoundingRadius->0], RectangleBox[{0.19500000000000003, 0}, {0.20500000000000002, 0.9500000000000018}, RoundingRadius->0], RectangleBox[{0.20500000000000002, 0}, {0.21500000000000002, 0.8449999999999993}, RoundingRadius->0], RectangleBox[{0.21500000000000002, 0}, {0.22500000000000003, 0.7649999999999993}, RoundingRadius->0], RectangleBox[{0.22500000000000003, 0}, {0.23500000000000001, 0.6650000000000013}, RoundingRadius->0], RectangleBox[{0.23500000000000001, 0}, {0.24500000000000002, 0.6099999999999994}, RoundingRadius->0], RectangleBox[{0.24500000000000002, 0}, {0.255, 0.4600000000000009}, RoundingRadius->0], RectangleBox[{0.255, 0}, {0.265, 0.4549999999999996}, RoundingRadius->0], RectangleBox[{0.265, 0}, {0.275, 0.40499999999999964}, RoundingRadius->0], RectangleBox[{0.275, 0}, {0.28500000000000003, 0.31999999999999973}, RoundingRadius->0], RectangleBox[{0.28500000000000003, 0}, {0.29500000000000004, 0.29499999999999976}, RoundingRadius->0], RectangleBox[{0.29500000000000004, 0}, {0.30500000000000005, 0.21499999999999983}, RoundingRadius->0], RectangleBox[{0.30500000000000005, 0}, {0.31500000000000006, 0.2249999999999998}, RoundingRadius->0], RectangleBox[{0.31500000000000006, 0}, {0.32500000000000007, 0.15999999999999986}, RoundingRadius->0], RectangleBox[{0.32500000000000007, 0}, {0.3350000000000001, 0.1199999999999999}, RoundingRadius->0], RectangleBox[{0.3350000000000001, 0}, {0.345, 0.10000000000000103}, RoundingRadius->0], RectangleBox[{0.345, 0}, {0.355, 0.08499999999999992}, RoundingRadius->0], RectangleBox[{0.355, 0}, {0.365, 0.07999999999999993}, RoundingRadius->0], RectangleBox[{0.365, 0}, {0.375, 0.06499999999999995}, RoundingRadius->0], RectangleBox[{0.375, 0}, {0.385, 0.03499999999999997}, RoundingRadius->0], RectangleBox[{0.385, 0}, {0.395, 0.044999999999999964}, RoundingRadius->0], RectangleBox[{0.395, 0}, {0.405, 0.02499999999999998}, RoundingRadius->0], RectangleBox[{0.405, 0}, {0.41500000000000004, 0.004999999999999996}, RoundingRadius->0], RectangleBox[{0.41500000000000004, 0}, {0.42500000000000004, 0.03499999999999997}, RoundingRadius->0], RectangleBox[{0.42500000000000004, 0}, {0.43500000000000005, 0.009999999999999992}, RoundingRadius->0], RectangleBox[{0.43500000000000005, 0}, {0.44500000000000006, 0.004999999999999996}, RoundingRadius->0], RectangleBox[{0.44500000000000006, 0}, {0.45500000000000007, 0.009999999999999992}, RoundingRadius->0], RectangleBox[{0.45500000000000007, 0}, {0.46499999999999997, 0.005000000000000051}, RoundingRadius->0], RectangleBox[{0.46499999999999997, 0}, {0.475, 0.009999999999999992}, RoundingRadius->0], RectangleBox[{0.475, 0}, {0.485, 0.004999999999999996}, RoundingRadius->0], RectangleBox[{0.495, 0}, {0.505, 0.004999999999999996}, RoundingRadius-> 0]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwUV3c41t8btkdfKw0qCVkhIxLy+TxvEkVWZlaFJKuIKLIqJUIyMrIzMlIU SY69svfe++X1IkTi5/fXue7rOed+7vuc+1zXObwW967dpqKgoHhPQ0Hx/1Ec Ds/v7u4i1mj78tt61LL3Nk++3NzaRWEmfTdbBOlk8/KlBFfXdtH7walGfgtG 2TPCGhbTxF1U99r1q1Qmm+y5/c/6G3t20ULNW+XmXC5ZwsRyQ/SnXRShIP6o U+Ss7LUXTVnSN3YRSjixrZNnLevW8szhTukOQjJmHeBcJ9vZ+d98+a1/SGHm hod9cMS542X3Dp7j2kazDeOx4oYacl/tqmhZh7ZQKlpb2tD6I3czSIrc57eJ Xkm3KOx2Z8r/CfN4ieAPyvYbYjT/p6KQwjJ85N3YOrI1PpuJec0qxKlJOXcE rKHIKzc0Dq16nfezv+V+6spvlP808Sa5nlLRg/qjm/PiCmLVOqgu7eGv6Bht TndzdgVFW5rkjlu8VLSQOBChMbGCZlySfug8eKWoZuL5RbhvBUnyvrHg4QpR 5MzXXByuWkGnnLJ7F70iFAssVi3U41ZQG62RwzGnVMWMP+nLclEryLvSorCN P00xNtjURzBsBS3tFxe/sp2u6Fdc/Z7y5Qqij0rrvcSXrajD/q638MEK+uHE y+Kqn6/IY2t7wPHGChq+c0/aKKBYkVSuqMmvvoIO3HnZVSxRoThuuDy4X2UF aXcGzXtnVyp2LX6w2yWsoENp7uYrqtWKJUdYA/plV5CsQ96rX5N1iqmX3NO+ iq0gReJX/WNcTYqBTmOVoXx7+pjnLydQtyk6v1cbs+NcQYSSkM+dYx2KxvX5 OyosK4im4/bLGvkexQtrXFx8NCuI55J7g/qJAUVhXn/5f5vLyD/Y19Ymc0SR VWPJoHdpGeWHRvtYPxpXXHc3csmfWkaxFjoHzr6eUpxnYaZOGl1GTOc4Ny6p zCgOpZa/CR5YRkYuw2eZ+eYUq1pFPt1tW0Zm9hdO519dVCyyHsEMG5fR7tvo hbCkJcWs7beNyrXLyOe/P++i2ZcV48Mum5ypWEYM3B+YoxxWFMOE/82d+LmM NMj7mz5PrCr6l352Zy5aRk9yrl3bfbim+FjPmv7vl2XExTJr+fPUhuItnxb+ 7oxlJFbFOmW2saVo0JeAD6Uso9R78cif6Z+i2pn7RpPxy4h1xXVXRm1XEQIJ zsToZST0KeF3YR8FJjPJFrQSvoyoXKp6fghQYaewsQ+bIXv6rTJrJl9RY9yR nxFF4DJyQfcOsf9HizFcvrbK4ruMJPpu/82wYsD+JfIxH/ZcRk2b/M2vlPZh K5srgsfdltHni5eY7igzYdPXKgn8zsvoUVnLzRl7Fmwg662xqMMyEhVU9Htw gw1rpbFyOWOzjJQtlE/+iN+PVZnJBMtbLqPD9wNEltbYsVzWrnLV68uInmSt eGX1EJZi82FAU28ZNaaIBl9/z4G9K3dd09daRlsbC/ESd45gQUdVWM3UlhHZ 88HTE7rHMN8Hh09ZXVpGsomTMhmWx7GHjdNKdoRldDOiPuph7AnMVqDQ1Pn8 MuKYNTQt2OHB9HoMQ32kltE08o06nnYSuyIp/PGF2DJSYFgbWT8hgOEBfyqD hZbR7YMD14u+CmLS43VDEXx7evq4rW3uCmPC56M34o7v5edatfYZTAQ7Hn53 fyrnMnLOm5u0kRbD2BflRbMOLKPMusHTAZri2N/4fvPvjMtoH1/NAUlvKYy8 8dG9jGZv/x5O9Hg3nsEmtT3CanfJ6KxseI3kGRmsL1M9u3mLjD4c/ylN/eUs 1kzFVdO1RkbPQ54w9WicwypNFkYGyWRE+3ibNpdeHisqKNmcIJJRMPvucs6Y ApZsbXZ6ZYyMtBRIIU93cSwKnVbdHCSj6lvrRnKpBCyIc+cmRS8ZBXiolg8N XcB8nJof03eQ0b9hwffS4hcx14b4cJZmMlK98NqhO1IZsz15L/dQPRkNWEQ7 eh9Rwcw9oY6raq//uv1ruiJV7LL46F+RYjJa3Jr4V6CtjmEv8g6d+UpGd/kX BOS1NLAzoz4S8nlkJPKfALWxsxYmKK9zhZBFRss+U0n6w9rYsTBeS9U0MopT KmB247yGsRGXPTWTyOhThYDovru6GI1yRaR+HBn9sPFrTWrTw0hrFg2WYWSU +XHZ4NuyITahKT1p+5qM7LrCp+azr2O96dQ7Ti/JqOTJFaeoFyZYE0Unx6On ZHSiP+Tk4lMzrOJ6qpSPFxkZhpS6XEy9gRV+cVF/8YiMmGvTzF6v3cSy/7t0 O9iFjPxm1p1DTltgET+n3sXZklEs99c4/jErzNw9xuvcbTIaV6wnvve1xoSl tazab5BR838t55cv2GDLi9RqDsZkdLVhgMmP3xYrziiSYNAnI4lDW/WjovbY U0uHQylaZOR98D51s7EjdpWb7y+mRkZGZn7L3Mb3seG3gTUPgIwS+K30azed sXRNQjaLAhmV8/Qo4vddsPuMa28yZcjoXdDfUnrqh5h8VaabsgQZLUjQWGAF bhiVt7nZyCkySqoM/XTC/xH2S/7Axcf8ZNRy7e4mp4cHFv67VvjQCTL6/eKa VlnEE0zIVuq32kEyMrkyzF9w0hcj80/3TbGQ0Z0buafVnP2w7yMxyIeRjHzP W9+Z7nuK+cVofThGQ0aCTzhwc9PnWNRHhsMO/5aQj0laTcZff0yEx3kseWUJ EdYCj459f4mVRAxk984soX6p4cHL0a+wUZ/ci8rtSyj6lCPuVR2MOa9zsD6u XUIva6OedAaGYjT2vv2fSpZQt/S9obGGN1jk2PyHqc9LiPlc5HMv3rfYKUM9 p2PpS+hxQlyE+ZtwrKTxp6JO3BK6whhNo88ViWkqCTG8eLOEJt/bVehXRWHO p7fiVzyW0NGuldA/D2IxmhRLW2GnJfTp95loRZ/3WCRn01lz6yXkPKEi3/kl ARMOlqUMN1lCMRcO1eD0SdgP6sTGeu0lFGs+M3lAPRnTfMT4bvfSEgp6Vq7t kZaCjZKcLc+eX0LHr5dM8x37gNH0X9pKFFhC2qIrn30NM7BIrU/V3UeXUEBt Z8CZkx8x4WrON0xsS0jo/nf1Y2zZWLGCn6kS7RJ6dthNKoInF9PIIwq5b5HQ azlRrzeiediogP5qzhIJ2RnnjcqbfMacY0tLJyZJ6JGv/sqXxC9YpP8bfa0W EqrVlOzQffAVE97e4nleRUK7wg7cI9SFWLGT1ULxdxJ6ujlST/u5CLs601RI ziUhWmkNzVrPYmzE9NxTwVQSUh8ZolW5W4I5tydqmkaTkHln0ZN691KM5vK+ o2HBJHStYvfhqEHZXt6H8v65k5B3Xto9rfqKvXyreEo7klDHMq0+L3/VXp7z VO9akpBY1G6YQ1T1Xp6PHEgwIqFMbVOHSf5azInx6XCnBgnNzytf0G2uw2i8 FzL3XSQhvLrCIS2iAYv8re9KkCOhx3RWJkTPRqx4RJgpm4+E0rdjpY4Yt2Ke ipQ5MZwkdGOOPD53rw3Dovs0AlhIaGcqd++427Gdtc8kNxoSymsZcWlq78DK rr0Ksd5aRJ2eIuqKfF2Y3ycLSX3yIsqUuXrU5EU3psx0vu3i9CIajVjwe0nd i9VWE9l52xfR5+jK6XWVAewlX1U+a90iUk8QNrXeP4Specfp7fxcRHH4ESnl zWGMadBlbSF/ET0xkDGR8RnFmuU0IgcyF5ECHzHIKnwMC40QONeQsIjU3mYH KxaPYzor/3qKIhbRrdrxB90rE1hnVu6RSN9F5CUySMWaNI1FMrwofua2iNZi bhefPzKLGd6+YfLAYREFMkukXc6cwzgrzm3fslxEjNdpLPKuEbF+brb32tcX UYhklgUNxyIW5zGLgdYichlm1CBtkDDz3rLh05f26kdt8955kLGxN048/0kt ojzxe6/FslewZNKV8k3BPb4E4uFTI6uYlTqfxSzXIrqT03fdRmANE8zYouph X0QqIcyHOX3WsVmajpRqhj2/g2Rad/IG9vFWlnLBzgJ6fYM42++2idmVPp1K /r2Azq+UxKVz/MVIbjJCPqMLaGaiI+h52g6W18lU59i9gFod2ZfvXqXAnaSm bMwaF5DmvXgnGn1K/EzwT8arFQuo3ZlsSelIhf+ej/ioULSAlD4r/DZ7R41/ U3VUP5W7gLp9gsUEu2hw91SVBY7UBbRwsa7JVYAO/2u2cXotZAE9uKmi5kjL iJcUtzRPPF9A/ibEZx+i9uFeHBn32j0WUKh48YqfEhNOcPFhK3daQBu3JA28 6Vlwqjajz5/uLCCWkUntU7OseNVpqWvxZgvoZvZtrQOrbPjzV4yrQboLiPWi zucYSnacQblYxhYWkKl84H5KnYN4Q2JYl9HZBXQ4pD9o7O0hPOif7UNV0b3+ /0lqaM0fxjWNL3LI8i4gt+8W95z0OXHWwmNF/BwLSDb+6B/v7iN464HfRgeY F9B++wNVVY7H8LD7jZuU1AtomlXpedyJ4/hhkSfnR0hEtKLVdsDRhgfv9dcf bJokoviskIQztrx49MTpJyX9RJSbQMlk6cGHc70fLo2uISKJ0Q9NWS38+PDm txsvS4io5AC7a+FBQTzRIITC7QsRBUpJcHA4COEn2QhKevFEFK2sfNLEVAQP lhx7bPuWiDI95C/xHBHD/2j75fu8JCIalmjMZeU0buF0ciHyCRH1Ugc4nZiX wBvfVPHnOBOR/Hvb31SUUrjsl9tmlXeIKOoTz8OD3GfwxHa6yD5TIupviTfT 05DGXQ5coadTJSK1729/rkyfxYel54FLkYjy790j1Oqewy/rBbqfkSKiiCEa 7aIeOfyLi9jny4JE9Glxi+WMiwJ+PKJpzvwYEVWVthl+E1HEX3515HNlI6KQ d8r/hrYxfKWL1SSQds8vtROX8QLgNYevNRYuzaMnpxPZ1A8p4ZLnVmmaJ+fR zx6Zawn4RTzGMByb7JtHvrW2dC8fK+M07mcfbjXPI+9+rUKBhkv4vXfduWxV 86iuwHgsU1wV7y9ymxH8Po/+5erOGWZexpX7OHmw3HmUEZ1ywv+8Gs551OTN 3XfzaLhMw5Y3WwP3U9iu9349j7S6BZNSXmvhC8bvqSL95tGW6BezuzXauIEH fj7bbR4N3XjkWNylg5fHjjyosJ9H6fWHZL+uXcPFSnyye2/No6ZCpSpDIT08 cpB3imQwj8Jy0hty7fRx2+NWBscuzKP2uMajfyWN8E6MNkRKdh5Fqnm4Gxdc x3HztFpV0Xmk/SlbS1nLBM/wUqUw59nz18ofeozaDD+QMCvncmgeRZvlmRq2 meNeKMDp1b69/j8VDlSY3cRnR0Q+Ju7OoSmVMLvkW7fwEh6HY01zc2jL/G+2 UrQlLniBRW9ieA7F5SQbTzRb4aG3PgVtdswhs23zOTYOa/x28vI/gdI59EiV n/X+hA3eWhEmq5g/h1KvC5Zu3LXFFSak713LmENS30zPFNPb4yz8D0e9wuaQ Yt5mj0nwPdxdmeNIxIs5lG11aZrt53183KpIJ8tzDl2tyWF7VO6EF37Yquix nkNs5mNsspsPcL6a2L+LJnPItYhL21DcFQ+aVpSh0ZlDJUwMPVGuD/GbQt4f JM/PofxzN3YT8Ud4gyrPsIrkHAq4esA+peIxLmNTfthMYA7VJrMpKZh54oyZ 1C8DWOeQ+fVJEfUBb9ylPrUsgWYOvXVLiawY9cGH5y5tft2cRQ34SNb8mC/+ ReSl7fjELHp39xQesP8ZfqLt5nfRvlk0vX88Zev8czzITZ7BtXkWSZUVG8i6 +eO3q+Y/0H+fRToHx8pKTwbg7baVv7VzZ1G65t8k6qhXOL4/7mJMyiwa+x5r SXMiCOc01xgTC55Ftw7zBJc5heDPaAQlHz6dRS+iGhKdE0Lx5Y87Xsh9FpGd f641hr3BGzY+cV2znEVzx96rxSe/xc/Fv7SLNZpF8u+Eg4PLwvFU5VvFkxqz SIlV9rwCKQJ/8obdyE1uFq2MSx0V8HyHz58jppWd3uNnmEqXHI7GDYYr1xhP ziKP3Ei7N7qxuKSo69s45ln0QVpazskzHo9r0xifoppF0GLzgu1IIs7oLigl 8WcGTagf9q3a2/Hxqp7m8vEZFHHtMyitJuNadnnH/+udQac1jWlvUabiJfsD 7PWaZhAhPTuRjvsDHmGusG+mcAaRPlYWLz9Px6loD1yXzJlBX9NS5LraM3DH LGL6o+QZ9JxG9KGn1Ef88p+4S0yvZ5CVstXVWqEc/Gu8a7i+3wxao3JOv1me i/Nd0pyId5tBTx5mSejL5eF/3+z6SFnMoAdbpn6W+77gNnK9LY8NZ9BP9PrZ Nm0+3jmcx111dQZp/wh0bmIpwHNFLUoMzs0g2v3MNg1q3/Bj7Qr/JYrNoFCz dvbb3oX4S/cDxnO8M8giT+rroaoi/FZ11YYH0wxK41lZ3PL5gTfbvVepppxB btTeMXNbJbgC+8MIlo1pZKKmqWf5shQ/eENIOmlsGknelpBbIZfhvrQUfvPd 08ipX3B7t6ccJ2X1tko3TqOQFO71mYYKvPZPgGPNt2kUcL7LOrm7CpdJsPjJ mj2NqIWjowrI1XjipfNM15Om0cTx2IO8R2rxx2ELmcTAaTRVpfdtKKoen5ar /iPjO412jjtZ5Sw14Loj71W9Hk6jQE4VyR6jRlxMTGuK7dY0Wi1y8H1v0YJH twvJGBtMo7+SAhl+fq043SOKpynq06imttdQwrwNH6n+zCMrO436OkQst2Q7 cE/dTWU5sWmkZth0MO1kJ845RrirwDeNwtjOBSsd68K1t1s+4yzTiLP3mbjS 6R58IYCjm0Czp+etZn725V78JceNLaWtKeRu3SbI4dSHl50hKalOT6Gv6UzK 8sQB3LTs7J0rg1Nors+HUQgfwv9oPAlUb59C9VQ9930Th3HJu0ydWqVTqCNw uIjz1yjeuK77R6dgCklT2LY9ihjDbZ7Fcul9nELDM5+P7NiM44kJIreNIqfQ zUxJY/rTk7jiaecA46ApZKn9W8eCewrvLf6eY+o3hagOvGwIOjqNs3VfXr/p OIWoQ3iyT5+dxbMtQ49aWk0h9djZuXi9Ofzycg9+23gKyfsK5XX5zOO+THde 3FWZQuLU5v0VlIs4d0xulp3iFGI4cq0x3pCEFwuttzicmUIKzZHNgSVL+IrS c05n7il0saRD9YDJMm7xKCXz8fok0n+0eajv5298h47Y5LkwiXJtGbDE3DU8 JvzMitf4JDLxovjSk7mOt38qV3jaPInevWc5olf+B3fEGG88r5pEtbKXRfyG N/F9v7SfviieRNddqDhX6f/iF6dHfgWmTaJz3wonk33/4aMPhMiv4ybR2JYr kdy+g3tS3jsYGjaJCqmbFLWPUEAB145puNckyjLlSisNoQR+XS5SnMEk6nMf JTqP0kDZqCV7wtVJlKcxX3H3Fy2YOmbJJilNou6HSv3yZXQQHqDg/UF8EikU fMjerGMASQ6/lHT+SZQpbl5bMsQIjan1tZlHJ9FUB4GfYmcf0JQZseXSTSJm 2oiSfgtmSNRIlMnbnkAScgEa1hksoDgwY/RlZQLJRpcfNvnLCi7rD5O+DU+g A40pXU2398OUWMQZ9G0CJZAOzWaEHQQRrw+k2awJ1H72F0HX/xA4tnz9yJ40 gaIdZDkKnh2GP07dfNaBE4jmkquCVQonKFZOD4f4TCAGX0PB1Koj4HtwI+a7 6wSS+6+C23PlKOwr5DjAfHMCicXDMOPD46DFINwiq7+nT7Ybehq5Ify6XOBN tQl0Z5XrhOwRHji+bURdIDOBnmjUSYlF8oLkhZhVY8YJ9PtvfcSPdX5wDfv4 6dnOOBIruDx/dVoAiieK7XJXx9EFxSipnRFBuOg/MEE5PI6mUwU0bqwKw8se YoJoxzjKygugm2UWgUbhbRP9unG08GLrp5KMKBj84urM+DKOGL+wfruadhpi uE6HtqePo4kh6WPrK+Iw4oBd3Y4bR78EmBnyBSXBhs28SuvFOKJyT3IYjZQC D/2EgnWTcbQRF8+m2i0DZWmf7vPojKMXc5mSJT/OAs0fJKamMo6c7rDmen+U heCY0dT3kuMo0/PqJbMPctBOJN+sFRhHqkSTfWe/yAMHRnl8+eg4apqz+dpd rwCJI7wRyrTjqOxHBD3nMQymJM/oOG6NoWB3zvJQfRxE/JSY3y2NobQbmyXP 4wDy+S2fE/vGUMGty/yjwheg5m6qa1juGFolHq34JK0M//0okCpJGUOqWkmM VYyXQJupenHq3RhijVy8dmr2EvTlTt2WfzqG4izzxo4hVeCmWOe1dB9Dh57t 27hSdBksdOiGgxzGUKYrR8e+H1dgYVXQYNRwDG2pCi+lDKuD5KVz7Ps09uql Nr/OUGiAa6Rqs7TSGErV9GspF9OEHTkblRdiY+jDaYGz5/S0Yb9Xpqw45Ria IupfbDyqC/7fhOvYNkbRocMxLwVbdWGLlH59dWEU7Yi4X6gL1IPxG2meRb2j SMNCQT7vsAEYvBNgiW0eRSwst/Bb0wbQ0Jqa8KRqFP1b5DeQ+GkIXy6kVCjl jaKSulPajL7XQfAxn55A2iiyKlULDHI0hpgvSVP0caNonik3/piVCfidTGRo ejGKUq6PfzO3MYNrtO81DW+MIvk1vfkHpJtQg3GNyuuPIrFYhpjDAbdA4WGs E5f63nxmoZpeYQvgm4kOH5MdRXPhzDwm7pYQeeKIYJXYXn2xGTkIW8E+o3eF aXyjaLXncKPysBWs1kX227GMIqV4Id1lE2u4Q3nYXpNmFDHiGlf5+O/Atwci f2/9HkEVF+N/NK/cAX99oQsLv0aQkze9kXnqXRA6wttE4TGC/pz1Wt8xcwC2 VyfI1dYjqIBGKCXzhiP82Tp+IPDayN4r9mf+47v3oG7w6PVDIiPIIePJMvy6 D3kaRzz7D42gfxaD3RxmTvCulCMhgXIEfVMfTPJadQKbxINTp/qGUcAcO9cT 8Qegvf8Aw1LVMDqXszxr1PEA5Pz2ixbkDSO/B3nD6k9cgNGKxQl/OYyG3qQU MIy5wkchhn/Xzg3v6X2mzbjgDmHv6Hg4Tw4jYICByp+P4DEj7cUhlmGkfLC3 uiXiMagRKQPuTA8h+nKVn6+uewIx9+9Bz4ghRCt+zlv1qA90ntg6d8F3CNHJ Hm2cifeBktA/xnQOQwj698s7CPlCkPNaYqjyEOoFX1KIsh+IyS6JfVgdRC4y 9B6SX56Btbi39/ehQRTAYSHBeec5JAiytjfVDiKB4PDlOF5/YOeQcFuPHUQc OgnBxzJegDorqt/nP4ie3aCJs3Z5Cc/otbhO3B9EDH+dTy6rBMDGhmO5qvIg UrZ5yee0+wokyTsHTMUHUQftd3k0FQi2s8HW9zkHkRw79/6d9iAY7M39L3ph ALWap/xhrAyGiu8k/fnwAXRajjXAxPsNbH/2ytjxGkApX1ctyWxhcPYjy1/2 uwOImYmXXJMWBhkx4onnsQF0/6TkcPrIW3jt4TgfNNWPClJ5s24ERELNgx3F pJZ+RDw7N85PiAIK++CQr9/7kX/PRwbO7ShwNs2VGX7dj7zPrmkxPosGI4zk JSHbj8TctaQqeuIg7KxX20WefnTgy60j73+8h1+nWfiN9vUjIWfdK0Uf4gHn Fq/3Ge5Dv4l6mskqiXBy1+FAu38f4n1iH7JukAymG/9uT9/vQzHaluSdiWSI XHpdtGXch378LmCudkkBhtEcs5MSfWjh0MXIkaRUIJUtprv09KKr/IeeFIil g9D3J1svy3vRNQlhetb+dLj5mVnjfVYv+nQv61p/YAZ0JJ1eqfbuRQsHIyRO /suEIj8HRQ7hXjQaTqUldSQHVh7/CxZl70WsSZP1FQs5IPrg9Rhs96Bnevmb r6tzId4yx9+mtQcVsAUoxF/Mg6fKi63f3XsQY07B6LbgF6i4vKAlY7mHA640 Nad+AQoNYnOuRg+iIQq9ChXIB0/9ucYUvh7UOzB4/JhkATy0nqp73diNyqYv pvXbfoMC20lVhsJulJycslVIWQgrjhM1fkndyNnL6dKf2EK45zZW5fawG70M MqQb7i8Cm5dDZbd4ulG45IWPxKc/IC1oEAb3daOooYZTr8+VwGToQKnBWhcy jiJFMC+VwK3ovhL1hi5UvjvnT7xbCsYfu4rOunQh6dp33M51ZXC1sSmPsa4T qck3P5W4XgWvWhslnn3pRJdWW5R6uqqgrvNX7k5cJ5oL0U/+rVcNl4bqs1ed OlF5nxxzvnEN4KTqjKFjnSg05sVx6ed14LlSJWREt4fjtM97Hq6H4vXKtHZy BwoZOb/k87Eezu2Wp9ZWdyBjM/kzo/0NIMlWmvj5Xgeqy2qzIJo1gePBnyfE jDuQygsRWzq6ZsjmLIlPU+5AhubP5/g+N8Mp3uK42CMdaDmd1u4CQyvwnfn2 7nllO+IerFm1ftwGh/RyQ69ztKNfn/68uZ/TCV8EA4svUbejthzOf/sPdoH2 5p1JqaU2NFw2p3veswtexfPK7attQ8tbhrRndLphZzZ8pPhhG6Jp0BqkYumF 6Sce4lzdragyk5mY2jUAT7WNjBgqWlHT4ErtMYNB4Dl51u93TivyYWDtvNQ7 CMZ1pK7G563ooGaedMnYEDSzWzx5crYVUelV+3+lGQVHrTfvfp5qQd+Nt0Sz DMYh47faQgRlC/pT1qxNSh2H8WgagmNfM9qNiG7n+D0OBpNuM9wBzShsWP75 iYgJgEfmsj6zTejc+cRRxvFJYEsR7VRKb0Sjr1k/maXPwJf1atY6/gbkKg5p d4YWIfhjcgW+WY846a6OCOuQwM7c2/VrUz0q88A3JqtJwF8jN5D8sB7BsxLe S1+WIDIiK+1JXR0K1Br1kvpFhscybzBp+1rU6nXpbkfVCig5m9rF51chsQuv Jl9RbgC3oDz3oZdVyN9NvmNLdQP+9h1qCzStQuvPKimygjeg4EKL7CPaKvRy IbGljOsPCO5XotIzrETrj3Ks75/fhH15QtGMf8tRr9cYEvL5Cx8Gpl7PPStF TxtIj13oKQj9nocT3kuXooULkVa8pygILNyqeTrjP5HEf3XV39UoCA9vZrR/ h5+IZUHNOO01BUFlypbj1dYP9Oy9rCGBnZIwS1pKFLn/HfFfXnTbPUhF4Arl +TLM/R11uHpZxcpQEbSldCrDmorQ9dspY/R6VISiB1+mtkSKUGCXQbl6GBUh 4I+LyK+pb0jwUVqMFhM1QYRqK9/OpAAVHGOkaPlNTTBPEak+sa8ADQRMVWWy 0RDClE26O4ry0bMaGSsFMRrCln/Jn/OH81ERVl3z0IKG8Os/b4yp7TPyqOJq k/hFQ6DI+aRZ5v0Zbbu9ZX49SUOQ0Ry94SL+GY0I0Ca8/UdDiAu94DcYmIcI bmblkeK0hF4RhuDrr3PRs+QmsnoQLYHgcDevfD4HGT5eS29IpiVkfGpoP3U5 BwUu9AnMFNESHsm85tiiykbD4r4MvydoCUdx9qQY90wUdf5ahNxZOoKfz4NK qu4MxH90f5DPZToCsaJzylY6AwnY/ds2MaEjlKhGiZwnpaH9abkRdd50BDMd roIBy1T07O3arlElHWFhdU3etSoF2Zef729upyN4RrYgFoEU9I/ffLtjjI4Q N+D368J0EnJVwRxf7tARxLxMdQZUktD22YDNs0z0hB88sj0u6YkoSXjn4r0j 9ISCX+3VWm3xKFYNen3P0BM62fzb/MLeo6vIKvw6Tk9Y1Zcf+qobh8xagn9/ v0JPODOa8PtYdzTqEPzbsf8GPUFHQJdCK+odUj21vEN/l55w35aOyc8oCsmG PBR45kxP+PTb/uRsfzg6xcTEwvSMntAszyNxLO4t8mW+UXg4iJ5A8upQ0DQL Qy6BkyIf3tITmKv8VXy53yDRE7pL32LoCUbsLqk2KARx7Tv2Vj2JnhAV1/+j +cJrpHbYOdsinZ7QLXihQ6bqFUrJMO/7m01POPg5fT5G5SVqoa5Ah7/QE3TP s1BR1j9HO99vMed/oyeEVbscuaP+FF26SnZrLaYntGoNSDY1+SD19YM/HUvp CdwFT0OtEz3RqQ/Oya/L6QmxddrozAc3dJMzd02sip7AOXSctJPpjE6KPQi6 WkNPEJ3oko80s0M0Vx8pL9TSEwSZ7keJ37mFPJhfUDPV0xN8OoU7j1VqoOJl l8KsPSzGOmRLe1oGrmlKGPzaw93Lfglsf4zA17RwyHYPk7WEVu45W8OU40m9 V3X0BI+3Kg12MvchQSO+9tQe/47Xo9gECVcgFd3WvFK9x2+bbd8h8hiC2evo 5iroCdQGIxi9oDdwi/NyMJbREyp5Al68Z/ODg1e6czJL6AnPIvnunwt+Bh0i OpS/iugJKkwlRm3/vYAwhy0thwJ6Ar2f/gW7gADYJZ8ZDf1ET6jbIJ2ipQ8C d7erFLIf6QmvHF6yJzwLhv33fOnMUukJacuhT7h8Q8FjhqhNF09PuHNHxPrb ThhENBB1xkLoCZf53IyfYuGQ9+Ub8cBLeoLwUKWmtmcENOjuC23wpifMXzM7 N78ZBZebZA7UONATGpg/ihbKRcPMK0d2Jit6Qlbd+olnbjFwDfWa9l6nJ9jj oQzca3HQc5namk6ZnqCxObg9Lx0PJ90f+NyVoyeIF5xaLnROAOYKrff6YvSE P+FjC8J/EuHUUNrkL3Z6wvd9Hl0VrilAutphqtpPR0g8fajjE18qRIk+Ki2q pyP4a39qjWtJhZV3sifSiugIepETvx6eSoPrp9+2b4bTEci8VytEhjIAQva9 zVSlI/QoTyOOV5mAaR4hnJCmI5Te8flJc+4jHGf3zDvGTUcIzCkoGg7NAvlu jq7cFVqCoPzxT2HKuXCQpjn6biQtgcm0MNt7OReKTeYiCV60hFUvnY/28Z/g /KUYqqzbtISb4xXXTnrmAY//xgZBmpYgLryh8a/rM2Q+em6aXE9DqM+/ofw5 oABmLlCNdkxSExSrxSqFRgvgV7yR5vcaakJe9+aFeNmv8GDS9qtWBjUhcvMt BE58BS7bfMMoW2qCFdQp3MYKIaDKrb+eSEXYbZCUOrL8HdS5Z+l8xykJZ8cp uX2NELzP49X+bb4L4sWGy5KZCAjNHYMpx3ZBMCynanQTwd/2uvfyvTvwX1L2 2USNMui64SfCr7MD29pGg7ukMhieu3VeXekfDOV9OoWkKuDtrYYLHvx/IeG+ eRVWWAWzYcPPP/9dhzhTxtyIkSoIstVnyyleh3eXC6IW6athS5zWc/LROoTy 7LN7b1QN+qfCzVk318Cn9ev+f5vVYBLMQ3699RtuSTLfKFGshTu4bVzbf6tw kvxjU6GiHmImE727Jkng2XTx2e/Fesjy0/M3uEeC7o+/WHKPNEDizBxT59Yi vLo9cJLXqQHSmo+2NR5cBHL/lgY9zy/wxtbbZ/WIUFotn9zxpBH+/mtO3U8/ C5wp5WKvMxtBoOfky6PJM+Dsc6VQpasRCDPuOzL4DAicv974XawJRg7kvE58 NA1Bee7rCQNNINS7lWf8bxKMYwvV7OVb4LVQ9JqR3DgUuEOXwO0WOJDJWvpi cgxYDGpvjIS2wIPub9I1b8agnK3H5dpsCxgOeLLdWxqFgxc9tOLUW8FrP+eX XMcRKJdCBx/daoXC37UJXT3D4MhD3a/v1gqKV8quMl0chrp/r6xYU1qBIePf YPyJIfAoinnkt9UKK8IrtUzL/SCcPozfYGuDX6LI3tq2Hzoj+GgUBdtA42o0 7/epPhB/8DF4TacNxM6dSlQc74Xx08UpNpltwCUnkmey0g1XUvqaNI3agcFT XK3ErgPIz3Otqx3aIX9A2G2QpgPe2TzdPf+0HXw/9cpkJrTD7OnTUqdy20FB +dwluf42eFnkE069N+/x3H2aYotWkIzVP/34SAf8Se9Va9x7f/Y+Eakhi3eA rT29aOfNFhC+2LkxdL0DUH6VjSNDM9Q1CZkUfeqA8a9/j4LHL7ift70qXt0B rzjfC4uNNADn27agD/0dIPmfpAPxUgPYGHmUhtF2AusD386fx+qBYaKZ18Gk Ew4SeO+VztSA6h/XWV76Lril/SwgcrMCSP1qvu+4umCF6b93Ef4VEPnzxFHW M13QNfk1Y/BQBUz71atvm3ZBsFXBAd7z5eDPfPxT95cucGh4ZnIGEIiTl1U1 6rrAvoLKZNCjFLrba0Yrh7pgYVsn803JTxB8d5/9M0M3XI0N+DR0pQRq+Kpc A8274UY572E87Ds40kazULl0Q5PNxotni0VweNYh3T2gG3J04JLR1SKwzuHo u13QDU82SjdtDxYCnZydImFfD7AXap+NayyA3KOErm8nesARTBmylArA4N9B x9Nne+D+gIRV2498SKsoTTh6swdUla+8ECv8Apc02KnXvvZAgu1T/9jWPAi+ xbi8Wd8D6n9Jnf6386DXlWJkZ6gHUkq41F5tfgLbeFIxA10vcOZZivBZ5ULw UoMzl8EeLmD++cYhC3qoK27y2vbCcbsb/KbFH4GH87umoFcv3PFVmhT97yPk E9JFJNN6weAGR2JIUQb0vnk6fnG9F9hsKFssCGnAm/a49fK+PnA2Vj+ok/UB bIudSjW4+2D3/DnN/CMfYHv8RoyhSh8U/J53CaFIBV4ZxWt2kX0gY5ob1f07 CWwvSxPuf+yDU4Oxo2GPkqDAVETctbQPgvovTxIok0DlOec+7+k+eEIfdPfs kUSw7f5dHibbD+/8H0fVdcRB/jzxU5RaP1RCgQEvYxxs74y/jzPvh+5VgWcP L8ZCsFDbozT/fnDSGeDIqomGfPccqeLufqi6a9p4hyYKtoNST6D5fhhTjg/5 ZR4JKkmxzFU7/dBwkfL7zZ8R0FsfMNckOADi5/9klPuHw/ZR66SxhwOQYzph M6UaBpckzEKmXw3AZPu/caPyNxB8Ue8JMX4AfkrwLFzF3wCvvdL1tZoBwM4Z Rt5WCgWVn9z7GTkGIb7O8Yf9eBCEtB3aZRYdBJXuQMf9jEHQO8W0yA6DUHk2 vfv52UCwZflbx3VnEPi08h9cSwiAkBs9PpKFgzD2koOp7Ys/+C8ownTjIDhO kUPR2nPwepT8L3Z8EH618PNq4M/B8a3DY3qWIXD8l3k/d+QpWPN0yP08OQT0 ttkNcnJPwTxHbsNZfgjWbuabt0T4gWYttcuw1RDc4VVSjbrhCyp6d8+EPx6C m24/op7/8gF8rJl8JXQIMi49ObB13gfE/0Y7fP0xBI8+ByQs6XoBi4TknSD2 Ycisu8b0z+Ex0JVECCgJD8NjjqSjyS8ewc7lvxMb2DAoC9wD3wx3IFnU3LS8 OwwLct4K3LsPYXpJ9MQR72EQbKVzcJN5CMOeb4aaw4fhx5V7Fhfuu0JzpKmx Qtke7tpNttt6ADUnKzjJXcPQ4Eg5fP/yAyjNE+r5QBwGXt2ZT5JxzpDbsKK7 n2MEzswMXpHVc4LgnZcasw4j8EPfUHWU2hH8A0n/xT8dgYzpLMovK/bgxanX oBs9AnyNx2JezNuB45kTqqhqBLyOOG+L/L4L1ugZrWv/CBw8bBr7gPYumF+d rxQhj4BDvFruV24bEMo35vnFPApp/It/xG2sIeXR690PnKOwSRj4QYq6DScI ZcM+J0eBlkl9vajZCjiaBN7Lyo+C2JvgWyHalkA/Qz6SbDUKfJU1RQEJN+Fp zslNz3ujcE/i96ceypuw+8Cg1/DxKDA3jUrIdpjDBkVJJHPoKMgQo41T3pjC g1qS62zMKJztn7Ub8TaBpde8+pUfRqE+ey77s5sxzBx9ceDRj1G4vDLpOOxn BJZj31d0a0aBwyDDJSnCEEbSF9rE20ZhQ2U08leeAfTIXAudnN7z0/JgG9vV g1rN48za7GNgFZRAvrumAwfFxw47c43B07DgwyVaOnCT+QNPuOAY3OmPr8r8 pA1bv8RkehXGQP+G0sKVXU1QySJjW8pjwMQV8bxoWAPevipQ5dIaA2a2EWna uqsgdkXR5KblGOyfbXm89U0N3IUpbvs5jMG3E+rJjCVXoJq+yjHVbQw8asqH K+svg3mNut9s4Bh0u/z9wL2jAqEXTTLvF4zBcaO3WXyVF2GQ70R+WOkYGG+7 WEvSXYRTVBMlBXVjcLdtJHFaSwkqymxb/wyOwYDhr7OO6wRgTRTvPzozBoNH aoI6rxHA1HtlQnF5DJaH6l4dtQVYwx5v+NCOQ5g2wdXiIAZKx3HKFNZxYOtN rfXYPA/B25T/VR8ZB7neldtoVgGEfwRwM4qPgylb7i3bSTkwlou+9MZgHHwn mPKsVM9CGoeZVv7NcaDNqf7V5iIDq+s817tsxyGwvvr0WqY0BH3NsD/iPQ5a Zl+TdUTOQF+4/cPzAeOQtEjrxugqBYIukj5mb8dBkeP0mkuNJKAzRW+T0sfB BRD32h9xYGL3fF/5eRxucEU4qpSfBqNlSJ/6MQ7vu6QZ5SPEYOVTbfGp1nG4 V8cbZ2kuAvyne8Y+/xkH1yjOCCk7QbjPFEvsoJqAGNEop57nAvCTaL62xjQB 7iNzoTKZ/GDwcZpBgXcC2ON3fHoYTkJywEd2U9EJcNAVNX2uzAdLNo5cXmcn gNJv7XbxC154KbQuUXFlArzaFG58OMkDnXTF8pO6E/C1fyMqZ4MbeKefXKQz n4AtPZXHTF+PQ3EqraGa8wR4zjDdHdQ7Bou8h7zaYyZgX0VirDsXB8h5JDmV p05A+MDfp/SnD4Nf5+nbebkT8IWt7HyXyiE4/ELlanDFBIQ66892hR+Am6Pt 8KRxAsTyJSOt6tjho/wNafvuCVAbVDSYo2YHfMHtqNr8BIyWJP/4+IYNXl6i YZH/PQGvuQI0PtewQnt8KKXwzgT8JHD+V+rGAtY6mbO07JMgNlVhN0nBBCHf +r+Vy0/CsELrqnQyPfSz3vmYd3ESNmlrsaoPdMB/d/V9gsYkBMXb5dnk00LR MabnT25Nwshzme67RGqgcn3nbm83CTn72dmYD1HD1WZ+exPXSaC0Nriko0oF oz6YrnzAJAzQNVxwqKIAkf56FeG3k+CysD6eykIBLtIGChzvJ+GFsPruo7Id nGHakXctbxIMJz3q+yW3cSn1xKW83knQ/MCusPBxA/dMFZtIGJ8EAwktmldp 63jNv6Lu4IVJsBy+bDeZvYYb57X9tKeYgp9XRqP5elfxVEbzzyb7puDR1pMD CtsrOMliPlXt4BS8DONRdT21gvsdog4SFp4Cq7iW7en3ZLzRMcSb48wUDKsV 6g7WLeGH6449oFOcAtvMDh2X2yT842MZ40mtKWA+z/y4oYGId4zcFk50m4IY jhd9h2VncG75lWMhvlNwRVAt9KrENG4T5sXqFTgF8uJr/z5JT+HbylHrJglT oP7rjv8Z0wlcJf7kvFrmFNxT1ad46D2Oh258GpLPn4JrEdVxEtljOP/HuiqO 2ikwUqaw8+AZxR2p9Yvo2qagembsZWrzMF5kOpa11j8F0ku2Idr2Q/hV1q2w DtIUBFak2NF09eORNv7+FX/2/H38x90U34ePlrM//kw1DQHN8laHHvbiri6i t0IOT8OKbv7bObVu/PC+pRID3mmIV7sU3SvVhRclfOHkFpsGU+mbmjyCnfh2 g3xr9oVpKH9Wmqoj047H3/wn6nJ1Gq5zawxyaLThsF724rzhNLy7N2+5dL8V 9+O9DA3208BA73Ek/lMTzl/4X+wbt2kQaykSqJVuxKuvtqwb+U3D3euxDy82 NOAM7ga5M1HTMG2peL1PpA7/yHx036fkaRjWULhuulqDq6cM3X6YMw1xHlm5 NL+q8eBmq+O0ldMAt2mP/kmtxCWthB81Nk0DCnfzJX+owNs2iZ1ve6fBPVtF xia/HD8o8CCIjzQNZTHC9ygnEP6tWHZ27s80aHxdrWdVKsUNtbcufqaeAaaT Fxi/fi3BYzx8/8KRGegMtZyc7P6OK+6/ZEjPPwPkxXPzsX5F+FAaQ36z+Aw4 Ha/8dAEKcZ72EFsz5Rm4PGUUdHK2AK+4o1vDrzUDrno9woPt+bjlv8N8C9dn 4Lh64U+PX1/wNOH4vsf3ZoAxye5p7UQefrn01lmlxzOQLqUrIk2Vh8/pCrxh fD4DfdvTDAxGubiYd/bldzEz4KZXdE8FsvDmg/dTb3yYgcmO5O9trZn4vY/S FEJ5M2Cjf9aR2jUD/9JVXPi1egZAgKO1ePkDrmfndeBJ6wwQdzKYg+pS8TUK pXvKAzOgnZs+EJ2bgsuJ1Qt2kGeA6h9v8r0PSXh/eZBfzN8ZeHgdObYWJOIe htrDt+hm4fNUwkUsKQEv9euJIB+bBcVrBPyEQRx+kzN2uVBwFj6sJWYdbovB KXPNNbylZgF9bj6nfjMaV+6bomFRnYV787lZtwsj8WnHzJtdOrPAMN3z5s6T CPwFjUNJnOke/+MBhyHdcLxB4vcDUedZUHlrdblPPAy3ry5sWfGcBT2WNMoO qTc4s4mHaPGLWUhzuyAlpBSKa/tTTVx+PwtrvW2L19le4yvHanC2jFmQyvDV P/soEA//HBDT82UWrjU4BxRsBOA9g2zXrOtmwfk3Vn1O6gWuFni716V9Fpbo ppue7T7HS+SLzZ8OzgLV8OlGrqFneGKkpV0ieRbWzdZ8odIPZ79UtJy7NQtR 1N6rNg2++LNVJvefNHOQvvOE7uiwD26j/e1ZP+ccHA1pstLW8cL7d/b9N8c3 B343OTcqSzzxqzk33myIzYHh4RSsSNEDl9rHGH/wwhwcYxG/KvTQHU8tMuM/ qT4HDEWzxhWn3fDDd758lNKfA9Hd8LDj6674VqVJoebdOWhh3mpp+voAt3fO w8wezEHGXL3duyxnfJiHtsruyRxor8o5M39ywiue5La+fDMHLkH3OwOL7uEy YtSGUbFzIBx7iieQ0RFP6zcc+vBhDtbDFAKb79vjgeco5yu+761fJk0VPrmL 70zp32+r3NMjk7CpxmuD3w//uD7SNLf3bzgl8bfbGtdb1qX+NzYHn5VUyg65 WuE1CRkB/y3Mgfjq9/AmE0tcTvMf69H1OTjUccpRUccC58pK4zq3bx4Ws5pj 1G7fxIOv/02+dHAeTj2Ves1MewOnYNA+pcc9D3PhCyG3Dc3wSavNs05n5uFn rcPBMdwYNzigWeKtOA+3NiPHytqM8LryZKVglXnQeBjsueFmiOdwX9XKMp4H 3+2i+kdbejhPU2LXd6t5MNgsYV3s1MXDPNZM6hznwU3LgoMWXcMf9sbbTPnN A2tAldFSqTY+679KWg2ah8aY+ct+aVq48dnLrlRR83Ceej3XblYDx8OWfU9k zcN66dOo/i9qeB5BhUH86zyolcmaLcldwfmWYoIV0TwkV5d3Wneo4nRXlWOv d8yD7n8xwRcvXMLdt97x2gzNg1C/7mIOuzI+n7GY/nBmHjiwtKGnv5XwFtqo grd/56GTYChNO03AlQqICsm0RPDX5ewXnQW8wIJQnsdKBF2pqleF3Dj+Ds01 NZ0kwh1PxzjfLgV8nyOuN3iaCLUL1C+EdOVxT663/fPniPDrxVMyzfQ5/OYj xRn6q0RI702KmVc5i4tY1XWRDIjgbPa9qXRTGl/V1KvqukWERy+yj3uUndm7 D6NfSuyJ4CXvmL4eLYX789snpbgRIZTQaXLkuSSuzfon5JUfETi7rgh8o5TA j2w99XJ6TYSfu956zzlP49ktsSaQQgQKkUbNhrhT+MNiITXBXCI0oB6DCTph HD7kyzF/39PzovBrYIAgzhAKQr8riRB778F57ZMCePvjX4cGmolgvhHJ0tF+ Eo+7bUhT0UeEkDIxj4ZIPtxae2IlY5II//Ll2ncdePFNgb8tD7eIwMgjH6Sc wo1XsL0oNaNdAEOidvxSIRce9Jc9R5ltAapF430K5o/iBtPxsaLHFuBKMJNK jfwRnKdN5BW74ALozViOOKdw4PM/vrlvSi7Aj8inEbyCh/H8NKU7o+cXYOQs Q7RO2UFcxdNYOVdnAdadBUqSzrLjbHemz0SYLoA838aUKMt+vE/HmdfzzgK4 TAyKsK+w4smKO6yWzgtw+bz5MYV5Ztxe6NXOlScL0Fc1VVxExYTLsh9elHy5 ABIMKS2R8vvw3e2kAY63C/DwXObaVhADHtb+vWgqYwH+YwvseexHi5v+vJTe mL8AorH2v+/y0uACGW0R+aV7+IzOnF83FU4KM3sWU78A+Ryl/ncTKfGiJ3PO vp0LkBBw0a37CQXuZ+N6y2ZkT4+zFpvYwA6mrkuprTW/ABPP7fa+5dvYsPCR 08cpFmH3hFNTHGxiGQc+HKP5bxFi2M7U28ZtYE47kvuIhxZBvyBCtv/AOqYw V/KnjWcRou+8cr6Y+huj6bw8UyS6CJfFjoRwXl3Fmks7uxJkF2HlkHDzBOMK FpV5s8r/wiIcLU84ozJIxkS83ZP0DBeh2f6SveeDRez3XZrQ8xaLQGv6+tvG MyL2Uy/Ui89hEXJvLP5Q/DaH+QOXA6P7ImyJ6fmr085i2iIZJmS/RZjbmHt3 8f40dvSQjFrP60XgSyYyWaxNYhO7SK703SJIeRQ17IZNYA+7eg4F5S7CMj46 8n7/GEYos6R58H0RhsePUUaPjGCMWUsr16v21svHyGeUD2HtER5jhJZFWNif MUpVO4DF+dC3CvUvwvrxks82i32Ytd3bUpapRSiYWjL6eaYXkzQ4kbO2tAj1 tH1KdBHdWKXouVeVtCSwdrl6RCizAzOX0EtZZiXBGw0LSVWHduzPGaeSE0dJ cEBE+2ifchsWJhvcpcFPgu12nrQ88VZMTCGL5CFOApHnkp+tdZuxGqyO/qMc CSKurTbl3m3Ebl6Y4ulVIsHi/IrPpfgGLPzyCV0ZQxK8I/14x2NSi4lfVbS3 uEWCYz94Tu4brcbqtK4/D7UjwbWfOXcDPKswC92H8aWuJDgpw3xBXKIS+2fw tnDBmwQtY5pu8evl2DvjvNajr0iQZVwfGN5Whp0xb5q7HE4CkqPGaskThFnf puf6kEGCZUxqmuLdD4ziLv/Zji8kiD2hOxrV8R2Lsb+gSfmTBPIrpy0TRYsw mfvmdyRqSYD7Ub28Hv8Na37g4WPWRoL2Ik6/4yJfMRu3d9GBAyT4XixEe7Mp H6Py+Prl+xQJDucbVWb7f8HO+S1NHtoiwZpLJYFaNg9rf860c5FmCWbtJNdP 6OZi9gGnOJxZlkDS5f2Mnmk2RvdaRTKRcwms+95IPX/+EUsMtbzSzLcE826+ c58bMzCFcB+LbbElEPews/grkY51Rr33EDm3BBntppoJOR8whoSeHH/1JRj4 TZ/rupyMJSf/rinQXwLsVSVTekESppi2f3T8xhK0cdvmnA5KxLozxTfZbJeg +kLMraeL8dj9HHV2cFkCe95vC+bTcdi+zzaiDl5L0J5dWJ1NEYulFjxXjn25 BAYnzR9oKURjfT/Qw424vX727xQqqSMxFzQYIpC+BMwl12U3Q8IxlsrNDN3P S/+r4UzDqdr7MJypRJQ5Q1spKkVlWDbW36/IrEIhyVDJKSJkLDImZEol6Uhs c05KMtsZS52QZEhI0qAje61tdtjr+PC+H58vz/Vc9/P9hsDOUlEzjVuo8KVk U0QtCwYlzDm7WTeR/hv1T6WtLDBz7Plr34sUNNhuOT3UyQLNrC1Vy4bJKKDL U2jdAAvuN/Q1ZqslouL+Ajg3yYLpRG2uMp84ZDjYcjxtngUeC0sF715cRwSL oJ/mIgBPkzhqrxyD6n3CDINXE9AdJkYLKo1G8VNC1imCBGy9LVkScCgK2fn/ 6VSwgYDmdMNjNdyRaNucsgdTgoAJpZvuTe3hiLloHD0hT0AIXWrTLghFN0J6 U3gUCZDKjzyZb3wFHee4ZsooE6DOk4Bf9AlGiuFTRfv2EPDi89tCh5pAxOaK rDDRIKCJceOb6+YA9CJqQ7OzNgEWs232edl+KIEvqzNAjwCZuzNXbPFLSGlt 3c9cEwKENP2cwyu9EfuVqnvOoZU9tEIVlsZFxIzJ/ifLmgBpJ5Uj9M2eKN5Q 3DPTjgAlP2ttP1UPZMt7fTLjJAG/tM1nTzmeRwrNCxfTTxFw6DFH+lvxH2gy 4gJ5x42ADQYLITwSbugaZTWd4k3AQqm5SJvWGWTJbPFP8ifAWlSgQfT3KSQX qjV34zIBrFqSR6/KBf3ULQ6KCyPg1q05Wu0eZ1S+KLcYE01A9ChPNV3CEYVX J1+JjlvhGyjvGUBzQBZB3MsRSQTcn7Cpopnao7GZH1RIOgGhqtwHJBdt0JPy ExGXMwlgv7TN8A45hkIutXMH5RDQSqo4G288ikzU9kf7FxCQ2zVC/f7bComT ZXyXSgjg7utJ675jiUZKFa97PyXg3Hm3I9zjh1GJVzq/VwUBgvPj03vaLZDB RKjg+QYCZnTW//GbMkHCj4gEt1YCZL9N7R0wNUYD588Iu74hYH/uWfrhp4Yo f0dv8qlOAmjbCYVjGgeR7w8TEecPBKxZm24k1aWP9PJrU09+JMCQb/bml2sH kMBZVfETwwRodCzdkbbaj3JGxaRsfhKwK6gnY9QUR17ZMenWvwmoUDtZXGOj g3RcFqQt2QR0xe/E70XR0Wr5C/cPza386U0Ka3Vh6P3QsJz5EgHtqVOml3BN 9OBPqwcmXCSUQ8cqq2Z15O7QIm+0moSss5Wfp8+oIa6PRQoHNpCwuP0EI7hv D3p7Vy5XT4IERsjk7atZKijdNlkRlyGhz6N1TWTSLuQqwV2gLU+CNf95zS/Z O9HeD347tLaR0KvYjin1bUdLqT+KNHaS0DF6SYJvtxJqszqxS02VhB7u5nX2 D7Yhl05QVaGTsJU373dE9xa0O6msVBmRIO/etFiTuhnNWyju26FPAio0kD3x joZaBNPLFI1JmDymOVeQK4eS3whobLUgwS2T3+ZGlgw6ERf6fLMVCVJxR5+4 MDciJRMCo9mSMDOZtfSUI4mYrT3a0i4keBrce9o4IIbio01qJc+ScNjbU8fR VxTZGtTi4u4kjPWnDe3cKoIUuFWZIhdJ+HX750Jv73o02fAQ1vut9LEsd/Pf EkI1YWKN64JJeFysG/E1UBDF6MXoC1wlYVrRN+Ne5Fq0qc7DkC+WBJl6dREz ig+JSy8ueiWSUEGus3lpzovWBcQ+6U8l4WHncdrlam7E2y3ppp9OAs1sVvu7 IRda2pMnW5JJgopDRKL/EIVPJ6h3STBIKHUQjSk4s4z/M94YE1ZIwqrApDIP mX/xAcYwaf2MhB0T9CsGgnP4+1WeBXVVK7wCImXb9Wbw147/nlRikpDp81z6 7ztTeENNnGhKMwkB36+EJAix8SqpjW0LbSRUvyh6d4tB4E/88kPPdJDgut2h TunRJF7QpaHe3k2CtleeUbf+BJ52w+rBw2ESuv5QFqxb/oEn/fx8VGCMhBEr z9kp6e/4NUOvtX7jJEQ8+/yl1WEMD8lZYg5NklA7z+EcaRjF/ah4P+NpEjR2 Oer8PPgFP1Nd8FmGIoGpKVqwz3QIt77UYja5lg1qGee23H3fjx9Q+fK8UZwN v74Kd/Lz9+B7fyxvviO/kv0etJKdXbh8tkzCOWU2UE0EfWlHBy7soDWnq8mG ciziL/mY1/jqqtaSPB02WJVEvNp4+RW+LH7s9Pr9bDAWSzNJvtuKT3R4t4+a seG+HJ8L0m/Cx3ZRkRaWbHhn325f/roB/xSbSK+wYYMQWX8UH2bib/SLGXEu bGDo/Hq4VaIGb8qi20+dZQO/7GDWyHwlXr30UtjRgw0z51P3t62pwAsrvgbv DWBDxp3h0Pp7Zfh15U2WfTfYsMeVobAutBi/ev0R34GbbGBaKE7EHy3EA8a0 a4vTVrKwRV2RbT7u9sBW6Wo2G+ilA39//JCDHxRNWdpWyYbw8t4osjYDX7XI XeQ7yoblEQat+F087vL141TYDzYk+h0eF6uNxRvePtFLnGBDj0+gZHBHDB6e 5fShYJYNnBHhb1yuUTh1sIYaFJgCVskW31CuEJyT7GNrrD4Fbryv+/ylPPEl xREeuegpOMSQFesYPYzPWdU7tSpOQ6VLb4eY5Qb8k4azrGL0DCSr11aZKkfo etttEFEYnIWkt8eHYnX+0ZG+PXacd9M8pAYsZq7xtNN57PCwYCpoAcL1Ap29 Vz3RtkNhJm31iyBXVHe5pJ5f+6mTp4LO0r+g1/RKZPm0M31ewICn2mYZeAy3 WwdLZGpZd+lim9I50CHWf60mbgQT0BVsrMvkAHaRR5IvbRBrzB0wP8ngwBoP cvv0s35sb1DwqfuPOVDs75Mg5fMeE5avTJBu5UBKu8Yn5vUW7PUFta8SbA6k HfF0/25ZhO3n35kibEGBxtb8aGzIF5v3mZd5bEXBHI2WWQbeWOmnV3mH7CgI CuqOOrDsgdFK3WoTTlPwrLv9uVejK7Zkk/tdIJiCxpQdfB5vbbFKhjxak09B XWFOym0nXcxLiPUq/xEFwHEJ2BinhSkFMq2NnlJwQdFILgnXwG6bOZ67VkeB k8A+yBlXwXzJjFs83RTkOYgbpVltxpQd3GmMfgqie6Z4mwXksC8t2kX6wxSY xq3ut5PaiFmm9zMjxilgg7xO2EsRjJ+70HQLi4J6zaRH5rHC2AuPwA8N0xSI lqfK69EFsIAeI2eXRQroWzaVxEatxv7nb4L/+5v+AytzQuI= "]]}, Annotation[#, "Charting`Private`Tag$28904#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.5660000000000001, 0}, Frame->True, FrameLabel->{{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(Y\\)]\\)(y)\"", TraditionalForm], None}, { FormBox["\"y\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->400, LabelStyle->20, PlotRange->{{-0.545, 0.505}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {None, Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.888494821078829*^9, 3.888494850776528*^9}, { 3.888494931646699*^9, 3.888494942586369*^9}, 3.8884955117319393`*^9, { 3.888495631069244*^9, 3.8884956399892197`*^9}, 3.8884957055915318`*^9, { 3.88854767907248*^9, 3.8885477622286158`*^9}, 3.888631583679879*^9, { 3.888631630909041*^9, 3.888631671823757*^9}, 3.888640767354405*^9, { 3.888641232023878*^9, 3.888641275170343*^9}}, CellLabel-> "Out[116]=",ExpressionUUID->"93eda38d-4cde-47d5-869a-bc45501ad649"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1083, 837}, WindowMargins->{{597, Automatic}, {Automatic, 0}}, Magnification:>1.5 Inherited, FrontEndVersion->"13.3 for Mac OS X ARM (64-bit) (June 3, 2023)", StyleDefinitions->"Default.nb", ExpressionUUID->"3d8fbd21-a7cd-4afe-93e4-036e12c79186" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 220, 4, 146, "Title",ExpressionUUID->"5f847942-f17f-4f02-90a7-b96f9d335881"], Cell[803, 28, 187, 3, 79, "Subtitle",ExpressionUUID->"277c6875-953f-476b-b6cd-ba7bed99f1d2"], Cell[CellGroupData[{ Cell[1015, 35, 175, 3, 81, "Subsection",ExpressionUUID->"c29141bd-415b-41b5-b558-6b8b6ac2e6cc"], Cell[CellGroupData[{ Cell[1215, 42, 1955, 52, 321, "Input",ExpressionUUID->"dba066c2-140a-4b6e-bd54-b7c18f2c1ef6"], Cell[3173, 96, 22328, 394, 411, "Output",ExpressionUUID->"5df599f0-7605-4096-9c32-42504b3639dc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25550, 496, 244, 4, 81, "Subsection",ExpressionUUID->"ead5b434-81fb-4653-8b2f-55fde290c1b3"], Cell[CellGroupData[{ Cell[25819, 504, 2393, 66, 365, "Input",ExpressionUUID->"b4b2f88f-f00d-4017-b458-a7d47350d8a7"], Cell[28215, 572, 27383, 476, 389, "Output",ExpressionUUID->"c967e334-7ca7-47ac-95b3-d9a9ceabb063"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[55647, 1054, 191, 3, 79, "Subtitle",ExpressionUUID->"faed844d-0022-4c8e-94da-4e011f12f0d1"], Cell[55841, 1059, 167, 3, 53, "Text",ExpressionUUID->"8f36625a-afb5-43ad-a541-599f8009e123"], Cell[CellGroupData[{ Cell[56033, 1066, 1379, 35, 140, "Input",ExpressionUUID->"f6b00a9f-626e-4c14-8667-b8d42ecd032d"], Cell[57415, 1103, 5048, 109, 370, "Output",ExpressionUUID->"e5962f0e-4a12-4aff-a387-97f9e460f5b9"] }, Open ]], Cell[62478, 1215, 231, 4, 53, "Text",ExpressionUUID->"41d464db-00ff-46b7-a44b-4ac2e0e791d4"], Cell[CellGroupData[{ Cell[62734, 1223, 1205, 29, 140, "Input",ExpressionUUID->"d79a496a-e18f-43d2-bcd1-d47929dac2be"], Cell[63942, 1254, 15243, 243, 421, "Output",ExpressionUUID->"c386c4c6-f919-461b-9d4d-67c6c20ccb43"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[79234, 1503, 176, 3, 79, "Subtitle",ExpressionUUID->"8b3eee4f-e2af-42bf-b1a7-d8c0cf2d5ed1"], Cell[79413, 1508, 259, 5, 53, "Text",ExpressionUUID->"de07adab-181d-4181-b83c-6a77f8df2a00"], Cell[CellGroupData[{ Cell[79697, 1517, 2714, 71, 298, "Input",ExpressionUUID->"88c0d2c1-cf55-4a6c-ad14-b0c893d83b62"], Cell[82414, 1590, 621, 10, 52, "Output",ExpressionUUID->"069ea1bc-8674-4523-a675-c009f919e1a6"], Cell[83038, 1602, 3892, 103, 468, "Output",ExpressionUUID->"6dfab2fc-15f2-4696-bdf6-2b1688c8e3a8"] }, Open ]], Cell[86945, 1708, 214, 4, 53, "Text",ExpressionUUID->"28ad825a-9703-417f-ba23-43ddfabd7001"], Cell[CellGroupData[{ Cell[87184, 1716, 1816, 53, 220, "Input",ExpressionUUID->"e0d287fa-c5c7-4b8c-a835-b98b23421d7c"], Cell[89003, 1771, 38318, 711, 425, "Output",ExpressionUUID->"93eda38d-4cde-47d5-869a-bc45501ad649"] }, Open ]] }, Open ]] }, Open ]] } ] *)