(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 152431, 3685] NotebookOptionsPosition[ 149683, 3589] NotebookOutlinePosition[ 150020, 3604] CellTagsIndexPosition[ 149977, 3601] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Binomial Distributions", "Section", CellChangeTimes->{{3.467034593261391*^9, 3.467034603083403*^9}, { 3.467036221520865*^9, 3.467036223446874*^9}, {3.467316691847207*^9, 3.46731669202631*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"b", "[", RowBox[{"n_", ",", "p_", ",", "l_"}], "]"}], ":=", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "l"}], "]"}], RowBox[{"p", "^", "l"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], "^", RowBox[{"(", RowBox[{"n", "-", "l"}], ")"}]}]}]}]}]], "Input", CellChangeTimes->{{3.467034215529542*^9, 3.467034362379566*^9}, { 3.467035836804209*^9, 3.467035871142455*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"draw", "[", RowBox[{"n_", ",", "p_"}], "]"}], ":=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"b", "[", RowBox[{"n", ",", "p", ",", "i"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"n", " ", "p"}], " ", "-", " ", RowBox[{"Ceiling", "[", RowBox[{"5", " ", "*", " ", RowBox[{"Sqrt", "[", RowBox[{"60", " ", "*", " ", RowBox[{"1", "/", "3"}], " ", "*", " ", RowBox[{"2", "/", "3"}]}], "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"n", " ", "p"}], " ", "+", " ", RowBox[{"Ceiling", "[", RowBox[{"5", " ", "*", " ", RowBox[{"Sqrt", "[", RowBox[{"60", " ", "*", " ", RowBox[{"1", "/", "3"}], " ", "*", " ", RowBox[{"2", "/", "3"}]}], "]"}]}], "]"}]}]}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.467034665001037*^9, 3.467034676683108*^9}, 3.467034783332219*^9, {3.467035892535137*^9, 3.4670359289907*^9}, { 3.4670361281562*^9, 3.467036150400813*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"draw", "[", RowBox[{"60", ",", RowBox[{"1", "/", "3"}]}], "]"}]], "Input", CellChangeTimes->{{3.467034680567736*^9, 3.467034683903088*^9}, { 3.467035942155941*^9, 3.467035942250527*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt1N9LU2EYB/AVlbsYYbBSycDMlo6xPJtzuunO10mQREsmVKObCtLRTWWF EqFjIs0Jq0kXMead1kWJ0Rr9kAiEiryyRBASCjFvMpo0qpt+LPZdcJ4/oCtf OBw+58t5z/ue9+HZffqc/8xGnU53OXf9vedHRl2+lEx80Bs8fIBpd2Tr/oU2 Wg/HwetKzNVPF+NIcs+YafYubcSbjn7Dzt45uhRp152OrO8bXY6V6Neln+Ht at4V2DK5pl6ZVehK7PV/Uk9MtdFViDsDI+e7TtImfN+0ppSMddPV2JZuPx4u GqDNcC5d2PHqRpy2YIMvkqy5Okpb0TX/LLWauE3Xoiw7vbj4epJWcPhHe9FE /CFtQ++pQ/di8ce0HZnf2fuj+6boOgw9uakPzhfsgP/WzJey8FO6Hj0LUWO2 7xHtxNsH3cvvgym6AYG+d+bA6gTdCEtsqPPi8DjtwovOs8q4rrB+N47+8s69 9I7QTbBeS63EBgfpZgz7IvaB5z20Bx8NSNdEg7TK/BgNvn8g7xA4v415C7+/ i3kL17eZuZfr/5w/35CX+yucf2th/8xb+X8SzDOc59+AlnrhYmGjcKlwuXCF cKVwlbBJuFrYLGwRtgrXCivCNmG7cJ2wQ7he2CncINwo7BJ2CzcJNwt7hFVh aB0SztWbNhfO1Zs2F87VmzYXXu9v6/3tP/W3P7ODa28= "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{40, 1}], LineBox[{41, 2}], LineBox[{42, 3}], LineBox[{43, 4}], LineBox[{44, 5}], LineBox[{45, 6}], LineBox[{46, 7}], LineBox[{47, 8}], LineBox[{48, 9}], LineBox[{49, 10}], LineBox[{50, 11}], LineBox[{51, 12}], LineBox[{52, 13}], LineBox[{53, 14}], LineBox[{54, 15}], LineBox[{55, 16}], LineBox[{56, 17}], LineBox[{57, 18}], LineBox[{58, 19}], LineBox[{59, 20}], LineBox[{60, 21}], LineBox[{61, 22}], LineBox[{62, 23}], LineBox[{63, 24}], LineBox[{64, 25}], LineBox[{65, 26}], LineBox[{66, 27}], LineBox[{67, 28}], LineBox[{68, 29}], LineBox[{69, 30}], LineBox[{70, 31}], LineBox[{71, 32}], LineBox[{72, 33}], LineBox[{73, 34}], LineBox[{74, 35}], LineBox[{75, 36}], LineBox[{76, 37}], LineBox[{77, 38}], LineBox[{78, 39}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointBox[{79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{5., 0}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.467034693480536*^9, 3.467034786857342*^9, {3.467035930911791*^9, 3.467035942826333*^9}, 3.467036155311008*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXWlMFUsWbrmyKBgdl/BDoizznjCTqJlJ/CGQiXGWEAf1x7glbmiYgDru UQNi1PjGNY4aE2ciUSdq8KlRHOPuc3sC8ny/DBrNjPKePOPuU0SiIp7pOl19 6Vtd1XeHC/d0An27+tRZvlN1qrqqujq/YGlR4d8KlhbPLkj90+KChUXFs5ek /nHBYj3J1U3TuhVpmvY0VWO/Qf/J/+FRzP7xCz9+/wVP3aGyshJycnLw79ix YzE8ecuWLbBo0SKYPn06HD16NAOTe4rUyLCurg7y8vJg8+bNUFhYCHv37jXI E2HevHnQu3dvSE5Oxr/ExER4+vQpZhMkaOle8kjE8DyxUFtbC2PGjEGeM2bM gEOHDmkKS0wxkiwqa7RMA7IJHISSkhIoLS0F87hz5w6kpaXB58+f4eXLl9C3 b1949+5dhoJ8z549TBH8rZNBr169oKGhwbTlwYMHsGDBAje5brtuiy5DvyeR oqVhviRZPtRMIc7MNnv2bDh9+rQ7S3x8PLx69UpllLdsCmlDLAjGMDQM78TB 9u3bYcKECW6thwwZApcuXcpwE8YhoQtSUlLg4sWLeJXO086dOwc7d+7EKy8M ZVlkrFPxfwKabR7sd2xsLNy6dctkH8Ozcu6WrHGqrN0l0r5UwbJ8+XIoKipy 88nOzob9+/dn2AibmpqgpqYGiZh+CQkJ8OTJk1/y22fOnIE5c+bAhw8fkITz NdXnbC2g9rRlcZQQi9anp6cjOeeuydgbtaGHB72CtaYsLcuWLbPBcuDAARGW WCyKM2fOhLVr18KkSZPg/PnzHOxYWLNmDd5jB2foobHO0KJxgge9hK9BFg9H jhzBoJGbmwv19fVe2adxvGX5JGKsMcgDk23bttkK/JUrV0RMXNDS0gJlZWV4 9QW3jXnhxYsXmJHVeJfLBZ8+fTKZWou5zhOvUr1k5WIyOdrl5eUwfvx4JONc NRnbDAk9Z6X92rDdOLnamj79aghHUQyyt2/fxvDV2tqK4atfv35tMdllJXdr wxoek61RupPQWax1YAcroX369ME6rWCfxrFRZWOHLuYLzv3UqVNmMIKTJ09C Zmamk/JpHCJJNqkRWWrYvuTkFRUVkJWVxbDQrwAbzE2bNsH8+fOhoKAAjh8/ nuFAOnDgQFSO/Y0cOdL0YXNzM+Zet24dTJ48mcUAd3MscE/3IYsgxczy/Plz mDhxInIcN24c6494k+KURZCS6a3MudA9jY2NePUrSVqDmgX+z/btfixnzcrP d7UN8P3Nn9xNVyBp8W1pKNOfvG/8lxFCnTkU3aH2xkP4Xe6/8E8nCUlyXFsy whIEb0P3muqHHli0tLSaQcBt46dPrcDjgkdaa6snHbsW87JrGR3L70kHkrTP qA9g09Wmn1n+4iIwzcDKC34xDIJ445dOHO+Z5oCGmSbWttobDbYS2ZYWQOEK U8E1HgnZc6LWzUgwyZnW1VU/YqFm3dFQJMe1JWPSjZqHArUfyTXVPypqnDWZ OwGTPn70cCCmvX/fYktrbv7o4Wj92gyz7jQ9ny1N529L08uQOy3eIkMophGX JoQIX/ELCCtr5eHuc1cU3cvMlUhr8bIiuQOKoZDMq1UkuTqQeuSyUDd4WEMV JlIqjDukB1YLOhZcaf811VNTsaTKQzu8efPehmpT0wdZqcR0AWnMr0La2kN6 +fIdXpl9An7tQedjmgwkePasKeA0lQyxp8dsFUolYuKBXwyDyrSS3RFRk5VF HpFN56RLDDWedqSez2rjQi7uSBdb2+LqKs+2WKiWAbpY4BJGF8PPPzd7pIXY xUG500cXow3hcLHtgWCy2nW/JR91kI+EqOrgo99wLqx6Xbn8ACNpvEUu+Shc PhICmlcfKR7FyU3hcVOBxR/oDtMLQt0iL4TKC+ZdVjGqrv8A17/9QZtl8YKi Vig6BuSP0PjDFnasFUNwSQ5hH2LshWBD2Lcj9kJgIezbAfu5BDKB3NVBzuYZ WYC5drWedXbcoBDIIQVZ+dBEOIcYZ8VjEeHsHWfr4On1b414YEUcATdxVjzu EM6+4mwLCXMsUAuF+w+Ert/oCoGA0A0pukL1J3RDgu4SgpFgJBgJRoKRYAw/ jIgigUdlkGDsYjD+npObj/JsDtM6u0ww+gGjcvAumpG0DhaxwWO2YGepdyQV w3OEpK2Q+VAsFWNwBKatnHEwB+Cpj7g9Aoq4d+8evrKq2KoB0/g2DTFsjwZd lHVnB+SvH+PJCapBIu6E/nj6hWqzBXxBfuPGjTq3j0oavu+DZr76bu77QJ7w 9MRKK+TKfSKMN5t7qG7jb76HhBn3PeLRWEJaRFqxl4XL+bb5QrtlOwoNs8Qy vP9MMIswK/bGcPly22Xd5MLcS4DKtTPgio03DESTVLdV+2YQ6D6BrtgawwRd cVu1IQeB7gi60Ue07aZhtHs9xWQUIdnHw0UgO4Ese6oheAgegofgaRd4EB0C hcoMwUPwEDwETwfDY51OYe8/s31rytTw5FvI2TuK167Wu83uuvDY5kgcClC+ PEfXL0O2uQ8fQFLMynVlkIS5CR9AUsy2dUWQvrKggWBMihJjBdeT2WQ2mU1m k9lkNpkdwWZTJ4XMJrPJbDKbzCazI9jsAXjqFcgKXM38AAv7Bhv7mhL7HFdT U5NsPUsUINkfT72DWUarmQvh2Dfh2Ed12FVUw+lliWyScoksW9A5d+5c/Bhd amoq5Ofnw7Vr1xBMXLw5IXogdFz7mqi6DVVVVbBv3z5M4wVSky2jiqLC6Lh+ NVF1G3+vWLECwwAhiQSO61YTletW2fHo0SPYunVrVCBpnYa89M19uPldg/Z3 TyQdF6Mqb5sr23ft2gVDhw6NEiBt048evSDFGlNbstlKs5Z82LBhUYOdMCvp 0HGeyLnwbf/hyuX7bis7o+XCVKNXy5XT3J3J+K3erVTMU3cxKxUTzZ3VSjRy Zic3QnAVmUPmkDlkDplD5lDjGWU+IXPIHDKHzCFzyBzqC0S3T8gcMofMkadZ J5O+ufg/+P7mT9o/Ors5tqF27qABeApsYYu5ixlbrsHmdFetWgWLFy9mc2jS 5RidBSlhuJ4j1R9PA4La/62urg5GjBiB6ewYPXo0nDhxolOjJQz7e6DlZV1K gnJdyo4dO2DWrFkxXMbUqVNhw4YNJhWuTJke4fjs8gTCcXVJknJ1SVlZGU6e stLz+vVrSElJgbNnz3bGAiMA4rhIJEm5SIRtVjRt2jRYv349Lm1gk86K3aE6 GSCOaz0SlGs9Dh8+DHl5eXESAGZwoayKsvB/+dJ9nVHEAhDgfmGsWgwePBje vn2LbNlWVs+ePZOVCAMQW1sYgYViANfUt6UWZkt84cIFKCwshJUrV2IrrWqJ TRyEli4CcZD1uEzthZank2g/h9SMAjVRy0hVrpNgSGqSmqQmqRkxalJQJzVJ TVKT1CQ1o6rtsU6JXDj/X5wS+WfkYaiY6ohAbyumGiJYU2GwJQI13Ucq+a6S Mb7YP+BPSrEvY7BvkKxevRoWLlyII46KYfgOttQYXQ5u3q68vBzGjsXNXfEe e42/urpaOrYaEeYGPPFWWlrKPuFjDijn5ubCwYMH3UKsjRCLCHrMCmhWIQQG BjihxobIhw8fzj7jgjMHycnJUF9f3/bG+1+RQdBzBCGwMIjXqFmVnDJlCowa NQp2796tyd67LOKGBjkJEAJDA/w6z927d2HQoEEYix4/fowTQs3NzbJKadoa 5JRBCGwNcJLr6tWr+AIyO5i9cXFx7MtEMluXtJ9RjrNU8o/OMMOKi4uxwWBn PfTKCmc7GiFrnUl8FIlH6VFmM4kn8SQ++sRTrAu5eNng2L/bW7zteaXdAbA9 SHSABkL3vh01+LrLiwpL5HCwZREn93WYIWhRfj3yh0CaH8/dIZDmx5NvENJW Rixb41G1p08DnpWVlTGQk5OjxeOmneYh39gz5JoaIwU9fBmw5AOQPaGkpASH 7sxDkVc2XBAyjZVjjhidY5h+Mc6EYVZPMSRoV8/pM+c4RlgSOqUUo3h2pRSE YcZMMfZmV09BGGb1FMNl5gCUWC2cd/kLT8hRjI65oKKiArKyspiCmktOGqYI M5jfYjA0NjbiVY8gRMl6wIcNUcFEc0XPNgTthKLHGkLOQnNr60j5yu8/apXM ICTrIPnFQtnx8ZOLokPjJxdFR8VHLl/5R77OgqFZck96I7fh5VWADRsfcgg4 WHO0ZchW82nP+1q3/wNfOgef\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"draw", "[", RowBox[{"200", ",", RowBox[{"1", "/", "3"}]}], "]"}]], "Input", CellChangeTimes->{{3.467034698427047*^9, 3.467034701106444*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJztlN1LU2Ecx4+ZSQS9kWBWF0IKrYvyImhF7RdUOvfidrYT2FLcnMTWixAT lwYOZWJBjLLIsWZsLcszrC6MMojsoqLVopsFI8oIJutIL9QgEqQe22/I8/sD uvKBh8OHD59z9eWpdLSLbUsEQehgd/4rzZ9ULXx7W3QirTdo/rFUB6VOfyb+ 5VCeU3VgC0atNZ129FrI2j/OaD670Guh2Pvs9cqJU+jroaqs+u79pi709eA5 efbHhfJe9DoI96nH9TsH0Ovg4Xp5OhkOoNfDo5hPTFdeQq+HmvaQf21JEL0B 9umSFYnGYfQGuHw18qDidwS9Ed78CrWGXsTQG2G3PXpgtvsm+gYwpdd0BmZG 0TeAP7iuZywX18RldlQm0Ba9W7XMO5Zntwle7tJ7E0238yybwCAI1eVDyIoJ vma3NTduRlaZYWT1sT+uFYXeDBunesp8Lfh/2Qzvs1JJqWYUezNk+g0Hnzwf wV6EQO2t68FNMexFGJ44uiPgiGAvgkp9Y+l2dxh7Eaac1zyeI0PYW2BDZm7w 5+Qg9hb41LWn6nBzAHsLJCHa9r11AHsLLN/ff+bVxV7srfDhacfc9Hg39laY 9LVot+z1YG8F9eOwrXj2OPZW2NrnunPa7MRegiu58/eyig17CRLnHMZcQtQU 9ibgKeyN4xRhtjfeE2Z74z1htjfeE2Z74z1htjfeE2Z74z1htjfeL3Bhbxy7 CcuEFcJsb3xPWCasEGZ743vCMmGFMNsb3xOWCSuE2d74nrBMWCHM9sb3C7z4 vi2+b//zffsLHJnbaA== "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{40, 1}], LineBox[{41, 2}], LineBox[{42, 3}], LineBox[{43, 4}], LineBox[{44, 5}], LineBox[{45, 6}], LineBox[{46, 7}], LineBox[{47, 8}], LineBox[{48, 9}], LineBox[{49, 10}], LineBox[{50, 11}], LineBox[{51, 12}], LineBox[{52, 13}], LineBox[{53, 14}], LineBox[{54, 15}], LineBox[{55, 16}], LineBox[{56, 17}], LineBox[{57, 18}], LineBox[{58, 19}], LineBox[{59, 20}], LineBox[{60, 21}], LineBox[{61, 22}], LineBox[{62, 23}], LineBox[{63, 24}], LineBox[{64, 25}], LineBox[{65, 26}], LineBox[{66, 27}], LineBox[{67, 28}], LineBox[{68, 29}], LineBox[{69, 30}], LineBox[{70, 31}], LineBox[{71, 32}], LineBox[{72, 33}], LineBox[{73, 34}], LineBox[{74, 35}], LineBox[{75, 36}], LineBox[{76, 37}], LineBox[{77, 38}], LineBox[{78, 39}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointBox[{79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{50., 0}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.467034714895457*^9, 3.467034790101903*^9, 3.467035952611996*^9, 3.467036157341947*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"draw", "[", RowBox[{"500", ",", RowBox[{"1", "/", "3"}]}], "]"}]], "Input", CellChangeTimes->{{3.467034702239328*^9, 3.467034712474906*^9}, { 3.467036174931638*^9, 3.467036178921342*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt1P9LE3Ecx/FRP0T9EqFLw6BsjAz7IdwOSX/onSQx0AjpMlfry33ubvpL i+CEcq2w9QVmmuJFttJysohslHQR1k99kwr8YXBoRZL9IJMsqHWICdnZvQ3u /Qf0k4MxHr/seXzuxadQCNVISxwOh2J+53/5+Y8iwNm1ay5okci2v1YFqCrK lrFVzZY1AQo+veUy3nOWdQG6/Y+aHt6+aNkQYDBTuf+j2GLZySDQVf9gR8ll yxyD0BvfvcnqDss8g2bXbGsw0mlZYfB86UaP/8kV7DMonjn0Kn/2KvYZjDa0 Tv0oiWOfgT922H2m9gb2GRyvPX3p94Ee7IvgqBgNjcVvYl+EwP12X+XRW9gX wfW4cF3n+l7si1A+dGd5XQqtitDh6vHO5SSwL0JbwYt6YxdaF8E/PdP1OoA2 RMiMDH4oBbRTgvB7YaJ4Gv+Pk+Du7onNWhTNS5Ae8+z99gWfR5HAnZdMvduC ViX4furrS+8+fH5NAqdv4FlsuBv7EtSFG/ZUDV3HvgQJN8vJS17DvgzVJ+LZ TY14fpwMNec/N5ZW4PnyMvS3pIdX5y6cvwxSflE4+rMd+zJMxfuMSb0N+zJ4 tqf6s79i2JdhpDeSPnZk4f3LEIgmy8dX4j6cQdjqnuvbsAL3wwVh2dOBsoMJ 3Je5t6bc1M7xk9F/e7NZI9aJDWJzbzZzxDyxQqwSa8Q6sUFs7s3eJ+aJFWKV WCPWiQ1ic2/2PjFPrBCrxBqxTmwQm3uz94l5YoVYJdaIdWKD2NybvU+8eL8t 3m//6X77A9+dCDA= "], {{{}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{40, 1}], LineBox[{41, 2}], LineBox[{77, 38}], LineBox[{78, 39}]}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{42, 3}], LineBox[{43, 4}], LineBox[{44, 5}], LineBox[{45, 6}], LineBox[{46, 7}], LineBox[{47, 8}], LineBox[{48, 9}], LineBox[{49, 10}], LineBox[{50, 11}], LineBox[{51, 12}], LineBox[{52, 13}], LineBox[{53, 14}], LineBox[{54, 15}], LineBox[{55, 16}], LineBox[{56, 17}], LineBox[{57, 18}], LineBox[{58, 19}], LineBox[{59, 20}], LineBox[{60, 21}], LineBox[{61, 22}], LineBox[{62, 23}], LineBox[{63, 24}], LineBox[{64, 25}], LineBox[{65, 26}], LineBox[{66, 27}], LineBox[{67, 28}], LineBox[{68, 29}], LineBox[{69, 30}], LineBox[{70, 31}], LineBox[{71, 32}], LineBox[{72, 33}], LineBox[{73, 34}], LineBox[{74, 35}], LineBox[{75, 36}], LineBox[{76, 37}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointBox[{79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{150., 0.01}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.467034723776176*^9, 3.467034797918016*^9, 3.467035985321477*^9, 3.467036179470445*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"draw", "[", RowBox[{"1000", ",", RowBox[{"3", "/", "4"}]}], "]"}]], "Input", CellChangeTimes->{{3.467036015899467*^9, 3.467036020782834*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt1NFLU3EUB/BbYViUGFmtBaIgY0SNSUkDWTsv1RoJUyF8SFJnaxg1iyJJ KKG8Z7WUTV2uZbQFqSuoqUkrCgb1MEvRDGFa4kqyjVBGJK1Z1PL3K9j5A3ry wuXyebn3/r7fw8mtMpccWS4Iwpnk/ee5eIVE8Lgy5CXtombRYRGGxLnXU58s zBERym017tPFVuaYCJN9Wzyjw03McRHUC3n6nwobs4DQvL7PK623M6cjNE55 lOsGWpgzEWoSd+8ZN7QxSxAmNtnyqw85mHMQzt56UyBzXWOWI0Sv6ubvv2xn VibfN2QYS0SdzCqED74Wxcav15kBIbAnPL3jo4tZi7Dre4fkxeMbzHqE3rEu 3ZUTHcxlCNOJ21m9wk3mCoQ13wrD749zmxCazlkndQ+5axH2Tii8/aPcdQjP e4wya5C7AWHGLN057uC2IKyd864qLeS2ITzrUuUXPeHfdyJkn+rZ3Z/F7UbQ XtpmTSvi/9uNEDI8qiww8vP4EGQrFrZ2Gvh5/QjKo4c1Gft5HgGE8vnZzVVS nlcQ4V3Q4Xv6luc7glBtPuDfZ+f5hxCcaYm2PE0r7x/hzvhA58Eo7y+SzMNU an/QyvuNIaz8Nfij/mIz7x9h9Sv1hfOzfD4ECwyqh3Plxy7z/i3wZfuM6uQy 1PydN3924+dif/O/eUtxhDhGHCdOzluK04kziSXEOcRyYiWxihiItcR64jLi CmITcS1xHXEDsYXYRuwkdhN3E/uI/cQB4iDxCHGIOEwcIY4Rx4mT85baP/HS flvab/9pv/0GnLBr5Q== "], {{{}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{40, 1}], LineBox[{41, 2}], LineBox[{42, 3}], LineBox[{43, 4}], LineBox[{75, 36}], LineBox[{76, 37}], LineBox[{77, 38}], LineBox[{78, 39}]}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{44, 5}], LineBox[{45, 6}], LineBox[{46, 7}], LineBox[{47, 8}], LineBox[{48, 9}], LineBox[{49, 10}], LineBox[{50, 11}], LineBox[{51, 12}], LineBox[{52, 13}], LineBox[{53, 14}], LineBox[{54, 15}], LineBox[{55, 16}], LineBox[{56, 17}], LineBox[{57, 18}], LineBox[{58, 19}], LineBox[{59, 20}], LineBox[{60, 21}], LineBox[{61, 22}], LineBox[{62, 23}], LineBox[{63, 24}], LineBox[{64, 25}], LineBox[{65, 26}], LineBox[{66, 27}], LineBox[{67, 28}], LineBox[{68, 29}], LineBox[{69, 30}], LineBox[{70, 31}], LineBox[{71, 32}], LineBox[{72, 33}], LineBox[{73, 34}], LineBox[{74, 35}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointBox[{79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{735., 0.015}, ImageSize->{682., Automatic}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.467036022447447*^9, 3.467036198208671*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Standardized Binomial Distribution", "Section", CellChangeTimes->{{3.4670351362672*^9, 3.467035138793565*^9}, { 3.467036230800298*^9, 3.467036234061374*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "[", RowBox[{"n_", ",", "p_", ",", "l_"}], "]"}], ":=", RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", "l"}], "]"}], RowBox[{"p", "^", "l"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], "^", RowBox[{"(", RowBox[{"n", "-", "l"}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bs", "[", RowBox[{"n_", ",", "p_", ",", "l_"}], "]"}], ":=", RowBox[{"b", "[", RowBox[{"n", ",", "p", ",", RowBox[{"Round", "[", RowBox[{ RowBox[{"n", " ", "p"}], " ", "+", " ", RowBox[{"l", " ", RowBox[{"Sqrt", "[", RowBox[{"n", " ", "p", " ", RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}]}], "]"}]}]}], "]"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.467034215529542*^9, 3.467034362379566*^9}, { 3.467035836804209*^9, 3.467035871142455*^9}, {3.467036298227981*^9, 3.467036342660298*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"draw", "[", RowBox[{"n_", ",", "p_"}], "]"}], ":=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "/", "4"}], ",", RowBox[{"bs", "[", RowBox[{"n", ",", "p", ",", RowBox[{"i", "/", "4"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.467034665001037*^9, 3.467034676683108*^9}, 3.467034783332219*^9, {3.467035892535137*^9, 3.4670359289907*^9}, { 3.4670361281562*^9, 3.467036150400813*^9}, {3.467036347714357*^9, 3.467036466633267*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"draw", "[", RowBox[{"100", ",", RowBox[{"1", "/", "5"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwB2IQDQEsB7x7Qy0jerLtIXymA7z14jwLdGqgfIYDJ2W7 E7bIdUH5f/abSM4V+y05Dcr/sX+HjvIzTu2FUP6X/VernQ36Zq+A8j/st77A k+MTvgHKf7F/avT0xbP0t0D5D/ZvuKCcIOm6Hcq/sL9y/4fqVOmdMPsZhL6K qe/NhvEv2AtOad5+w3QHTL+9UY3X5Z+7t8LMt/+8YNJaj9xNMPvtW82lHf37 18LcZ7/W7voB9fJlMPfb/5h9aF+58QKY/+yb3W8rTjSG+Y/BIdbtZuX7Dz2w 8HG4EL7Qe9m3RiifxWFK0FP7PY6lMP6BapF17g+rpsDDE5XPgMb/sx+V/wON /wWN/wGN/wKN/wCNfwGNz8CAJm+Pph+N/wKN/wGN/wWN/wON/weNz+CAFj5o fBZ0/mj6pFL6BAAKNy1q "], {{{}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{22, 1}], LineBox[{23, 2}], LineBox[{24, 3}], LineBox[{40, 19}], LineBox[{41, 20}], LineBox[{42, 21}]}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{25, 4}], LineBox[{26, 5}], LineBox[{27, 6}], LineBox[{28, 7}], LineBox[{29, 8}], LineBox[{30, 9}], LineBox[{31, 10}], LineBox[{32, 11}], LineBox[{33, 12}], LineBox[{34, 13}], LineBox[{35, 14}], LineBox[{36, 15}], LineBox[{37, 16}], LineBox[{38, 17}], LineBox[{39, 18}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointBox[{43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.02}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.467036526408664*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"draw", "[", RowBox[{"100", ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"Sqrt", "[", RowBox[{"2", "\[Pi]"}], "]"}]}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "/", "2"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.467036356532422*^9, 3.467036360288992*^9}, { 3.467036487304522*^9, 3.467036517464231*^9}}], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwB2IQDQEsB7x7Qy0jerLtIXymA7z14jwLdGqgfIYDJ2W7 E7bIdUH5f/abSM4V+y05Dcr/sX+HjvIzTu2FUP6X/VernQ36Zq+A8j/st77A k+MTvgHKf7F/avT0xbP0t0D5D/ZvuKCcIOm6Hcq/sL9y/4fqVOmdMPsZhL6K qe/NhvEv2AtOad5+w3QHTL+9UY3X5Z+7t8LMt/+8YNJaj9xNMPvtW82lHf37 18LcZ7/W7voB9fJlMPfb/5h9aF+58QKY/+yb3W8rTjSG+Y/BIdbtZuX7Dz2w 8HG4EL7Qe9m3RiifxWFK0FP7PY6lMP6BapF17g+rpsDDE5XPgMb/sx+V/wON /wWN/wGN/wKN/wCNfwGNz8CAJm+Pph+N/wKN/wGN/wWN/wON/weNz+CAFj5o fBZ0/mj6pFL6BAAKNy1q "], {{{}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{22, 1}], LineBox[{23, 2}], LineBox[{24, 3}], LineBox[{40, 19}], LineBox[{41, 20}], LineBox[{42, 21}]}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{25, 4}], LineBox[{26, 5}], LineBox[{27, 6}], LineBox[{28, 7}], LineBox[{29, 8}], LineBox[{30, 9}], LineBox[{31, 10}], LineBox[{32, 11}], LineBox[{33, 12}], LineBox[{34, 13}], LineBox[{35, 14}], LineBox[{36, 15}], LineBox[{37, 16}], LineBox[{38, 17}], LineBox[{39, 18}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointBox[{43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63}]}, {}}}], {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw12Gk4VWvYB3D2RjJ2KhXqlKlBSISUzr2QEEVkiIpMqRxzZjoiQ5TsbZbM s8iQcOjZxsyzvfdCIZShcpAMKe96r+t9P63r92GNz33/1309IlZOBrYkFhYW flYWlv89+n++tLS1RabJKV7J+G8pGj757lkZ2STT7tkWPoplo8DlHWOrb9bJ tDe8CataeyhwSNn5l9MymdaiGFgwokyBhscUzvFPZFq7v/350kAKcMow/qR1 kWmCO/V5JXZTIcbdUuefZDLt+CcPj7/Px0Ahq1sWixKZpiC7OOszGAenDQs4 EuXJtDLdSsGR+ThoyZqwPylLpmFRL3j1yPEwrqkvbXWMTLt8s8zZVS4e9jyV rmwUJtMcZQ845EXHw0OhmXchLMTzj8n7jxgmgKn8jXmedhLtP5kCy1efE4Hd VlNO8AaJxmsUGp+vlwL9N0+azF8j0ciZnBrOd1PghamwX50xiTYrP//24qMU UNRdaL6lT6KxJ4v+dfbfFLCTj79WoE6i9ZWaenAffQGtrJ//OStJomnTseMu 7KkQ+SKk58YqK43kxS3bfjsNdjGbHTKiWWmcTs607CsZYNCYZH2snYV2wYB0 Kz0mB3wXzjk8m9xCdOtwW+9tRVDlmXS3RO83Is18kClefwWXKUaHfiduogQP 49sBBRWgmVJ3WevLBuri8+RubK+CnHfedDfzdcSnzHJAYG8d3AyOEejJW0W6 oi+d6vbXQ4AluZh71w+E337zi/ymEVikDyL1R9/Rl9I9R3ydWmA4IjG0cGgJ xRUMTx1+3Ab7uezzv6stoqba62+2wjrhnoIk+8j+BeSQTXd6NdgD1kof8hob 59HkM4enW4/6QNLrzJZj1gyqtH1xVOxnP6S/N2zyVp1GBau7hbR9BuFzoICK 5r6P6PBfda6PG4aAy79kgcr1ES10LJZ2vRsCGS/tzPHNCWQ2uKrE1zUEHo7+ XD4TE0j/lDhfKGMIOMynmUUFE8hAfDLJ5MsQiJ96fX/nuQnUJCG25iJAB6tP V0ve3xpHfia17D62dKiJPaoxY/weSUU+57u0SQdO88/WrCrvUeJQn3E1CwOM D+U8FBJ5j1r782+LsjNgqUCMpjs/iqQVoobneBlwjPbn2dIHo0g1NLb16kEG JMztPumTN4I6B/ZMP1ZlwH1gPcCzgaPU3A5rlyAGNLDRzkqM4ejf0ROZrqEM 2NEeYPZXE468vM/YO0cwoOjqZrzzUxxVRar73qIyYOrO6s4hUeJ894AngpkM MIj5yvlCh4kUfzgUjNUzQHYW/34ihY6UXieZVG4ywP0/6WN7g+kouk0ydhsL E6pWA2/8vktHFmEf44zITFDlkGzpPE1Hh4wWxz9vZ4KBmE/8ncEhxM6zYDe9 hwn3bwidyeQeQicTetbVZJlQ02f2YI/PABpU8PYLsGTCb2Zx+S/LARS1LSLI 1poJauOkmSnNATTURhHVtmNCx7cC/XKBASQGZmIcDkwY5f4pol/aj2pjl7lN PJmwpZHcFD7Th3ZfvW5h+IQJ52tGtv8y7kVONZyRLyuZUFyQrfzubC8yZz6U N6tmwr5kpzvRh3rR/MKDIlItE+irHBSdwR5UEWvJq1nPBAlf4x0pG91on1+9 dUoHExoCV3gwzS6kpqcg92CMCXFW4Q6DO7pQxx3VSzMTTLijfqDTfrgTySmB +KUpJuxg14iI/rsTmXuusnDNMsEiLGb7JLUD/QySNNBfYsLmU3mOkPE21Dl2 XZWPDYdep3e2QgVtaMReOVSOA4dMffPmYrc2pNKcc9+AE4eLO4OCGRxtiIuv QPMRDw6Jsf2kY9KtyE6fJ71yNw6Kz122OrxbEM/vIEVNcRyc80vW/tjViExi xHv2YTjI8jkGqY03oItBX8/FquKw6CrF5/ayAeUE8rfyquPgqpIvNqjZgHrj Uo4va+BwvyfjcpxfPRJ5trU/SgeH5bnj2gqdCLEtVu7lNsbBvSLvZpwdQiW/ ZL5qmeDww1/CfZUFofqZroGHpjis7TiYWq3wFiVS5PvnzHDYVNy5ci61Fun4 zgdFWODAEbSWdsG1GvXrBqrz2+MQqnu/MpenGh3UUZzjvYMD556lDs7cKqRH qUjkvIsDV/78j/aRNyhQT/GPpXs48Pd80NXTqETNSwyjWCccniWYW70ae41W 8gwV3Z1x2GnF9PzD5zWaLRPer+eCw+6VvoyB4grkX7GysuaKwz7h5jWTfeVo onGTsd+D+J5TqnzVZWXI4cY6Y4SwUPFbMaFLZYg6pDIc54nDAdWqy6OBpUhQ XXmKxRsH9W5j7Xp6CbrjwmDL9sXhwi199yDuEsRyrov3vB8OWt+1UzWwYsT9 2G/PGGFdoXMrbflF6GPdlMT2AByM7cTS+/3ykUeDvoL0Pzg8dnELo7zOQ5PB 8yifcJ1fo5PBt1zUI7fHWTQQB3Gq9V/9FjnIZ1oV43yIg+mLcglKQjZqoAxb 3CcckU/mNejLQt/85LI+EF5CmSN9aplIIdYqKTsIh8Mdyw3Rvhmo+864DjkY h2t09YIrFenocau9yA3CtC+TXn0SaSipfFWJ/REOMwu3aaJ1L1DWTKmXIWE9 Ds6oDJkU5LX+fjSF8J/yWlIZfyQhZU0O/iMhODzSntkQCUpA5XJNo7aEv1iE taV/j0PnTDy70ggbehxNELGLRRXf2CYYhGsiW+3SGVQk+t1wL3coDiKZ9goi 2hTUI3bJ+QzhsGpOtvSaZ+j6z+F5W8IfUq9kq5o+Ra3Vs+FPCL/sjFZTPRuB Qi1uXywl7LveN4b9GYYiitWl+whrH97pj7E+QkaSznJfCe81NBDCpgLR2t7x a+xhOHRsiTs9eOqPZALCMgUJ21/Lzg+46omuSljySxJmK5eY8hdyQb7xFimK hDFB3XMbNFtkfyjwEhD+LyHRZjHRACV20Q6eJ+xHimm+cFoZdB3379YgLJNk /W63ogV4U6mSaoQ/CJZ+4+Z3gNGoI9ZnCRvKM2tDVN1h3nOkTpZwJW7yMNTX B4ZFKs6IEualzYs1mf0DFIkqnJ8wUAtDmjyDoHx0IWmdeB8Xu3uzTTEh8MjK NmCMcIbycd3m0nDYoIoH1xMe5Jkvbu6OhOf8Z4tSCXOMF/zRMh8FoQpVP7wJ P7+mcMY6OBosjry01iesoB57b3InFbBWqWVRwt1SK8+t02OgpFYne5FYLxaW 11vWb+OBd73BJYhw4uzuk1O6iRCpfynyAmG5AXcrm5EkoAqNtLETtsk51Wyz lgLPXLyKvYh6+RUV82MqJBXC9rQaSRHuUNmglj1Og9EbyYdGifqzOWzWLCeY Ad06liKyhGWFuT64jmcAgz/NZJCo31/8NT/KcjOB+Wqr1J1w3LrgUXnFbBjf 1j2QT9T7u078sbxhHhzwGeqdJvrH3mv4nfnxfLC6OhhvSZhTfIQtmFwAa785 6fQHRJ76jgYMlhfCnViV6tdEP3YeG3O9v7sEortdxM4R/eowNFaS8qUEjqqV F1GJ/g7BnH9YWb0C7+WakmkfHI58cZaPOFMKIcJUcT8iD+zVXV+OzJVBataR QVciP04nLnUsGJeDo5aOYvZ94v4LrnPkxnKw6LYQGHDHIT/J7YhUcgUk3f9T V8QNh7lF93Q/nUpw4unKCyXyzCHNM/ZAUTXkH3vxxO82Dio/VstP7qsBFcXn a3Z2OPDoevVrBNdAxMGiGV1boh9Wvfgdr/8L6ztumHFb4/Dtsk/4W546SHjF GWtwE4eqgLdvSxRpsLbouMp1FYe0/N9d1Q40SFY4uvXSgOi3wb/eN2bQIIzF LU73CpEvkugng68e6LIlHn6XcVgfQqdZPtfDlbCPO3O1cDgjXV+mH98IzrX0 u0dViPoZpMe9bWsE/itG39POEOvn+8VHarMR3oxrFQooE/nTtled81YTPGO/ l7WsgMMuW8cBJNkMcmsszMATRF48F/4u87YF5o20v34WwSGVx0OBd7oNzs12 Oo+TcUgqjxD03dsOvy+uHh9nJdbfLP3XjHY7SOnXyIxuMSEyr7O5qbgdKMmI r+0nE7zOixn7eXWAgLigoccyMY/49XrMc3dB3oHNpoMfmUDyEBi1EeyF9jJv q9fE/9/MsqC/6lQvVFm938Fdw4Syi9DGo98Lx1eFQ6+/YYLVwTuVFSG9EFM3 27tUSswDrbXP2L73Qq/hA9LXHCYECdtoZHX3gWajtqTgMyaw1ZcVTwYNQHrK NktzCyZcL9TMVkodgGf6SRtS15lQETuaHFEzAEod7FEbpkywucsRLr84APZ6 J4rCDZjQvMvMOujmIAhcqfjsqcGEEDvWfWLKQ+Dvc2w2VpIJ23j0A62+0cFY Sil3apEBpkfMaIrbGVD4/qPQxW8MKFCz2eISZwCvm+t04RwDLnt7+ZdfY0Dv rYgQm0kGxH1K82ZrZoD/mqhUwSADDtcvuuQkE3OYrFxOWCUDNDyoVnNaw3As 0KQ81ZMBQeN0ddfM99BdO8efs0CHV8kh+gFLE1BuFuy5rW8InDJsdkwZT8PR ynfyUi6DcPNu0oHQwBn4/qX51A7uAQi/4qEs/3werj+5ENKa0Adsu2M/Pdj4 BouxcQ6zKz3A6Hj0XzD/IkT2+J/m+9IJRr5WikmNSyDv+UDpUFEbOHDPi3ab fYdufVW37bUtcLCwJY5jbgUozhaD60Sd+VapG/Inr0JzDdMtSK4enHMcKhVP rINdSaurQnwd8JCUrGSmNyDSYd5J530VaPx9NVaSugmOf6Y5a9RUwL7qA04a 4r9hMpQ9nnKlFCiuYdGyjC0wOhk+3CJXBAYhetIplSyYgD1T13B7LkiaBxtl +bNivKYRXNxvMuCaS+VOtkBW7MQhenRPdgaEhc70WAezYsJWnPlpMRkwXa57 USyCFWsPUXGxd82ANB4ByEhgxaTtlXueyGSAwNvso2nlrJhZotiCZH46sIi8 +5k8y4rp+StPhOamAf3T9gyqEQlzC89LEItKgZar4c+rTUlYgjPDMtg9BSob OOPHzElYl5tO/Nq1FIh7sS3yuBUJ2+XfcUxYIgWMjNk9Gh1JmE1l6Lhm7XMY bGa5uBxKwlJljjkqfUuG/qzVRYMaEhY6JFQvbZkE3VbTqjsPkrEkPc9GB594 mGDLXYsVJWNrtbGavbfi4XuOfYngYTLWXVErqK0dD4Lz8/tFpMmYm2SEu8++ eLBxW1o9cZaMzdPUkoffxMFG0NbLSyZkzDbX4+6jjVg4nC0oFB5FxlZeZF0+ HhUDypojvTxUMhacxF520DsGdGefhz6LI2NaPC/bjljHgIv0oZX4FDK2rW3v pKtSDNS+PtybU0hcf5hhvjxOBYMW+ZCmd2RMwSrXlKJEBVv7FRWtDjJ2ckfX rlpRKnhxvVnu6CZjZ2Kcq9d4qZBy+cytgSHCw3spBVMUmKFjKh8nydjWz26h BQoFNrxIy7afydgn96qO4gAK8Ao35c/OkTHL7lPkwLsUkLPQ3Lu4SMamLxwe vK5GAQ3W7d3uK2SsHDVctZOhgGlme/DaGhlzxTHJh0IUuKsRedZvk4wVZp/V esVBgf/b38D+f3/jfwCEDnwR "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.02}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.467036360752868*^9, 3.467036380066631*^9}, { 3.467036413480594*^9, 3.467036426728226*^9}, {3.467036461243674*^9, 3.467036469214991*^9}, {3.467036518040773*^9, 3.467036528162855*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"draw", "[", RowBox[{"n_", ",", "p_"}], "]"}], ":=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "/", "4"}], ",", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"n", " ", "p", " ", RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}]}], "]"}], " ", RowBox[{"bs", "[", RowBox[{"n", ",", "p", ",", RowBox[{"i", "/", "4"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.467036557818704*^9, 3.467036565774839*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"draw", "[", RowBox[{"100", ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"Sqrt", "[", RowBox[{"2", "\[Pi]"}], "]"}]}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "/", "2"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwB2IQDQEsB7x7Qy0jerrtIXymA7z14jwLdOZA+QwHTsp2 J2yRWwXl/9lvIjlX7LfkNij/x/4dOsrPOLUPQvlf9l+tdjbom30Cyv+w3/oC T45P+AUo/8X+qdHTF8/SvwLlP9i/4YJygqTrdSj/wv7K/R+qU6VvwuxnEPoq pr43G8a/YC84pXn7DdMbMP32RjVel3/uvgoz3/7zgklrPXIvwey3bzWXdvTv Pwtzn/1au+sH1MuPwdxv/2P2oX3lxgdg/rNvdr+tONEY5j8Gh1i3m5XvP6yB hY/DhfCF3su+LYTyWRymBD213+M4FcY/MGsmCKyEhycqnwGN/2c/Kv8HGv8L Gv8DGv8FGv8BGv8CGp+BAU3eHk0/Gv8FGv8DGv8LGv8HGv8PGp/BAS180Pgs 6PzR9Eml9AkAQ6JDew== "], {{{}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{22, 1}], LineBox[{23, 2}], LineBox[{41, 20}], LineBox[{42, 21}]}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{24, 3}], LineBox[{25, 4}], LineBox[{26, 5}], LineBox[{27, 6}], LineBox[{28, 7}], LineBox[{29, 8}], LineBox[{30, 9}], LineBox[{31, 10}], LineBox[{32, 11}], LineBox[{33, 12}], LineBox[{34, 13}], LineBox[{35, 14}], LineBox[{36, 15}], LineBox[{37, 16}], LineBox[{38, 17}], LineBox[{39, 18}], LineBox[{40, 19}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointBox[{43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63}]}, {}}}], {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw12Gk4VWvYB3D2RjJ2KhXqlKlBSISUzr2QEEVkiIpMqRxzZjoiQ5TsbZbM s8iQcOjZxsyzvfdCIZShcpAMKe96r+t9P63r92GNz33/1309IlZOBrYkFhYW flYWlv89+n++tLS1RabJKV7J+G8pGj757lkZ2STT7tkWPoplo8DlHWOrb9bJ tDe8CataeyhwSNn5l9MymdaiGFgwokyBhscUzvFPZFq7v/350kAKcMow/qR1 kWmCO/V5JXZTIcbdUuefZDLt+CcPj7/Px0Ahq1sWixKZpiC7OOszGAenDQs4 EuXJtDLdSsGR+ThoyZqwPylLpmFRL3j1yPEwrqkvbXWMTLt8s8zZVS4e9jyV rmwUJtMcZQ845EXHw0OhmXchLMTzj8n7jxgmgKn8jXmedhLtP5kCy1efE4Hd VlNO8AaJxmsUGp+vlwL9N0+azF8j0ciZnBrOd1PghamwX50xiTYrP//24qMU UNRdaL6lT6KxJ4v+dfbfFLCTj79WoE6i9ZWaenAffQGtrJ//OStJomnTseMu 7KkQ+SKk58YqK43kxS3bfjsNdjGbHTKiWWmcTs607CsZYNCYZH2snYV2wYB0 Kz0mB3wXzjk8m9xCdOtwW+9tRVDlmXS3RO83Is18kClefwWXKUaHfiduogQP 49sBBRWgmVJ3WevLBuri8+RubK+CnHfedDfzdcSnzHJAYG8d3AyOEejJW0W6 oi+d6vbXQ4AluZh71w+E337zi/ymEVikDyL1R9/Rl9I9R3ydWmA4IjG0cGgJ xRUMTx1+3Ab7uezzv6stoqba62+2wjrhnoIk+8j+BeSQTXd6NdgD1kof8hob 59HkM4enW4/6QNLrzJZj1gyqtH1xVOxnP6S/N2zyVp1GBau7hbR9BuFzoICK 5r6P6PBfda6PG4aAy79kgcr1ES10LJZ2vRsCGS/tzPHNCWQ2uKrE1zUEHo7+ XD4TE0j/lDhfKGMIOMynmUUFE8hAfDLJ5MsQiJ96fX/nuQnUJCG25iJAB6tP V0ve3xpHfia17D62dKiJPaoxY/weSUU+57u0SQdO88/WrCrvUeJQn3E1CwOM D+U8FBJ5j1r782+LsjNgqUCMpjs/iqQVoobneBlwjPbn2dIHo0g1NLb16kEG JMztPumTN4I6B/ZMP1ZlwH1gPcCzgaPU3A5rlyAGNLDRzkqM4ejf0ROZrqEM 2NEeYPZXE468vM/YO0cwoOjqZrzzUxxVRar73qIyYOrO6s4hUeJ894AngpkM MIj5yvlCh4kUfzgUjNUzQHYW/34ihY6UXieZVG4ywP0/6WN7g+kouk0ydhsL E6pWA2/8vktHFmEf44zITFDlkGzpPE1Hh4wWxz9vZ4KBmE/8ncEhxM6zYDe9 hwn3bwidyeQeQicTetbVZJlQ02f2YI/PABpU8PYLsGTCb2Zx+S/LARS1LSLI 1poJauOkmSnNATTURhHVtmNCx7cC/XKBASQGZmIcDkwY5f4pol/aj2pjl7lN PJmwpZHcFD7Th3ZfvW5h+IQJ52tGtv8y7kVONZyRLyuZUFyQrfzubC8yZz6U N6tmwr5kpzvRh3rR/MKDIlItE+irHBSdwR5UEWvJq1nPBAlf4x0pG91on1+9 dUoHExoCV3gwzS6kpqcg92CMCXFW4Q6DO7pQxx3VSzMTTLijfqDTfrgTySmB +KUpJuxg14iI/rsTmXuusnDNMsEiLGb7JLUD/QySNNBfYsLmU3mOkPE21Dl2 XZWPDYdep3e2QgVtaMReOVSOA4dMffPmYrc2pNKcc9+AE4eLO4OCGRxtiIuv QPMRDw6Jsf2kY9KtyE6fJ71yNw6Kz122OrxbEM/vIEVNcRyc80vW/tjViExi xHv2YTjI8jkGqY03oItBX8/FquKw6CrF5/ayAeUE8rfyquPgqpIvNqjZgHrj Uo4va+BwvyfjcpxfPRJ5trU/SgeH5bnj2gqdCLEtVu7lNsbBvSLvZpwdQiW/ ZL5qmeDww1/CfZUFofqZroGHpjis7TiYWq3wFiVS5PvnzHDYVNy5ci61Fun4 zgdFWODAEbSWdsG1GvXrBqrz2+MQqnu/MpenGh3UUZzjvYMD556lDs7cKqRH qUjkvIsDV/78j/aRNyhQT/GPpXs48Pd80NXTqETNSwyjWCccniWYW70ae41W 8gwV3Z1x2GnF9PzD5zWaLRPer+eCw+6VvoyB4grkX7GysuaKwz7h5jWTfeVo onGTsd+D+J5TqnzVZWXI4cY6Y4SwUPFbMaFLZYg6pDIc54nDAdWqy6OBpUhQ XXmKxRsH9W5j7Xp6CbrjwmDL9sXhwi199yDuEsRyrov3vB8OWt+1UzWwYsT9 2G/PGGFdoXMrbflF6GPdlMT2AByM7cTS+/3ykUeDvoL0Pzg8dnELo7zOQ5PB 8yifcJ1fo5PBt1zUI7fHWTQQB3Gq9V/9FjnIZ1oV43yIg+mLcglKQjZqoAxb 3CcckU/mNejLQt/85LI+EF5CmSN9aplIIdYqKTsIh8Mdyw3Rvhmo+864DjkY h2t09YIrFenocau9yA3CtC+TXn0SaSipfFWJ/REOMwu3aaJ1L1DWTKmXIWE9 Ds6oDJkU5LX+fjSF8J/yWlIZfyQhZU0O/iMhODzSntkQCUpA5XJNo7aEv1iE taV/j0PnTDy70ggbehxNELGLRRXf2CYYhGsiW+3SGVQk+t1wL3coDiKZ9goi 2hTUI3bJ+QzhsGpOtvSaZ+j6z+F5W8IfUq9kq5o+Ra3Vs+FPCL/sjFZTPRuB Qi1uXywl7LveN4b9GYYiitWl+whrH97pj7E+QkaSznJfCe81NBDCpgLR2t7x a+xhOHRsiTs9eOqPZALCMgUJ21/Lzg+46omuSljySxJmK5eY8hdyQb7xFimK hDFB3XMbNFtkfyjwEhD+LyHRZjHRACV20Q6eJ+xHimm+cFoZdB3379YgLJNk /W63ogV4U6mSaoQ/CJZ+4+Z3gNGoI9ZnCRvKM2tDVN1h3nOkTpZwJW7yMNTX B4ZFKs6IEualzYs1mf0DFIkqnJ8wUAtDmjyDoHx0IWmdeB8Xu3uzTTEh8MjK NmCMcIbycd3m0nDYoIoH1xMe5Jkvbu6OhOf8Z4tSCXOMF/zRMh8FoQpVP7wJ P7+mcMY6OBosjry01iesoB57b3InFbBWqWVRwt1SK8+t02OgpFYne5FYLxaW 11vWb+OBd73BJYhw4uzuk1O6iRCpfynyAmG5AXcrm5EkoAqNtLETtsk51Wyz lgLPXLyKvYh6+RUV82MqJBXC9rQaSRHuUNmglj1Og9EbyYdGifqzOWzWLCeY Ad06liKyhGWFuT64jmcAgz/NZJCo31/8NT/KcjOB+Wqr1J1w3LrgUXnFbBjf 1j2QT9T7u078sbxhHhzwGeqdJvrH3mv4nfnxfLC6OhhvSZhTfIQtmFwAa785 6fQHRJ76jgYMlhfCnViV6tdEP3YeG3O9v7sEortdxM4R/eowNFaS8qUEjqqV F1GJ/g7BnH9YWb0C7+WakmkfHI58cZaPOFMKIcJUcT8iD+zVXV+OzJVBataR QVciP04nLnUsGJeDo5aOYvZ94v4LrnPkxnKw6LYQGHDHIT/J7YhUcgUk3f9T V8QNh7lF93Q/nUpw4unKCyXyzCHNM/ZAUTXkH3vxxO82Dio/VstP7qsBFcXn a3Z2OPDoevVrBNdAxMGiGV1boh9Wvfgdr/8L6ztumHFb4/Dtsk/4W546SHjF GWtwE4eqgLdvSxRpsLbouMp1FYe0/N9d1Q40SFY4uvXSgOi3wb/eN2bQIIzF LU73CpEvkugng68e6LIlHn6XcVgfQqdZPtfDlbCPO3O1cDgjXV+mH98IzrX0 u0dViPoZpMe9bWsE/itG39POEOvn+8VHarMR3oxrFQooE/nTtled81YTPGO/ l7WsgMMuW8cBJNkMcmsszMATRF48F/4u87YF5o20v34WwSGVx0OBd7oNzs12 Oo+TcUgqjxD03dsOvy+uHh9nJdbfLP3XjHY7SOnXyIxuMSEyr7O5qbgdKMmI r+0nE7zOixn7eXWAgLigoccyMY/49XrMc3dB3oHNpoMfmUDyEBi1EeyF9jJv q9fE/9/MsqC/6lQvVFm938Fdw4Syi9DGo98Lx1eFQ6+/YYLVwTuVFSG9EFM3 27tUSswDrbXP2L73Qq/hA9LXHCYECdtoZHX3gWajtqTgMyaw1ZcVTwYNQHrK NktzCyZcL9TMVkodgGf6SRtS15lQETuaHFEzAEod7FEbpkywucsRLr84APZ6 J4rCDZjQvMvMOujmIAhcqfjsqcGEEDvWfWLKQ+Dvc2w2VpIJ23j0A62+0cFY Sil3apEBpkfMaIrbGVD4/qPQxW8MKFCz2eISZwCvm+t04RwDLnt7+ZdfY0Dv rYgQm0kGxH1K82ZrZoD/mqhUwSADDtcvuuQkE3OYrFxOWCUDNDyoVnNaw3As 0KQ81ZMBQeN0ddfM99BdO8efs0CHV8kh+gFLE1BuFuy5rW8InDJsdkwZT8PR ynfyUi6DcPNu0oHQwBn4/qX51A7uAQi/4qEs/3werj+5ENKa0Adsu2M/Pdj4 BouxcQ6zKz3A6Hj0XzD/IkT2+J/m+9IJRr5WikmNSyDv+UDpUFEbOHDPi3ab fYdufVW37bUtcLCwJY5jbgUozhaD60Sd+VapG/Inr0JzDdMtSK4enHMcKhVP rINdSaurQnwd8JCUrGSmNyDSYd5J530VaPx9NVaSugmOf6Y5a9RUwL7qA04a 4r9hMpQ9nnKlFCiuYdGyjC0wOhk+3CJXBAYhetIplSyYgD1T13B7LkiaBxtl +bNivKYRXNxvMuCaS+VOtkBW7MQhenRPdgaEhc70WAezYsJWnPlpMRkwXa57 USyCFWsPUXGxd82ANB4ByEhgxaTtlXueyGSAwNvso2nlrJhZotiCZH46sIi8 +5k8y4rp+StPhOamAf3T9gyqEQlzC89LEItKgZar4c+rTUlYgjPDMtg9BSob OOPHzElYl5tO/Nq1FIh7sS3yuBUJ2+XfcUxYIgWMjNk9Gh1JmE1l6Lhm7XMY bGa5uBxKwlJljjkqfUuG/qzVRYMaEhY6JFQvbZkE3VbTqjsPkrEkPc9GB594 mGDLXYsVJWNrtbGavbfi4XuOfYngYTLWXVErqK0dD4Lz8/tFpMmYm2SEu8++ eLBxW1o9cZaMzdPUkoffxMFG0NbLSyZkzDbX4+6jjVg4nC0oFB5FxlZeZF0+ HhUDypojvTxUMhacxF520DsGdGefhz6LI2NaPC/bjljHgIv0oZX4FDK2rW3v pKtSDNS+PtybU0hcf5hhvjxOBYMW+ZCmd2RMwSrXlKJEBVv7FRWtDjJ2ckfX rlpRKnhxvVnu6CZjZ2Kcq9d4qZBy+cytgSHCw3spBVMUmKFjKh8nydjWz26h BQoFNrxIy7afydgn96qO4gAK8Ao35c/OkTHL7lPkwLsUkLPQ3Lu4SMamLxwe vK5GAQ3W7d3uK2SsHDVctZOhgGlme/DaGhlzxTHJh0IUuKsRedZvk4wVZp/V esVBgf/b38D+f3/jfwCEDnwR "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.05}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.467036568383339*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Continuous Random Variables", "Section", CellChangeTimes->{{3.467316702461346*^9, 3.46731670753138*^9}}], Cell[CellGroupData[{ Cell["Uniformly Densitied", "Subsection", CellChangeTimes->{{3.467318600643991*^9, 3.467318604448021*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Simulate", "[", RowBox[{"n_", ",", "m_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "sn"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sn", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "m", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "m"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "sn", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], " ", "+=", " ", RowBox[{"RandomReal", "[", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sn", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.467317019152248*^9, 3.467317205034944*^9}, { 3.467318491684717*^9, 3.467318560766846*^9}, {3.467318618702964*^9, 3.467318623833851*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"Simulate", "[", RowBox[{"500", ",", "500"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.467318625753062*^9, 3.467318634795957*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{230, 0}, {232, 1}]}, ImageSizeCache->{{14.750000000000227`, 32.00000000000023}, { 92.37209266259468, 95.70474844436504}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{232, 0}, {234, 1}]}, ImageSizeCache->{{31.500000000000227`, 48.75000000000023}, { 92.37209266259468, 95.70474844436504}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{234, 0}, {236, 3}]}, ImageSizeCache->{{48.25000000000023, 65.50000000000023}, { 86.70678109905398, 95.70474844436504}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{236, 0}, {238, 13}]}, ImageSizeCache->{{65.00000000000023, 82.25000000000023}, { 58.380223281350474`, 95.70474844436504}}], StatusArea[#, 13]& , TagBoxNote->"13"], StyleBox["13", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[13, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{238, 0}, {240, 20}]}, ImageSizeCache->{{81.75000000000023, 99.00000000000023}, { 38.55163280895802, 95.70474844436504}}], StatusArea[#, 20]& , TagBoxNote->"20"], StyleBox["20", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[20, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{240, 0}, {242, 18}]}, ImageSizeCache->{{98.50000000000023, 115.75000000000023`}, { 44.216944372498716`, 95.70474844436504}}], StatusArea[#, 18]& , TagBoxNote->"18"], StyleBox["18", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[18, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{242, 0}, {244, 28}]}, ImageSizeCache->{{115.25000000000023`, 132.50000000000023`}, { 15.890386554795214`, 95.70474844436504}}], StatusArea[#, 28]& , TagBoxNote->"28"], StyleBox["28", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[28, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{244, 0}, {246, 52}]}, ImageSizeCache->{{132.00000000000023`, 149.25000000000023`}, {-52.093352207693215`, 95.70474844436504}}], StatusArea[#, 52]& , TagBoxNote->"52"], StyleBox["52", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[52, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{246, 0}, {248, 52}]}, ImageSizeCache->{{148.75000000000023`, 166.00000000000023`}, {-52.093352207693215`, 95.70474844436504}}], StatusArea[#, 52]& , TagBoxNote->"52"], StyleBox["52", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[52, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{248, 0}, {250, 66}]}, ImageSizeCache->{{165.50000000000023`, 182.75000000000023`}, {-91.75053315247814, 95.70474844436504}}], StatusArea[#, 66]& , TagBoxNote->"66"], StyleBox["66", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[66, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{250, 0}, {252, 67}]}, ImageSizeCache->{{182.25000000000023`, 199.50000000000023`}, {-94.58318893424848, 95.70474844436504}}], StatusArea[#, 67]& , TagBoxNote->"67"], StyleBox["67", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[67, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{252, 0}, {254, 55}]}, ImageSizeCache->{{199.00000000000023`, 216.25000000000023`}, {-60.59131955300427, 95.70474844436504}}], StatusArea[#, 55]& , TagBoxNote->"55"], StyleBox["55", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[55, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{254, 0}, {256, 53}]}, ImageSizeCache->{{215.75000000000023`, 233.00000000000023`}, {-54.92600798946356, 95.70474844436504}}], StatusArea[#, 53]& , TagBoxNote->"53"], StyleBox["53", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[53, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{256, 0}, {258, 25}]}, ImageSizeCache->{{232.50000000000023`, 249.75000000000023`}, { 24.388353900106267`, 95.70474844436504}}], StatusArea[#, 25]& , TagBoxNote->"25"], StyleBox["25", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[25, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{258, 0}, {260, 21}]}, ImageSizeCache->{{249.25000000000023`, 266.5000000000002}, { 35.71897702718766, 95.70474844436504}}], StatusArea[#, 21]& , TagBoxNote->"21"], StyleBox["21", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[21, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{260, 0}, {262, 11}]}, ImageSizeCache->{{266.0000000000002, 283.2500000000002}, { 64.04553484489118, 95.70474844436504}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{262, 0}, {264, 9}]}, ImageSizeCache->{{282.7500000000002, 300.0000000000002}, { 69.71084640843188, 95.70474844436504}}], StatusArea[#, 9]& , TagBoxNote->"9"], StyleBox["9", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[9, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{264, 0}, {266, 2}]}, ImageSizeCache->{{299.5000000000002, 316.7500000000002}, { 89.53943688082434, 95.70474844436504}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{266, 0}, {268, 2}]}, ImageSizeCache->{{316.2500000000002, 333.5000000000002}, { 89.53943688082434, 95.70474844436504}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{268, 0}, {270, 1}]}, ImageSizeCache->{{333.0000000000002, 350.2500000000002}, { 92.37209266259468, 95.70474844436504}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{230, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, PlotRange->{{230, 270}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.467318640513368*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"Simulate", "[", RowBox[{"1000", ",", "1000"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.467318643803243*^9, 3.467318652291102*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{474, 0}, {476, 2}]}, ImageSizeCache->{{20.75, 33.}, {88.45357216879339, 92.91929026327188}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{476, 0}, {478, 4}]}, ImageSizeCache->{{32.5, 44.75}, {84.4878540743149, 92.91929026327188}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{478, 0}, {480, 6}]}, ImageSizeCache->{{44.25, 56.5}, {80.5221359798364, 92.91929026327188}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[6, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{480, 0}, {482, 11}]}, ImageSizeCache->{{56., 68.25}, {70.60784074364018, 92.91929026327188}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{482, 0}, {484, 21}]}, ImageSizeCache->{{67.75, 80.}, {50.77925027124773, 92.91929026327188}}], StatusArea[#, 21]& , TagBoxNote->"21"], StyleBox["21", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[21, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{484, 0}, {486, 25}]}, ImageSizeCache->{{79.5, 91.75}, {42.84781408229075, 92.91929026327188}}], StatusArea[#, 25]& , TagBoxNote->"25"], StyleBox["25", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[25, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{486, 0}, {488, 43}]}, ImageSizeCache->{{91.25, 103.5}, {7.156351231984345, 92.91929026327188}}], StatusArea[#, 43]& , TagBoxNote->"43"], StyleBox["43", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[43, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{488, 0}, {490, 34}]}, ImageSizeCache->{{103., 115.25}, {25.00208265713755, 92.91929026327188}}], StatusArea[#, 34]& , TagBoxNote->"34"], StyleBox["34", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[34, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{490, 0}, {492, 51}]}, ImageSizeCache->{{114.75, 127.}, {-8.706521145929614, 92.91929026327188}}], StatusArea[#, 51]& , TagBoxNote->"51"], StyleBox["51", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[51, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{492, 0}, {494, 61}]}, ImageSizeCache->{{126.5, 138.75}, {-28.535111618322063`, 92.91929026327188}}], StatusArea[#, 61]& , TagBoxNote->"61"], StyleBox["61", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[61, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{494, 0}, {496, 64}]}, ImageSizeCache->{{138.25, 150.5}, {-34.4836887600398, 92.91929026327188}}], StatusArea[#, 64]& , TagBoxNote->"64"], StyleBox["64", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[64, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{496, 0}, {498, 87}]}, ImageSizeCache->{{150., 162.25}, {-80.08944684654244, 92.91929026327188}}], StatusArea[#, 87]& , TagBoxNote->"87"], StyleBox["87", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[87, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{498, 0}, {500, 79}]}, ImageSizeCache->{{161.75, 174.}, {-64.22657446862848, 92.91929026327188}}], StatusArea[#, 79]& , TagBoxNote->"79"], StyleBox["79", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[79, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{500, 0}, {502, 94}]}, ImageSizeCache->{{173.5, 185.75}, {-93.96946017721714, 92.91929026327188}}], StatusArea[#, 94]& , TagBoxNote->"94"], StyleBox["94", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[94, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{502, 0}, {504, 84}]}, ImageSizeCache->{{185.25, 197.5}, {-74.1408697048247, 92.91929026327188}}], StatusArea[#, 84]& , TagBoxNote->"84"], StyleBox["84", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[84, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{504, 0}, {506, 75}]}, ImageSizeCache->{{197., 209.25}, {-56.295138279671505`, 92.91929026327188}}], StatusArea[#, 75]& , TagBoxNote->"75"], StyleBox["75", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[75, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{506, 0}, {508, 53}]}, ImageSizeCache->{{208.75, 221.}, {-12.672239240408103`, 92.91929026327188}}], StatusArea[#, 53]& , TagBoxNote->"53"], StyleBox["53", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[53, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{508, 0}, {510, 59}]}, ImageSizeCache->{{220.5, 232.75}, {-24.569393523843573`, 92.91929026327188}}], StatusArea[#, 59]& , TagBoxNote->"59"], StyleBox["59", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[59, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{510, 0}, {512, 50}]}, ImageSizeCache->{{232.25, 244.5}, {-6.723662098690369, 92.91929026327188}}], StatusArea[#, 50]& , TagBoxNote->"50"], StyleBox["50", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[50, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{512, 0}, {514, 30}]}, ImageSizeCache->{{244., 256.25}, {32.93351884609453, 92.91929026327188}}], StatusArea[#, 30]& , TagBoxNote->"30"], StyleBox["30", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[30, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{514, 0}, {516, 19}]}, ImageSizeCache->{{255.75, 268.}, {54.74496836572622, 92.91929026327188}}], StatusArea[#, 19]& , TagBoxNote->"19"], StyleBox["19", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[19, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{516, 0}, {518, 22}]}, ImageSizeCache->{{267.5, 279.75}, {48.79639122400849, 92.91929026327188}}], StatusArea[#, 22]& , TagBoxNote->"22"], StyleBox["22", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[22, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{518, 0}, {520, 8}]}, ImageSizeCache->{{279.25, 291.5}, {76.55641788535792, 92.91929026327188}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[8, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{520, 0}, {522, 6}]}, ImageSizeCache->{{291., 303.25}, {80.5221359798364, 92.91929026327188}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[6, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{522, 0}, {524, 8}]}, ImageSizeCache->{{302.75, 315.}, {76.55641788535792, 92.91929026327188}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[8, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{524, 0}, {526, 3}]}, ImageSizeCache->{{314.5, 326.75}, {86.47071312155414, 92.91929026327188}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3, { GrayLevel[0]}], "Tooltip"]& ], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{528, 0}, {530, 1}]}, ImageSizeCache->{{338., 350.25}, {90.43643121603263, 92.91929026327188}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{474, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, PlotRange->{{474, 530}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.467318665047208*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exponentially Densitied", "Subsection", CellChangeTimes->{{3.467318588322203*^9, 3.467318595887545*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"RanExp", "[", "]"}], ":=", RowBox[{ RowBox[{"-", RowBox[{"Log", "[", RowBox[{"1", "-", RowBox[{"RandomReal", "[", "]"}]}], "]"}]}], "/", RowBox[{"(", RowBox[{"1", "/", "5"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.467316717116954*^9, 3.467316734185279*^9}, { 3.467316832559458*^9, 3.467316858284212*^9}, {3.467318507439092*^9, 3.467318515587551*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Simulate", "[", RowBox[{"n_", ",", "m_", ",", "\[Lambda]_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "sn"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"sn", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "m", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "m"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "sn", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], " ", "+=", " ", RowBox[{"RanExp", "[", "\[Lambda]", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "sn", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.467317019152248*^9, 3.467317205034944*^9}, { 3.467318491684717*^9, 3.467318560766846*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simulate", "[", RowBox[{"300", ",", "300", ",", RowBox[{"1", "/", "20"}]}], "]"}], "//", "Histogram"}]], "Input", CellChangeTimes->{{3.467318457453409*^9, 3.467318471873343*^9}, { 3.46731853808192*^9, 3.467318565867367*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5200, 0}, {5400, 13}]}, ImageSizeCache->{{14.749999999999995`, 52.138888888888886`}, { 62.360772887689805`, 93.8120193538185}}], StatusArea[#, 13]& , TagBoxNote->"13"], StyleBox["13", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[13, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5400, 0}, {5600, 27}]}, ImageSizeCache->{{51.638888888888886`, 89.02777777777777}, { 29.028661308781977`, 93.8120193538185}}], StatusArea[#, 27]& , TagBoxNote->"27"], StyleBox["27", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[27, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5600, 0}, {5800, 41}]}, ImageSizeCache->{{88.52777777777777, 125.91666666666666`}, {-4.30345027012585, 93.8120193538185}}], StatusArea[#, 41]& , TagBoxNote->"41"], StyleBox["41", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[41, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5800, 0}, {6000, 79}]}, ImageSizeCache->{{125.41666666666666`, 162.80555555555554`}, {-94.77632455573283, 93.8120193538185}}], StatusArea[#, 79]& , TagBoxNote->"79"], StyleBox["79", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[79, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6000, 0}, {6200, 61}]}, ImageSizeCache->{{162.30555555555554`, 199.69444444444443`}, {-51.92075252570845, 93.8120193538185}}], StatusArea[#, 61]& , TagBoxNote->"61"], StyleBox["61", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[61, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6200, 0}, {6400, 43}]}, ImageSizeCache->{{199.19444444444443`, 236.58333333333331`}, {-9.065180495684118, 93.8120193538185}}], StatusArea[#, 43]& , TagBoxNote->"43"], StyleBox["43", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[43, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6400, 0}, {6600, 23}]}, ImageSizeCache->{{236.08333333333331`, 273.47222222222223`}, { 38.5521217598985, 93.8120193538185}}], StatusArea[#, 23]& , TagBoxNote->"23"], StyleBox["23", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[23, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6600, 0}, {6800, 11}]}, ImageSizeCache->{{272.97222222222223`, 310.3611111111111}, { 67.12250311324806, 93.8120193538185}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6800, 0}, {7000, 2}]}, ImageSizeCache->{{309.8611111111111, 347.25}, {88.55028912826023, 93.8120193538185}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{5200, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, PlotRange->{{5200, 7000}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.467318468463859*^9, 3.467318473956216*^9}, 3.467318545009932*^9, 3.467318586345506*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simulate", "[", RowBox[{"1000", ",", "1000", ",", RowBox[{"1", "/", "5"}]}], "]"}], "//", "Histogram"}]], "Input", CellChangeTimes->{{3.467317210967148*^9, 3.467317241124022*^9}, { 3.467318532671504*^9, 3.467318563217463*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4500, 0}, {4550, 2}]}, ImageSizeCache->{{20.74999999999991, 35.641481810115266`}, { 89.68329879658513, 93.18368479858935}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4550, 0}, {4600, 7}]}, ImageSizeCache->{{35.141481810115266`, 50.03296362023062}, { 82.18233379157458, 93.18368479858935}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[7, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4600, 0}, {4650, 11}]}, ImageSizeCache->{{49.53296362023062, 64.42444543034597}, { 76.18156178756612, 93.18368479858935}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4650, 0}, {4700, 9}]}, ImageSizeCache->{{63.92444543034597, 78.81592724046132}, { 79.18194778957036, 93.18368479858935}}], StatusArea[#, 9]& , TagBoxNote->"9"], StyleBox["9", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[9, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4700, 0}, {4750, 33}]}, ImageSizeCache->{{78.31592724046132, 93.20740905057667}, { 43.17731576551969, 93.18368479858935}}], StatusArea[#, 33]& , TagBoxNote->"33"], StyleBox["33", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[33, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4750, 0}, {4800, 48}]}, ImageSizeCache->{{92.70740905057667, 107.59889086069202`}, { 20.674420750488025`, 93.18368479858935}}], StatusArea[#, 48]& , TagBoxNote->"48"], StyleBox["48", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[48, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4800, 0}, {4850, 62}]}, ImageSizeCache->{{107.09889086069202`, 121.99037267080739`}, {-0.3282812635415411, 93.18368479858935}}], StatusArea[#, 62]& , TagBoxNote->"62"], StyleBox["62", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[62, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4850, 0}, {4900, 97}]}, ImageSizeCache->{{121.49037267080739`, 136.38185448092273`}, {-52.83503629861542, 93.18368479858935}}], StatusArea[#, 97]& , TagBoxNote->"97"], StyleBox["97", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[97, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4900, 0}, {4950, 116}]}, ImageSizeCache->{{135.88185448092273`, 150.77333629103808`}, {-81.33870331765553, 93.18368479858935}}], StatusArea[#, 116]& , TagBoxNote->"116"], StyleBox["116", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[116, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4950, 0}, {5000, 108}]}, ImageSizeCache->{{150.27333629103808`, 165.16481810115343`}, {-69.33715930963865, 93.18368479858935}}], StatusArea[#, 108]& , TagBoxNote->"108"], StyleBox["108", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[108, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5000, 0}, {5050, 125}]}, ImageSizeCache->{{164.66481810115343`, 179.5562999112688}, {-94.84044032667452, 93.18368479858935}}], StatusArea[#, 125]& , TagBoxNote->"125"], StyleBox["125", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[125, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5050, 0}, {5100, 122}]}, ImageSizeCache->{{179.0562999112688, 193.94778172138416`}, {-90.3398613236682, 93.18368479858935}}], StatusArea[#, 122]& , TagBoxNote->"122"], StyleBox["122", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[122, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5100, 0}, {5150, 96}]}, ImageSizeCache->{{193.44778172138416`, 208.3392635314995}, {-51.334843297613304`, 93.18368479858935}}], StatusArea[#, 96]& , TagBoxNote->"96"], StyleBox["96", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[96, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5150, 0}, {5200, 56}]}, ImageSizeCache->{{207.8392635314995, 222.73074534161486`}, { 8.672876742471132, 93.18368479858935}}], StatusArea[#, 56]& , TagBoxNote->"56"], StyleBox["56", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[56, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5200, 0}, {5250, 41}]}, ImageSizeCache->{{222.23074534161486`, 237.12222715173021`}, { 31.1757717575028, 93.18368479858935}}], StatusArea[#, 41]& , TagBoxNote->"41"], StyleBox["41", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[41, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5250, 0}, {5300, 30}]}, ImageSizeCache->{{236.62222715173021`, 251.51370896184557`}, { 47.677894768526016`, 93.18368479858935}}], StatusArea[#, 30]& , TagBoxNote->"30"], StyleBox["30", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[30, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5300, 0}, {5350, 18}]}, ImageSizeCache->{{251.01370896184557`, 265.9051907719609}, { 65.68021078055135, 93.18368479858935}}], StatusArea[#, 18]& , TagBoxNote->"18"], StyleBox["18", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[18, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5350, 0}, {5400, 9}]}, ImageSizeCache->{{265.4051907719609, 280.29667258207627`}, { 79.18194778957036, 93.18368479858935}}], StatusArea[#, 9]& , TagBoxNote->"9"], StyleBox["9", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[9, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5400, 0}, {5450, 3}]}, ImageSizeCache->{{279.79667258207627`, 294.6881543921916}, { 88.18310579558302, 93.18368479858935}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5450, 0}, {5500, 4}]}, ImageSizeCache->{{294.1881543921916, 309.079636202307}, { 86.68291279458091, 93.18368479858935}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[4, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5500, 0}, {5550, 2}]}, ImageSizeCache->{{308.579636202307, 323.4711180124223}, { 89.68329879658513, 93.18368479858935}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5600, 0}, {5650, 1}]}, ImageSizeCache->{{337.3625998225377, 352.254081632653}, { 91.18349179758724, 93.18368479858935}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{4500, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, PlotRange->{{4500, 5650}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.467317223916247*^9, 3.467317262505879*^9}, 3.467318535821421*^9, 3.467318584848965*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"n_", ",", "x_", ",", "\[Lambda]_"}], "]"}], ":=", RowBox[{"\[Lambda]", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Lambda]"}], " ", "x"}], "]"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Lambda]", " ", "x"}], ")"}], "^", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "!"}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.467555360680836*^9, 3.467555434994813*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"nf", "[", RowBox[{"n_", ",", "x_", ",", "\[Lambda]_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "n", "]"}], "/", "\[Lambda]"}], " ", RowBox[{"f", "[", RowBox[{"n", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "n", "]"}], " ", "x"}], " ", "+", " ", "n"}], ")"}], " ", "/", " ", "\[Lambda]"}], ",", "\[Lambda]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.467555431204285*^9, 3.467555470075129*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"nf", "[", RowBox[{"10", ",", "x", ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.467555768438876*^9, 3.467555789843067*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt2Xk0Ve/XAPDLnTJGZkVRVFIkU8rZlwaRJCGJyCxTAyVFkjJLyuxbROax gUw9T0ISZeZeY4pMIRpE6Xfftd6/zvqss84z7LP3ftZZR8bOy8SRk0QijXCQ SP93tS+Omf33j459L3EUnHl8mBBelpTf84eOTT3Uvw+5GRF1Bx9bXVqk4z/5 nIakF8aET6zSvdLvdKx9dcxq4ykTQn6w4u30HB3nGb9VqZExJXq27idt+UrH OzfKD5jxmxOhPu/V7SfoWGXTQdGUjRbEJO+nDOZHOt5z/2h8TocVkWLhwRIe pGP5VBWuRG8bwjDzl4Axi44nR1NJ++TOEH9mb+hFdNMxY0e/49UCO6JwD29A QzsdHwxGDz4ccyBOh8Q/4/hAx28NaSd3iTkR/B0bpva+o+Myn7ORz1aciXNn 1Syevqbj44NSXG173QmZMhQ9g9jz018cF0n0JNo5DOq3VtNx/dzXAsc754ib RzqXHV7QsXvTmQtNE+cJ1aTTKmnP6HjL8qB9stVFYvTzuEtfCR1LlMnwHZrw JuKVLz4ULaTjGkZ39Ym7l4hfb0J4ox7T8a2bghI8Wn5EjtCafY3p7PjlOa4W Ja4RFjapV8gP6DjZ7ukfE4cAgitfvoRIpuP2MN8rpicCicqfJWNX4ul4TJHs FX7nBuGmu0fqeSx7PbmSG7r6goh10fXH56LpWCtB77e+djARIMfCTiHs/Y1k BezfH0IonXf4lX6TjvmTbvepTIcSw9Uz2weu03GtV1qMVFE4oWtKTjnuy57f w2/A8FY0sfAwqi3am46L0nQanhrFEJlTYquaztFx39Roa9zZuwT1pqIPw5W9 f7PZoxxd94iy92X5Vx3pOOQt3/VdcnGEk6TOSNkZOpZ8OWUUGRpPNJaaHd1u Scfxt58+t41MIq78HbrlYk7Hh2jHdzftSCEU9M9WZ5jQsV9Aa7n6eCoRORyw VfIwHU8dZnntMEkjtBW5bM306Hjl2C1mjmk6MXP5XnzMPvZ4n5SUhh0eEcar c8j0vXSc2fvqw1JJJsFxSkVLV5OOBXmPJsrPPCaeZFWf81elY3Pj1XfT9mQT QkTbwIIiHdutvDAw5s4j6sJOCSttpWPdb+6klch8wrtr1OCsHB1nhQtKTcoW Et3uS+XDUnTM/eeDDOtACRHyInhmrSQd63v9PrBeuZTQpKyWOyFKx+LrnlJK 5J4QySkbY1v46din5qRXiOozIk85Kb2cm47lGuUsRJ2fE5X1/KXpNDoOjByP 2pVbRrBmf3/wWaHh26qDrdWnK4jJYK8hmyUa7hA4wQztqCSWJEZn9H/S8KnV 91wyLKsJyf2tfNIzNFx+P/he3SNEKDAPSK2apOHPxmvtCp9gQsuzSnF+lIa/ DfBcKn7wirBMzDrcMEDDrTv7nSMSXxNnt687VcKk4WabZAG97DrCr/bu2eQu GgaR817+tfVEyvS1MM8WGlb/3WSwf0MjUXBjPtHiLQ3njVQOttu/JapFXXJ0 62nYnqPPv/d5E9HPOP5GtIaG66atyjxDWojprsZuUgUNP7t0S2zdqg/En7PE 2OQzGu71DZWqMWwl1sVtpaIC9vPFnE9PLLYRigoPhXNzaNjQ87PSSF87sRcJ b7qXScOopUWY/LaDsJr4p+ucSsMBPItHT7/qIlK1uwNXR9JwnL9w1QlVFlHQ fjjmdwgNX9rXaWLv2UdUO796+OkmDYfmdqrMPusn+u8WvCy/SsNiecfrtrkO EdPysu/TL9OwU3b5DZbbMPGnKmEg4iINV8VIDGoofCSkxoL+2Lix4/3z3YFN NSPEjquLPAbONDwg1hqlEPuJIAQ816ra07Dxiq2Yptdn4rTWSa1Vp2h4TXLi YWfdMeJBtJJviQEN/+pa+nradJIo2vg4JPkge78VcVMD56aIly8kE4J1adj7 20RWaMI0MThCLbPQouG704XNdymz7Py+Wq+rTsN3fHiNG+TmiBXeb52KKjS8 2/4m/ef7OUJao3+BpEDDfMrZWmt2zRM7mo+Rp+RoeNbwcu/xmXmCOPNmTZcM DR+Eg/zzxQvE6YgnO3MlaHjLt81XFw/+IB4OhXod46Lhbdc7zY6+XSRseVZ9 CKTSsOy/OpZqwW9CViNkRwkHDbMoatwLcUtEVvStr/xLVOxpvuNXZsAfokg7 yK15kooVDx7oGTAlwTlXjnfLY1TMo189J/2ZBCpxgQrbPlGxsnWTWtBlDng+ HTAR1kfFWxMDvgjmc0J1ylVnvWYqtja/vnnDISoEvFlquNRIxX4vY5Z2L1OB sXBFPquOim++anY++JQGdQa+o5QaKpY4+fJRtsoqePfb2762kIobn9RtqzjP A5Fy32u/5VLx/e11+2OP8oLRsYuyMllU/FanS/LwLj5ozzn/8foDKjbC3qF9 vKuBdcLTRvsOFS/6nGuk3xaE1JtfX7pHULHekEepNv8aOF3sLp0aQsWGNYvu E0lrYITmNrB0nYpntSelJ6uEYOK586kX56hYPk3SJE5RFPI+jlV+cafiqon3 U9faRcGdz0lSzJWKE+Mii85dE4M5Bwemzxn2/Va1r8394rAodObELhMqls6+ aZfUthYqYbjMzoiKo3fu9pFJXgfX3GxEYw2o2Hzi2mlrZykgvbbumtOlYofO uU/6AuuBfsHyeNEuKu77pSu656gMNP7HfDKgRMUyz1qfRb2RgfC3Fmv4FKk4 KExBNUFXFvhlTrS5baJik2MV60g6G0G09fjRrSJUXP+qdDHcVg4k3m/ucROk 4sdjrVukvsrBuubl00V8VDyfpBBQeE0eZBozPHfRqPi3pMF/y5mbQREvRGn/ ouBoXenRyrUKoPTyjUjgAgUfy3S4nPdKAVSqU/6rnaXgDn7PFQ63baDxYl+h 3jgFJ1P3pW5oVATdknvNx5gUfGbSxyCvUAkOFDmb3u+i4PlA8oldmspwqGBP f3cbBecONctfT1GGIzmfpk41UfCtmpiPf513gkXaLh6nKgr+TxO6vCR2gVdM h77ffxTMe75k3eZRdbgQnd1WnUTB4kH62UKuGuAdefXkvzgKNrapbfaa1QC/ 0I2uwdEUnFZwSi6ZvBtuB14Mjb5OwWbFCwpPDPZAWICeQNtVCi7wK1on+mkP RF5bmyjkS8ECRyZVVQL2wl3f19mJ5yg447paxotqbUg9J/Tm0RkKzgsVRdQd DHjo+cVo1JqClZ3eRD24xYBH7lXdmy0peCTs6oHKQQZku9iPFZhQcDZ//oPo OB14YvuUWr6PHb+UHze0RPdBo/Hx/e/kKFhHQ1JP2+UgKCSueVwtQ8Faa7hy 9nw+CJFDbdQiKQpGzVJ2TnZ6YOxp/CZGhIJDhkwWrR0PQW/EEQNzKgX3/hN1 ybxtAFodvPl6HBSc9NthokP4MKRKNvPs/kvGthqhdm6PD4NtrkHL2h9k7Eh5 LP6txRDGG/SMP34m46TivkIV7aNgwE8vbR8mY6f9FzOvDR2FArMGwbp+Mo5q EutX1zWGc5/3d2R1knHtDcMJlSljWOTQNXevI+NyNd7IpiMmsEp7r9WvDDIO lN/kue2kGZwNXq4ef0jGlvKQHPjKDJrfVUqxUsj41w+uRx7bzCHGcvdQ9T0y 1hp+rSNDOQHivup2QTfJOMiyWtzzrQVsearswmdPxkJHVt4XZltB+NJs48pp MhbNm3mUu80apnWKt85ZknHpcOaW0FJrKGndPtVuQsZFlxu6Sa9Pg+aMgmei Lhnf2fz7wvMAWzi0Vc57oyx7/SWkZd1JO7Ciz2yylCZjKT2jz8vq9nButKwr RpKMoycnefOC7SEh/ZDGyhoy1vFnPpiRdYAxCfelXjIZL7052WDq5gjB3E8D o0c58frNXDZXt7tA4vjVnfUfOfGwUU1QRLgLFDTsH1ke4MRPreuano67QEdQ 9z7Xbk6cdIYPmeW4guzyb9r+N5xYu+OuubSaG7yaYkT9zuHE2e32Rvi2J3S+ 5SKUH3Nianrhgt1PTxjPbp9xSufETqknj+g6e4GAg4NxZxIntr3wbret/Dmw 7Q8RKg7nxIcslUQChM7DSvP7JAd3Tqx0+Cu3Dt9F0CqyyvqgxIk/blIV0Q25 DIVdAsrPt3Hijpenkyv7LsOGv3UVyZs58Vu3QU3Jnb5AM9ze4rieE5eJHFm6 P+gL7RN/F5b5ObFE+4Wtmfv94KzcQ50tMxy443R71W3CHwYMj7/jm+TAW2/q TG575A/G3nSzhVEOPGimr9BGCwD1114uLwc4MK6fWS/bEQCcZxh3TFs4sP2D iDbK3kBITv3YH1jAga+bKRrJL90Avro4J6ccDjzxI3TdCdUgCJzSnzucyYG/ 39rgLuwVBE5aT8hiqRy4fUI7R2MsCFR6gxQKIziwZdUrTfW+m9AktMmXeZYD 39Dk5sHDt2Ap3ElIZSsHpmXjxRM24VAU7FWvIMeBrQN3pG/NDwe7AN/LG2U4 8NJ2DY7kX+HQdD68T1iCA1ef1co5GRsByRZFGb9WcWDZje+fOX+IhN3yP3fV jJOw/5ePK2Yud8D31S3TQzkkbHne7AtXVCwoVkXTdDJJeI9AM/fNmlgYfpbw YncaCdss1c+ZzcTCoZzcddsSSXjXFh9N7mP3QOxOy2e+UBLerLuX97nkfSiz EvHpcCbh0S+tK6YoDn78yow7vZmEjY9G7C0+mgSWoeUJqRtJuCLx+ZuBkCTA 4k1JrPUk/ONmGtkOJ0Hk7tn/zMVJmGX6x9RdJRlkr+7OMuIiYZH4xhdRkimQ 9ifFw7/7H9onojiruJwKJ7hmirVP/0NjXXNWodfTQFZB6FmF+T/06sIilk9P gxkDzRdqR/+hP2tjCuZr0yA4MghvZ/xDUhusbYXo6fBktViblOw/hKzeifjd TQd+Ucb839EVJGwnXz1Z9AjqZGNVX3qsoMRF/lNVvI/BqDtqMsFxBU3oO6v7 azyG3rCwtPPWK+jeVEjCJbvHMD0XyCt3ZAV1G6WJC1Q8BiHk9TlCcQWF7x4j hlyywO7Ukfsnp/6iC+tnxX+2ZwPp/qrv313+olkfIfGdbXmwh3r96TaHPyjX wgTmKktgy1gUV4zVH/TwitJmt64SEH2TavPd9A9S+RS7fmW2BOZCK3lqDvxB j1aEFNzlSiGL96e90eY/iHxK56fz3VJYI+whfH5yGb1s1HXt9XgC47KnfMrO LSPzicbzDprP4D5DQ0PHfwnRWgY3jAq+APtUi9HJh4voi9F+HUk9DB+ypbk4 kn8ifneapL9XPUjzluxEZd+R1ESAsX50E3BvGPswkTePVI/VZhwRaQV301uJ OTlzaCdNxLqmoh1sXw+9k479ihzVsg58X+wEPe1Fx4EbX1H6EYFyMc4u2FEu QEo9/xWdEKtxUuPpgj95OqoSx74i17YWJxupLkiMzUgVEviK/lNeo+ah0wWt Z5w9VkVPo6MCGQFnQ7tAhzTLPx82heb0J4RfCXbDFj96bsmVKfTJ/N/BDZLd IPB9/T4v1ylUZ2j001e2Gwa/GF+ePjSFKngzykR3dYPfhydDY/QpVLNiIU82 7YYnDy6V9N2aRBHnIten3O8GWe2VY/U3JtDfY7sVMgV6oFVQWzHpwgQS/qO9 kiPWAwFjV2ke9hPo5N/qlGzpHmDd+V0pfGACFee1b4pV7IF7I983OqyaQNbb vHjXHeoBSujUD84746ihaV6JFNADY+29SYzUL6iBR2fdwuceuJ8t5i0c9QVt 4arMV5jqAd1r5kbj/l9Q7tYXD05964EHcp2cMTZfkBdJLzP3bw+c8P3gNiT7 BXFu0x75IdILjVIN2gG5Yyhjz79Phgd6Idfl6ceqslE0/oy58/ODXui0e7j+ cNYourb9xvLzzF4gWUdYs+JGkfqziNzreb1gfsyeueg9iuhoTe7S817g1BJq U9s1isJGPi1EN/eCJc9FXFz8GaWwFBp2LPYCd5HKw4ycT6hmoPaRtj4T1HKk B1QSP6HZ/iczdCMm2D7iXlsb8gmdmPEZeWvChLL4kfhhp0+oSU+9WtWKCXbX Y6Ol5NjW+iCS5cmESuN5/4T0EfT3n4nzz7tMOLtQahWR/BEJcVr56LUzIUn9 2x7n8I/I8OZv34UuJjReUV67z+8jMs9osUhgMkGOVMxcOvkRze2UK2gYZsIw b4H5WYmPKGghPPX1DBPM5LOM9ROH0Rub8vvqXCwIdh1VkgsdRr9+lxvZ8rLg ScGm1Ry+w2j9yK3PN1azQGBXRsuLE8PoodLFzAIRFryDNIMtYsNog8kd/zQZ Ftx4ohrGrziEhPc6TnNosmBQ86leA88QavyWHJWrxYK97EoImBpEakVhgvra LPj5bsfNr3mD6DH3wTovXRa4j27xb946iLoP5E+cMmRBk1v2nmCuQaQ6Of6s 1ogFm+fllvZMDKDEumUXmWMsGFmRvZyfM4AG+VXuNJixwEJc6nz45gFE1jed KT7NgrIHKUq69AF0bCRAstuWBUJykjO/x/qRS76xxnc7FrzfKebmmtWPSk1N 9MSdWbDvsKDjIbl+tOC97uM/TxbsCKCepG3sQ3vjq4SM/FkgWdmaME7pQ5aN xh96AlhA/ZnS3TTGQmh+OdEykAX9Hiqmd/JY6IzApVOHb7Ig3NrmqLgKCyXM KWFmKAsuJSlELwmxUNxw2GrFcBac6frR3P+DieigeflyBAs0j0QapFcw0fBx 7rjfUSz4srfigIIOE2UIvt+ZH8uCdt/gYN6NTFSy5sfZhnssePns6OsZChOZ tfW8Yd1nQbziGONpYy/q8mDNz8SzIMil9HpcXi/iO89dN5PAAo/May8vR/ai uoui6EsiC/avE9q717gXEVlCu+uTWaBsMegnrdKLDlzUrMpNYcHa+7kVJOFe dP58mkdIKgvmeRga9T09KNOqzXXHAxakLburGNn0oODh5hmFdBZEamieV9bp QbnXOGWZbF++SC5Zs7EHcfFI3gt8xAKjqaTtPWPdSMZytXpVBgu0Nju6VzR2 I6/GEDejTBbI2yvnp+R1I6mrYmMstv+yGrbYenYjdeZQ6dBjFoyLxjrrGnej 3+6dNIssFnSaWGdtUulGBbwWOW/ZxtFbRmnC3Shs0iRRNZsFBU0LGyd+dCFH /dLeRLYTacjuXU8XUva1d/vJ9k3d8PTCii5k3mJtciSHBZ4BZsN3UrqQyqPE O/+xbVm5Yf0F/y50xUhA7gvbB39OWZvadKGijfXCCrks2KlSnqqu04VCXKps ndhe5xnUJ76xC5maLnOnsr0q74jkMqULuXLfFXnH9vdR8ZMDY53oVlxk0ALb QzKfE1BjJ9L+xGEqksfOd+vi7vS8TnQGrYpUZrssyU8kOLITmXyoVjzA9qOu A6ZOnp0oIEpb8zjbUYKC9w4Zd6Lc/UUllmz7HulvU1DpRLY86omn2HYIyxbg E+5EZujfnBnbxvUXjs7+6ECIpFWjz/ZeDiK6racDFW0X+6fO9hZtrpanFR0o wLrlhRTbQlc6eeJTOpCiVfz0X/Z6F//9Fpz160BKWypFO9kevL1e/JBlB9K7 bp3yiO3XfAek03d3oGIVR39XtnPun920JN6BnotVoS1sR6+NUTi+2I5ek4wc h9nxvPjouXJBTzs6VyZ4PoZti6196tTydhQ4tzKqyTZRQtI+Hd+Opo2E3jDZ 72uThvy+cp92NG5yTOwi21wvD+sLmLHvn8BMCtud7+LNaoXakdm00ytBdj5U mFSfWrvQhsQ16qcj2fnzgPnxjHd7G8qdSo8nse36RdFT/m4b8pW0uNDGzkcj TxPv6+fa0BPugLwdbKv+uOzXe7QNlelWeQSz83eF8/XtcP42NHtc75EEO78/ h41Hfvrair770yVPprHgrQD/vb0trcjl5qutdx+y4L70yYczEa3osLuG9NR/ LPB7HPBYz60V3UgJ5eJj20YxMz/NoBUVK60kbWbXl4LWbLkJVyuqvF9afpBd jwH53OkefB+Qi03u/u3setavMCtc3/weNfd5lgvHsUD4TVpFW/h79OdJwOR3 dj/IHVFvV1v1Hr2os3348C47HhL25BXOFgTbDbMeRLLg4eai1SWvmtHrbgd/ Q3a/Oav2e61dYDNSKFpUXghjwT/jO6oNf98h5Zs/92wLYa8ntMoxerEJ7TQa PXjwBgt+xNEuMMqb0LSwuXPVdXa9ZRwLmPdpQq0NXje2svuhGfoSb77wFhn3 Xyud82NB4E+hRumZRlTg99l1mzcLehzcFYo/NSC92YloM0d2/xow1ijLakB3 31W1+NuzIMtcbX+NawO6nfVVJu0MC7wPrVi/m61Hoe0MsQ5r9vmjGHP3y3Id Mp3ouzPP7vf6C08X1wu/RsdmQmIlD7D7l3sidXNPLfLlLy0YZZ8n4qPX1uxI rkWsqmiBfAYLxroPKO7dUIt+n2+p3bSX3R8re2wsFF+hvl9JSp0qLPAh/4qS CXuJJpw9NsqvZ/fHHyhbafVLdHxcxSthHQvWfAl9pR1XgxobNPaQJVlQ1CT5 42R6NYoLHD/TJMwe/y5hFVtRiQxdCg+LcbPzecNtBfJkGXq5vJxZtMCEy34K 0W/jipCIpvbZ6VomGM3MdRdnFaIdV3511SEmyNuVr48vL0Bn0sqcEquZ0KW/ v9SOmYcGymWoO8uYsEvidOfyumyk2ciRsCWXCYNeG9WsDj1EehkXpVSjmdBa ID1kamKOVk+/PNNlyoS8O5qMTOVCMI0li3F19QKl7mE1XbUItp20+eva2gs2 i7TdbhrFYL/YqtXwrhfCSybFJR6WgPLHjJZztb1ASFQIDj9+AipbR7qii3sh a9KM7Pm0DLoHS0PnQ3vBN+rOWNj7l0CylNh3RbMXol1vdNsGvYF9uN8xPKIH +L4b7ik41gHfL4uErGzqhmHvBtVLwX0w8lYFy/h1wkzFkdrLjR/hfObXgnDc Dlkh6bYOYaNwQbJq/TGpNpD7mS/kmzIBNxVvP+5/9h4Gn6yv2ePyFS6te2X7 5OY7MEsYDp2KmYP1rX581283woPHkTWG8fOw2tFYE/nVA+WUx1fqle/Ayxc4 rM6shfe2udkmwT9BTb+VJkFgeM4naf3LfRGmQ0v3BYpVg3yyzDjdcAm4lI7b eO9+AUuXgv/mH/8D+VV9weY3nsHU0lr+HM0VME9cWLPoXQppziGdazeSGM7i Bb+LtxZCjE5zpIQcB6OQIS3+ySgH+L3ydV+LcDK+zbRHtpzNhJf7X9SUSZIZ 7QVKktfa0uCvh426OT+F0dR3KtBkPgU46O1J2/5SGM99ZaIG1BOAFuotqslB Zai9OthE3pQA3Fxi9/ZTqQwe9edIQzABhHmsIq35qIz0bsMnjVPxsGX1WMAd KSpjPE/lQ1R6PBiJLdkvaFMZhFrmi/9Wx0PqZtkdVQFUxh4NN9+UH/dB/dCF WgMSjfE0Y6jC5EsshKnwzApSaAwRLq3ip72x0L8ucy2TTmN8a8sdkm6KhaBv Xd7Oq2mM0043mEKFsfA+effmYGkao74rI+TyxVhw/kqKrNlLYxylhodv4Ixl f6/cMVO+QmM8OKQb90H+Liz1F4yLzNMYvRcTHlSK34H97o0xR37SGFxHfAod /0ZD1PInzVtLNMbB6teP5EeiYYPk2rDvnHTGWddNlMn8aNA7Eba1Q4jOcD9Q v+zNiIb7bY5nY9TojKYst6xojyjY0SA9zX2Fzmjbkl/j2hMBvmZa93X96YyS rPaeZy8j4NVns71+N+iMWelSTuGsCDAlR0VOhNEZHIKDx/h9IuAqY1mxMZnO sD1cYvBNKAIaK3s8blXTGZNKXx0czMJhjcGCSA2mM57ZCv6Y0A4HKyb/y+91 dAYrJ7wsSD4cZn8d4HdooTPEJQrjv/4KA1G1Z0W6g3TG9kf5R7JTwsC27oO5 3wid0czUnqwLDoPc41MrpWN0xklxg8M/PMJg7wXZozKzdMbxwW+bohlhcJuD +GWxQGfYVJQE/dwaBq0xJx/G/KIzPoOy13mhMJDc4KPXuExnWL4XHlj5Ewr/ /z+YEb+bGz0YC4X/Adc/5fA= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-3, 3}, {0., 0.4166478144108421}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.467555769040129*^9, 3.467555790469014*^9}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnHt4l8WVx18JASq1WN2u293uFmkVKFasBV0Fqq1VWxBhrVDstgLL2g13 UQSUrRVLL1xEEARFVJQoKBii3IpVRC5GRJBLAoJABIwQAxhuAjE4ne+Zc97M vJz3DT79Y93n6e95SDK/d+Zz5nrmnDPz0rHn4Lzb+vcc3LtXz8bX39Hz9rze ve5sfN3AO+xXOWdE0Rl5URRVNI7wt7F/8g/69MYPTnyOvxvQr1yzatUq06FD BzN27FjTvXt3M2vWrKg1Patn+vXrZxo1amTOO+88+tewYUNTXl7eih7XNYWF haZt27b0r6CgoK/+davTgen1qOdXtZ7p1auXWbhwIbXCljT169c3Bw4cEAE7 duwwAwcONPJBlk2bNrnG5Jh77rnHDB8+nFL9lO9qwbTKrkSuq6plFhcXUyb7 z6bcz6KiIirw2WefRXVYtv3b5Obmmg0bNkQX8Xenls2Ny+KzePFiM2nSpOji 1Px1g/z2UwcN7B//dRmXZBKlLuOmoUby8WrHTWvIJZcsWWKaNGliTpw4EQlt 0aJFpk+fPjXfJaReruT7d4XHor7EM2n27NlmzJgxpl27dqa0tFRKjBgxwvTo 0YNSrRVpqflORdYL2zZt2jTTuXPnYD7Yepl9+/ZRr9h5YHJyckx1dbUmuHV2 kcsVKdxiWY0LFiyQYTHz5s0zzZo1i1djfn4+rQx87LCYs88+G8P0eed3CqZV Rg3qhZWsqKgwXbt2NaNHjzadOnXCIudK5ppPPvnE9OzZ04wcOdJ069bNzJgx I5Iazpw50zRv3hw1imvof1c7Q5fN1fsNI0+ePGkOHTpEqe+772q0ZTzdw3x3 O8Q8JftLf8sj0tNQ3tEZ7ov6St4GynduCTSKvzt06Lj56KMjZvv2/Wbjhj3m 9dd3mJde3GSefmqNmfbYavPE46sp79yCErNx4147BatVbrqs///5vkh1+aLn 4zXz+aajlq8+fXfgwCdm1Zu7zDP579B0xO8t71awevvidsPfp+AXcgp+m37m mmPHPiVNN+2xt6ymW2t2766MzlLyX658d9lpfne6ZTOq25R+1qXqLlq4xUyZ /KZ5e/UHDf9va/p9rhWsuqKinWbypCJTUlz+v0oJ3q1aeyVefvk98+gjq0xl 5bF7lBIz3XfYZ6yJU24WzH+XB1mqaQ4fPmEen7YaA8j7a4h4mvN9+ulJ6Aps XdY4fvKJt2EWPLuO6lzx0RHBXsHZoWaAraqqjoYq2CfoZ31z5MgJyjvj6bVm +pNrzFPT19Bc2rfvKM+h6EpGlpcfNuMeWI7f0RAFOZWRaKwdV0LZDZe03Pr1 e6gqX3XINl6/oMPf27ovugvfEXEKj0/ZBwdNwQvF1MG2wWbNmjKU+JpjtGUG hgH7ux20aLBSrYlMQz50IFbI1EdXmRcLS8zePYe/7mg/YFr+jHfIckDqDoU2 gX7mmtIdB4j02NS3zPJlpZjU0Tcc6ipGoUs3lZRTapCCGsco9Ovzz22gZr68 eKs17KqibzrU1YxCN35gewOp2xXUGEZVVZ00r/zlPVpaBQXF2HCiJiHq5MnP zMO2yz/++JiKGkU/61Kt0K3oKtttFzjKD5mCNTxh/EoIjAYqlD9whdDpb721 20x+uIjaePDgcdYD0Y8YtXfvYWo6UgMU1EhGVVefNIv/vJXahhlrGxI1d6hr GLXm7Q/MX2zzkeqvoO7ntmEtQQNB7LZt+51fGf2YKZivu3ZVUqqfQrmPKejs +fM2Uw/Z6XBxSEF10UNWlkq516O8aE1UTKRdOz++xFGuZUpZ2UGqD1IUOSCI 2PCYeOgOKPxLXcHr+NHCBe/G87iPIn445ystPUDTwQ4S+z4xAmPnxrhaRdzN LYAGw7KBoW1b7dRjdD1T9uw5ZJ59Zh2leiuUoUyBNKseaaofPHjMqcfoJ0yZ NWt9PCZ5CoX1kfnww0PmoQkrSaFcESLQ0ePHrYAgFTHYq8i8lzZTpW0Zp/2i nzJl3TsfmqWvbafU/yiUOzmf1SxUkS1bKlhTRe35EUYMMxCpXyuIQYkewfjb MWgXUuxcITcmjcJrG3sDVWTz5o9YM0Ud+BG6GvofqdsUxECvzag0dNzVIQIW LfRcjCACrz1qARS4XSW83KMb+BG2Lqx8pP5bkS2e79GjVTQ/Uf1rQgR0kCgO DdGX873//sfUA3ZW8eqMOvIjLLwdO/ZTqpeC4GlPI475AJ1zbYjAtJJaaIg8 ry+wSore2MlrI7qRH0GJ7LTDidR/KQieZ6RSIOpd2xc/CRGoBXRsGuLXXp9h Tdutlad01IkfFc4tiZdYTwXBMwQbhxn/4AraW9qHiOPHPyU9lobgUSKdMNGO CHY6N5Oizvxo9vMbyINHqoeC4C7GAqe+gHq9IURYKm3NMYII3CvmnbVlNA5Q A24Mo//gRyiEwkh1V2Rzk8iYAQKpG0MEpjQ6Mg3BTTLFxXtpd0XK9V50Ez9C B2KTRupWBcFYrAiyipDqHCKsKWRWLC9NRfB3UE7kh6IvXAuin/EjntKU+pWC 4O/Mtvf20QYIxE0hYsmS7Wbr1opUxC85HxYgxAHxsxCBGQ96GuI/OR9WDzQU 1ufNDnEzP3rO7hyYski5iXImRc8HDRpkbr31VjNnzhxibdmyhYJ8iFbjU1hY WAfBeWt5FBQUGO+DGsSVl9UAyV1Cyfv3H6XpjJSb5V+iOOf5559PgeP9+/eb c845x6q4o1YNHzGjRo2y67gqDn37YckcpfG38BOsaeg3qOeurgpdvFHkcDWv 1XpmwoQJpkuXLnFzmjZtiugyxSAoPlsXf+VCVFfG+Dbjz0MJcD/WrfswkDB0 6FCTl5cXS2jTpg2ikwkJidZ086osKjkhC9UQVSuyhgwZcoqs/Pz8bFk/9+YG nIoa+XGToe2tsUqpn7Ks8ePHn9JzS5cuzZYlQNhqYpveEsqCqY1t0pdVUlJC EwXhV0yUc889FxOFI0W1zg3pMvgfc2ZvpNQvnFRpvL/CndS6FC8eMGAAxZXn zp0r0vzws9ZGmfGwvmBUmHhpxtLQfCg9pGR1+6FlrRGSTyY4dP0vQywUhOw4 t2QgoESwHk2sd+IJB60vVlA3BSFKFbv0hvXOov5ViICVDncyDSG7AzpAbDan g+NF/MiUN+Ps1DgiyJYGLYMFaGL9Hxd89dVtMAhqCiZky96MxQPzF1qiR4iA 8YBtoDYEHPpdbKcw4hf8CBuRbJ1dFYTYKa8v3UHhBaR6hgiYaYsWbUlFiMEF P1j2Pbepx9uAP6W7KAixHNEXD4xdTt5rrxAx2y4WmShZCNiv8J2QSiAqKo6a F+ZsTEWI7Yy1KbPGWUbxruI35GYFIU4AuhzmHLbO20LE/PmbKYBSGwKrRxqc QMCxmzVzfSqCtEYds2LF+85CjY0CBCIlE61AKieOGKRxjihREHY2LLu4YEKi OJXY0ybylpcXIhBSEssqC4HlvJnXDSPELELcTCywmxSEOMgYfwQ1kOodIlav 3k1uUxpC/HuZiTAf+oQIqDZZlVkI7BzSZ4zozo+gi7G4TY0OChASq4DeFi+u b4iAyrIDXCsC+hldryAwWGLEaQiJ3iD2JQrWuX+xuYzKwRNEqrOCkFgS9KRs QP1DBAYL4aMYQQQpiAUnArigWPtcdUp1UmRLSAyWkHXuKDUgRMAKrKw8loqQ 2ByWsxg4A0MEbAR4q7UhEMMVUYwQz4f3SUrdqCCu4nzYTV5hS+X2EIG5tm/f 0VSERFExrRHXhV4aFCIQj5A9MAuB+ByOcZFihPh+fkM6Koh2nA/2m6iCO0IE GiJaLwuBjQZqUEGgIaK+NYTEp7E2MbWRctGh2A/2G0IbCxEkOI518zB34uCw 4Bxvl7pBkS0IyBXdkEDAyRZPVUNI1B+tx6RC6i6HkEiAX/0OGQiMgdjSCQQa ghhSGkKOMzATMCOQGhIi4HLLytAQcs9FuhOq1gUd46iIv1+1z0C8+sq2OKKf QPgN0RBy3EMnHhyoGRYi/Ia4rqvdU+XrYnVwV8x6qnxbLJaKj3QhdioYqp5k CSz5A+na2vB0PFW5BMYea65cAgvES9+hc2BAInV3KB7qUVx0lz3VS2XvI7iY VeOvtvLGU1ZtQhZCT4ju+rKy/NUovI6luSlycQc7jCgEdxgYB//8PeRylpri udbjIv61rDoZUic+9EYcTU5IxYjLXiBSU3zYHH6ccidLq4B0NkwdsRCGhxVA Z8PO8iuQ4thKBVLuXWkV4FtLtNnAGETKHdvKQUMwsV0FTvFx3YzSr1Npoy1S EZmX6FZCKsIKou+uVxCXcj5/u/9NiICTgyOc2hAIQ1ZwuJQRErP2236dgvge 50NxOWK6N0TAyRHXOAsBM1WspwQC/qKYXYQgwiX8FHE7nFMi9VtXUKL2fvWv VWQLAmE/sXETCLRKqqUhWnI+nMzjIB+p+0IEjnnFFspCTJr4RuwyMEJOMPyG /FhByC1VrCPYkEiNCBEwfxEESUN8l/ORW2T1AVL3hwhYAa8t2V4rAkFbhI89 hJzm+LvkNQpCrudCG2FUkPpdiECsBYcEtSGgoREPUBCwTiWCoCFacD70l7hP 7ghZTpeDhvwoA4F1LGcRCQR2sqqq6hoEEb7DT/297vdhQZgPoi012YKA4Sm6 O4HAKEvLNERzzucvbHceH5/ogS6L5ocZCMxdUQAJBA6XZbpqiGacD76lOMl/ DBFYMPC1a0NAR8r0Z4Scbvoe7tUKoinng6IRa/dPIQKnOeK3ZSF8RZNAoCHi 4WqICzkfDktEq7t7FnIxhEfETairMhCwHREZUBCYWsteL61BEOECfopFjVgh UqPDgphQsg9psgUx2VnPPoKvyNBslyH6gYL4NufD6dtKnv5jQgQOo5awhspC cBzUR8ihux82a6cgvsX53izaRXdFkBobIqChZM/QEE28PpOI7AMhAqcX4vBl IaDF5IoGIwYrDWmrIM7nfORnszcxLkRg5YsNnIXAmQQ2QAWB02CZrhqiMefD fJzMffGgQ9ylNIScUiJIQdhQWBNKQcQdRf+1UWR/k/NhRcpmMz5EwNl5if2p LAT0gmw2jJDrJH71r1QQ/8b5sKdxBJ9viMUIODfiqmchkE/itQkEnQ+xlaQh /pXzYd6KGnrIIYYqDbkiA+Ffy0gg4NpAmachvsH5YPlKfH5iiMAj2ZHcFnNW rR6u9saTZpeLeFjEMnFY/DCvE+Q01Gn1Rqfl5qa8zKS6Zf/CsjDkEjufFFaD jkw5NuyqkeruileU8s4RVYA8368zGx0vG3ZCrH+WLmJTPF/xQf2XjrTG/jPn w7SQA8yHnVS+ykqhIzkYupClpni+zhM75eUjbbBFMCw5sScTgmG5/5mPk0Rw ivMrzfXfONKaK50MRx/HK0hNdlL58m9wjHcBS830ePVXibQ2i3TMYrEAEtIR V4XPXdPmVHdXe0NIk/pPjPaDwlNCqf6q1i5aC4IvaPgIOcD2V2ZrBXEe58Oy Eev5kRABE04uImQhJnvmQwIh96vSEP/oiZJrA486BF8Xp+kudlArBfE1zofG ysY9NUT4E5cQRJCC2K7l2IoLym1Q3gYppb3R9Q+cDyFIaeZjIQJboUygLASi nZIvgfBng4Y4N853LA7OT3OIe/mRfwPq0gwEjE688aUgfKNeQ5zD+eiKOW+t jzvEb/mR7yV+LwOBrhTLPYHAlindpCG+yvlgm4vp+0SIgDKX3TQLgQCErCBG 3MeP4COJkrxEQZzN+WCPrufztydDBDQejLUYQYRG/BQOv1g/013BEfzIX20t FdmCQE/J1YIEAhfZpFoa4itKTz0VIjCZ5JZIFgLFJYjPiPv5EcwzMYwuVhD8 vg2uk8eH/0+HCFjjci9RQ3yZ82EYcVPDqqNohkP8jh9hYcn2/t0MBO5RiGuR QOD4Tm6laQh5yRcLSwY13yFG8iN/Ql2UgUCQQuL6CQTim2Kba4gzOR+2HQnX P+MQv+dHsGVkH6SIDRH4tar4ugtOe54NC2KI5KJJC0W2ICAXTilSjPgDP/KD 7t9REPwiF7VeIhwzQwTIYkRkIaBexI9jxB/5EYZHIhLNFQS/hEWH6uKQzgoR u3dXxmcWGkJMI+xpcnn+OYf4Ez9C+2TLa5aBQD4JVScQCLLB80hDyEkMNl25 Q/e8Q4ziRwiRipvVVEHIwZHcJ0dqdojAwpJ7KVkI5BEtwYjR/Ai9LLszGWBE ILuK7sm8EGaXayyYpBcqEuUmKPpHasaIMfwIB6MygM7grO8j6IO18OC45Viz UYErPtbrNjnQdwGWeqcUh9Kx/vHcsCQUgHQkv4gYlESUZ+lr26NCV+wBLgZN Lge5LhxTNy6GtlhhL7oS47gETCpxjJt4JbC2sA5tJyZKYE3gRTVc72ridSsu 2uDGEL/H9yBnxxqQE263nTaozSutw9lwMxgOEjxEeIz4YIlAmh0098o7BxVy zBsrd8bnDG7jO70LweIFwg2GhyAfu6Igab6TMoGlINiKd9uR+gqXzHQvG5Ab 2LdvX/oPPRo3bmw6duxoli1bRg7sppJyGlgex4dYCtSSXM84i6WkeJM53NSV K1ea6dNpd4+bgrkld368togULBCYtWVlB2Mpmd5jrhk2bBh1YPv2HUz/fuPQ Faozx5NgIkuCNocNZY0Q3kVT3UXxU8vKyqz7NNZc1OJKaznM0rwnFjKJhWAh YlMsLt7Lm2SqdyhC4Fp3uflO06LFReiwDCHkC9bBDQLuOHnegFEpniAUqru+ edy0bNkSUlRPkMVM4bbAZkWHWaMotuKwq+Mi2Nq1ZeobwIx4hCsEFYJwDZSQ Xc0NvSZD2+H4xRrW2kvRDJrKTYAqwEyCSYAbppWVx3jPyCXVIW/pwdLHOydn piOn8bCgAxEWhamEysDmsXNe3ryFCpNg2JfTabX9dxj05G/6rzOiM/4KTxov zA==\ \>"]] }, Open ]], Cell[BoxData["\:ffff"], "Input", CellChangeTimes->{3.467555914426039*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"nf", "[", RowBox[{"20", ",", "x", ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.467555480034377*^9, 3.467555504893036*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwtW3k4Vd/35pq5ruteGStDUSTzFO7ZB0nSYIhkqIwJyZQpTZKQhESETCGE TJmusw0Rmcp4DR/KkKEUmcef7/P8/jrP++y91l7rXe9a5+w/jqjtLWMHHB0d XTIDHd3/nnd/nlvc3SXDZ2wbndkBSrVTd3iXh7bIsBRzqtTep1B7nji6+nGd DJ+/5ctcmZGt/ZiZvfFihQxrTlZ+yjksXStywn371j8yFD25cVmu/WhtaLsa 3dm/ZHh7npctrF+8dsGGnuHobzLcKbiYsaB2qNZipYWJcZYMMeuWuC8/RWrr w2NYx6bIMGymmmuz/EDtMWFLjppxMlTHGzz+wC9YG1tyiPBqjAzHxzUf4X7y 1m7p/SJ6j5AhUtjGX7SPp9ZhuJRsOEiGdic+unYmcNd2uN/lle4nQw3e6KMG 3YRaFaZTAqw9ZHheK7yDa5299k0CYf9EFxm6oIpr916y1LLK9B+E7WTYJIHt /JfIWOtR/0Y0qZUMwzcfam1t0dcOmjkd9msmwy8tcWa7NrtU7Tm5IxcbyfBy avpojMUmNe/+uqRcHRk+/ftC7s23VSoPT700vpYMv9dw09FVL1EDc8Jlp6vI MFrwVe8Z5kXqpKaJQuPHPb6ZvydQjP5Qz38VUk4tJUMmGY9PizJz1I8OE6qB H8jwMTPfC+EXP6kiG/nq5gVkeDX7ULb5zQlqaORtilIeGWanZBCEC79TF8QQ lJizt/8vFWcc/x/V4iOzzq9MMnQ82CNic2uQWm/Qqfs5bS+/Y5Szz7/1UY+N xZ/OTCFD+cYfcTaF3dRY72sGD17v7b+V5uS30kXdZpU8b/WKDItBcnC6UjvV MXnBUO0lGdqTX1cfPNhC7ZCvMuGJIcMKWttEbOwnqmpTkNnfyL364I7Mf3pc T021MLjc9pQM/5l1Kd1swKisf8hWOaFkeJc0o9SrVE31eDR8JfjxXr3oLBfP 632kDvK9tbkWRIb+5hy4u5MlVJ38m/aa98nwhmrzh8qtImo+qnKdP5AM16wP 5QSv51N5enduLPmRYWDgzS8DBTnUuzeaXbtuk2FHq8JcE91b6tT281v5nmSo u2j2boSWRj0fY+4ZeosMrRYJVWvnU6gfJURv27vu5c/wmGOhOIEqUj3ji94g w2GNm6pJDS+pYReKA/Y7kqGn5cZOsVMMdXE84O6aLRm2GDJ+vC74nGrhp/Og 5yoZKtBHzfymhFMb8PhHRVZk6Gq+0pKyP4QqndbzOOIyGSYbt9x2fx1EjVVO DnUyI0OK6nFr2VP3qdstDk9PmpAhp27uO24QQHW8IhMpYkiGhTcbf3Lv3qZ2 LK5EbZ0lw7/K+0YTnDypqk+wFwP6ZPix+4JHbKMbNVUoNK70FBlqxsmtd+Tf oLIWGSZE6ezp4TbVqtTegepxUiDJFSXDXCVlk/ttNtTBge8ppylkuM09lyYR Y03Vvpmbdlh9T98OOI/cEHNqHr1XJp0qGXYyOv9QunCRqmaSy5ygSIYLq+bW TY8NqU2Z353k5ciQOGFr0tZzhmqywv+lRZoMDzt0j/DW6lLH9AyP20qS4X+d pCKDl1pUt4QnzzfEyVDWOO6goY0mdXO2diFGbE9/Tur8PwZVqKGaKybHhPf4 47Pnz7BWoPJGHi9vECLDWmJ96Quv49TMUXt+K34yTDyuO57y/AhVXj4pYImH DCXMXkse6hCj1gZ1D0dwk+FPPZmHRYsHqGd72IE4gQypPYt45lY+6qC4dhqV nQx1fohO5NFI1Ou+/gxmLHvzaglfZ9LGSV36XOQwz0CGpo3ebC13WahBgtPN IXRkKBDxauamH45KdBWWEt4mQYl+N0G/1a2aZKpZxMd1EjxqiYilZK3USHFF zl9YIUFlz8ITLu8WaiqufTKcXiTBZUvcYpjPXI1u8Vbxgz8k2Kj7T7RCf7Lm G4PSPoFfJMgn437N2Wus5pqpi++HaRIs/FX9KMScVvM7K52mP0mCLL4EWROf 7pqANZrGj+8kOPvfbX+V1vYa1jPcKQH/kSBV5uypjxVNNS9fn6YjD5Hg3P0U yKNbVyP2+75tXj8JOvCZ3Xx0tKqmCPnYqNNDghO5AXM9NSU1lKh5ieEuEvTk fC94Ov99Tet38TDvdhJssG94QFXNqjFXtJ7Dt5JgE/G5QnJ0as1UcOy5t00k eK03QVo26VWNV9+XQkoDCdrGhJ/fVoipifRX93arIcEjxRLs4pmPahowvu3O AhJcbdSObkpwqJE5+43w4gUJBi9uSdevHKphctBTELAmwa3GUaFHvoHV367I X5q7TILWZskiR9fdq1PMhQKpZiSYL5dhdGDVrlrl7J9PNoYkyPUxWkDI7Uy1 o2L85VwdErwbJv947iep+jP9zwcaUnvxZcks3LQIq4pICem0XuWGFEvdn1Fl lyrIA59c06O5YembVtnQmkp1eCwtNDiSG7ooeqsad7eou94PzHR8yg1XoreW I7Rp6k0SisNSj7nhlaTyN4fDVtQDbqcalPhxw3F1NgWyhrTGD9Idqcar3DBl spHkafZYo/ic3PTkcW6YwEO8uTvLqXk1jYPxsxQ3ZGXer8piz6OJX54Szj3C DfPv/7nK/VZI0zEp+ZKbKDdkcBW1/cogqSk4x968wsMNle7FVSSZ6mgGhU6+ ZdkiQt/1++qZPz01ZYdh3cwaEQ7F9pl94fDTHJZNGvmyTIQfwxx7su7c01Tp N94X9YcIbzCG6dVphWrOisNg/nEifMKrj7NLTtaM93+dujFKhH1ZfuqR19I1 T7b71AwPE6HXY+VorDZLM8X7+FJqHxGy/z56zvX0B02Dz6zER91EWODsBJAT ZZprQhPHHLqI8CnX2GPv3UrNt7cwPb12Ihxv6M2mNmKaxg2JdpKtRCiQjh0V tW7QPNwz8V9zExHmXuu6Kb7QrLkyIWPh2ECEAdaXNDYft2t+XvbrZYRE+Mx3 Zv3TkW+aCcwNhhk1RKgW2BFcpNun6czH2aZVSYTizNIHxbSGNDWPXtIbKyPu 6QH2PUkf0yScSKu/V0yEOUO7eDbtCc0x/TnKgUIi5K+uTPiaNK1ZbKFcWZ1H hE1SVwIbe39rPnK5r2SRQ4R15ALjEfZFzYuBLYVrmXv8PBNTVGta1pR4Rj4W n0aEnc9CD7SqbWiuJVtnKacQYdsBtWfbQbuarQXZoj2JRHjg0YkaMImjJGEL SZ7xRPgfdUDwUTIz5WaXBj93LBE2rNa7JzBwUJDvj18URhGhn2KVoL0gkUJc 7CScf0aEcvfm/rhKkik/cILhv8KIkF74pca1el5KKdme6WkIEXqX+1hnbQpS Qg4XPJB8RISV6nyCO/PClEvKa5vN94l789FEdm1YjHL0lLavYyAR8j5VIUsC CcqGWcQioz8Rntw8x+QiL0Vpu953M+M2EQbLa73sb5GhpPiJzGh5EiHZMLPr K1GB4h7mbD/mRoSvg+nu1kspU7QSS0fvuRCh0Kk7Q9wNahRS3o7FASci1J9s UTn7S5MyUX26r9qeCHXO94nXjqCU8rYYIwsbIjztY5OpmalDCR0ZbluzJsK/ nv8KD/afoljMS5yOtyBCWvjV0fTHZyjSu+4NypeIcLHmqMsOPE/Z4apGekyI MBWvsGnQYUTpFGGq8jQkQn/HS9qH4y9SUuUvKHOfI8L2I0deGTVfonhqJxQV 6hOh9skK4XRXS8pJk/Fj508RYU8An1hs3FUKr/3x7F/ae+sVwnQ6x2wp096+ Yk8BEX46eOP28qg9pfJxXbKkJhF+7w9x0F66TgmP4xD4rLanh5OG00beLhSr bNNYR2UivPzGilh+8xZFpuINF5MCEUaIrYd/XvWg0LXMhGfIEKFtQWjk1cfe lG80RWbtY0R4D6lboL/hS8mYvftw7AgRvujMu3jwfQDFe7N5695hIszuI5sZ WN+jnMKT/A6I7tl3jWYq6Dyk8B+w+ld9gAiVF8bPXnr9iDJ7PMvNQpAIy489 Dl5HQig1yN+ZNd69fsiUYe1XCaM8u6DuEE8mQtFVhjOJERGUK9eCx5SJRIiX borwE4+iyHl0WPbgifACf2ryNySGggvi7/dkI0LG+lfhQ69iKT0xtsbczERY 8lD5LFU9npKVkd9eiCNCo86Y05bSiZR5p9/RSTtcULHlrK6dTzIlOvxhKG2V C66s3x2RjU6lKOXvu8+7wAVdr9R9dUhOpwy0v7ttMssFP/quzb+YzKTc+UNx jRrnggqIrBibezYlyUZ1Gh3hgprsf8ZWiLmUmm45+4U+LuilY3P802o+ZURX aiytiwu6z54BUfuKKDsfD1kZt3LBihcLRHHaB4qw1IEBXCMX3HxwbTW6tYSC JvFeLKFywUzjg44H58soNgRil91HLli4eZ391ukKStADtrM8H7jgkDjLv4j/ qigZi7jPjblcMCXnsPLvMiql0X5L53YmF2QarwvXdIaUyb5lTDyFC46Q1q8Y iNRTmPX/aPTF7+X74ZlOAl0j5Uj19MeQaC7Yz5B3a4LQRDl9/Iei6lMuGK9d 5qJ24TPlxpuhwp/BXDB32abw36dWSjh377FX97jgm5c+Se2+7ZS8Rx3Zp/24 oJ3R+5vzSl2UtuXmQ+see3woenN1dn2l/L5e9+adCxfEpl7k3o3pphAGq4Qs HLhgdIH7W8m7vRTZs6Xx7Fe5IEny4AQa208xrH1PrjbngoeEPXi9h2iUmPRU jv1nuaCkBm+tBfsopYQn8UmbLhc08Ztj9t4eo/SEvGC4C7jgu5s32rLjflCW 1yLuHz/BBd3e9xy+aTJB4XUJ2RxR4IJnrI71J6hMUVRH7vtGSnNBq1oWFTWd aYr5Bf9/iAQXDEpQCgsPnKUkKrrOvRHY43s+u/Phoz+U6rcO1w3JXPCD3+h5 T+kFyjDf1XE6Ti5IdOwvAGWLlO0w86sfmLngo5Qu4HVliXJwy2jIho4LflOW y7svtUIBbgaXSBsEOCF36Clu/xrl2tjJ7vp/BOja2Y5vVt6gpDeqfjn0kwD5 VRpMVeZ3KA0q8no9YwRYXq4dWtVCh0zkSDUEDxKg2pnNb9yqOIRJ6DBQ7iFA NId3jlDHgEg8O1A92U6AbKp3t7AbTIjeLq9qXDMBcnR9tzFVZEGcPIglp+oI MKfVLvWQCBvyzpQhL7uUAEUjKqXv3eREWpu3JMwLCDBMXjPtTjcXMntiJZ01 hwBvT5P82xS5EY78Pwcr0whwxTfR80EcCZE+OJN44zUBTisxGISSeZBzUT94 BV8S4JqSl/D7/H2IG244pjWSAPXtGUk9dnxI0VRH+LEgAuyxuaFgrCSEfDX/ zDx8hwCv9xX/x2l8AFlsrQuKuL2XX7/ivldxwgiZUr2jeYsAqZv5KAUniigV lgb8diLAVIe3LxQuiCGmogUrybYEKEZ2VXxVcgjxeZHted6KAKeKV8L/yIkj Fb6JzoUXCFAi1Jc2E3gUEbP3eDtwmgCFZ+J0b/tKIc8MT4/RaxNgIXnBOjNe GlnTFBY6pkGAUge44hnGZBBbyRXTi0oEmNvQHJfxTg5p29cedfc4Aark8GZJ bMgjKrjML1kSBGi0ViVOtFNEOIaMtNb59+plWVKeGqyC+DQfDRQjEeA5nqJb X1A1ZKxkt9yAgwCH8fvDHferI2dS+xa8GQnQnaf9up+AJlIa8V46ZZsTnpXT dRFXR5CD/sHXm1c4YYWZMDRHUSTMwTL97x9OaHGYOgh9tZArCBu/zg9O2LIA tQSOnkQ+S40Zuw5xwixi6ZGWDF1Ege/js5c9nPBWtLL0/hN6SBJD5Ofadk4Y 3C24lDlzGmH5a88w3cQJu/W8zuA/nkE8hzUQbsgJO3m5FUkZZ5HhzyR/9UpO WIPzYH1eeB4pSoPzEXmc0LXGrf3nKyNEMDJesjyTE6aoS56Y6DVGHge42Y8m c0LFq4/vGR+5iPx11H3DGs8J48+7DthHmiIWJvsH5aM4obWtYZg1/hLSCP7x WIZxQu+3MfHP080RGenWC8FBe/nl6ERfNbZAGJj8PvV5c8LX/A8XmhmvIG4L 5+no3Dhh3iKT0kmma8jAiLiG5HVO6JZof3E/vw2i3bp12/gaJ2zoo1R2adgi +eXdRXcuc0KD4aXDRh52CG9G7lymMSe0Pb2gkVBpjzx8/lCiw4ATJjBcYP2w zxExc5JNEkE4YZiDwMEPnDcQeJG5X1+VEy5KFVr/ynNGpLRGuL3kOKG4teGN FFtXZFfg6ZNPYpxQyIygac7ljjgz29bPC+3559zX50b2QHoW1bb59nFCD5pF caSEJ5LzZcrTmYUTeqbap/Hd9UZIFdT3L+g4IW4lUky2/jZyNzN2umYdDx8G tYe8F/BFjO9qX+H6hYfFNuMv8xkCkJobAglqk3h45uvOZ9lXdxAJs7/dNv/h YaegeKewzl1kUyZFv7QLD9MMzwVed3+AOArdDh5pwUNJHj2rdeeHSBfLWYy5 AQ95Tp2qk/AKQjLH1pUul+Hh5JCWAlNhMEJo77oVVICHiZhjiOjEY8S/Mjs3 LxsPv4w53y+SfIKcjzEV2UnAQ26xwhDTmTAkQIFLX+8FHvop3xPZtX6KZH37 7BEVgYf3zB1EqicjkB2SZoPYfTxUu9xwcJM/CpEqWZ5z8cPD7ofqGpJbUYiZ SSFPmQce+phS1qmz0cj7F2KOevZ4mG+QOy/z6wUyoDgcGWWNh3NHTimI0b1E GHtefqSZ4eE6ahGRKxqHWPGwsbnq42FDzH9TU89fIaGl9fJl2njo/sVdY2wk ASm9GGixo4GHXDwDZesarxH8yz95UTJ4aGK38OnKsRRETfldD+0IHnpVmDgf rn2D2PfabouJ4mEzomq7+yEVqdnXd76MjIeRExOKQj7pyHTZc98dPB5mJzd/ PeyUgfCY6afqMeNhWZbnlptDJuISV7NAW+OAc2oKqTmPspA4FR/BQ4sccDvI dzP2bTZS3yer4zrHAa9W/Pxd3ZODCPJlxO6McEDxBt7dKas85NRHK6pePwes 3kzUJ3zMRzwv8U5FdXHA3cmpznKRAqQ1Pkz1UAMHJImirCExRciKqs411xoO yFX4J/TRtQ+I2MBWaFkZB7xM+8EfpVqMBPC7D+rlcECmutxLurhSJKtCkiE6 jQNurA1bvV8pRb6Zjx8bTOSAgQFXzmYslyGSCWZ3XZ9xwOKaqePDPBXIxRPE rLIQDijU7Be5rlyJPKC1dOzc54BrgriZy3ZVyIAARSTakwMO/wvQr5uoQUIT DzWUXeKA/oP16pyn65BS9ZG5HUMOOHbt32gMsR4ZG4zjOX2GA14fKjp/7ns9 oibE7jioyQHpv1hpxCY1IvbVDZGHVDggsb47HT75hERZ3v3oKssBpbvONtsE NiHTr/+y7opywIP/fZS88ugzwqOZK39aiAN22KVyucW1IOiwnUU0Dwcs6/IV typtRV7t7887xMIB1YN4TliS2hG9ZOr507/YId8+Ztxh+a/I32fDW4xT7NDq nKQH6+hXJPHeZm7dKDv8xu0kuv/FN+TX1RMsGt3skFnw9tsEQg8SZ2hettrG DskhBXiXvh4EaPnalTaxQ8zw6Jz6214kRqwMO17FDr/fC24oNe9HNMk9N2dL 2OG/zbaWr5QBZJLhn1D2e3aIe+7u3i1FQ9Qm5fxE0tjhxaSMd3cODCH/ZefL kUP3/EkV6wS6jiKhr7781/mQHZawc+CnDcYQ+bDZiIg77PCQ3Em66KkxJNj5 6AzTLXYooz4o5nvsByJjqRdf78QOt/zGNHF9P5B+A0fd+7bsUNR1W+toyDgi dTwzbc2UHQYKPvk4tzqB9BxouFB2gR3WGWvjRysnkbuEH9se+uyQ5drmQYGg KaTrj7DFnCY7lKyX3uCXmEZ8il+T/ju0Z6/U/iy8bg4RyaiCiQf2/LPl+f6p +oW0vKC5XeJjhxR/9m9Han4j+2/zfeliZ4c2r5+y/+37gzQ5qPg/Y2SHVR23 hvz8/iK3zEyPnNlhg0eT8Egv2wJSr/riUcMCG+zzutYkoL6IuB4tln8wxwZF QnFKKG0R2SfwdVRzkg0O3FdtRO7+Q5w2CJrlA2wQl8pXdrpnCSFQw5dyMDZo 0fPriXn9KlLx/l26QyUb3Hd/u5EhYg2xSflsKFbCBneXGD9lWK4jpfeZ37/O YoNcJfSPr3JuIhbaQQ6Rz9jgz8P2QiexHYRRMY1s8IQNPuI6OsBJ3UXeH4J1 LA/ZoPm5I0sEGzpAx7Rz4KE3G9zRyg518KAHWc3+fV6WbPDZNeVD3XUMIEHB R+fdRTbIb/41mM2NEUQkexb9d44N5ltJWHgJMwFPL5dwfZQNjgdEc92MYQYU YWtEWJwNjqZQWZZr2IBc+OW9ixUbdJ9vMq+NYwdiy6b84XxscFkvOnXKhwOw fjm/uMTGBqsFnsmtn+EEPT5oVus8K6TTmzlyM4MImr9rkummWWHux8WWw9Lc oOrsiQfK31lhfHH+9ZoKbpAqpmCR2s0KZSOFH/waIQGXjkMEnwpWOMwFsrgt 94ErJ0Tu5H1ghb7Bn52eMPECw8z902O5rFDwlUxTXikvUAnYV2+QzApX2MTM PET5AU6CxUc0iBVKU7NkxNWEwHIUw7jZHVbYTh8ersWxH0xv7l6I8GaFNZWB nVvj+0HH1zXJVUdW6HK/mbU76yBIuDs70mbACoN/NqkPqouCiOmpMzhdVnjX /pEEtUYU3DMZ/6iKsMKTE4jthpYYsJccjk6XY4XjZ2xlO80OAbnedl2/fazw IduaLWO+ODiEtha/J7DCLsOsPtoZCcCb1yQ8zsIKd4wa+d79lgBbD7D1cxss 8MJri/NPwVHQLP3h/aFRFnjwITbQwXsMVMW/F7w8wAJrPDqix/qPgXxc7pPI rywQ52cqn54sDWIG0m3WG1jgr2IX03hVGXAlOHZfZw4LdEuY0GbpkQMdYIXF L50Fyr25/WcQlQdg89KGSBILjJflqicVyQMRT6FRz+cssDA7aWXopQL4cTU9 h9eHBe62MDoJPFACxkKMr7FbLFAx9uqqEb0yaOhzeOZ0gwXeup578NxjZZB5 TtKzyooFnkmvjKW+VAGOGkUaV3RYoEac6KUFmhroW+GWYaGwwHeyOsXZnieA XrGXSJEKC0zDh02EEdTBUUlVJpwUC8yeNG1hM9QAs7y1HW+JLDBvYiw9bHPv urL4xeb3CDNMaKfXGqLTBv+9P34xrp8ZeofrLnI6a4MLN56fAl+ZIY9KubVR rzaQGzM+Ft3IDB18ngRIF+uAxXbaklIeM2yt4uA7GqILbMM0fo5kMsPwMpxi D90p0H0ymRaSwgyz+vSG+++eAqXV12oHoplhXCVNmeO+HvB59/NJoB8z/ETw enz8jT6YstcPEPdkhk6Kkt9Sj58Bl0TyXDtcmKGHZsGxytozQC3ezUjkKjNM O/2jg37GAGwELws26jLDnOar/rxXz4N71xgKOMjMMCiQCO1+G4GiTr3IHjwz vFOFn7M/Ywx+IBFuyczMsKVicmI3xxicOrBPVnaDCR7/HTck4GICCIMSRcbf maAKTJq/x2AKUH2XKKEhJtiGO2Xw56Yp8KwodJ/oYYIFceUsRwdNQV+cmrzP Zya4q6k9z15hBlJMzhQnFDJBx0/fUnXCzUFXfWSM7TsmGJ5a3pLBcBngFLo9 j2Uwwe+hcpd37l0GjkQrRWocEwyk4Ctr7lgAmfabpWN39+y/1MzxRVoB7FR0 +ZGzTFCfl31OJPIaWCzrjfurywRnPW48OzF8DRwWF/StBHv4fXlByDEbEMqQ oWqgyAQnPi2otrfbAENYWuEmyAQNUS5vb1E7MHZioKpsmhEGvZfmfsrqCEjv 9r++94MRxud5fytzcQQn+W3u6A0zwpOxDY4mXY4gZ2VGg9bJCC+8uB+1mnwd uJds1myVM0JL1Fz4ssENQHdcGNN5zAinLzzi1lp0BYG8Wlce32OEubGyfzT9 b4LVXdvtJl9G2DeTigCcG5j/lqVxxpkR5p097OMmeAsM+clUGF5ghNe2xpkJ xe6gvJHywVqAEarNCqtvynkBhYKrhm9IjNDwv985pBAv8D7+4Z8xDkZ4IOlR q/WwF8h0/nTcfocBBpux9b6O8AYxxHO5zuMMsDVs8B1x6za4aWWV4fueASaV VBaWC/iDad172pVZDHvzBPfm2SN/YC+b+n3jDQN8zUPMb5v3Bxa4CeF7MQyQ 1lRYEtUSAE7nuCQF+zLAdu065aioQHB4KeBltBYDlKi6fb5K8QFIHUlS6lZn gIYDx++WeT8AQs213TxKDJDkZBjxoPwBICXiSK8kGKCtHLz5TPMh2AXhkSkc DFBcOet6qXEQGHya8CSvFwcbf6XXfckJBt2fRPKvdeLgKjfHnQuLwaBtN7tr XwsOSk/bnEvTfAxqvcoFHtTg4OVdW6Wy7scg3bI772IGDt6/mzDVzPEEOB/j 7Np2x0Exudyy6cwwYOcQu1TsjINrp4UL6LfCgNUbIQEnexx0HFLC6C6Gg/Nk Kdtvl3DQ/u+y7Efmp0Bh89RSFrIXz6DgDVnfCLDZ+oDfEL933nPc6+THz8ES IyuFiRkHj+NuXGubew7mkec2Vbv0sG9jMzlQMgqMFSfnHv5HD49MGsZKxkSB xsQqzXUaPXT79bXg1Y1oEOG8dC09mx4m7k+LdZd/AfazO71b0qaHWYyn8vik 4sGV2rYIMU16WOXNEId4x4M0T3l3Q2V6KJk/+HUfFg8khjZU8o/QQ/HxzoIB s1dANv9Zox2eHrZPNA42RyYA7fMlo9966eBmp2IHs2gSCMbxN9B10sGe30XJ 8T5JoLk8MEvmMx2MPUlammxLAmeFT90Mr6KDzQyLRrV3koHZ34ENrTd0MD3u E+r1IwXciNnZ98GJDuIXw5f1Z1NB/im79f9s6ODC2w9PjwmlgfmN5mG8JR08 XdRe43E2DXjaRWc4naODPlPbuseL0kCg0mF5EQU6qHFdgc85MB0cfP/i1cHV XcyaFn8dPZoJXJSlmIb272JnXj7hM+nMBp5Mldk+XLtYd3aDuAo+BwT06p0h 4Xaxi3/uuAXp54Dw2w7P9X/uYGckHzpc+pQDcstSBSo+7GBqOf+SV+vegRll PpmXp3awG9TRRIXOPHBdhfHSBfdt7B2D0MtjB4qAG/OL9VnbbaxExe26oXYR 8OkTTQox3cY0w2ev510vAiE+4DtVfRtDsPJlhpIikFUe4CLNtI19O1YvBc5+ AJMqC/fZErewQTrV3MHQYmCn+l9OQ8Mm5j+wG2MrVQYcc1TNTn3cxGr03Y31 TcqAs0A0Q0vuJpaQZrBuHVgG3Dd1rnREb2Ibxi/fEzvLQCD2jky7uolpGIle S/ApB7F6t+/Nb25gGq0Btoc6PoKmS/iLAkobWD419u/FlCog5ae+65a5hvmJ 0w/et4YAjpyXGo9bwxQzxzWt/SEw07EzvRS2htkq8wxdeAlBECEiD7itYTO1 2ore7RDQMkcuEdXWsOnjumJlSB0I/fqg6MOXVeyWa6TS8uF6MCXVbLO0uIJZ f5y4d3K3AaSNmDT6ay1jOsq/sorHmsHPh/s09fgXMXhJ3TzSpROw3y3884J9 EXsTNINXi+gEMn76GWNbC9jz0rM6w/mdwMftLnvA9wXsqNBLSfJ8J2C2nBzI z13A3to//iSg1gUOK5XdJlEWsOgrh0lBlV3Adupi4YjNX6xh29sxrOIrqHp5 VHfa7DdWr2VdcyG1G7Ba/rSj1/yNBY6v/3xf0A3MRLKCBEV/Y7NTzLn01G6w mHsInp37hbEaHnoYRusGkvCgxof7vzDvJfNbfKQe8GqWRz4gZw77TzPtDM/D HnAb0B/Ab8xgz/qemw+Y9oJ6RqghPjqDqbxxEi+z7QXE1nsWSOMMJkB01gq+ 1QvyL27Fu0fOYFIVjCzrob1g4sYqqVdsBtvNwuTVq3uBcexv1hSDaSxS16iD +UAfkJuhLckmT2G+en8rZXv7gPff45J8wVMYQ/GpdrfRPlCx+tB6x3kK86B0 p7yZ6QNazFJNbWpTmJjWU9C33QeMDwXE3+iZxB6b0LpfiveD29aC6hkck9jV ZLskI89+UGXv5ha+OIFp7hJK397pBzsu9eketAns+pmYt7PB/SAkwJkDzZ7A jE8PfD8V3w9exVcND2tPYHo5lMt61Xv2Xy3u8waMYxnmBaHWdANgZ6CgZPva OBZ6av56JesA0B7DTU/ojWPMQdrXmLgHwJf5XMOSfeOYntqS+03RATDMsSlq +OEHpuYh/itQawDs6r5uDJv+jsV8jI2KujcATlYNsW2bjWG4cG/Xs78GQEHu 2xPNGmPY1Zag0yL/BgD/61s3okXGsPZjBbJj6wOgb5U5xqBnFFvflKc7zEID 4nfMiMkb/2HV53iHqkRooP7hMh7VG8GOpDDmCRvSQJxtmGsPcQSrrxndKjKl gRs6B9qcBoexHfuopeOWNEBk0n0afXMYG1aRaJh1oIGrobFs4y+GsF/HlJ1u BdDAVqQic8gYDVtt7O5Ke0MDXbeaHQRzadiYwYnGuQwayDC0/FTgRcOyU1WP iebQwBnSo+B+ZhqGv2Zw/nwRDSS8/IaTPD6ArSZUfvmA0YCrj6MtdaUfm9by olxqoAH00kadEezHxJxs9k830cA0v9jDAJN+7O2QgVhbOw2oJHnsfvHvw35a s1glD9L2+onp6jWdPuzbVI1OyggNjFgn1C7h+zCG/lsp4WM0ECxcd/dAai82 lY6WiE/RgDmd6ciHG73Y8jmCR880DUh/n9Y8pdiLjRSqvXObo4HudOKWW1MP ZsnJFuPwlwayHmVaMkT1YNKZfXr1izQQYK9WHX+5BwvquRDEvkwDYhLXAuCv bszzV0y09ToNuL8rXOMmd2NLJhH+BPpBIEdwe6Q99g27KX2CmIcbBAue0gSv 998wkTm7SWXGQeCp+e5Qj943jLO/6TIvyyBQTLtewLjvG8bxKZnOlXUQLDFJ nFD+8RWL6JNdLmQbBLc708/HBX7FJh8oD+Dwg0BFyYbWpP8VM/pwsZObcxCs vBK2X+X9ihX9fizORRgE5dsj80cmujClOY/RjT3sa5vkb/6hCws8/YO+l2sQ qDVbMIbd68JYbtRFJxMHwdoxgeeVBl1YmKFg7EXuQVAZ1S8wy9+FtdzlJ2zs 4X+zx/SV2zox408sTJGkQeBdmnMlzrETaz128R6RvHf+XXHvVbpOjBOG3X+4 h3310sPMX3dgq94XCd/38BpR+E2lcgc2vnFfTpZnEPgPvi4V7GrHVl6tzrns 4Y0M/tY7zu0YJ3PTqfg9fOfmy9FhxnYsQGuf3oc9vKVCWqa8acNuu8j8q9zD d+mes7850YbpJfsb/W99p4VDhK7nC6ZXd9fpf/YPXoQq27h9wVycxxDXPUxv zWRQz/oFG81zGPrf+UESQdcOZbRiuL9/Tv7Yi4/x787tYEor9qTzftCjPfy4 8s7Tyf4WjGNa8TV5DzM/Wks95dmCvSg+HRezl/+Ts7fLs/Et2JfL/Hfo9jAr 7+IX1uzPGGeUoJH1Hl9ho27fb2h9xsQcJoTf7fHL/m5upXWoGfsmdPTP+B7/ Tz2d8NI+zZj2bmkT5x7Ga06KPiM2Y3xqvgUSe/Xi6vzv7AXdJkwleahDfK/e Ua8sbYtGP2F3Zyb48ByDgGQ74Msd8An747UQ/X1PHzzLX9O7CxqxrB98GhZ7 enpZe75CSb8RO8fsf2ebaRDwhn5pfznegElHunBF7emPX+jT2iX+BsyMUGf6 aE+vCRNahMriekx0UFdwYpcGBAtqDwmeq8d2zd6YKe3QwAGtivPDD+uw+n3q VhkbNKDTYaZf14dh6Uofsmr2+uOUjaH3Iw4MexZYr5S41z+nl/Tf6KK1WPVp 0dDr8zRwVpCy3PKuBiMU3sj+OkMDZo6H0r4FVmLCQgyzE6M0EO7hFRpTVoFx bNIfv7DXz9TAhlvG8x+xmXmZI7l7/X74hR3y7Wo5dvqSirNCLw0sYhlDX7VL sOnCdxeetdCAxJd/9dF3irEduePu9/bmx+U+nVyj0g+Yw4xh0rW9+QJ/jft9 FS/CcI5AZ62GBg4qnpZO587FziZH4XwKaeCx/vSG6KMcLO+HVfnfPBr4dTW0 JW0pCyugXOm02ptnVRGfHdP6M7CkccpVtjQaeN8Wra2l8Rqzz0KQsmga+Psq wX4hwRZ7bZvmZetOA4G42E+n1PTBdj8Xft2FBmQS7Zp5VG4Bqe3x1ofXacBE caAmRCsYlKD28zeu0ICHo8tMY2wceJ3UpxBnQAN0dGW7drXZQDjwG4/zIRpo bqOFK5pUgO3k8jPWLQPAyW+w2fJYJfAoVr/fUT8AWA8PMQYzVIHM0EQH+ZoB cObO8L2ekmrwJUk1uq1gALRJjnre5sFATyCvk8WLPXsdz/dDs/WA1hJmO3F5 ALim+r48kN8CrLwfeamM9APNldUSef5WsKghYorr7Qf4s37fdINbwYeuXf36 tn7wftWPy83qC8DeH685WNMP5s8HhNXi24GohOasQWI/qLhXW1uosvfdskzF Qi/2A/XjdcWG8d3AJmCwma+uDyj39MXVtnSDhqMmeLmKvff/nV8B0lvdoBBY 8aOFfUCihU+H1aYHeMgbfdZL7gNkB7duTKoXPBhhNVz16wO/koSWZGr7QLXy AGVSpg+8wfsoc07uvXeYqmTdXvYCnM++YXuBMXDtgtaRcsMewII3fGg7PwV4 jnwZdL76FTwa69PxzPgNJpeDTkyPtYGi1yGG9xYXgN+5Tp/ogmZwK92eOGG2 DBJYPnW9TqwHkf4JSZF2yyD/dJbKSmg9KDDsOHrCfRlw3IrvtfCtB/M7qlqR YcuAYOfSpX2xHrhacniq1SwDHJoiH0moB848xd0RoiugvlPpAO/jOuAYshun /GsFIIepVrgACK44Jx548nANfP6sxJXIQgWbNLaOhWdroEhdZUV2tga80ve/ Z5W4BqJzZ0MH22rA16Pmo/IlayB3XvDDzZgacPLnvrThiTXwycqSMeJgDZC0 jz6scHodtL9g2p+jXg2WrEOPjRA2wM8Lt36ZBFWCMCOfE4pJm+DBq+HgwfPl IKZNyjX/3SbwCqBqBiiVgyS90RTxj5tgK6XSQV6wHBRRTjPyf9sE3ffafk9O loEBScHOLZYtkHU1kfH6vTJwFFdr3+S1BYJ2TD3rS0pBUzFT1GWDbWDlR11P ly0BXcer6r+ZbwMTL1sGUf4SMJjjtmzguA28+Tycy+hKwHxKvwXycBs86j0q KfqtGPA+fSd+6OM2kKr4fIHBpxg42J2r/iW2A3ItzLVm6j4ARp6XU/c3dgBe XiDk740iQJq/RyCx7IKiLVxNmFkREP3spJJJ3gUFPyc0lXWKABKoGfJZehdc nni4Xr+/CPhPjItzX90FpI30DPe0QjBfquCQ3rALClctcYx+BeCX1LSH7Sk6 1O3jr4Z4kA+W+EYe552lQ21ONE2oHMgHm4zfEpaM6dAnZqUH1jbyAPtodV3I VTpUp686eKw8Dxx58Zw7z48OXRmnjp6SywO2myof/uXSoRfsYl0vSeaC/i+P /wZz0aOvJNX1/inmgFgkWdeUlx71w+K9xMg5wPhDaaL4AXrUPk7+uc9iNuiI Gz/ZJEWP3stPFn/2IRs02WglsJyiR10ulHx2l88G5atbWuGB9CjreGn6umoW iDvk/eL5DD0an+j85fzVTHAx7un01b/06Pfb/pxT2pmAxJZBkVulR5NPn2xM kcgEkfNff3Yx4lBHBT8R7/kMEFIpq0kSwaH3w1+F5N3PAD4X5iZizXBoI/tQ rlJOOjC9Y6uS2IBD0347c8wT00BcMg/zagsOtS2SviW0kQr6sKZeky4c6lXp vWk7ngrMGI/d5hzBob9Nbiuh5anA/Nm/kgcrOJSp+XalnHUqsHgTLH9dkgE9 saVg/v7qG3CtIUta6TkDmriEtqp1JoHUSfOtqJcM6B2Pasrn7CTwnYWj7fdr BpRxP09oyIMkYHv2lkt2DgMq4zS9HKmQBOx6VXMF6xnQIAX/sNZXr4Hjz89H 6JcZ0ORRCbvmm4nAlWNOrMOCER1c+ShRrPYKzPlXMXLYMKK1XR3u3nyvgPN0 2JTedUY0Xti0+spKPLj+6WhunRcjOgNGK3JL44HtfUf5sghG9KmdrfR+xXhw +d93kFTLiJrJpU7rqMaBU0MDVs5iTCjver9TumUs+KSfg2QfZULV6h7J7gex 4GSFr8iEDBPK6spqVikWC7Re8k5YazChce+XFa1nXwDNCxddjC4yoQFCIUZ6 d14AhYZOf7UQJtSTb8IgJCMGCOc1xTHPMqEeMTuPqPhocPFNRWXrXyZUfcFy 3HAxCoS/yB2OXGVCpQ+PdrEORIGlO5FifEzM6IXwkILJjCjQetas4IgIM6o2 GzVxnhIFfOYnP502Y0a3t3+d8fkdCdrlmZbD65lRqtC33DqmCICTWOW70MKM Jo66k91oT4Ga4Iw6uYsZfQRnYi+/fwrSce0PXo8wo5IpLcW/TJ8Cv+5YfP4a M/rq1Zrg5rtwcPj24cPtMizoEN8xH1/rMHCnQseE6zULqul+32jxTwhQsOr6 ezWNBS1ZOu1zoz0EzO5aRRZls6DHIgRruPJCgIWeT4tRKQt6QXetfdoxBKj3 7fVMOwvq4r2Po3nsMVj7xyktQMeKHsZxRDCOBAMf2QHGQw6sqG/Df/6klSAg 022f7uXCin7nLjFgpgWBKZ8F0OjBip5TelwsVhMETGvZ7zjcY0XHWZf8e4KC gNI5ykJ2PCtKeNHzkpcUBP45p49It7KinQ9eNs+qPgTuWa7lKrJsqI/9PvV9 4D74r1PoJUGFDY1r+fDKgv0+OLfe6jWlyYamlyvFLPTeA1JnJeXjzrChRqpt CSS3e2BiYTJv2YEN9Zb88Jcn/S64RLmaVprEhtrh7Raq+QMB0mMUocDOjo7X 83KWUfxB/jadCzs3O/q9bMH5KskfCB0p0v/Bx47O6Qbanf/pB9b8CSwx4uwo 68136WvRfqBY+MvDBZQd/TS/Nu416wvEXU76FvmyowJL7XIl2T4Aj1O1lZnc Wxf5LUQz9AaVvgwmU3Ps6HU19QFWGW/g+LtTJ2WRHX0sRBm5xeEN4ICTOIGO A+23DA350eQFvAoTp38LcqAC09UdRqgXGLTacXtvyIGG7e+Q2kfxBDkfP92R ruFAK5L3OUtauQPT4zGuE/UcKN2sSnARcAe4jCvWSS0c6POBNarDIXdgFbmK 4Ps50BOdwYwlfbcAl4Mk7tcCB8qJKG5SN9yAD+lZaN4RPGpypzjJ0OQm0L15 8aXUCzy6OS/I/U/bGXjHVNPdSsCjLLmS47l8ziDzo5hryRs86iH18OrbXzcA DregrZmPR9+eUfx+Lf4GgHHP/p77hEfrpGKnf/5xAuqwycBjFY8yGXT6TOVf BzLkE7gKS0707GmxMHDRAVirpd7csuFE3dw3qW/kHECENQsNdeJELTNiMVVO BzCX3VvY4s2JnrCbn+Zstgc5mp7WQ8840aKoF5JnKPbgkGNexQ7GieZc0DOp VbQD/JUHbukeJqAWEVWFoadswI5dthD3MQL6sOcE96CEDZggyH8eliegF039 Dtiy2IAi+5Oi3oCA5plOD/K0XAN6RJfudAsCOret9Xjz/DXgc71ClS6agF65 XUHH2nIF9O4zoaveJqBM2RH5CU6WoAoO54cwcqHKxUkKOcqWINXF8bIxBxea eP06P5HBErjW+RfP8HOhrYsjtTMpFoDxZqo9vxIX2ptJaS4dvAyUGn9/vu3M hW7yc8/L2JqDGM/QaLl+LtQoTkec+b0p2GjLrwgd4ULXQYrwbIgpsD3ydXRs nAvlMsCecNqYAsVhAZnov1yovhvGz81rCmbTTSfXGInok+aUN3SPLoII/M+H lw8S0XACmUPGyQR0jLJVCxoR0Yj13Oc61kYAx5nUceoiEWWvUpi7hhgBFXWZ H56XiOjFPFnnYmEjkBJrzPbFmogO5s+G/f1hCG7pv750x5mI3vFru9nlYgiI JdJLQ4+IaIenkHUx5wVgHHLheHI5EX3cOV66gBmArMt/9SsriaivwMZh3HMD sC4d7dhbQ0TFS/wL7K8YgNTub284G4io9uNItoM7Z8BvETPSvU4iGikXN2ei dQaEVlutXpkmoiOsnqSrfadB7d8bdSKC3OjRLr7efNVTgNTI/p/mAW40y7u+ mEw8BRzi8zbMRbhRSmz2IHVaF+CR34rREtyoY7eq5WCiLrj81D2LXpEb/V0T /+AoThcsifs+/WHAjWr3KtvVDusAKctg08y73KhQu2oiH6YFLnuUkxgfcqMm KYp2bklaIPTJdKddMDfa6iE6yBSgBSZLzp459JQbvVRYwr6srAVS8ftA+itu tN773PHPRSjYV/v2aGoJN7o+rYdrsAOATrR58/UMN7p5qEONrVYDyKquV2z+ 4kZdosVLdJ5ogCvnjvlY/uVGn32eL5001ADV/s//Cq5yo/vFi5ytJ9WBz7dL kwmMJDSBjfstC1kdzD2a7ogXJqEMlUZ2eQ/UQN8UW/oLUxLacbIGH5GqDJou hiVVmpPQI7JzX0/5KYPyetb4UUsS2moYF6xvqAziUlgijtmS0E8CPF8O0ysD UzMmnwY3EmqEvi8Rd1QCPZ/ozvx7QkLTTyfwzWoqgm+ZqwvGVST0T/lQlYug PKgn+f7yo5LQqvR3NN0NOVD8YGUqBZJQ/Nh+VotBORBjtTw020RC7SoRJtnX csCI59+noG4SOvU4ouaBsBzoejSfUPxrL95jiaz/2cuADttJLZIwGb1VQH93 dlsKfGfMXnspRkYtrTl+fG6UAktZToUCEmSU7zaaIxQhBQTm5vaLHiejVfoT XYL7pYC91+KqrAYZtW87qH5dSxJsPNp9f+4SGY2+v9ERkHoEcErU2X+1IKPK 4l+K1dyOAJHPQUKmV/b8FT+MstY8AnTxzGFWDmT0snEjD40mAaJi8fYuXmR0 pebJ84cCEkDirYBg2HMyShm8c+NP7mFwQm+oC/+CjP7jC3xad+8wODuT9CQq bs9/oPXHeePDwOO4yHJ8MhlN/mdy7dLWIVBTJtGVlUdGo0Rzcs6bHALGTYoh jc1kVOOsWCvCLQYcnJY1T38ho7SG8BPus6LAj/3jvy8dZPSDHyQvNoiC5PPq Nt29ZPSo+p2nE76iYLoP1fwxTkZzRXKsvcZFwIYf7p/DTzLqY/r2Ly8mAjiF Gt/NzJJRL1YtEvNrEaBwVY9vYYGM0jc35DSaiABderYO7+U9vo0llmLkRIB5 Rmvw2hoZVfITvJPLKQKcdSM0ArfI6J038pf29QmD//9/E+1nt5pxiBYG/weh /pIC "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-5, 5}, {-4.768167416134675*^-9, 0.4075150370423935}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.467555505757749*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"nf", "[", RowBox[{"70", ",", "x", ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{3.467555532377433*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwtm3c4lu/7x+3t8QxJKWQVZWeF+7xRSVRSKFHZoiRkJyspIxkhklG2bEnl vowIJZuHQinR+iBb+Podx++v+3gd17iv83y/r/XHtcvmqok9EwMDgxgzA8P/ fW98Pza7sUFDO24Z0J7IzGtP+AvMD/+joXZ+/PvA4rz2cfLo4vNlGgrqcyn1 f7egLarhtnb1Lw2peJVF7Ihe0o54r85gNE1D2Z98G7J9l7VnrBmZ9/ymIUu7 tEslrivaDXfjOMYmaOisetRYsMc/7b0i57hfjdPQsvuR999C17QTKsRJyWM0 xFOqEcGRvq5t/7GSZjxEQ9ufWL9y82HAOOQGhNF7Gvonn9XrxsuMXWt4vCut jYZqgvuVEuuZsSEzJwmfFhp6KX5HTyCABSu8uSytUE9Dz8KvXuFmZcP4+Rv2 8dTRUOpohstsDxsWkHdXfrKWhmy6Uhl3FLBjx7uEVDIqachlQMRa8Qon9tz+ q1pAGQ1drzx47rEFFya6UnTgzDMaej/16/JpY25sRgzDyXk0pJ0l5lpiyosl eF40DEqlIQUWC/r+STK2xiF93DKZhkxm+c13hVEwh0czxuqJNPRo94NsF0kq ptYcYjYds9mflQbnBx8almFhePZdJA1tqZa2OLyXH+P4j2aZF0FDzTzZ6wPj /NjQ1qfWF0NoqLclfNdWJwFMr+iKndZNGjrYs51Vfv9WrAhXdRQMoKGk8i3C quyC2I1LLZc7r9OQU2/z7uWGbZjoyylv/BINDft3HeBK3ondOVHut8NhM/+1 +z/rZwljs+N+N5ZsaEjf07rKo0oEa+ThCS21pKEv9b59n1ZFsX2ZvbeiztJQ FrebcE38LixB5VGEkxkNUZWW1zMVxDCH83IxosY0JLOD/tnATxzrmF2I/WdE Q+YxnUVWuyUwtdtE/KABDVWZ3S7fNySBcZQap8Tq0ZDX37Ur1SelsEJGjycM apv9f0vL/RQtjamfKmBLUaahE1Xx5WeDZbDmJ5+dFBVoiNYg9MT3xl5sTN9Y 1kaahvR69Z90xcpirim3761Ibuo34zLxNE8OW/1RNxMnRkOF/l0PzdrkMYEY 2epGIRrKTVQdMhZQxJ6M2glaCtIQsyNfyEK1IqaomOY3x09DqnZL1ppWSphR LxdIkjb1CLnlZPtSGQvZPtkSzkBDJysGFFsaVTHyZREZkTUqitAddlx8oIY9 em0W9XyZithiWsKvXVPHai6+MZ6cpaJnVy0TNbQPYIfK/5UH/UdFJl/nTNjl NbFu5v1btv2iIv7d4WXC0lrY75wsusE3KrrWcWULroZhfkt0zS+fqWjv3M+T Q4aAcRylpPuNUNEZhuDz/+3HMbHfN20KB6goXiGquMRaBzujbPWTp42KRBsM ZYpW9LCJsIRjT5up6OaT69FSJQcxj/72Eu3GzfZtq19KLh3CYnwPeLq+oqKD Dsus1TOHMaH2a/1sL6hoILToUwqhj+XtyFd/XEVFknMRXRYJR7BGYuvah2dU NGfq7nbq1FHMmHLiglMhFVX0H5hf1zbERmzC6xnyqEh7FayvKhhhS6zztxQz qSidS3g6RfY4JmfUTYqPp6Ir0U243JGT2KtHnNf2xlKRk9iH0f1jJzGD//Ce xigqEgtfAqUbJphdXEnS3C0qsnp00aik+dSmPyeWo0KoaJg9+WOQx2nspoqw peRNKlpmb2X9LWmKPRyMEjXzoaJzT1u1D6eZYXtkmkL+eFKRy/cf3PcummNV /qtfw69RkZTrfmaZvWewTmHn/OfOVNQ5M1K7o/csxmqvr7TNioqe+zholPtZ Yd3nFc1/nqUig3i2pIMO57H0M0IBr82oqIZTiug6cwFTNfrvjbUxFe2Q9e7p zr+IOSgnnS3Qo6LZypiWjW4bTEk2ODAApyK9fbLZiY622LqUS/ZxbSrqeEWQ wxjssKTt8HtWlYoUtG6rTYA99pbxe5CmDBWJS/UaHV9yxBJWO5/y7qYiLpsB LqUKJ+zifG3bqDgVcWxfx/w9LmHLkzH8YTup6Nab0w59LC6YTKdq3jsyFal5 Pt3FfNUVW2gVfZ/OS0WRpIpMh7NXsYZGrlk3LioK4V7T0ZJ0w849H9HcwkJF kzEp4qWi17Co9PAPVosU1PayfrRFzwM7k+w2Jz9HQZPFicfM+z0wiTiLbUwz FKRy4NQttiue2OtbcrY5PyjIb/Xip/2517E/l/sX/nyiIPsAxVQeEx+s1gEJ 1Q9RkIbg1d1dHL5Y+MUCPH6AgngOsnrnN/liIqcD76p1UVBJZBu7sJE/Zqwp JRzUREFJEWI/mNIDsR0qZD2TegrK2MPIZhR8E5uUW3GUqKMgKT1JeyeVICxY rKPs7XMK+sD/0zplTzBWzul1iFJIQZzeJU+41UOxQOaLzuO5mzx157+VplDs 6JrBvaonFKQqKLFWaxqGfZneST+bTkE/7lD1KaG3MNrgm8tZ9ylo2VYw5C9f BIb2ZkaExVCQocInpfbaCOzyzYAnDpEU5OsoE7fD+Q7WLKX8UeYWBeEhKRmP +u9iftczDCt8KMj/0tWnZj+isd2t/o6J1ze531FC5VUM1rvDPNTbnYJiZpcs guPvYXJNvC81L1PQhboKrev5sdgXqr9M0wUK0uWb774aFYfdczA7nGO5WS56 zJ+ZNx7TqlW0iTi7OZ48xaHR2HjsgfVkitGpzfyR5B83ZiVgR0tNOfsOU5Al 75+N8JkH2CKzouRzvU0938UKFsckYU/MeXRS8M34mfQ7WuWTsfX1Bh+rAxRU tKPDSj8wBSs/pjD5TZaCMns6yLQTadiFTG6WtzIUZHVdNq6A9AjjmZ8QKdhN QY+Ungex9zzCHNIembvuoqABjMYY5vwY2/6Tq2WBn4KiWnxuf3PJxFqwiS+D lM3yXrVnDmOZmGdc/XotiYIkg2JV35hnYR0aPqo3OSjoRIrj7vMnsrGQiG9P 2f+Rkdf8DPWP7VNM/iOqn1oio3rHXKfDM0+xj/Jpn9rnySjwcLM+b0gOpjpg siX2PzLKCuksUH2Wi/2QRGGC42T0N4zMhCsXYEm+qRkro2T04qZT78mRAuzg e69XHz+SkapUz+0b0YVYuqfsXEY/GWUum08GLRVhJo0PbaXbyKhtg6v+L2Mp JtH7daSlmYzefVr9t9W9FFv4Kmfh0EhG5z79WNv5rRRLYWs0zn5FRhkfBE8K 9JZhYwY/tXeWkBHLfVIYMVCBlVuovHhZSEYJw4rxCxcrsVCXm/st8sjIpeK/ 5dzflZhUNG1vUiYZ5S0c0+igVGNXOjUFKQlkZMz9w/7+7RoM+3wrviSWjL4b KXAxyr/AyLMfSMejyeiOUr1ixtALrJJmxxoZTkbTSswiXdhLbMUsapbFl4xI C9mHB7XrsHeO/Veyr5PRaTZRg1ROAkv3EZ3ScSeju121ZnZDBKbzsHI00IWM JvaDO/EGYRGfPr5bsiKjkknJhw+TGjCLP1JHkizIKD6tdUqH1ojt23BrVDEn IwafF1M/7jdiH0RZa92NycjQbfnF7eQmTMBONveXLhlVHV3XnnrXjE16eotF Ahkxby0zSLZpwV7cqn8krUVGn1cOKo6stmCWuaYJDipkRLRnPgjSaMWyf9wI HttNRqY7ky5cH2/HPFdb/gVKkFG+VKiUXPI77DAP1WfnLjI65ju0uu/ke+yH bI6rxXYyKiimrVl2dmAK1zrO9fKQkbhvqsUu5i6MKURwwJ2TjIrEGe/OXu3C euNsTChsZBQncNDy2GgX9sfp9/20dT4k6/hbcvBNN+b/n/bl2HE+VOnwKH64 ohdLs1abxD/xoQX5Tmck24e96lGwm+nnQ13KapG6BX3Y+nNxS5M2PsSkZzt8 qrAfCwniNOIv40NuU7JF+z4MYtmzTG+bCvjQNo9C8YALdKzJ7p/e9Sd8yMnm RDl9lo6xGfyn2Z/Eh14XcFn9ExvG7lL69iYHbvIErppW8AkrDO3IPeLDh0Yu HfgsYDqCvZtvEV++xoeeGOh67GIexUhDtUIW9nxIu51kJaAyhsVlZXDvMOJD hXwa/LwVn7GHypd/Pt7GhwLVmHfK0L5hL5/aOxrT+FCY7Rs9yzvfsI9bL4wz 8PIhF0O2QwuME5jwv5PD1gx8iPO5O1fsygSW1aTWLv6dhKTnKjnyuaawRlVF /d4xEro59267Y+IU9jVPpjFsiIR6y6Yf/xH7sennnS+/vSch82lyQ8zhn1i+ KXNhbiUJ8TKdm48t+421tfyTOvOMhDo2blcJnP6D/dBYyOLIIyFmAg70Lf/B 9glPPbyUSkL/7Qk6lbZ7Giud6Li7N4SEmvifvHp6fwar8X7oXHKChF4Hq+eE E3OYmN21p4NHSEg4pjChRm0eizY+MsaoS0L9Q8eKXMvnMRvpBdPT+zfHI9+C kksWMO7hkzrLgiSExrmPHW1bwrxa9gSIUUmIo2NmgvHMMjZWsVFtyE1Cp38z CudMLmOVUcX70td4UfeM+tdf1FXsPMYpqPeFF60JCVfyRK9hb2XGTC4P86Le FbZgpLyOKW19Hp3Yy4u+vlvXHPy0jrFP2zFPNvOiAL/QRQ1hBijNRH+iCnmR /o4VxaQ4RmBm9XnT78mLfJMXb2wZYgHXmeMMDK68qOTOiZ50I1YY/CSpKe24 +b+F3Rdc6lmhqLqn1P8sL1qWTKhZLGMDMyf5NFGMF7X12JK5Sjlgc6IPGKjx omxNm4eDKpwgo/OJ4qHAi1ippUs6dZywsS3y9hsxXmTrzm3CP8AFee0T7s7s vCjILzGHW4YXqDWvi+MZeFGcB2pibuaFG08SJl8t86CtcVt7lu1IYHJD9zzf Lx604Hd8lb+ID1bl0g0qO3lQ6LlRpKdAgeNxpqLrKTwoO/fy/G01fvBT4jPQ j+dBhpKtnfR0fsjpfnstNooHFT4qO8DHsQXWqVqNYjd5kBFJN/3g2BYojhdz 0LfjQRNeb02IvK0wqPwxJtaKBzl/X79DFRUElt7E53QzHlS/fEI0KkUQLPk5 OS8b8CCzY91CAvHbgCfxv8JYOR5UtJt0IDxTCNRV8nvpu3mQ3JSvP8/eHWDX Z7MmtosHGR/i6GZ+vgNebek/XkXjQYmaIQ+v9O8ElwevZuhL3Mg+yn6v1HZR aEu6oybeyI1cZyWx7loxWFDTu3j5FTfCuBMCUraIg9jgv4iqKm5EJLKZz1wT Bz9BtyH9PG7krn3nnou8BEinmN24HM2Nwq/8uKZZJwmnNcg5VeHc6NF9bXt1 KSkIord2rN/kRpx8Fv7L96RgcJu26H13bmTi1Hht3Gk3RDwUb6wy50YLhQpy QorSUHng0891Y26U+FPr4FquNIwNPeA/cpQbNXbJJn0UlQF1IS6HIS1udGuC SbdMcC9Mpk5zbOziRgPz3kpRu2RB/9Hr40d+caGjrxs5Ej4owHT0x38sE1xo t2FcX8JWRXgYuFpQP8qFFvdTS4suKsKvCxrsmj1cKDtz8qbCgiLEiVURsrVc iD+BfOuvnDKM5BYp0CK40Eqbt+v4kApEJLePfAjmQiKS14/sU1UFxTs/oqL8 uVA8lwv7+zhVCHPeM8V6lQvtLexm2mOsBjKyTzKXTLlQwMbRI43D6uBVnkod EedC31ZLT1cc0ALR7Fr0cCcXkgu887KgWAta4+mu5lu5UPPNAyz6Ytqw4/rW 9k4uLrTh+cMglIxBg1p8aOMMJxqpoEZ3MuBAen13Lo/gRDIuFkIFO3Whpjg/ y/4FJ9LXTriUZK8L1ulvjcUqONGJDtVbYc90ofImW3FqDidSnFUPctbTAwvd EPuYaE7kumJc+9r3IOS0+PZ7nONEZ1sPcFoJ6UOKkpde/mlOxPxXKNs2QB+i HrmXjhzjRH8uVNX3jeiDu4fLXQOcE30FlT+kvCOgLWKFiUhyonEz/aNnjI5C rxee0/aHA5kLqJrcGTsGLZ+1aAyTHMjsV25jhMVxqDXSCFL5zIHOcXC+1+0/ DhliShYZPRxobMhyz7/uE+DSIU7yquFAVwNdq0gzxsAkxe61K4QDpWYKveeQ OwXzsczjZv6b3KJRJut3CiZXN05EeXKgfq87s1Ytp6Cja0l60YEDOT5LY/lt dxpSbvz49M6QA6205OoIF5uCQt/7Qz5bNuuPMrIWeZ4BcbytvJjEgdyOmE1w 95wBgcJmkXF2DpR/T+RskdJZ+BdELB9bYUde42xHXs+fhZZ9ZcXio+zoyHXZ k7ciz8H5sIQtH/LYkYT6mW1LS+ehAxbYfbLYUU/MYvU5+wsAq+YromnsyCVy JIa75wKIuguNut9jR1Zvi1Lkzl6ELxey8gS82FHf2RDDeNwaHDRLNc/rsSN1 zznHfYq20L9AkWPXZkffuW8WRLvbgn65h2ipKjt6K13NWlZpC3uk1ViZZNgR o3D19UOadvBDoK7jKZkdPTfWZBg6aQ+us+3Wvz+xoS3abRU2OY4wUix7+sEA G1rEou3a5xzhxKV7h6GLDaWQFF22HHQChTGTvfeb2FCOq0yd6TcnmH1Pn9tf yIZYqjT5G5ScwSv/++0AHzak/rTBSXr1MgReZH7GTWNDXjdDbGfzrkHpB/2Y Xh42pHP8P8mDo9fgCxbl+oiNDaHWLl5JAXc4vHOLvPwKK8p6LsWQcssdSENS pSafWREmGpzj7OIB6aeOlqeUsKIrUyXDjaeuQ2dDTJxNPivyCNDcmhx/HZiU etz3ZrMim4buBVLvdXAgWyq/fsCK1rbo1UyZeYHc+yuVYzdYkfCUsIq3nTcQ h+9X7zZiRRoWjhkCGb4wW9X3YPoQK6o5eHek9IcvSEhu934BrEj+4EQrk6of RDBnqxkqsyJ30naRng4/MEaVNa7bWZFLkKGpEWcAjGkM1lZNsiCmK6L4UFYg MMiKEHq3WJCP0IiilkYIBAjonL8VyIKuJG1IF18NgcUNm7VmbxY01MSb9TQn BP5052gedWZByH7bhoJAKAz7yNUYn2BBU0uTW9+vhkJ1k3aZ1TYWFDrT2bTy +RYoPbtg/JjKgnKZtdXO7QqH4qTg/8a4WRCb0m3NU9bh8MT5jazdOjNq2vNM kDQeDnHkYwXO48zIrqlF4t3v23DF0jLbu5gZLejU553adRcmDwXqvshhRrl8 cwcKnO+CnXzG55XHzKiew1Iqv/IuWDB9FQmMY0a48skTT45GwpE8l7Qwb2b0 IIJvrjgwCiTm/BLv6zAjJbsgewaOezAUmXK7sI8J2Zw/H5l1Kg563ogWXfzA hBoOnPkvKygO3m3kdm5pZUJ/Gc3aVovjoM6jelvQKyZkEf65rIYzHrLO9RSe zmZCS8bdoy5v4sF5L2/nmhsTmuuN99txPBFW24IEjXmY0AxrbWFbbjLMsXBo s7IxIerXr4k1Y8nwB7tnXbvBiPh8GI7wbk+BsfJHBRJ/GdECx0jzr+gUaHpY q7VMZ0S+oOsT6/cQopznLmblMqLdB7K03zmmwQ4up/w5XUZUcb9u192jGXC+ 7l2UmBYjMt2hxdftlgGZ7opuxiqM6FKz4cXzSRkgNbyiWrSbEdnt81U+9C0D 5Iuim2x5GJHH+8gXJmGZoHu8YrS7jwFNHB6hPv2QBZfi1reUOTGgi0v7H3Sn PYWiw7bLI9YMqPW3RLLIu6fwZ6XlI885BqST+j24ZvUpuNvez3Y6xoD6vpE/ d5zLgYD9EoqiSgxIpX7/zXiRXBAujk8WXtwgOoUmyHlVeeCiIsM6vGOD0L6c Ow87i8Cd9UWuF98GkRCYedDCtAj8+vSPUpk2iBozrm2N0UVw97r9PYPv60RE tF9P0EYRFFRlbKspWyecqif/lkwUw5TKVrnEw+vEq91RI/ONJeCoymJ+wm2N iOE+PGD9qQxc2eKXf9isEcHFQppu62Xg1b8rLdx0jXj88K52rkg5hHvB59cH 1ghn/lSFezblkFPt57KPdY14nlGlof+jHL6pztzkfPiPiFLo+HCWsRJs1Uby GhtXiX7xmkCm49XgkKdmdvj5KsHzlv9m3LVqcN52n7m1YJVgLT2XcSixGtxW 9c533F8lDqzF7d7yqRoCiHwa/cIq0Sh50OaM63NI0L8e+Gd1hfDM9ZV2TKqB ZnOe09v2rxBCdxN/n2B+CTI+BzZcnywRZx1MXymKIECfjsuMP1giPrpyZ66r IjDTszU1v7NEWGuNWn06jiCEFFUIrkuEttYwqTMQAf3JJ3Oy+hIhzv2TPWIU QURXUGlZ+yIhcSleV/5JPUzItFjPzS4Q2yp9ZCs1GiHz06kmX5154sP7f8u3 7jXD9+AtWvqCs8Q+FebtbbLvoTZxz6FJs9/EMx6BLlvFbuA4992WUes3YZIv RqZBN5iJ5oRs3/WbUKq5eeeVUTfMFogjo5+/iNdxpm/XHLtBGglrlt38RTzE wxpV07sh+Qe/ol/eT8IvKFn6CmcPXAfGnTwrU8Q+t/OL+FAPNLAgTcnRKUJj kFmA43sPkNsCLbCmKUJmvMq++W8PFJ3+l+QWM0Xc1WvT2MPbC18vLVL7xKaI r8+jxAKhF0wSfnOkG04SX7bpPzif1QsKU/Q5+UcTROGHVE+Ti33gOS0rvTVs ghjvNZnidemDmsVgq3XnCSLmVyNGXO8DHTaZ5nfqE8RiZOhh5sg+MBH3S7rU +43wE6FOkqr64LrV9gPZ3N+IARbDbEn2fqjtsrgp4DdOTLc/sRvJ6of1wWcV axfHCbZHjq9UivpBd4xp8qv+OKG5p+xPUFU/tP8pMK7YMk5sS76TO9vSDx+5 V3cZl30h0uz3dOr86oeNQ6lNdyY/E9Mrvj4hSgNwsHaYc81sjDhkbLMkWzUA zwqearRojhGtOvr2ka8HQDD16qX7omPEC3etuME3A9C/yBZn2DtKuL2tntbp HwBJfzPyo5URotX8udSJhQFoCJ7nwfU/EXlmH6X1lQfhgc2dy73kT8TRiENT KQcG4ZLezndOQx+J1J1+kcM6g0BmPRR5/8pHghjSO7zXeBAuRCRwjscPE8/E mfBVl0H4F6PMFj5GJ8aRxs5TGYPQebXFfnsBnbjRIRwUkzMI2cbn3jzzoBPB oczkmqJBOEoNDRtgoxMqHr9j+moGISWxm0ladpBYVNdZVe8cBNW0axvtvv2E Q197TsrqIHDdYL1wUa+fyHX9HFrBQIdPVil1czz9hLGoC+NLVjqEidTf2JnR R7CL+KM4Pjr0ZJH/uTb3EreEsbt2YnRwyy9ZotB6COo9elXkQTookFxDdce6 iTWO2zIHjtBhxn0fyaO4mwhnrDw0aEgHd6188V79bkJvVP/iuAkdrn/IOv4g oIu4mprasP8iHVT3W9ObDbqIb1+esF20pcNCsojdokAX0X91vs/PgQ7eNmm+ Z8o6CYE0Le6bl+nw98deA5V3H4iEGPU79d508KzMO//A4QPB8+zyqJPfZvsb kp6LDB+IsKbB4o0AOiyRRR6/UOkgps9rFa0G08F3KLVye+d7Qm51YfBiGB1W sgXb/J3fExcqr3pXhdPhnyp1XvvxO+ID6TaLbCQdbjDc43qs8Y4Yvv9r+kQ0 HdZbuUUZetuJe98fHbW5RwdGK1bDBo52woazX9c0ng5soUsZh91bCXNWQ3XP h3S4bXS9OpenlZgQH75JTaMDh8BsO0fuW4Lt42fFjEd04Mr/udA23EJAhGH/ nQw6RLo78ezzaiHw136t3zLpwKP1bVc0uYUwW6jZo5hNB74PI0YnDjUTJSIW cg+e0iE2+ZxN6egbYs4zor8khw5Um0Fvit8bgjPQ8k9NLh3i95pGu/O/Ifbo cHuX5dGBf74rq+dZE5HmMHUtJZ8OiXXHa/YbNBGmMi5jbgV0EIhof5843kiQ j0k0qRXSIenkkfGFG40EH+tb4T+bLCj0ZslcsJHI/7NnNr6IDilfdUgvyhsI 9X/quHQxHbY/qxPffqyB+GLPyf1sk9O8NTX8v9cTX5LbTos9o8NOnZrjH4Pr iTCpdyLhm5zOpWKnvaOeaCwPcKVvskhvmW96NSJiv1zS21FCh4xHcvc2jBGR a4BnHt9kvQ4zg/p+gjhwpv2u2yYftjb2DOUmCOYj80whm3xkzuDxIbyOUOZs 4Qnd5KO39drYr78mpuScCj022Wi79nxr/ivCfFj4y6lNPl6sKho18pJ4WHii UnyTT+IKhsdpLwm57BuS45vjOd0j7UU+UktwbD2qEbfJZg7imd0BL4jLyZ5/ FTb57jWPiLiqGiLvvOrL+s14Xwc0XjX585y48zqhR3eTp2/TzKm7nxNlDJfx ys18ScTbYt0XqgkxSiWrwCafSa+QjEuuIvwvBu122sxvZD4zr0lXJcHZu5Ff sKnHLJE93KVbQWA3Lb8wbOol1f634b5/OfGZSTSTf1PPs/16BScry4hyAdtu wU290a9xny7JUuLzpfOPZ5/QYfI/RyT2+hmhubvv4NtN/5xg47iXJVdM3NU9 4haTRQdh5SP7sigFRH5w85Vfj+lwy2ByZVdoHhHhbn80LJ2+eX+OaM2cyyEk 9u5p4Nn0a23UW4fMgWxC46JNyn8pdNiV7aSyyyCLMP8LLEeT6RDxgoMlszaD YDXg3ZX4gA7F7+7r6mimEhd/X4xYi6OD/3LXKC6cTChf3zG6/T4dDKSoN3DG RMJ+TZFBenM+tW9IXL0ZE028vfOnduvm/JtOTrGbSbEhkOj7NgihQwBTwpvD 6gbQQ32z9+tNOsg9tG3hV70Kzh2FUb436HBKefBVuE4YFOtOOnv70OGag8tU U8IDqHb+5oCu0CFLY6/Rm7IUePnBNeG3Mx16eX4+e9ORBtNLWWvcTpt+Paty wHbzXPcmrjRrhw0dGBiqNmzrciFWg3V7jOmm36f4Fb8a5cOqxRe2w5vrmVKP p43dcAEo2FOv/XecDnY5+9/YLRXD+PrfUYHN9dBOyuKN0rZyeL1iJ/xCgw4t 7+h3lU/VgNXjVKFT2+ng5DPUcm7vC4C9z3rat2yuDxLDLGHMtSARrL57P2XT v/4fA3srXkLmR6Knh50O76RH3a/zE6DxlPzMeG4QnPTci4d/NMBDl/SdRm2D oJ4y2/6fWSNcsampb2oaBI7/3H8wNzaC255huiwxCPkPPXbvS22CfwVzj7sq BuHHjGdmgGEzUPX+7rBOG4TLGd6JO4taAefpmityHgSthcUKRcE2MNc3+qBs Nwg8Rj7dh8LaoK8/gq/IahCKF334XC3bwUSog+Ha5n7257jfnTqe9xAn+8Xx uMog1ATW1ZWodkJM7a9E+38DcEC2vtw4qQeS+R0a/YMGQKW3/0Fdaw/I7PJ6 PuwzAAr+v/z2/euBsENK7xWuDYBU61Y9DuteaDgUmFxrPQA0e9ceQqYPIs6e MTquOwC/0oTm5Or6gWwqpBHKOACPebxUeL9t7iusq97RPv3A5LXlo922MQhu kvWJMuoDi4sF3TX7x8D9p1ocXacPyo9CK4/xGGTHJQcIq/WBjcil6srwMQhN EeWP3dUHDW9fxbLMjUFWbsld/oVeCBWyO/Sk4zMkXXHxrnzUCyz15c/GQ8dh p9TX9ZHN8xU7j3GwzZ8JOHnETvzw5W4IHevXc8/+DSLrV9hC2jqgNDXcOHB2 Bl7dN5w6qdkKV7PsyF/N5uEgB7e7b2EjnHd+uPN28BL4nI8W/qZXB6t0zo6Z 6CVgfMLUvEe8DpINfAMtHy5BkqjjzlCmOujac2ZUsWIJVJ/9959//Ws4+H1L 5sevS5Bo8SQnEH8N0nb3JZSOLMObI4o/23VfwZxVxN5PpBUI92Y/+vBMLdw5 6aWhnLYKenE2JxRbqyHunczlovxVsIha/O9rYTWk6Y+mSz5fhQDn404VMdVQ qn2ERbB7FSa+fnqXcboaBqW3f/jH/g9KvHb3vfpcBXuY6uyaPf6B7WGlz3MM VdBczhp71nANLlneOaNyqgI6ZWsbus+sgdbiyxY1jQoYynOdN3RYgw+e4bKn RSrgT/qABRa8Bp7vp58P/SwHgch8SfHna6D6ZbxuZ3g52Nsee/lLbB1c9uT+ dCfKgIU/ceLmyjq4EVs6SYdKgfonkERl34A+zu6SBvlS2PXWSfUJbQNMbiiv Rm4vBSxAK/ztvg2YVis583qsBHy/jktSLmzAup9NGduBEvhTqWSf1bgBz0cF TYPniuGXzOQ1m8MMeHXXqPeNiEKY2/rpVqERA6793ilVwLYQVlm6U+ZMGPBD MaF9A9qFwDX6sj78AgPumPRUrvtvAeyOv0cp9GHA1TudB7OtC8BmVbXsbwED /uPO8W9PD+bDQPut6TA+RlzrDfmv9+5cSMAeHTIVYMT3zb7Qk2bJBZOyyoeS OxlxiQh7TrbPOdDxYPxgswwjfs9T2U0nNQearXVS2A8z4gs+e/heUXKgevGf zt0ARlzqr9WNbLan8EDcM/7eFCMezN355QRfNpx+EDl5YZoRP3fkylb5mSyg cmZrKywy4n1m/lEqPVkQ86freycLE+6YvK3keVIWhL+Q16KKMuFUH7Q1WiwL vE78/JpgxoTLiLt6n4dMMPW3UX3YyIQL3Mt3M5N+DA8e8bMttjLhbtaFc6+X 06GfaO471cmEjxxu9bJpSwczlr3XeT8x4WU/Rx5YX06HM9F/K4IWmPDmZ8NK ShWPwOJxmKKjNDPOtJZz7pdhGlxszNm3/x4zXrN1tUs3LwUyvp35F5vIjHt4 ym8bvZkCn9m53/1OZcbbtLcHlZmngI3RVZfcPGbcRXFX3yJ7Ctj2qRVsb2DG feysalhcksHh+9vdjPPM+K3DHOHTB5LgMvdPsQ4LFjw1Izn5EUMi/PStZeG2 ZsHTLl5m1RlNAOfJOxP6jiw4yTZKjFqXAI5v9hTUe7DgQ9mJRVoBCWBz00Gx KooFX6s8/Lp4JR7O/v0MaXUsOK+wFG//RhwcHh60dBZjxWcYNm4sSN+HNwZ5 WO4eVrzinpbuHO99OFjjLfpVjhVf3YOPbJuNBZ1Ega9Wmqz43pC4qeHaWNA6 cdrl5GlWnGOHi6Pq8VhQavzgqx7Oipdu2W6ltRQDIoXND9h+sOLD46Nt5O+R cPpxzYu2aVY87pX/IYfKSLgbX/AxZpEVN968M/CERMKcf4zYVlY2/FfDHZKh cCS0GZk92y3KhtfoW2QGW9wFrz/f3hwxY8N30G9JBnyOgPeKrPN3G9jwZwN2 A1+lwoFJanHriVY2nDWMNTNh7Raob586QOtkw68d3jMR0XsLspjeB6V+YsMN T4Vf0g69BT49CTxFS2w4uWeHwLvxMJC4LiHxXo4df+5ZripfFgr+NXqn+FLZ 8SnXp2eS/YJBybJz+kImO/77dl/gxXPB8GPDMqY0lx2XsopNt9AKBgt9r9aT lez4scvtL8fXg+BAfx4kvGfHi+aXaLrhQbD0l3ffNgYOfPFeSeIPzZvgJT/I Im7PgV9/9bvp+4g/yPXYZXm4cOCr6b+Hlwv9YcJrBpquceBbIx/NXfD1B9M6 Ln/7QA7cLJ90QmqLP+w/pj2Tm8SBDzseQzHGfvDXOevTvjYOXPtb1KJTvw+4 5VyuVpXnxBNedJTKC3nByAehRJIqJ2717EG0x5/rcGy5zWNCixP/NByWz9lw HWSMpBUfHOXEd/t0xMo4X4evM98K5+058fS/cqMKdZ5grn0hszKNE99XyZo7 6ukBzQ6koKhsTtzzpZ0U9zEP2B/7+rxdASfuUye1GCTpAeRxoR38NZx4PuuN XIMBd2iLGHzg0cOJT8c3iupi7oD1noxS4uLCA87l2TptuwZFawwuXBQu3DH/ 33nGBTcQ2l1q8GUrF641Y2P1qdsNlnxJ7HGSXPg57+9PLKPdoFykPXgG58Ir TWyPXmZ1A0mXg96l3ly4cXu5yxcmV+BhUrOR+8aFC9Gf3PYwcoYX3synJn5y 4deiHmp1bHEGh98f9NJnuXCp3A7z+6OXAA06SZIYuPEQ4vHqMc9L4FHycPL3 dm78l+7VtugsJxiyXHctNubGGyqYtO9THOF2d9sFe3NuXOsSs/quzw6w/0iS 8c7z3Hi+e+9fUpkDxCgrKEW7cOPzZ1IlGU0cQIfLZv5yODceaC3+Uy7ZHvKe v/Hf94obT1AtbpRSsQNT2bjLXxu4ceZn+lVHuOyAKfu8VVorN64uFFZSN2oL ljGLGM8AN/7f1z7XJ5G2wGcvzfRrhhtXOlouov/dBryo0RGFu3lw1onfBpeL reHQldOJMvE8uMzuEM3ZL+fBM+4lw9UUHvzcK9KFhCfn4clzscsVj3lw5Llx qdDhPDAxzehqFfHgjPKZO1V+WQF6ED197A0PzmOtFpv5zxIOoGbDa4s8uK2E wG9VpXNw6Zvs86o1HpypuHrl3YoFJHMliq0w8+Ljrb9I7xotYPG07XIImReX rhzxYTK3gMqpjZwEaV5cb2lXh1bIWZCjaTDVnOPFSVGcxPGf5mClnnHlnzUv bnrCslas1hyirNjpuBMvrqmt+fP0HXP4mdtX0urJizPkPbHs2mMOeVruVsPR vLjSfqY6wctmIO5QWLNO8OKtDlczzZhNQfDFzquHJEj4b8sfwpfcTGDdNleI speEe49Hxzw8bAJfSYpvPyqS8Pmwn3kSO02g1O7gLk8g4cbr1rJ4+0nQJ7v0 ZFmQcEGdhC/Be0+Cl2ONGsN9Eu5TmIRhiyfAkqr7tT2JhN9orezY9uwE6L5u j01KJ+H7LxipxtmfABJtdEquiITfvcj94nT/ccipY02zaiHhBXap2EbdMejb corh5RoJP/igLHOi0BBq0ceicBY+PMVPAme+bAgZLg5nTbj5cAvs8dmCfYZw ud63fEqQD3/UHlQUX3IUWK5k2Anu58P5Mo+wVr00gP1Nv99ed+bDXxs6GB39 pQ9x7hH3FQb48NXYleGPuQdh5V1RTcQnPlzdK1P6rt9BsNndNTo2zodXqaiI Jx47CMoft8ndn+bDtdYyjtXP6cGPLNNvSyxk3P+L/d4L+noQxfM9+KwwGecY P3Z0+5oOIA3fxFu7yLjktupe4z4dmHPgzi+TIOOBH9Oth4p1wLJevpNzLxnf xhnJ8PWCDsh6+QjXqpHxweWLG0QLDh2jnC+3nyTjJ26eGdptBMDEm9Zx+DQZ F7sdu8eWDUD1gNwXd3MyXvJW3VqxHoP0BBPOdisynhI1RgtRx+CqQaq5vzMZ r790JKBPVhvIFfvmhkPJ+KFp31ITJU0wCT8h+6iajJ9WD5QMSFWDnLPTBi9e kPGy1hdvtjqqwfK++w59r8i4TC/b7V3KapDR0/2Yt5GMM2tP8gS8U4XfombU wA9knN1rYEiFRRUiXlounp8k4xQOEWb22/vhY8wazf8nGTcT+3xX7Ox+kLdJ V0j6Q8aDjLkuPN67H/o5xi59mNvMh/PJqRddyiBuZvsRGCl49wOXl1ZiylA3 faledDsF/yU961jXqwjUJq4RrZ0UfPFz4M6kIkWwTypcOSNKwe8U7ih+E6YI PNhv5ftSFPy/aUrhLlVFOBvplsOoTMHdiMyHDWkKMCfpHfnFcLP+MVsuhVk5 kDkXZvrkBgU/ere4MalHBs5eq6ayBFNwC5EoGYn7MhBxe/KDbRgFXzVXUD92 Qga+VRgdFY+k4Lqlph+vvpeGDJ4tkJVMwU3YB2e7OvfAlrqnezIqKLjw16Ho 77NScLB34NtGNQXn/u7tnPlCCtx/cGZfqKXgKjYGPuNBUtAp4LpTpJ6C0242 2a2SpeDuVVVqegcFLzNNeH5WTRIYdrWspk5R8Pe5pz52pYqDvNpyzeovCj5y 5NdKmLM4nD+21+vcNAXX8Dhr+kxDHF763pvevkjBffW/xl6gi4FXt/m3FBYq 3jUdZSsiLAY/Qyc7kkSo+PTos0CVV6LQP8GZFW9Kxb/c0bpjFbEDmk/fSXtx ZpOVQnxdD+6A6gaOpNFzVPzg8znW7Yw74EE6e9ReGyquxjWPNAOEwNSM1avR lYr/JRSmb/luh943DEf/3qbi1jrHqCL3BKFJOejgtkgqHkQz2qN3WhAqMzcw iKHiTJG3VP9sE4SEG+vKkQlUXODxn9zenK1wSuXfTvFMKl5noGfW2CwA3U8W Z0xqqbjk2yBuZeEt0ED1/uXzmoqTz/dx6/7kh/KghYl0RMW5H32pba7hhzjL +eEfzVR871qqsKwpP5zk//smpIeKs3Tx6prE06Az9E9K+S8qfjnHuE5Kggod Nt90qCI0nHpdTVRfnA8+s+QuJYrRcIvUGRfHDhLM5TiVbJOi4fOFGUX2fiTY 9vPnjl2yNHz816urf3t5wc5jdlFek4aPHB9uFUzggZXQjeJj5jScQfKper06 F/BK1dt1WdBwyV3ViW+nOUH0bYiQ6Xkavl/QPyc6nxMO8bDdsbSn4Wwf5a8b 7OSE2AQeOxcPGi40f6f2NC8HSD3dtv3OPRqunOLuKU9iAw394U6eeBouctOE Q6uLFYym0m7HPqDhgsK8oT8SWOGarOh80iMaXipxtEVKmBVeVUl15hTScE56 aNK0GguYNCuHN7XQ8B3vno1dv80E9k7zWkfaaTjv/azCyVNM4MP1/G97Bw33 3HLx2jdRJnh0/IB1T99mvCB9xfsVI0z241pfxmn4paX88wPLDLDiw/TX/jsN 3xr+WdSzjQF4hZryp37QcMX7dKXYVAZQuqC/dWaGhtfPasnqAAMcYuTs8Jyn 4b6667E9FAY4k90WtrS0mf9fml6odQNzPhSlGfCPhr+Xb/3c7raB/f97EHyL xP75ZsEN7H8wLIqw "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-5, 5}, {0., 0.4013373970775717}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.467555533105969*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{872, 695}, WindowMargins->{{49, Automatic}, {28, Automatic}}, FrontEndVersion->"7.0 for Linux x86 (32-bit) (February 25, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 204, 3, 72, "Section"], Cell[774, 27, 516, 15, 52, "Input"], Cell[1293, 44, 1346, 35, 72, "Input"], Cell[CellGroupData[{ Cell[2664, 83, 220, 5, 31, "Input"], Cell[2887, 90, 6613, 113, 248, 2121, 37, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9537, 208, 172, 4, 31, "Input"], Cell[9712, 214, 2331, 41, 249, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12080, 260, 221, 5, 31, "Input"], Cell[12304, 267, 2370, 42, 237, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14711, 314, 173, 4, 31, "Input"], Cell[14887, 320, 2360, 42, 437, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17296, 368, 166, 2, 72, "Section"], Cell[17465, 372, 1061, 31, 72, "Input"], Cell[18529, 405, 832, 22, 31, "Input"], Cell[CellGroupData[{ Cell[19386, 431, 106, 3, 31, "Input"], Cell[19495, 436, 1454, 28, 239, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20986, 469, 655, 20, 31, "Input"], Cell[21644, 491, 7349, 125, 240, "Output"] }, Open ]], Cell[29008, 619, 840, 24, 52, "Input"], Cell[CellGroupData[{ Cell[29873, 647, 540, 18, 31, "Input"], Cell[30416, 667, 7181, 123, 239, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37646, 796, 111, 1, 72, "Section"], Cell[CellGroupData[{ Cell[37782, 801, 107, 1, 39, "Subsection"], Cell[37892, 804, 1390, 36, 192, "Input"], Cell[CellGroupData[{ Cell[39307, 844, 191, 4, 31, "Input"], Cell[39501, 850, 12965, 417, 244, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52503, 1272, 193, 4, 31, "Input"], Cell[52699, 1278, 16577, 557, 241, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[69325, 1841, 111, 1, 39, "Subsection"], Cell[69439, 1844, 427, 12, 31, "Input"], Cell[69869, 1858, 1369, 35, 192, "Input"], Cell[CellGroupData[{ Cell[71263, 1897, 271, 6, 31, "Input"], Cell[71537, 1905, 6277, 198, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77851, 2108, 273, 6, 31, "Input"], Cell[78127, 2116, 14328, 458, 242, "Output"] }, Open ]], Cell[92470, 2577, 574, 18, 31, "Input"], Cell[93047, 2597, 544, 16, 31, "Input"], Cell[CellGroupData[{ Cell[93616, 2617, 318, 9, 31, "Input"], Cell[93937, 2628, 17641, 297, 250, 10497, 178, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[111593, 2928, 74, 1, 31, "Input"], Cell[CellGroupData[{ Cell[111692, 2933, 318, 9, 31, "Input"], Cell[112013, 2944, 19994, 334, 250, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[132044, 3283, 294, 9, 31, "Input"], Cell[132341, 3294, 17302, 290, 252, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)