diff scene demo/WindGenD1.pd @ 155:be0f8470d010

Averaging Acoustic Intensity calculation
Calculating Turbulence Intensity
New Gain Equation Implemented
Doubled up in HIP~ to ge the correct wake response output

--- 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;