view Katana/freqCalcCyl4HiFi.pd @ 303:8b51c20529a6

Edgetone development models

#N canvas 294 46 1298 833 10;
#X text 728 172 Mass Density of Air;
#X obj 850 173 *~ 1.225;
#X obj 850 248 /~ 1.81e-05;
#X obj 850 203 *~ 1;
#X obj 850 366 /~ 1;
#X obj 850 342 *~;
#X obj 364 57 inlet;
#X text 883 292 Reynolds Number;
#X text 730 359 Strouhal Number;
#X text 880 228 Viscosity;
#X obj 850 435 s~ \$0-myFreq;
#X obj 483 674 *~;
#X obj 777 51 inlet;
#X floatatom 722 120 8 0 0 0 - - -;
#X text 814 454 Calculates the frequency;
#X text 815 466 based on the physics of;
#X text 296 477 Calculates the gain of the dipole source;
#X text 671 34 Azimuth;
#X text 782 33 Pan;
#X text 594 33 Elevation;
#X text 525 36 Distance;
#X text 359 36 Diameter;
#X obj 850 313 newStrou;
#X floatatom 364 101 0 0 0 0 - - -;
#X obj 483 743 throw~ l;
#X obj 510 721 throw~ r;
#X obj 483 699 fcpan;
#X obj 553 469 s~ \$0-liftNoiseGain;
#X obj 750 344 s~ \$0-str;
#X obj 777 120 s \$0-thisPan;
#X obj 483 530 r~ \$0-liftNoiseGain;
#X obj 510 674 r \$0-thisPan;
#X text 464 504 Noise spectrum calculation;
#X obj 498 622 hip~;
#X obj 498 577 rpole~ 0.99;
#X text 544 488 Calculates the gain of the wake;
#N canvas 1021 287 444 428 corrLen 0;
#X obj 103 71 inlet~;
#X obj 88 200 outlet~;
#X obj 88 143 *~;
#X obj 124 93 sig~ -0.245;
#X obj 103 119 pow~;
#X text 234 22 Y = 10^b . X^m;
#X text 235 40 b = 1.536;
#X text 235 56 m = -0.245;
#X text 80 297 Equation of line derived from Norberg 2001;
#X obj 88 169 max~ 1;
#X obj 88 46 sig~ 44.67;
#X connect 0 0 4 0;
#X connect 2 0 9 0;
#X connect 3 0 4 1;
#X connect 4 0 2 1;
#X connect 9 0 1 0;
#X connect 10 0 2 0;
#X restore 730 278 pd corrLen Calc;
#X obj 498 649 hip~;
#X obj 777 75 max 0.01;
#X obj 777 98 min 0.99;
#X obj 1034 43 noise~;
#X obj 1034 66 s~ \$0-thisNoise;
#X obj 498 554 r~ \$0-thisNoise;
#X text 815 479 the object and environment;
#N canvas 308 58 1027 635 StBandwidth 0;
#X obj 460 365 swap 1;
#X obj 460 391 /;
#X obj 460 342 / 100;
#X obj 461 434 outlet;
#X text 437 453 Q value;
#X obj 477 -36 r myMet;
#X obj 477 -14 snapshot~;
#X obj 203 164 spigot;
#X obj 219 187 spigot;
#X obj 236 140 > 0;
#X obj 219 233 + 0.9797;
#X obj 219 208 * 4.624e-05;
#X obj 602 150 spigot;
#X obj 618 173 spigot;
#X obj 651 149 < 1e+06;
#X obj 618 216 * 1.227e-10;
#X obj 618 196 *;
#X obj 690 215 * -8.553e-05;
#X obj 618 261 + 16.5;
#X obj 618 238 +;
#X text -84 298 First section of the Reynolds number - DeltaF/F relationship
is linear and did not appear to be reliant on current TU values;
#X text 565 329 Third section of the Reynolds number - DeltaF/F relationship
is linear and did not appear to be reliant on current TU values;
#X text 114 -16 Middle section of Reynolds number - DeltaF/F relationship
is also linear but depends on TU Value;
#X obj 461 412 max 0.005;
#X obj 635 126 > 193260;
#X obj 252 163 < 193260;
#X obj 531 -36 inlet~;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 23 0;
#X connect 2 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 14 0;
#X connect 6 0 12 0;
#X connect 6 0 9 0;
#X connect 6 0 7 0;
#X connect 6 0 24 0;
#X connect 6 0 25 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 9 0 7 1;
#X connect 10 0 2 0;
#X connect 11 0 10 0;
#X connect 12 0 13 0;
#X connect 13 0 17 0;
#X connect 13 0 16 1;
#X connect 13 0 16 0;
#X connect 14 0 13 1;
#X connect 15 0 19 0;
#X connect 16 0 15 0;
#X connect 17 0 19 1;
#X connect 18 0 2 0;
#X connect 19 0 18 0;
#X connect 23 0 3 0;
#X connect 24 0 12 1;
#X connect 25 0 8 1;
#X connect 26 0 6 0;
#X restore 1003 264 pd StBandwidth;
#X obj 1003 287 s \$0-Qval;
#X obj 584 597 r myMet;
#X obj 574 618 snapshot~;
#X obj 574 577 r~ \$0-myFreq;
#X text 274 35 Source Speed;
#X obj 529 55 inlet~;
#X obj 601 54 inlet~;
#X obj 675 53 inlet~;
#X obj 534 78 s~ \$0-dist;
#X obj 261 59 inlet~;
#X obj 301 229 /~ 343.56;
#N canvas 137 77 981 645 GoldfreqGainSword 0;
#N canvas 759 125 286 294 pow6 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 163 outlet~;
#X obj 136 184 snapshot~;
#X obj 136 159 metro 100;
#X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 136 211 10 0 0 0 - - -;
#X obj 216 210 outlet;
#X obj 136 111 loadbang;
#X obj 106 67 *~;
#X obj 47 93 *~;
#X obj 47 118 *~;
#X obj 372 202 *;
#X obj 372 228 *;
#X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 374 288 10 0 0 0 - - -;
#X obj 303 20 t f b;
#X floatatom 455 55 5 0 0 0 - - -;
#X obj 372 260 *;
#X obj 400 202 *;
#X msg 303 -4 6;
#X obj 434 201 *;
#X connect 0 0 11 0;
#X connect 1 0 11 1;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 2 0 1 1;
#X connect 2 0 10 0;
#X connect 2 0 10 1;
#X connect 2 0 1 0;
#X connect 4 0 7 0;
#X connect 4 0 8 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 9 0 6 0;
#X connect 10 0 12 1;
#X connect 11 0 12 0;
#X connect 12 0 4 0;
#X connect 12 0 3 0;
#X connect 13 0 14 0;
#X connect 14 0 19 0;
#X connect 15 0 13 0;
#X connect 15 0 13 1;
#X connect 15 0 18 0;
#X connect 15 0 20 0;
#X connect 15 0 20 1;
#X connect 17 0 13 0;
#X connect 17 0 13 1;
#X connect 17 0 20 0;
#X connect 17 0 20 1;
#X connect 17 0 22 0;
#X connect 17 0 22 1;
#X connect 17 1 13 0;
#X connect 17 1 20 0;
#X connect 17 1 22 0;
#X connect 19 0 16 0;
#X connect 20 0 14 1;
#X connect 21 0 17 0;
#X connect 22 0 19 1;
#X restore 37 105 pd pow6;
#X obj -9 107 *~;
#X obj 37 131 *~;
#X text 233 77 Distance;
#X text 542 503 Calculates Drag Dipole gain;
#X text -134 486 Calculates Lift Dipole gain;
#X obj -9 67 inlet~;
#X obj 37 71 inlet~;
#X text 146 125 Diameter;
#X obj 109 124 inlet;
#X obj 37 545 outlet~;
#X obj 576 478 outlet~;
#X text 129 217 Length;
#X obj 37 244 *~ 1;
#X obj 52 424 /~ 360;
#X obj 52 473 *~;
#X obj 37 496 *~;
#X text -108 67 Strouhal number;
#X text 84 166 Corr Length;
#X obj 37 303 *~ 2.50663;
#X obj 37 193 *~ 1.225;
#X text -89 189 Mass Density of Air;
#X text -37 298 Sqrt(2xpi);
#X obj 150 425 /~ 360;
#X obj 150 471 *~;
#X obj 150 447 cos~;
#X obj 37 522 *~;
#X text 180 165 Speed of Sound to power 3;
#X obj 343 168 cos~;
#X obj 343 191 *~;
#X obj 291 192 sig~ 1;
#X obj 328 222 -~;
#N canvas 1150 227 286 289 pow4 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 163 outlet~;
#X obj 136 184 snapshot~;
#X obj 136 159 metro 100;
#X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 136 211 10 0 0 0 - - -;
#X obj 216 210 outlet;
#X obj 136 111 loadbang;
#X obj 47 93 *~;
#X connect 0 0 10 0;
#X connect 1 0 10 1;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 2 0 1 1;
#X connect 2 0 1 0;
#X connect 4 0 7 0;
#X connect 4 0 8 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 9 0 6 0;
#X connect 10 0 3 0;
#X connect 10 0 4 0;
#X restore 328 245 pd pow4;
#X obj 229 277 *~;
#X obj 37 340 /~;
#X obj 576 453 *~ 0.1;
#X obj 541 295 +~ 90;
#X obj 541 318 /~ 360;
#X obj 541 364 *~;
#X obj 541 340 sin~;
#X obj 591 314 /~ 360;
#X obj 591 360 *~;
#X obj 591 336 cos~;
#X obj 576 391 *~;
#X text 421 14 Azimuth;
#X text 320 16 Elevation;
#X text 359 222 Remember - Goldstein moves cylinder;
#X obj 343 149 /~ 360;
#X obj 576 430 *~;
#X obj 88 145 *~ 1;
#X obj 37 165 *~;
#X obj 52 450 sin~;
#X obj 229 93 inlet~;
#X obj 323 34 inlet~;
#X obj 425 32 inlet~;
#X obj 229 117 *~;
#X obj 229 146 *~ 4.05513e+07;
#X obj 229 199 *~ 32;
#X text 91 65 Source speed;
#X obj 58 218 r bladeLen;
#X obj 88 105 sig~ 7;
#X text 99 89 Set Corr Length;
#X obj 493 95 inlet~;
#X text 457 76 Mach Number;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 50 0;
#X connect 6 0 1 0;
#X connect 6 0 1 1;
#X connect 7 0 0 0;
#X connect 9 0 49 1;
#X connect 13 0 19 0;
#X connect 14 0 51 0;
#X connect 15 0 16 1;
#X connect 16 0 26 0;
#X connect 19 0 34 0;
#X connect 20 0 13 0;
#X connect 23 0 25 0;
#X connect 24 0 26 1;
#X connect 25 0 24 0;
#X connect 25 0 24 1;
#X connect 26 0 10 0;
#X connect 28 0 29 0;
#X connect 29 0 31 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 33 1;
#X connect 33 0 34 1;
#X connect 34 0 16 0;
#X connect 34 0 48 1;
#X connect 35 0 11 0;
#X connect 36 0 37 0;
#X connect 37 0 39 0;
#X connect 38 0 43 0;
#X connect 39 0 38 0;
#X connect 39 0 38 1;
#X connect 40 0 42 0;
#X connect 41 0 43 1;
#X connect 42 0 41 0;
#X connect 42 0 41 1;
#X connect 43 0 48 0;
#X connect 47 0 28 0;
#X connect 48 0 35 0;
#X connect 49 0 50 1;
#X connect 50 0 20 0;
#X connect 51 0 15 0;
#X connect 51 0 15 1;
#X connect 52 0 55 0;
#X connect 52 0 55 1;
#X connect 53 0 14 0;
#X connect 53 0 36 0;
#X connect 53 0 47 0;
#X connect 54 0 40 0;
#X connect 54 0 23 0;
#X connect 55 0 56 0;
#X connect 56 0 57 0;
#X connect 57 0 33 0;
#X connect 59 0 13 1;
#X connect 60 0 49 0;
#X connect 62 0 29 1;
#X restore 315 432 pd GoldfreqGainSword;
#N canvas 350 46 1058 790 GoldnoiseGainSword 0;
#X text -21037 364 Mass Density of Air \, squared;
#X text -20777 412 Distance;
#N canvas 759 125 235 275 pow8 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 147 outlet~;
#X obj 128 146 snapshot~;
#X obj 128 121 metro 100;
#X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 128 173 10 0 0 0 - - -;
#X obj 128 73 loadbang;
#X obj 47 93 *~;
#X obj 47 121 *~;
#X connect 0 0 9 0;
#X connect 1 0 9 1;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 2 0 1 1;
#X connect 2 0 1 0;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 9 0 10 1;
#X connect 10 0 3 0;
#X connect 10 0 4 0;
#X restore -20846 224 pd pow8;
#X obj -20846 195 inlet~;
#X obj -20807 286 inlet;
#X obj -20861 617 outlet~;
#X text -20858 648 Gain proportional to windspeed to power 8 for spectrum
;
#X text -20771 287 Diameter;
#X text -21027 627 Calculates wake gain;
#X text -20592 61 Azimuth;
#X text -20538 61 Elevation;
#X obj -20861 371 *~ 1.225;
#N canvas 759 125 250 309 pow5 0;
#X obj 47 67 *~;
#X obj 76 35 inlet~;
#X obj 47 170 outlet~;
#X obj 136 173 snapshot~;
#X obj 136 148 metro 100;
#X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 136 200 10 0 0 0 - - -;
#X obj 136 100 loadbang;
#X obj 47 87 *~;
#X obj 47 118 *~;
#X connect 0 0 8 0;
#X connect 0 0 8 1;
#X connect 1 0 0 0;
#X connect 1 0 0 1;
#X connect 1 0 9 1;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 7 0 5 0;
#X connect 8 0 9 0;
#X connect 9 0 2 0;
#X connect 9 0 3 0;
#X restore -20705 475 pd pow5;
#X obj -20705 451 sig~ 343.56;
#N canvas 875 261 250 309 pow5 0;
#X obj 47 67 *~;
#X obj 76 35 inlet~;
#X obj 47 170 outlet~;
#X obj 136 173 snapshot~;
#X obj 136 148 metro 100;
#X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 136 200 10 0 0 0 - - -;
#X obj 136 100 loadbang;
#X obj 47 87 *~;
#X obj 47 118 *~;
#X connect 0 0 8 0;
#X connect 0 0 8 1;
#X connect 1 0 0 0;
#X connect 1 0 0 1;
#X connect 1 0 9 1;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 7 0 5 0;
#X connect 8 0 9 0;
#X connect 9 0 2 0;
#X connect 9 0 3 0;
#X restore -20670 401 pd pow5;
#X obj -20624 216 /~ 360;
#X obj -20624 243 cos~;
#X obj -20624 349 *~;
#X obj -20670 348 sig~ 1;
#X obj -20670 375 -~;
#X obj -20705 322 sig~ 3.1416;
#X obj -20705 347 *~;
#X obj -20720 299 sig~ 16;
#X obj -20720 371 *~;
#X obj -20720 429 *~;
#X obj -20720 502 *~;
#X obj -20777 530 *~;
#X obj -20861 574 /~;
#X obj -20894 195 inlet~;
#X obj -20894 222 *~;
#X obj -20828 312 *~ 1;
#X obj -20861 251 *~;
#X obj -20861 347 *~;
#X obj -20861 444 *~ 1;
#X obj -20861 528 *~ 2.50663;
#X text -20806 371 Length;
#X obj -20587 285 cos~;
#X obj -20587 262 /~ 360;
#X obj -20624 306 *~;
#X text -20929 530 Sqrt(2*pi);
#X obj -20809 392 r bladeLen;
#X obj -20591 78 inlet~;
#X obj -20537 78 inlet~;
#X obj -20777 433 inlet~;
#X obj -20777 459 *~;
#X text -20847 176 Source speed;
#X obj -20861 488 /~ 10000;
#X text -21131 486 comment;
#X text -20938 488 Scale Factor;
#X obj -20417 261 inlet~;
#X text -20421 237 Mach Number;
#X obj -20828 253 sig~ 7;
#X text -20794 236 Set Corrolation Length;
#X obj -20194 346 /~ 360;
#X obj -20194 391 *~;
#X obj -20340 168 sig~ 1;
#X obj -20325 195 sig~ 0.7;
#N canvas 927 234 183 208 pow4 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 120 outlet~;
#X obj 47 93 *~;
#X connect 0 0 4 0;
#X connect 1 0 4 1;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 2 0 1 1;
#X connect 2 0 1 0;
#X connect 4 0 3 0;
#X restore -20310 328 pd pow4;
#X obj -20325 350 *~;
#X obj -20240 365 sin~;
#X obj -20240 342 *~ 2;
#X obj -20240 389 *~;
#X obj -20277 368 +~ 3;
#X obj -20277 389 /~ 4;
#X obj -20277 419 *~;
#X obj -20325 481 -~;
#X obj -20340 507 +~;
#X obj -20194 369 sin~;
#X obj -20260 567 snapshot~;
#X obj -20260 544 r myMet;
#X floatatom -20260 592 0 0 0 0 - - -;
#X obj -20277 444 *~;
#X obj -20624 155 sig~ 180;
#X obj -20624 188 -~;
#X obj -20861 595 *~;
#X connect 2 0 31 1;
#X connect 3 0 2 0;
#X connect 4 0 30 1;
#X connect 11 0 33 0;
#X connect 12 0 25 1;
#X connect 13 0 12 0;
#X connect 14 0 24 1;
#X connect 15 0 16 0;
#X connect 15 0 60 0;
#X connect 16 0 38 0;
#X connect 16 0 57 0;
#X connect 17 0 19 1;
#X connect 18 0 19 0;
#X connect 19 0 14 0;
#X connect 20 0 21 0;
#X connect 20 0 21 1;
#X connect 21 0 23 1;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 26 1;
#X connect 26 0 27 1;
#X connect 27 0 74 0;
#X connect 28 0 29 0;
#X connect 28 0 29 1;
#X connect 29 0 31 0;
#X connect 30 0 32 1;
#X connect 31 0 32 0;
#X connect 32 0 11 0;
#X connect 33 0 46 0;
#X connect 34 0 27 0;
#X connect 36 0 38 1;
#X connect 37 0 36 0;
#X connect 38 0 17 0;
#X connect 40 0 33 1;
#X connect 41 0 37 0;
#X connect 41 0 53 0;
#X connect 42 0 73 1;
#X connect 43 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 26 0;
#X connect 46 0 34 0;
#X connect 49 0 17 1;
#X connect 51 0 30 0;
#X connect 53 0 67 0;
#X connect 54 0 71 1;
#X connect 55 0 66 0;
#X connect 56 0 58 0;
#X connect 56 0 62 0;
#X connect 57 0 58 1;
#X connect 58 0 65 0;
#X connect 59 0 61 0;
#X connect 59 0 61 1;
#X connect 60 0 59 0;
#X connect 61 0 64 1;
#X connect 62 0 63 0;
#X connect 63 0 64 0;
#X connect 64 0 71 0;
#X connect 65 0 66 1;
#X connect 66 0 68 0;
#X connect 66 0 74 1;
#X connect 67 0 54 1;
#X connect 67 0 54 0;
#X connect 68 0 70 0;
#X connect 69 0 68 0;
#X connect 71 0 65 1;
#X connect 72 0 73 0;
#X connect 73 0 15 0;
#X connect 74 0 5 0;
#X restore 553 441 pd GoldnoiseGainSword;
#X obj 261 79 s~ \$0-sourceSpeed;
#N canvas 707 280 823 563 doppler 0;
#X obj 88 329 inlet~;
#X obj 88 467 outlet~;
#X obj 186 256 r~ \$0-azim;
#X obj 186 279 /~ 360;
#X obj 171 233 r~ \$0-sourceSpeed;
#X obj 186 301 cos~;
#X obj 171 322 *~;
#X obj 286 114 atan;
#X obj 286 93 /;
#X obj 286 137 * 57.2958;
#X floatatom 326 161 0 0 0 0 - - -;
#X obj 286 183 line~;
#X msg 286 161 \$1 15;
#X obj 286 247 -~;
#X obj 286 267 >~ 0;
#X obj 286 289 snapshot~;
#X floatatom 286 311 0 0 0 0 - - -;
#X obj 286 207 +~ 90;
#X obj 210 370 *~ -1;
#X obj 171 349 spigot~;
#X obj 96 359 sig~ 323.56;
#X obj 156 389 +~;
#X obj 141 411 /~;
#X obj 88 435 *~;
#X obj 333 267 r myMet;
#X obj 286 53 r conProX;
#X obj 301 73 r conProY;
#X text 423 61 Calculate the azimuth angle from the projected position
of the oberver in the plane of the sword. Peak position is when the
current azimuth is the same as the observer azimuth.;
#X obj 301 227 inlet~;
#X connect 0 0 23 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 19 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 10 0;
#X connect 9 0 12 0;
#X connect 11 0 17 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 0 19 1;
#X connect 17 0 13 0;
#X connect 18 0 21 1;
#X connect 19 0 21 1;
#X connect 19 1 18 0;
#X connect 20 0 21 0;
#X connect 20 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 23 1;
#X connect 23 0 1 0;
#X connect 24 0 15 0;
#X connect 25 0 8 0;
#X connect 26 0 8 1;
#X connect 28 0 13 1;
#X restore 850 404 pd doppler;
#X obj 608 76 s~ \$0-elev;
#X obj 683 76 s~ \$0-azim;
#N canvas 121 75 1255 760 Dipoles 0;
#X obj 101 65 r~ \$0-myFreq;
#X obj 393 69 r~ \$0-myFreq;
#X obj 664 66 r~ \$0-myFreq;
#X obj 664 90 *~ 5;
#X obj 393 93 *~ 3;
#X obj 124 474 r~ \$0-myFreq;
#X obj 124 502 *~ 2;
#X obj 397 472 r~ \$0-myFreq;
#X obj 397 495 *~ 4;
#X obj 210 199 *~;
#X obj 210 264 throw~ l;
#X obj 237 241 throw~ r;
#X obj 210 220 fcpan;
#X obj 210 108 vcf~ 3;
#X obj 237 198 r \$0-thisPan;
#X obj 210 67 r~ \$0-thisNoise;
#X obj 480 293 *~;
#X obj 480 358 throw~ l;
#X obj 507 335 throw~ r;
#X obj 480 314 fcpan;
#X obj 480 116 vcf~ 3;
#X obj 507 292 r \$0-thisPan;
#X obj 480 68 r~ \$0-thisNoise;
#X obj 750 279 *~;
#X obj 750 344 throw~ l;
#X obj 777 321 throw~ r;
#X obj 750 300 fcpan;
#X obj 750 107 vcf~ 3;
#X obj 777 278 r \$0-thisPan;
#X obj 750 65 r~ \$0-thisNoise;
#X obj 215 592 *~;
#X obj 215 657 throw~ l;
#X obj 242 634 throw~ r;
#X obj 215 613 fcpan;
#X obj 215 516 vcf~ 3;
#X obj 242 591 r \$0-thisPan;
#X obj 215 472 r~ \$0-thisNoise;
#X obj 489 659 *~;
#X obj 489 724 throw~ l;
#X obj 516 701 throw~ r;
#X obj 489 680 fcpan;
#X obj 489 514 vcf~ 3;
#X obj 516 658 r \$0-thisPan;
#X obj 489 472 r~ \$0-thisNoise;
#X text 273 27 Generates the sound associated with the lift dipole.
;
#X text 173 440 Generates the sound associated with the drag dipole.
;
#X obj 270 87 r \$0-Qval;
#X obj 530 92 r \$0-Qval;
#X obj 800 87 r \$0-Qval;
#X obj 535 493 r \$0-Qval;
#X obj 260 494 r \$0-Qval;
#X floatatom 277 122 5 0 0 0 - - -;
#X obj 210 134 vcf~ 3;
#X obj 480 138 vcf~ 3;
#X obj 750 131 vcf~ 3;
#X obj 489 535 vcf~ 3;
#X obj 215 537 vcf~ 3;
#X obj 539 240 pow~;
#X obj 539 120 sig~ 10;
#X obj 560 163 /~ 2e-05;
#X obj 539 263 *~ 2e-05;
#X obj 560 213 *~ 0.6;
#X obj 628 555 log~;
#X obj 607 600 pow~;
#X obj 607 492 sig~ 10;
#X obj 629 535 /~ 2e-05;
#X obj 607 623 *~ 2e-05;
#X obj 628 578 *~ 0.125;
#X obj 821 179 log~;
#X obj 800 224 pow~;
#X obj 800 116 sig~ 10;
#X obj 822 159 /~ 2e-05;
#X obj 800 247 *~ 2e-05;
#X obj 821 202 *~ 0.1;
#X obj 560 190 log~ 10;
#X obj 632 166 sig~ 10;
#X obj 884 159 sig~ 10;
#X obj 341 52 inlet~;
#X obj 438 392 inlet~;
#X connect 0 0 13 1;
#X connect 0 0 52 1;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 27 1;
#X connect 3 0 54 1;
#X connect 4 0 20 1;
#X connect 4 0 53 1;
#X connect 5 0 6 0;
#X connect 6 0 34 1;
#X connect 6 0 56 1;
#X connect 7 0 8 0;
#X connect 8 0 41 1;
#X connect 8 0 55 1;
#X connect 9 0 12 0;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 13 0 52 0;
#X connect 14 0 12 1;
#X connect 15 0 13 0;
#X connect 16 0 19 0;
#X connect 19 0 17 0;
#X connect 19 1 18 0;
#X connect 20 0 53 0;
#X connect 21 0 19 1;
#X connect 22 0 20 0;
#X connect 23 0 26 0;
#X connect 26 0 24 0;
#X connect 26 1 25 0;
#X connect 27 0 54 0;
#X connect 28 0 26 1;
#X connect 29 0 27 0;
#X connect 30 0 33 0;
#X connect 33 0 31 0;
#X connect 33 1 32 0;
#X connect 34 0 56 0;
#X connect 35 0 33 1;
#X connect 36 0 34 0;
#X connect 40 0 38 0;
#X connect 40 1 39 0;
#X connect 41 0 55 0;
#X connect 42 0 40 1;
#X connect 43 0 41 0;
#X connect 46 0 13 2;
#X connect 46 0 51 0;
#X connect 46 0 52 2;
#X connect 47 0 20 2;
#X connect 47 0 53 2;
#X connect 48 0 27 2;
#X connect 48 0 54 2;
#X connect 49 0 41 2;
#X connect 49 0 55 2;
#X connect 50 0 34 2;
#X connect 50 0 56 2;
#X connect 52 0 9 0;
#X connect 53 0 16 0;
#X connect 54 0 23 0;
#X connect 55 0 37 0;
#X connect 56 0 30 0;
#X connect 57 0 60 0;
#X connect 58 0 57 0;
#X connect 59 0 74 0;
#X connect 60 0 16 1;
#X connect 61 0 57 1;
#X connect 62 0 67 0;
#X connect 63 0 66 0;
#X connect 64 0 63 0;
#X connect 65 0 62 0;
#X connect 66 0 37 1;
#X connect 67 0 63 1;
#X connect 68 0 73 0;
#X connect 69 0 72 0;
#X connect 70 0 69 0;
#X connect 71 0 68 0;
#X connect 72 0 23 1;
#X connect 73 0 69 1;
#X connect 74 0 61 0;
#X connect 75 0 74 1;
#X connect 76 0 68 1;
#X connect 77 0 9 1;
#X connect 77 0 59 0;
#X connect 77 0 71 0;
#X connect 78 0 30 1;
#X connect 78 0 65 0;
#X restore 291 539 pd Dipoles;
#X obj 299 132 snapshot~;
#X floatatom 299 152 0 0 0 0 - - -;
#X obj 299 111 r myMet;
#X obj 239 190 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 239 243 s GO;
#X obj 771 534 snapshot~;
#X floatatom 771 554 0 0 0 0 - - -;
#X obj 771 513 r myMet;
#X obj 522 139 snapshot~;
#X floatatom 522 159 0 0 0 0 - - -;
#X obj 522 118 r myMet;
#X obj 595 139 snapshot~;
#X floatatom 595 159 0 0 0 0 - - -;
#X obj 595 118 r myMet;
#X obj 656 139 snapshot~;
#X floatatom 656 159 0 0 0 0 - - -;
#X obj 656 118 r myMet;
#X obj 98 475 Cav_______D6;
#X obj 126 539 Cav_______D6;
#N canvas 53 201 500 655 CavElevCorr 0;
#X obj 207 123 <~ 180;
#X obj 207 163 snapshot~;
#X obj 223 142 r myMet;
#X obj 168 184 spigot~;
#X obj 207 210 >~ 0;
#X obj 168 274 spigot~;
#X obj 207 252 snapshot~;
#X obj 223 231 r myMet;
#X obj 208 68 inlet~;
#X obj 207 341 outlet~;
#X obj 337 321 snapshot~;
#X floatatom 337 341 0 0 0 0 - - -;
#X obj 337 300 r myMet;
#X connect 0 0 1 0;
#X connect 1 0 3 1;
#X connect 2 0 1 0;
#X connect 3 1 4 0;
#X connect 3 1 5 0;
#X connect 4 0 6 0;
#X connect 5 1 9 0;
#X connect 5 1 10 0;
#X connect 6 0 5 1;
#X connect 7 0 6 0;
#X connect 8 0 0 0;
#X connect 8 0 3 0;
#X connect 10 0 11 0;
#X connect 12 0 10 0;
#X restore 114 338 pd CavElevCorr;
#X connect 1 0 3 0;
#X connect 2 0 22 0;
#X connect 2 0 36 0;
#X connect 2 0 44 0;
#X connect 3 0 2 0;
#X connect 4 0 59 0;
#X connect 5 0 4 0;
#X connect 6 0 23 0;
#X connect 6 0 56 2;
#X connect 6 0 57 2;
#X connect 6 0 4 1;
#X connect 6 0 3 1;
#X connect 6 0 80 3;
#X connect 6 0 81 3;
#X connect 11 0 26 0;
#X connect 12 0 38 0;
#X connect 22 0 28 0;
#X connect 22 0 5 0;
#X connect 22 0 57 0;
#X connect 22 0 56 0;
#X connect 26 0 24 0;
#X connect 26 1 25 0;
#X connect 30 0 11 0;
#X connect 31 0 26 1;
#X connect 33 0 37 0;
#X connect 34 0 33 0;
#X connect 37 0 11 1;
#X connect 38 0 39 0;
#X connect 39 0 13 0;
#X connect 39 0 29 0;
#X connect 40 0 41 0;
#X connect 42 0 34 0;
#X connect 44 0 45 0;
#X connect 46 0 47 0;
#X connect 47 0 33 1;
#X connect 47 0 37 1;
#X connect 48 0 47 0;
#X connect 50 0 53 0;
#X connect 50 0 71 0;
#X connect 50 0 56 3;
#X connect 50 0 57 3;
#X connect 50 0 80 2;
#X connect 50 0 81 2;
#X connect 51 0 60 0;
#X connect 51 0 74 0;
#X connect 51 0 57 5;
#X connect 51 0 56 4;
#X connect 51 0 82 0;
#X connect 52 0 61 0;
#X connect 52 0 77 0;
#X connect 52 0 57 4;
#X connect 52 0 56 5;
#X connect 52 0 59 1;
#X connect 54 0 55 0;
#X connect 54 0 58 0;
#X connect 54 0 63 0;
#X connect 54 0 1 0;
#X connect 54 0 57 1;
#X connect 54 0 56 1;
#X connect 54 0 5 1;
#X connect 54 0 80 1;
#X connect 54 0 81 1;
#X connect 55 0 56 6;
#X connect 55 0 57 6;
#X connect 55 0 80 0;
#X connect 55 0 81 0;
#X connect 56 0 62 0;
#X connect 56 1 62 1;
#X connect 57 0 27 0;
#X connect 59 0 10 0;
#X connect 59 0 68 0;
#X connect 63 0 64 0;
#X connect 65 0 63 0;
#X connect 66 0 67 0;
#X connect 68 0 69 0;
#X connect 70 0 68 0;
#X connect 71 0 72 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 76 0 74 0;
#X connect 77 0 78 0;
#X connect 79 0 77 0;