anchor.diff:  
   calc_network_partitions(Nodes, Seed1, OldPartition,
                           OldThreshold, NoPartitionThreshold) ->
  -    {Cutoff2, Seed2} = random:uniform_s(100,Seed1),
  +    {Cutoff2, Seed2} = random:uniform_s(100, Seed1),
       if Cutoff2 < OldThreshold ->
               {Seed2, OldPartition};
          true ->
  -            {F3, Seed3} = random:uniform_s(Seed1),
  -            Cutoff3 = trunc(F3 * 100),
  +            {Cutoff3, Seed3} = random:uniform_s(100, Seed1),
               if Cutoff3 < NoPartitionThreshold ->
                       {Seed3, []};
                  true ->
  
positive.code:                                     repairing=Repairing_list}) ->
      [{epoch,EpochNum},
       {upi,UPI_list},{repair,Repairing_list},{down,Down_list}].
      %% [{epoch,EpochNum},{all,All_list},{down,Down_list},
      %%  {upi,UPI_list},{repair,Repairing_list}].
  
  roll_dice(N, RunEnv) ->
      Seed1 = proplists:get_value(seed, RunEnv),
  
negative.code:     Num = length(Pairs),
      {Seed2, Weights} = lists:foldl(
                           fun(_, {Seeda, Acc}) ->
                                   {Cutoff, Seedb} = random:uniform_s(100, Seeda),
                                   {Seedb, [Cutoff|Acc]}
                           end, {Seed1, []}, lists:seq(1, Num)),
      {Cutoff3, Seed3} = random:uniform_s(100, Seed2),
      {Seed3, [X || {Weight, X} <- lists:zip(Weights, Pairs),
                    Weight < Cutoff3]}.
  
  