ugw/data/preprocess.m

   1 #!/usr/bin/octave -q
   2 ## -*-octave-*-
   3
   4 datafiles = argv();
   5 datafiles = {
   6              "rtems.dat"
   7              "kernel.dat"
   8              "readnb-write.dat"
   9              "mmapbusy-write.dat"
  10              "mmapbusy-mmap.dat"
  11              "readbusy-write.dat"
  12              "read-write.dat"
  13              "mmap-write.dat"
  14              "mmap-mmap.dat"
  15 };
  16
  17 quantiles = [0 0.5 0.90 0.99];
  18
  19 mat = zeros(0, length(quantiles) + 1);
  20 names = {};
  21
  22 for i=1:length(argv),
  23   [d, n, e, v] = fileparts(datafiles{i});
  24   x = load(datafiles{i})*1e6;
  25   stat = csv2cell([n, "-stat.txt"], '=');
  26   lost = stat{6,2};
  27   q = quantile (x, quantiles);
  28   q = max(q, 0)';
  29   mat = [ mat; q lost ];
  30   names{i} = n;
  31 end
  32
  33 if 0,
  34   [mat, ind] = sortrows(mat, 2);
  35   names = names(ind)
  36 end
  37 result = [names', num2cell(mat)];
  38 cell2csv("result", result, ' ', '"');