Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -0,0 +1,19 @@
(define (experiment)
(define (K t) (sin (* PI t )))
(define A (make-active))
(define (stop) (A 'input 0))
(define (sample t) (A 'sample (// t 1000)))
(define (result) (writeln 'result (A 'output)))
(at 2.5 'seconds 'result)
(every 10 'sample) ;; integrate every 10 ms
(A 'input K)
(wait 2000 'stop))
(experiment) →
3/7/2015 20:34:18 : result
result 0.0002266920372221955
(experiment) →
3/7/2015 20:34:28 : result
result 0.00026510586971023164