Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-18 13:04:38 -05:00
Code Issues Activity

Adapt bench/dev code to use new initialization functions.

Browse source
This commit is contained in:
Andrey Antukh 2016-06-11 15:46:56 +03:00
parent 1691f265e9
commit 53a9b4e8ba
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 26 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
dev/bench/core.cljs
View file

@ -20,19 +20,17 @@
(defn- bench-init-10000 (defn- bench-init-10000
[] []
(js/console.time "init:10000") (println "1000x1000,10 -> 10000 points")
(let [points (generate-points 1000 10)] (let [tree (k/create)]
(println (count points)) (time
(k/create2d points) (k/initialize tree 1000 1000 10 10))))
(js/console.timeEnd "init:10000")))
(defn- bench-init-250000 (defn- bench-init-250000
[] []
(js/console.time "init:250000") (println "5000x5000,10 -> 250000 points")
(let [points (generate-points 5000 10)] (let [tree (k/create)]
(println (count points)) (time
(k/create2d points) (k/initialize tree 5000 5000 10 10))))
(js/console.timeEnd "init:250000")))
(defn bench-init (defn bench-init
[] []
@ -43,23 +41,26 @@
(defn- bench-knn-160000 (defn- bench-knn-160000
[] []
(let [tree (k/create2d (generate-points 4000 10))] (let [tree (k/create)]
(dotimes [i 100] (k/initialize tree 4000 4000 10 10)
(js/console.time "knn:160000") (println "KNN Search (160000 points) 1000 times")
(time
(dotimes [i 1000]
(let [pt #js [(rand-int 400) (let [pt #js [(rand-int 400)
(rand-int 400)]] (rand-int 400)]]
(.nearest tree pt 2)) (.nearest tree pt 2))))))
(js/console.timeEnd "knn:160000"))))
(defn- bench-knn-360000 (defn- bench-knn-360000
[] []
(let [tree (k/create2d (generate-points 6000 10))] (let [tree (k/create)]
(dotimes [i 100] (k/initialize tree 6000 6000 10 10)
(js/console.time "knn:360000") (println "KNN Search (360000 points) 1000 times")
(time
(dotimes [i 1000]
(let [pt #js [(rand-int 600) (let [pt #js [(rand-int 600)
(rand-int 600)]] (rand-int 600)]]
(.nearest tree pt 2)) (.nearest tree pt 2))))))
(js/console.timeEnd "knn:360000"))))
(defn bench-knn (defn bench-knn
[] []
@ -70,7 +71,7 @@
(defn test-accuracity (defn test-accuracity
[] []
(let [tree (k/create2d (generate-points 4000 20))] (let [tree (k/create (generate-points 4000 20))]
(print "[1742 1419]") (print "[1742 1419]")
(pprint (js->clj (.nearest tree #js [1742 1419] 6))) (pprint (js->clj (.nearest tree #js [1742 1419] 6)))
(print "[1742 1420]") (print "[1742 1420]")