view Blog Patches/ATT.pd @ 261:eb3fb10f2541

Howe Intensity Eqns fixed. Added into dipole and monopole patches.
Frquency limits added to dipole patches
Need to add frequency limits to the monopole patch
Look at adding in the effect of shear layer thickness

#N canvas 83 38 1333 826 10;
#X obj 26 65 hsl 80 25 0.0005 0.5 1 0 empty empty Diameter 2 15 0 10
-261682 -1 -1 2842 1;
#X floatatom 24 95 0 0 0 0 - - -;
#X obj 24 322 hsl 80 25 0.01 0.99 0 0 empty empty Panning 2 15 0 10
-261682 -1 -1 3950 1;
#X floatatom 21 351 0 0 0 0 - - -;
#X obj 25 222 hsl 80 25 -90 90 0 0 empty empty Obs_Azimuth 2 15 0 10
-261682 -1 -1 3950 1;
#X floatatom 22 251 0 0 0 0 - - -;
#X obj 25 272 hsl 80 25 -180 180 0 0 empty empty Obs_Elevation 2 15
0 10 -261682 -1 -1 5815 1;
#X floatatom 22 301 0 0 0 0 - - -;
#X obj 26 171 hsl 80 25 100 1 1 0 empty empty Obs_Distance 2 15 0 10
-261682 -1 -1 5522 1;
#X floatatom 24 200 0 0 0 0 - - -;
#X obj 157 291 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 220 291 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#N canvas 555 179 313 396 opLevels 0;
#X obj 70 187 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 obj 93 68 / 100;
#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 10 0;
#X connect 10 0 3 1;
#X connect 10 0 4 1;
#X restore 316 239 pd opLevels;
#X obj 24 371 hsl 100 25 0.1 1e+11 1 0 empty empty Gain 2 15 0 10 -203904
-1 -1 8122 1;
#X obj 27 117 hsl 80 25 1 20 0 0 empty empty Length 2 15 0 10 -261682
-1 -1 1663 1;
#X floatatom 24 149 0 0 0 0 - - -;
#X obj -352 309 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X floatatom -315 338 5 0 0 0 - - -;
#X obj -270 283 r SET_UP;
#X obj -339 369 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X floatatom -320 396 5 0 0 0 - - -;
#X obj -246 337 r SET_UP;
#X obj -325 421 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X floatatom -314 443 5 0 0 0 - - -;
#X obj -230 390 r SET_UP;
#X text -189 364 Source Rotation Y;
#X text -173 417 Source Rotation Z;
#X obj 508 363 s GAIN;
#X obj -59 344 r GAIN;
#X obj 466 449 s DIST;
#X obj -45 140 r DIST;
#X obj 445 491 s LEN;
#X obj -41 92 r LEN;
#X obj 424 530 s DIA;
#X obj -36 32 r DIA;
#X obj 403 568 s SPEED;
#X floatatom 21 400 0 0 0 0 - - -;
#X obj -54 236 r ELEV;
#X text -204 310 Source Rotation X;
#X obj -267 -67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj -267 -87 loadbang;
#X obj -267 -27 s myMet;
#X obj 487 407 s ELEV;
#X obj 508 344 line \$1 50;
#X obj 487 385 line \$1 50;
#X obj 466 427 line \$1 50;
#X obj 445 470 line \$1 50;
#X obj 424 511 line \$1 50;
#X obj 403 549 line \$1 50;
#X obj -267 -48 metro 100;
#X obj -314 475 r blust;
#X obj -314 498 * 100;
#X floatatom -313 519 0 0 0 0 - - -;
#X text -266 497 Free Stream Turbulence Intensity (%);
#X obj -256 455 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 59 540 freqCalcCyl4No_D4Mach;
#X obj -156 162 delwrite~ varwind 3000;
#X obj -145 116 TUCalc2;
#X obj -145 140 s blust;
#X msg -156 65 \$1 50;
#X obj -156 85 line~;
#X obj 26 14 hsl 80 25 0.1 50 0 0 empty empty Air_Speed 2 15 0 10 -204800
-1 -1 3625 1;
#X floatatom 23 43 0 0 0 0 - - -;
#X text 154 155 Frequency;
#X floatatom 156 172 0 0 0 0 - - -;
#X floatatom 155 211 0 0 0 0 - - -;
#X text 153 194 Reynolds number;
#X floatatom 155 249 0 0 0 0 - - -;
#X text 153 232 Strouhal number;
#X obj -31 497 snapshot~;
#X obj -31 474 r myMet;
#X obj 160 506 snapshot~;
#X obj 160 483 r myMet;
#X obj 250 523 snapshot~;
#X obj 250 500 r myMet;
#X obj 154 37 bng 15 250 50 0 empty empty empty 17 7 0 10 -4032 -1
-1;
#X text 150 18 Preset 1;
#X obj 215 37 bng 15 250 50 0 empty empty empty 17 7 0 10 -260097 -1
-1;
#X text 211 18 Preset 2;
#X obj 154 75 bng 15 250 50 0 empty empty empty 17 7 0 10 -257985 -1
-1;
#X obj 215 75 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X text 150 56 Preset 3;
#X text 211 56 Preset 4;
#X obj -41 -25 r SPEED;
#X obj -47 198 r AZIM;
#X obj 147 -35 loadbang;
#X obj -64 280 r PAN;
#X obj 529 304 line \$1 50;
#X obj 529 323 s PAN;
#X obj 419 239 unpack f f f f f f f f;
#X obj 548 263 line \$1 50;
#X obj 548 282 s AZIM;
#X msg 418 101 23 0.006 5 4 85 7e+08 0.5 0;
#X msg 446 186 28 0.033 7 6 35 7e+08 0.45 -5;
#X msg 439 153 17 0.003 10 3 -100 7e+08 0.8 55;
#X msg 427 125 24 0.01 15 6 20 7e+08 0.4 -20;
#X obj 183 113 bng 15 250 50 0 empty empty empty 17 7 0 10 -258113
-1 -1;
#X text 178 95 Stop;
#X msg 460 208 0.1 0.008 7 6 90 0 0.5 0;
#X text 364 -94 Holding patch for all the elements required to generate
the Aeolian tone sound.;
#X text 637 118 Presets;
#X text 7 566 Patch that performs the calculations \, holds the noise
sources and filters.;
#X text -398 240 Additional objects should 3D rotation of the source
be required;
#X connect 0 0 1 0;
#X connect 0 0 55 0;
#X connect 2 0 3 0;
#X connect 2 0 55 5;
#X connect 4 0 5 0;
#X connect 4 0 55 3;
#X connect 6 0 7 0;
#X connect 6 0 55 4;
#X connect 8 0 9 0;
#X connect 8 0 55 2;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 13 0 12 0;
#X connect 13 0 36 0;
#X connect 14 0 15 0;
#X connect 14 0 55 1;
#X connect 16 0 17 0;
#X connect 18 0 16 0;
#X connect 19 0 20 0;
#X connect 21 0 19 0;
#X connect 22 0 23 0;
#X connect 24 0 22 0;
#X connect 28 0 13 0;
#X connect 30 0 8 0;
#X connect 32 0 14 0;
#X connect 34 0 0 0;
#X connect 37 0 6 0;
#X connect 39 0 49 0;
#X connect 40 0 39 0;
#X connect 43 0 27 0;
#X connect 44 0 42 0;
#X connect 45 0 29 0;
#X connect 46 0 31 0;
#X connect 47 0 33 0;
#X connect 48 0 35 0;
#X connect 49 0 41 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 55 0 69 0;
#X connect 55 1 71 0;
#X connect 55 2 73 0;
#X connect 57 0 58 0;
#X connect 59 0 60 0;
#X connect 60 0 56 0;
#X connect 60 0 57 0;
#X connect 61 0 59 0;
#X connect 61 0 62 0;
#X connect 69 0 64 0;
#X connect 70 0 69 0;
#X connect 71 0 65 0;
#X connect 72 0 71 0;
#X connect 73 0 67 0;
#X connect 74 0 73 0;
#X connect 75 0 92 0;
#X connect 77 0 95 0;
#X connect 79 0 94 0;
#X connect 80 0 93 0;
#X connect 83 0 61 0;
#X connect 84 0 4 0;
#X connect 85 0 75 0;
#X connect 86 0 2 0;
#X connect 87 0 88 0;
#X connect 89 0 48 0;
#X connect 89 1 47 0;
#X connect 89 2 46 0;
#X connect 89 3 45 0;
#X connect 89 4 44 0;
#X connect 89 5 43 0;
#X connect 89 6 87 0;
#X connect 89 7 90 0;
#X connect 90 0 91 0;
#X connect 92 0 89 0;
#X connect 93 0 89 0;
#X connect 94 0 89 0;
#X connect 95 0 89 0;
#X connect 96 0 98 0;
#X connect 98 0 89 0;
#X coords 0 -1 1 1 270 430 2 0 0;