Seed random number generator for each population

erlang-mas · Mar 3, 2017 · f0f1767 · f0f1767
1 parent 4d370a9
commit f0f1767
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/src/mas_population.erl b/src/mas_population.erl
@@ -69,6 +69,7 @@ add_agents(Pid, Agents) ->
 %% @private
 %%------------------------------------------------------------------------------
 init({SP, Config}) ->
+    mas_utils:seed_random(),
     process_flag(trap_exit, true),
     State = init_state(SP, Config),
     schedule_metrics_update(Config),

diff --git a/src/mas_utils.erl b/src/mas_utils.erl
@@ -11,7 +11,8 @@
          sample/1,
          index_of/2,
          timestamp/0,
-         to_string/1]).
+         to_string/1,
+         seed_random/0]).
 
 %%%=============================================================================
 %%% API functions
@@ -70,6 +71,16 @@ to_string(X) when is_list(X) ->
 to_string(X) ->
     io_lib:format("~p", [X]).
 
+%%------------------------------------------------------------------------------
+%% @doc Seeds random number generator for current process.
+%% @end
+%%------------------------------------------------------------------------------
+seed_random() ->
+    A1 = erlang:phash2([node()]),
+    A2 = erlang:monotonic_time(),
+    A3 = erlang:unique_integer(),
+    rand:seed(exs1024, {A1, A2, A3}).
+
 %%%=============================================================================
 %%% Internal functions
 %%%=============================================================================