Mercurial > hg > weather-synthesis-prototyping

annotate newSword/freqCalcCyl3No_D2Mach.pd @ 306:c57f401165ca tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New Decision tree added
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 13 Jan 2018 14:47:35 +0000
parents 2bcf178dcf1f
children
rev   line source
r@162 1 #N canvas 89 23 1374 822 10;
r@159 2 #X text 577 168 Mass Density of Air;
r@159 3 #X obj 699 169 *~ 1.225;
r@159 4 #X obj 699 244 /~ 1.81e-05;
r@159 5 #X obj 699 199 *~ 1;
r@159 6 #X obj 699 362 /~ 1;
r@159 7 #X floatatom 202 406 0 0 0 0 - - -;
r@159 8 #X obj 699 338 *~;
r@159 9 #X obj 213 53 inlet;
r@159 10 #X text 732 288 Reynolds Number;
r@159 11 #X text 579 355 Strouhal Number;
r@159 12 #X obj 378 51 inlet;
r@159 13 #X text 729 224 Viscosity;
r@159 14 #X obj 220 76 s \$0-diameter;
r@159 15 #X obj 760 168 r \$0-diameter;
r@159 16 #X obj 767 343 r \$0-diameter;
r@163 17 #X obj 110 94 s~ \$0-windSpeed;
r@159 18 #X obj 766 320 r~ \$0-windSpeed;
r@159 19 #X obj 699 141 r~ \$0-windSpeed;
r@159 20 #X obj 699 386 s~ \$0-myFreq;
r@159 21 #X obj 1113 484 r~ \$0-myFreq;
r@159 22 #X obj 1050 348 *~;
r@159 23 #X obj 124 228 snapshot~;
r@159 24 #X floatatom 124 254 0 0 0 0 - - -;
r@159 25 #X obj 38 203 r~ \$0-myRey;
r@159 26 #X obj 712 268 s~ \$0-myRey;
r@159 27 #X text 109 276 Reynolds Number;
r@159 28 #X obj 626 47 inlet;
r@159 29 #X floatatom 571 116 8 0 0 0 - - -;
r@159 30 #X obj 626 71 max 0.1;
r@159 31 #X obj 626 94 min 0.9;
r@159 32 #X text 663 405 Calculates the frequency;
r@159 33 #X text 664 417 based on the physics of;
r@159 34 #X text 664 430 the object and environment;
r@159 35 #X obj 297 394 r~ \$0-windSpeed;
r@159 36 #X obj 144 531 snapshot~;
r@159 37 #X floatatom 144 557 0 0 0 0 - - -;
r@159 38 #X obj 337 456 r \$0-diameter;
r@159 39 #X obj 450 50 inlet;
r@159 40 #X obj 524 49 inlet;
r@159 41 #X floatatom 378 98 5 0 0 0 - - -;
r@159 42 #X floatatom 450 96 5 0 0 0 - - -;
r@159 43 #X floatatom 525 93 5 0 0 0 - - -;
r@159 44 #X obj 73 406 outlet;
r@159 45 #X obj 117 379 snapshot~;
r@159 46 #X obj 38 356 r~ \$0-myFreq;
r@159 47 #X text 123 583 Strouhal Number;
r@159 48 #X text 283 357 Calculates the gain of the dipole source;
r@159 49 #X text 449 27 Azimuth;
r@159 50 #X text 631 29 Pan;
r@159 51 #X text 523 31 Elevation;
r@159 52 #X text 374 32 Distance;
r@159 53 #X text 208 32 Diameter;
r@160 54 #X text 103 34 Wind Speed;
r@159 55 #X obj 305 50 inlet;
r@159 56 #X floatatom 305 94 5 0 0 0 - - -;
r@159 57 #X text 301 31 Length;
r@159 58 #X floatatom 213 97 5 0 0 0 - - -;
r@159 59 #X obj 1050 417 throw~ l;
r@159 60 #X obj 1077 395 throw~ r;
r@159 61 #X obj 1050 373 fcpan;
r@159 62 #X obj 315 73 s \$0-leng;
r@159 63 #X obj 383 74 s \$0-dist;
r@159 64 #X obj 390 321 s~ \$0-dragDiGain;
r@159 65 #X obj 303 342 s~ \$0-liftDiGain;
r@159 66 #X obj 284 375 r~ \$0-str;
r@159 67 #X obj 323 434 r \$0-leng;
r@159 68 #X obj 350 477 r \$0-dist;
r@159 69 #X obj 284 570 s~ \$0-liftNoiseGain;
r@159 70 #X obj 1086 464 r~ \$0-dragDiGain;
r@159 71 #X obj 599 340 s~ \$0-str;
r@159 72 #X obj 626 116 s \$0-thisPan;
r@159 73 #X obj 1086 272 r \$0-contFreq;
r@159 74 #X obj 117 406 s \$0-contFreq;
r@159 75 #X obj 59 506 r~ \$0-str;
r@159 76 #X obj 1050 192 r~ \$0-liftNoiseGain;
r@159 77 #X obj 1077 348 r \$0-thisPan;
r@159 78 #X obj 721 56 inlet;
r@159 79 #X obj 793 55 inlet;
r@159 80 #X obj 867 54 inlet;
r@159 81 #X floatatom 721 103 5 0 0 0 - - -;
r@159 82 #X floatatom 793 101 5 0 0 0 - - -;
r@159 83 #X floatatom 868 98 5 0 0 0 - - -;
r@159 84 #X obj 726 79 s \$0-rotaX;
r@159 85 #X obj 800 77 s \$0-rotaY;
r@159 86 #X obj 875 77 s \$0-rotaZ;
r@159 87 #X text 717 37 X Rotation;
r@159 88 #X text 787 36 Y Rotation;
r@159 89 #X text 862 35 Z Rotation;
r@159 90 #X text 1031 166 Noise spectrum calculation;
r@159 91 #X obj 1065 296 hip~;
r@159 92 #X obj 1140 504 r \$0-thisPan;
r@159 93 #X obj 1065 251 rpole~ 0.99;
r@159 94 #X obj 1065 225 noise~;
r@159 95 #X obj 82 256 outlet;
r@159 96 #X obj 311 153 r~ \$0-windSpeed;
r@159 97 #X obj 329 192 r \$0-diameter;
r@159 98 #X obj 303 132 r~ \$0-str;
r@159 99 #X obj 321 173 r \$0-leng;
r@159 100 #X obj 346 231 r \$0-dist;
r@163 101 #N canvas 203 82 1238 721 GoldfreqGain 0;
r@159 102 #N canvas 759 125 286 294 pow6 0;
r@159 103 #X obj 47 67 *~;
r@159 104 #X obj 76 67 *~;
r@159 105 #X obj 76 35 inlet~;
r@159 106 #X obj 47 163 outlet~;
r@159 107 #X obj 136 184 snapshot~;
r@159 108 #X obj 136 159 metro 100;
r@159 109 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@159 110 1;
r@159 111 #X floatatom 136 211 10 0 0 0 - - -;
r@159 112 #X obj 216 210 outlet;
r@159 113 #X obj 136 111 loadbang;
r@159 114 #X obj 106 67 *~;
r@159 115 #X obj 47 93 *~;
r@159 116 #X obj 47 118 *~;
r@159 117 #X obj 372 202 *;
r@159 118 #X obj 372 228 *;
r@159 119 #X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@159 120 -1 -1 0 1;
r@159 121 #X floatatom 374 288 10 0 0 0 - - -;
r@159 122 #X obj 303 20 t f b;
r@159 123 #X floatatom 455 55 5 0 0 0 - - -;
r@159 124 #X obj 372 260 *;
r@159 125 #X obj 400 202 *;
r@159 126 #X msg 303 -4 6;
r@159 127 #X obj 434 201 *;
r@159 128 #X connect 0 0 11 0;
r@159 129 #X connect 1 0 11 1;
r@159 130 #X connect 2 0 0 0;
r@159 131 #X connect 2 0 0 1;
r@159 132 #X connect 2 0 1 1;
r@159 133 #X connect 2 0 10 0;
r@159 134 #X connect 2 0 10 1;
r@159 135 #X connect 2 0 1 0;
r@159 136 #X connect 4 0 7 0;
r@159 137 #X connect 4 0 8 0;
r@159 138 #X connect 5 0 4 0;
r@159 139 #X connect 6 0 5 0;
r@159 140 #X connect 9 0 6 0;
r@159 141 #X connect 10 0 12 1;
r@159 142 #X connect 11 0 12 0;
r@159 143 #X connect 12 0 4 0;
r@159 144 #X connect 12 0 3 0;
r@159 145 #X connect 13 0 14 0;
r@159 146 #X connect 14 0 19 0;
r@159 147 #X connect 15 0 13 0;
r@159 148 #X connect 15 0 13 1;
r@159 149 #X connect 15 0 18 0;
r@159 150 #X connect 15 0 20 0;
r@159 151 #X connect 15 0 20 1;
r@159 152 #X connect 17 0 13 0;
r@159 153 #X connect 17 0 13 1;
r@159 154 #X connect 17 0 20 0;
r@159 155 #X connect 17 0 20 1;
r@159 156 #X connect 17 0 22 0;
r@159 157 #X connect 17 0 22 1;
r@159 158 #X connect 17 1 13 0;
r@159 159 #X connect 17 1 20 0;
r@159 160 #X connect 17 1 22 0;
r@159 161 #X connect 19 0 16 0;
r@159 162 #X connect 20 0 14 1;
r@159 163 #X connect 21 0 17 0;
r@159 164 #X connect 22 0 19 1;
r@159 165 #X restore 219 42 pd pow6;
r@159 166 #X obj 173 32 *~;
r@159 167 #X obj 219 68 *~;
r@159 168 #X obj 404 137 *;
r@159 169 #X text 533 2 Distance;
r@159 170 #X floatatom 513 62 5 0 0 0 - - -;
r@159 171 #X text 724 595 Calculates Drag Dipole gain;
r@159 172 #X text 48 647 Calculates Lift Dipole gain;
r@159 173 #X obj 173 -8 inlet~;
r@159 174 #X obj 219 -35 inlet~;
r@159 175 #X text 328 62 Diameter;
r@159 176 #X obj 291 61 inlet;
r@159 177 #X obj 513 18 inlet;
r@159 178 #X obj 219 667 outlet~;
r@159 179 #X obj 758 570 outlet~;
r@159 180 #X obj 240 159 inlet;
r@159 181 #X text 278 154 Length;
r@159 182 #X obj 219 185 *~ 1;
r@159 183 #X obj 234 416 sig~;
r@159 184 #X obj 322 438 sig~;
r@159 185 #X obj 234 468 /~ 360;
r@159 186 #X obj 234 517 *~;
r@159 187 #X obj 219 540 *~;
r@159 188 #X obj 814 19 inlet;
r@159 189 #X obj 913 21 inlet;
r@159 190 #X obj 1009 24 inlet;
r@159 191 #X floatatom 814 66 5 0 0 0 - - -;
r@159 192 #X floatatom 913 67 5 0 0 0 - - -;
r@159 193 #X floatatom 1010 68 5 0 0 0 - - -;
r@159 194 #X text 810 0 X Rotation;
r@159 195 #X text 907 2 Y Rotation;
r@159 196 #X text 1004 5 Z Rotation;
r@159 197 #X obj 819 42 s \$0-this_rotaX;
r@159 198 #X obj 920 43 s \$0-thisrotaY;
r@159 199 #X obj 1017 47 s \$0-thisrotaZ;
r@159 200 #X text 74 -8 Strouhal number;
r@159 201 #X text 269 -35 Wind speed;
r@159 202 #X text 266 103 Corr Length;
r@159 203 #X obj 219 225 *~ 2.50663;
r@159 204 #X obj 219 130 *~ 1.225;
r@159 205 #X text 93 126 Mass Density of Air;
r@159 206 #X text 147 227 Sqrt(2xpi);
r@159 207 #X obj 322 466 /~ 360;
r@159 208 #X obj 322 512 *~;
r@159 209 #X obj 322 488 cos~;
r@159 210 #X obj 219 579 *~;
r@159 211 #X obj 404 167 * 4.05513e+07;
r@159 212 #X text 355 186 Speed of Sound to power 3;
r@159 213 #X obj 404 220 * 32;
r@159 214 #X obj 553 189 r SIG_MACH;
r@159 215 #X obj 518 189 cos~;
r@159 216 #X obj 518 212 *~;
r@159 217 #X obj 466 213 sig~ 1;
r@159 218 #X obj 503 243 -~;
r@159 219 #N canvas 1150 227 286 289 pow4 0;
r@159 220 #X obj 47 67 *~;
r@159 221 #X obj 76 67 *~;
r@159 222 #X obj 76 35 inlet~;
r@159 223 #X obj 47 163 outlet~;
r@159 224 #X obj 136 184 snapshot~;
r@159 225 #X obj 136 159 metro 100;
r@159 226 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@159 227 1;
r@159 228 #X floatatom 136 211 10 0 0 0 - - -;
r@159 229 #X obj 216 210 outlet;
r@159 230 #X obj 136 111 loadbang;
r@159 231 #X obj 47 93 *~;
r@159 232 #X connect 0 0 10 0;
r@159 233 #X connect 1 0 10 1;
r@159 234 #X connect 2 0 0 0;
r@159 235 #X connect 2 0 0 1;
r@159 236 #X connect 2 0 1 1;
r@159 237 #X connect 2 0 1 0;
r@159 238 #X connect 4 0 7 0;
r@159 239 #X connect 4 0 8 0;
r@159 240 #X connect 5 0 4 0;
r@159 241 #X connect 6 0 5 0;
r@159 242 #X connect 9 0 6 0;
r@159 243 #X connect 10 0 3 0;
r@159 244 #X connect 10 0 4 0;
r@159 245 #X restore 503 266 pd pow4;
r@159 246 #X obj 404 248 sig~;
r@159 247 #X obj 404 298 *~;
r@159 248 #X obj 219 346 /~;
r@159 249 #X obj 133 287 s~ \$0-aGainG;
r@159 250 #X obj 872 246 r~ \$0-aGainG;
r@159 251 #X obj 758 512 *~ 0.1;
r@159 252 #X obj 723 340 +~ 90;
r@159 253 #X obj 723 363 /~ 360;
r@159 254 #X obj 723 409 *~;
r@159 255 #X obj 723 385 sin~;
r@159 256 #X obj 773 359 /~ 360;
r@159 257 #X obj 773 405 *~;
r@159 258 #X obj 773 381 cos~;
r@159 259 #X obj 758 436 *~;
r@159 260 #X text 709 1 Azimuth;
r@159 261 #X text 608 3 Elevation;
r@159 262 #X obj 611 21 inlet;
r@159 263 #X obj 713 19 inlet;
r@159 264 #X floatatom 611 68 5 0 0 0 - - -;
r@159 265 #X floatatom 713 68 5 0 0 0 - - -;
r@159 266 #X obj 322 417 r \$0-this_azim;
r@159 267 #X obj 234 394 r \$0-this_elev;
r@159 268 #X obj 773 314 r \$0-this_azim;
r@159 269 #X obj 723 256 r \$0-this_elev;
r@159 270 #X obj 723 280 sig~;
r@159 271 #X obj 773 336 sig~;
r@159 272 #X obj 518 141 sig~;
r@159 273 #X obj 139 628 s~ plotOPF;
r@159 274 #X obj 676 574 s~ plotOPD;
r@159 275 #X obj 616 44 s \$0-this_elev;
r@159 276 #X obj 720 44 s \$0-this_azim;
r@159 277 #X obj 518 117 r \$0-this_elev;
r@159 278 #X obj 520 40 s \$0-thisDist;
r@159 279 #X obj 887 268 r \$0-thisDist;
r@159 280 #X obj 404 111 r \$0-thisDist;
r@159 281 #X obj 887 292 *;
r@159 282 #X obj 887 317 * 4.05513e+07;
r@159 283 #X text 892 335 Speed of Sound to power 3;
r@159 284 #X obj 887 370 * 32;
r@159 285 #X obj 887 398 sig~;
r@159 286 #X obj 872 423 /~;
r@159 287 #X text 588 167 Remember - Goldstein moves cylinder;
r@159 288 #X floatatom 359 169 5 0 0 0 - - -;
r@159 289 #X obj 518 170 /~ 360;
r@159 290 #X obj 758 475 *~;
r@159 291 #X obj 424 40 s~ \$0-thisColL;
r@159 292 #X obj 270 42 r~ \$0-thisColL;
r@159 293 #X obj 270 82 *~ 1;
r@159 294 #X obj 219 102 *~;
r@159 295 #X obj 424 17 inlet~;
r@159 296 #X obj 219 11 sig~;
r@159 297 #X floatatom 265 13 5 0 0 0 - - -;
r@159 298 #X obj 219 -11 average~ 512;
r@159 299 #X obj 234 494 sin~;
r@159 300 #X floatatom 351 12 5 0 0 0 - - -;
r@159 301 #X connect 0 0 2 0;
r@159 302 #X connect 1 0 2 1;
r@162 303 #X connect 2 0 103 0;
r@159 304 #X connect 3 0 46 0;
r@162 305 #X connect 3 0 97 0;
r@159 306 #X connect 8 0 1 0;
r@159 307 #X connect 8 0 1 1;
r@162 308 #X connect 9 0 107 0;
r@162 309 #X connect 11 0 102 1;
r@159 310 #X connect 12 0 5 0;
r@162 311 #X connect 12 0 87 0;
r@159 312 #X connect 15 0 17 1;
r@159 313 #X connect 17 0 38 0;
r@159 314 #X connect 18 0 20 0;
r@159 315 #X connect 19 0 42 0;
r@162 316 #X connect 20 0 108 0;
r@159 317 #X connect 21 0 22 1;
r@159 318 #X connect 22 0 45 0;
r@159 319 #X connect 23 0 26 0;
r@159 320 #X connect 23 0 32 0;
r@159 321 #X connect 24 0 27 0;
r@159 322 #X connect 24 0 33 0;
r@159 323 #X connect 25 0 28 0;
r@159 324 #X connect 25 0 34 0;
r@159 325 #X connect 38 0 57 0;
r@159 326 #X connect 38 0 58 0;
r@159 327 #X connect 39 0 17 0;
r@159 328 #X connect 42 0 44 0;
r@159 329 #X connect 43 0 45 1;
r@159 330 #X connect 44 0 43 0;
r@159 331 #X connect 44 0 43 1;
r@162 332 #X connect 45 0 82 0;
r@159 333 #X connect 45 0 13 0;
r@159 334 #X connect 46 0 48 0;
r@159 335 #X connect 48 0 55 0;
r@159 336 #X connect 49 0 51 1;
r@159 337 #X connect 50 0 51 0;
r@159 338 #X connect 51 0 53 1;
r@159 339 #X connect 52 0 53 0;
r@159 340 #X connect 53 0 54 0;
r@159 341 #X connect 54 0 56 1;
r@159 342 #X connect 55 0 56 0;
r@159 343 #X connect 56 0 57 1;
r@159 344 #X connect 57 0 22 0;
r@162 345 #X connect 59 0 95 0;
r@162 346 #X connect 60 0 83 0;
r@159 347 #X connect 60 0 14 0;
r@159 348 #X connect 61 0 62 0;
r@159 349 #X connect 62 0 64 0;
r@159 350 #X connect 63 0 68 0;
r@159 351 #X connect 64 0 63 0;
r@159 352 #X connect 64 0 63 1;
r@159 353 #X connect 65 0 67 0;
r@159 354 #X connect 66 0 68 1;
r@159 355 #X connect 67 0 66 0;
r@159 356 #X connect 67 0 66 1;
r@162 357 #X connect 68 0 99 0;
r@159 358 #X connect 71 0 73 0;
r@162 359 #X connect 71 0 84 0;
r@159 360 #X connect 72 0 74 0;
r@162 361 #X connect 72 0 85 0;
r@159 362 #X connect 75 0 19 0;
r@159 363 #X connect 76 0 18 0;
r@159 364 #X connect 77 0 80 0;
r@159 365 #X connect 78 0 79 0;
r@159 366 #X connect 79 0 61 0;
r@159 367 #X connect 80 0 65 0;
r@162 368 #X connect 81 0 98 0;
r@162 369 #X connect 86 0 81 0;
r@162 370 #X connect 88 0 90 0;
r@162 371 #X connect 88 0 90 1;
r@162 372 #X connect 89 0 3 0;
r@162 373 #X connect 89 0 3 1;
r@162 374 #X connect 90 0 91 0;
r@162 375 #X connect 91 0 93 0;
r@162 376 #X connect 93 0 94 0;
r@162 377 #X connect 94 0 95 1;
r@162 378 #X connect 95 0 99 1;
r@162 379 #X connect 98 0 50 0;
r@162 380 #X connect 99 0 60 0;
r@162 381 #X connect 101 0 102 0;
r@162 382 #X connect 102 0 103 1;
r@162 383 #X connect 103 0 39 0;
r@162 384 #X connect 104 0 100 0;
r@162 385 #X connect 105 0 0 0;
r@162 386 #X connect 107 0 105 0;
r@162 387 #X connect 107 0 106 0;
r@162 388 #X connect 108 0 21 0;
r@162 389 #X connect 108 0 21 1;
r@159 390 #X restore 303 297 pd GoldfreqGain;
r@159 391 #X obj 964 504 r \$0-thisPan;
r@159 392 #X obj 918 461 r~ \$0-myFreq;
r@159 393 #X obj 941 483 r~ \$0-dragDiGain;
r@159 394 #N canvas 272 58 1006 797 GoldnoiseGain 0;
r@159 395 #X text -21029 240 Mass Density of Air \, squared;
r@159 396 #X obj -20777 456 *;
r@159 397 #X text -20777 409 Distance;
r@159 398 #N canvas 759 125 235 275 pow8 0;
r@159 399 #X obj 47 67 *~;
r@159 400 #X obj 76 67 *~;
r@159 401 #X obj 76 35 inlet~;
r@159 402 #X obj 47 147 outlet~;
r@159 403 #X obj 128 146 snapshot~;
r@159 404 #X obj 128 121 metro 100;
r@159 405 #X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@159 406 1;
r@159 407 #X floatatom 128 173 10 0 0 0 - - -;
r@159 408 #X obj 128 73 loadbang;
r@159 409 #X obj 47 93 *~;
r@159 410 #X obj 47 121 *~;
r@159 411 #X connect 0 0 9 0;
r@159 412 #X connect 1 0 9 1;
r@159 413 #X connect 2 0 0 0;
r@159 414 #X connect 2 0 0 1;
r@159 415 #X connect 2 0 1 1;
r@159 416 #X connect 2 0 1 0;
r@159 417 #X connect 4 0 7 0;
r@159 418 #X connect 5 0 4 0;
r@159 419 #X connect 6 0 5 0;
r@159 420 #X connect 8 0 6 0;
r@159 421 #X connect 9 0 10 0;
r@159 422 #X connect 9 0 10 1;
r@159 423 #X connect 10 0 3 0;
r@159 424 #X connect 10 0 4 0;
r@159 425 #X restore -20846 69 pd pow8;
r@159 426 #X obj -20846 4 inlet~;
r@159 427 #X obj -20801 123 inlet;
r@159 428 #X obj -20777 430 inlet;
r@159 429 #X obj -20846 710 outlet~;
r@159 430 #X text -20785 63 Gain proportional to windspeed to power 8 for spectrum
r@159 431 ;
r@159 432 #X text -20765 124 Diameter;
r@159 433 #X obj -20754 633 loadbang;
r@159 434 #X obj -20754 654 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@159 435 1 1;
r@159 436 #X obj -20754 672 metro 10;
r@159 437 #X obj -20754 693 snapshot~;
r@159 438 #X floatatom -20754 713 8 0 0 0 - - -;
r@159 439 #X text -20798 -5 Wind speed;
r@159 440 #X text -21027 643 Calculates wake gain;
r@159 441 #X text -20399 16 Azimuth;
r@159 442 #X obj -20398 33 inlet;
r@159 443 #X obj -20398 56 sig~;
r@159 444 #X obj -20342 33 inlet;
r@159 445 #X obj -20342 56 sig~;
r@159 446 #X text -20343 16 Elevation;
r@159 447 #X floatatom -20304 57 5 0 0 0 - - -;
r@159 448 #X floatatom -20434 58 5 0 0 0 - - -;
r@159 449 #X obj -20398 96 s~ \$0-this_azim;
r@159 450 #X obj -20342 77 s~ \$0-this_elev;
r@159 451 #X obj -20846 243 *~ 1.225;
r@159 452 #X obj -20511 100 r~ \$0-this_azim;
r@159 453 #N canvas 759 125 250 309 pow5 0;
r@159 454 #X obj 47 67 *~;
r@159 455 #X obj 76 35 inlet~;
r@159 456 #X obj 47 170 outlet~;
r@159 457 #X obj 136 173 snapshot~;
r@159 458 #X obj 136 148 metro 100;
r@159 459 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@159 460 1;
r@159 461 #X floatatom 136 200 10 0 0 0 - - -;
r@159 462 #X obj 136 100 loadbang;
r@159 463 #X obj 47 87 *~;
r@159 464 #X obj 47 118 *~;
r@159 465 #X connect 0 0 8 0;
r@159 466 #X connect 0 0 8 1;
r@159 467 #X connect 1 0 0 0;
r@159 468 #X connect 1 0 0 1;
r@159 469 #X connect 1 0 9 1;
r@159 470 #X connect 3 0 6 0;
r@159 471 #X connect 4 0 3 0;
r@159 472 #X connect 5 0 4 0;
r@159 473 #X connect 7 0 5 0;
r@159 474 #X connect 8 0 9 0;
r@159 475 #X connect 9 0 2 0;
r@159 476 #X connect 9 0 3 0;
r@159 477 #X restore -20680 508 pd pow5;
r@159 478 #X obj -20680 484 sig~ 343.56;
r@159 479 #N canvas 875 261 250 309 pow5 0;
r@159 480 #X obj 47 67 *~;
r@159 481 #X obj 76 35 inlet~;
r@159 482 #X obj 47 170 outlet~;
r@159 483 #X obj 136 173 snapshot~;
r@159 484 #X obj 136 148 metro 100;
r@159 485 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@159 486 1;
r@159 487 #X floatatom 136 200 10 0 0 0 - - -;
r@159 488 #X obj 136 100 loadbang;
r@159 489 #X obj 47 87 *~;
r@159 490 #X obj 47 118 *~;
r@159 491 #X connect 0 0 8 0;
r@159 492 #X connect 0 0 8 1;
r@159 493 #X connect 1 0 0 0;
r@159 494 #X connect 1 0 0 1;
r@159 495 #X connect 1 0 9 1;
r@159 496 #X connect 3 0 6 0;
r@159 497 #X connect 4 0 3 0;
r@159 498 #X connect 5 0 4 0;
r@159 499 #X connect 7 0 5 0;
r@159 500 #X connect 8 0 9 0;
r@159 501 #X connect 9 0 2 0;
r@159 502 #X connect 9 0 3 0;
r@159 503 #X restore -20645 434 pd pow5;
r@159 504 #X obj -20599 284 /~ 360;
r@159 505 #X obj -20599 311 cos~;
r@159 506 #X obj -20584 333 r SIG_MACH;
r@159 507 #X obj -20584 357 sig~;
r@159 508 #X obj -20599 382 *~;
r@159 509 #X obj -20645 381 sig~ 1;
r@159 510 #X obj -20645 408 -~;
r@159 511 #X obj -20680 355 sig~ 3.1416;
r@159 512 #X obj -20680 380 *~;
r@159 513 #X obj -20695 332 sig~ 16;
r@159 514 #X obj -20695 404 *~;
r@159 515 #X obj -20695 462 *~;
r@159 516 #X obj -20695 535 *~;
r@159 517 #X obj -20777 483 sig~;
r@159 518 #X obj -20777 567 *~;
r@159 519 #X obj -20846 611 /~;
r@159 520 #X obj -20913 710 s~ plotOPN;
r@159 521 #X obj -20599 262 -~;
r@159 522 #X text -20547 269 Angle goes with the flow in Goldstein hence 90 -
r@159 523 theta so that theta is same angle as dipole angles.;
r@159 524 #X obj -20599 217 sig~ 180;
r@159 525 #X obj -20536 221 r~ \$0-this_elev;
r@159 526 #X obj -20916 56 inlet~;
r@159 527 #X obj -20916 83 *~;
r@159 528 #X obj -20822 90 inlet~;
r@159 529 #X obj -20822 148 *~ 1;
r@159 530 #X obj -20846 170 *~;
r@159 531 #X obj -20846 194 *~;
r@159 532 #X obj -20821 273 inlet;
r@159 533 #X obj -20847 308 *~ 1;
r@159 534 #X obj -20848 343 *~ 2.50663;
r@159 535 #X obj -20846 643 *~ 1;
r@159 536 #X text -20776 91 Corrolation Length;
r@159 537 #X text -20781 272 Length;
r@159 538 #X obj -20846 26 average~ 64;
r@159 539 #X obj -20846 48 sig~;
r@159 540 #X connect 1 0 45 0;
r@162 541 #X connect 3 0 57 0;
r@162 542 #X connect 4 0 65 0;
r@162 543 #X connect 5 0 56 1;
r@159 544 #X connect 6 0 1 0;
r@159 545 #X connect 6 0 1 1;
r@159 546 #X connect 10 0 11 0;
r@159 547 #X connect 11 0 12 0;
r@159 548 #X connect 12 0 13 0;
r@159 549 #X connect 13 0 14 0;
r@159 550 #X connect 18 0 19 0;
r@159 551 #X connect 18 0 24 0;
r@159 552 #X connect 19 0 25 0;
r@159 553 #X connect 20 0 21 0;
r@159 554 #X connect 20 0 23 0;
r@159 555 #X connect 21 0 26 0;
r@162 556 #X connect 27 0 60 0;
r@159 557 #X connect 29 0 44 1;
r@159 558 #X connect 30 0 29 0;
r@159 559 #X connect 31 0 43 1;
r@159 560 #X connect 32 0 33 0;
r@159 561 #X connect 33 0 36 0;
r@159 562 #X connect 34 0 35 0;
r@159 563 #X connect 35 0 36 1;
r@159 564 #X connect 36 0 38 1;
r@159 565 #X connect 37 0 38 0;
r@159 566 #X connect 38 0 31 0;
r@159 567 #X connect 39 0 40 0;
r@159 568 #X connect 39 0 40 1;
r@159 569 #X connect 40 0 42 1;
r@159 570 #X connect 41 0 42 0;
r@159 571 #X connect 42 0 43 0;
r@159 572 #X connect 43 0 44 0;
r@159 573 #X connect 44 0 46 1;
r@159 574 #X connect 45 0 46 0;
r@159 575 #X connect 46 0 47 1;
r@162 576 #X connect 47 0 62 0;
r@162 577 #X connect 49 0 32 0;
r@162 578 #X connect 51 0 49 0;
r@162 579 #X connect 52 0 49 1;
r@162 580 #X connect 53 0 54 0;
r@162 581 #X connect 53 0 54 1;
r@162 582 #X connect 54 0 57 1;
r@162 583 #X connect 55 0 56 0;
r@162 584 #X connect 56 0 58 1;
r@162 585 #X connect 57 0 58 0;
r@162 586 #X connect 58 0 27 0;
r@162 587 #X connect 59 0 60 1;
r@162 588 #X connect 60 0 61 0;
r@162 589 #X connect 61 0 47 0;
r@162 590 #X connect 62 0 48 0;
r@162 591 #X connect 62 0 7 0;
r@162 592 #X connect 62 0 13 0;
r@162 593 #X connect 65 0 66 0;
r@162 594 #X connect 66 0 3 0;
r@159 595 #X restore 284 542 pd GoldnoiseGain;
r@159 596 #X text 275 589 Calculates the gain of the wake;
r@159 597 #X obj 981 52 inlet;
r@159 598 #X obj 981 76 s \$0-TuInt;
r@159 599 #X floatatom 945 77 5 0 0 0 - - -;
r@159 600 #N canvas 4 232 229 249 TuInt_calc 0;
r@159 601 #X obj 116 42 inlet;
r@159 602 #X obj 116 118 + 1;
r@159 603 #X obj 116 67 min 0.2;
r@159 604 #X floatatom 144 148 5 0 0 0 - - -;
r@159 605 #X obj 116 173 outlet;
r@159 606 #X obj 116 92 * -4.5;
r@159 607 #X connect 0 0 2 0;
r@159 608 #X connect 1 0 3 0;
r@159 609 #X connect 1 0 4 0;
r@159 610 #X connect 2 0 5 0;
r@159 611 #X connect 5 0 1 0;
r@159 612 #X restore 1063 77 pd TuInt_calc;
r@159 613 #X obj 1064 55 r \$0-TuInt;
r@159 614 #X obj 1063 100 s \$0-TuGain;
r@159 615 #X obj 987 524 r \$0-TuGain;
r@159 616 #X floatatom 1029 99 5 0 0 0 - - -;
r@159 617 #X obj 1167 524 r \$0-TuGain;
r@159 618 #N canvas 811 216 464 503 dragDiFunNo 0;
r@159 619 #X obj 124 84 inlet~;
r@159 620 #X obj 120 196 inlet~;
r@159 621 #X obj 161 105 inlet;
r@159 622 #X obj 132 255 inlet;
r@159 623 #X obj 124 105 *~ 2;
r@159 624 #X obj 105 256 *~;
r@159 625 #X obj 105 321 throw~ l;
r@159 626 #X obj 132 298 throw~ r;
r@159 627 #X obj 105 277 fcpan;
r@159 628 #X obj 105 65 noise~;
r@159 629 #X obj 120 236 *~ 1;
r@159 630 #X obj 141 215 r \$0-TuGain;
r@159 631 #X obj 105 151 vcf~ 10;
r@159 632 #N canvas 607 346 247 157 QV 0;
r@159 633 #X obj 90 25 inlet;
r@159 634 #X obj 90 47 * 5;
r@159 635 #X obj 90 70 + 5;
r@159 636 #X obj 90 93 outlet;
r@159 637 #X connect 0 0 1 0;
r@159 638 #X connect 1 0 2 0;
r@159 639 #X connect 2 0 3 0;
r@159 640 #X restore 144 128 pd QV;
r@159 641 #X text 49 367 Creates the shaped noise sound equivalent to a narrow
r@159 642 band signal at the drag dipole fundamental frequency.;
r@159 643 #X floatatom 153 276 5 0 0 0 - - -;
r@159 644 #X obj 105 173 *~ 0.5;
r@159 645 #X connect 0 0 4 0;
r@159 646 #X connect 1 0 10 0;
r@159 647 #X connect 2 0 13 0;
r@159 648 #X connect 3 0 8 1;
r@159 649 #X connect 3 0 15 0;
r@159 650 #X connect 4 0 12 1;
r@159 651 #X connect 5 0 8 0;
r@159 652 #X connect 8 0 6 0;
r@159 653 #X connect 8 1 7 0;
r@159 654 #X connect 9 0 12 0;
r@159 655 #X connect 10 0 5 1;
r@159 656 #X connect 11 0 10 1;
r@159 657 #X connect 12 0 16 0;
r@159 658 #X connect 13 0 12 2;
r@159 659 #X connect 16 0 5 0;
r@159 660 #X restore 1086 545 pd dragDiFunNo;
r@159 661 #N canvas 1014 140 491 522 dragDiFun 0;
r@159 662 #X obj 165 125 osc~;
r@159 663 #X obj 165 298 throw~ l;
r@159 664 #X obj 192 275 throw~ r;
r@159 665 #X obj 165 232 *~;
r@159 666 #X obj 165 253 fcpan;
r@159 667 #X obj 165 100 *~ 2;
r@159 668 #X obj 180 209 *~ 1;
r@159 669 #X obj 180 168 *~ 1;
r@159 670 #X obj 165 75 inlet~;
r@159 671 #X obj 180 145 inlet~;
r@159 672 #X obj 192 232 inlet;
r@159 673 #X obj 201 187 inlet;
r@159 674 #X text 60 369 Generates the pure tone associated with the drag dipole
r@159 675 fundamental frequency.;
r@159 676 #X floatatom 212 256 5 0 0 0 - - -;
r@159 677 #X connect 0 0 3 0;
r@159 678 #X connect 3 0 4 0;
r@159 679 #X connect 4 0 1 0;
r@159 680 #X connect 4 1 2 0;
r@159 681 #X connect 5 0 0 0;
r@159 682 #X connect 6 0 3 1;
r@159 683 #X connect 7 0 6 0;
r@159 684 #X connect 8 0 5 0;
r@159 685 #X connect 9 0 7 0;
r@159 686 #X connect 10 0 4 1;
r@159 687 #X connect 10 0 13 0;
r@159 688 #X connect 11 0 6 1;
r@159 689 #X restore 918 547 pd dragDiFun;
r@159 690 #X obj 752 480 r~ \$0-myFreq;
r@159 691 #X obj 779 500 r \$0-thisPan;
r@159 692 #X obj 806 520 r \$0-TuGain;
r@159 693 #X obj 725 460 r~ \$0-liftDiGain;
r@159 694 #N canvas 579 250 654 489 liftDi2ndNo 0;
r@159 695 #X obj 124 84 inlet~;
r@159 696 #X obj 120 198 inlet~;
r@159 697 #X obj 161 105 inlet;
r@159 698 #X obj 132 281 inlet;
r@159 699 #X obj 105 282 *~;
r@159 700 #X obj 105 347 throw~ l;
r@159 701 #X obj 132 324 throw~ r;
r@159 702 #X obj 105 303 fcpan;
r@159 703 #X obj 105 65 noise~;
r@159 704 #X obj 120 262 *~ 1;
r@159 705 #X obj 141 241 r \$0-TuGain;
r@159 706 #X obj 105 151 vcf~ 10;
r@159 707 #N canvas 607 346 247 157 QV 0;
r@159 708 #X obj 90 25 inlet;
r@159 709 #X obj 90 47 * 5;
r@159 710 #X obj 90 70 + 5;
r@159 711 #X obj 90 93 outlet;
r@159 712 #X connect 0 0 1 0;
r@159 713 #X connect 1 0 2 0;
r@159 714 #X connect 2 0 3 0;
r@159 715 #X restore 144 128 pd QV;
r@159 716 #X obj 124 105 *~ 5;
r@159 717 #X text 49 393 Creates the shaped noise sound equivalent to a narrow
r@159 718 band signal at the lift dipole second harmonic frequency.;
r@159 719 #X obj 120 220 *~ 0.1;
r@159 720 #X floatatom 174 303 5 0 0 0 - - -;
r@159 721 #X obj 105 173 *~ 0.5;
r@159 722 #X text 206 209 0.1 Value to match normalised gain of 3rd harmonic
r@159 723 given in Hardin;
r@159 724 #X connect 0 0 13 0;
r@159 725 #X connect 1 0 15 0;
r@159 726 #X connect 2 0 12 0;
r@159 727 #X connect 3 0 7 1;
r@159 728 #X connect 3 0 16 0;
r@159 729 #X connect 4 0 7 0;
r@159 730 #X connect 7 0 5 0;
r@159 731 #X connect 7 1 6 0;
r@159 732 #X connect 8 0 11 0;
r@159 733 #X connect 9 0 4 1;
r@159 734 #X connect 10 0 9 1;
r@159 735 #X connect 12 0 11 2;
r@159 736 #X connect 13 0 11 1;
r@159 737 #X connect 15 0 9 0;
r@159 738 #X connect 17 0 4 0;
r@159 739 #X restore 725 541 pd liftDi2ndNo;
r@159 740 #X obj 617 497 r \$0-thisPan;
r@159 741 #X obj 571 454 r~ \$0-myFreq;
r@159 742 #X obj 640 517 r \$0-TuGain;
r@159 743 #N canvas 899 170 491 522 liftDi2nd 0;
r@159 744 #X obj 41 132 osc~;
r@159 745 #X obj 41 305 throw~ l;
r@159 746 #X obj 68 282 throw~ r;
r@159 747 #X obj 41 239 *~;
r@159 748 #X obj 41 260 fcpan;
r@159 749 #X obj 56 216 *~ 1;
r@159 750 #X obj 41 82 inlet~;
r@159 751 #X obj 56 152 inlet~;
r@159 752 #X obj 68 239 inlet;
r@159 753 #X obj 77 194 inlet;
r@159 754 #X obj 41 107 *~ 5;
r@159 755 #X text 60 369 Generates the pure tone associated with the lift dipole
r@159 756 second harmonic frequency.;
r@159 757 #X obj 56 175 *~ 0.1;
r@159 758 #X floatatom 104 263 5 0 0 0 - - -;
r@159 759 #X text 117 168 0.1 Value to match normalised gain of 3rd harmonic
r@159 760 given in Hardin;
r@159 761 #X connect 0 0 3 0;
r@159 762 #X connect 3 0 4 0;
r@159 763 #X connect 4 0 1 0;
r@159 764 #X connect 4 1 2 0;
r@159 765 #X connect 5 0 3 1;
r@159 766 #X connect 6 0 10 0;
r@159 767 #X connect 7 0 12 0;
r@159 768 #X connect 8 0 4 1;
r@159 769 #X connect 8 0 13 0;
r@159 770 #X connect 9 0 5 1;
r@159 771 #X connect 10 0 0 0;
r@159 772 #X connect 12 0 5 0;
r@159 773 #X restore 571 540 pd liftDi2nd;
r@159 774 #X obj 594 476 r~ \$0-liftDiGain;
r@159 775 #X obj 618 606 r \$0-thisPan;
r@159 776 #X obj 572 563 r~ \$0-myFreq;
r@159 777 #X obj 641 626 r \$0-TuGain;
r@159 778 #X obj 595 585 r~ \$0-liftDiGain;
r@159 779 #N canvas 59 232 491 522 liftDi1st 0;
r@159 780 #X obj 36 136 osc~;
r@159 781 #X obj 36 309 throw~ l;
r@159 782 #X obj 63 286 throw~ r;
r@159 783 #X obj 36 243 *~;
r@159 784 #X obj 36 264 fcpan;
r@159 785 #X obj 51 220 *~ 1;
r@159 786 #X obj 36 86 inlet~;
r@159 787 #X obj 51 156 inlet~;
r@159 788 #X obj 63 243 inlet;
r@159 789 #X obj 72 198 inlet;
r@159 790 #X obj 36 111 *~ 3;
r@159 791 #X text 60 369 Generates the pure tone associated with the lift dipole
r@159 792 first harmonic frequency.;
r@159 793 #X floatatom 105 265 5 0 0 0 - - -;
r@159 794 #X obj 51 179 *~ 0.6;
r@159 795 #X text 114 168 0.6 Value to match normalised gain of 3rd harmonic
r@159 796 given in Hardin;
r@159 797 #X connect 0 0 3 0;
r@159 798 #X connect 3 0 4 0;
r@159 799 #X connect 4 0 1 0;
r@159 800 #X connect 4 1 2 0;
r@159 801 #X connect 5 0 3 1;
r@159 802 #X connect 6 0 10 0;
r@159 803 #X connect 7 0 13 0;
r@159 804 #X connect 8 0 4 1;
r@159 805 #X connect 8 0 12 0;
r@159 806 #X connect 9 0 5 1;
r@159 807 #X connect 10 0 0 0;
r@159 808 #X connect 13 0 5 0;
r@159 809 #X restore 572 649 pd liftDi1st;
r@159 810 #X obj 752 584 r~ \$0-myFreq;
r@159 811 #X obj 779 604 r \$0-thisPan;
r@159 812 #X obj 806 624 r \$0-TuGain;
r@159 813 #X obj 725 564 r~ \$0-liftDiGain;
r@159 814 #N canvas 319 197 578 492 liftDi1stNo 0;
r@159 815 #X obj 124 84 inlet~;
r@159 816 #X obj 120 198 inlet~;
r@159 817 #X obj 161 105 inlet;
r@159 818 #X obj 132 281 inlet;
r@159 819 #X obj 105 282 *~;
r@159 820 #X obj 105 347 throw~ l;
r@159 821 #X obj 132 324 throw~ r;
r@159 822 #X obj 105 303 fcpan;
r@159 823 #X obj 105 65 noise~;
r@159 824 #X obj 120 262 *~ 1;
r@159 825 #X obj 141 241 r \$0-TuGain;
r@159 826 #X obj 105 151 vcf~ 10;
r@159 827 #N canvas 607 346 247 157 QV 0;
r@159 828 #X obj 90 25 inlet;
r@159 829 #X obj 90 47 * 5;
r@159 830 #X obj 90 70 + 5;
r@159 831 #X obj 90 93 outlet;
r@159 832 #X connect 0 0 1 0;
r@159 833 #X connect 1 0 2 0;
r@159 834 #X connect 2 0 3 0;
r@159 835 #X restore 144 128 pd QV;
r@159 836 #X text 49 393 Creates the shaped noise sound equivalent to a narrow
r@159 837 band signal at the lift dipole second harmonic frequency.;
r@159 838 #X obj 124 105 *~ 3;
r@159 839 #X obj 120 220 *~ 0.5;
r@159 840 #X floatatom 163 302 5 0 0 0 - - -;
r@159 841 #X obj 105 173 *~ 0.6;
r@159 842 #X text 167 169 0.6 Value to match normalised gain of 3rd harmonic
r@159 843 given in Hardin;
r@159 844 #X connect 0 0 14 0;
r@159 845 #X connect 1 0 15 0;
r@159 846 #X connect 2 0 12 0;
r@159 847 #X connect 3 0 7 1;
r@159 848 #X connect 3 0 16 0;
r@159 849 #X connect 4 0 7 0;
r@159 850 #X connect 7 0 5 0;
r@159 851 #X connect 7 1 6 0;
r@159 852 #X connect 8 0 11 0;
r@159 853 #X connect 9 0 4 1;
r@159 854 #X connect 10 0 9 1;
r@159 855 #X connect 11 0 17 0;
r@159 856 #X connect 12 0 11 2;
r@159 857 #X connect 14 0 11 1;
r@159 858 #X connect 15 0 9 0;
r@159 859 #X connect 17 0 4 0;
r@159 860 #X restore 725 645 pd liftDi1stNo;
r@159 861 #X obj 618 718 r \$0-thisPan;
r@159 862 #X obj 572 675 r~ \$0-myFreq;
r@159 863 #X obj 641 738 r \$0-TuGain;
r@159 864 #X obj 595 697 r~ \$0-liftDiGain;
r@159 865 #N canvas 444 150 491 522 liftDiFun 0;
r@159 866 #X obj 165 125 osc~;
r@159 867 #X obj 165 298 throw~ l;
r@159 868 #X obj 192 275 throw~ r;
r@159 869 #X obj 165 232 *~;
r@159 870 #X obj 165 253 fcpan;
r@159 871 #X obj 180 209 *~ 1;
r@159 872 #X obj 165 75 inlet~;
r@159 873 #X obj 180 145 inlet~;
r@159 874 #X obj 192 232 inlet;
r@159 875 #X obj 201 187 inlet;
r@159 876 #X obj 165 100 *~ 1;
r@159 877 #X obj 180 168 *~ 1;
r@159 878 #X text 60 369 Generates the pure tone associated with the lift dipole
r@159 879 fundamental frequency.;
r@159 880 #X floatatom 227 254 5 0 0 0 - - -;
r@159 881 #X obj 95 262 s~ fund1;
r@159 882 #X connect 0 0 3 0;
r@159 883 #X connect 3 0 4 0;
r@159 884 #X connect 3 0 14 0;
r@159 885 #X connect 4 0 1 0;
r@159 886 #X connect 4 1 2 0;
r@159 887 #X connect 5 0 3 1;
r@159 888 #X connect 6 0 10 0;
r@159 889 #X connect 7 0 11 0;
r@159 890 #X connect 8 0 4 1;
r@159 891 #X connect 8 0 13 0;
r@159 892 #X connect 9 0 5 1;
r@159 893 #X connect 10 0 0 0;
r@159 894 #X connect 11 0 5 0;
r@159 895 #X restore 572 761 pd liftDiFun;
r@159 896 #X obj 748 693 r~ \$0-myFreq;
r@159 897 #X obj 775 713 r \$0-thisPan;
r@159 898 #X obj 802 733 r \$0-TuGain;
r@159 899 #X obj 721 673 r~ \$0-liftDiGain;
r@159 900 #N canvas 930 320 464 503 liftDiFunNo 0;
r@159 901 #X obj 124 84 inlet~;
r@159 902 #X obj 120 198 inlet~;
r@159 903 #X obj 161 105 inlet;
r@159 904 #X obj 132 281 inlet;
r@159 905 #X obj 105 282 *~;
r@159 906 #X obj 105 347 throw~ l;
r@159 907 #X obj 132 324 throw~ r;
r@159 908 #X obj 105 303 fcpan;
r@159 909 #X obj 105 65 noise~;
r@159 910 #X obj 120 262 *~ 1;
r@159 911 #X obj 141 241 r \$0-TuGain;
r@159 912 #X obj 105 151 vcf~ 10;
r@159 913 #N canvas 607 346 247 157 QV 0;
r@159 914 #X obj 90 25 inlet;
r@159 915 #X obj 90 47 * 5;
r@159 916 #X obj 90 70 + 5;
r@159 917 #X obj 90 93 outlet;
r@159 918 #X connect 0 0 1 0;
r@159 919 #X connect 1 0 2 0;
r@159 920 #X connect 2 0 3 0;
r@159 921 #X restore 144 128 pd QV;
r@159 922 #X obj 124 105 *~ 1;
r@159 923 #X obj 120 220 *~ 1;
r@159 924 #X text 49 393 Creates the shaped noise sound equivalent to a narrow
r@159 925 band signal at the lift dipole fundamental frequency.;
r@159 926 #X floatatom 149 303 5 0 0 0 - - -;
r@159 927 #X obj 105 173 *~ 0.5;
r@159 928 #X connect 0 0 13 0;
r@159 929 #X connect 1 0 14 0;
r@159 930 #X connect 2 0 12 0;
r@159 931 #X connect 3 0 7 1;
r@159 932 #X connect 3 0 16 0;
r@159 933 #X connect 4 0 7 0;
r@159 934 #X connect 7 0 5 0;
r@159 935 #X connect 7 1 6 0;
r@159 936 #X connect 8 0 11 0;
r@159 937 #X connect 9 0 4 1;
r@159 938 #X connect 10 0 9 1;
r@159 939 #X connect 11 0 17 0;
r@159 940 #X connect 12 0 11 2;
r@159 941 #X connect 13 0 11 1;
r@159 942 #X connect 14 0 9 0;
r@159 943 #X connect 17 0 4 0;
r@159 944 #X restore 721 754 pd liftDiFunNo;
r@159 945 #X text 910 698 Patches that generate all the sounds associated with
r@159 946 the drag dipole;
r@159 947 #X text 564 782 Patches that generate all the sounds associated with
r@159 948 the lift dipole;
r@159 949 #X obj 457 72 s \$0-azim;
r@159 950 #X obj 532 72 s \$0-elev;
r@159 951 #X obj 355 252 r \$0-elev;
r@159 952 #X obj 363 273 r \$0-azim;
r@159 953 #X obj 363 496 r \$0-elev;
r@159 954 #X obj 377 514 r \$0-azim;
r@159 955 #N canvas 1021 287 444 428 corrLen 0;
r@159 956 #X obj 103 71 inlet~;
r@159 957 #X obj 88 200 outlet~;
r@159 958 #X obj 88 143 *~;
r@159 959 #X obj 124 93 sig~ -0.245;
r@159 960 #X obj 103 119 pow~;
r@159 961 #X text 234 22 Y = 10^b . X^m;
r@159 962 #X text 235 40 b = 1.536;
r@159 963 #X text 235 56 m = -0.245;
r@159 964 #X text 80 297 Equation of line derived from Norberg 2001;
r@159 965 #X obj 88 169 max~ 1;
r@159 966 #X obj 88 46 sig~ 44.67;
r@159 967 #X connect 0 0 4 0;
r@159 968 #X connect 2 0 9 0;
r@159 969 #X connect 3 0 4 1;
r@159 970 #X connect 4 0 2 1;
r@159 971 #X connect 9 0 1 0;
r@159 972 #X connect 10 0 2 0;
r@159 973 #X restore 1151 76 pd corrLen Calc;
r@159 974 #X obj 1151 53 r~ \$0-myRey;
r@159 975 #X obj 1151 100 s~ \$0-myCor;
r@159 976 #X obj 337 212 r~ \$0-myCor;
r@159 977 #X obj 1100 295 r \$0-contFreq;
r@159 978 #X obj 1065 323 hip~;
r@159 979 #X obj 310 414 r~ \$0-myCor;
r@159 980 #X obj 100 558 outlet;
r@159 981 #X obj 124 203 r myMet;
r@159 982 #X obj 117 355 r myMet;
r@159 983 #X obj 144 509 r myMet;
r@159 984 #X obj 1113 593 r~ \$0-myFreq;
r@159 985 #X obj 1086 573 r~ \$0-dragDiGain;
r@159 986 #X obj 1140 613 r \$0-thisPan;
r@159 987 #X obj 964 613 r \$0-thisPan;
r@159 988 #X obj 918 570 r~ \$0-myFreq;
r@159 989 #X obj 941 592 r~ \$0-dragDiGain;
r@159 990 #X obj 987 633 r \$0-TuGain;
r@159 991 #X obj 1167 633 r \$0-TuGain;
r@159 992 #N canvas 795 179 491 522 dragDi1st 0;
r@159 993 #X obj 165 125 osc~;
r@159 994 #X obj 165 298 throw~ l;
r@159 995 #X obj 192 275 throw~ r;
r@159 996 #X obj 165 232 *~;
r@159 997 #X obj 165 253 fcpan;
r@159 998 #X obj 180 209 *~ 1;
r@159 999 #X obj 165 75 inlet~;
r@159 1000 #X obj 180 145 inlet~;
r@159 1001 #X obj 192 232 inlet;
r@159 1002 #X obj 201 187 inlet;
r@159 1003 #X floatatom 212 256 5 0 0 0 - - -;
r@159 1004 #X obj 165 100 *~ 4;
r@159 1005 #X text 60 369 Generates the pure tone associated with the drag dipole
r@159 1006 1st harmonic frequency.;
r@159 1007 #X obj 180 168 *~ 0.125;
r@159 1008 #X connect 0 0 3 0;
r@159 1009 #X connect 3 0 4 0;
r@159 1010 #X connect 4 0 1 0;
r@159 1011 #X connect 4 1 2 0;
r@159 1012 #X connect 5 0 3 1;
r@159 1013 #X connect 6 0 11 0;
r@159 1014 #X connect 7 0 13 0;
r@159 1015 #X connect 8 0 4 1;
r@159 1016 #X connect 8 0 10 0;
r@159 1017 #X connect 9 0 5 1;
r@159 1018 #X connect 11 0 0 0;
r@159 1019 #X connect 13 0 5 0;
r@159 1020 #X restore 918 656 pd dragDi1st;
r@159 1021 #N canvas 135 196 464 503 dragDi1stNo 0;
r@159 1022 #X obj 124 85 inlet~;
r@159 1023 #X obj 120 196 inlet~;
r@159 1024 #X obj 161 105 inlet;
r@159 1025 #X obj 132 282 inlet;
r@159 1026 #X obj 105 283 *~;
r@159 1027 #X obj 105 348 throw~ l;
r@159 1028 #X obj 132 325 throw~ r;
r@159 1029 #X obj 105 304 fcpan;
r@159 1030 #X obj 105 65 noise~;
r@159 1031 #X obj 120 263 *~ 1;
r@159 1032 #X obj 141 242 r \$0-TuGain;
r@159 1033 #X obj 105 151 vcf~ 10;
r@159 1034 #N canvas 607 346 247 157 QV 0;
r@159 1035 #X obj 90 25 inlet;
r@159 1036 #X obj 90 47 * 5;
r@159 1037 #X obj 90 70 + 5;
r@159 1038 #X obj 90 93 outlet;
r@159 1039 #X connect 0 0 1 0;
r@159 1040 #X connect 1 0 2 0;
r@159 1041 #X connect 2 0 3 0;
r@159 1042 #X restore 144 128 pd QV;
r@159 1043 #X floatatom 153 303 5 0 0 0 - - -;
r@159 1044 #X obj 105 173 *~ 0.5;
r@159 1045 #X obj 124 105 *~ 4;
r@159 1046 #X text 49 394 Creates the shaped noise sound equivalent to a narrow
r@159 1047 band signal at the drag dipole 1st harmonic frequency.;
r@159 1048 #X obj 120 219 *~ 0.0018;
r@159 1049 #X connect 0 0 15 0;
r@159 1050 #X connect 1 0 17 0;
r@159 1051 #X connect 2 0 12 0;
r@159 1052 #X connect 3 0 7 1;
r@159 1053 #X connect 3 0 13 0;
r@159 1054 #X connect 4 0 7 0;
r@159 1055 #X connect 7 0 5 0;
r@159 1056 #X connect 7 1 6 0;
r@159 1057 #X connect 8 0 11 0;
r@159 1058 #X connect 9 0 4 1;
r@159 1059 #X connect 10 0 9 1;
r@159 1060 #X connect 11 0 14 0;
r@159 1061 #X connect 12 0 11 2;
r@159 1062 #X connect 14 0 4 0;
r@159 1063 #X connect 15 0 11 1;
r@159 1064 #X connect 17 0 9 0;
r@159 1065 #X restore 1086 654 pd dragDi1stNo;
r@159 1066 #X obj 1291 649 snapshot~;
r@159 1067 #X obj 1290 623 r myMet;
r@159 1068 #X floatatom 1292 679 0 0 0 0 - - -;
r@159 1069 #X obj 699 309 newStrou;
r@163 1070 #X obj 110 52 inlet;
r@163 1071 #X obj 110 73 sig~;
r@164 1072 #X obj 129 663 snapshot~;
r@164 1073 #X floatatom 129 689 0 0 0 0 - - -;
r@164 1074 #X obj 87 691 outlet;
r@164 1075 #X obj 129 638 r myMet;
r@164 1076 #X obj 32 638 r~ \$0-windSpeed;
r@164 1077 #X text 114 711 Wind Speed;
r@159 1078 #X connect 1 0 3 0;
r@160 1079 #X connect 2 0 24 0;
r@160 1080 #X connect 2 0 178 0;
r@159 1081 #X connect 3 0 2 0;
r@159 1082 #X connect 4 0 18 0;
r@159 1083 #X connect 6 0 4 0;
r@159 1084 #X connect 7 0 12 0;
r@160 1085 #X connect 7 0 56 0;
r@160 1086 #X connect 10 0 39 0;
r@160 1087 #X connect 10 0 61 0;
r@159 1088 #X connect 13 0 3 1;
r@159 1089 #X connect 14 0 4 1;
r@159 1090 #X connect 16 0 6 1;
r@159 1091 #X connect 17 0 1 0;
r@160 1092 #X connect 19 0 114 1;
r@160 1093 #X connect 21 0 22 0;
r@160 1094 #X connect 21 0 93 0;
r@160 1095 #X connect 23 0 21 0;
r@160 1096 #X connect 26 0 28 0;
r@160 1097 #X connect 28 0 29 0;
r@160 1098 #X connect 29 0 27 0;
r@160 1099 #X connect 29 0 70 0;
r@160 1100 #X connect 33 0 103 1;
r@160 1101 #X connect 34 0 35 0;
r@160 1102 #X connect 34 0 161 0;
r@160 1103 #X connect 36 0 103 4;
r@160 1104 #X connect 37 0 40 0;
r@160 1105 #X connect 37 0 148 0;
r@160 1106 #X connect 38 0 41 0;
r@160 1107 #X connect 38 0 149 0;
r@160 1108 #X connect 43 0 42 0;
r@160 1109 #X connect 43 0 5 0;
r@160 1110 #X connect 43 0 72 0;
r@160 1111 #X connect 44 0 43 0;
r@160 1112 #X connect 53 0 54 0;
r@160 1113 #X connect 53 0 60 0;
r@160 1114 #X connect 59 0 57 0;
r@160 1115 #X connect 59 1 58 0;
r@160 1116 #X connect 64 0 103 0;
r@160 1117 #X connect 65 0 103 3;
r@160 1118 #X connect 66 0 103 5;
r@160 1119 #X connect 68 0 114 0;
r@160 1120 #X connect 71 0 89 1;
r@160 1121 #X connect 73 0 34 0;
r@160 1122 #X connect 74 0 20 0;
r@160 1123 #X connect 75 0 59 1;
r@160 1124 #X connect 76 0 79 0;
r@160 1125 #X connect 76 0 82 0;
r@160 1126 #X connect 77 0 80 0;
r@160 1127 #X connect 77 0 83 0;
r@160 1128 #X connect 78 0 81 0;
r@160 1129 #X connect 78 0 84 0;
r@160 1130 #X connect 89 0 159 0;
r@160 1131 #X connect 90 0 114 2;
r@160 1132 #X connect 91 0 89 0;
r@160 1133 #X connect 92 0 91 0;
r@160 1134 #X connect 94 0 99 1;
r@160 1135 #X connect 95 0 99 3;
r@160 1136 #X connect 96 0 99 0;
r@160 1137 #X connect 97 0 99 2;
r@160 1138 #X connect 98 0 99 5;
r@160 1139 #X connect 99 0 63 0;
r@160 1140 #X connect 99 1 62 0;
r@160 1141 #X connect 100 0 115 2;
r@160 1142 #X connect 101 0 115 0;
r@160 1143 #X connect 102 0 115 1;
r@159 1144 #X connect 103 0 67 0;
r@160 1145 #X connect 105 0 106 0;
r@160 1146 #X connect 105 0 107 0;
r@160 1147 #X connect 108 0 110 0;
r@160 1148 #X connect 108 0 112 0;
r@160 1149 #X connect 109 0 108 0;
r@160 1150 #X connect 111 0 115 3;
r@160 1151 #X connect 113 0 114 3;
r@160 1152 #X connect 116 0 120 1;
r@160 1153 #X connect 117 0 120 2;
r@160 1154 #X connect 118 0 120 3;
r@160 1155 #X connect 119 0 120 0;
r@159 1156 #X connect 121 0 124 2;
r@160 1157 #X connect 122 0 124 0;
r@160 1158 #X connect 123 0 124 3;
r@160 1159 #X connect 125 0 124 1;
r@160 1160 #X connect 126 0 130 2;
r@160 1161 #X connect 127 0 130 0;
r@160 1162 #X connect 128 0 130 3;
r@160 1163 #X connect 129 0 130 1;
r@160 1164 #X connect 131 0 135 1;
r@160 1165 #X connect 132 0 135 2;
r@160 1166 #X connect 133 0 135 3;
r@160 1167 #X connect 134 0 135 0;
r@160 1168 #X connect 136 0 140 2;
r@160 1169 #X connect 137 0 140 0;
r@160 1170 #X connect 138 0 140 3;
r@160 1171 #X connect 139 0 140 1;
r@160 1172 #X connect 141 0 145 1;
r@160 1173 #X connect 142 0 145 2;
r@160 1174 #X connect 143 0 145 3;
r@160 1175 #X connect 144 0 145 0;
r@160 1176 #X connect 150 0 99 6;
r@160 1177 #X connect 151 0 99 7;
r@160 1178 #X connect 152 0 103 6;
r@160 1179 #X connect 153 0 103 7;
r@160 1180 #X connect 154 0 156 0;
r@160 1181 #X connect 155 0 154 0;
r@160 1182 #X connect 157 0 99 4;
r@160 1183 #X connect 158 0 159 1;
r@160 1184 #X connect 159 0 20 1;
r@160 1185 #X connect 160 0 103 2;
r@160 1186 #X connect 162 0 21 0;
r@160 1187 #X connect 163 0 43 0;
r@160 1188 #X connect 164 0 34 0;
r@160 1189 #X connect 165 0 174 1;
r@160 1190 #X connect 166 0 174 0;
r@160 1191 #X connect 167 0 174 2;
r@160 1192 #X connect 168 0 173 2;
r@160 1193 #X connect 169 0 173 0;
r@160 1194 #X connect 170 0 173 1;
r@160 1195 #X connect 171 0 173 3;
r@160 1196 #X connect 172 0 174 3;
r@160 1197 #X connect 175 0 177 0;
r@160 1198 #X connect 176 0 175 0;
r@160 1199 #X connect 178 0 69 0;
r@160 1200 #X connect 178 0 6 0;
r@163 1201 #X connect 179 0 180 0;
r@163 1202 #X connect 180 0 15 0;
r@164 1203 #X connect 181 0 182 0;
r@164 1204 #X connect 181 0 183 0;
r@164 1205 #X connect 184 0 181 0;
r@164 1206 #X connect 185 0 181 0;