view Blog Patches/AeolianTone_Test.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
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Thu, 05 Jan 2017 14:40:06 +0000
parents faafec65e1de
children
line wrap: on
line source
#N canvas 91 102 1333 826 10;
#X obj 249 -64 loadbang;
#X obj 296 26 hsl 128 15 0.0005 0.5 1 0 empty empty empty -2 -8 0 10
-262144 -1 -1 4233 1;
#X floatatom 303 52 8 0 0 0 - - -;
#X obj 364 302 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6350 1;
#X floatatom 394 331 5 0 0 0 - - -;
#X text 434 29 Diameter;
#X obj 337 184 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 6350 1;
#X floatatom 365 213 5 0 0 0 - - -;
#X obj 350 239 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 7937 1;
#X floatatom 380 268 5 0 0 0 - - -;
#X obj 323 127 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
-1 -1 8877 1;
#X floatatom 339 156 5 0 0 0 - - -;
#X text 512 303 Pan Value;
#X obj -189 443 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj -126 443 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text -129 352 Gain;
#X obj -181 323 loadbang;
#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 -190 400 pd opLevels;
#X msg -181 346 5;
#X obj -187 371 hsl 100 25 0.1 1e+11 1 0 empty empty empty -2 -8 0
10 -262144 -1 -1 7502 1;
#X obj 422 -121 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1
-1;
#X msg 178 167 0;
#X msg 135 285 0.5;
#X obj 249 -40 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 309 84 hsl 128 15 1 20 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2005 1;
#X floatatom 331 103 8 0 0 0 - - -;
#X msg 215 67 4;
#X text 441 68 Length;
#X obj 422 -80 s SET_UP;
#X obj 294 7 r SET_UP;
#X obj 364 62 r SET_UP;
#X obj 434 101 r SET_UP;
#X obj 422 153 r SET_UP;
#X obj 432 213 r SET_UP;
#X obj 438 271 r SET_UP;
#X text 461 128 Obs Distance;
#X obj 378 360 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6350 1;
#X floatatom 415 389 5 0 0 0 - - -;
#X obj 460 334 r SET_UP;
#X obj 391 420 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6350 1;
#X floatatom 410 447 5 0 0 0 - - -;
#X obj 484 388 r SET_UP;
#X obj 405 472 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6350 1;
#X floatatom 416 494 5 0 0 0 - - -;
#X obj 500 441 r SET_UP;
#X msg 113 343 0;
#X msg 93 397 0;
#X msg 74 450 0;
#X text 541 415 Source Rotation Y;
#X text 557 468 Source Rotation Z;
#X msg 281 -21 0;
#X obj -400 248 unpack f f f f f f;
#X obj -295 294 s GAIN;
#X obj -190 300 r GAIN;
#X obj -337 380 s DIST;
#X obj 500 101 r DIST;
#X obj -358 422 s LEN;
#X obj 478 61 r LEN;
#X obj -379 461 s DIA;
#X obj 476 -4 r DIA;
#X obj -400 499 s SPEED;
#X floatatom -247 401 8 0 0 0 - - -;
#X text 489 240 Obs Elevation;
#X text 476 184 Obs Azimuth;
#X obj 496 209 r ELEV;
#X obj 529 261 s elev;
#X obj -11 148 snapshot~;
#X floatatom -11 175 10 0 0 0 - - -;
#X text -14 193 Wind Speed;
#X text 526 361 Source Rotation X;
#X msg 199 110 4;
#X obj 70 148 snapshot~;
#X floatatom 70 175 10 0 0 0 - - -;
#X text 67 193 Wind Direction;
#X obj 618 -69 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 618 -94 loadbang;
#X obj 618 -23 s myMet;
#X obj 70 125 r myMet;
#X obj -11 125 r myMet;
#X msg 158 222 45;
#X msg 236 11 0.005;
#X obj -316 338 s ELEV;
#X obj -295 275 line \$1 50;
#X obj -316 316 line \$1 50;
#X obj -337 358 line \$1 50;
#X obj -358 401 line \$1 50;
#X obj -379 442 line \$1 50;
#X obj -400 480 line \$1 50;
#X obj 618 -47 metro 100;
#X obj 416 526 r blust;
#X obj 416 549 * 100;
#X floatatom 434 578 0 0 0 0 - - -;
#X text 464 548 Free Stream Turbulence Intensity (%);
#X obj 474 506 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X msg -400 130 23 0.006 5 4 85 7e+08;
#X msg -391 154 24 0.01 15 6 77 7e+08;
#X msg -379 182 17 0.0015 10 3 -100 7e+08;
#X msg -372 215 28 0.04 7 6 35 7e+08;
#X obj 293 577 freqCalcCyl4No_D4Mach;
#X obj -153 135 delwrite~ varwind 3000;
#X obj -142 89 TUCalc2;
#X obj -142 113 s blust;
#X msg -153 38 \$1 50;
#X obj -153 58 line~;
#X obj -150 -11 hsl 80 40 0.1 50 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2800 1;
#X connect 0 0 23 0;
#X connect 1 0 2 0;
#X connect 1 0 98 0;
#X connect 3 0 4 0;
#X connect 3 0 98 5;
#X connect 6 0 7 0;
#X connect 6 0 98 3;
#X connect 8 0 9 0;
#X connect 8 0 65 0;
#X connect 8 0 98 4;
#X connect 10 0 11 0;
#X connect 10 0 98 2;
#X connect 16 0 18 0;
#X connect 17 0 13 0;
#X connect 17 1 14 0;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X connect 19 0 61 0;
#X connect 20 0 28 0;
#X connect 21 0 6 0;
#X connect 22 0 3 0;
#X connect 23 0 50 0;
#X connect 23 0 80 0;
#X connect 23 0 70 0;
#X connect 23 0 21 0;
#X connect 23 0 79 0;
#X connect 23 0 22 0;
#X connect 23 0 26 0;
#X connect 23 0 45 0;
#X connect 23 0 46 0;
#X connect 23 0 47 0;
#X connect 24 0 25 0;
#X connect 24 0 98 1;
#X connect 26 0 24 0;
#X connect 29 0 1 0;
#X connect 30 0 24 0;
#X connect 31 0 10 0;
#X connect 32 0 6 0;
#X connect 33 0 8 0;
#X connect 34 0 3 0;
#X connect 36 0 37 0;
#X connect 38 0 36 0;
#X connect 39 0 40 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 44 0 42 0;
#X connect 45 0 36 0;
#X connect 46 0 39 0;
#X connect 47 0 42 0;
#X connect 51 0 87 0;
#X connect 51 1 86 0;
#X connect 51 2 85 0;
#X connect 51 3 84 0;
#X connect 51 4 83 0;
#X connect 51 5 82 0;
#X connect 53 0 19 0;
#X connect 55 0 10 0;
#X connect 57 0 24 0;
#X connect 59 0 1 0;
#X connect 64 0 8 0;
#X connect 66 0 67 0;
#X connect 70 0 10 0;
#X connect 71 0 72 0;
#X connect 74 0 88 0;
#X connect 75 0 74 0;
#X connect 77 0 71 0;
#X connect 78 0 66 0;
#X connect 79 0 8 0;
#X connect 80 0 1 0;
#X connect 82 0 52 0;
#X connect 83 0 81 0;
#X connect 84 0 54 0;
#X connect 85 0 56 0;
#X connect 86 0 58 0;
#X connect 87 0 60 0;
#X connect 88 0 76 0;
#X connect 89 0 90 0;
#X connect 90 0 91 0;
#X connect 94 0 51 0;
#X connect 95 0 51 0;
#X connect 96 0 51 0;
#X connect 97 0 51 0;
#X connect 100 0 101 0;
#X connect 102 0 103 0;
#X connect 103 0 99 0;
#X connect 103 0 100 0;
#X connect 104 0 102 0;
#X coords 0 826 1 825 200 140 0;