Changeset 30970 in project


Ignore:
Timestamp:
06/06/14 03:38:14 (6 years ago)
Author:
Ivan Raikov
Message:

signal-diagram: further adaptive integration fixes

Location:
release/4/signal-diagram/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/signal-diagram/trunk/signal-diagram-dynamics.scm

    r30942 r30970  
    130130                 eqs)))
    131131
    132       (let ((du (ACTUATE (if varh (cons hname dqs) dqs)
     132      (let ((du (ACTUATE (if varh (append dqs (list hname)) dqs)
    133133                         (INTEGRAL indep dqs h dfs))))
    134134
     
    169169                ((null? (cdr fs))
    170170                 (let ((d (car deps)))
    171                    (ACTUATE (if varh (list hname d) (list d))
     171                   (ACTUATE (if varh (list d hname) (list d))
    172172                            (INTEGRAL indep (list d) h (list (car fs))))
    173173                   ))
    174174
    175175                (else
    176                  (ACTUATE (if varh (cons hname deps) deps)
     176                 (ACTUATE (if varh (append deps (list hname)) deps)
    177177                          (INTEGRAL indep deps h fs)))
    178178                )))
  • release/4/signal-diagram/trunk/signal-diagram.scm

    r30964 r30970  
    13201320       
    13211321        ;; out
    1322         (lambda (s) (lset-union eq?
    1323                                (or (and ee (ee-out s)) '())
    1324                                (if varh (cons hname yns) yns)))
     1322        (lambda (s) (append yns
     1323                            (or (and varh (list hname)) '())
     1324                            (or (and ee (ee-out s)) '())
     1325                            ))
    13251326        )
    13261327       
Note: See TracChangeset for help on using the changeset viewer.