Changeset 30627 in project


Ignore:
Timestamp:
04/01/14 06:55:01 (7 years ago)
Author:
Ivan Raikov
Message:

npccl: beginning support for curve perturbations

Location:
release/4/npccl/trunk
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/npccl/trunk/npccl-core.scm

    r30620 r30627  
    180180          (SEGPS      (name    symbol?)
    181181                      (gfun    symbol?)
    182                       (initial (lambda (x) (or (not x) (rhs? x))))
     182                      (initial  (lambda (x) (or (not x) (rhs? x))))
    183183                      (nsegs   integer?)
    184184                      (nsegpts integer?)
     
    186186          (PS         (name symbol?)
    187187                      (gfun symbol?)
    188                       (initial (lambda (x) (or (not x) (rhs? x))))
     188                      (initial  (lambda (x) (or (not x) (rhs? x))))
    189189                      (npts integer?)
    190190                      )
     
    11041104                      (if (npccl:quantity? x)
    11051105                          (cases npccl:quantity x
    1106                                  (PS (name rhs-expr npts)
     1106                                 (PS (name gfun initial-expr npts)
    11071107                                     (cons name ax))
    1108                                  (SEGPS (name rhs-expr nsegs nsegpts)
     1108                                 (SEGPS (name gfun initial-expr nsegs nsegpts)
    11091109                                        (cons name ax))
    11101110                                 (else ax))
     
    11291129                      (if (npccl:quantity? x)
    11301130                          (cases npccl:quantity x
    1131                                  (SEGPS (name gfun initial nsegs nsegpts)
     1131                                 (SEGPS (name gfun initial-expr nsegs nsegpts)
    11321132                                        (cons name ax))
    11331133                                 (else ax))
     
    12271227                 (cases npccl:quantity x
    12281228                        (PS        (name gfun initial npts)  #t)
    1229                         (SEGPS     (name gfun initial nsegs nsegpts) #t)
     1229                        (SEGPS     (name gfun initial-expr nsegs nsegpts) #t)
    12301230                        (else #f))
    12311231                 ))
     
    12391239                                                 (else rhs)))
    12401240                        (PS (name gfun initial npts)   gfun)
    1241                         (SEGPS (name gfun initial nsegs nsegpts)  gfun)
     1241                        (SEGPS (name gfun initial-expr nsegs nsegpts) gfun)
    12421242                        (ASGN  (name value rhs)  rhs)
    12431243                        (INITIAL  (name rhs)  rhs)
  • release/4/npccl/trunk/npccl-utils.scm

    r30621 r30627  
    721721
    722722
    723         (define (ParametricNeurites
    724                  Sections nNeurites nSegs nSegPts
    725                  soma-points random-seed
    726                  fns)
    727          
    728           (let ((rngst (random-mtzig:init random-seed)))
    729 
    730             (reverse
    731              (car
    732               (fold
    733                (lambda (p ax)
    734                  
    735                  (d "ParametricNeurites: p = ~A~%" p)
    736                  
    737                  (let ((clst (car ax))
    738                        (gid  (cadr ax)))
    739                    
    740                    (d "ParametricNeurites: gid = ~A~%" gid)
    741                    
    742                    (let (
    743                          (neurite-sections
    744                           (car
    745                            (fold
    746                             (lambda (fn section nNeurites nSegs nSegPts ax)
    747                               (let ((lst (car ax))
    748                                     (secStart (cadr ax)))
    749                                 (let ((sec (fn rngst gid p section nNeurites secStart nSegs nSegPts)))
    750                                   (list (cons sec lst) (+ secStart nNeurites))
    751                                   )))
    752                             (list '() 0)
    753                             fns Sections nNeurites nSegs nSegPts)
    754                            ))
    755                          )
    756                      (list (cons neurite-sections clst) (+ 1 gid))
    757                      ))
    758                  )
    759                '(() 0)
    760                soma-points))
    761              ))
    762           )
    763 
    764 
    765         (define (ParametricNeurites*
    766                  Sections nNeurites
    767                  soma-points random-seed
    768                  fns)
    769          
    770           (let ((rngst (random-mtzig:init random-seed)))
    771 
    772             (reverse
    773              (fold
    774               (lambda (gp ax)
    775                
    776                 (d "ParametricNeurites*: gp = ~A~%" gp)
    777                
    778                 (let ((clst ax)
    779                       (gid  (car gp))
    780                       (p    (cadr gp)))
    781                  
    782                   (let (
    783                         (neurite-sections
    784                          (map
    785                           (lambda (fn section nNeurites) (fn rngst gid p section nNeurites))
    786                           fns Sections nNeurites)
    787                          )
    788                         )
    789                    
    790                     (cons neurite-sections clst)
    791                     ))
    792                 )
    793               '()
    794               soma-points)
    795              ))
    796           )
    797 
    798723
    799724       
  • release/4/npccl/trunk/npccl.scm

    r30621 r30627  
    11;;
    2 ;; Neural Parametric Curve Connectivity
     2;; Neural Parametric Curve Connectivity Language
    33;;
    44;; Copyright 2012-2014 Ivan Raikov and the Okinawa Institute of
Note: See TracChangeset for help on using the changeset viewer.