Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.43 KB | None | 0 0
  1. t=Table[RandomVariate[HypergeometricDistribution[129,167,299]],
  2. 1000000];//AbsoluteTiming
  3. p1=Count[t,u_/;u>=86]/1000000.
  4. {136.942,Null}
  5. 0.001054
  6.  
  7. sf=Join[s=Table[1,167],f=Table[0,132]];
  8. t=Table[RandomSample[sf,129]//Total,10000000];//AbsoluteTiming
  9. p2=Count[t,u_/;u>=86]/10000000.
  10. {18.5029,Null}
  11. 0.000744
  12.  
  13. p3=1-CDF[HypergeometricDistribution[129,167,299],86-1]//N
  14. 0.00074213
  15.  
  16. p1/p3
  17. p2/p3
  18. 1.42024
  19. 1.00252
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement