#!/bin/bash

cd ..
$Prolog -f req.pl -g 'eg(3),halt' 

cat /tmp/db.csv |
gawk -F, 'BEGIN {OFS=","}
          NR>1  {x   = 0.15 - $NF;
                 $NF = sprintf("%5.3f",x < 0 ? -1 * x : x);
                }
                {print $0} 
        ' > /tmp/tmp.csv
mv /tmp/tmp.csv /tmp/db.csv

cat<<EOF > /tmp/db.cfg
granularity:    4
maxNumber:     10
maxSize:        4
randomTrials:  100
futileTrials:   5
bestClass:     20%
EOF

bore N=0.5 \
   Pass=1 /tmp/db.csv \
   Pass=2 /tmp/db.csv  \
   Pass=3 /tmp/db.csv   > /tmp/db.data

tar3 -r /tmp/db