81 lines
1.8 KiB
Bash
Executable File
81 lines
1.8 KiB
Bash
Executable File
|
|
|
|
function prepare_new_run
|
|
{
|
|
YAP=~/bin/$SHORTNAME-$SOLVER
|
|
|
|
LOG_FILE=$SOLVER.log
|
|
#LOG_FILE=results`date "+ %H:%M:%S %d-%m-%Y"`.
|
|
|
|
rm -f $LOG_FILE
|
|
rm -f ignore.$LOG_FILE
|
|
|
|
cp ~/bin/yap $YAP
|
|
}
|
|
|
|
|
|
|
|
function run_solver
|
|
{
|
|
constraint=$1
|
|
solver_flag=true
|
|
if [ -n "$2" ]; then
|
|
if [ $SOLVER = hve ]; then
|
|
solver_flag=clpbn_horus:set_horus_flag\(elim_heuristic,$2\)
|
|
elif [ $SOLVER = bp ]; then
|
|
solver_flag=clpbn_horus:set_horus_flag\(schedule,$2\)
|
|
elif [ $SOLVER = cbp ]; then
|
|
solver_flag=clpbn_horus:set_horus_flag\(schedule,$2\)
|
|
elif [ $SOLVER = lbp ]; then
|
|
solver_flag=clpbn_horus:set_horus_flag\(schedule,$2\)
|
|
else
|
|
echo "unknow flag $2"
|
|
fi
|
|
fi
|
|
/usr/bin/time -o $LOG_FILE -a -f "%U\t%S\t%e\t%M" \
|
|
$YAP << EOF >> $LOG_FILE &>> ignore.$LOG_FILE
|
|
nogc.
|
|
[$NETWORK].
|
|
[$constraint].
|
|
clpbn_horus:set_solver($SOLVER).
|
|
clpbn_horus:set_horus_flag(use_logarithms, true).
|
|
clpbn_horus:set_horus_flag(verbosity, 1).
|
|
$solver_flag.
|
|
$QUERY.
|
|
open("$LOG_FILE", 'append', S), format(S, '$constraint ~15+ ', []), close(S).
|
|
EOF
|
|
}
|
|
|
|
|
|
|
|
function clear_log_files
|
|
{
|
|
rm -f *~
|
|
rm -f ../*~
|
|
rm -f school/*.log school/*~
|
|
rm -f ../school/*.log ../school/*~
|
|
rm -f city/*.log city/*~
|
|
rm -f ../city/*.log ../city/*~
|
|
rm -f workshop_attrs/*.log workshop_attrs/*~
|
|
rm -f ../workshop_attrs/*.log ../workshop_attrs/*~
|
|
echo all done!
|
|
}
|
|
|
|
|
|
|
|
function write_header
|
|
{
|
|
echo -n "****************************************" >> $LOG_FILE
|
|
echo "****************************************" >> $LOG_FILE
|
|
echo "results for solver $1 user(s) sys(s) real(s), mem(kB)" >> $LOG_FILE
|
|
echo -n "****************************************" >> $LOG_FILE
|
|
echo "****************************************" >> $LOG_FILE
|
|
}
|
|
|
|
|
|
if [ $1 ] && [ $1 == "clean" ]; then
|
|
clear_log_files
|
|
fi
|
|
|
|
|