source: project/release/4/nemo/tags/6.6/nemo-synapse.scm @ 27094

Last change on this file since 27094 was 27094, checked in by Ivan Raikov, 9 years ago

nemo release 6.6

File size: 2.2 KB
Line 
1;;       
2;;
3;; Procedures for querying synaptic descriptions in NEMO models.
4;;
5;; Copyright 2008-2012 Ivan Raikov and the Okinawa Institute of Science and Technology
6;;
7;; This program is free software: you can redistribute it and/or
8;; modify it under the terms of the GNU General Public License as
9;; published by the Free Software Foundation, either version 3 of the
10;; License, or (at your option) any later version.
11;;
12;; This program is distributed in the hope that it will be useful, but
13;; WITHOUT ANY WARRANTY; without even the implied warranty of
14;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15;; General Public License for more details.
16;;
17;; A full copy of the GPL license can be found at
18;; <http://www.gnu.org/licenses/>.
19;;
20
21(module nemo-synapse
22
23 (nemo:post-synaptic-conductance-query)
24
25 (import scheme chicken srfi-1 srfi-13 srfi-69)
26
27 (require-extension matchable nemo-core nemo-utils)
28
29(define (cid x)  (second x))
30(define (cn x)   (first x))
31
32
33
34(define (nemo:post-synaptic-conductance-query sys . rest)
35
36
37  (match-let ((($ nemo:quantity 'DISPATCH  dis) (hash-table-ref sys (nemo-intern 'dispatch))))
38
39    (let ((imports  ((dis 'imports)  sys))
40          (exports  ((dis 'exports)  sys)))
41
42      (let* ((consts           ((dis 'consts)  sys))
43             (asgns            ((dis 'asgns)   sys))
44             (states           ((dis 'states)  sys))
45             (reactions        ((dis 'reactions) sys))
46             (rates            ((dis 'rates) sys))
47             (defuns           ((dis 'defuns)  sys))
48             (components       ((dis 'components) sys))
49             (cond-synapses    (filter-map
50                                (match-lambda 
51                                 ((name 'post-synaptic-conductance id) 
52                                  (list name id))
53                                 (else #f)) 
54                                components))
55             (i-synapses        (fold (lambda (cond-synapse ax) 
56                                        (match ((dis 'component-exports) sys (cid cond-synapse))
57                                               ((g erev wthreshold)  (cons (list 'i g erev wthreshold) ax))
58                                               ((g erev)  (cons (list 'i g erev #f) ax))
59                                               (else (nemo:error 'post-synaptic-conductance
60                                                                 "component does not export g and erev quantities"))))
61                                      (list) 
62                                      cond-synapses)))
63
64       
65        `((post-synaptic-conductances ,cond-synapses)
66          (i-synapses ,i-synapses)
67          ))
68    )))
69
70)
Note: See TracBrowser for help on using the repository browser.