anchor.diff:              if Cutoff3 < NoPartitionThreshold ->
                       {Seed3, {[], [Nodes]}};
                  true ->
  -                    make_network_partition_locations(Nodes, Seed3)
  +                    make_network_partition_locations(Method, Nodes, Seed3)
               end
       end.
   
  -make_network_partition_locations(Nodes, Seed1) ->
  -    %% TODO: To simplify debugging a bit, I'm switching to partitions that are
  -    %%       bi-directional only.
  +make_network_partition_locations(island=_Method, Nodes, Seed1) ->
       Num = length(Nodes),
       {Seed2, WeightsNodes} = lists:foldl(
                                 fun(Node, {Seeda, Acc}) ->
  
positive.code:                lists:sort([Nd || {Weight, Nd} <- WeightsNodes,
                                   (Max - IslandSep) =< Weight, Weight < Max])
                 || Max <- lists:seq(IslandSep + 1, 105, IslandSep)],
      {Seed2, {lists:usort(islands2partitions(Islands)), lists:sort(Islands)}}.
  
  islands2partitions([]) ->
      [];
  
negative.code: 
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  calc_network_partitions(Method, Nodes, Seed1, OldPartition,
                          OldThreshold, NoPartitionThreshold) ->
      {Cutoff2, Seed2} = random:uniform_s(100, Seed1),
      if Cutoff2 < OldThreshold ->
  