diff options
author | Matthew Sackman <matthew@lshift.net> | 2009-12-17 18:50:02 +0000 |
---|---|---|
committer | Matthew Sackman <matthew@lshift.net> | 2009-12-17 18:50:02 +0000 |
commit | ae3a821babc64cb1c464fec9c9acebb3936ca2ae (patch) | |
tree | f440906540871424837ae7de11b1ab00ab6552af | |
parent | 0cc5117167d0857cf6aaf3f53f58f372394b34c2 (diff) | |
download | rabbitmq-server-ae3a821babc64cb1c464fec9c9acebb3936ca2ae.tar.gz |
geometric distribution
-rw-r--r-- | src/random_distributions.erl | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/src/random_distributions.erl b/src/random_distributions.erl new file mode 100644 index 00000000..dfcdc834 --- /dev/null +++ b/src/random_distributions.erl @@ -0,0 +1,38 @@ +%% The contents of this file are subject to the Mozilla Public License +%% Version 1.1 (the "License"); you may not use this file except in +%% compliance with the License. You may obtain a copy of the License at +%% http://www.mozilla.org/MPL/ +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the +%% License for the specific language governing rights and limitations +%% under the License. +%% +%% The Original Code is RabbitMQ. +%% +%% The Initial Developers of the Original Code are LShift Ltd, +%% Cohesive Financial Technologies LLC, and Rabbit Technologies Ltd. +%% +%% Portions created before 22-Nov-2008 00:00:00 GMT by LShift Ltd, +%% Cohesive Financial Technologies LLC, or Rabbit Technologies Ltd +%% are Copyright (C) 2007-2008 LShift Ltd, Cohesive Financial +%% Technologies LLC, and Rabbit Technologies Ltd. +%% +%% Portions created by LShift Ltd are Copyright (C) 2007-2009 LShift +%% Ltd. Portions created by Cohesive Financial Technologies LLC are +%% Copyright (C) 2007-2009 Cohesive Financial Technologies +%% LLC. Portions created by Rabbit Technologies Ltd are Copyright +%% (C) 2007-2009 Rabbit Technologies Ltd. +%% +%% All Rights Reserved. +%% +%% Contributor(s): ______________________________________. +%% + +-module(random_distributions). + +-export([geometric/1]). + +geometric(P) when 0.0 < P andalso P < 1.0 -> + U = 1.0 - random:uniform(), + rabbit_misc:ceil(math:log(U) / math:log(1.0 - P)). |