[PD-cvs] pd/extra/pureunity commutative-test.pd, NONE, 1.1.2.1 distributive-test.pd, NONE, 1.1.2.1 associative-test.pd, NONE, 1.1.2.1 invertible-test.pd, NONE, 1.1.2.1

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/extra/pureunity
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8259

Added Files:
      Tag: desiredata
	commutative-test.pd distributive-test.pd associative-test.pd 
	invertible-test.pd 
Log Message:
practical tests for certain properties of operator2


--- NEW FILE: distributive-test.pd ---
#N canvas 665 86 471 430 10;
#X obj 40 15 inlet bang;
#X obj 37 160 /;
#X obj 37 179 t a a;
#X text 157 24 with tolerance 0;
#X obj 37 198 <= 0;
#X text 156 9 This test verifies that 3*(4+5)=3*4+3*5;
#X msg 40 34 3 4 5;
#X obj 40 82 unpack 0 0 0;
#X obj 37 255 outlet;
#X obj 37 141 * 2;
#X obj 37 103 distributor \$1 \$2 \$3;
#X obj 37 236 list append distributive \$1 \$2 \$3;
#X obj 37 217 pack 0 0 -1;
#X obj 37 122 norm.\$1;
#X obj 172 122 norm.\$1;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 12 1;
#X connect 4 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 7 1 10 1;
#X connect 7 2 10 2;
#X connect 9 0 1 0;
#X connect 10 0 13 0;
#X connect 10 1 14 0;
#X connect 11 0 8 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 14 0 1 1;

--- NEW FILE: associative-test.pd ---
#N canvas 736 151 452 434 10;
#X obj 40 15 inlet bang;
#X obj 40 150 /;
#X obj 40 169 t a a;
#X text 167 24 with tolerance 0;
#X obj 40 188 <= 0;
#X text 167 9 This test verifies that (1+2)+3=1+(2+3);
#X msg 40 34 1 2 3;
#X obj 40 74 unpack 0 0 0;
#X obj 40 245 outlet;
#X obj 40 131 * 2;
#X obj 40 93 associator \$1 \$2;
#X obj 40 226 list append associative \$1 \$2;
#X obj 40 207 pack 0 0 -1;
#X obj 40 112 norm.\$1;
#X obj 147 112 norm.\$1;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 12 1;
#X connect 4 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 7 1 10 1;
#X connect 7 2 10 2;
#X connect 9 0 1 0;
#X connect 10 0 13 0;
#X connect 10 1 14 0;
#X connect 11 0 8 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 14 0 1 1;

--- NEW FILE: commutative-test.pd ---
#N canvas 555 5 452 322 10;
#X obj 40 15 inlet bang;
#X obj 101 102 unpack 0 0;
#X obj 101 183 /;
#X msg 40 34 1 3;
#X text 216 9 This test verifies that 1+3=3+1;
#X obj 101 202 t a a;
#X obj 101 278 outlet;
#X text 217 44 with tolerance 0;
#X obj 101 221 <= 0;
#X text 218 23 and 1*3=3*1 and...;
#X obj 101 164 * 2;
#X obj 101 126 commutator \$1 \$2;
#X obj 41 53 t b l b;
#X obj 43 95 rtimer;
#X floatatom 44 125 5 0 0 0 - - -;
#X obj 101 259 list append commutative \$1 \$2;
#X obj 101 240 pack 0 0 -1;
#X obj 101 145 norm.\$1;
#X obj 208 145 norm.\$1;
#X connect 0 0 3 0;
#X connect 1 0 11 0;
#X connect 1 1 11 1;
#X connect 2 0 5 0;
#X connect 3 0 12 0;
#X connect 5 0 8 0;
#X connect 5 1 16 1;
#X connect 8 0 16 0;
#X connect 10 0 2 0;
#X connect 11 0 17 0;
#X connect 11 1 18 0;
#X connect 12 0 13 1;
#X connect 12 1 1 0;
#X connect 12 2 13 0;
#X connect 13 0 14 0;
#X connect 15 0 6 0;
#X connect 16 0 15 0;
#X connect 17 0 10 0;
#X connect 18 0 2 1;

--- NEW FILE: invertible-test.pd ---
#N canvas 665 86 452 291 10;
#X obj 40 15 inlet bang;
#X obj 40 79 unpack 0 0;
#X obj 33 160 /;
#X msg 40 34 1 3;
#X obj 33 179 t a a;
#X text 217 24 with tolerance 0;
#X obj 33 198 <= 0;
#X text 215 9 This test verifies that 1+3-3=1;
#X obj 33 255 outlet;
#X obj 33 141 * 2;
#X obj 33 103 invertor \$1 \$2 \$3;
#X obj 33 236 list append invertible \$1 \$2 \$3;
#X obj 33 217 pack 0 0 -1;
#X obj 33 122 norm.\$1;
#X obj 147 123 norm.\$1;
#X connect 0 0 3 0;
#X connect 1 0 10 0;
#X connect 1 1 10 1;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 6 0;
#X connect 4 1 12 1;
#X connect 6 0 12 0;
#X connect 9 0 2 0;
#X connect 10 0 13 0;
#X connect 10 1 14 0;
#X connect 11 0 8 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 14 0 2 1;