aboutsummaryrefslogtreecommitdiff
path: root/desiredata/extra/pureunity/associator.pd
blob: f6592029cd081879fb3ec4ef555fe43f755ebc19 (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 text 244 25 (a*b)*c - a*(b*c) = 0;
#X text 244 11 associativity rule for operator *=\$2 is:;
#X obj 18 19 inlet.\$1 a;
#X obj 91 19 inlet.\$1 b;
#X obj 164 19 inlet.\$1 c;
#X obj 18 61 packunpack3.\$1;
#X obj 18 104 op2.\$1 \$2;
#X obj 18 123 op2.\$1 \$2;
#X obj 102 108 op2.\$1 \$2;
#X obj 102 134 op2.\$1 \$2;
#X obj 18 153 taa.\$1;
#X obj 18 182 op2.\$1 -;
#X obj 168 182 op2.\$1 +;
#X obj 168 201 outlet.\$1 (ab)c+a(bc);
#X obj 18 201 outlet.\$1 (ab)c-a(bc);
#X connect 6 0 9 0;
#X connect 7 0 9 1;
#X connect 8 0 9 2;
#X connect 9 0 10 0;
#X connect 9 0 13 0;
#X connect 9 1 10 1;
#X connect 9 1 12 0;
#X connect 9 2 11 1;
#X connect 9 2 12 1;
#X connect 10 0 11 0;
#X connect 11 0 14 0;
#X connect 12 0 13 1;
#X connect 13 0 15 1;
#X connect 13 0 16 1;
#X connect 14 0 15 0;
#X connect 14 1 16 0;
#X connect 15 0 18 0;
#X connect 16 0 17 0;