daily pastebin goal
27%
SHARE
TWEET

Untitled

a guest May 16th, 2018 106 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top