Mercurial > hg > weather-synthesis-prototyping
changeset 155:be0f8470d010
Averaging Acoustic Intensity calculation
Calculating Turbulence Intensity
New Gain Equation Implemented
Doubled up in HIP~ to ge the correct wake response output
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Mon, 18 Jan 2016 14:38:06 +0000 |
| parents | af6801647567 |
| children | e05d98370da8 |
| files | .DS_Store scene demo/WindGenD1.pd scene demo/freqCalcCyl3No_D1Mach.pd scene demo/newStrou.pd scene demo/testBed.pd |
| diffstat | 5 files changed, 1414 insertions(+), 331 deletions(-) [+] |
line wrap: on
line diff
--- a/scene demo/WindGenD1.pd Tue Jan 12 10:56:14 2016 +0000 +++ b/scene demo/WindGenD1.pd Mon Jan 18 14:38:06 2016 +0000 @@ -1,9 +1,9 @@ -#N canvas 551 105 849 658 10; +#N canvas 371 89 893 783 10; #X obj 147 202 +~ 1; #X obj 147 297 +~; #X obj 147 224 *~ 0.25; #X obj 163 274 +~; -#X obj 147 320 clip~ 0 1; +#X obj 194 367 clip~ 0 1; #N canvas 939 160 373 400 squall 0; #X obj 113 208 noise~; #X obj 113 271 hip~ 0; @@ -72,9 +72,6 @@ #X restore 162 250 pd gust; #X obj 147 341 outlet~; #X obj 147 180 osc~ 0.01; -#X obj 103 384 osc~; -#X obj 103 341 *~ 200; -#X obj 103 363 +~ 600; #X obj 65 -24 noise~; #X obj 147 155 line; #X floatatom 94 180 8 0 0 0 - - -; @@ -82,23 +79,22 @@ #X obj 147 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 200 101 8 0 0 0 - - -; -#X obj 103 408 dac~; #X obj 65 2 lop~ 2000; #X obj 65 26 +~ 0.6; #X obj 120 155 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 8 221 loadbang; +#X obj 54 270 loadbang; #X obj 147 3 loadbang; -#X obj 8 321 snapshot~; -#X obj 8 274 metro 100; -#X obj 8 249 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 -; -#X floatatom 10 374 0 0 0 0 - - -; +#X obj 54 336 snapshot~; +#X obj 54 311 metro 100; +#X obj 54 292 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 54 382 0 0 0 0 - - -; #X obj 148 101 * 0.2; #X msg 148 128 \$1 10; #X obj 147 52 metro 2000; -#X obj -36 373 outlet; -#X obj 10 347 * 0.1; +#X obj 8 381 outlet; +#X obj 54 358 * 0.1; #X obj 280 -74 noise~; #X obj 280 -48 lop~ 2000; #X obj 280 -24 +~ 0.6; @@ -109,107 +105,150 @@ #X floatatom 254 49 5 0 0 0 - - -; #X obj 204 -6 metro 4000; #X obj 280 1 *~ 3000; -#X obj 499 402 unpack; -#X floatatom 499 452 0 0 0 0 - - -; -#X floatatom 513 429 0 0 0 0 - - -; -#X obj 499 362 route 1 2 3 4; -#X obj 582 402 unpack; -#X floatatom 582 452 0 0 0 0 - - -; -#X floatatom 596 429 0 0 0 0 - - -; -#X obj 666 402 unpack; -#X floatatom 666 452 0 0 0 0 - - -; -#X floatatom 680 429 0 0 0 0 - - -; -#X obj 357 402 unpack; -#X floatatom 357 452 0 0 0 0 - - -; -#X floatatom 371 429 0 0 0 0 - - -; -#X floatatom 434 452 0 0 0 0 - - -; -#X text 637 321 number of pitch outlets (1-3 \, default 1); -#X text 637 343 number of peaks to find (1-100 \, default 20); -#X text 637 365 number of peaks to output (default 0.); -#X obj 378 331 fiddle~ 1024 1 20 3; -#X text 506 476 individual sinusoidal components; -#X text 434 474 amplitude; -#X text 444 489 (dB); -#X text 357 474 raw pitch; -#X text 344 498 and amplitude; -#X text 332 515 (up to 3 outputs); -#X text 513 331 ------ arguments:; -#X obj 393 253 osc~ 100; #X obj 230 54 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 242 302 *~ 2; -#X obj 243 324 -~ 1; -#X obj 504 118 loadbang; -#X obj 504 218 snapshot~; -#X obj 504 171 metro 100; -#X obj 504 146 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +#X obj 309 317 loadbang; +#X obj 309 383 snapshot~; +#X obj 309 340 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; -#X floatatom 506 271 0 0 0 0 - - -; -#X obj 226 376 -~; +#X floatatom 309 404 0 0 0 0 - - -; +#X obj 215 320 -~; +#X obj 480 -31 *~; +#X obj 501 -50 *~; +#X obj 486 15 sqrt~; +#X obj 486 -8 +~; +#X obj 150 496 outlet; +#X obj 437 5 abs~; +#X obj 516 197 framp~; +#X obj 516 256 print~ frequency; +#X obj 549 233 print~ amplitude; +#X obj 563 126 loadbang; +#X obj 563 149 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 563 171 metro 100; +#X msg 564 197 bang; +#N canvas 0 22 450 300 (subpatch) 0; +#X array \$0-array 64 float 0; +#X coords 0 0.01 63 -0.01 160 100 1 0 0; +#X restore 533 349 graph; +#X obj 533 459 table \$0-array2; +#X obj 621 270 tabwrite~ \$0-array2; +#X obj 391 87 osc~ 10000; +#X obj 517 164 rfft~; +#X obj 446 264 hssc~; +#X floatatom 443 310 0 0 0 0 - - -; +#X msg 486 246 2; +#X obj 441 479 f; +#X obj 413 520 count 10000; +#X obj 378 535 /; +#X floatatom 376 592 6 0 0 0 - - -; +#X floatatom 471 557 5 0 0 0 - - -; +#X floatatom 299 540 0 0 0 0 - - -; +#X obj 380 511 +; +#X msg 468 491 reset; +#X obj 413 428 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X msg 416 458 0; +#X obj 296 500 spigot; +#X msg 328 475 1; +#X msg 287 469 0; +#X obj 347 452 spigot; +#X obj 309 362 metro 1000; +#X obj 378 562 + 0.005; +#X floatatom 337 586 5 0 0 0 - - -; +#X obj 199 409 loadbang; +#X obj 199 475 snapshot~; +#X obj 199 432 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 199 496 0 0 0 0 - - -; +#X obj 199 454 metro 10; #X connect 0 0 2 0; -#X connect 1 0 4 0; -#X connect 1 0 72 0; +#X connect 1 0 7 0; +#X connect 1 0 43 0; +#X connect 1 0 40 0; +#X connect 1 0 83 0; #X connect 2 0 5 0; #X connect 2 0 6 0; #X connect 2 0 1 0; -#X connect 2 0 76 0; +#X connect 2 0 43 1; #X connect 3 0 1 1; -#X connect 3 0 24 0; -#X connect 4 0 7 0; -#X connect 4 0 10 0; -#X connect 4 0 76 1; +#X connect 3 0 20 0; #X connect 5 0 3 1; #X connect 6 0 3 0; #X connect 8 0 0 0; +#X connect 9 0 15 0; +#X connect 10 0 8 0; #X connect 10 0 11 0; -#X connect 11 0 9 0; -#X connect 12 0 19 0; -#X connect 13 0 8 0; -#X connect 13 0 14 0; -#X connect 15 0 17 0; -#X connect 15 0 28 0; -#X connect 16 0 30 0; -#X connect 19 0 20 0; -#X connect 20 0 15 0; -#X connect 22 0 26 0; -#X connect 23 0 16 0; -#X connect 24 0 32 0; -#X connect 25 0 24 0; -#X connect 26 0 25 0; -#X connect 28 0 29 0; -#X connect 29 0 13 0; -#X connect 29 0 21 0; -#X connect 30 0 15 0; -#X connect 32 0 31 0; -#X connect 32 0 27 0; -#X connect 33 0 34 0; -#X connect 34 0 35 0; -#X connect 35 0 41 0; -#X connect 36 0 30 1; -#X connect 36 0 39 0; -#X connect 36 0 68 0; -#X connect 37 0 40 0; -#X connect 38 0 37 0; -#X connect 40 0 36 0; -#X connect 41 0 36 0; -#X connect 42 0 43 0; -#X connect 42 1 44 0; -#X connect 45 0 42 0; -#X connect 45 1 46 0; -#X connect 45 2 49 0; -#X connect 46 0 47 0; -#X connect 46 1 48 0; -#X connect 49 0 50 0; -#X connect 49 1 51 0; -#X connect 52 0 53 0; -#X connect 52 1 54 0; -#X connect 59 2 52 0; -#X connect 59 3 55 0; -#X connect 59 4 45 0; -#X connect 69 0 70 0; -#X connect 70 0 59 0; -#X connect 71 0 74 0; -#X connect 72 0 75 0; -#X connect 73 0 72 0; -#X connect 74 0 73 0; -#X connect 76 0 69 0; +#X connect 12 0 14 0; +#X connect 12 0 24 0; +#X connect 13 0 26 0; +#X connect 15 0 16 0; +#X connect 16 0 12 0; +#X connect 18 0 22 0; +#X connect 19 0 13 0; +#X connect 20 0 28 0; +#X connect 21 0 20 0; +#X connect 22 0 21 0; +#X connect 24 0 25 0; +#X connect 25 0 10 0; +#X connect 25 0 17 0; +#X connect 26 0 12 0; +#X connect 28 0 27 0; +#X connect 28 0 23 0; +#X connect 29 0 30 0; +#X connect 30 0 31 0; +#X connect 31 0 37 0; +#X connect 32 0 26 1; +#X connect 32 0 35 0; +#X connect 32 0 38 0; +#X connect 33 0 36 0; +#X connect 34 0 33 0; +#X connect 36 0 32 0; +#X connect 37 0 32 0; +#X connect 39 0 41 0; +#X connect 40 0 42 0; +#X connect 41 0 79 0; +#X connect 42 0 75 0; +#X connect 43 0 61 0; +#X connect 44 0 47 0; +#X connect 45 0 47 1; +#X connect 47 0 46 0; +#X connect 50 0 51 0; +#X connect 50 1 52 0; +#X connect 53 0 54 0; +#X connect 54 0 55 0; +#X connect 56 0 51 0; +#X connect 56 0 52 0; +#X connect 61 0 50 0; +#X connect 61 0 62 0; +#X connect 61 1 50 1; +#X connect 61 1 62 1; +#X connect 62 0 63 0; +#X connect 64 0 62 2; +#X connect 65 0 71 1; +#X connect 66 0 67 1; +#X connect 66 0 69 0; +#X connect 67 0 80 0; +#X connect 67 0 81 0; +#X connect 71 0 65 0; +#X connect 71 0 70 0; +#X connect 71 0 67 0; +#X connect 72 0 66 0; +#X connect 72 0 71 0; +#X connect 73 0 66 0; +#X connect 73 0 71 0; +#X connect 74 0 65 0; +#X connect 75 0 71 0; +#X connect 76 0 75 1; +#X connect 76 0 78 1; +#X connect 77 0 75 1; +#X connect 77 0 78 1; +#X connect 78 0 66 0; +#X connect 79 0 40 0; +#X connect 79 0 78 0; +#X connect 80 0 68 0; +#X connect 82 0 84 0; +#X connect 83 0 85 0; +#X connect 83 0 48 0; +#X connect 84 0 86 0; +#X connect 86 0 83 0;
--- a/scene demo/freqCalcCyl3No_D1Mach.pd Tue Jan 12 10:56:14 2016 +0000 +++ b/scene demo/freqCalcCyl3No_D1Mach.pd Mon Jan 18 14:38:06 2016 +0000 @@ -1,4 +1,4 @@ -#N canvas 48 38 1396 823 10; +#N canvas 33 30 1396 823 10; #X text 567 158 Mass Density of Air; #X text 96 418 Frequency (Hz); #X obj 689 159 *~ 1.225; @@ -24,7 +24,7 @@ #X obj 120 63 sig~; #X obj 120 85 vd~ varwind; #X obj 120 39 inlet; -#X obj 1040 310 *~; +#X obj 1040 338 *~; #X obj 114 218 snapshot~; #X obj 114 193 metro 100; #X obj 114 171 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 @@ -41,14 +41,14 @@ #X text 653 395 Calculates the frequency; #X text 654 407 based on the physics of; #X text 654 420 the object and environment; -#X obj 274 384 r~ \$0-windSpeed; +#X obj 287 384 r~ \$0-windSpeed; #X obj 115 540 snapshot~; #X obj 115 515 metro 100; #X obj 115 493 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 115 566 10 0 0 0 - - -; #X obj 115 467 loadbang; -#X obj 292 437 r \$0-diameter; +#X obj 327 446 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; @@ -261,9 +261,9 @@ #X obj 689 299 newStrou; #X floatatom 63 79 5 0 0 0 - - -; #X floatatom 203 87 5 0 0 0 - - -; -#X obj 1040 379 throw~ l; -#X obj 1067 357 throw~ r; -#X obj 1040 335 fcpan; +#X obj 1040 407 throw~ l; +#X obj 1067 385 throw~ r; +#X obj 1040 363 fcpan; #X obj 305 63 s \$0-leng; #X obj 373 64 s \$0-dist; #X obj 124 619 r~ \$0-str; @@ -273,10 +273,10 @@ #X obj 187 741 r \$0-dist; #X obj 380 311 s~ \$0-dragDiGain; #X obj 293 332 s~ \$0-liftDiGain; -#X obj 372 405 r~ \$0-str; -#X obj 293 410 r \$0-leng; -#X obj 311 458 r \$0-dist; -#X obj 274 555 s~ \$0-liftNoiseGain; +#X obj 274 365 r~ \$0-str; +#X obj 313 424 r \$0-leng; +#X obj 340 467 r \$0-dist; +#X obj 274 584 s~ \$0-liftNoiseGain; #X obj 1076 454 r~ \$0-dragDiGain; #X obj 589 330 s~ \$0-str; #X obj 616 106 s \$0-thisPan; @@ -284,7 +284,7 @@ #X obj 107 396 s \$0-contFreq; #X obj 30 515 r~ \$0-str; #X obj 1040 182 r~ \$0-liftNoiseGain; -#X obj 1067 310 r \$0-thisPan; +#X obj 1067 338 r \$0-thisPan; #X obj 711 46 inlet; #X obj 783 45 inlet; #X obj 857 44 inlet; @@ -372,21 +372,21 @@ #X connect 20 0 14 1; #X connect 21 0 17 0; #X connect 22 0 19 1; -#X restore 219 30 pd pow6; +#X restore 219 42 pd pow6; #X obj 173 32 *~; #X obj 219 68 *~; #X obj 404 137 *; #X text 533 2 Distance; #X floatatom 513 62 5 0 0 0 - - -; -#X text 724 562 Calculates Drag Dipole gain; -#X text 48 626 Calculates Lift Dipole gain; -#X obj 173 8 inlet~; -#X obj 219 7 inlet~; +#X text 724 595 Calculates Drag Dipole gain; +#X text 48 647 Calculates Lift Dipole gain; +#X obj 173 -8 inlet~; +#X obj 219 -9 inlet~; #X text 328 62 Diameter; #X obj 291 61 inlet; #X obj 513 18 inlet; -#X obj 219 646 outlet~; -#X obj 758 537 outlet~; +#X obj 219 667 outlet~; +#X obj 758 570 outlet~; #X obj 240 159 inlet; #X text 278 154 Length; #X obj 219 185 *~ 1; @@ -425,8 +425,8 @@ #X obj 819 42 s \$0-this_rotaX; #X obj 920 43 s \$0-thisrotaY; #X obj 1017 47 s \$0-thisrotaZ; -#X text 74 8 Strouhal number; -#X text 269 7 Wind speed; +#X text 74 -8 Strouhal number; +#X text 269 -9 Wind speed; #X text 266 103 Corr Length; #X obj 219 225 *~ 2.50663; #X obj 219 130 *~ 1.225; @@ -436,7 +436,7 @@ #X obj 322 466 /~ 360; #X obj 322 512 *~; #X obj 322 488 cos~; -#X obj 219 566 *~; +#X obj 219 558 *~; #X obj 404 167 * 4.05513e+07; #X text 355 186 Speed of Sound to power 3; #X obj 404 220 * 32; @@ -508,8 +508,8 @@ #X text 297 695 comment; #X obj 557 139 r~ plotElev; #X obj 245 439 r~ plotElev; -#X obj 150 588 s~ plotOPF; -#X obj 676 541 s~ plotOPD; +#X obj 139 628 s~ plotOPF; +#X obj 676 574 s~ plotOPD; #X obj 616 44 s \$0-this_elev; #X obj 720 44 s \$0-this_azim; #X obj 518 117 r \$0-this_elev; @@ -526,7 +526,6 @@ #X obj 757 289 r~ plotElev; #X floatatom 359 169 5 0 0 0 - - -; #X obj 518 170 /~ 360; -#X text 684 638 comment; #X obj 758 475 *~; #X obj 424 40 s~ \$0-thisColL; #X obj 270 42 r~ \$0-thisColL; @@ -535,15 +534,387 @@ #X obj 424 17 inlet~; #X obj 534 620 cos~; #X obj 534 595 *~ 2; +#N canvas 228 23 895 824 timeAve 0; +#X obj 63 29 delay~ 1; +#X obj 76 52 delay~ 1; +#X obj 87 76 delay~ 1; +#X obj 48 7 inlet~; +#X obj 96 100 delay~ 1; +#X obj 107 124 delay~ 1; +#X obj 118 148 delay~ 1; +#X obj 131 172 delay~ 1; +#X obj 142 196 delay~ 1; +#X obj 155 219 delay~ 1; +#X obj 166 243 delay~ 1; +#X obj 177 267 delay~ 1; +#X obj 186 291 delay~ 1; +#X obj 197 315 delay~ 1; +#X obj 208 339 delay~ 1; +#X obj 221 363 delay~ 1; +#X obj 48 52 +~; +#X obj 61 76 +~; +#X obj 72 99 +~; +#X obj 81 123 +~; +#X obj 92 147 +~; +#X obj 103 171 +~; +#X obj 114 195 +~; +#X obj 126 219 +~; +#X obj 137 243 +~; +#X obj 149 267 +~; +#X obj 160 291 +~; +#X obj 171 316 +~; +#X obj 182 340 +~; +#X obj 193 363 +~; +#X obj 204 387 +~; +#X obj 620 647 metro 100; +#X obj 620 670 snapshot~; +#X floatatom 620 696 0 0 0 0 - - -; +#X obj 620 626 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 558 644 metro 100; +#X obj 558 667 snapshot~; +#X floatatom 558 695 0 0 0 0 - - -; +#X obj 558 623 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 232 385 delay~ 1; +#X obj 245 408 delay~ 1; +#X obj 256 432 delay~ 1; +#X obj 265 456 delay~ 1; +#X obj 276 480 delay~ 1; +#X obj 287 504 delay~ 1; +#X obj 300 528 delay~ 1; +#X obj 312 549 delay~ 1; +#X obj 325 572 delay~ 1; +#X obj 336 596 delay~ 1; +#X obj 347 620 delay~ 1; +#X obj 356 644 delay~ 1; +#X obj 367 668 delay~ 1; +#X obj 378 692 delay~ 1; +#X obj 389 715 delay~ 1; +#X obj 217 408 +~; +#X obj 230 432 +~; +#X obj 241 455 +~; +#X obj 250 479 +~; +#X obj 261 503 +~; +#X obj 272 527 +~; +#X obj 283 551 +~; +#X obj 295 575 +~; +#X obj 306 599 +~; +#X obj 319 620 +~; +#X obj 330 644 +~; +#X obj 341 669 +~; +#X obj 352 693 +~; +#X obj 363 716 +~; +#X obj 374 740 +~; +#X obj 402 738 delay~ 1; +#X obj 387 761 +~; +#X obj 387 807 outlet~; +#X obj 387 781 *~ 0.03125; +#X obj 558 724 -; +#X floatatom 558 749 0 0 0 0 - - -; +#X text 539 532 Averages the windspeed over 32 samples; +#X connect 0 0 1 0; +#X connect 0 0 16 1; +#X connect 1 0 2 0; +#X connect 1 0 17 1; +#X connect 2 0 4 0; +#X connect 2 0 18 1; +#X connect 3 0 0 0; +#X connect 3 0 16 0; +#X connect 3 0 36 0; +#X connect 4 0 5 0; +#X connect 4 0 19 1; +#X connect 5 0 6 0; +#X connect 5 0 20 1; +#X connect 6 0 7 0; +#X connect 6 0 21 1; +#X connect 7 0 8 0; +#X connect 7 0 22 1; +#X connect 8 0 9 0; +#X connect 8 0 23 1; +#X connect 9 0 10 0; +#X connect 9 0 24 1; +#X connect 10 0 11 0; +#X connect 10 0 25 1; +#X connect 11 0 12 0; +#X connect 11 0 26 1; +#X connect 12 0 13 0; +#X connect 12 0 27 1; +#X connect 13 0 14 0; +#X connect 13 0 28 1; +#X connect 14 0 15 0; +#X connect 14 0 29 1; +#X connect 15 0 30 1; +#X connect 15 0 39 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 21 0 22 0; +#X connect 22 0 23 0; +#X connect 23 0 24 0; +#X connect 24 0 25 0; +#X connect 25 0 26 0; +#X connect 26 0 27 0; +#X connect 27 0 28 0; +#X connect 28 0 29 0; +#X connect 29 0 30 0; +#X connect 30 0 54 0; +#X connect 31 0 32 0; +#X connect 32 0 33 0; +#X connect 33 0 73 1; +#X connect 34 0 31 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 37 0 73 0; +#X connect 38 0 35 0; +#X connect 39 0 40 0; +#X connect 39 0 54 1; +#X connect 40 0 41 0; +#X connect 40 0 55 1; +#X connect 41 0 42 0; +#X connect 41 0 56 1; +#X connect 42 0 43 0; +#X connect 42 0 57 1; +#X connect 43 0 44 0; +#X connect 43 0 58 1; +#X connect 44 0 45 0; +#X connect 44 0 59 1; +#X connect 45 0 46 0; +#X connect 45 0 60 1; +#X connect 46 0 47 0; +#X connect 46 0 61 1; +#X connect 47 0 48 0; +#X connect 47 0 62 1; +#X connect 48 0 49 0; +#X connect 48 0 63 1; +#X connect 49 0 50 0; +#X connect 49 0 64 1; +#X connect 50 0 51 0; +#X connect 50 0 65 1; +#X connect 51 0 52 0; +#X connect 51 0 66 1; +#X connect 52 0 53 0; +#X connect 52 0 67 1; +#X connect 53 0 68 1; +#X connect 53 0 69 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 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 70 0; +#X connect 69 0 70 1; +#X connect 70 0 72 0; +#X connect 72 0 71 0; +#X connect 72 0 32 0; +#X connect 73 0 74 0; +#X restore 219 584 pd timeAve; +#N canvas 228 23 895 824 timeAve 0; +#X obj 63 29 delay~ 1; +#X obj 76 52 delay~ 1; +#X obj 87 76 delay~ 1; +#X obj 48 7 inlet~; +#X obj 96 100 delay~ 1; +#X obj 107 124 delay~ 1; +#X obj 118 148 delay~ 1; +#X obj 131 172 delay~ 1; +#X obj 142 196 delay~ 1; +#X obj 155 219 delay~ 1; +#X obj 166 243 delay~ 1; +#X obj 177 267 delay~ 1; +#X obj 186 291 delay~ 1; +#X obj 197 315 delay~ 1; +#X obj 208 339 delay~ 1; +#X obj 221 363 delay~ 1; +#X obj 48 52 +~; +#X obj 61 76 +~; +#X obj 72 99 +~; +#X obj 81 123 +~; +#X obj 92 147 +~; +#X obj 103 171 +~; +#X obj 114 195 +~; +#X obj 126 219 +~; +#X obj 137 243 +~; +#X obj 149 267 +~; +#X obj 160 291 +~; +#X obj 171 316 +~; +#X obj 182 340 +~; +#X obj 193 363 +~; +#X obj 204 387 +~; +#X obj 620 647 metro 100; +#X obj 620 670 snapshot~; +#X floatatom 620 696 0 0 0 0 - - -; +#X obj 620 626 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 558 644 metro 100; +#X obj 558 667 snapshot~; +#X floatatom 558 695 0 0 0 0 - - -; +#X obj 558 623 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 232 385 delay~ 1; +#X obj 245 408 delay~ 1; +#X obj 256 432 delay~ 1; +#X obj 265 456 delay~ 1; +#X obj 276 480 delay~ 1; +#X obj 287 504 delay~ 1; +#X obj 300 528 delay~ 1; +#X obj 312 549 delay~ 1; +#X obj 325 572 delay~ 1; +#X obj 336 596 delay~ 1; +#X obj 347 620 delay~ 1; +#X obj 356 644 delay~ 1; +#X obj 367 668 delay~ 1; +#X obj 378 692 delay~ 1; +#X obj 389 715 delay~ 1; +#X obj 217 408 +~; +#X obj 230 432 +~; +#X obj 241 455 +~; +#X obj 250 479 +~; +#X obj 261 503 +~; +#X obj 272 527 +~; +#X obj 283 551 +~; +#X obj 295 575 +~; +#X obj 306 599 +~; +#X obj 319 620 +~; +#X obj 330 644 +~; +#X obj 341 669 +~; +#X obj 352 693 +~; +#X obj 363 716 +~; +#X obj 374 740 +~; +#X obj 402 738 delay~ 1; +#X obj 387 761 +~; +#X obj 387 807 outlet~; +#X obj 387 781 *~ 0.03125; +#X obj 558 724 -; +#X floatatom 558 749 0 0 0 0 - - -; +#X text 539 532 Averages the windspeed over 32 samples; +#X connect 0 0 1 0; +#X connect 0 0 16 1; +#X connect 1 0 2 0; +#X connect 1 0 17 1; +#X connect 2 0 4 0; +#X connect 2 0 18 1; +#X connect 3 0 0 0; +#X connect 3 0 16 0; +#X connect 3 0 36 0; +#X connect 4 0 5 0; +#X connect 4 0 19 1; +#X connect 5 0 6 0; +#X connect 5 0 20 1; +#X connect 6 0 7 0; +#X connect 6 0 21 1; +#X connect 7 0 8 0; +#X connect 7 0 22 1; +#X connect 8 0 9 0; +#X connect 8 0 23 1; +#X connect 9 0 10 0; +#X connect 9 0 24 1; +#X connect 10 0 11 0; +#X connect 10 0 25 1; +#X connect 11 0 12 0; +#X connect 11 0 26 1; +#X connect 12 0 13 0; +#X connect 12 0 27 1; +#X connect 13 0 14 0; +#X connect 13 0 28 1; +#X connect 14 0 15 0; +#X connect 14 0 29 1; +#X connect 15 0 30 1; +#X connect 15 0 39 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 21 0 22 0; +#X connect 22 0 23 0; +#X connect 23 0 24 0; +#X connect 24 0 25 0; +#X connect 25 0 26 0; +#X connect 26 0 27 0; +#X connect 27 0 28 0; +#X connect 28 0 29 0; +#X connect 29 0 30 0; +#X connect 30 0 54 0; +#X connect 31 0 32 0; +#X connect 32 0 33 0; +#X connect 33 0 73 1; +#X connect 34 0 31 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 37 0 73 0; +#X connect 38 0 35 0; +#X connect 39 0 40 0; +#X connect 39 0 54 1; +#X connect 40 0 41 0; +#X connect 40 0 55 1; +#X connect 41 0 42 0; +#X connect 41 0 56 1; +#X connect 42 0 43 0; +#X connect 42 0 57 1; +#X connect 43 0 44 0; +#X connect 43 0 58 1; +#X connect 44 0 45 0; +#X connect 44 0 59 1; +#X connect 45 0 46 0; +#X connect 45 0 60 1; +#X connect 46 0 47 0; +#X connect 46 0 61 1; +#X connect 47 0 48 0; +#X connect 47 0 62 1; +#X connect 48 0 49 0; +#X connect 48 0 63 1; +#X connect 49 0 50 0; +#X connect 49 0 64 1; +#X connect 50 0 51 0; +#X connect 50 0 65 1; +#X connect 51 0 52 0; +#X connect 51 0 66 1; +#X connect 52 0 53 0; +#X connect 52 0 67 1; +#X connect 53 0 68 1; +#X connect 53 0 69 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 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 70 0; +#X connect 69 0 70 1; +#X connect 70 0 72 0; +#X connect 72 0 71 0; +#X connect 72 0 32 0; +#X connect 73 0 74 0; +#X restore 758 536 pd timeAve; #X connect 0 0 2 0; #X connect 1 0 2 1; -#X connect 2 0 129 0; +#X connect 2 0 128 0; #X connect 3 0 62 0; #X connect 3 0 122 0; #X connect 8 0 1 0; #X connect 8 0 1 1; #X connect 9 0 0 0; -#X connect 11 0 128 1; +#X connect 11 0 127 1; #X connect 12 0 5 0; #X connect 12 0 111 0; #X connect 15 0 17 1; @@ -580,9 +951,7 @@ #X connect 59 0 61 1; #X connect 60 0 59 0; #X connect 60 0 59 1; -#X connect 61 0 13 0; -#X connect 61 0 26 0; -#X connect 61 0 106 0; +#X connect 61 0 132 0; #X connect 62 0 64 0; #X connect 64 0 71 0; #X connect 65 0 67 1; @@ -600,8 +969,7 @@ #X connect 76 0 77 0; #X connect 78 0 25 0; #X connect 80 0 119 0; -#X connect 81 0 14 0; -#X connect 81 0 107 0; +#X connect 81 0 133 0; #X connect 82 0 83 0; #X connect 83 0 85 0; #X connect 84 0 89 0; @@ -611,7 +979,7 @@ #X connect 87 0 89 1; #X connect 88 0 87 0; #X connect 88 0 87 1; -#X connect 89 0 125 0; +#X connect 89 0 124 0; #X connect 92 0 94 0; #X connect 92 0 108 0; #X connect 93 0 95 0; @@ -632,14 +1000,19 @@ #X connect 115 0 117 0; #X connect 117 0 118 0; #X connect 118 0 119 1; -#X connect 119 0 125 1; +#X connect 119 0 124 1; #X connect 123 0 66 0; -#X connect 125 0 81 0; -#X connect 127 0 128 0; -#X connect 128 0 129 1; -#X connect 129 0 54 0; -#X connect 130 0 126 0; -#X connect 132 0 131 0; +#X connect 124 0 81 0; +#X connect 126 0 127 0; +#X connect 127 0 128 1; +#X connect 128 0 54 0; +#X connect 129 0 125 0; +#X connect 131 0 130 0; +#X connect 132 0 13 0; +#X connect 132 0 106 0; +#X connect 132 0 26 0; +#X connect 133 0 14 0; +#X connect 133 0 107 0; #X restore 293 287 pd GoldfreqGain; #N canvas 732 187 570 435 Qvalues 0; #X obj 50 93 inlet~; @@ -656,7 +1029,7 @@ #X obj 209 206 spigot; #X floatatom 217 338 5 0 0 0 - - -; #X obj 211 70 hsl 128 15 100 30000 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 12700 1; +-262144 -1 -1 2695 1; #X floatatom 174 128 8 0 0 0 - - -; #X obj 336 192 spigot; #X obj 382 165 spigot; @@ -863,11 +1236,10 @@ #X obj 268 637 r~ \$0-str; #X obj 291 681 r \$0-leng; #X obj 337 771 r \$0-dist; -#N canvas 316 23 1006 797 GoldnoiseGain 1; -#X text -21029 166 Mass Density of Air \, squared; -#X obj -20846 141 *~ 1; -#X obj -20750 161 *; -#X text -20750 114 Distance; +#N canvas 385 23 1006 797 GoldnoiseGain 1; +#X text -21029 240 Mass Density of Air \, squared; +#X obj -20777 456 *; +#X text -20777 409 Distance; #N canvas 759 125 235 275 pow8 0; #X obj 47 67 *~; #X obj 76 67 *~; @@ -897,18 +1269,18 @@ #X connect 10 0 4 0; #X restore -20846 69 pd pow8; #X obj -20846 44 inlet~; -#X obj -20810 101 inlet; -#X obj -20750 135 inlet; -#X obj -20846 679 outlet~; +#X obj -20801 123 inlet; +#X obj -20777 430 inlet; +#X obj -20846 710 outlet~; #X text -20785 63 Gain proportional to windspeed to power 8 for spectrum ; -#X text -20805 85 Diameter; -#X obj -20754 622 loadbang; -#X obj -20754 643 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +#X text -20795 103 Diameter; +#X obj -20754 633 loadbang; +#X obj -20754 654 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; -#X obj -20754 661 metro 10; -#X obj -20754 682 snapshot~; -#X floatatom -20754 702 8 0 0 0 - - -; +#X obj -20754 672 metro 10; +#X obj -20754 693 snapshot~; +#X floatatom -20754 713 8 0 0 0 - - -; #X obj -20145 21 angleCalcN~; #X text -20798 35 Wind speed; #X text -21027 643 Calculates wake gain; @@ -922,8 +1294,7 @@ #X floatatom -20434 58 5 0 0 0 - - -; #X obj -20398 96 s~ \$0-this_azim; #X obj -20342 77 s~ \$0-this_elev; -#X obj -20810 122 *; -#X obj -20846 169 *~ 1.225; +#X obj -20846 243 *~ 1.225; #X obj -20487 110 r~ \$0-this_azim; #N canvas 759 125 250 309 pow5 0; #X obj 47 67 *~; @@ -949,8 +1320,8 @@ #X connect 8 0 9 0; #X connect 9 0 2 0; #X connect 9 0 3 0; -#X restore -20750 529 pd pow5; -#X obj -20750 505 sig~ 343.56; +#X restore -20680 508 pd pow5; +#X obj -20680 484 sig~ 343.56; #N canvas 875 261 250 309 pow5 0; #X obj 47 67 *~; #X obj 76 35 inlet~; @@ -975,22 +1346,22 @@ #X connect 8 0 9 0; #X connect 9 0 2 0; #X connect 9 0 3 0; -#X restore -20715 455 pd pow5; -#X obj -20669 305 /~ 360; -#X obj -20669 332 cos~; -#X obj -20654 354 r SIG_MACH; -#X obj -20654 378 sig~; -#X obj -20669 403 *~; -#X obj -20715 402 sig~ 1; -#X obj -20715 429 -~; -#X obj -20750 376 sig~ 3.1416; -#X obj -20750 401 *~; -#X obj -20765 353 sig~ 16; -#X obj -20765 425 *~; -#X obj -20765 483 *~; -#X obj -20765 556 *~; -#X obj -20750 188 sig~; -#X obj -20831 585 *~; +#X restore -20645 434 pd pow5; +#X obj -20599 284 /~ 360; +#X obj -20599 311 cos~; +#X obj -20584 333 r SIG_MACH; +#X obj -20584 357 sig~; +#X obj -20599 382 *~; +#X obj -20645 381 sig~ 1; +#X obj -20645 408 -~; +#X obj -20680 355 sig~ 3.1416; +#X obj -20680 380 *~; +#X obj -20695 332 sig~ 16; +#X obj -20695 404 *~; +#X obj -20695 462 *~; +#X obj -20695 535 *~; +#X obj -20777 483 sig~; +#X obj -20777 567 *~; #X obj -20846 611 /~; #X obj -20976 300 loadbang; #X obj -20976 321 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 @@ -998,81 +1369,284 @@ #X obj -20976 339 metro 10; #X obj -20976 360 snapshot~; #X floatatom -20976 380 8 0 0 0 - - -; -#X obj -20622 548 loadbang; -#X obj -20622 569 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +#X obj -20552 527 loadbang; +#X obj -20552 548 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; -#X obj -20622 587 metro 10; -#X obj -20622 608 snapshot~; -#X floatatom -20622 628 8 0 0 0 - - -; -#X obj -20579 269 r~ plotElev; -#X obj -20925 705 s~ plotOPN; -#X obj -20669 283 -~; -#X text -20617 290 Angle goes with the flow in Goldstein hence 90 - +#X obj -20552 566 metro 10; +#X obj -20552 587 snapshot~; +#X floatatom -20552 607 8 0 0 0 - - -; +#X obj -20509 248 r~ plotElev; +#X obj -20913 710 s~ plotOPN; +#X obj -20599 262 -~; +#X text -20547 269 Angle goes with the flow in Goldstein hence 90 - theta so that theta is same angle as dipole angles.; -#X obj -20669 238 sig~ 180; -#X obj -20606 242 r~ \$0-this_elev; -#X obj -20846 643 *~ 300; -#X connect 1 0 30 0; -#X connect 2 0 48 0; -#X connect 4 0 1 0; -#X connect 5 0 4 0; -#X connect 6 0 29 0; -#X connect 6 0 29 1; -#X connect 7 0 2 0; -#X connect 7 0 2 1; +#X obj -20599 217 sig~ 180; +#X obj -20536 221 r~ \$0-this_elev; +#N canvas 228 23 895 824 timeAve 0; +#X obj 63 29 delay~ 1; +#X obj 76 52 delay~ 1; +#X obj 87 76 delay~ 1; +#X obj 48 7 inlet~; +#X obj 96 100 delay~ 1; +#X obj 107 124 delay~ 1; +#X obj 118 148 delay~ 1; +#X obj 131 172 delay~ 1; +#X obj 142 196 delay~ 1; +#X obj 155 219 delay~ 1; +#X obj 166 243 delay~ 1; +#X obj 177 267 delay~ 1; +#X obj 186 291 delay~ 1; +#X obj 197 315 delay~ 1; +#X obj 208 339 delay~ 1; +#X obj 221 363 delay~ 1; +#X obj 48 52 +~; +#X obj 61 76 +~; +#X obj 72 99 +~; +#X obj 81 123 +~; +#X obj 92 147 +~; +#X obj 103 171 +~; +#X obj 114 195 +~; +#X obj 126 219 +~; +#X obj 137 243 +~; +#X obj 149 267 +~; +#X obj 160 291 +~; +#X obj 171 316 +~; +#X obj 182 340 +~; +#X obj 193 363 +~; +#X obj 204 387 +~; +#X obj 620 647 metro 100; +#X obj 620 670 snapshot~; +#X floatatom 620 696 0 0 0 0 - - -; +#X obj 620 626 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 558 644 metro 100; +#X obj 558 667 snapshot~; +#X floatatom 558 695 0 0 0 0 - - -; +#X obj 558 623 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 232 385 delay~ 1; +#X obj 245 408 delay~ 1; +#X obj 256 432 delay~ 1; +#X obj 265 456 delay~ 1; +#X obj 276 480 delay~ 1; +#X obj 287 504 delay~ 1; +#X obj 300 528 delay~ 1; +#X obj 312 549 delay~ 1; +#X obj 325 572 delay~ 1; +#X obj 336 596 delay~ 1; +#X obj 347 620 delay~ 1; +#X obj 356 644 delay~ 1; +#X obj 367 668 delay~ 1; +#X obj 378 692 delay~ 1; +#X obj 389 715 delay~ 1; +#X obj 217 408 +~; +#X obj 230 432 +~; +#X obj 241 455 +~; +#X obj 250 479 +~; +#X obj 261 503 +~; +#X obj 272 527 +~; +#X obj 283 551 +~; +#X obj 295 575 +~; +#X obj 306 599 +~; +#X obj 319 620 +~; +#X obj 330 644 +~; +#X obj 341 669 +~; +#X obj 352 693 +~; +#X obj 363 716 +~; +#X obj 374 740 +~; +#X obj 402 738 delay~ 1; +#X obj 387 761 +~; +#X obj 387 807 outlet~; +#X obj 387 781 *~ 0.03125; +#X obj 558 724 -; +#X floatatom 558 749 0 0 0 0 - - -; +#X text 539 532 Averages the windspeed over 32 samples; +#X connect 0 0 1 0; +#X connect 0 0 16 1; +#X connect 1 0 2 0; +#X connect 1 0 17 1; +#X connect 2 0 4 0; +#X connect 2 0 18 1; +#X connect 3 0 0 0; +#X connect 3 0 16 0; +#X connect 3 0 36 0; +#X connect 4 0 5 0; +#X connect 4 0 19 1; +#X connect 5 0 6 0; +#X connect 5 0 20 1; +#X connect 6 0 7 0; +#X connect 6 0 21 1; +#X connect 7 0 8 0; +#X connect 7 0 22 1; +#X connect 8 0 9 0; +#X connect 8 0 23 1; +#X connect 9 0 10 0; +#X connect 9 0 24 1; +#X connect 10 0 11 0; +#X connect 10 0 25 1; #X connect 11 0 12 0; +#X connect 11 0 26 1; #X connect 12 0 13 0; +#X connect 12 0 27 1; #X connect 13 0 14 0; +#X connect 13 0 28 1; #X connect 14 0 15 0; +#X connect 14 0 29 1; +#X connect 15 0 30 1; +#X connect 15 0 39 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 19 0 20 0; #X connect 20 0 21 0; -#X connect 20 0 26 0; -#X connect 21 0 27 0; +#X connect 21 0 22 0; #X connect 22 0 23 0; -#X connect 22 0 25 0; -#X connect 23 0 28 0; -#X connect 29 0 1 1; -#X connect 30 0 50 0; +#X connect 23 0 24 0; +#X connect 24 0 25 0; +#X connect 25 0 26 0; +#X connect 26 0 27 0; +#X connect 27 0 28 0; +#X connect 28 0 29 0; +#X connect 29 0 30 0; #X connect 30 0 54 0; -#X connect 32 0 47 1; -#X connect 33 0 32 0; -#X connect 34 0 46 1; +#X connect 31 0 32 0; +#X connect 32 0 33 0; +#X connect 33 0 73 1; +#X connect 34 0 31 0; #X connect 35 0 36 0; -#X connect 36 0 39 0; -#X connect 37 0 38 0; -#X connect 38 0 39 1; -#X connect 39 0 41 1; +#X connect 36 0 37 0; +#X connect 37 0 73 0; +#X connect 38 0 35 0; +#X connect 39 0 40 0; +#X connect 39 0 54 1; #X connect 40 0 41 0; -#X connect 41 0 34 0; +#X connect 40 0 55 1; +#X connect 41 0 42 0; +#X connect 41 0 56 1; #X connect 42 0 43 0; -#X connect 42 0 43 1; -#X connect 43 0 45 1; +#X connect 42 0 57 1; +#X connect 43 0 44 0; +#X connect 43 0 58 1; #X connect 44 0 45 0; +#X connect 44 0 59 1; #X connect 45 0 46 0; +#X connect 45 0 60 1; #X connect 46 0 47 0; -#X connect 47 0 49 1; +#X connect 46 0 61 1; +#X connect 47 0 48 0; +#X connect 47 0 62 1; #X connect 48 0 49 0; -#X connect 49 0 50 1; -#X connect 50 0 67 0; +#X connect 48 0 63 1; +#X connect 49 0 50 0; +#X connect 49 0 64 1; +#X connect 50 0 51 0; +#X connect 50 0 65 1; #X connect 51 0 52 0; +#X connect 51 0 66 1; #X connect 52 0 53 0; -#X connect 53 0 54 0; +#X connect 52 0 67 1; +#X connect 53 0 68 1; +#X connect 53 0 69 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 63 0 35 0; -#X connect 65 0 63 0; -#X connect 66 0 63 1; -#X connect 67 0 8 0; -#X connect 67 0 14 0; -#X connect 67 0 62 0; -#X restore 274 527 pd GoldnoiseGain; -#X text 265 574 Calculates the gain of the wake; +#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 70 0; +#X connect 69 0 70 1; +#X connect 70 0 72 0; +#X connect 72 0 71 0; +#X connect 72 0 32 0; +#X connect 73 0 74 0; +#X restore -20846 667 pd timeAve; +#X obj -20916 51 inlet~; +#X obj -20916 83 *~; +#X obj -20822 90 inlet~; +#X obj -20822 148 *~ 1; +#X obj -20846 170 *~; +#X obj -20846 194 *~; +#X obj -20821 273 inlet; +#X obj -20847 308 *~ 1; +#X obj -20848 343 *~ 2.50663; +#X obj -20846 643 *~ 1; +#X connect 1 0 46 0; +#X connect 3 0 70 0; +#X connect 4 0 3 0; +#X connect 5 0 69 1; +#X connect 6 0 1 0; +#X connect 6 0 1 1; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 19 0 20 0; +#X connect 19 0 25 0; +#X connect 20 0 26 0; +#X connect 21 0 22 0; +#X connect 21 0 24 0; +#X connect 22 0 27 0; +#X connect 28 0 52 0; +#X connect 28 0 73 0; +#X connect 30 0 45 1; +#X connect 31 0 30 0; +#X connect 32 0 44 1; +#X connect 33 0 34 0; +#X connect 34 0 37 0; +#X connect 35 0 36 0; +#X connect 36 0 37 1; +#X connect 37 0 39 1; +#X connect 38 0 39 0; +#X connect 39 0 32 0; +#X connect 40 0 41 0; +#X connect 40 0 41 1; +#X connect 41 0 43 1; +#X connect 42 0 43 0; +#X connect 43 0 44 0; +#X connect 44 0 45 0; +#X connect 45 0 47 1; +#X connect 46 0 47 0; +#X connect 47 0 48 1; +#X connect 48 0 75 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 54 0 55 0; +#X connect 55 0 56 0; +#X connect 56 0 57 0; +#X connect 57 0 58 0; +#X connect 61 0 33 0; +#X connect 63 0 61 0; +#X connect 64 0 61 1; +#X connect 65 0 7 0; +#X connect 65 0 60 0; +#X connect 65 0 13 0; +#X connect 66 0 67 0; +#X connect 66 0 67 1; +#X connect 67 0 70 1; +#X connect 68 0 69 0; +#X connect 69 0 71 1; +#X connect 70 0 71 0; +#X connect 71 0 28 0; +#X connect 72 0 73 1; +#X connect 73 0 74 0; +#X connect 74 0 48 0; +#X connect 75 0 65 0; +#X restore 274 556 pd GoldnoiseGain; +#X text 265 603 Calculates the gain of the wake; #X obj 1059 36 inlet; #X obj 1059 60 s \$0-TuInt; #X floatatom 1023 61 5 0 0 0 - - -; -#N canvas 911 161 229 249 TuInt_calc 0; +#N canvas 4 232 229 249 TuInt_calc 0; #X obj 116 42 inlet; #X obj 116 118 + 1; #X obj 116 67 min 0.2; @@ -1115,13 +1689,13 @@ #X restore 144 128 pd QV; #X text 49 367 Creates the shaped noise sound equivalent to a narrow band signal at the drag dipole fundamental frequency.; -#X obj 105 173 *~ 2; #X floatatom 153 276 5 0 0 0 - - -; +#X obj 105 173 *~ 0.5; #X connect 0 0 4 0; #X connect 1 0 10 0; #X connect 2 0 13 0; #X connect 3 0 8 1; -#X connect 3 0 16 0; +#X connect 3 0 15 0; #X connect 4 0 12 1; #X connect 5 0 8 0; #X connect 8 0 6 0; @@ -1129,9 +1703,9 @@ #X connect 9 0 12 0; #X connect 10 0 5 1; #X connect 11 0 10 1; -#X connect 12 0 15 0; +#X connect 12 0 16 0; #X connect 13 0 12 2; -#X connect 15 0 5 0; +#X connect 16 0 5 0; #X restore 1076 535 pd dragDiFunNo; #N canvas 1014 140 491 522 dragDiFun 0; #X obj 165 125 osc~; @@ -1166,7 +1740,7 @@ #X obj 769 490 r \$0-thisPan; #X obj 796 510 r \$0-TuGain; #X obj 715 450 r~ \$0-liftDiGain; -#N canvas 1012 302 464 503 liftDi2ndNo 0; +#N canvas 579 250 654 489 liftDi2ndNo 0; #X obj 124 84 inlet~; #X obj 120 198 inlet~; #X obj 161 105 inlet; @@ -1192,13 +1766,15 @@ #X text 49 393 Creates the shaped noise sound equivalent to a narrow band signal at the lift dipole second harmonic frequency.; #X obj 120 220 *~ 0.1; -#X obj 105 173 *~ 1; #X floatatom 174 303 5 0 0 0 - - -; +#X obj 105 173 *~ 0.5; +#X text 206 209 0.1 Value to match normalised gain of 3rd harmonic +given in Hardin; #X connect 0 0 13 0; #X connect 1 0 15 0; #X connect 2 0 12 0; #X connect 3 0 7 1; -#X connect 3 0 17 0; +#X connect 3 0 16 0; #X connect 4 0 7 0; #X connect 7 0 5 0; #X connect 7 1 6 0; @@ -1208,27 +1784,29 @@ #X connect 12 0 11 2; #X connect 13 0 11 1; #X connect 15 0 9 0; -#X connect 16 0 4 0; +#X connect 17 0 4 0; #X restore 715 531 pd liftDi2ndNo; #X obj 607 487 r \$0-thisPan; #X obj 561 444 r~ \$0-myFreq; #X obj 630 507 r \$0-TuGain; -#N canvas 1014 140 491 522 liftDi2nd 0; -#X obj 165 125 osc~; -#X obj 165 298 throw~ l; -#X obj 192 275 throw~ r; -#X obj 165 232 *~; -#X obj 165 253 fcpan; -#X obj 180 209 *~ 1; -#X obj 165 75 inlet~; -#X obj 180 145 inlet~; -#X obj 192 232 inlet; -#X obj 201 187 inlet; -#X obj 165 100 *~ 5; +#N canvas 899 170 491 522 liftDi2nd 0; +#X obj 41 132 osc~; +#X obj 41 305 throw~ l; +#X obj 68 282 throw~ r; +#X obj 41 239 *~; +#X obj 41 260 fcpan; +#X obj 56 216 *~ 1; +#X obj 41 82 inlet~; +#X obj 56 152 inlet~; +#X obj 68 239 inlet; +#X obj 77 194 inlet; +#X obj 41 107 *~ 5; #X text 60 369 Generates the pure tone associated with the lift dipole second harmonic frequency.; -#X obj 180 168 *~ 0.1; -#X floatatom 228 256 5 0 0 0 - - -; +#X obj 56 175 *~ 0.1; +#X floatatom 104 263 5 0 0 0 - - -; +#X text 117 168 0.1 Value to match normalised gain of 3rd harmonic +given in Hardin; #X connect 0 0 3 0; #X connect 3 0 4 0; #X connect 4 0 1 0; @@ -1247,40 +1825,42 @@ #X obj 562 553 r~ \$0-myFreq; #X obj 631 616 r \$0-TuGain; #X obj 585 575 r~ \$0-liftDiGain; -#N canvas 1014 140 491 522 liftDi1st 0; -#X obj 165 125 osc~; -#X obj 165 298 throw~ l; -#X obj 192 275 throw~ r; -#X obj 165 232 *~; -#X obj 165 253 fcpan; -#X obj 180 209 *~ 1; -#X obj 165 75 inlet~; -#X obj 180 145 inlet~; -#X obj 192 232 inlet; -#X obj 201 187 inlet; -#X obj 165 100 *~ 3; +#N canvas 59 232 491 522 liftDi1st 0; +#X obj 36 136 osc~; +#X obj 36 309 throw~ l; +#X obj 63 286 throw~ r; +#X obj 36 243 *~; +#X obj 36 264 fcpan; +#X obj 51 220 *~ 1; +#X obj 36 86 inlet~; +#X obj 51 156 inlet~; +#X obj 63 243 inlet; +#X obj 72 198 inlet; +#X obj 36 111 *~ 3; #X text 60 369 Generates the pure tone associated with the lift dipole first harmonic frequency.; -#X obj 180 168 *~ 0.5; -#X floatatom 234 254 5 0 0 0 - - -; +#X floatatom 105 265 5 0 0 0 - - -; +#X obj 51 179 *~ 0.6; +#X text 114 168 0.6 Value to match normalised gain of 3rd harmonic +given in Hardin; #X connect 0 0 3 0; #X connect 3 0 4 0; #X connect 4 0 1 0; #X connect 4 1 2 0; #X connect 5 0 3 1; #X connect 6 0 10 0; -#X connect 7 0 12 0; +#X connect 7 0 13 0; #X connect 8 0 4 1; -#X connect 8 0 13 0; +#X connect 8 0 12 0; #X connect 9 0 5 1; #X connect 10 0 0 0; -#X connect 12 0 5 0; +#X connect 13 0 5 0; #X restore 562 639 pd liftDi1st; #X obj 742 574 r~ \$0-myFreq; #X obj 769 594 r \$0-thisPan; #X obj 796 614 r \$0-TuGain; #X obj 715 554 r~ \$0-liftDiGain; -#N canvas 1012 302 464 503 liftDi1stNo 0; +#N canvas 665 229 578 492 liftDi1stNo 0; #X obj 124 84 inlet~; #X obj 120 198 inlet~; #X obj 161 105 inlet; @@ -1306,24 +1886,26 @@ band signal at the lift dipole second harmonic frequency.; #X obj 124 105 *~ 3; #X obj 120 220 *~ 0.5; -#X obj 105 173 *~ 1; #X floatatom 163 302 5 0 0 0 - - -; +#X obj 105 173 *~ 0.6; +#X text 167 169 0.6 Value to match normalised gain of 3rd harmonic +given in Hardin; #X connect 0 0 14 0; #X connect 1 0 15 0; #X connect 2 0 12 0; #X connect 3 0 7 1; -#X connect 3 0 17 0; +#X connect 3 0 16 0; #X connect 4 0 7 0; #X connect 7 0 5 0; #X connect 7 1 6 0; #X connect 8 0 11 0; #X connect 9 0 4 1; #X connect 10 0 9 1; -#X connect 11 0 16 0; +#X connect 11 0 17 0; #X connect 12 0 11 2; #X connect 14 0 11 1; #X connect 15 0 9 0; -#X connect 16 0 4 0; +#X connect 17 0 4 0; #X restore 715 635 pd liftDi1stNo; #X obj 608 708 r \$0-thisPan; #X obj 562 665 r~ \$0-myFreq; @@ -1364,7 +1946,7 @@ #X obj 765 703 r \$0-thisPan; #X obj 792 723 r \$0-TuGain; #X obj 711 663 r~ \$0-liftDiGain; -#N canvas 736 255 464 503 liftDiFunNo 0; +#N canvas 930 320 464 503 liftDiFunNo 0; #X obj 124 84 inlet~; #X obj 120 198 inlet~; #X obj 161 105 inlet; @@ -1391,7 +1973,7 @@ #X text 49 393 Creates the shaped noise sound equivalent to a narrow band signal at the lift dipole fundamental frequency.; #X floatatom 149 303 5 0 0 0 - - -; -#X obj 105 173 *~ 1; +#X obj 105 173 *~ 0.5; #X connect 0 0 13 0; #X connect 1 0 14 0; #X connect 2 0 12 0; @@ -1417,8 +1999,8 @@ #X obj 522 62 s \$0-elev; #X obj 345 242 r \$0-elev; #X obj 353 263 r \$0-azim; -#X obj 329 479 r \$0-elev; -#X obj 348 503 r \$0-azim; +#X obj 353 486 r \$0-elev; +#X obj 367 504 r \$0-azim; #X obj 314 725 r \$0-elev; #X obj 325 748 r \$0-azim; #N canvas 1021 287 444 428 corrLen 0; @@ -1454,6 +2036,9 @@ #X obj 1229 37 r~ \$0-myRey; #X obj 1229 84 s~ \$0-myCor; #X obj 327 202 r~ \$0-myCor; +#X obj 1090 285 r \$0-contFreq; +#X obj 1055 313 hip~; +#X obj 300 404 r~ \$0-myCor; #X connect 2 0 4 0; #X connect 3 0 32 0; #X connect 3 0 72 0; @@ -1485,12 +2070,12 @@ #X connect 36 0 37 0; #X connect 37 0 35 0; #X connect 37 0 93 0; -#X connect 41 0 136 0; +#X connect 41 0 136 1; #X connect 42 0 45 0; #X connect 43 0 42 0; #X connect 44 0 43 0; #X connect 46 0 44 0; -#X connect 47 0 136 1; +#X connect 47 0 136 4; #X connect 49 0 53 0; #X connect 49 0 181 0; #X connect 50 0 48 3; @@ -1514,7 +2099,9 @@ #X connect 82 0 48 4; #X connect 83 0 48 5; #X connect 84 0 48 6; -#X connect 89 0 136 2; +#X connect 87 0 136 0; +#X connect 88 0 136 3; +#X connect 89 0 136 5; #X connect 91 0 147 0; #X connect 94 0 112 1; #X connect 96 0 42 0; @@ -1526,7 +2113,7 @@ #X connect 100 0 106 0; #X connect 101 0 104 0; #X connect 101 0 107 0; -#X connect 112 0 25 1; +#X connect 112 0 194 0; #X connect 113 0 147 2; #X connect 114 0 112 0; #X connect 115 0 114 0; @@ -1582,10 +2169,13 @@ #X connect 177 0 178 0; #X connect 183 0 122 6; #X connect 184 0 122 7; -#X connect 185 0 136 3; -#X connect 186 0 136 4; +#X connect 185 0 136 6; +#X connect 186 0 136 7; #X connect 187 0 131 4; #X connect 188 0 131 5; #X connect 189 0 191 0; #X connect 190 0 189 0; #X connect 192 0 122 4; +#X connect 193 0 194 1; +#X connect 194 0 25 1; +#X connect 195 0 136 2;
--- a/scene demo/newStrou.pd Tue Jan 12 10:56:14 2016 +0000 +++ b/scene demo/newStrou.pd Mon Jan 18 14:38:06 2016 +0000 @@ -59,9 +59,9 @@ #X obj 840 174 spigot; #X obj 885 149 < 1e+06; #X text 784 251 Critical - Derived by author; -#X msg 794 226 0.5839 -183.885; #X text 254 359 St* (I) coefficient; #X text 462 361 m (J) coefficient; +#X msg 794 226 0.576 -175.957; #X connect 0 0 7 0; #X connect 1 0 7 0; #X connect 2 0 7 0; @@ -130,10 +130,10 @@ #X connect 42 0 38 0; #X connect 45 0 43 0; #X connect 46 0 44 0; -#X connect 49 0 53 0; +#X connect 49 0 55 0; #X connect 50 0 49 0; #X connect 51 0 50 1; -#X connect 53 0 7 0; +#X connect 55 0 7 0; #X restore 273 83 pd eqnSelect; #X obj 203 85 sqrt~; #X obj 342 119 /~;
--- a/scene demo/testBed.pd Tue Jan 12 10:56:14 2016 +0000 +++ b/scene demo/testBed.pd Mon Jan 18 14:38:06 2016 +0000 @@ -71,7 +71,7 @@ #X restore -253 -154 pd windspeed; #X obj -268 138 delwrite~ varwind 3000; #X obj -159 -139 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 1693 1; +-262144 -1 -1 3100 1; #X obj -225 -24 snapshot~; #X obj -225 -49 metro 100; #X obj -225 -71 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 @@ -84,7 +84,7 @@ #X obj -23 -138 loadbang; #X msg -23 -110 5; #X obj 215 10 hsl 128 15 0.001 0.3 1 0 empty empty empty -2 -8 0 10 --262144 -1 -1 5127 1; +-262144 -1 -1 3584 1; #X floatatom 223 34 8 0 0 0 - - -; #X obj 273 284 hsl 128 15 0.009 0.9 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 6999 1; @@ -94,17 +94,17 @@ -1 -1 6350 1; #X floatatom 270 195 5 0 0 0 - - -; #X obj 261 221 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 6662 1; +-262144 -1 -1 6826 1; #X floatatom 285 250 5 0 0 0 - - -; #X obj 236 109 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144 --1 -1 12700 1; +-1 -1 8877 1; #X floatatom 247 138 5 0 0 0 - - -; #X text 414 285 Pan Value; #X obj -271 425 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X obj -208 425 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X text -211 334 Gain; #X obj -256 277 loadbang; -#N canvas 865 368 416 344 opLevels 0; +#N canvas 251 23 1189 827 opLevels 0; #X obj 74 188 dac~; #X obj 30 70 catch~ l; #X obj 128 70 catch~ r; @@ -122,6 +122,115 @@ #X obj 227 184 +~; #X obj 215 254 outlet~; #X obj 93 68 / 100; +#N canvas 0 22 450 300 (subpatch) 0; +#X array play-01 430592 float 0; +#X coords 0 1 430591 -1 750 71 1; +#X restore 337 61 graph; +#X obj 353 326 bng 15 250 50 0 empty empty play -6 -10 0 18 -225280 +-1 -90881; +#X obj 418 342 bng 15 250 50 0 empty bang-load load -4 -6 0 12 -228992 +-1 -1; +#X floatatom 381 360 5 2 2000 1 ratio ratio_set -; +#X floatatom 353 502 5 0 0 0 - - -; +#X obj 447 544 f; +#X obj 486 598 ==; +#X obj 476 525 + 1; +#X obj 353 528 t f b; +#X obj 486 614 sel 1; +#X msg 438 511 0; +#X obj 535 554 t f f; +#X obj 461 318 t b b; +#X floatatom 503 385 0 0 0 0 length(ms) - -; +#X obj 353 480 spigot; +#X obj 353 448 t f f; +#X obj 383 464 > 0; +#N canvas 0 23 462 312 hssc+rfft 0; +#X obj 102 168 hssc~; +#X obj 102 126 rfft~; +#X obj 102 78 inlet~; +#X obj 147 126 inlet; +#X text 141 169 ratio; +#X obj 102 208 outlet; +#X obj 146 208 outlet; +#X obj 238 170 block~ 2048; +#X connect 0 0 5 0; +#X connect 0 1 6 0; +#X connect 1 0 0 0; +#X connect 1 1 0 1; +#X connect 2 0 1 0; +#X connect 3 0 0 2; +#X restore 353 407 pd hssc+rfft; +#X obj 353 560 tabwrite hssc; +#X floatatom 538 471 5 0 0 0 - - -; +#X obj 632 500 f; +#X obj 661 532 ==; +#X obj 661 500 + 1; +#X obj 538 484 t f b; +#X obj 661 548 sel 1; +#X msg 661 564 0; +#X obj 661 516 t f f; +#X obj 538 455 spigot; +#X obj 538 423 t f f; +#X obj 568 439 > 0; +#N canvas 0 22 450 300 (subpatch) 0; +#X array hssc 420 float 0; +#X coords 0 511 419 0 750 71 1; +#X restore 337 134 graph; +#N canvas 0 22 450 300 (subpatch) 0; +#X array sssc 420 float 0; +#X coords 0 511 419 0 750 71 1; +#X restore 337 220 graph; +#X obj 538 516 tabwrite sssc; +#N canvas 0 22 450 300 (subpatch) 0; +#X array pointer 420 float 0; +#X coords 0 1 419 0 750 11 1; +#X restore 337 207 graph; +#X obj 628 615 tabwrite pointer; +#X obj 632 583 t b f b f; +#X msg 674 599 1; +#X obj 651 599 - 1; +#X msg 628 599 0; +#X obj 417 438 del 100; +#X msg 418 468 \; pointer const 0; +#X obj 456 401 + 100; +#N canvas 0 22 454 304 init 0; +#X obj 104 162 s ratio_set; +#X msg 104 146 100; +#X obj 104 130 loadbang; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X restore 353 609 pd init; +#X floatatom 559 372 5 0 0 1 frames - -; +#X text 686 302 The highest significant spectral component is defined +as the highest frequency bin of a discrete Fourier transform with an +amplitude equal to the strongest component divided by the hssc ratio +\, input to the third inlet of the object.; +#X text 686 352 It may be used to trace the extent of high frequencies +in the input relative to prominent components \, a sort of spectral +envelope...; +#X text 590 394 between highest significant spectral component and +strongest significant spectral component; +#X text 272 408 IN HERE--->; +#X msg 824 475 \; pd dsp 1 \; bang-load bang; +#X text 827 459 start here; +#X text 828 516 then hit play; +#N canvas 369 151 494 344 META 0; +#X text 12 185 HELP_PATCH_AUTHORS Ed Kelly. Revised by Jonathan Wilkes +for Pd-extended 0.42 to conform to the PDDP template.; +#X text 12 165 AUTHOR Ed Kelly <morph_2016@yahoo.co.uk>; +#X text 12 5 KEYWORDS signal; +#X text 12 25 LICENSE GPL v3; +#X text 12 45 DESCRIPTION the highest significant spectral component +; +#X text 12 65 INLET_0 signal; +#X text 12 85 INLET_1 signal; +#X text 12 105 INLET_2 float; +#X text 12 125 OUTLET_0 float; +#X text 12 145 OUTLET_1 float; +#X restore 1059 625 pd META; +#X floatatom 298 456 5 0 0 0 - - -; +#X msg 344 358 2; +#X floatatom 298 480 5 0 0 0 - - -; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 6 0; @@ -133,18 +242,73 @@ #X connect 7 0 16 0; #X connect 10 0 0 0; #X connect 10 0 14 0; +#X connect 10 0 34 0; #X connect 11 0 0 1; #X connect 11 0 14 1; +#X connect 11 0 34 0; #X connect 12 0 10 1; #X connect 12 0 11 1; #X connect 13 0 15 0; #X connect 14 0 13 0; #X connect 16 0 3 1; #X connect 16 0 4 1; +#X connect 18 0 29 0; +#X connect 20 0 34 1; +#X connect 21 0 25 0; +#X connect 22 0 24 0; +#X connect 22 0 35 1; +#X connect 23 0 26 0; +#X connect 24 0 28 0; +#X connect 25 0 35 0; +#X connect 25 1 22 0; +#X connect 26 0 27 0; +#X connect 27 0 22 1; +#X connect 28 0 23 0; +#X connect 28 1 22 1; +#X connect 29 1 27 0; +#X connect 29 1 42 0; +#X connect 29 1 56 0; +#X connect 30 0 58 0; +#X connect 31 0 21 0; +#X connect 32 0 31 0; +#X connect 32 1 33 0; +#X connect 33 0 31 1; +#X connect 34 0 32 0; +#X connect 34 0 69 0; +#X connect 34 1 45 0; +#X connect 34 1 71 0; +#X connect 36 0 40 0; +#X connect 37 0 39 0; +#X connect 37 0 49 1; +#X connect 37 0 52 0; +#X connect 38 0 41 0; +#X connect 39 0 43 0; +#X connect 40 0 49 0; +#X connect 40 1 37 0; +#X connect 41 0 42 0; +#X connect 42 0 37 1; +#X connect 43 0 38 0; +#X connect 43 1 37 1; +#X connect 44 0 36 0; +#X connect 45 0 44 0; +#X connect 45 1 46 0; +#X connect 46 0 44 1; +#X connect 52 0 55 0; +#X connect 52 1 54 0; +#X connect 52 2 53 0; +#X connect 52 3 51 1; +#X connect 53 0 51 0; +#X connect 54 0 51 1; +#X connect 55 0 51 0; +#X connect 56 0 57 0; +#X connect 56 0 27 0; +#X connect 56 0 42 0; +#X connect 58 0 56 1; +#X connect 70 0 34 1; #X restore -272 382 pd opLevels; #X msg -256 300 5; #X obj -269 353 hsl 100 25 0.1 50000 0 0 empty empty empty -2 -8 0 -10 -262144 -1 -1 9900 1; +10 -262144 -1 -1 9440 1; #X obj -7 -21 snapshot~; #X obj -7 -46 metro 100; #X floatatom -7 6 10 0 0 0 - - -; @@ -168,7 +332,7 @@ #X obj 167 -58 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 224 66 hsl 128 15 1 10 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 12700 1; +-1 -1 4233 1; #X floatatom 245 85 8 0 0 0 - - -; #X msg 133 49 4; #X obj -152 356 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144 @@ -204,7 +368,7 @@ #X msg -8 432 0; #X text 437 397 Source Rotation Y; #X text 449 450 Source Rotation Z; -#N canvas 540 222 1013 557 writing 0; +#N canvas 143 266 1013 557 writing 0; #X obj 23 -100 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 23 -134 loadbang; @@ -335,7 +499,6 @@ #X restore 444 -90 graph; #X obj 342 46 tabwrite freqs; #X obj 106 293 textfile; -#X obj 219 -38 count 20000; #X msg 215 264 clear \, rewind; #X obj 23 110 f; #X obj 78 109 f; @@ -354,39 +517,43 @@ #X obj 348 -89 inlet~; #X obj 358 -47 snapshot~; #X obj 23 -70 metro 1; -#X msg 268 181 write azim1.txt; #X obj 93 3 r azim; -#X connect 0 0 26 0; +#X floatatom 247 3 5 0 0 0 - - -; +#X obj 397 104 inlet; +#X obj 219 -38 count 410000; +#X msg 246 -112 410000; +#X msg 268 181 write gusts2.txt; +#X connect 0 0 25 0; #X connect 1 0 0 0; -#X connect 2 0 13 1; +#X connect 2 0 12 1; #X connect 3 0 6 0; -#X connect 3 0 12 1; -#X connect 4 0 14 1; -#X connect 8 0 6 1; -#X connect 8 0 10 1; -#X connect 9 0 7 0; -#X connect 10 0 15 0; -#X connect 11 0 16 0; +#X connect 3 0 11 1; +#X connect 4 0 13 1; +#X connect 8 0 7 0; +#X connect 14 0 7 0; #X connect 15 0 7 0; #X connect 16 0 7 0; #X connect 17 0 7 0; #X connect 18 0 7 0; -#X connect 19 0 7 0; -#X connect 21 0 19 0; -#X connect 22 0 10 0; -#X connect 22 1 11 0; -#X connect 22 2 12 0; -#X connect 22 3 13 0; -#X connect 22 4 14 0; -#X connect 22 5 21 0; -#X connect 23 0 7 0; -#X connect 24 0 25 0; -#X connect 25 0 21 1; -#X connect 26 0 8 0; -#X connect 26 0 22 0; -#X connect 26 0 25 0; -#X connect 27 0 7 0; -#X connect 28 0 11 1; +#X connect 21 0 9 0; +#X connect 21 1 10 0; +#X connect 21 2 11 0; +#X connect 21 3 12 0; +#X connect 21 4 13 0; +#X connect 21 5 20 0; +#X connect 22 0 7 0; +#X connect 23 0 24 0; +#X connect 24 0 20 1; +#X connect 25 0 21 0; +#X connect 25 0 24 0; +#X connect 25 0 29 0; +#X connect 26 0 10 1; +#X connect 28 0 18 0; +#X connect 29 0 6 1; +#X connect 29 0 9 1; +#X connect 29 0 27 0; +#X connect 30 0 29 1; +#X connect 31 0 7 0; #X restore -414 49 pd writing; #X msg 171 165 -45; #X obj -374 10 sig~; @@ -394,7 +561,7 @@ #X msg 294 -20 0.01; #X floatatom -109 -110 5 0 0 0 - - -; #X msg 199 -39 0; -#X msg -334 -51 30 3000; +#X msg -328 -71 30 3000; #X msg -363 -85 0; #X obj -330 -12 line~; #X obj -483 265 unpack f f f f f f; @@ -566,7 +733,7 @@ #X obj 320 554 +; #X obj 320 497 r \$0-blust; #X obj 392 577 hsl 128 15 0 0.5 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 0 1; +-1 -1 182 1; #X obj -34 117 snapshot~; #X obj -34 92 metro 100; #X obj -34 70 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 @@ -575,13 +742,299 @@ #X obj -34 45 loadbang; #X text -37 162 Wind Direction; #X msg 341 -20 0.005; -#X obj -162 -116 * 0.8; #X obj -319 -126 WindGenD1; #X msg -83 -160 20; +#N canvas 217 158 755 687 freqGust 0; +#X obj 259 27 inlet~; +#X obj 309 64 snapshot~; +#X floatatom 333 90 10 0 0 0 - - -; +#X obj 309 -8 loadbang; +#X obj 309 15 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 294 156 -; +#X floatatom 294 185 0 0 0 0 - - -; +#X obj 198 51 snapshot~; +#X floatatom 154 86 10 0 0 0 - - -; +#X obj 198 -21 loadbang; +#X obj 198 2 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 +; +#X obj 59 278 snapshot~; +#X floatatom 59 305 10 0 0 0 - - -; +#X obj 59 206 loadbang; +#X obj 59 229 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 59 253 metro 10; +#X floatatom 294 237 5 0 0 0 - - -; +#X obj 370 238 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X msg 370 259 reset; +#X obj 370 187 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 370 162 loadbang; +#X floatatom 259 233 5 0 0 0 - - -; +#X obj 259 208 < 0; +#X obj 309 39 metro 10; +#X obj 106 22 vd~ varwind 1; +#X obj 294 212 >= 0; +#X obj 152 341 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 152 318 onebang 1; +#X obj 152 297 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 203 297 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X msg 152 364 1; +#X floatatom 152 410 5 0 0 0 - - -; +#X obj 152 387 count 1000; +#X obj 152 271 select 1; +#X obj 262 276 select 1; +#X obj 251 420 f; +#X floatatom 251 466 0 0 0 0 - - -; +#X obj 251 493 sig~; +#X obj 198 26 metro 10; +#X obj 370 212 metro 5000; +#X obj 251 443 * 0.1; +#X obj 509 453 f; +#X obj 481 494 count 10000; +#X obj 446 509 /; +#X floatatom 444 566 3 0 0 0 - - -; +#X floatatom 539 531 5 0 0 0 - - -; +#X floatatom 367 514 0 0 0 0 - - -; +#X obj 456 462 +; +#X msg 536 465 reset; +#X obj 481 402 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X msg 508 418 0; +#X obj 384 394 spigot; +#X msg 494 330 1; +#X msg 434 331 0; +#X obj 434 393 spigot; +#X floatatom 405 560 5 0 0 0 - - -; +#X obj 446 536 + 0.05; +#X obj 618 261 delay~ 1; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 1 0 5 1; +#X connect 3 0 4 0; +#X connect 4 0 23 0; +#X connect 5 0 6 0; +#X connect 6 0 22 0; +#X connect 6 0 25 0; +#X connect 7 0 8 0; +#X connect 7 0 5 0; +#X connect 9 0 10 0; +#X connect 10 0 38 0; +#X connect 11 0 12 0; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 15 0 11 0; +#X connect 16 0 34 0; +#X connect 17 0 18 0; +#X connect 17 0 35 0; +#X connect 18 0 32 0; +#X connect 19 0 39 0; +#X connect 20 0 19 0; +#X connect 21 0 33 0; +#X connect 22 0 21 0; +#X connect 23 0 1 0; +#X connect 24 0 7 0; +#X connect 25 0 16 0; +#X connect 26 0 30 0; +#X connect 27 0 26 0; +#X connect 28 0 27 0; +#X connect 29 0 27 1; +#X connect 30 0 32 0; +#X connect 31 0 35 1; +#X connect 32 0 31 0; +#X connect 33 0 28 0; +#X connect 34 0 29 0; +#X connect 35 0 40 0; +#X connect 36 0 37 0; +#X connect 36 0 51 0; +#X connect 38 0 7 0; +#X connect 39 0 17 0; +#X connect 39 0 54 0; +#X connect 40 0 36 0; +#X connect 41 0 47 1; +#X connect 42 0 43 1; +#X connect 42 0 45 0; +#X connect 43 0 55 0; +#X connect 43 0 56 0; +#X connect 47 0 41 0; +#X connect 47 0 46 0; +#X connect 47 0 43 0; +#X connect 48 0 42 0; +#X connect 48 0 47 0; +#X connect 49 0 42 0; +#X connect 49 0 47 0; +#X connect 50 0 41 0; +#X connect 51 0 47 0; +#X connect 52 0 51 1; +#X connect 52 0 54 1; +#X connect 53 0 51 1; +#X connect 53 0 54 1; +#X connect 54 0 42 0; +#X connect 56 0 44 0; +#X restore -258 112 pd freqGust; +#X obj -162 -116 * 0.5; +#N canvas 1 66 1184 757 TUCalc 1; +#X obj 119 38 vd~ varwind; +#X obj 0 106 snapshot~; +#X obj 0 81 metro 100; +#X obj 0 59 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 +; +#X floatatom 0 133 10 0 0 0 - - -; +#X obj 0 34 loadbang; +#X obj 611 530 snapshot~; +#X obj 611 505 metro 100; +#X obj 611 483 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 611 553 10 0 0 0 - - -; +#X obj 611 458 loadbang; +#X obj 377 603 snapshot~; +#X obj 377 556 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 377 628 0 0 0 0 - - -; +#X obj 377 531 loadbang; +#X obj 132 108 +~; +#X obj 119 63 *~; +#X obj 147 86 *~; +#X obj 507 502 sqrt~; +#X obj 158 132 +~; +#X obj 173 110 *~; +#X obj 186 156 +~; +#X obj 201 134 *~; +#X obj 212 180 +~; +#X obj 227 158 *~; +#X obj 270 228 +~; +#X obj 257 183 *~; +#X obj 285 206 *~; +#X obj 296 252 +~; +#X obj 311 230 *~; +#X obj 324 276 +~; +#X obj 339 254 *~; +#X obj 350 300 +~; +#X obj 365 278 *~; +#X obj 243 205 +~; +#X obj 376 325 +~; +#X obj 391 303 *~; +#X obj 402 349 +~; +#X obj 417 327 *~; +#X obj 428 376 +~; +#X obj 443 354 *~; +#X obj 454 400 +~; +#X obj 469 378 *~; +#X obj 481 426 +~; +#X obj 496 404 *~; +#X obj 507 450 +~; +#X obj 522 428 *~; +#X obj 147 63 vd~ varwind 200; +#X obj 173 87 vd~ varwind 400; +#X obj 201 111 vd~ varwind 600; +#X obj 227 135 vd~ varwind 800; +#X obj 257 158 vd~ varwind 1000; +#X obj 285 183 vd~ varwind 1200; +#X obj 311 207 vd~ varwind 1400; +#X obj 339 231 vd~ varwind 1600; +#X obj 365 255 vd~ varwind 1800; +#X obj 391 280 vd~ varwind 2000; +#X obj 417 304 vd~ varwind 2200; +#X obj 443 331 vd~ varwind 2400; +#X obj 469 355 vd~ varwind 2600; +#X obj 496 381 vd~ varwind 2800; +#X obj 522 405 vd~ varwind 3000; +#X obj 507 476 /~ 16; +#X obj 492 525 -~; +#X obj 431 480 vd~ varwind; +#X obj 377 578 metro 100; +#X obj 520 549 /~; +#X connect 0 0 1 0; +#X connect 0 0 16 0; +#X connect 0 0 16 1; +#X connect 1 0 4 0; +#X connect 2 0 1 0; +#X connect 3 0 2 0; +#X connect 5 0 3 0; +#X connect 6 0 9 0; +#X connect 7 0 6 0; +#X connect 8 0 7 0; +#X connect 10 0 8 0; +#X connect 11 0 13 0; +#X connect 12 0 65 0; +#X connect 14 0 12 0; +#X connect 15 0 19 0; +#X connect 16 0 15 0; +#X connect 17 0 15 1; +#X connect 18 0 6 0; +#X connect 18 0 63 1; +#X connect 18 0 66 1; +#X connect 19 0 21 0; +#X connect 20 0 19 1; +#X connect 21 0 23 0; +#X connect 22 0 21 1; +#X connect 23 0 34 0; +#X connect 24 0 23 1; +#X connect 25 0 28 0; +#X connect 27 0 25 1; +#X connect 28 0 30 0; +#X connect 29 0 28 1; +#X connect 30 0 32 0; +#X connect 31 0 30 1; +#X connect 32 0 35 0; +#X connect 33 0 32 1; +#X connect 34 0 25 0; +#X connect 35 0 37 0; +#X connect 36 0 35 1; +#X connect 37 0 39 0; +#X connect 38 0 37 1; +#X connect 39 0 41 0; +#X connect 40 0 39 1; +#X connect 41 0 43 0; +#X connect 42 0 41 1; +#X connect 43 0 45 0; +#X connect 44 0 43 1; +#X connect 45 0 62 0; +#X connect 46 0 45 1; +#X connect 47 0 17 0; +#X connect 47 0 17 1; +#X connect 48 0 20 0; +#X connect 48 0 20 1; +#X connect 49 0 22 0; +#X connect 49 0 22 1; +#X connect 50 0 24 0; +#X connect 50 0 24 1; +#X connect 51 0 26 0; +#X connect 51 0 26 1; +#X connect 52 0 27 0; +#X connect 52 0 27 1; +#X connect 53 0 29 0; +#X connect 53 0 29 1; +#X connect 54 0 31 0; +#X connect 54 0 31 1; +#X connect 55 0 33 0; +#X connect 55 0 33 1; +#X connect 56 0 36 0; +#X connect 56 0 36 1; +#X connect 57 0 38 0; +#X connect 57 0 38 1; +#X connect 58 0 40 0; +#X connect 58 0 40 1; +#X connect 59 0 42 0; +#X connect 59 0 42 1; +#X connect 60 0 44 0; +#X connect 60 0 44 1; +#X connect 61 0 46 0; +#X connect 61 0 46 1; +#X connect 62 0 18 0; +#X connect 63 0 66 0; +#X connect 64 0 63 0; +#X connect 65 0 11 0; +#X connect 66 0 11 0; +#X restore -177 202 pd TUCalc; #X connect 0 0 44 0; #X connect 3 0 8 1; #X connect 3 0 82 0; -#X connect 3 0 166 0; +#X connect 3 0 169 0; #X connect 4 0 7 0; #X connect 4 0 52 0; #X connect 5 0 4 0; @@ -653,6 +1106,7 @@ #X connect 73 0 66 0; #X connect 74 0 69 0; #X connect 78 0 21 0; +#X connect 79 0 2 0; #X connect 80 0 21 0; #X connect 81 0 14 0; #X connect 83 0 147 0; @@ -686,7 +1140,7 @@ #X connect 120 0 147 1; #X connect 123 0 21 0; #X connect 125 0 126 0; -#X connect 125 0 2 0; +#X connect 125 0 168 0; #X connect 125 1 159 0; #X connect 126 0 129 0; #X connect 127 0 126 0; @@ -720,7 +1174,7 @@ #X connect 161 0 160 0; #X connect 163 0 161 0; #X connect 165 0 14 0; -#X connect 166 0 9 1; -#X connect 167 0 155 0; -#X connect 167 1 8 0; -#X connect 168 0 3 0; +#X connect 166 0 155 0; +#X connect 166 1 8 0; +#X connect 167 0 3 0; +#X connect 169 0 9 1;