daily pastebin goal
6%
SHARE
TWEET

Untitled

a guest May 16th, 2018 102 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. data = RandomVariate[BinomialDistribution[20, 0.1], 20^4];
  2.  
  3. Show[Histogram[data, {1}, "PDF"],
  4. DiscretePlot[PDF[BinomialDistribution[20, 0.1], x], {x, 0, 20},
  5. PlotStyle -> PointSize[Medium]]]
RAW Paste Data
Top