Changeset 17889 in project
 Timestamp:
 04/23/10 12:08:46 (9 years ago)
 Location:
 release/4/nemo/trunk
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

release/4/nemo/trunk/nemomatlab.scm
r17793 r17889 264 264 (matchlet (((g cnode nodesubs) (transitionsgraph n open transitions conserve matlabstatename))) 265 265 (let ((nodes ((g 'nodes)))) 266 (if (< 2 (length nodes))267 (list (matlabname n) `(/ ,(matlabstatename n open)268 269 (matlabstatename n (second x)))) nodes))))270 (list (matlabname n) (matlabstatename n open))))) )266 ; (if (< 2 (length nodes)) 267 ; (list (matlabname n) `(abs (/ ,(matlabstatename n open) 268 ; ,(sum (filtermap (lambda (x) (and (not (= (first x) (first cnode))) 269 ; (matlabstatename n (second x)))) nodes))))) 270 (list (matlabname n) (matlabstatename n open))))) 271 271 272 272 
release/4/nemo/trunk/nemonmodl.scm
r17793 r17889 466 466 467 467 468 (define (reactioneq n open transitions )469 (list (nmodlname n) (nmodl name (nmodlstatename n open))))468 (define (reactioneq n open transitions conserve) 469 (list (nmodlname n) (nmodlstatename n open))) 470 470 471 471 (define (poset>reactioneqdefs poset sys kinetic) … … 478 478 (cases nemo:quantity en 479 479 (REACTION (name initial open transitions conserve power) 480 (cons (reactioneq name open transitions ) ax))480 (cons (reactioneq name open transitions conserve) ax)) 481 481 482 482 (else ax))
Note: See TracChangeset
for help on using the changeset viewer.