Changeset 26892 in project


Ignore:
Timestamp:
06/13/12 10:59:59 (9 years ago)
Author:
Ivan Raikov
Message:

spatial-trees: commit a forgotten fix in kd-tree

Location:
release/4/spatial-trees/trunk
Files:
2 edited

Legend:

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

    r26820 r26892  
    487487                       (KdLeaf (ii pp vv axis)
    488488                               (let ((v
    489                                       (minimum-by pp (lambda (a b) (negative? (compare-distance probe a b)))
    490                                                   (reverse (cis:elements ii))
    491                                                   )))
     489                                      (minimum-by pp (lambda (a b) (negative? (compare-distance probe a b))) vv )))
    492490                                 (and v (reverse v))))
    493491
  • release/4/spatial-trees/trunk/tests/run.scm

    r26888 r26892  
    9696
    9797(define (test1)
    98   (let ((n 100000) (k 40) (r 0.2) (randst (random-mtzig:init)))
     98  (let ((n 1000) (k 40) (r 0.2) (randst (random-mtzig:init)))
    9999 
    100100  (let recur ((ntrials 2))
     
    129129
    130130(define (test2)
    131   (let ((n 100000) (k 40) (r 0.2) (randst (random-mtzig:init)))
     131  (let ((n 1000) (k 40) (r 0.2) (randst (random-mtzig:init)))
    132132 
    133133  (let recur ((ntrials 1))
Note: See TracChangeset for help on using the changeset viewer.