Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-09 08:20:45 -05:00
Code Issues Activity

Adapt bench/dev code to use new kdtree api.

Browse source
This commit is contained in:
Andrey Antukh 2016-06-11 16:01:10 +03:00
parent 447da07789
commit a01cbfa350
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
dev/bench/core.cljs
View file

@ -23,14 +23,14 @@
(println "1000x1000,10 -> 10000 points")
(let [tree (k/create)]
(time
(k/initialize tree 1000 1000 10 10))))
(k/setup tree 1000 1000 10 10))))
(defn- bench-init-250000
[]
(println "5000x5000,10 -> 250000 points")
(let [tree (k/create)]
(time
(k/initialize tree 5000 5000 10 10))))
(k/setup tree 5000 5000 10 10))))
(defn bench-init
[]
@ -42,13 +42,13 @@
(defn- bench-knn-160000
[]
(let [tree (k/create)]
(k/initialize tree 4000 4000 10 10)
(k/setup tree 4000 4000 10 10)
(println "KNN Search (160000 points) 1000 times")
(time
(dotimes [i 1000]
(let [pt #js [(rand-int 400)
(rand-int 400)]]
(.nearest tree pt 2))))))
(k/nearest tree pt 2))))))
(defn- bench-knn-360000
@ -60,7 +60,7 @@
(dotimes [i 1000]
(let [pt #js [(rand-int 600)
(rand-int 600)]]
(.nearest tree pt 2))))))
(k/nearest tree pt 2))))))
(defn bench-knn
[]
@ -71,11 +71,12 @@
(defn test-accuracity
[]
(let [tree (k/create (generate-points 4000 20))]
(let [tree (k/create)]
(k/setup tree 4000 4000 20 20)
(print "[1742 1419]")
(pprint (js->clj (.nearest tree #js [1742 1419] 6)))
(pprint (js->clj (k/nearest tree #js [1742 1419] 6)))
(print "[1742 1420]")
(pprint (js->clj (.nearest tree #js [1742 1420] 6)))
(pprint (js->clj (k/nearest tree #js [1742 1420] 6)))
))
(defn test-interval