Changeset 30965 in project


Ignore:
Timestamp:
06/05/14 15:10:37 (6 years ago)
Author:
Ivan Raikov
Message:

sundials: added regular spiking izhikevich model

Location:
release/4/sundials/trunk/tests
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sundials/trunk/tests/ml.scm

    r29469 r30965  
    66
    77
    8 (define TEND  500.0)
     8(define TEND  1000.0)
    99
    1010                           
     
    122122                   t0 yy rhs
    123123                   tstop: tf
    124                    abstol: 1e-4
    125                    reltol: 1e-4)))
     124                   abstol: 1e-6
     125                   reltol: 1e-6)))
    126126
    127127      ;; In loop, call CVodeSolve, print results, and test for error.
     
    132132          (if (negative? flag) (error 'main "CVODE solver error" flag))
    133133
    134 ;;        (print-results solver tnext)
     134          (print-results solver tnext)
    135135
    136136          (if (< tnext tf)
     
    138138          ))
    139139     
    140       (let ((yy (cvode-yy solver)))
     140#;      (let ((yy (cvode-yy solver)))
    141141        (let ((v (f64vector-ref yy 0))
    142142              (w (f64vector-ref yy 1)))
    143143          (printf "v = ~A w = ~A~%" v w)
    144144          ))
     145
    145146      (cvode-destroy-solver solver)
    146147     
     
    170171          (if (negative? flag) (error 'main "CVODE solver error" flag))
    171172
    172 ;;        (print-results solver tnext)
     173;         (print-results solver tnext)
    173174
    174175          (if (< tnext tf)
     
    198199            )))
    199200     
    200 (ida-main)     
    201201(cvode-main)
    202 (cvode-main/unsafe)
     202;(cvode-main/unsafe)
     203;(ida-main)     
Note: See TracChangeset for help on using the changeset viewer.