Mercurial > hg > weather-synthesis-prototyping

annotate SwordLogInterp/freqCalcCyl3No_D4Mach.pd @ 281:dfd88add4725

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Propeller: Reducing control on Audio channels Reduced the stereo spread for test purposes Pitch control added GUI Updated shh patch added to reduce audio spike when shifting start positions
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Tue, 07 Mar 2017 07:53:21 +0000
parents 8fae36f1df0b
children
rev   line source
r@194 1 #N canvas 142 23 1326 739 10;
r@194 2 #X obj 519 469 /~ 1;
r@194 3 #X obj 519 445 *~;
r@194 4 #X obj 233 73 inlet;
r@194 5 #X text 399 462 Strouhal Number;
r@194 6 #X obj 240 96 s \$0-diameter;
r@194 7 #X obj 587 450 r \$0-diameter;
r@194 8 #X obj 130 95 s~ \$0-windSpeed;
r@194 9 #X obj 586 427 r~ \$0-windSpeed;
r@194 10 #X obj 519 493 s~ \$0-myFreq;
r@194 11 #X obj 772 349 *~;
r@194 12 #X obj 646 67 inlet;
r@194 13 #X text 483 512 Calculates the frequency;
r@194 14 #X text 484 524 based on the physics of;
r@194 15 #X obj 123 439 r~ \$0-windSpeed;
r@194 16 #X obj 171 501 r \$0-diameter;
r@194 17 #X text 107 382 Calculates the gain of the dipole source;
r@194 18 #X text 469 47 Azimuth;
r@194 19 #X text 651 49 Pan;
r@194 20 #X text 543 51 Elevation;
r@194 21 #X text 394 52 Distance;
r@194 22 #X text 228 52 Diameter;
r@194 23 #X text 143 51 Wind Speed;
r@194 24 #X obj 519 416 newStrou;
r@194 25 #X obj 772 418 throw~ l;
r@194 26 #X obj 799 396 throw~ r;
r@194 27 #X obj 772 374 fcpan;
r@194 28 #X obj 214 346 s~ \$0-dragDiGain;
r@194 29 #X obj 127 367 s~ \$0-liftDiGain;
r@194 30 #X obj 108 420 r~ \$0-str;
r@194 31 #X obj 108 595 s~ \$0-liftNoiseGain;
r@194 32 #X obj 419 447 s~ \$0-str;
r@194 33 #X obj 646 136 s \$0-thisPan;
r@194 34 #X obj 772 206 r~ \$0-liftNoiseGain;
r@194 35 #X obj 799 349 r \$0-thisPan;
r@194 36 #X obj 741 76 inlet;
r@194 37 #X obj 813 75 inlet;
r@194 38 #X obj 887 74 inlet;
r@194 39 #X obj 746 99 s \$0-rotaX;
r@194 40 #X obj 820 97 s \$0-rotaY;
r@194 41 #X obj 895 97 s \$0-rotaZ;
r@194 42 #X text 737 57 X Rotation;
r@194 43 #X text 807 56 Y Rotation;
r@194 44 #X text 882 55 Z Rotation;
r@194 45 #X text 753 180 Noise spectrum calculation;
r@194 46 #X obj 787 297 hip~;
r@194 47 #X obj 787 252 rpole~ 0.99;
r@194 48 #X obj 136 196 r~ \$0-windSpeed;
r@194 49 #X obj 146 217 r \$0-diameter;
r@194 50 #X obj 127 174 r~ \$0-str;
r@194 51 #N canvas 158 107 1238 721 GoldfreqGain 0;
r@194 52 #N canvas 759 125 286 294 pow6 0;
r@194 53 #X obj 47 67 *~;
r@194 54 #X obj 76 67 *~;
r@194 55 #X obj 76 35 inlet~;
r@194 56 #X obj 47 163 outlet~;
r@194 57 #X obj 136 184 snapshot~;
r@194 58 #X obj 136 159 metro 100;
r@194 59 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@194 60 1;
r@194 61 #X floatatom 136 211 10 0 0 0 - - -;
r@194 62 #X obj 216 210 outlet;
r@194 63 #X obj 136 111 loadbang;
r@194 64 #X obj 106 67 *~;
r@194 65 #X obj 47 93 *~;
r@194 66 #X obj 47 118 *~;
r@194 67 #X obj 372 202 *;
r@194 68 #X obj 372 228 *;
r@194 69 #X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@194 70 -1 -1 0 1;
r@194 71 #X floatatom 374 288 10 0 0 0 - - -;
r@194 72 #X obj 303 20 t f b;
r@194 73 #X floatatom 455 55 5 0 0 0 - - -;
r@194 74 #X obj 372 260 *;
r@194 75 #X obj 400 202 *;
r@194 76 #X msg 303 -4 6;
r@194 77 #X obj 434 201 *;
r@194 78 #X connect 0 0 11 0;
r@194 79 #X connect 1 0 11 1;
r@194 80 #X connect 2 0 0 0;
r@194 81 #X connect 2 0 0 1;
r@194 82 #X connect 2 0 1 1;
r@194 83 #X connect 2 0 10 0;
r@194 84 #X connect 2 0 10 1;
r@194 85 #X connect 2 0 1 0;
r@194 86 #X connect 4 0 7 0;
r@194 87 #X connect 4 0 8 0;
r@194 88 #X connect 5 0 4 0;
r@194 89 #X connect 6 0 5 0;
r@194 90 #X connect 9 0 6 0;
r@194 91 #X connect 10 0 12 1;
r@194 92 #X connect 11 0 12 0;
r@194 93 #X connect 12 0 4 0;
r@194 94 #X connect 12 0 3 0;
r@194 95 #X connect 13 0 14 0;
r@194 96 #X connect 14 0 19 0;
r@194 97 #X connect 15 0 13 0;
r@194 98 #X connect 15 0 13 1;
r@194 99 #X connect 15 0 18 0;
r@194 100 #X connect 15 0 20 0;
r@194 101 #X connect 15 0 20 1;
r@194 102 #X connect 17 0 13 0;
r@194 103 #X connect 17 0 13 1;
r@194 104 #X connect 17 0 20 0;
r@194 105 #X connect 17 0 20 1;
r@194 106 #X connect 17 0 22 0;
r@194 107 #X connect 17 0 22 1;
r@194 108 #X connect 17 1 13 0;
r@194 109 #X connect 17 1 20 0;
r@194 110 #X connect 17 1 22 0;
r@194 111 #X connect 19 0 16 0;
r@194 112 #X connect 20 0 14 1;
r@194 113 #X connect 21 0 17 0;
r@194 114 #X connect 22 0 19 1;
r@194 115 #X restore 218 145 pd pow6;
r@194 116 #X obj 172 135 *~;
r@194 117 #X obj 218 171 *~;
r@194 118 #X text 533 2 Distance;
r@194 119 #X text 724 595 Calculates Drag Dipole gain;
r@194 120 #X text 48 508 Calculates Lift Dipole gain;
r@194 121 #X obj 172 95 inlet~;
r@194 122 #X obj 218 112 inlet~;
r@194 123 #X text 327 165 Diameter;
r@194 124 #X obj 290 164 inlet;
r@194 125 #X obj 219 528 outlet~;
r@194 126 #X obj 758 523 outlet~;
r@194 127 #X text 314 259 Length;
r@194 128 #X obj 219 284 *~ 1;
r@194 129 #X obj 234 391 /~ 360;
r@194 130 #X obj 234 440 *~;
r@194 131 #X obj 219 463 *~;
r@194 132 #X obj 814 19 inlet;
r@194 133 #X obj 913 21 inlet;
r@194 134 #X obj 1009 24 inlet;
r@194 135 #X floatatom 814 66 5 0 0 0 - - -;
r@194 136 #X floatatom 913 67 5 0 0 0 - - -;
r@194 137 #X floatatom 1010 68 5 0 0 0 - - -;
r@194 138 #X text 810 0 X Rotation;
r@194 139 #X text 907 2 Y Rotation;
r@194 140 #X text 1004 5 Z Rotation;
r@194 141 #X obj 819 42 s \$0-this_rotaX;
r@194 142 #X obj 920 43 s \$0-thisrotaY;
r@194 143 #X obj 1017 47 s \$0-thisrotaZ;
r@194 144 #X text 73 95 Strouhal number;
r@194 145 #X text 268 112 Wind speed;
r@194 146 #X text 265 206 Corr Length;
r@194 147 #X obj 219 310 *~ 2.50663;
r@194 148 #X obj 218 233 *~ 1.225;
r@194 149 #X text 92 229 Mass Density of Air;
r@194 150 #X text 147 312 Sqrt(2xpi);
r@194 151 #X obj 283 415 /~ 360;
r@194 152 #X obj 283 461 *~;
r@194 153 #X obj 283 437 cos~;
r@194 154 #X obj 219 502 *~;
r@194 155 #X text 370 104 Speed of Sound to power 3;
r@194 156 #X obj 518 189 cos~;
r@194 157 #X obj 518 212 *~;
r@194 158 #X obj 466 213 sig~ 1;
r@194 159 #X obj 503 243 -~;
r@194 160 #N canvas 1150 227 286 289 pow4 0;
r@194 161 #X obj 47 67 *~;
r@194 162 #X obj 76 67 *~;
r@194 163 #X obj 76 35 inlet~;
r@194 164 #X obj 47 163 outlet~;
r@194 165 #X obj 136 184 snapshot~;
r@194 166 #X obj 136 159 metro 100;
r@194 167 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@194 168 1;
r@194 169 #X floatatom 136 211 10 0 0 0 - - -;
r@194 170 #X obj 216 210 outlet;
r@194 171 #X obj 136 111 loadbang;
r@194 172 #X obj 47 93 *~;
r@194 173 #X connect 0 0 10 0;
r@194 174 #X connect 1 0 10 1;
r@194 175 #X connect 2 0 0 0;
r@194 176 #X connect 2 0 0 1;
r@194 177 #X connect 2 0 1 1;
r@194 178 #X connect 2 0 1 0;
r@194 179 #X connect 4 0 7 0;
r@194 180 #X connect 4 0 8 0;
r@194 181 #X connect 5 0 4 0;
r@194 182 #X connect 6 0 5 0;
r@194 183 #X connect 9 0 6 0;
r@194 184 #X connect 10 0 3 0;
r@194 185 #X connect 10 0 4 0;
r@194 186 #X restore 503 266 pd pow4;
r@194 187 #X obj 404 298 *~;
r@194 188 #X obj 219 346 /~;
r@194 189 #X obj 132 346 s~ \$0-aGainG;
r@194 190 #X obj 872 290 r~ \$0-aGainG;
r@194 191 #X obj 758 500 *~ 0.1;
r@194 192 #X obj 723 340 +~ 90;
r@194 193 #X obj 723 363 /~ 360;
r@194 194 #X obj 723 409 *~;
r@194 195 #X obj 723 385 sin~;
r@194 196 #X obj 773 359 /~ 360;
r@194 197 #X obj 773 405 *~;
r@194 198 #X obj 773 381 cos~;
r@194 199 #X obj 758 436 *~;
r@194 200 #X text 709 1 Azimuth;
r@194 201 #X text 608 3 Elevation;
r@194 202 #X text 892 379 Speed of Sound to power 3;
r@194 203 #X obj 872 423 /~;
r@194 204 #X text 588 167 Remember - Goldstein moves cylinder;
r@194 205 #X obj 518 170 /~ 360;
r@194 206 #X obj 758 475 *~;
r@194 207 #X obj 424 40 s~ \$0-thisColL;
r@194 208 #X obj 269 145 r~ \$0-thisColL;
r@194 209 #X obj 269 185 *~ 1;
r@194 210 #X obj 218 205 *~;
r@194 211 #X obj 424 17 inlet~;
r@194 212 #X obj 234 417 sin~;
r@194 213 #X obj 404 167 *~;
r@194 214 #X obj 404 141 r~ \$0-thisDist;
r@194 215 #X obj 520 40 s~ \$0-thisDist;
r@194 216 #X obj 513 18 inlet~;
r@194 217 #X obj 404 220 *~ 32;
r@194 218 #X obj 404 193 *~ 4.05513e+07;
r@194 219 #X obj 773 336 r~ \$0-this_azim;
r@194 220 #X obj 713 19 inlet~;
r@194 221 #X obj 720 44 s~ \$0-gain_azim;
r@194 222 #X obj 283 392 r~ \$0-gain_azim;
r@194 223 #X obj 611 21 inlet~;
r@194 224 #X obj 887 312 r~ \$0-thisDist;
r@194 225 #X obj 887 336 *~;
r@194 226 #X obj 887 361 *~ 4.05513e+07;
r@194 227 #X obj 887 399 *~ 32;
r@194 228 #X obj 616 44 s~ \$0-gain_elev;
r@194 229 #X obj 518 130 r~ \$0-gain_elev;
r@194 230 #X obj 723 315 r~ \$0-gain_elev;
r@194 231 #X obj 234 369 r~ \$0-gain_elev;
r@194 232 #X obj 550 190 r~ \$0-sourceRe;
r@194 233 #X obj 240 258 r bladeLen;
r@194 234 #X connect 0 0 2 0;
r@194 235 #X connect 1 0 2 1;
r@194 236 #X connect 2 0 69 0;
r@194 237 #X connect 6 0 1 0;
r@194 238 #X connect 6 0 1 1;
r@194 239 #X connect 7 0 0 0;
r@194 240 #X connect 9 0 68 1;
r@194 241 #X connect 13 0 32 0;
r@194 242 #X connect 14 0 71 0;
r@194 243 #X connect 15 0 16 1;
r@194 244 #X connect 16 0 39 0;
r@194 245 #X connect 17 0 20 0;
r@194 246 #X connect 17 0 26 0;
r@194 247 #X connect 18 0 21 0;
r@194 248 #X connect 18 0 27 0;
r@194 249 #X connect 19 0 22 0;
r@194 250 #X connect 19 0 28 0;
r@194 251 #X connect 32 0 47 0;
r@194 252 #X connect 32 0 48 0;
r@194 253 #X connect 33 0 13 0;
r@194 254 #X connect 36 0 38 0;
r@194 255 #X connect 37 0 39 1;
r@194 256 #X connect 38 0 37 0;
r@194 257 #X connect 38 0 37 1;
r@194 258 #X connect 39 0 10 0;
r@194 259 #X connect 41 0 42 0;
r@194 260 #X connect 42 0 44 1;
r@194 261 #X connect 43 0 44 0;
r@194 262 #X connect 44 0 45 0;
r@194 263 #X connect 45 0 46 1;
r@194 264 #X connect 46 0 47 1;
r@194 265 #X connect 47 0 16 0;
r@194 266 #X connect 49 0 62 0;
r@194 267 #X connect 50 0 11 0;
r@194 268 #X connect 51 0 52 0;
r@194 269 #X connect 52 0 54 0;
r@194 270 #X connect 53 0 58 0;
r@194 271 #X connect 54 0 53 0;
r@194 272 #X connect 54 0 53 1;
r@194 273 #X connect 55 0 57 0;
r@194 274 #X connect 56 0 58 1;
r@194 275 #X connect 57 0 56 0;
r@194 276 #X connect 57 0 56 1;
r@194 277 #X connect 58 0 65 0;
r@194 278 #X connect 62 0 65 1;
r@194 279 #X connect 64 0 41 0;
r@194 280 #X connect 65 0 50 0;
r@194 281 #X connect 67 0 68 0;
r@194 282 #X connect 68 0 69 1;
r@194 283 #X connect 69 0 33 0;
r@194 284 #X connect 70 0 66 0;
r@194 285 #X connect 71 0 15 0;
r@194 286 #X connect 71 0 15 1;
r@194 287 #X connect 72 0 77 0;
r@194 288 #X connect 73 0 72 0;
r@194 289 #X connect 73 0 72 1;
r@194 290 #X connect 75 0 74 0;
r@194 291 #X connect 76 0 46 0;
r@194 292 #X connect 77 0 76 0;
r@194 293 #X connect 78 0 55 0;
r@194 294 #X connect 79 0 80 0;
r@194 295 #X connect 81 0 36 0;
r@194 296 #X connect 82 0 87 0;
r@194 297 #X connect 83 0 84 0;
r@194 298 #X connect 83 0 84 1;
r@194 299 #X connect 84 0 85 0;
r@194 300 #X connect 85 0 86 0;
r@194 301 #X connect 86 0 62 1;
r@194 302 #X connect 88 0 64 0;
r@194 303 #X connect 89 0 51 0;
r@194 304 #X connect 90 0 14 0;
r@194 305 #X connect 91 0 42 1;
r@194 306 #X connect 92 0 13 1;
r@194 307 #X restore 127 322 pd GoldfreqGain;
r@194 308 #N canvas 534 206 861 633 GoldnoiseGain 0;
r@194 309 #X text -21029 218 Mass Density of Air \, squared;
r@194 310 #X text -20831 411 Distance;
r@194 311 #N canvas 759 125 235 275 pow8 0;
r@194 312 #X obj 47 67 *~;
r@194 313 #X obj 76 67 *~;
r@194 314 #X obj 76 35 inlet~;
r@194 315 #X obj 47 147 outlet~;
r@194 316 #X obj 128 146 snapshot~;
r@194 317 #X obj 128 121 metro 100;
r@194 318 #X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@194 319 1;
r@194 320 #X floatatom 128 173 10 0 0 0 - - -;
r@194 321 #X obj 128 73 loadbang;
r@194 322 #X obj 47 93 *~;
r@194 323 #X obj 47 121 *~;
r@194 324 #X connect 0 0 9 0;
r@194 325 #X connect 1 0 9 1;
r@194 326 #X connect 2 0 0 0;
r@194 327 #X connect 2 0 0 1;
r@194 328 #X connect 2 0 1 1;
r@194 329 #X connect 2 0 1 0;
r@194 330 #X connect 4 0 7 0;
r@194 331 #X connect 5 0 4 0;
r@194 332 #X connect 6 0 5 0;
r@194 333 #X connect 8 0 6 0;
r@194 334 #X connect 9 0 10 0;
r@194 335 #X connect 9 0 10 1;
r@194 336 #X connect 10 0 3 0;
r@194 337 #X connect 10 0 4 0;
r@194 338 #X restore -20846 98 pd pow8;
r@194 339 #X obj -20846 72 inlet~;
r@194 340 #X obj -20801 145 inlet;
r@194 341 #X obj -20846 560 outlet~;
r@194 342 #X text -20915 17 Gain proportional to windspeed to power 8 for spectrum
r@194 343 ;
r@194 344 #X text -20765 146 Diameter;
r@194 345 #X text -20798 63 Wind speed;
r@194 346 #X text -21027 546 Calculates wake gain;
r@194 347 #X text -20399 16 Azimuth;
r@194 348 #X text -20343 16 Elevation;
r@194 349 #X obj -20398 96 s~ \$0-this_azim;
r@194 350 #X obj -20342 77 s~ \$0-this_elev;
r@194 351 #X obj -20846 221 *~ 1.225;
r@194 352 #N canvas 759 125 250 309 pow5 0;
r@194 353 #X obj 47 67 *~;
r@194 354 #X obj 76 35 inlet~;
r@194 355 #X obj 47 170 outlet~;
r@194 356 #X obj 136 173 snapshot~;
r@194 357 #X obj 136 148 metro 100;
r@194 358 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@194 359 1;
r@194 360 #X floatatom 136 200 10 0 0 0 - - -;
r@194 361 #X obj 136 100 loadbang;
r@194 362 #X obj 47 87 *~;
r@194 363 #X obj 47 118 *~;
r@194 364 #X connect 0 0 8 0;
r@194 365 #X connect 0 0 8 1;
r@194 366 #X connect 1 0 0 0;
r@194 367 #X connect 1 0 0 1;
r@194 368 #X connect 1 0 9 1;
r@194 369 #X connect 3 0 6 0;
r@194 370 #X connect 4 0 3 0;
r@194 371 #X connect 5 0 4 0;
r@194 372 #X connect 7 0 5 0;
r@194 373 #X connect 8 0 9 0;
r@194 374 #X connect 9 0 2 0;
r@194 375 #X connect 9 0 3 0;
r@194 376 #X restore -20760 433 pd pow5;
r@194 377 #X obj -20760 409 sig~ 343.56;
r@194 378 #N canvas 875 261 250 309 pow5 0;
r@194 379 #X obj 47 67 *~;
r@194 380 #X obj 76 35 inlet~;
r@194 381 #X obj 47 170 outlet~;
r@194 382 #X obj 136 173 snapshot~;
r@194 383 #X obj 136 148 metro 100;
r@194 384 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@194 385 1;
r@194 386 #X floatatom 136 200 10 0 0 0 - - -;
r@194 387 #X obj 136 100 loadbang;
r@194 388 #X obj 47 87 *~;
r@194 389 #X obj 47 118 *~;
r@194 390 #X connect 0 0 8 0;
r@194 391 #X connect 0 0 8 1;
r@194 392 #X connect 1 0 0 0;
r@194 393 #X connect 1 0 0 1;
r@194 394 #X connect 1 0 9 1;
r@194 395 #X connect 3 0 6 0;
r@194 396 #X connect 4 0 3 0;
r@194 397 #X connect 5 0 4 0;
r@194 398 #X connect 7 0 5 0;
r@194 399 #X connect 8 0 9 0;
r@194 400 #X connect 9 0 2 0;
r@194 401 #X connect 9 0 3 0;
r@194 402 #X restore -20725 359 pd pow5;
r@194 403 #X obj -20679 209 /~ 360;
r@194 404 #X obj -20679 236 cos~;
r@194 405 #X obj -20679 307 *~;
r@194 406 #X obj -20725 306 sig~ 1;
r@194 407 #X obj -20725 333 -~;
r@194 408 #X obj -20760 283 sig~ 3.1416;
r@194 409 #X obj -20760 308 *~;
r@194 410 #X obj -20775 260 sig~ 16;
r@194 411 #X obj -20775 332 *~;
r@194 412 #X obj -20775 387 *~;
r@194 413 #X obj -20775 460 *~;
r@194 414 #X obj -20831 486 *~;
r@194 415 #X obj -20846 514 /~;
r@194 416 #X obj -20679 187 -~;
r@194 417 #X text -20627 194 Angle goes with the flow in Goldstein hence 90 -
r@194 418 theta so that theta is same angle as dipole angles.;
r@194 419 #X obj -20679 142 sig~ 180;
r@194 420 #X obj -20616 146 r~ \$0-this_elev;
r@194 421 #X obj -20905 110 inlet~;
r@194 422 #X obj -20905 137 *~;
r@194 423 #X obj -20822 123 inlet~;
r@194 424 #X obj -20822 170 *~ 1;
r@194 425 #X obj -20846 170 *~;
r@194 426 #X obj -20846 194 *~;
r@194 427 #X obj -20846 268 *~ 1;
r@194 428 #X obj -20846 294 *~ 2.50663;
r@194 429 #X text -20776 124 Corrolation Length;
r@194 430 #X text -20753 232 Length;
r@194 431 #X obj -20831 432 inlet~;
r@194 432 #X obj -20831 458 *~;
r@194 433 #X obj -20398 33 inlet~;
r@194 434 #X obj -20342 33 inlet~;
r@194 435 #X obj -20846 536 *~ 1;
r@194 436 #X obj -20664 286 r~ \$0-sourceRe;
r@194 437 #X obj -20825 240 r bladeLen;
r@194 438 #X connect 2 0 39 0;
r@194 439 #X connect 3 0 2 0;
r@194 440 #X connect 4 0 38 1;
r@194 441 #X connect 14 0 41 0;
r@194 442 #X connect 15 0 28 1;
r@194 443 #X connect 16 0 15 0;
r@194 444 #X connect 17 0 27 1;
r@194 445 #X connect 18 0 19 0;
r@194 446 #X connect 19 0 20 0;
r@194 447 #X connect 20 0 22 1;
r@194 448 #X connect 21 0 22 0;
r@194 449 #X connect 22 0 17 0;
r@194 450 #X connect 23 0 24 0;
r@194 451 #X connect 23 0 24 1;
r@194 452 #X connect 24 0 26 1;
r@194 453 #X connect 25 0 26 0;
r@194 454 #X connect 26 0 27 0;
r@194 455 #X connect 27 0 28 0;
r@194 456 #X connect 28 0 29 1;
r@194 457 #X connect 29 0 30 1;
r@194 458 #X connect 30 0 49 0;
r@194 459 #X connect 31 0 18 0;
r@194 460 #X connect 33 0 31 0;
r@194 461 #X connect 34 0 31 1;
r@194 462 #X connect 35 0 36 0;
r@194 463 #X connect 35 0 36 1;
r@194 464 #X connect 36 0 39 1;
r@194 465 #X connect 37 0 38 0;
r@194 466 #X connect 38 0 40 1;
r@194 467 #X connect 39 0 40 0;
r@194 468 #X connect 40 0 14 0;
r@194 469 #X connect 41 0 42 0;
r@194 470 #X connect 42 0 30 0;
r@194 471 #X connect 45 0 46 0;
r@194 472 #X connect 45 0 46 1;
r@194 473 #X connect 46 0 29 0;
r@194 474 #X connect 47 0 12 0;
r@194 475 #X connect 48 0 13 0;
r@194 476 #X connect 49 0 5 0;
r@194 477 #X connect 50 0 20 1;
r@194 478 #X connect 51 0 41 1;
r@194 479 #X restore 108 567 pd GoldnoiseGain;
r@194 480 #X text 99 614 Calculates the gain of the wake;
r@194 481 #N canvas 1021 287 444 428 corrLen 0;
r@194 482 #X obj 103 71 inlet~;
r@194 483 #X obj 88 200 outlet~;
r@194 484 #X obj 88 143 *~;
r@194 485 #X obj 124 93 sig~ -0.245;
r@194 486 #X obj 103 119 pow~;
r@194 487 #X text 234 22 Y = 10^b . X^m;
r@194 488 #X text 235 40 b = 1.536;
r@194 489 #X text 235 56 m = -0.245;
r@194 490 #X text 80 297 Equation of line derived from Norberg 2001;
r@194 491 #X obj 88 169 max~ 1;
r@194 492 #X obj 88 46 sig~ 44.67;
r@194 493 #X connect 0 0 4 0;
r@194 494 #X connect 2 0 9 0;
r@194 495 #X connect 3 0 4 1;
r@194 496 #X connect 4 0 2 1;
r@194 497 #X connect 9 0 1 0;
r@194 498 #X connect 10 0 2 0;
r@194 499 #X restore 966 94 pd corrLen Calc;
r@194 500 #X obj 966 118 s~ \$0-myCor;
r@194 501 #X obj 156 237 r~ \$0-myCor;
r@194 502 #X obj 787 324 hip~;
r@194 503 #X obj 154 481 r~ \$0-myCor;
r@194 504 #X obj 646 91 max 0.01;
r@194 505 #X obj 646 114 min 0.99;
r@194 506 #X obj 1076 69 noise~;
r@194 507 #X obj 1076 92 s~ \$0-thisNoise;
r@194 508 #X obj 787 229 r~ \$0-thisNoise;
r@194 509 #X text 484 537 the object and environment;
r@194 510 #X obj 130 75 inlet~;
r@194 511 #X obj 398 71 inlet~;
r@194 512 #X obj 403 94 s~ \$0-dist;
r@194 513 #X obj 165 256 r~ \$0-dist;
r@194 514 #X obj 139 459 r~ \$0-dist;
r@194 515 #X obj 470 70 inlet~;
r@194 516 #X obj 477 92 s~ \$0-azim;
r@194 517 #X obj 185 298 r~ \$0-azim;
r@194 518 #X obj 185 522 r~ \$0-azim;
r@194 519 #X obj 544 69 inlet~;
r@194 520 #X obj 552 92 s~ \$0-elev;
r@194 521 #X obj 175 277 r~ \$0-elev;
r@194 522 #X obj 201 542 r~ \$0-elev;
r@194 523 #N canvas 339 112 976 679 Dipoles 0;
r@194 524 #X obj 76 62 r~ \$0-myFreq;
r@194 525 #X obj 91 107 r~ \$0-liftDiGain;
r@194 526 #X obj 353 69 r~ \$0-myFreq;
r@194 527 #X obj 368 135 r~ \$0-liftDiGain;
r@194 528 #X obj 368 157 *~ 0.6;
r@194 529 #X obj 621 62 r~ \$0-myFreq;
r@194 530 #X obj 636 125 r~ \$0-liftDiGain;
r@194 531 #X obj 621 86 *~ 5;
r@194 532 #X obj 353 93 *~ 3;
r@194 533 #X obj 215 359 r~ \$0-myFreq;
r@194 534 #X obj 230 432 r~ \$0-dragDiGain;
r@194 535 #X obj 215 387 *~ 2;
r@194 536 #X obj 494 358 r~ \$0-myFreq;
r@194 537 #X obj 528 406 r~ \$0-dragDiGain;
r@194 538 #X obj 494 386 *~ 4;
r@194 539 #X obj 528 429 *~ 0.125;
r@194 540 #X obj 210 199 *~;
r@194 541 #X obj 210 264 throw~ l;
r@194 542 #X obj 237 241 throw~ r;
r@194 543 #X obj 210 220 fcpan;
r@194 544 #X obj 210 108 vcf~ 3;
r@194 545 #X obj 237 198 r \$0-thisPan;
r@194 546 #X obj 210 67 r~ \$0-thisNoise;
r@194 547 #X obj 480 192 *~;
r@194 548 #X obj 480 257 throw~ l;
r@194 549 #X obj 507 234 throw~ r;
r@194 550 #X obj 480 213 fcpan;
r@194 551 #X obj 480 116 vcf~ 3;
r@194 552 #X obj 507 191 r \$0-thisPan;
r@194 553 #X obj 480 68 r~ \$0-thisNoise;
r@194 554 #X obj 750 183 *~;
r@194 555 #X obj 750 248 throw~ l;
r@194 556 #X obj 777 225 throw~ r;
r@194 557 #X obj 750 204 fcpan;
r@194 558 #X obj 750 107 vcf~ 3;
r@194 559 #X obj 777 182 r \$0-thisPan;
r@194 560 #X obj 750 65 r~ \$0-thisNoise;
r@194 561 #X obj 636 147 *~ 0.1;
r@194 562 #X obj 360 478 *~;
r@194 563 #X obj 360 543 throw~ l;
r@194 564 #X obj 387 520 throw~ r;
r@194 565 #X obj 360 499 fcpan;
r@194 566 #X obj 360 402 vcf~ 3;
r@194 567 #X obj 387 477 r \$0-thisPan;
r@194 568 #X obj 360 358 r~ \$0-thisNoise;
r@194 569 #X obj 634 476 *~;
r@194 570 #X obj 634 541 throw~ l;
r@194 571 #X obj 661 518 throw~ r;
r@194 572 #X obj 634 497 fcpan;
r@194 573 #X obj 634 400 vcf~ 3;
r@194 574 #X obj 661 475 r \$0-thisPan;
r@194 575 #X obj 634 358 r~ \$0-thisNoise;
r@194 576 #X text 273 27 Generates the sound associated with the lift dipole.
r@194 577 ;
r@194 578 #X text 318 326 Generates the sound associated with the drag dipole.
r@194 579 ;
r@194 580 #X obj 243 88 r \$0-Qval;
r@194 581 #X obj 513 94 r \$0-Qval;
r@194 582 #X obj 783 86 r \$0-Qval;
r@194 583 #X obj 667 378 r \$0-Qval;
r@194 584 #X obj 393 380 r \$0-Qval;
r@194 585 #X obj 210 158 *~ 1;
r@194 586 #X obj 480 159 *~ 1;
r@194 587 #X obj 750 154 *~ 1;
r@194 588 #X obj 634 442 *~ 1;
r@194 589 #X obj 360 445 *~ 1;
r@194 590 #X floatatom 277 122 5 0 0 0 - - -;
r@194 591 #X obj 210 134 vcf~ 3;
r@194 592 #X obj 480 138 vcf~ 3;
r@194 593 #X obj 750 131 vcf~ 3;
r@194 594 #X obj 634 421 vcf~ 3;
r@194 595 #X obj 360 423 vcf~ 3;
r@194 596 #X connect 0 0 20 1;
r@194 597 #X connect 0 0 65 1;
r@194 598 #X connect 1 0 16 1;
r@194 599 #X connect 2 0 8 0;
r@194 600 #X connect 3 0 4 0;
r@194 601 #X connect 4 0 23 1;
r@194 602 #X connect 5 0 7 0;
r@194 603 #X connect 6 0 37 0;
r@194 604 #X connect 7 0 34 1;
r@194 605 #X connect 7 0 67 1;
r@194 606 #X connect 8 0 27 1;
r@194 607 #X connect 8 0 66 1;
r@194 608 #X connect 9 0 11 0;
r@194 609 #X connect 10 0 38 1;
r@194 610 #X connect 11 0 42 1;
r@194 611 #X connect 11 0 69 1;
r@194 612 #X connect 12 0 14 0;
r@194 613 #X connect 13 0 15 0;
r@194 614 #X connect 14 0 49 1;
r@194 615 #X connect 14 0 68 1;
r@194 616 #X connect 15 0 45 1;
r@194 617 #X connect 16 0 19 0;
r@194 618 #X connect 19 0 17 0;
r@194 619 #X connect 19 1 18 0;
r@194 620 #X connect 20 0 65 0;
r@194 621 #X connect 21 0 19 1;
r@194 622 #X connect 22 0 20 0;
r@194 623 #X connect 23 0 26 0;
r@194 624 #X connect 26 0 24 0;
r@194 625 #X connect 26 1 25 0;
r@194 626 #X connect 27 0 66 0;
r@194 627 #X connect 28 0 26 1;
r@194 628 #X connect 29 0 27 0;
r@194 629 #X connect 30 0 33 0;
r@194 630 #X connect 33 0 31 0;
r@194 631 #X connect 33 1 32 0;
r@194 632 #X connect 34 0 67 0;
r@194 633 #X connect 35 0 33 1;
r@194 634 #X connect 36 0 34 0;
r@194 635 #X connect 37 0 30 1;
r@194 636 #X connect 38 0 41 0;
r@194 637 #X connect 41 0 39 0;
r@194 638 #X connect 41 1 40 0;
r@194 639 #X connect 42 0 69 0;
r@194 640 #X connect 43 0 41 1;
r@194 641 #X connect 44 0 42 0;
r@194 642 #X connect 45 0 48 0;
r@194 643 #X connect 48 0 46 0;
r@194 644 #X connect 48 1 47 0;
r@194 645 #X connect 49 0 68 0;
r@194 646 #X connect 50 0 48 1;
r@194 647 #X connect 51 0 49 0;
r@194 648 #X connect 54 0 20 2;
r@194 649 #X connect 54 0 64 0;
r@194 650 #X connect 54 0 65 2;
r@194 651 #X connect 55 0 27 2;
r@194 652 #X connect 55 0 66 2;
r@194 653 #X connect 56 0 34 2;
r@194 654 #X connect 56 0 67 2;
r@194 655 #X connect 57 0 49 2;
r@194 656 #X connect 57 0 68 2;
r@194 657 #X connect 58 0 42 2;
r@194 658 #X connect 58 0 69 2;
r@194 659 #X connect 59 0 16 0;
r@194 660 #X connect 60 0 23 0;
r@194 661 #X connect 61 0 30 0;
r@194 662 #X connect 62 0 45 0;
r@194 663 #X connect 63 0 38 0;
r@194 664 #X connect 65 0 59 0;
r@194 665 #X connect 66 0 60 0;
r@194 666 #X connect 67 0 61 0;
r@194 667 #X connect 68 0 62 0;
r@194 668 #X connect 69 0 63 0;
r@194 669 #X restore 774 538 pd Dipoles;
r@194 670 #X obj 32 72 inlet~;
r@194 671 #X obj 32 92 s~ \$0-sourceRe;
r@194 672 #X obj 519 394 r~ \$0-sourceRe;
r@194 673 #X obj 740 621 r myMet;
r@194 674 #X obj 740 642 snapshot~;
r@194 675 #X floatatom 740 663 0 0 0 0 - - -;
r@194 676 #X obj 438 168 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
r@194 677 -1;
r@194 678 #X obj 438 221 s GO;
r@194 679 #X obj 378 168 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
r@194 680 -1 -1;
r@194 681 #X obj 378 245 s setUp;
r@194 682 #X obj 378 221 Uzi 20;
r@194 683 #N canvas 308 58 1027 635 StBandwidth 0;
r@194 684 #X obj 460 365 swap 1;
r@194 685 #X obj 460 391 /;
r@194 686 #X obj 460 342 / 100;
r@194 687 #X obj 461 434 outlet;
r@194 688 #X text 437 453 Q value;
r@194 689 #X obj 477 -36 r myMet;
r@194 690 #X obj 477 -14 snapshot~;
r@194 691 #X obj 203 164 spigot;
r@194 692 #X obj 219 187 spigot;
r@194 693 #X obj 236 140 > 0;
r@194 694 #X obj 219 233 + 0.9797;
r@194 695 #X obj 219 208 * 4.624e-05;
r@194 696 #X obj 602 150 spigot;
r@194 697 #X obj 618 173 spigot;
r@194 698 #X obj 651 149 < 1e+06;
r@194 699 #X obj 618 216 * 1.227e-10;
r@194 700 #X obj 618 196 *;
r@194 701 #X obj 690 215 * -8.553e-05;
r@194 702 #X obj 618 261 + 16.5;
r@194 703 #X obj 618 238 +;
r@194 704 #X text -84 298 First section of the Reynolds number - DeltaF/F relationship
r@194 705 is linear and did not appear to be reliant on current TU values;
r@194 706 #X text 565 329 Third section of the Reynolds number - DeltaF/F relationship
r@194 707 is linear and did not appear to be reliant on current TU values;
r@194 708 #X text 114 -16 Middle section of Reynolds number - DeltaF/F relationship
r@194 709 is also linear but depends on TU Value;
r@194 710 #X obj 461 412 max 0.005;
r@194 711 #X obj 635 126 > 193260;
r@194 712 #X obj 252 163 < 193260;
r@194 713 #X obj 531 -36 r~ \$0-sourceRe;
r@194 714 #X connect 0 0 1 0;
r@194 715 #X connect 0 1 1 1;
r@194 716 #X connect 1 0 23 0;
r@194 717 #X connect 2 0 0 0;
r@194 718 #X connect 5 0 6 0;
r@194 719 #X connect 6 0 14 0;
r@194 720 #X connect 6 0 12 0;
r@194 721 #X connect 6 0 9 0;
r@194 722 #X connect 6 0 7 0;
r@194 723 #X connect 6 0 24 0;
r@194 724 #X connect 6 0 25 0;
r@194 725 #X connect 7 0 8 0;
r@194 726 #X connect 8 0 11 0;
r@194 727 #X connect 9 0 7 1;
r@194 728 #X connect 10 0 2 0;
r@194 729 #X connect 11 0 10 0;
r@194 730 #X connect 12 0 13 0;
r@194 731 #X connect 13 0 17 0;
r@194 732 #X connect 13 0 16 1;
r@194 733 #X connect 13 0 16 0;
r@194 734 #X connect 14 0 13 1;
r@194 735 #X connect 15 0 19 0;
r@194 736 #X connect 16 0 15 0;
r@194 737 #X connect 17 0 19 1;
r@194 738 #X connect 18 0 2 0;
r@194 739 #X connect 19 0 18 0;
r@194 740 #X connect 23 0 3 0;
r@194 741 #X connect 24 0 12 1;
r@194 742 #X connect 25 0 8 1;
r@194 743 #X connect 26 0 6 0;
r@194 744 #X restore 1189 82 pd StBandwidth;
r@194 745 #X obj 1189 105 s \$0-Qval;
r@194 746 #X obj 966 71 r~ \$0-sourceRe;
r@194 747 #X obj 875 273 r myMet;
r@194 748 #X obj 863 296 snapshot~;
r@194 749 #X obj 863 252 r~ \$0-myFreq;
r@194 750 #X connect 0 0 8 0;
r@194 751 #X connect 0 0 81 0;
r@194 752 #X connect 1 0 0 0;
r@194 753 #X connect 2 0 4 0;
r@194 754 #X connect 5 0 0 1;
r@194 755 #X connect 7 0 1 1;
r@194 756 #X connect 9 0 25 0;
r@194 757 #X connect 10 0 57 0;
r@194 758 #X connect 13 0 50 1;
r@194 759 #X connect 14 0 50 4;
r@194 760 #X connect 22 0 30 0;
r@194 761 #X connect 22 0 1 0;
r@194 762 #X connect 25 0 23 0;
r@194 763 #X connect 25 1 24 0;
r@194 764 #X connect 28 0 50 0;
r@194 765 #X connect 32 0 9 0;
r@194 766 #X connect 33 0 25 1;
r@194 767 #X connect 34 0 37 0;
r@194 768 #X connect 35 0 38 0;
r@194 769 #X connect 36 0 39 0;
r@194 770 #X connect 44 0 55 0;
r@194 771 #X connect 45 0 44 0;
r@194 772 #X connect 46 0 49 1;
r@194 773 #X connect 47 0 49 2;
r@194 774 #X connect 48 0 49 0;
r@194 775 #X connect 49 0 27 0;
r@194 776 #X connect 49 1 26 0;
r@194 777 #X connect 50 0 29 0;
r@194 778 #X connect 52 0 53 0;
r@194 779 #X connect 54 0 49 3;
r@194 780 #X connect 55 0 9 1;
r@194 781 #X connect 56 0 50 3;
r@194 782 #X connect 57 0 58 0;
r@194 783 #X connect 58 0 31 0;
r@194 784 #X connect 59 0 60 0;
r@194 785 #X connect 61 0 45 0;
r@194 786 #X connect 63 0 6 0;
r@194 787 #X connect 64 0 65 0;
r@194 788 #X connect 66 0 49 4;
r@194 789 #X connect 67 0 50 2;
r@194 790 #X connect 68 0 69 0;
r@194 791 #X connect 70 0 49 6;
r@194 792 #X connect 71 0 50 5;
r@194 793 #X connect 72 0 73 0;
r@194 794 #X connect 74 0 49 5;
r@194 795 #X connect 75 0 50 6;
r@194 796 #X connect 77 0 78 0;
r@194 797 #X connect 79 0 22 0;
r@194 798 #X connect 80 0 81 0;
r@194 799 #X connect 81 0 82 0;
r@194 800 #X connect 83 0 84 0;
r@194 801 #X connect 85 0 87 0;
r@194 802 #X connect 87 0 86 0;
r@194 803 #X connect 88 0 89 0;
r@194 804 #X connect 90 0 52 0;
r@194 805 #X connect 91 0 92 0;
r@194 806 #X connect 92 0 44 1;
r@194 807 #X connect 92 0 55 1;
r@194 808 #X connect 93 0 92 0;