Changeset 27341 in project


Ignore:
Timestamp:
08/31/12 07:14:19 (9 years ago)
Author:
Ivan Raikov
Message:

nemo: syntax fix in morris-lecar model

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

Legend:

Unmodified
Added
Removed
  • release/4/nemo/trunk/examples/ML/morris-lecar.nemo

    r27120 r27341  
    1818                    (defun winf (v)  (0.5 * (1 + (tanh ((v - v3) / v4)))))
    1919                    (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))))
    2121
    2222                    (output w) )
  • release/4/nemo/trunk/nemo-core.scm

    r27339 r27341  
    575575
    576576    (lambda (name formals body)
     577
    577578        (let* ((const-env (make-const-env nemo-env))
    578579               (local-env (let ((local-env (hash-table-copy nemo-env)))
     
    583584               (normalize-expr (make-normalize-expr arity-check symbol-check))
    584585               (sym (if (symbol? name) name (string->symbol name))))
     586
    585587          (letrec ((enumconsts
    586588                    (lambda (lb)
     
    608610                               ))
    609611                      ))
    610                    
    611612                   )
     613
    612614            (if (hash-table-exists? nemo-env sym)
    613615                (nemo:error 'defun! ": quantity " sym " already defined")
     
    616618                       (consts  (delete-duplicates ((enumconsts formals) body (list))
    617619                                                   (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)
    620621                                     (lambda ,formals ,body)))
    621622                       (f      (eval eval-body))
    622623                       )
     624
    623625                  (let* ((ftenv  (make-hash-table))
    624626                         (rt     (infer nemo-env ftenv body))
     
    632634                                     (consts ,(filter (lambda (x) (not (member x builtin-fns))) consts)))))
    633635                         )
    634                   (hash-table-set! nemo-env sym ef))))))))
     636                  (hash-table-set! nemo-env sym ef))
     637                  ))
     638            ))
     639        ))
    635640
    636641  (define (symbol-list? lst)
  • release/4/nemo/trunk/nemo.setup

    r27339 r27341  
    1313
    1414       ((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))
    1616
    1717       ((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))
    1919       )
    2020  (list (dynld-name "nemo-core")
     
    3636(make (
    3737       ((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))
    3939
    4040       ((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))
    4242       )
    4343  (list (dynld-name "nemo-utils")
     
    6060(make (
    6161       ((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))
    6363
    6464       ((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))
    6666       )
    6767  (list (dynld-name "nemo-synapse")
     
    8989
    9090       ((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))
    9292       )
    9393  (list (dynld-name "nemo-gate-complex")
     
    111111(make (
    112112       ((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))
    114114
    115115       ((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))
    117117       )
    118118  (list (dynld-name "nemo-macros")
     
    134134(make (
    135135       ((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))
    137137
    138138       ((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))
    140140       )
    141141  (list (dynld-name "nemo-nmodl")
     
    158158      (make (
    159159             ((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))
    161161             
    162162             ((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))
    164164             )
    165165        (list (dynld-name "nemo-matlab")
     
    185185      (make (
    186186             ((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))
    188188             
    189189             ((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))
    191191             )
    192192        (list (dynld-name "nemo-nest")
     
    212212      (make (
    213213             ((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))
    215215             
    216216             ((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))
    218218             )
    219219        (list (dynld-name "nemo-pyparams")
     
    239239      (make (
    240240             ((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))
    242242             
    243243             ((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))
    245245             )
    246246        (list (dynld-name "nemo-eqn")
     
    264264(make (
    265265       ((dynld-name "nemo-hh") ("extensions/nemo-hh.scm")
    266         (compile -no-trace -O -d2 -s extensions/nemo-hh.scm -j nemo-hh
     266        (compile -O -d2 -s extensions/nemo-hh.scm -j nemo-hh
    267267                 -o ,(dynld-name "nemo-hh")) )
    268268
    269269       ((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))
    271271       )
    272272  (list (dynld-name "nemo-hh")
     
    287287(make (
    288288       ((dynld-name "nemo-vclamp") ("extensions/nemo-vclamp.scm")
    289         (compile -no-trace -O -d2 -s extensions/nemo-vclamp.scm -j nemo-vclamp
     289        (compile -O -d2 -s extensions/nemo-vclamp.scm -j nemo-vclamp
    290290                 -o ,(dynld-name "nemo-vclamp")) )
    291291
    292292       ((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))
    294294       )
    295295  (list (dynld-name "nemo-vclamp")
Note: See TracChangeset for help on using the changeset viewer.