# HG changeset patch
# User Rod Selfridge <r.selfridge@qmul.ac.uk>
# Date 1453127886 0
# Node ID be0f8470d01036a1839c436f12a47d73408c80e4
# Parent  af680164756719017ea5aee8da28d5cdb18cfde7
Averaging Acoustic Intensity calculation
Calculating Turbulence Intensity
New Gain Equation Implemented
Doubled up in HIP~ to ge the correct wake response output

diff -r af6801647567 -r be0f8470d010 .DS_Store
Binary file .DS_Store has changed
diff -r af6801647567 -r be0f8470d010 scene demo/WindGenD1.pd
--- 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;
diff -r af6801647567 -r be0f8470d010 scene demo/freqCalcCyl3No_D1Mach.pd
--- 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;
diff -r af6801647567 -r be0f8470d010 scene demo/newStrou.pd
--- 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 /~;
diff -r af6801647567 -r be0f8470d010 scene demo/testBed.pd
--- 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;