Mercurial > hg > weather-synthesis-prototyping

annotate Shallow Cavity/CavD1.pd @ 243:d6f8d88c4d13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Strouhal No of 0.85 and chord length added to each source. Each source radius scaled to the length of the blade.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 17 Sep 2016 14:00:30 +0100
parents 62b41b255645
children fc487b69ce79
rev   line source
r@238 1 #N canvas 132 23 1193 815 10;
r@238 2 #X obj -172 -182 loadbang;
r@238 3 #X obj -172 -145 metro 10;
r@238 4 #X obj -172 -162 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@201 5 1 1;
r@238 6 #X obj -172 -123 s myMet;
r@201 7 #N canvas 20 383 344 123 machCalc 0;
r@201 8 #X text 107 15 Speed of Sound (dry air 20 Degs C);
r@201 9 #X obj 26 -14 vd~ varwind;
r@201 10 #X obj 26 33 s~ MY_MACH;
r@201 11 #X obj 26 9 /~ 343.56;
r@201 12 #X connect 1 0 3 0;
r@201 13 #X connect 3 0 2 0;
r@238 14 #X restore -177 -97 pd machCalc;
r@201 15 #X obj -162 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@201 16 #X obj -99 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@201 17 #X text -102 376 Gain;
r@201 18 #X obj -154 347 loadbang;
r@201 19 #N canvas 555 179 313 396 opLevels 0;
r@201 20 #X obj 79 184 dac~;
r@201 21 #X obj 30 70 catch~ l;
r@201 22 #X obj 128 70 catch~ r;
r@201 23 #X obj 129 104 *~ 0.45;
r@201 24 #X obj 30 104 *~ 0.45;
r@201 25 #X obj 30 210 prvu~;
r@201 26 #X obj 129 211 prvu~;
r@201 27 #X obj 93 33 inlet;
r@201 28 #X obj 30 239 outlet;
r@201 29 #X obj 129 239 outlet;
r@201 30 #X connect 1 0 4 0;
r@201 31 #X connect 2 0 3 0;
r@201 32 #X connect 3 0 6 0;
r@201 33 #X connect 3 0 0 1;
r@201 34 #X connect 4 0 5 0;
r@201 35 #X connect 4 0 0 0;
r@201 36 #X connect 5 0 8 0;
r@201 37 #X connect 6 0 9 0;
r@201 38 #X connect 7 0 4 1;
r@201 39 #X connect 7 0 3 1;
r@201 40 #X restore -163 424 pd opLevels;
r@201 41 #X msg -154 370 5;
r@201 42 #X obj -160 395 hsl 100 25 0.1 1e+09 1 0 empty empty empty -2 -8 0
r@238 43 10 -262144 -1 -1 1682 1;
r@201 44 #X obj -163 324 r GAIN;
r@201 45 #X floatatom -220 425 8 0 0 0 - - -;
r@238 46 #X obj 436 -178 hsl 100 25 0.001 10 1 0 empty empty Length 3 13 0 10
r@238 47 -262144 -1 -1 5200 1;
r@238 48 #X floatatom 454 -149 0 0 0 0 - - -;
r@238 49 #X obj 550 -178 hsl 100 25 0.001 10 1 0 empty empty Width 3 13 0 10
r@238 50 -262144 -1 -1 2600 1;
r@238 51 #X floatatom 580 -149 0 0 0 0 - - -;
r@238 52 #X obj 664 -178 hsl 100 25 0.001 10 1 0 empty empty Depth 3 13 0 10
r@238 53 -262144 -1 -1 7500 1;
r@238 54 #X floatatom 688 -150 0 0 0 0 - - -;
r@238 55 #X obj -39 -35 delwrite~ varwind 3000;
r@238 56 #X obj 70 -127 hsl 128 15 0 100 0 0 empty empty empty -2 -8 0 10 -262144
r@238 57 -1 -1 4500 1;
r@238 58 #X obj -39 -83 *~ 1;
r@238 59 #X obj -39 -61 +~ 1;
r@238 60 #X obj -39 -185 loadbang;
r@238 61 #X floatatom 108 -104 0 0 0 0 - - -;
r@238 62 #X obj 67 -151 r SPEED;
r@238 63 #X obj 100 -37 snapshot~;
r@238 64 #X floatatom 100 -17 0 0 0 0 - - -;
r@238 65 #X text 97 1 Wind Speed;
r@238 66 #X msg 122 -150 20;
r@238 67 #X obj 100 -58 r myMet;
r@238 68 #X obj 30 -104 * 0.5;
r@238 69 #X obj 67 -104 * 0.88;
r@238 70 #X obj -36 -161 hsl 50 30 0 1 0 0 empty empty Gusts 2 8 0 10 -261995
r@238 71 -1 -4032 4900 1;
r@238 72 #X obj 29 -130 t f b;
r@238 73 #X obj 28 -152 * 0.75;
r@238 74 #X obj 15 -184 r gusts;
r@238 75 #X obj 156 -149 r underWind;
r@238 76 #X obj -39 -109 windGenD1;
r@238 77 #N canvas 353 99 1064 659 rossFreqD1 0;
r@201 78 #X obj 239 -76 r~ MY_MACH;
r@201 79 #X obj 224 -97 sig~ 1;
r@201 80 #X obj 239 -51 *~;
r@201 81 #X obj 239 -29 *~ 0.2;
r@201 82 #X obj 224 -6 +~;
r@201 83 #X obj 224 17 sqrt~;
r@201 84 #X obj 209 -119 r~ MY_MACH;
r@201 85 #X obj 209 38 /~;
r@201 86 #X obj 209 60 +~ 1.7544;
r@201 87 #X obj 194 82 /~;
r@201 88 #X obj 114 75 r myMet;
r@201 89 #X obj 114 97 snapshot~;
r@201 90 #X floatatom 114 121 0 0 0 0 - - -;
r@201 91 #X obj 194 124 *~;
r@201 92 #X obj 209 103 r~ \$0-windSpeed;
r@201 93 #X obj 194 164 /~ 1;
r@201 94 #X obj 215 144 r $-thisLen;
r@238 95 #X obj 227 210 r myMet;
r@238 96 #X obj 227 231 snapshot~;
r@238 97 #X floatatom 227 255 0 0 0 0 - - -;
r@201 98 #X text 290 -34 (y-1)/2 -> y = 1.4;
r@201 99 #X text 254 -144 alpha = 0.25;
r@201 100 #X text 277 58 (1/k) -> k = 0.57;
r@238 101 #X text 235 278 m = 1;
r@238 102 #X text 838 -107 alpha = 0.25;
r@238 103 #X text 834 -127 m = 1;
r@238 104 #X obj 778 -51 /~;
r@238 105 #X obj 793 -80 sig~ 1.7544;
r@238 106 #X obj 778 -5 *~;
r@238 107 #X obj 793 -26 r~ \$0-windSpeed;
r@238 108 #X obj 778 35 /~ 1;
r@238 109 #X obj 799 15 r $-thisLen;
r@238 110 #X obj 798 61 r myMet;
r@238 111 #X obj 798 83 snapshot~;
r@238 112 #X floatatom 798 107 0 0 0 0 - - -;
r@238 113 #X text 875 -79 (1/k) -> k = 0.57;
r@238 114 #X text 250 -164 h = 1;
r@238 115 #X obj 707 -32 r myMet;
r@238 116 #X obj 707 -10 snapshot~;
r@238 117 #X floatatom 707 14 0 0 0 0 - - -;
r@238 118 #X text 755 -160 Victoria Suponitsky;
r@238 119 #X text 197 -194 A. Rona;
r@238 120 #X obj 778 -105 -~ 0.25;
r@238 121 #X obj 194 -142 -~ 0.25;
r@238 122 #X text 363 -145 Has + alpha in paper but Rossiter has - ???;
r@238 123 #X obj 778 -127 sig~ 1;
r@238 124 #X obj 194 -164 sig~ 1;
r@238 125 #X obj 778 181 outlet~;
r@238 126 #X connect 0 0 2 0;
r@238 127 #X connect 0 0 2 1;
r@238 128 #X connect 1 0 4 0;
r@238 129 #X connect 2 0 3 0;
r@238 130 #X connect 3 0 4 1;
r@238 131 #X connect 4 0 5 0;
r@238 132 #X connect 5 0 7 1;
r@238 133 #X connect 6 0 7 0;
r@201 134 #X connect 7 0 8 0;
r@238 135 #X connect 8 0 9 1;
r@201 136 #X connect 9 0 11 0;
r@238 137 #X connect 9 0 13 0;
r@238 138 #X connect 10 0 11 0;
r@238 139 #X connect 11 0 12 0;
r@238 140 #X connect 13 0 15 0;
r@238 141 #X connect 14 0 13 1;
r@238 142 #X connect 15 0 18 0;
r@238 143 #X connect 16 0 15 1;
r@238 144 #X connect 17 0 18 0;
r@238 145 #X connect 18 0 19 0;
r@238 146 #X connect 26 0 28 0;
r@238 147 #X connect 26 0 38 0;
r@238 148 #X connect 27 0 26 1;
r@238 149 #X connect 28 0 30 0;
r@238 150 #X connect 29 0 28 1;
r@238 151 #X connect 30 0 33 0;
r@238 152 #X connect 30 0 47 0;
r@238 153 #X connect 31 0 30 1;
r@238 154 #X connect 32 0 33 0;
r@238 155 #X connect 33 0 34 0;
r@238 156 #X connect 37 0 38 0;
r@238 157 #X connect 38 0 39 0;
r@238 158 #X connect 42 0 26 0;
r@238 159 #X connect 43 0 9 0;
r@238 160 #X connect 45 0 42 0;
r@238 161 #X connect 46 0 43 0;
r@238 162 #X restore 447 -58 pd rossFreqD1;
r@238 163 #N canvas 397 227 1009 672 cavFreqD1 0;
r@238 164 #X obj 273 -22 r~ MY_MACH;
r@238 165 #X obj 258 -43 sig~ 1;
r@238 166 #X obj 273 3 *~;
r@238 167 #X obj 273 25 *~ 0.2;
r@238 168 #X obj 258 48 +~;
r@238 169 #X obj 258 71 sqrt~;
r@238 170 #X obj 273 93 r~ MY_MACH;
r@238 171 #X text 324 20 (y-1)/2 -> y = 1.4;
r@238 172 #X obj 258 119 /~;
r@238 173 #X obj 463 -24 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@238 174 -1 -1 2200 1;
r@238 175 #X obj 460 1 i;
r@238 176 #X msg 460 23 \$1 50;
r@238 177 #X obj 460 44 line~;
r@238 178 #X floatatom 502 23 0 0 0 0 - - -;
r@238 179 #X obj 598 -47 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@238 180 -1 -1 1600 1;
r@238 181 #X obj 595 -22 i;
r@238 182 #X msg 595 0 \$1 50;
r@238 183 #X obj 595 21 line~;
r@238 184 #X floatatom 637 0 0 0 0 0 - - -;
r@238 185 #X obj 741 -41 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@238 186 -1 -1 2300 1;
r@238 187 #X obj 738 -16 i;
r@238 188 #X msg 738 6 \$1 50;
r@238 189 #X obj 738 27 line~;
r@238 190 #X floatatom 780 6 0 0 0 0 - - -;
r@238 191 #X text 549 -24 l;
r@238 192 #X text 687 -47 m;
r@238 193 #X text 834 -40 n;
r@238 194 #X obj 460 68 /~ 2;
r@238 195 #X obj 460 98 *~;
r@238 196 #X obj 595 43 /~ 2;
r@238 197 #X obj 738 48 /~ 2;
r@238 198 #X obj 610 67 r $-thisLen;
r@238 199 #X obj 625 133 r $-thisWid;
r@238 200 #X msg 610 90 \$1 50;
r@238 201 #X obj 610 111 line~;
r@238 202 #X msg 625 155 \$1 50;
r@238 203 #X obj 625 176 line~;
r@238 204 #X obj 610 199 /~;
r@238 205 #X obj 595 240 *~;
r@238 206 #X obj 595 266 *~;
r@238 207 #X obj 753 71 r $-thisLen;
r@238 208 #X msg 753 94 \$1 50;
r@238 209 #X obj 753 115 line~;
r@238 210 #X msg 768 159 \$1 50;
r@238 211 #X obj 768 180 line~;
r@238 212 #X obj 753 203 /~;
r@238 213 #X obj 738 244 *~;
r@238 214 #X obj 738 270 *~;
r@238 215 #X obj 768 137 r $-thisDep;
r@238 216 #X obj 582 310 +~;
r@238 217 #X obj 638 341 +~;
r@238 218 #X obj 638 366 sqrt~;
r@238 219 #X obj 592 427 *~;
r@238 220 #X obj 496 414 r myMet;
r@238 221 #X obj 496 436 snapshot~;
r@238 222 #X floatatom 496 460 0 0 0 0 - - -;
r@238 223 #X obj 477 222 r myMet;
r@238 224 #X obj 477 244 snapshot~;
r@238 225 #X floatatom 477 268 0 0 0 0 - - -;
r@238 226 #X obj 592 462 outlet~;
r@238 227 #X connect 0 0 2 0;
r@238 228 #X connect 0 0 2 1;
r@238 229 #X connect 1 0 4 0;
r@238 230 #X connect 2 0 3 0;
r@238 231 #X connect 3 0 4 1;
r@238 232 #X connect 4 0 5 0;
r@238 233 #X connect 5 0 8 0;
r@238 234 #X connect 6 0 8 1;
r@238 235 #X connect 8 0 52 0;
r@238 236 #X connect 9 0 10 0;
r@238 237 #X connect 10 0 11 0;
r@201 238 #X connect 10 0 13 0;
r@201 239 #X connect 11 0 12 0;
r@238 240 #X connect 12 0 27 0;
r@238 241 #X connect 14 0 15 0;
r@201 242 #X connect 15 0 16 0;
r@238 243 #X connect 15 0 18 0;
r@201 244 #X connect 16 0 17 0;
r@238 245 #X connect 17 0 29 0;
r@201 246 #X connect 19 0 20 0;
r@201 247 #X connect 20 0 21 0;
r@238 248 #X connect 20 0 23 0;
r@238 249 #X connect 21 0 22 0;
r@238 250 #X connect 22 0 30 0;
r@201 251 #X connect 27 0 28 0;
r@238 252 #X connect 27 0 28 1;
r@238 253 #X connect 28 0 49 0;
r@238 254 #X connect 29 0 38 0;
r@238 255 #X connect 30 0 46 0;
r@238 256 #X connect 31 0 33 0;
r@238 257 #X connect 32 0 35 0;
r@201 258 #X connect 33 0 34 0;
r@238 259 #X connect 34 0 37 0;
r@238 260 #X connect 35 0 36 0;
r@238 261 #X connect 36 0 37 1;
r@238 262 #X connect 37 0 38 1;
r@238 263 #X connect 38 0 39 0;
r@238 264 #X connect 38 0 39 1;
r@238 265 #X connect 39 0 49 1;
r@201 266 #X connect 40 0 41 0;
r@238 267 #X connect 41 0 42 0;
r@238 268 #X connect 42 0 45 0;
r@238 269 #X connect 43 0 44 0;
r@238 270 #X connect 44 0 45 1;
r@238 271 #X connect 45 0 46 1;
r@238 272 #X connect 46 0 47 0;
r@238 273 #X connect 46 0 47 1;
r@238 274 #X connect 47 0 50 1;
r@238 275 #X connect 48 0 43 0;
r@238 276 #X connect 49 0 50 0;
r@238 277 #X connect 50 0 51 0;
r@238 278 #X connect 51 0 52 1;
r@238 279 #X connect 52 0 54 0;
r@238 280 #X connect 52 0 59 0;
r@238 281 #X connect 53 0 54 0;
r@238 282 #X connect 54 0 55 0;
r@238 283 #X connect 56 0 57 0;
r@238 284 #X connect 57 0 58 0;
r@238 285 #X restore 325 -58 pd cavFreqD1;
r@238 286 #X obj 433 -129 s $-thisLen;
r@238 287 #X obj 661 -128 s $-thisDep;
r@238 288 #X obj 547 -129 s $-thisWid;
r@238 289 #X obj -173 -31 s~ \$0-windSpeed;
r@238 290 #X obj -173 -51 vd~ varwind;
r@238 291 #X text -160 -75 Wind Speed;
r@238 292 #X obj 340 -15 snapshot~;
r@238 293 #X floatatom 340 5 0 0 0 0 - - -;
r@238 294 #X obj 340 -36 r myMet;
r@238 295 #X obj 461 -16 snapshot~;
r@238 296 #X floatatom 461 4 0 0 0 0 - - -;
r@238 297 #X obj 461 -37 r myMet;
r@238 298 #X obj 477 83 /;
r@238 299 #X obj 477 111 * 100;
r@238 300 #X floatatom 415 136 0 0 0 0 - - -;
r@238 301 #X obj 341 28 -;
r@238 302 #X obj 341 49 abs;
r@238 303 #X obj 477 138 < 5;
r@238 304 #X obj 477 163 tgl 35 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
r@238 305 1;
r@201 306 #X connect 0 0 2 0;
r@201 307 #X connect 1 0 3 0;
r@201 308 #X connect 2 0 1 0;
r@238 309 #X connect 8 0 10 0;
r@201 310 #X connect 9 0 5 0;
r@238 311 #X connect 9 1 6 0;
r@238 312 #X connect 10 0 11 0;
r@238 313 #X connect 11 0 9 0;
r@238 314 #X connect 11 0 13 0;
r@238 315 #X connect 12 0 11 0;
r@201 316 #X connect 14 0 15 0;
r@238 317 #X connect 14 0 42 0;
r@238 318 #X connect 16 0 17 0;
r@238 319 #X connect 16 0 44 0;
r@201 320 #X connect 18 0 19 0;
r@238 321 #X connect 18 0 43 0;
r@238 322 #X connect 21 0 25 0;
r@238 323 #X connect 21 0 32 0;
r@238 324 #X connect 21 0 33 0;
r@238 325 #X connect 22 0 23 0;
r@238 326 #X connect 23 0 27 0;
r@238 327 #X connect 23 0 20 0;
r@238 328 #X connect 24 0 34 0;
r@238 329 #X connect 26 0 21 0;
r@238 330 #X connect 27 0 28 0;
r@238 331 #X connect 30 0 21 0;
r@238 332 #X connect 31 0 27 0;
r@238 333 #X connect 32 0 22 1;
r@238 334 #X connect 33 0 23 1;
r@201 335 #X connect 34 0 36 0;
r@238 336 #X connect 34 0 39 0;
r@238 337 #X connect 35 0 32 1;
r@238 338 #X connect 35 1 32 0;
r@238 339 #X connect 36 0 35 0;
r@238 340 #X connect 37 0 34 0;
r@238 341 #X connect 38 0 21 0;
r@238 342 #X connect 39 0 22 0;
r@238 343 #X connect 40 0 51 0;
r@238 344 #X connect 41 0 48 0;
r@238 345 #X connect 46 0 45 0;
r@238 346 #X connect 48 0 49 0;
r@238 347 #X connect 49 0 57 0;
r@238 348 #X connect 50 0 48 0;
r@238 349 #X connect 51 0 52 0;
r@238 350 #X connect 52 0 54 1;
r@238 351 #X connect 52 0 57 1;
r@238 352 #X connect 53 0 51 0;
r@238 353 #X connect 54 0 55 0;
r@238 354 #X connect 54 0 56 0;
r@238 355 #X connect 55 0 59 0;
r@238 356 #X connect 57 0 58 0;
r@238 357 #X connect 58 0 54 0;
r@238 358 #X connect 59 0 60 0;