Mercurial > hg > weather-synthesis-prototyping
view Shallow Cavity/CavD2.pd @ 303:8b51c20529a6
Edgetone development models
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Sat, 11 Nov 2017 17:43:39 +0000 |
| parents | 62647c2c3d79 |
| children |
line wrap: on
line source
#N canvas 193 29 1258 810 10; #X obj -172 -182 loadbang; #X obj -172 -145 metro 10; #X obj -172 -162 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj -172 -123 s myMet; #N canvas 20 383 344 123 machCalc 0; #X text 107 15 Speed of Sound (dry air 20 Degs C); #X obj 26 -14 vd~ varwind; #X obj 26 33 s~ MY_MACH; #X obj 26 9 /~ 343; #X connect 1 0 3 0; #X connect 3 0 2 0; #X restore -177 -97 pd machCalc; #X obj -162 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X obj -99 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X text -102 376 Gain; #X obj -154 347 loadbang; #N canvas 555 179 313 396 opLevels 0; #X obj 79 184 dac~; #X obj 30 70 catch~ l; #X obj 128 70 catch~ r; #X obj 129 104 *~ 0.45; #X obj 30 104 *~ 0.45; #X obj 30 210 prvu~; #X obj 129 211 prvu~; #X obj 93 33 inlet; #X obj 30 239 outlet; #X obj 129 239 outlet; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 6 0; #X connect 3 0 0 1; #X connect 4 0 5 0; #X connect 4 0 0 0; #X connect 5 0 8 0; #X connect 6 0 9 0; #X connect 7 0 4 1; #X connect 7 0 3 1; #X restore -163 424 pd opLevels; #X msg -154 370 5; #X obj -160 395 hsl 100 25 0.1 1e+09 1 0 empty empty empty -2 -8 0 10 -262144 -1 -1 1682 1; #X obj -163 324 r GAIN; #X floatatom -220 425 8 0 0 0 - - -; #X obj 436 -178 hsl 100 25 0.001 10 1 0 empty empty Length 3 13 0 10 -262144 -1 -1 3460 1; #X floatatom 454 -149 0 0 0 0 - - -; #X obj 550 -178 hsl 100 25 0.001 10 1 0 empty empty Width 3 13 0 10 -262144 -1 -1 4222 1; #X floatatom 580 -149 0 0 0 0 - - -; #X obj 664 -178 hsl 100 25 0.001 10 1 0 empty empty Depth 3 13 0 10 -262144 -1 -1 3717 1; #X floatatom 688 -150 0 0 0 0 - - -; #X obj -39 -35 delwrite~ varwind 3000; #X obj 70 -127 hsl 300 15 0 1000 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 5200 1; #X obj -39 -83 *~ 1; #X obj -39 -61 +~ 1; #X obj -39 -185 loadbang; #X floatatom 108 -104 0 0 0 0 - - -; #X obj 67 -151 r SPEED; #X obj 100 -37 snapshot~; #X floatatom 100 -17 0 0 0 0 - - -; #X text 97 1 Wind Speed; #X msg 122 -150 20; #X obj 100 -58 r myMet; #X obj 30 -104 * 0.5; #X obj 67 -104 * 0.88; #X obj -36 -161 hsl 50 30 0 1 0 0 empty empty Gusts 2 8 0 10 -261995 -1 -4032 0 1; #X obj 29 -130 t f b; #X obj 28 -152 * 0.75; #X obj 15 -184 r gusts; #X obj 156 -149 r underWind; #X obj -39 -109 windGenD1; #N canvas 275 88 1031 757 cavFreqD1 0; #X obj 170 80 r~ MY_MACH; #X obj 155 59 sig~ 1; #X obj 170 105 *~; #X obj 170 127 *~ 0.2; #X obj 155 150 +~; #X obj 155 173 sqrt~; #X obj 170 195 r~ MY_MACH; #X text 221 122 (y-1)/2 -> y = 1.4; #X obj 155 221 /~; #X obj 330 19 /~ 2; #X obj 330 49 *~; #X obj 393 2 /~ 2; #X obj 507 10 /~ 2; #X obj 408 26 r $-thisLen; #X obj 423 92 r $-thisWid; #X msg 408 49 \$1 50; #X obj 408 70 line~; #X msg 423 114 \$1 50; #X obj 423 135 line~; #X obj 408 158 /~; #X obj 393 199 *~; #X obj 393 225 *~; #X obj 522 33 r $-thisLen; #X msg 522 56 \$1 50; #X obj 522 77 line~; #X msg 537 121 \$1 50; #X obj 537 142 line~; #X obj 522 165 /~; #X obj 507 206 *~; #X obj 507 232 *~; #X obj 537 99 r $-thisDep; #X obj 380 269 +~; #X obj 380 296 +~; #X obj 380 321 sqrt~; #X obj 365 346 *~; #X obj 365 458 outlet~; #X obj 365 388 *~; #X obj 380 367 r~ \$0-windSpeed; #X obj 365 428 /~ 1; #X obj 386 408 r $-thisLen; #X obj 452 444 r myMet; #X obj 452 465 snapshot~; #X floatatom 452 489 0 0 0 0 - - -; #X obj 330 -4 inlet~; #X obj 393 -21 inlet~; #X obj 507 -13 inlet~; #X obj 245 344 r myMet; #X obj 245 365 snapshot~; #X floatatom 245 389 0 0 0 0 - - -; #X obj 537 394 outlet~; #X connect 0 0 2 0; #X connect 0 0 2 1; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 4 1; #X connect 4 0 5 0; #X connect 5 0 8 0; #X connect 6 0 8 1; #X connect 8 0 34 0; #X connect 9 0 10 0; #X connect 9 0 10 1; #X connect 10 0 31 0; #X connect 11 0 20 0; #X connect 12 0 28 0; #X connect 13 0 15 0; #X connect 14 0 17 0; #X connect 15 0 16 0; #X connect 16 0 19 0; #X connect 17 0 18 0; #X connect 18 0 19 1; #X connect 19 0 20 1; #X connect 20 0 21 0; #X connect 20 0 21 1; #X connect 21 0 31 1; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 24 0 27 0; #X connect 25 0 26 0; #X connect 26 0 27 1; #X connect 27 0 28 1; #X connect 28 0 29 0; #X connect 28 0 29 1; #X connect 29 0 32 1; #X connect 30 0 25 0; #X connect 31 0 32 0; #X connect 32 0 33 0; #X connect 33 0 34 1; #X connect 34 0 36 0; #X connect 34 0 47 0; #X connect 34 0 49 0; #X connect 36 0 38 0; #X connect 37 0 36 1; #X connect 38 0 41 0; #X connect 38 0 35 0; #X connect 39 0 38 1; #X connect 40 0 41 0; #X connect 41 0 42 0; #X connect 43 0 9 0; #X connect 44 0 11 0; #X connect 45 0 12 0; #X connect 46 0 47 0; #X connect 47 0 48 0; #X restore 245 38 pd cavFreqD1; #X obj 433 -129 s $-thisLen; #X obj 661 -128 s $-thisDep; #X obj 547 -129 s $-thisWid; #X obj -173 -31 s~ \$0-windSpeed; #X obj -173 -51 vd~ varwind; #X text -160 -75 Wind Speed; #X obj 260 81 snapshot~; #X floatatom 260 101 0 0 0 0 - - -; #X obj 260 60 r myMet; #X obj 150 252 snapshot~; #X floatatom 150 272 0 0 0 0 - - -; #X obj 150 231 r myMet; #N canvas 518 253 1064 659 rossFreqD1_n=1 0; #X obj 239 -76 r~ MY_MACH; #X obj 224 -97 sig~ 1; #X obj 239 -51 *~; #X obj 239 -29 *~ 0.2; #X obj 224 -6 +~; #X obj 224 17 sqrt~; #X obj 209 -119 r~ MY_MACH; #X obj 209 38 /~; #X obj 194 82 /~; #X obj 114 75 r myMet; #X obj 114 97 snapshot~; #X floatatom 114 121 0 0 0 0 - - -; #X obj 194 124 *~; #X obj 209 103 r~ \$0-windSpeed; #X obj 194 164 /~ 1; #X obj 215 144 r $-thisLen; #X obj 227 210 r myMet; #X obj 227 231 snapshot~; #X floatatom 227 255 0 0 0 0 - - -; #X text 290 -34 (y-1)/2 -> y = 1.4; #X text 254 -144 alpha = 0.25; #X text 277 58 (1/k) -> k = 0.57; #X text 235 278 m = 1; #X text 838 -107 alpha = 0.25; #X text 834 -127 m = 1; #X obj 778 -51 /~; #X obj 793 -80 sig~ 1.7544; #X obj 778 -5 *~; #X obj 793 -26 r~ \$0-windSpeed; #X obj 778 35 /~ 1; #X obj 799 15 r $-thisLen; #X obj 798 61 r myMet; #X obj 798 83 snapshot~; #X floatatom 798 107 0 0 0 0 - - -; #X text 875 -79 (1/k) -> k = 0.57; #X text 250 -164 h = 1; #X obj 707 -32 r myMet; #X obj 707 -10 snapshot~; #X floatatom 707 14 0 0 0 0 - - -; #X text 755 -160 Victoria Suponitsky; #X text 133 -182 A. Rona; #X obj 778 -105 -~ 0.25; #X obj 194 -142 -~ 0.25; #X text 363 -145 Has + alpha in paper but Rossiter has - ???; #X obj 778 -127 sig~ 1; #X obj 143 250 outlet~; #X obj 209 60 +~ 1.7544; #X text 330 -21 Heller \, Holmes & Covert; #X obj 102 202 outlet~; #X obj 194 -164 sig~ 1; #X connect 0 0 2 0; #X connect 0 0 2 1; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 4 1; #X connect 4 0 5 0; #X connect 5 0 7 1; #X connect 6 0 7 0; #X connect 7 0 46 0; #X connect 8 0 12 0; #X connect 8 0 10 0; #X connect 8 0 48 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 12 0 14 0; #X connect 13 0 12 1; #X connect 14 0 17 0; #X connect 14 0 45 0; #X connect 15 0 14 1; #X connect 16 0 17 0; #X connect 17 0 18 0; #X connect 25 0 27 0; #X connect 25 0 37 0; #X connect 26 0 25 1; #X connect 27 0 29 0; #X connect 28 0 27 1; #X connect 29 0 32 0; #X connect 30 0 29 1; #X connect 31 0 32 0; #X connect 32 0 33 0; #X connect 36 0 37 0; #X connect 37 0 38 0; #X connect 41 0 25 0; #X connect 42 0 8 0; #X connect 44 0 41 0; #X connect 46 0 8 1; #X connect 49 0 42 0; #X restore 120 173 pd rossFreqD1_n=1; #X obj 362 221 snapshot~; #X floatatom 362 241 0 0 0 0 - - -; #X obj 362 200 r myMet; #N canvas 353 99 1064 659 rossFreqD1_n=2 0; #X obj 239 -76 r~ MY_MACH; #X obj 224 -97 sig~ 1; #X obj 239 -51 *~; #X obj 239 -29 *~ 0.2; #X obj 224 -6 +~; #X obj 224 17 sqrt~; #X obj 209 -119 r~ MY_MACH; #X obj 209 38 /~; #X obj 209 60 +~ 1.7544; #X obj 194 82 /~; #X obj 114 75 r myMet; #X obj 114 97 snapshot~; #X floatatom 114 121 0 0 0 0 - - -; #X obj 194 124 *~; #X obj 209 103 r~ \$0-windSpeed; #X obj 194 164 /~ 1; #X obj 215 144 r $-thisLen; #X obj 227 210 r myMet; #X obj 227 231 snapshot~; #X floatatom 227 255 0 0 0 0 - - -; #X text 290 -34 (y-1)/2 -> y = 1.4; #X text 254 -144 alpha = 0.25; #X text 277 58 (1/k) -> k = 0.57; #X text 235 278 m = 1; #X text 838 -107 alpha = 0.25; #X obj 778 -51 /~; #X obj 793 -80 sig~ 1.7544; #X obj 778 -5 *~; #X obj 793 -26 r~ \$0-windSpeed; #X obj 778 35 /~ 1; #X obj 799 15 r $-thisLen; #X obj 798 61 r myMet; #X obj 798 83 snapshot~; #X floatatom 798 107 0 0 0 0 - - -; #X text 875 -79 (1/k) -> k = 0.57; #X obj 707 -32 r myMet; #X obj 707 -10 snapshot~; #X floatatom 707 14 0 0 0 0 - - -; #X text 755 -160 Victoria Suponitsky; #X text 197 -194 A. Rona; #X obj 778 -105 -~ 0.25; #X obj 194 -142 -~ 0.25; #X text 363 -145 Has + alpha in paper but Rossiter has - ???; #X obj 101 200 outlet~; #X obj 194 -164 sig~ 2; #X text 250 -164 h = 2; #X obj 778 -127 sig~ 2; #X obj 167 253 outlet~; #X text 335 -20 Heller \, Holmes & Covert; #X text 834 -127 m = 2; #X connect 0 0 2 0; #X connect 0 0 2 1; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 4 1; #X connect 4 0 5 0; #X connect 5 0 7 1; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 8 0 9 1; #X connect 9 0 11 0; #X connect 9 0 13 0; #X connect 9 0 43 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 13 0 15 0; #X connect 14 0 13 1; #X connect 15 0 18 0; #X connect 15 0 47 0; #X connect 16 0 15 1; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 25 0 27 0; #X connect 25 0 36 0; #X connect 26 0 25 1; #X connect 27 0 29 0; #X connect 28 0 27 1; #X connect 29 0 32 0; #X connect 30 0 29 1; #X connect 31 0 32 0; #X connect 32 0 33 0; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 40 0 25 0; #X connect 41 0 9 0; #X connect 44 0 41 0; #X connect 46 0 40 0; #X restore 354 175 pd rossFreqD1_n=2; #X obj 499 224 snapshot~; #X floatatom 499 244 0 0 0 0 - - -; #X obj 498 203 r myMet; #X obj 241 214 snapshot~; #X floatatom 241 234 0 0 0 0 - - -; #X obj 241 193 r myMet; #X obj 111 68 snapshot~; #X floatatom 111 88 0 0 0 0 - - -; #X obj 111 47 r myMet; #X obj 44 46 r~ MY_MACH; #X obj 228 -59 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 225 -34 i; #X obj 225 9 line~; #X floatatom 267 -12 0 0 0 0 - - -; #X obj 334 -59 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 331 -34 i; #X obj 331 9 line~; #X floatatom 373 -12 0 0 0 0 - - -; #X obj 445 -61 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 1000 1; #X obj 442 -36 i; #X obj 442 7 line~; #X floatatom 484 -14 0 0 0 0 - - -; #X text 314 -59 l; #X text 423 -59 m; #X text 538 -60 n; #X text 236 -80 Length_Mode; #X text 340 -76 Width_Mode; #X text 450 -79 Depth_Mode; #X msg 225 -12 \$1 20; #X msg 331 -12 \$1 20; #X msg 442 -14 \$1 20; #X obj 894 248 sig~ 1; #X obj 909 334 exp~; #X obj 879 380 /~; #X obj 894 355 +~; #X obj 909 267 r~ MY_MACH; #X obj 909 311 *~ 80; #X obj 909 289 -~ 0.22; #X obj 908 399 snapshot~; #X floatatom 908 419 0 0 0 0 - - -; #X obj 908 378 r myMet; #X obj 416 362 snapshot~; #X floatatom 416 382 0 0 0 0 - - -; #X obj 416 341 r myMet; #X obj 845 586 snapshot~; #X floatatom 845 606 0 0 0 0 - - -; #X obj 845 565 r myMet; #X obj 697 462 snapshot~; #X floatatom 697 482 0 0 0 0 - - -; #X obj 697 441 r myMet; #X obj 859 484 snapshot~; #X floatatom 859 504 0 0 0 0 - - -; #X obj 883 459 r myMet; #X msg 240 -150 39; #X msg 811 -184 0.04 0.0508 0.00511; #X obj 811 -94 unpack f f f; #X obj 880 -73 s depth; #X obj 845 -53 s width; #X obj 811 -33 s length; #X obj 661 -199 r depth; #X obj 547 -199 r width; #X obj 433 -199 r length; #X msg 823 -164 0.12 0.0508 0.00511; #X msg 834 -142 0.025 0.0508 0.003193; #X msg 846 -122 0.075 0.0508 0.003193; #N canvas 54 312 1280 610 depthMode 1; #X obj 247 107 r $-thisLen; #X obj 232 40 r $-thisDep; #X msg 247 129 \$1 20; #X obj 247 151 line~; #X msg 232 61 \$1 20; #X obj 232 83 line~; #X obj 211 406 outlet~; #X obj 232 173 /~; #X obj 4 187 line~; #X msg 20 141 0.1; #X msg 54 180 3.5 5000; #X obj 211 223 pow~; #X obj 211 246 *~ 2.08; #X obj 395 319 r myMet; #X obj 395 341 snapshot~; #X floatatom 395 365 0 0 0 0 - - -; #X obj 211 197 sig~ 0.47; #X obj 211 269 *~ 343; #X obj 226 290 r $-thisLen; #X msg 226 312 \$1 20; #X obj 226 334 line~; #X obj 211 380 /~; #X obj 226 356 *~ 6.28318; #X obj 118 158 r myMet; #X obj 118 180 snapshot~; #X floatatom 118 204 0 0 0 0 - - -; #X obj 344 343 outlet~; #X obj 359 299 r~ MY_MACH; #X obj 344 321 /~; #X obj 344 280 /~ 6.28318; #X text 445 363 Strouhal Number of mode; #X text 260 404 Frequency of mode; #X text 402 51 Exponential equation of a curve taken from Tam & Block 1978 \, Figure 20; #X obj 786 193 r $-thisLen; #X obj 771 126 r $-thisDep; #X msg 786 215 \$1 20; #X obj 786 237 line~; #X msg 771 147 \$1 20; #X obj 771 169 line~; #X obj 771 259 /~; #X obj 771 287 *~; #X obj 705 289 sig~ 0.25; #X obj 756 315 /~; #X obj 756 339 sqrt~; #X obj 756 364 *~ 3.24159; #X obj 742 412 *~; #X obj 804 410 r myMet; #X obj 804 432 snapshot~; #X floatatom 804 456 0 0 0 0 - - -; #X obj 93 409 r myMet; #X obj 93 431 snapshot~; #X floatatom 93 455 0 0 0 0 - - -; #X msg 915 241 \$1 20; #X obj 915 263 line~; #X obj 918 217 hsl 100 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 3000 1; #X floatatom 953 241 0 0 0 0 - - -; #X obj 756 389 /~ 343; #X msg 594 290 \$1 20; #X obj 594 312 line~; #X obj 597 266 hsl 100 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 800 1; #X floatatom 632 290 0 0 0 0 - - -; #X obj 869 322 r myMet; #X obj 869 344 snapshot~; #X floatatom 869 368 0 0 0 0 - - -; #X connect 0 0 2 0; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 7 1; #X connect 4 0 5 0; #X connect 5 0 7 0; #X connect 7 0 24 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 12 0; #X connect 12 0 17 0; #X connect 12 0 29 0; #X connect 12 0 50 0; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 16 0 11 0; #X connect 17 0 21 0; #X connect 18 0 19 0; #X connect 19 0 20 0; #X connect 20 0 22 0; #X connect 21 0 6 0; #X connect 22 0 21 1; #X connect 23 0 24 0; #X connect 24 0 25 0; #X connect 27 0 28 1; #X connect 28 0 14 0; #X connect 28 0 26 0; #X connect 29 0 28 0; #X connect 33 0 35 0; #X connect 34 0 37 0; #X connect 35 0 36 0; #X connect 36 0 39 1; #X connect 37 0 38 0; #X connect 38 0 39 0; #X connect 40 0 42 1; #X connect 41 0 42 0; #X connect 42 0 43 0; #X connect 43 0 44 0; #X connect 44 0 56 0; #X connect 44 0 62 0; #X connect 45 0 47 0; #X connect 46 0 47 0; #X connect 47 0 48 0; #X connect 49 0 50 0; #X connect 50 0 51 0; #X connect 52 0 53 0; #X connect 53 0 40 0; #X connect 53 0 40 1; #X connect 53 0 11 1; #X connect 54 0 52 0; #X connect 54 0 55 0; #X connect 56 0 45 1; #X connect 57 0 58 0; #X connect 58 0 45 0; #X connect 59 0 57 0; #X connect 59 0 60 0; #X connect 61 0 62 0; #X connect 62 0 63 0; #X restore 429 293 pd depthMode; #X obj 530 351 snapshot~; #X floatatom 530 371 0 0 0 0 - - -; #X obj 530 330 r myMet; #X obj -35 -3 line~; #X msg -96 40 100 5000; #X msg -137 39 1; #N canvas 7 186 681 350 PlotWrt 0; #X obj 70 303 textfile; #X msg 562 196 clear \, rewind; #X obj 70 159 snapshot~; #X floatatom 77 181 0 0 0 0 - - -; #X obj 140 156 snapshot~; #X floatatom 148 177 0 0 0 0 - - -; #X obj 57 113 inlet~; #X obj 128 107 inlet~; #X obj 70 134 r myMet; #X obj 140 131 r myMet; #X obj 213 155 snapshot~; #X floatatom 222 177 0 0 0 0 - - -; #X obj 213 128 r myMet; #X obj 200 105 inlet~; #X msg 70 202 add2 \$1; #X obj 282 152 snapshot~; #X floatatom 290 175 0 0 0 0 - - -; #X obj 282 125 r myMet; #X obj 269 102 inlet~; #X msg 140 198 add2 \$1; #X msg 213 198 add2 \$1; #X obj 358 155 snapshot~; #X floatatom 367 177 0 0 0 0 - - -; #X obj 358 128 r myMet; #X obj 345 105 inlet~; #X msg 358 199 add \$1; #X msg 282 196 add2 \$1; #X msg 439 197 write StMachD2.txt; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 2 0 14 0; #X connect 4 0 5 0; #X connect 4 0 19 0; #X connect 6 0 2 0; #X connect 7 0 4 0; #X connect 8 0 2 0; #X connect 9 0 4 0; #X connect 10 0 11 0; #X connect 10 0 20 0; #X connect 12 0 10 0; #X connect 13 0 10 0; #X connect 14 0 0 0; #X connect 15 0 16 0; #X connect 15 0 26 0; #X connect 17 0 15 0; #X connect 18 0 15 0; #X connect 19 0 0 0; #X connect 20 0 0 0; #X connect 21 0 22 0; #X connect 21 0 25 0; #X connect 23 0 21 0; #X connect 24 0 21 0; #X connect 25 0 0 0; #X connect 26 0 0 0; #X connect 27 0 0 0; #X restore -172 89 pd PlotWrt; #N canvas 353 99 1064 659 rossFreqD1_n=3 0; #X obj 239 -76 r~ MY_MACH; #X obj 224 -97 sig~ 1; #X obj 239 -51 *~; #X obj 239 -29 *~ 0.2; #X obj 224 -6 +~; #X obj 224 17 sqrt~; #X obj 209 -119 r~ MY_MACH; #X obj 209 38 /~; #X obj 209 60 +~ 1.7544; #X obj 194 82 /~; #X obj 114 75 r myMet; #X obj 114 97 snapshot~; #X floatatom 114 121 0 0 0 0 - - -; #X obj 194 124 *~; #X obj 209 103 r~ \$0-windSpeed; #X obj 194 164 /~ 1; #X obj 215 144 r $-thisLen; #X obj 227 210 r myMet; #X obj 227 231 snapshot~; #X floatatom 227 255 0 0 0 0 - - -; #X text 290 -34 (y-1)/2 -> y = 1.4; #X text 254 -144 alpha = 0.25; #X text 277 58 (1/k) -> k = 0.57; #X text 235 278 m = 1; #X text 838 -107 alpha = 0.25; #X obj 778 -51 /~; #X obj 793 -80 sig~ 1.7544; #X obj 778 -5 *~; #X obj 793 -26 r~ \$0-windSpeed; #X obj 778 35 /~ 1; #X obj 799 15 r $-thisLen; #X obj 798 61 r myMet; #X obj 798 83 snapshot~; #X floatatom 798 107 0 0 0 0 - - -; #X text 875 -79 (1/k) -> k = 0.57; #X obj 707 -32 r myMet; #X obj 707 -10 snapshot~; #X floatatom 707 14 0 0 0 0 - - -; #X text 755 -160 Victoria Suponitsky; #X text 197 -194 A. Rona; #X obj 778 -105 -~ 0.25; #X obj 194 -142 -~ 0.25; #X text 363 -145 Has + alpha in paper but Rossiter has - ???; #X obj 101 200 outlet~; #X text 250 -164 h = 2; #X obj 778 -127 sig~ 2; #X obj 167 253 outlet~; #X text 335 -20 Heller \, Holmes & Covert; #X text 834 -127 m = 2; #X obj 194 -164 sig~ 3; #X connect 0 0 2 0; #X connect 0 0 2 1; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 4 1; #X connect 4 0 5 0; #X connect 5 0 7 1; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 8 0 9 1; #X connect 9 0 11 0; #X connect 9 0 13 0; #X connect 9 0 43 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 13 0 15 0; #X connect 14 0 13 1; #X connect 15 0 18 0; #X connect 15 0 46 0; #X connect 16 0 15 1; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 25 0 27 0; #X connect 25 0 36 0; #X connect 26 0 25 1; #X connect 27 0 29 0; #X connect 28 0 27 1; #X connect 29 0 32 0; #X connect 30 0 29 1; #X connect 31 0 32 0; #X connect 32 0 33 0; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 40 0 25 0; #X connect 41 0 9 0; #X connect 45 0 40 0; #X connect 49 0 41 0; #X restore 578 185 pd rossFreqD1_n=3; #X obj 650 250 snapshot~; #X floatatom 650 270 0 0 0 0 - - -; #X obj 650 229 r myMet; #X obj 642 438 -~; #X obj 212 447 snapshot~; #X floatatom 212 467 0 0 0 0 - - -; #X obj 212 426 r myMet; #X obj 283 439 -~; #X obj 455 461 snapshot~; #X floatatom 455 481 0 0 0 0 - - -; #X obj 455 440 r myMet; #X obj 429 440 -~; #X obj 823 416 < 0.01; #X obj 790 438 spigot; #X obj 789 394 r myMet; #X obj 793 470 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 833 437 0 0 0 0 - - -; #N canvas 459 337 964 458 depthMode 0; #X msg 247 129 \$1 20; #X obj 247 151 line~; #X msg 232 61 \$1 20; #X obj 232 83 line~; #X obj 211 406 outlet~; #X obj 232 173 /~; #X obj 4 187 line~; #X msg 20 141 0.1; #X msg 54 180 3.5 5000; #X obj 211 223 pow~; #X obj 211 246 *~ 2.08; #X obj 395 319 r myMet; #X obj 395 341 snapshot~; #X floatatom 395 365 0 0 0 0 - - -; #X obj 211 197 sig~ 0.47; #X obj 211 269 *~ 343; #X msg 226 312 \$1 20; #X obj 226 334 line~; #X obj 211 380 /~; #X obj 226 356 *~ 6.28318; #X obj 118 158 r myMet; #X obj 118 180 snapshot~; #X floatatom 118 204 0 0 0 0 - - -; #X obj 344 343 outlet~; #X obj 359 299 r~ MY_MACH; #X obj 344 321 /~; #X obj 344 280 /~ 6.28318; #X text 445 363 Strouhal Number of mode; #X text 260 404 Frequency of mode; #X text 402 51 Exponential equation of a curve taken from Tam & Block 1978 \, Figure 20; #X obj 247 107 r length2; #X obj 232 40 r depth2; #X obj 226 290 r length2; #X connect 0 0 1 0; #X connect 1 0 5 1; #X connect 2 0 3 0; #X connect 3 0 5 0; #X connect 5 0 9 1; #X connect 5 0 21 0; #X connect 7 0 6 0; #X connect 8 0 6 0; #X connect 9 0 10 0; #X connect 10 0 15 0; #X connect 10 0 26 0; #X connect 11 0 12 0; #X connect 12 0 13 0; #X connect 14 0 9 0; #X connect 15 0 18 0; #X connect 16 0 17 0; #X connect 17 0 19 0; #X connect 18 0 4 0; #X connect 19 0 18 1; #X connect 20 0 21 0; #X connect 21 0 22 0; #X connect 24 0 25 1; #X connect 25 0 12 0; #X connect 25 0 23 0; #X connect 26 0 25 0; #X connect 30 0 0 0; #X connect 31 0 2 0; #X connect 32 0 16 0; #X restore 528 288 pd depthMode; #X obj 816 19 unpack f f f; #X obj 816 80 s length2; #X obj 850 60 s width2; #X obj 885 40 s depth2; #X msg 900 -104 0.025 0.0508 0.03175; #X msg 882 -8 0.075 0.0508 0.03175; #X obj 393 97 snapshot~; #X floatatom 393 117 0 0 0 0 - - -; #X obj 393 76 r myMet; #X connect 0 0 2 0; #X connect 1 0 3 0; #X connect 2 0 1 0; #X connect 8 0 10 0; #X connect 9 0 5 0; #X connect 9 1 6 0; #X connect 10 0 11 0; #X connect 11 0 9 0; #X connect 11 0 13 0; #X connect 12 0 11 0; #X connect 14 0 15 0; #X connect 14 0 41 0; #X connect 16 0 17 0; #X connect 16 0 43 0; #X connect 18 0 19 0; #X connect 18 0 42 0; #X connect 21 0 32 0; #X connect 21 0 33 0; #X connect 22 0 23 0; #X connect 23 0 27 0; #X connect 23 0 20 0; #X connect 24 0 34 0; #X connect 26 0 21 0; #X connect 27 0 28 0; #X connect 30 0 21 0; #X connect 31 0 27 0; #X connect 32 0 22 1; #X connect 33 0 23 1; #X connect 33 0 25 0; #X connect 34 0 36 0; #X connect 34 0 39 0; #X connect 35 0 32 1; #X connect 35 1 32 0; #X connect 36 0 35 0; #X connect 37 0 34 0; #X connect 38 0 21 0; #X connect 39 0 22 0; #X connect 40 0 47 0; #X connect 40 1 156 0; #X connect 45 0 44 0; #X connect 47 0 48 0; #X connect 49 0 47 0; #X connect 50 0 51 0; #X connect 52 0 50 0; #X connect 53 0 50 0; #X connect 53 0 139 0; #X connect 53 0 130 0; #X connect 53 1 61 0; #X connect 54 0 55 0; #X connect 56 0 54 0; #X connect 57 0 54 0; #X connect 57 0 143 0; #X connect 57 0 130 1; #X connect 57 1 58 0; #X connect 58 0 59 0; #X connect 60 0 58 0; #X connect 61 0 62 0; #X connect 63 0 61 0; #X connect 64 0 65 0; #X connect 66 0 64 0; #X connect 67 0 64 0; #X connect 67 0 130 4; #X connect 68 0 69 0; #X connect 69 0 86 0; #X connect 69 0 71 0; #X connect 70 0 40 0; #X connect 72 0 73 0; #X connect 73 0 87 0; #X connect 73 0 75 0; #X connect 74 0 40 1; #X connect 76 0 77 0; #X connect 77 0 88 0; #X connect 77 0 79 0; #X connect 78 0 40 2; #X connect 86 0 70 0; #X connect 87 0 74 0; #X connect 88 0 78 0; #X connect 89 0 91 0; #X connect 89 0 92 0; #X connect 90 0 92 1; #X connect 91 0 96 0; #X connect 91 0 108 0; #X connect 92 0 91 1; #X connect 93 0 95 0; #X connect 94 0 90 0; #X connect 95 0 94 0; #X connect 96 0 97 0; #X connect 96 0 144 0; #X connect 98 0 96 0; #X connect 99 0 100 0; #X connect 101 0 99 0; #X connect 102 0 103 0; #X connect 104 0 102 0; #X connect 105 0 106 0; #X connect 107 0 105 0; #X connect 108 0 109 0; #X connect 111 0 21 0; #X connect 112 0 113 0; #X connect 113 0 116 0; #X connect 113 1 115 0; #X connect 113 2 114 0; #X connect 117 0 18 0; #X connect 118 0 16 0; #X connect 119 0 14 0; #X connect 120 0 113 0; #X connect 121 0 113 0; #X connect 122 0 113 0; #X connect 123 0 99 0; #X connect 123 1 124 0; #X connect 123 1 135 1; #X connect 123 1 139 1; #X connect 123 1 143 1; #X connect 123 1 130 3; #X connect 124 0 125 0; #X connect 126 0 124 0; #X connect 128 0 127 0; #X connect 129 0 127 0; #X connect 131 0 135 0; #X connect 131 0 130 2; #X connect 131 1 132 0; #X connect 132 0 133 0; #X connect 134 0 132 0; #X connect 135 0 105 0; #X connect 136 0 137 0; #X connect 138 0 136 0; #X connect 139 0 136 0; #X connect 140 0 141 0; #X connect 142 0 140 0; #X connect 143 0 140 0; #X connect 144 0 145 1; #X connect 144 0 148 0; #X connect 145 0 147 0; #X connect 145 0 108 0; #X connect 146 0 145 0; #X connect 150 0 151 0; #X connect 150 1 152 0; #X connect 150 2 153 0; #X connect 154 0 113 0; #X connect 155 0 113 0; #X connect 156 0 157 0; #X connect 158 0 156 0;