Mercurial > hg > weather-synthesis-prototyping

annotate SwordAutoD2/freqCalcCyl3No_D4Mach.pd @ 189:4126c96e5cd6

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