Changeset 28033 in project
- Timestamp:
- 01/04/13 07:56:09 (7 years ago)
- Location:
- release/4/nemo/trunk
- Files:
-
- 2 deleted
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/nemo/trunk/nemo-matlab.scm
r28024 r28033 785 785 (i-gates (lookup-def 'i-gates gate-complex-info)) 786 786 787 (c apcomp (any (match-lambda ((name 'membrane-capacitanceid) (list name id)) (else #f)) components))788 (m cap (and capcomp (car ((dis 'component-exports) sys (cid capcomp)))))787 (comprc (any (match-lambda ((name 'membrane-tau id) (list name id)) (else #f)) components)) 788 (mrc (and comprc (car ((dis 'component-exports) sys (cid comprc))))) 789 789 790 (rcomp (any (match-lambda ((name 'membrane-resistance id) (list name id)) (else #f)) components)) 791 (mres (and rcomp (car ((dis 'component-exports) sys (cid rcomp))))) 792 793 (rarea (any (match-lambda ((name 'membrane-area id) (list name id)) (else #f)) components)) 794 (marea (and rarea (car ((dis 'component-exports) sys (cid rarea))))) 795 796 790 (areacomp (any (match-lambda ((name 'membrane-area id) (list name id)) (else #f)) components)) 791 (marea (and areacomp (car ((dis 'component-exports) sys (cid areacomp))))) 797 792 798 793 (i-eqs (filter-map … … 956 951 957 952 958 (v-eq (cond ((and mcap mres marea (member 'v globals) (not (null? i-names))) 959 (list 'v (rhsexpr/MATLAB `(/ (* (neg ,(sum i-names)) ,marea) (* 2. ,mres ,mcap))))) 960 ((and marea (member 'v globals) (not (null? i-names))) 961 (list 'v (rhsexpr/MATLAB `(* (neg ,(sum i-names)) ,marea)))) 962 ((and (member 'v globals) (not (null? i-names))) 963 (list 'v (rhsexpr/MATLAB `(neg ,(sum i-names))))) 964 (else #f))) 965 953 (v-eq (and (member 'v globals) (not (null? i-names)) 954 (cond ((and mrc marea) 955 (list 'v (rhsexpr/MATLAB `(/ (* (neg ,(sum i-names)) ,marea) ,mrc)))) 956 (marea 957 (list 'v (rhsexpr/MATLAB `(* (neg ,(sum i-names)) ,marea)))) 958 (mrc 959 (list 'v (rhsexpr/MATLAB `(/ (neg ,(sum i-names)) ,mrc)))) 960 (else 961 (list 'v (rhsexpr/MATLAB `(neg ,(sum i-names))))) 962 ))) 966 963 967 964 (state-index-map (let ((acc (fold (lambda (def ax) -
release/4/nemo/trunk/nemo-nest.scm
r28028 r28033 2108 2108 (i-gates (lookup-def 'i-gates gate-complex-info)) 2109 2109 2110 (c apcomp (any (match-lambda ((name 'membrane-capacitanceid) (list name id)) (else #f)) components))2111 (m cap (and capcomp (car ((dis 'component-exports) sys (cid capcomp)))))2110 (comprc (any (match-lambda ((name 'membrane-tau id) (list name id)) (else #f)) components)) 2111 (mrc (and comprc (car ((dis 'component-exports) sys (cid comprc))))) 2112 2112 2113 (rcomp (any (match-lambda ((name 'membrane-resistance id) (list name id)) (else #f)) components)) 2114 (mres (and rcomp (car ((dis 'component-exports) sys (cid rcomp))))) 2115 2116 (rarea (any (match-lambda ((name 'membrane-area id) (list name id)) (else #f)) components)) 2117 (marea (and rarea (car ((dis 'component-exports) sys (cid rarea))))) 2113 (areacomp (any (match-lambda ((name 'membrane-area id) (list name id)) (else #f)) components)) 2114 (marea (and areacomp (car ((dis 'component-exports) sys (cid areacomp))))) 2118 2115 2119 2116 (i-eqs (filter-map … … 2273 2270 (* (neg ,(sum i-names)) ,marea))))) 2274 2271 (else (list 'v 0.0)))) 2272 2273 (v-eq (and (member 'v globals) (not (null? i-names)) 2274 (let ((istim "(node.B_.I_stim_)" )) 2275 (cond ((and mrc marea) 2276 (list 'v (rhsexpr/C++ `(/ (+ ,istim (* (neg ,(sum i-names)) ,marea)) ,mrc)))) 2277 (marea 2278 (list 'v (rhsexpr/C++ `(+ istim (* (neg ,(sum i-names)) ,marea))))) 2279 (mrc 2280 (list 'v (rhsexpr/C++ `(/ (+ istim (neg ,(sum i-names))) ,mrc)))) 2281 (else 2282 (list 'v (rhsexpr/C++ `(+istim (neg ,(sum i-names)))))) 2283 )))) 2275 2284 2276 2285 -
release/4/nemo/trunk/nemo.setup
r28020 r28033 4 4 (make-pathname #f fn ##sys#load-dynamic-extension)) 5 5 6 (define nemo-version 8. 0)6 (define nemo-version 8.1) 7 7 8 8 (use make)
Note: See TracChangeset
for help on using the changeset viewer.