#!/usr/bin/ksh


float a
float one
float ten

one=1
ten=10

a=$((one/ten))
#echo $a

typeset -a listmin
typeset -a listmax
typeset -a stepmin
typeset -a stepmax
typeset -a listminindex
typeset -a listmaxindex
typeset -a stepminindex
typeset -a stepmaxindex

for((i=1;i<=10;i++))
do
  listmin[$i]=1000000
  listmax[$i]=-1000000
  stepmin[$i]=1000000
  stepmax[$i]=-1000000
done

float step
float list

for((i=1;i<=10;i++))
do
  /bin/echo -e "n\\tfor i:=1 step ...\\tfor i:=1,2,3..." >for8statplot_${i}.dat
done

for((shift=0;shift<=39;shift++))
do
  printf -v f "for8_%02d.lst" $shift
  tail -n +2 $f|while read -A line
  do
    i=${line[0]}
    step=${line[1]}
    list=${line[2]}
    /bin/echo -e "$shift\\t$step\\t$list" >>for8statplot_${i}.dat
    if [[ $step -lt ${stepmin[$i]} ]]
    then
      stepmin[$i]=$step
      stepminindex[$i]=$shift
    fi
    if [[ $step -gt ${stepmax[$i]} ]]
    then
      stepmax[$i]=$step
      stepmaxindex[$i]=$shift
    fi
    if [[ $list -lt ${listmin[$i]} ]]
    then
      listmin[$i]=$list
      listminindex[$i]=$shift
    fi
    if [[ $list -gt ${listmax[$i]} ]]
    then
      listmax[$i]=$list
      listmaxindex[$i]=$shift
    fi
  done
done

for((i=1;i<=10;i++))
do
  echo $i ${stepminindex[$i]}: ${stepmin[$i]} ${stepmaxindex[$i]}: ${stepmax[$i]} ${listminindex[$i]}: ${listmin[$i]} ${listmaxindex[$i]}: ${listmax[$i]}

  datafile=for8statplot_${i}.dat

cat >for8statplot_${i}.plt <<EOF
set size ratio 0.71
set datafile separator "\t"
set terminal pdfcairo size 29.7cm,21cm font 'Helvetica,20'
set output "for8statplot_${i}.pdf"

set title "list mod step n = ${i}"
stepcolor = "#99ffff"; listcolor = "#4671d5"
set auto x
set yrange [0:]
set style data histogram
set style histogram cluster gap 1
set style fill solid border -1
set boxwidth 0.9
set xtic scale 0
# 2, 3, 4, 5 are the indexes of the columns; 'fc' stands for 'fillcolor'
plot '$datafile' using 2:xticlabel(1) ti col fc rgb stepcolor, '' u 3 ti col fc rgb listcolor
EOF
gnuplot <for8statplot_${i}.plt
done