view Shallow Cavity/CavD1.pd @ 243:d6f8d88c4d13

Strouhal No of 0.85 and chord length added to each source. Each source radius scaled to the length of the blade.

#N canvas 132 23 1193 815 10;
#X obj -172 -182 loadbang;
#X obj -172 -145 metro 10;
#X obj -172 -162 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj -172 -123 s myMet;
#N canvas 20 383 344 123 machCalc 0;
#X text 107 15 Speed of Sound (dry air 20 Degs C);
#X obj 26 -14 vd~ varwind;
#X obj 26 33 s~ MY_MACH;
#X obj 26 9 /~ 343.56;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X restore -177 -97 pd machCalc;
#X obj -162 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj -99 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text -102 376 Gain;
#X obj -154 347 loadbang;
#N canvas 555 179 313 396 opLevels 0;
#X obj 79 184 dac~;
#X obj 30 70 catch~ l;
#X obj 128 70 catch~ r;
#X obj 129 104 *~ 0.45;
#X obj 30 104 *~ 0.45;
#X obj 30 210 prvu~;
#X obj 129 211 prvu~;
#X obj 93 33 inlet;
#X obj 30 239 outlet;
#X obj 129 239 outlet;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 0 0 1;
#X connect 4 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 4 1;
#X connect 7 0 3 1;
#X restore -163 424 pd opLevels;
#X msg -154 370 5;
#X obj -160 395 hsl 100 25 0.1 1e+09 1 0 empty empty empty -2 -8 0
10 -262144 -1 -1 1682 1;
#X obj -163 324 r GAIN;
#X floatatom -220 425 8 0 0 0 - - -;
#X obj 436 -178 hsl 100 25 0.001 10 1 0 empty empty Length 3 13 0 10
-262144 -1 -1 5200 1;
#X floatatom 454 -149 0 0 0 0 - - -;
#X obj 550 -178 hsl 100 25 0.001 10 1 0 empty empty Width 3 13 0 10
-262144 -1 -1 2600 1;
#X floatatom 580 -149 0 0 0 0 - - -;
#X obj 664 -178 hsl 100 25 0.001 10 1 0 empty empty Depth 3 13 0 10
-262144 -1 -1 7500 1;
#X floatatom 688 -150 0 0 0 0 - - -;
#X obj -39 -35 delwrite~ varwind 3000;
#X obj 70 -127 hsl 128 15 0 100 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 4500 1;
#X obj -39 -83 *~ 1;
#X obj -39 -61 +~ 1;
#X obj -39 -185 loadbang;
#X floatatom 108 -104 0 0 0 0 - - -;
#X obj 67 -151 r SPEED;
#X obj 100 -37 snapshot~;
#X floatatom 100 -17 0 0 0 0 - - -;
#X text 97 1 Wind Speed;
#X msg 122 -150 20;
#X obj 100 -58 r myMet;
#X obj 30 -104 * 0.5;
#X obj 67 -104 * 0.88;
#X obj -36 -161 hsl 50 30 0 1 0 0 empty empty Gusts 2 8 0 10 -261995
-1 -4032 4900 1;
#X obj 29 -130 t f b;
#X obj 28 -152 * 0.75;
#X obj 15 -184 r gusts;
#X obj 156 -149 r underWind;
#X obj -39 -109 windGenD1;
#N canvas 353 99 1064 659 rossFreqD1 0;
#X obj 239 -76 r~ MY_MACH;
#X obj 224 -97 sig~ 1;
#X obj 239 -51 *~;
#X obj 239 -29 *~ 0.2;
#X obj 224 -6 +~;
#X obj 224 17 sqrt~;
#X obj 209 -119 r~ MY_MACH;
#X obj 209 38 /~;
#X obj 209 60 +~ 1.7544;
#X obj 194 82 /~;
#X obj 114 75 r myMet;
#X obj 114 97 snapshot~;
#X floatatom 114 121 0 0 0 0 - - -;
#X obj 194 124 *~;
#X obj 209 103 r~ \$0-windSpeed;
#X obj 194 164 /~ 1;
#X obj 215 144 r $-thisLen;
#X obj 227 210 r myMet;
#X obj 227 231 snapshot~;
#X floatatom 227 255 0 0 0 0 - - -;
#X text 290 -34 (y-1)/2 -> y = 1.4;
#X text 254 -144 alpha = 0.25;
#X text 277 58 (1/k) -> k = 0.57;
#X text 235 278 m = 1;
#X text 838 -107 alpha = 0.25;
#X text 834 -127 m = 1;
#X obj 778 -51 /~;
#X obj 793 -80 sig~ 1.7544;
#X obj 778 -5 *~;
#X obj 793 -26 r~ \$0-windSpeed;
#X obj 778 35 /~ 1;
#X obj 799 15 r $-thisLen;
#X obj 798 61 r myMet;
#X obj 798 83 snapshot~;
#X floatatom 798 107 0 0 0 0 - - -;
#X text 875 -79 (1/k) -> k = 0.57;
#X text 250 -164 h = 1;
#X obj 707 -32 r myMet;
#X obj 707 -10 snapshot~;
#X floatatom 707 14 0 0 0 0 - - -;
#X text 755 -160 Victoria Suponitsky;
#X text 197 -194 A. Rona;
#X obj 778 -105 -~ 0.25;
#X obj 194 -142 -~ 0.25;
#X text 363 -145 Has + alpha in paper but Rossiter has - ???;
#X obj 778 -127 sig~ 1;
#X obj 194 -164 sig~ 1;
#X obj 778 181 outlet~;
#X connect 0 0 2 0;
#X connect 0 0 2 1;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 7 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 1;
#X connect 9 0 11 0;
#X connect 9 0 13 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 13 0 15 0;
#X connect 14 0 13 1;
#X connect 15 0 18 0;
#X connect 16 0 15 1;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 26 0 28 0;
#X connect 26 0 38 0;
#X connect 27 0 26 1;
#X connect 28 0 30 0;
#X connect 29 0 28 1;
#X connect 30 0 33 0;
#X connect 30 0 47 0;
#X connect 31 0 30 1;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 42 0 26 0;
#X connect 43 0 9 0;
#X connect 45 0 42 0;
#X connect 46 0 43 0;
#X restore 447 -58 pd rossFreqD1;
#N canvas 397 227 1009 672 cavFreqD1 0;
#X obj 273 -22 r~ MY_MACH;
#X obj 258 -43 sig~ 1;
#X obj 273 3 *~;
#X obj 273 25 *~ 0.2;
#X obj 258 48 +~;
#X obj 258 71 sqrt~;
#X obj 273 93 r~ MY_MACH;
#X text 324 20 (y-1)/2 -> y = 1.4;
#X obj 258 119 /~;
#X obj 463 -24 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2200 1;
#X obj 460 1 i;
#X msg 460 23 \$1 50;
#X obj 460 44 line~;
#X floatatom 502 23 0 0 0 0 - - -;
#X obj 598 -47 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 1600 1;
#X obj 595 -22 i;
#X msg 595 0 \$1 50;
#X obj 595 21 line~;
#X floatatom 637 0 0 0 0 0 - - -;
#X obj 741 -41 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2300 1;
#X obj 738 -16 i;
#X msg 738 6 \$1 50;
#X obj 738 27 line~;
#X floatatom 780 6 0 0 0 0 - - -;
#X text 549 -24 l;
#X text 687 -47 m;
#X text 834 -40 n;
#X obj 460 68 /~ 2;
#X obj 460 98 *~;
#X obj 595 43 /~ 2;
#X obj 738 48 /~ 2;
#X obj 610 67 r $-thisLen;
#X obj 625 133 r $-thisWid;
#X msg 610 90 \$1 50;
#X obj 610 111 line~;
#X msg 625 155 \$1 50;
#X obj 625 176 line~;
#X obj 610 199 /~;
#X obj 595 240 *~;
#X obj 595 266 *~;
#X obj 753 71 r $-thisLen;
#X msg 753 94 \$1 50;
#X obj 753 115 line~;
#X msg 768 159 \$1 50;
#X obj 768 180 line~;
#X obj 753 203 /~;
#X obj 738 244 *~;
#X obj 738 270 *~;
#X obj 768 137 r $-thisDep;
#X obj 582 310 +~;
#X obj 638 341 +~;
#X obj 638 366 sqrt~;
#X obj 592 427 *~;
#X obj 496 414 r myMet;
#X obj 496 436 snapshot~;
#X floatatom 496 460 0 0 0 0 - - -;
#X obj 477 222 r myMet;
#X obj 477 244 snapshot~;
#X floatatom 477 268 0 0 0 0 - - -;
#X obj 592 462 outlet~;
#X connect 0 0 2 0;
#X connect 0 0 2 1;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 8 1;
#X connect 8 0 52 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 0 13 0;
#X connect 11 0 12 0;
#X connect 12 0 27 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 29 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 30 0;
#X connect 27 0 28 0;
#X connect 27 0 28 1;
#X connect 28 0 49 0;
#X connect 29 0 38 0;
#X connect 30 0 46 0;
#X connect 31 0 33 0;
#X connect 32 0 35 0;
#X connect 33 0 34 0;
#X connect 34 0 37 0;
#X connect 35 0 36 0;
#X connect 36 0 37 1;
#X connect 37 0 38 1;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 49 1;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 45 0;
#X connect 43 0 44 0;
#X connect 44 0 45 1;
#X connect 45 0 46 1;
#X connect 46 0 47 0;
#X connect 46 0 47 1;
#X connect 47 0 50 1;
#X connect 48 0 43 0;
#X connect 49 0 50 0;
#X connect 50 0 51 0;
#X connect 51 0 52 1;
#X connect 52 0 54 0;
#X connect 52 0 59 0;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 56 0 57 0;
#X connect 57 0 58 0;
#X restore 325 -58 pd cavFreqD1;
#X obj 433 -129 s $-thisLen;
#X obj 661 -128 s $-thisDep;
#X obj 547 -129 s $-thisWid;
#X obj -173 -31 s~ \$0-windSpeed;
#X obj -173 -51 vd~ varwind;
#X text -160 -75 Wind Speed;
#X obj 340 -15 snapshot~;
#X floatatom 340 5 0 0 0 0 - - -;
#X obj 340 -36 r myMet;
#X obj 461 -16 snapshot~;
#X floatatom 461 4 0 0 0 0 - - -;
#X obj 461 -37 r myMet;
#X obj 477 83 /;
#X obj 477 111 * 100;
#X floatatom 415 136 0 0 0 0 - - -;
#X obj 341 28 -;
#X obj 341 49 abs;
#X obj 477 138 < 5;
#X obj 477 163 tgl 35 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 8 0 10 0;
#X connect 9 0 5 0;
#X connect 9 1 6 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 11 0 13 0;
#X connect 12 0 11 0;
#X connect 14 0 15 0;
#X connect 14 0 42 0;
#X connect 16 0 17 0;
#X connect 16 0 44 0;
#X connect 18 0 19 0;
#X connect 18 0 43 0;
#X connect 21 0 25 0;
#X connect 21 0 32 0;
#X connect 21 0 33 0;
#X connect 22 0 23 0;
#X connect 23 0 27 0;
#X connect 23 0 20 0;
#X connect 24 0 34 0;
#X connect 26 0 21 0;
#X connect 27 0 28 0;
#X connect 30 0 21 0;
#X connect 31 0 27 0;
#X connect 32 0 22 1;
#X connect 33 0 23 1;
#X connect 34 0 36 0;
#X connect 34 0 39 0;
#X connect 35 0 32 1;
#X connect 35 1 32 0;
#X connect 36 0 35 0;
#X connect 37 0 34 0;
#X connect 38 0 21 0;
#X connect 39 0 22 0;
#X connect 40 0 51 0;
#X connect 41 0 48 0;
#X connect 46 0 45 0;
#X connect 48 0 49 0;
#X connect 49 0 57 0;
#X connect 50 0 48 0;
#X connect 51 0 52 0;
#X connect 52 0 54 1;
#X connect 52 0 57 1;
#X connect 53 0 51 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 59 0;
#X connect 57 0 58 0;
#X connect 58 0 54 0;
#X connect 59 0 60 0;