[PD] An abstraction : markov finite state machine

[Frank Barknecht]

Hallo,
Orm Finnendahl hat gesagt: // Orm Finnendahl wrote:

> if you are interested in markov chains, maybe you like this:
> 
> icem-www.folkwang-hochschule.de/~finnendahl/download/markov_pd.tgz

There also is the [prob] object from Max, which is part of Cyclone as
well. It is used in the abstraction markov.pd from Essl's RTC-lib,
which I'm currently porting to Pd. markov.pd is already done, it's
attached including help file.

Using it I always get an error:
prob's error: bad list message format
the first time I send a bang to [markov] in the help-file. It seems to
work fine, though. Maybe anyone knows where this comes from?

Ciao
-- 
 Frank Barknecht                 _ ______footils.org_ __goto10.org__
-------------- next part --------------
#N canvas 340 94 619 459 10;
#X text 17 38 markov;
#X text 84 20 Interface built around the prob-object of David Zicarelli.
A table of transition probabilities (cf. prob.help) is sent to the
right-most inlet and the start value into the middle. A bang into the
left inlet outputs an element chosen from a one-dimensional markov
matrix.;
#X msg 297 174 clear;
#X msg 255 174 dump;
#X obj 150 245 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 35 168 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 102 160 4 0 0 2 start_value - -;
#N canvas 231 56 462 467 markov-matrix 0;
#X msg 131 148 5 4 1;
#X msg 131 173 4 3 1;
#X msg 131 205 3 2 1;
#X msg 131 237 2 1 1;
#X msg 192 237 1 2 1;
#X msg 192 205 2 3 1;
#X msg 192 173 3 4 1;
#X msg 192 148 4 5 1;
#X obj 37 332 outlet;
#X msg 131 267 1 0 1;
#X msg 192 267 0 1 1;
#X obj 50 53 inlet;
#X obj 50 86 t b b b b b b b b b b;
#X connect 0 0 8 0;
#X connect 1 0 8 0;
#X connect 2 0 8 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 9 0 8 0;
#X connect 10 0 8 0;
#X connect 11 0 12 0;
#X connect 12 0 9 0;
#X connect 12 1 3 0;
#X connect 12 2 2 0;
#X connect 12 3 1 0;
#X connect 12 4 0 0;
#X connect 12 5 10 0;
#X connect 12 6 4 0;
#X connect 12 7 5 0;
#X connect 12 8 6 0;
#X connect 12 9 7 0;
#X restore 250 154 pd markov-matrix;
#X obj 250 123 loadbang;
#X obj 111 242 bng 15 250 50 1 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 35 271;
#X text 171 245 bang \, when there is no transition possible ("I am
stuck!");
#X text 389 406 1994 by Karlheinz Essl;
#X msg 315 122 bang;
#X obj 35 210 markov 5;
#N canvas 0 0 450 300 collect 0;
#X obj 195 37 inlet;
#X obj 41 37 inlet;
#X obj 41 144 outlet;
#X msg 195 74 set;
#X text 143 140 1993-2004 by Karlheinz Essl;
#X text 143 160 vs. 1.1;
#X obj 41 99 list trim;
#X obj 41 74 list prepend add2;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 3 0 2 0;
#X connect 6 0 2 0;
#X connect 7 0 6 0;
#X restore 35 241 pd collect;
#X connect 2 0 14 2;
#X connect 3 0 14 2;
#X connect 5 0 14 0;
#X connect 6 0 14 1;
#X connect 7 0 14 2;
#X connect 8 0 7 0;
#X connect 9 0 15 1;
#X connect 13 0 7 0;
#X connect 14 0 15 0;
#X connect 14 1 4 0;
#X connect 15 0 10 0;
-------------- next part --------------
#N canvas 0 0 531 456 10;
#X obj 226 326 outlet;
#X obj 105 326 outlet;
#N canvas 390 143 364 293 switcher 0;
#X obj 71 84 inlet;
#X obj 115 84 inlet;
#X obj 72 245 outlet;
#X obj 123 247 outlet;
#X obj 71 118 b;
#X msg 115 114 0;
#X obj 72 180 select 0;
#X obj 72 144 f 0;
#X msg 102 145 1;
#X obj 72 209 t b b;
#X obj 123 211 b;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 4 0 7 0;
#X connect 5 0 7 1;
#X connect 6 0 9 0;
#X connect 6 1 10 0;
#X connect 7 0 6 0;
#X connect 8 0 7 1;
#X connect 9 0 2 0;
#X connect 9 1 8 0;
#X connect 10 0 3 0;
#X restore 105 190 pd switcher;
#X obj 177 262 prob;
#X obj 105 97 inlet;
#X obj 177 97 inlet;
#X obj 295 99 inlet;
#X obj 105 234 int \$1;
#X obj 105 258 t a a;
#X obj 177 124 t b a a;
#X obj 295 129 t b a;
#X connect 2 0 7 0;
#X connect 2 1 3 0;
#X connect 3 0 1 0;
#X connect 3 1 0 0;
#X connect 4 0 2 0;
#X connect 5 0 9 0;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X connect 8 1 3 0;
#X connect 9 0 2 1;
#X connect 9 1 7 1;
#X connect 9 2 3 0;
#X connect 10 0 2 1;
#X connect 10 1 3 0;