@@ -6,6 +6,7 @@ open BenchmarkDotNet.Configs
66open BenchmarkDotNet.Columns
77open BenchmarkDotNet.Reports
88open BenchmarkDotNet.Running
9+ open BenchmarkDotNet.Filters
910open System.IO
1011
1112type TEPSColumn () =
@@ -15,16 +16,21 @@ type TEPSColumn() =
1516 member this.ColumnName : string = " TEPS"
1617 member this.GetValue ( summary : Summary , benchmarkCase : BenchmarkCase ): string =
1718 let meanTime = summary.[ benchmarkCase]. ResultStatistics.Mean
18- let pathToGraph = benchmarkCase.Parameters.[ " PathToGraph" ]. ToString()
19- match Path.GetExtension pathToGraph with
19+ let pathToFirstGraph = benchmarkCase.Parameters.[ " PathToGraphPair" ] :?> ( string * string) |> fst
20+ let getFullPathToGraph filename =
21+ Path.Join [| __ SOURCE_ DIRECTORY__
22+ " Datasets"
23+ " EWiseAddDatasets"
24+ filename |]
25+ match Path.GetExtension pathToFirstGraph with
2026 | " .mtx" ->
21- use streamReader = new StreamReader( pathToGraph )
27+ use streamReader = new StreamReader( pathToFirstGraph |> getFullPathToGraph )
2228 while streamReader.Peek() = int '%' do
2329 streamReader.ReadLine() |> ignore
24- let matrixInfo = streamReader.ReadLine() .Split( ' ' )
25- let ( nrows , ncols , nnz ) = float matrixInfo.[ 0 ], float matrixInfo.[ 1 ], float matrixInfo.[ 2 ]
30+ let matrixInfo = streamReader.ReadLine() .Split( ' ' ) |> Array.map int
31+ let ( nrows , ncols , nnz ) = matrixInfo.[ 0 ], matrixInfo.[ 1 ], matrixInfo.[ 2 ]
2632 let ( vertices , edges ) = if nrows = ncols then ( nrows, nnz) else ( ncols, nrows)
27- sprintf " %f " ( edges / meanTime)
33+ sprintf " %f " <| float edges / ( meanTime * 1e-6 )
2834 | another -> sprintf " %s files not supported" another
2935 member this.GetValue ( summary : Summary , benchmarkCase : BenchmarkCase , style : SummaryStyle ): string =
3036 ( this :> IColumn) .GetValue( summary, benchmarkCase)
@@ -41,3 +47,4 @@ type Config() =
4147
4248 do
4349 base .AddColumn [| TEPSColumn() :> IColumn |] |> ignore
50+ base .AddFilter [| NameFilter( fun name -> name.Contains " MathNet" ) :> IFilter |] |> ignore
0 commit comments