From 3fa29e03170d7d1c0d716c583f2e17f8bc109cd2 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sat, 31 Dec 2005 16:19:37 +0000 Subject: added anticommutator outlet svn path=/trunk/abstractions/pureunity/; revision=4325 --- generics/commutator.pd | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/generics/commutator.pd b/generics/commutator.pd index 5dba66a..35559b0 100644 --- a/generics/commutator.pd +++ b/generics/commutator.pd @@ -1,6 +1,6 @@ #N canvas 394 81 620 407 10; #X obj 18 84 \$1; -#X obj 52 158 -; +#X obj 18 210 -; #X obj 68 115 \$1; #X obj 68 96 f; #X obj 18 19 inlet a; @@ -8,12 +8,11 @@ #X text 75 134 ba; #X text 33 103 ab; #X obj 18 38 t a b a; -#X text 10 158 note: - is float-only; #X text 218 15 commutativity rule for operator \$1 is: a \$1 b = b \$1 a; #X text 218 32 which is also a \$1 b - b \$1 a = 0; #X text 218 48 the commutator is a \$1 b - b \$1 a; -#X obj 52 177 outlet ab-ba; +#X obj 18 229 outlet ab-ba; #X text 189 112 when \$1 = + this is also known as a "group commutator" ; #X text 189 132 when \$1 = * this is also known as a "ring commutator" @@ -21,9 +20,15 @@ #X text 190 153 however \, this thing i call commutator is more general ; #X text 189 172 see commutative-test.pd; -#X connect 0 0 1 0; -#X connect 1 0 13 0; +#X obj 106 229 outlet ab+ba; +#X obj 18 141 t a a; +#X obj 106 210 +; +#X text 106 247 anticommutator; +#X text 19 247 commutator; +#X connect 0 0 18 0; +#X connect 1 0 12 0; #X connect 2 0 1 1; +#X connect 2 0 19 0; #X connect 3 0 2 0; #X connect 4 0 8 0; #X connect 5 0 3 1; @@ -31,3 +36,6 @@ #X connect 8 0 0 0; #X connect 8 1 3 0; #X connect 8 2 2 1; +#X connect 18 0 1 0; +#X connect 18 1 19 1; +#X connect 19 0 17 0; -- cgit v1.2.1