From ffbfad84037271db59e3253446e3889addfbbe6c Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sat, 31 Dec 2005 18:44:54 +0000 Subject: . svn path=/trunk/abstractions/pureunity/; revision=4331 --- specifics/arith-test.pd | 63 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 63 insertions(+) create mode 100644 specifics/arith-test.pd (limited to 'specifics') diff --git a/specifics/arith-test.pd b/specifics/arith-test.pd new file mode 100644 index 0000000..3136228 --- /dev/null +++ b/specifics/arith-test.pd @@ -0,0 +1,63 @@ +#N canvas 365 120 687 494 10; +#X text 18 12 This is the testclass for + \, - \, * \, / \, % \, mod +\, ^ \, & \, |; +#X text 78 136 Abelian Groups:; +#X text 80 229 Abelian Monoids:; +#X text 79 299 Rings (incl Fields):; +#X obj 134 87 r \$0-b; +#X obj 299 87 r \$0-b; +#X obj 450 87 r \$0-b; +#X obj 16 59 s \$0-b; +#X obj 16 40 inlet bang; +#X obj 14 414 r \$0-r; +#X obj 14 433 outlet reports; +#X obj 134 406 s \$0-r; +#X obj 299 406 s \$0-r; +#X obj 450 406 s \$0-r; +#X obj 134 157 commutative-test \$1 +; +#X obj 134 177 commutative-test \$1 *; +#X obj 134 197 commutative-test \$1 ^; +#X obj 134 247 commutative-test \$1 &; +#X obj 134 267 commutative-test \$1 |; +#X obj 134 317 distributive-test \$1 + *; +#X obj 134 337 distributive-test \$1 ^ &; +#X obj 299 247 associative-test \$1 &; +#X obj 299 267 associative-test \$1 |; +#X obj 299 157 associative-test \$1 +; +#X obj 299 177 associative-test \$1 *; +#X obj 299 197 associative-test \$1 ^; +#X obj 450 197 invertible-test \$1 ^ ^; +#X obj 450 177 invertible-test \$1 * /; +#X obj 450 157 invertible-test \$1 + -; +#X connect 4 0 14 0; +#X connect 4 0 15 0; +#X connect 4 0 16 0; +#X connect 4 0 17 0; +#X connect 4 0 18 0; +#X connect 4 0 19 0; +#X connect 4 0 20 0; +#X connect 5 0 21 0; +#X connect 5 0 22 0; +#X connect 5 0 23 0; +#X connect 5 0 24 0; +#X connect 5 0 25 0; +#X connect 6 0 26 0; +#X connect 6 0 27 0; +#X connect 6 0 28 0; +#X connect 8 0 7 0; +#X connect 9 0 10 0; +#X connect 14 0 11 0; +#X connect 15 0 11 0; +#X connect 16 0 11 0; +#X connect 17 0 11 0; +#X connect 18 0 11 0; +#X connect 19 0 11 0; +#X connect 20 0 11 0; +#X connect 21 0 12 0; +#X connect 22 0 12 0; +#X connect 23 0 12 0; +#X connect 24 0 12 0; +#X connect 25 0 12 0; +#X connect 26 0 13 0; +#X connect 27 0 13 0; +#X connect 28 0 13 0; -- cgit v1.2.1