Advertisement
Guest User

Untitled

a guest
Nov 24th, 2014
138
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. data = RandomVariate[NormalDistribution[2, .1], 100];
  2. ListPlot[ Transpose[{Mean /@ Partition[#[[1]], 2, 1],
  3. Accumulate@#[[2]]}] &@HistogramList[ data ] ,
  4. Filling -> Axis, PlotRange -> {0, Automatic}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement