Changeset 27341 in project
- Timestamp:
- 08/31/12 07:14:19 (9 years ago)
- Location:
- release/4/nemo/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/nemo/trunk/examples/ML/morris-lecar.nemo
r27120 r27341 18 18 (defun winf (v) (0.5 * (1 + (tanh ((v - v3) / v4))))) 19 19 (defun lamw (v) (phi * (cosh ((v - v3) / (2 * v4))))) 20 (d (w) = lamw(v) * ((winf(v) - w)))20 (d (w) = (lamw(v) * ((winf(v) - w)))) 21 21 22 22 (output w) ) -
release/4/nemo/trunk/nemo-core.scm
r27339 r27341 575 575 576 576 (lambda (name formals body) 577 577 578 (let* ((const-env (make-const-env nemo-env)) 578 579 (local-env (let ((local-env (hash-table-copy nemo-env))) … … 583 584 (normalize-expr (make-normalize-expr arity-check symbol-check)) 584 585 (sym (if (symbol? name) name (string->symbol name)))) 586 585 587 (letrec ((enumconsts 586 588 (lambda (lb) … … 608 610 )) 609 611 )) 610 611 612 ) 613 612 614 (if (hash-table-exists? nemo-env sym) 613 615 (nemo:error 'defun! ": quantity " sym " already defined") … … 616 618 (consts (delete-duplicates ((enumconsts formals) body (list)) 617 619 (lambda (x y) (equal? (car x) (car y))))) 618 (eval-body `(let ,(map (lambda (sv) 619 `(,(car sv) ,(cdr sv))) consts) 620 (eval-body `(let ,(map (lambda (sv) `(,(car sv) ,(cdr sv))) consts) 620 621 (lambda ,formals ,body))) 621 622 (f (eval eval-body)) 622 623 ) 624 623 625 (let* ((ftenv (make-hash-table)) 624 626 (rt (infer nemo-env ftenv body)) … … 632 634 (consts ,(filter (lambda (x) (not (member x builtin-fns))) consts))))) 633 635 ) 634 (hash-table-set! nemo-env sym ef)))))))) 636 (hash-table-set! nemo-env sym ef)) 637 )) 638 )) 639 )) 635 640 636 641 (define (symbol-list? lst) -
release/4/nemo/trunk/nemo.setup
r27339 r27341 13 13 14 14 ((dynld-name "nemo-core") ("nemo-core.scm" "expr.grm.scm") 15 (compile - no-trace -O -d2 -s nemo-core.scm -j nemo-core))15 (compile -O -d2 -s nemo-core.scm -j nemo-core)) 16 16 17 17 ((dynld-name "nemo-core.import") ("nemo-core.import.scm") 18 (compile - no-trace -O2 -s nemo-core.import.scm))18 (compile -O2 -s nemo-core.import.scm)) 19 19 ) 20 20 (list (dynld-name "nemo-core") … … 36 36 (make ( 37 37 ((dynld-name "nemo-utils") ("nemo-utils.scm") 38 (compile - no-trace -O -d2 -s nemo-utils.scm -j nemo-utils))38 (compile -O -d2 -s nemo-utils.scm -j nemo-utils)) 39 39 40 40 ((dynld-name "nemo-utils.import") ("nemo-utils.import.scm") 41 (compile - no-trace -O2 -s nemo-utils.import.scm))41 (compile -O2 -s nemo-utils.import.scm)) 42 42 ) 43 43 (list (dynld-name "nemo-utils") … … 60 60 (make ( 61 61 ((dynld-name "nemo-synapse") ("nemo-synapse.scm") 62 (compile - no-trace -O -d2 -s nemo-synapse.scm -j nemo-synapse))62 (compile -O -d2 -s nemo-synapse.scm -j nemo-synapse)) 63 63 64 64 ((dynld-name "nemo-synapse.import") ("nemo-synapse.import.scm") 65 (compile - no-trace -O2 -s nemo-synapse.import.scm))65 (compile -O2 -s nemo-synapse.import.scm)) 66 66 ) 67 67 (list (dynld-name "nemo-synapse") … … 89 89 90 90 ((dynld-name "nemo-gate-complex.import") ("nemo-gate-complex.import.scm") 91 (compile - no-trace -O2 -s nemo-gate-complex.import.scm))91 (compile -O2 -s nemo-gate-complex.import.scm)) 92 92 ) 93 93 (list (dynld-name "nemo-gate-complex") … … 111 111 (make ( 112 112 ((dynld-name "nemo-macros") ("nemo-macros.scm") 113 (compile - no-trace -O -d2 -s nemo-macros.scm -j nemo-macros))113 (compile -O -d2 -s nemo-macros.scm -j nemo-macros)) 114 114 115 115 ((dynld-name "nemo-macros.import") ("nemo-macros.import.scm") 116 (compile - no-trace -O2 -s nemo-macros.import.scm))116 (compile -O2 -s nemo-macros.import.scm)) 117 117 ) 118 118 (list (dynld-name "nemo-macros") … … 134 134 (make ( 135 135 ((dynld-name "nemo-nmodl") ("nemo-nmodl.scm") 136 (compile - no-trace -O -d2 -s nemo-nmodl.scm -j nemo-nmodl))136 (compile -O -d2 -s nemo-nmodl.scm -j nemo-nmodl)) 137 137 138 138 ((dynld-name "nemo-nmodl.import") ("nemo-nmodl.import.scm") 139 (compile - no-trace -O2 -s nemo-nmodl.import.scm))139 (compile -O2 -s nemo-nmodl.import.scm)) 140 140 ) 141 141 (list (dynld-name "nemo-nmodl") … … 158 158 (make ( 159 159 ((dynld-name "nemo-matlab") ("nemo-matlab.scm") 160 (compile - no-trace -O -d2 -s nemo-matlab.scm -j nemo-matlab))160 (compile -O -d2 -s nemo-matlab.scm -j nemo-matlab)) 161 161 162 162 ((dynld-name "nemo-matlab.import") ("nemo-matlab.import.scm") 163 (compile - no-trace -O2 -s nemo-matlab.import.scm))163 (compile -O2 -s nemo-matlab.import.scm)) 164 164 ) 165 165 (list (dynld-name "nemo-matlab") … … 185 185 (make ( 186 186 ((dynld-name "nemo-nest") ("nemo-nest.scm") 187 (compile - no-trace -O -d2 -s nemo-nest.scm -j nemo-nest))187 (compile -O -d2 -s nemo-nest.scm -j nemo-nest)) 188 188 189 189 ((dynld-name "nemo-nest.import") ("nemo-nest.import.scm") 190 (compile - no-trace -O2 -s nemo-nest.import.scm))190 (compile -O2 -s nemo-nest.import.scm)) 191 191 ) 192 192 (list (dynld-name "nemo-nest") … … 212 212 (make ( 213 213 ((dynld-name "nemo-pyparams") ("nemo-pyparams.scm") 214 (compile - no-trace -O -d2 -s nemo-pyparams.scm -j nemo-pyparams))214 (compile -O -d2 -s nemo-pyparams.scm -j nemo-pyparams)) 215 215 216 216 ((dynld-name "nemo-pyparams.import") ("nemo-pyparams.import.scm") 217 (compile - no-trace -O2 -s nemo-pyparams.import.scm))217 (compile -O2 -s nemo-pyparams.import.scm)) 218 218 ) 219 219 (list (dynld-name "nemo-pyparams") … … 239 239 (make ( 240 240 ((dynld-name "nemo-eqn") ("nemo-eqn.scm") 241 (compile - no-trace -O -d2 -s nemo-eqn.scm -j nemo-eqn))241 (compile -O -d2 -s nemo-eqn.scm -j nemo-eqn)) 242 242 243 243 ((dynld-name "nemo-eqn.import") ("nemo-eqn.import.scm") 244 (compile - no-trace -O2 -s nemo-eqn.import.scm))244 (compile -O2 -s nemo-eqn.import.scm)) 245 245 ) 246 246 (list (dynld-name "nemo-eqn") … … 264 264 (make ( 265 265 ((dynld-name "nemo-hh") ("extensions/nemo-hh.scm") 266 (compile - no-trace -O -d2 -s extensions/nemo-hh.scm -j nemo-hh266 (compile -O -d2 -s extensions/nemo-hh.scm -j nemo-hh 267 267 -o ,(dynld-name "nemo-hh")) ) 268 268 269 269 ((dynld-name "nemo-hh.import") ("nemo-hh.import.scm") 270 (compile - no-trace -O2 -s nemo-hh.import.scm))270 (compile -O2 -s nemo-hh.import.scm)) 271 271 ) 272 272 (list (dynld-name "nemo-hh") … … 287 287 (make ( 288 288 ((dynld-name "nemo-vclamp") ("extensions/nemo-vclamp.scm") 289 (compile - no-trace -O -d2 -s extensions/nemo-vclamp.scm -j nemo-vclamp289 (compile -O -d2 -s extensions/nemo-vclamp.scm -j nemo-vclamp 290 290 -o ,(dynld-name "nemo-vclamp")) ) 291 291 292 292 ((dynld-name "nemo-vclamp.import") ("nemo-vclamp.import.scm") 293 (compile - no-trace -O2 -s nemo-vclamp.import.scm))293 (compile -O2 -s nemo-vclamp.import.scm)) 294 294 ) 295 295 (list (dynld-name "nemo-vclamp")
Note: See TracChangeset
for help on using the changeset viewer.