diff options
Diffstat (limited to 'desiredata/extra/pureunity/invertor.pd')
| -rw-r--r-- | desiredata/extra/pureunity/invertor.pd | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/desiredata/extra/pureunity/invertor.pd b/desiredata/extra/pureunity/invertor.pd new file mode 100644 index 00000000..4ee54548 --- /dev/null +++ b/desiredata/extra/pureunity/invertor.pd @@ -0,0 +1,30 @@ +#N canvas 336 387 602 199 10; +#X text 185 60 when the invertor is 0 the rule is respected.; +#X text 185 83 see invertible-test.pd; +#X text 19 174 invertor; +#X text 149 174 antiinvertor; +#X text 184 11 invertibility rule for operator \$2 with (presumed) +right-inverse \$3 is:; +#X text 184 45 (a \$2 b) \$3 b - a = 0; +#X obj 18 19 inlet.\$1 a; +#X obj 101 19 inlet.\$1 b; +#X obj 18 39 taa.\$1; +#X obj 18 65 op2.\$1 \$2; +#X obj 18 91 op2.\$1 \$3; +#X obj 18 115 taa.\$1; +#X obj 18 137 op2.\$1 -; +#X obj 18 156 outlet.\$1 (ab)/b-a; +#X obj 148 156 outlet.\$1 (ab)/b+a; +#X obj 148 137 op2.\$1 +; +#X connect 6 0 8 0; +#X connect 7 0 9 1; +#X connect 7 0 10 1; +#X connect 8 0 9 0; +#X connect 8 1 12 1; +#X connect 8 1 15 1; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 11 1 15 0; +#X connect 12 0 13 0; +#X connect 15 0 14 0; |