r@291: #N canvas 415 171 940 594 10;
r@291: #N canvas 322 154 491 423 Dipoles 0;
r@291: #X obj 210 217 *~;
r@291: #X obj 210 308 throw~ l;
r@291: #X obj 237 285 throw~ r;
r@291: #X obj 210 264 fcpan;
r@291: #X text 101 35 Generates the sound associated with the lift dipole.
r@291: ;
r@291: #X obj 210 108 vcf~ 10;
r@291: #X obj 210 131 vcf~ 10;
r@291: #X obj 284 95 r \$0-Qval;
r@291: #X floatatom 255 263 5 0 0 0 - - -;
r@291: #X obj 362 158 r myMet;
r@291: #X obj 362 178 snapshot~;
r@291: #X floatatom 362 199 0 0 0 0 - - -;
r@291: #X obj 210 67 inlet~;
r@291: #X obj 225 196 inlet~;
r@291: #X obj 131 67 inlet~;
r@291: #X obj 237 242 r centrePan;
r@291: #X connect 0 0 3 0;
r@291: #X connect 3 0 1 0;
r@291: #X connect 3 1 2 0;
r@291: #X connect 5 0 6 0;
r@291: #X connect 6 0 0 0;
r@291: #X connect 7 0 5 2;
r@291: #X connect 7 0 6 2;
r@291: #X connect 9 0 10 0;
r@291: #X connect 10 0 11 0;
r@291: #X connect 12 0 5 0;
r@291: #X connect 13 0 0 1;
r@291: #X connect 14 0 5 1;
r@291: #X connect 14 0 6 1;
r@291: #X connect 15 0 3 1;
r@291: #X connect 15 0 8 0;
r@291: #X restore 230 343 pd Dipoles;
r@291: #X obj 258 315 noise~;
r@291: #X obj 437 62 s centrePan;
r@291: #X msg 437 41 0.5;
r@291: #X obj 437 19 loadbang;
r@291: #X obj 88 46 hsl 80 25 0.0001 1 1 0 empty empty Distance 2 12 0 10
r@291: -4034 -1 -1 3164 1;
r@291: #X obj 180 45 hsl 80 25 0.0001 1 1 0 empty empty Height 2 12 0 10 -257985
r@291: -1 -1 1537 1;
r@291: #X obj 270 44 hsl 80 25 0.0001 10000 1 0 empty empty Breadth 2 12 0
r@291: 10 -260097 -1 -1 5200 1;
r@291: #X floatatom 105 78 0 0 0 0 - - -;
r@291: #X floatatom 190 75 0 0 0 0 - - -;
r@291: #X floatatom 280 74 0 0 0 0 - - -;
r@291: #X msg 85 98 \$1 30;
r@291: #X obj 85 120 line~;
r@291: #X msg 177 97 \$1 30;
r@291: #X obj 177 119 line~;
r@291: #X msg 267 95 \$1 30;
r@291: #X obj 267 117 line~;
r@291: #X obj 85 143 s~ L;
r@291: #X obj 177 141 s~ d;
r@291: #X obj 267 139 s~ b;
r@291: #X obj 547 32 vsl 25 80 1 4 0 0 empty empty Mode 0 -9 0 10 -258113
r@291: -1 -1 4800 1;
r@291: #X obj 547 121 + 0.5;
r@291: #X obj 547 141 i;
r@291: #X floatatom 581 160 0 0 0 0 - - -;
r@291: #N canvas 665 374 472 358 alphaCalc 1;
r@291: #X obj 174 82 r~ b;
r@291: #X obj 189 104 r~ L;
r@291: #X obj 174 126 /~;
r@291: #X obj 174 168 log~;
r@291: #X obj 195 146 sig~ 10;
r@291: #X obj 174 190 *~ -0.1812;
r@291: #X obj 174 212 +~ 2.1952;
r@291: #X obj 174 236 s~ alpha;
r@291: #X text 78 47 Plotfit from MatLab used to get equation of line;
r@291: #X text 77 29 From Howe 1997 Table 1;
r@291: #X obj 314 154 r myMet;
r@291: #X obj 314 174 snapshot~;
r@291: #X floatatom 314 195 0 0 0 0 - - -;
r@291: #X connect 0 0 2 0;
r@291: #X connect 0 0 11 0;
r@291: #X connect 1 0 2 1;
r@291: #X connect 2 0 3 0;
r@291: #X connect 3 0 5 0;
r@291: #X connect 4 0 3 1;
r@291: #X connect 5 0 6 0;
r@291: #X connect 6 0 7 0;
r@291: #X connect 10 0 11 0;
r@291: #X connect 11 0 12 0;
r@291: #X restore 175 214 pd alphaCalc;
r@291: #N canvas 230 325 623 469 thetaCalc 0;
r@291: #X obj 130 65 r~ alpha;
r@291: #X obj 130 90 /~ 0.92;
r@291: #X obj 130 174 pow~;
r@291: #X obj 151 110 sig~ 2;
r@291: #X obj 166 129 sig~ 3;
r@291: #X obj 151 152 /~;
r@291: #X obj 145 237 /~;
r@291: #X obj 145 195 sig~ 9;
r@291: #X obj 160 214 sig~ 8;
r@291: #X obj 130 260 -~;
r@291: #X obj 130 286 s~ theta;
r@291: #X text 118 31 From Howe 1997 \, page 16;
r@291: #X obj 393 244 r myMet;
r@291: #X obj 393 264 snapshot~;
r@291: #X floatatom 393 285 0 0 0 0 - - -;
r@291: #X connect 0 0 1 0;
r@291: #X connect 1 0 2 0;
r@291: #X connect 2 0 9 0;
r@291: #X connect 3 0 5 0;
r@291: #X connect 4 0 5 1;
r@291: #X connect 5 0 2 1;
r@291: #X connect 6 0 9 1;
r@291: #X connect 7 0 6 0;
r@291: #X connect 8 0 6 1;
r@291: #X connect 9 0 10 0;
r@291: #X connect 9 0 13 0;
r@291: #X connect 12 0 13 0;
r@291: #X connect 13 0 14 0;
r@291: #X restore 302 237 pd thetaCalc;
r@291: #X obj 547 165 s n;
r@291: #X obj 481 304 r~ freq;
r@291: #X obj 419 300 r~ St;
r@291: #X obj 422 334 r myMet;
r@291: #X obj 422 354 snapshot~;
r@291: #X floatatom 422 375 0 0 0 0 - - -;
r@291: #X obj 495 333 r myMet;
r@291: #X obj 495 353 snapshot~;
r@291: #X floatatom 495 374 0 0 0 0 - - -;
r@291: #X msg 76 19 0.004;
r@291: #X msg 177 17 0.0006;
r@291: #X obj 56 281 r myMet;
r@291: #X obj 56 301 snapshot~;
r@291: #X floatatom 56 322 0 0 0 0 - - -;
r@291: #X obj 121 279 r myMet;
r@291: #X obj 121 299 snapshot~;
r@291: #X floatatom 121 320 0 0 0 0 - - -;
r@291: #X obj 43 249 r~ alpha;
r@291: #X obj 108 256 r~ theta;
r@291: #X obj 691 342 hsl 128 15 0.001 1e+09 1 0 empty empty empty -2 -8 0
r@291: 10 -262144 -1 -1 0 1;
r@291: #X floatatom 697 360 0 0 0 0 - - -;
r@291: #X obj 669 430 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@291: #X obj 732 430 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@291: #N canvas 555 179 313 396 opLevels 0;
r@291: #X obj 83 210 dac~;
r@291: #X obj 30 70 catch~ l;
r@291: #X obj 128 70 catch~ r;
r@291: #X obj 129 104 *~ 0.45;
r@291: #X obj 30 104 *~ 0.45;
r@291: #X obj 30 210 prvu~;
r@291: #X obj 129 211 prvu~;
r@291: #X obj 93 33 inlet;
r@291: #X obj 30 239 outlet;
r@291: #X obj 129 239 outlet;
r@291: #X connect 1 0 4 0;
r@291: #X connect 2 0 3 0;
r@291: #X connect 3 0 6 0;
r@291: #X connect 3 0 0 1;
r@291: #X connect 4 0 5 0;
r@291: #X connect 4 0 0 0;
r@291: #X connect 5 0 8 0;
r@291: #X connect 6 0 9 0;
r@291: #X connect 7 0 4 1;
r@291: #X connect 7 0 3 1;
r@291: #X restore 668 387 pd opLevels;
r@291: #X obj 641 120 s~ windspeed;
r@291: #X msg 641 75 \$1 30;
r@291: #X obj 641 97 line~;
r@291: #X obj 644 40 hsl 80 25 1 10 0 0 empty empty Windspeed 2 12 0 10 -4032
r@291: -1 -1 3511 1;
r@291: #X floatatom 695 72 0 0 0 0 - - -;
r@291: #X msg 639 15 5;
r@291: #X obj 834 80 s myMet;
r@291: #X obj 832 11 loadbang;
r@291: #X obj 833 55 metro 20;
r@291: #X obj 832 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@291: 1;
r@291: #N canvas 284 378 431 543 freqCalcHowe 0;
r@291: #X obj 139 17 r~ theta;
r@291: #X obj 139 62 +~ 1;
r@291: #X obj 160 39 r n;
r@291: #X obj 139 85 +~ 0.125;
r@291: #X obj 139 172 pow~;
r@291: #X obj 160 150 /~;
r@291: #X obj 160 108 sig~ 3;
r@291: #X obj 175 127 sig~ 2;
r@291: #X obj 154 194 r~ d;
r@291: #X obj 169 214 r~ L;
r@291: #X obj 154 236 /~;
r@291: #X obj 154 259 sqrt~;
r@291: #X obj 139 281 *~;
r@291: #X obj 139 303 *~ 0.92;
r@291: #X obj 85 330 s~ St;
r@291: #X obj 154 322 r~ windspeed;
r@291: #X obj 154 362 r~ L;
r@291: #X obj 139 342 *~;
r@291: #X obj 139 383 /~;
r@291: #X obj 139 408 s~ freq;
r@291: #X obj 270 144 r myMet;
r@291: #X obj 270 164 snapshot~;
r@291: #X floatatom 270 185 0 0 0 0 - - -;
r@291: #X connect 0 0 1 0;
r@291: #X connect 1 0 3 0;
r@291: #X connect 2 0 1 1;
r@291: #X connect 3 0 4 0;
r@291: #X connect 4 0 12 0;
r@291: #X connect 5 0 4 1;
r@291: #X connect 6 0 5 0;
r@291: #X connect 7 0 5 1;
r@291: #X connect 8 0 10 0;
r@291: #X connect 9 0 10 1;
r@291: #X connect 10 0 11 0;
r@291: #X connect 11 0 12 1;
r@291: #X connect 12 0 13 0;
r@291: #X connect 13 0 14 0;
r@291: #X connect 13 0 17 0;
r@291: #X connect 15 0 17 1;
r@291: #X connect 16 0 18 1;
r@291: #X connect 17 0 18 0;
r@291: #X connect 18 0 19 0;
r@291: #X connect 20 0 21 0;
r@291: #X connect 21 0 22 0;
r@291: #X restore 448 229 pd freqCalcHowe;
r@291: #N canvas 373 161 720 763 freqCalcCrighton 0;
r@291: #X obj 152 23 r~ d;
r@291: #X obj 152 45 /~ 2;
r@291: #X obj 152 92 /~;
r@291: #X obj 167 70 r~ L;
r@291: #X obj 152 175 pow~;
r@291: #X obj 173 153 /~;
r@291: #X obj 173 111 sig~ 3;
r@291: #X obj 188 130 sig~ 2;
r@291: #X obj 167 198 sig~ 12.566;
r@291: #X obj 182 219 sig~ 0.375;
r@291: #X obj 182 263 *~ 1;
r@291: #X obj 203 240 r n;
r@291: #X obj 167 370 pow~;
r@291: #X obj 188 348 /~;
r@291: #X obj 188 306 sig~ 3;
r@291: #X obj 203 325 sig~ 2;
r@291: #X obj 167 285 *~;
r@291: #X obj 152 392 *~;
r@291: #X obj 178 476 /~;
r@291: #X obj 152 434 *~;
r@291: #X obj 167 412 r~ windspeed;
r@291: #X obj 193 497 sig~ 3.14159;
r@291: #X obj 178 520 /~;
r@291: #X obj 178 545 s~ freq_Crighton;
r@291: #X connect 0 0 1 0;
r@291: #X connect 1 0 18 1;
r@291: #X connect 1 0 2 0;
r@291: #X connect 2 0 4 0;
r@291: #X connect 3 0 2 1;
r@291: #X connect 4 0 17 0;
r@291: #X connect 5 0 4 1;
r@291: #X connect 6 0 5 0;
r@291: #X connect 7 0 5 1;
r@291: #X connect 8 0 16 0;
r@291: #X connect 9 0 10 0;
r@291: #X connect 10 0 16 1;
r@291: #X connect 11 0 10 1;
r@291: #X connect 12 0 17 1;
r@291: #X connect 13 0 12 1;
r@291: #X connect 14 0 13 0;
r@291: #X connect 15 0 13 1;
r@291: #X connect 16 0 12 0;
r@291: #X connect 17 0 19 0;
r@291: #X connect 18 0 22 0;
r@291: #X connect 19 0 18 0;
r@291: #X connect 20 0 19 1;
r@291: #X connect 21 0 22 1;
r@291: #X connect 22 0 23 0;
r@291: #X restore 556 250 pd freqCalcCrighton;
r@291: #X obj 178 417 r~ freq_Crighton;
r@291: #X obj 225 439 r myMet;
r@291: #X obj 225 459 snapshot~;
r@291: #X floatatom 225 480 0 0 0 0 - - -;
r@291: #N canvas 31 274 1056 639 freqCalcHolger 0;
r@291: #X obj 411 79 r~ d;
r@291: #X obj 426 101 r~ L;
r@291: #X obj 411 122 /~;
r@291: #X obj 411 144 sqrt~;
r@291: #X obj 396 54 sig~ 0.925;
r@291: #X obj 396 167 *~;
r@291: #X obj 487 131 r n;
r@291: #X msg 502 219 0.4;
r@291: #X msg 525 197 0.35;
r@291: #X msg 548 176 0.5;
r@291: #X obj 502 153 select 1 2 3;
r@291: #X obj 446 229 line~;
r@291: #X msg 446 203 \$1 30;
r@291: #X obj 481 369 pow~;
r@291: #X obj 502 347 /~;
r@291: #X obj 502 305 sig~ 3;
r@291: #X obj 517 324 sig~ 2;
r@291: #X obj 396 415 *~;
r@291: #X obj 402 551 s~ freqHolg;
r@291: #X obj 481 283 +~ 1;
r@291: #X obj 406 447 r~ windspeed;
r@291: #X obj 412 494 r~ L;
r@291: #X obj 391 470 *~;
r@291: #X obj 396 515 /~;
r@291: #X connect 0 0 2 0;
r@291: #X connect 1 0 2 1;
r@291: #X connect 2 0 3 0;
r@291: #X connect 3 0 5 1;
r@291: #X connect 4 0 5 0;
r@291: #X connect 5 0 17 0;
r@291: #X connect 6 0 10 0;
r@291: #X connect 6 0 12 0;
r@291: #X connect 7 0 19 1;
r@291: #X connect 8 0 19 1;
r@291: #X connect 9 0 19 1;
r@291: #X connect 10 0 7 0;
r@291: #X connect 10 1 8 0;
r@291: #X connect 10 2 9 0;
r@291: #X connect 11 0 19 0;
r@291: #X connect 12 0 11 0;
r@291: #X connect 13 0 17 1;
r@291: #X connect 14 0 13 1;
r@291: #X connect 15 0 14 0;
r@291: #X connect 16 0 14 1;
r@291: #X connect 17 0 22 0;
r@291: #X connect 19 0 13 0;
r@291: #X connect 20 0 22 1;
r@291: #X connect 21 0 23 1;
r@291: #X connect 22 0 23 0;
r@291: #X connect 23 0 18 0;
r@291: #X restore 681 217 pd freqCalcHolger;
r@291: #X obj 347 408 r~ freqHolg;
r@291: #X obj 361 431 r myMet;
r@291: #X obj 361 451 snapshot~;
r@291: #X floatatom 361 472 0 0 0 0 - - -;
r@291: #X connect 1 0 0 1;
r@291: #X connect 3 0 2 0;
r@291: #X connect 4 0 3 0;
r@291: #X connect 5 0 8 0;
r@291: #X connect 5 0 11 0;
r@291: #X connect 6 0 9 0;
r@291: #X connect 6 0 13 0;
r@291: #X connect 7 0 10 0;
r@291: #X connect 7 0 15 0;
r@291: #X connect 11 0 12 0;
r@291: #X connect 12 0 17 0;
r@291: #X connect 13 0 14 0;
r@291: #X connect 14 0 18 0;
r@291: #X connect 15 0 16 0;
r@291: #X connect 16 0 19 0;
r@291: #X connect 20 0 21 0;
r@291: #X connect 21 0 22 0;
r@291: #X connect 22 0 23 0;
r@291: #X connect 22 0 26 0;
r@291: #X connect 27 0 33 0;
r@291: #X connect 28 0 30 0;
r@291: #X connect 29 0 30 0;
r@291: #X connect 30 0 31 0;
r@291: #X connect 32 0 33 0;
r@291: #X connect 33 0 34 0;
r@291: #X connect 35 0 5 0;
r@291: #X connect 36 0 6 0;
r@291: #X connect 37 0 38 0;
r@291: #X connect 38 0 39 0;
r@291: #X connect 40 0 41 0;
r@291: #X connect 41 0 42 0;
r@291: #X connect 43 0 38 0;
r@291: #X connect 44 0 41 0;
r@291: #X connect 45 0 46 0;
r@291: #X connect 45 0 49 0;
r@291: #X connect 49 0 47 0;
r@291: #X connect 49 1 48 0;
r@291: #X connect 51 0 52 0;
r@291: #X connect 52 0 50 0;
r@291: #X connect 53 0 51 0;
r@291: #X connect 53 0 54 0;
r@291: #X connect 55 0 53 0;
r@291: #X connect 57 0 59 0;
r@291: #X connect 58 0 56 0;
r@291: #X connect 59 0 58 0;
r@291: #X connect 62 0 64 0;
r@291: #X connect 63 0 64 0;
r@291: #X connect 64 0 65 0;
r@291: #X connect 67 0 69 0;
r@291: #X connect 68 0 69 0;
r@291: #X connect 69 0 70 0;