Mercurial > hg > weather-synthesis-prototyping
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;