Mercurial > hg > weather-synthesis-prototyping

Binary file .DS_Store has changed
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/SwordAutoD2.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,1563 @@
+#N canvas 143 52 1070 736 10;
+#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 85 s myMet;
+#X obj -221 455 s topSpeed;
+#X obj -273 429 hsl 100 20 0 1000 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 5 1;
+#X floatatom -276 455 8 0 0 0 - - -;
+#X text -165 346 Blade Length;
+#X text -9 37 Arm Length;
+#X text -165 433 Top Speed;
+#X obj 21 251 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 2475 1;
+#X floatatom 18 280 8 0 0 0 - - -;
+#X obj -279 516 hsl 100 20 0 0.05 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 1980 1;
+#X obj -280 601 hsl 100 20 0.0001 0.03 0 0 empty empty empty -2 -8
+0 10 -262144 -1 -1 298 1;
+#X floatatom -282 546 8 0 0 0 - - -;
+#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 150 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 -43 17 loadbang;
+#X obj -276 403 r thisTS;
+#X obj -282 493 r thisHT;
+#X obj -283 581 r thisTT;
+#X obj -92 15 r setUp;
+#X obj 83 21 loadbang;
+#X obj 83 45 delay 13;
+#X obj 19 326 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 7425 1;
+#X floatatom 16 358 8 0 0 0 - - -;
+#X obj -42 306 r setUp;
+#X obj 14 439 hsl 100 20 0 180 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 0 180 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 90 547 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 85 358 s postsweepAzim;
+#X obj -43 59 s start_armLength;
+#X msg -43 38 0.35;
+#X obj -275 52 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 4950 1;
+#X obj -276 146 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 4950 1;
+#X obj -276 237 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 4950 1;
+#X obj -278 75 s Xobs;
+#X obj -279 166 s Yobs;
+#X obj -279 264 s Zobs;
+#X floatatom -318 75 5 0 0 0 - - -;
+#X floatatom -318 167 5 0 0 0 - - -;
+#X floatatom -319 259 5 0 0 0 - - -;
+#X msg -270 28 0;
+#X msg -270 211 0;
+#X msg -272 122 0.7;
+#X obj -323 26 r setUp;
+#X obj -328 123 r setUp;
+#X obj -332 214 r setUp;
+#X msg -220 121 0;
+#X msg 136 221 90;
+#X msg -228 211 4;
+#X msg -231 29 4;
+#X msg -128 120 2.034;
+#X msg -78 119 3;
+#X msg -208 400 0.5;
+#X msg -189 24 0.2;
+#X msg -141 404 35;
+#X obj -278 7 r thisXobs;
+#X obj -279 99 r thisYobs;
+#X obj -279 192 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 obj 428 145 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj 491 145 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X text 488 54 Gain;
+#X obj 436 25 loadbang;
+#N canvas 555 179 313 396 opLevels 0;
+#X obj 83 210 dac~;
+#X obj 30 70 catch~ l;
+#X obj 128 70 catch~ r;
+#X obj 129 104 *~ 0.45;
+#X obj 30 104 *~ 0.45;
+#X obj 30 210 prvu~;
+#X obj 129 211 prvu~;
+#X obj 93 33 inlet;
+#X obj 30 239 outlet;
+#X obj 129 239 outlet;
+#X connect 1 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 3 0 0 1;
+#X connect 4 0 5 0;
+#X connect 4 0 0 0;
+#X connect 5 0 8 0;
+#X connect 6 0 9 0;
+#X connect 7 0 4 1;
+#X connect 7 0 3 1;
+#X restore 427 102 pd opLevels;
+#X msg 436 48 5;
+#X obj 430 73 hsl 100 25 0.1 100000 1 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 2803 1;
+#X obj 427 2 r GAIN;
+#X floatatom 370 103 8 0 0 0 - - -;
+#X obj -227 545 s hiltThick;
+#X obj 315 63 metro 25;
+#X msg 206 221 100;
+#X msg 87 225 45;
+#X msg 79 494 120;
+#X msg 126 416 60;
+#X msg 89 307 270;
+#X msg 170 416 90;
+#X msg 238 222 80;
+#X msg -171 120 1;
+#X msg -196 210 2;
+#N canvas 94 394 726 532 sources 0;
+#X obj 312 -80 sweepTime;
+#N canvas 452 68 1135 756 arcDist 0;
+#X obj 118 59 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
+-1;
+#X obj 118 112 s GO;
+#X obj 58 59 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1
+-1;
+#X obj 58 112 s setUp;
+#X obj 96 175 * 0.01745;
+#X obj 111 246 * 0.01745;
+#X obj 96 198 cos;
+#X obj 111 267 cos;
+#X obj 96 317 *;
+#X obj 111 291 t f b;
+#X obj 225 178 * 0.01745;
+#X obj 225 153 r presweepElev;
+#X obj 320 151 * 0.01745;
+#X obj 320 126 r postsweepElev;
+#X obj 320 172 sin;
+#X obj 320 194 t f b;
+#X obj 225 202 sin;
+#X obj 225 226 *;
+#X obj 240 276 * 0.01745;
+#X obj 339 261 * 0.01745;
+#X obj 240 307 -;
+#X obj 240 332 cos;
+#X obj 240 352 t f b;
+#X obj 225 377 *;
+#X obj 339 284 t f b;
+#X obj 210 426 +;
+#X obj 225 401 t f b;
+#X obj 210 449 acos;
+#X obj 210 472 *;
+#X obj 244 446 r length;
+#X obj 96 150 r presweepElev;
+#X obj 111 221 r postsweepElev;
+#X obj 428 483 -;
+#X obj 428 528 select 1;
+#X obj 195 600 +;
+#X obj 210 515 t f b;
+#X obj 508 525 select 0;
+#X msg 508 549 0;
+#X obj 508 617 -;
+#X obj 508 640 * 2;
+#X obj 428 410 r postsweepAzim;
+#X obj 443 432 r presweepAzim;
+#X obj 443 454 t f b;
+#X floatatom 194 630 0 0 0 0 - - -;
+#X obj 361 573 spigot;
+#X floatatom 380 710 0 0 0 0 - - -;
+#X obj 394 529 * -1;
+#X obj 394 550 + 1;
+#X obj 332 531 spigot;
+#X obj 240 251 r postsweepAzim;
+#X obj 339 236 r presweepAzim;
+#X obj 428 506 >= 180;
+#X obj 332 686 abs;
+#X obj 332 712 outlet;
+#X text 327 27 Calculates the length of the arc based on the length
+of the great circle. Always presumed the centre of the arc is a stationary
+origin.;
+#X obj 515 120 r start_armLength;
+#X obj 530 140 r bladeLen;
+#X obj 515 161 +;
+#X obj 552 183 s length;
+#X obj 443 547 r length;
+#X obj 428 589 f;
+#X obj 523 589 t f b;
+#X obj 443 567 * 3.14159;
+#X text 25 695 Calculate the length of the great circle;
+#X text 371 373 Add in the length of half the circumference if angles
+are greater than 180 degrees.;
+#X obj 481 209 /;
+#X obj 503 185 t f b;
+#X obj 481 233 s blarm;
+#X obj 738 170 r hiltThick;
+#X obj 753 192 r tipThick;
+#X obj 738 215 -;
+#X obj 738 240 s dThick;
+#X connect 0 0 1 0;
+#X connect 2 0 3 0;
+#X connect 4 0 6 0;
+#X connect 5 0 7 0;
+#X connect 6 0 8 0;
+#X connect 7 0 9 0;
+#X connect 8 0 25 0;
+#X connect 9 0 8 1;
+#X connect 9 1 8 0;
+#X connect 10 0 16 0;
+#X connect 11 0 10 0;
+#X connect 12 0 14 0;
+#X connect 13 0 12 0;
+#X connect 14 0 15 0;
+#X connect 15 0 17 1;
+#X connect 15 1 17 0;
+#X connect 16 0 17 0;
+#X connect 17 0 23 0;
+#X connect 18 0 20 0;
+#X connect 19 0 24 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 1;
+#X connect 22 1 23 0;
+#X connect 23 0 26 0;
+#X connect 24 0 20 1;
+#X connect 24 1 20 0;
+#X connect 25 0 27 0;
+#X connect 26 0 25 1;
+#X connect 26 1 25 0;
+#X connect 27 0 28 0;
+#X connect 28 0 35 0;
+#X connect 28 0 44 0;
+#X connect 29 0 28 1;
+#X connect 30 0 4 0;
+#X connect 31 0 5 0;
+#X connect 32 0 51 0;
+#X connect 33 0 60 0;
+#X connect 34 0 43 0;
+#X connect 34 0 48 0;
+#X connect 35 0 34 1;
+#X connect 35 0 61 0;
+#X connect 35 1 34 0;
+#X connect 36 0 37 0;
+#X connect 37 0 38 0;
+#X connect 38 0 39 0;
+#X connect 39 0 34 0;
+#X connect 40 0 32 0;
+#X connect 41 0 42 0;
+#X connect 42 0 32 1;
+#X connect 42 1 32 0;
+#X connect 44 0 52 0;
+#X connect 46 0 47 0;
+#X connect 47 0 44 1;
+#X connect 48 0 52 0;
+#X connect 49 0 18 0;
+#X connect 50 0 19 0;
+#X connect 51 0 33 0;
+#X connect 51 0 36 0;
+#X connect 51 0 46 0;
+#X connect 51 0 48 1;
+#X connect 52 0 45 0;
+#X connect 52 0 53 0;
+#X connect 55 0 57 0;
+#X connect 55 0 65 0;
+#X connect 56 0 57 1;
+#X connect 57 0 58 0;
+#X connect 57 0 66 0;
+#X connect 59 0 62 0;
+#X connect 60 0 38 0;
+#X connect 61 0 38 1;
+#X connect 61 1 38 0;
+#X connect 62 0 60 1;
+#X connect 65 0 67 0;
+#X connect 66 0 65 1;
+#X connect 66 1 65 0;
+#X connect 68 0 70 0;
+#X connect 69 0 70 1;
+#X connect 70 0 71 0;
+#X restore 432 -114 pd arcDist;
+#N canvas 824 162 378 516 one_Source 0;
+#X msg 227 355 0;
+#X obj 227 314 r setUp;
+#N canvas 189 123 896 643 positions 0;
+#X text -8608 92 z coordinate of tip;
+#X text -8924 238 x coordinate of tip;
+#X text -8696 50 y coordinate of tip;
+#X obj -8610 295 r Zobs;
+#X obj -8696 293 r Yobs;
+#X obj -8780 285 r Xobs;
+#X obj -8795 52 sig~ 180;
+#X obj -8795 96 -~;
+#X obj -8795 116 *~ 0.002778;
+#X obj -8711 114 *~ 0.002778;
+#X obj -8625 137 *~ 0.002778;
+#X obj -8795 140 cos~;
+#X obj -8711 138 sin~;
+#X obj -8780 162 sin~;
+#X obj -8696 162 sin~;
+#X obj -8625 164 cos~;
+#X obj -8780 207 *~ 1;
+#X obj -8696 207 *~ 1;
+#X obj -8625 211 *~ 1;
+#X obj -8795 235 *~;
+#X obj -8711 238 *~;
+#X obj -8795 354 -~;
+#X obj -8795 378 *~;
+#X obj -8711 356 -~;
+#X obj -8711 385 *~;
+#X obj -8625 356 -~;
+#X obj -8625 380 *~;
+#X obj -8726 419 +~;
+#X obj -8726 451 +~;
+#X obj -8726 478 sqrt~;
+#X obj -8726 503 outlet~;
+#X obj -8780 73 inlet~;
+#X obj -8625 115 inlet~;
+#X obj -8760 501 *~ 2;
+#X obj -8760 526 *~;
+#X text -8731 541 source distance from Observer;
+#X obj -8610 337 line~;
+#X msg -8610 315 \$1 5;
+#X obj -8696 335 line~;
+#X msg -8696 314 \$1 5;
+#X obj -8780 331 line~;
+#X msg -8780 309 \$1 5;
+#N canvas 18 29 1440 731 SourceAngles 0;
+#X obj -8305 185 *~;
+#X obj -8274 186 *~;
+#X obj -8245 185 *~;
+#X obj -8289 220 +~;
+#X obj -8289 252 +~;
+#X obj -8289 279 sqrt~;
+#X obj -8571 236 -~;
+#X obj -8571 260 *~;
+#X obj -8535 235 -~;
+#X obj -8535 264 *~;
+#X obj -8499 235 -~;
+#X obj -8499 259 *~;
+#X obj -8550 298 +~;
+#X obj -8550 330 +~;
+#X obj -8550 357 sqrt~;
+#X obj -8569 47 inlet~;
+#X obj -8522 48 inlet~;
+#X obj -8475 49 inlet~;
+#X obj -8361 50 inlet~;
+#X obj -8313 50 inlet~;
+#X obj -8267 50 inlet~;
+#X obj -8132 43 r Xobs;
+#X obj -8132 83 line~;
+#X msg -8132 64 \$1 5;
+#X obj -8088 84 line~;
+#X msg -8088 65 \$1 5;
+#X obj -8041 84 line~;
+#X msg -8041 65 \$1 5;
+#X obj -8088 44 r Yobs;
+#X obj -8041 44 r Zobs;
+#X text -8362 25 x';
+#X text -8310 27 y';
+#X text -8260 28 z';
+#X text -8567 24 a;
+#X text -8517 29 b;
+#X text -8471 26 c;
+#X obj -8134 214 -~;
+#X obj -8134 238 *~;
+#X obj -8098 213 -~;
+#X obj -8098 242 *~;
+#X obj -8062 213 -~;
+#X obj -8062 237 *~;
+#X obj -8113 276 +~;
+#X obj -8113 304 +~;
+#X obj -8113 335 sqrt~;
+#X obj -7937 219 -~;
+#X obj -7937 243 *~;
+#X obj -7901 218 -~;
+#X obj -7901 247 *~;
+#X obj -7865 218 -~;
+#X obj -7865 242 *~;
+#X obj -7916 281 +~;
+#X obj -7916 313 +~;
+#X obj -7916 340 sqrt~;
+#X text -8578 360 U;
+#X text -8309 279 W;
+#X text -8130 337 d;
+#X obj -8722 229 *~;
+#X obj -8691 230 *~;
+#X obj -8662 229 *~;
+#X obj -8706 264 +~;
+#X obj -8706 296 +~;
+#X obj -8706 323 sqrt~;
+#X text -8726 323 l;
+#X obj -8579 502 +~;
+#X obj -8543 547 -~;
+#X obj -8543 585 /~;
+#X obj -8458 508 *~ 2;
+#X obj -8459 544 *~;
+#X obj -8543 608 arccos~;
+#X obj -8615 612 sig~ 90;
+#X obj -8558 632 -~;
+#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
+-1;
+#X obj -7909 83 s GO;
+#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
+-1 -1;
+#X obj -7969 83 s setUp;
+#X obj -8091 490 +~;
+#X text -7936 341 m;
+#X obj -8091 516 -~;
+#X obj -8034 530 *~ 2;
+#X obj -8035 566 *~;
+#X obj -8100 587 /~;
+#X obj -8100 610 arccos~;
+#X obj -8558 666 outlet~;
+#X obj -8100 659 outlet~;
+#X text -8565 692 Source - Obs Elevation;
+#X text -8160 684 Source - Obs Azimuth;
+#X connect 0 0 3 0;
+#X connect 1 0 3 1;
+#X connect 2 0 4 1;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 4 0 65 1;
+#X connect 6 0 7 0;
+#X connect 6 0 7 1;
+#X connect 7 0 12 0;
+#X connect 8 0 9 0;
+#X connect 8 0 9 1;
+#X connect 9 0 12 1;
+#X connect 10 0 11 0;
+#X connect 10 0 11 1;
+#X connect 11 0 13 1;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 13 0 64 1;
+#X connect 13 0 76 1;
+#X connect 14 0 68 1;
+#X connect 14 0 80 1;
+#X connect 15 0 6 1;
+#X connect 15 0 36 1;
+#X connect 15 0 57 0;
+#X connect 15 0 57 1;
+#X connect 16 0 8 1;
+#X connect 16 0 38 1;
+#X connect 16 0 58 0;
+#X connect 16 0 58 1;
+#X connect 17 0 10 1;
+#X connect 17 0 40 1;
+#X connect 17 0 59 0;
+#X connect 17 0 59 1;
+#X connect 18 0 0 0;
+#X connect 18 0 0 1;
+#X connect 18 0 6 0;
+#X connect 18 0 45 1;
+#X connect 19 0 1 0;
+#X connect 19 0 1 1;
+#X connect 19 0 8 0;
+#X connect 19 0 47 1;
+#X connect 20 0 2 0;
+#X connect 20 0 2 1;
+#X connect 20 0 10 0;
+#X connect 20 0 49 1;
+#X connect 21 0 23 0;
+#X connect 22 0 36 0;
+#X connect 22 0 45 0;
+#X connect 23 0 22 0;
+#X connect 24 0 38 0;
+#X connect 24 0 47 0;
+#X connect 25 0 24 0;
+#X connect 26 0 40 0;
+#X connect 26 0 49 0;
+#X connect 27 0 26 0;
+#X connect 28 0 25 0;
+#X connect 29 0 27 0;
+#X connect 36 0 37 0;
+#X connect 36 0 37 1;
+#X connect 37 0 42 0;
+#X connect 38 0 39 0;
+#X connect 38 0 39 1;
+#X connect 39 0 42 1;
+#X connect 40 0 41 0;
+#X connect 40 0 41 1;
+#X connect 41 0 43 1;
+#X connect 42 0 43 0;
+#X connect 43 0 44 0;
+#X connect 43 0 76 0;
+#X connect 44 0 79 0;
+#X connect 45 0 46 0;
+#X connect 45 0 46 1;
+#X connect 46 0 51 0;
+#X connect 47 0 48 0;
+#X connect 47 0 48 1;
+#X connect 48 0 51 1;
+#X connect 49 0 50 0;
+#X connect 49 0 50 1;
+#X connect 50 0 52 1;
+#X connect 51 0 52 0;
+#X connect 52 0 53 0;
+#X connect 52 0 78 1;
+#X connect 57 0 60 0;
+#X connect 58 0 60 1;
+#X connect 59 0 61 1;
+#X connect 60 0 61 0;
+#X connect 61 0 62 0;
+#X connect 61 0 64 0;
+#X connect 62 0 67 0;
+#X connect 64 0 65 0;
+#X connect 65 0 66 0;
+#X connect 66 0 69 0;
+#X connect 67 0 68 0;
+#X connect 68 0 66 1;
+#X connect 69 0 71 1;
+#X connect 70 0 71 0;
+#X connect 71 0 83 0;
+#X connect 72 0 73 0;
+#X connect 74 0 75 0;
+#X connect 76 0 78 0;
+#X connect 78 0 81 0;
+#X connect 79 0 80 0;
+#X connect 80 0 81 1;
+#X connect 81 0 82 0;
+#X connect 82 0 84 0;
+#X restore -8407 466 pd SourceAngles;
+#X obj -8407 488 outlet~;
+#X obj -8320 488 outlet~;
+#X text -8481 514 Source - Obs Elevation;
+#X text -8326 515 Source - Obs Azimuth;
+#X obj -8431 61 inlet;
+#X text -8483 40 Source position on sword;
+#X obj -8355 402 inlet~;
+#X obj -8338 421 inlet~;
+#X obj -8320 442 inlet~;
+#X connect 3 0 37 0;
+#X connect 4 0 39 0;
+#X connect 5 0 41 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 7 0 9 0;
+#X connect 8 0 11 0;
+#X connect 9 0 12 0;
+#X connect 10 0 13 0;
+#X connect 10 0 14 0;
+#X connect 10 0 15 0;
+#X connect 11 0 19 0;
+#X connect 12 0 20 0;
+#X connect 13 0 16 0;
+#X connect 14 0 17 0;
+#X connect 15 0 18 0;
+#X connect 16 0 19 1;
+#X connect 17 0 20 1;
+#X connect 18 0 25 0;
+#X connect 18 0 42 2;
+#X connect 19 0 21 0;
+#X connect 19 0 42 0;
+#X connect 20 0 23 0;
+#X connect 20 0 42 1;
+#X connect 21 0 22 0;
+#X connect 21 0 22 1;
+#X connect 22 0 27 0;
+#X connect 23 0 24 0;
+#X connect 23 0 24 1;
+#X connect 24 0 27 1;
+#X connect 25 0 26 0;
+#X connect 25 0 26 1;
+#X connect 26 0 28 1;
+#X connect 27 0 28 0;
+#X connect 28 0 29 0;
+#X connect 29 0 30 0;
+#X connect 29 0 33 0;
+#X connect 31 0 7 1;
+#X connect 32 0 10 0;
+#X connect 33 0 34 0;
+#X connect 36 0 25 1;
+#X connect 37 0 36 0;
+#X connect 38 0 23 1;
+#X connect 39 0 38 0;
+#X connect 40 0 21 1;
+#X connect 41 0 40 0;
+#X connect 42 0 43 0;
+#X connect 42 1 44 0;
+#X connect 47 0 16 1;
+#X connect 47 0 17 1;
+#X connect 47 0 18 1;
+#X connect 49 0 42 3;
+#X connect 50 0 42 4;
+#X connect 51 0 42 5;
+#X restore 159 291 pd positions;
+#X msg 200 336 0.5;
+#X obj 145 165 r bladeLen;
+#X obj 118 378 freqCalcCyl3No_D3Mach;
+#X obj 228 23 loadbang;
+#N canvas 63 71 726 590 myThinkness 0;
+#X obj 136 61 inlet;
+#X obj 136 87 unpack;
+#X obj 136 110 - 1;
+#X obj 169 111 - 1;
+#X obj 227 252 outlet;
+#X obj 167 204 r hiltThick;
+#X obj 272 124 r tipThick;
+#X obj 257 102 r hiltThick;
+#X obj 257 149 -;
+#X obj 257 176 /;
+#X obj 227 228 -;
+#X obj 242 203 *;
+#X obj 200 142 t f b;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 1 1 3 0;
+#X connect 2 0 11 0;
+#X connect 3 0 12 0;
+#X connect 5 0 10 0;
+#X connect 6 0 8 1;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 11 1;
+#X connect 10 0 4 0;
+#X connect 11 0 10 1;
+#X connect 12 0 9 1;
+#X connect 12 1 9 0;
+#X restore 131 140 pd myThinkness;
+#X obj 180 23 r setUp;
+#X obj 159 188 inlet~;
+#X obj 172 209 inlet~;
+#X obj 200 230 inlet~;
+#X obj 214 251 inlet~;
+#X obj 228 271 inlet~;
+#X msg 228 46 12 12;
+#X connect 0 0 5 9;
+#X connect 0 0 5 8;
+#X connect 0 0 5 7;
+#X connect 0 0 5 10;
+#X connect 1 0 0 0;
+#X connect 1 0 3 0;
+#X connect 2 0 5 3;
+#X connect 2 1 5 4;
+#X connect 2 2 5 5;
+#X connect 3 0 5 6;
+#X connect 4 0 5 2;
+#X connect 6 0 14 0;
+#X connect 7 0 5 1;
+#X connect 8 0 14 0;
+#X connect 9 0 2 0;
+#X connect 10 0 2 1;
+#X connect 11 0 2 3;
+#X connect 12 0 2 4;
+#X connect 13 0 2 5;
+#X connect 14 0 7 0;
+#X restore 360 123 pd one_Source;
+#X obj 513 -132 centreAngles;
+#N canvas 572 380 614 399 PlaneFind 0;
+#N canvas 2 23 1440 824 baseFind 0;
+#X text -8140 262 z coordinate of tip;
+#X text -8461 291 x coordinate of tip;
+#X text -8264 135 y coordinate of tip;
+#X obj -8297 237 r length;
+#X obj -8212 237 r length;
+#X obj -8141 241 r length;
+#X obj -8332 105 sig~ 180;
+#X obj -8332 149 -~;
+#X obj -8332 169 *~ 0.002778;
+#X obj -8248 167 *~ 0.002778;
+#X obj -8162 190 *~ 0.002778;
+#X obj -8332 193 cos~;
+#X obj -8248 191 sin~;
+#X obj -8317 215 sin~;
+#X obj -8233 215 sin~;
+#X obj -8162 217 cos~;
+#X obj -8317 260 *~ 1;
+#X obj -8233 260 *~ 1;
+#X obj -8162 264 *~ 1;
+#X obj -8332 304 *~;
+#X obj -8248 291 *~;
+#X obj -8317 126 inlet~;
+#X obj -8162 168 inlet~;
+#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
+-1;
+#X obj -8837 78 s GO;
+#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
+-1 -1;
+#X obj -8897 78 s setUp;
+#X text -8327 41 Calculate where the mid point of the swing should
+be in order that the max speed is in the xz plane;
+#X text -8767 21 The start position of the sword and the mid point
+are then vectors that describe plane of the sword. From this we can
+project to a point that is the closest point to the observer and calculate
+the elevation and azimuth between source and observer.;
+#X obj -8773 126 inlet~;
+#X obj -8719 126 inlet~;
+#X obj -8613 123 inlet~;
+#X text -8774 109 a11;
+#X text -8716 108 a21;
+#X text -8612 105 a31;
+#X text -8188 263 a32;
+#X text -8269 298 a22;
+#X text -8310 292 a12;
+#X obj -8773 167 *~;
+#X obj -8719 165 *~;
+#X obj -8613 164 *~;
+#X obj -8719 195 +~;
+#X obj -8734 219 +~;
+#X obj -8563 353 *~;
+#X obj -8532 354 *~;
+#X obj -8502 355 *~;
+#X obj -8532 380 +~;
+#X obj -8547 404 +~;
+#X obj -8332 333 *~;
+#X obj -8248 339 *~;
+#X obj -8162 339 *~;
+#X obj -8248 371 +~;
+#X obj -8263 395 +~;
+#X text -8761 219 b11;
+#X text -8620 396 b12 & b21;
+#X text -8291 393 b22;
+#X obj -8278 423 *~;
+#X obj -8546 439 *~;
+#X obj -8278 449 -~;
+#X obj -8321 463 sig~ 1;
+#X obj -8293 486 /~;
+#X text -8250 451 Determinant;
+#X obj -8592 442 *~ -1;
+#X text -8669 442 -b12 & -b21;
+#X text -8873 287 Martix a is original;
+#X text -8873 317 Martix c is inverse b;
+#X text -8873 302 Martix b is a' * a;
+#X obj -8263 517 *~;
+#X text -8233 516 c11;
+#X obj -8749 522 *~;
+#X obj -8460 525 *~;
+#X text -8522 525 c12 & c21;
+#X obj -8773 617 *~;
+#X obj -8758 642 *~;
+#X text -8774 510 c22;
+#X obj -8773 667 +~;
+#X obj -8643 619 *~;
+#X obj -8628 644 *~;
+#X obj -8643 669 +~;
+#X obj -8518 629 *~;
+#X obj -8503 654 *~;
+#X obj -8518 679 +~;
+#X obj -8383 638 *~;
+#X obj -8368 663 *~;
+#X obj -8383 688 +~;
+#X obj -8253 640 *~;
+#X obj -8238 665 *~;
+#X obj -8253 690 +~;
+#X obj -8128 650 *~;
+#X obj -8113 675 *~;
+#X obj -8128 700 +~;
+#X text -8875 331 Matrix d is a * b;
+#X text -8802 665 d11;
+#X text -8669 666 d21;
+#X text -8545 678 d31;
+#X text -8409 687 d12;
+#X text -8280 686 d22;
+#X text -8150 697 d32;
+#X obj -7912 206 *~;
+#X obj -7897 231 *~;
+#X obj -7912 256 +~;
+#X obj -7912 329 *~;
+#X obj -7897 354 *~;
+#X obj -7912 379 +~;
+#X obj -7914 448 *~;
+#X obj -7899 473 *~;
+#X obj -7914 498 +~;
+#X obj -7797 207 *~;
+#X obj -7782 232 *~;
+#X obj -7797 257 +~;
+#X obj -7797 330 *~;
+#X obj -7782 355 *~;
+#X obj -7797 380 +~;
+#X obj -7799 449 *~;
+#X obj -7784 474 *~;
+#X obj -7799 499 +~;
+#X obj -7672 204 *~;
+#X obj -7657 229 *~;
+#X obj -7672 254 +~;
+#X obj -7672 327 *~;
+#X obj -7657 352 *~;
+#X obj -7672 377 +~;
+#X obj -7674 446 *~;
+#X obj -7659 471 *~;
+#X obj -7674 496 +~;
+#X text -7955 132 Under all this is the projection matrix onto the
+plane of the sword;
+#X text -7640 256 p13;
+#X text -7769 255 p12;
+#X text -7887 256 p11;
+#X text -7641 375 p23;
+#X text -7772 380 p22;
+#X text -7890 384 p21;
+#X text -7644 498 p33;
+#X text -7772 499 p32;
+#X text -7888 493 p31;
+#N canvas 285 176 638 403 ProjectionPoint 0;
+#X obj -140 119 inlet~;
+#X obj -101 140 inlet~;
+#X obj -65 160 inlet~;
+#X obj 62 112 inlet~;
+#X obj 102 134 inlet~;
+#X obj 138 156 inlet~;
+#X obj 69 19 r Xobs;
+#X obj 154 19 r Zobs;
+#X obj 112 19 r Yobs;
+#X msg 69 41 \$1 5;
+#X obj 69 63 line~;
+#X obj -101 192 *~;
+#X obj -65 193 *~;
+#X obj -140 192 *~;
+#X obj -116 217 +~;
+#X obj -116 242 +~;
+#X msg 112 41 \$1 5;
+#X obj 112 63 line~;
+#X obj 102 183 *~;
+#X obj 138 184 *~;
+#X obj 63 183 *~;
+#X obj 87 213 +~;
+#X obj 87 241 +~;
+#X msg 153 43 \$1 5;
+#X obj 153 65 line~;
+#X obj 260 117 inlet~;
+#X obj 299 137 inlet~;
+#X obj 335 158 inlet~;
+#X obj 299 186 *~;
+#X obj 335 187 *~;
+#X obj 260 186 *~;
+#X obj 284 219 +~;
+#X obj 284 250 +~;
+#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
+-1;
+#X obj -136 85 s GO;
+#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
+-1 -1;
+#X obj -196 85 s setUp;
+#X obj -116 266 outlet~;
+#X obj 87 266 outlet~;
+#X obj 284 275 outlet~;
+#X text -80 315 x' \, y' & z' relates to the point in the plane of
+the sword when the observer position is projected on;
+#X text -89 244 x';
+#X text 114 243 y';
+#X text 307 248 z';
+#X connect 0 0 13 0;
+#X connect 1 0 11 0;
+#X connect 2 0 12 0;
+#X connect 3 0 20 0;
+#X connect 4 0 18 0;
+#X connect 5 0 19 0;
+#X connect 6 0 9 0;
+#X connect 7 0 23 0;
+#X connect 8 0 16 0;
+#X connect 9 0 10 0;
+#X connect 10 0 13 1;
+#X connect 10 0 20 1;
+#X connect 10 0 30 1;
+#X connect 11 0 14 1;
+#X connect 12 0 15 1;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 15 0 37 0;
+#X connect 16 0 17 0;
+#X connect 17 0 11 1;
+#X connect 17 0 18 1;
+#X connect 17 0 28 1;
+#X connect 18 0 21 1;
+#X connect 19 0 22 1;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 38 0;
+#X connect 23 0 24 0;
+#X connect 24 0 12 1;
+#X connect 24 0 19 1;
+#X connect 24 0 29 1;
+#X connect 25 0 30 0;
+#X connect 26 0 28 0;
+#X connect 27 0 29 0;
+#X connect 28 0 31 1;
+#X connect 29 0 32 1;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X connect 32 0 39 0;
+#X connect 33 0 34 0;
+#X connect 35 0 36 0;
+#X restore -7676 685 pd ProjectionPoint;
+#X obj -7676 705 outlet~;
+#X obj -7624 705 outlet~;
+#X obj -7571 705 outlet~;
+#X connect 3 0 16 1;
+#X connect 4 0 17 1;
+#X connect 5 0 18 1;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 7 0 9 0;
+#X connect 8 0 11 0;
+#X connect 9 0 12 0;
+#X connect 10 0 13 0;
+#X connect 10 0 14 0;
+#X connect 10 0 15 0;
+#X connect 11 0 19 0;
+#X connect 12 0 20 0;
+#X connect 13 0 16 0;
+#X connect 14 0 17 0;
+#X connect 15 0 18 0;
+#X connect 16 0 19 1;
+#X connect 17 0 20 1;
+#X connect 18 0 45 1;
+#X connect 18 0 50 1;
+#X connect 18 0 50 0;
+#X connect 18 0 80 0;
+#X connect 18 0 89 1;
+#X connect 18 0 114 1;
+#X connect 18 0 117 1;
+#X connect 18 0 120 1;
+#X connect 18 0 123 1;
+#X connect 19 0 43 1;
+#X connect 19 0 48 0;
+#X connect 19 0 48 1;
+#X connect 19 0 73 0;
+#X connect 19 0 83 1;
+#X connect 19 0 99 1;
+#X connect 19 0 102 1;
+#X connect 19 0 105 1;
+#X connect 20 0 44 1;
+#X connect 20 0 49 0;
+#X connect 20 0 49 1;
+#X connect 20 0 77 0;
+#X connect 20 0 86 1;
+#X connect 20 0 108 1;
+#X connect 20 0 111 1;
+#X connect 21 0 7 1;
+#X connect 22 0 10 0;
+#X connect 23 0 24 0;
+#X connect 25 0 26 0;
+#X connect 29 0 38 0;
+#X connect 29 0 38 1;
+#X connect 29 0 43 0;
+#X connect 29 0 72 0;
+#X connect 29 0 82 0;
+#X connect 29 0 98 1;
+#X connect 29 0 101 1;
+#X connect 29 0 104 1;
+#X connect 30 0 39 0;
+#X connect 30 0 39 1;
+#X connect 30 0 44 0;
+#X connect 30 0 76 0;
+#X connect 30 0 85 0;
+#X connect 30 0 107 1;
+#X connect 30 0 110 1;
+#X connect 30 0 113 1;
+#X connect 31 0 40 0;
+#X connect 31 0 40 1;
+#X connect 31 0 45 0;
+#X connect 31 0 79 0;
+#X connect 31 0 88 0;
+#X connect 31 0 116 1;
+#X connect 31 0 119 1;
+#X connect 31 0 122 1;
+#X connect 38 0 42 0;
+#X connect 39 0 41 0;
+#X connect 40 0 41 1;
+#X connect 41 0 42 1;
+#X connect 42 0 56 0;
+#X connect 42 0 69 1;
+#X connect 43 0 47 0;
+#X connect 44 0 46 0;
+#X connect 45 0 46 1;
+#X connect 46 0 47 1;
+#X connect 47 0 57 0;
+#X connect 47 0 57 1;
+#X connect 47 0 62 0;
+#X connect 48 0 52 0;
+#X connect 49 0 51 0;
+#X connect 50 0 51 1;
+#X connect 51 0 52 1;
+#X connect 52 0 56 1;
+#X connect 52 0 67 0;
+#X connect 56 0 58 0;
+#X connect 57 0 58 1;
+#X connect 58 0 60 1;
+#X connect 59 0 60 0;
+#X connect 60 0 67 1;
+#X connect 60 0 69 0;
+#X connect 60 0 70 1;
+#X connect 62 0 70 0;
+#X connect 67 0 72 1;
+#X connect 67 0 76 1;
+#X connect 67 0 79 1;
+#X connect 69 0 83 0;
+#X connect 69 0 86 0;
+#X connect 69 0 89 0;
+#X connect 70 0 73 1;
+#X connect 70 0 77 1;
+#X connect 70 0 80 1;
+#X connect 70 0 82 1;
+#X connect 70 0 85 1;
+#X connect 70 0 88 1;
+#X connect 72 0 75 0;
+#X connect 73 0 75 1;
+#X connect 75 0 98 0;
+#X connect 75 0 107 0;
+#X connect 75 0 116 0;
+#X connect 76 0 78 0;
+#X connect 77 0 78 1;
+#X connect 78 0 101 0;
+#X connect 78 0 110 0;
+#X connect 78 0 119 0;
+#X connect 79 0 81 0;
+#X connect 80 0 81 1;
+#X connect 81 0 104 0;
+#X connect 81 0 113 0;
+#X connect 81 0 122 0;
+#X connect 82 0 84 0;
+#X connect 83 0 84 1;
+#X connect 84 0 99 0;
+#X connect 84 0 108 0;
+#X connect 84 0 117 0;
+#X connect 85 0 87 0;
+#X connect 86 0 87 1;
+#X connect 87 0 102 0;
+#X connect 87 0 111 0;
+#X connect 87 0 120 0;
+#X connect 88 0 90 0;
+#X connect 89 0 90 1;
+#X connect 90 0 105 0;
+#X connect 90 0 114 0;
+#X connect 90 0 123 0;
+#X connect 98 0 100 0;
+#X connect 99 0 100 1;
+#X connect 100 0 135 0;
+#X connect 101 0 103 0;
+#X connect 102 0 103 1;
+#X connect 103 0 135 3;
+#X connect 104 0 106 0;
+#X connect 105 0 106 1;
+#X connect 106 0 135 6;
+#X connect 107 0 109 0;
+#X connect 108 0 109 1;
+#X connect 109 0 135 1;
+#X connect 110 0 112 0;
+#X connect 111 0 112 1;
+#X connect 112 0 135 4;
+#X connect 113 0 115 0;
+#X connect 114 0 115 1;
+#X connect 115 0 135 7;
+#X connect 116 0 118 0;
+#X connect 117 0 118 1;
+#X connect 118 0 135 2;
+#X connect 119 0 121 0;
+#X connect 120 0 121 1;
+#X connect 121 0 135 5;
+#X connect 122 0 124 0;
+#X connect 123 0 124 1;
+#X connect 124 0 135 8;
+#X connect 135 0 136 0;
+#X connect 135 1 137 0;
+#X connect 135 2 138 0;
+#X restore -8131 307 pd baseFind;
+#X obj -8007 146 r midAzim;
+#X obj -7991 216 r midElev;
+#X obj -7991 260 line~;
+#X msg -7991 238 \$1 5;
+#X obj -8007 192 line~;
+#X msg -8007 170 \$1 5;
+#X floatatom -8218 219 5 0 0 0 - - -;
+#X obj -8229 196 r length;
+#X obj -8144 196 r length;
+#X obj -8073 212 r length;
+#X obj -8264 22 sig~ 180;
+#X obj -8264 108 -~;
+#X obj -8264 128 *~ 0.002778;
+#X obj -8180 126 *~ 0.002778;
+#X obj -8094 151 *~ 0.002778;
+#X obj -8264 152 cos~;
+#X obj -8180 150 sin~;
+#X obj -8249 174 sin~;
+#X obj -8165 174 sin~;
+#X obj -8094 188 cos~;
+#X obj -8249 219 *~ 1;
+#X obj -8165 219 *~ 1;
+#X obj -8094 235 *~ 1;
+#X obj -8264 247 *~;
+#X obj -8180 250 *~;
+#X obj -8249 88 line~;
+#X msg -8249 66 \$1 5;
+#X obj -8094 130 line~;
+#X msg -8094 108 \$1 5;
+#X obj -8249 43 r presweepAzim;
+#X obj -8094 85 r presweepElev;
+#X text -8204 70 Start Coordinates of tip;
+#X obj -8068 329 outlet~;
+#X obj -8100 349 outlet~;
+#X obj -8131 370 outlet~;
+#X connect 0 0 35 0;
+#X connect 0 1 34 0;
+#X connect 0 2 33 0;
+#X connect 1 0 6 0;
+#X connect 2 0 4 0;
+#X connect 3 0 0 4;
+#X connect 4 0 3 0;
+#X connect 5 0 0 3;
+#X connect 6 0 5 0;
+#X connect 8 0 7 0;
+#X connect 8 0 21 1;
+#X connect 9 0 22 1;
+#X connect 10 0 23 1;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 12 0 14 0;
+#X connect 13 0 16 0;
+#X connect 14 0 17 0;
+#X connect 15 0 18 0;
+#X connect 15 0 19 0;
+#X connect 15 0 20 0;
+#X connect 16 0 24 0;
+#X connect 17 0 25 0;
+#X connect 18 0 21 0;
+#X connect 19 0 22 0;
+#X connect 20 0 23 0;
+#X connect 21 0 24 1;
+#X connect 22 0 25 1;
+#X connect 23 0 0 2;
+#X connect 24 0 0 0;
+#X connect 25 0 0 1;
+#X connect 26 0 12 1;
+#X connect 27 0 26 0;
+#X connect 28 0 15 0;
+#X connect 29 0 28 0;
+#X connect 30 0 27 0;
+#X connect 31 0 29 0;
+#X restore 599 -132 pd PlaneFind;
+#X obj 223 189 hsl 128 15 1 10 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 700 1;
+#X obj 220 209 i;
+#X floatatom 231 233 5 0 0 0 - - -;
+#N canvas 630 90 660 718 sourceRe 0;
+#X obj 55 357 *~ 1;
+#X obj 55 515 r myMet;
+#X obj 55 538 snapshot~;
+#X floatatom 55 561 0 0 0 0 - - -;
+#X obj 55 48 r~ tipRe;
+#X obj 170 55 swap 1;
+#X obj 170 78 -;
+#X obj 170 31 r blarm;
+#X obj 185 99 r noSources;
+#X obj 200 121 inlet;
+#X obj 185 144 -;
+#X obj 218 145 - 1;
+#X obj 185 174 /;
+#X obj 170 199 *;
+#X obj 170 227 +;
+#X obj 275 153 - 1;
+#X obj 290 175 - 1;
+#X obj 290 219 r dThick;
+#X obj 305 239 r tipThick;
+#X obj 290 261 /;
+#X obj 275 198 /;
+#X obj 275 284 *;
+#X obj 275 311 + 1;
+#X obj 170 359 *;
+#X obj 478 53 s setUp;
+#X obj 479 33 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X text 235 122 This source number;
+#X text 196 557 Re source = Re tip * ((1-blarm)((N-n)/(N-1)) + blarm)
+* (1 + ((n-1)/(N-1))(Dthick/tipThick));
+#X text 142 12 ((1-blarm)((N-n)/(N-1));
+#X text 304 290 (1 + ((n-1)/(N-1))(Dthick/tipThick));
+#X obj 290 343 *;
+#X obj 361 343 r tipThick;
+#X floatatom 298 374 0 0 0 0 - - -;
+#X obj 98 267 r~ tipSpeed;
+#X obj 98 294 *~ 1;
+#X floatatom 201 265 0 0 0 0 - - -;
+#X obj 75 398 outlet~;
+#X obj 98 321 outlet~;
+#X obj 291 420 outlet;
+#X text 336 408 Source Thickness;
+#X text 90 341 Source Speed;
+#X text 78 416 Source Re;
+#X connect 0 0 2 0;
+#X connect 0 0 36 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 4 0 0 0;
+#X connect 5 0 6 0;
+#X connect 5 1 6 1;
+#X connect 6 0 13 0;
+#X connect 7 0 5 0;
+#X connect 7 0 14 1;
+#X connect 8 0 10 0;
+#X connect 8 0 11 0;
+#X connect 8 0 16 0;
+#X connect 9 0 10 1;
+#X connect 9 0 15 0;
+#X connect 10 0 12 0;
+#X connect 11 0 12 1;
+#X connect 12 0 13 1;
+#X connect 13 0 14 0;
+#X connect 14 0 23 0;
+#X connect 14 0 34 1;
+#X connect 14 0 35 0;
+#X connect 15 0 20 0;
+#X connect 16 0 20 1;
+#X connect 17 0 19 0;
+#X connect 18 0 19 1;
+#X connect 19 0 21 1;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 1;
+#X connect 22 0 30 0;
+#X connect 23 0 0 1;
+#X connect 25 0 24 0;
+#X connect 30 0 32 0;
+#X connect 30 0 38 0;
+#X connect 31 0 30 1;
+#X connect 33 0 34 0;
+#X connect 34 0 37 0;
+#X restore 139 254 pd sourceRe;
+#N canvas 656 32 742 749 tipRe 0;
+#X text -122 17 Start calculation with elevation = 0 \, arm length
+is constant \, acceleration/deceleration is constant.;
+#X msg -249 393 \$1 \$2;
+#X obj -249 368 pack;
+#X msg -79 425 0;
+#X obj -250 345 f;
+#X obj -271 301 r GO;
+#X msg 60 427 0 \$1;
+#X obj 59 350 t f b;
+#X obj 60 378 delay;
+#X obj -79 404 r setUp;
+#X text -96 385 Start at 0 speed;
+#X text 102 438 \$1 = time to reach speed of 0;
+#X obj 74 303 r preswingTime;
+#X text 12 263 Trigger once full speed;
+#X text -312 424 \$1 = source speed;
+#X text -312 440 \$2 = time to reach source speed;
+#X obj -224 344 r preswingTime;
+#X text -162 302 Top Speed for this source;
+#X obj 117 367 r postswingTime;
+#X obj 59 283 r GO;
+#X obj 59 325 f;
+#X obj 60 405 f;
+#X obj -79 457 vline~;
+#X text -13 68 Speed is always maximum when at the X Z plane therefore
+the elevation angle is not considered.;
+#X obj 122 548 r myMet;
+#X obj 122 571 snapshot~;
+#X floatatom 122 594 0 0 0 0 - - -;
+#X obj -235 303 r topSpeed;
+#X obj -79 480 *~ 66687.7;
+#X obj -58 502 r tipThick;
+#X obj -79 524 *~ 1;
+#X obj -79 558 s~ tipRe;
+#X text -5 477 Kinematic Viscosity;
+#X obj -158 480 s~ tipSpeed;
+#X connect 1 0 22 0;
+#X connect 2 0 1 0;
+#X connect 3 0 22 0;
+#X connect 4 0 2 0;
+#X connect 5 0 4 0;
+#X connect 6 0 22 0;
+#X connect 7 0 8 1;
+#X connect 7 1 8 0;
+#X connect 8 0 21 0;
+#X connect 9 0 3 0;
+#X connect 12 0 20 1;
+#X connect 16 0 2 1;
+#X connect 18 0 21 1;
+#X connect 19 0 20 0;
+#X connect 20 0 7 0;
+#X connect 21 0 6 0;
+#X connect 22 0 28 0;
+#X connect 22 0 33 0;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 27 0 4 1;
+#X connect 28 0 30 0;
+#X connect 29 0 30 1;
+#X connect 30 0 25 0;
+#X connect 30 0 31 0;
+#X restore 118 118 pd tipRe;
+#X obj 220 167 r setUp;
+#X connect 1 0 0 0;
+#X connect 3 0 2 0;
+#X connect 3 1 2 1;
+#X connect 4 0 2 2;
+#X connect 4 1 2 3;
+#X connect 4 2 2 4;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 6 0 8 0;
+#X connect 10 0 5 0;
+#X restore 219 144 pd sources;
+#X floatatom 227 52 5 0 0 0 - - -;
+#X obj -276 345 hsl 100 20 0.1 3 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 3072 1;
+#X floatatom -319 368 5 0 0 0 - - -;
+#X obj -324 319 r setUp;
+#X obj -279 300 r thisLength;
+#X obj -279 368 s bladeLen;
+#X text -160 56 X Position;
+#X text -166 149 Y Position;
+#X text -168 239 Z Position;
+#X msg -271 321 0.2;
+#X msg -232 322 1;
+#X msg -190 317 2;
+#X obj 83 126 Uzi 20;
+#X msg 79 416 45;
+#X msg 109 492 135;
+#X obj 564 426 s thisPoE;
+#X obj 548 445 s thisPrE;
+#X obj 533 464 s thisPoA;
+#X obj 517 484 s thisPrA;
+#X obj 407 627 s thisXobs;
+#X obj 501 504 s thisTT;
+#X obj 485 525 s thisHT;
+#X obj 470 546 s thisTS;
+#X obj 454 567 s thisLength;
+#X obj 438 588 s thisZobs;
+#X obj 422 607 s thisYobs;
+#X obj 580 407 s GAIN;
+#X obj 62 0 r preswing;
+#X obj 407 368 unpack f f f f f f f f f f f f s;
+#X obj 596 388 s preswing;
+#N canvas 301 296 1054 554 Presets 0;
+#X obj 31 19 inlet;
+#X obj 345 14 inlet;
+#X obj 666 10 inlet;
+#X obj 400 120 select 1 2 3;
+#X obj 43 121 r GO;
+#X obj 78 187 spigot;
+#X msg 146 154 0;
+#X msg 118 153 1;
+#X obj 13 253 s GO;
+#X obj 13 230 onebang 1;
+#X obj 83 318 spigot;
+#X obj 18 384 s GO;
+#X obj 18 361 onebang 1;
+#X msg 21 179 bang;
+#X obj 43 146 delay 200;
+#X obj 48 277 delay 200;
+#X obj 13 210 delay 50;
+#X obj 18 341 delay 50;
+#X obj 437 517 outlet;
+#X obj 476 192 r GO;
+#X obj 511 258 spigot;
+#X obj 446 324 s GO;
+#X obj 446 301 onebang 1;
+#X msg 454 250 bang;
+#X obj 446 281 delay 50;
+#X msg 577 215 0;
+#X msg 549 214 1;
+#X obj 476 217 delay 330;
+#X msg 31 46 2 0 1 1 45 0.005 0.0045 130 210 60 60 50000 bang;
+#X msg 78 210 2 0 1 1 45 0.005 0.0045 130 210 60 120 50000 bang;
+#X msg 83 341 2 0 1 1 45 0.005 0.0045 135 225 120 120 50000 bang;
+#X msg 345 44 1 2 1 0.6 60 0.012 0.008 90 270 45 90 50000 bang;
+#X msg 512 281 1 2 1 0.6 50 0.012 0.008 45 290 30 85 50000 bang;
+#X msg 666 40 2 0 1 1 45 0.005 0.0045 130 210 60 60 50000 bang;
+#X connect 0 0 28 0;
+#X connect 0 0 3 0;
+#X connect 0 0 13 0;
+#X connect 1 0 31 0;
+#X connect 1 0 3 0;
+#X connect 1 0 23 0;
+#X connect 2 0 33 0;
+#X connect 2 0 3 0;
+#X connect 3 0 7 0;
+#X connect 3 0 25 0;
+#X connect 3 1 6 0;
+#X connect 3 1 26 0;
+#X connect 3 2 6 0;
+#X connect 3 2 25 0;
+#X connect 4 0 14 0;
+#X connect 5 0 29 0;
+#X connect 5 0 16 0;
+#X connect 6 0 5 1;
+#X connect 6 0 10 1;
+#X connect 7 0 5 1;
+#X connect 7 0 10 1;
+#X connect 9 0 8 0;
+#X connect 9 0 15 0;
+#X connect 10 0 30 0;
+#X connect 10 0 17 0;
+#X connect 12 0 11 0;
+#X connect 13 0 9 1;
+#X connect 13 0 12 1;
+#X connect 14 0 5 0;
+#X connect 15 0 10 0;
+#X connect 16 0 9 0;
+#X connect 17 0 12 0;
+#X connect 19 0 27 0;
+#X connect 20 0 24 0;
+#X connect 20 0 32 0;
+#X connect 22 0 21 0;
+#X connect 23 0 22 1;
+#X connect 24 0 22 0;
+#X connect 25 0 20 1;
+#X connect 26 0 20 1;
+#X connect 27 0 20 0;
+#X connect 28 0 18 0;
+#X connect 29 0 18 0;
+#X connect 30 0 18 0;
+#X connect 31 0 18 0;
+#X connect 32 0 18 0;
+#X restore 458 324 pd Presets;
+#X msg 458 298 1;
+#X msg 486 298 2;
+#X msg 515 297 3;
+#X obj 527 325 s preswing;
+#X msg 383 346 20 23 -2 1.7 280 0.05 0.03 0 360 90 90 0.1 bang;
+#X obj 295 129 hsl 100 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 3200 1;
+#X obj 292 155 i;
+#X floatatom 323 156 5 0 0 0 - - -;
+#X obj 292 107 r setUp;
+#X msg -204 491 0.01;
+#X msg -210 575 0.001;
+#X obj 292 182 s noSources;
+#X connect 0 0 1 0;
+#X connect 1 0 97 0;
+#X connect 4 0 3 0;
+#X connect 4 0 5 0;
+#X connect 9 0 10 0;
+#X connect 9 0 51 0;
+#X connect 11 0 13 0;
+#X connect 11 0 96 0;
+#X connect 12 0 14 0;
+#X connect 12 0 15 0;
+#X connect 18 0 19 0;
+#X connect 20 0 21 0;
+#X connect 21 0 18 0;
+#X connect 22 0 21 1;
+#X connect 22 0 108 0;
+#X connect 23 0 120 0;
+#X connect 25 0 4 0;
+#X connect 26 0 9 0;
+#X connect 27 0 11 0;
+#X connect 28 0 12 0;
+#X connect 29 0 54 0;
+#X connect 30 0 4 0;
+#X connect 31 0 11 0;
+#X connect 32 0 12 0;
+#X connect 33 0 54 0;
+#X connect 34 0 35 0;
+#X connect 35 0 23 0;
+#X connect 36 0 37 0;
+#X connect 36 0 52 0;
+#X connect 38 0 36 0;
+#X connect 39 0 40 0;
+#X connect 39 0 45 0;
+#X connect 41 0 39 0;
+#X connect 42 0 43 0;
+#X connect 42 0 46 0;
+#X connect 44 0 42 0;
+#X connect 54 0 53 0;
+#X connect 55 0 58 0;
+#X connect 55 0 61 0;
+#X connect 56 0 59 0;
+#X connect 56 0 62 0;
+#X connect 57 0 60 0;
+#X connect 57 0 63 0;
+#X connect 64 0 55 0;
+#X connect 65 0 57 0;
+#X connect 66 0 56 0;
+#X connect 67 0 55 0;
+#X connect 68 0 56 0;
+#X connect 69 0 57 0;
+#X connect 70 0 56 0;
+#X connect 71 0 9 0;
+#X connect 72 0 57 0;
+#X connect 73 0 55 0;
+#X connect 74 0 56 0;
+#X connect 75 0 56 0;
+#X connect 76 0 4 0;
+#X connect 77 0 55 0;
+#X connect 78 0 4 0;
+#X connect 79 0 55 0;
+#X connect 80 0 56 0;
+#X connect 81 0 57 0;
+#X connect 82 0 9 0;
+#X connect 83 0 36 0;
+#X connect 84 0 39 0;
+#X connect 85 0 42 0;
+#X connect 86 0 9 0;
+#X connect 90 0 92 0;
+#X connect 91 0 87 0;
+#X connect 91 1 88 0;
+#X connect 92 0 93 0;
+#X connect 93 0 91 0;
+#X connect 93 0 95 0;
+#X connect 94 0 93 0;
+#X connect 97 0 2 0;
+#X connect 98 0 9 0;
+#X connect 99 0 9 0;
+#X connect 100 0 42 0;
+#X connect 101 0 39 0;
+#X connect 102 0 36 0;
+#X connect 103 0 39 0;
+#X connect 103 0 42 0;
+#X connect 104 0 9 0;
+#X connect 105 0 56 0;
+#X connect 106 0 57 0;
+#X connect 109 0 110 0;
+#X connect 109 0 113 0;
+#X connect 111 0 109 0;
+#X connect 112 0 109 0;
+#X connect 117 0 109 0;
+#X connect 118 0 109 0;
+#X connect 119 0 109 0;
+#X connect 120 0 24 0;
+#X connect 121 0 39 0;
+#X connect 122 0 42 0;
+#X connect 135 0 23 0;
+#X connect 136 0 127 0;
+#X connect 136 1 133 0;
+#X connect 136 2 132 0;
+#X connect 136 3 131 0;
+#X connect 136 4 130 0;
+#X connect 136 5 129 0;
+#X connect 136 6 128 0;
+#X connect 136 7 126 0;
+#X connect 136 8 125 0;
+#X connect 136 9 124 0;
+#X connect 136 10 123 0;
+#X connect 136 11 134 0;
+#X connect 136 12 137 0;
+#X connect 139 0 138 0;
+#X connect 139 0 142 0;
+#X connect 140 0 138 1;
+#X connect 140 0 142 0;
+#X connect 141 0 138 2;
+#X connect 141 0 142 0;
+#X connect 143 0 136 0;
+#X connect 144 0 145 0;
+#X connect 145 0 146 0;
+#X connect 145 0 150 0;
+#X connect 147 0 144 0;
+#X connect 148 0 11 0;
+#X connect 149 0 12 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/arccos.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,30 @@
+#N canvas 88 45 313 368 10;
+#X obj 112 255 * 360;
+#X floatatom 159 306 5 0 0 0 - - -;
+#X obj 112 279 / 6.28319;
+#X obj 70 47 *;
+#X obj 70 79 swap 1;
+#X obj 70 112 -;
+#X obj 70 141 sqrt;
+#X obj 112 172 /;
+#X obj 112 200 atan;
+#X obj 112 226 * 2;
+#X text 152 108 Arccos of angle;
+#X obj 127 48 + 1;
+#X obj 112 306 outlet;
+#X obj 70 20 inlet;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X connect 2 0 12 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 4 1 5 1;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 0 0;
+#X connect 11 0 7 1;
+#X connect 13 0 3 1;
+#X connect 13 0 3 0;
+#X connect 13 0 11 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/arccos~.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,39 @@
+#N canvas 177 186 443 430 10;
+#X obj 162 73 inlet~;
+#X obj 162 108 *~;
+#X obj 197 107 +~ 1;
+#X obj 147 136 -~;
+#X obj 113 109 sig~ 1;
+#X obj 147 163 sqrt~;
+#X obj 182 193 /~;
+#X obj 182 221 atan~;
+#X obj 182 248 *~ 2;
+#X obj 69 236 loadbang;
+#X obj 69 259 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 69 280 metro 10;
+#X obj 69 303 snapshot~;
+#X floatatom 69 327 5 0 0 0 - - -;
+#X obj 182 339 outlet~;
+#X obj 182 272 *~ 360;
+#X obj 182 294 /~ 3.14159;
+#X obj 182 315 /~ 2;
+#X connect 0 0 1 0;
+#X connect 0 0 1 1;
+#X connect 0 0 2 0;
+#X connect 1 0 3 1;
+#X connect 2 0 6 1;
+#X connect 3 0 5 0;
+#X connect 4 0 3 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 15 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 17 0 14 0;
+#X connect 17 0 12 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/arcsin~.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,29 @@
+#N canvas 549 79 369 390 10;
+#X obj 178 28 inlet~;
+#X obj 163 67 *~;
+#X obj 116 67 sig~ 1;
+#X obj 148 95 -~;
+#X obj 220 307 outlet~;
+#X obj 148 119 sqrt~;
+#X obj 133 144 -~;
+#X obj 220 168 /~;
+#X obj 220 193 atan~;
+#X obj 220 218 *~ 2;
+#X obj 220 241 *~ 360;
+#X obj 220 262 /~ 3.14159;
+#X obj 220 283 /~ 2;
+#X connect 0 0 1 1;
+#X connect 0 0 1 0;
+#X connect 0 0 7 1;
+#X connect 1 0 3 1;
+#X connect 2 0 3 0;
+#X connect 2 0 6 0;
+#X connect 3 0 5 0;
+#X connect 5 0 6 1;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 4 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/centreAngles.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,119 @@
+#N canvas 55 100 1362 700 10;
+#X obj 58 160 f;
+#X obj 58 117 r GO;
+#X obj 73 138 r preswingTime;
+#X obj 220 117 r setUp;
+#X text 203 98 Start at 0 speed;
+#X obj 235 138 r presweepAzim;
+#X obj 220 161 f;
+#X msg 220 184 \$1;
+#X obj 344 62 t f b;
+#X obj 345 90 delay;
+#X obj 359 17 r preswingTime;
+#X obj 366 139 r postswingTime;
+#X obj 344 -3 r GO;
+#X obj 344 39 f;
+#X obj 345 117 f;
+#X obj 345 162 pack;
+#X obj 387 91 r postsweepAzim;
+#X msg 345 188 \$1 \$2;
+#X obj 168 117 r myEnd;
+#X obj 847 129 f;
+#X obj 847 86 r GO;
+#X obj 868 152 r preswingTime;
+#X obj 1018 151 r setUp;
+#X text 1001 132 Start at 0 speed;
+#X obj 1018 195 f;
+#X msg 1018 218 \$1;
+#X obj 1130 95 t f b;
+#X obj 1131 123 delay;
+#X obj 1145 50 r preswingTime;
+#X obj 1152 172 r postswingTime;
+#X obj 1130 30 r GO;
+#X obj 1130 72 f;
+#X obj 1131 150 f;
+#X obj 1131 195 pack;
+#X msg 1131 221 \$1 \$2;
+#X obj 1033 172 r presweepElev;
+#X obj 1173 98 r postsweepElev;
+#X obj 847 176 pack;
+#X obj 862 108 r midElev;
+#X msg 847 210 \$1 \$2;
+#X obj 647 94 +;
+#X obj 632 121 /;
+#X obj 605 73 t f f;
+#X obj 647 144 r presweepElev;
+#X obj 662 166 r postsweepElev;
+#X obj 647 50 r postswingTime;
+#X obj 662 72 r preswingTime;
+#X obj 632 219 *;
+#X obj 632 287 s midElev;
+#X text 523 -7 Calculate the angles with respect to the centre of the
+swing circle;
+#X obj 969 150 r myEnd;
+#X obj 647 195 -;
+#X obj 632 262 +;
+#X obj 647 239 r postsweepElev;
+#X msg 58 183 180 \$1;
+#X obj 220 242 outlet~;
+#X obj 1018 278 outlet~;
+#X obj 220 218 line~;
+#X obj 1018 252 line~;
+#X text 283 237 Current Sword Azimuth angle;
+#X text 1081 271 Current Sword Elevation angle;
+#X connect 0 0 54 0;
+#X connect 1 0 0 0;
+#X connect 2 0 0 1;
+#X connect 3 0 6 0;
+#X connect 5 0 6 1;
+#X connect 6 0 7 0;
+#X connect 7 0 57 0;
+#X connect 8 0 9 1;
+#X connect 8 1 9 0;
+#X connect 9 0 14 0;
+#X connect 10 0 13 1;
+#X connect 11 0 15 1;
+#X connect 12 0 13 0;
+#X connect 13 0 8 0;
+#X connect 14 0 15 0;
+#X connect 15 0 17 0;
+#X connect 16 0 14 1;
+#X connect 17 0 57 0;
+#X connect 18 0 6 0;
+#X connect 19 0 37 0;
+#X connect 20 0 19 0;
+#X connect 21 0 37 1;
+#X connect 22 0 24 0;
+#X connect 24 0 25 0;
+#X connect 25 0 58 0;
+#X connect 26 0 27 1;
+#X connect 26 1 27 0;
+#X connect 27 0 32 0;
+#X connect 28 0 31 1;
+#X connect 29 0 33 1;
+#X connect 30 0 31 0;
+#X connect 31 0 26 0;
+#X connect 32 0 33 0;
+#X connect 33 0 34 0;
+#X connect 34 0 58 0;
+#X connect 35 0 24 1;
+#X connect 36 0 32 1;
+#X connect 37 0 39 0;
+#X connect 38 0 19 1;
+#X connect 39 0 58 0;
+#X connect 40 0 41 1;
+#X connect 41 0 47 0;
+#X connect 42 0 40 0;
+#X connect 42 1 41 0;
+#X connect 43 0 51 0;
+#X connect 44 0 51 1;
+#X connect 45 0 42 0;
+#X connect 46 0 40 1;
+#X connect 47 0 52 0;
+#X connect 50 0 24 0;
+#X connect 51 0 47 1;
+#X connect 52 0 48 0;
+#X connect 53 0 52 1;
+#X connect 54 0 57 0;
+#X connect 57 0 55 0;
+#X connect 58 0 56 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/fcpan.pd	Mon Feb 22 06:22:54 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;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/freqCalcCyl3No_D2Mach.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,1211 @@
+#N canvas 89 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 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 110 94 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 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 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 102 54 Wind Speed;
+#X obj 305 50 inlet;
+#X floatatom 305 94 5 0 0 0 - - -;
+#X text 301 31 Length;
+#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 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 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;
+#N canvas 203 82 1238 721 GoldfreqGain 0;
+#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 text 533 2 Distance;
+#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 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 text 355 186 Speed of Sound to power 3;
+#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 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 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 887 268 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 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 obj 520 40 s~ \$0-thisDist;
+#X obj 404 111 r~ \$0-thisDist;
+#X obj 404 137 *~;
+#X obj 404 167 *~ 4.05513e+07;
+#X obj 404 220 *~ 32;
+#X obj 513 18 inlet~;
+#X connect 0 0 2 0;
+#X connect 1 0 2 1;
+#X connect 2 0 94 0;
+#X connect 6 0 1 0;
+#X connect 6 0 1 1;
+#X connect 7 0 98 0;
+#X connect 9 0 93 1;
+#X connect 12 0 14 1;
+#X connect 14 0 35 0;
+#X connect 15 0 17 0;
+#X connect 16 0 39 0;
+#X connect 17 0 99 0;
+#X connect 18 0 19 1;
+#X connect 19 0 42 0;
+#X connect 20 0 23 0;
+#X connect 20 0 29 0;
+#X connect 21 0 24 0;
+#X connect 21 0 30 0;
+#X connect 22 0 25 0;
+#X connect 22 0 31 0;
+#X connect 35 0 51 0;
+#X connect 35 0 52 0;
+#X connect 36 0 14 0;
+#X connect 39 0 41 0;
+#X connect 40 0 42 1;
+#X connect 41 0 40 0;
+#X connect 41 0 40 1;
+#X connect 42 0 76 0;
+#X connect 42 0 10 0;
+#X connect 44 0 46 1;
+#X connect 45 0 46 0;
+#X connect 46 0 48 1;
+#X connect 47 0 48 0;
+#X connect 48 0 49 0;
+#X connect 49 0 50 1;
+#X connect 50 0 51 1;
+#X connect 51 0 19 0;
+#X connect 53 0 87 0;
+#X connect 54 0 77 0;
+#X connect 54 0 11 0;
+#X connect 55 0 56 0;
+#X connect 56 0 58 0;
+#X connect 57 0 62 0;
+#X connect 58 0 57 0;
+#X connect 58 0 57 1;
+#X connect 59 0 61 0;
+#X connect 60 0 62 1;
+#X connect 61 0 60 0;
+#X connect 61 0 60 1;
+#X connect 62 0 90 0;
+#X connect 65 0 67 0;
+#X connect 65 0 78 0;
+#X connect 66 0 68 0;
+#X connect 66 0 79 0;
+#X connect 69 0 16 0;
+#X connect 70 0 15 0;
+#X connect 71 0 74 0;
+#X connect 72 0 73 0;
+#X connect 73 0 55 0;
+#X connect 74 0 59 0;
+#X connect 75 0 89 0;
+#X connect 80 0 75 0;
+#X connect 81 0 82 0;
+#X connect 81 0 82 1;
+#X connect 82 0 83 0;
+#X connect 83 0 85 0;
+#X connect 85 0 86 0;
+#X connect 86 0 87 1;
+#X connect 87 0 90 1;
+#X connect 89 0 45 0;
+#X connect 90 0 54 0;
+#X connect 92 0 93 0;
+#X connect 93 0 94 1;
+#X connect 94 0 36 0;
+#X connect 95 0 91 0;
+#X connect 96 0 0 0;
+#X connect 98 0 96 0;
+#X connect 98 0 97 0;
+#X connect 99 0 18 0;
+#X connect 99 0 18 1;
+#X connect 102 0 103 0;
+#X connect 102 0 103 1;
+#X connect 103 0 104 0;
+#X connect 104 0 105 0;
+#X connect 105 0 50 0;
+#X connect 106 0 101 0;
+#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 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 -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 567 *~;
+#X obj -20846 611 /~;
+#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 obj -20777 430 inlet~;
+#X obj -20777 456 *~;
+#X connect 2 0 54 0;
+#X connect 3 0 62 0;
+#X connect 4 0 53 1;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 16 0 17 0;
+#X connect 16 0 22 0;
+#X connect 17 0 23 0;
+#X connect 18 0 19 0;
+#X connect 18 0 21 0;
+#X connect 19 0 24 0;
+#X connect 25 0 57 0;
+#X connect 27 0 42 1;
+#X connect 28 0 27 0;
+#X connect 29 0 41 1;
+#X connect 30 0 31 0;
+#X connect 31 0 34 0;
+#X connect 32 0 33 0;
+#X connect 33 0 34 1;
+#X connect 34 0 36 1;
+#X connect 35 0 36 0;
+#X connect 36 0 29 0;
+#X connect 37 0 38 0;
+#X connect 37 0 38 1;
+#X connect 38 0 40 1;
+#X connect 39 0 40 0;
+#X connect 40 0 41 0;
+#X connect 41 0 42 0;
+#X connect 42 0 43 1;
+#X connect 43 0 44 1;
+#X connect 44 0 59 0;
+#X connect 46 0 30 0;
+#X connect 48 0 46 0;
+#X connect 49 0 46 1;
+#X connect 50 0 51 0;
+#X connect 50 0 51 1;
+#X connect 51 0 54 1;
+#X connect 52 0 53 0;
+#X connect 53 0 55 1;
+#X connect 54 0 55 0;
+#X connect 55 0 25 0;
+#X connect 56 0 57 1;
+#X connect 57 0 58 0;
+#X connect 58 0 44 0;
+#X connect 59 0 45 0;
+#X connect 59 0 5 0;
+#X connect 59 0 11 0;
+#X connect 62 0 63 0;
+#X connect 63 0 2 0;
+#X connect 64 0 65 0;
+#X connect 64 0 65 1;
+#X connect 65 0 43 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 obj 129 663 snapshot~;
+#X floatatom 129 689 0 0 0 0 - - -;
+#X obj 87 691 outlet;
+#X obj 129 638 r myMet;
+#X obj 32 638 r~ \$0-windSpeed;
+#X text 114 711 Wind Speed;
+#X obj 109 72 inlet~;
+#X obj 60 -2 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1
+;
+#X obj 60 51 s GO;
+#X obj 0 -2 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1
+-1;
+#X obj 0 51 s setUp;
+#X obj 378 51 inlet~;
+#X obj 383 74 s~ \$0-dist;
+#X obj 301 659 snapshot~;
+#X floatatom 301 685 0 0 0 0 - - -;
+#X obj 259 687 outlet;
+#X obj 301 634 r myMet;
+#X obj 204 634 r~ \$0-dist;
+#X text 272 712 Distance;
+#X obj 346 231 r~ \$0-dist;
+#X obj 350 477 r~ \$0-dist;
+#X connect 1 0 3 0;
+#X connect 2 0 23 0;
+#X connect 2 0 173 0;
+#X connect 3 0 2 0;
+#X connect 4 0 17 0;
+#X connect 6 0 4 0;
+#X connect 7 0 11 0;
+#X connect 7 0 54 0;
+#X connect 12 0 3 1;
+#X connect 13 0 4 1;
+#X connect 15 0 6 1;
+#X connect 16 0 1 0;
+#X connect 20 0 21 0;
+#X connect 20 0 89 0;
+#X connect 22 0 20 0;
+#X connect 25 0 27 0;
+#X connect 27 0 28 0;
+#X connect 28 0 26 0;
+#X connect 28 0 66 0;
+#X connect 32 0 98 1;
+#X connect 33 0 34 0;
+#X connect 33 0 156 0;
+#X connect 35 0 98 4;
+#X connect 36 0 38 0;
+#X connect 36 0 143 0;
+#X connect 37 0 39 0;
+#X connect 37 0 144 0;
+#X connect 41 0 40 0;
+#X connect 41 0 5 0;
+#X connect 41 0 68 0;
+#X connect 42 0 41 0;
+#X connect 51 0 52 0;
+#X connect 51 0 58 0;
+#X connect 57 0 55 0;
+#X connect 57 1 56 0;
+#X connect 61 0 98 0;
+#X connect 62 0 98 3;
+#X connect 64 0 109 0;
+#X connect 67 0 85 1;
+#X connect 69 0 33 0;
+#X connect 70 0 19 0;
+#X connect 71 0 57 1;
+#X connect 72 0 75 0;
+#X connect 72 0 78 0;
+#X connect 73 0 76 0;
+#X connect 73 0 79 0;
+#X connect 74 0 77 0;
+#X connect 74 0 80 0;
+#X connect 85 0 154 0;
+#X connect 86 0 109 2;
+#X connect 87 0 85 0;
+#X connect 88 0 87 0;
+#X connect 90 0 94 1;
+#X connect 91 0 94 3;
+#X connect 92 0 94 0;
+#X connect 93 0 94 2;
+#X connect 94 0 60 0;
+#X connect 94 1 59 0;
+#X connect 95 0 110 2;
+#X connect 96 0 110 0;
+#X connect 97 0 110 1;
+#X connect 98 0 63 0;
+#X connect 100 0 101 0;
+#X connect 100 0 102 0;
+#X connect 103 0 105 0;
+#X connect 103 0 107 0;
+#X connect 104 0 103 0;
+#X connect 106 0 110 3;
+#X connect 108 0 109 3;
+#X connect 111 0 115 1;
+#X connect 112 0 115 2;
+#X connect 113 0 115 3;
+#X connect 114 0 115 0;
+#X connect 116 0 119 2;
+#X connect 117 0 119 0;
+#X connect 118 0 119 3;
+#X connect 120 0 119 1;
+#X connect 121 0 125 2;
+#X connect 122 0 125 0;
+#X connect 123 0 125 3;
+#X connect 124 0 125 1;
+#X connect 126 0 130 1;
+#X connect 127 0 130 2;
+#X connect 128 0 130 3;
+#X connect 129 0 130 0;
+#X connect 131 0 135 2;
+#X connect 132 0 135 0;
+#X connect 133 0 135 3;
+#X connect 134 0 135 1;
+#X connect 136 0 140 1;
+#X connect 137 0 140 2;
+#X connect 138 0 140 3;
+#X connect 139 0 140 0;
+#X connect 145 0 94 6;
+#X connect 146 0 94 7;
+#X connect 147 0 98 6;
+#X connect 148 0 98 7;
+#X connect 149 0 151 0;
+#X connect 150 0 149 0;
+#X connect 152 0 94 4;
+#X connect 153 0 154 1;
+#X connect 154 0 19 1;
+#X connect 155 0 98 2;
+#X connect 157 0 20 0;
+#X connect 158 0 41 0;
+#X connect 159 0 33 0;
+#X connect 160 0 169 1;
+#X connect 161 0 169 0;
+#X connect 162 0 169 2;
+#X connect 163 0 168 2;
+#X connect 164 0 168 0;
+#X connect 165 0 168 1;
+#X connect 166 0 168 3;
+#X connect 167 0 169 3;
+#X connect 170 0 172 0;
+#X connect 171 0 170 0;
+#X connect 173 0 65 0;
+#X connect 173 0 6 0;
+#X connect 174 0 175 0;
+#X connect 174 0 176 0;
+#X connect 177 0 174 0;
+#X connect 178 0 174 0;
+#X connect 180 0 14 0;
+#X connect 181 0 182 0;
+#X connect 183 0 184 0;
+#X connect 185 0 186 0;
+#X connect 187 0 188 0;
+#X connect 187 0 189 0;
+#X connect 190 0 187 0;
+#X connect 191 0 187 0;
+#X connect 193 0 94 5;
+#X connect 194 0 98 5;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/freqCalcCyl3No_D3Mach.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,991 @@
+#N canvas 55 29 1322 694 10;
+#X text 387 265 Mass Density of Air;
+#X obj 509 266 *~ 1.225;
+#X obj 509 296 *~ 1;
+#X obj 509 459 /~ 1;
+#X obj 509 435 *~;
+#X obj 223 63 inlet;
+#X text 542 385 Reynolds Number;
+#X text 389 452 Strouhal Number;
+#X text 539 321 Viscosity;
+#X obj 230 86 s \$0-diameter;
+#X obj 570 265 r \$0-diameter;
+#X obj 577 440 r \$0-diameter;
+#X obj 120 85 s~ \$0-windSpeed;
+#X obj 576 417 r~ \$0-windSpeed;
+#X obj 509 238 r~ \$0-windSpeed;
+#X obj 509 483 s~ \$0-myFreq;
+#X obj 762 339 *~;
+#X obj 522 365 s~ \$0-myRey;
+#X obj 636 57 inlet;
+#X text 473 502 Calculates the frequency;
+#X text 474 514 based on the physics of;
+#X obj 111 409 r~ \$0-windSpeed;
+#X obj 164 491 r \$0-diameter;
+#X text 97 372 Calculates the gain of the dipole source;
+#X text 459 37 Azimuth;
+#X text 641 39 Pan;
+#X text 533 41 Elevation;
+#X text 384 42 Distance;
+#X text 218 42 Diameter;
+#X text 133 41 Wind Speed;
+#X obj 315 60 inlet;
+#X text 311 41 Length;
+#X obj 509 406 newStrou;
+#X obj 762 408 throw~ l;
+#X obj 789 386 throw~ r;
+#X obj 762 364 fcpan;
+#X obj 325 83 s \$0-leng;
+#X obj 204 336 s~ \$0-dragDiGain;
+#X obj 117 357 s~ \$0-liftDiGain;
+#X obj 98 390 r~ \$0-str;
+#X obj 151 470 r \$0-leng;
+#X obj 98 585 s~ \$0-liftNoiseGain;
+#X obj 409 437 s~ \$0-str;
+#X obj 636 126 s \$0-thisPan;
+#X obj 798 263 r \$0-contFreq;
+#X obj 762 196 r~ \$0-liftNoiseGain;
+#X obj 789 339 r \$0-thisPan;
+#X obj 731 66 inlet;
+#X obj 803 65 inlet;
+#X obj 877 64 inlet;
+#X obj 736 89 s \$0-rotaX;
+#X obj 810 87 s \$0-rotaY;
+#X obj 885 87 s \$0-rotaZ;
+#X text 727 47 X Rotation;
+#X text 797 46 Y Rotation;
+#X text 872 45 Z Rotation;
+#X text 743 170 Noise spectrum calculation;
+#X obj 777 287 hip~;
+#X obj 777 242 rpole~ 0.99;
+#X obj 125 168 r~ \$0-windSpeed;
+#X obj 143 207 r \$0-diameter;
+#X obj 117 147 r~ \$0-str;
+#X obj 135 188 r \$0-leng;
+#N canvas 158 107 1238 721 GoldfreqGain 0;
+#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 218 145 pd pow6;
+#X obj 172 135 *~;
+#X obj 218 171 *~;
+#X text 533 2 Distance;
+#X text 724 595 Calculates Drag Dipole gain;
+#X text 48 508 Calculates Lift Dipole gain;
+#X obj 172 95 inlet~;
+#X obj 218 112 inlet~;
+#X text 327 165 Diameter;
+#X obj 290 164 inlet;
+#X obj 219 528 outlet~;
+#X obj 758 523 outlet~;
+#X obj 240 258 inlet;
+#X text 278 253 Length;
+#X obj 219 284 *~ 1;
+#X obj 234 391 /~ 360;
+#X obj 234 440 *~;
+#X obj 219 463 *~;
+#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 73 95 Strouhal number;
+#X text 268 112 Wind speed;
+#X text 265 206 Corr Length;
+#X obj 219 310 *~ 2.50663;
+#X obj 218 233 *~ 1.225;
+#X text 92 229 Mass Density of Air;
+#X text 147 312 Sqrt(2xpi);
+#X obj 283 415 /~ 360;
+#X obj 283 461 *~;
+#X obj 283 437 cos~;
+#X obj 219 502 *~;
+#X text 370 104 Speed of Sound to power 3;
+#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 298 *~;
+#X obj 219 346 /~;
+#X obj 132 346 s~ \$0-aGainG;
+#X obj 872 290 r~ \$0-aGainG;
+#X obj 758 500 *~ 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 text 892 379 Speed of Sound to power 3;
+#X obj 872 423 /~;
+#X text 588 167 Remember - Goldstein moves cylinder;
+#X obj 518 170 /~ 360;
+#X obj 758 475 *~;
+#X obj 424 40 s~ \$0-thisColL;
+#X obj 269 145 r~ \$0-thisColL;
+#X obj 269 185 *~ 1;
+#X obj 218 205 *~;
+#X obj 424 17 inlet~;
+#X obj 234 417 sin~;
+#X obj 404 167 *~;
+#X obj 404 141 r~ \$0-thisDist;
+#X obj 520 40 s~ \$0-thisDist;
+#X obj 513 18 inlet~;
+#X obj 404 220 *~ 32;
+#X obj 404 193 *~ 4.05513e+07;
+#X obj 773 336 r~ \$0-this_azim;
+#X obj 713 19 inlet~;
+#X obj 720 44 s~ \$0-gain_azim;
+#X obj 283 392 r~ \$0-gain_azim;
+#X obj 611 21 inlet~;
+#X obj 887 312 r~ \$0-thisDist;
+#X obj 887 336 *~;
+#X obj 887 361 *~ 4.05513e+07;
+#X obj 887 399 *~ 32;
+#X obj 616 44 s~ \$0-gain_elev;
+#X obj 518 130 r~ \$0-gain_elev;
+#X obj 723 315 r~ \$0-gain_elev;
+#X obj 234 369 r~ \$0-gain_elev;
+#X obj 550 190 /~ 343.21;
+#X connect 0 0 2 0;
+#X connect 1 0 2 1;
+#X connect 2 0 70 0;
+#X connect 6 0 1 0;
+#X connect 6 0 1 1;
+#X connect 7 0 0 0;
+#X connect 7 0 92 0;
+#X connect 9 0 69 1;
+#X connect 12 0 14 1;
+#X connect 14 0 33 0;
+#X connect 15 0 72 0;
+#X connect 16 0 17 1;
+#X connect 17 0 40 0;
+#X connect 18 0 21 0;
+#X connect 18 0 27 0;
+#X connect 19 0 22 0;
+#X connect 19 0 28 0;
+#X connect 20 0 23 0;
+#X connect 20 0 29 0;
+#X connect 33 0 48 0;
+#X connect 33 0 49 0;
+#X connect 34 0 14 0;
+#X connect 37 0 39 0;
+#X connect 38 0 40 1;
+#X connect 39 0 38 0;
+#X connect 39 0 38 1;
+#X connect 40 0 10 0;
+#X connect 42 0 43 0;
+#X connect 43 0 45 1;
+#X connect 44 0 45 0;
+#X connect 45 0 46 0;
+#X connect 46 0 47 1;
+#X connect 47 0 48 1;
+#X connect 48 0 17 0;
+#X connect 50 0 63 0;
+#X connect 51 0 11 0;
+#X connect 52 0 53 0;
+#X connect 53 0 55 0;
+#X connect 54 0 59 0;
+#X connect 55 0 54 0;
+#X connect 55 0 54 1;
+#X connect 56 0 58 0;
+#X connect 57 0 59 1;
+#X connect 58 0 57 0;
+#X connect 58 0 57 1;
+#X connect 59 0 66 0;
+#X connect 63 0 66 1;
+#X connect 65 0 42 0;
+#X connect 66 0 51 0;
+#X connect 68 0 69 0;
+#X connect 69 0 70 1;
+#X connect 70 0 34 0;
+#X connect 71 0 67 0;
+#X connect 72 0 16 0;
+#X connect 72 0 16 1;
+#X connect 73 0 78 0;
+#X connect 74 0 73 0;
+#X connect 74 0 73 1;
+#X connect 76 0 75 0;
+#X connect 77 0 47 0;
+#X connect 78 0 77 0;
+#X connect 79 0 56 0;
+#X connect 80 0 81 0;
+#X connect 82 0 37 0;
+#X connect 83 0 88 0;
+#X connect 84 0 85 0;
+#X connect 84 0 85 1;
+#X connect 85 0 86 0;
+#X connect 86 0 87 0;
+#X connect 87 0 63 1;
+#X connect 89 0 65 0;
+#X connect 90 0 52 0;
+#X connect 91 0 15 0;
+#X connect 92 0 43 1;
+#X restore 117 312 pd GoldfreqGain;
+#N canvas 534 206 861 633 GoldnoiseGain 0;
+#X text -21029 218 Mass Density of Air \, squared;
+#X text -20831 411 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 98 pd pow8;
+#X obj -20846 72 inlet~;
+#X obj -20801 145 inlet;
+#X obj -20846 560 outlet~;
+#X text -20915 17 Gain proportional to windspeed to power 8 for spectrum
+;
+#X text -20765 146 Diameter;
+#X text -20798 63 Wind speed;
+#X text -21027 546 Calculates wake gain;
+#X text -20399 16 Azimuth;
+#X text -20343 16 Elevation;
+#X obj -20398 96 s~ \$0-this_azim;
+#X obj -20342 77 s~ \$0-this_elev;
+#X obj -20846 221 *~ 1.225;
+#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 -20760 433 pd pow5;
+#X obj -20760 409 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 -20725 359 pd pow5;
+#X obj -20679 209 /~ 360;
+#X obj -20679 236 cos~;
+#X obj -20679 307 *~;
+#X obj -20725 306 sig~ 1;
+#X obj -20725 333 -~;
+#X obj -20760 280 sig~ 3.1416;
+#X obj -20760 305 *~;
+#X obj -20775 257 sig~ 16;
+#X obj -20775 329 *~;
+#X obj -20775 387 *~;
+#X obj -20775 460 *~;
+#X obj -20831 486 *~;
+#X obj -20846 514 /~;
+#X obj -20679 187 -~;
+#X text -20627 194 Angle goes with the flow in Goldstein hence 90 -
+theta so that theta is same angle as dipole angles.;
+#X obj -20679 142 sig~ 180;
+#X obj -20616 146 r~ \$0-this_elev;
+#X obj -20905 110 inlet~;
+#X obj -20905 137 *~;
+#X obj -20822 123 inlet~;
+#X obj -20822 170 *~ 1;
+#X obj -20846 170 *~;
+#X obj -20846 194 *~;
+#X obj -20821 246 inlet;
+#X obj -20846 268 *~ 1;
+#X obj -20846 291 *~ 2.50663;
+#X text -20776 124 Corrolation Length;
+#X text -20790 231 Length;
+#X obj -20831 432 inlet~;
+#X obj -20831 458 *~;
+#X obj -20398 33 inlet~;
+#X obj -20342 33 inlet~;
+#X obj -20846 536 *~ 1;
+#X obj -20664 286 /~ 343.21;
+#X connect 2 0 39 0;
+#X connect 3 0 2 0;
+#X connect 3 0 51 0;
+#X connect 4 0 38 1;
+#X connect 14 0 42 0;
+#X connect 15 0 28 1;
+#X connect 16 0 15 0;
+#X connect 17 0 27 1;
+#X connect 18 0 19 0;
+#X connect 19 0 20 0;
+#X connect 20 0 22 1;
+#X connect 21 0 22 0;
+#X connect 22 0 17 0;
+#X connect 23 0 24 0;
+#X connect 23 0 24 1;
+#X connect 24 0 26 1;
+#X connect 25 0 26 0;
+#X connect 26 0 27 0;
+#X connect 27 0 28 0;
+#X connect 28 0 29 1;
+#X connect 29 0 30 1;
+#X connect 30 0 50 0;
+#X connect 31 0 18 0;
+#X connect 33 0 31 0;
+#X connect 34 0 31 1;
+#X connect 35 0 36 0;
+#X connect 35 0 36 1;
+#X connect 36 0 39 1;
+#X connect 37 0 38 0;
+#X connect 38 0 40 1;
+#X connect 39 0 40 0;
+#X connect 40 0 14 0;
+#X connect 41 0 42 1;
+#X connect 42 0 43 0;
+#X connect 43 0 30 0;
+#X connect 46 0 47 0;
+#X connect 46 0 47 1;
+#X connect 47 0 29 0;
+#X connect 48 0 12 0;
+#X connect 49 0 13 0;
+#X connect 50 0 5 0;
+#X connect 51 0 20 1;
+#X restore 98 557 pd GoldnoiseGain;
+#X text 89 604 Calculates the gain of the wake;
+#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 956 84 pd corrLen Calc;
+#X obj 956 61 r~ \$0-myRey;
+#X obj 956 108 s~ \$0-myCor;
+#X obj 151 227 r~ \$0-myCor;
+#X obj 812 286 r \$0-contFreq;
+#X obj 777 314 hip~;
+#X obj 137 449 r~ \$0-myCor;
+#X obj 636 81 max 0.01;
+#X obj 636 104 min 0.99;
+#X obj 1066 59 noise~;
+#X obj 1066 82 s~ \$0-thisNoise;
+#X obj 777 219 r~ \$0-thisNoise;
+#X text 474 527 the object and environment;
+#X obj 120 65 inlet~;
+#X obj 388 61 inlet~;
+#X obj 393 84 s~ \$0-dist;
+#X obj 160 246 r~ \$0-dist;
+#X obj 124 429 r~ \$0-dist;
+#X obj 509 341 /~ 1.83692e-05;
+#X obj 460 60 inlet~;
+#X obj 467 82 s~ \$0-azim;
+#X obj 177 288 r~ \$0-azim;
+#X obj 177 512 r~ \$0-azim;
+#X obj 534 59 inlet~;
+#X obj 542 82 s~ \$0-elev;
+#X obj 169 267 r~ \$0-elev;
+#X obj 191 532 r~ \$0-elev;
+#N canvas 405 141 1027 635 StBandwidth 0;
+#X obj 444 142 inlet;
+#X obj 460 365 swap 1;
+#X obj 460 391 /;
+#X floatatom 534 431 0 0 0 0 - - -;
+#X obj 460 342 / 100;
+#X obj 461 434 outlet;
+#X text 437 453 Q value;
+#X obj 531 -36 r~ \$0-myRey;
+#X obj 477 -36 r myMet;
+#X obj 477 -14 snapshot~;
+#X obj 203 164 spigot;
+#X obj 219 187 spigot;
+#X obj 236 140 > 0;
+#X obj 252 163 < 145021;
+#X obj 219 233 + 0.9797;
+#X floatatom 194 270 0 0 0 0 - - -;
+#X obj 219 208 * 4.624e-05;
+#N canvas 249 105 810 724 linearCalc 0;
+#X obj 240 36 inlet;
+#X obj 248 579 outlet;
+#X floatatom 263 126 0 0 0 0 - - -;
+#X obj 240 59 * 38.7462;
+#X obj 240 81 + 0.6254;
+#X text 223 3 Peak dependant on TU value;
+#X obj 339 146 inlet;
+#X obj 215 435 < 193260;
+#X obj 182 458 spigot;
+#X obj 308 457 spigot;
+#X obj 338 433 > 193260;
+#X obj 125 164 - 7.685;
+#X obj 125 187 / 48293;
+#X obj 140 210 - 145021;
+#X obj 125 255 *;
+#X obj 125 278 + 7.685;
+#X floatatom 81 327 0 0 0 0 - - -;
+#X floatatom 123 486 0 0 0 0 - - -;
+#X obj 426 221 - 193260;
+#X obj 411 150 swap 2.95;
+#X obj 411 174 -;
+#X obj 411 197 / 50060;
+#X obj 411 267 *;
+#X obj 140 232 t f b;
+#X obj 411 302 +;
+#X obj 370 273 t f b;
+#X floatatom 409 328 0 0 0 0 - - -;
+#X obj 426 242 t f b;
+#X floatatom 336 491 0 0 0 0 - - -;
+#X obj 240 102 min 200;
+#X text 328 56 Calculates the peak value of DeltaF / F depending on
+the TU values. The higher the TU the higher the DeltaF/F value. A limit
+of 200 has been made as the value is a % and bandwidth greater than
+200% would invlove -ve frequencies;
+#X text -9 102 Linear up slope of the second section;
+#X text 478 174 Linear down slope of the second section;
+#X text 391 391 Peak of the DeltaF / F was found to be at a Reynolds
+number of 193260;
+#X connect 0 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 29 0;
+#X connect 6 0 10 0;
+#X connect 6 0 7 0;
+#X connect 6 0 18 0;
+#X connect 6 0 13 0;
+#X connect 7 0 8 1;
+#X connect 8 0 17 0;
+#X connect 8 0 1 0;
+#X connect 9 0 28 0;
+#X connect 9 0 1 0;
+#X connect 10 0 9 1;
+#X connect 11 0 12 0;
+#X connect 12 0 14 0;
+#X connect 13 0 23 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 15 0 8 0;
+#X connect 18 0 27 0;
+#X connect 19 0 20 0;
+#X connect 19 1 20 1;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 24 0;
+#X connect 23 0 14 1;
+#X connect 23 1 14 0;
+#X connect 24 0 26 0;
+#X connect 24 0 9 0;
+#X connect 25 0 24 1;
+#X connect 25 1 24 0;
+#X connect 27 0 22 1;
+#X connect 27 1 22 0;
+#X connect 29 0 2 0;
+#X connect 29 0 19 0;
+#X connect 29 0 25 0;
+#X connect 29 0 11 0;
+#X restore 444 164 pd linearCalc;
+#X floatatom 384 206 0 0 0 0 - - -;
+#X obj 477 188 > 145021;
+#X obj 493 211 < 243320;
+#X obj 444 212 spigot;
+#X obj 460 235 spigot;
+#X obj 602 150 spigot;
+#X obj 618 173 spigot;
+#X obj 635 126 > 243320;
+#X obj 651 149 < 1e+06;
+#X obj 618 216 * 1.227e-10;
+#X obj 618 196 *;
+#X obj 690 215 * -8.553e-05;
+#X obj 618 261 + 16.5;
+#X obj 618 238 +;
+#X floatatom 640 291 0 0 0 0 - - -;
+#X floatatom 565 18 0 0 0 0 - - -;
+#X floatatom 475 260 0 0 0 0 - - -;
+#X text -84 298 First section of the Reynolds number - DeltaF/F relationship
+is linear and did not appear to be reliant on current TU values;
+#X text 565 329 Third section of the Reynolds number - DeltaF/F relationship
+is linear and did not appear to be reliant on current TU values;
+#X text 114 -16 Middle section of Reynolds number - DeltaF/F relationship
+is also linear but depends on TU Value;
+#X obj 461 412 max 0.005;
+#X floatatom 412 438 0 0 0 0 - - -;
+#X connect 0 0 17 0;
+#X connect 1 0 2 0;
+#X connect 1 1 2 1;
+#X connect 2 0 3 0;
+#X connect 2 0 38 0;
+#X connect 4 0 1 0;
+#X connect 7 0 9 0;
+#X connect 8 0 9 0;
+#X connect 9 0 25 0;
+#X connect 9 0 26 0;
+#X connect 9 0 23 0;
+#X connect 9 0 19 0;
+#X connect 9 0 20 0;
+#X connect 9 0 17 1;
+#X connect 9 0 13 0;
+#X connect 9 0 12 0;
+#X connect 9 0 10 0;
+#X connect 9 0 33 0;
+#X connect 9 0 16 0;
+#X connect 10 0 11 0;
+#X connect 11 0 16 0;
+#X connect 12 0 10 1;
+#X connect 13 0 11 1;
+#X connect 14 0 15 0;
+#X connect 14 0 4 0;
+#X connect 16 0 14 0;
+#X connect 17 0 18 0;
+#X connect 17 0 21 0;
+#X connect 19 0 21 1;
+#X connect 20 0 22 1;
+#X connect 21 0 22 0;
+#X connect 22 0 34 0;
+#X connect 22 0 4 0;
+#X connect 23 0 24 0;
+#X connect 24 0 28 0;
+#X connect 24 0 28 1;
+#X connect 24 0 29 0;
+#X connect 25 0 23 1;
+#X connect 26 0 24 1;
+#X connect 27 0 31 0;
+#X connect 28 0 27 0;
+#X connect 29 0 31 1;
+#X connect 30 0 32 0;
+#X connect 31 0 30 0;
+#X connect 38 0 5 0;
+#X connect 38 0 39 0;
+#X restore 1179 68 pd StBandwidth;
+#X obj 1179 44 inlet;
+#X obj 1179 91 s \$0-Qval;
+#N canvas 991 296 976 679 Dipoles 0;
+#X obj 76 62 r~ \$0-myFreq;
+#X obj 91 107 r~ \$0-liftDiGain;
+#X obj 76 88 osc~;
+#X obj 76 261 throw~ l;
+#X obj 103 238 throw~ r;
+#X obj 76 216 fcpan;
+#X obj 103 195 r \$0-thisPan;
+#X obj 353 69 r~ \$0-myFreq;
+#X obj 368 135 r~ \$0-liftDiGain;
+#X obj 353 114 osc~;
+#X obj 353 285 throw~ l;
+#X obj 380 262 throw~ r;
+#X obj 353 180 *~;
+#X obj 353 240 fcpan;
+#X obj 380 220 r \$0-thisPan;
+#X obj 368 157 *~ 0.6;
+#X obj 621 62 r~ \$0-myFreq;
+#X obj 636 125 r~ \$0-liftDiGain;
+#X obj 621 107 osc~;
+#X obj 621 280 throw~ l;
+#X obj 648 257 throw~ r;
+#X obj 621 173 *~;
+#X obj 621 235 fcpan;
+#X obj 648 214 r \$0-thisPan;
+#X obj 621 86 *~ 5;
+#X obj 353 93 *~ 3;
+#X obj 72 345 r~ \$0-myFreq;
+#X obj 72 399 osc~;
+#X obj 72 544 throw~ l;
+#X obj 99 521 throw~ r;
+#X obj 72 443 *~;
+#X obj 72 499 fcpan;
+#X obj 99 478 r \$0-thisPan;
+#X obj 87 418 r~ \$0-dragDiGain;
+#X obj 72 373 *~ 2;
+#X obj 351 344 r~ \$0-myFreq;
+#X obj 351 398 osc~;
+#X obj 351 543 throw~ l;
+#X obj 378 520 throw~ r;
+#X obj 351 436 *~;
+#X obj 351 498 fcpan;
+#X obj 378 477 r \$0-thisPan;
+#X obj 385 392 r~ \$0-dragDiGain;
+#X obj 351 372 *~ 4;
+#X obj 385 415 *~ 0.125;
+#X obj 210 199 *~;
+#X obj 210 264 throw~ l;
+#X obj 237 241 throw~ r;
+#X obj 210 220 fcpan;
+#X obj 210 108 vcf~ 3;
+#X obj 237 198 r \$0-thisPan;
+#X obj 210 67 r~ \$0-thisNoise;
+#X obj 480 192 *~;
+#X obj 480 257 throw~ l;
+#X obj 507 234 throw~ r;
+#X obj 480 213 fcpan;
+#X obj 480 116 vcf~ 3;
+#X obj 507 191 r \$0-thisPan;
+#X obj 480 68 r~ \$0-thisNoise;
+#X obj 750 183 *~;
+#X obj 750 248 throw~ l;
+#X obj 777 225 throw~ r;
+#X obj 750 204 fcpan;
+#X obj 750 107 vcf~ 3;
+#X obj 777 182 r \$0-thisPan;
+#X obj 750 65 r~ \$0-thisNoise;
+#X obj 636 147 *~ 0.1;
+#X obj 217 464 *~;
+#X obj 217 529 throw~ l;
+#X obj 244 506 throw~ r;
+#X obj 217 485 fcpan;
+#X obj 217 388 vcf~ 3;
+#X obj 244 463 r \$0-thisPan;
+#X obj 217 344 r~ \$0-thisNoise;
+#X obj 491 462 *~;
+#X obj 491 527 throw~ l;
+#X obj 518 504 throw~ r;
+#X obj 491 483 fcpan;
+#X obj 491 386 vcf~ 3;
+#X obj 518 461 r \$0-thisPan;
+#X obj 491 344 r~ \$0-thisNoise;
+#X text 273 27 Generates the sound associated with the lift dipole.
+;
+#X text 175 312 Generates the sound associated with the drag dipole.
+;
+#X obj 243 88 r \$0-Qval;
+#X obj 513 94 r \$0-Qval;
+#X obj 783 86 r \$0-Qval;
+#X obj 524 364 r \$0-Qval;
+#X obj 250 366 r \$0-Qval;
+#X obj 210 158 *~ 1;
+#X obj 480 159 *~ 1;
+#X obj 750 154 *~ 1;
+#X obj 491 428 *~ 1;
+#X obj 217 431 *~ 1;
+#X floatatom 277 122 5 0 0 0 - - -;
+#X obj 210 134 vcf~ 3;
+#X obj 76 145 *~;
+#X obj 480 138 vcf~ 3;
+#X obj 750 131 vcf~ 3;
+#X obj 491 407 vcf~ 3;
+#X obj 217 409 vcf~ 3;
+#X obj 76 174 *~ 0.01;
+#X obj 353 201 *~ 0.01;
+#X obj 621 193 *~ 0.01;
+#X obj 351 457 *~ 0.01;
+#X obj 72 462 *~ 0.01;
+#X connect 0 0 2 0;
+#X connect 0 0 49 1;
+#X connect 0 0 94 1;
+#X connect 1 0 45 1;
+#X connect 1 0 95 1;
+#X connect 2 0 95 0;
+#X connect 5 0 3 0;
+#X connect 5 1 4 0;
+#X connect 6 0 5 1;
+#X connect 7 0 25 0;
+#X connect 8 0 15 0;
+#X connect 9 0 12 0;
+#X connect 12 0 101 0;
+#X connect 13 0 10 0;
+#X connect 13 1 11 0;
+#X connect 14 0 13 1;
+#X connect 15 0 12 1;
+#X connect 15 0 52 1;
+#X connect 16 0 24 0;
+#X connect 17 0 66 0;
+#X connect 18 0 21 0;
+#X connect 21 0 102 0;
+#X connect 22 0 19 0;
+#X connect 22 1 20 0;
+#X connect 23 0 22 1;
+#X connect 24 0 18 0;
+#X connect 24 0 63 1;
+#X connect 24 0 97 1;
+#X connect 25 0 9 0;
+#X connect 25 0 56 1;
+#X connect 25 0 96 1;
+#X connect 26 0 34 0;
+#X connect 27 0 30 0;
+#X connect 30 0 104 0;
+#X connect 31 0 28 0;
+#X connect 31 1 29 0;
+#X connect 32 0 31 1;
+#X connect 33 0 30 1;
+#X connect 33 0 67 1;
+#X connect 34 0 27 0;
+#X connect 34 0 71 1;
+#X connect 34 0 99 1;
+#X connect 35 0 43 0;
+#X connect 36 0 39 0;
+#X connect 39 0 103 0;
+#X connect 40 0 37 0;
+#X connect 40 1 38 0;
+#X connect 41 0 40 1;
+#X connect 42 0 44 0;
+#X connect 43 0 36 0;
+#X connect 43 0 78 1;
+#X connect 43 0 98 1;
+#X connect 44 0 39 1;
+#X connect 44 0 74 1;
+#X connect 45 0 48 0;
+#X connect 48 0 46 0;
+#X connect 48 1 47 0;
+#X connect 49 0 94 0;
+#X connect 50 0 48 1;
+#X connect 51 0 49 0;
+#X connect 52 0 55 0;
+#X connect 55 0 53 0;
+#X connect 55 1 54 0;
+#X connect 56 0 96 0;
+#X connect 57 0 55 1;
+#X connect 58 0 56 0;
+#X connect 59 0 62 0;
+#X connect 62 0 60 0;
+#X connect 62 1 61 0;
+#X connect 63 0 97 0;
+#X connect 64 0 62 1;
+#X connect 65 0 63 0;
+#X connect 66 0 21 1;
+#X connect 66 0 59 1;
+#X connect 67 0 70 0;
+#X connect 70 0 68 0;
+#X connect 70 1 69 0;
+#X connect 71 0 99 0;
+#X connect 72 0 70 1;
+#X connect 73 0 71 0;
+#X connect 74 0 77 0;
+#X connect 77 0 75 0;
+#X connect 77 1 76 0;
+#X connect 78 0 98 0;
+#X connect 79 0 77 1;
+#X connect 80 0 78 0;
+#X connect 83 0 49 2;
+#X connect 83 0 93 0;
+#X connect 83 0 94 2;
+#X connect 84 0 56 2;
+#X connect 84 0 96 2;
+#X connect 85 0 63 2;
+#X connect 85 0 97 2;
+#X connect 86 0 78 2;
+#X connect 86 0 98 2;
+#X connect 87 0 71 2;
+#X connect 87 0 99 2;
+#X connect 88 0 45 0;
+#X connect 89 0 52 0;
+#X connect 90 0 59 0;
+#X connect 91 0 74 0;
+#X connect 92 0 67 0;
+#X connect 94 0 88 0;
+#X connect 95 0 100 0;
+#X connect 96 0 89 0;
+#X connect 97 0 90 0;
+#X connect 98 0 91 0;
+#X connect 99 0 92 0;
+#X connect 100 0 5 0;
+#X connect 101 0 13 0;
+#X connect 102 0 22 0;
+#X connect 103 0 40 0;
+#X connect 104 0 31 0;
+#X restore 764 528 pd Dipoles;
+#X connect 1 0 2 0;
+#X connect 2 0 84 0;
+#X connect 3 0 15 0;
+#X connect 4 0 3 0;
+#X connect 5 0 9 0;
+#X connect 10 0 2 1;
+#X connect 11 0 3 1;
+#X connect 13 0 4 1;
+#X connect 14 0 1 0;
+#X connect 16 0 35 0;
+#X connect 18 0 73 0;
+#X connect 21 0 64 1;
+#X connect 22 0 64 5;
+#X connect 30 0 36 0;
+#X connect 32 0 42 0;
+#X connect 32 0 4 0;
+#X connect 35 0 33 0;
+#X connect 35 1 34 0;
+#X connect 39 0 64 0;
+#X connect 40 0 64 4;
+#X connect 44 0 57 1;
+#X connect 45 0 16 0;
+#X connect 46 0 35 1;
+#X connect 47 0 50 0;
+#X connect 48 0 51 0;
+#X connect 49 0 52 0;
+#X connect 57 0 71 0;
+#X connect 58 0 57 0;
+#X connect 59 0 63 1;
+#X connect 60 0 63 3;
+#X connect 61 0 63 0;
+#X connect 62 0 63 2;
+#X connect 63 0 38 0;
+#X connect 63 1 37 0;
+#X connect 64 0 41 0;
+#X connect 66 0 68 0;
+#X connect 67 0 66 0;
+#X connect 69 0 63 4;
+#X connect 70 0 71 1;
+#X connect 71 0 16 1;
+#X connect 72 0 64 3;
+#X connect 73 0 74 0;
+#X connect 74 0 43 0;
+#X connect 75 0 76 0;
+#X connect 77 0 58 0;
+#X connect 79 0 12 0;
+#X connect 80 0 81 0;
+#X connect 82 0 63 5;
+#X connect 83 0 64 2;
+#X connect 84 0 17 0;
+#X connect 84 0 32 0;
+#X connect 85 0 86 0;
+#X connect 87 0 63 7;
+#X connect 88 0 64 6;
+#X connect 89 0 90 0;
+#X connect 91 0 63 6;
+#X connect 92 0 64 7;
+#X connect 93 0 95 0;
+#X connect 94 0 93 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/newStrou.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,148 @@
+#N canvas 183 221 718 433 10;
+#X obj 203 48 inlet~;
+#X obj 273 233 outlet~;
+#X text 101 20 Reynolds number coming in;
+#X text 211 257 Strouhal Number going out;
+#N canvas 648 199 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 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 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 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 obj 374 38 r myMet;
+#X msg 365 223 0.2492 -0.8861;
+#X text 372 240 Linear Int;
+#X connect 0 0 6 0;
+#X connect 1 0 6 0;
+#X connect 2 0 6 0;
+#X connect 3 0 6 0;
+#X connect 4 0 6 0;
+#X connect 5 0 6 0;
+#X connect 6 0 22 0;
+#X connect 6 0 41 0;
+#X connect 6 1 23 0;
+#X connect 6 1 42 0;
+#X connect 7 0 21 1;
+#X connect 7 0 21 0;
+#X connect 8 0 24 1;
+#X connect 8 0 25 0;
+#X connect 9 0 25 1;
+#X connect 10 0 27 0;
+#X connect 10 0 26 1;
+#X connect 11 0 27 1;
+#X connect 12 0 28 1;
+#X connect 12 0 29 0;
+#X connect 13 0 29 1;
+#X connect 14 0 31 1;
+#X connect 14 0 32 0;
+#X connect 15 0 32 1;
+#X connect 16 0 33 1;
+#X connect 16 0 34 0;
+#X connect 17 0 34 1;
+#X connect 18 0 35 1;
+#X connect 18 0 36 0;
+#X connect 19 0 36 1;
+#X connect 20 0 45 0;
+#X connect 20 0 44 1;
+#X connect 21 0 0 0;
+#X connect 24 0 1 0;
+#X connect 25 0 24 0;
+#X connect 26 0 2 0;
+#X connect 27 0 26 0;
+#X connect 28 0 52 0;
+#X connect 29 0 28 0;
+#X connect 31 0 3 0;
+#X connect 32 0 31 0;
+#X connect 33 0 4 0;
+#X connect 34 0 33 0;
+#X connect 35 0 5 0;
+#X connect 36 0 35 0;
+#X connect 37 0 7 0;
+#X connect 37 0 8 0;
+#X connect 37 0 9 0;
+#X connect 37 0 10 0;
+#X connect 37 0 11 0;
+#X connect 37 0 12 0;
+#X connect 37 0 13 0;
+#X connect 37 0 30 0;
+#X connect 37 0 14 0;
+#X connect 37 0 15 0;
+#X connect 37 0 16 0;
+#X connect 37 0 17 0;
+#X connect 37 0 18 0;
+#X connect 37 0 19 0;
+#X connect 37 0 20 0;
+#X connect 37 0 46 0;
+#X connect 38 0 37 0;
+#X connect 41 0 39 0;
+#X connect 42 0 40 0;
+#X connect 44 0 50 0;
+#X connect 45 0 44 0;
+#X connect 46 0 45 1;
+#X connect 50 0 6 0;
+#X connect 51 0 37 0;
+#X connect 52 0 6 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 273 166 +~;
+#X obj 273 191 max~ 0;
+#X connect 0 0 4 0;
+#X connect 0 0 5 0;
+#X connect 4 0 11 0;
+#X connect 4 1 6 0;
+#X connect 5 0 6 1;
+#X connect 6 0 11 1;
+#X connect 11 0 12 0;
+#X connect 12 0 1 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/sourceSpeed.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,219 @@
+#N canvas 584 109 1231 826 10;
+#X obj -219 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034
+-1 -1;
+#X obj -219 -68 s GO;
+#X obj -279 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
+-1 -1;
+#X obj -279 -68 s setUp;
+#X text -89 -100 Start calculation with elevation = 0 \, arm length
+is constant \, acceleration/deceleration is constant.;
+#X obj -202 498 loadbang;
+#X obj -202 519 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
+1 1;
+#X obj -202 537 metro 10;
+#X obj -202 559 snapshot~;
+#X floatatom -202 579 5 0 0 0 - - -;
+#X obj -121 595 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X msg -259 383 \$1 \$2;
+#X obj -259 358 pack;
+#X msg -89 415 0;
+#X obj -260 335 f;
+#X obj -281 291 r GO;
+#X msg 50 417 0 \$1;
+#X obj 49 340 t f b;
+#X obj 50 368 delay;
+#X obj -89 394 r setUp;
+#X text -106 375 Start at 0 speed;
+#X text 92 428 \$1 = time to reach speed of 0;
+#X obj 64 293 r preswingTime;
+#X text 2 253 Trigger once full speed;
+#X obj -89 482 outlet~;
+#X obj 367 -102 inlet;
+#X obj 266 -101 inlet;
+#X text -322 414 \$1 = source speed;
+#X text -322 430 \$2 = time to reach source speed;
+#X obj -234 334 r preswingTime;
+#X obj -215 156 r preswingTime;
+#X obj -230 199 /;
+#X obj -215 177 * 0.001;
+#X obj -230 226 * 2;
+#X text -187 206 Average Speed;
+#X text -190 230 Top Speed for this source;
+#X floatatom -283 252 5 0 0 0 - - -;
+#X obj 107 357 r postswingTime;
+#X floatatom 139 380 5 0 0 0 - - -;
+#X obj 49 273 r GO;
+#X obj 49 315 f;
+#X obj 50 395 f;
+#X obj 272 482 vline~;
+#X obj -89 449 vline~;
+#X obj 266 -77 s \$0-fullArc;
+#X obj 367 -79 s \$0-thislength;
+#X obj 513 483 r \$0-thislength;
+#X obj 474 22 * 0.01745;
+#X floatatom 538 20 0 0 0 0 - - -;
+#X obj 489 93 * 0.01745;
+#X floatatom 552 93 0 0 0 0 - - -;
+#X obj 474 45 cos;
+#X obj 489 114 cos;
+#X obj 474 164 *;
+#X obj 489 138 t f b;
+#X obj 489 213 * 0.01745;
+#X obj 489 188 r presweepElev;
+#X floatatom 552 213 0 0 0 0 - - -;
+#X obj 584 186 * 0.01745;
+#X obj 584 161 r postsweepElev;
+#X floatatom 648 184 0 0 0 0 - - -;
+#X obj 584 207 sin;
+#X obj 584 229 t f b;
+#X obj 489 237 sin;
+#X obj 489 261 *;
+#X obj 504 311 * 0.01745;
+#X obj 620 296 * 0.01745;
+#X floatatom 684 294 0 0 0 0 - - -;
+#X floatatom 569 311 0 0 0 0 - - -;
+#X obj 504 342 -;
+#X obj 504 367 cos;
+#X obj 504 387 t f b;
+#X obj 489 412 *;
+#X obj 620 319 t f b;
+#X obj 474 461 +;
+#X obj 489 436 t f b;
+#X obj 474 484 acos;
+#X obj 474 507 *;
+#X obj 474 -3 r presweepElev;
+#X obj 489 68 r postsweepElev;
+#X obj 338 245 -;
+#X obj 338 290 select 1;
+#X msg 338 314 4.24115;
+#X obj 459 555 +;
+#X obj 474 530 t f b;
+#X obj 397 290 select 0;
+#X msg 397 314 0;
+#X obj 378 376 -;
+#X obj 378 399 * 2;
+#X floatatom 285 295 5 0 0 0 - - -;
+#X obj 338 172 r postsweepAzim;
+#X obj 353 194 r presweepAzim;
+#X obj 353 216 t f b;
+#X floatatom 458 585 0 0 0 0 - - -;
+#X floatatom 533 539 0 0 0 0 - - -;
+#X obj 303 581 spigot;
+#X obj 393 350 t f b b;
+#X floatatom 435 636 0 0 0 0 - - -;
+#X obj 336 537 * -1;
+#X obj 336 558 + 1;
+#X obj 362 583 spigot;
+#X obj 504 286 r postsweepAzim;
+#X obj 620 271 r presweepAzim;
+#X obj 338 268 >= 180;
+#X obj 387 612 abs;
+#X obj 387 638 outlet;
+#X floatatom -84 186 0 0 0 0 - - -;
+#X connect 0 0 1 0;
+#X connect 2 0 3 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 8 0 10 0;
+#X connect 11 0 43 0;
+#X connect 12 0 11 0;
+#X connect 13 0 43 0;
+#X connect 14 0 12 0;
+#X connect 15 0 14 0;
+#X connect 16 0 43 0;
+#X connect 17 0 18 1;
+#X connect 17 1 18 0;
+#X connect 18 0 41 0;
+#X connect 19 0 13 0;
+#X connect 22 0 40 1;
+#X connect 25 0 45 0;
+#X connect 26 0 44 0;
+#X connect 29 0 12 1;
+#X connect 30 0 32 0;
+#X connect 31 0 33 0;
+#X connect 32 0 31 1;
+#X connect 32 0 106 0;
+#X connect 33 0 36 0;
+#X connect 33 0 14 1;
+#X connect 37 0 38 0;
+#X connect 37 0 41 1;
+#X connect 39 0 40 0;
+#X connect 40 0 17 0;
+#X connect 41 0 16 0;
+#X connect 43 0 8 0;
+#X connect 43 0 24 0;
+#X connect 46 0 77 1;
+#X connect 47 0 51 0;
+#X connect 49 0 52 0;
+#X connect 51 0 53 0;
+#X connect 52 0 54 0;
+#X connect 53 0 74 0;
+#X connect 54 0 53 1;
+#X connect 54 1 53 0;
+#X connect 55 0 63 0;
+#X connect 56 0 57 0;
+#X connect 56 0 55 0;
+#X connect 58 0 61 0;
+#X connect 59 0 60 0;
+#X connect 59 0 58 0;
+#X connect 61 0 62 0;
+#X connect 62 0 64 1;
+#X connect 62 1 64 0;
+#X connect 63 0 64 0;
+#X connect 64 0 72 0;
+#X connect 65 0 69 0;
+#X connect 66 0 73 0;
+#X connect 69 0 70 0;
+#X connect 70 0 71 0;
+#X connect 71 0 72 1;
+#X connect 71 1 72 0;
+#X connect 72 0 75 0;
+#X connect 73 0 69 1;
+#X connect 73 1 69 0;
+#X connect 74 0 76 0;
+#X connect 75 0 74 1;
+#X connect 75 1 74 0;
+#X connect 76 0 77 0;
+#X connect 77 0 84 0;
+#X connect 77 0 94 0;
+#X connect 77 0 95 0;
+#X connect 78 0 48 0;
+#X connect 78 0 47 0;
+#X connect 79 0 50 0;
+#X connect 79 0 49 0;
+#X connect 80 0 103 0;
+#X connect 81 0 82 0;
+#X connect 82 0 87 0;
+#X connect 83 0 93 0;
+#X connect 83 0 100 0;
+#X connect 84 0 83 1;
+#X connect 84 0 96 0;
+#X connect 84 1 83 0;
+#X connect 85 0 86 0;
+#X connect 86 0 87 0;
+#X connect 87 0 88 0;
+#X connect 88 0 83 0;
+#X connect 90 0 80 0;
+#X connect 91 0 92 0;
+#X connect 92 0 80 1;
+#X connect 92 1 80 0;
+#X connect 95 0 104 0;
+#X connect 96 0 87 1;
+#X connect 96 2 87 0;
+#X connect 98 0 99 0;
+#X connect 99 0 95 1;
+#X connect 100 0 104 0;
+#X connect 101 0 65 0;
+#X connect 101 0 68 0;
+#X connect 102 0 67 0;
+#X connect 102 0 66 0;
+#X connect 103 0 81 0;
+#X connect 103 0 85 0;
+#X connect 103 0 89 0;
+#X connect 103 0 98 0;
+#X connect 103 0 100 1;
+#X connect 104 0 97 0;
+#X connect 104 0 105 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/sweepTime.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,135 @@
+#N canvas 85 142 1299 777 10;
+#X obj 658 -89 r presweepElev;
+#X obj 751 -90 r postsweepElev;
+#X floatatom 658 -65 5 0 0 0 - - -;
+#X floatatom 751 -67 5 0 0 0 - - -;
+#X obj 198 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
+-1;
+#X obj 198 -57 s GO;
+#X obj 138 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
+-1 -1;
+#X obj 138 -57 s setUp;
+#X obj 852 -90 r start_armLength;
+#X floatatom 852 -69 5 0 0 0 - - -;
+#X obj 968 -90 r bladeLen;
+#X floatatom 968 -67 5 0 0 0 - - -;
+#X text 328 -89 Start calculation with elevation = 0 \, arm length
+is constant \, acceleration/deceleration is constant.;
+#X obj 214 185 r topSpeed;
+#X obj 214 210 / 2;
+#X obj 199 293 /;
+#X obj 199 317 * 1000;
+#X floatatom 246 346 5 0 0 0 - - -;
+#X obj 598 174 r topSpeed;
+#X obj 598 199 / 2;
+#X obj 583 275 /;
+#X obj 583 299 * 1000;
+#X text 683 304 Time from 0 azimuth to;
+#X text 686 319 stationary at post sweep;
+#X text 637 199 Assuming constant acceleration;
+#X floatatom 635 326 5 0 0 0 - - -;
+#X obj 199 379 s preswingTime;
+#X obj 583 358 s postswingTime;
+#X text 249 211 Assuming constant acceleration;
+#X text 25 240 Time from pre-sweep azimuth;
+#X text 26 253 to centre at top speed;
+#X obj 1037 70 r preswingTime;
+#X obj 1022 152 +;
+#X obj 1009 253 delay;
+#X obj 1007 200 t f b;
+#X obj 1007 27 r GO;
+#X obj 1007 175 f;
+#X obj 1036 230 + 5;
+#X obj 1022 48 r postswingTime;
+#X obj 1009 276 s myEnd;
+#X obj 1037 122 t f b;
+#X floatatom 955 252 5 0 0 0 - - -;
+#X obj 214 233 t f b;
+#X obj 598 222 t f b;
+#X text 315 380 Acceleration time ms;
+#X text 692 359 Decceleration time ms;
+#X text 944 302 Send a bang o signify the swing is over;
+#X obj 219 -34 r presweepAzim;
+#X obj 199 129 /;
+#X obj 313 25 inlet;
+#X obj 199 158 *;
+#X obj 384 83 +;
+#X obj 583 119 /;
+#X obj 583 147 *;
+#X obj 583 5 r postsweepAzim;
+#X obj 376 156 +;
+#X floatatom 375 181 5 0 0 0 - - -;
+#X floatatom 158 181 5 0 0 0 - - -;
+#X floatatom 542 182 5 0 0 0 - - -;
+#X floatatom 542 149 5 0 0 0 - - -;
+#X msg 204 18 180;
+#X obj 204 45 -;
+#X obj 219 -9 t f b;
+#X obj 583 33 - 180;
+#X floatatom 143 130 5 0 0 0 - - -;
+#X floatatom 612 59 5 0 0 0 - - -;
+#X obj 399 61 t f b;
+#X floatatom 385 121 5 0 0 0 - - -;
+#X floatatom 321 54 5 0 0 0 - - -;
+#X text 324 7 Length of tip sweep;
+#X connect 0 0 2 0;
+#X connect 1 0 3 0;
+#X connect 4 0 5 0;
+#X connect 6 0 7 0;
+#X connect 8 0 9 0;
+#X connect 10 0 11 0;
+#X connect 13 0 14 0;
+#X connect 14 0 42 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 16 0 26 0;
+#X connect 18 0 19 0;
+#X connect 19 0 43 0;
+#X connect 20 0 21 0;
+#X connect 21 0 25 0;
+#X connect 21 0 27 0;
+#X connect 31 0 40 0;
+#X connect 32 0 36 1;
+#X connect 33 0 39 0;
+#X connect 34 0 37 0;
+#X connect 34 1 33 0;
+#X connect 35 0 36 0;
+#X connect 36 0 34 0;
+#X connect 37 0 33 1;
+#X connect 37 0 41 0;
+#X connect 38 0 32 0;
+#X connect 40 0 32 1;
+#X connect 40 1 32 0;
+#X connect 42 0 15 1;
+#X connect 42 1 15 0;
+#X connect 43 0 20 1;
+#X connect 43 1 20 0;
+#X connect 47 0 62 0;
+#X connect 48 0 50 0;
+#X connect 48 0 55 0;
+#X connect 49 0 50 1;
+#X connect 49 0 53 1;
+#X connect 49 0 68 0;
+#X connect 50 0 57 0;
+#X connect 50 0 15 0;
+#X connect 51 0 52 1;
+#X connect 51 0 48 1;
+#X connect 51 0 67 0;
+#X connect 52 0 53 0;
+#X connect 52 0 55 1;
+#X connect 52 0 59 0;
+#X connect 53 0 58 0;
+#X connect 53 0 20 0;
+#X connect 54 0 63 0;
+#X connect 55 0 56 0;
+#X connect 60 0 61 0;
+#X connect 61 0 48 0;
+#X connect 61 0 64 0;
+#X connect 61 0 51 0;
+#X connect 62 0 61 1;
+#X connect 62 1 60 0;
+#X connect 63 0 52 0;
+#X connect 63 0 65 0;
+#X connect 63 0 66 0;
+#X connect 66 0 51 1;
+#X connect 66 1 51 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/thisAngle.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,277 @@
+#N canvas 18 44 1440 726 10;
+#X obj -19 -52 inlet~;
+#X obj 58 -52 inlet~;
+#X obj 134 -53 inlet~;
+#X obj -19 -31 s~ \$0_Ydiff;
+#X obj 58 -31 s~ \$0_Xdiff;
+#X obj 134 -32 s~ \$0_Zdiff;
+#X obj -130 -58 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
+-1;
+#X obj -130 -5 s GO;
+#X obj -190 -58 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
+-1 -1;
+#X obj -190 -5 s setUp;
+#X obj 230 -58 inlet~;
+#X obj 230 -37 s~ \$0_scrObsDist;
+#X obj 451 -74 inlet~;
+#X obj 74 5 loadbang;
+#X obj 74 26 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 74 44 metro 10;
+#X obj 74 66 snapshot~;
+#X floatatom 74 86 8 0 0 0 - - -;
+#X obj 139 5 loadbang;
+#X obj 139 26 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 139 44 metro 10;
+#X obj 139 66 snapshot~;
+#X floatatom 139 86 8 0 0 0 - - -;
+#X obj 205 6 loadbang;
+#X obj 205 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 205 45 metro 10;
+#X obj 205 67 snapshot~;
+#X floatatom 205 87 8 0 0 0 - - -;
+#X obj 338 -72 loadbang;
+#X obj 338 -51 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 338 -33 metro 10;
+#X obj 338 -11 snapshot~;
+#X floatatom 338 11 8 0 0 0 - - -;
+#X obj 477 -30 loadbang;
+#X obj 477 -9 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 477 9 metro 10;
+#X obj 477 31 snapshot~;
+#X floatatom 477 51 8 0 0 0 - - -;
+#X text 45 106 Y \, X \, Z dist between source and centre;
+#X text 61 119 Based on length \, azim and elev;
+#X obj 575 -75 inlet~;
+#X obj 601 -31 loadbang;
+#X obj 601 -10 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 601 8 metro 10;
+#X obj 601 30 snapshot~;
+#X floatatom 601 50 8 0 0 0 - - -;
+#X text 318 30 Distance src to obs;
+#X obj 691 -77 inlet~;
+#X obj 717 -33 loadbang;
+#X obj 717 -12 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 717 6 metro 10;
+#X obj 717 28 snapshot~;
+#X floatatom 717 48 8 0 0 0 - - -;
+#X obj 451 -53 s~ \$0_scrObsYDist;
+#X obj 575 -54 s~ \$0_scrObsXDist;
+#X obj 691 -56 s~ \$0_scrObsZDist;
+#X obj 430 443 s~ \$0-Az;
+#X obj 79 497 loadbang;
+#X obj 79 518 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 79 536 metro 10;
+#X obj 79 558 snapshot~;
+#X floatatom 79 578 8 0 0 0 - - -;
+#X obj 343 484 loadbang;
+#X obj 343 505 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 343 523 metro 10;
+#X obj 343 545 snapshot~;
+#X floatatom 343 565 8 0 0 0 - - -;
+#X obj 820 354 loadbang;
+#X obj 820 375 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 820 393 metro 10;
+#X obj 820 415 snapshot~;
+#X floatatom 820 435 8 0 0 0 - - -;
+#X obj 354 150 r~ \$0_Xdiff;
+#X obj 354 216 -~;
+#X obj 427 150 r~ \$0_Zdiff;
+#X obj 427 215 -~;
+#X obj 369 173 r Xobs;
+#X obj 369 194 sig~;
+#X obj 442 171 r Zobs;
+#X obj 442 193 sig~;
+#X obj 412 240 /~;
+#X obj 430 270 *~;
+#X obj 445 290 sig~ 1;
+#X obj 430 312 +~;
+#X obj 430 336 sqrt~;
+#X obj 412 360 /~;
+#X obj 426 408 arcsin~;
+#X obj 192 452 r~ currentAzim;
+#X obj 192 512 r~ \$0-Az;
+#X obj 177 536 -~;
+#X obj 888 409 outlet~;
+#X obj 1110 365 loadbang;
+#X obj 1110 386 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
+1 1;
+#X obj 1110 404 metro 10;
+#X obj 1110 426 snapshot~;
+#X floatatom 1110 446 8 0 0 0 - - -;
+#X obj 177 430 sig~ 90;
+#X obj 177 484 -~;
+#X obj 1018 191 r~ currentAzim;
+#X obj 1003 169 sig~ 90;
+#X obj 1003 215 -~;
+#X obj 939 73 /~;
+#X obj 954 103 *~;
+#X obj 969 123 sig~ 1;
+#X obj 954 145 +~;
+#X obj 954 169 sqrt~;
+#X obj 939 193 /~;
+#X obj 939 216 arcsin~;
+#X obj 954 28 r Xobs;
+#X obj 954 49 sig~;
+#X obj 939 -17 r Zobs;
+#X obj 939 5 sig~;
+#X obj 988 245 -~;
+#X obj 232 570 s~ \$0-Pv;
+#X obj 294 337 r~ \$0-Pv;
+#X obj 267 319 sig~ 180;
+#X obj 958 308 -~;
+#X obj 973 281 +~;
+#X obj 279 357 +~;
+#X obj 902 279 sig~ 180;
+#X obj 656 203 /~;
+#X obj 671 233 *~;
+#X obj 686 253 sig~ 1;
+#X obj 671 275 +~;
+#X obj 671 299 sqrt~;
+#X obj 656 323 /~;
+#X obj 656 346 arcsin~;
+#X obj 671 179 sig~;
+#X obj 656 135 sig~;
+#X obj 656 113 r Xobs;
+#X obj 671 158 r Zobs;
+#X obj 656 392 -~;
+#X obj 671 369 r~ \$0-Az;
+#X obj 1029 468 outlet~;
+#X obj 1036 422 clip~ 0 1;
+#X obj 1036 374 /~ 360;
+#X obj 986 401 -~ 0.5;
+#X connect 0 0 3 0;
+#X connect 0 0 16 0;
+#X connect 1 0 4 0;
+#X connect 1 0 21 0;
+#X connect 2 0 5 0;
+#X connect 2 0 26 0;
+#X connect 6 0 7 0;
+#X connect 8 0 9 0;
+#X connect 10 0 11 0;
+#X connect 10 0 31 0;
+#X connect 12 0 36 0;
+#X connect 12 0 53 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 18 0 19 0;
+#X connect 19 0 20 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 23 0 24 0;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 26 0 27 0;
+#X connect 28 0 29 0;
+#X connect 29 0 30 0;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X connect 33 0 34 0;
+#X connect 34 0 35 0;
+#X connect 35 0 36 0;
+#X connect 36 0 37 0;
+#X connect 40 0 44 0;
+#X connect 40 0 54 0;
+#X connect 41 0 42 0;
+#X connect 42 0 43 0;
+#X connect 43 0 44 0;
+#X connect 44 0 45 0;
+#X connect 47 0 51 0;
+#X connect 47 0 55 0;
+#X connect 48 0 49 0;
+#X connect 49 0 50 0;
+#X connect 50 0 51 0;
+#X connect 51 0 52 0;
+#X connect 57 0 58 0;
+#X connect 58 0 59 0;
+#X connect 59 0 60 0;
+#X connect 60 0 61 0;
+#X connect 62 0 63 0;
+#X connect 63 0 64 0;
+#X connect 64 0 65 0;
+#X connect 65 0 66 0;
+#X connect 67 0 68 0;
+#X connect 68 0 69 0;
+#X connect 69 0 70 0;
+#X connect 70 0 71 0;
+#X connect 72 0 73 0;
+#X connect 73 0 80 0;
+#X connect 74 0 75 0;
+#X connect 75 0 80 1;
+#X connect 76 0 77 0;
+#X connect 77 0 73 1;
+#X connect 78 0 79 0;
+#X connect 79 0 75 1;
+#X connect 80 0 81 0;
+#X connect 80 0 81 1;
+#X connect 80 0 85 0;
+#X connect 81 0 83 0;
+#X connect 82 0 83 1;
+#X connect 83 0 84 0;
+#X connect 84 0 85 1;
+#X connect 85 0 86 0;
+#X connect 86 0 56 0;
+#X connect 87 0 65 0;
+#X connect 87 0 97 1;
+#X connect 88 0 89 1;
+#X connect 89 0 60 0;
+#X connect 89 0 113 0;
+#X connect 91 0 92 0;
+#X connect 92 0 93 0;
+#X connect 93 0 94 0;
+#X connect 94 0 95 0;
+#X connect 96 0 97 0;
+#X connect 97 0 89 0;
+#X connect 98 0 100 1;
+#X connect 99 0 100 0;
+#X connect 100 0 112 1;
+#X connect 101 0 102 0;
+#X connect 101 0 102 1;
+#X connect 101 0 106 0;
+#X connect 102 0 104 0;
+#X connect 103 0 104 1;
+#X connect 104 0 105 0;
+#X connect 105 0 106 1;
+#X connect 106 0 107 0;
+#X connect 107 0 112 0;
+#X connect 108 0 109 0;
+#X connect 109 0 101 1;
+#X connect 110 0 111 0;
+#X connect 111 0 101 0;
+#X connect 112 0 117 1;
+#X connect 114 0 118 1;
+#X connect 115 0 118 0;
+#X connect 116 0 70 0;
+#X connect 116 0 90 0;
+#X connect 116 0 135 0;
+#X connect 117 0 116 1;
+#X connect 119 0 116 0;
+#X connect 120 0 121 0;
+#X connect 120 0 121 1;
+#X connect 120 0 125 0;
+#X connect 121 0 123 0;
+#X connect 122 0 123 1;
+#X connect 123 0 124 0;
+#X connect 124 0 125 1;
+#X connect 125 0 126 0;
+#X connect 126 0 131 0;
+#X connect 127 0 120 1;
+#X connect 128 0 120 0;
+#X connect 129 0 128 0;
+#X connect 130 0 127 0;
+#X connect 131 0 117 0;
+#X connect 132 0 131 1;
+#X connect 134 0 133 0;
+#X connect 134 0 94 0;
+#X connect 135 0 134 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SwordAutoD2/thisPosition.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -0,0 +1,132 @@
+#N canvas 131 311 917 541 10;
+#X obj -11951 -141 r~ currentElev;
+#X obj -11639 -26 r~ currentAzim;
+#X obj -11951 -117 /~ 360;
+#X obj -11951 -94 sin~;
+#X obj -11951 -51 *~;
+#X obj -11654 -139 r~ currentElev;
+#X obj -11654 -115 /~ 360;
+#X obj -11654 -49 *~;
+#X obj -11654 -92 cos~;
+#X obj -11639 19 cos~;
+#X obj -11639 -2 /~ 360;
+#X obj -11654 44 *~;
+#X obj -11798 -22 r~ currentAzim;
+#X obj -11813 -135 r~ currentElev;
+#X obj -11813 -111 /~ 360;
+#X obj -11813 -45 *~;
+#X obj -11798 2 /~ 360;
+#X obj -11813 48 *~;
+#X obj -11813 -88 cos~;
+#X obj -11798 23 sin~;
+#X text -11683 -163 Z position of source;
+#X obj -11999 75 sig~;
+#X obj -11966 105 -~;
+#X obj -11862 85 sig~;
+#X obj -11828 115 -~;
+#X obj -11702 82 sig~;
+#X obj -11669 112 -~;
+#X obj -11702 59 r Zobs;
+#X obj -11966 134 *~;
+#X obj -11828 140 *~;
+#X obj -11669 137 *~;
+#X obj -11843 166 +~;
+#X obj -11546 214 +~;
+#X obj -11546 238 sqrt~;
+#X text -11961 -164 Y position of source;
+#X text -11820 -162 X position of source;
+#X obj -11862 62 r Xobs;
+#X obj -11999 52 r Yobs;
+#X text -11514 -93 Distance between the observer as a point in 3D space
+and the sound source.;
+#X obj -11546 261 outlet~;
+#X obj -11508 -190 inlet~;
+#X obj -11508 -166 s~ \$0_myScrCnt;
+#X obj -11639 -72 r~ \$0_myScrCnt;
+#X obj -11798 -68 r~ \$0_myScrCnt;
+#X obj -11936 -74 r~ \$0_myScrCnt;
+#X obj -11634 72 outlet~;
+#X obj -11796 75 outlet~;
+#X obj -11934 -24 outlet~;
+#X obj -11450 198 +~;
+#X obj -11450 222 sqrt~;
+#X obj -11450 245 outlet~;
+#X obj -11365 127 +~;
+#X obj -11365 151 sqrt~;
+#X obj -11365 174 outlet~;
+#X obj -11295 48 +~;
+#X obj -11295 72 sqrt~;
+#X obj -11295 95 outlet~;
+#X text -11447 266 Y;
+#X text -11362 192 X;
+#X text -11293 114 Z;
+#X obj -11518 -20 loadbang;
+#X obj -11518 1 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
+1 1;
+#X obj -11518 19 metro 10;
+#X obj -11518 41 snapshot~;
+#X floatatom -11518 61 5 0 0 0 - - -;
+#X obj -11320 -180 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034
+-1 -1;
+#X obj -11320 -127 s GO;
+#X obj -11380 -180 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
+-1 -1;
+#X obj -11380 -127 s setUp;
+#X connect 0 0 2 0;
+#X connect 1 0 10 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 22 1;
+#X connect 4 0 47 0;
+#X connect 5 0 6 0;
+#X connect 6 0 8 0;
+#X connect 7 0 11 0;
+#X connect 8 0 7 0;
+#X connect 9 0 11 1;
+#X connect 10 0 9 0;
+#X connect 11 0 26 1;
+#X connect 11 0 45 0;
+#X connect 12 0 16 0;
+#X connect 13 0 14 0;
+#X connect 14 0 18 0;
+#X connect 15 0 17 0;
+#X connect 16 0 19 0;
+#X connect 17 0 24 1;
+#X connect 17 0 46 0;
+#X connect 17 0 63 0;
+#X connect 18 0 15 0;
+#X connect 19 0 17 1;
+#X connect 21 0 22 0;
+#X connect 22 0 28 0;
+#X connect 22 0 28 1;
+#X connect 22 0 50 0;
+#X connect 23 0 24 0;
+#X connect 24 0 29 0;
+#X connect 24 0 29 1;
+#X connect 24 0 53 0;
+#X connect 25 0 26 0;
+#X connect 26 0 30 0;
+#X connect 26 0 30 1;
+#X connect 26 0 56 0;
+#X connect 27 0 25 0;
+#X connect 28 0 31 0;
+#X connect 29 0 31 1;
+#X connect 30 0 32 1;
+#X connect 31 0 32 0;
+#X connect 32 0 33 0;
+#X connect 33 0 39 0;
+#X connect 36 0 23 0;
+#X connect 37 0 21 0;
+#X connect 40 0 41 0;
+#X connect 42 0 7 1;
+#X connect 43 0 15 1;
+#X connect 44 0 4 1;
+#X connect 48 0 49 0;
+#X connect 51 0 52 0;
+#X connect 54 0 55 0;
+#X connect 60 0 61 0;
+#X connect 61 0 62 0;
+#X connect 62 0 63 0;
+#X connect 63 0 64 0;
+#X connect 65 0 66 0;
+#X connect 67 0 68 0;
--- a/scene demo/freqCalcCyl3No_D3Mach.pd	Sun Feb 21 09:26:51 2016 +0000
+++ b/scene demo/freqCalcCyl3No_D3Mach.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -712,7 +712,7 @@
 #X obj 320 424 r~ \$0-myCor;
 #X obj 636 81 max 0.01;
 #X obj 636 104 min 0.99;
-#N canvas 93 119 976 679 Dipoles 1;
+#N canvas 93 119 976 679 Dipoles 0;
 #X obj 76 62 r~ \$0-myFreq;
 #X obj 91 107 r~ \$0-liftDiGain;
 #X obj 76 88 osc~;
@@ -1138,6 +1138,7 @@
 #X connect 1 0 3 0;
 #X connect 2 0 20 0;
 #X connect 2 0 42 0;
+#X connect 2 0 104 0;
 #X connect 3 0 2 0;
 #X connect 4 0 17 0;
 #X connect 5 0 4 0;
--- a/scene demo/newStrou.pd	Sun Feb 21 09:26:51 2016 +0000
+++ b/scene demo/newStrou.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -3,11 +3,10 @@
 #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;
+#N canvas 679 277 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;
@@ -54,7 +53,6 @@
 #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;
@@ -62,78 +60,81 @@
 #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 text 372 240;
+#X msg 365 223 0.2492 -0.8861;
+#X text 370 240 Linear Int;
+#X connect 0 0 6 0;
+#X connect 1 0 6 0;
+#X connect 2 0 6 0;
+#X connect 3 0 6 0;
+#X connect 4 0 6 0;
+#X connect 5 0 6 0;
+#X connect 6 0 22 0;
+#X connect 6 0 44 0;
+#X connect 6 1 23 0;
+#X connect 6 1 45 0;
+#X connect 7 0 21 1;
+#X connect 7 0 21 0;
+#X connect 8 0 24 1;
+#X connect 8 0 25 0;
 #X connect 9 0 25 1;
-#X connect 9 0 26 0;
+#X connect 10 0 27 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 12 0 29 0;
 #X connect 13 0 29 1;
-#X connect 13 0 30 0;
-#X connect 14 0 30 1;
+#X connect 14 0 31 1;
+#X connect 14 0 32 0;
 #X connect 15 0 32 1;
-#X connect 15 0 33 0;
 #X connect 16 0 33 1;
+#X connect 16 0 34 0;
 #X connect 17 0 34 1;
-#X connect 17 0 35 0;
 #X connect 18 0 35 1;
+#X connect 18 0 36 0;
 #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 20 0 48 0;
+#X connect 20 0 47 1;
+#X connect 21 0 0 0;
+#X connect 24 0 1 0;
+#X connect 25 0 24 0;
+#X connect 26 0 2 0;
+#X connect 27 0 26 0;
+#X connect 28 0 55 0;
+#X connect 29 0 28 0;
+#X connect 31 0 3 0;
+#X connect 32 0 31 0;
+#X connect 33 0 4 0;
+#X connect 34 0 33 0;
+#X connect 35 0 5 0;
+#X connect 36 0 35 0;
+#X connect 37 0 7 0;
+#X connect 37 0 8 0;
+#X connect 37 0 9 0;
+#X connect 37 0 10 0;
+#X connect 37 0 11 0;
+#X connect 37 0 12 0;
+#X connect 37 0 13 0;
+#X connect 37 0 30 0;
+#X connect 37 0 14 0;
+#X connect 37 0 15 0;
+#X connect 37 0 16 0;
+#X connect 37 0 17 0;
+#X connect 37 0 18 0;
+#X connect 37 0 19 0;
+#X connect 37 0 20 0;
+#X connect 37 0 49 0;
+#X connect 38 0 37 0;
+#X connect 39 0 40 0;
 #X connect 40 0 41 0;
-#X connect 41 0 42 0;
-#X connect 42 0 38 0;
+#X connect 41 0 37 0;
+#X connect 44 0 42 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 connect 47 0 53 0;
+#X connect 48 0 47 0;
+#X connect 49 0 48 1;
+#X connect 53 0 6 0;
+#X connect 55 0 6 0;
 #X restore 273 83 pd eqnSelect;
 #X obj 203 85 sqrt~;
 #X obj 342 119 /~;
--- a/scene demo/testBedD4.pd	Sun Feb 21 09:26:51 2016 +0000
+++ b/scene demo/testBedD4.pd	Mon Feb 22 06:22:54 2016 +0000
@@ -2,7 +2,7 @@
 #X obj 249 -64 loadbang;
 #X obj -164 205 delwrite~ varwind 3000;
 #X obj -54 -46 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 2032 1;
+-1 -1 423 1;
 #X obj -246 50 snapshot~;
 #X floatatom -246 77 10 0 0 0 - - -;
 #X obj -163 -2 *~ 1;
@@ -11,7 +11,7 @@
 #X obj 35 -90 loadbang;
 #X msg 35 -70 5;
 #X obj 296 26 hsl 128 15 0.001 0.3 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 5127 1;
+-262144 -1 -1 0 1;
 #X floatatom 303 52 8 0 0 0 - - -;
 #X obj 364 302 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10
 -262144 -1 -1 6350 1;
@@ -21,10 +21,10 @@
 -1 -1 6350 1;
 #X floatatom 365 213 5 0 0 0 - - -;
 #X obj 350 239 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 9066 1;
+-262144 -1 -1 7937 1;
 #X floatatom 380 268 5 0 0 0 - - -;
 #X obj 323 127 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
--1 -1 7759 1;
+-1 -1 8877 1;
 #X floatatom 339 156 5 0 0 0 - - -;
 #X text 512 303 Pan Value;
 #X obj -189 443 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
@@ -68,7 +68,7 @@
 #X restore -190 400 pd opLevels;
 #X msg -181 346 5;
 #X obj -187 371 hsl 100 25 0.1 1e+09 0 0 empty empty empty -2 -8 0
-10 -262144 -1 -1 6930 1;
+10 -262144 -1 -1 0 1;
 #N canvas 20 383 344 123 machCalc 0;
 #X text 107 15 Speed of Sound (dry air 20 Degs C);
 #X obj 26 -14 vd~ varwind;
@@ -84,7 +84,7 @@
 #X obj 249 -40 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X obj 309 84 hsl 128 15 1 20 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 9358 1;
+-1 -1 2005 1;
 #X floatatom 331 103 8 0 0 0 - - -;
 #X msg 215 67 4;
 #X obj -70 374 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144
@@ -224,7 +224,8 @@
 #X msg -391 154 24 0.01 15 6 77 7e+08;
 #X msg -379 182 17 0.0015 10 3 -100 7e+08;
 #X msg -372 215 28 0.04 7 6 35 7e+08;
-#X msg -209 118 20;
+#X msg 411 -27 0.001;
+#X msg -209 118 35;
 #X connect 0 0 33 0;
 #X connect 2 0 64 0;
 #X connect 2 0 110 0;
@@ -289,6 +290,7 @@
 #X connect 58 0 49 0;
 #X connect 59 0 52 0;
 #X connect 60 0 55 0;
+#X connect 63 0 1 0;
 #X connect 66 0 117 0;
 #X connect 66 1 116 0;
 #X connect 66 2 115 0;
@@ -305,7 +307,6 @@
 #X connect 82 0 17 0;
 #X connect 84 0 105 0;
 #X connect 84 0 85 0;
-#X connect 84 0 1 0;
 #X connect 84 1 91 0;
 #X connect 85 0 86 0;
 #X connect 88 0 84 1;
@@ -345,4 +346,5 @@
 #X connect 132 0 66 0;
 #X connect 133 0 66 0;
 #X connect 134 0 66 0;
-#X connect 135 0 63 0;
+#X connect 135 0 10 0;
+#X connect 136 0 63 0;