pred() {
  cat - | gawk -F, '{if($1<=P) M++
                     if($17 <=P) S++ 
					 N++} 
			     END {predm = 100*M/N; printf("\t%s", int(predm)) } ' P=$1 
}
for i in *Write*;do
		echo -n "$i" 
		cat $i | pred 0.25
		cat $i | pred 0.3
		cat $i | pred 0.5
		echo ""
done | sort -n -k 2 >   /tmp/dat


gnuplot <<'EOF'
set size 0.5,0.5
set terminal postscript eps "Helvetica" 20
set arrow 1 from 0,0 to 25,0 nohead
set output "/tmp/25.eps
set title "mixtures - solos"
plot "/tmp/dat1" using 1:($7-$8) title "30" with lines
#"/tmp/dat" using 1:($10-$11) title "50" with steps 0
EOF

epstopdf /tmp/25.eps