Changeset 30685 in project


Ignore:
Timestamp:
04/10/14 07:33:31 (7 years ago)
Author:
Ivan Raikov
Message:

picnic: some more bug fixes in point/segment projections and in GLH example model

Location:
release/4/picnic/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/picnic/trunk/examples/GLH.picnic

    r30684 r30685  
    5959       (config PFtoGoCzone)
    6060       (config GoCtoGoCzone)
     61       (config GoCtoGoCgapzone)
    6162
    6263       (config GoCxrange)
     
    269270            (r = GoCtoGoCzone)
    270271
     272            (set source = (section GoC Axons))
     273            (set target = (population GoC))
     274
     275            (GoCtoGoC = (Projection (r source target)))
     276
     277            (output GoCtoGoC)
     278            )
     279
     280       (component (type projection)
     281
     282            (input (GoC from cell-forests))
     283
     284            (r = GoCtoGoCgapzone)
     285
    271286            (set source = (population GoC))
    272             (set target = (section GoC Axons))
    273 
    274             (GoCtoGoC = (Projection (r source target)))
    275 
    276             (output GoCtoGoC)
     287            (set target = (population GoC))
     288
     289            (GoCtoGoCgap = (Projection (r source target)))
     290
     291            (output GoCtoGoCgap)
    277292            )
    278293
  • release/4/picnic/trunk/picnic-utils.scm

    r30683 r30685  
    433433                                            (segi (genpoint-segment gd))
    434434                                            )
     435                                        (if (not segi)
     436                                            (error 'genpoint-projection "point does not have segment index" gd))
    435437                                        (append (list source target distance segi seci) ax)
    436438                                        ))
     
    449451                                    ))
    450452                                 '() gxs)))
    451                            
    452453                           (let* ((res0 (MPI:gatherv-f64vector (list->f64vector query-data) root my-comm))
    453454
     
    488489                              (delete-duplicates
    489490                               (map (lambda (x)
    490                                       (let ((res (list (car (cadar x))  (+ (caddr x) (cadr (cadar x))))))
    491                                         (d "~A: axon: x = ~A res = ~A~%" prefix x res)
     491                                      (let ((res (list (car (cadar x)) 
     492                                                       (+ (caddr x) (cadr (cadar x))))))
     493                                        (d "~A: x = ~A res = ~A~%" prefix x res)
    492494                                        res))
    493495                                    (nn-filter pd (kd-tree-near-neighbors* fibers zone pd))
     
    496498                               )
    497499                              ))
    498                            '() (list (cadr px))))
     500                           '() (cadr px)))
    499501                         )
    500502
  • release/4/picnic/trunk/picnic.scm

    r30682 r30685  
    543543      (population section union)
    544544    ((SetExpr (population p))
    545      (lambda (repr) p))
     545     (lambda (repr)
     546       (case repr
     547             ((list) (map (lambda (cell)
     548                            (list (cell-index cell)
     549                                  (cell-origin cell)))
     550                          p))
     551             ((tree) (let ((pts (map (lambda (cell)
     552                                       (list (cell-index cell)
     553                                             (cell-origin cell)))
     554                                     p)))
     555                       (list->kd-tree pts
     556                                      make-point: (lambda (v) (second v))
     557                                      make-value: (lambda (i v) (list (first v) 0.0)))
     558
     559                       ))
     560             )))
    546561    ((SetExpr (section p t))
    547562     (lambda (repr)
Note: See TracChangeset for help on using the changeset viewer.