13 lines
313 B
Scheme
13 lines
313 B
Scheme
|
;; half-life (jrhb)
|
||
|
|
|
||
|
|
(import (rnrs) (rsc3))
|
||
|
|
|
||
|
|
(define half-life
|
||
|
|
(let* ((t-half 3.92)
|
||
|
|
(n-atoms 1e+5)
|
||
|
|
(n (u:max 0 (sub n-atoms (pulse-count (local-in 2 ar) 0))))
|
||
|
|
(activity (dust ar (mul n (fdiv (log 2) t-half)))))
|
||
|
|
(mrg2 activity (local-out activity))))
|
||
|
|
|
||
|
|
(audition (out 0 half-life))
|