Changeset 13040 in project for release/3/nemo/trunk/nemo-matlab.scm


Ignore:
Timestamp:
01/20/09 08:46:33 (12 years ago)
Author:
Ivan Raikov
Message:

Save.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/nemo/trunk/nemo-matlab.scm

    r13012 r13040  
    395395
    396396                                      (RATE  (name initial rhs)
    397                                              (if (nemo:rhs? initial)
     397                                             (if (and initial (nemo:rhs? initial))
    398398                                                 (cons (state-init name initial) ax)
    399399                                                 ax))
     
    645645                     rate-eq-defs)
    646646
    647            (for-each (lambda (pool-ion)
    648                        (pp indent+ ,(expr->string/MATLAB (first pool-ion) (third pool-ion) )))
    649                      pool-ions)
    650            
    651647           (for-each (lambda (def)
    652648                       (let ((n (matlab-name (first def)) )
     
    654650                         (pp indent+ ,(expr->string/MATLAB b n))))
    655651                     asgn-eq-defs)
    656          
    657          (for-each (lambda (def)
    658                      (let ((n (first def)) (b (second def)))
    659                        (pp indent+ ,(expr->string/MATLAB b n))))
    660                    reaction-eq-defs)
     652           
     653           (for-each (lambda (def)
     654                       (let ((n (first def)) (b (second def)))
     655                         (pp indent+ ,(expr->string/MATLAB b n))))
     656                     reaction-eq-defs)
     657
     658           (for-each (lambda (pool-ion)
     659                       (pp indent+ ,(expr->string/MATLAB (first pool-ion) (third pool-ion) )))
     660                     pool-ions)
    661661
    662662         (pp indent+ ,(expr->string/MATLAB `(zeros (length y) 1) 'dy))
     
    757757                   init-eq-defs)
    758758         
     759         (for-each (lambda (pool-ion)
     760                     (pp indent+ ,(expr->string/MATLAB (first pool-ion) (third pool-ion) )))
     761                   pool-ions)
     762
    759763         (if (not (null? steady-state-index-map))
    760764             (begin
Note: See TracChangeset for help on using the changeset viewer.