anchor.diff:      WallClockTime = RunTime / 1000000.0,
       WallClockTP = NrServers * ThreadsPerVM * Iterations / RunTime * 1000000.0,
       WallClockLat = RunTime / 1000.0 / Iterations,
  -    MinTPAll = [Iterations / element(4, Node) * 1000000.0 || Node <- Statistics],
  -    MeanTPAll = [Iterations / element(3, Node) * 1000000.0 || Node <- Statistics],
  -    MaxTPAll = [Iterations / element(2, Node) * 1000000.0 || Node <- Statistics],
  -    MinLat = [element(2, Node) / Iterations / 1000.0 || Node <- Statistics],
  -    AvgLat = [element(3, Node) / Iterations / 1000.0 || Node <- Statistics],
  -    MaxLat = [element(4, Node) / Iterations / 1000.0 || Node <- Statistics],
  -    AvgExTime = [element(3, Node) / 1000.0 || Node <- Statistics],
  +    MinTPAll     = [Iterations / element(4, Node) * 1000000.0 || Node <- Statistics],
  +    MeanTPAll    = [Iterations / element(3, Node) * 1000000.0 || Node <- Statistics],
  +    MaxTPAll     = [Iterations / element(2, Node) * 1000000.0 || Node <- Statistics],
  +    MinLatAll    = [element(2, Node) / Iterations / 1000.0 || Node <- Statistics],
  +    AvgLatAll    = [element(3, Node) / Iterations / 1000.0 || Node <- Statistics],
  +    MaxLatAll    = [element(4, Node) / Iterations / 1000.0 || Node <- Statistics],
  +    AvgLat       = lists:foldl(fun (Lat, Acc) ->
  +                                       Lat + Acc
  +                               end, 0.0, AvgLatAll) / NrServers,
  +    AvgExTimeAll = [element(3, Node) / 1000.0 || Node <- Statistics],
       Aborts = [element(6, Node) || Node <- Statistics],
       case Verbose andalso Print of
           true ->
  
positive.code:             io:format("min. throughput: ~p ~p (1/s)~n", [MinTP, MinTPAll]),
              io:format("avg. throughput: ~p ~p (1/s)~n", [MeanTP, MeanTPAll]),
              io:format("max. throughput: ~p ~p (1/s)~n", [MaxTP, MaxTPAll]),
              io:format("min. latency   : ~p (ms)~n", [MinLat]),
              io:format("avg. latency   : ~p (ms)~n", [AvgLat]),
              io:format("max. latency   : ~p (ms)~n", [MaxLat]),
              io:format("avg. ex. time  : ~p (ms)~n", [AvgExTime]),
              %io:format("std. dev.(%)   : ~p~n",
              %          [[math:sqrt(element(5, Node)) / element(3, Node) * 100 || Node <- Statistics]]),
              io:format("aborts         : ~p~n", [Aborts]);
  
negative.code:               {mean_troughput_each, MeanTPAll},
                {max_troughput_overall, MaxTP},
                {max_troughput_each, MaxTPAll},
                {min_latency_each, MinLatAll},
                {avg_latency_each, AvgLatAll},
                {max_latency_each, MaxLatAll},
                {avg_latency_overall, AvgLat},
                {avg_exec_time, AvgExTimeAll},
                {aborts, Aborts}
               ],
      {ok, Result}.
  