సారాంశం

Source code in Mathematica

g = Table[
  ListPlot[
    Table[{k, Binomial[k + r - 1, r - 1] (r/(10 + r))^r (1 - r/(10 + r))^k}, {k, 0, 25}],
    PlotRange -> 0.118, 
    Filling -> Axis,
    PlotStyle -> PointSize[0.02], 
    FillingStyle -> Directive[Hue[0.6], Thickness[0.01], Opacity[0.3]],
    Epilog -> Inset[Style["\!\(\*StyleBox[\"r\",\nFontSlant->\"Italic\"]\) = " <> ToString[r], 16], {23, 0.08}], 
    Prolog -> {Opacity[0.5], Green, Thin, Line[{{10 - Sqrt[(10 (10 + r))/r], .1}, {10 + Sqrt[(10 (10 + r))/r], .1}}], 
               Dashed, Thick, Orange, Line[{{10, 0}, {10, 1}}]},
    ImageSize -> 200,
    LabelStyle -> Directive[Larger],
    AxesLabel -> {"\!\(\*StyleBox[\"k\",\nFontSlant->\"Italic\"]\)"},
    AxesOrigin -> {-1, 0}
    ], 
  {r, {1, 2, 3, 4, 5, 10, 20, 40}}
  ]
Export["c:/users/stpasha/documents/negbinomial.gif", g, "DisplayDurations" -> {.5, .5, .5, .5, .5, .5, .5, .15}, "TransparentColor" -> White, ImageSize -> 250]

లైసెన్సింగ్

నేను, ఈ కృతి యొక్క కాపీహక్కుదారుని, ఈ కృతిని సార్వజనీనం'గా విడుదల చేస్తున్నాను. ఇది ప్రపంచవ్యాప్తంగా వర్తిస్తుంది. కొన్ని దేశాల్లో ఇది చట్టబద్ధంగా సాధ్యంకాకపోవచ్చు; అయితే: ఈ కృతిని ఎటువంటి షరతులు లేకుండా, అట్టి షరతులు చట్టం వల్ల తప్పనిసరి అయితే తప్ప, ఏ ఉద్దేశానికైనా ఉపయోగించుకునే హక్కును ఎవరికైనా నేను ప్రదానం చేస్తున్నాను.