arr.anal.pd

#N canvas 757 23 418 529 10;
#X obj 164 166 array size \$0-pairs;
#X obj 164 146 expr $f1 * $f1;
#X obj 171 367 array set \$0-pairs;
#X obj 165 327 array get \$0-pairs;
#X obj 165 230 expr $f1 * $f2;
#X msg 217 308 1;
#X obj 165 347 + 1;
#X obj 165 250 t f f;
#X obj 217 289 loadbang;
#X obj 192 270 s \$0-index;
#X obj 223 347 r \$0-index;
#X obj 36 25 inlet;
#X obj 164 21 inlet;
#X obj 164 126 f \$1;
#X obj 171 105 loadbang;
#X obj 165 387 outlet;
#X obj 210 84 array define \$0-pairs;
#X obj 165 207 unpack f f;
#X obj 36 111 list;
#X obj 36 133 list split 2;
#X obj 36 159 s \$0-list;
#X obj 57 90 r \$0-list;
#X obj 165 187 r \$0-list;
#X obj 39 301 r \$0-list;
#X obj 38 389 outlet;
#X obj 106 388 outlet;
#X obj 39 321 unpack f f;
#X msg 210 63 const 0;
#X obj 164 43 route size reset;
#X obj 96 341 s \$0-prev;
#X obj 39 342 s \$0-cur;
#X obj 106 367 r \$0-cur;
#X obj 38 367 r \$0-prev;
#X text 217 389 (c)2020 \, megrimm;
#X text 38 427 one problem with this method is the numbers are multiplied
to plot 3 values in an array. so the pair [3 4( is also [4 3( meaning
the "pair" is logged twice even thgouh the pair is differnce if we
are trying to undertand the probability of the pair existing, f 54
;
#X connect 1 0 0 0;
#X connect 3 0 6 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 2 0;
#X connect 6 0 15 0;
#X connect 7 0 3 0;
#X connect 7 1 9 0;
#X connect 8 0 5 0;
#X connect 10 0 2 1;
#X connect 11 0 18 0;
#X connect 12 0 28 0;
#X connect 13 0 1 0;
#X connect 14 0 13 0;
#X connect 17 0 4 0;
#X connect 17 1 4 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 19 2 20 0;
#X connect 21 0 18 1;
#X connect 22 0 17 0;
#X connect 23 0 26 0;
#X connect 26 0 30 0;
#X connect 26 1 29 0;
#X connect 27 0 16 0;
#X connect 28 0 13 0;
#X connect 28 1 27 0;
#X connect 31 0 25 0;
#X connect 32 0 24 0;