blob: 2fbef3f6e5bc329e0167977ca4f9187bb74f04c7 (
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
|
#N canvas 574 54 580 317 10;
#X text 245 40 when the associator is 0 the rule is respected.;
#X text 245 63 see associative-test.pd;
#X text 16 219 associator;
#X text 166 219 antiassociator;
#X obj 18 19 \$1.inlet a;
#X obj 91 19 \$1.inlet b;
#X obj 164 19 \$1.inlet c;
#X text 244 25 (a*b)*c - a*(b*c) = 0;
#X obj 18 201 \$1.outlet (ab)c-a(bc);
#X obj 168 201 \$1.outlet (ab)c+a(bc);
#X text 244 11 associativity rule for operator *=$2 is:;
#X obj 102 108 \$1.do \$2;
#X obj 102 134 \$1.do \$2;
#X obj 18 104 \$1.do \$2;
#X obj 18 123 \$1.do \$2;
#X obj 18 153 \$1.taa;
#X obj 18 182 \$1.do -;
#X obj 168 182 \$1.do +;
#X obj 18 61 \$1.packunpack3;
#X connect 4 0 18 0;
#X connect 5 0 18 1;
#X connect 6 0 18 2;
#X connect 11 0 12 1;
#X connect 12 0 16 1;
#X connect 12 0 17 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 1 17 0;
#X connect 16 0 8 0;
#X connect 17 0 9 0;
#X connect 18 0 12 0;
#X connect 18 0 13 0;
#X connect 18 1 11 0;
#X connect 18 1 13 1;
#X connect 18 2 11 1;
#X connect 18 2 14 1;
|
