diff newStrou.pd @ 0:12b68fb81455

Demo patch for Aeolian Harp synthesis model

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/newStrou.pd	Wed Nov 23 12:24:24 2016 +0000
@@ -0,0 +1,147 @@
+#N canvas 179 322 718 433 10;
+#X obj 203 48 inlet~;
+#X obj 273 202 outlet~;
+#X text 101 20 Reynolds number coming in;
+#X text 211 238 Strouhal Number going out;
+#N canvas 679 277 1026 531 eqnSelect 0;
+#X msg 41 221 0.2684 -1.0356;
+#X msg 148 221 0.2437 -0.8607;
+#X msg 256 223 0.4291 -3.6735;
+#X msg 472 223 0.2257 -0.4402;
+#X msg 577 222 0.204 0.3364;
+#X msg 686 224 0.1776 2.2023;
+#X obj 365 299 unpack;
+#X obj 75 164 < 180;
+#X obj 181 144 > 180;
+#X obj 227 146 < 230;
+#X obj 289 149 > 230;
+#X obj 335 148 < 240;
+#X obj 398 148 > 240;
+#X obj 444 149 < 360;
+#X obj 505 147 > 360;
+#X obj 551 147 < 1300;
+#X obj 611 150 > 1300;
+#X obj 657 150 < 5000;
+#X obj 719 149 > 5000;
+#X obj 765 148 < 200000;
+#X obj 827 149 > 200000;
+#X obj 41 196 spigot;
+#X floatatom 286 327 8 0 0 0 - - -;
+#X floatatom 455 330 8 0 0 0 - - -;
+#X obj 148 198 spigot;
+#X obj 194 171 spigot;
+#X obj 256 200 spigot;
+#X obj 302 173 spigot;
+#X obj 365 200 spigot;
+#X obj 411 173 spigot;
+#X floatatom 546 83 8 0 0 0 - - -;
+#X obj 472 198 spigot;
+#X obj 518 171 spigot;
+#X obj 578 200 spigot;
+#X obj 624 173 spigot;
+#X obj 686 199 spigot;
+#X obj 732 172 spigot;
+#X obj 426 67 snapshot~;
+#X obj 426 37 inlet~;
+#X obj 365 373 outlet~;
+#X obj 398 352 outlet~;
+#X obj 365 327 sig~;
+#X obj 398 327 sig~;
+#X text 539 419 This selects the values for the St* and m coefficients
+for Fey's formula;
+#X obj 794 201 spigot;
+#X obj 840 174 spigot;
+#X obj 885 149 < 1e+06;
+#X text 784 251 Critical - Derived by author;
+#X text 254 359 St* (I) coefficient;
+#X text 462 361 m (J) coefficient;
+#X msg 794 226 0.576 -175.957;
+#X text 372 240 comment;
+#X msg 365 223 0.2492 -0.8861;
+#X text 370 240 Linear Int;
+#X obj 359 43 r myMet;
+#X connect 0 0 6 0;
+#X connect 1 0 6 0;
+#X connect 2 0 6 0;
+#X connect 3 0 6 0;
+#X connect 4 0 6 0;
+#X connect 5 0 6 0;
+#X connect 6 0 22 0;
+#X connect 6 0 41 0;
+#X connect 6 1 23 0;
+#X connect 6 1 42 0;
+#X connect 7 0 21 1;
+#X connect 7 0 21 0;
+#X connect 8 0 24 1;
+#X connect 8 0 25 0;
+#X connect 9 0 25 1;
+#X connect 10 0 27 0;
+#X connect 10 0 26 1;
+#X connect 11 0 27 1;
+#X connect 12 0 28 1;
+#X connect 12 0 29 0;
+#X connect 13 0 29 1;
+#X connect 14 0 31 1;
+#X connect 14 0 32 0;
+#X connect 15 0 32 1;
+#X connect 16 0 33 1;
+#X connect 16 0 34 0;
+#X connect 17 0 34 1;
+#X connect 18 0 35 1;
+#X connect 18 0 36 0;
+#X connect 19 0 36 1;
+#X connect 20 0 45 0;
+#X connect 20 0 44 1;
+#X connect 21 0 0 0;
+#X connect 24 0 1 0;
+#X connect 25 0 24 0;
+#X connect 26 0 2 0;
+#X connect 27 0 26 0;
+#X connect 28 0 52 0;
+#X connect 29 0 28 0;
+#X connect 31 0 3 0;
+#X connect 32 0 31 0;
+#X connect 33 0 4 0;
+#X connect 34 0 33 0;
+#X connect 35 0 5 0;
+#X connect 36 0 35 0;
+#X connect 37 0 7 0;
+#X connect 37 0 8 0;
+#X connect 37 0 9 0;
+#X connect 37 0 10 0;
+#X connect 37 0 11 0;
+#X connect 37 0 12 0;
+#X connect 37 0 13 0;
+#X connect 37 0 30 0;
+#X connect 37 0 14 0;
+#X connect 37 0 15 0;
+#X connect 37 0 16 0;
+#X connect 37 0 17 0;
+#X connect 37 0 18 0;
+#X connect 37 0 19 0;
+#X connect 37 0 20 0;
+#X connect 37 0 46 0;
+#X connect 38 0 37 0;
+#X connect 41 0 39 0;
+#X connect 42 0 40 0;
+#X connect 44 0 50 0;
+#X connect 45 0 44 0;
+#X connect 46 0 45 1;
+#X connect 50 0 6 0;
+#X connect 52 0 6 0;
+#X connect 54 0 37 0;
+#X restore 273 83 pd eqnSelect;
+#X obj 203 85 sqrt~;
+#X obj 342 119 /~;
+#X text 135 97 sqrt(Re);
+#X text 250 114 St*;
+#X text 359 101 m;
+#X text 376 152 St = St* + m / sqrt(Re);
+#X obj 273 166 +~;
+#X connect 0 0 4 0;
+#X connect 0 0 5 0;
+#X connect 4 0 11 0;
+#X connect 4 1 6 0;
+#X connect 5 0 6 1;
+#X connect 6 0 11 1;
+#X connect 11 0 1 0;