#!/bin/bash
function scale {
bequ $1 0 .1 2 >/dev/null
rm *.lst
rm *.dat
}

function plot {
bplt bequ${1}.seg 1 0 0 1 100 0. 2.0 1 8 200  >/dev/null
mv bplt.ps ${1}.ps
rm b* 
}

FILE=`ls -1 |sort |grep 10 |grep seg`

for f in $FILE; do
scale $f
NAME=`basename $f .seg`
echo " "
echo   ${NAME}                
plot ${NAME} 
done
mergeplots
rm *.ps -f
mv merge.pdf QCplots.pdf
