CurryInfo: benchmark-papers-3.0.0 / Test.Benchmark.Goodies.plotResults

 
plotResults :: (Show a, Show b) =>
               String -> [PlotStyle] -> [(String,[(a,b)])] -> IO ()
plotResults outfile pstyles titleddata = do
  let pname          = dropExtension outfile
      outsuffix      = takeExtension outfile
      plotfileprefix = pname ++ "_"
      scriptfile     = pname ++ ".gpscript"
      terminalset    = case outsuffix of
        ".pdf" -> "set terminal pdf enhanced"
        ".jpg" -> "set terminal jpeg nocrop enhanced"
        _ -> error $ "plotResults: unsupported out file format: " ++ outsuffix
  titleddatafiles <- mapM (writeDataFile plotfileprefix) (zip [1..] titleddata)
  writeFile scriptfile $ unlines $
    [terminalset
    ,"set output '" ++ outfile ++ "'"
    ,"set tics nomirror"
    ,"set style fill solid border"] ++
    map plotStyle2GP pstyles ++
    ["plot " ++ intercalate " , " (map plotCmd titleddatafiles)]
  system $ "gnuplot " ++ scriptfile
  --system $ unwords (["rm",scriptfile] ++ map snd titleddatafiles)
  putStrLn $ "Data plotted to '" ++ outfile ++ "'"
 where
  plotCmd (title,datfile) =
    "\"" ++ datfile ++ "\" " ++
    (if Histogram `elem` pstyles then "using 2:xtic(1) " else "") ++
    (if null title then "notitle" else "title \"" ++ title ++ "\"")

 no demanded arguments

 deterministic operation

 
Visualize a list of benchmarks results (i.e., lists of input/run-time pairs)
as a plot graphic with gnuplot. Each benchmark result graph is provided
with a title shown in the plot. The first argument is the plot name
(i.e., the graphic will be stored in a JPEG file with suffix ".jpg"
to this name). Further arguments are the plot style and
the data to be plotted (represented as a pair of a title
and the (x,y) values to be plotted).

 (_, _, _, _, _)

 referentially transparent operation

 no fixity defined

 {(_,_,_,_,_) |-> _}

 plotResults

 no precedence defined

 _

 (Prelude.Show a, Prelude.Show b) => String -> [PlotStyle]
-> [(String, [(a, b)])] -> Prelude.IO ()

 operation might suspend on free variables

 possibly non-terminating

 possibly non-reducible on same data term