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

diff --git a/Parasitemia/Tests/ParasitemiaCore.Tests/KdTreeTests.fs b/Parasitemia/Tests/ParasitemiaCore.Tests/KdTreeTests.fs
index 929dd9e..ebf3328 100644
--- a/Parasitemia/Tests/ParasitemiaCore.Tests/KdTreeTests.fs
+++ b/Parasitemia/Tests/ParasitemiaCore.Tests/KdTreeTests.fs
@@ -66,33 +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 rng = System.Random 42
-        let nextNumber (min : float) (max : float) =
-            (rng.NextDouble () * (max + abs min)) + min |> float32
-
-        let points =
-            [
-                for i = 1 to 200_000 do
-                    let x = nextNumber min max
-                    let y = nextNumber min max
-                    yield Point (x, y)
-            ]
-
-        let tree = Tree.BuildTree points
-
-        let mutable nb = 0
-        for i = 1 to 1_000 do
-            let minX = nextNumber min (max - windowSize)
-            let minY = nextNumber min (max - windowSize)
-            nb <- nb + (tree.Search { minX = minX; maxX = minX + float32 windowSize; minY = minY; maxY = minY + float32 windowSize } |> List.length)
-
-        output.WriteLine (sprintf "nb: %A" nb)