view 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
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 18 Jan 2016 14:38:06 +0000
parents af6801647567
children c13046ebb99c
line wrap: on
line source
#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 194 367 clip~ 0 1;
#N canvas 939 160 373 400 squall 0;
#X obj 113 208 noise~;
#X obj 113 271 hip~ 0;
#X obj 113 229 lop~ 3;
#X obj 113 250 lop~ 3;
#X obj 50 274 *~;
#X obj 72 318 *~;
#X obj 50 252 *~ 8;
#X obj 113 292 *~ 20;
#X obj 50 188 inlet~;
#X obj 72 342 outlet~;
#X obj 50 208 max~ 0.42;
#X obj 50 230 -~ 0.42;
#X obj 39 107 noise~;
#X obj 101 182 Snapshot~;
#X obj 101 133 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 166 206 5 0 0 0 - - -;
#X obj 39 128 lop~ 100;
#X obj 100 106 loadbang;
#X obj 101 156 metro 1000;
#X obj 39 150 +~ 0.4;
#X connect 0 0 2 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 9 0;
#X connect 6 0 4 0;
#X connect 6 0 4 1;
#X connect 7 0 5 1;
#X connect 8 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 6 0;
#X connect 12 0 16 0;
#X connect 13 0 15 0;
#X connect 14 0 18 0;
#X connect 16 0 19 0;
#X connect 17 0 14 0;
#X connect 18 0 13 0;
#X connect 19 0 13 0;
#X restore 221 249 pd squall;
#N canvas 300 282 202 229 gust 0;
#X obj 0 0 noise~;
#X obj 0 63 hip~ 0;
#X obj 0 106 *~;
#X obj 67 44 *~;
#X obj 67 21 +~ 0.5;
#X obj 67 67 -~ 0.125;
#X obj 0 42 lop~ 0.5;
#X obj 0 21 lop~ 0.5;
#X obj 0 84 *~ 50;
#X obj 67 0 inlet~;
#X obj 0 131 outlet~;
#X connect 0 0 7 0;
#X connect 1 0 8 0;
#X connect 2 0 10 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 4 0 3 1;
#X connect 5 0 2 1;
#X connect 6 0 1 0;
#X connect 7 0 6 0;
#X connect 8 0 2 0;
#X connect 9 0 4 0;
#X restore 162 250 pd gust;
#X obj 147 341 outlet~;
#X obj 147 180 osc~ 0.01;
#X obj 65 -24 noise~;
#X obj 147 155 line;
#X floatatom 94 180 8 0 0 0 - - -;
#X obj 148 76 snapshot~;
#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 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 54 270 loadbang;
#X obj 147 3 loadbang;
#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 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;
#X obj 204 18 snapshot~;
#X obj 204 -30 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 204 -55 loadbang;
#X floatatom 254 49 5 0 0 0 - - -;
#X obj 204 -6 metro 4000;
#X obj 280 1 *~ 3000;
#X obj 230 54 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -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 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 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 43 1;
#X connect 3 0 1 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 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;