plot() {
   cat - |
   gawk 'BEGIN         {OFS=FS="\t"; MinCost=1000000; MaxAtt=0;}
          /#/           { next}

                        { N++; 
			  Costs[N]=$1; 
                          Attain[N]=$2
			  if (NR> Bins) {
			  	MinCost = $1 < MinCost ? $1 : MinCost	
			  	MaxAtt  = $2 > MaxAtt  ? $2 : MaxAtt
			  }
			}
          ! (NR % Bins) { 
	    	  	N=0
    	                if (NR> Bins) report();
			delete Costs
			delete Attain
			}

	  END           { if (N>Bins/2)
	  		      report();
          		}
	function report() {
            print ++Bin*Bins, stats(Costs), stats(Attain),
	         maxmin(Attain,Costs), MinCost, MaxAtt
	}
	  function maxmin(attain,costs,    a,amax,c,cmin) {
	  	   a=asort(attain)
		   amax=attain[a]
		   c=asort(costs)
		   cmin=costs[1]
		   return cmin OFS amax
	  }
	  function stats(nums,   n,med,spr) {
	  	   n= asort(nums);		   
		   med=nums[int(n*0.5)];
                   spr=nums[int(n*0.75)];
		   return med OFS spr - med
          }
      ' Bins=100 Max=30000 
}

for i in KEYS-NoLimits.csv	KEYS-WithLimits.csv; do
    cat $i | plot > dat
    echo $i 
    gnuplot<<EOF
      set yrange [0:]
    set size 0.33,1 
    set terminal postscript eps
    set xtics rotate
    set output "cost_attain_$i.eps"
    set multiplot
    set origin 0.0,0.0
    set size 0.33,0.5
    
    set yrange [0:800000]
    plot "dat" using 1:2 title "median" with line,"dat" using 1:6 title "min" with linesp
    set origin 0.0,0.5
    set size 0.33,0.5
   set yrange [150:300]
   set key bottom right
    plot "dat" using 1:4 title "median" with line, "dat" using 1:7 title "max" with linesp
    replot
    set nomultiplot
EOF
done

for i in SA.csv; do
    cat $i | plot > dat
    
    echo $i
    gnuplot<<EOF

    set size 0.33,1
    set terminal postscript eps
    set xtics rotate

    set output "cost_attain_$i.eps"
    set multiplot
    set origin 0.0,0.0
    set size 0.33,0.5

    set yrange [0:800000]
    plot "dat" using 1:6 title "min"  with dots,\
         "dat" using 1:8 title "best ever" with lines 1

    set origin 0.0,0.5
        set size 0.33,0.5
    set yrange [150:300]
    set key bottom right

    plot      "dat" using 1:7 title "max"  with dots,\
              "dat" using 1:9 title "best ever" with lines 1
   replot
   set nomultiplot
EOF
done
for i in *.eps; do
    epstopdf $i
done