view Katana/SigGrooveSwordD2/physicalModelSource.pd @ 303:8b51c20529a6

Edgetone development models

#N canvas 258 116 965 636 10;
#X obj 178 39 inlet;
#X obj 590 18 inlet;
#X obj 178 61 s \$0-diameter;
#X floatatom 669 84 0 0 0 0 - - -;
#X obj 590 84 s \$0-thisPan;
#X obj 590 39 max 0.01;
#X obj 590 62 min 0.99;
#X text 684 168 Mass Density of Air;
#X obj 806 169 *~ 1.225;
#X obj 806 244 /~ 1.81e-05;
#X obj 806 212 *~ 1;
#X obj 806 393 /~ 1;
#X text 708 241 Reynolds Number;
#X text 686 355 Strouhal Number;
#X text 836 224 Viscosity;
#X obj 806 487 s~ \$0-myFreq;
#X text 770 506 Calculates the frequency;
#X text 771 518 based on the physics of;
#X obj 806 309 newStrou;
#X obj 706 340 s~ \$0-str;
#X text 771 531 the object and environment;
#N canvas 718 209 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 floatatom 374 443 0 0 0 0 - - -;
#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 23 0 27 0;
#X connect 24 0 12 1;
#X connect 25 0 8 1;
#X connect 26 0 6 0;
#X restore 824 265 pd StBandwidth;
#X obj 824 288 s \$0-Qval;
#N canvas 366 301 403 499 doppler 0;
#X obj 36 331 inlet~;
#X obj 36 469 outlet~;
#X floatatom 171 469 0 0 0 0 - - -;
#X obj 234 291 snapshot~;
#X floatatom 234 313 0 0 0 0 - - -;
#X obj 158 372 *~ -1;
#X obj 119 351 spigot~;
#X obj 44 361 sig~ 323.56;
#X obj 104 391 +~;
#X obj 89 413 /~;
#X obj 36 437 *~;
#X obj 281 269 r myMet;
#X text 28 8 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 119 254 inlet~;
#X obj 171 446 snapshot~;
#X obj 171 422 r myMet;
#X obj 256 93 r obVertX;
#X obj 271 116 r obVertY;
#X obj 256 136 /;
#X obj 256 156 atan;
#X obj 256 206 + 90;
#X obj 256 179 * 57.2958;
#X obj 187 211 inlet~;
#X obj 140 281 /~ 360;
#X obj 140 303 cos~;
#X obj 119 324 *~;
#X obj 256 228 * -1;
#X obj 235 249 +~ 1;
#X obj 234 269 >~ 0;
#X connect 0 0 10 0;
#X connect 3 0 4 0;
#X connect 3 0 6 1;
#X connect 5 0 8 1;
#X connect 6 0 8 1;
#X connect 6 1 5 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 1;
#X connect 9 0 14 0;
#X connect 10 0 1 0;
#X connect 11 0 3 0;
#X connect 13 0 25 0;
#X connect 14 0 2 0;
#X connect 15 0 14 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 19 0;
#X connect 19 0 21 0;
#X connect 20 0 26 0;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 24 0 25 1;
#X connect 25 0 6 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 3 0;
#X restore 806 456 pd doppler;
#X obj 727 486 snapshot~;
#X floatatom 727 506 0 0 0 0 - - -;
#X obj 727 465 r myMet;
#X obj 373 528 *~;
#X text 140 319 Calculates the gain of the dipole source;
#X obj 373 597 throw~ l;
#X obj 400 575 throw~ r;
#X obj 373 553 fcpan;
#X obj 443 323 s~ \$0-liftNoiseGain;
#X obj 373 384 r~ \$0-liftNoiseGain;
#X obj 400 528 r \$0-thisPan;
#X text 354 358 Noise spectrum calculation;
#X obj 388 476 hip~;
#X obj 388 431 rpole~ 0.99;
#X text 434 342 Calculates the gain of the wake;
#X obj 388 503 hip~;
#X obj 388 408 r~ \$0-thisNoise;
#X obj 474 451 r myMet;
#X obj 464 472 snapshot~;
#X obj 464 431 r~ \$0-myFreq;
#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 295 126 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 obj 360 197 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 360 215 s GO;
#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 connect 79 0 80 0;
#X restore 181 393 pd Dipoles;
#X obj 827 190 r \$0-diameter;
#X obj 827 372 r \$0-diameter;
#X obj 205 142 r~ \$0-str;
#X obj 244 183 r \$0-diameter;
#X obj 11 28 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1
;
#X obj 11 81 s GO;
#X obj 443 150 r~ \$0-str;
#X obj 484 191 r \$0-diameter;
#X obj 737 51 s~ \$0-thisNoise;
#X obj 737 27 noise~;
#X obj 89 39 inlet~;
#X obj 89 62 s~ \$0-speed;
#X obj 806 144 r~ \$0-speed;
#X obj 224 163 r~ \$0-speed;
#X obj 463 171 r~ \$0-speed;
#X obj 834 415 r~ \$0-speed;
#X obj 806 351 *~;
#X obj 827 330 r~ \$0-speed;
#X obj 61 132 r~ \$0-speed;
#X obj 61 152 /~ 343;
#X obj 61 174 s~ \$0-mach;
#X obj 322 265 r~ \$0-mach;
#X obj 566 273 r~ \$0-mach;
#X obj 105 465 r~ \$0-mach;
#X obj 122 485 r~ \$0-speed;
#X obj 156 526 r \$0-diameter;
#N canvas 211 172 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 858 42 pd CavElevCorr;
#X obj 270 59 s \$0-dist;
#X obj 263 206 r \$0-dist;
#X obj 504 212 r \$0-dist;
#X obj 270 36 inlet;
#X obj 139 505 r \$0-dist;
#X floatatom 189 82 0 0 0 0 - - -;
#X floatatom 283 83 0 0 0 0 - - -;
#X obj 352 32 inlet~;
#X obj 419 33 inlet~;
#X obj 352 56 s~ \$0-elev;
#X obj 283 225 r~ \$0-elev;
#X obj 302 246 r~ \$0-azim;
#X obj 525 232 r~ \$0-elev;
#X obj 545 253 r~ \$0-azim;
#X obj 863 435 r~ \$0-azim;
#X obj 174 545 r~ \$0-elev;
#X obj 419 55 s~ \$0-azim;
#N canvas 360 181 797 667 GoldnoiseGainSword 0;
#X text -21258 312 Mass Density of Air \, squared;
#X text -20998 360 Distance;
#N canvas 759 125 235 275 pow8 0;
#X obj 76 35 inlet~;
#X obj 76 67 *~;
#X obj 47 67 *~;
#X obj 47 93 *~;
#X obj 47 121 *~;
#X obj 47 147 outlet~;
#X connect 0 0 1 1;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 0 0 2 1;
#X connect 1 0 3 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X restore -21067 172 pd pow8;
#X obj -21028 234 inlet;
#X obj -21082 565 outlet~;
#X text -21079 596 Gain proportional to windspeed to power 8 for spectrum
;
#X text -20992 235 Diameter;
#X text -21248 575 Calculates wake gain;
#X text -20770 30 Azimuth;
#X text -20810 114 Elevation;
#X obj -21082 319 *~ 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 -20926 423 pd pow5;
#X obj -20926 399 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 47 87 *~;
#X obj 47 118 *~;
#X connect 0 0 3 0;
#X connect 0 0 3 1;
#X connect 1 0 0 0;
#X connect 1 0 0 1;
#X connect 1 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X restore -20891 349 pd pow5;
#X obj -20891 296 sig~ 1;
#X obj -20926 270 sig~ 3.1416;
#X obj -20926 295 *~;
#X obj -20941 247 sig~ 16;
#X obj -20941 319 *~;
#X obj -20941 377 *~;
#X obj -21082 79 inlet~;
#X obj -21082 106 *~;
#X obj -21049 260 *~ 1;
#X obj -21082 295 *~;
#X obj -21082 392 *~ 1;
#X obj -21082 476 *~ 2.50663;
#X text -21027 319 Length;
#X text -21150 478 Sqrt(2*pi);
#X obj -21030 340 r bladeLen;
#X text -21068 124 Source speed;
#X obj -21082 436 /~ 10000;
#X text -21159 436 Scale Factor;
#X text -20675 10 Mach Number;
#X obj -21049 201 sig~ 7;
#X text -21015 184 Set Corrolation Length;
#X obj -20720 103 sig~ 1;
#X obj -20705 130 sig~ 0.7;
#N canvas 927 234 183 208 pow4 0;
#X obj 76 35 inlet~;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 47 93 *~;
#X obj 47 120 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 2 1;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X restore -20690 263 pd pow4;
#X obj -20657 324 /~ 4;
#X obj -20705 416 -~;
#X obj -20720 442 +~;
#X obj -20640 502 snapshot~;
#X obj -20640 479 r myMet;
#X floatatom -20640 527 0 0 0 0 - - -;
#X obj -20941 450 *~;
#X obj -21082 522 /~;
#X obj -21082 543 *~;
#X obj -21082 199 *~;
#X obj -21067 143 inlet~;
#X obj -20671 34 inlet~;
#X obj -20891 323 -~;
#X text -21095 58 Strouhal Number;
#X obj -20705 285 *~;
#X obj -20977 428 inlet;
#X obj -20977 451 *;
#X obj -20998 478 *~ 1;
#X obj -20657 303 +~ 3;
#X obj -20824 95 sig~ 180;
#X obj -20824 156 -~;
#X obj -20809 131 inlet~;
#X obj -20823 178 /~ 360;
#X obj -20809 232 /~ 360;
#X obj -20809 255 cos~;
#X obj -20823 205 cos~;
#X obj -20824 275 *~;
#X obj -20845 297 *~;
#X obj -20769 47 inlet~;
#X obj -20574 281 /~ 360;
#X obj -20574 304 sin~;
#X obj -20574 326 *~;
#X obj -20657 379 *~;
#X obj -20620 277 *~ 2;
#X obj -20620 300 sin~;
#X obj -20619 323 *~;
#X obj -20657 354 *~;
#X connect 2 0 47 1;
#X connect 3 0 22 1;
#X connect 10 0 24 0;
#X connect 11 0 44 1;
#X connect 12 0 11 0;
#X connect 13 0 19 1;
#X connect 14 0 50 0;
#X connect 15 0 16 0;
#X connect 15 0 16 1;
#X connect 16 0 18 1;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 44 0;
#X connect 20 0 21 0;
#X connect 20 0 21 1;
#X connect 21 0 47 0;
#X connect 22 0 23 1;
#X connect 23 0 10 0;
#X connect 24 0 30 0;
#X connect 25 0 45 0;
#X connect 28 0 24 1;
#X connect 30 0 25 0;
#X connect 33 0 22 0;
#X connect 35 0 40 0;
#X connect 36 0 52 0;
#X connect 36 0 56 0;
#X connect 37 0 52 1;
#X connect 38 0 74 0;
#X connect 39 0 40 1;
#X connect 40 0 46 1;
#X connect 41 0 43 0;
#X connect 42 0 41 0;
#X connect 44 0 55 0;
#X connect 45 0 46 0;
#X connect 46 0 4 0;
#X connect 46 0 41 0;
#X connect 47 0 23 0;
#X connect 48 0 2 0;
#X connect 49 0 65 0;
#X connect 50 0 13 0;
#X connect 52 0 39 0;
#X connect 53 0 54 0;
#X connect 53 0 54 1;
#X connect 54 0 55 1;
#X connect 55 0 45 1;
#X connect 56 0 38 0;
#X connect 57 0 58 0;
#X connect 58 0 60 0;
#X connect 59 0 58 1;
#X connect 60 0 63 0;
#X connect 60 0 71 0;
#X connect 61 0 62 0;
#X connect 62 0 64 1;
#X connect 63 0 37 0;
#X connect 63 0 64 0;
#X connect 64 0 65 1;
#X connect 65 0 50 1;
#X connect 66 0 61 0;
#X connect 66 0 67 0;
#X connect 67 0 68 0;
#X connect 68 0 69 1;
#X connect 68 0 69 0;
#X connect 69 0 70 1;
#X connect 70 0 39 1;
#X connect 71 0 72 0;
#X connect 72 0 73 0;
#X connect 72 0 73 1;
#X connect 73 0 74 1;
#X connect 74 0 70 0;
#X restore 442 294 pd GoldnoiseGainSword;
#N canvas 219 118 981 645 GoldfreqGainSword 0;
#N canvas 759 125 180 217 pow6 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 141 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 52 76 pd pow6;
#X obj -24 86 *~;
#X text 254 155 Distance;
#X text 542 503 Calculates Drag Dipole gain;
#X text -134 486 Calculates Lift Dipole gain;
#X obj -24 60 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 text -55 40 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 text 166 235 Speed of Sound to power 3;
#N canvas 682 161 158 182 pow4 0;
#X obj 76 35 inlet~;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 47 93 *~;
#X obj 47 117 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 2 1;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X restore 343 258 pd pow4;
#X obj 576 453 *~ 0.1;
#X text 421 14 Azimuth;
#X text 320 16 Elevation;
#X text 386 222 Remember - Goldstein moves cylinder;
#X obj 88 145 *~ 1;
#X obj 37 165 *~;
#X text 48 32 Source speed;
#X obj 58 218 r bladeLen;
#X obj 88 105 sig~ 7;
#X text 99 89 Set Corr Length;
#X text 494 13 Mach Number;
#X floatatom -51 404 0 0 0 0 - - -;
#X obj -51 384 snapshot~;
#X obj -51 364 r myMet;
#X obj 52 53 inlet~;
#X obj 37 131 *~;
#X obj 507 30 inlet~;
#X obj 343 116 sig~ 1;
#X obj 343 236 -~;
#X obj 37 340 /~;
#X obj 250 171 inlet;
#X obj 250 195 *;
#X obj 250 218 * 4.05513e+07;
#X obj 250 254 * 32;
#X obj 229 303 *~ 1;
#X obj 323 34 inlet~;
#X obj 425 32 inlet~;
#X obj 612 363 cos~;
#X obj 612 387 *~;
#X obj 597 408 *~;
#X obj 597 320 *~;
#X obj 597 296 sin~;
#X obj 612 342 /~ 360;
#X obj 597 274 /~ 360;
#X obj 597 251 +~ 90;
#X obj 121 429 /~ 360;
#X obj 58 430 /~ 360;
#X obj 58 451 sin~;
#X obj 121 451 cos~;
#X obj 58 474 *~;
#X obj 121 475 *~;
#X obj 37 522 *~;
#X obj 37 496 *~;
#X obj 373 170 /~ 360;
#X obj 373 191 cos~;
#X obj 358 213 *~;
#X obj 576 430 *~;
#X connect 0 0 35 1;
#X connect 1 0 35 0;
#X connect 5 0 1 0;
#X connect 5 0 1 1;
#X connect 7 0 24 1;
#X connect 11 0 14 0;
#X connect 14 0 39 0;
#X connect 15 0 11 0;
#X connect 19 0 44 0;
#X connect 20 0 9 0;
#X connect 24 0 25 1;
#X connect 25 0 15 0;
#X connect 27 0 11 1;
#X connect 28 0 24 0;
#X connect 32 0 31 0;
#X connect 33 0 32 0;
#X connect 34 0 0 0;
#X connect 35 0 25 0;
#X connect 36 0 65 0;
#X connect 37 0 38 0;
#X connect 38 0 19 0;
#X connect 39 0 62 0;
#X connect 39 0 66 0;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 43 0 44 1;
#X connect 44 0 39 1;
#X connect 45 0 54 0;
#X connect 45 0 63 0;
#X connect 45 0 56 0;
#X connect 46 0 52 0;
#X connect 46 0 55 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 49 1;
#X connect 49 0 66 1;
#X connect 50 0 49 0;
#X connect 51 0 50 0;
#X connect 51 0 50 1;
#X connect 52 0 47 0;
#X connect 53 0 51 0;
#X connect 54 0 53 0;
#X connect 55 0 58 0;
#X connect 56 0 57 0;
#X connect 57 0 59 0;
#X connect 57 0 59 1;
#X connect 58 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 62 1;
#X connect 60 0 61 1;
#X connect 61 0 8 0;
#X connect 61 0 32 0;
#X connect 62 0 61 0;
#X connect 63 0 64 0;
#X connect 64 0 65 1;
#X connect 65 0 38 1;
#X connect 66 0 20 0;
#X restore 204 291 pd GoldfreqGainSword;
#X connect 0 0 2 0;
#X connect 0 0 77 0;
#X connect 1 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 6 0 4 0;
#X connect 8 0 10 0;
#X connect 9 0 21 0;
#X connect 9 0 18 0;
#X connect 10 0 9 0;
#X connect 11 0 23 0;
#X connect 18 0 19 0;
#X connect 18 0 61 0;
#X connect 21 0 22 0;
#X connect 23 0 15 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 26 0 24 0;
#X connect 27 0 31 0;
#X connect 31 0 29 0;
#X connect 31 1 30 0;
#X connect 33 0 27 0;
#X connect 34 0 31 1;
#X connect 36 0 39 0;
#X connect 37 0 36 0;
#X connect 39 0 27 1;
#X connect 40 0 37 0;
#X connect 41 0 42 0;
#X connect 42 0 36 1;
#X connect 42 0 39 1;
#X connect 43 0 42 0;
#X connect 45 0 10 1;
#X connect 46 0 11 1;
#X connect 47 0 90 0;
#X connect 48 0 90 2;
#X connect 49 0 50 0;
#X connect 51 0 89 0;
#X connect 52 0 89 2;
#X connect 54 0 53 0;
#X connect 55 0 56 0;
#X connect 57 0 8 0;
#X connect 58 0 90 1;
#X connect 59 0 89 1;
#X connect 60 0 23 1;
#X connect 61 0 11 0;
#X connect 62 0 61 1;
#X connect 63 0 64 0;
#X connect 64 0 65 0;
#X connect 66 0 90 6;
#X connect 67 0 89 6;
#X connect 73 0 90 3;
#X connect 74 0 89 3;
#X connect 75 0 72 0;
#X connect 75 0 78 0;
#X connect 79 0 81 0;
#X connect 80 0 88 0;
#X connect 82 0 90 4;
#X connect 83 0 90 5;
#X connect 84 0 89 4;
#X connect 85 0 89 5;
#X connect 86 0 23 2;
#X connect 89 0 32 0;
#X connect 90 0 44 0;
#X connect 90 1 44 1;