|
class Pacemaker
values
public wrongTR: Heart`Trace =
[<A>, nil, <V>, nil, nil, <A>, nil, nil, nil, nil ];
operations
public Pace: Heart`Trace * nat1 * nat1 ==> Heart`Trace
Pace(tr,aperi,vdel) ==
return [nil] ^
[ if (i mod aperi = vdel + 1) and tr(i) <> <V>
then <V>
else nil
| i in set inds tl tr];
end Pacemaker
[ Dauer der Verarbeitung: 0.0 Sekunden
(vorverarbeitet)
]
|
