Mercurial > hg > weather-synthesis-prototyping
changeset 120:e64cca8a1b70
Mach calc added. Noise converted to quadrupole source. Therefore the lift dipole noise would cross over with drag dipole noise with identical directivity.
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Tue, 04 Aug 2015 08:00:09 +0100 |
| parents | 3b26969be0c2 |
| children | fc6aff2a2493 |
| files | scene demo/angleCalc~.pd scene demo/freqCalcCyl2_D5Mach.pd scene demo/freqCalcCyl2_D6Mach.pd |
| diffstat | 3 files changed, 711 insertions(+), 78 deletions(-) [+] |
line wrap: on
line diff
--- a/scene demo/angleCalc~.pd Sat Aug 01 05:53:38 2015 +0100 +++ b/scene demo/angleCalc~.pd Tue Aug 04 08:00:09 2015 +0100 @@ -1,11 +1,11 @@ #N canvas 741 141 677 520 10; #X obj 463 76 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 5000 1; +-1 -1 0 1; #X text 462 57 Elevation Angle; #X floatatom 152 121 8 0 0 0 - - -; #X floatatom 499 102 5 0 0 0 - - -; #X obj 175 95 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 5300 1; +-262144 -1 -1 0 1; #X text 179 77 Azimuth Angle; #X obj 250 122 inlet~; #X obj 414 102 inlet~; @@ -53,6 +53,7 @@ #X connect 0 0 15 0; #X connect 4 0 2 0; #X connect 4 0 14 0; +#X connect 6 0 8 0; #X connect 7 0 9 0; #X connect 8 0 24 0; #X connect 8 0 42 0;
--- a/scene demo/freqCalcCyl2_D5Mach.pd Sat Aug 01 05:53:38 2015 +0100 +++ b/scene demo/freqCalcCyl2_D5Mach.pd Tue Aug 04 08:00:09 2015 +0100 @@ -1,4 +1,4 @@ -#N canvas 0 23 1440 823 10; +#N canvas -12 23 1440 823 10; #X text 921 115 Mass Density of Air; #X text 145 324 Frequency (Hz); #X obj 1028 486 throw~ l; @@ -87,7 +87,7 @@ 1; #X floatatom 164 472 10 0 0 0 - - -; #X obj 164 373 loadbang; -#N canvas 665 72 843 731 noiseGain 0; +#N canvas 665 72 843 731 noiseGain 1; #X text -21205 129 Mass Density of Air \, squared; #X text -20765 142 Speed of Sound to power 2; #X obj -21070 29 *~; @@ -97,7 +97,7 @@ #X obj -20767 96 *; #X obj -20767 119 * 118033; #X obj -21022 259 /~ 1; -#X obj -21022 532 *~ 0.27; +#X obj -21022 599 *~ 0.27; #X text -20767 49 Distance; #X obj -20916 518 *~ 0.27; #X text -20937 606 Calculates Drag Dipole gain; @@ -143,7 +143,7 @@ #X obj -21022 7 inlet~; #X obj -20989 55 inlet; #X obj -20767 70 inlet; -#X obj -21022 575 outlet~; +#X obj -21022 642 outlet~; #X obj -20916 568 outlet~; #X text -20961 26 Gain proportional to windspeed to power 8 for spectrum ; @@ -152,15 +152,13 @@ #X obj -20991 187 *; #X obj -21022 209 *~ 1; #X text -20950 162 Length; -#X obj -21022 554 *~ 0.02; -#X obj -20916 543 *~ 0.002; #X obj -21005 288 s~ \$0-nGain; #X obj -20886 471 r~ \$0-nGain; #X text -20917 291 Azimuth; #X text -20856 253 Elevation; #X obj -20916 308 inlet; #X obj -20859 269 inlet; -#X obj -20916 350 angleCalc~; +#X obj -20916 354 angleCalc~; #X obj -20916 331 sig~; #X obj -20859 331 sig~; #X obj -20859 311 spigot; @@ -169,7 +167,7 @@ #X obj -21007 419 +~ 90; #X obj -21007 440 /~ 360; #X obj -21007 462 cos~; -#X obj -21022 507 *~; +#X obj -21022 574 *~; #X obj -21007 486 *~; #X obj -20916 426 /~ 360; #X obj -20916 447 cos~; @@ -186,27 +184,35 @@ 1 1; #X obj -21107 455 metro 10; #X obj -21107 476 snapshot~; -#X floatatom -21107 496 5 0 0 0 - - -; +#X floatatom -21107 496 8 0 0 0 - - -; #X obj -20771 448 loadbang; #X obj -20771 469 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj -20771 487 metro 10; #X obj -20771 508 snapshot~; -#X floatatom -20771 528 5 0 0 0 - - -; +#X floatatom -20771 528 8 0 0 0 - - -; #X msg -20825 335 0; #X obj -20788 316 t f b; #X msg -20788 296 0; #X msg -20788 276 1; +#X obj -20963 418 +~ 90; +#X obj -20963 439 /~ 360; +#X obj -20963 461 sin~; +#X obj -20873 426 /~ 360; +#X obj -20873 447 sin~; +#X text -21009 374 Quadrupole; +#X obj -21022 621 *~ 0.002; +#X obj -20916 543 *~ 0.0002; #X connect 2 0 3 1; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 25 0; #X connect 6 0 7 0; #X connect 7 0 8 1; -#X connect 8 0 29 0; -#X connect 8 0 44 0; -#X connect 9 0 27 0; -#X connect 11 0 28 0; +#X connect 8 0 27 0; +#X connect 8 0 42 0; +#X connect 9 0 73 0; +#X connect 11 0 74 0; #X connect 14 0 3 0; #X connect 15 0 2 0; #X connect 15 0 2 1; @@ -218,50 +224,55 @@ #X connect 23 0 24 1; #X connect 24 0 25 1; #X connect 25 0 8 0; -#X connect 27 0 19 0; -#X connect 28 0 20 0; -#X connect 30 0 49 1; -#X connect 33 0 36 0; -#X connect 34 0 38 0; -#X connect 35 0 41 0; -#X connect 35 0 46 0; -#X connect 35 0 53 0; +#X connect 28 0 47 1; +#X connect 31 0 34 0; +#X connect 32 0 36 0; +#X connect 33 0 39 0; +#X connect 33 0 44 0; +#X connect 33 0 51 0; +#X connect 33 0 67 0; +#X connect 33 0 70 0; +#X connect 34 0 33 0; +#X connect 35 0 33 1; #X connect 36 0 35 0; -#X connect 37 0 35 1; -#X connect 38 0 37 0; -#X connect 41 0 42 0; -#X connect 42 0 43 0; -#X connect 43 0 45 0; -#X connect 43 0 45 1; -#X connect 44 0 9 0; -#X connect 45 0 44 1; -#X connect 45 0 58 0; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 41 0 43 0; +#X connect 42 0 9 0; +#X connect 43 0 42 1; +#X connect 43 0 56 0; +#X connect 44 0 45 0; +#X connect 45 0 46 0; #X connect 46 0 47 0; -#X connect 47 0 48 0; -#X connect 47 0 48 1; +#X connect 46 0 61 0; +#X connect 47 0 11 0; #X connect 48 0 49 0; -#X connect 48 0 63 0; -#X connect 49 0 11 0; +#X connect 49 0 50 0; #X connect 50 0 51 0; #X connect 51 0 52 0; -#X connect 52 0 53 0; #X connect 53 0 54 0; +#X connect 54 0 55 0; #X connect 55 0 56 0; #X connect 56 0 57 0; -#X connect 57 0 58 0; #X connect 58 0 59 0; +#X connect 59 0 60 0; #X connect 60 0 61 0; #X connect 61 0 62 0; -#X connect 62 0 63 0; -#X connect 63 0 64 0; -#X connect 65 0 37 0; -#X connect 66 0 38 1; -#X connect 66 1 65 0; -#X connect 67 0 66 0; -#X connect 68 0 38 1; +#X connect 63 0 35 0; +#X connect 64 0 36 1; +#X connect 64 1 63 0; +#X connect 65 0 64 0; +#X connect 66 0 36 1; +#X connect 67 0 68 0; +#X connect 68 0 69 0; +#X connect 69 0 43 1; +#X connect 70 0 71 0; +#X connect 71 0 46 1; +#X connect 73 0 19 0; +#X connect 74 0 20 0; #X restore 334 467 pd noiseGain; #X obj 368 377 r \$0-diameter; -#N canvas 299 77 1040 691 freqGain 1; +#N canvas 299 77 1040 691 freqGain 0; #X text 36 127 Mass Density of Air \, squared; #X text 411 123 Speed of Sound to power 2; #N canvas 759 125 286 289 pow6 0; @@ -329,7 +340,6 @@ #X text 318 240 Elevation; #X obj 258 295 inlet; #X obj 315 256 inlet; -#X obj 258 337 angleCalc~; #X obj 258 318 sig~; #X obj 315 318 sig~; #X obj 315 298 spigot; @@ -378,6 +388,7 @@ #X obj 656 61 s \$0-this_rotaX; #X obj 757 62 s \$0-thisrotaY; #X obj 854 66 s \$0-thisrotaZ; +#X obj 258 337 angleCalc~; #X connect 2 0 4 0; #X connect 3 0 4 1; #X connect 4 0 5 0; @@ -386,7 +397,7 @@ #X connect 7 0 8 0; #X connect 8 0 9 1; #X connect 9 0 29 0; -#X connect 9 0 52 0; +#X connect 9 0 51 0; #X connect 10 0 22 0; #X connect 12 0 16 0; #X connect 16 0 23 0; @@ -401,51 +412,51 @@ #X connect 24 0 25 1; #X connect 25 0 27 1; #X connect 27 0 9 0; -#X connect 30 0 56 1; -#X connect 33 0 36 0; -#X connect 34 0 38 0; -#X connect 35 0 48 0; -#X connect 35 0 53 0; -#X connect 35 0 57 0; -#X connect 36 0 35 0; -#X connect 37 0 35 1; -#X connect 38 0 37 0; +#X connect 30 0 55 1; +#X connect 33 0 35 0; +#X connect 34 0 37 0; +#X connect 35 0 80 0; +#X connect 36 0 80 1; +#X connect 37 0 36 0; +#X connect 40 0 41 0; #X connect 41 0 42 0; -#X connect 42 0 43 0; -#X connect 43 0 57 0; -#X connect 44 0 37 0; -#X connect 45 0 38 1; -#X connect 45 1 44 0; -#X connect 46 0 45 0; -#X connect 47 0 38 1; +#X connect 42 0 56 0; +#X connect 43 0 36 0; +#X connect 44 0 37 1; +#X connect 44 1 43 0; +#X connect 45 0 44 0; +#X connect 46 0 37 1; +#X connect 47 0 48 0; #X connect 48 0 49 0; #X connect 49 0 50 0; -#X connect 50 0 51 0; +#X connect 49 0 50 1; #X connect 50 0 51 1; -#X connect 51 0 52 1; -#X connect 51 0 67 0; -#X connect 52 0 10 0; +#X connect 50 0 66 0; +#X connect 51 0 10 0; +#X connect 52 0 53 0; #X connect 53 0 54 0; +#X connect 53 0 54 1; #X connect 54 0 55 0; -#X connect 54 0 55 1; -#X connect 55 0 56 0; -#X connect 55 0 62 0; -#X connect 56 0 12 0; -#X connect 57 0 58 0; +#X connect 54 0 61 0; +#X connect 55 0 12 0; +#X connect 56 0 57 0; +#X connect 58 0 59 0; #X connect 59 0 60 0; #X connect 60 0 61 0; #X connect 61 0 62 0; -#X connect 62 0 63 0; +#X connect 63 0 64 0; #X connect 64 0 65 0; #X connect 65 0 66 0; #X connect 66 0 67 0; -#X connect 67 0 68 0; +#X connect 68 0 71 0; +#X connect 68 0 77 0; #X connect 69 0 72 0; #X connect 69 0 78 0; #X connect 70 0 73 0; #X connect 70 0 79 0; -#X connect 71 0 74 0; -#X connect 71 0 80 0; +#X connect 80 0 47 0; +#X connect 80 0 52 0; +#X connect 80 0 56 0; #X restore 331 172 pd freqGain; #X obj 489 -54 inlet; #X obj 362 89 r \$0-diameter;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scene demo/freqCalcCyl2_D6Mach.pd Tue Aug 04 08:00:09 2015 +0100 @@ -0,0 +1,621 @@ +#N canvas 0 22 1403 728 10; +#X text 665 171 Mass Density of Air; +#X text 155 334 Frequency (Hz); +#X obj 772 542 throw~ l; +#X obj 799 519 throw~ r; +#X obj 787 393 osc~; +#X obj 787 172 *~ 1.225; +#X obj 787 247 /~ 1.81e-05; +#X obj 787 202 *~ 1; +#X obj 787 365 /~ 1; +#X floatatom 251 312 10 0 0 0 - - -; +#X obj 787 341 *~; +#X obj 262 -41 inlet; +#X text 820 291 Reynolds Number; +#X text 672 355 Strouhal Number; +#X obj 427 -43 inlet; +#X obj 787 423 *~; +#X text 817 227 Viscosity; +#X obj 582 342 *~ 2; +#X obj 582 369 osc~; +#X obj 582 391 *~; +#X obj 772 452 +~; +#X obj 269 -18 s \$0-diameter; +#X obj 848 171 r \$0-diameter; +#X obj 855 346 r \$0-diameter; +#X obj 179 21 s~ \$0-windSpeed; +#X obj 351 60 r~ \$0-windSpeed; +#X obj 854 323 r~ \$0-windSpeed; +#X obj 787 144 r~ \$0-windSpeed; +#X obj 708 392 s~ \$0-myFreq; +#X obj 582 317 r~ \$0-myFreq; +#X obj 179 -21 sig~; +#X obj 179 1 vd~ varwind; +#X obj 179 -45 inlet; +#X obj 1017 120 r~ \$0-myFreq; +#X obj 983 70 noise~; +#X obj 1060 231 *~; +#X obj 173 134 snapshot~; +#X obj 173 109 metro 100; +#X obj 173 87 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X floatatom 173 160 10 0 0 0 - - -; +#X obj 173 61 loadbang; +#X obj 87 109 r~ \$0-myRey; +#X obj 800 271 s~ \$0-myRey; +#X obj 1198 121 snapshot~; +#X floatatom 1198 147 10 0 0 0 - - -; +#X obj 1198 48 loadbang; +#X obj 1198 73 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 1109 19 r~ \$0-myRey; +#X text 158 182 Reynolds Number; +#X obj 983 163 vcf~ 1000 10; +#X obj 772 495 fcpan; +#X obj 1075 204 *~ 1; +#X obj 1109 94 clip~ 2 400; +#X obj 1109 43 *~ -0.003; +#X obj 1198 96 metro 10; +#X obj 675 -47 inlet; +#X floatatom 620 22 8 0 0 0 - - -; +#X obj 675 -23 max 0.1; +#X obj 675 0 min 0.9; +#X text 597 256 Calculates the frequency; +#X text 597 268 based on the physics of; +#X text 597 281 the object and environment; +#X obj 355 342 r~ \$0-windSpeed; +#X obj 174 456 snapshot~; +#X obj 174 431 metro 100; +#X obj 174 409 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X floatatom 174 482 10 0 0 0 - - -; +#X obj 174 383 loadbang; +#N canvas 665 72 843 731 noiseGain 0; +#X text -21205 129 Mass Density of Air \, squared; +#X text -20765 142 Speed of Sound to power 2; +#X obj -21070 29 *~; +#X obj -21022 70 *~; +#X obj -21022 104 *~ 1; +#X obj -21022 132 *~ 1.50063; +#X obj -20767 96 *; +#X obj -20767 119 * 118033; +#X obj -21022 259 /~ 1; +#X obj -21022 599 *~ 0.27; +#X text -20767 49 Distance; +#X obj -20916 518 *~ 0.27; +#X text -20937 606 Calculates Drag Dipole gain; +#X text -21198 525 Calculates Lift Dipole gain; +#N canvas 759 125 286 289 pow8 0; +#X obj 47 67 *~; +#X obj 76 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 106 67 *~; +#X obj 47 93 *~; +#X obj 47 118 *~; +#X obj 136 67 *~; +#X obj 47 144 *~; +#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 9 0; +#X connect 2 0 9 1; +#X connect 2 0 1 0; +#X connect 2 0 12 0; +#X connect 2 0 12 1; +#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 11 1; +#X connect 10 0 11 0; +#X connect 11 0 13 0; +#X connect 12 0 13 1; +#X connect 13 0 3 0; +#X connect 13 0 4 0; +#X restore -21022 32 pd pow8; +#X obj -21070 7 inlet~; +#X obj -21022 7 inlet~; +#X obj -20989 55 inlet; +#X obj -20767 70 inlet; +#X obj -21022 642 outlet~; +#X obj -20916 568 outlet~; +#X text -20961 26 Gain proportional to windspeed to power 8 for spectrum +; +#X text -20981 74 Diameter; +#X obj -20991 163 inlet; +#X obj -20991 187 *; +#X obj -21022 209 *~ 1; +#X text -20950 162 Length; +#X obj -21005 288 s~ \$0-nGain; +#X obj -20886 471 r~ \$0-nGain; +#X text -20917 291 Azimuth; +#X text -20856 253 Elevation; +#X obj -20916 308 inlet; +#X obj -20859 269 inlet; +#X obj -20916 354 angleCalc~; +#X obj -20916 331 sig~; +#X obj -20859 331 sig~; +#X obj -20859 311 spigot; +#X text -20757 275 End Source; +#X text -20756 294 Mid Source; +#X obj -21007 419 +~ 90; +#X obj -21007 440 /~ 360; +#X obj -21007 462 cos~; +#X obj -21022 574 *~; +#X obj -21007 486 *~; +#X obj -20916 426 /~ 360; +#X obj -20916 447 cos~; +#X obj -20916 471 *~; +#X obj -20916 494 *~; +#X obj -20807 358 loadbang; +#X obj -20807 379 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20807 397 metro 10; +#X obj -20807 418 snapshot~; +#X floatatom -20807 438 5 0 0 0 - - -; +#X obj -21107 416 loadbang; +#X obj -21107 437 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -21107 455 metro 10; +#X obj -21107 476 snapshot~; +#X floatatom -21107 496 8 0 0 0 - - -; +#X obj -20771 448 loadbang; +#X obj -20771 469 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20771 487 metro 10; +#X obj -20771 508 snapshot~; +#X floatatom -20771 528 8 0 0 0 - - -; +#X msg -20825 335 0; +#X obj -20788 316 t f b; +#X msg -20788 296 0; +#X msg -20788 276 1; +#X obj -20963 418 +~ 90; +#X obj -20963 439 /~ 360; +#X obj -20963 461 sin~; +#X obj -20873 426 /~ 360; +#X obj -20873 447 sin~; +#X text -21009 374 Quadrupole; +#X obj -21022 621 *~ 0.002; +#X obj -20916 543 *~ 0.0002; +#X connect 2 0 3 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 5 0 25 0; +#X connect 6 0 7 0; +#X connect 7 0 8 1; +#X connect 8 0 27 0; +#X connect 8 0 42 0; +#X connect 9 0 73 0; +#X connect 11 0 74 0; +#X connect 14 0 3 0; +#X connect 15 0 2 0; +#X connect 15 0 2 1; +#X connect 16 0 14 0; +#X connect 17 0 4 1; +#X connect 18 0 6 0; +#X connect 18 0 6 1; +#X connect 23 0 24 0; +#X connect 23 0 24 1; +#X connect 24 0 25 1; +#X connect 25 0 8 0; +#X connect 28 0 47 1; +#X connect 31 0 34 0; +#X connect 32 0 36 0; +#X connect 33 0 39 0; +#X connect 33 0 44 0; +#X connect 33 0 51 0; +#X connect 33 0 67 0; +#X connect 33 0 70 0; +#X connect 34 0 33 0; +#X connect 35 0 33 1; +#X connect 36 0 35 0; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 41 0 43 0; +#X connect 42 0 9 0; +#X connect 43 0 42 1; +#X connect 43 0 56 0; +#X connect 44 0 45 0; +#X connect 45 0 46 0; +#X connect 46 0 47 0; +#X connect 46 0 61 0; +#X connect 47 0 11 0; +#X connect 48 0 49 0; +#X connect 49 0 50 0; +#X connect 50 0 51 0; +#X connect 51 0 52 0; +#X connect 53 0 54 0; +#X connect 54 0 55 0; +#X connect 55 0 56 0; +#X connect 56 0 57 0; +#X connect 58 0 59 0; +#X connect 59 0 60 0; +#X connect 60 0 61 0; +#X connect 61 0 62 0; +#X connect 63 0 35 0; +#X connect 64 0 36 1; +#X connect 64 1 63 0; +#X connect 65 0 64 0; +#X connect 66 0 36 1; +#X connect 67 0 68 0; +#X connect 68 0 69 0; +#X connect 69 0 43 1; +#X connect 70 0 71 0; +#X connect 71 0 46 1; +#X connect 73 0 19 0; +#X connect 74 0 20 0; +#X restore 344 477 pd noiseGain; +#X obj 378 387 r \$0-diameter; +#N canvas 299 77 1040 691 freqGain 0; +#X text 36 127 Mass Density of Air \, squared; +#X text 411 123 Speed of Sound to power 2; +#N canvas 759 125 286 289 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 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 restore 219 30 pd pow6; +#X obj 173 32 *~; +#X obj 219 68 *~; +#X obj 219 102 *~ 1; +#X obj 219 130 *~ 1.50063; +#X obj 404 71 *; +#X obj 404 96 * 118033; +#X obj 219 224 /~ 1; +#X obj 219 497 *~ 0.27; +#X text 424 30 Distance; +#X obj 319 473 *~ 0.27; +#X floatatom 369 72 5 0 0 0 - - -; +#X text 304 556 Calculates Drag Dipole gain; +#X text 48 504 Calculates Lift Dipole gain; +#X obj 319 498 *~ 0.1; +#X obj 173 8 inlet~; +#X obj 219 7 inlet~; +#X text 256 54 Diameter; +#X obj 250 69 inlet; +#X obj 404 46 inlet; +#X obj 219 524 outlet~; +#X obj 319 523 outlet~; +#X obj 250 156 inlet; +#X obj 250 180 *; +#X text 288 151 Length; +#X obj 219 202 *~ 1; +#X text 397 195 Add in MACH deflection; +#X obj 236 253 s~ \$0-aGain; +#X obj 347 424 r~ \$0-aGain; +#X text 257 278 Azimuth; +#X text 318 240 Elevation; +#X obj 258 295 inlet; +#X obj 315 256 inlet; +#X obj 258 318 sig~; +#X obj 315 318 sig~; +#X obj 315 298 spigot; +#X text 414 265 End Source; +#X text 415 284 Mid Source; +#X obj 432 343 loadbang; +#X obj 432 364 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 432 382 metro 10; +#X msg 349 322 0; +#X obj 386 303 t f b; +#X msg 386 283 0; +#X msg 386 263 1; +#X obj 234 382 +~ 90; +#X obj 234 403 /~ 360; +#X obj 234 425 cos~; +#X obj 234 449 *~; +#X obj 219 472 *~; +#X obj 319 377 /~ 360; +#X obj 319 400 cos~; +#X obj 319 424 *~; +#X obj 319 449 *~; +#X obj 432 403 snapshot~; +#X floatatom 432 423 5 0 0 0 - - -; +#X obj 466 450 loadbang; +#X obj 466 471 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 466 489 metro 10; +#X obj 466 510 snapshot~; +#X floatatom 466 530 5 0 0 0 - - -; +#X obj 149 366 loadbang; +#X obj 149 387 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 149 405 metro 10; +#X obj 149 426 snapshot~; +#X floatatom 149 446 5 0 0 0 - - -; +#X obj 651 38 inlet; +#X obj 750 40 inlet; +#X obj 846 43 inlet; +#X floatatom 651 85 5 0 0 0 - - -; +#X floatatom 750 86 5 0 0 0 - - -; +#X floatatom 847 87 5 0 0 0 - - -; +#X text 647 19 X Rotation; +#X text 744 21 Y Rotation; +#X text 841 24 Z Rotation; +#X obj 656 61 s \$0-this_rotaX; +#X obj 757 62 s \$0-thisrotaY; +#X obj 854 66 s \$0-thisrotaZ; +#X obj 258 337 angleCalc~; +#X connect 2 0 4 0; +#X connect 3 0 4 1; +#X connect 4 0 5 0; +#X connect 5 0 6 0; +#X connect 6 0 27 0; +#X connect 7 0 8 0; +#X connect 8 0 9 1; +#X connect 9 0 29 0; +#X connect 9 0 51 0; +#X connect 10 0 22 0; +#X connect 12 0 16 0; +#X connect 16 0 23 0; +#X connect 17 0 3 0; +#X connect 17 0 3 1; +#X connect 18 0 2 0; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 21 0 7 0; +#X connect 21 0 13 0; +#X connect 24 0 25 0; +#X connect 24 0 25 1; +#X connect 25 0 27 1; +#X connect 27 0 9 0; +#X connect 30 0 55 1; +#X connect 33 0 35 0; +#X connect 34 0 37 0; +#X connect 35 0 80 0; +#X connect 36 0 80 1; +#X connect 37 0 36 0; +#X connect 40 0 41 0; +#X connect 41 0 42 0; +#X connect 42 0 56 0; +#X connect 43 0 36 0; +#X connect 44 0 37 1; +#X connect 44 1 43 0; +#X connect 45 0 44 0; +#X connect 46 0 37 1; +#X connect 47 0 48 0; +#X connect 48 0 49 0; +#X connect 49 0 50 0; +#X connect 49 0 50 1; +#X connect 50 0 51 1; +#X connect 50 0 66 0; +#X connect 51 0 10 0; +#X connect 52 0 53 0; +#X connect 53 0 54 0; +#X connect 53 0 54 1; +#X connect 54 0 55 0; +#X connect 54 0 61 0; +#X connect 55 0 12 0; +#X connect 56 0 57 0; +#X connect 58 0 59 0; +#X connect 59 0 60 0; +#X connect 60 0 61 0; +#X connect 61 0 62 0; +#X connect 63 0 64 0; +#X connect 64 0 65 0; +#X connect 65 0 66 0; +#X connect 66 0 67 0; +#X connect 68 0 71 0; +#X connect 68 0 77 0; +#X connect 69 0 72 0; +#X connect 69 0 78 0; +#X connect 70 0 73 0; +#X connect 70 0 79 0; +#X connect 80 0 47 0; +#X connect 80 0 52 0; +#X connect 80 0 56 0; +#X restore 341 182 pd freqGain; +#X obj 499 -44 inlet; +#X obj 372 99 r \$0-diameter; +#X obj 573 -45 inlet; +#X floatatom 427 4 5 0 0 0 - - -; +#X floatatom 499 2 5 0 0 0 - - -; +#X floatatom 574 -1 5 0 0 0 - - -; +#X obj 122 312 outlet; +#X obj 983 117 hip~; +#X obj 166 285 snapshot~; +#X obj 166 238 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 166 212 loadbang; +#X obj 166 260 metro 10; +#X obj 87 262 r~ \$0-myFreq; +#X text 173 511 Strouhal Number; +#X text 331 243 Calculates the gain of the dipole source; +#X text 335 541 Calculates the gain of the source; +#X text 565 -64 Azimuth; +#X text 680 -65 Pan; +#X text 493 -63 Elevation; +#X text 423 -62 Distance; +#X text 257 -62 Diameter; +#X text 172 -63 Wind Speed; +#X obj 354 -44 inlet; +#X floatatom 354 0 5 0 0 0 - - -; +#X text 350 -63 Length; +#X obj 787 312 newStrou; +#X floatatom 122 -5 5 0 0 0 - - -; +#X floatatom 262 3 5 0 0 0 - - -; +#X obj 1109 68 +~ 30; +#X obj 1060 319 throw~ l; +#X obj 1087 297 throw~ r; +#X obj 1060 275 fcpan; +#X obj 364 -21 s \$0-leng; +#X obj 432 -20 s \$0-dist; +#X obj 506 -22 s \$0-elev; +#X obj 581 -22 s \$0-azim; +#X obj 341 39 r~ \$0-str; +#X obj 362 79 r \$0-leng; +#X obj 383 119 r \$0-azim; +#X obj 393 140 r \$0-elev; +#X obj 404 161 r \$0-dist; +#X obj 404 206 s~ \$0-dragDiGain; +#X obj 341 226 s~ \$0-liftDiGain; +#X obj 344 319 r~ \$0-str; +#X obj 367 363 r \$0-leng; +#X obj 401 430 r \$0-elev; +#X obj 390 407 r \$0-azim; +#X obj 413 453 r \$0-dist; +#X obj 413 500 s~ \$0-dragNoiseGain; +#X obj 344 522 s~ \$0-liftNoiseGain; +#X obj 615 371 r~ \$0-dragDiGain; +#X obj 681 342 s~ \$0-str; +#X obj 825 393 r~ \$0-liftDiGain; +#X obj 799 466 r \$0-thisPan; +#X obj 675 22 s \$0-thisPan; +#X obj 1004 94 r \$0-contFreq; +#X obj 166 312 s \$0-contFreq; +#X obj 89 431 r~ \$0-str; +#X obj 1075 162 r~ \$0-liftNoiseGain; +#X obj 1087 256 r \$0-thisPan; +#X obj 770 -38 inlet; +#X obj 842 -39 inlet; +#X obj 916 -40 inlet; +#X floatatom 770 9 5 0 0 0 - - -; +#X floatatom 842 7 5 0 0 0 - - -; +#X floatatom 917 4 5 0 0 0 - - -; +#X obj 775 -15 s \$0-rotaX; +#X obj 849 -17 s \$0-rotaY; +#X obj 924 -17 s \$0-rotaZ; +#X text 766 -57 X Rotation; +#X text 836 -58 Y Rotation; +#X text 911 -59 Z Rotation; +#X text 1114 221 Noise spectrum calculation; +#X connect 4 0 15 0; +#X connect 5 0 7 0; +#X connect 6 0 42 0; +#X connect 6 0 96 0; +#X connect 7 0 6 0; +#X connect 8 0 4 0; +#X connect 8 0 28 0; +#X connect 10 0 8 0; +#X connect 11 0 21 0; +#X connect 11 0 98 0; +#X connect 14 0 74 0; +#X connect 14 0 104 0; +#X connect 15 0 20 1; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 19 0 20 0; +#X connect 20 0 50 0; +#X connect 22 0 7 1; +#X connect 23 0 8 1; +#X connect 25 0 70 1; +#X connect 26 0 10 1; +#X connect 27 0 5 0; +#X connect 29 0 17 0; +#X connect 30 0 31 0; +#X connect 31 0 24 0; +#X connect 32 0 30 0; +#X connect 32 0 97 0; +#X connect 33 0 49 1; +#X connect 34 0 78 0; +#X connect 35 0 102 0; +#X connect 36 0 39 0; +#X connect 37 0 36 0; +#X connect 38 0 37 0; +#X connect 40 0 38 0; +#X connect 41 0 36 0; +#X connect 43 0 44 0; +#X connect 43 0 49 2; +#X connect 45 0 46 0; +#X connect 46 0 54 0; +#X connect 47 0 53 0; +#X connect 49 0 35 0; +#X connect 50 0 2 0; +#X connect 50 1 3 0; +#X connect 51 0 35 1; +#X connect 52 0 43 0; +#X connect 53 0 99 0; +#X connect 54 0 43 0; +#X connect 55 0 57 0; +#X connect 57 0 58 0; +#X connect 58 0 56 0; +#X connect 58 0 125 0; +#X connect 62 0 68 1; +#X connect 63 0 66 0; +#X connect 64 0 63 0; +#X connect 65 0 64 0; +#X connect 67 0 65 0; +#X connect 68 0 120 0; +#X connect 68 1 119 0; +#X connect 69 0 68 3; +#X connect 70 0 113 0; +#X connect 70 1 112 0; +#X connect 71 0 75 0; +#X connect 71 0 105 0; +#X connect 72 0 70 3; +#X connect 73 0 76 0; +#X connect 73 0 106 0; +#X connect 78 0 49 0; +#X connect 79 0 77 0; +#X connect 79 0 9 0; +#X connect 79 0 127 0; +#X connect 80 0 82 0; +#X connect 81 0 80 0; +#X connect 82 0 79 0; +#X connect 83 0 79 0; +#X connect 93 0 94 0; +#X connect 93 0 103 0; +#X connect 96 0 10 0; +#X connect 96 0 122 0; +#X connect 99 0 52 0; +#X connect 102 0 100 0; +#X connect 102 1 101 0; +#X connect 107 0 70 0; +#X connect 108 0 70 2; +#X connect 109 0 70 4; +#X connect 110 0 70 5; +#X connect 111 0 70 6; +#X connect 114 0 68 0; +#X connect 115 0 68 2; +#X connect 116 0 68 5; +#X connect 117 0 68 4; +#X connect 118 0 68 6; +#X connect 121 0 19 1; +#X connect 123 0 15 1; +#X connect 124 0 50 1; +#X connect 126 0 78 1; +#X connect 128 0 63 0; +#X connect 129 0 51 0; +#X connect 130 0 102 1; +#X connect 131 0 134 0; +#X connect 131 0 137 0; +#X connect 132 0 135 0; +#X connect 132 0 138 0; +#X connect 133 0 136 0; +#X connect 133 0 139 0;