Pd-cvs August 2005

pd-cvs@lists.iem.at

8 participants
108 discussions

externals/ann README.txt,1.3,1.4
by Georg Holzmann 31 Aug '05

31 Aug '05

Update of /cvsroot/pure-data/externals/ann In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24551 Modified Files: README.txt Log Message: Index: README.txt =================================================================== RCS file: /cvsroot/pure-data/externals/ann/README.txt,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** README.txt 31 May 2005 12:02:24 -0000 1.3 --- README.txt 31 Aug 2005 19:33:46 -0000 1.4 *************** *** 4,7 **** --- 4,8 ---- IOhannes m zmölnig - forum::für::umläute Davide Morelli - www.davidemorelli.it + 2005, Georg Holzmann - http://grh.mur.at this software is under the GnuGPL that is provided with these files

1 0

externals/ann/examples/ann_mlp_example4 gen_trainfile-help.pd, NONE, 1.1 gen_trainfile.pd, NONE, 1.1 multidim_net.pd, NONE, 1.1 test.txt, NONE, 1.1 trainfile2.dat, NONE, 1.1 trainfile.dat, NONE, 1.1
by Georg Holzmann 31 Aug '05

31 Aug '05

Update of /cvsroot/pure-data/externals/ann/examples/ann_mlp_example4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22123 Added Files: gen_trainfile-help.pd gen_trainfile.pd multidim_net.pd test.txt trainfile2.dat trainfile.dat Log Message: a new example - needs much externals, but should only should how to use the new extensions ... --- NEW FILE: gen_trainfile-help.pd --- #N canvas 711 130 586 632 10; #X text 198 23 ::::_gen_trainfile_::::; #X text 46 68 This abstraction generates a trainig file for ann_mlp and ann_td; #X obj 351 443 gen_trainfile; #X msg 437 154 test.txt; #X text 313 153 1) set filename:; #X msg 394 215 4 2 1; #X text 249 217 2) set file header:; #X text 183 241 4 = nr. of training datasets; #X text 184 255 2 = inputs of the neural net; #X text 184 269 1 = output of the neural net; #X msg 150 393 0 0 0; #X msg 197 393 0 1 1; #X msg 247 393 1 0 1; #X msg 293 393 1 1 0; #X text 46 116 Example:; #X text 36 311 3) send training data (first inputs \, then output) ; #X text 58 327 because you have now 4 training datasets you; #X text 57 342 must pass 4 lists !!!; #X text 162 374 a; #X text 209 374 b; #X text 259 375 c; #X text 302 374 d; #X floatatom 351 469 5 0 0 0 - - -; #X obj 437 501 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X text 332 502 file is ready:; #X text 238 468 added datasets:; #X text 150 573 (c) 2005 \, Georg Holzmann <grh(a)mur.at>; #X connect 2 0 22 0; #X connect 2 1 23 0; #X connect 3 0 2 2; #X connect 5 0 2 1; #X connect 10 0 2 0; #X connect 11 0 2 0; #X connect 12 0 2 0; #X connect 13 0 2 0; --- NEW FILE: trainfile.dat --- 4 2 4 -1 -1 1 0 0 0 1 -1 0 1 0 0 -1 1 0 0 1 0 1 1 0 0 0 1 --- NEW FILE: multidim_net.pd --- #N canvas 57 0 663 539 10; #X obj 396 55 grid grid1 200 -1 1 200 -1 1 1 0.001 0.001 2 2 450 248 ; #X floatatom 396 261 5 0 0 0 - - -; #X floatatom 589 262 5 0 0 0 - - -; #X obj 397 278 pack f f; #X obj 81 136 h_vector sample_pool; #X msg 183 119 print; #N canvas 143 0 450 300 pushback 0; #X obj 22 21 inlet; #X msg 22 120 pushback; #X obj 22 195 outlet; #X obj 22 156 iem_append; #X obj 22 76 t b a; #X connect 0 0 4 0; #X connect 1 0 3 0; #X connect 3 0 2 0; #X connect 4 0 1 0; #X connect 4 1 3 1; #X restore 81 97 pd pushback; #X msg 183 98 clear; #X text 37 27 add new datasets to the vector:; #N canvas 504 132 747 729 train_net_on_datasets 0; #X obj 116 562 gen_trainfile; #X text 91 404 2) step through all; #X text 85 108 1) create net; #X text 106 151 a) get nr. of inputs:; #X obj 122 205 h_vector sample_pool; #X msg 122 183 get 0; #X obj 122 227 length; #X obj 122 249 - 1; #X text 297 151 b) get nr. of outputs:; #X obj 314 199 h_vector sample_pool; #X msg 314 178 getsize; #X obj 122 129 t b b; #X obj 122 288 pack 0 0 0; #X obj 122 345 s \$0-to_net; #X obj 46 41 inlet; #X obj 159 488 pack 0 0 0 0; #X msg 159 536 \$2 \$3 \$4; #N canvas 754 184 450 454 step_through_datas 0; #X obj 21 20 inlet; #X obj 79 423 outlet; #X obj 130 99 h_vector sample_pool; #X msg 130 79 getsize; #X obj 21 138 h_for; #X obj 21 213 h_vector sample_pool; #X msg 21 191 get \$1; #X obj 21 257 niagara 1; #X text 62 278 input; #X obj 21 48 t b b; #X obj 21 164 t f f; #X obj 203 257 h_muxlist; #X text 183 279 output; #X obj 79 353 glue; #X connect 0 0 9 0; #X connect 2 1 4 1; #X connect 2 1 11 1; #X connect 3 0 2 0; #X connect 4 0 10 0; #X connect 5 0 7 0; #X connect 6 0 5 0; #X connect 7 1 13 0; #X connect 9 0 4 0; #X connect 9 1 3 0; #X connect 10 0 6 0; #X connect 10 1 11 0; #X connect 11 0 13 1; #X connect 13 0 1 0; #X restore 116 458 pd step_through_datas; #X obj 116 429 t b b b; #X text 65 601 3) train the net on it; #X msg 202 512 tmp/trainfile.dat; #X obj 46 694 s \$0-to_net; #X obj 46 68 t b b b; #X msg 106 623 FANN_TRAIN_RPROP; #X msg 106 646 FANN_TRAIN_QUICKPROP; #X obj 46 577 t b b; #X obj 187 265 * 2; #X msg 46 671 train-on-file tmp/trainfile.dat; #X msg 122 314 create \$1 \$2 3 \$3 1 0.7; #X msg 363 612 set_activation_function_output FANN_LINEAR; #X msg 364 583 set_activation_function_hidden FANN_LINEAR; #X msg 372 669 randomize_weights -0.1 0.1; #X msg 365 643 desired_error 0.001; #X connect 4 0 6 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 7 0 12 0; #X connect 7 0 15 2; #X connect 9 1 12 1; #X connect 9 1 15 3; #X connect 9 1 15 1; #X connect 9 1 26 0; #X connect 10 0 9 0; #X connect 11 0 5 0; #X connect 11 1 10 0; #X connect 12 0 28 0; #X connect 14 0 22 0; #X connect 15 0 16 0; #X connect 16 0 0 1; #X connect 17 0 0 0; #X connect 18 0 17 0; #X connect 18 1 15 0; #X connect 18 2 20 0; #X connect 20 0 0 2; #X connect 22 0 25 0; #X connect 22 1 18 0; #X connect 22 2 11 0; #X connect 24 0 21 0; #X connect 25 0 27 0; #X connect 25 1 31 0; #X connect 25 1 32 0; #X connect 25 1 24 0; #X connect 26 0 12 2; #X connect 27 0 21 0; #X connect 28 0 13 0; #X connect 31 0 21 0; #X connect 32 0 21 0; #X restore 80 222 pd train_net_on_datasets; #X text 37 178 generate new net and train it on the datasets:; #X text 35 263 the neural net:; #N canvas 0 564 450 300 nn_for_samples 0; #X obj 72 63 r \$0-to_net; #X obj 72 125 h_maxlist; #X obj 72 243 outlet; #X text 72 267 index; #X obj 177 198 h_vector sample_pool; #X msg 177 175 get \$1; #X obj 177 241 outlet; #X text 176 263 samplename; #X obj 177 219 unpack s; #X obj 91 175 print; #N canvas 265 255 690 335 training 0; #X obj 71 288 outlet; #X msg 82 195 FANN_TRAIN_INCREMENTAL; #X msg 82 216 FANN_TRAIN_BATCH; #X msg 81 238 FANN_TRAIN_RPROP; #X msg 81 258 FANN_TRAIN_QUICKPROP; #X text 40 28 you can set the training algorithm simply sending a message with the name of the algorithm chosen. possible values are: FANN_TRAIN_INCREMENTAL FANN_TRAIN_BATCH FANN_TRAIN_RPROP FANN_TRAIN_QUICKPROP the default is: FANN_TRAIN_RPROP see the FANN manual for details on each algorithm: http://fann.sourceforge.net/html/r1996.html; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 0 0; #X connect 4 0 0 0; #X restore 215 58 pd training algorithm; #N canvas 371 92 698 395 training 0; #X obj 52 230 outlet; #X msg 69 118 desired_error 0.01; #X msg 79 146 max_iterations 500000; #X msg 90 178 iterations_between_reports 1000; #X text 58 28 you can change training parameters. see FANN manual for details (http://fann.sourceforge.net); #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 0 0; #X restore 216 84 pd training params; #N canvas 371 92 694 391 activation 0; #X obj 49 335 outlet; #X text 40 28 you can set ti output activation algorithm passing a message to nn. see the FANN manual for description of the algorithms ; #X msg 69 118 set_activation_function_output FANN_THRESHOLD; #X msg 83 139 set_activation_function_output FANN_THRESHOLD_SYMMETRIC ; #X msg 95 163 set_activation_function_output FANN_LINEAR; #X msg 98 184 set_activation_function_output FANN_SIGMOID; #X msg 106 206 set_activation_function_output FANN_SIGMOID_STEPWISE ; #X msg 108 233 set_activation_function_output FANN_SIGMOID_SYMMETRIC ; #X msg 115 256 set_activation_function_output FANN_SIGMOID_SYMMETRIC_STEPWISE ; #X connect 2 0 0 0; #X connect 3 0 0 0; #X connect 4 0 0 0; #X connect 5 0 0 0; #X connect 6 0 0 0; #X connect 7 0 0 0; #X connect 8 0 0 0; #X restore 215 108 pd activation algorithm; #X msg 109 33 print; #X msg 114 9 learnrate 1; #X obj 83 96 ann_mlp; #X msg 235 20 load tmp/testnet.ann; #X connect 0 0 15 0; #X connect 1 0 2 0; #X connect 1 0 5 0; #X connect 4 0 8 0; #X connect 5 0 4 0; #X connect 8 0 6 0; #X connect 13 0 15 0; #X connect 14 0 15 0; #X connect 15 0 1 0; #X connect 15 0 9 0; #X connect 16 0 15 0; #X restore 90 293 pd nn_for_samples; #X floatatom 90 310 5 0 0 0 index - -; #X symbolatom 171 310 15 0 0 0 file - -; #X obj 80 202 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 396 300 s \$0-to_net; #N canvas 19 332 538 494 make_random_datasets_for_testing 0; #X text 26 17 make 200 8-dimensional random datasets \, for testing ; #X obj 152 158 h_randfloat -1 1; #X obj 193 198 h_randfloat -1 1; #X obj 170 178 h_randfloat -1 1; #X obj 212 218 h_randfloat -1 1; #X obj 276 157 h_randfloat -1 1; #X obj 313 198 h_randfloat -1 1; #X obj 294 177 h_randfloat -1 1; #X obj 336 217 h_randfloat -1 1; #X obj 43 377 pack s f f f f f f f f; #X obj 43 126 t f b; #X obj 43 261 makefilename sample%d.wav; #X obj 43 438 outlet; #X obj 43 52 inlet; #X obj 108 52 inlet; #X obj 43 91 h_for 10; #X connect 1 0 9 1; #X connect 2 0 9 3; #X connect 3 0 9 2; #X connect 4 0 9 4; #X connect 5 0 9 5; #X connect 6 0 9 7; #X connect 7 0 9 6; #X connect 8 0 9 8; #X connect 9 0 12 0; #X connect 10 0 11 0; #X connect 10 1 1 0; #X connect 10 1 3 0; #X connect 10 1 2 0; #X connect 10 1 4 0; #X connect 10 1 5 0; #X connect 10 1 7 0; #X connect 10 1 6 0; #X connect 10 1 8 0; #X connect 11 0 9 0; #X connect 13 0 15 0; #X connect 14 0 15 1; #X connect 15 0 10 0; #X restore 158 387 pd make_random_datasets_for_testing; #X obj 158 365 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #N canvas 0 0 989 300 8-dimen-dataset 0; #X obj 27 40 inlet; #X obj 73 40 inlet; #X obj 73 63 t b f; #X obj 118 40 inlet; #X obj 118 63 t b f; #X obj 163 40 inlet; #X obj 163 63 t b f; #X obj 208 40 inlet; #X obj 208 63 t b f; #X obj 252 40 inlet; #X obj 252 63 t b f; #X obj 297 40 inlet; #X obj 297 63 t b f; #X obj 342 40 inlet; #X obj 342 63 t b f; #X obj 127 201 pack 0 0 0 0 0 0 0 0; #X obj 337 257 outlet; #X obj 422 39 inlet; #X text 418 20 random; #X obj 422 104 h_randfloat -1 1; #X obj 477 145 h_randfloat -1 1; #X obj 454 125 h_randfloat -1 1; #X obj 496 165 h_randfloat -1 1; #X obj 560 104 h_randfloat -1 1; #X obj 597 145 h_randfloat -1 1; #X obj 578 124 h_randfloat -1 1; #X obj 620 164 h_randfloat -1 1; #X obj 422 63 t b b; #X obj 422 207 pack 0 0 0 0 0 0 0 0; #X connect 0 0 15 0; #X connect 1 0 2 0; #X connect 2 0 15 0; #X connect 2 1 15 1; #X connect 3 0 4 0; #X connect 4 0 15 0; #X connect 4 1 15 2; #X connect 5 0 6 0; #X connect 6 0 15 0; #X connect 6 1 15 3; #X connect 7 0 8 0; #X connect 8 0 15 0; #X connect 8 1 15 4; #X connect 9 0 10 0; #X connect 10 0 15 0; #X connect 10 1 15 5; #X connect 11 0 12 0; #X connect 12 0 15 0; #X connect 12 1 15 6; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 14 1 15 7; #X connect 15 0 16 0; #X connect 17 0 27 0; #X connect 19 0 28 0; #X connect 20 0 28 2; #X connect 21 0 28 1; #X connect 22 0 28 3; #X connect 23 0 28 4; #X connect 24 0 28 6; #X connect 25 0 28 5; #X connect 26 0 28 7; #X connect 27 0 19 0; #X connect 27 1 23 0; #X connect 27 1 21 0; #X connect 27 1 25 0; #X connect 27 1 20 0; #X connect 27 1 24 0; #X connect 27 1 22 0; #X connect 27 1 26 0; #X connect 28 0 16 0; #X restore 467 441 pd 8-dimen-dataset; #X obj 467 382 vsl 15 50 -1 1 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 0 1; #X obj 484 382 vsl 15 50 -1 1 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 0 1; #X obj 501 382 vsl 15 50 -1 1 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 0 1; #X obj 518 382 vsl 15 50 -1 1 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 0 1; #X obj 536 382 vsl 15 50 -1 1 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 0 1; #X obj 553 382 vsl 15 50 -1 1 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 0 1; #X obj 570 382 vsl 15 50 -1 1 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 0 1; #X obj 587 382 vsl 15 50 -1 1 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 0 1; #X text 465 338 8 dimensional:; #X obj 467 463 s \$0-to_net; #X obj 600 442 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 511 353 0; #X msg 377 370 250; #X obj 420 92 cnv 15 1 1 empty empty 1 5 7 0 8 -241291 -241291 0; #X obj 412 195 cnv 15 1 1 empty empty 2 5 7 0 8 -241291 -241291 0; #X obj 415 215 cnv 15 1 1 empty empty 3 5 7 0 8 -241291 -241291 0; #X obj 434 200 cnv 15 1 1 empty empty 4 5 7 0 8 -241291 -241291 0; #X obj 476 160 cnv 15 1 1 empty empty 5 5 7 0 8 -241291 -241291 0; #X obj 485 230 cnv 15 1 1 empty empty 6 5 7 0 8 -241291 -241291 0; #X obj 501 177 cnv 15 1 1 empty empty 7 5 7 0 8 -241291 -241291 0; #X obj 508 198 cnv 15 1 1 empty empty 8 5 7 0 8 -241291 -241291 0; #X obj 526 125 cnv 15 1 1 empty empty 9 5 7 0 8 -241291 -241291 0; #X obj 537 223 cnv 15 1 1 empty empty 0 5 7 0 8 -241291 -241291 0; #X msg 50 64 sample9.wav 0.34 0.26; #X msg 223 64 readXML tmp/2d-data.xml; #X connect 0 0 1 0; #X connect 0 1 2 0; #X connect 1 0 3 0; #X connect 2 0 3 1; #X connect 3 0 16 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 4 0; #X connect 12 0 13 0; #X connect 12 1 14 0; #X connect 15 0 9 0; #X connect 18 0 17 0; #X connect 19 0 29 0; #X connect 20 0 19 0; #X connect 21 0 19 1; #X connect 22 0 19 2; #X connect 23 0 19 3; #X connect 24 0 19 4; #X connect 25 0 19 5; #X connect 26 0 19 6; #X connect 27 0 19 7; #X connect 30 0 19 8; #X connect 31 0 20 0; #X connect 31 0 21 0; #X connect 31 0 22 0; #X connect 31 0 23 0; #X connect 31 0 24 0; #X connect 31 0 25 0; #X connect 31 0 26 0; #X connect 31 0 27 0; #X connect 32 0 17 1; #X connect 43 0 6 0; #X connect 44 0 4 0; --- NEW FILE: trainfile2.dat --- 4 2 24 -0.5248 -0.4752 -0.690478 -0.328445 0.787627 0.457685 0.785165 -0.609361 2.73531 -0.871147 -0.654311 -0.979694 -0.782768 -0.476533 -0.880441 -0.970331 -0.694041 -0.926005 -0.116742 -0.992307 -0.907731 0.220775 -0.719765 -1 1 -0.103331 -0.6039 0.6138 -0.107354 -0.437122 0.571922 0.56767 -0.0480328 -0.0436363 0.015686 -0.937416 -0.623195 -0.99371 -0.854111 -0.385827 -0.714651 -0.989703 -0.90756 -0.996025 -0.992405 -1 -1 0.405901 -0.0118679 -1 1 -0.0133747 0.5545 0.6039 -0.272313 -0.036396 0.248606 0.722645 -0.00976638 -0.905512 0.210309 -0.969341 -0.664621 -0.99696 -0.904754 -0.325938 -0.930082 -0.99386 -0.956322 -0.917093 0.0444865 -0.998078 -0.987068 0.468123 0.836558 -1 1 -0.024074 0.5446 -0.5643 0.480176 0.343487 0.0527416 0.789494 -0.45131 0.074421 0.647385 -0.942653 -0.760625 -0.993795 -0.840143 -0.820498 -0.926746 -0.992776 -0.938142 -0.830174 -0.155173 -1 -1 0.204588 -0.0142726 -1 1 -0.0610782 --- NEW FILE: gen_trainfile.pd --- #N canvas 60 0 578 726 10; #X obj 60 466 inlet; #X text 95 228 <nr of tests> <nr of inputs> <nr of outputs>; #X text 98 248 nr of tests = with how many datasets; #X text 197 262 should be trained; #X text 97 282 nr of inputs = inputs of the neural net; #X text 98 304 nr of outputs = outputs of the neural net; #X text 100 380 <input1> <input2> ... <output1> <output2> ...; #X obj 418 542 textfile; #X text 59 190 1) set filename at 3.inlet; #X text 59 210 2) set the following list at 2 inlet:; #X text 61 334 3) pass the datasets as a list (one after the other) into 1.inlet \, one list contains the input and desired output values \, like:; #X text 50 443 datalist; #X obj 230 467 inlet; #X text 229 448 header; #X text 40 169 INLETS:; #X obj 419 466 inlet; #X text 410 447 filename; #N canvas 0 0 450 300 write_header 0; #X obj 30 29 inlet; #X obj 30 67 t l b b; #X obj 30 256 s \$0-textfile; #X msg 74 97 clear; #X msg 52 135 rewind; #X msg 30 165 add \$1 \$2 \$3; #X obj 170 79 unpack f f f; #X obj 170 111 s \$0-size; #X obj 209 138 s \$0-ins; #X obj 181 206 s \$0-ok_for_new_datasets; #X msg 181 180 1; #X connect 0 0 1 0; #X connect 0 0 6 0; #X connect 1 0 5 0; #X connect 1 1 4 0; #X connect 1 2 3 0; #X connect 1 2 10 0; #X connect 3 0 2 0; #X connect 4 0 2 0; #X connect 5 0 2 0; #X connect 6 0 7 0; #X connect 6 1 8 0; #X connect 10 0 9 0; #X restore 230 493 pd write_header; #X obj 418 521 r \$0-textfile; #N canvas 672 100 450 561 write_datasets 0; #X obj 25 34 inlet; #X obj 25 487 outlet; #X obj 242 160 niagara; #X obj 298 159 r \$0-ins; #X obj 303 223 lister; #X msg 221 250 add; #X obj 242 195 t b b l; #X obj 303 245 t b l; #X msg 304 271 add; #X obj 273 340 s \$0-textfile; #X obj 221 277 iem_append; #X obj 304 298 iem_append; #X obj 139 339 s \$0-write; #X obj 62 92 r \$0-ok_for_new_datasets; #X obj 25 115 spigot; #X obj 25 143 t b l; #N canvas 115 166 450 464 count_datasets 0; #X obj 86 247 f; #X obj 86 98 inlet; #X msg 147 247 0; #X obj 147 216 loadbang; #X obj 86 366 outlet; #X obj 116 247 + 1; #X obj 86 284 % \$1; #X text 89 74 bang; #X text 248 125 modulo; #X text 147 80 reset; #X obj 249 268 - 1; #X obj 230 304 sel; #X obj 230 365 outlet; #X text 219 389 bang after; #X text 220 403 one circle; #X text 83 389 numbers; #X obj 201 248 f \$1; #X obj 86 193 t b; #X obj 249 146 r \$0-size; #X obj 147 98 r \$0-ok_for_new_datasets; #X obj 147 120 sel 1; #X connect 0 0 6 0; #X connect 1 0 17 0; #X connect 2 0 0 1; #X connect 3 0 2 0; #X connect 3 0 16 0; #X connect 5 0 0 1; #X connect 6 0 5 0; #X connect 6 0 4 0; #X connect 6 0 11 0; #X connect 10 0 11 1; #X connect 11 0 12 0; #X connect 16 0 10 0; #X connect 17 0 0 0; #X connect 18 0 6 1; #X connect 18 0 10 0; #X connect 19 0 20 0; #X connect 20 0 2 0; #X restore 25 237 pd count_datasets; #X obj 139 396 s \$0-ok_for_new_datasets; #X msg 139 376 0; #X obj 139 487 outlet; #X obj 25 58 t l b; #N canvas 0 0 450 300 WARNINGS 0; #X obj 20 22 inlet; #X obj 20 114 == 0; #X obj 36 54 r \$0-ok_for_new_datasets; #X obj 20 206 print gen_trainfile_WARNING; #X obj 20 81 f 0; #X msg 20 178 file is full or create new header; #X obj 20 141 sel 1; #X connect 0 0 4 0; #X connect 1 0 6 0; #X connect 2 0 4 1; #X connect 4 0 1 0; #X connect 5 0 3 0; #X connect 6 0 5 0; #X restore 289 75 pd WARNINGS; #X obj 25 461 + 1; #X connect 0 0 20 0; #X connect 2 0 6 0; #X connect 2 1 4 1; #X connect 3 0 2 1; #X connect 4 0 7 0; #X connect 5 0 10 0; #X connect 6 0 4 0; #X connect 6 1 5 0; #X connect 6 2 10 1; #X connect 7 0 8 0; #X connect 7 1 11 1; #X connect 8 0 11 0; #X connect 10 0 9 0; #X connect 11 0 9 0; #X connect 13 0 14 1; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 15 1 2 0; #X connect 16 0 22 0; #X connect 16 1 18 0; #X connect 16 1 12 0; #X connect 16 1 19 0; #X connect 18 0 17 0; #X connect 20 0 14 0; #X connect 20 1 21 0; #X connect 22 0 1 0; #X restore 60 495 pd write_datasets; #X text 39 118 NEEDED EXTERNALS: zexy and iemlib (http://pd.iem.at) ; #N canvas 832 484 389 329 write_file 0; #X obj 29 37 inlet; #X obj 96 151 symbol; #X obj 96 91 r \$0-write; #X msg 96 177 write \$1 cr; #X obj 96 203 s \$0-textfile; #X obj 133 126 symbol; #X connect 0 0 5 0; #X connect 1 0 3 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 5 0 1 1; #X restore 419 488 pd write_file; #X text 40 137 HOW TO Use it: (see also help file); #X obj 60 561 outlet; #X obj 222 563 outlet; #X text 48 583 written datasets; #X text 216 585 file is ready and written (bang); #X text 134 658 (c) 2005 \, Georg Holzmann <grh(a)mur.at>; #X text 72 72 This abstraction generates a trainig file for ann_mlp and ann_td.; #X text 192 25 ::::_gen_trainfile_::::; #X connect 0 0 19 0; #X connect 12 0 17 0; #X connect 15 0 21 0; #X connect 18 0 7 0; #X connect 19 0 23 0; #X connect 19 1 24 0; --- NEW FILE: test.txt --- 3 2 2 4 9 2 1 5 3 2 1 2 4 0 1

1 0

externals/ann/examples/ann_mlp_example4/tmp - New directory
by Georg Holzmann 31 Aug '05

31 Aug '05

Update of /cvsroot/pure-data/externals/ann/examples/ann_mlp_example4/tmp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21953/tmp Log Message: Directory /cvsroot/pure-data/externals/ann/examples/ann_mlp_example4/tmp added to the repository

1 0

externals/ann/examples/ann_mlp_example4 - New directory
by Georg Holzmann 31 Aug '05

31 Aug '05

Update of /cvsroot/pure-data/externals/ann/examples/ann_mlp_example4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21063/ann_mlp_example4 Log Message: Directory /cvsroot/pure-data/externals/ann/examples/ann_mlp_example4 added to the repository

1 0

externals/tb/StringFlt~ SConstruct, NONE, 1.1 StringFlt~-help.pd, NONE, 1.1 StringFlt~.cpp, NONE, 1.1 package.txt, NONE, 1.1
by Tim Blechmann 31 Aug '05

31 Aug '05

Update of /cvsroot/pure-data/externals/tb/StringFlt~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32584 Added Files: SConstruct StringFlt~-help.pd StringFlt~.cpp package.txt Log Message: new external: StringFlt~ --- NEW FILE: StringFlt~.cpp --- // // // direct port of sndobj's StringFlt // Copyright (C) 2005 Tim Blechmann // // This program is free software; you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation; either version 2 of the License, or // (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program; see the file COPYING. If not, write to // the Free Software Foundation, Inc., 59 Temple Place - Suite 330, // Boston, MA 02111-1307, USA. #define FLEXT_ATTRIBUTES 1 #include <flsndobj.h> #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 500) #error You need at least flext version 0.5 #endif class FlextStringFlt: public flext_sndobj { FLEXT_HEADER(FlextStringFlt,flext_sndobj); public: FlextStringFlt(int argc, t_atom* argv); virtual bool NewObjs(); virtual void FreeObjs(); virtual void ProcessObjs(); StringFlt* string; float fdbgain; float freq; private: FLEXT_ATTRVAR_F(fdbgain); FLEXT_ATTRVAR_F(freq); }; FLEXT_LIB_DSP_V("StringFlt~",FlextStringFlt) FlextStringFlt::FlextStringFlt(int argc, t_atom* argv) { AtomList l(argc, argv); FLEXT_ADDATTR_VAR1("fdbgain", fdbgain); FLEXT_ADDATTR_VAR1("frequency", freq); AddInSignal(1); AddOutSignal(1); } bool FlextStringFlt::NewObjs() { string = new StringFlt(freq, fdbgain, &InObj(0), 0, Blocksize(), Samplerate()); return true; } void FlextStringFlt::FreeObjs() { delete string; } void FlextStringFlt::ProcessObjs() { string->SetFreq(freq); string->SetFdbgain(fdbgain); string->DoProcess(); *string >> OutObj(0); } static void setup() { FLEXT_DSP_SETUP(FlextStringFlt); } FLEXT_LIB_SETUP(StringFlt_tilde,setup) --- NEW FILE: package.txt --- NAME=StringFlt~ SRCS=StringFlt~.cpp --- NEW FILE: SConstruct --- # scons script for flext build system # Copyright (C) 2005 Tim Blechmann # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; see the file COPYING. If not, write to # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. env = Environment(CCFLAGS = '-DFLEXT_SYS_PD -DFLEXT_THREADS -DFLEXT_SHARED') env.SConsignFile() env.CacheDir('./obj') opt = Options(['options.cache', 'custom.py']) opt.AddOptions( BoolOption('debug', 'Build with debugging symbols', False), ('optimize', 'Optimize for specific architecture', None), BoolOption('simd', 'build with simd instructions', False), ('prefix', 'install prefix', '/usr/local'), ('flext_path', 'flext path', None), ('pd_path', 'pd path', None), ) opt.Update(env) opt.Save('options.cache',env) Help(opt.GenerateHelpText(env)) if env.Dictionary().has_key('flext_path'): env.Append(CPPPATH=[env['flext_path']]) else: env.Append(CPPPATH=['../../grill/flext/source']) if env.Dictionary().has_key('pd_path'): env.Append(CPPPATH=[env['pd_path']]) if env.Dictionary().has_key('optimize'): if env['optimize']: env.Append(CCFLAGS=' -O3 '+env['optimize']) if env.Dictionary().has_key('simd') and env['simd']: env.Append(CCFLAGS=' -mfpmath=sse -msse -mmmx -msse2') if env.Dictionary().has_key('debug') and env['debug']: env.Append(CCFLAGS=' -g') env.Append(LIBS = 'flext-pd_d') else: env.Append(LIBS = 'flext-pd') env.Append(CPPDEFINES="NDEBUG") ###################################################################### # # read package.txt # packagefile = open('./package.txt', 'r') desc = {} line = packagefile.readline() while line != "": line = line.strip() if len(line) > 0 and line[0] != '#' : var, data = line.split('=') while data [-1] == '\\': nextline = packagefile.readline() nextline = nextline.strip() data = data + " " + nextline data = data.replace("\\", "") desc[var] = data line = packagefile.readline() packagefile.close() name = desc["NAME"] if not desc.has_key("SRCDIR"): desc["SRCDIR"] = "." sources = map (lambda x: desc["SRCDIR"] + '/' + x, desc["SRCS"].split()) if desc.has_key("INCPATH"): env.Append(CPPPATH=desc["INCPATH"].strip().replace("-I", "").split()) ###################################################################### # # build # external = env.SharedLibrary(name, sources, SHLIBPREFIX='', SHLIBSUFFIX='.pd_linux') prefix = env['prefix'] env.Install(prefix+'/lib/pd/extra',external) env.Alias('install', prefix+'/lib/pd/extra') --- NEW FILE: StringFlt~-help.pd --- #N canvas 453 122 450 300 10; #X obj 97 80 noise~; #X obj 100 180 dac~; #X obj 99 110 *~ 0.01; #X floatatom 163 74 5 0 0 0 - - -; #X obj 101 142 StringFlt~; #X obj 195 204 env~; #X floatatom 195 234 5 0 0 0 - - -; #X obj 216 132 env~; #X floatatom 216 162 5 0 0 0 - - -; #X connect 0 0 2 0; #X connect 2 0 4 0; #X connect 2 0 7 0; #X connect 3 0 2 1; #X connect 4 0 1 0; #X connect 4 0 1 1; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 7 0 8 0;

1 0

externals/tb/StringFlt~ - New directory
by Tim Blechmann 31 Aug '05

31 Aug '05

Update of /cvsroot/pure-data/externals/tb/StringFlt~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32172/StringFlt~ Log Message: Directory /cvsroot/pure-data/externals/tb/StringFlt~ added to the repository

1 0

[PD-cvs] externals/tb/Buzz~ Buzz~-help.pd, NONE, 1.1 Buzz~.cpp, NONE, 1.1 SConstruct, NONE, 1.1 package.txt, NONE, 1.1
by Tim Blechmann 31 Aug '05

31 Aug '05

Update of /cvsroot/pure-data/externals/tb/Buzz~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22374 Added Files: Buzz~-help.pd Buzz~.cpp SConstruct package.txt Log Message: new external: Buzz~ --- NEW FILE: SConstruct --- # scons script for flext build system # Copyright (C) 2005 Tim Blechmann # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; see the file COPYING. If not, write to # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. env = Environment(CCFLAGS = '-DFLEXT_SYS_PD -DFLEXT_THREADS -DFLEXT_SHARED') env.SConsignFile() env.CacheDir('./obj') opt = Options(['options.cache', 'custom.py']) opt.AddOptions( BoolOption('debug', 'Build with debugging symbols', False), ('optimize', 'Optimize for specific architecture', None), BoolOption('simd', 'build with simd instructions', False), ('prefix', 'install prefix', '/usr/local'), ('flext_path', 'flext path', None), ('pd_path', 'pd path', None), ) opt.Update(env) opt.Save('options.cache',env) Help(opt.GenerateHelpText(env)) if env.Dictionary().has_key('flext_path'): env.Append(CPPPATH=[env['flext_path']]) else: env.Append(CPPPATH=['../../grill/flext/source']) if env.Dictionary().has_key('pd_path'): env.Append(CPPPATH=[env['pd_path']]) if env.Dictionary().has_key('optimize'): if env['optimize']: env.Append(CCFLAGS=' -O3 '+env['optimize']) if env.Dictionary().has_key('simd') and env['simd']: env.Append(CCFLAGS=' -mfpmath=sse -msse -mmmx -msse2') if env.Dictionary().has_key('debug') and env['debug']: env.Append(CCFLAGS=' -g') env.Append(LIBS = 'flext-pd_d') else: env.Append(LIBS = 'flext-pd') env.Append(CPPDEFINES="NDEBUG") ###################################################################### # # read package.txt # packagefile = open('./package.txt', 'r') desc = {} line = packagefile.readline() while line != "": line = line.strip() if len(line) > 0 and line[0] != '#' : var, data = line.split('=') while data [-1] == '\\': nextline = packagefile.readline() nextline = nextline.strip() data = data + " " + nextline data = data.replace("\\", "") desc[var] = data line = packagefile.readline() packagefile.close() name = desc["NAME"] if not desc.has_key("SRCDIR"): desc["SRCDIR"] = "." sources = map (lambda x: desc["SRCDIR"] + '/' + x, desc["SRCS"].split()) if desc.has_key("INCPATH"): env.Append(CPPPATH=desc["INCPATH"].strip().replace("-I", "").split()) ###################################################################### # # build # external = env.SharedLibrary(name, sources, SHLIBPREFIX='', SHLIBSUFFIX='.pd_linux') prefix = env['prefix'] env.Install(prefix+'/lib/pd/extra',external) env.Alias('install', prefix+'/lib/pd/extra') --- NEW FILE: package.txt --- NAME=Buzz~ SRCS=Buzz~.cpp --- NEW FILE: Buzz~.cpp --- // // // direct port of sndobj's Buzz // Copyright (C) 2005 Tim Blechmann // // This program is free software; you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation; either version 2 of the License, or // (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program; see the file COPYING. If not, write to // the Free Software Foundation, Inc., 59 Temple Place - Suite 330, // Boston, MA 02111-1307, USA. #define FLEXT_ATTRIBUTES 1 #include <flsndobj.h> #if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 500) #error You need at least flext version 0.5 #endif class FlextBuzz: public flext_sndobj { FLEXT_HEADER(FlextBuzz,flext_sndobj); public: FlextBuzz(int argc, t_atom* argv); virtual bool NewObjs(); virtual void FreeObjs(); virtual void ProcessObjs(); Buzz* buzz; float freq; float amp; int harm; private: FLEXT_ATTRVAR_F(amp); FLEXT_ATTRVAR_F(freq); FLEXT_ATTRVAR_I(harm); }; FLEXT_LIB_DSP_V("Buzz~",FlextBuzz) FlextBuzz::FlextBuzz(int argc, t_atom* argv) { AtomList l(argc, argv); FLEXT_ADDATTR_VAR1("frequency", freq); FLEXT_ADDATTR_VAR1("amp", amp); FLEXT_ADDATTR_VAR1("harm", harm); AddOutSignal(1); } bool FlextBuzz::NewObjs() { buzz = new Buzz(freq, amp, harm, 0, 0, Blocksize(), Samplerate()); return true; } void FlextBuzz::FreeObjs() { delete buzz; } void FlextBuzz::ProcessObjs() { buzz->SetFreq(freq); buzz->SetAmp(amp); buzz->SetHarm(harm); buzz->DoProcess(); *buzz >> OutObj(0); } static void setup() { FLEXT_DSP_SETUP(FlextBuzz); } FLEXT_LIB_SETUP(Buzz_tilde,setup) --- NEW FILE: Buzz~-help.pd --- #N canvas 0 0 450 300 10; #X obj 249 210 dac~; #X obj 253 160 *~ 0.01; #X obj 119 179 print~; #X obj 113 129 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 127 112 Buzz~ @frequency 10 @amp 1 @harm 100; #X connect 1 0 0 0; #X connect 1 0 0 1; #X connect 3 0 2 0; #X connect 4 0 1 0; #X connect 4 0 2 0;

1 0

externals/tb/Buzz~ - New directory
by Tim Blechmann 31 Aug '05

31 Aug '05

Update of /cvsroot/pure-data/externals/tb/Buzz~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21430/Buzz~ Log Message: Directory /cvsroot/pure-data/externals/tb/Buzz~ added to the repository

1 0

externals/zexy/src list2symbol.c,1.4,1.5
by IOhannes m zmölnig 31 Aug '05

31 Aug '05

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14299 Modified Files: list2symbol.c Log Message: fixed bug that wrongly guessed the size of the new symbol (lead to crashes) Index: list2symbol.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/list2symbol.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** list2symbol.c 23 Aug 2005 12:25:37 -0000 1.4 --- list2symbol.c 31 Aug 2005 09:57:51 -0000 1.5 *************** *** 59,68 **** while(i--){ char buffer[MAXPDSTRING]; if(A_SYMBOL==argv->a_type){ ! length+=strlen(argv->a_w.w_symbol->s_name); } else { ! atom_string(argv++, buffer, MAXPDSTRING); ! length+=strlen(buffer); } } --- 59,71 ---- while(i--){ char buffer[MAXPDSTRING]; + int len=0; if(A_SYMBOL==argv->a_type){ ! len=strlen(argv->a_w.w_symbol->s_name); } else { ! atom_string(argv, buffer, MAXPDSTRING); ! len=strlen(buffer); } + length+=len; + argv++; }

1 0

pd/src desire.tk,1.1.2.17,1.1.2.18
by chunlee 31 Aug '05

31 Aug '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv563 Modified Files: Tag: devel_0_39 desire.tk Log Message: loading simple file should work now, need more testing Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.17 retrieving revision 1.1.2.18 diff -C2 -d -r1.1.2.17 -r1.1.2.18 *** desire.tk 30 Aug 2005 09:33:47 -0000 1.1.2.17 --- desire.tk 31 Aug 2005 03:35:44 -0000 1.1.2.18 *************** *** 404,407 **** --- 404,408 ---- set obj_name [lappend obj_name $last_str] set _($object_id:name_len) [string length $obj_name] + set _($canvas_id:obj_in_edit) 0 puts "obj x: [lindex $line 2] y: [lindex $line 3]" *************** *** 452,465 **** set d [lreplace $d 0 0 [lindex $_($canvas:obj_list) [lindex $line 2]]] set d [lreplace $d 2 2 [lindex $_($canvas:obj_list) [lindex $line 4]]] ! #set from [lindex $wire_from 0] ! #set outlet_number [lindex $wire_from 1] ! #set to [lindex $wire_to 0] ! #set inlet_number [lindex $wire_to 1] ! #set inlet_flag 0 ! #set outlet_flag 1 ! set wire_from [list [lindex $_($canvas:obj_list) [lindex $line 2]] [lindex $line 3]]] ! set wire_to [list [lindex $_($canvas:obj_list) [lindex $line 4]] [lindex $line 5]]] puts "d = $d" --- 453,498 ---- set d [lreplace $d 0 0 [lindex $_($canvas:obj_list) [lindex $line 2]]] set d [lreplace $d 2 2 [lindex $_($canvas:obj_list) [lindex $line 4]]] + set _($wire_id) $d + ! set wire_from [list [lindex $_($canvas:obj_list) [lindex $line 2]] [lindex $line 3]] ! set wire_to [list [lindex $_($canvas:obj_list) [lindex $line 4]] $last_str] ! set from [lindex $wire_from 0] ! set outlet_number [lindex $wire_from 1] ! set to [lindex $wire_to 0] ! set inlet_number [lindex $wire_to 1] ! set inlet_flag 0 ! set outlet_flag 1 ! ! puts "wire_from ==> $wire_from" ! puts "wire_to ==> $wire_to" ! puts "outlet_number ==> $outlet_number" ! ! if {[info exists _($from:$outlet_flag:$outlet_number)]} { ! ! lappend _($from:$outlet_flag:$outlet_number) $wire_id ! ! } else { ! ! set _($from:$outlet_flag:$outlet_number) $wire_id ! ! puts "**** $from:$outlet_flag:$outlet_number ****" ! ! } ! ! ! if {[info exists _($to:$inlet_flag:$inlet_number)]} { ! ! lappend _($to:$inlet_flag:$inlet_number) $wire_id ! ! } else { ! ! set _($to:$inlet_flag:$inlet_number) $wire_id ! ! puts "*** $to:$inlet_flag:$inlet_number ***" ! ! } ! puts "d = $d"

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs August 2005