r@171: #N canvas 0 22 1370 784 10;
r@171: #X text 587 178 Mass Density of Air;
r@171: #X obj 709 179 *~ 1.225;
r@171: #X obj 709 254 /~ 1.81e-05;
r@171: #X obj 709 209 *~ 1;
r@171: #X obj 709 372 /~ 1;
r@171: #X obj 709 348 *~;
r@171: #X obj 223 63 inlet;
r@171: #X text 742 298 Reynolds Number;
r@171: #X text 589 365 Strouhal Number;
r@171: #X obj 388 61 inlet;
r@171: #X text 739 234 Viscosity;
r@171: #X obj 230 86 s \$0-diameter;
r@171: #X obj 770 178 r \$0-diameter;
r@171: #X obj 777 353 r \$0-diameter;
r@171: #X obj 120 85 s~ \$0-windSpeed;
r@171: #X obj 776 330 r~ \$0-windSpeed;
r@171: #X obj 709 151 r~ \$0-windSpeed;
r@171: #X obj 709 396 s~ \$0-myFreq;
r@171: #X obj 120 65 vd~ varwind;
r@171: #X obj 1052 334 *~;
r@171: #X obj 722 278 s~ \$0-myRey;
r@171: #X obj 636 57 inlet;
r@171: #X floatatom 581 126 8 0 0 0 - - -;
r@171: #X text 673 415 Calculates the frequency;
r@171: #X text 674 427 based on the physics of;
r@171: #X obj 307 404 r~ \$0-windSpeed;
r@171: #X obj 347 466 r \$0-diameter;
r@171: #X obj 460 60 inlet;
r@171: #X obj 534 59 inlet;
r@171: #X floatatom 388 108 5 0 0 0 - - -;
r@171: #X floatatom 460 106 5 0 0 0 - - -;
r@171: #X floatatom 535 103 5 0 0 0 - - -;
r@171: #X text 293 367 Calculates the gain of the dipole source;
r@171: #X text 459 37 Azimuth;
r@171: #X text 641 39 Pan;
r@171: #X text 533 41 Elevation;
r@171: #X text 384 42 Distance;
r@171: #X text 218 42 Diameter;
r@171: #X text 133 41 Wind Speed;
r@171: #X obj 315 60 inlet;
r@171: #X floatatom 315 104 5 0 0 0 - - -;
r@171: #X text 311 41 Length;
r@171: #X obj 709 319 newStrou;
r@171: #X floatatom 223 107 5 0 0 0 - - -;
r@171: #X obj 1052 403 throw~ l;
r@171: #X obj 1079 381 throw~ r;
r@171: #X obj 1052 359 fcpan;
r@171: #X obj 325 83 s \$0-leng;
r@171: #X obj 393 84 s \$0-dist;
r@171: #X obj 400 331 s~ \$0-dragDiGain;
r@171: #X obj 313 352 s~ \$0-liftDiGain;
r@171: #X obj 294 385 r~ \$0-str;
r@171: #X obj 333 444 r \$0-leng;
r@171: #X obj 360 487 r \$0-dist;
r@171: #X obj 294 580 s~ \$0-liftNoiseGain;
r@171: #X obj 609 350 s~ \$0-str;
r@171: #X obj 636 126 s \$0-thisPan;
r@171: #X obj 1088 258 r \$0-contFreq;
r@171: #X obj 1052 178 r~ \$0-liftNoiseGain;
r@171: #X obj 1079 334 r \$0-thisPan;
r@171: #X obj 731 66 inlet;
r@171: #X obj 803 65 inlet;
r@171: #X obj 877 64 inlet;
r@171: #X floatatom 731 113 5 0 0 0 - - -;
r@171: #X floatatom 803 111 5 0 0 0 - - -;
r@171: #X floatatom 878 108 5 0 0 0 - - -;
r@171: #X obj 736 89 s \$0-rotaX;
r@171: #X obj 810 87 s \$0-rotaY;
r@171: #X obj 885 87 s \$0-rotaZ;
r@171: #X text 727 47 X Rotation;
r@171: #X text 797 46 Y Rotation;
r@171: #X text 872 45 Z Rotation;
r@171: #X text 1033 152 Noise spectrum calculation;
r@171: #X obj 1067 282 hip~;
r@171: #X obj 1067 237 rpole~ 0.99;
r@171: #X obj 321 163 r~ \$0-windSpeed;
r@171: #X obj 339 202 r \$0-diameter;
r@171: #X obj 313 142 r~ \$0-str;
r@171: #X obj 331 183 r \$0-leng;
r@171: #X obj 356 241 r \$0-dist;
r@171: #N canvas 205 143 1238 721 GoldfreqGain 0;
r@171: #N canvas 759 125 286 294 pow6 0;
r@171: #X obj 47 67 *~;
r@171: #X obj 76 67 *~;
r@171: #X obj 76 35 inlet~;
r@171: #X obj 47 163 outlet~;
r@171: #X obj 136 184 snapshot~;
r@171: #X obj 136 159 metro 100;
r@171: #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171: 1;
r@171: #X floatatom 136 211 10 0 0 0 - - -;
r@171: #X obj 216 210 outlet;
r@171: #X obj 136 111 loadbang;
r@171: #X obj 106 67 *~;
r@171: #X obj 47 93 *~;
r@171: #X obj 47 118 *~;
r@171: #X obj 372 202 *;
r@171: #X obj 372 228 *;
r@171: #X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@171: -1 -1 0 1;
r@171: #X floatatom 374 288 10 0 0 0 - - -;
r@171: #X obj 303 20 t f b;
r@171: #X floatatom 455 55 5 0 0 0 - - -;
r@171: #X obj 372 260 *;
r@171: #X obj 400 202 *;
r@171: #X msg 303 -4 6;
r@171: #X obj 434 201 *;
r@171: #X connect 0 0 11 0;
r@171: #X connect 1 0 11 1;
r@171: #X connect 2 0 0 0;
r@171: #X connect 2 0 0 1;
r@171: #X connect 2 0 1 1;
r@171: #X connect 2 0 10 0;
r@171: #X connect 2 0 10 1;
r@171: #X connect 2 0 1 0;
r@171: #X connect 4 0 7 0;
r@171: #X connect 4 0 8 0;
r@171: #X connect 5 0 4 0;
r@171: #X connect 6 0 5 0;
r@171: #X connect 9 0 6 0;
r@171: #X connect 10 0 12 1;
r@171: #X connect 11 0 12 0;
r@171: #X connect 12 0 4 0;
r@171: #X connect 12 0 3 0;
r@171: #X connect 13 0 14 0;
r@171: #X connect 14 0 19 0;
r@171: #X connect 15 0 13 0;
r@171: #X connect 15 0 13 1;
r@171: #X connect 15 0 18 0;
r@171: #X connect 15 0 20 0;
r@171: #X connect 15 0 20 1;
r@171: #X connect 17 0 13 0;
r@171: #X connect 17 0 13 1;
r@171: #X connect 17 0 20 0;
r@171: #X connect 17 0 20 1;
r@171: #X connect 17 0 22 0;
r@171: #X connect 17 0 22 1;
r@171: #X connect 17 1 13 0;
r@171: #X connect 17 1 20 0;
r@171: #X connect 17 1 22 0;
r@171: #X connect 19 0 16 0;
r@171: #X connect 20 0 14 1;
r@171: #X connect 21 0 17 0;
r@171: #X connect 22 0 19 1;
r@171: #X restore 219 42 pd pow6;
r@171: #X obj 173 32 *~;
r@171: #X obj 219 68 *~;
r@171: #X obj 404 137 *;
r@171: #X text 533 2 Distance;
r@171: #X floatatom 513 62 5 0 0 0 - - -;
r@171: #X text 724 595 Calculates Drag Dipole gain;
r@171: #X text 48 647 Calculates Lift Dipole gain;
r@171: #X obj 173 -8 inlet~;
r@171: #X obj 219 -35 inlet~;
r@171: #X text 328 62 Diameter;
r@171: #X obj 291 61 inlet;
r@171: #X obj 513 18 inlet;
r@171: #X obj 219 667 outlet~;
r@171: #X obj 758 570 outlet~;
r@171: #X obj 240 159 inlet;
r@171: #X text 278 154 Length;
r@171: #X obj 219 185 *~ 1;
r@171: #X obj 234 416 sig~;
r@171: #X obj 322 438 sig~;
r@171: #X obj 234 468 /~ 360;
r@171: #X obj 234 517 *~;
r@171: #X obj 219 540 *~;
r@171: #X obj 814 19 inlet;
r@171: #X obj 913 21 inlet;
r@171: #X obj 1009 24 inlet;
r@171: #X floatatom 814 66 5 0 0 0 - - -;
r@171: #X floatatom 913 67 5 0 0 0 - - -;
r@171: #X floatatom 1010 68 5 0 0 0 - - -;
r@171: #X text 810 0 X Rotation;
r@171: #X text 907 2 Y Rotation;
r@171: #X text 1004 5 Z Rotation;
r@171: #X obj 819 42 s \$0-this_rotaX;
r@171: #X obj 920 43 s \$0-thisrotaY;
r@171: #X obj 1017 47 s \$0-thisrotaZ;
r@171: #X text 74 -8 Strouhal number;
r@171: #X text 269 -35 Wind speed;
r@171: #X text 266 103 Corr Length;
r@171: #X obj 219 225 *~ 2.50663;
r@171: #X obj 219 130 *~ 1.225;
r@171: #X text 93 126 Mass Density of Air;
r@171: #X text 147 227 Sqrt(2xpi);
r@171: #X obj 322 466 /~ 360;
r@171: #X obj 322 512 *~;
r@171: #X obj 322 488 cos~;
r@171: #X obj 219 579 *~;
r@171: #X obj 404 167 * 4.05513e+07;
r@171: #X text 355 186 Speed of Sound to power 3;
r@171: #X obj 404 220 * 32;
r@171: #X obj 553 189 r SIG_MACH;
r@171: #X obj 518 189 cos~;
r@171: #X obj 518 212 *~;
r@171: #X obj 466 213 sig~ 1;
r@171: #X obj 503 243 -~;
r@171: #N canvas 1150 227 286 289 pow4 0;
r@171: #X obj 47 67 *~;
r@171: #X obj 76 67 *~;
r@171: #X obj 76 35 inlet~;
r@171: #X obj 47 163 outlet~;
r@171: #X obj 136 184 snapshot~;
r@171: #X obj 136 159 metro 100;
r@171: #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171: 1;
r@171: #X floatatom 136 211 10 0 0 0 - - -;
r@171: #X obj 216 210 outlet;
r@171: #X obj 136 111 loadbang;
r@171: #X obj 47 93 *~;
r@171: #X connect 0 0 10 0;
r@171: #X connect 1 0 10 1;
r@171: #X connect 2 0 0 0;
r@171: #X connect 2 0 0 1;
r@171: #X connect 2 0 1 1;
r@171: #X connect 2 0 1 0;
r@171: #X connect 4 0 7 0;
r@171: #X connect 4 0 8 0;
r@171: #X connect 5 0 4 0;
r@171: #X connect 6 0 5 0;
r@171: #X connect 9 0 6 0;
r@171: #X connect 10 0 3 0;
r@171: #X connect 10 0 4 0;
r@171: #X restore 503 266 pd pow4;
r@171: #X obj 404 248 sig~;
r@171: #X obj 404 298 *~;
r@171: #X obj 219 346 /~;
r@171: #X obj 133 287 s~ \$0-aGainG;
r@171: #X obj 872 246 r~ \$0-aGainG;
r@171: #X obj 758 512 *~ 0.1;
r@171: #X obj 723 340 +~ 90;
r@171: #X obj 723 363 /~ 360;
r@171: #X obj 723 409 *~;
r@171: #X obj 723 385 sin~;
r@171: #X obj 773 359 /~ 360;
r@171: #X obj 773 405 *~;
r@171: #X obj 773 381 cos~;
r@171: #X obj 758 436 *~;
r@171: #X text 709 1 Azimuth;
r@171: #X text 608 3 Elevation;
r@171: #X obj 611 21 inlet;
r@171: #X obj 713 19 inlet;
r@171: #X floatatom 611 68 5 0 0 0 - - -;
r@171: #X floatatom 713 68 5 0 0 0 - - -;
r@171: #X obj 322 417 r \$0-this_azim;
r@171: #X obj 234 394 r \$0-this_elev;
r@171: #X obj 773 314 r \$0-this_azim;
r@171: #X obj 723 256 r \$0-this_elev;
r@171: #X obj 723 280 sig~;
r@171: #X obj 773 336 sig~;
r@171: #X obj 518 141 sig~;
r@171: #X obj 557 139 r~ plotElev;
r@171: #X obj 245 439 r~ plotElev;
r@171: #X obj 139 628 s~ plotOPF;
r@171: #X obj 676 574 s~ plotOPD;
r@171: #X obj 616 44 s \$0-this_elev;
r@171: #X obj 720 44 s \$0-this_azim;
r@171: #X obj 518 117 r \$0-this_elev;
r@171: #X obj 520 40 s \$0-thisDist;
r@171: #X obj 887 268 r \$0-thisDist;
r@171: #X obj 404 111 r \$0-thisDist;
r@171: #X obj 887 292 *;
r@171: #X obj 887 317 * 4.05513e+07;
r@171: #X text 892 335 Speed of Sound to power 3;
r@171: #X obj 887 370 * 32;
r@171: #X obj 887 398 sig~;
r@171: #X obj 872 423 /~;
r@171: #X text 588 167 Remember - Goldstein moves cylinder;
r@171: #X obj 757 289 r~ plotElev;
r@171: #X floatatom 359 169 5 0 0 0 - - -;
r@171: #X obj 518 170 /~ 360;
r@171: #X obj 758 475 *~;
r@171: #X obj 424 40 s~ \$0-thisColL;
r@171: #X obj 270 42 r~ \$0-thisColL;
r@171: #X obj 270 82 *~ 1;
r@171: #X obj 219 102 *~;
r@171: #X obj 424 17 inlet~;
r@171: #X obj 219 11 sig~;
r@171: #X floatatom 265 13 5 0 0 0 - - -;
r@171: #X obj 234 494 sin~;
r@171: #X floatatom 357 -7 5 0 0 0 - - -;
r@171: #X obj 219 -11 average~ 4096;
r@171: #N canvas 801 264 426 401 aveTimeCal 0;
r@171: #X text 224 38 Elevation;
r@171: #X obj 226 56 r \$0-elev;
r@171: #X floatatom 240 81 5 0 0 0 - - -;
r@171: #X obj 205 17 r~ MY_MACH;
r@171: #X obj 226 135 cos;
r@171: #X obj 226 107 * 0.01745;
r@171: #X obj 205 158 *~ 1;
r@171: #X obj 161 131 sig~ 1;
r@171: #X obj 161 185 -~;
r@171: #X obj 121 104 r~ \$0-myFreq;
r@171: #X obj 106 82 sig~ 6.28318;
r@171: #X obj 106 128 /~;
r@171: #X obj 106 219 *~;
r@171: #X obj 36 204 r myMet;
r@171: #X obj 106 242 snapshot~;
r@171: #X floatatom 44 283 0 0 0 0 - - -;
r@171: #X obj 106 263 * 44100;
r@171: #X obj 106 292 outlet;
r@171: #X connect 1 0 2 0;
r@171: #X connect 1 0 5 0;
r@171: #X connect 3 0 6 0;
r@171: #X connect 4 0 6 1;
r@171: #X connect 5 0 4 0;
r@171: #X connect 6 0 8 1;
r@171: #X connect 7 0 8 0;
r@171: #X connect 8 0 12 1;
r@171: #X connect 9 0 11 1;
r@171: #X connect 10 0 11 0;
r@171: #X connect 11 0 12 0;
r@171: #X connect 12 0 14 0;
r@171: #X connect 13 0 14 0;
r@171: #X connect 14 0 16 0;
r@171: #X connect 16 0 15 0;
r@171: #X connect 16 0 17 0;
r@171: #X restore 348 -33 pd aveTimeCal;
r@171: #X connect 0 0 2 0;
r@171: #X connect 1 0 2 1;
r@171: #X connect 2 0 106 0;
r@171: #X connect 3 0 46 0;
r@171: #X connect 3 0 100 0;
r@171: #X connect 8 0 1 0;
r@171: #X connect 8 0 1 1;
r@171: #X connect 9 0 112 0;
r@171: #X connect 11 0 105 1;
r@171: #X connect 12 0 5 0;
r@171: #X connect 12 0 89 0;
r@171: #X connect 15 0 17 1;
r@171: #X connect 17 0 38 0;
r@171: #X connect 18 0 20 0;
r@171: #X connect 19 0 42 0;
r@171: #X connect 20 0 110 0;
r@171: #X connect 21 0 22 1;
r@171: #X connect 22 0 45 0;
r@171: #X connect 23 0 26 0;
r@171: #X connect 23 0 32 0;
r@171: #X connect 24 0 27 0;
r@171: #X connect 24 0 33 0;
r@171: #X connect 25 0 28 0;
r@171: #X connect 25 0 34 0;
r@171: #X connect 38 0 57 0;
r@171: #X connect 38 0 58 0;
r@171: #X connect 39 0 17 0;
r@171: #X connect 42 0 44 0;
r@171: #X connect 43 0 45 1;
r@171: #X connect 44 0 43 0;
r@171: #X connect 44 0 43 1;
r@171: #X connect 45 0 84 0;
r@171: #X connect 45 0 13 0;
r@171: #X connect 46 0 48 0;
r@171: #X connect 48 0 55 0;
r@171: #X connect 49 0 51 1;
r@171: #X connect 50 0 51 0;
r@171: #X connect 51 0 53 1;
r@171: #X connect 52 0 53 0;
r@171: #X connect 53 0 54 0;
r@171: #X connect 54 0 56 1;
r@171: #X connect 55 0 56 0;
r@171: #X connect 56 0 57 1;
r@171: #X connect 57 0 22 0;
r@171: #X connect 59 0 97 0;
r@171: #X connect 60 0 85 0;
r@171: #X connect 60 0 14 0;
r@171: #X connect 61 0 62 0;
r@171: #X connect 62 0 64 0;
r@171: #X connect 63 0 68 0;
r@171: #X connect 64 0 63 0;
r@171: #X connect 64 0 63 1;
r@171: #X connect 65 0 67 0;
r@171: #X connect 66 0 68 1;
r@171: #X connect 67 0 66 0;
r@171: #X connect 67 0 66 1;
r@171: #X connect 68 0 102 0;
r@171: #X connect 71 0 73 0;
r@171: #X connect 71 0 86 0;
r@171: #X connect 72 0 74 0;
r@171: #X connect 72 0 87 0;
r@171: #X connect 75 0 19 0;
r@171: #X connect 76 0 18 0;
r@171: #X connect 77 0 80 0;
r@171: #X connect 78 0 79 0;
r@171: #X connect 79 0 61 0;
r@171: #X connect 80 0 65 0;
r@171: #X connect 81 0 101 0;
r@171: #X connect 88 0 81 0;
r@171: #X connect 90 0 92 0;
r@171: #X connect 90 0 92 1;
r@171: #X connect 91 0 3 0;
r@171: #X connect 91 0 3 1;
r@171: #X connect 92 0 93 0;
r@171: #X connect 93 0 95 0;
r@171: #X connect 95 0 96 0;
r@171: #X connect 96 0 97 1;
r@171: #X connect 97 0 102 1;
r@171: #X connect 101 0 50 0;
r@171: #X connect 102 0 60 0;
r@171: #X connect 104 0 105 0;
r@171: #X connect 105 0 106 1;
r@171: #X connect 106 0 39 0;
r@171: #X connect 107 0 103 0;
r@171: #X connect 108 0 0 0;
r@171: #X connect 110 0 21 0;
r@171: #X connect 110 0 21 1;
r@171: #X connect 112 0 108 0;
r@171: #X connect 112 0 109 0;
r@171: #X connect 113 0 112 0;
r@171: #X connect 113 0 111 0;
r@171: #X restore 313 307 pd GoldfreqGain;
r@171: #N canvas 272 58 1006 797 GoldnoiseGain 0;
r@171: #X text -21029 240 Mass Density of Air \, squared;
r@171: #X obj -20777 456 *;
r@171: #X text -20777 409 Distance;
r@171: #N canvas 759 125 235 275 pow8 0;
r@171: #X obj 47 67 *~;
r@171: #X obj 76 67 *~;
r@171: #X obj 76 35 inlet~;
r@171: #X obj 47 147 outlet~;
r@171: #X obj 128 146 snapshot~;
r@171: #X obj 128 121 metro 100;
r@171: #X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171: 1;
r@171: #X floatatom 128 173 10 0 0 0 - - -;
r@171: #X obj 128 73 loadbang;
r@171: #X obj 47 93 *~;
r@171: #X obj 47 121 *~;
r@171: #X connect 0 0 9 0;
r@171: #X connect 1 0 9 1;
r@171: #X connect 2 0 0 0;
r@171: #X connect 2 0 0 1;
r@171: #X connect 2 0 1 1;
r@171: #X connect 2 0 1 0;
r@171: #X connect 4 0 7 0;
r@171: #X connect 5 0 4 0;
r@171: #X connect 6 0 5 0;
r@171: #X connect 8 0 6 0;
r@171: #X connect 9 0 10 0;
r@171: #X connect 9 0 10 1;
r@171: #X connect 10 0 3 0;
r@171: #X connect 10 0 4 0;
r@171: #X restore -20846 69 pd pow8;
r@171: #X obj -20846 4 inlet~;
r@171: #X obj -20801 123 inlet;
r@171: #X obj -20777 430 inlet;
r@171: #X obj -20846 710 outlet~;
r@171: #X text -20785 63 Gain proportional to windspeed to power 8 for spectrum
r@171: ;
r@171: #X text -20765 124 Diameter;
r@171: #X obj -20754 633 loadbang;
r@171: #X obj -20754 654 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@171: 1 1;
r@171: #X obj -20754 672 metro 10;
r@171: #X obj -20754 693 snapshot~;
r@171: #X floatatom -20754 713 8 0 0 0 - - -;
r@171: #X text -20798 -5 Wind speed;
r@171: #X text -21027 643 Calculates wake gain;
r@171: #X text -20399 16 Azimuth;
r@171: #X obj -20398 33 inlet;
r@171: #X obj -20398 56 sig~;
r@171: #X obj -20342 33 inlet;
r@171: #X obj -20342 56 sig~;
r@171: #X text -20343 16 Elevation;
r@171: #X floatatom -20304 57 5 0 0 0 - - -;
r@171: #X floatatom -20434 58 5 0 0 0 - - -;
r@171: #X obj -20398 96 s~ \$0-this_azim;
r@171: #X obj -20342 77 s~ \$0-this_elev;
r@171: #X obj -20846 243 *~ 1.225;
r@171: #X obj -20511 100 r~ \$0-this_azim;
r@171: #N canvas 759 125 250 309 pow5 0;
r@171: #X obj 47 67 *~;
r@171: #X obj 76 35 inlet~;
r@171: #X obj 47 170 outlet~;
r@171: #X obj 136 173 snapshot~;
r@171: #X obj 136 148 metro 100;
r@171: #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171: 1;
r@171: #X floatatom 136 200 10 0 0 0 - - -;
r@171: #X obj 136 100 loadbang;
r@171: #X obj 47 87 *~;
r@171: #X obj 47 118 *~;
r@171: #X connect 0 0 8 0;
r@171: #X connect 0 0 8 1;
r@171: #X connect 1 0 0 0;
r@171: #X connect 1 0 0 1;
r@171: #X connect 1 0 9 1;
r@171: #X connect 3 0 6 0;
r@171: #X connect 4 0 3 0;
r@171: #X connect 5 0 4 0;
r@171: #X connect 7 0 5 0;
r@171: #X connect 8 0 9 0;
r@171: #X connect 9 0 2 0;
r@171: #X connect 9 0 3 0;
r@171: #X restore -20680 508 pd pow5;
r@171: #X obj -20680 484 sig~ 343.56;
r@171: #N canvas 875 261 250 309 pow5 0;
r@171: #X obj 47 67 *~;
r@171: #X obj 76 35 inlet~;
r@171: #X obj 47 170 outlet~;
r@171: #X obj 136 173 snapshot~;
r@171: #X obj 136 148 metro 100;
r@171: #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171: 1;
r@171: #X floatatom 136 200 10 0 0 0 - - -;
r@171: #X obj 136 100 loadbang;
r@171: #X obj 47 87 *~;
r@171: #X obj 47 118 *~;
r@171: #X connect 0 0 8 0;
r@171: #X connect 0 0 8 1;
r@171: #X connect 1 0 0 0;
r@171: #X connect 1 0 0 1;
r@171: #X connect 1 0 9 1;
r@171: #X connect 3 0 6 0;
r@171: #X connect 4 0 3 0;
r@171: #X connect 5 0 4 0;
r@171: #X connect 7 0 5 0;
r@171: #X connect 8 0 9 0;
r@171: #X connect 9 0 2 0;
r@171: #X connect 9 0 3 0;
r@171: #X restore -20645 434 pd pow5;
r@171: #X obj -20599 284 /~ 360;
r@171: #X obj -20599 311 cos~;
r@171: #X obj -20584 333 r SIG_MACH;
r@171: #X obj -20584 357 sig~;
r@171: #X obj -20599 382 *~;
r@171: #X obj -20645 381 sig~ 1;
r@171: #X obj -20645 408 -~;
r@171: #X obj -20680 355 sig~ 3.1416;
r@171: #X obj -20680 380 *~;
r@171: #X obj -20695 332 sig~ 16;
r@171: #X obj -20695 404 *~;
r@171: #X obj -20695 462 *~;
r@171: #X obj -20695 535 *~;
r@171: #X obj -20777 483 sig~;
r@171: #X obj -20777 567 *~;
r@171: #X obj -20846 611 /~;
r@171: #X obj -20509 248 r~ plotElev;
r@171: #X obj -20913 710 s~ plotOPN;
r@171: #X obj -20599 262 -~;
r@171: #X text -20547 269 Angle goes with the flow in Goldstein hence 90 -
r@171: theta so that theta is same angle as dipole angles.;
r@171: #X obj -20599 217 sig~ 180;
r@171: #X obj -20536 221 r~ \$0-this_elev;
r@171: #X obj -20916 56 inlet~;
r@171: #X obj -20916 83 *~;
r@171: #X obj -20822 90 inlet~;
r@171: #X obj -20822 148 *~ 1;
r@171: #X obj -20846 170 *~;
r@171: #X obj -20846 194 *~;
r@171: #X obj -20821 273 inlet;
r@171: #X obj -20847 308 *~ 1;
r@171: #X obj -20848 343 *~ 2.50663;
r@171: #X text -20776 91 Corrolation Length;
r@171: #X text -20781 272 Length;
r@171: #X obj -20846 26 average~ 64;
r@171: #X obj -20846 48 sig~;
r@171: #X floatatom -20708 20 5 0 0 0 - - -;
r@171: #N canvas 801 264 426 401 aveTimeCal 0;
r@171: #X text 224 38 Elevation;
r@171: #X obj 226 56 r \$0-elev;
r@171: #X floatatom 240 81 5 0 0 0 - - -;
r@171: #X obj 205 17 r~ MY_MACH;
r@171: #X obj 226 135 cos;
r@171: #X obj 226 107 * 0.01745;
r@171: #X obj 205 158 *~ 1;
r@171: #X obj 161 131 sig~ 1;
r@171: #X obj 161 185 -~;
r@171: #X obj 121 104 r~ \$0-myFreq;
r@171: #X obj 106 82 sig~ 6.28318;
r@171: #X obj 106 128 /~;
r@171: #X obj 106 219 *~;
r@171: #X obj 36 204 r myMet;
r@171: #X obj 106 242 snapshot~;
r@171: #X floatatom 44 283 0 0 0 0 - - -;
r@171: #X obj 106 263 * 44100;
r@171: #X obj 106 292 outlet;
r@171: #X connect 1 0 2 0;
r@171: #X connect 1 0 5 0;
r@171: #X connect 3 0 6 0;
r@171: #X connect 4 0 6 1;
r@171: #X connect 5 0 4 0;
r@171: #X connect 6 0 8 1;
r@171: #X connect 7 0 8 0;
r@171: #X connect 8 0 12 1;
r@171: #X connect 9 0 11 1;
r@171: #X connect 10 0 11 0;
r@171: #X connect 11 0 12 0;
r@171: #X connect 12 0 14 0;
r@171: #X connect 13 0 14 0;
r@171: #X connect 14 0 16 0;
r@171: #X connect 16 0 15 0;
r@171: #X connect 16 0 17 0;
r@171: #X restore -20717 -6 pd aveTimeCal;
r@171: #X obj -20846 643 *~ 0.5;
r@171: #X connect 1 0 45 0;
r@171: #X connect 3 0 58 0;
r@171: #X connect 4 0 65 0;
r@171: #X connect 5 0 57 1;
r@171: #X connect 6 0 1 0;
r@171: #X connect 6 0 1 1;
r@171: #X connect 10 0 11 0;
r@171: #X connect 11 0 12 0;
r@171: #X connect 12 0 13 0;
r@171: #X connect 13 0 14 0;
r@171: #X connect 18 0 19 0;
r@171: #X connect 18 0 24 0;
r@171: #X connect 19 0 25 0;
r@171: #X connect 20 0 21 0;
r@171: #X connect 20 0 23 0;
r@171: #X connect 21 0 26 0;
r@171: #X connect 27 0 61 0;
r@171: #X connect 29 0 44 1;
r@171: #X connect 30 0 29 0;
r@171: #X connect 31 0 43 1;
r@171: #X connect 32 0 33 0;
r@171: #X connect 33 0 36 0;
r@171: #X connect 34 0 35 0;
r@171: #X connect 35 0 36 1;
r@171: #X connect 36 0 38 1;
r@171: #X connect 37 0 38 0;
r@171: #X connect 38 0 31 0;
r@171: #X connect 39 0 40 0;
r@171: #X connect 39 0 40 1;
r@171: #X connect 40 0 42 1;
r@171: #X connect 41 0 42 0;
r@171: #X connect 42 0 43 0;
r@171: #X connect 43 0 44 0;
r@171: #X connect 44 0 46 1;
r@171: #X connect 45 0 46 0;
r@171: #X connect 46 0 47 1;
r@171: #X connect 47 0 69 0;
r@171: #X connect 50 0 32 0;
r@171: #X connect 52 0 50 0;
r@171: #X connect 53 0 50 1;
r@171: #X connect 54 0 55 0;
r@171: #X connect 54 0 55 1;
r@171: #X connect 55 0 58 1;
r@171: #X connect 56 0 57 0;
r@171: #X connect 57 0 59 1;
r@171: #X connect 58 0 59 0;
r@171: #X connect 59 0 27 0;
r@171: #X connect 60 0 61 1;
r@171: #X connect 61 0 62 0;
r@171: #X connect 62 0 47 0;
r@171: #X connect 65 0 66 0;
r@171: #X connect 66 0 3 0;
r@171: #X connect 68 0 67 0;
r@171: #X connect 68 0 65 0;
r@171: #X connect 69 0 49 0;
r@171: #X connect 69 0 7 0;
r@171: #X connect 69 0 13 0;
r@171: #X restore 294 552 pd GoldnoiseGain;
r@171: #X text 285 599 Calculates the gain of the wake;
r@171: #X obj 467 82 s \$0-azim;
r@171: #X obj 542 82 s \$0-elev;
r@171: #X obj 365 262 r \$0-elev;
r@171: #X obj 373 283 r \$0-azim;
r@171: #X obj 373 506 r \$0-elev;
r@171: #X obj 387 524 r \$0-azim;
r@171: #N canvas 1021 287 444 428 corrLen 0;
r@171: #X obj 103 71 inlet~;
r@171: #X obj 88 200 outlet~;
r@171: #X obj 88 143 *~;
r@171: #X obj 124 93 sig~ -0.245;
r@171: #X obj 103 119 pow~;
r@171: #X text 234 22 Y = 10^b . X^m;
r@171: #X text 235 40 b = 1.536;
r@171: #X text 235 56 m = -0.245;
r@171: #X text 80 297 Equation of line derived from Norberg 2001;
r@171: #X obj 88 169 max~ 1;
r@171: #X obj 88 46 sig~ 44.67;
r@171: #X obj 229 190 r myMet;
r@171: #X obj 229 211 snapshot~;
r@171: #X floatatom 230 236 5 0 0 0 - - -;
r@171: #X connect 0 0 4 0;
r@171: #X connect 2 0 9 0;
r@171: #X connect 3 0 4 1;
r@171: #X connect 4 0 2 1;
r@171: #X connect 9 0 1 0;
r@171: #X connect 9 0 12 0;
r@171: #X connect 10 0 2 0;
r@171: #X connect 11 0 12 0;
r@171: #X connect 12 0 13 0;
r@171: #X restore 956 85 pd corrLen Calc;
r@171: #X obj 956 62 r~ \$0-myRey;
r@171: #X obj 956 109 s~ \$0-myCor;
r@171: #X obj 347 222 r~ \$0-myCor;
r@171: #X obj 1102 281 r \$0-contFreq;
r@171: #X obj 1067 309 hip~;
r@171: #X obj 320 424 r~ \$0-myCor;
r@171: #X obj 636 81 max 0.01;
r@171: #X obj 636 104 min 0.99;
r@171: #N canvas 93 119 976 679 Dipoles 0;
r@171: #X obj 76 62 r~ \$0-myFreq;
r@171: #X obj 91 107 r~ \$0-liftDiGain;
r@171: #X obj 76 88 osc~;
r@171: #X obj 76 261 throw~ l;
r@171: #X obj 103 238 throw~ r;
r@171: #X obj 76 195 *~;
r@171: #X obj 76 216 fcpan;
r@171: #X obj 103 195 r \$0-thisPan;
r@171: #X obj 353 69 r~ \$0-myFreq;
r@171: #X obj 368 154 r~ \$0-liftDiGain;
r@171: #X obj 353 114 osc~;
r@171: #X obj 353 268 throw~ l;
r@171: #X obj 380 245 throw~ r;
r@171: #X obj 353 202 *~;
r@171: #X obj 353 223 fcpan;
r@171: #X obj 380 202 r \$0-thisPan;
r@171: #X obj 368 176 *~ 0.6;
r@171: #X obj 621 62 r~ \$0-myFreq;
r@171: #X obj 636 147 r~ \$0-liftDiGain;
r@171: #X obj 621 107 osc~;
r@171: #X obj 621 261 throw~ l;
r@171: #X obj 648 238 throw~ r;
r@171: #X obj 621 195 *~;
r@171: #X obj 621 216 fcpan;
r@171: #X obj 648 195 r \$0-thisPan;
r@171: #X obj 621 86 *~ 5;
r@171: #X obj 353 93 *~ 3;
r@171: #X obj 72 345 r~ \$0-myFreq;
r@171: #X obj 72 399 osc~;
r@171: #X obj 72 544 throw~ l;
r@171: #X obj 99 521 throw~ r;
r@171: #X obj 72 478 *~;
r@171: #X obj 72 499 fcpan;
r@171: #X obj 99 478 r \$0-thisPan;
r@171: #X obj 87 418 r~ \$0-dragDiGain;
r@171: #X obj 72 373 *~ 2;
r@171: #X obj 351 344 r~ \$0-myFreq;
r@171: #X obj 351 398 osc~;
r@171: #X obj 351 543 throw~ l;
r@171: #X obj 378 520 throw~ r;
r@171: #X obj 351 477 *~;
r@171: #X obj 351 498 fcpan;
r@171: #X obj 378 477 r \$0-thisPan;
r@171: #X obj 366 417 r~ \$0-dragDiGain;
r@171: #X obj 351 372 *~ 4;
r@171: #X obj 366 446 *~ 0.125;
r@171: #X obj 210 199 *~;
r@171: #X obj 210 264 throw~ l;
r@171: #X obj 237 241 throw~ r;
r@171: #X obj 210 220 fcpan;
r@171: #X obj 210 130 *~ 0.5;
r@171: #X obj 210 108 vcf~ 3;
r@171: #X obj 237 198 r \$0-thisPan;
r@171: #X obj 210 81 r~ \$0-thisNoise;
r@171: #X obj 480 192 *~;
r@171: #X obj 480 257 throw~ l;
r@171: #X obj 507 234 throw~ r;
r@171: #X obj 480 213 fcpan;
r@171: #X obj 480 138 *~ 0.5;
r@171: #X obj 480 116 vcf~ 3;
r@171: #X obj 507 191 r \$0-thisPan;
r@171: #X obj 480 89 r~ \$0-thisNoise;
r@171: #X obj 750 183 *~;
r@171: #X obj 750 248 throw~ l;
r@171: #X obj 777 225 throw~ r;
r@171: #X obj 750 204 fcpan;
r@171: #X obj 750 129 *~ 0.5;
r@171: #X obj 750 107 vcf~ 3;
r@171: #X obj 777 182 r \$0-thisPan;
r@171: #X obj 750 80 r~ \$0-thisNoise;
r@171: #X obj 636 169 *~ 0.1;
r@171: #X obj 217 464 *~;
r@171: #X obj 217 529 throw~ l;
r@171: #X obj 244 506 throw~ r;
r@171: #X obj 217 485 fcpan;
r@171: #X obj 217 410 *~ 0.5;
r@171: #X obj 217 388 vcf~ 3;
r@171: #X obj 244 463 r \$0-thisPan;
r@171: #X obj 217 361 r~ \$0-thisNoise;
r@171: #X obj 491 462 *~;
r@171: #X obj 491 527 throw~ l;
r@171: #X obj 518 504 throw~ r;
r@171: #X obj 491 483 fcpan;
r@171: #X obj 491 408 *~ 0.5;
r@171: #X obj 491 386 vcf~ 3;
r@171: #X obj 518 461 r \$0-thisPan;
r@171: #X obj 491 359 r~ \$0-thisNoise;
r@171: #X text 273 27 Generates the sound associated with the lift dipole.
r@171: ;
r@171: #X text 175 312 Generates the sound associated with the drag dipole.
r@171: ;
r@171: #X connect 0 0 2 0;
r@171: #X connect 0 0 51 1;
r@171: #X connect 1 0 5 1;
r@171: #X connect 1 0 46 1;
r@171: #X connect 2 0 5 0;
r@171: #X connect 5 0 6 0;
r@171: #X connect 6 0 3 0;
r@171: #X connect 6 1 4 0;
r@171: #X connect 7 0 6 1;
r@171: #X connect 8 0 26 0;
r@171: #X connect 9 0 16 0;
r@171: #X connect 10 0 13 0;
r@171: #X connect 13 0 14 0;
r@171: #X connect 14 0 11 0;
r@171: #X connect 14 1 12 0;
r@171: #X connect 15 0 14 1;
r@171: #X connect 16 0 13 1;
r@171: #X connect 16 0 54 1;
r@171: #X connect 17 0 25 0;
r@171: #X connect 18 0 70 0;
r@171: #X connect 19 0 22 0;
r@171: #X connect 22 0 23 0;
r@171: #X connect 23 0 20 0;
r@171: #X connect 23 1 21 0;
r@171: #X connect 24 0 23 1;
r@171: #X connect 25 0 19 0;
r@171: #X connect 25 0 67 1;
r@171: #X connect 26 0 10 0;
r@171: #X connect 26 0 59 1;
r@171: #X connect 27 0 35 0;
r@171: #X connect 28 0 31 0;
r@171: #X connect 31 0 32 0;
r@171: #X connect 32 0 29 0;
r@171: #X connect 32 1 30 0;
r@171: #X connect 33 0 32 1;
r@171: #X connect 34 0 31 1;
r@171: #X connect 34 0 71 1;
r@171: #X connect 35 0 28 0;
r@171: #X connect 35 0 76 1;
r@171: #X connect 36 0 44 0;
r@171: #X connect 37 0 40 0;
r@171: #X connect 40 0 41 0;
r@171: #X connect 41 0 38 0;
r@171: #X connect 41 1 39 0;
r@171: #X connect 42 0 41 1;
r@171: #X connect 43 0 45 0;
r@171: #X connect 44 0 37 0;
r@171: #X connect 44 0 84 1;
r@171: #X connect 45 0 40 1;
r@171: #X connect 45 0 79 1;
r@171: #X connect 46 0 49 0;
r@171: #X connect 49 0 47 0;
r@171: #X connect 49 1 48 0;
r@171: #X connect 50 0 46 0;
r@171: #X connect 51 0 50 0;
r@171: #X connect 52 0 49 1;
r@171: #X connect 53 0 51 0;
r@171: #X connect 54 0 57 0;
r@171: #X connect 57 0 55 0;
r@171: #X connect 57 1 56 0;
r@171: #X connect 58 0 54 0;
r@171: #X connect 59 0 58 0;
r@171: #X connect 60 0 57 1;
r@171: #X connect 61 0 59 0;
r@171: #X connect 62 0 65 0;
r@171: #X connect 65 0 63 0;
r@171: #X connect 65 1 64 0;
r@171: #X connect 66 0 62 0;
r@171: #X connect 67 0 66 0;
r@171: #X connect 68 0 65 1;
r@171: #X connect 69 0 67 0;
r@171: #X connect 70 0 22 1;
r@171: #X connect 70 0 62 1;
r@171: #X connect 71 0 74 0;
r@171: #X connect 74 0 72 0;
r@171: #X connect 74 1 73 0;
r@171: #X connect 75 0 71 0;
r@171: #X connect 76 0 75 0;
r@171: #X connect 77 0 74 1;
r@171: #X connect 78 0 76 0;
r@171: #X connect 79 0 82 0;
r@171: #X connect 82 0 80 0;
r@171: #X connect 82 1 81 0;
r@171: #X connect 83 0 79 0;
r@171: #X connect 84 0 83 0;
r@171: #X connect 85 0 82 1;
r@171: #X connect 86 0 84 0;
r@171: #X restore 649 504 pd Dipoles;
r@171: #X obj 1088 69 noise~;
r@171: #X obj 1088 92 s~ \$0-thisNoise;
r@171: #X obj 1067 214 r~ \$0-thisNoise;
r@171: #X text 674 440 the object and environment;
r@171: #X connect 1 0 3 0;
r@171: #X connect 2 0 20 0;
r@171: #X connect 2 0 42 0;
r@171: #X connect 3 0 2 0;
r@171: #X connect 4 0 17 0;
r@171: #X connect 5 0 4 0;
r@171: #X connect 6 0 11 0;
r@171: #X connect 6 0 43 0;
r@171: #X connect 9 0 29 0;
r@171: #X connect 9 0 48 0;
r@171: #X connect 12 0 3 1;
r@171: #X connect 13 0 4 1;
r@171: #X connect 15 0 5 1;
r@171: #X connect 16 0 1 0;
r@171: #X connect 18 0 14 0;
r@171: #X connect 19 0 46 0;
r@171: #X connect 21 0 96 0;
r@171: #X connect 25 0 81 1;
r@171: #X connect 26 0 81 4;
r@171: #X connect 27 0 30 0;
r@171: #X connect 27 0 83 0;
r@171: #X connect 28 0 31 0;
r@171: #X connect 28 0 84 0;
r@171: #X connect 39 0 40 0;
r@171: #X connect 39 0 47 0;
r@171: #X connect 42 0 55 0;
r@171: #X connect 42 0 5 0;
r@171: #X connect 46 0 44 0;
r@171: #X connect 46 1 45 0;
r@171: #X connect 51 0 81 0;
r@171: #X connect 52 0 81 3;
r@171: #X connect 53 0 81 5;
r@171: #X connect 57 0 73 1;
r@171: #X connect 58 0 19 0;
r@171: #X connect 59 0 46 1;
r@171: #X connect 60 0 63 0;
r@171: #X connect 60 0 66 0;
r@171: #X connect 61 0 64 0;
r@171: #X connect 61 0 67 0;
r@171: #X connect 62 0 65 0;
r@171: #X connect 62 0 68 0;
r@171: #X connect 73 0 94 0;
r@171: #X connect 74 0 73 0;
r@171: #X connect 75 0 80 1;
r@171: #X connect 76 0 80 3;
r@171: #X connect 77 0 80 0;
r@171: #X connect 78 0 80 2;
r@171: #X connect 79 0 80 5;
r@171: #X connect 80 0 50 0;
r@171: #X connect 80 1 49 0;
r@171: #X connect 81 0 54 0;
r@171: #X connect 85 0 80 6;
r@171: #X connect 86 0 80 7;
r@171: #X connect 87 0 81 6;
r@171: #X connect 88 0 81 7;
r@171: #X connect 89 0 91 0;
r@171: #X connect 90 0 89 0;
r@171: #X connect 92 0 80 4;
r@171: #X connect 93 0 94 1;
r@171: #X connect 94 0 19 1;
r@171: #X connect 95 0 81 2;
r@171: #X connect 96 0 97 0;
r@171: #X connect 97 0 22 0;
r@171: #X connect 97 0 56 0;
r@171: #X connect 99 0 100 0;
r@171: #X connect 101 0 74 0;