(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     56360,       1003]
NotebookOptionsPosition[     55560,        974]
NotebookOutlinePosition[     55902,        989]
CellTagsIndexPosition[     55859,        986]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Project - Random Walk", "Title",
 CellChangeTimes->{{3.451688698491304*^9, 3.45168870388547*^9}}],

Cell["\<\
The graph below show a walk of 100 steps. Each step is 1 unit long but its \
direction is choosen at random. This particular random walk starts at the \
origin (the black dot) and ends at the red dot with coordinates \
(2.42851,12.6146)\
\>", "Text",
 CellChangeTimes->{{3.451688742308855*^9, 3.451688867028472*^9}, 
   3.4516889645026073`*^9, {3.451689023579369*^9, 3.451689104200831*^9}, {
   3.4516892131295547`*^9, 3.451689216392599*^9}, {3.451689664846039*^9, 
   3.451689665785678*^9}}],

Cell[BoxData[
 GraphicsBox[{
   LineBox[{{0, 0}, {0.8658894565054281, -0.500235393702539}, {
     1.5935433223585709`, 0.18570910223643744`}, {0.9238190905999815, 
     0.9283189953804536}, {1.8792690990708745`, 1.2234719748893355`}, {
     2.792502598680975, 1.6309085652808815`}, {3.6892318373846487`, 
     2.073488131521721}, {3.342257855777115, 3.0113628865329725`}, {
     3.7031703539867724`, 2.0787632035842467`}, {3.1219723908692467`, 
     2.892525409433129}, {2.2000147843225024`, 2.5052345991489204`}, {
     3.0243011233446357`, 1.9390614531048072`}, {2.0495058749392205`, 
     1.715960077747718}, {1.8123998725475199`, 2.687443862290634}, {
     2.69336445124614, 3.160626079917589}, {1.6994922078097376`, 
     3.0500911816876948`}, {2.0906022659303822`, 2.12974726638382}, {
     1.1571947030058378`, 2.488565216708581}, {2.157176156537611, 
     2.4946555855383297`}, {1.283421762174675, 2.008288174693957}, {
     0.6576197603197493, 1.228306216906235}, {1.6168162974335374`, 
     0.9455660478659706}, {2.6045406622566487`, 1.1017728951383665`}, {
     3.5452386570527663`, 1.4410180610384336`}, {2.5486460251664305`, 
     1.3585369961212859`}, {3.011118961119286, 2.245170394720248}, {
     2.7472337042728587`, 1.2806163157702417`}, {1.8673031775290654`, 
     0.8055139393245008}, {1.7110611848264665`, 1.793232745319568}, {
     2.5348208225537383`, 1.2262935428900357`}, {1.884284898631676, 
     1.9857690274758575`}, {1.600101470064966, 2.944538957609291}, {
     1.3759291618391818`, 3.9190884823768752`}, {0.6828996217850515, 
     3.1981792948834986`}, {1.6827243204541809`, 3.179455728685134}, {
     1.3228203414802187`, 2.246466379378986}, {1.1229415843280095`, 
     3.226287017271089}, {0.5733345755732182, 
     4.061710344649258}, {-0.42566704251836307`, 
     4.1063843533165185`}, {-1.0383735637002105`, 
     4.896694873872356}, {-0.8966382374058299, 3.9067902838838937`}, {
     0.08467400454496588, 4.099212433849803}, {0.9368981543953389, 
     3.5760356010181025`}, {0.19778286895552166`, 
     4.249614545781979}, {-0.5106397215610453, 3.543826026999053}, {
     0.23216279898438807`, 2.874315447940476}, {1.00469818739799, 
     2.239343737036246}, {2.0046903978454873`, 2.2432907668472373`}, {
     2.071773043447939, 3.2410381891235245`}, {2.654275564986481, 
     2.4282092942131377`}, {1.6787550009496988`, 2.2083010653053528`}, {
     1.0182586623522738`, 1.4574717992938342`}, {2.0175211416871845`, 
     1.419072614491976}, {1.184253128244245, 0.866203355287906}, {
     0.23959914755796996`, 1.1942717273897816`}, {-0.4353566179445272, 
     1.9321299214995564`}, {-0.46366167985763007`, 
     2.9317292529669676`}, {-0.5570016442486775, 
     1.9360949571296466`}, {-1.074408464096295, 
     2.791834510250323}, {-0.27614679451280744`, 2.1895237043753304`}, {
     0.7072062216188836, 2.3712290858716036`}, {1.4279769852657862`, 
     3.0644025896005482`}, {0.6645006136870691, 3.7102383504879404`}, {
     0.9347675970760574, 4.6730237667099646`}, {1.4920014587710129`, 
     5.503379367269464}, {0.7695062304808046, 6.194755274499301}, {
     1.7459972558259387`, 5.979197214059872}, {1.2190141376839727`, 
     5.129321462438866}, {1.6567309439076143`, 6.02843435721314}, {
     0.7038673622390076, 6.331833425652175}, {0.09481814124342014, 
     7.124965852428857}, {0.89922269650072, 7.719047758803143}, {
     0.41202401873559036`, 8.592338917801051}, {0.8917397587970168, 
     9.469762879599061}, {1.6159578198638354`, 8.780191853507754}, {
     2.4828015380971467`, 9.278771805129805}, {1.6659660305467776`, 
     8.701901149258898}, {1.5896130118551717`, 7.704820301716093}, {
     0.8007107527707741, 8.319338995989533}, {1.2273603517417309`, 
     9.223756001412319}, {1.8946216603353652`, 9.968579702736271}, {
     1.9305553102103046`, 10.967933880596485`}, {1.947263983719539, 
     9.968073480225732}, {2.0011560485172666`, 10.966620246958186`}, {
     1.0038463215012272`, 10.893317392994692`}, {1.5850007334574943`, 
     10.079524084184792`}, {2.5638584623793266`, 9.874981798752188}, {
     3.2382023441895993`, 9.136564349699789}, {4.168096941174982, 
     8.768738251526491}, {4.135230745714364, 9.768198012195196}, {
     3.76227928460397, 10.696048866403792`}, {3.0753481521182127`, 
     11.422771385128673`}, {3.159116766753634, 12.419256617935494`}, {
     2.3452431609263966`, 11.838214662705262`}, {1.9700055322488217`, 
     12.765143312615507`}, {1.1864413948803387`, 13.386454219191261`}, {
     1.8959618195548926`, 12.681769348508173`}, {1.1829045331150927`, 
     11.980663574565959`}, {2.1722562483317525`, 12.1262080131332}, {
     3.1515638546995537`, 11.923830612937014`}, {2.4285136217145067`, 
     12.614626067887514`}}], 
   {PointSize[0.02], PointBox[{0, 0}], 
    {RGBColor[1, 0, 0], 
     PointBox[{2.4285136217145067`, 12.614626067887514`}]}}},
  Frame->True,
  PlotRange->20]], "Output",
 CellChangeTimes->{{3.4516879700627832`*^9, 3.4516881888340683`*^9}, 
   3.451688230071946*^9, {3.451688894838695*^9, 3.451688941391617*^9}}],

Cell["\<\
Here is another random walk of the same length. It ends at (-6.54248, \
-10.4413).\
\>", "Text",
 CellChangeTimes->{{3.451689168186178*^9, 3.451689187262488*^9}, {
  3.451689234259552*^9, 3.451689252269616*^9}}],

Cell[BoxData[
 GraphicsBox[{
   LineBox[{{0, 0}, {
     0.43181961474103836`, -0.901959988206185}, {-0.06597165437542885, \
-1.7692568534094537`}, {-0.5574663531424001, -0.8983762869228865}, \
{-1.5568773536875402`, -0.8640593524828494}, {-1.865750345240644, 
     0.08704394111308611}, {-1.8553271445135466`, -0.9129017358547193}, \
{-2.8079273734892545`, -1.2171266588236125`}, {-3.7957460704206145`, \
-1.061517462460319}, {-3.59751915576572, -2.0416736185428084`}, \
{-4.120921301253571, -2.89375940888244}, {-4.512339308543657, \
-1.9735464207274926`}, {-4.504824263068429, -2.973518182374543}, \
{-3.578647456238388, -2.596428640633979}, {-4.249704924959401, \
-1.855023303673321}, {-4.302981713268871, -0.8564435202671938}, \
{-4.170212434187178, -1.84759049147385}, {-4.239844664877426, \
-0.8500177610681415}, {-3.984967196017285, 
     0.11695559733810135`}, {-4.622983779750635, -0.6530670249797275}, \
{-4.771322953954848, -1.6420035696560844`}, {-5.446881311482669, \
-2.3793100904290347`}, {-5.0142504102562695`, -3.2808812209029607`}, \
{-5.86182635554944, -3.8115553364959376`}, {-5.740397076356097, \
-2.8189552507843834`}, {-6.643724123758772, -3.2479077486565444`}, \
{-7.638878593526424, -3.149583889387983}, {-8.455711036594465, \
-2.5727088943054306`}, {-9.23196942179754, -1.9422940155137627`}, \
{-10.221404360306929`, -1.7973164225660188`}, {-11.211061697739948`, \
-1.6538648472348771`}, {-11.349919474406757`, -0.6635525137465221}, \
{-12.236247182331558`, -1.126611035064042}, {-11.557735870675707`, \
-1.8612009886810614`}, {-12.555394676818743`, -1.792813076552874}, \
{-11.804171625632064`, -2.4528615045987068`}, {-12.728490897818688`, \
-2.834481581461009}, {-12.085180928153822`, -3.6000874088485677`}, \
{-11.32135667486004, -4.245511695717443}, {-11.922233604158379`, \
-3.446170144290896}, {-12.39318012286424, -4.3283319075287}, \
{-11.75527592047744, -3.558216183382479}, {-10.819907193968582`, \
-3.911890250100974}, {-11.80439067971325, -3.736412997170491}, \
{-11.432134353007202`, -4.664542959636588}, {-10.46592689309871, \
-4.406777282291484}, {-9.696589087624055, -3.7679350943706775`}, \
{-8.803626818632381, -4.218066615325656}, {-7.841264007698078, \
-4.489834568054869}, {-8.138295125534631, -5.4447023678244335`}, \
{-8.974981111186716, -5.992385270071162}, {-7.98218322896386, \
-6.112186626715455}, {-8.823032413907802, -5.5709171483785465`}, \
{-8.170968718405835, -4.812752959690953}, {-8.321515916595486, \
-5.801355782424758}, {-7.96089669652844, -6.734068909875121}, \
{-7.143497597385474, -7.3101407046370825`}, {-7.954905669991483, \
-6.725660645345235}, {-7.233880230372777, -7.418569236302694}, \
{-7.818983974627511, -6.607610785789296}, {-7.708972793851073, \
-5.61368043606444}, {-6.881673457507267, -5.051919091643966}, \
{-6.004585375532375, -5.532248662311444}, {-6.364220180200936, \
-6.465341801966327}, {-5.6127329739643, -5.805594138944581}, \
{-6.612626616178022, -5.791009754810267}, {-7.580092115712993, \
-6.044012733467733}, {-7.190719771019367, -6.965093173596492}, \
{-8.079090936493621, -7.424219161048645}, {-7.306695844270595, \
-6.789076797865569}, {-7.485488067035016, -7.772963651664804}, \
{-6.819257558945244, -7.0272177766574755`}, {-6.233293022192038, \
-7.837554473140858}, {-6.2497204518333, -8.837419533814238}, \
{-5.7328504165368255`, -7.981355653830611}, {-4.86436611796404, \
-8.477072330100976}, {-5.744192713199695, -8.95236714631091}, \
{-6.50557754866251, -8.30406695941655}, {-6.092945693672653, \
-9.21496484186421}, {-7.040700184434008, -9.533965508386533}, \
{-6.37321065692747, -8.78934632338718}, {-5.708368121288339, \
-9.536329859219752}, {-5.334042839225177, -10.463627321315025`}, \
{-5.933000705795847, -11.264407861833531`}, {-5.593911738088637, \
-12.205162171937534`}, {-5.4638594559193745`, -13.196669309532906`}, \
{-5.2151751387709995`, -12.228084718284189`}, {-6.0056444043873185`, \
-12.840586424498953`}, {-6.989770171376382, -12.66311396255573}, \
{-7.45922850075032, -11.78015933349406}, {-6.460060823949953, \
-11.820950921319948`}, {-5.647535169972639, -11.238025487298804`}, \
{-6.608849401975728, -10.962571412454537`}, {-5.62729079183069, \
-11.153732849073284`}, {-4.671598470081623, -11.448100282988582`}, \
{-4.186878739192177, -10.573430755403184`}, {-5.13971173655871, \
-10.87692586101365}, {-5.163634227517456, -9.877212044751051}, \
{-5.672834653111706, -9.016564075733152}, {-5.63745114820995, \
-10.015937883465208`}, {-6.542484778057038, -10.441277899036049`}}], 
   {PointSize[0.02], PointBox[{0, 0}], 
    {RGBColor[1, 0, 0], 
     PointBox[{-6.542484778057038, -10.441277899036049`}]}}},
  Frame->True,
  PlotRange->20]], "Output",
 CellChangeTimes->{{3.451689146225626*^9, 3.451689153515553*^9}}],

Cell["\<\
If you perform 1000 random walks of this length and plot the end points only, \
you get something like this:\
\>", "Text",
 CellChangeTimes->{{3.4516892665404873`*^9, 3.451689312934533*^9}, {
   3.4516894798726883`*^9, 3.4516894827740183`*^9}, 3.4516899794546337`*^9}],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[1, 0, 0], PointSize[0.01], PointBox[CompressedData["
1:eJwVl3c8lu8Xx+29nsfez+OxyUxF5T4iZSSESkPISKVtJBnJKFTyLZoSSkui
ELlPKlmprERZ2Xvv8fP76/rnvl73db3Oud7n/bE/4Ub3YGJiYmFiYu39/0ou
tvAu2SwcAvFrOb/f5W0D5TXNjJMq74Dzd8Mvvz0ZxLIUyxMr998g9/uJgMtu
B5DzN+a6khCHlEpXtV0lUUifbTdyW/pIDuK1jH1CO1DhHtPmuXeCIOoc/oTn
yRgqVd0ysC1dBnpKVafuJkAJvRkzc9lgVP25c68Nmz1wh5J5z9UjkGlXy560
vb0guNff/qphE9nrtubu22IPoH3hf9O/bgZ4drkeLt5gDHTBJvLa6adAS94w
LNJFkO1mhRo2wduA9d5N3a3z4ki3OzvjbfYJOH/NH7ba8BAUX0UH2VTxIOWb
g3+pfBEoJNWt29rYR3z99oXzXeY9oJ35EPEj15qcuObdG1XRj1xN/sN21anA
vE719sUrn5HdQqrL6qoYSvOf310iqAhqF3j6G07sQI6eY4H2fvGo9idQpCng
ATEzLadKshiCTv7lxi891iDq9/nkW4UfqHoooX/qdSm5kjJ+0M9TB9U2/RUY
P98D9KOcYeIKDJRTz7URKvmCUoXG4lXeTUgLv/WAa9tFoFbkreXO20G8nRuf
ObrShqyCYUQWvQWYDNuCD92KRJYS9Tcuj0+DUtmnD1m7uMhJ0wBtNue/SJs6
GlDLYYBy/T915xYLUBZ7Qjxux4Oc1/jlnG/5oFvlV3/AmJsoEVmOZZBN5FKp
8GUeH01UuKUYG7VlO9CFn7Wc0B8iJuM+3u9XtQT+xLe5pt1cSDsjdT1w6w0Q
eT3/Pe3ZbeAcHWkTHJohhxiHD4pY/gW+osF6hYciKHfFq3auKwQlPJ7vkZrO
QhprXW+D+0/UlMTgPze2g8xH3k+SlqnkyunQFVXLfhQ+HxyVUOSJBjp7FEmb
VhAxYB0anzmM3NsdT7yRcke+foPtlYUjICaYwuzyyxrE4h+zcLPVolRVh5Ra
MC85Xyjw1epiPNJaKyqfJJ4k/qbuuStwwJfoGDhGHZ0qAS5/o5W70YOwptiQ
uVzRkOhhDm2+nqoOtLcOCesjV/uv6G0cjUqgbHWxk71LATGQuavn/a1CEA0+
vHM7nCSWRFYEXs4Z4RriR7l3KhdKS86t5Ch0o5JfxZCX0BqUHTU9ONzfSSw0
PSl9KzcIrG8MPubRilBzcCjp9WN9YL6XzFEimInSanEW7u0ZIGDRd+7o7R5Q
vujJFeNrDNSYF+OcDnrIaCqaucuzG1TaCn803N+PsnU3nY9UWaLiJe0L9Alt
oBVKEL7zpsiqfKpB8WUoqOes3PsYLAaC0b/ShLpTQI263yhixRCZkmOnsvye
AceThFfFz/aiRIv6Zr3YTpSSLah7R8kD0X1/a8xYNVG0ovwJr9EXIqe0MjK9
4hDwafmv6QtTBkXzrGu5XNnA8VW47qTJFaAkZEXcFxxGTq0Rm6dOAOIfM4Tv
vk4DfrO8+aqVKhRl3rcpIWQIKL2CAV0ZJ4CeODXZ3qkPjMPGt00eahDtlmHn
12V6AoVHq0YopQX5bcZ7FA+yoUDWjIDRMwciiT97ySCJBozAkyub/B6QVTPM
xZNRPsBNVZ9XZY8AmfpfIetYtVFY4bn/Ds49yLQ7l3+rRRm5YPH5oLmTGDnz
ckvvIiELgh/cx8s3Pib+7Dh/4tZTW2CXta/a4eiP2s35570n9wFDXPz30Ypc
oLjHCI4n0ciu7WIqto4bUZn4T/5uTxUKsNXOblHOAcrje8PstnKgalVgM6ks
j/QxynFN0b/EWErB6Xk1KeAWe34j+bIt2eZyKCtM7B0yFDNCP/2bQqbQ/KOR
eR1IcZ3lCDlTAkJNt4TCG5+gkkoxo+5yDCjwmhw4fDuJmN8umaSZdgklq94E
td8zI1Z82z8xq9Ss/rditPfPeZCz1uuysglE5e1r+jM4viPz1OS5uzozQJl2
uRl7oIBcGe7KEji2AZQXRc4lCvxBvh32mvoFUcTTR0G7/c8xEXkPjT55qc0S
I3492Z5zIcjkUWB2MM6TmDusxPRG1gdlClvejSZUIP2SePJRygIIbTwucOu5
JVDsq6dEU36jCLd0tNX9IlTJEbD657cdFBk7TvBd3o3KeZvEfFbMUTyGUEwh
XFEqUzduZCAYRfMzr215tQ3Yd98IDzebINpivjnMeZgjb1iyY5+vAtG1Pb7Q
5sYsCIyy+z7SXAG5hSBnCX8LIvVHavJfbWegbHvndPyBC/n3S2iTbeEPUFq/
RUYsIRSVIo9pVjsmkMuNt49mRVUjffMBh+9NAUC9FroU8vYcaswVW3vsskS5
+jOUA8QzcvpUcXKQHBPR4nz/S4dLG6j98th716EaVKpPJHaFVCBz59X5hpV7
oHTya0LvAXtyfrfaq8dyx4mRjIuJDpVhIBmtMzBjPku+T3riPOL0GakG3N1W
TNfI11aN9dOFsygru3Fk38xNoB8zRi16EIjnxOwNN14E9j9HTuYod6Daqaex
GW2pSN1y4n4aUz8y1umee+04ikJu8+lHPxwA2r/Ncqa6bUBzURHzbXAGqUlO
btdd8cBe82PjZOAiucThqy7GeI4iaY5HqbRRVK9gbr52TgeEHJomXz30QfmD
aaPyC0imbeRP+HdGh5g7Tgl0fzEFanHnlqh380H6aV/71X9ZxOz75Us3F61A
5QPHHeMVeWTOW+jauPQUdQ0ylfXrdpOd55+EqfI/I940lXZx8VwH+bdyWdH8
neTszQmateIRYposvM829Rqkv5QGuIq0I/2WctXD0V8o1F/He/EGC8r8Vq51
jHyEtLhcHu0dCSQ2tg77vIsFloBf3iUXLFHNl6Hq9cIVOdoOxK1zagba+lTX
tPcqyJ/6s+Vb2E+keEiTL39XIV24eWg8hgml/I+KGcgZgNTJuOr8wUsoUcq3
6+PuBtBrErqoymmEIqIfxxMDVkD4XO5B99Meq/2yq5vi50aMR5zyK9kgDSLq
x29oDbuD8IPAXzf/4wOFh93rx57+h5SjRvrevzYRk9lJsezP8oCev2Vh+vIg
KgecGvxLzQKJvI2syT+KUYbVbHdE6AJSYzHviLoqMn1w4toYb0Z8blkU2FZ+
HdgtBM1ZuPNB6OzaO0V+n1H0CDWzL+0fcmtnB55mnQEVMfULXlcp5L+qD2JD
dzuRWqm40ZPQAtafZ0XjHvWTvbE80YGyueTw5p/lJ588RhF7CVMLOXUUsg8/
dMi0DTTWmY6dd7RCjcSPp1sPMcgWVnfpDArT6nx5UaTwzg44/43Btj8tZLf4
+exSSi9Z32BwRGApAxU3f9L/uiQOlL9KTBb79wJHd8xa65VzKLTdINtHXxcF
DqZdbPBwRiUeNgcZOQUQ3xcdRFshUY50fan3eBwFSx3OfpnzJxa2rAl/NqEM
Ui9Vp7pyf4O0QvW3VHogMZMz9C1vKB0kFtJFM5RtkTI0s73j7j6QLuAz+3Pq
FMrY8beGGfUDy0aX44r+suSi+4nXU/onUc74/Ij1m4soE2aYt0tGjvh3W0HY
QfAtshftkhWNfoliR44uP5BNB9aNIrV1bGtBlOfpzirBGBS10OdSM9wAlMl8
j5mNPCh6rzBksrUApW/fiN/EZYGSG8gVJs8jKB921ORVuzQq1fvEm7P3A/9V
P2th1zsgWbpiUWL8GHlkLe1j1PXIj93T5ramnaASr3H0q+IfkL/q37jX/DP5
w+BLtifTduC+Nzr10DMSNCnRNQayGqgQ9eterZ85amnsKNi+sxcoT/SCJgNX
93+x+60tKweMYa91UYxRVE1KZHj2XkTNB5+cEs60ovCBWXPNvw3Afr0wd2O2
AtGb/IbefNoaKXsulM85uQP1puSDiTOZ5MCdsifBa0SAtqd/384gNaDwZ/4K
+zkOax4pmOy/mAFMFuWfLVe5OP2sqjAkegO5pH7ipq4FM9lr6heyWzAZFSwV
n1z8sg9V1jq+e/9dg+iQNw2em3MB0QtFp1ni/oCI0h1RdelVjwgYiNzF8gOZ
8lmOGZjYkrMrct/jQ92JqZtcVs8MfhBzYrezq5Q+A1er5/FSagNy1bqaNbaX
oKJRSMv+8WLUtTt7XWuXAtLeRNTaXSsgKv7p37JjKiNnFUemxQr9kPUesX1T
Yzho2ceUuZrtAKrnqVetgYdR5dr9Zfm2cpASyI56YRiP1FHroB1PbFA8xLKN
PdQMWE5324rFNpAznZO5bWwZQDU+bKd3VgVonl293PsyUYZ9Y8tPOzai7uMv
M/pdQ+T+Icr1O5QTlYMvc9xf4kcNnvRSnfIjKLbL8L9eQ0PgXNhzLL1cCMR4
oclpayhKBK3f9/tvIyh9Vh66sC4MVLp93ajltqBDc/KYeTMKUk+DU5ybx0Fu
VneuL9AYxRe3ZTX5aqDk2YiC6i4b5JzhuuelrEb+FRqrN+mhIP04T8zzliPI
V53mHGltQa4YkuwdGZvITl/jLNttdrDeIvOSxNY0ckTM5kxzaig5rsULY48U
QdvrFFNfvxjy/H3bzXXVCOWJzH2Krx3IvkvGtJWYS8B6S6/jass2kKh3onf+
JoEz72ysSJDpqt9MHHp12xupqR/2s4d9RUnzfLmtZx8R/zpzB/rYDEHVPUj5
lrAzOW4ay5q18RtIvHstcTVzEhUMipRU13sjy9SKdQHwIHuMOBHzgYY0Lkfu
DyXsILc4YpyjXwyi1FNNfkeuA433iauZhwkIC81GqUQpEk19X4eHY54C3y5z
Hpu3t1GeIzaqQ8QDhC4Efu53MESRZRs9791TKHVot/W9BkkQu6haFmHrizJl
xgW8eQFE/z6B2GKVHqB6b/xC7j1IjDa949f/XgequqUtT6x5gBKp+aWQexQo
x+Q2dGYyoWSv/YX0mmOoediD17xMACka1ddEpBpReqXdjeP7JEonDAdmGc+j
4v66f4Kq60HcLnZe+edqjvh58q5HdBowv/94ymyXEDktmBbmtrAP+RqjDDnf
vgfxkVdbhoWSUOTZJeaOzQModIpnfYZ8GtJ1f2TeP/AY6Jn0KwlKUkgNve7q
VSSHVGnf0/x9DciR+TvaZTMzORjqWsxV/BGU7pTMPSxeIObO3djq0bWIEmOL
B7LXJpCdv3ppcja+wNLR2ugTUIIs31lHBunKQOGLFHhwFVGu6NZpAc8Gop31
5s/6YUNksEQGcu0eAr6zLxTXaa/WJUkn9dTBbKAPJD3aXG+P7DJeri1rnEHU
PIkzJ34UVJ1USvyfN6Psw+SqNEoEKHZ7SbgbnQXFKyfc1M12ARuz9L1vs9eJ
X6+VdtT7FIH+1oX7G3zsiH/pN0z6N1kBJVmJP6JOAuhP415ORhqh6NInRqy/
L1LJnLXSQ0kg7xRs7P35IFl5r8u3Kk4RWW/GZ2VE16HuP2+P9AJ7EDAkfvzs
KwOVp98m/BNVUZ0l+fbZBzSQ0tUf+O+QEAjf7a+X5XIAmRCcP2f/nJxkGZkO
8LmE7PA4rfFyFNmauZPrRrU38iR/txmlPARxridDsyr30ODq7rOpfhMo+lLf
RcKxFugzv89wGCyiovav5P1/usn3CUOzN9z5iEl+4Qmto+dBSl9RrtH0DSie
Dg9Pu1kKKgy6suLiP6S/0R3pH1oHDIclcVvvG+SFuJ2X5gKYQJhf03ea9Twx
3/y2JM/lAbA+5y241jWFihG19mr9Jqjo22t2pVwRedLVvwQkrvqiIROp5jiP
IqktIg3rqoGT/ev7RF1H5NW6OZpFyQWa1LOuBqlYoCQeECiN20esCO9Z9DtT
DULhx5aDwjJBorh/jwXzMnCOnO/Z6jAIXIPj1uGkB9GebCYz9OQ8CP+3kY/F
JZOcYR8qD2kvRI78nZbZ5QeJaX/HfmHrLhQ6sEmgyjcbJMpmhe0ilkGIcW/9
zuAKov/M+maZqi6yrX9P5y75ZqJ3NtvsxKoPcyYJG0XVDgILS03BTZMvqFTs
XSux+SRR58KuYjE7ABoW/serk5qIzswaA/3Jx2SFerC6udRNFDWrj6moNSGX
yX/sNaaqoLyxYyD94jjyDBqyWxmJEgv/3aR+8mWgvuLcskK0LSosFA08shZA
3lj2NVzKs0Bpv7qzxzYUVF/n4hqDE6gW7sl6MEiUWKp3Xn/h6TnQ3N4o2TSv
QQxtLnzyTC0QhYuzpd22tIJYWOHbh0fdyPl7s1tesZqRy0onPyVIe6P2vofT
lrN3UDlhbvxIIYPMGihk/cX1EgQV8gwqn98ACTBrtnEIAmnds6JjAjzAX6r4
RtRVGXl5O3dE9rXCmhcnTA/APuSqcKhxym5GidctcnHWckA70Xp64tQIyGxg
cqOxRgDv89eKlT+fo1iFt0rZJ2ekbTRdqWTMATsTb/TgQSYUGeP3WKegA8xs
9/4qCkoRE1IRGZ2WJCrOcWW1xhgDjbrJufV9DQiWhiVtyb4Agt8/FN1mVKPU
isyzjlFHVBCPzvslsBZZm9dWLKenoMr9jnhm+3LQyGSBPq11uObg+UeVbILA
ZJuvYDzRjly6ysKeiVuIH28mI6ZHFpHSoVRtLH6UmHlfdSOHtoZs/b6JZ4Xg
JbJlK5MdygKIacvfuqKOWSBbzC7o8r0JhStK61ZIQ9QsdLxRtL0HVNyrDfqz
WnDNAFtn6oA5Mm5wsQ3PP1g9T/wuxWoWoCW+YeUMuUZ+l4loEs4EZN7iqVKm
Xk0uXSg9SX5OI3tuR7zZ899alNwcJl3g4wBS2TbW/5inkVN9p+BY5VmU3c62
lcs6GqR0DouHlAQTyyXjRe1uiDwPxsL4vLpB5tes4b7H8agwEN/FPJRAVox8
yt5Xfgzl7hvms3HtIMZTErflbM4D4RNyNqY1Z3Ft9LVCR8//+4zVnUhhRWTU
bjnfdfMyKCh5vcx4fBt5/1DeXH+vhKqRvampRgJIUxGf3MpkhWrpbHv57HVA
obAvxfRfJsp6n/9tUj1O9OXwDuz36AeJ05k7Rin7QMnmlOfl/G0grUqtZAtr
A+mmdYPL/gYo6mAcszloBpiyP7vvGysAYVtjjfpyZ6LpZPvSoMccKhlsaNj/
MQmo0ecFdHs+o847dl7Pi07A/WOdXHICHWhyn3a2zL8AuceKdcVMj8ml0fG+
aRFB4He1mnBnyKBi4FZ/4fhtKFLlSX4s6gfFHXITJ0+IA5d279/x7BRQ2+LB
MerzhZy3SxdqO74TBH/U59PKBUBdX5Wi8EgAhd1L61WWJJCW4no7tvQzsu1o
cHi6Sxq1ellyBQYtQaV2v/KLyyvAsa5O3af+AdIFqpa2NHkhe2uMq/J+OXLs
UFNBbn4ySDJn1H3JYUGWbPsvky+ukQmEks/GOQS2aQXSUZ9OLM5GWl/fxkws
hla81fqOKHKLz/H0B1ti9mPf9ajkcZD+MPuRbd4HxKR3Z8uWTyBdct03zqoT
SHVWkd168QjIi+m37tGdIfr84gprKKs+qyDewc1RTAxrCS/JMlSRvXRadCzW
GBXILDmfSFtQjR6/On3qKLKdsS2XF99FjDvofM98mwX8d5pUwpwZwGe0XKfU
vwGFA2Wn376UJ7sTnn38aZ4ILJr0rsfJ95Eiv/aF0L8UVOLaKx/84AXSzrS0
7BzbA5KcGqmWEd7Ievna4d9fFpF+6udD5fZDKPSmW9D1ayxypL866fI8FaXX
6Miu8Pcj69nWb+kZoaiWmPYp13UG5CO1/ntkvRX0drlQbowOAnVyTuno4gbg
b4+rWX5ZgOLe+fw/pEvJoZ++ATl/a1A+rfulqb4+Mg09Ge6guoPIWrDU6Sgh
G6UrJbeIJwFD8mSX0fVOoFdBtbmXIWj/VuSrOMuH0gZGQeTxt8AMMXKJ88vE
NMsHJcNTgWT77etW2kdbkV7O3HzLxBikRMeuJ9K3EB1GLI6mzcMgEZ5Njdso
QVSefUzvm4lGOisPb4LbYxA3DN8zkuxCrNBv1q4dqyTb3OdZitYcQ/qRB+9p
alrEcj+zVuiYKoqmWdiVyAsSI+1qEY47bFEyP1Eopus6Ckm+F81w9Sf6Rn1a
R15qAdfoLoMNB24D04uzIu43RZC2d8wsrqwNqDv+tX1eawti3wot7/a2gfgW
rdG7egfI7pgqNFZWB+7EZY2C/ZEo4ndMSrnyGtFgstVbZ1CA7K5v4VblvIQ8
x3iLTL6IEsOXk68sJ9ej5hDrvqVL/393vnf0SgVBgNbFZvWkGxincdjw6wVy
mNJgz5z5ATUdTK+pveMHFttUzyKPDGKoadrSyY2Cckx7nBsPTJMjIf8aYn98
Rdrcr8G/5T2owJlxAXqigU1S87TT/Q9Ie8uTJXpIECX9fn5cXHmJzNuEDlZS
01Fok9Wmq9/owKhhmI9kvkKJj8EXU/dbgappf3vK9a/AtZPNr3lrONIUOe7l
sjxF8Uu9tSMbToF45rtq3mQblP9ts4SOr0Gpn3XJNGUXCsc3DTs97ULpAu/1
bVWfgVLCUphtOwPSDuaL+3VsybqrgeJGYU3I0nXHfSYmlOjq8ilY192L4h+W
1jlpPSbavPS+N7L5IMu+P+kMdjNi3jWCeU7AGfmHvE/8iv0KWvVcNeF1H8lh
4V0f/rW5AY/AFXf9/WXAu2OwdvJlOXCF3ni5VL0Z5dgnT1k9TAOKrMXT99Ys
ILpINQ/jc0J6cw1rUXYSkcR2LIE+NYisbxs8k+qOkX1HLVyo5/+g/K7l9c1O
hSAUf/W97z19UPR6Zu6puhVZrbpDP1lGAz11XfOfIH1U+WFU0relhRiu6wpn
bDFAcTOpzeEa1qBXL7dxVHUOpLMSZbmri1CT583cmwYTVC6v1WuKZwFq4u3D
aRUEUu9e30p9tAmE7h6nFYpKoa5Srvkz7bvAuPA66tu2XGC8UHxxLCcFND81
s3Z69RFdpZtcWFprQORQoDF5cwkkUgw4+WT3oShfUmbPRAdKOo3FLSlEEtPp
+z9N+kUSQwK5m4V/MaNcDI0IUH1AVotriMpNhKJ0WpdpEzkPInvLNx6QVwNd
2LV3k885ELeK/dUrPb/Kiy+x6p7aqBhFn70gH4bMk/6u2kvdwHn+0D9/qUAQ
v1BgYK0bDOwHHtcfDKeg4vaiimMWf4mj3t/t988xESttDEVlsQli6Rhvt1+Q
GDCOhqodcqxEtkfRZwds/MhR7puOtYvVoOtjePCwdyCqdnZ6lHGqIbvu3bxT
J/yRDQ7+HH4Qi2IhIUuP+f1QSut9o/PuVS/LDByRWyZBWoupMoQriVj8eIOn
ZPQ9UdqZK/auuBckkz2eLOy/QDwqZjRSNYWIPpuCTRt2vgJ6Ac3bedGPqBG4
LJ1FN0Kxf5uoNm//kf0N7cphcXdRyfLUq6sDUuTiecfXDBkuEE/ZYL/+b9zq
qrrIMp2FPFnyV/wZJ5B7mllVR8kaaBKNXZeXR5FfM3z+6M7NwDIjk37cJxUk
qg2ZBLrVibmmihu1d7yAVvnjknPpehAbNYpu+lCECgfNDcr+qpMTGl+OdL1w
BeHKQ+m1dlYoM+dq3JrYTfTk3bJ3q9cCTea50E2p3aC41W3X+5mHwHIxyFDo
pQEq0Iy/HbTOQfVdtxvDDxkBn4hb9dfCdKAm/97ks1JKDM8etU069x7VpqtY
SlLqyLF5taSbj7OBotGefH/QBDgDpqW+iF4hJvI11J/1SoLK1yPxf8IZKBIi
F2R2PBAlRaImcsP/IxYcMp6l2U6DwJ2DloZqncAQ03WV6m1D0RMov+jWSy6S
b4xP/zmN4pUc2dToQZCqv/rURWET8kdMZeuY3SeGmOpjmdW2g8SBX+nCSndQ
/cJdu5WdCOLZR9akOx9A7YfpTwo7ukHoYsMT1idKoNLkv0lmedXbp8toJU9k
kM474lDt+QjpQpUP9Q3fAYuAO3XSQYosGdJixG6sQ/ESjbPs7wNQ2Fc2QOWx
M1CGAiyNLZ8TaaFPHAWulRErDL9HhcvHiSWR/84dl/BGTe0t6bN5TUAt0Ynq
T5lBlZbwwPYkExTRefH4fpcWSuZuoPLdmgPeBo9mrf5GEDjH3PHRZBuyqFUq
3d58BpR3a25wPm8CurZ2Lfu1kpGvRnowbLAYFWSF839PtID60JLpU6YVkJ6X
PzUn/gCk2y6HXQqoJP/cEFbMCy9FJQWJAV8bJ6CPRdzpubSCoukzgZVOI2RH
f/jJt793o+iB9R311AZk5N2UTqkPRvmKwyLP/kmCaHR7ls+meWLJp/L80zOV
xNTUl/7ruTdRI7llMvWyHEhJa3CPfbZE+Vb25oNpq/z166CVDTgDU9bls/bd
muSM+1T3o+PVIPAz0Yv3ezgIvZb0I7XsQFWy4aHcih7QnX/nZX2ZJFtiDIXb
fO+AEiU1GG5aokSpEEv4paJV7uiQ7Y/OoUZ/XWep0DPg62sU4OKsR8qmg40N
tilky+arxnbHnFBOTP7+r9j1KBL9pOwlTycK8QY5s4qykl0v4kaGjSuAJez2
vr8PqcREsRbH9SfvyNnrh5o5775HecOr2gVFFkRlTSHjiIw9sLZNRTrXvQPZ
ZJGT/Y9eoNzf4R3FSZVIec2TaXUiCpnfHBN+McoC0pqHkr+8rUG2+DR3a053
UFPWnxLgaYW1dW0FqislIF1qxfr3byeqayps2DWy2r/nBO1UTM/CGrfqDsMY
JRSr/e+4h9xjFP0jnxZzwBml7A9eZi4cBnG/2Fdxyh+ALnI8KqPME9cI7Rbq
UTgLrJ6P9yr+ySRnnz83cPvnQ37d+iK85dYPFPc18eaQeQN6ov8iDz8qBMU9
LHPSxwfIjiSWk38DhMmOb+21bwQ+o74X5wg1Xg551U4GxB4WA3FBr+JqLTNk
32N6rdrEECnX/iu4Mr3K81v9zD17ryLXH70kD8NPKPwxdaQhpQtluyLenjQ5
BirBno/yx0TIPzO7Uk+M3AH5nE3Nk3N6KJMcNTKlrQh0+XUv6jYnID1ScI7r
2x9UO+VT+2HNFCjVd1Mm7vUjb5DtZe8gN9ByfXaFa58ysTC1kFnd+xbYMaRN
WJwXlC350xayeckp+fbgDYGvUfLySOeSfx/ZX3zs+YdQBjmWnlvZx38ZBU9H
+skpeRITQpcyuFpWebkp8LDV2SCgiMpcIKKvgsyUmvV8wG1U5VHL450NJyeL
2MInKoZB8sbyxZz/vFFSVPfXK9EqUN966b+k5Eqg89g07wgdBAk8zzsquA2V
Bln3vvJ2AemJ9CsDO8VA4nXo776aH8hMX1qei0xGKT0rr3GVPcBVYPjb144N
Va+dG4s49Q1pnHvSLfh3E628VumiOEusDBYOetwrBhHPtRm1n52JMXdzxWbD
70Rve6r6KUcupL5rjfpa85j8OXFptaSDxNKtNfcGtt4B5nsHn9M+1ZDLfm0+
o66/UL6j9ZWaznpUeGGuqxB8C8Vzb0mBcw8KzOf/8N3SjawWZ1Uaev8B78uN
nGqUJhRvvf73gO4dMv+6pevHNVtA1CZquGRuB7BwGK0LdQtBJb7a3a3vnwKf
/n/FdC1z5OCw82iPaEfdkcgrJrFKQO/JdzSSfIDsz4Bz0suEWKG4dCXvlgXR
4/+KJRvpIEIcOCT8Qp0YX3vDhUH2oJrx3i/Ra71RImfnovwIFaUz0XjrnVZi
VPgHW+XFb6Bt11LGecQNZd58sC9e6wcqkYvGu7PcQCPU9u6+hWAiw5IuYuJi
C8ohi7xLZwaQMbJDnj1uENUtKWJ7H3Ei0+NWFZHoLmB5a33ayqCeGHOrGmqx
yQehwHz1pazvwFBV/rW25jjwzU9EnX+dRnb7H9d9ahsOArrrpyQNJsmV0Op1
fQbRqMwUeO3hmk/EyEGxdpJWAsI3Xrud3/kImLPdN5+8EAJUw5kPnodbQGx3
oMf4vtvkUqQpq7BpFrlwxDnNwi0RhDN4v7ifMQCGDF0+4aQSsNzhOfh1wzVy
Lih1zH/iGDmel/6U/cgLYurBwRdHHZiJ0ebwgUPp74gvvIL/fQq9AOLtigJt
dQSKHl1mexY/hbSqPRYueVQQ09hUQ8h7gRr/ME9ChgXI8QR9Oe54BlQj7Gfe
5W4Hnp6jCRRCE4TdqQILm3einM/Zxy7BbaCUc9bZ5tQQSviUjB51vQhiL76b
zK+kkVPaj2ZoXk3Asz5tOfQnG6iR3dsntxIopjSrWhkRByqL++iRlTYgn+Iq
7Mv8DJWHc8riKstRMs/x+f13oUg3nD117+p1UFTmFet6WAYy8oW8gzG5yK3p
fk5+rSzRFpt69dmaVGQfZDojsn8aFVmOGQ6WSaGG9bt0ocCPQN8lQmWyekT2
Dd27ds9pHlgvRVU82BUKYoUuwUlpbSjrFbhyulcIudUsL2kfEgDOhXOH05MC
UV+Rbto3sg457L8siP1+h9JVvOWaZxqRr77a5OJpWeBdDhwoM3kBgjGGJpkw
SXbd4Gpqf5wKoq5HJk3v7AHG13C9E8lNyLufJ+QMdxYxsIVT700zC6j8zWvs
dVwiJ5j+iHReO4nqBf+l/DB5QEzVSNeJx/GTs2eC9voYhqFUUKmZ53QzUK8E
Zb1330D2SpyuinlrgTS2N9OdDpZI32NREiDDiaqv36/zjHUgqi4tfA/cF4vU
S++43C+JgN7jnG2PBbYTJfp2faw381HEO3vpM3Eahe6oxy75vUSZp8HDfMzi
qJVqfbbXrZlsn5HSUW84i4J7U7hCT3Agx5EdHXlOcyClx9F+t8QDtPL1H72K
Ykd2M/WxhvZIcmromjPPwSFkdz5atXmgA4Qmz9/IF7mCkm2RrqNUHlBrT/94
w94E6PNZfaOhB4HDp9nXXmwQ6VN+ZucjzZDToWpjbsVLoIT/jf7vcDRKy+Sr
vD/kgZLVxqz5mW0gfz7BV0q4BsRsh884XChFXtvzTje/fwO2rO9FUcHriPuJ
iaNMt5NBKt4rerdJMTLveM+2i2vVlxOve0RFrQOB7oG9DUPtIN9UJpO6pxNl
DXc+Yflzh5yPEW9j3sBCjt32D+GrDAZlXeVJfkMGarJznYsu+QKcbzfUWkxt
QZr2n9PrH9FQ62NyWSNQYW0yoaTzxBN56veIUQ3VgHIstt+pQQc4shSOBh04
gqpZPp7XVR6AsPJ+vZsrTMDwZjLw8dwCCmq1xQtsBcj7XvdC2xkqcgYlzm+u
O0rOnFu5M3KoDWmO+lsHvLtQ8acpJZ//MbC3Zjg8vVuN4l+ORxWk+xND6/01
1sRqIefdt083DySjfqn9P2I0GZTWVrybO9FBls/P5Lgd3obCQ2tzaoSKkTbI
Wtmc+hrEYdLPZf4w0qdFi5kHJkE6bG36GyFLEDxOOh8a9wSh7IKiLZ7cxIpT
WIzrelek/Xfs/GaJaGB8n7v6mboFeHH4U3taDrJV7y7ypdeCwtG4pK3uXsCx
2blMZHkOlE/eNPvFc52c3DATqrH5GnAFMB42friOPE3N5VfjpJB6cbtywLMV
YuXRc8HzLNbIEOyBH9V9IH1PQ29h3Sfy7xbxft4rZahzK7ZTcftt5PFa3p/U
ME18aUhcTj2B5KBRJuGd3w6ymsp5Td/zgEPy7NNU7U5yen9X5YaIvSgvXXso
LkUURH2ES7prDoIKn3WaL0MB5I2uFnTmaBJTx9tZC+IEkcf+4Ey7y3uk1rNU
aE9VgIC+piK1mAQl17+nHdO3EnM2R444P1wBak1S/EiiEkr0cpbZXb0EqlUB
WWYl+1HD6JHGFeYnxDx5sJtdOgmU2W5nXH5VA8JmXbuuqOuDyJaIn9PScSBK
37RXQyMaRJoV2nweJxG1yk+8Gn+9IJYpTmu5bz8HSWevjRGHtFA2dW9u2bkg
lL4G0ts2t6Ps6HXv0f4OsmntZEDqN3tUlq95eWrLPaT2f9Lb/fAyCMoec4jc
zw6USSE98eZRYvbB2dTDk6s+vIMsOnpqASUeeGgu3QwDxmUfBfFf2UiNsD7W
4PwFxS/b5UeOXAJpFduWVx9nQf1oJlOhazVS/1ILT8jvJcaU9v+a2v6aHN2X
d3an/3dQKz9i6aZ0EIS/dSSk5SYhpWhEbD4wEkRT5tPe9AJSBW4N9f8uQuk2
jRwFIh1pk9EWbi6t5HTD23LdxvVEV0+EpU4hG4icMKaYvtBAlq2XOD8Y7gBh
jmwXkTfZIEbfY+q2wo9yV4MOJG2bAoWxYtdnVjWr7313wLnGVW5e4ak648RE
9B2T+3ChhwpK4W+lWFzykLP2+8OZ5FrkZ3nwWJe6DbgmtZhqFAuQ3vA+RPp6
GzE/UPZA5agz2dV3c21kRxsxmdu3vtbuMLIXJkhbpnyDtYzsxXv/ckCsSjTC
O8scFQ/fMjy+g4fon2u8o2edhGwLl5qlNsugaIKwplOALfLOntWfkv0JCt/F
9B69+0bWXN31iS+SDbje1aqcqVJFLTbx/Naz14n23JZOX+3XqCSu+dyxKAq4
EyrOias8QI7we147G2JANW3FhOSJJOauFg2kLxSDAuvEJfObh8jZzmZQqqMS
DadUtgy12oNO2KBk0stkZNko+lI0qxKo+vGzt7yakWfvnVYngzByXm5J69fV
aKCMk9fsZhtQtF7Z4hfLLArpadgfqAwDmdrTCUK37YGJpvhR3rsJlbu3X198
07zKlT8DqT3N5NLOAwZBzZ+BwrflTfxED0gIJ/OWnc0ll6+fju53TwWeixO3
bvkMEdNG/iNMw44oYZcW0fKpllw+0NzyprYfmcSTXr9a5wHUG9yHZbPaUNzq
W3SKbjlIv3YNO35cAtj4FD9WdvuSS7es7j3dnEh+EBXoLf20ASW3uR7Oq9UC
YVOVzc7iKSD2jDvEZW8oUiRu3Wb6dhIFL34tlawPIXqlrAwulKcgE/uWoGNG
syAzuv2+0IgtMHPKaezc6EtO3ia+sj1cRPaHexeY3v9DJtGn0tx+tiCeFnjJ
w7UHaMtMliEvRoFHzzfAP+UhSnxMtBHWlgLljpSNX38NITVddOnLXhqKvRbM
tbgxDYq73c4WycSidOLNfI6x46DgtU9dPS6JWPrtu6DKY48CRoobB246onKp
zNw6rt0oMlBmU0tcIZa1Do1dMb8IlLzftHDlWKAdoz1bGjmB1CtCMr+FSsik
09+cAy/QUFTnXbc9qpK/n7fNfTB5AMqHL97d3H8TFX6U3wpR80deieSG8IiT
SDu5v61c+BhyHTwsJJ7zlayfUDjNVbcdOC7zferj7kImvZhyCpM1SKjy4uyV
YaJE4b1MrJMECk3tHdm81xMobkMXN3JXg9y7l4lmPwxB/I7/nsuDNBDu1gnd
OWqELMa7zjR5ZQDfz55uyV4JpHZ6xPL62iBn/5Hz22XEgPLj65VxHivkYjFK
0NP+j1iY2LNRt3ojCr2+fI4vXQgUtHd8/XFQDcW9c+S1931HVcXNzc3X1VH4
SMGf2hIvEFPIr2P9YouCCrx9Uh0WIDQ88fX2nhKUtPS7yDXRBqot/U80QpRQ
+Nb7Y7V/zqNg2N7769ViQOzOc9sUExcU/n2jqvbCfpR0Ea5yeK0KDPuXJi9P
zoCMbd8MPJUAled/rb4PHUdeAR/fA/UPgDN+srSejwKMjFe/9PcLoKzTK9uw
FmWkSo2Nb414jWzXm/lOBp4mVkRT/quhjZCzKgXv53sqgPb5q09pxitQL2cK
KLzYDWKSpZ+8lL8S1e93Sl0RbAO5o4G75bZPoYq3INv3b/0oM+obKrdaf2a7
TB/r7N1A/TRfPczWt2oAr2av6G8CBe+sVkXlYlQfjzXZdG8WpU5sSOHWZkHB
CNUyr5LXSDcq2W+nFg5c4zE6sVcMkb6rUZF57yQqXf/sMedPJXoc10iJycgB
47HiHrFFG+B7Ypgr7AfE7x+rNriSBmKRbkdbYvWAy0IwsIZFCjgE+SQ//3cH
FS1339A89ADkno9LvzerAhn2r1mXwgPICZPbLgkxqcizuO9iyScekJ4993n9
5WLgzNpMc/XeCwxa5skak1UuqNgt1u4sBtX+bbZ7GNVI971DqrE8RjqXvHbv
HQpIfx02qNmy6luKX0esdiyS/ZpyG58ujK564bMRx99biIlXPzIsjIaI5YGq
q5WuZ4jekXPpYcKuwACe+R5hEaIn6rDBPrb1IOn3mSntfjUy39/65Zh/KjHH
9e9y3oIIOddZr1H7Yj8KFlzv2rYdQGaAqvvZchwozis9Sa6xqLz/2k/Hd7fJ
f1uuGSl/NEMmN8Ln7YT06ty8bqdZUges5y5ZO5eeAza7aOHGWWtUMT7RWP42
CJWV70fRhRnIlBgya/Vs1W/7OGaMhM1AlOW52XqufSijZl68Jq4WxGe/lXrl
XCPIt8fsdR9IEL3Ttx5dpl0BuWDBcAfPZ8AmXyA5vpsPVT+ezRsISUSJgbiC
gFZZoqbLdcJgMxWFo3f8XbeXC8XkHUpD2nJQM84O2vwdiaVjwUHBNX9BeMTR
sPn2KbJb1t/d1IcTtIR7SyombgDdmq+o7XcS8O076P51GwH0in4nf/P3wLds
N3742QJQjQ5cPko8BamwD6mxZS+IfxT2G2WL24kFj6N+ialpQDMY0zq9rwZF
rb0nrWLKyPZJ0Z5HDnSUyZJirLn2E2WC1v3V8r2FYj8COoTvGqD85xL9HO4e
FK3bptdxIRQF8ly/X9y6yvUg4eSXVTzIbiG478K2MFDqG9/cxCKCvH+SYltI
X+DyyE/v/2+MWPY7ZdziyQC5h4ZxorIeqK1uPd47wwJ81TZr3pm8QzHfEJWH
p8JRQUJx2I6yG4Sl/b4WKLSTU7UiOo+fdiDPaRPzWqajoL9u07Zty6fJ9ke3
2uodhkBRtJI747MX8CndG88VZEJarK5X7M5PoPn08Rp/w3XALPrmSfkjX1QI
a5SIzBIB5XsWjvI/LqBSgGydqshZlDeJ2NzV+gDFUkVuPZFa9eawkn6JtqvE
woVujuDBSmB4PMmLq1gB/aV31Qu31YBPedyh+O83kBnTUfhcfo3sjR6r1SB4
UFJb3XKpXg5kTp/3YGcfBjl8FjfTp4YKJ4uGnj8qRxHjwXfV69pBFQJdOjlt
QWJ2aPri6vfSdg6kjuQFYPn080Ye7yUiex3vtLniJNAbnJul6l6jxJWPF21c
b5BZXjVW0/FnUeRAzcqeO69RZNyjIdFFAGUcClKpR9KALhL5Yef3bJTj8nrq
5vodJfQMzVtOOSAHX3f78qw9iDbObrVJkiZbKh/cO7/nInCZX5bs2c9A6rDl
y7j+EXJpWIbT794+ZNYzXg2KrKiccXuH09dC0Is8HfvZToocdLOZS75rD3Kv
spcmK5dQiDevmsc+CRQkLVqjR56CQs8FzrGJnNXz1qTsP3MIZHNGNMX80oGe
p3dbIoQklo8WfCDCbFbz875In49eKMtcTmlJ1ALWwYic+4+poOqwZc9yLDdI
iB+5yG+4Bdf0O7GMv3RDhUqJDKEIblSP4jfzOsSFSvvHpaV5SkA0Y66gJ22J
XPbbMr/NIRFEbdiu9JfPgexd10vnN20AtvCd9Iq9xcD9RuN9qVU3ypXdsTQJ
7iEnLzZUHlZLQemy0/7PrC6CysklgZTSC6gh0/VM7NowMh9+CYZ3fqLS7QyX
IZcXID+XJZsW30KOWm3lDjQOJWfb3+3d7/UOqKbIN6DEg4qbfgpFJfmDxuXc
SsGXkyC+8FCtYqWOHHS8kO0eXwqcFXTXYPZOFGH7GD67x4QcOuBr4aEzheL6
ektOstGoSHNPqP4uB1pWtfn1tblEWfyGLeoi98jxQ7oHI6kJwP5j21mNQFly
4dHVPKI3CZi2yNU0lIQRM3Ntxxt4toO4ntBunoUwok/nxfYzzDLI+JIbmiPF
gms+h6SeU1jt77Foq6W13ShrWvvDM/4IUha12FgTd5JzxfeX+3+fBg6XE3Xq
LHlA1wnZQH89CgojfzmNL9iDhBwl/2AeO9KErZJctdlAYo/6h9RGARTJ3v1r
i3I6MPi71z/hCAPxjeftzBPvgvpG052LC1Wok3CcPFxjD9KVrtzeC3Yg7ph3
cGXfPLALGodp3FZHmvm3xUOSLSCsYPXD63wBUOJu8YBSP3LXL9fqXLyKvEU+
w29qtED1aJZPRkMxUZ+rmywnbw1Ca5y01ixuJn+KkO3kvxqklnAd/seaBKKF
MsUfUhKQGn47aOeT7cTM2r+FjrYtqEg4Ol+4zolcW6+NzGb5AGfBu40Fy+7k
m2KpUdsnn1e9xvurpHc4apdXnCgSIFEwuE3iz51rKIoXnqv9WwYmd83kqbVX
kK9JV8ax/z9i3rbUKfbwdVTQUWmOarMnerKvV747EQwcVrwFa9/OAfMb77mB
IwwUM+dTupyYi+y9P9bEWk8i6wSXGbFbadU/4yP1fT6Qy043et8thyKraFjM
0BFmUCy4f2eCng/ygkdNDuiv+l+m7eZjAS+A2/hfU57GTmSP2ls4I3gI6QM7
60/c/g/EB0YVwo4hiH8auEWGNQIlyiPdjMMQ2Tue8pTJEMj4utPXg/MSMNqY
hZvfB5EzH0tfTDxdRM38zWbGWTLE7MONO58Lr4DA08x8FQkCVXTTZ4IxmBwU
i1yw02RBHXu1oONuIeT70AHZv/KjKEHRdYl+IodaPipOyV9qUMaXhyF1fASF
a2r+WxZ8j5QLpfQbFzPIXhnJ+Hn566jiWXdYNH6VA7yyfCsmfMgdVtEhcmSI
fKbzX6rZ+TbQ4n1oJNEpBwrDO1fGuJZQ6nTdkZ3ewyg3dMzwpvgc6OZf6o5b
VACqKO+oHvEaOdcFfgwIPw8sF7/XsxicIcb3Sx7y2RW9OnedRBI+/CMXOO5L
3N+SB6z0fmulc+tAau/OrEnPbbDGSrmy6mczSDXUatlPGqNSWJS5zL0yFPu3
oJdQ9o5cyJ+qPL3rKTlvoXlS5pssMZp+P4/V0ghkZkT//TfDRI4aBnz9aZ9K
1kk9ije+sAnl+R3dHhj4AIukWJWxpj5ynKRXjHx+hSoRxd06j34AS052x4mv
W1E+5LmmiecQKLyqLdG2O062iStIi3btQVrKsy9VA8ZEwZTT6kxbzStesYdN
dQ6gYLiYusqQBIrRROwp7HdQ2fDxC9G+aWB8U9SSPfUIWTKd4yQPuAGPeJRg
AHMErFP40egcLwf09Y57aLkKIH9o77yA1TPkcBq+LU7VRQkXuo6mgxZwxUvs
nqlURGEj/yPWJ3XIyezwK4SvEjF5cfMN660CxMx3kYKYT1EoRd1gJcciixTv
6TWPqa3k286u4BLzMnLgYEzMwdqrxFh3w8fIteFkp6PXYMrcF2Q325eoFl5K
9k9LNYfl6KK+apD56JlEsmm0v2booCnyHkiUY0vOQOU9wZc/Brxe9VB5zygz
URSa4Bx/xMhCicDw57S4A8SPD7YLArfKkcs5zd3xZz+ynP5ddehOOLA3cupk
M6aA5ZWw7mevGpC5fkZ39EYCaBf/Ul8f9ZSYFPBbvhf/DOX61vw7HhyNNJ+Q
HRVRwyDhnPbt/X8VKL5v069nvb9Querc9zQjT2Q25c/wbPNEjtb7qjsd1ZBp
xw0bmWo3YMicNy8ZKCEHbtwYtThxAGV05I3qbhijrFvPlW0KI6j6jowl/8tB
necFRwfbw1DFbj7s5nI/iu32FKsY7EGWvtP8/AVKSCU92riSpZD3ML9zyU0Z
5LPyfrpiYoqKrnXlkY9DiHnrV2JtIy+Q61OqQJLBGLmQmRu41XQUBTbqEx2b
ioDa+yXPZugUMqu8fLup3BSlDQyVo4wOoFr8U1bC/hS5NBYcSjuygWjd8CSG
Z58mKnxtPuDb+AjXhH5dacjYhepqfBU2Mm3IaeejF/tnB7EY/2qooDEHlE29
ZXZtu4ESuac+PGwPBe2I7iJ7xzPkYslZ2U1D60ChvzVffvE72cMQvrJ23xOg
DHY8qH64ypG5kIr89ixQ3a/1j11aCTQz9KipmsnkQugeqe3c38g5CafpOb0U
cibxzf3Y1vdkz6VX71p/3CInwx2dv5wUAGo7Iyh9QgulZ/+uDT53GRnNCVKa
SgQ5Zs2ZG73DjXBlvDIt3ctEjLZJmVdqfyUm/+h5NljLIitfXnpcyn8gKZZU
X66Shro6t7R546+QXR9WrtJXc7fwx0HT6EUu1B6nDDzuHyQ7t6sOspVtB3qO
ZOp790Sgd3XxZeU9RYU+X7oHWzyyXxvUf+1vRLTefRMom+OMXHb5v0e+PUT1
E651AfSNIH6Pbcz40E6kLCm4fyzaDnIFXuSgRzEoVTUlqESxowAf+aY1eRJp
XNTPLHnRwJa5JLhJ1wVotL4UQ6l2csTaYC6LcxLUKnbLL2fnoBIXU6vvtjXk
zFX/U3Kq7MQQsVRzb343qLTOsmvvP4Dy+uSO3c4lQLWwYX/bIo2y1gn2i5uk
QU73j/dbzhcgEdh2dv6XJMiYMM3ekBcgRqO6jiZ1XV/1b/gs4L4ThYrambSn
qlFegc27L69z9d7q+2UuSxCT5DmNeTEh4ueik05czR9gdRIoqTuehEJ797ZX
+QcDXzFN9OtnV5ARVK3va1wDmoL+N1MXSWTRHb/X7PsVFATks166WCNHvOae
epEWom+z97GA2b8osb/YRU0vH9f0WUr0Xw9Hka5a2+95J1CZwR1t5sYC7MXv
kue/XEHtCq5bN6+Fk91BNWYXczuQUT7JVJUjhoxEnu3zlb+BM0JetTqCgRJZ
r5ckGS1kTfqlqqbKAKKzLEzvZKQmyJj/1fKSy0ChwcKZP1ZPkenvhZD1e9eC
1pfPb6+wzoPmXbESlTOAtFsWY4H8T1Hgv8drElPOgeh1PxH/cG2gDtf9m1Tv
RJmmmM2TQazEQC897+U1fnLB0OKcRW8ZiDcNHFGOKQGODedjDjybRZ7c1ua8
R1woH3VCeUlAGJWVKm10i/eirNzjdX/5S/4H8O6aWg==
    "]]},
  Frame->True]], "Output",
 CellChangeTimes->{
  3.45168937055063*^9, {3.451690129328443*^9, 3.451690157971209*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnUtsXsd1gH/xJylSFEnbkvyQaUuJ7DiRbPoR1/FDTcTEjmzH0h+njuM4
jONXGCnOg83TbJAGZYIWbCElTJvCRVqwRcEUhZoCXrFIIRTQomAXRAGhqLrQ
ght1QQQsQBT4F1xM7+OfmTN3vpk7N3YMG40Ay9Rw5sx5zTlnzpyZe+KFb5z6
/Jdf+Mbpl144ePxrL8yeOv3S1w9+9Ktfy5raO1qtHaey/75wsNWf/axaLeev
/M/p/K9W63Dxv7ZS21tqc7Nb/OvDxd/9Wdu22lb5/7r5//t6Xbc2N1XR0XRt
Z6M3VTlatR6HtuN6mgzQ5sZmDq61t8TgkPnVhlqcKjHsK/4eUMuXu2pzbUl1
phfU0sKMml2+1JtyWG1dWlHTGTHTC+fU+laO56ZamumoheUlNTM1py51VWuq
R8nFpVk1s7CkFqY7avlS9+EeiAyGWuhkU3YW1Or6VoFqpWsPxC61uthRPQYW
/82cu5yNX1OzUzNqaXledWbP5VzZUxJ1S2+U6mY9MujrOX7ZbK+vnFez2ejX
N1SB8HxrUq1sbJc0Dam1+Sm1sFby7MrKjGrNrBQ/b16YU5Oz548V3Qaz372e
zTGrruT/3jqvJlvz+c+arK3VBTW1sFaKiLu2jmkE1VbGtRm1st4tELpw7hfq
3ExG3koxQl2Ym1RzK1d6ZN1c/O8qdXllUc3Mzqm5ud5/szNq4fXLxYjt9dfV
dMmMDOB5NZXNWFCbzbQ42VLzq5sPapF3L6vF2dkcRCby/O/danZ2MRdd8Wdt
oZN37yEypeYu9ABdXMyQWcjQVR/qsWTzwryanLtQjsuYPpUxdnXLsmQtY8n8
ao+Z2LUn6Uwr1Lqa72QKlMssQ31+ckqdL5FQFxcnVWt+teXwo626mxvqypUr
+X8ZIfnfI2qjp/sFkPPzavq1tQKNVmtRbfXaV3N5r262DEMyrm04cHZnf2/o
5SYYkvEyU6OFtR6kzQtqanJRMmRtcUpNaiXIqFiY7KgLzJBA15bWSrWxojqd
pWwx58yaypllGJnB6PGiXMcjmQJ0VXdbCfbOqMv/c8HRg9dKPTBrWQp6dSET
9PmyZ9cKuqUJy7V7cu58SNLdtUVDWKCrUf6uxbNAaXk9Jz6T9oaW9lQu7SqB
6rJamFvOkVLbxfKaUmublwpjVK7rK+Uav7JtdKq7eUUtz0zmwi4gX17umMW9
US70ll7d3ctLxZItQG2Uy3ddqY/0kN7ubqq15ZlshZdEBrprGlfm51WhJdvr
ai7DavHihlru5Au8JHKlWOzrjt0aVhsXFjNTUVq66cULhRvYupgZ4plFtbzo
GuKNS5lNm5pUi2u9RaIN8bllNZOto4tVQ7y4rBZnpjPrulUKLXMVG5fU0uyU
6iyutfq4q7bDGWpqerJnhzuv9Qxbbodn1fK5hcIObxk7fGtvglwpt0ppt7Qf
U93M5W2VbY/22nLf1tMJ49u6mR8ru1nfJtt0v9y3bW113TkyzdrcLNaL9nfF
oNPpP+/todNqPZX/tUO09ucNY72ptGPP/7X7DbSNvMnw3oq2dyLOhYq0qyJt
9ctOv5HvOxfn/vzvHZ583U7j0HYc2h59A/32vKMQ+V6vTZ09q9TERP7/1lqj
gfmgvH1iouHAM2eazVj8/fG3oqfWL7l9GkgePVj8L3kL098YcOImIh1wtsXo
Xl5RszOzdosxN6tmF1Z6oXNthN5grjwS2PTC9ysbOppRdQFwudQHzFyPm39W
+JQYbxLuZ7QGiGXxLyF5JMZ80XnEKgrOkxiLRecRi07bIEnjz6tz79SdaqIt
Wh5LQJw3Aa1KM1BgmzSw+PstMRH/73vajifNP98+2P3KPf+01yYXxVFo+71G
wMQCOAptzYCJRXEU2pKA/SuQ9IcpA/8aBpqUoiCpGTAx0AATJDUDJgb+w5ur
HG9Kz6LjvwMbv2N+GwH8Exj4AWDjd1Ow/AkMNMAEG3fBpLMpE3wBBh6BCR4G
RJpNIAb2w6SvwKTNJhAD+2HSAZj0P1Mm+ApMMAATTMEEe6DtNmj7RAoiz8LA
GwC5KUBuD7TdBm0NEBmUAyVSzwJOe6DtNmhrNr8dKHF5Evj00xS4nwWEHgdg
pF590O/PUyZ9FAa+H9qug7ZxQKQfiOiDfs2QEwPfC4gMQb/roG0ckBuGtmbI
iYE3JSI3BGOvg7ZrAd4haPtmCsKnEhF5CPpdA5OOQb97od8HEbkCt1MwfZlY
H5Qg5O+vgVnHAMydgAkp4lGDTIR1/wgD98Gkx6BfH/RjllQm/ThQ8BkARjaC
7MFgiNnJiAiqDsME+6HtuRhHRNsTjRCpiT1uggn2QxtpK7kFEmESwp/Vusyu
aj/ApbZ7AffvNJqfXZUpAxD03wLzU8zwZMr8zwMwCr9o3ZyEtqRJKebbCZPe
B8iNBJHb6TIx/yP6nGiEmJhwJyB7PyAxDP0oKk5C5HdjOk6BgJiA/OXD0EZu
6rYU5F6CgSS+QUDu/YDITi0+6U8q4iPX2AxZ0jXRRrb3KiDqsEZWGoz8j4BF
TrMZsqR/ou0GIMAgVl0EYtyPU5BYgAlNvUVttqGA9fvQ/RHdNj5e4jw+3vqB
GRHBh2zbU8AAmiAp70D7HDOBYMIj0NZsAjHQGE9KA4i290HbKLQ9l4LIq0Dp
9QBsAvq9D9pGoS0JkRMwqdk31GS4yaxMwNiS6wN27MmTPgdF/2aIi8kfhDYy
JxQITUIb7UeSUh0nYNIbYIKbod8g9NsFiExCG+1RkhA+DcAoD3MA+hnkcrG2
s/93Oj3k4oEAxcDkWj/ZiICa3M8B6Fca9so2ytqudvHrftuc/3f27BGATpEz
hfAeSdq3bG+X52zb3W1xNhQ/OqUQhZbrdZpM6TCBTP3rsgtJhDSDVJkCdNog
DAO8x5hFw+rSykJB/sK51fJI1T8HbtG53fdBDoYlUk3tz4YleZOVPEm0ZMmA
bcu79kh5HPoHyctPpPMyxtXigHC7d+LpnEYjebPAQxM2CV63od/B4OIRrNGa
0i7GkgrshrZ7ALRHe+2h+aZanCoqO1WDQ3PDEcH2a6tisju9XDNL/lh7ZdMl
ZIy9FdHTlJxDJWyyQLuhbR+AnPG41K457hdcih33h9jkJdMGaDOcsynDuG3Z
J9lEbqHGGQ9AG218qd8+mINEFrC35WqzqrVJNQ2iRuIZAH1ndZ24JoTyqLsS
KbkJ+hGnnzQIetUtmee4sqZmWp2eKnRTqymehXlMvkOQ/2HAcRLaPAlYHLvq
0vmlTF2njbomVmLQqiF8bgFaaM9NedCvV/G2BU3xig0SKAUplEahsXdCm4cc
RUaUfP02ACPHED0FoES76HcX9DuWgvAPAVgbEKZAmVLeT0NbM0TEBG1AjvZB
10A/CqWuLtoqsaf9+UEA0wx38jx0lCL6GZykk7Q/Uxrgd1Jw+goMLMNG4Wk6
ncrS8ALvfRo9aXEtyDH6td2aXA1I0JlrEkUvAjBKP5LkR+OSL7dykN7ycn1e
yF7q3nAIMsia5O+20bFwMxYJYJQYpaDabGe9HWJQOYc07dWNJ8Tl+r6Gw5sz
Z/qKhNWgHepyfVTPwAg4RBlOiq3x1UD86RROvhu48dsAjAw07boou2G4y9HM
7upq1ZsCMzSusCTk0fiUe2HIUaAw6Zzw3QDssSBOFBPvrm4GS8ghbRP7ZzK6
lEqkmjSBWjM6q7uuStvNgAh5s7aWO2TwJqD/EzBXEuJUOTMBbRTkk3K1tdD4
hNxVUKvMN5NOWhC0AyQT/yqSXFBM8TUd3VB4SFUttC8g1aNAqoQn3MiOHTkz
aD9MFpliLtr8kXxuBXgnDZNSFKXmgHAkSG9gX0UG0tuZDlc3+iVWeo4yRWJT
KOx7w6IdYiNj+/URZIslCf5WYERS/eXLAKx0MWwPyP1MSLLkesrJy7VNpksG
ZVZSDjEME+dK5ZD4KSAp3h26TXjmJHacAvIozUOKd0CzDYIRA0MQNwZthuBq
wCxE0CeVVPaBLPxeoOcqwD2JOR8EYKTmZCzJ0VPOZwTaDmjFYXuduuA9A5Lx
u4wGR/xoMLT4M7SJFMrFNuNpjXKRlu/VCufzBdOd5kyDdryeIgtiSkZlaI9I
pa5axJKimh0x5f7IEr/UiHk1ChSO0oI7DcKzdHvejnWvhsSOoI9HHZQT5E1D
Qz1tHLD41Li/fq0AYHG+lMLAV2hl2Z8pFDFM0G1lu2GCZCf4LAGJTrHKNjD4
NQlWwwnYujTghIvMzipQkb0Y0mxwXTm5R1JvMn1URRyNRWtS6mSTknjxIQBG
ZQleQZF07CW/eiot7IPS5wnxvSQdOFLYSfmY7zUiUgw8BIS3AZGybcRd8fmf
6jq0p2o9A9p21qhhRHiDiWlwMqxjEWWl2iY6n3+xEeOoxk0gXqr9bnanoeKp
kydNfmZoyPLS4kg5a7PAcpJ70V7qFsUsEhGEmc16TfySxK7PA8Ikv1KnhF0t
nWpJx6C/tmRCjGxo2zI90z6ymWRHBvV0nFzsJ2yqGxfP1ZEbMf6CY7o+rc26
SWjzMylsfwIYcyOzmPgwQujZnym5Zth+4oTRwnCKk1xExSK6WPYUJFjC3Fcl
rhLHUChBCSpvvQy4mPR+10wINV5/UJNf3fCKCckh0LWu6KUgzzwN+xLWcwo7
Hb7L4wUAlKkhfpNbMfy21rBG6Qt2UzqOYgnD5UhsNRlEdZc7rur54ukJk1nW
+3Ft3Cf4FuJegEEBMB1WPWAYE9HM52CCwSr7hc25CyavWZD7qqunzLsFlZQU
nEpmH0pZeVTxF10too0Og6i0Y59cAXalmnyj6wTI7FGm/H0wUxLJbQD2EgCj
40CSx7WSDuuhKKClKJ1Owcw0IthwfKblYure2Zyiut7CKy+KckxQTQaAxETh
47jWeMgbkgm9top76fVMpKztk+RwTejmeUHp4r1mYoBhqKvVzRhKFlXMQcfy
xnGQDpH/FG0HJM7Wl0VVVaBIG8Xw6YLHGqKaihHI/iTlyO4FYHRJlHxvycJg
nEl40o0+Kn6k0pt3BZdtfLubdInuMQBOxppqEB+ANtPPW0DuHHR1ga7GGEIj
21mCf7wR8QLYu6VCWldzp8ajGqTUJFGi/PBMhEsDVczSWLLhlDQywVroOLMu
LHUt3UcbsVjAI9mbQKma9wmE9zdVF0A1PSKrUmpsEOXG6YAmmiTz7IPbFs4z
ebYvia8vA7zSaFaOrqv88WVO5JM6mjxqNR8qglC64Nquila4cHM2FY79bd1n
dSfH5ESv74i2JDa/GMHdxOrSBtsJwoFAvfaRRdsttUWfgBZn7l5Xc74uklfk
bcL1DyCRGmWmhTCdzuLA6qvZLgSRFYRTdi9cVVRvqcnaRl8EECkz8qLhqOhX
PbJw25oJgc4TSAldxAoKnVis9Jx4ZBit5asxrSQQw2iRJKMYzCTEIu4v6eqb
qQQQA+kiobNi8/Zy818wi7J4Zdu4L/VwkOcRYOLVGubSIT7l65ghBT/ugO4H
AWw4rBaJjDx505NdTRGMc0qmf6330MNkr6r/xoDieqBmNEFjqDr4acOjFC0S
bDkISESfvfFyWUF3FHYz8XvntDe8HqZPLQumxfPelFVH75PQWySp+XFaFbR6
aBNNh1+3QxslcUwuy91g3A6kJPHlUzBHG9poRx4u6HXb6KmkqM/zAor6sYEc
Hz2OdCNMQwE7TU1JJvJIRPJ4I3kQIqLNECHqyUgnr4Wx4fukHv9o6nBY4531
0DlD+KgxQGFNkQKNpXvRVIvdTCQ0KYWYFEvXEEaiMyLRY2WKEGob85/tBiNg
KOjMIhzI89EDvWpBV6+pKjyJ4+ZSneDkuwDJaLFyzek2SWu/5JndUpNdMs7p
yJGy7ciRiBDjqbYbAZVPp/CJKjHKXGHwXSs60yHnPpyAN+kNrXjKpKRnk4JH
/2YNelUF8YQfSZ7aKBFD++DHG4lKADOiih3XuXOVoNMqbdsJvCCVJRNBvtAc
oeo2qu/xfETNexDZ34cPmxVFERWtRsd72YVLnpk20RSF39dIqmICiszxhhwv
0EgpVbzqnKJKc9Yg57URA7lOI1XpdSJTGKlKjbQJJpqCtnQBZ7ePCLDDaIuQ
JLhntUAkQyUFgmoyc+E7b7DeRIhG40qu7nZx0T9XE68WtpPYLMt1+Y5YGRP0
6cUjoVmLQakWL6irnFEK8R2ANgo9qYwiSWCfiitC9JSV1oSLFtkU6ldyZCSE
hZ/cNulOsaBseIzz1lw4pRCYdjm3xRlGe8tjKYIIP2Y94punSF6eEquUpI1W
LXguwO1nWK9jYLtEcK6a26i0lyctoRoZyo4147enhuSNh3zr464IelXOq/IS
jpwc/6GiLX6aGT3ZIlGKsQeh3yi0JfGPFJ2O7wnhMunh7QcoxqWKFEoqmPt8
oaUiLAclEXZqokKRhBQ5F1tepbWcA5BIzpZObh6CGSjgp4jwKq14EEGGkxQk
t11hvc9jEbvurw7prpim1Pkxvw9fEyx/Z/+Nj3xZ8PTqy1HD4hRNFtR/OnFJ
mQuUENXFlj/ti5yXuuzeS8MzHK6GMN7h504XHR3HlGPQqXnvAQhU6cCJFj+l
6pPuir8MwNqaF7wch6v4Uv1ZTRzi7ZQ1DEF7+FJO8EE1pzRGXoYQ0epoEKyL
4hi0kfEj+0GnAUnioLfVqYzNiEiaOzvZOEmwGmVTWFG/QSYJO2m5asXaEAfz
djhFEYGyb3KY4RipMrzToUq9pPdX6PFBWsrRxwIothXwSscIj66AEzVCEHod
TiMP2XmkQ7X9iK20xx3UbHXz6WRPvdvP8m6WxqAx+ynlUZNxp/ffRpkOz5/Q
3YSa5eG8YWhBU3ZgsDqdtWM90Fz75Z1anTyJ9/+SWHsCaKDwv810HZF46pXv
RMbs1yiEI+lRXRxFqs7FVPc9BMtLzcOhITOOTkbp/v2BRrwUBKTu9GgNEXKk
9kOkSEOF3U0upUrdgZOQUh+gN2NFQERuhy7rJwngdl7XpQkIFieT9aOYxVRZ
uPEdcdgpyLAOkUpwouU7gvHlNFf78btvIdx2iKxI2IQbBecUld0N/ZoJzPVP
Zq/suUd3jgCbaa9ABsesTeFF6fSNPLhnvIWvKOEOVRWl2rdPW7PIIxj03jmZ
BVqC90G//VWpGOUX72OnPhO6V7IfnlyoOTUNJyfcNlpgsTfUzClfdRPgrToQ
Uf7H9qPyeyoQiT1hQB/T8cRg6IF3uLX61Z28vSzpJgsRWOVUgTsGbWQNyJLQ
d0ZKptW/tUS7ULbaZKEpBeax2tw55nfBo9yucY70uOAt0EarNVz9yKkk+moa
qSZtWcM7cpdG7/NHlnf4gDjx7jDMRVUrt0AbHc15V+fdDIBZiXJhV7epbnhw
V1w3TU4hkvc3D9cnhrrBR5eR2fwOecHs4sFq+tQIGVy6ieAZ3PJ9HG+f1q5y
QYcVXvLH8+ak2bR1miA5WG2gReM9oSbcwAT0p6IUQmW/4a2n+Pi8OSn+JwAu
lRibKy+uVoYTnvHrJuRVA6/omLv5fgxT0iBAGOHYNqlH4XN6DpEmoD+VMNJ2
4+bgQuGX2aPCEXDp7REjHFelickjmlwIScgGeFUv1QBe9CV2UUB8FNooevVY
6MYfzqPxGH9Q2oCSX3tYuZ3UQOUMk/DdzWAoO06F7AQymkUXbd+usspGzPbt
eoqYKRtAtib8JQwKed02yiOauCmWvQ/wpyYSp1OGuwHeR6o8S/28EyFCGYLU
DWzg8XPSB8O2mIFjT2N8Y8PAm0w8fkbJ/kyGhFYBvSOWJJWPBdWDb/zRpoC8
nLHR0pBah0D+gxaLF2LIrXRbch91aY+WlBRyRVKoCPZnWob0mEYzbte4PMr6
kbty3lPS+m411TGj1XwJVFlQN5dKysV6UUrwNDpYlBItsRfTf7URk2ucIkmW
Srtob+xdAix3IybwkoGarrlJ+SwBLzqyzRRlJ72I/zyQQ7WjVAzibBqd+40D
ZL2sDEUG2LtDDepCsT99HIQ2wElM+AgQNwnAKDNLyQs6QvG2ptaw9L4HtdPV
hvxPzVqLvl/jjeUN6hjAILPejJGCcNp10dWrcOFgfRRVtu1hGxYrJHUND6fm
a1I34QcPefMTFaSAYW5uuNELrfQTjWRTs+mKXmai1V9zjhQ+FY+94s3FpWSk
PeW2so88jMo7tah8q2nFSK5DDE+SjXk4RvDyVpg3uh7IUJFOAt0mIS51LXc5
7top2V8JMKwtIS1JPeAKP+0yGous3X8LJ0k+zHl1ClaUYHSS1O7T7OC91mGA
S5FH9LA0dRF6SuIp51USW7/GjdQo/Hip68TDWeb4/Q56JY6O4Cag7UGUUCEg
Ixc5tSXhtwCa9xmoSrG9F2pVnqzjd8DGqojkUK2SkjKEXboIBu2rvZG6n5r3
Yey/6XUrOnWbgLb7DdNr10l8h0yJG8qTh19aib9sSqrsVU4ILzSqf2cfTtE4
o1cJX60QpSd6jgCDSfWvJdpc+WF+kJdHRTAf0PrJBmwccKSjx/DDKyM+b636
ezowoDkZolV4LPIhpd73vJiMHFyywsmYfldU3JUkR/eCPttIAmyq6EYJfu7Q
cqmvZ7c8DY1lqMn4G2n4q8PTwPAzB5WcjyWRUBzVUqg3rU6NbeRtnas1SNfn
T6cLx+U+7YNTdwqBEzJTruuiqJcHUW/iZ5Alrca2Zq9uq67CqpOuifPJL0bf
3fJWeTDDRjFBkrSejOEk2sI3Pj0tKUOmeAwTfnmGHJcwbmERxLfCNdsBE8m4
28ZAgONddXVDhfBrBN4ESTJ6COBR+EHE0klJOcdQFZdyNjs28E0ZOseLFsLX
BO2kWYHvi4bf3xlwQ5deRTCle8O1+C7cpxtJRgCj752ZJVH1Pl4cM0B9sLog
fKV1wIpMnBGSJkQ11V3V4U20V0s4GoRK9iPQ5vlUF97JRuIRE1CCIGixvABm
gPr0QttB6Wwksl5aWm/+Sw/lSZYSIhQ/pT7dZwIE14rR5Tzakyax+lsAjOIw
fF7Mssq7FSk/eVBZ3UQ+1eW9i7X0BtbzpBzGjzUV0gFYipwrVVWvVbb1wq5+
VyHOnn0ACKDjZ5OAFoJqhjpvc8kUerlFsUNsQ396afqG6hoQsdcY0JxEC31F
9nPQRlsyCjW9krS6Z1rtHGRJKaBJfdpsT5XnYpf9XCPeiIkMb7yjJAp8d/rb
eE8pK+kSt4+cmz6h+UbuQFB8TQbh+Ua8EgOJV6Z4W26V223Pc9dUMUV5QYer
RLfg2ZeRxoLELwZVK5iPNns/GXt1Op7/Sz2coVysIJJKskgJXjE0RQT5xSru
pavwFpMwYOaWciTNFq0FrN87xUqSaa9HNjjp63jvh4H3StzjH/HAJV3deFUf
lkt8y75uK2t/by5MujJ07lHmYW1eFlBcT/VUxctQCnGHq7+8Eo9mLBfw7gKi
wxvR2JIK7vfNF+yq0Wj13y5J5YzDrmFng+1+c6gSenmPNJVjhjX4kE8Q/pRK
EdpVsOV0DwM/b20kHDEH1StG6x89Ix07BA3mBPCbXpI1+t/mg7aD1u3mf6wE
yIqaDbO7ygM3a53DGNvbuEFxt+sR0G9a1AdT5HEcBtKGj+I1oxtuWZBZ61Ck
EX6C0EtZG5LE499jJNHqVoUivkBJk9s12iboNgKoyWA1E4AYSBFKOCj0VIxS
PxTYBVLKxAba65KahAvoI/n3mnwsJSZpP/Me6NdMBGIg3benYJYIpk8XEf/L
tnhM7zhCK6NSdOKxM23G5XdQ8z9kIwR4epv6sRSe/Vmi8E2beAg0XAYHz5Rp
goaGPN7QBu8Q4JBE0FMxodUYidRHtPE9D354IppX1RYxf9/WieBcuq/R+uU7
NOM/ya4fg7lvb8TDGsMTDFNFn/Dj2IHcfyBW8MKn+s0BGTbaj5okkPgmiWOS
rYjfAygShc3YXGOHDJura8rb6wWea6m8QBF9PKRmr1jyeVfIc1fxioaEwpQQ
Su+BNtrSJvH6k4DIKAC7Wa/NqpMzXzUfIDrxPKQNc5KyRB9LFlGTl/sEx0sX
LR9JYRC9OUlPv05qBlWjQhNdt62CKmUJ8T7THUyU0ppP/dhm7CGE8cjvTjXi
kRd8uUiU4a3n7L28Ycky7zDdK6/Sa1d+0tvTs+ALxOEKpeC9Hi/0994zICtd
U8oh+r+I3C6YbXhM2Tov1ebtk2+Mq5Z3CVR81Sb1HRqnX2nDegXzJnIXml9z
HBBMQ0RPoGoi7XANXkB3BbwnjCRSvvQigBmB5JqnH4Q8e5Yquo08xW44fPZd
kfGRI7Rm6HStJm9A1o1iazr4orEnU0wIfSPHHNLUiHUitjQo7vH2PMEHJWlv
Rm6Jnp6ge/xJvHghUQBRtfcOwgLxY4058SwYlW4LPM80IpCCzZrg1bQJv0lB
BmVdyVlS5SAd8tFzKbdC290pDJiGgWOASLSWSISJdP+NNIEiO3KDd0Ab3WaL
FtTVRHdJjHovALsbgJl4WoSFJDHaIl2vVbyaawhswWk3bODWvFHVrDisPsY/
GFKkZMZWJVKZ4Aj0o/1P+CN0ASIInmjDl4js76OpGNFGH3puxh8B7NlEgdYE
keQ/aPEHXlOgNRf+yo3bZrgqYyv7+xMwJIlb3wKcyAMP0/z2Z1IECgKoOiu6
eRdtVIz1QiMaKWDzHFkwuiKxjAHo8APugfhVtFH15sdSaHwmpltk42tKhkrz
lHJeGzzziEaeNWhSpqQZH8TA8GciuQzD0C51Pf9TI2TyszQ3XbpJveqZxAQ6
AyVDE27jlIJhTPhcMvJySPyGDeFCN2Fi6RDvObUocwRQKqSjdDq9Pxf99idF
ZpTbgSwDE1PQ8jCAIrLoGbhoHYqAdz+0dQwGDb8NSvEJhfTkMsh00uaOQvqk
G/X08cwjAIyWN9n/Q7HVJ/odgH7HUxCm95MpxCQ7Q3c/6KmAcFjjwjP7F3Fy
Q0v5AMxLzuCekAYkM4W8rgBGn9mh+xF3QT8ilspG6Ez6nhB+yYRR/kAAS11P
7VgbSaxmK20+YBaJFGi9Eh6kdZQ+vSfEk1+lCJiyPd7nt4SXSb2LFo1ha8IG
w9RICEK25xbAbQLaHm3ELDHB3Zox4LFSr4KRttFSpZNNslWGWZGwhDSL5qSv
e1M/Ck2aMVUgQjaEfPIoIEKmgB5fpLIRGkv50CTCTsc4J4CRe6TvmB+AfsQU
UvkHqghrA7S9vV1gu93dtsBqXua+IzRBKJr23CNvM6LpNk/CXBFMRtSsdyEI
eq4uwKRhdWlloWDAwrlVVTy/mPhmNkmCEgNUxnw/9DPMAyNcczWI+EK5h/Be
veYGi+i/vyofkYWkh+uCfM8YrRYmO2q1W6goPZ4d57tAipIVlFinMJ9y0pgb
sXCIL8Rb0+adk8Uu0rio0GfavxDm6aZanOqoC4Ui46PacZ6KiekT7BQT016e
ciwPAjwimLbUxFxSNnoq8uNJzOJHsZFZdC+cFj6dFNHx4bFQv9CqsRLG16NL
pIvnpjswHa0VqsQIXswVvP0w8JsqximZ+YTBskei+Wxj7qGurKmZDP1SHsnv
MM9pnCOBpMFZtFH13atVEVj8uurS+aVMX6aNvsBDx4Tfl4A3wc+xC14ZnEUb
FSJ7OJsYquZ1YYOYYMB6FRjFQWagwCJpoCneFqwofjPUaLTA9xRA/MtGwAQN
5TfCgmcj5HHDB5lepeRPU9Ay11GlMsedEO1JDAqyckDcOhTYJh2K4wVfKP6q
ie5pi0KZhCScTBW0IIZOxpoBE1j8U8rArwAWhwALKqr8q5QJ6PYUvbNA7pfi
+vBLk26/O6HtmUYIiwno5QFylSXCtd/UMa8Q6r2G+BwblQcw3gXadwFmdCch
+q1Ab3sjbIgOA0tUKJU+XKWGyn7p5Eig97QhKCKZBWANWRRDgzRCdjLKrzf9
oOsfpGiSCboE8ebdvZqIkrLFVBQW/RKW6NcMYUHpUZjgNmgjLv1Jo0kFtkcB
GKWFKXuRNOmPYCAF4t57oWJn/6OUif4OsKZdXjNgtGWkFJyg5LspEyzCQDLW
ScCeB2CTAIyMa7MJBLBJAPbPKcDoeJ62db9MAUafEKBasP9tBEwMpErdkzDp
3zaaQAD7DExK6RmOCgv4fw9gaVP8F2ZEBMcZmPtRmIAeEf5cChPMBAKzH0Bb
M2ACs1cAM7LySRP8MQCj26De5ioKzItk3AnoC77NJhADKc75cQowWqgU7KWG
Hs0mFdjeCW3kBZuZH4FZmXOvL+bn4p6k8P+PAF8yVEnAvgkcpx1/6gdT/qbR
pAJbesXhMEzwjUYT1BwH0Vf+aMM6kzLpf8EEtNNkYAWs/wYQL5vfRuYu/vaS
edTzZ0DezxoNFKQ0GyiIShqYTlR6z38D8r/faKAgv9lAQX7SwF8H+W9Kz6Lj
q8DIi+a3EcBmoGDkf6RgZAYKRiYN/HWwp7QwwbxdEl4Ghtzz2p+bweAsWRKM
t6lJsDnl+EkyC01n0VcXO0Vv/d/Muct09NpuDDg/IVmamVEr6/nB4qa6cO4X
6lzah3kZsD16WVfznTl1qThUTz9c+yWI8fnqJOYj3xsr2b54SW3WfaX1DEA1
hf9C7tNmRIVP3e52D8Ouem2ypZbXN1K/RfpDmMfMLVTHo1LPvTI/r9ZyyrbX
1VwGYPHiRuoRzw9hnvNBXdi4oKYne0rWeU0VGpB2VBPThVL3t7aKk2tRWRE/
Y2GIbwO/8ZueKT1tx5Pmn28f7N6hPZd6bdKK/bzRQGGCmg0U9iNpYDpR49B2
HNoefQP99rzNEemXnfKfx2Ds7jfQNvImw3sr2t6JOHOhcf9vRPrOxbkIWDz/
VazSp0Rra8f/ARvXaJI=\
\>"]],

Cell[TextData[{
 "Of particular interest is the distance between the end point of the random \
walk and the start point. In the first random walk graphed above, this \
distance is ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox["2.42851", "2"], "+", 
      SuperscriptBox["12.6146", "2"]}]], "=", "12.846262851252893`"}], 
   TraditionalForm]]],
 ". The distribution of these distances among the 1000 random walks is best \
shown with a histogram:"
}], "Text",
 CellChangeTimes->{{3.451689498938498*^9, 3.451689616070779*^9}, {
  3.451689705215578*^9, 3.4516897895366907`*^9}, {3.451689826116523*^9, 
  3.4516898898537617`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{0.5, 0}, {1., 8}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{1., 0}, {1.5, 13}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{1.5, 0}, {2., 15}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{2., 0}, {2.5, 14}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{2.5, 0}, {3., 28}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{3., 0}, {3.5, 32}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{3.5, 0}, {4., 32}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{4., 0}, {4.5, 36}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{4.5, 0}, {5., 30}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{5., 0}, {5.5, 40}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{5.5, 0}, {6., 32}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{6., 0}, {6.5, 43}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{6.5, 0}, {7., 44}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{7., 0}, {7.5, 40}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{7.5, 0}, {8., 38}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{8., 0}, {8.5, 41}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{8.5, 0}, {9., 54}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{9., 0}, {9.5, 49}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{9.5, 0}, {10., 35}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{10., 0}, {10.5, 35}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{10.5, 0}, {11., 44}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{11., 0}, {11.5, 29}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{11.5, 0}, {12., 26}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{12., 0}, {12.5, 21}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{12.5, 0}, {13., 31}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{13., 0}, {13.5, 25}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{13.5, 0}, {14., 15}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{14., 0}, {14.5, 22}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{14.5, 0}, {15., 11}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{15., 0}, {15.5, 14}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{15.5, 0}, {16., 18}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{16., 0}, {16.5, 13}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{16.5, 0}, {17., 11}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{17., 0}, {17.5, 10}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{17.5, 0}, {18., 11}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{18., 0}, {18.5, 7}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{18.5, 0}, {19., 6}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{19., 0}, {19.5, 8}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{19.5, 0}, {20., 5}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{20., 0}, {20.5, 4}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{20.5, 0}, {21., 2}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{21., 0}, {21.5, 2}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{21.5, 0}, {22., 2}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{22., 0}, {22.5, 2}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{22.5, 0}, {23., 0}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{23., 0}, {23.5, 1}]}, 
   {RGBColor[0.7771114671549554, 0.7981689173723965, 0.92304875257496], 
    EdgeForm[GrayLevel[0]], RectangleBox[{23.5, 0}, {24., 1}]}},
  AlignmentPoint->Center,
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->None,
  AxesOrigin->{0.5, 0},
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  DisplayFunction:>$DisplayFunction,
  Epilog->{},
  FormatType:>TraditionalForm,
  Frame->False,
  FrameLabel->None,
  FrameStyle->{},
  FrameTicks->Automatic,
  FrameTicksStyle->{},
  GridLines->None,
  GridLinesStyle->{},
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  LabelStyle->{},
  Method->Automatic,
  PlotLabel->None,
  PlotRange->{{0.5, 24.}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotateLabel->True,
  Ticks->{{{5., 
      FormBox["5", TraditionalForm]}, {10., 
      FormBox["10", TraditionalForm]}, {15., 
      FormBox["15", TraditionalForm]}, {20., 
      FormBox["20", TraditionalForm]}}, Automatic},
  TicksStyle->{}]], "Output",
 CellChangeTimes->{{3.4516885840474367`*^9, 3.451688623714438*^9}, {
  3.451689453331625*^9, 3.451689455981255*^9}, {3.451690139408642*^9, 
  3.451690163742324*^9}}],

Cell["\<\
This shows that the most likely distance travelled in a random walk of 100 \
steps is about 9  Indeed the average distance over all 1000 random walks is \
9.00895.\
\>", "Text",
 CellChangeTimes->{{3.451689909179755*^9, 3.451689939428968*^9}, {
  3.45169021278553*^9, 3.451690259620723*^9}}],

Cell[CellGroupData[{

Cell["Task", "Subsection",
 CellChangeTimes->{{3.420156478692501*^9, 3.42015647912057*^9}}],

Cell[TextData[{
 "Your job is to develop ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " programs to produce graphs like the above and to investigate how the \
average distance depends on the number of steps in the random walk. The main \
question to be resolved is, if the number of steps is doubled from 100 to \
200, does the average distance traveled double too?\n\nTo make the histogram, \
you can load in the Histogram package and use the ",
 StyleBox["Histogram", "Input"],
 " command. See the documentation to find out how this works. Other useful \
commands that you might not know are ",
 StyleBox["Norm", "Input"],
 " and ",
 StyleBox["Mean", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.451690362044073*^9, 3.4516904395046186`*^9}, {
   3.4516906714476557`*^9, 3.451690866489463*^9}, {3.451690903361326*^9, 
   3.45169096865679*^9}, {3.451691024839282*^9, 3.451691055085376*^9}, 
   3.451691349044018*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{795, 832},
WindowMargins->{{283, Automatic}, {Automatic, 26}},
FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 103, 1, 76, "Title"],
Cell[696, 26, 502, 9, 41, "Text"],
Cell[1201, 37, 5033, 78, 370, "Output"],
Cell[6237, 117, 221, 5, 26, "Text"],
Cell[6461, 124, 4738, 75, 370, "Output"],
Cell[11202, 201, 278, 5, 26, "Text"],
Cell[11483, 208, 34261, 566, 374, 21160, 349, "CachedBoxData", "BoxData", \
"Output"],
Cell[45747, 776, 669, 17, 67, "Text"],
Cell[46419, 795, 7762, 140, 244, "Output"],
Cell[54184, 937, 301, 6, 41, "Text"],
Cell[CellGroupData[{
Cell[54510, 947, 91, 1, 34, "Subsection"],
Cell[54604, 950, 928, 20, 101, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)