collect

聚类算法全集以及内附数据集

#!/bin/bash
gawk '
function output() {
  if ((shape != "-v") && (shape != "-V")) {
    flags = shape; shape = ""; }
  if (substr(flags, 1, 1) != "-")
    flags = "";
  printf("%-7s %d %-9s %2s %-6s", data, cnt, mode, shape, flags);
  if (steps > 1000) printf(" : failed\n");
  else              printf(" : %5.1f %8s\n",  steps, var);
}
BEGIN { data = ""; cnt = 0; mode = ""; }
(($1 == "-----") || (NF == 0)) {
  if (data != "") { output(); printf("\n"); }
  print $0; data = "";
}
(($1 == data) && ($2 == cnt) && ($3 == mode)) {
  s = $(NF-1);
  v = substr($NF, 3, length($NF)-3);
  if ((s < steps) \
  || ((s == steps) && (v < substr(var, 3, length(var)-3)))) {
    shape = $4;
    flags = $5;
    steps = s;
    var   = $NF;
  }
}
(($1 != "-----") && (($1 != data) || ($2 != cnt) || ($3 != mode))) {
  if ((data != "") && ($3 != mode))
    output();
  if (($1 != data) || ($2 != cnt))
    printf("\n");
  data  = $1;
  cnt   = $2;
  mode  = $3;
  shape = $4;
  flags = $5;
  steps = $(NF-1);
  var   = $NF;
}
END {
  output();
}' cluster.out > cluster.res