abstractions/pureunity/generics associative-test.pd, 1.6, 1.7 commutative-test.pd, 1.8, 1.9 distributive-test.pd, 1.6, 1.7 invertible-test.pd, 1.6, 1.7 - Pd-cvs

7 Jan 2006


      Update of /cvsroot/pure-data/abstractions/pureunity/generics
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2219
Modified Files:
    associative-test.pd commutative-test.pd distributive-test.pd 
    invertible-test.pd 
Log Message:
using [list append]
Index: associative-test.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/associative-test.pd,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** associative-test.pd	4 Jan 2006 02:48:43 -0000	1.6
--- associative-test.pd	7 Jan 2006 06:57:12 -0000	1.7
***************
*** 8,38 ****
  #X msg 40 34 1 2 3;
  #X obj 40 74 unpack 0 0 0;
! #X obj 40 236 outlet;
! #X obj 104 155 loadbang;
! #X obj 104 193 unpack s s s;
! #X obj 40 217 pack 0 0 -1 s s s;
! #X obj 104 174 3times symbol associative $1 $2;
  #X obj 40 131 * 2;
  #X obj 40 112 $1.norm;
  #X obj 147 112 $1.norm;
  #X obj 40 93 associator $1 $2;
  #X connect 0 0 6 0;
  #X connect 1 0 2 0;
  #X connect 2 0 4 0;
! #X connect 2 1 11 1;
! #X connect 4 0 11 0;
  #X connect 6 0 7 0;
! #X connect 7 0 16 0;
! #X connect 7 1 16 1;
! #X connect 7 2 16 2;
! #X connect 9 0 12 0;
! #X connect 10 0 11 3;
! #X connect 10 1 11 4;
! #X connect 10 2 11 5;
! #X connect 11 0 8 0;
  #X connect 12 0 10 0;
! #X connect 13 0 1 0;
  #X connect 14 0 13 0;
- #X connect 15 0 1 1;
- #X connect 16 0 14 0;
- #X connect 16 1 15 0;
--- 8,32 ----
  #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 112 $1.norm;
  #X obj 147 112 $1.norm;
  #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 connect 0 0 6 0;
  #X connect 1 0 2 0;
  #X connect 2 0 4 0;
! #X connect 2 1 14 1;
! #X connect 4 0 14 0;
  #X connect 6 0 7 0;
! #X connect 7 0 12 0;
! #X connect 7 1 12 1;
! #X connect 7 2 12 2;
! #X connect 9 0 1 0;
! #X connect 10 0 9 0;
! #X connect 11 0 1 1;
  #X connect 12 0 10 0;
! #X connect 12 1 11 0;
! #X connect 13 0 8 0;
  #X connect 14 0 13 0;
Index: distributive-test.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/distributive-test.pd,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** distributive-test.pd	4 Jan 2006 02:48:43 -0000	1.6
--- distributive-test.pd	7 Jan 2006 06:57:12 -0000	1.7
***************
*** 8,39 ****
  #X msg 40 34 3 4 5;
  #X obj 40 82 unpack 0 0 0;
! #X obj 37 236 outlet;
! #X obj 101 155 loadbang;
! #X obj 101 174 4times symbol distributive $1 $2 $3;
! #X obj 101 193 unpack s s s s;
! #X obj 37 217 pack 0 0 -1 s s s s;
  #X obj 37 141 * 2;
  #X obj 37 122 $1.norm;
  #X obj 172 122 $1.norm;
  #X obj 37 103 distributor $1 $2 $3;
  #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 16 0;
! #X connect 7 1 16 1;
! #X connect 7 2 16 2;
! #X connect 9 0 10 0;
! #X connect 10 0 11 0;
! #X connect 11 0 12 3;
! #X connect 11 1 12 4;
! #X connect 11 2 12 5;
! #X connect 11 3 12 6;
! #X connect 12 0 8 0;
! #X connect 13 0 1 0;
  #X connect 14 0 13 0;
- #X connect 15 0 1 1;
- #X connect 16 0 14 0;
- #X connect 16 1 15 0;
--- 8,32 ----
  #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 122 $1.norm;
  #X obj 172 122 $1.norm;
  #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 connect 0 0 6 0;
  #X connect 1 0 2 0;
  #X connect 2 0 4 0;
! #X connect 2 1 14 1;
! #X connect 4 0 14 0;
  #X connect 6 0 7 0;
! #X connect 7 0 12 0;
! #X connect 7 1 12 1;
! #X connect 7 2 12 2;
! #X connect 9 0 1 0;
! #X connect 10 0 9 0;
! #X connect 11 0 1 1;
! #X connect 12 0 10 0;
! #X connect 12 1 11 0;
! #X connect 13 0 8 0;
  #X connect 14 0 13 0;
Index: commutative-test.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/commutative-test.pd,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** commutative-test.pd	4 Jan 2006 02:48:43 -0000	1.8
--- commutative-test.pd	7 Jan 2006 06:57:12 -0000	1.9
***************
*** 6,17 ****
  #X text 216 9 This test verifies that 1+3=3+1;
  #X obj 101 202 t a a;
! #X obj 101 284 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 165 188 loadbang;
- #X obj 165 207 3times symbol commutative $1 $2;
- #X obj 165 226 unpack s s s;
- #X obj 101 250 pack 0 0 -1 s s s;
  #X obj 101 164 * 2;
  #X obj 101 145 $1.norm;
--- 6,13 ----
  #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 145 $1.norm;
***************
*** 21,45 ****
  #X obj 43 95 rtimer;
  #X floatatom 44 125 5 0 0 0 - - -;
  #X connect 0 0 3 0;
! #X connect 1 0 17 0;
! #X connect 1 1 17 1;
  #X connect 2 0 5 0;
! #X connect 3 0 18 0;
  #X connect 5 0 8 0;
! #X connect 5 1 13 1;
! #X connect 8 0 13 0;
! #X connect 10 0 11 0;
! #X connect 11 0 12 0;
! #X connect 12 0 13 3;
! #X connect 12 1 13 4;
! #X connect 12 2 13 5;
! #X connect 13 0 6 0;
! #X connect 14 0 2 0;
! #X connect 15 0 14 0;
! #X connect 16 0 2 1;
! #X connect 17 0 15 0;
! #X connect 17 1 16 0;
! #X connect 18 0 19 1;
! #X connect 18 1 1 0;
! #X connect 18 2 19 0;
! #X connect 19 0 20 0;
--- 17,39 ----
  #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 connect 0 0 3 0;
! #X connect 1 0 13 0;
! #X connect 1 1 13 1;
  #X connect 2 0 5 0;
! #X connect 3 0 14 0;
  #X connect 5 0 8 0;
! #X connect 5 1 18 1;
! #X connect 8 0 18 0;
! #X connect 10 0 2 0;
! #X connect 11 0 10 0;
! #X connect 12 0 2 1;
! #X connect 13 0 11 0;
! #X connect 13 1 12 0;
! #X connect 14 0 15 1;
! #X connect 14 1 1 0;
! #X connect 14 2 15 0;
! #X connect 15 0 16 0;
! #X connect 17 0 6 0;
! #X connect 18 0 17 0;
Index: invertible-test.pd
===================================================================
RCS file: /cvsroot/pure-data/abstractions/pureunity/generics/invertible-test.pd,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** invertible-test.pd	4 Jan 2006 02:48:43 -0000	1.6
--- invertible-test.pd	7 Jan 2006 06:57:12 -0000	1.7
***************
*** 8,38 ****
  #X obj 33 198 <= 0;
  #X text 215 9 This test verifies that 1+3-3=1;
! #X obj 33 236 outlet;
! #X obj 97 155 loadbang;
! #X obj 97 193 unpack s s s s;
! #X obj 33 217 pack 0 0 -1 s s s s;
! #X obj 97 174 4times symbol invertible $1 $2 $3;
  #X obj 33 141 * 2;
  #X obj 33 122 $1.norm;
  #X obj 147 123 $1.norm;
  #X obj 33 103 invertor $1 $2 $3;
  #X connect 0 0 3 0;
! #X connect 1 0 16 0;
! #X connect 1 1 16 1;
  #X connect 2 0 4 0;
  #X connect 3 0 1 0;
  #X connect 4 0 6 0;
! #X connect 4 1 11 1;
! #X connect 6 0 11 0;
! #X connect 9 0 12 0;
! #X connect 10 0 11 3;
! #X connect 10 1 11 4;
! #X connect 10 2 11 5;
! #X connect 10 3 11 6;
! #X connect 11 0 8 0;
  #X connect 12 0 10 0;
! #X connect 13 0 2 0;
  #X connect 14 0 13 0;
- #X connect 15 0 2 1;
- #X connect 16 0 14 0;
- #X connect 16 1 15 0;
--- 8,31 ----
  #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 122 $1.norm;
  #X obj 147 123 $1.norm;
  #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 connect 0 0 3 0;
! #X connect 1 0 12 0;
! #X connect 1 1 12 1;
  #X connect 2 0 4 0;
  #X connect 3 0 1 0;
  #X connect 4 0 6 0;
! #X connect 4 1 14 1;
! #X connect 6 0 14 0;
! #X connect 9 0 2 0;
! #X connect 10 0 9 0;
! #X connect 11 0 2 1;
  #X connect 12 0 10 0;
! #X connect 12 1 11 0;
! #X connect 13 0 8 0;
  #X connect 14 0 13 0;