Mercurial > hg > weather-synthesis-prototyping
changeset 40:ca1ee52af944
Progressed the model to now working at audio control rate
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Fri, 29 May 2015 15:22:13 +0100 |
| parents | d68252f8dd6d |
| children | 52511c74c3f1 |
| files | June/Gen2_D1.pd June/thisFreq.pd |
| diffstat | 2 files changed, 136 insertions(+), 102 deletions(-) [+] |
line wrap: on
line diff
--- a/June/Gen2_D1.pd Fri May 29 12:10:58 2015 +0100 +++ b/June/Gen2_D1.pd Fri May 29 15:22:13 2015 +0100 @@ -1,4 +1,4 @@ -#N canvas 165 359 872 721 10; +#N canvas 6 90 872 721 10; #N canvas 236 158 426 423 windspeed 0; #X obj 3 -19 +~ 1; #X obj 3 76 +~; @@ -67,7 +67,7 @@ #X connect 5 0 3 1; #X connect 6 0 3 0; #X connect 8 0 0 0; -#X restore 265 -31 pd windspeed; +#X restore 250 -76 pd windspeed; #X text 14 5 Light air = 0.56 m/s - 1.39 m/s; #X text 14 27 Light Breeze = 1.67 m/s - 3.33 m/s; #X text 14 47 Gentle Breeze = 3.61 m/s - 5.56 m/s; @@ -81,36 +81,85 @@ #X text 15 207 Storm = 28.89 m/s - 33.06 m/s; #X text 16 225 Hurricane = 33.33 -; #X text 52 -26 Beaufort Scale Chart; -#X obj 392 92 thisFreq; -#X obj 550 80 dac~; -#X obj 526 21 catch~ l; -#X obj 590 21 catch~ r; -#X obj 591 55 *~ 0.45; -#X obj 527 55 *~ 0.45; -#X obj 527 105 prvu~; -#X obj 528 139 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; -#X obj 591 106 prvu~; -#X obj 592 139 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; -#X obj 703 38 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144 --1 -1 3600 1; -#X text 732 57 Gain; -#X obj 703 186 / 127; -#X msg 703 2 25; -#X obj 703 -26 loadbang; -#X obj 265 -5 delwrite~ varwind 3000; -#X obj 391 52 delread~ varwind 200; -#X connect 0 0 29 0; -#X connect 16 0 19 0; -#X connect 17 0 18 0; -#X connect 18 0 15 1; -#X connect 18 0 22 0; -#X connect 19 0 15 0; -#X connect 19 0 20 0; -#X connect 20 0 21 0; -#X connect 22 0 23 0; -#X connect 24 0 26 0; -#X connect 26 0 18 1; -#X connect 26 0 19 1; -#X connect 27 0 24 0; -#X connect 28 0 27 0; -#X connect 30 0 14 0; +#X obj 392 125 thisFreq; +#X obj 46 419 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 109 419 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 200 419 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144 +-1 -1 5400 1; +#X text 229 438 Gain; +#X msg 200 383 25; +#X obj 200 355 loadbang; +#X obj 250 28 delwrite~ varwind 3000; +#X obj 351 -78 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 1800 1; +#X obj 402 -9 snapshot~; +#X obj 402 -34 metro 100; +#X obj 402 -56 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 402 18 10 0 0 0 - - -; +#X obj 250 -37 *~ 1; +#X obj 250 -11 +~ 1; +#X text 97 264 Equations from Chanaud 2010; +#X text 10 329 Frequency = (Strouhal Number * Velocity) / Distance +; +#X text 9 289 Reynolds Number = (Density * Velocity * Length) / Viscosity +; +#X text 9 309 Strouhal Number = 0.198 * (1 - (19.7/ Reynolds Number)) +; +#X obj 392 64 vd~ varwind 200; +#X obj 502 63 hsl 128 15 0.005 0.99 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 2800 1; +#X floatatom 451 126 15 0 0 0 - - -; +#N canvas 865 368 293 255 opLevels 1; +#X obj 88 129 dac~; +#X obj 64 70 catch~ l; +#X obj 128 70 catch~ r; +#X obj 129 104 *~ 0.45; +#X obj 65 104 *~ 0.45; +#X obj 65 154 prvu~; +#X obj 129 155 prvu~; +#X obj 186 75 / 127; +#X obj 186 40 inlet; +#X obj 65 183 outlet; +#X obj 129 183 outlet; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 0 1; +#X connect 3 0 6 0; +#X connect 4 0 0 0; +#X connect 4 0 5 0; +#X connect 5 0 9 0; +#X connect 6 0 10 0; +#X connect 7 0 3 1; +#X connect 7 0 4 1; +#X connect 8 0 7 0; +#X restore 45 376 pd opLevels; +#N canvas 804 128 171 241 makeDia 1; +#X obj 70 -14 *; +#X obj 55 14 *; +#X obj 70 -41 inlet; +#X obj 55 44 outlet; +#X connect 0 0 1 1; +#X connect 0 0 1 0; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 2 0 0 1; +#X restore 437 96 pd makeDia; +#X connect 0 0 27 0; +#X connect 17 0 36 0; +#X connect 19 0 17 0; +#X connect 20 0 19 0; +#X connect 22 0 27 1; +#X connect 22 0 28 1; +#X connect 23 0 26 0; +#X connect 24 0 23 0; +#X connect 25 0 24 0; +#X connect 27 0 28 0; +#X connect 28 0 21 0; +#X connect 28 0 23 0; +#X connect 33 0 14 0; +#X connect 34 0 37 0; +#X connect 36 0 15 0; +#X connect 36 1 16 0; +#X connect 37 0 14 1; +#X connect 37 0 35 0;
--- a/June/thisFreq.pd Fri May 29 12:10:58 2015 +0100 +++ b/June/thisFreq.pd Fri May 29 15:22:13 2015 +0100 @@ -1,68 +1,53 @@ -#N canvas 536 62 872 721 10; -#X obj 334 90 * 1.225; -#X obj 348 117 *; -#X obj 348 143 / 1.81e-05; -#X floatatom 224 209 15 0 0 0 - - -; -#X obj 348 172 swap 19.7; -#X obj 348 203 /; -#X obj 348 234 swap 1; -#X obj 348 262 -; -#X obj 348 289 * 0.198; -#X floatatom 305 418 10 0 0 0 - - -; -#X obj 348 318 *; -#X obj 348 349 /; -#X text 124 206 Reynolds Number; -#X text 140 59 Wind Speed (m/s); -#X floatatom 255 63 5 0 0 0 - - -; -#X obj 433 84 t f b; -#X text 211 88 Mass Density of Air; -#X text 194 138 Dynamic Viscosity of Air; -#X obj 348 381 s outFreq; -#X text 201 415 Frequency (Hz); -#X floatatom 265 314 5 0 0 0 - - -; -#X text 150 309 Strouhal Number; -#X obj 65 396 inlet~; -#X obj 19 542 throw~ l; -#X obj 84 542 throw~ r; -#X obj 337 28 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 3300 1; -#X obj 489 29 hsl 128 15 0 0.5 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 400 1; -#X obj 65 492 osc~; -#X obj 65 454 +~; -#X obj 65 426 *~; -#X obj 354 63 s windSpeed; -#X obj 486 57 s diameter; -#X obj 418 315 r diameter; -#X obj 418 288 r windSpeed; -#X connect 0 0 1 0; -#X connect 1 0 2 0; -#X connect 2 0 3 0; -#X connect 2 0 4 0; -#X connect 4 0 5 0; -#X connect 4 1 5 1; -#X connect 5 0 6 0; -#X connect 6 0 7 0; -#X connect 6 1 7 1; -#X connect 7 0 8 0; -#X connect 8 0 10 0; -#X connect 8 0 20 0; -#X connect 10 0 11 0; +#N canvas 516 71 470 555 10; +#X text 46 -77 Mass Density of Air; +#X text 237 301 Frequency (Hz); +#X obj 168 -139 inlet~; +#X obj 107 275 throw~ l; +#X obj 172 275 throw~ r; +#X obj 139 243 osc~; +#X obj 226 -48 s diameter; +#X obj 176 128 r diameter; +#X obj 168 -76 *~ 1.225; +#X obj 168 -1 /~ 1.81e-05; +#X obj 138 102 *~ 0.198; +#X obj 168 -46 *~ 1; +#X obj 138 162 /~ 1; +#X obj 247 249 snapshot~; +#X obj 247 224 metro 100; +#X obj 247 202 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 247 276 10 0 0 0 - - -; +#X obj 99 18 sig~ 19.7; +#X obj 153 42 /~; +#X obj 99 42 sig~ 1; +#X obj 138 71 -~; +#X obj 138 131 *~; +#X obj 91 -98 s~ wind; +#X obj 203 100 r~ wind; +#X obj 138 205 clip~ 0 20000; +#X obj 226 -75 inlet; +#X obj 327 275 outlet; +#X connect 2 0 8 0; +#X connect 2 0 22 0; +#X connect 5 0 4 0; +#X connect 5 0 3 0; +#X connect 7 0 12 1; +#X connect 8 0 11 0; +#X connect 9 0 18 1; +#X connect 10 0 21 0; #X connect 11 0 9 0; -#X connect 11 0 18 0; -#X connect 11 0 28 1; -#X connect 11 0 29 1; -#X connect 15 0 1 1; -#X connect 15 1 1 0; -#X connect 22 0 29 0; -#X connect 25 0 0 0; -#X connect 25 0 14 0; -#X connect 25 0 30 0; -#X connect 26 0 15 0; -#X connect 26 0 31 0; -#X connect 27 0 24 0; -#X connect 27 0 23 0; -#X connect 28 0 27 0; -#X connect 29 0 28 0; -#X connect 32 0 11 1; -#X connect 33 0 10 1; +#X connect 12 0 24 0; +#X connect 13 0 16 0; +#X connect 13 0 26 0; +#X connect 14 0 13 0; +#X connect 15 0 14 0; +#X connect 17 0 18 0; +#X connect 18 0 20 1; +#X connect 19 0 20 0; +#X connect 20 0 10 0; +#X connect 21 0 12 0; +#X connect 23 0 21 1; +#X connect 24 0 5 0; +#X connect 24 0 13 0; +#X connect 25 0 11 1; +#X connect 25 0 6 0;