cntres

it is the Data Mining Algorithm source code.

#!/bin/bash

sel=${1:-all}
cnt=${2:-20}
off=${3:-1}
inc=${4:-7}
add=$5

#-----------------------------------------------------------------------

function genrefs ()
{                               # generate reference results
  data=${1:-iris}               # get the data name
  ncls=${2:-2}                  # get the number of clusters
  shape=${3:-s}                 # get the cluster shape
  base=$data$ncls.$shape        # construct base file name
  refs=0                        # initialize the result counter
  args="-$3c$ncls -e5000 $add $data.dom $data.tab"
  cmd='($0 ~ "^mean squa") { printf("%s\n", ($NF < min) ? $NF : min); }'
  for (( k = 0; k < cnt; k++ )); do
    seed=$(( k*inc+off ))       # compute the seed value
    cli -S$seed $args $base$refs 2> /dev/null
    echo "" > $data.tmp         # traverse existing reference results
    for (( i = 0; i < refs; i++ )); do
      clc -x $base$refs $base$i $data.tab 2> /dev/null >> $data.tmp
    done                        # compare reference results
    new=`gawk 'BEGIN { min = 1; }
               ($0 ~ "^mean squared") { if ($NF < min+0.0) min = $NF; }
               END { print (min < 1e-9) ? 0 : 1 }' $data.tmp`
    if (( new == 0 ));          # if the current result is not new
    then rm -f $base$refs;      # delete the result file
    else let refs++; fi         # otherwise increment
  done                          # the result counter
  echo $data $ncls $shape: $refs "result(s)"
}  # genrefs

#-----------------------------------------------------------------------

if [[ $sel == "all" || $sel == "iris3" || $sel == "iris" ]]; then
  genrefs iris 3
  genrefs iris 3 v
  genrefs iris 3 V
fi

#-----------------------------------------------------------------------

if [[ $sel == "all" || $sel == "wine3" ]]; then
  genrefs wine 3
  genrefs wine 3 v
  genrefs wine 3 V
fi

#-----------------------------------------------------------------------

if [[ $sel == "all" || $sel == "wine6" ]]; then
  genrefs wine 6
  genrefs wine 6 v
  genrefs wine 6 V
fi

#-----------------------------------------------------------------------

if [[ $sel == "all" || $sel == "breast2" || $sel == "breast" ]]; then
  genrefs breast 2
  genrefs breast 2 v
  genrefs breast 2 V
fi

#-----------------------------------------------------------------------

if [[ $sel == "all" || $sel == "abalone3" ]]; then
  genrefs abalone 3
  genrefs abalone 3 v
  genrefs abalone 3 V
fi

#-----------------------------------------------------------------------

if [[ $sel == "all" || $sel == "abalone6" ]]; then
  genrefs abalone 6
  genrefs abalone 6 v
  genrefs abalone 6 V
fi