#N canvas 190 136 663 491 12; #X obj 41 152 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X floatatom 41 249 5 0 0; #N canvas 0 0 450 300 graph1 0; #X array array1 6 float 1; #A 0 1.1 2.67143 3.24285 3.1 4.38571 8.67143; #X coords 0 10 5 0 200 140 1; #X restore 347 71 graph; #N canvas 0 0 450 300 graph2 0; #X array array2 6 float 1; #A 0 0.0229077 0.204366 0.486501 0.0632986 0.204028 0.025319; #X coords 0 1 5 0 200 140 1; #X restore 347 220 graph; #X obj 41 202 arbran array1 array2; #X text 39 21 arbran :: generates a random variable that conforms to the piecewise probability density functions specified in two arrays ; #X text 40 297 array1 has values between 0 and 10; #X text 40 317 array2 between 0 and 1 !; #X msg 99 152 pdfscale; #X text 41 389 array1 stores the values and array2 the corresponding probabilities (0 - 1) for each of that values \, use message 'pdfscale' to check (and adjust) the probability values to correct settings (the area below the curve has to be 1); #X connect 0 0 4 0; #X connect 4 0 1 0; #X connect 8 0 4 0;