sortCols() { cat - | gawk -F, 'BEGIN{FS=","; OFS=","}{for(i=1;i<=NF;i++) $i=$i*100/693; print $11,$81,$64,$65,$4,$5,$14,$15,$91,$74,$75,$101,$71,$94,$95,$78,$18,$79,$99,$86,$77,$6,$98,$87,$7,$21,$84,$85,$39,$76,$93,$68,$8,$97,$96,$61,$34,$35,$54,$55,$69,$82,$9,$72,$92,$19,$51,$62,$2,$29,$89,$44,$45,$90,$41,$49,$10,$52,$58,$3,$59,$100,$66,$38,$80,$73,$63,$28,$24,$25,$88,$31,$42,$56,$12,$17,$16,$46,$48,$57,$67,$47,$37,$32,$43,$27,$53,$26,$36,$13,$22,$33,$60,$70,$50,$20,$30,$40,$23,$83}' 
}

pred() {
  cat - | gawk -F, '{for(i=start;i<=stop;i++)
  						printf("%5f\n", log($i+0.001))
					 } 
			     ' start=$1 stop=$2 
}

rm /tmp/data*.dat
for i in *Write.txt;do
		echo  "$i" 
		rm /tmp/sorted.dat
		cat $i | sortCols >> /tmp/sorted.dat
		cat /tmp/sorted.dat | pred 1 25 >> /tmp/data25.dat
		cat /tmp/sorted.dat | pred 26 50 >> /tmp/data50.dat
		cat /tmp/sorted.dat | pred 51  75 >> /tmp/data75.dat
		cat /tmp/sorted.dat | pred 76 100 >> /tmp/data100.dat
done 

for i in /tmp/data*.dat; do
	 grep -v \" $i | grep -v \' | sort -n > xxx
	mv xxx $i
done

gnuplot <<'EOF'
#set size 0.5,0.5
set terminal postscript eps enhanced color "Helvetica" 20
set output "all.eps
set key top left
plot \
"/tmp/data25.dat" title "lowest" with linesp 1,\
"/tmp/data50.dat" title "low" with lines 2,\
"/tmp/data75.dat" title "high" with linesp 3,\
"/tmp/data100.dat" title "highest" with lines 4
EOF

epstopdf all.eps