view SwordCorInterp/freqCalcCyl4HiFi.pd @ 303:8b51c20529a6

Edgetone development models

#N canvas 36 69 1370 784 10;
#X text 587 178 Mass Density of Air;
#X obj 709 179 *~ 1.225;
#X obj 709 254 /~ 1.81e-05;
#X obj 709 209 *~ 1;
#X obj 709 372 /~ 1;
#X obj 709 348 *~;
#X obj 223 63 inlet;
#X text 742 298 Reynolds Number;
#X text 589 365 Strouhal Number;
#X text 739 234 Viscosity;
#X obj 230 86 s \$0-diameter;
#X obj 770 178 r \$0-diameter;
#X obj 777 353 r \$0-diameter;
#X obj 709 441 s~ \$0-myFreq;
#X obj 1052 334 *~;
#X obj 722 278 s~ \$0-myRey;
#X obj 636 57 inlet;
#X floatatom 581 126 8 0 0 0 - - -;
#X text 673 460 Calculates the frequency;
#X text 674 472 based on the physics of;
#X obj 354 469 r \$0-diameter;
#X text 294 352 Calculates the gain of the dipole source;
#X text 530 40 Azimuth;
#X text 641 39 Pan;
#X text 453 39 Elevation;
#X text 384 42 Distance;
#X text 218 42 Diameter;
#X obj 709 319 newStrou;
#X floatatom 223 107 0 0 0 0 - - -;
#X obj 1052 403 throw~ l;
#X obj 1079 381 throw~ r;
#X obj 1052 359 fcpan;
#X obj 430 329 s~ \$0-dragDiGain;
#X obj 313 329 s~ \$0-liftDiGain;
#X obj 294 404 r~ \$0-str;
#X obj 294 580 s~ \$0-liftNoiseGain;
#X obj 609 350 s~ \$0-str;
#X obj 636 126 s \$0-thisPan;
#X obj 1052 190 r~ \$0-liftNoiseGain;
#X obj 1079 334 r \$0-thisPan;
#X text 1033 164 Noise spectrum calculation;
#X obj 1067 282 hip~;
#X obj 1067 237 rpole~ 0.99;
#X obj 350 205 r \$0-diameter;
#X obj 313 163 r~ \$0-str;
#X text 285 599 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 761 65 pd corrLen Calc;
#X obj 761 42 r~ \$0-myRey;
#X obj 761 89 s~ \$0-myCor;
#X obj 371 224 r~ \$0-myCor;
#X obj 1067 309 hip~;
#X obj 335 448 r~ \$0-myCor;
#X obj 636 81 max 0.01;
#X obj 636 104 min 0.99;
#X obj 893 49 noise~;
#X obj 893 72 s~ \$0-thisNoise;
#X obj 1067 214 r~ \$0-thisNoise;
#X text 674 485 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 531 -36 r~ \$0-myRey;
#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 connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 24 0;
#X connect 2 0 0 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 15 0;
#X connect 7 0 13 0;
#X connect 7 0 10 0;
#X connect 7 0 8 0;
#X connect 7 0 25 0;
#X connect 7 0 26 0;
#X connect 8 0 9 0;
#X connect 9 0 12 0;
#X connect 10 0 8 1;
#X connect 11 0 2 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 18 0;
#X connect 14 0 17 1;
#X connect 14 0 17 0;
#X connect 15 0 14 1;
#X connect 16 0 20 0;
#X connect 17 0 16 0;
#X connect 18 0 20 1;
#X connect 19 0 2 0;
#X connect 20 0 19 0;
#X connect 24 0 3 0;
#X connect 25 0 13 1;
#X connect 26 0 9 1;
#X restore 994 71 pd StBandwidth;
#X obj 994 94 s \$0-Qval;
#X obj 1153 257 r myMet;
#X obj 1143 278 snapshot~;
#X obj 1143 237 r~ \$0-myFreq;
#X text 133 41 Source Speed;
#X obj 388 61 inlet~;
#X obj 460 60 inlet~;
#X obj 534 59 inlet~;
#X obj 393 84 s~ \$0-dist;
#X obj 120 65 inlet~;
#X obj 52 88 /~ 343.56;
#X obj 52 111 s~ \$0-MY_MACH;
#X obj 391 245 r~ \$0-dist;
#X obj 410 266 r~ \$0-elev;
#X obj 430 285 r~ \$0-azim;
#N canvas 33 74 1238 721 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 219 150 pd pow6;
#X obj 173 152 *~;
#X obj 219 176 *~;
#X text 587 57 Distance;
#X text 724 548 Calculates Drag Dipole gain;
#X text 48 531 Calculates Lift Dipole gain;
#X obj 173 112 inlet~;
#X obj 219 116 inlet~;
#X text 328 170 Diameter;
#X obj 291 169 inlet;
#X obj 219 590 outlet~;
#X obj 758 523 outlet~;
#X text 311 262 Length;
#X obj 219 289 *~ 1;
#X obj 234 469 /~ 360;
#X obj 234 518 *~;
#X obj 219 541 *~;
#X text 74 112 Strouhal number;
#X text 266 211 Corr Length;
#X obj 219 348 *~ 2.50663;
#X obj 219 238 *~ 1.225;
#X text 93 234 Mass Density of Air;
#X text 145 343 Sqrt(2xpi);
#X obj 332 470 /~ 360;
#X obj 332 516 *~;
#X obj 332 492 cos~;
#X obj 219 567 *~;
#X text 362 210 Speed of Sound to power 3;
#X obj 525 213 cos~;
#X obj 525 236 *~;
#X obj 473 237 sig~ 1;
#X obj 510 267 -~;
#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 510 290 pd pow4;
#X obj 411 322 *~;
#X obj 219 385 /~;
#X obj 131 421 s~ \$0-aGainG;
#X obj 872 246 r~ \$0-aGainG;
#X obj 758 498 *~ 0.1;
#X obj 723 340 +~ 90;
#X obj 723 363 /~ 360;
#X obj 723 409 *~;
#X obj 723 385 sin~;
#X obj 773 359 /~ 360;
#X obj 773 405 *~;
#X obj 773 381 cos~;
#X obj 758 436 *~;
#X text 763 56 Azimuth;
#X text 662 58 Elevation;
#X text 892 335 Speed of Sound to power 3;
#X obj 872 423 /~;
#X text 595 191 Remember - Goldstein moves cylinder;
#X obj 525 194 /~ 360;
#X obj 758 475 *~;
#X obj 478 95 s~ \$0-thisColL;
#X obj 270 190 *~ 1;
#X obj 219 210 *~;
#X obj 478 72 inlet~;
#X obj 234 495 sin~;
#X obj 559 214 r~ \$0-MY_MACH;
#X obj 567 73 inlet~;
#X obj 665 76 inlet~;
#X obj 767 74 inlet~;
#X obj 670 99 s~ \$0-this_elev;
#X obj 574 95 s~ \$0-thisDist;
#X obj 525 166 r~ \$0-this_elev;
#X obj 411 135 r~ \$0-thisDist;
#X obj 411 161 *~;
#X obj 411 191 *~ 4.05513e+07;
#X obj 411 244 *~ 32;
#X obj 234 443 r~ \$0-this_elev;
#X obj 723 273 r~ \$0-this_elev;
#X obj 887 292 *~;
#X obj 887 317 *~ 4.05513e+07;
#X obj 887 370 *~ 32;
#X obj 887 268 r~ \$0-thisDist;
#X text 273 110 Source speed;
#X obj 240 263 r bladeLen;
#X obj 774 99 s~ \$0-gain_azim;
#X obj 332 444 r~ \$0-gain_azim;
#X obj 773 294 r~ \$0-gain_azim;
#X obj 270 150 sig~ 7;
#X text 293 139 Set Corr Length;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 55 0;
#X connect 6 0 1 0;
#X connect 6 0 1 1;
#X connect 7 0 0 0;
#X connect 9 0 54 1;
#X connect 13 0 19 0;
#X connect 14 0 57 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 35 0;
#X connect 36 0 49 0;
#X connect 36 0 52 1;
#X connect 37 0 11 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 45 0;
#X connect 41 0 40 0;
#X connect 41 0 40 1;
#X connect 42 0 44 0;
#X connect 43 0 45 1;
#X connect 44 0 43 0;
#X connect 44 0 43 1;
#X connect 45 0 52 0;
#X connect 51 0 28 0;
#X connect 52 0 37 0;
#X connect 54 0 55 1;
#X connect 55 0 20 0;
#X connect 56 0 53 0;
#X connect 57 0 15 0;
#X connect 57 0 15 1;
#X connect 58 0 29 1;
#X connect 59 0 63 0;
#X connect 60 0 62 0;
#X connect 61 0 77 0;
#X connect 64 0 51 0;
#X connect 65 0 66 0;
#X connect 65 0 66 1;
#X connect 66 0 67 0;
#X connect 67 0 68 0;
#X connect 68 0 33 0;
#X connect 69 0 14 0;
#X connect 70 0 38 0;
#X connect 71 0 72 0;
#X connect 72 0 73 0;
#X connect 73 0 49 1;
#X connect 74 0 71 0;
#X connect 74 0 71 1;
#X connect 76 0 13 1;
#X connect 78 0 23 0;
#X connect 79 0 42 0;
#X connect 80 0 54 0;
#X restore 313 307 pd GoldfreqGainSword;
#N canvas 355 100 1006 797 GoldnoiseGainSword 0;
#X text -21219 234 Mass Density of Air \, squared;
#X text -20959 282 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 -21028 94 pd pow8;
#X obj -21028 65 inlet~;
#X obj -20989 156 inlet;
#X obj -21043 487 outlet~;
#X text -21040 518 Gain proportional to windspeed to power 8 for spectrum
;
#X text -20953 157 Diameter;
#X text -21209 497 Calculates wake gain;
#X text -20605 105 Azimuth;
#X text -20549 105 Elevation;
#X obj -20604 166 s~ \$0-this_azim;
#X obj -21043 241 *~ 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 -20887 345 pd pow5;
#X obj -20887 321 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 -20852 271 pd pow5;
#X obj -20806 146 /~ 360;
#X obj -20806 173 cos~;
#X obj -20806 219 *~;
#X obj -20852 218 sig~ 1;
#X obj -20852 245 -~;
#X obj -20887 192 sig~ 3.1416;
#X obj -20887 217 *~;
#X obj -20902 169 sig~ 16;
#X obj -20902 241 *~;
#X obj -20902 299 *~;
#X obj -20902 372 *~;
#X obj -20959 400 *~;
#X obj -21043 444 /~;
#X obj -21076 65 inlet~;
#X obj -21076 92 *~;
#X obj -21010 123 inlet~;
#X obj -21010 182 *~ 1;
#X obj -21043 121 *~;
#X obj -21043 217 *~;
#X obj -21043 314 *~ 1;
#X obj -21043 398 *~ 2.50663;
#X text -20964 124 Corrolation Length;
#X text -20988 241 Length;
#X text -21313 356 Scale factor to bring in line with CFD calcs;
#X text -21111 400 Sqrt(2*pi);
#X obj -20791 198 r~ \$0-MY_MACH;
#X obj -20991 262 r bladeLen;
#X obj -20604 122 inlet~;
#X obj -20548 122 inlet~;
#X obj -20959 303 inlet~;
#X obj -20959 329 *~;
#X text -21029 46 Source speed;
#X obj -20548 144 s~ \$0-wake_elev;
#X obj -21043 358 /~ 10000;
#X obj -20806 46 sig~ 180;
#X obj -20806 91 -~;
#X obj -20806 120 /~ 360;
#X obj -20791 67 r~ \$0-wake_elev;
#X obj -20551 509 r~ \$0-this_azim;
#X obj -20551 555 cos~;
#X obj -20551 532 /~ 360;
#X obj -20551 577 *~;
#X text -20604 208 Lateral Quadrupole Directionality;
#X obj -20612 239 sig~ 1;
#X obj -20597 266 sig~ 0.7;
#X obj -20582 375 cos~;
#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 -20582 399 pd pow4;
#X obj -20597 421 *~;
#X obj -20512 436 sin~;
#X obj -20512 413 *~ 2;
#X obj -20512 460 *~;
#X obj -20549 439 +~ 3;
#X obj -20549 460 /~ 4;
#X obj -20549 485 *~;
#X obj -20597 518 -~;
#X obj -20612 544 +~;
#X obj -20612 603 *~;
#X obj -20567 310 r~ \$0-this_elev;
#X obj -20582 289 sig~ 180;
#X obj -20582 331 -~;
#X obj -20582 352 /~ 360;
#X obj -21043 465 *~;
#X connect 2 0 33 1;
#X connect 3 0 2 0;
#X connect 4 0 32 1;
#X connect 12 0 35 0;
#X connect 13 0 26 1;
#X connect 14 0 13 0;
#X connect 15 0 25 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 20 1;
#X connect 19 0 20 0;
#X connect 20 0 15 0;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 24 1;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 77 0;
#X connect 29 0 30 0;
#X connect 29 0 30 1;
#X connect 30 0 33 0;
#X connect 31 0 32 0;
#X connect 32 0 34 1;
#X connect 33 0 34 0;
#X connect 34 0 12 0;
#X connect 35 0 49 0;
#X connect 36 0 28 0;
#X connect 41 0 18 1;
#X connect 42 0 35 1;
#X connect 43 0 11 0;
#X connect 44 0 48 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 27 0;
#X connect 49 0 36 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 52 0 16 0;
#X connect 53 0 51 1;
#X connect 54 0 56 0;
#X connect 55 0 57 1;
#X connect 55 0 57 0;
#X connect 56 0 55 0;
#X connect 57 0 72 1;
#X connect 59 0 71 0;
#X connect 60 0 63 0;
#X connect 60 0 67 0;
#X connect 61 0 62 0;
#X connect 62 0 63 1;
#X connect 63 0 70 0;
#X connect 64 0 66 0;
#X connect 64 0 66 1;
#X connect 65 0 64 0;
#X connect 66 0 69 1;
#X connect 67 0 68 0;
#X connect 68 0 69 0;
#X connect 69 0 70 1;
#X connect 70 0 71 1;
#X connect 71 0 72 0;
#X connect 72 0 77 1;
#X connect 73 0 75 1;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 76 0 61 0;
#X connect 76 0 65 0;
#X connect 77 0 5 0;
#X restore 294 552 pd GoldnoiseGainSword;
#X obj 417 531 r~ \$0-elev;
#X obj 396 510 r~ \$0-azim;
#X obj 376 490 r~ \$0-dist;
#X obj 332 184 r~ \$0-sourceSpeed;
#X obj 120 85 s~ \$0-sourceSpeed;
#X obj 709 151 r~ \$0-sourceSpeed;
#X obj 314 426 r~ \$0-sourceSpeed;
#X obj 776 330 r~ \$0-sourceSpeed;
#N canvas 8 111 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 301 227 r~ currentAzim;
#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 connect 0 0 24 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 20 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 18 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 20 1;
#X connect 17 0 13 1;
#X connect 18 0 13 0;
#X connect 19 0 22 1;
#X connect 20 0 22 1;
#X connect 20 1 19 0;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 23 1;
#X connect 23 0 24 1;
#X connect 24 0 1 0;
#X connect 25 0 15 0;
#X connect 26 0 8 0;
#X connect 27 0 8 1;
#X restore 709 410 pd doppler;
#X obj 467 82 s~ \$0-elev;
#X obj 542 82 s~ \$0-azim;
#N canvas 171 144 1255 760 Dipoles2017D1 0;
#X obj 101 65 r~ \$0-myFreq;
#X obj 246 161 r~ \$0-liftDiGain;
#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 560 141 r~ \$0-liftDiGain;
#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 822 137 r~ \$0-liftDiGain;
#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 254 559 r~ \$0-dragDiGain;
#X obj 629 515 r~ \$0-dragDiGain;
#X connect 0 0 14 1;
#X connect 0 0 53 1;
#X connect 1 0 10 1;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 28 1;
#X connect 4 0 55 1;
#X connect 5 0 21 1;
#X connect 5 0 54 1;
#X connect 6 0 7 0;
#X connect 7 0 35 1;
#X connect 7 0 57 1;
#X connect 8 0 9 0;
#X connect 9 0 42 1;
#X connect 9 0 56 1;
#X connect 10 0 13 0;
#X connect 13 0 11 0;
#X connect 13 1 12 0;
#X connect 14 0 53 0;
#X connect 15 0 13 1;
#X connect 16 0 14 0;
#X connect 17 0 20 0;
#X connect 20 0 18 0;
#X connect 20 1 19 0;
#X connect 21 0 54 0;
#X connect 22 0 20 1;
#X connect 23 0 21 0;
#X connect 24 0 27 0;
#X connect 27 0 25 0;
#X connect 27 1 26 0;
#X connect 28 0 55 0;
#X connect 29 0 27 1;
#X connect 30 0 28 0;
#X connect 31 0 34 0;
#X connect 34 0 32 0;
#X connect 34 1 33 0;
#X connect 35 0 57 0;
#X connect 36 0 34 1;
#X connect 37 0 35 0;
#X connect 41 0 39 0;
#X connect 41 1 40 0;
#X connect 42 0 56 0;
#X connect 43 0 41 1;
#X connect 44 0 42 0;
#X connect 47 0 14 2;
#X connect 47 0 52 0;
#X connect 47 0 53 2;
#X connect 48 0 21 2;
#X connect 48 0 54 2;
#X connect 49 0 28 2;
#X connect 49 0 55 2;
#X connect 50 0 42 2;
#X connect 50 0 56 2;
#X connect 51 0 35 2;
#X connect 51 0 57 2;
#X connect 53 0 10 0;
#X connect 54 0 17 0;
#X connect 55 0 24 0;
#X connect 56 0 38 0;
#X connect 57 0 31 0;
#X connect 58 0 61 0;
#X connect 59 0 62 0;
#X connect 60 0 59 0;
#X connect 61 0 77 0;
#X connect 62 0 17 1;
#X connect 63 0 59 1;
#X connect 64 0 69 0;
#X connect 65 0 68 0;
#X connect 66 0 65 0;
#X connect 67 0 64 0;
#X connect 68 0 38 1;
#X connect 69 0 65 1;
#X connect 70 0 74 0;
#X connect 71 0 76 0;
#X connect 72 0 75 0;
#X connect 73 0 72 0;
#X connect 74 0 71 0;
#X connect 75 0 24 1;
#X connect 76 0 72 1;
#X connect 77 0 63 0;
#X connect 78 0 77 1;
#X connect 79 0 71 1;
#X connect 80 0 31 1;
#X connect 81 0 67 0;
#X restore 851 574 pd Dipoles2017D1;
#X connect 1 0 3 0;
#X connect 2 0 15 0;
#X connect 2 0 27 0;
#X connect 3 0 2 0;
#X connect 4 0 84 0;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 6 0 28 0;
#X connect 11 0 3 1;
#X connect 12 0 4 1;
#X connect 14 0 31 0;
#X connect 16 0 52 0;
#X connect 20 0 75 3;
#X connect 27 0 36 0;
#X connect 27 0 5 0;
#X connect 31 0 29 0;
#X connect 31 1 30 0;
#X connect 34 0 75 0;
#X connect 38 0 14 0;
#X connect 39 0 31 1;
#X connect 41 0 50 0;
#X connect 42 0 41 0;
#X connect 43 0 74 2;
#X connect 44 0 74 0;
#X connect 46 0 48 0;
#X connect 47 0 46 0;
#X connect 49 0 74 3;
#X connect 50 0 14 1;
#X connect 51 0 75 2;
#X connect 52 0 53 0;
#X connect 53 0 17 0;
#X connect 53 0 37 0;
#X connect 54 0 55 0;
#X connect 56 0 42 0;
#X connect 58 0 59 0;
#X connect 60 0 61 0;
#X connect 61 0 41 1;
#X connect 61 0 50 1;
#X connect 62 0 61 0;
#X connect 64 0 67 0;
#X connect 65 0 85 0;
#X connect 66 0 86 0;
#X connect 68 0 69 0;
#X connect 68 0 80 0;
#X connect 69 0 70 0;
#X connect 71 0 74 4;
#X connect 72 0 74 5;
#X connect 73 0 74 6;
#X connect 74 0 33 0;
#X connect 74 1 32 0;
#X connect 75 0 35 0;
#X connect 76 0 75 6;
#X connect 77 0 75 5;
#X connect 78 0 75 4;
#X connect 79 0 74 1;
#X connect 81 0 1 0;
#X connect 82 0 75 1;
#X connect 83 0 5 1;
#X connect 84 0 13 0;