# HG changeset patch
# User Rod Selfridge <r.selfridge@qmul.ac.uk>
# Date 1453833648 0
# Node ID 807981af6f93402572727a2eb2fa9828e71ae0d4
# Parent  d64d965ec30a34f65a78b87872864ba372eed41d
Start of newSword

diff -r d64d965ec30a -r 807981af6f93 newSword/fcpan.pd
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/newSword/fcpan.pd	Tue Jan 26 18:40:48 2016 +0000
@@ -0,0 +1,25 @@
+#N canvas 316 389 443 292 10;
+#X obj 133 131 *~;
+#X obj -4 123 *~;
+#X obj 149 85 cos~;
+#X obj 149 48 -~ 0.25;
+#X obj 149 26 *~ 0.25;
+#X obj 12 101 cos~;
+#X obj 12 77 -~ 0.25;
+#X obj -4 183 outlet~ l;
+#X obj 133 191 outlet~ r;
+#X obj -4 -4 inlet~;
+#X obj 149 4 sig~;
+#X obj 149 -28 inlet;
+#X connect 0 0 8 0;
+#X connect 1 0 7 0;
+#X connect 2 0 0 1;
+#X connect 3 0 2 0;
+#X connect 3 0 6 0;
+#X connect 4 0 3 0;
+#X connect 5 0 1 1;
+#X connect 6 0 5 0;
+#X connect 9 0 1 0;
+#X connect 9 0 0 0;
+#X connect 10 0 4 0;
+#X connect 11 0 10 0;
diff -r d64d965ec30a -r 807981af6f93 newSword/freqCalcCyl3No_D2Mach.pd
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/newSword/freqCalcCyl3No_D2Mach.pd	Tue Jan 26 18:40:48 2016 +0000
@@ -0,0 +1,1205 @@
+#N canvas 0 23 1374 822 10;
+#X text 577 168 Mass Density of Air;
+#X obj 699 169 *~ 1.225;
+#X obj 699 244 /~ 1.81e-05;
+#X obj 699 199 *~ 1;
+#X obj 699 362 /~ 1;
+#X floatatom 202 406 0 0 0 0 - - -;
+#X obj 699 338 *~;
+#X obj 213 53 inlet;
+#X text 732 288 Reynolds Number;
+#X text 579 355 Strouhal Number;
+#X obj 378 51 inlet;
+#X text 729 224 Viscosity;
+#X obj 220 76 s \$0-diameter;
+#X obj 760 168 r \$0-diameter;
+#X obj 767 343 r \$0-diameter;
+#X obj 130 115 s~ \$0-windSpeed;
+#X obj 766 320 r~ \$0-windSpeed;
+#X obj 699 141 r~ \$0-windSpeed;
+#X obj 699 386 s~ \$0-myFreq;
+#X obj 1113 484 r~ \$0-myFreq;
+#X obj 130 73 sig~;
+#X obj 130 95 vd~ varwind;
+#X obj 130 49 inlet;
+#X obj 1050 348 *~;
+#X obj 124 228 snapshot~;
+#X floatatom 124 254 0 0 0 0 - - -;
+#X obj 38 203 r~ \$0-myRey;
+#X obj 712 268 s~ \$0-myRey;
+#X text 109 276 Reynolds Number;
+#X obj 626 47 inlet;
+#X floatatom 571 116 8 0 0 0 - - -;
+#X obj 626 71 max 0.1;
+#X obj 626 94 min 0.9;
+#X text 663 405 Calculates the frequency;
+#X text 664 417 based on the physics of;
+#X text 664 430 the object and environment;
+#X obj 297 394 r~ \$0-windSpeed;
+#X obj 144 531 snapshot~;
+#X floatatom 144 557 0 0 0 0 - - -;
+#X obj 337 456 r \$0-diameter;
+#X obj 450 50 inlet;
+#X obj 524 49 inlet;
+#X floatatom 378 98 5 0 0 0 - - -;
+#X floatatom 450 96 5 0 0 0 - - -;
+#X floatatom 525 93 5 0 0 0 - - -;
+#X obj 73 406 outlet;
+#X obj 117 379 snapshot~;
+#X obj 38 356 r~ \$0-myFreq;
+#X text 123 583 Strouhal Number;
+#X text 283 357 Calculates the gain of the dipole source;
+#X text 449 27 Azimuth;
+#X text 631 29 Pan;
+#X text 523 31 Elevation;
+#X text 374 32 Distance;
+#X text 208 32 Diameter;
+#X text 123 31 Wind Speed;
+#X obj 305 50 inlet;
+#X floatatom 305 94 5 0 0 0 - - -;
+#X text 301 31 Length;
+#X floatatom 73 89 5 0 0 0 - - -;
+#X floatatom 213 97 5 0 0 0 - - -;
+#X obj 1050 417 throw~ l;
+#X obj 1077 395 throw~ r;
+#X obj 1050 373 fcpan;
+#X obj 315 73 s \$0-leng;
+#X obj 383 74 s \$0-dist;
+#X obj 390 321 s~ \$0-dragDiGain;
+#X obj 303 342 s~ \$0-liftDiGain;
+#X obj 284 375 r~ \$0-str;
+#X obj 323 434 r \$0-leng;
+#X obj 350 477 r \$0-dist;
+#X obj 284 570 s~ \$0-liftNoiseGain;
+#X obj 1086 464 r~ \$0-dragDiGain;
+#X obj 599 340 s~ \$0-str;
+#X obj 626 116 s \$0-thisPan;
+#X obj 1086 272 r \$0-contFreq;
+#X obj 117 406 s \$0-contFreq;
+#X obj 59 506 r~ \$0-str;
+#X obj 1050 192 r~ \$0-liftNoiseGain;
+#X obj 1077 348 r \$0-thisPan;
+#X obj 721 56 inlet;
+#X obj 793 55 inlet;
+#X obj 867 54 inlet;
+#X floatatom 721 103 5 0 0 0 - - -;
+#X floatatom 793 101 5 0 0 0 - - -;
+#X floatatom 868 98 5 0 0 0 - - -;
+#X obj 726 79 s \$0-rotaX;
+#X obj 800 77 s \$0-rotaY;
+#X obj 875 77 s \$0-rotaZ;
+#X text 717 37 X Rotation;
+#X text 787 36 Y Rotation;
+#X text 862 35 Z Rotation;
+#X text 1031 166 Noise spectrum calculation;
+#X obj 1065 296 hip~;
+#X obj 1140 504 r \$0-thisPan;
+#X obj 1065 251 rpole~ 0.99;
+#X obj 1065 225 noise~;
+#X obj 82 256 outlet;
+#X obj 311 153 r~ \$0-windSpeed;
+#X obj 329 192 r \$0-diameter;
+#X obj 303 132 r~ \$0-str;
+#X obj 321 173 r \$0-leng;
+#X obj 346 231 r \$0-dist;
+#N canvas 203 82 1238 721 GoldfreqGain 1;
+#N canvas 759 125 286 294 pow6 0;
+#X obj 47 67 *~;
+#X obj 76 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 163 outlet~;
+#X obj 136 184 snapshot~;
+#X obj 136 159 metro 100;
+#X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 136 211 10 0 0 0 - - -;
+#X obj 216 210 outlet;
+#X obj 136 111 loadbang;
+#X obj 106 67 *~;
+#X obj 47 93 *~;
+#X obj 47 118 *~;
+#X obj 372 202 *;
+#X obj 372 228 *;
+#X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X floatatom 374 288 10 0 0 0 - - -;
+#X obj 303 20 t f b;
+#X floatatom 455 55 5 0 0 0 - - -;
+#X obj 372 260 *;
+#X obj 400 202 *;
+#X msg 303 -4 6;
+#X obj 434 201 *;
+#X connect 0 0 11 0;
+#X connect 1 0 11 1;
+#X connect 2 0 0 0;
+#X connect 2 0 0 1;
+#X connect 2 0 1 1;
+#X connect 2 0 10 0;
+#X connect 2 0 10 1;
+#X connect 2 0 1 0;
+#X connect 4 0 7 0;
+#X connect 4 0 8 0;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 9 0 6 0;
+#X connect 10 0 12 1;
+#X connect 11 0 12 0;
+#X connect 12 0 4 0;
+#X connect 12 0 3 0;
+#X connect 13 0 14 0;
+#X connect 14 0 19 0;
+#X connect 15 0 13 0;
+#X connect 15 0 13 1;
+#X connect 15 0 18 0;
+#X connect 15 0 20 0;
+#X connect 15 0 20 1;
+#X connect 17 0 13 0;
+#X connect 17 0 13 1;
+#X connect 17 0 20 0;
+#X connect 17 0 20 1;
+#X connect 17 0 22 0;
+#X connect 17 0 22 1;
+#X connect 17 1 13 0;
+#X connect 17 1 20 0;
+#X connect 17 1 22 0;
+#X connect 19 0 16 0;
+#X connect 20 0 14 1;
+#X connect 21 0 17 0;
+#X connect 22 0 19 1;
+#X restore 219 42 pd pow6;
+#X obj 173 32 *~;
+#X obj 219 68 *~;
+#X obj 404 137 *;
+#X text 533 2 Distance;
+#X floatatom 513 62 5 0 0 0 - - -;
+#X text 724 595 Calculates Drag Dipole gain;
+#X text 48 647 Calculates Lift Dipole gain;
+#X obj 173 -8 inlet~;
+#X obj 219 -35 inlet~;
+#X text 328 62 Diameter;
+#X obj 291 61 inlet;
+#X obj 513 18 inlet;
+#X obj 219 667 outlet~;
+#X obj 758 570 outlet~;
+#X obj 240 159 inlet;
+#X text 278 154 Length;
+#X obj 219 185 *~ 1;
+#X obj 234 416 sig~;
+#X obj 322 438 sig~;
+#X obj 234 468 /~ 360;
+#X obj 234 517 *~;
+#X obj 219 540 *~;
+#X obj 814 19 inlet;
+#X obj 913 21 inlet;
+#X obj 1009 24 inlet;
+#X floatatom 814 66 5 0 0 0 - - -;
+#X floatatom 913 67 5 0 0 0 - - -;
+#X floatatom 1010 68 5 0 0 0 - - -;
+#X text 810 0 X Rotation;
+#X text 907 2 Y Rotation;
+#X text 1004 5 Z Rotation;
+#X obj 819 42 s \$0-this_rotaX;
+#X obj 920 43 s \$0-thisrotaY;
+#X obj 1017 47 s \$0-thisrotaZ;
+#X text 74 -8 Strouhal number;
+#X text 269 -35 Wind speed;
+#X text 266 103 Corr Length;
+#X obj 219 225 *~ 2.50663;
+#X obj 219 130 *~ 1.225;
+#X text 93 126 Mass Density of Air;
+#X text 147 227 Sqrt(2xpi);
+#X obj 322 466 /~ 360;
+#X obj 322 512 *~;
+#X obj 322 488 cos~;
+#X obj 219 579 *~;
+#X obj 404 167 * 4.05513e+07;
+#X text 355 186 Speed of Sound to power 3;
+#X obj 404 220 * 32;
+#X obj 553 189 r SIG_MACH;
+#X obj 518 189 cos~;
+#X obj 518 212 *~;
+#X obj 466 213 sig~ 1;
+#X obj 503 243 -~;
+#N canvas 1150 227 286 289 pow4 0;
+#X obj 47 67 *~;
+#X obj 76 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 163 outlet~;
+#X obj 136 184 snapshot~;
+#X obj 136 159 metro 100;
+#X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 136 211 10 0 0 0 - - -;
+#X obj 216 210 outlet;
+#X obj 136 111 loadbang;
+#X obj 47 93 *~;
+#X connect 0 0 10 0;
+#X connect 1 0 10 1;
+#X connect 2 0 0 0;
+#X connect 2 0 0 1;
+#X connect 2 0 1 1;
+#X connect 2 0 1 0;
+#X connect 4 0 7 0;
+#X connect 4 0 8 0;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 9 0 6 0;
+#X connect 10 0 3 0;
+#X connect 10 0 4 0;
+#X restore 503 266 pd pow4;
+#X obj 404 248 sig~;
+#X obj 404 298 *~;
+#X obj 219 346 /~;
+#X obj 133 287 s~ \$0-aGainG;
+#X obj 872 246 r~ \$0-aGainG;
+#X obj 758 512 *~ 0.1;
+#X obj 723 340 +~ 90;
+#X obj 723 363 /~ 360;
+#X obj 723 409 *~;
+#X obj 723 385 sin~;
+#X obj 773 359 /~ 360;
+#X obj 773 405 *~;
+#X obj 773 381 cos~;
+#X obj 758 436 *~;
+#X text 709 1 Azimuth;
+#X text 608 3 Elevation;
+#X obj 611 21 inlet;
+#X obj 713 19 inlet;
+#X floatatom 611 68 5 0 0 0 - - -;
+#X floatatom 713 68 5 0 0 0 - - -;
+#X obj 322 417 r \$0-this_azim;
+#X obj 234 394 r \$0-this_elev;
+#X obj 773 314 r \$0-this_azim;
+#X obj 723 256 r \$0-this_elev;
+#X obj 723 280 sig~;
+#X obj 773 336 sig~;
+#X obj 518 141 sig~;
+#X obj 557 139 r~ plotElev;
+#X obj 245 439 r~ plotElev;
+#X obj 139 628 s~ plotOPF;
+#X obj 676 574 s~ plotOPD;
+#X obj 616 44 s \$0-this_elev;
+#X obj 720 44 s \$0-this_azim;
+#X obj 518 117 r \$0-this_elev;
+#X obj 520 40 s \$0-thisDist;
+#X obj 887 268 r \$0-thisDist;
+#X obj 404 111 r \$0-thisDist;
+#X obj 887 292 *;
+#X obj 887 317 * 4.05513e+07;
+#X text 892 335 Speed of Sound to power 3;
+#X obj 887 370 * 32;
+#X obj 887 398 sig~;
+#X obj 872 423 /~;
+#X text 588 167 Remember - Goldstein moves cylinder;
+#X obj 757 289 r~ plotElev;
+#X floatatom 359 169 5 0 0 0 - - -;
+#X obj 518 170 /~ 360;
+#X obj 758 475 *~;
+#X obj 424 40 s~ \$0-thisColL;
+#X obj 270 42 r~ \$0-thisColL;
+#X obj 270 82 *~ 1;
+#X obj 219 102 *~;
+#X obj 424 17 inlet~;
+#X obj 219 11 sig~;
+#X floatatom 265 13 5 0 0 0 - - -;
+#X obj 219 -11 average~ 512;
+#X obj 234 494 sin~;
+#X floatatom 351 12 5 0 0 0 - - -;
+#X connect 0 0 2 0;
+#X connect 1 0 2 1;
+#X connect 2 0 106 0;
+#X connect 3 0 46 0;
+#X connect 3 0 100 0;
+#X connect 8 0 1 0;
+#X connect 8 0 1 1;
+#X connect 9 0 110 0;
+#X connect 11 0 105 1;
+#X connect 12 0 5 0;
+#X connect 12 0 89 0;
+#X connect 15 0 17 1;
+#X connect 17 0 38 0;
+#X connect 18 0 20 0;
+#X connect 19 0 42 0;
+#X connect 20 0 111 0;
+#X connect 21 0 22 1;
+#X connect 22 0 45 0;
+#X connect 23 0 26 0;
+#X connect 23 0 32 0;
+#X connect 24 0 27 0;
+#X connect 24 0 33 0;
+#X connect 25 0 28 0;
+#X connect 25 0 34 0;
+#X connect 38 0 57 0;
+#X connect 38 0 58 0;
+#X connect 39 0 17 0;
+#X connect 42 0 44 0;
+#X connect 43 0 45 1;
+#X connect 44 0 43 0;
+#X connect 44 0 43 1;
+#X connect 45 0 84 0;
+#X connect 45 0 13 0;
+#X connect 46 0 48 0;
+#X connect 48 0 55 0;
+#X connect 49 0 51 1;
+#X connect 50 0 51 0;
+#X connect 51 0 53 1;
+#X connect 52 0 53 0;
+#X connect 53 0 54 0;
+#X connect 54 0 56 1;
+#X connect 55 0 56 0;
+#X connect 56 0 57 1;
+#X connect 57 0 22 0;
+#X connect 59 0 97 0;
+#X connect 60 0 85 0;
+#X connect 60 0 14 0;
+#X connect 61 0 62 0;
+#X connect 62 0 64 0;
+#X connect 63 0 68 0;
+#X connect 64 0 63 0;
+#X connect 64 0 63 1;
+#X connect 65 0 67 0;
+#X connect 66 0 68 1;
+#X connect 67 0 66 0;
+#X connect 67 0 66 1;
+#X connect 68 0 102 0;
+#X connect 71 0 73 0;
+#X connect 71 0 86 0;
+#X connect 72 0 74 0;
+#X connect 72 0 87 0;
+#X connect 75 0 19 0;
+#X connect 76 0 18 0;
+#X connect 77 0 80 0;
+#X connect 78 0 79 0;
+#X connect 79 0 61 0;
+#X connect 80 0 65 0;
+#X connect 81 0 101 0;
+#X connect 88 0 81 0;
+#X connect 90 0 92 0;
+#X connect 90 0 92 1;
+#X connect 91 0 3 0;
+#X connect 91 0 3 1;
+#X connect 92 0 93 0;
+#X connect 93 0 95 0;
+#X connect 95 0 96 0;
+#X connect 96 0 97 1;
+#X connect 97 0 102 1;
+#X connect 101 0 50 0;
+#X connect 102 0 60 0;
+#X connect 104 0 105 0;
+#X connect 105 0 106 1;
+#X connect 106 0 39 0;
+#X connect 107 0 103 0;
+#X connect 108 0 0 0;
+#X connect 110 0 108 0;
+#X connect 110 0 109 0;
+#X connect 111 0 21 0;
+#X connect 111 0 21 1;
+#X restore 303 297 pd GoldfreqGain;
+#X obj 964 504 r \$0-thisPan;
+#X obj 918 461 r~ \$0-myFreq;
+#X obj 941 483 r~ \$0-dragDiGain;
+#N canvas 272 58 1006 797 GoldnoiseGain 0;
+#X text -21029 240 Mass Density of Air \, squared;
+#X obj -20777 456 *;
+#X text -20777 409 Distance;
+#N canvas 759 125 235 275 pow8 0;
+#X obj 47 67 *~;
+#X obj 76 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 147 outlet~;
+#X obj 128 146 snapshot~;
+#X obj 128 121 metro 100;
+#X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 128 173 10 0 0 0 - - -;
+#X obj 128 73 loadbang;
+#X obj 47 93 *~;
+#X obj 47 121 *~;
+#X connect 0 0 9 0;
+#X connect 1 0 9 1;
+#X connect 2 0 0 0;
+#X connect 2 0 0 1;
+#X connect 2 0 1 1;
+#X connect 2 0 1 0;
+#X connect 4 0 7 0;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 8 0 6 0;
+#X connect 9 0 10 0;
+#X connect 9 0 10 1;
+#X connect 10 0 3 0;
+#X connect 10 0 4 0;
+#X restore -20846 69 pd pow8;
+#X obj -20846 4 inlet~;
+#X obj -20801 123 inlet;
+#X obj -20777 430 inlet;
+#X obj -20846 710 outlet~;
+#X text -20785 63 Gain proportional to windspeed to power 8 for spectrum
+;
+#X text -20765 124 Diameter;
+#X obj -20754 633 loadbang;
+#X obj -20754 654 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
+1 1;
+#X obj -20754 672 metro 10;
+#X obj -20754 693 snapshot~;
+#X floatatom -20754 713 8 0 0 0 - - -;
+#X text -20798 -5 Wind speed;
+#X text -21027 643 Calculates wake gain;
+#X text -20399 16 Azimuth;
+#X obj -20398 33 inlet;
+#X obj -20398 56 sig~;
+#X obj -20342 33 inlet;
+#X obj -20342 56 sig~;
+#X text -20343 16 Elevation;
+#X floatatom -20304 57 5 0 0 0 - - -;
+#X floatatom -20434 58 5 0 0 0 - - -;
+#X obj -20398 96 s~ \$0-this_azim;
+#X obj -20342 77 s~ \$0-this_elev;
+#X obj -20846 243 *~ 1.225;
+#X obj -20511 100 r~ \$0-this_azim;
+#N canvas 759 125 250 309 pow5 0;
+#X obj 47 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 170 outlet~;
+#X obj 136 173 snapshot~;
+#X obj 136 148 metro 100;
+#X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 136 200 10 0 0 0 - - -;
+#X obj 136 100 loadbang;
+#X obj 47 87 *~;
+#X obj 47 118 *~;
+#X connect 0 0 8 0;
+#X connect 0 0 8 1;
+#X connect 1 0 0 0;
+#X connect 1 0 0 1;
+#X connect 1 0 9 1;
+#X connect 3 0 6 0;
+#X connect 4 0 3 0;
+#X connect 5 0 4 0;
+#X connect 7 0 5 0;
+#X connect 8 0 9 0;
+#X connect 9 0 2 0;
+#X connect 9 0 3 0;
+#X restore -20680 508 pd pow5;
+#X obj -20680 484 sig~ 343.56;
+#N canvas 875 261 250 309 pow5 0;
+#X obj 47 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 170 outlet~;
+#X obj 136 173 snapshot~;
+#X obj 136 148 metro 100;
+#X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 136 200 10 0 0 0 - - -;
+#X obj 136 100 loadbang;
+#X obj 47 87 *~;
+#X obj 47 118 *~;
+#X connect 0 0 8 0;
+#X connect 0 0 8 1;
+#X connect 1 0 0 0;
+#X connect 1 0 0 1;
+#X connect 1 0 9 1;
+#X connect 3 0 6 0;
+#X connect 4 0 3 0;
+#X connect 5 0 4 0;
+#X connect 7 0 5 0;
+#X connect 8 0 9 0;
+#X connect 9 0 2 0;
+#X connect 9 0 3 0;
+#X restore -20645 434 pd pow5;
+#X obj -20599 284 /~ 360;
+#X obj -20599 311 cos~;
+#X obj -20584 333 r SIG_MACH;
+#X obj -20584 357 sig~;
+#X obj -20599 382 *~;
+#X obj -20645 381 sig~ 1;
+#X obj -20645 408 -~;
+#X obj -20680 355 sig~ 3.1416;
+#X obj -20680 380 *~;
+#X obj -20695 332 sig~ 16;
+#X obj -20695 404 *~;
+#X obj -20695 462 *~;
+#X obj -20695 535 *~;
+#X obj -20777 483 sig~;
+#X obj -20777 567 *~;
+#X obj -20846 611 /~;
+#X obj -20509 248 r~ plotElev;
+#X obj -20913 710 s~ plotOPN;
+#X obj -20599 262 -~;
+#X text -20547 269 Angle goes with the flow in Goldstein hence 90 -
+theta so that theta is same angle as dipole angles.;
+#X obj -20599 217 sig~ 180;
+#X obj -20536 221 r~ \$0-this_elev;
+#X obj -20916 56 inlet~;
+#X obj -20916 83 *~;
+#X obj -20822 90 inlet~;
+#X obj -20822 148 *~ 1;
+#X obj -20846 170 *~;
+#X obj -20846 194 *~;
+#X obj -20821 273 inlet;
+#X obj -20847 308 *~ 1;
+#X obj -20848 343 *~ 2.50663;
+#X obj -20846 643 *~ 1;
+#X text -20776 91 Corrolation Length;
+#X text -20781 272 Length;
+#X obj -20846 26 average~ 64;
+#X obj -20846 48 sig~;
+#X connect 1 0 45 0;
+#X connect 3 0 58 0;
+#X connect 4 0 66 0;
+#X connect 5 0 57 1;
+#X connect 6 0 1 0;
+#X connect 6 0 1 1;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 18 0 19 0;
+#X connect 18 0 24 0;
+#X connect 19 0 25 0;
+#X connect 20 0 21 0;
+#X connect 20 0 23 0;
+#X connect 21 0 26 0;
+#X connect 27 0 61 0;
+#X connect 29 0 44 1;
+#X connect 30 0 29 0;
+#X connect 31 0 43 1;
+#X connect 32 0 33 0;
+#X connect 33 0 36 0;
+#X connect 34 0 35 0;
+#X connect 35 0 36 1;
+#X connect 36 0 38 1;
+#X connect 37 0 38 0;
+#X connect 38 0 31 0;
+#X connect 39 0 40 0;
+#X connect 39 0 40 1;
+#X connect 40 0 42 1;
+#X connect 41 0 42 0;
+#X connect 42 0 43 0;
+#X connect 43 0 44 0;
+#X connect 44 0 46 1;
+#X connect 45 0 46 0;
+#X connect 46 0 47 1;
+#X connect 47 0 63 0;
+#X connect 50 0 32 0;
+#X connect 52 0 50 0;
+#X connect 53 0 50 1;
+#X connect 54 0 55 0;
+#X connect 54 0 55 1;
+#X connect 55 0 58 1;
+#X connect 56 0 57 0;
+#X connect 57 0 59 1;
+#X connect 58 0 59 0;
+#X connect 59 0 27 0;
+#X connect 60 0 61 1;
+#X connect 61 0 62 0;
+#X connect 62 0 47 0;
+#X connect 63 0 49 0;
+#X connect 63 0 7 0;
+#X connect 63 0 13 0;
+#X connect 66 0 67 0;
+#X connect 67 0 3 0;
+#X restore 284 542 pd GoldnoiseGain;
+#X text 275 589 Calculates the gain of the wake;
+#X obj 981 52 inlet;
+#X obj 981 76 s \$0-TuInt;
+#X floatatom 945 77 5 0 0 0 - - -;
+#N canvas 4 232 229 249 TuInt_calc 0;
+#X obj 116 42 inlet;
+#X obj 116 118 + 1;
+#X obj 116 67 min 0.2;
+#X floatatom 144 148 5 0 0 0 - - -;
+#X obj 116 173 outlet;
+#X obj 116 92 * -4.5;
+#X connect 0 0 2 0;
+#X connect 1 0 3 0;
+#X connect 1 0 4 0;
+#X connect 2 0 5 0;
+#X connect 5 0 1 0;
+#X restore 1063 77 pd TuInt_calc;
+#X obj 1064 55 r \$0-TuInt;
+#X obj 1063 100 s \$0-TuGain;
+#X obj 987 524 r \$0-TuGain;
+#X floatatom 1029 99 5 0 0 0 - - -;
+#X obj 1167 524 r \$0-TuGain;
+#N canvas 811 216 464 503 dragDiFunNo 0;
+#X obj 124 84 inlet~;
+#X obj 120 196 inlet~;
+#X obj 161 105 inlet;
+#X obj 132 255 inlet;
+#X obj 124 105 *~ 2;
+#X obj 105 256 *~;
+#X obj 105 321 throw~ l;
+#X obj 132 298 throw~ r;
+#X obj 105 277 fcpan;
+#X obj 105 65 noise~;
+#X obj 120 236 *~ 1;
+#X obj 141 215 r \$0-TuGain;
+#X obj 105 151 vcf~ 10;
+#N canvas 607 346 247 157 QV 0;
+#X obj 90 25 inlet;
+#X obj 90 47 * 5;
+#X obj 90 70 + 5;
+#X obj 90 93 outlet;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X restore 144 128 pd QV;
+#X text 49 367 Creates the shaped noise sound equivalent to a narrow
+band signal at the drag dipole fundamental frequency.;
+#X floatatom 153 276 5 0 0 0 - - -;
+#X obj 105 173 *~ 0.5;
+#X connect 0 0 4 0;
+#X connect 1 0 10 0;
+#X connect 2 0 13 0;
+#X connect 3 0 8 1;
+#X connect 3 0 15 0;
+#X connect 4 0 12 1;
+#X connect 5 0 8 0;
+#X connect 8 0 6 0;
+#X connect 8 1 7 0;
+#X connect 9 0 12 0;
+#X connect 10 0 5 1;
+#X connect 11 0 10 1;
+#X connect 12 0 16 0;
+#X connect 13 0 12 2;
+#X connect 16 0 5 0;
+#X restore 1086 545 pd dragDiFunNo;
+#N canvas 1014 140 491 522 dragDiFun 0;
+#X obj 165 125 osc~;
+#X obj 165 298 throw~ l;
+#X obj 192 275 throw~ r;
+#X obj 165 232 *~;
+#X obj 165 253 fcpan;
+#X obj 165 100 *~ 2;
+#X obj 180 209 *~ 1;
+#X obj 180 168 *~ 1;
+#X obj 165 75 inlet~;
+#X obj 180 145 inlet~;
+#X obj 192 232 inlet;
+#X obj 201 187 inlet;
+#X text 60 369 Generates the pure tone associated with the drag dipole
+fundamental frequency.;
+#X floatatom 212 256 5 0 0 0 - - -;
+#X connect 0 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 1 0;
+#X connect 4 1 2 0;
+#X connect 5 0 0 0;
+#X connect 6 0 3 1;
+#X connect 7 0 6 0;
+#X connect 8 0 5 0;
+#X connect 9 0 7 0;
+#X connect 10 0 4 1;
+#X connect 10 0 13 0;
+#X connect 11 0 6 1;
+#X restore 918 547 pd dragDiFun;
+#X obj 752 480 r~ \$0-myFreq;
+#X obj 779 500 r \$0-thisPan;
+#X obj 806 520 r \$0-TuGain;
+#X obj 725 460 r~ \$0-liftDiGain;
+#N canvas 579 250 654 489 liftDi2ndNo 0;
+#X obj 124 84 inlet~;
+#X obj 120 198 inlet~;
+#X obj 161 105 inlet;
+#X obj 132 281 inlet;
+#X obj 105 282 *~;
+#X obj 105 347 throw~ l;
+#X obj 132 324 throw~ r;
+#X obj 105 303 fcpan;
+#X obj 105 65 noise~;
+#X obj 120 262 *~ 1;
+#X obj 141 241 r \$0-TuGain;
+#X obj 105 151 vcf~ 10;
+#N canvas 607 346 247 157 QV 0;
+#X obj 90 25 inlet;
+#X obj 90 47 * 5;
+#X obj 90 70 + 5;
+#X obj 90 93 outlet;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X restore 144 128 pd QV;
+#X obj 124 105 *~ 5;
+#X text 49 393 Creates the shaped noise sound equivalent to a narrow
+band signal at the lift dipole second harmonic frequency.;
+#X obj 120 220 *~ 0.1;
+#X floatatom 174 303 5 0 0 0 - - -;
+#X obj 105 173 *~ 0.5;
+#X text 206 209 0.1 Value to match normalised gain of 3rd harmonic
+given in Hardin;
+#X connect 0 0 13 0;
+#X connect 1 0 15 0;
+#X connect 2 0 12 0;
+#X connect 3 0 7 1;
+#X connect 3 0 16 0;
+#X connect 4 0 7 0;
+#X connect 7 0 5 0;
+#X connect 7 1 6 0;
+#X connect 8 0 11 0;
+#X connect 9 0 4 1;
+#X connect 10 0 9 1;
+#X connect 12 0 11 2;
+#X connect 13 0 11 1;
+#X connect 15 0 9 0;
+#X connect 17 0 4 0;
+#X restore 725 541 pd liftDi2ndNo;
+#X obj 617 497 r \$0-thisPan;
+#X obj 571 454 r~ \$0-myFreq;
+#X obj 640 517 r \$0-TuGain;
+#N canvas 899 170 491 522 liftDi2nd 0;
+#X obj 41 132 osc~;
+#X obj 41 305 throw~ l;
+#X obj 68 282 throw~ r;
+#X obj 41 239 *~;
+#X obj 41 260 fcpan;
+#X obj 56 216 *~ 1;
+#X obj 41 82 inlet~;
+#X obj 56 152 inlet~;
+#X obj 68 239 inlet;
+#X obj 77 194 inlet;
+#X obj 41 107 *~ 5;
+#X text 60 369 Generates the pure tone associated with the lift dipole
+second harmonic frequency.;
+#X obj 56 175 *~ 0.1;
+#X floatatom 104 263 5 0 0 0 - - -;
+#X text 117 168 0.1 Value to match normalised gain of 3rd harmonic
+given in Hardin;
+#X connect 0 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 1 0;
+#X connect 4 1 2 0;
+#X connect 5 0 3 1;
+#X connect 6 0 10 0;
+#X connect 7 0 12 0;
+#X connect 8 0 4 1;
+#X connect 8 0 13 0;
+#X connect 9 0 5 1;
+#X connect 10 0 0 0;
+#X connect 12 0 5 0;
+#X restore 571 540 pd liftDi2nd;
+#X obj 594 476 r~ \$0-liftDiGain;
+#X obj 618 606 r \$0-thisPan;
+#X obj 572 563 r~ \$0-myFreq;
+#X obj 641 626 r \$0-TuGain;
+#X obj 595 585 r~ \$0-liftDiGain;
+#N canvas 59 232 491 522 liftDi1st 0;
+#X obj 36 136 osc~;
+#X obj 36 309 throw~ l;
+#X obj 63 286 throw~ r;
+#X obj 36 243 *~;
+#X obj 36 264 fcpan;
+#X obj 51 220 *~ 1;
+#X obj 36 86 inlet~;
+#X obj 51 156 inlet~;
+#X obj 63 243 inlet;
+#X obj 72 198 inlet;
+#X obj 36 111 *~ 3;
+#X text 60 369 Generates the pure tone associated with the lift dipole
+first harmonic frequency.;
+#X floatatom 105 265 5 0 0 0 - - -;
+#X obj 51 179 *~ 0.6;
+#X text 114 168 0.6 Value to match normalised gain of 3rd harmonic
+given in Hardin;
+#X connect 0 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 1 0;
+#X connect 4 1 2 0;
+#X connect 5 0 3 1;
+#X connect 6 0 10 0;
+#X connect 7 0 13 0;
+#X connect 8 0 4 1;
+#X connect 8 0 12 0;
+#X connect 9 0 5 1;
+#X connect 10 0 0 0;
+#X connect 13 0 5 0;
+#X restore 572 649 pd liftDi1st;
+#X obj 752 584 r~ \$0-myFreq;
+#X obj 779 604 r \$0-thisPan;
+#X obj 806 624 r \$0-TuGain;
+#X obj 725 564 r~ \$0-liftDiGain;
+#N canvas 319 197 578 492 liftDi1stNo 0;
+#X obj 124 84 inlet~;
+#X obj 120 198 inlet~;
+#X obj 161 105 inlet;
+#X obj 132 281 inlet;
+#X obj 105 282 *~;
+#X obj 105 347 throw~ l;
+#X obj 132 324 throw~ r;
+#X obj 105 303 fcpan;
+#X obj 105 65 noise~;
+#X obj 120 262 *~ 1;
+#X obj 141 241 r \$0-TuGain;
+#X obj 105 151 vcf~ 10;
+#N canvas 607 346 247 157 QV 0;
+#X obj 90 25 inlet;
+#X obj 90 47 * 5;
+#X obj 90 70 + 5;
+#X obj 90 93 outlet;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X restore 144 128 pd QV;
+#X text 49 393 Creates the shaped noise sound equivalent to a narrow
+band signal at the lift dipole second harmonic frequency.;
+#X obj 124 105 *~ 3;
+#X obj 120 220 *~ 0.5;
+#X floatatom 163 302 5 0 0 0 - - -;
+#X obj 105 173 *~ 0.6;
+#X text 167 169 0.6 Value to match normalised gain of 3rd harmonic
+given in Hardin;
+#X connect 0 0 14 0;
+#X connect 1 0 15 0;
+#X connect 2 0 12 0;
+#X connect 3 0 7 1;
+#X connect 3 0 16 0;
+#X connect 4 0 7 0;
+#X connect 7 0 5 0;
+#X connect 7 1 6 0;
+#X connect 8 0 11 0;
+#X connect 9 0 4 1;
+#X connect 10 0 9 1;
+#X connect 11 0 17 0;
+#X connect 12 0 11 2;
+#X connect 14 0 11 1;
+#X connect 15 0 9 0;
+#X connect 17 0 4 0;
+#X restore 725 645 pd liftDi1stNo;
+#X obj 618 718 r \$0-thisPan;
+#X obj 572 675 r~ \$0-myFreq;
+#X obj 641 738 r \$0-TuGain;
+#X obj 595 697 r~ \$0-liftDiGain;
+#N canvas 444 150 491 522 liftDiFun 0;
+#X obj 165 125 osc~;
+#X obj 165 298 throw~ l;
+#X obj 192 275 throw~ r;
+#X obj 165 232 *~;
+#X obj 165 253 fcpan;
+#X obj 180 209 *~ 1;
+#X obj 165 75 inlet~;
+#X obj 180 145 inlet~;
+#X obj 192 232 inlet;
+#X obj 201 187 inlet;
+#X obj 165 100 *~ 1;
+#X obj 180 168 *~ 1;
+#X text 60 369 Generates the pure tone associated with the lift dipole
+fundamental frequency.;
+#X floatatom 227 254 5 0 0 0 - - -;
+#X obj 95 262 s~ fund1;
+#X connect 0 0 3 0;
+#X connect 3 0 4 0;
+#X connect 3 0 14 0;
+#X connect 4 0 1 0;
+#X connect 4 1 2 0;
+#X connect 5 0 3 1;
+#X connect 6 0 10 0;
+#X connect 7 0 11 0;
+#X connect 8 0 4 1;
+#X connect 8 0 13 0;
+#X connect 9 0 5 1;
+#X connect 10 0 0 0;
+#X connect 11 0 5 0;
+#X restore 572 761 pd liftDiFun;
+#X obj 748 693 r~ \$0-myFreq;
+#X obj 775 713 r \$0-thisPan;
+#X obj 802 733 r \$0-TuGain;
+#X obj 721 673 r~ \$0-liftDiGain;
+#N canvas 930 320 464 503 liftDiFunNo 0;
+#X obj 124 84 inlet~;
+#X obj 120 198 inlet~;
+#X obj 161 105 inlet;
+#X obj 132 281 inlet;
+#X obj 105 282 *~;
+#X obj 105 347 throw~ l;
+#X obj 132 324 throw~ r;
+#X obj 105 303 fcpan;
+#X obj 105 65 noise~;
+#X obj 120 262 *~ 1;
+#X obj 141 241 r \$0-TuGain;
+#X obj 105 151 vcf~ 10;
+#N canvas 607 346 247 157 QV 0;
+#X obj 90 25 inlet;
+#X obj 90 47 * 5;
+#X obj 90 70 + 5;
+#X obj 90 93 outlet;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X restore 144 128 pd QV;
+#X obj 124 105 *~ 1;
+#X obj 120 220 *~ 1;
+#X text 49 393 Creates the shaped noise sound equivalent to a narrow
+band signal at the lift dipole fundamental frequency.;
+#X floatatom 149 303 5 0 0 0 - - -;
+#X obj 105 173 *~ 0.5;
+#X connect 0 0 13 0;
+#X connect 1 0 14 0;
+#X connect 2 0 12 0;
+#X connect 3 0 7 1;
+#X connect 3 0 16 0;
+#X connect 4 0 7 0;
+#X connect 7 0 5 0;
+#X connect 7 1 6 0;
+#X connect 8 0 11 0;
+#X connect 9 0 4 1;
+#X connect 10 0 9 1;
+#X connect 11 0 17 0;
+#X connect 12 0 11 2;
+#X connect 13 0 11 1;
+#X connect 14 0 9 0;
+#X connect 17 0 4 0;
+#X restore 721 754 pd liftDiFunNo;
+#X text 910 698 Patches that generate all the sounds associated with
+the drag dipole;
+#X text 564 782 Patches that generate all the sounds associated with
+the lift dipole;
+#X obj 457 72 s \$0-azim;
+#X obj 532 72 s \$0-elev;
+#X obj 355 252 r \$0-elev;
+#X obj 363 273 r \$0-azim;
+#X obj 363 496 r \$0-elev;
+#X obj 377 514 r \$0-azim;
+#N canvas 1021 287 444 428 corrLen 0;
+#X obj 103 71 inlet~;
+#X obj 88 200 outlet~;
+#X obj 88 143 *~;
+#X obj 124 93 sig~ -0.245;
+#X obj 103 119 pow~;
+#X text 234 22 Y = 10^b . X^m;
+#X text 235 40 b = 1.536;
+#X text 235 56 m = -0.245;
+#X text 80 297 Equation of line derived from Norberg 2001;
+#X obj 88 169 max~ 1;
+#X obj 88 46 sig~ 44.67;
+#X connect 0 0 4 0;
+#X connect 2 0 9 0;
+#X connect 3 0 4 1;
+#X connect 4 0 2 1;
+#X connect 9 0 1 0;
+#X connect 10 0 2 0;
+#X restore 1151 76 pd corrLen Calc;
+#X obj 1151 53 r~ \$0-myRey;
+#X obj 1151 100 s~ \$0-myCor;
+#X obj 337 212 r~ \$0-myCor;
+#X obj 1100 295 r \$0-contFreq;
+#X obj 1065 323 hip~;
+#X obj 310 414 r~ \$0-myCor;
+#X obj 100 558 outlet;
+#X obj 124 203 r myMet;
+#X obj 117 355 r myMet;
+#X obj 144 509 r myMet;
+#X obj 1113 593 r~ \$0-myFreq;
+#X obj 1086 573 r~ \$0-dragDiGain;
+#X obj 1140 613 r \$0-thisPan;
+#X obj 964 613 r \$0-thisPan;
+#X obj 918 570 r~ \$0-myFreq;
+#X obj 941 592 r~ \$0-dragDiGain;
+#X obj 987 633 r \$0-TuGain;
+#X obj 1167 633 r \$0-TuGain;
+#N canvas 795 179 491 522 dragDi1st 0;
+#X obj 165 125 osc~;
+#X obj 165 298 throw~ l;
+#X obj 192 275 throw~ r;
+#X obj 165 232 *~;
+#X obj 165 253 fcpan;
+#X obj 180 209 *~ 1;
+#X obj 165 75 inlet~;
+#X obj 180 145 inlet~;
+#X obj 192 232 inlet;
+#X obj 201 187 inlet;
+#X floatatom 212 256 5 0 0 0 - - -;
+#X obj 165 100 *~ 4;
+#X text 60 369 Generates the pure tone associated with the drag dipole
+1st harmonic frequency.;
+#X obj 180 168 *~ 0.125;
+#X connect 0 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 1 0;
+#X connect 4 1 2 0;
+#X connect 5 0 3 1;
+#X connect 6 0 11 0;
+#X connect 7 0 13 0;
+#X connect 8 0 4 1;
+#X connect 8 0 10 0;
+#X connect 9 0 5 1;
+#X connect 11 0 0 0;
+#X connect 13 0 5 0;
+#X restore 918 656 pd dragDi1st;
+#N canvas 135 196 464 503 dragDi1stNo 0;
+#X obj 124 85 inlet~;
+#X obj 120 196 inlet~;
+#X obj 161 105 inlet;
+#X obj 132 282 inlet;
+#X obj 105 283 *~;
+#X obj 105 348 throw~ l;
+#X obj 132 325 throw~ r;
+#X obj 105 304 fcpan;
+#X obj 105 65 noise~;
+#X obj 120 263 *~ 1;
+#X obj 141 242 r \$0-TuGain;
+#X obj 105 151 vcf~ 10;
+#N canvas 607 346 247 157 QV 0;
+#X obj 90 25 inlet;
+#X obj 90 47 * 5;
+#X obj 90 70 + 5;
+#X obj 90 93 outlet;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X restore 144 128 pd QV;
+#X floatatom 153 303 5 0 0 0 - - -;
+#X obj 105 173 *~ 0.5;
+#X obj 124 105 *~ 4;
+#X text 49 394 Creates the shaped noise sound equivalent to a narrow
+band signal at the drag dipole 1st harmonic frequency.;
+#X obj 120 219 *~ 0.0018;
+#X connect 0 0 15 0;
+#X connect 1 0 17 0;
+#X connect 2 0 12 0;
+#X connect 3 0 7 1;
+#X connect 3 0 13 0;
+#X connect 4 0 7 0;
+#X connect 7 0 5 0;
+#X connect 7 1 6 0;
+#X connect 8 0 11 0;
+#X connect 9 0 4 1;
+#X connect 10 0 9 1;
+#X connect 11 0 14 0;
+#X connect 12 0 11 2;
+#X connect 14 0 4 0;
+#X connect 15 0 11 1;
+#X connect 17 0 9 0;
+#X restore 1086 654 pd dragDi1stNo;
+#X obj 1291 649 snapshot~;
+#X obj 1290 623 r myMet;
+#X floatatom 1292 679 0 0 0 0 - - -;
+#X obj 699 309 newStrou;
+#X connect 1 0 3 0;
+#X connect 2 0 27 0;
+#X connect 2 0 182 0;
+#X connect 3 0 2 0;
+#X connect 4 0 18 0;
+#X connect 6 0 4 0;
+#X connect 7 0 12 0;
+#X connect 7 0 60 0;
+#X connect 10 0 42 0;
+#X connect 10 0 65 0;
+#X connect 13 0 3 1;
+#X connect 14 0 4 1;
+#X connect 16 0 6 1;
+#X connect 17 0 1 0;
+#X connect 19 0 118 1;
+#X connect 20 0 21 0;
+#X connect 21 0 15 0;
+#X connect 22 0 20 0;
+#X connect 22 0 59 0;
+#X connect 23 0 63 0;
+#X connect 24 0 25 0;
+#X connect 24 0 97 0;
+#X connect 26 0 24 0;
+#X connect 29 0 31 0;
+#X connect 31 0 32 0;
+#X connect 32 0 30 0;
+#X connect 32 0 74 0;
+#X connect 36 0 107 1;
+#X connect 37 0 38 0;
+#X connect 37 0 165 0;
+#X connect 39 0 107 4;
+#X connect 40 0 43 0;
+#X connect 40 0 152 0;
+#X connect 41 0 44 0;
+#X connect 41 0 153 0;
+#X connect 46 0 45 0;
+#X connect 46 0 5 0;
+#X connect 46 0 76 0;
+#X connect 47 0 46 0;
+#X connect 56 0 57 0;
+#X connect 56 0 64 0;
+#X connect 63 0 61 0;
+#X connect 63 1 62 0;
+#X connect 68 0 107 0;
+#X connect 69 0 107 3;
+#X connect 70 0 107 5;
+#X connect 72 0 118 0;
+#X connect 75 0 93 1;
+#X connect 77 0 37 0;
+#X connect 78 0 23 0;
+#X connect 79 0 63 1;
+#X connect 80 0 83 0;
+#X connect 80 0 86 0;
+#X connect 81 0 84 0;
+#X connect 81 0 87 0;
+#X connect 82 0 85 0;
+#X connect 82 0 88 0;
+#X connect 93 0 163 0;
+#X connect 94 0 118 2;
+#X connect 95 0 93 0;
+#X connect 96 0 95 0;
+#X connect 98 0 103 1;
+#X connect 99 0 103 3;
+#X connect 100 0 103 0;
+#X connect 101 0 103 2;
+#X connect 102 0 103 5;
+#X connect 103 0 67 0;
+#X connect 103 1 66 0;
+#X connect 104 0 119 2;
+#X connect 105 0 119 0;
+#X connect 106 0 119 1;
+#X connect 107 0 71 0;
+#X connect 109 0 110 0;
+#X connect 109 0 111 0;
+#X connect 112 0 114 0;
+#X connect 112 0 116 0;
+#X connect 113 0 112 0;
+#X connect 115 0 119 3;
+#X connect 117 0 118 3;
+#X connect 120 0 124 1;
+#X connect 121 0 124 2;
+#X connect 122 0 124 3;
+#X connect 123 0 124 0;
+#X connect 125 0 128 2;
+#X connect 126 0 128 0;
+#X connect 127 0 128 3;
+#X connect 129 0 128 1;
+#X connect 130 0 134 2;
+#X connect 131 0 134 0;
+#X connect 132 0 134 3;
+#X connect 133 0 134 1;
+#X connect 135 0 139 1;
+#X connect 136 0 139 2;
+#X connect 137 0 139 3;
+#X connect 138 0 139 0;
+#X connect 140 0 144 2;
+#X connect 141 0 144 0;
+#X connect 142 0 144 3;
+#X connect 143 0 144 1;
+#X connect 145 0 149 1;
+#X connect 146 0 149 2;
+#X connect 147 0 149 3;
+#X connect 148 0 149 0;
+#X connect 154 0 103 6;
+#X connect 155 0 103 7;
+#X connect 156 0 107 6;
+#X connect 157 0 107 7;
+#X connect 158 0 160 0;
+#X connect 159 0 158 0;
+#X connect 161 0 103 4;
+#X connect 162 0 163 1;
+#X connect 163 0 23 1;
+#X connect 164 0 107 2;
+#X connect 166 0 24 0;
+#X connect 167 0 46 0;
+#X connect 168 0 37 0;
+#X connect 169 0 178 1;
+#X connect 170 0 178 0;
+#X connect 171 0 178 2;
+#X connect 172 0 177 2;
+#X connect 173 0 177 0;
+#X connect 174 0 177 1;
+#X connect 175 0 177 3;
+#X connect 176 0 178 3;
+#X connect 179 0 181 0;
+#X connect 180 0 179 0;
+#X connect 182 0 73 0;
+#X connect 182 0 6 0;
diff -r d64d965ec30a -r 807981af6f93 newSword/newStrou.pd
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/newSword/newStrou.pd	Tue Jan 26 18:40:48 2016 +0000
@@ -0,0 +1,162 @@
+#N canvas 74 48 718 433 10;
+#X obj 203 48 inlet~;
+#X obj 273 202 outlet~;
+#X text 101 20 Reynolds number coming in;
+#X text 211 238 Strouhal Number going out;
+#N canvas 385 322 1026 531 eqnSelect 0;
+#X msg 41 221 0.2684 -1.0356;
+#X msg 148 221 0.2437 -0.8607;
+#X msg 256 223 0.4291 -3.6735;
+#X msg 365 223 0.3274 -2.0569;
+#X msg 472 223 0.2257 -0.4402;
+#X msg 577 222 0.204 0.3364;
+#X msg 686 224 0.1776 2.2023;
+#X obj 365 299 unpack;
+#X obj 75 164 < 180;
+#X obj 181 144 > 180;
+#X obj 227 146 < 230;
+#X obj 289 149 > 230;
+#X obj 335 148 < 240;
+#X obj 398 148 > 240;
+#X obj 444 149 < 360;
+#X obj 505 147 > 360;
+#X obj 551 147 < 1300;
+#X obj 611 150 > 1300;
+#X obj 657 150 < 5000;
+#X obj 719 149 > 5000;
+#X obj 765 148 < 200000;
+#X obj 827 149 > 200000;
+#X obj 41 196 spigot;
+#X floatatom 286 327 8 0 0 0 - - -;
+#X floatatom 455 330 8 0 0 0 - - -;
+#X obj 148 198 spigot;
+#X obj 194 171 spigot;
+#X obj 256 200 spigot;
+#X obj 302 173 spigot;
+#X obj 365 200 spigot;
+#X obj 411 173 spigot;
+#X floatatom 546 83 8 0 0 0 - - -;
+#X obj 472 198 spigot;
+#X obj 518 171 spigot;
+#X obj 578 200 spigot;
+#X obj 624 173 spigot;
+#X obj 686 199 spigot;
+#X obj 732 172 spigot;
+#X obj 426 67 snapshot~;
+#X obj 426 37 inlet~;
+#X obj 359 2 loadbang;
+#X obj 359 23 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 359 42 metro 10;
+#X obj 365 373 outlet~;
+#X obj 398 352 outlet~;
+#X obj 365 327 sig~;
+#X obj 398 327 sig~;
+#X text 539 419 This selects the values for the St* and m coefficients
+for Fey's formula;
+#X text 372 240 Averaged;
+#X obj 794 201 spigot;
+#X obj 840 174 spigot;
+#X obj 885 149 < 1e+06;
+#X text 784 251 Critical - Derived by author;
+#X text 254 359 St* (I) coefficient;
+#X text 462 361 m (J) coefficient;
+#X msg 794 226 0.576 -175.957;
+#X connect 0 0 7 0;
+#X connect 1 0 7 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 0;
+#X connect 4 0 7 0;
+#X connect 5 0 7 0;
+#X connect 6 0 7 0;
+#X connect 7 0 23 0;
+#X connect 7 0 45 0;
+#X connect 7 1 24 0;
+#X connect 7 1 46 0;
+#X connect 8 0 22 1;
+#X connect 8 0 22 0;
+#X connect 9 0 25 1;
+#X connect 9 0 26 0;
+#X connect 10 0 26 1;
+#X connect 11 0 28 0;
+#X connect 11 0 27 1;
+#X connect 12 0 28 1;
+#X connect 13 0 29 1;
+#X connect 13 0 30 0;
+#X connect 14 0 30 1;
+#X connect 15 0 32 1;
+#X connect 15 0 33 0;
+#X connect 16 0 33 1;
+#X connect 17 0 34 1;
+#X connect 17 0 35 0;
+#X connect 18 0 35 1;
+#X connect 19 0 36 1;
+#X connect 19 0 37 0;
+#X connect 20 0 37 1;
+#X connect 21 0 50 0;
+#X connect 21 0 49 1;
+#X connect 22 0 0 0;
+#X connect 25 0 1 0;
+#X connect 26 0 25 0;
+#X connect 27 0 2 0;
+#X connect 28 0 27 0;
+#X connect 29 0 3 0;
+#X connect 30 0 29 0;
+#X connect 32 0 4 0;
+#X connect 33 0 32 0;
+#X connect 34 0 5 0;
+#X connect 35 0 34 0;
+#X connect 36 0 6 0;
+#X connect 37 0 36 0;
+#X connect 38 0 8 0;
+#X connect 38 0 9 0;
+#X connect 38 0 10 0;
+#X connect 38 0 11 0;
+#X connect 38 0 12 0;
+#X connect 38 0 13 0;
+#X connect 38 0 14 0;
+#X connect 38 0 31 0;
+#X connect 38 0 15 0;
+#X connect 38 0 16 0;
+#X connect 38 0 17 0;
+#X connect 38 0 18 0;
+#X connect 38 0 19 0;
+#X connect 38 0 20 0;
+#X connect 38 0 21 0;
+#X connect 38 0 51 0;
+#X connect 39 0 38 0;
+#X connect 40 0 41 0;
+#X connect 41 0 42 0;
+#X connect 42 0 38 0;
+#X connect 45 0 43 0;
+#X connect 46 0 44 0;
+#X connect 49 0 55 0;
+#X connect 50 0 49 0;
+#X connect 51 0 50 1;
+#X connect 55 0 7 0;
+#X restore 273 83 pd eqnSelect;
+#X obj 203 85 sqrt~;
+#X obj 342 119 /~;
+#X text 135 97 sqrt(Re);
+#X text 250 114 St*;
+#X text 359 101 m;
+#X text 376 152 St = St* + m / sqrt(Re);
+#X obj 99 248 snapshot~;
+#X obj 99 223 metro 100;
+#X obj 99 201 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 99 274 10 0 0 0 - - -;
+#X obj 99 175 loadbang;
+#X obj 273 166 +~;
+#X connect 0 0 4 0;
+#X connect 0 0 5 0;
+#X connect 4 0 16 0;
+#X connect 4 1 6 0;
+#X connect 5 0 6 1;
+#X connect 6 0 16 1;
+#X connect 11 0 14 0;
+#X connect 12 0 11 0;
+#X connect 13 0 12 0;
+#X connect 15 0 13 0;
+#X connect 16 0 1 0;
+#X connect 16 0 11 0;
diff -r d64d965ec30a -r 807981af6f93 newSword/newSword.pd
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/newSword/newSword.pd	Tue Jan 26 18:40:48 2016 +0000
@@ -0,0 +1,212 @@
+#N canvas 57 68 1302 759 10;
+#X obj 586 149 freqCalcCyl3No_D2Mach;
+#X obj 315 22 loadbang;
+#X obj 315 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 315 63 metro 100;
+#X obj 315 85 s myMet;
+#X msg -57 28 1;
+#X obj -57 51 s bladeLen;
+#X obj -259 60 s NoOfSources;
+#X obj -221 455 s topSpeed;
+#X obj -273 429 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 3465 1;
+#X floatatom -276 455 8 0 0 0 - - -;
+#X text -24 27 Blade Length;
+#X text -25 93 Arm Length;
+#X text -231 37 Number of Sources;
+#X text -165 433 Top Speed;
+#X obj 21 248 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 7150 1;
+#X floatatom 18 280 8 0 0 0 - - -;
+#X obj -279 516 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 6600 1;
+#X obj -280 601 hsl 100 20 0.0001 0.01 0 0 empty empty empty -2 -8
+0 10 -262144 -1 -1 7900 1;
+#X floatatom -282 546 8 0 0 0 - - -;
+#X obj -228 545 s hiltThick;
+#X floatatom -283 629 8 0 0 0 - - -;
+#X obj -225 628 s tipThick;
+#X text -165 518 Hilt Thickness;
+#X text -173 602 Tip Thickness;
+#X obj 143 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
+-1;
+#X obj 143 126 s GO;
+#X obj 143 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 143 46 metro 200;
+#X obj 197 22 hsl 100 20 500 30 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X obj 83 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1
+-1;
+#X obj 83 126 s setUp;
+#X obj -329 403 r setUp;
+#X obj -40 228 r setUp;
+#X obj -333 493 r setUp;
+#X obj -334 581 r setUp;
+#X obj -57 4 loadbang;
+#X obj -59 73 loadbang;
+#X obj -259 15 loadbang;
+#X obj -276 403 r thisTS;
+#X obj -282 493 r thisHT;
+#X obj -283 581 r thisTT;
+#X obj -312 17 r setUp;
+#X obj -108 71 r setUp;
+#X obj -109 6 r setUp;
+#X obj 83 21 loadbang;
+#X obj 83 45 delay 13;
+#X obj 19 326 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 0 1;
+#X floatatom 16 358 8 0 0 0 - - -;
+#X obj -42 306 r setUp;
+#X obj 14 439 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 4950 1;
+#X floatatom 11 471 8 0 0 0 - - -;
+#X obj -47 419 r setUp;
+#X obj 12 517 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 4950 1;
+#X floatatom 9 549 8 0 0 0 - - -;
+#X obj -49 497 r setUp;
+#X obj 66 470 s presweepElev;
+#X obj 160 492 s postsweepElev;
+#X text 125 440 pre-sweep elevation;
+#X text 123 517 post-sweep elevation;
+#X text 132 249 pre-sweep azimuth;
+#X text 130 327 post-sweep azimuth;
+#X obj 73 279 s presweepAzim;
+#X obj 166 301 s postsweepAzim;
+#X obj -59 115 s start_armLength;
+#X msg -59 94 0.35;
+#X msg -259 37 10;
+#X msg 87 225 80;
+#X obj -274 139 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 4950 1;
+#X obj -275 233 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 4950 1;
+#X obj -275 324 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 4950 1;
+#X obj -277 162 s Xobs;
+#X obj -278 253 s Yobs;
+#X obj -278 351 s Zobs;
+#X floatatom -317 162 5 0 0 0 - - -;
+#X floatatom -317 254 5 0 0 0 - - -;
+#X floatatom -318 346 5 0 0 0 - - -;
+#X msg -269 115 0;
+#X msg -269 298 0;
+#X msg -271 209 0.7;
+#X obj -322 113 r setUp;
+#X obj -327 210 r setUp;
+#X obj -331 301 r setUp;
+#X msg -219 208 0;
+#X msg 136 221 90;
+#X msg -227 298 4;
+#X msg -230 116 4;
+#X msg 79 416 0;
+#X msg 89 307 -60;
+#X msg 126 416 50;
+#X msg 79 494 -30;
+#X msg -170 207 1.034;
+#X msg -127 207 2.034;
+#X msg -81 209 3;
+#X msg -208 400 0.5;
+#X msg -188 111 0.2;
+#X msg -195 297 0.2;
+#X obj 166 277 * -1;
+#X obj 160 470 * -1;
+#X msg -204 491 0.02;
+#X msg -210 575 0.008;
+#X msg -141 404 35;
+#X obj -277 94 r thisXobs;
+#X obj -278 186 r thisYobs;
+#X obj -278 279 r thisZobs;
+#X obj 18 227 r thisPrA;
+#X obj 16 305 r thisPoA;
+#X obj 11 418 r thisPrE;
+#X obj 9 496 r thisPoE;
+#X msg 175 222 10;
+#X msg 206 221 0;
+#X msg 109 492 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 5 0 6 0;
+#X connect 9 0 8 0;
+#X connect 9 0 10 0;
+#X connect 15 0 16 0;
+#X connect 15 0 62 0;
+#X connect 15 0 97 0;
+#X connect 17 0 19 0;
+#X connect 17 0 20 0;
+#X connect 18 0 21 0;
+#X connect 18 0 22 0;
+#X connect 25 0 26 0;
+#X connect 27 0 28 0;
+#X connect 28 0 25 0;
+#X connect 29 0 28 1;
+#X connect 30 0 31 0;
+#X connect 32 0 9 0;
+#X connect 33 0 15 0;
+#X connect 34 0 17 0;
+#X connect 35 0 18 0;
+#X connect 36 0 5 0;
+#X connect 37 0 65 0;
+#X connect 38 0 66 0;
+#X connect 39 0 9 0;
+#X connect 40 0 17 0;
+#X connect 41 0 18 0;
+#X connect 42 0 66 0;
+#X connect 43 0 65 0;
+#X connect 44 0 5 0;
+#X connect 45 0 46 0;
+#X connect 46 0 30 0;
+#X connect 47 0 48 0;
+#X connect 49 0 47 0;
+#X connect 50 0 51 0;
+#X connect 50 0 56 0;
+#X connect 50 0 98 0;
+#X connect 52 0 50 0;
+#X connect 53 0 54 0;
+#X connect 55 0 53 0;
+#X connect 65 0 64 0;
+#X connect 66 0 7 0;
+#X connect 67 0 15 0;
+#X connect 68 0 71 0;
+#X connect 68 0 74 0;
+#X connect 69 0 72 0;
+#X connect 69 0 75 0;
+#X connect 70 0 73 0;
+#X connect 70 0 76 0;
+#X connect 77 0 68 0;
+#X connect 78 0 70 0;
+#X connect 79 0 69 0;
+#X connect 80 0 68 0;
+#X connect 81 0 69 0;
+#X connect 82 0 70 0;
+#X connect 83 0 69 0;
+#X connect 84 0 15 0;
+#X connect 85 0 70 0;
+#X connect 86 0 68 0;
+#X connect 87 0 50 0;
+#X connect 88 0 47 0;
+#X connect 89 0 50 0;
+#X connect 90 0 53 0;
+#X connect 91 0 69 0;
+#X connect 92 0 69 0;
+#X connect 93 0 69 0;
+#X connect 94 0 9 0;
+#X connect 95 0 68 0;
+#X connect 96 0 70 0;
+#X connect 97 0 63 0;
+#X connect 98 0 57 0;
+#X connect 99 0 17 0;
+#X connect 100 0 18 0;
+#X connect 101 0 9 0;
+#X connect 102 0 68 0;
+#X connect 103 0 69 0;
+#X connect 104 0 70 0;
+#X connect 105 0 15 0;
+#X connect 107 0 50 0;
+#X connect 108 0 53 0;
+#X connect 109 0 15 0;
+#X connect 110 0 15 0;
+#X connect 111 0 53 0;