aboutsummaryrefslogtreecommitdiff
path: root/smooth_double.pd
blob: cf462de11fcc142b8d8159b85dbc815530ecb62c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#N canvas 1 53 765 388 10;
#X obj 61 6 inlet;
#X obj 300 6 inlet;
#X obj 300 60 purepd/float_argument \$1 0.15;
#X obj 311 33 loadbang;
#X obj 99 345 outlet;
#X text 135 220 St = a*Yt1+(1-a)*St1;
#X obj 61 51 trigger float bang;
#X obj 166 147 float;
#X text 202 147 St1;
#X obj 300 96 clip 0 1;
#X obj 257 312 pddp/pddplink http://www.itl.nist.gov/div898/handbook/pmc/section4/pmc433.htm
;
#X obj 215 345 outlet;
#X obj 490 6 inlet;
#X obj 501 33 loadbang;
#X obj 490 96 clip 0 1;
#X text 233 277 bt = y * (St - St1) + (1 - y) * bt1;
#X text 549 96 y;
#X text 359 96 a;
#X obj 216 259 expr $f4 * ($f1 - $f2) + (1 - $f4) * $f3;
#X obj 334 148 float;
#X text 372 147 bt1;
#X obj 490 60 purepd/float_argument \$2 0.3;
#X obj 99 201 expr $f4*$f1+(1-$f4) * ($f2 + $f3);
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 9 0;
#X connect 3 0 2 0;
#X connect 6 0 22 0;
#X connect 6 1 7 0;
#X connect 6 1 19 0;
#X connect 7 0 18 1;
#X connect 7 0 22 1;
#X connect 9 0 22 3;
#X connect 12 0 21 0;
#X connect 13 0 21 0;
#X connect 14 0 18 3;
#X connect 18 0 19 1;
#X connect 18 0 11 0;
#X connect 19 0 18 2;
#X connect 19 0 22 2;
#X connect 21 0 14 0;
#X connect 22 0 4 0;
#X connect 22 0 7 1;
#X connect 22 0 18 0;