#N canvas 150 72 568 710 10; #X obj 4 369 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577 0; #X obj 5 665 cnv 15 550 30 empty empty empty 20 12 0 14 -158509 -66577 0; #X obj 8 6 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 14 389 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 14 584 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 4 527 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577 0; #X obj 4 562 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577 0; #X obj 7 76 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577 0; #X obj 5 615 cnv 15 550 20 empty empty empty 20 12 0 14 -158509 -66577 0; #X obj 5 635 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577 0; #N canvas 76 31 921 714 More_Info 0; #X text 96 12 pmpd : mass - spring - damper model; #X text 27 155 Be careful : if masses are deleted \, lists messages won't work; #X text 27 60 It is designed to implement particules physical model in PD.The model is based on two elements type : mass and link. The pmpd masses are the principals objects of the model. They got only one physical parameter \, the value of their mass. They can be mobile or fixed \, in this case forces applied on them automatically \, by links \, or manually \, by messages \, don't do anything.; #X obj 456 -5 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 456 294 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #N canvas 0 22 450 300 (subpatch) 0; #X array rigidity1 4 float 1; #A 0 -1 0 1 2; #X array zero 4 float 1; #A 0 0 0 0 0; #X coords 0 3 3 -3 200 150 1; #X restore 121 328 graph; #X text 179 485 L0; #N canvas 438 87 956 727 figure 0; #X obj 284 53 loadbang; #X msg 293 125 \; rigidity1 resize 1 \; rigidity1 resize 4 \; rigidity1 bounds 0 3 3 -3 \; rigidity1 0 -1 0 1 2 \; rigidity1 ylabel -0.5 \; rigidity1 xlabel -3.5 \; rigidity1 xticks 0 1 1 \; rigidity1 yticks 0 0.1 5; #X obj 388 574 sqrt; #X obj 316 651 tabwrite rigidity3; #X obj 343 464 - 20; #X obj 316 609 f; #X obj 316 579 t b f; #X obj 343 494 moses 0; #X obj 343 517 * -1; #X obj 343 538 sqrt; #X obj 343 559 * -1; #X obj 481 479 - 20; #X obj 453 662 f; #X obj 453 632 t b f; #X obj 481 509 moses 0; #X obj 481 532 * -1; #X obj 480 612 * -1; #X obj 528 622 *; #X obj 480 591 *; #X obj 525 590 t f f; #X obj 480 564 t f f; #X obj 453 683 tabwrite rigidity4; #X obj 181 235 t b b; #X obj 620 552 f; #X obj 620 522 t b f; #X obj 620 623 tabwrite rigidity2; #X msg 763 574 0; #X obj 679 437 - 50; #X obj 751 491 moses 40; #X obj 681 510 moses -40; #X obj 620 586 * 1.5; #X obj 680 462 moses 10; #X obj 680 488 moses -10; #X msg 55 419 \; rigidity2 resize 101 \; rigidity2 xticks 1 10 5 \; rigidity2 yticks 0 5 5 \; rigidity3 resize 51 \; rigidity3 xticks 0 1 5 \; rigidity3 yticks 0 1 5 \; rigidity4 resize 51 \; rigidity4 xticks 0 1 5 \; rigidity4 yticks 0 100 5; #X obj 631 315 f; #X obj 648 394 + 1; #X obj 632 367 t f f; #X obj 375 333 f; #X obj 375 360 moses 50.5; #X obj 392 411 + 1; #X obj 376 384 t f f; #X obj 176 141 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 371 310 0; #X msg 627 286 0; #X obj 631 343 moses 100.5; #X connect 0 0 1 0; #X connect 0 0 22 0; #X connect 2 0 5 1; #X connect 4 0 7 0; #X connect 5 0 3 0; #X connect 6 0 5 0; #X connect 6 1 3 1; #X connect 7 0 8 0; #X connect 7 1 2 0; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 10 0 5 1; #X connect 11 0 14 0; #X connect 12 0 21 0; #X connect 13 0 12 0; #X connect 13 1 21 1; #X connect 14 0 15 0; #X connect 14 1 19 0; #X connect 15 0 20 0; #X connect 16 0 12 1; #X connect 17 0 12 1; #X connect 18 0 16 0; #X connect 19 0 17 0; #X connect 19 1 17 1; #X connect 20 0 18 0; #X connect 20 1 18 1; #X connect 22 0 42 0; #X connect 22 1 33 0; #X connect 22 1 43 0; #X connect 23 0 30 0; #X connect 24 0 23 0; #X connect 24 1 25 1; #X connect 26 0 23 1; #X connect 27 0 31 0; #X connect 28 0 23 1; #X connect 28 1 26 0; #X connect 29 0 26 0; #X connect 29 1 23 1; #X connect 30 0 25 0; #X connect 31 0 32 0; #X connect 31 1 28 0; #X connect 32 0 29 0; #X connect 32 1 26 0; #X connect 34 0 44 0; #X connect 35 0 34 0; #X connect 36 0 35 0; #X connect 36 1 27 0; #X connect 36 1 24 0; #X connect 37 0 38 0; #X connect 38 0 40 0; #X connect 39 0 37 0; #X connect 40 0 39 0; #X connect 40 1 4 0; #X connect 40 1 6 0; #X connect 40 1 13 0; #X connect 40 1 11 0; #X connect 41 0 22 0; #X connect 42 0 37 0; #X connect 43 0 34 0; #X connect 44 0 36 0; #X restore 403 659 pd figure; #X text 125 307 Rigidity; #N canvas 0 22 450 300 (subpatch) 0; #X array rigidity2 101 float 1; #A 0 0 0 0 0 0 0 0 0 0 0 -60 -58.5 -57 -55.5 -54 -52.5 -51 -49.5 -48 -46.5 -45 -43.5 -42 -40.5 -39 -37.5 -36 -34.5 -33 -31.5 -30 -28.5 -27 -25.5 -24 -22.5 -21 -19.5 -18 -16.5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 16.5 18 19.5 21 22.5 24 25.5 27 28.5 30 31.5 33 34.5 36 37.5 39 40.5 42 43.5 45 46.5 48 49.5 51 52.5 54 55.5 57 58.5 0 0 0 0 0 0 0 0 0 0 0; #X array zero 101 float 1; #A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; #X coords 0 3 22 -3 200 150 1; #X restore 565 327 graph; #X text 657 482 L0; #X text 569 304 Rigidity with Lmin and Lmax; #X text 673 482 Lmin; #X text 735 481 Lmax; #N canvas 0 22 450 300 (subpatch) 0; #X array rigidity3 51 float 1; #A 0 -4.47214 -4.3589 -4.24264 -4.12311 -4 -3.87298 -3.74166 -3.60555 -3.4641 -3.31662 -3.16228 -3 -2.82843 -2.64575 -2.44949 -2.23607 -2 -1.73205 -1.41421 -1 0 1 1.41421 1.73205 2 2.23607 2.44949 2.64575 2.82843 3 3.16228 3.31662 3.4641 3.60555 3.74166 3.87298 4 4.12311 4.24264 4.3589 4.47214 4.58258 4.69042 4.79583 4.89898 5 5.09902 5.19615 5.2915 5.38516 5.47723; #X array zero 51 float 1; #A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; #X coords 0 6 50 -6 200 150 1; #X restore 119 526 graph; #X text 192 679 L0; #X text 126 505 Rigidity with power = 1/2; #N canvas 0 22 450 300 (subpatch) 0; #X array rigidity4 51 float 1; #A 0 0 -400 -361 -324 -289 -256 -225 -196 -169 -144 -121 -100 -81 -64 -49 -36 -25 -16 -9 -4 -1 0 1 4 9 16 25 36 49 64 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841; #X array zero 51 float 1; #A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; #X coords 0 1000 50 -1000 200 150 1; #X restore 566 530 graph; #X text 639 684 L0; #X text 571 508 Rigidity with power = 2; #X text 571 12 The equations are :; #X text 497 36 if Lmin<|L[n]-L[0]| [massesPos 0 x0 y0(; #X text 766 678 [get massesPos 1( -----> [massesPosNo 1 x1 y1(; #X text 752 699 [get massesPos mas( -----> [massesPosId 0 x0 y0(; #X msg 33 104 print; #X text 170 230 Output all norm of position vector (sqrt(x*x+y*y)) in a list on outlet No 1; #X obj 11 272 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 171 284 Output all masses speeds in a list on outlet No 1; #X text 172 316 Output all masses speeds in x or y in a list on outlet No 1; #X text 171 344 Output all norm of speed vector (sqrt(x*x+y*y)) in a list on outlet No 1; #X obj 11 385 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 175 429 Output all masses forces in x or y in a list on outlet No 1; #X text 171 457 Output all norm of forces vector (sqrt(x*x+y*y)) in a list on outlet No 1; #X text 745 457 \$1 : Attribute type ( massesPos / massesPosName / massesSpeeds / massesSpeedsName / massesForces / massesForcesName / linksPos / linksPosName ); #X text 752 750 [get massesPosName( -----> [massesPosName mas x0 y0( ; #X obj 611 26 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 605 5 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577 0; #X text 796 264 Output all forces applied on masses in a list on outlet No 1; #X obj 612 140 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 795 149 Output all masses speeds in a list on outlet No 1; #X text 796 181 Output all masses speeds in x or y in a list on outlet No 1; #X text 801 209 Output all norm of speed vector (sqrt(x*x+y*y)) in a list on outlet No 1; #X obj 612 253 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 799 294 Output all masses forces in x or y in a list on outlet No 1; #X text 804 322 Output all norm of forces vector (sqrt(x*x+y*y)) in a list on outlet No 1; #X msg 12 170 massesPosL (\$1); #X msg 12 190 massesPosXL (\$1); #X msg 12 210 massesPosYL (\$1); #X msg 12 230 massesPosNormL (\$1); #X msg 13 284 massesSpeedsL (\$1); #X msg 13 343 massesSpeedsNormL (\$1); #X msg 14 397 massesForcesL (\$1); #X msg 12 170 massesPosL (\$1); #X msg 13 456 massesSpeedsNormL (\$1); #X msg 615 38 massesPosT \$1 (\$2); #X msg 615 58 massesPosXT \$1 (\$2); #X msg 615 79 massesPosYT \$1 (\$2); #X msg 615 98 massesPosNormT \$1 (\$2); #X msg 616 152 massesSpeedsT \$1 (\$2); #X msg 616 213 massesSpeedsNormT \$1 (\$2); #X msg 617 265 massesForcesT \$1 (\$2); #X msg 616 324 massesSpeedsNormT \$1 (\$2); #X text 794 35 Output all masses positions in a table (\$1); #X text 794 67 Output all masses x or y in a table (\$1); #X text 794 95 Output all norm of position vector (sqrt(x*x+y*y)) in a table (\$1); #X text 174 498 \$1 (optional): Masses Id; #X text 815 376 \$2 (optional): Masses Id; #X text 814 363 \$1 : table name; #X obj 17 544 cnv 15 150 270 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 11 524 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577 0; #X text 14 524 statistics :; #X msg 22 557 massesPosMean; #X text 177 573 \$1 : none or Id; #X msg 23 595 massesPosStd \$1; #X text 179 610 \$1 : none or Id; #X text 173 557 output the average position of masses; #X text 174 594 output the standard deviation of masses position; #X text 177 660 \$1 : none or Id; #X text 179 697 \$1 : none or Id; #X text 173 644 output the average position of masses; #X text 174 681 output the standard deviation of masses position; #X text 177 745 \$1 : none or Id; #X text 178 782 \$1 : none or Id; #X text 173 729 output the average position of masses; #X text 173 766 output the standard deviation of masses position; #X msg 22 682 massesForcesStd \$1; #X msg 22 644 massesForcesMean; #X msg 23 731 massesSpeedsMean; #X msg 22 767 massesSpeedsStd \$1; #X text 608 5 tables :; #X msg 14 304 massesSpeedsXL (\$1); #X msg 13 417 massesForcesXL (\$1); #X msg 616 173 massesSpeedsXT \$1 (\$2); #X msg 616 286 massesForcesXT \$1 (\$2); #X msg 13 324 massesSpeedsYL (\$1); #X msg 13 437 massesForcesYL (\$1); #X msg 616 192 massesSpeedsYT \$1 (\$2); #X msg 617 305 massesForcesYT \$1 (\$2); #X text 941 642 [massesPos 1 x2 y1(; #X text 941 657 [massesPos 2 x1 y2(; #X text 941 714 [massesPosId 1 x2 y1(; #X text 941 729 [massesPosId 2 x1 y2(; #X text 942 765 [massesPosName mas x1 y1(; #X text 942 780 [massesPosName mas x2 y2(; #X restore 12 499 pd attributes______; #X text 9 649 KEYWORDS: physical model mass spring damper link; #X text 12 8 HELP: pmpd2d; #X obj 157 48 pmpd2d; #X text 112 618 01_pmpd2dtest.pd; #X obj 18 296 pmpd2d; #N canvas 731 296 450 300 gemmouse 0; #X obj 189 77 gemmouse; #X obj 189 184 pack f f; #X obj 189 218 spigot; #X obj 109 243 outlet; #X obj 109 36 inlet; #X obj 109 98 t b; #X obj 238 131 + 4; #X msg 57 182 posX fix \$1; #X msg 57 203 posY fix \$2; #X obj 189 108 / 62.5; #X obj 237 107 / -62.5; #X obj 189 131 - 4; #X obj 109 125 list 0 0; #X connect 0 0 9 0; #X connect 0 1 10 0; #X connect 0 2 2 1; #X connect 1 0 2 0; #X connect 2 0 12 1; #X connect 4 0 5 0; #X connect 5 0 12 0; #X connect 6 0 1 1; #X connect 7 0 3 0; #X connect 8 0 3 0; #X connect 9 0 11 0; #X connect 10 0 6 0; #X connect 11 0 1 0; #X connect 12 0 7 0; #X connect 12 0 8 0; #X restore 393 295 pd gemmouse; #X obj 393 274 gemhead; #X obj 346 216 gemwin; #X msg 357 193 0 \, destroy; #N canvas 472 258 550 319 gemrender 0; #X obj 48 203 translateXYZ; #X obj 48 229 sphere 0.1; #X obj 127 24 inlet; #X obj 360 32 inlet; #X obj 275 232 curve 2; #X msg 431 81 \$4 \$5 0; #X msg 359 77 \$2 \$3 0; #X obj 359 105 t b a; #X obj 127 62 unpack f f f; #X obj 166 88 t b f; #X msg 48 110 0; #X obj 48 77 loadbang; #X obj 48 137 gemhead; #X msg 275 160 0; #X obj 275 127 loadbang; #X obj 275 187 gemhead; #X connect 0 0 1 0; #X connect 2 0 8 0; #X connect 3 0 5 0; #X connect 3 0 6 0; #X connect 5 0 4 2; #X connect 6 0 7 0; #X connect 7 0 15 0; #X connect 7 1 4 1; #X connect 8 1 9 0; #X connect 8 2 0 2; #X connect 9 0 12 0; #X connect 9 1 0 1; #X connect 10 0 12 0; #X connect 11 0 10 0; #X connect 12 0 0 0; #X connect 13 0 15 0; #X connect 14 0 13 0; #X connect 15 0 4 0; #X restore 172 320 pd gemrender; #X msg 346 129 reset \, create \, 1; #X text 135 98 Sorry \, you need GEM for this example...; #X text 169 132 1 Create window -->; #X text 169 163 2 Drag the structure with the mouse; #X text 169 195 3 Destroy the window -->; #X obj 172 294 route massesPos linksPosNo; #X text 11 19 DESCRIPTION: Physical modeling for Pd in 2d; #X text 265 669 - Cyrille Henry 2011; #X text 265 681 based on MSD by Nicolas Montgermont \, 2005; #X connect 21 0 43 0; #X connect 24 0 23 0; #X connect 25 0 54 0; #X connect 26 0 19 0; #X connect 43 0 20 0; #X connect 44 0 22 0; #X connect 45 0 44 0; #X connect 47 0 46 0; #X connect 49 0 46 0; #X connect 54 0 48 0; #X connect 54 1 48 1;