Changeset 27332 in project


Ignore:
Timestamp:
08/30/12 04:18:51 (9 years ago)
Author:
Ivan Raikov
Message:

kd-tree: bug fix in kd-tree-near-neighbors*

Location:
release/4/kd-tree/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/kd-tree/trunk/kd-tree.scm

    r27061 r27332  
    561561                               (let ((maybe-pivot
    562562                                      (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                                          '())))
    564565
    565566                                 (if (and (tree-empty? l)
  • release/4/kd-tree/trunk/kd-tree.setup

    r27062 r27332  
    1616 
    1717  ;; Assoc list with properties for your extension:
    18   '((version 3.1)
     18  '((version 3.2)
    1919    ))
  • release/4/kd-tree/trunk/tests/run.scm

    r27033 r27332  
    9999
    100100(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)))
    102102 
    103103  (let recur ((ntrials 10))
Note: See TracChangeset for help on using the changeset viewer.