Mercurial > hg > weather-synthesis-prototyping

annotate June/Gen2_D1.pd @ 41:52511c74c3f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Numerous improvements based on physics equation, inc intensity and azimuth angle calculations
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 29 May 2015 20:56:56 +0100
parents ca1ee52af944
children 2e0fde22102e
rev   line source
r@41 1 #N canvas 62 23 1169 757 10;
r@39 2 #N canvas 236 158 426 423 windspeed 0;
r@39 3 #X obj 3 -19 +~ 1;
r@39 4 #X obj 3 76 +~;
r@39 5 #X obj 3 3 *~ 0.25;
r@39 6 #X obj 19 53 +~;
r@39 7 #X obj 3 98 clip~ 0 1;
r@39 8 #N canvas 548 156 136 193 squall 0;
r@39 9 #X obj 63 20 noise~;
r@39 10 #X obj 63 83 hip~ 0;
r@39 11 #X obj 63 41 lop~ 3;
r@39 12 #X obj 63 62 lop~ 3;
r@39 13 #X obj 0 86 *~;
r@39 14 #X obj 22 130 *~;
r@39 15 #X obj 0 20 max~ 0.4;
r@39 16 #X obj 0 42 -~ 0.4;
r@39 17 #X obj 0 64 *~ 8;
r@39 18 #X obj 63 104 *~ 20;
r@39 19 #X obj 0 0 inlet~;
r@39 20 #X obj 22 154 outlet~;
r@39 21 #X connect 0 0 2 0;
r@39 22 #X connect 1 0 9 0;
r@39 23 #X connect 2 0 3 0;
r@39 24 #X connect 3 0 1 0;
r@39 25 #X connect 4 0 5 0;
r@39 26 #X connect 5 0 11 0;
r@39 27 #X connect 6 0 7 0;
r@39 28 #X connect 7 0 8 0;
r@39 29 #X connect 8 0 4 0;
r@39 30 #X connect 8 0 4 1;
r@39 31 #X connect 9 0 5 1;
r@39 32 #X connect 10 0 6 0;
r@39 33 #X restore 77 28 pd squall;
r@39 34 #N canvas 398 157 136 192 gust 0;
r@39 35 #X obj 0 0 noise~;
r@39 36 #X obj 0 63 hip~ 0;
r@39 37 #X obj 0 106 *~;
r@39 38 #X obj 67 44 *~;
r@39 39 #X obj 67 21 +~ 0.5;
r@39 40 #X obj 67 67 -~ 0.125;
r@39 41 #X obj 0 42 lop~ 0.5;
r@39 42 #X obj 0 21 lop~ 0.5;
r@39 43 #X obj 0 84 *~ 50;
r@39 44 #X obj 67 0 inlet~;
r@39 45 #X obj 0 131 outlet~;
r@39 46 #X connect 0 0 7 0;
r@39 47 #X connect 1 0 8 0;
r@39 48 #X connect 2 0 10 0;
r@39 49 #X connect 3 0 5 0;
r@39 50 #X connect 4 0 3 0;
r@39 51 #X connect 4 0 3 1;
r@39 52 #X connect 5 0 2 1;
r@39 53 #X connect 6 0 1 0;
r@39 54 #X connect 7 0 6 0;
r@39 55 #X connect 8 0 2 0;
r@39 56 #X connect 9 0 4 0;
r@39 57 #X restore 18 29 pd gust;
r@39 58 #X obj 3 120 outlet~;
r@39 59 #X obj 3 -41 osc~ 0.01;
r@39 60 #X connect 0 0 2 0;
r@39 61 #X connect 1 0 4 0;
r@39 62 #X connect 2 0 5 0;
r@39 63 #X connect 2 0 6 0;
r@39 64 #X connect 2 0 1 0;
r@39 65 #X connect 3 0 1 1;
r@39 66 #X connect 4 0 7 0;
r@39 67 #X connect 5 0 3 1;
r@39 68 #X connect 6 0 3 0;
r@39 69 #X connect 8 0 0 0;
r@41 70 #X restore 250 -126 pd windspeed;
r@39 71 #X text 14 5 Light air = 0.56 m/s - 1.39 m/s;
r@39 72 #X text 14 27 Light Breeze = 1.67 m/s - 3.33 m/s;
r@39 73 #X text 14 47 Gentle Breeze = 3.61 m/s - 5.56 m/s;
r@39 74 #X text 14 67 Moderate Breeze = 5.83 m/s - 8.33 m/s;
r@39 75 #X text 15 88 Fresh Breeze = 8.61 m/s - 11.11 m/s;
r@39 76 #X text 14 109 Strong Breeze = 11.39 m/s - 13.89 m/s;
r@39 77 #X text 15 129 Moderate Gale = 14.17 m/s - 16.94 m/s;
r@39 78 #X text 16 149 Fresh Gale = 17.22 m/s - 20.56 m/s;
r@39 79 #X text 15 169 Strong Gale = 20.83 m/s - 24.72 m/s;
r@39 80 #X text 15 187 Whole Gale = 25 m/s - 28.61 m/s;
r@39 81 #X text 15 207 Storm = 28.89 m/s - 33.06 m/s;
r@39 82 #X text 16 225 Hurricane = 33.33 -;
r@39 83 #X text 52 -26 Beaufort Scale Chart;
r@40 84 #X obj 46 419 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@40 85 #X obj 109 419 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@40 86 #X obj 200 419 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
r@41 87 -1 -1 600 1;
r@40 88 #X text 229 438 Gain;
r@40 89 #X msg 200 383 25;
r@40 90 #X obj 200 355 loadbang;
r@40 91 #X obj 250 28 delwrite~ varwind 3000;
r@41 92 #X obj 333 -124 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144
r@41 93 -1 -1 7200 1;
r@41 94 #X obj 293 -21 snapshot~;
r@41 95 #X obj 293 -46 metro 100;
r@41 96 #X obj 293 -68 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@40 97 1;
r@41 98 #X floatatom 293 6 10 0 0 0 - - -;
r@41 99 #X obj 250 -92 *~ 1;
r@41 100 #X obj 250 -66 +~ 1;
r@40 101 #X text 97 264 Equations from Chanaud 2010;
r@40 102 #X text 10 329 Frequency = (Strouhal Number * Velocity) / Distance
r@40 103 ;
r@40 104 #X text 9 289 Reynolds Number = (Density * Velocity * Length) / Viscosity
r@40 105 ;
r@40 106 #X text 9 309 Strouhal Number = 0.198 * (1 - (19.7/ Reynolds Number))
r@40 107 ;
r@41 108 #X obj 392 -23 vd~ varwind 200;
r@41 109 #X floatatom 414 37 10 0 0 0 - - -;
r@41 110 #N canvas 865 368 293 255 opLevels 0;
r@40 111 #X obj 88 129 dac~;
r@40 112 #X obj 64 70 catch~ l;
r@40 113 #X obj 128 70 catch~ r;
r@40 114 #X obj 129 104 *~ 0.45;
r@40 115 #X obj 65 104 *~ 0.45;
r@40 116 #X obj 65 154 prvu~;
r@40 117 #X obj 129 155 prvu~;
r@40 118 #X obj 186 75 / 127;
r@40 119 #X obj 186 40 inlet;
r@40 120 #X obj 65 183 outlet;
r@40 121 #X obj 129 183 outlet;
r@40 122 #X connect 1 0 4 0;
r@40 123 #X connect 2 0 3 0;
r@40 124 #X connect 3 0 0 1;
r@40 125 #X connect 3 0 6 0;
r@40 126 #X connect 4 0 0 0;
r@40 127 #X connect 4 0 5 0;
r@40 128 #X connect 5 0 9 0;
r@40 129 #X connect 6 0 10 0;
r@40 130 #X connect 7 0 3 1;
r@40 131 #X connect 7 0 4 1;
r@40 132 #X connect 8 0 7 0;
r@40 133 #X restore 45 376 pd opLevels;
r@41 134 #X text 381 182 Frequency (Hz);
r@41 135 #X floatatom 392 157 10 0 0 0 - - -;
r@41 136 #X floatatom 648 14 10 0 0 0 - - -;
r@41 137 #X text 608 135 Frequency (Hz);
r@41 138 #X floatatom 619 110 10 0 0 0 - - -;
r@41 139 #X obj 619 -71 vd~ varwind 2000;
r@41 140 #X obj 407 14 makeDia;
r@41 141 #X obj 634 -16 makeDia;
r@41 142 #X obj 392 125 thisFreq;
r@41 143 #X obj 496 -60 vsl 20 50 0.005 0.99 0 0 empty empty empty 0 -9 0 10
r@41 144 -262144 -1 -1 900 1;
r@41 145 #X obj 522 -60 vsl 20 50 100 1 1 0 empty empty empty 0 -9 0 10 -262144
r@41 146 -1 -1 600 1;
r@41 147 #X obj 465 79 hsl 50 20 -180 180 0 0 empty empty empty -2 -8 0 10 -262144
r@41 148 -1 -1 1600 1;
r@41 149 #X floatatom 522 9 5 0 0 0 - - -;
r@41 150 #X floatatom 487 111 5 0 0 0 - - -;
r@41 151 #X obj 727 -81 vsl 20 50 0.005 0.99 0 0 empty empty empty 0 -9 0 10
r@41 152 -262144 -1 -1 1200 1;
r@41 153 #X obj 771 -73 vsl 20 50 100 1 1 0 empty empty empty 0 -9 0 10 -262144
r@41 154 -1 -1 200 1;
r@41 155 #X obj 709 41 hsl 50 20 -180 180 0 0 empty empty empty -2 -8 0 10 -262144
r@41 156 -1 -1 3200 1;
r@41 157 #X floatatom 771 -4 5 0 0 0 - - -;
r@41 158 #X floatatom 731 73 5 0 0 0 - - -;
r@41 159 #X obj 619 78 thisFreq;
r@41 160 #X floatatom 518 369 10 0 0 0 - - -;
r@41 161 #X text 478 494 Frequency (Hz);
r@41 162 #X floatatom 489 469 10 0 0 0 - - -;
r@41 163 #X obj 504 339 makeDia;
r@41 164 #X obj 587 278 vsl 20 50 0.005 0.99 0 0 empty empty empty 0 -9 0 10
r@41 165 -262144 -1 -1 1100 1;
r@41 166 #X obj 641 286 vsl 20 50 100 1 1 0 empty empty empty 0 -9 0 10 -262144
r@41 167 -1 -1 1700 1;
r@41 168 #X obj 579 400 hsl 50 20 -180 180 0 0 empty empty empty -2 -8 0 10
r@41 169 -262144 -1 -1 1900 1;
r@41 170 #X floatatom 641 355 5 0 0 0 - - -;
r@41 171 #X floatatom 601 432 5 0 0 0 - - -;
r@41 172 #X obj 489 437 thisFreq;
r@41 173 #X msg 456 260 100;
r@41 174 #X msg 489 260 500;
r@41 175 #X msg 521 260 1200;
r@41 176 #X obj 489 288 vd~ varwind \$1;
r@41 177 #X connect 0 0 26 0;
r@41 178 #X connect 16 0 34 0;
r@41 179 #X connect 18 0 16 0;
r@41 180 #X connect 19 0 18 0;
r@41 181 #X connect 21 0 26 1;
r@41 182 #X connect 21 0 27 1;
r@41 183 #X connect 22 0 25 0;
r@41 184 #X connect 23 0 22 0;
r@40 185 #X connect 24 0 23 0;
r@41 186 #X connect 26 0 27 0;
r@41 187 #X connect 27 0 20 0;
r@41 188 #X connect 27 0 22 0;
r@41 189 #X connect 32 0 43 0;
r@41 190 #X connect 34 0 14 0;
r@41 191 #X connect 34 1 15 0;
r@41 192 #X connect 40 0 54 0;
r@41 193 #X connect 41 0 33 0;
r@41 194 #X connect 41 0 43 1;
r@41 195 #X connect 42 0 37 0;
r@41 196 #X connect 42 0 54 1;
r@41 197 #X connect 43 0 36 0;
r@41 198 #X connect 44 0 41 0;
r@41 199 #X connect 45 0 43 2;
r@41 200 #X connect 45 0 47 0;
r@41 201 #X connect 46 0 43 3;
r@41 202 #X connect 46 0 48 0;
r@41 203 #X connect 49 0 42 0;
r@41 204 #X connect 50 0 52 0;
r@41 205 #X connect 50 0 54 2;
r@41 206 #X connect 51 0 53 0;
r@41 207 #X connect 51 0 54 3;
r@41 208 #X connect 54 0 39 0;
r@41 209 #X connect 58 0 55 0;
r@41 210 #X connect 58 0 64 1;
r@41 211 #X connect 59 0 58 0;
r@41 212 #X connect 60 0 62 0;
r@41 213 #X connect 60 0 64 2;
r@41 214 #X connect 61 0 63 0;
r@41 215 #X connect 61 0 64 3;
r@41 216 #X connect 64 0 57 0;
r@41 217 #X connect 65 0 68 0;
r@41 218 #X connect 66 0 68 0;
r@41 219 #X connect 67 0 68 0;
r@41 220 #X connect 68 0 64 0;