plot.hs

gnuplot :: [String] -> IO ()
gnuplot cmds = do
  writeFile "tmp" $ unlines cmds
  system "gnuplot tmp"
  return ()


main = do
  gnuplot [ gnuplotSetTerm
          , printf "set out '%s'" $ graphicFnMFs!!0
          , "set grid"
          , "set xrange [1e3:5e3]"
          , "set yrange [0:12]"
          , "set xlabel 'frequency[Hz]'"
          , "set ylabel 'MF inner product'"
          , printf "set arrow nohead from %f,0 to %f,12 lt 0 lw 3  " p1div2pi p1div2pi
          , printf "fn = '%s'" (fnResult 10 finalIdx)
          , printf "plot fn u 1:($2+$3) w l lw 1 lt 1 lc rgb 'red' t '+1sigma', fn u 1:($2) w l lw 4 lt 1 t 'average MF at SN=10', fn u 1:($2-$3) w l lw 1  lt 1 lc rgb 'red' t '-1sigma'"
           ]
  ...