diff MechAeolian/MechAeolianD1.pd @ 222:12bb55b6cff0

String frequencies calculated for a number of different strings.

--- a/MechAeolian/MechAeolianD1.pd	Sun May 22 20:29:32 2016 +0100
+++ b/MechAeolian/MechAeolianD1.pd	Mon May 23 20:34:56 2016 +0100
@@ -847,7 +847,7 @@
 #X connect 70 0 37 0;
 #X connect 70 1 38 0;
 #X connect 71 0 11 0;
-#X restore 543 535 pd Dipoles;
+#X restore 956 572 pd Dipoles;
 #X obj 1088 69 noise~;
 #X obj 1088 92 s~ \$0-thisNoise;
 #X obj 1067 214 r~ \$0-thisNoise;
@@ -924,73 +924,94 @@
 #X obj 1143 237 r~ \$0-myFreq;
 #X text 780 41 Mass Density;
 #X text 720 39 Tension;
-#N canvas 680 51 478 678 NatFreq 1;
-#X obj 147 52 inlet;
-#X obj 95 240 inlet;
-#X text 136 28 Mass Density;
-#X text 88 222 Tension;
-#X obj 162 94 r \$0-diameter;
-#X floatatom 197 115 0 0 0 0 - - -;
-#X floatatom 80 267 0 0 0 0 - - -;
-#X floatatom 166 72 0 0 0 0 - - -;
-#X obj 162 168 * 3.14159;
-#X floatatom 225 218 0 0 0 0 - - -;
-#X text 240 201 Linear Density;
-#X obj 133 271 /;
-#X obj 133 299 sqrt;
-#X obj 148 367 swap 1;
-#X obj 148 324 r \$0-leng;
-#X obj 148 347 * 2;
-#X obj 133 451 *;
-#X obj 148 427 t f b;
-#X floatatom 61 472 0 0 0 0 - - -;
-#X text 184 516 Natural Frequency;
-#X obj 148 406 /;
-#X text 74 565 Patch that calcultes the natural or fundamental frequency
+#N canvas 272 44 671 757 NatFreq 1;
+#X obj 148 86 inlet;
+#X obj 109 308 inlet;
+#X text 137 62 Mass Density;
+#X text 102 290 Tension;
+#X obj 163 155 r \$0-diameter;
+#X floatatom 206 177 0 0 0 0 - - -;
+#X floatatom 51 357 0 0 0 0 - - -;
+#X floatatom 191 111 0 0 0 0 - - -;
+#X obj 163 452 r \$0-leng;
+#X text 184 583 Natural Frequency;
+#X text 74 632 Patch that calcultes the natural or fundamental frequency
 of a string in 1 dimension. Uses f = (1/2l) * sqrt(T/u) where u is
 the linear mass density.;
-#X floatatom 193 298 0 0 0 0 - - -;
-#X obj 181 387 t f b;
-#X obj 148 227 t f b;
-#X obj 175 248 delay 7;
-#X msg 133 472 \$1 10;
-#X obj 133 495 line~;
-#X obj 133 520 outlet~;
-#X obj 162 121 * 0.5;
-#X obj 162 146 *;
-#X obj 148 193 *;
+#X obj 133 587 outlet~;
+#X msg 148 111 \$1 10;
+#X obj 148 133 line~;
+#X msg 163 179 \$1 10;
+#X obj 163 202 line~;
+#X obj 163 224 *~ 0.5;
+#X obj 163 249 *~;
+#X obj 163 271 *~ 3.14159;
+#X obj 148 293 *~;
+#X obj 133 381 /~;
+#X msg 109 330 \$1 10;
+#X obj 109 354 line~;
+#X obj 133 408 sqrt~;
+#X msg 163 474 \$1 10;
+#X obj 163 497 line~;
+#X obj 163 518 *~ 2;
+#X obj 149 430 sig~ 1;
+#X obj 149 538 /~;
+#X obj 133 562 *~;
+#X obj 67 565 r myMet;
+#X obj 67 588 snapshot~;
+#X floatatom 67 611 0 0 0 0 - - -;
+#X obj 230 297 r myMet;
+#X obj 230 320 snapshot~;
+#X floatatom 230 343 0 0 0 0 - - -;
+#X obj 426 46 r myMet;
+#X obj 426 69 snapshot~;
+#X floatatom 426 92 0 0 0 0 - - -;
+#X obj 297 549 r myMet;
+#X obj 297 572 snapshot~;
+#X floatatom 297 595 0 0 0 0 - - -;
+#X obj 488 44 r myMet;
+#X obj 488 67 snapshot~;
+#X floatatom 488 90 0 0 0 0 - - -;
+#X text 239 277 Linear Density;
 #X connect 0 0 7 0;
-#X connect 0 0 31 0;
+#X connect 0 0 12 0;
 #X connect 1 0 6 0;
-#X connect 1 0 11 0;
+#X connect 1 0 21 0;
 #X connect 4 0 5 0;
-#X connect 4 0 29 0;
-#X connect 4 0 29 1;
-#X connect 8 0 31 1;
-#X connect 11 0 12 0;
-#X connect 11 0 22 0;
-#X connect 12 0 16 0;
-#X connect 13 0 20 0;
-#X connect 13 1 23 0;
+#X connect 4 0 14 0;
+#X connect 8 0 24 0;
+#X connect 12 0 13 0;
+#X connect 13 0 19 0;
 #X connect 14 0 15 0;
-#X connect 15 0 13 0;
-#X connect 16 0 18 0;
-#X connect 16 0 26 0;
-#X connect 17 0 16 1;
-#X connect 17 1 16 0;
-#X connect 20 0 17 0;
-#X connect 23 0 20 1;
-#X connect 23 1 20 0;
-#X connect 24 0 11 1;
-#X connect 24 1 25 0;
-#X connect 25 0 11 0;
-#X connect 26 0 27 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 16 0 17 1;
+#X connect 17 0 18 0;
+#X connect 18 0 19 1;
+#X connect 19 0 20 1;
+#X connect 19 0 34 0;
+#X connect 20 0 23 0;
+#X connect 21 0 22 0;
+#X connect 22 0 20 0;
+#X connect 23 0 29 0;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 26 0 28 1;
 #X connect 27 0 28 0;
-#X connect 29 0 30 0;
-#X connect 29 0 30 1;
-#X connect 30 0 8 0;
-#X connect 31 0 9 0;
-#X connect 31 0 24 0;
+#X connect 28 0 29 1;
+#X connect 28 0 40 0;
+#X connect 29 0 11 0;
+#X connect 29 0 31 0;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X connect 33 0 34 0;
+#X connect 34 0 35 0;
+#X connect 36 0 37 0;
+#X connect 37 0 38 0;
+#X connect 39 0 40 0;
+#X connect 40 0 41 0;
+#X connect 42 0 43 0;
+#X connect 43 0 44 0;
 #X restore 746 88 pd NatFreq;
 #X obj 851 445 r myMet;
 #X obj 851 468 snapshot~;
@@ -1538,31 +1559,47 @@
 #X obj 868 71 r myMet;
 #X obj 868 94 snapshot~;
 #X floatatom 868 118 0 0 0 0 - - -;
-#N canvas 346 341 450 300 toneCalc 0;
-#X obj 101 39 inlet~;
-#X obj 122 84 inlet;
+#N canvas 339 518 450 300 toneCalc 0;
+#X obj 101 -1 inlet~;
+#X obj 122 44 inlet;
 #X obj 102 228 outlet~;
 #X obj 161 230 outlet~;
 #X obj 228 232 outlet~;
-#X obj 101 104 *~ 1;
+#X obj 101 64 *~ 1;
 #X obj 101 134 newStrou;
 #X obj 101 163 *~;
 #X obj 101 191 /~ 1;
 #X text 98 260 Frequency;
 #X text 161 252 Strouhal No;
 #X text 281 235 Reynolds No;
-#X obj 101 63 *~ 67679.6;
+#X obj 101 23 *~ 67679.6;
+#X obj 301 128 r myMet;
+#X obj 301 149 snapshot~;
+#X floatatom 301 168 0 0 0 0 - - -;
+#X obj 16 122 sig~ 0.1593;
+#X obj 219 62 r myMet;
+#X obj 219 83 snapshot~;
+#X floatatom 219 102 0 0 0 0 - - -;
+#X obj 101 94 clip~ 100 1e+06;
 #X connect 0 0 7 1;
 #X connect 0 0 12 0;
 #X connect 1 0 5 1;
 #X connect 1 0 8 1;
 #X connect 5 0 4 0;
-#X connect 5 0 6 0;
+#X connect 5 0 20 0;
+#X connect 6 0 18 0;
+#X connect 6 0 7 0;
 #X connect 6 0 3 0;
-#X connect 6 0 7 0;
 #X connect 7 0 8 0;
 #X connect 8 0 2 0;
 #X connect 12 0 5 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 16 0 7 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 20 0 6 0;
+#X connect 20 0 14 0;
 #X restore 709 191 pd toneCalc;
 #X obj 772 171 r \$0-diameter;
 #X obj 908 349 r myMet;
@@ -1727,7 +1764,7 @@
 #X obj 658 569 snapshot~;
 #X floatatom 658 593 0 0 0 0 - - -;
 #X obj 711 610 outlet;
-#N canvas 61 24 1368 742 natHarmonics2 1;
+#N canvas 329 50 1368 742 natHarmonics2 0;
 #X obj 652 26 r~ \$0-myFreq;
 #X obj 669 49 r myMet;
 #X obj 669 69 snapshot~;
@@ -2090,15 +2127,24 @@
 #X obj 523 389 snapshot~;
 #X floatatom 570 412 0 0 0 0 - - -;
 #X obj 536 365 r myMet;
-#X obj 372 410 *~;
-#X obj 385 340 +~ 1;
-#X obj 385 383 +~ 0.5;
-#X obj 385 361 *~ 0.1;
+#X obj 416 535 *~;
+#X obj 119 306 +~ 1;
+#X obj 119 349 +~ 0.5;
+#X obj 119 327 *~ 0.1;
 #X obj 534 256 outlet;
 #X obj 1135 521 *~ 1e-11;
 #X obj 300 305 r myMet;
 #X obj 300 328 snapshot~;
 #X floatatom 300 348 0 0 0 0 - - -;
+#X obj 477 664 throw~ l;
+#X obj 484 638 throw~ r;
+#X obj 477 616 *~ 1e-11;
+#X obj 442 426 osc~;
+#X obj 235 516 r~ \$0-myFreq;
+#X obj 249 542 -~ 1;
+#X obj 249 563 *~ -1;
+#X obj 235 584 *~;
+#X obj 235 606 outlet~;
 #X connect 0 0 2 0;
 #X connect 1 0 2 0;
 #X connect 2 0 3 0;
@@ -2106,7 +2152,9 @@
 #X connect 6 0 5 0;
 #X connect 8 0 29 0;
 #X connect 9 0 33 0;
+#X connect 9 0 56 0;
 #X connect 9 1 41 0;
+#X connect 9 1 58 0;
 #X connect 10 0 12 0;
 #X connect 11 0 12 1;
 #X connect 12 0 14 0;
@@ -2118,7 +2166,6 @@
 #X connect 17 0 21 0;
 #X connect 18 0 19 0;
 #X connect 19 0 20 0;
-#X connect 21 0 40 0;
 #X connect 21 0 51 0;
 #X connect 22 0 24 0;
 #X connect 23 0 24 0;
@@ -2139,13 +2186,46 @@
 #X connect 40 0 36 0;
 #X connect 41 0 42 0;
 #X connect 43 0 41 0;
+#X connect 44 0 55 0;
 #X connect 45 0 47 0;
 #X connect 47 0 46 0;
 #X connect 49 0 38 0;
 #X connect 49 0 39 0;
 #X connect 50 0 51 0;
 #X connect 51 0 52 0;
+#X connect 55 0 53 0;
+#X connect 55 0 54 0;
+#X connect 56 0 44 1;
+#X connect 57 0 60 0;
+#X connect 58 0 59 0;
+#X connect 59 0 60 1;
+#X connect 60 0 61 0;
 #X restore 999 535 pd natHarmonics2;
+#N canvas 990 479 450 300 UCalc 1;
+#X obj 200 116 r~ \$0-thisNatF;
+#X obj 185 31 r \$0-diameter;
+#X obj 185 73 line~;
+#X msg 185 51 \$1 10;
+#X obj 185 95 *~ 6.28319;
+#X obj 185 136 *~;
+#X obj 170 10 r~ \$0-windSpeed;
+#X obj 170 158 /~;
+#X obj 93 161 r myMet;
+#X obj 93 184 snapshot~;
+#X floatatom 93 208 0 0 0 0 - - -;
+#X floatatom 249 57 0 0 0 0 - - -;
+#X connect 0 0 5 1;
+#X connect 1 0 3 0;
+#X connect 1 0 11 0;
+#X connect 2 0 4 0;
+#X connect 3 0 2 0;
+#X connect 4 0 5 0;
+#X connect 5 0 7 1;
+#X connect 6 0 7 0;
+#X connect 7 0 9 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X restore 869 660 pd UCalc;
 #X connect 0 0 4 0;
 #X connect 0 0 32 0;
 #X connect 3 0 19 0;
@@ -2211,6 +2291,7 @@
 #X connect 96 0 7 0;
 #X connect 96 0 88 0;
 #X connect 96 1 43 0;
+#X connect 96 1 99 0;
 #X connect 96 2 10 0;
 #X connect 96 2 102 0;
 #X connect 97 0 96 1;
@@ -2223,3 +2304,4 @@
 #X connect 110 0 111 0;
 #X connect 111 0 112 0;
 #X connect 111 0 113 0;
+#X connect 114 0 74 0;