view SwordLogInterp/newStrou.pd @ 199:2ded41e29e57

Projection matrix now calculated using control signals rather than audio. This makes sense as it was eating too much processing power for something that doesn't chage during the sound effect.

#N canvas 183 221 718 433 10;
#X obj 203 48 inlet~;
#X obj 273 233 outlet~;
#X text 101 20 Reynolds number coming in;
#X text 211 257 Strouhal Number going out;
#N canvas 648 199 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 obj 374 38 r myMet;
#X msg 365 223 0.2492 -0.8861;
#X text 372 240 Linear Int;
#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 51 0 37 0;
#X connect 52 0 6 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 obj 273 191 max~ 0;
#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 12 0;
#X connect 12 0 1 0;