Changeset 27332 in project
- Timestamp:
- 08/30/12 04:18:51 (9 years ago)
- Location:
- release/4/kd-tree/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/kd-tree/trunk/kd-tree.scm
r27061 r27332 561 561 (let ((maybe-pivot 562 562 (if (<= (fdist probe p) (* radius radius)) 563 (list (list i p)) '()))) 563 (if v (list (list i p)) (list (list (list i v) p))) 564 '()))) 564 565 565 566 (if (and (tree-empty? l) -
release/4/kd-tree/trunk/kd-tree.setup
r27062 r27332 16 16 17 17 ;; Assoc list with properties for your extension: 18 '((version 3. 1)18 '((version 3.2) 19 19 )) -
release/4/kd-tree/trunk/tests/run.scm
r27033 r27332 99 99 100 100 (define (test1) 101 (let ((n 10000 ) (k 40) (r 0.2) (randst (random-mtzig:init)))101 (let ((n 100000) (k 40) (r 0.2) (randst (random-mtzig:init))) 102 102 103 103 (let recur ((ntrials 10))
Note: See TracChangeset
for help on using the changeset viewer.