view Propellor/freqCalcCyl5HiFi.pd @ 303:8b51c20529a6

Edgetone development models

#N canvas 356 61 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 365 519 r \$0-diameter;
#X text 297 391 Calculates the gain of the dipole source;
#X text 490 30 Azimuth;
#X text 641 39 Pan;
#X text 413 29 Elevation;
#X text 344 32 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 431 345 s~ \$0-dragDiGain;
#X obj 344 365 s~ \$0-liftDiGain;
#X obj 326 454 r~ \$0-str;
#X obj 326 651 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 368 194 r \$0-diameter;
#X obj 344 147 r~ \$0-str;
#X text 317 670 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 708 61 pd corrLen Calc;
#X obj 708 38 r~ \$0-myRey;
#X obj 708 85 s~ \$0-myCor;
#X obj 393 237 r~ \$0-myCor;
#X obj 1067 309 hip~;
#X obj 352 498 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 813 37 noise~;
#X obj 813 60 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 floatatom 352 446 0 0 0 0 - - -;
#X floatatom 588 23 0 0 0 0 - - -;
#X msg 593 195 10;
#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 7 0 28 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 13 0 29 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 20 0 19 0;
#X connect 24 0 3 0;
#X connect 24 0 27 0;
#X connect 25 0 13 1;
#X connect 26 0 9 1;
#X connect 29 0 2 0;
#X restore 914 59 pd StBandwidth;
#X obj 914 82 s \$0-Qval;
#X obj 1153 257 r myMet;
#X obj 1143 278 snapshot~;
#X obj 1143 237 r~ \$0-myFreq;
#X text 130 41 Source Speed;
#X obj 348 51 inlet~;
#X obj 420 50 inlet~;
#X obj 494 49 inlet~;
#X obj 348 72 s~ \$0-dist;
#X obj 117 65 inlet~;
#X obj 49 88 /~ 343.56;
#X obj 49 111 s~ \$0-MY_MACH;
#X obj 406 258 r~ \$0-dist;
#X obj 418 279 r~ \$0-elev;
#X obj 431 300 r~ \$0-azim;
#X obj 419 602 r~ \$0-elev;
#X obj 405 583 r~ \$0-azim;
#X obj 392 562 r~ \$0-dist;
#X obj 356 171 r~ \$0-sourceSpeed;
#X obj 117 85 s~ \$0-sourceSpeed;
#X obj 709 151 r~ \$0-sourceSpeed;
#X obj 339 476 r~ \$0-sourceSpeed;
#X obj 776 330 r~ \$0-sourceSpeed;
#N canvas 51 317 823 563 doppler 0;
#X obj 88 329 inlet~;
#X obj 88 467 outlet~;
#X obj 125 141 /~ 360;
#X obj 110 95 r~ \$0-sourceSpeed;
#X obj 125 163 cos~;
#X obj 110 184 *~;
#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 149 232 *~ -1;
#X obj 110 211 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 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 385 361 r myMet;
#X obj 385 382 snapshot~;
#X floatatom 385 404 0 0 0 0 - - -;
#X obj 301 73 r Yobs;
#X obj 286 53 r Xobs;
#X obj 301 226 r~ propAzim;
#X obj 125 118 r~ \$0-elev;
#X connect 0 0 22 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 18 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 8 0 11 0;
#X connect 10 0 16 0;
#X connect 11 0 10 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 14 0 18 1;
#X connect 16 0 12 0;
#X connect 17 0 20 1;
#X connect 18 0 20 1;
#X connect 18 1 17 0;
#X connect 19 0 20 0;
#X connect 19 0 21 0;
#X connect 20 0 21 1;
#X connect 21 0 22 1;
#X connect 22 0 1 0;
#X connect 23 0 14 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 28 0 7 1;
#X connect 29 0 7 0;
#X connect 30 0 12 1;
#X connect 31 0 2 0;
#X restore 709 404 pd doppler;
#X obj 420 72 s~ \$0-elev;
#X obj 494 72 s~ \$0-azim;
#N canvas 205 88 1238 721 GoldfreqGain 0;
#N canvas 759 125 172 246 pow6 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 163 outlet~;
#X obj 106 67 *~;
#X obj 47 93 *~;
#X obj 47 118 *~;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 2 0 1 1;
#X connect 2 0 4 0;
#X connect 2 0 4 1;
#X connect 2 0 1 0;
#X connect 4 0 6 1;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X restore 219 150 pd pow6;
#X obj 173 140 *~;
#X obj 219 176 *~;
#X text 587 13 Distance;
#X text 724 548 Calculates Drag Dipole gain;
#X text 48 531 Calculates Lift Dipole gain;
#X obj 173 100 inlet~;
#X obj 219 13 inlet~;
#X text 328 170 Diameter;
#X obj 291 169 inlet;
#X obj 219 590 outlet~;
#X obj 758 523 outlet~;
#X obj 240 263 inlet;
#X text 278 258 Length;
#X obj 219 289 *~ 1;
#X obj 234 469 /~ 360;
#X obj 234 518 *~;
#X obj 219 541 *~;
#X text 74 100 Strouhal number;
#X text 149 37 Wind speed;
#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 739 248 286 289 pow4 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 163 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 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 12 Azimuth;
#X text 662 14 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 51 s~ \$0-thisColL;
#X obj 270 150 r~ \$0-thisColL;
#X obj 270 190 *~ 1;
#X obj 219 210 *~;
#X obj 478 28 inlet~;
#X obj 234 495 sin~;
#N canvas 801 264 426 401 aveTimeCal 0;
#X text 224 38 Elevation;
#X obj 226 56 r \$0-elev;
#X floatatom 240 81 5 0 0 0 - - -;
#X obj 226 135 cos;
#X obj 226 107 * 0.01745;
#X obj 205 158 *~ 1;
#X obj 161 131 sig~ 1;
#X obj 161 185 -~;
#X obj 121 104 r~ \$0-myFreq;
#X obj 106 82 sig~ 6.28318;
#X obj 106 128 /~;
#X obj 106 219 *~;
#X obj 36 204 r myMet;
#X obj 106 242 snapshot~;
#X obj 106 263 * 44100;
#X obj 106 292 outlet;
#X obj 205 17 r~ \$0-MY_MACH;
#X floatatom 206 295 0 0 0 0 - - -;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 3 0 5 1;
#X connect 4 0 3 0;
#X connect 5 0 7 1;
#X connect 6 0 7 0;
#X connect 7 0 11 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 14 0 17 0;
#X connect 16 0 5 0;
#X restore 268 15 pd aveTimeCal;
#X obj 219 59 average~ 1000;
#X obj 219 122 line~;
#X msg 219 100 \$1 5;
#X obj 219 317 /~ 400;
#X text -53 316 Scale factor to bring in line with CFD calcs;
#X obj 567 29 inlet~;
#X obj 574 51 s~ \$0-thisDist;
#X obj 665 32 inlet~;
#X obj 670 55 s~ \$0-this_elev;
#X obj 767 30 inlet~;
#X obj 774 55 s~ \$0-this_azim;
#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 525 129 r~ \$0-this_elev;
#X obj 234 446 r~ \$0-this_elev;
#X obj 332 447 r~ \$0-this_azim;
#X obj 773 294 r~ \$0-this_azim;
#X obj 723 273 r~ \$0-this_elev;
#X obj 887 268 r~ \$0-thisDist;
#X obj 887 292 *~;
#X obj 887 317 *~ 4.05513e+07;
#X obj 887 370 *~ 32;
#X obj 559 214 r~ \$0-MY_MACH;
#X obj 476 410 r myMet;
#X obj 476 432 snapshot~;
#X floatatom 476 455 0 0 0 0 - - -;
#X floatatom 250 84 0 0 0 0 - - -;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 58 0;
#X connect 6 0 1 0;
#X connect 6 0 1 1;
#X connect 7 0 62 0;
#X connect 7 0 0 0;
#X connect 9 0 57 1;
#X connect 12 0 14 1;
#X connect 14 0 65 0;
#X connect 15 0 60 0;
#X connect 16 0 17 1;
#X connect 17 0 28 0;
#X connect 21 0 36 0;
#X connect 21 0 37 0;
#X connect 22 0 14 0;
#X connect 25 0 27 0;
#X connect 26 0 28 1;
#X connect 27 0 26 0;
#X connect 27 0 26 1;
#X connect 28 0 10 0;
#X connect 30 0 31 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 34 0 35 1;
#X connect 35 0 36 1;
#X connect 36 0 17 0;
#X connect 38 0 51 0;
#X connect 39 0 11 0;
#X connect 40 0 41 0;
#X connect 41 0 43 0;
#X connect 42 0 47 0;
#X connect 43 0 42 0;
#X connect 43 0 42 1;
#X connect 44 0 46 0;
#X connect 45 0 47 1;
#X connect 46 0 45 0;
#X connect 46 0 45 1;
#X connect 47 0 54 0;
#X connect 51 0 54 1;
#X connect 53 0 30 0;
#X connect 54 0 39 0;
#X connect 56 0 57 0;
#X connect 57 0 58 1;
#X connect 58 0 22 0;
#X connect 59 0 55 0;
#X connect 60 0 16 0;
#X connect 60 0 16 1;
#X connect 61 0 62 0;
#X connect 62 0 64 0;
#X connect 62 0 90 0;
#X connect 64 0 63 0;
#X connect 65 0 21 0;
#X connect 67 0 68 0;
#X connect 69 0 70 0;
#X connect 71 0 72 0;
#X connect 73 0 74 0;
#X connect 73 0 74 1;
#X connect 74 0 75 0;
#X connect 74 0 88 0;
#X connect 75 0 76 0;
#X connect 76 0 35 0;
#X connect 77 0 53 0;
#X connect 78 0 15 0;
#X connect 79 0 25 0;
#X connect 80 0 44 0;
#X connect 81 0 40 0;
#X connect 82 0 83 0;
#X connect 82 0 83 1;
#X connect 83 0 84 0;
#X connect 84 0 85 0;
#X connect 85 0 51 1;
#X connect 86 0 31 1;
#X connect 87 0 88 0;
#X connect 88 0 89 0;
#X restore 344 322 pd GoldfreqGain;
#N canvas 300 30 1006 797 GoldnoiseGain 0;
#X text -21037 364 Mass Density of Air \, squared;
#X text -20777 458 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 137 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 -20847 118 Wind speed;
#X text -21027 627 Calculates wake gain;
#X text -20399 16 Azimuth;
#X text -20343 16 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 -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 -20916 137 inlet~;
#X obj -20916 164 *~;
#X obj -20828 253 inlet~;
#X obj -20828 312 *~ 1;
#X obj -20861 251 *~;
#X obj -20861 347 *~;
#X obj -20789 393 inlet;
#X obj -20861 444 *~ 1;
#X obj -20861 528 *~ 2.50663;
#X text -20782 254 Corrolation Length;
#X text -20786 372 Length;
#X obj -20846 159 average~ 64;
#N canvas 801 264 426 401 aveTimeCal 0;
#X text 224 38 Elevation;
#X obj 226 56 r \$0-elev;
#X floatatom 240 81 5 0 0 0 - - -;
#X obj 226 135 cos;
#X obj 226 107 * 0.01745;
#X obj 205 158 *~ 1;
#X obj 161 131 sig~ 1;
#X obj 161 185 -~;
#X obj 121 104 r~ \$0-myFreq;
#X obj 106 82 sig~ 6.28318;
#X obj 106 128 /~;
#X obj 106 219 *~;
#X obj 36 204 r myMet;
#X obj 106 242 snapshot~;
#X floatatom 44 283 0 0 0 0 - - -;
#X obj 106 263 * 44100;
#X obj 106 292 outlet;
#X obj 205 17 r~ \$0-MY_MACH;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 3 0 5 1;
#X connect 4 0 3 0;
#X connect 5 0 7 1;
#X connect 6 0 7 0;
#X connect 7 0 11 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 15 0 14 0;
#X connect 15 0 16 0;
#X connect 17 0 5 0;
#X restore -20766 139 pd aveTimeCal;
#X obj -20846 203 line~;
#X msg -20846 181 \$1 5;
#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 -20342 33 inlet~;
#X obj -20398 33 inlet~;
#X obj -20777 479 inlet~;
#X obj -20777 505 *~;
#X obj -20609 328 r~ \$0-MY_MACH;
#X obj -20342 56 s~ \$0-noise_elev;
#X obj -20398 78 s~ \$0-noise_azim;
#X obj -20609 172 r~ \$0-noise_elev;
#X obj -20587 239 r~ \$0-noise_azim;
#X obj -20861 488 /~ 20000;
#X connect 2 0 36 1;
#X connect 3 0 43 0;
#X connect 3 0 2 0;
#X connect 4 0 35 1;
#X connect 12 0 39 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 50 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 48 0;
#X connect 29 0 16 0;
#X connect 31 0 29 0;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 36 0;
#X connect 34 0 35 0;
#X connect 35 0 37 1;
#X connect 36 0 37 0;
#X connect 37 0 12 0;
#X connect 38 0 39 1;
#X connect 39 0 62 0;
#X connect 40 0 28 0;
#X connect 43 0 46 0;
#X connect 44 0 43 0;
#X connect 46 0 45 0;
#X connect 47 0 50 1;
#X connect 48 0 5 0;
#X connect 49 0 47 0;
#X connect 50 0 18 0;
#X connect 53 0 58 0;
#X connect 54 0 59 0;
#X connect 55 0 56 0;
#X connect 55 0 56 1;
#X connect 56 0 27 0;
#X connect 57 0 18 1;
#X connect 60 0 29 1;
#X connect 61 0 49 0;
#X connect 62 0 40 0;
#X restore 326 626 pd GoldnoiseGain;
#X obj 381 216 r length;
#X obj 379 540 r length;
#X obj 547 587 r myMet;
#X obj 547 609 snapshot~;
#X floatatom 547 632 0 0 0 0 - - -;
#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 83 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 87 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 87 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 86 2;
#X connect 44 0 86 0;
#X connect 46 0 48 0;
#X connect 47 0 46 0;
#X connect 49 0 86 4;
#X connect 50 0 14 1;
#X connect 51 0 87 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 84 0;
#X connect 67 0 85 0;
#X connect 69 0 70 0;
#X connect 69 0 79 0;
#X connect 70 0 71 0;
#X connect 72 0 86 5;
#X connect 73 0 86 6;
#X connect 74 0 86 7;
#X connect 75 0 87 7;
#X connect 76 0 87 6;
#X connect 77 0 87 5;
#X connect 78 0 86 1;
#X connect 80 0 1 0;
#X connect 81 0 87 1;
#X connect 82 0 5 1;
#X connect 83 0 13 0;
#X connect 86 0 33 0;
#X connect 86 1 32 0;
#X connect 87 0 35 0;
#X connect 88 0 86 3;
#X connect 89 0 87 4;
#X connect 90 0 91 0;
#X connect 91 0 92 0;