X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FTests%2FParasitemiaCore.Tests%2FKdTreeTests.fs;fp=Parasitemia%2FTests%2FParasitemiaCore.Tests%2FKdTreeTests.fs;h=ebf33286aea41ff0b0a3bd62813971a71bb7d6ca;hp=ec66fa0071d6c74629d870690f0aa60a9ba200c6;hb=6250f10c807301a760b8659f9c00ca6dbbd4c7b7;hpb=31078fdde95f1b239110dfe29998e9b03e3a9bea

diff --git a/Parasitemia/Tests/ParasitemiaCore.Tests/KdTreeTests.fs b/Parasitemia/Tests/ParasitemiaCore.Tests/KdTreeTests.fs
index ec66fa0..ebf3328 100644
--- a/Parasitemia/Tests/ParasitemiaCore.Tests/KdTreeTests.fs
+++ b/Parasitemia/Tests/ParasitemiaCore.Tests/KdTreeTests.fs
@@ -66,44 +66,6 @@ type KdTreeTests (output : ITestOutputHelper) =
         let s4 = tree.Search { minX = 0.0f; maxX = 2.0f; minY = 0.0f; maxY = 4.0f }
         output.WriteLine (sprintf "s4: %A" s4)
 
-    [<Fact>]
-    member this.``Benchmark`` () =
-        let min = -1_000.
-        let max = +1_000.
-        let windowSize = 10.
-        let nbPoints = 500_000
-        let n = 1_000
-
-        let rng = System.Random 42
-        let nextNumber (min : float) (max : float) =
-            (rng.NextDouble () * (max + abs min)) + min |> float32
-
-        let points =
-            [
-                for i = 1 to nbPoints do
-                    let x = nextNumber min max
-                    let y = nextNumber min max
-                    Point (x, y)
-            ]
-
-        let sw = System.Diagnostics.Stopwatch ()
-        sw.Start ()
-
-        let tree = Tree.BuildTree points
-
-        sw.Stop ()
-        output.WriteLine (sprintf "Time to build = %A ms" sw.ElapsedMilliseconds)
-
-        sw.Restart ()
-
-        let mutable nbFound = 0
-        for i = 1 to n do
-            let minX = nextNumber min (max - windowSize)
-            let minY = nextNumber min (max - windowSize)
-            nbFound <- nbFound + (tree.Search { minX = minX; maxX = minX + float32 windowSize; minY = minY; maxY = minY + float32 windowSize } |> List.length)
-
-        sw.Stop ()
-        output.WriteLine (sprintf "nb found: %i. Time to search = %A ms" nbFound sw.ElapsedMilliseconds)