view SwordCorInterpS/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;
#N canvas 93 119 976 679 Dipoles 0;
#X obj 131 67 r~ \$0-myFreq;
#X obj 225 178 r~ \$0-liftDiGain;
#X obj 389 58 r~ \$0-myFreq;
#X obj 528 138 r~ \$0-liftDiGain;
#X obj 528 159 *~ 0.6;
#X obj 657 57 r~ \$0-myFreq;
#X obj 798 130 r~ \$0-liftDiGain;
#X obj 657 81 *~ 5;
#X obj 389 82 *~ 3;
#X obj 258 385 r~ \$0-myFreq;
#X obj 371 472 r~ \$0-dragDiGain;
#X obj 258 407 *~ 2;
#X obj 528 385 r~ \$0-myFreq;
#X obj 658 447 r~ \$0-dragDiGain;
#X obj 528 413 *~ 4;
#X obj 658 470 *~ 0.125;
#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 192 *~;
#X obj 480 257 throw~ l;
#X obj 507 234 throw~ r;
#X obj 480 213 fcpan;
#X obj 480 116 vcf~ 3;
#X obj 507 191 r \$0-thisPan;
#X obj 480 68 r~ \$0-thisNoise;
#X obj 750 183 *~;
#X obj 750 248 throw~ l;
#X obj 777 225 throw~ r;
#X obj 750 204 fcpan;
#X obj 750 107 vcf~ 3;
#X obj 777 182 r \$0-thisPan;
#X obj 750 65 r~ \$0-thisNoise;
#X obj 798 152 *~ 0.1;
#X obj 338 505 *~;
#X obj 338 570 throw~ l;
#X obj 365 547 throw~ r;
#X obj 338 526 fcpan;
#X obj 338 429 vcf~ 3;
#X obj 365 504 r \$0-thisPan;
#X obj 338 385 r~ \$0-thisNoise;
#X obj 612 503 *~;
#X obj 612 568 throw~ l;
#X obj 639 545 throw~ r;
#X obj 612 524 fcpan;
#X obj 612 427 vcf~ 3;
#X obj 639 502 r \$0-thisPan;
#X obj 612 385 r~ \$0-thisNoise;
#X text 273 27 Generates the sound associated with the lift dipole.
;
#X text 296 353 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 658 406 r \$0-Qval;
#X obj 383 407 r \$0-Qval;
#X obj 210 158 *~ 1;
#X obj 480 159 *~ 1;
#X obj 750 154 *~ 1;
#X obj 612 469 *~ 1;
#X obj 338 472 *~ 1;
#X floatatom 277 122 5 0 0 0 - - -;
#X obj 210 131 vcf~ 3;
#X obj 480 137 vcf~ 3;
#X obj 750 130 vcf~ 3;
#X obj 612 449 vcf~ 3;
#X obj 338 450 vcf~ 3;
#X connect 0 0 20 1;
#X connect 0 0 65 1;
#X connect 1 0 16 1;
#X connect 2 0 8 0;
#X connect 3 0 4 0;
#X connect 4 0 23 1;
#X connect 5 0 7 0;
#X connect 6 0 37 0;
#X connect 7 0 34 1;
#X connect 7 0 67 1;
#X connect 8 0 27 1;
#X connect 8 0 66 1;
#X connect 9 0 11 0;
#X connect 10 0 38 1;
#X connect 11 0 42 1;
#X connect 11 0 69 1;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 49 1;
#X connect 14 0 68 1;
#X connect 15 0 45 1;
#X connect 16 0 19 0;
#X connect 19 0 17 0;
#X connect 19 1 18 0;
#X connect 20 0 65 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 66 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 67 0;
#X connect 35 0 33 1;
#X connect 36 0 34 0;
#X connect 37 0 30 1;
#X connect 38 0 41 0;
#X connect 41 0 39 0;
#X connect 41 1 40 0;
#X connect 42 0 69 0;
#X connect 43 0 41 1;
#X connect 44 0 42 0;
#X connect 45 0 48 0;
#X connect 48 0 46 0;
#X connect 48 1 47 0;
#X connect 49 0 68 0;
#X connect 50 0 48 1;
#X connect 51 0 49 0;
#X connect 54 0 20 2;
#X connect 54 0 64 0;
#X connect 55 0 27 2;
#X connect 55 0 66 2;
#X connect 56 0 34 2;
#X connect 56 0 67 2;
#X connect 57 0 49 2;
#X connect 57 0 68 2;
#X connect 58 0 42 2;
#X connect 58 0 69 2;
#X connect 59 0 16 0;
#X connect 60 0 23 0;
#X connect 61 0 30 0;
#X connect 62 0 45 0;
#X connect 63 0 38 0;
#X connect 65 0 59 0;
#X connect 66 0 60 0;
#X connect 67 0 61 0;
#X connect 68 0 62 0;
#X connect 69 0 63 0;
#X restore 649 549 pd Dipoles;
#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 205 88 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 133 375 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 219 317 /~ 400;
#X text -53 316 Scale factor to bring in line with CFD calcs;
#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 58 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 19 0 35 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 36 0 49 0;
#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 49 0 52 1;
#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 19 0;
#X connect 60 0 29 1;
#X connect 61 0 65 0;
#X connect 62 0 64 0;
#X connect 63 0 79 0;
#X connect 66 0 51 0;
#X connect 67 0 68 0;
#X connect 67 0 68 1;
#X connect 68 0 69 0;
#X connect 69 0 70 0;
#X connect 70 0 33 0;
#X connect 71 0 14 0;
#X connect 72 0 38 0;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 75 0 49 1;
#X connect 76 0 73 0;
#X connect 76 0 73 1;
#X connect 78 0 13 1;
#X connect 80 0 23 0;
#X connect 81 0 42 0;
#X connect 82 0 54 0;
#X restore 313 307 pd GoldfreqGainSword;
#N canvas 300 30 1006 797 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 -20423 235 Azimuth;
#X text -20367 235 Elevation;
#X obj -20422 296 s~ \$0-this_azim;
#X obj -20861 371 *~ 1.225;
#X obj -20587 239 r~ \$0-this_azim;
#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 -20624 194 -~;
#X text -20533 187 Angle goes with the flow in Goldstein hence 90 -
theta so that theta is same angle as dipole angles.;
#X obj -20624 149 sig~ 180;
#X obj -20894 195 inlet~;
#X obj -20894 222 *~;
#X obj -20828 253 inlet~;
#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 -20782 254 Corrolation Length;
#X text -20806 371 Length;
#X obj -20587 285 cos~;
#X obj -20861 595 *~ 1;
#X obj -20587 262 /~ 360;
#X obj -20624 306 *~;
#X text -21131 486 Scale factor to bring in line with CFD calcs;
#X text -20929 530 Sqrt(2*pi);
#X obj -20609 328 r~ \$0-MY_MACH;
#X obj -20809 392 r bladeLen;
#X obj -20422 252 inlet~;
#X obj -20366 252 inlet~;
#X obj -20777 433 inlet~;
#X obj -20777 459 *~;
#X text -20847 176 Source speed;
#X obj -20366 274 s~ \$0-wake_elev;
#X obj -20609 172 r~ \$0-wake_elev;
#X obj -20861 488 /~ 10000;
#X connect 2 0 37 1;
#X connect 3 0 2 0;
#X connect 4 0 36 1;
#X connect 12 0 39 0;
#X connect 13 0 45 0;
#X connect 14 0 27 1;
#X connect 15 0 14 0;
#X connect 16 0 26 1;
#X connect 17 0 18 0;
#X connect 18 0 46 0;
#X connect 19 0 21 1;
#X connect 20 0 21 0;
#X connect 21 0 16 0;
#X connect 22 0 23 0;
#X connect 22 0 23 1;
#X connect 23 0 25 1;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 1;
#X connect 28 0 29 1;
#X connect 29 0 44 0;
#X connect 30 0 17 0;
#X connect 32 0 30 0;
#X connect 33 0 34 0;
#X connect 33 0 34 1;
#X connect 34 0 37 0;
#X connect 35 0 36 0;
#X connect 36 0 38 1;
#X connect 37 0 38 0;
#X connect 38 0 12 0;
#X connect 39 0 58 0;
#X connect 40 0 29 0;
#X connect 43 0 46 1;
#X connect 44 0 5 0;
#X connect 45 0 43 0;
#X connect 46 0 19 0;
#X connect 49 0 19 1;
#X connect 50 0 39 1;
#X connect 51 0 11 0;
#X connect 52 0 56 0;
#X connect 53 0 54 0;
#X connect 53 0 54 1;
#X connect 54 0 28 0;
#X connect 57 0 30 1;
#X connect 58 0 40 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;
#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 85 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 76 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 76 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 75 2;
#X connect 44 0 75 0;
#X connect 46 0 48 0;
#X connect 47 0 46 0;
#X connect 49 0 75 3;
#X connect 50 0 14 1;
#X connect 51 0 76 2;
#X connect 52 0 53 0;
#X connect 53 0 17 0;
#X connect 53 0 37 0;
#X connect 55 0 56 0;
#X connect 57 0 42 0;
#X connect 59 0 60 0;
#X connect 61 0 62 0;
#X connect 62 0 41 1;
#X connect 62 0 50 1;
#X connect 63 0 62 0;
#X connect 65 0 68 0;
#X connect 66 0 86 0;
#X connect 67 0 87 0;
#X connect 69 0 70 0;
#X connect 69 0 81 0;
#X connect 70 0 71 0;
#X connect 72 0 75 4;
#X connect 73 0 75 5;
#X connect 74 0 75 6;
#X connect 75 0 33 0;
#X connect 75 1 32 0;
#X connect 76 0 35 0;
#X connect 77 0 76 6;
#X connect 78 0 76 5;
#X connect 79 0 76 4;
#X connect 80 0 75 1;
#X connect 82 0 1 0;
#X connect 83 0 76 1;
#X connect 84 0 5 1;
#X connect 85 0 13 0;