(* 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[      9067,        210]
NotebookOptionsPosition[      8527,        189]
NotebookOutlinePosition[      8968,        206]
CellTagsIndexPosition[      8925,        203]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "a_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Binomial", "[", 
     RowBox[{"32", ",", "a"}], "]"}], 
    RowBox[{
     RowBox[{"Binomial", "[", 
      RowBox[{"18", ",", 
       RowBox[{"28", "-", "a"}]}], "]"}], "/", 
     RowBox[{"Binomial", "[", 
      RowBox[{"50", ",", "28"}], "]"}]}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.465556865090893*^9, 3.465556879791235*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"f", "[", "a", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "10", ",", "28"}], "}"}]}], "]"}], ",", 
     RowBox[{"Filling", "->", "Axis"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4655568852866364`*^9, 3.465556967684944*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"dist", ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"18", ",", 
         RowBox[{"f", "[", "18", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"24", ",", 
         RowBox[{"f", "[", "24", "]"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.465556941181548*^9, 3.465556953960881*^9}, {
  3.465557000012939*^9, 3.4655570321522417`*^9}, {3.465557065515498*^9, 
  3.465557070904388*^9}, {3.4655571353707247`*^9, 3.465557144541065*^9}, {
  3.4655571994700813`*^9, 3.465557204147107*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGCwBGIQDQEqDqvez/zDmrLCDsJXc1igq7unreA3lK/hkMXw
yWluk6U9hK/lsMjD+JGAVhaUr+MQWa3/iHvpBChfz8HqvNqNvm+roXwDB+fV
u02fiR+A8g0dcg5MrLf+fhLKN3KoWdN4fd6Bs1C+scMX4elJV6JPQPkmDuUx
pza8rt8D5Zs6JDMUB6hsWA7lmznIabdxXF3UDeWbO2REKnSc1kuD8i0clon9
i8o5Yg7lWzqIz7nHsciSAcq3ckhcu+jXNtNdUP9aO+x/x6ET/TYVyrdxOBfO
7SB047ctLLwYUIAaGl8Dja+FxtdB4+uh8Q3Q+IZofCM0vjEa3wSNb4rGN0Pj
m6PxLdD4lmh8KzS+NRrfBo0/mr6ITV8A5D6q2Q==
    "], {{{}, {}, {}, {}, 
      {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{20, 1}], LineBox[{21, 2}], 
       LineBox[{22, 3}], LineBox[{23, 4}], LineBox[{24, 5}], LineBox[{25, 6}],
        LineBox[{26, 7}], LineBox[{27, 8}], LineBox[{28, 9}], 
       LineBox[{29, 10}], LineBox[{30, 11}], LineBox[{31, 12}], 
       LineBox[{32, 13}], LineBox[{33, 14}], LineBox[{34, 15}], 
       LineBox[{35, 16}], LineBox[{36, 17}], LineBox[{37, 18}], 
       LineBox[{38, 19}]}}, {{}, 
      {Hue[0.67, 0.6, 0.6], 
       PointBox[{39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 
        54, 55, 56, 57}]}, {}}}], 
   GraphicsComplexBox[{{18., 0.232440810420801}, {24., 
    0.0003626598872802179}, {18., 0.232440810420801}, {24., 
    0.0003626598872802179}}, {
     {Hue[0.67, 0.6, 0.6], InsetBox[
       StyleBox["\<\"\[FilledCircle]\"\>",
        StripOnInput->False,
        FontSize->8.96], 3], InsetBox[
       StyleBox["\<\"\[FilledCircle]\"\>",
        StripOnInput->False,
        FontSize->8.96], 4]}, {}}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{10., 0},
  PlotRange->{{10., 28.}, {0., 0.232440810420801}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.465557032779161*^9, {3.4655570677069483`*^9, 3.465557071315104*^9}, {
   3.465557138636176*^9, 3.465557144950996*^9}, {3.4655571931454973`*^9, 
   3.46555720460491*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXd2PG1cVn8TO7ialNCgppSEt+QvmP6iKeShPYd4gAb+ECquFIKzSRbgN
KbLEhx948BNuaGSRygHkSuA+MBKKQbhSsXZlaeNmMVoZyUnlpnGqWTpNO2pm
m8P9HF97r2fGXn8mN5Jn4zP3nvM7H/fDc++5c/LMi89974dnXnz+2TMnvv7C
meRzzz/74xPP/OgFRIrs07T9xzVtn3FCi6L/g6b1XLx/T+LLSIQ/kT9RdHHB
tm3ycQB+TcgRRHUoyQXtlwLNsiz0sbXvUC6XyJ8VcFplSBkxoAh1SKQL0HLx
zTZkYtp+AjsCOrqVKtSQSNDOMa5OswBcsQi5rqBrCpouxduu5sh9I5FA9TVI
lxrnPEBNSLGqUXJdhnzdBrdVIkU5Gl2PQ6lhaacp6Nd5dWhBEhWJZWsIIaYt
o4sFxXQS0vky+h+Q74W4Bnqmov2MlPk8tMppwjpdLEGpWIQi+mTiOiRLLYSo
SO+V26S2w77nG845Vh2sKsQwsmQeTLNEqheyCdDiBfioXYFkPAnFaotUdzsV
MHD1un2qH7wN+RgFv8xpLSwsBjUbPLDNUpJwdrwAsKBevw5mCtsmDW2P7kDe
0HhZz8SdMgJgQMUCZqMItOsNzo4AwddaVgdNzyFQoH1rN9JcP9K2ScxSaDja
eUJ7GLFA8WPkMQsPKa6nxXK7aXoGOsC15EEUIzCXh4O05DUEB8x0jARMuQPn
WWTj9mGmEKeUCSQi7RrxiGYQztwmlQyuaUAVmf48o1nVLKIlAEWkdoBLsWqQ
1LECWRxfPrgiLCJdB7e6NtQrRdTEWFBTM2mvkDKfQ9BrJKSSJnKn2yBR3Ws2
F8ppDyEF+BAhF+OYXTc+HMeGTrsJ5UKGRilmW2xqkvDrRboEzWKCt2Ty0eNZ
aDoslA6Da3fA6oYhjWCsUKKE+yD6/x7QSITh+folLtm1od0hfFhEHoB6ziC6
1WyPLetLIpDMV4F1JbIwyOqiElFivjjRuQod26WmegScehb0ZFkA34Y09mMM
+xGFSFIjvm64wn1sh1RZe9kT14QEKtP0kK/QoKdeoeFNYsYAs94C24VvU8CX
GLh2JQeJRJz2h9lalBm+nouDnshAPp+DbDYL2UIF+/Nlhh01YsjgGpkSavpV
yCZinAN1ebNEvqfMtoBBg2LL0XinRSysp6Bcr4OZTzEfJ71emsjQUR+YzUMu
h2BkMqgTa7OoeZJZQBi7UNdDaVazgnpP6oQotxRqZHHWsfOxo9D0Ykd7iSnu
4O5SFyMuh4cdHhYdPnTEDfI3U26xHmOJAC6mDCFgDSg1bR7LbdbHdz8pNFrw
9irT5zeM5lotaLH45N2TbXWgY9k8xKiOuKF1SJPQfs7r2haiWdh5pOuh9mlC
h1pZ++Zg8eT6ClMc3Duwtb4FlX824F/r78E2GsV/GlCX91rbmzU4/dSr8PRT
ryLb42sEXS/DGxsfkhI/oXyeYMW3tm4TXuiv9rhA++Mfrg6kEXnPcJ1vXoOT
TF7Uk3cRzBs7pMSjIZnKaF+S0A5R/MeZqfCtr331AtEB/8VFHuu7h0CFusfF
3bvHTQserM8+u7eLJpab97pHGA1gB8xV6q4l7q7Vq14Xe2RE2/nd+6LPvYPU
nUeZeBzV6HIQX/YN7+lB9zBd5mlM/+Tjuz1WE1uWWO7W+x/tKreXus4nbqi6
nVt3BtYVGwhvxUc9Tztw+azYESx5dvA+p96CbYCjEzBxv9PFeszpQX1QPw1/
l3UNmP5O/aZ2bAE96Gfebpu9C2+uBnhytYaHHbG33atJhd5WNuoEac1pMg1j
T1/YBWPRPIbNhi3PPYG+a7whuTeu9niHToFob8sGRlLyUQmOsHaVlTs42F3f
6IPNPxg2Z3Xj+v9CmfKDDz7e5QZZ3U8/3ZHWDeMGXLffDbdv3xnYcMS+h5v1
9saaZC50yZsLPSaRHw82oUzkKGYYpwkH1fUzoWx6xc2Kp6Cb6w24cuUaVN5+
N2gKakhYHQuANo8m+fNgFc8qdZQ6Sh2lzuKrQ7RZdCXuM58odWapjjgVuvja
Glx7533tL4urjmxyzH9zLbCX+n96ib9hfNT6geDc3G+rPfP1eVJL9rvCR63v
+1SbJ6/Jfmb4tC2ulszJ86TW+uJ7xkcFsc30P6Kfc+i/UjAfAJgE5byCWxAb
KpgKpoKpYCqYCqaCGQBTTTgUTAVTwVQwFUwFU8GcOEw14VAwFUwFc0owNzdv
wWu/WyNP+ucQprhIhpcyxTWVtfmFK1vFYnB57pmYq0mzS3DWmA09uVZCGS/V
qTf1k+fNzZP2sgUwpj1N3JOlh1K70Kw4kqqXKBJbSIoyeQOTVA/MkU1ky6Cs
naHyPomnLACakDF0SOZrAWUHJ8DOkzXeY5qvBGWy0mjAG5vdoKLd3CwhkZbT
5kvpgMTYrtLBObSe0kJOLqEdwF9/MWNVI2K2rSZLt6W0aJjM3G7P15PrO58u
DkjipfodDpPv65dDPJ+6B+QCU90PAQSnDeOsZJ4KzBKSvSCYN72XfdOIafA+
TJzrU475vyeLWfMb28m87cJazw6N6Wjrl3jMJzJ+ZWgYDMx/lrmYnmUhnwVy
paahPJ28SBKUlxhAWe4yP2whKD2ad30yxf12RU1BcW/OKmQ/r/jQxGxqrv4g
fw7aKTUFtfx+Och2QM0I0usCCyVeiZ+keCL9AdNZiVfilXglXolXA40Sr8Qr
8Uq8En+/iFcDjRKvxCvxSrwSrwYaJV6JV+IXWvzgDWQRcQMZOxUQH09s48P/
ybel2UIP2v31hV27vwa/ogD/c8DMGIRuGDrgpfVyy5FueJqmkg8Ns62r607h
vQb8FPneE9IBquTccXKmtXQrxDS1DNzCxd0gvvOgG7sNSGh0f5pHsyokGlJm
ew6UC9h/JSqX61POrtPwThQawso5jWvxvPRZKRe8OctfuzxBnqvbu7TTU6aw
Ce33U3VYwG6qMCplaz4qzTQaA7ZL+SmH3wWCm5WRqwvK1clWlHmIRv/tU3zA
El/60K+FjspxGn6JDHWlNQea+W2D4u8W6Xs7hNf15zEpBlW6nVfsbGeu2MBt
UHzDmvh2CP5uBnH3phGjHkfKzXiwlu1sOsxojtWBdrtDtpTPeOL0YM94lfj7
XLyYJMGP6rspiJ/IoxW/bJUp6u6XMjQDGDO2hixd5ub0xJPSESVPyVPy5kLe
RHr+mWul5E1U3iVGI8c6X1zveUvQJOTRBx3yc5cnqSeXO+zLXSai7x7eiDKK
X/fyupGw8v6heLMeeGHQKt6Kt+KteKveT/FWvCW8w+4eoI/yQx03My5ow58N
M3h3wFBnw4xNgb2v/O/3jD/cgS5jU2GkZX0eFUEnsIwR5Qjr8x7K/iNTJoVy
tIV2utQkP+6ErKuXx2fFERbN+QKlz+kkk/b9CKvhfBWyWUyw3oK/e54cLjLR
JjX8CneEh0DvgSAT7XxHWq2OMrMOcZbH2AAPtQrtHZc0wiEc40IsW2s+wmhB
J2aMC8OiTlsUb/XjR/FWvBVvxVvgrXooxVvxVrwfTN6q91O8FW/FeyBvcTcl
3giD329OSkf3ztvvZeO78A/VU/ntiB2XZfy2u07C+ny7yrisT+58RfEJw2fc
CbOjYAha24r2rG1t5OPkSb+2ArF0hcmQJrvu5cF1D75jQ72LAD+sLsbxY9Q4
FE0TisUi+uSQAgZULPBLXN3LM+EexIErVd4zX7Agj8AmSy3v2Hm3XYf69Q2e
hBo2B3VEoKEXq+iyQBfoaMmkI6EMXqyibWEZiafJu9lqh3AInxEaduWqz3wB
q1T0ef8SdMop4ClzQkpn2IzOvzOamITyeDC4gMUoOo4cAseywFv9IRFAIy2D
0XZTNMNmaFJL+p+gPRC0/4JUlCGupg3I1ASbN/I8EsXUy7CZlxyx31HmPoiD
T51/BDVq2mPlzBrUKgWI63SRjy/wDJtTuScjB54V3zQzIC5FdrcEDJUsKYZt
/4HlgSOi7Dx3NEpamGa73vJ0UCbkVoA82Uiu6oSsQ6rMFSJVR9XBf1RkqjpT
r/MfckUjk3sHtta3oFzehL/+7b+w7QbXbTDa9mYNTtP5BxoL8TWCrpfhjY0P
uxieEPgQNv9mtd2b1+Akqx31al8E88ZOt/bxwSg2GQ1gB8xVymeJ81m9yqeJ
tMKXw/Bx4PJ3+/icegu2R+Fzdhx87sKbu/Sqeb+zg/h4dr7hzRSRvykfZuNQ
fLi3b2+sSbx9abC3fSJuc70BV65cg8rb74aKOHLdCXdf2/d/JOA2gQ==\
\>"]]
}, Open  ]]
},
WindowSize->{1189, 769},
WindowMargins->{{Automatic, 205}, {Automatic, 54}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 439, 13, 42, "Input"],
Cell[987, 35, 468, 13, 40, "Input"],
Cell[CellGroupData[{
Cell[1480, 52, 703, 18, 40, "Input"],
Cell[2186, 72, 6325, 114, 357, 1746, 37, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)