diff options
Diffstat (limited to 'markov-machine.pd')
| -rw-r--r-- | markov-machine.pd | 195 |
1 files changed, 195 insertions, 0 deletions
diff --git a/markov-machine.pd b/markov-machine.pd new file mode 100644 index 0000000..913bd95 --- /dev/null +++ b/markov-machine.pd @@ -0,0 +1,195 @@ +#N canvas 637 33 900 932 10; +#X obj 93 -33 inlet; +#X obj 154 644 cnv 15 600 200 empty empty empty 20 12 0 14 -258699 +-66577 0; +#X obj 407 257 cnv 15 200 300 empty empty empty 20 12 0 14 -258699 +-66577 0; +#X obj 97 351 cnv 15 200 150 empty empty empty 20 12 0 14 -258699 -66577 +0; +#X obj 130 110 cnv 15 200 150 empty empty empty 20 12 0 14 -258699 +-66577 0; +#X obj 179 155 matrix; +#X obj 225 115 prepend row; +#X msg 139 119 zeros \$1; +#X obj 18 23 loadbang; +#X obj 20 50 f \$1; +#X obj 111 396 f; +#X text 138 398 current state; +#X obj 12 755 outlet; +#X obj 456 325 drip; +#X obj 495 326 sum; +#X obj 469 403 /; +#X obj 159 456 random 1e+06; +#X obj 159 480 / 1e+06; +#X text 218 482 1/1000000; +#X msg 574 339 set; +#X msg 443 485 0.4 0.7 0.9 1; +#X msg 468 430 add2 \$1; +#X msg 409 351 bang; +#X obj 177 704 moses; +#X obj 223 706 moses; +#X obj 271 706 moses; +#X obj 317 708 moses; +#X obj 364 708 moses; +#X obj 410 710 moses; +#X obj 458 710 moses; +#X obj 504 712 moses; +#X obj 546 713 moses; +#X obj 589 713 moses; +#X obj 635 715 moses; +#X obj 677 716 moses; +#X obj 292 661 unpack f f f f f f f f f f f f f f; +#X obj 178 819 f; +#X obj 159 428 t b f; +#X msg 245 418 row \$1; +#X text 207 822 next state; +#X obj 16 694 f; +#X obj 12 292 t b f; +#X text 54 288 sets state; +#X obj 67 311 t b b; +#X text 109 309 gets next state; +#X text 452 515 threshold (n/1.0) for each state according to its probability +; +#X text 20 -5 arg: size; +#X obj 453 364 +; +#X msg 530 329 0; +#X obj 451 274 t b a a b b; +#X obj 518 373 f; +#X text 509 402 Each treshold is added to all the numbers before... +; +#X obj 161 250 mtx_print; +#X obj 267 195 print debug; +#X msg 178 733 1; +#X msg 226 731 2; +#X msg 266 734 3; +#X msg 323 735 4; +#X msg 365 737 5; +#X msg 415 734 6; +#X msg 453 738 7; +#X msg 509 740 8; +#X msg 551 742 9; +#X msg 599 740 10; +#X msg 639 743 11; +#X msg 695 745 12; +#X obj 145 359 loadbang; +#X msg 144 378 1; +#X obj 160 193 route matrix; +#X obj 160 229 prepend matrix; +#X text 667 624 MARKOV CHAIN; +#X text 427 242 WEIGHTS FOR THIS ROW/STATE; +#X text 260 332 STATE; +#X text 219 90 ADJACENCY MATRIX; +#X obj 423 -27 cnv 15 450 125 empty empty empty 20 12 0 14 -258699 +-66577 0; +#X obj 706 74 iemmatrix; +#X obj 799 74 zexy; +#N canvas 0 0 485 139 todo 0; +#N canvas 0 0 450 300 1008-dynamic 0; +#X restore 69 65 pd \$0-dynamic; +#X text 67 43 todo: dynamic patching for unlimited number of states +; +#X text 67 93 todo: use [list] and not dynamic messages (faster?); +#X restore 775 -20 pd todo; +#X text 437 -26 )c( Copyleft 2006 Alexandre Quessy http://alexandre.quessy.net/ +; +#X text 500 75 Using -lib iemmatrix \, zexy; +#X text 435 18 [markov-machine] is a weighted finite states machine +using an adjency matrix for storing probabilities to get to each other +state \, It can be illustrated as an oriented graph.; +#X text 837 -43 ABOUT; +#X msg 23 126 bang; +#X obj 93 -7 route size row next set content; +#X obj 261 25 t b; +#X connect 0 0 83 0; +#X connect 5 0 68 0; +#X connect 6 0 5 0; +#X connect 7 0 5 0; +#X connect 8 0 9 0; +#X connect 9 0 7 0; +#X connect 10 0 37 0; +#X connect 10 0 40 1; +#X connect 13 0 47 0; +#X connect 14 0 15 1; +#X connect 15 0 21 0; +#X connect 16 0 17 0; +#X connect 17 0 23 0; +#X connect 19 0 20 0; +#X connect 20 0 35 0; +#X connect 21 0 20 0; +#X connect 22 0 20 0; +#X connect 23 0 54 0; +#X connect 23 1 24 0; +#X connect 24 0 55 0; +#X connect 24 1 25 0; +#X connect 25 0 56 0; +#X connect 25 1 26 0; +#X connect 26 0 57 0; +#X connect 26 1 27 0; +#X connect 27 0 28 0; +#X connect 27 0 58 0; +#X connect 28 0 59 0; +#X connect 28 1 29 0; +#X connect 29 0 60 0; +#X connect 29 1 30 0; +#X connect 30 0 61 0; +#X connect 30 1 31 0; +#X connect 31 0 62 0; +#X connect 31 1 32 0; +#X connect 32 0 63 0; +#X connect 32 1 33 0; +#X connect 33 0 64 0; +#X connect 33 1 34 0; +#X connect 34 0 65 0; +#X connect 35 0 23 1; +#X connect 35 1 24 1; +#X connect 35 2 25 1; +#X connect 35 3 26 1; +#X connect 35 4 27 1; +#X connect 35 5 28 1; +#X connect 35 7 29 1; +#X connect 35 9 30 1; +#X connect 35 10 31 1; +#X connect 35 11 32 1; +#X connect 35 12 33 1; +#X connect 35 13 34 1; +#X connect 36 0 10 1; +#X connect 37 0 16 0; +#X connect 37 1 38 0; +#X connect 38 0 5 0; +#X connect 40 0 12 0; +#X connect 41 0 40 0; +#X connect 41 1 10 0; +#X connect 43 0 40 0; +#X connect 43 1 10 0; +#X connect 47 0 50 0; +#X connect 48 0 47 1; +#X connect 49 0 22 0; +#X connect 49 1 13 0; +#X connect 49 2 14 0; +#X connect 49 3 48 0; +#X connect 49 4 19 0; +#X connect 50 0 47 1; +#X connect 50 0 15 0; +#X connect 54 0 36 0; +#X connect 55 0 36 0; +#X connect 56 0 36 0; +#X connect 57 0 36 0; +#X connect 58 0 36 0; +#X connect 59 0 36 0; +#X connect 60 0 36 0; +#X connect 61 0 36 0; +#X connect 62 0 36 0; +#X connect 63 0 36 0; +#X connect 64 0 36 0; +#X connect 65 0 36 0; +#X connect 66 0 67 0; +#X connect 67 0 10 1; +#X connect 68 1 49 0; +#X connect 69 0 52 0; +#X connect 82 0 5 0; +#X connect 83 0 7 0; +#X connect 83 1 6 0; +#X connect 83 2 43 0; +#X connect 83 3 41 0; +#X connect 83 4 84 0; +#X connect 84 0 5 0; |