Mercurial > hg > weather-synthesis-prototyping
changeset 179:9b4c50eb6faf
Sword - Length of arc fixed for all positions. Presets added. ISSUE _ Can not swing from left to right, only right to left.....
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Sun, 14 Feb 2016 12:27:55 +0000 |
| parents | ac78bd3d259b |
| children | 158d649c58c1 |
| files | newSwordAuto/centreAngles.pd newSwordAuto/newSwordAuto.pd |
| diffstat | 2 files changed, 2416 insertions(+), 7373 deletions(-) [+] |
line wrap: on
line diff
--- a/newSwordAuto/centreAngles.pd Sat Feb 13 16:51:08 2016 +0000 +++ b/newSwordAuto/centreAngles.pd Sun Feb 14 12:27:55 2016 +0000 @@ -1,4 +1,4 @@ -#N canvas 55 100 1348 455 10; +#N canvas 55 100 1362 700 10; #X obj 58 160 f; #X obj 58 117 r GO; #X obj 73 138 r preswingTime; @@ -18,7 +18,6 @@ #X obj 387 91 r postsweepAzim; #X msg 345 188 \$1 \$2; #X obj 168 117 r myEnd; -#X text 283 237 Current source Azimuth angle; #X obj 847 129 f; #X obj 847 86 r GO; #X obj 868 152 r preswingTime; @@ -49,9 +48,8 @@ #X obj 662 72 r preswingTime; #X obj 632 219 *; #X obj 632 287 s midElev; -#X text 525 -80 Calculate the angles with respect to the centre of -the swing circle; -#X text 1081 271 Current source Elevation angle; +#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 +; @@ -61,13 +59,15 @@ #X obj 1018 278 outlet~; #X obj 220 218 line~; #X obj 1018 252 line~; -#X connect 0 0 56 0; +#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 59 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; @@ -78,42 +78,42 @@ #X connect 14 0 15 0; #X connect 15 0 17 0; #X connect 16 0 14 1; -#X connect 17 0 59 0; +#X connect 17 0 57 0; #X connect 18 0 6 0; -#X connect 20 0 38 0; -#X connect 21 0 20 0; -#X connect 22 0 38 1; -#X connect 23 0 25 0; -#X connect 25 0 26 0; -#X connect 26 0 60 0; -#X connect 27 0 28 1; -#X connect 27 1 28 0; -#X connect 28 0 33 0; -#X connect 29 0 32 1; -#X connect 30 0 34 1; -#X connect 31 0 32 0; -#X connect 32 0 27 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 35 0; -#X connect 35 0 60 0; -#X connect 36 0 25 1; -#X connect 37 0 33 1; -#X connect 38 0 40 0; -#X connect 39 0 20 1; -#X connect 40 0 60 0; -#X connect 41 0 42 1; -#X connect 42 0 48 0; -#X connect 43 0 41 0; -#X connect 43 1 42 0; -#X connect 44 0 53 0; -#X connect 45 0 53 1; -#X connect 46 0 43 0; -#X connect 47 0 41 1; -#X connect 48 0 54 0; -#X connect 52 0 25 0; -#X connect 53 0 48 1; -#X connect 54 0 49 0; -#X connect 55 0 54 1; -#X connect 56 0 59 0; -#X connect 59 0 57 0; -#X connect 60 0 58 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;
--- a/newSwordAuto/newSwordAuto.pd Sat Feb 13 16:51:08 2016 +0000 +++ b/newSwordAuto/newSwordAuto.pd Sun Feb 14 12:27:55 2016 +0000 @@ -1,24 +1,22 @@ -#N canvas 46 193 1360 805 10; +#N canvas 117 25 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 -259 60 s NoOfSources; #X obj -221 455 s topSpeed; #X obj -273 429 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 4765 1; +-1 -1 4455 1; #X floatatom -276 455 8 0 0 0 - - -; -#X text -24 27 Blade Length; -#X text -25 93 Arm Length; -#X text -231 37 Number of Sources; +#X text -165 346 Blade Length; +#X text -9 37 Arm Length; #X text -165 433 Top Speed; -#X obj 21 251 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 5500 1; +#X obj 21 251 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3575 1; #X floatatom 18 280 8 0 0 0 - - -; #X obj -279 516 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 6600 1; +-262144 -1 -1 1650 1; #X obj -280 601 hsl 100 20 0.0001 0.01 0 0 empty empty empty -2 -8 -0 10 -262144 -1 -1 9700 1; +0 10 -262144 -1 -1 4400 1; #X floatatom -282 546 8 0 0 0 - - -; #X floatatom -283 629 8 0 0 0 - - -; #X obj -225 628 s tipThick; @@ -31,27 +29,23 @@ 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 400 1; +-1 -1 1200 1; #X obj 83 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1 -1; -#X obj 83 126 s setUp; +#X obj 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 -57 4 loadbang; -#X obj -59 73 loadbang; -#X obj -259 15 loadbang; +#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 -312 17 r setUp; -#X obj -108 71 r setUp; -#X obj -109 6 r setUp; +#X obj -92 15 r setUp; #X obj 83 21 loadbang; #X obj 83 45 delay 13; -#X obj 19 326 hsl 100 20 180 360 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 4950 1; +#X obj 19 326 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5775 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 @@ -70,53 +64,51 @@ #X text 130 327 post-sweep azimuth; #X obj 73 279 s presweepAzim; #X obj 85 358 s postsweepAzim; -#X obj -59 115 s start_armLength; -#X msg -59 94 0.35; -#X obj -274 139 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 5150 1; -#X obj -275 233 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 5151 1; -#X obj -275 324 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 5148 1; -#X obj -277 162 s Xobs; -#X obj -278 253 s Yobs; -#X obj -278 351 s Zobs; -#X floatatom -317 162 5 0 0 0 - - -; -#X floatatom -317 254 5 0 0 0 - - -; -#X floatatom -318 346 5 0 0 0 - - -; -#X msg -269 115 0; -#X msg -269 298 0; -#X msg -271 209 0.7; -#X obj -322 113 r setUp; -#X obj -327 210 r setUp; -#X obj -331 301 r setUp; -#X msg -219 208 0; +#X 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 5148 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 5049 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 -227 298 4; -#X msg -230 116 4; -#X msg 79 416 0; -#X msg -127 207 2.034; -#X msg -81 209 3; +#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 -188 111 0.2; +#X msg -189 24 0.2; #X msg -204 491 0.02; #X msg -210 575 0.008; #X msg -141 404 35; -#X obj -277 94 r thisXobs; -#X obj -278 186 r thisYobs; -#X obj -278 279 r thisZobs; +#X obj -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 msg 109 492 0; -#X obj 431 195 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; -#X obj 494 195 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; -#X text 491 104 Gain; -#X obj 439 75 loadbang; +#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 74 322 dac~; +#X obj 83 210 dac~; #X obj 30 70 catch~ l; #X obj 128 70 catch~ r; #X obj 129 104 *~ 0.45; @@ -126,42 +118,23 @@ #X obj 93 33 inlet; #X obj 30 239 outlet; #X obj 129 239 outlet; -#X obj 74 143 /~ 15; -#X obj 95 165 /~ 15; -#X obj 196 132 inlet; -#X obj 93 68 / 100; -#X obj 74 261 hip~ 100; -#X obj 95 280 hip~ 100; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 6 0; -#X connect 3 0 11 0; +#X connect 3 0 0 1; #X connect 4 0 5 0; -#X connect 4 0 10 0; +#X connect 4 0 0 0; #X connect 5 0 8 0; #X connect 6 0 9 0; -#X connect 7 0 13 0; -#X connect 10 0 14 0; -#X connect 11 0 15 0; -#X connect 12 0 10 1; -#X connect 12 0 11 1; -#X connect 13 0 3 1; -#X connect 13 0 4 1; -#X connect 14 0 0 0; -#X connect 15 0 0 1; -#X restore 430 152 pd opLevels; -#X msg 439 98 5; -#X obj 433 123 hsl 100 25 0.1 100000 0 0 empty empty empty -2 -8 0 -10 -262144 -1 -1 7500 1; -#X obj 550 126 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 0 1; -#X obj 547 80 loadbang; -#X text 612 105 No Of Sources; -#X obj 430 52 r GAIN; -#X msg 547 103 1; -#X floatatom 373 153 8 0 0 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 3000 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 165 1; +#X obj 427 2 r GAIN; +#X floatatom 370 103 8 0 0 0 - - -; #X obj -227 545 s hiltThick; -#X obj -58 48 s bladeLen; #X obj 315 63 metro 25; #X msg 206 221 100; #X msg 87 225 45; @@ -170,256 +143,644 @@ #X msg 89 307 270; #X msg 170 416 90; #X msg 238 222 80; -#X msg -170 207 1; -#X msg -195 297 2; -#N canvas 160 100 468 247 sources 0; -#X obj 78 59 sweepTime; -#N canvas 190 23 1218 834 arcDist 0; +#X msg -171 120 1; +#X msg -196 210 2; +#N canvas 87 92 1277 549 sources 0; +#X obj 312 -80 sweepTime; +#N canvas 100 23 841 797 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 210 67 * 0.01745; -#X floatatom 274 65 0 0 0 0 - - -; -#X obj 225 138 * 0.01745; -#X floatatom 288 138 0 0 0 0 - - -; -#X obj 210 90 cos; -#X obj 225 159 cos; -#X obj 210 209 *; -#X obj 225 183 t f b; -#X obj 225 258 * 0.01745; -#X obj 225 233 r presweepElev; -#X floatatom 288 258 0 0 0 0 - - -; -#X obj 320 231 * 0.01745; -#X obj 320 206 r postsweepElev; -#X floatatom 384 229 0 0 0 0 - - -; -#X obj 320 252 sin; -#X obj 320 274 t f b; -#X obj 225 282 sin; -#X obj 225 306 *; -#X obj 240 356 * 0.01745; -#X obj 356 341 * 0.01745; -#X floatatom 420 339 0 0 0 0 - - -; -#X floatatom 305 356 0 0 0 0 - - -; -#X obj 240 387 -; -#X obj 240 412 cos; -#X obj 240 432 t f b; -#X obj 225 457 *; -#X obj 356 364 t f b; -#X obj 210 506 +; -#X obj 225 481 t f b; -#X obj 210 529 acos; -#X obj 210 552 *; -#X obj 244 526 r length; -#X obj 210 42 r presweepElev; -#X obj 225 113 r postsweepElev; -#X obj 74 290 -; -#X obj 74 335 select 1; -#X msg 74 363 4.24115; +#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 575 t f b; -#X obj 133 335 select 0; -#X msg 133 359 0; -#X obj 114 421 -; -#X obj 114 444 * 2; -#X floatatom 21 340 5 0 0 0 - - -; -#X obj 74 217 r postsweepAzim; -#X obj 89 239 r presweepAzim; -#X obj 89 261 t f b; +#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 floatatom 269 584 0 0 0 0 - - -; -#X obj 39 626 spigot; -#X obj 129 395 t f b b; -#X floatatom 171 681 0 0 0 0 - - -; -#X obj 72 582 * -1; -#X obj 72 603 + 1; -#X obj 98 628 spigot; -#X obj 240 331 r postsweepAzim; -#X obj 356 316 r presweepAzim; -#X obj 74 313 >= 180; -#X obj 123 657 abs; -#X obj 123 683 outlet; +#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 588 289 -; -#X obj 588 334 select 1; -#X msg 588 358 4.24115; -#X obj 709 599 +; -#X obj 647 334 select 0; -#X msg 647 358 0; -#X obj 628 420 -; -#X obj 628 443 * 2; -#X floatatom 535 339 5 0 0 0 - - -; -#X obj 588 216 r postsweepAzim; -#X obj 603 238 r presweepAzim; -#X obj 603 260 t f b; -#X floatatom 708 629 0 0 0 0 - - -; -#X obj 553 625 spigot; -#X obj 643 394 t f b b; -#X floatatom 685 680 0 0 0 0 - - -; -#X obj 586 581 * -1; -#X obj 586 602 + 1; -#X obj 612 627 spigot; -#X obj 588 312 >= 180; -#X obj 637 656 abs; -#X obj 637 682 outlet; -#X obj 724 549 *; -#X obj 724 572 t f b; -#X obj 739 515 r start_armLength; -#X floatatom 805 591 0 0 0 0 - - -; -#X floatatom 348 563 5 0 0 0 - - -; +#X obj 515 120 r start_armLength; +#X obj 530 140 r bladeLen; +#X obj 515 161 +; +#X obj 515 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 connect 0 0 1 0; #X connect 2 0 3 0; -#X connect 4 0 8 0; -#X connect 6 0 9 0; -#X connect 8 0 10 0; -#X connect 9 0 11 0; -#X connect 10 0 31 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 56 0 57 1; +#X connect 57 0 58 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 restore 432 -114 pd arcDist; +#N canvas 563 178 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 649 57 311 384 lengthCalc 0; +#X obj 151 48 inlet; +#X obj 151 74 unpack; +#X obj 151 189 r start_armLength; +#X obj 74 140 r bladeLen; +#X obj 151 97 - 1; +#X obj 184 98 - 1; +#X obj 151 121 /; +#X obj 136 169 *; +#X obj 136 209 +; +#X obj 136 235 outlet; +#X obj 151 144 t f b; +#X connect 0 0 1 0; +#X connect 1 0 4 0; +#X connect 1 1 5 0; +#X connect 2 0 8 1; +#X connect 3 0 7 0; +#X connect 4 0 6 0; +#X connect 5 0 6 1; +#X connect 6 0 10 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 10 0 7 1; +#X connect 10 1 7 0; +#X restore 228 69 pd lengthCalc; +#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 11 1 10 0; -#X connect 12 0 20 0; -#X connect 13 0 14 0; -#X connect 13 0 12 0; -#X connect 15 0 18 0; -#X connect 16 0 17 0; -#X connect 16 0 15 0; -#X connect 18 0 19 0; -#X connect 19 0 21 1; -#X connect 19 1 21 0; -#X connect 20 0 21 0; -#X connect 21 0 29 0; -#X connect 22 0 26 0; -#X connect 23 0 30 0; -#X connect 26 0 27 0; +#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 199 97 inlet; +#N canvas 186 23 742 749 sourceSpeed 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 obj -79 492 outlet~; +#X obj -357 40 inlet; +#X obj -342 144 inlet; +#X text -312 424 \$1 = source speed; +#X text -312 440 \$2 = time to reach source speed; +#X obj -224 344 r preswingTime; +#X obj -220 249 r preswingTime; +#X obj -235 292 /; +#X obj -220 270 * 0.001; +#X obj -235 319 * 2; +#X text -192 299 Average Speed; +#X text -195 323 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 459 vline~; +#X obj -327 81 r bladeLen; +#X obj -342 61 r start_armLength; +#X obj -342 102 +; +#X obj -357 124 /; +#X obj -357 168 *; +#X obj -205 67 r postsweepAzim; +#X obj -190 89 r presweepAzim; +#X obj -190 110 t f b; +#X obj -220 183 /; +#X obj -205 160 t f b; +#X obj -235 227 *; +#X obj -220 204 t f b; +#X obj -205 139 -; +#X obj -241 159 -; +#X msg -241 137 180; +#X connect 1 0 30 0; +#X connect 2 0 1 0; +#X connect 3 0 30 0; +#X connect 4 0 2 0; +#X connect 5 0 4 0; +#X connect 6 0 30 0; +#X connect 7 0 8 1; +#X connect 7 1 8 0; +#X connect 8 0 29 0; +#X connect 9 0 3 0; +#X connect 12 0 28 1; +#X connect 15 0 34 0; +#X connect 16 0 35 1; +#X connect 19 0 2 1; +#X connect 20 0 22 0; +#X connect 21 0 23 0; +#X connect 22 0 21 1; +#X connect 23 0 4 1; +#X connect 26 0 29 1; #X connect 27 0 28 0; -#X connect 28 0 29 1; -#X connect 28 1 29 0; -#X connect 29 0 32 0; -#X connect 30 0 26 1; -#X connect 30 1 26 0; -#X connect 31 0 33 0; -#X connect 32 0 31 1; -#X connect 32 1 31 0; -#X connect 33 0 34 0; -#X connect 33 0 87 0; -#X connect 34 0 42 0; -#X connect 34 0 52 0; -#X connect 34 0 53 0; -#X connect 35 0 34 1; -#X connect 35 0 91 0; -#X connect 36 0 5 0; -#X connect 36 0 4 0; -#X connect 37 0 7 0; -#X connect 37 0 6 0; -#X connect 38 0 61 0; -#X connect 39 0 40 0; -#X connect 40 0 45 0; -#X connect 41 0 51 0; -#X connect 41 0 58 0; +#X connect 28 0 7 0; +#X connect 29 0 6 0; +#X connect 30 0 14 0; +#X connect 31 0 33 1; +#X connect 32 0 33 0; +#X connect 33 0 34 1; +#X connect 34 0 35 0; +#X connect 35 0 41 0; +#X connect 36 0 43 0; +#X connect 37 0 38 0; +#X connect 38 0 43 1; +#X connect 38 0 44 1; +#X connect 38 1 43 0; +#X connect 38 1 45 0; +#X connect 39 0 42 0; +#X connect 40 0 39 1; +#X connect 40 1 39 0; +#X connect 41 0 21 0; #X connect 42 0 41 1; -#X connect 42 0 54 0; #X connect 42 1 41 0; -#X connect 43 0 44 0; -#X connect 44 0 45 0; -#X connect 45 0 46 0; -#X connect 46 0 41 0; -#X connect 48 0 38 0; -#X connect 49 0 50 0; -#X connect 50 0 38 1; -#X connect 50 1 38 0; -#X connect 53 0 62 0; -#X connect 54 0 45 1; -#X connect 54 2 45 0; -#X connect 56 0 57 0; -#X connect 57 0 53 1; -#X connect 58 0 62 0; -#X connect 59 0 22 0; -#X connect 59 0 25 0; -#X connect 60 0 24 0; -#X connect 60 0 23 0; -#X connect 61 0 39 0; -#X connect 61 0 43 0; -#X connect 61 0 47 0; -#X connect 61 0 56 0; -#X connect 61 0 58 1; -#X connect 62 0 55 0; -#X connect 62 0 63 0; -#X connect 65 0 84 0; -#X connect 66 0 67 0; -#X connect 67 0 71 0; -#X connect 68 0 77 0; -#X connect 68 0 83 0; -#X connect 69 0 70 0; -#X connect 70 0 71 0; -#X connect 71 0 72 0; -#X connect 72 0 68 0; -#X connect 74 0 65 0; -#X connect 75 0 76 0; -#X connect 76 0 65 1; -#X connect 76 1 65 0; -#X connect 78 0 85 0; -#X connect 79 0 71 1; -#X connect 79 2 71 0; -#X connect 81 0 82 0; -#X connect 82 0 78 1; -#X connect 83 0 85 0; -#X connect 84 0 66 0; -#X connect 84 0 69 0; -#X connect 84 0 73 0; -#X connect 84 0 81 0; -#X connect 84 0 83 1; -#X connect 85 0 80 0; -#X connect 85 0 86 0; -#X connect 87 0 88 0; -#X connect 87 0 90 0; -#X connect 88 0 68 1; -#X connect 88 1 68 0; -#X connect 89 0 87 1; -#X restore 137 34 pd arcDist; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; +#X connect 43 0 40 0; +#X connect 44 0 39 0; +#X connect 45 0 44 0; +#X restore 118 118 pd sourceSpeed; +#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 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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 0; +#X connect 10 0 11 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 107 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; @@ -563,54 +924,54 @@ #X text -7644 498 p33; #X text -7772 499 p32; #X text -7888 493 p31; -#N canvas 285 176 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; +#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 -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; +#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 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; +#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 280 243 +~; -#X obj 294 274 +~; +#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 z'; +#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; @@ -825,44 +1186,126 @@ #X connect 135 0 136 0; #X connect 135 1 137 0; #X connect 135 2 138 0; -#X restore -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; +#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; +#N canvas 563 178 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 *~; @@ -1058,17 +1501,19 @@ #X connect 80 0 81 1; #X connect 81 0 82 0; #X connect 82 0 84 0; -#X restore -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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; @@ -1085,11 +1530,11 @@ #X connect 16 0 19 1; #X connect 17 0 20 1; #X connect 18 0 25 0; -#X connect 18 0 74 2; +#X connect 18 0 42 2; #X connect 19 0 21 0; -#X connect 19 0 74 0; +#X connect 19 0 42 0; #X connect 20 0 23 0; -#X connect 20 0 74 1; +#X connect 20 0 42 1; #X connect 21 0 22 0; #X connect 21 0 22 1; #X connect 22 0 27 0; @@ -1106,59 +1551,25 @@ #X connect 31 0 7 1; #X connect 32 0 10 0; #X connect 33 0 34 0; -#X connect 36 0 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; +#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 649 57 311 384 lengthCalc 0; #X obj 151 48 inlet; #X obj 151 74 unpack; @@ -1183,7 +1594,7 @@ #X connect 8 0 9 0; #X connect 10 0 7 1; #X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; +#X restore 228 69 pd lengthCalc; #N canvas 63 71 726 590 myThinkness 0; #X obj 136 61 inlet; #X obj 136 87 unpack; @@ -1212,9 +1623,9 @@ #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 12 1 9 0; -#X restore 131 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; +#X restore 131 140 pd myThinkness; +#X obj 180 23 r setUp; +#X obj 199 97 inlet; #N canvas 186 23 742 749 sourceSpeed 0; #X text -122 17 Start calculation with elevation = 0 \, arm length is constant \, acceleration/deceleration is constant.; @@ -1306,514 +1717,84 @@ #X connect 43 0 40 0; #X connect 44 0 39 0; #X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 12 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 166 59 pd one_Source; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; -#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 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 280 243 +~; -#X obj 294 274 +~; -#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 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 -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; +#X restore 118 118 pd sourceSpeed; +#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 11 12; +#X connect 0 0 5 9; +#X connect 0 0 5 8; +#X connect 0 0 5 7; +#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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 0; +#X connect 10 0 11 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 193 123 pd one_Source; +#N canvas 563 178 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 *~; @@ -2009,17 +1990,19 @@ #X connect 80 0 81 1; #X connect 81 0 82 0; #X connect 82 0 84 0; -#X restore -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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; @@ -2036,11 +2019,11 @@ #X connect 16 0 19 1; #X connect 17 0 20 1; #X connect 18 0 25 0; -#X connect 18 0 74 2; +#X connect 18 0 42 2; #X connect 19 0 21 0; -#X connect 19 0 74 0; +#X connect 19 0 42 0; #X connect 20 0 23 0; -#X connect 20 0 74 1; +#X connect 20 0 42 1; #X connect 21 0 22 0; #X connect 21 0 22 1; #X connect 22 0 27 0; @@ -2057,59 +2040,25 @@ #X connect 31 0 7 1; #X connect 32 0 10 0; #X connect 33 0 34 0; -#X connect 36 0 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; +#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 649 57 311 384 lengthCalc 0; #X obj 151 48 inlet; #X obj 151 74 unpack; @@ -2134,7 +2083,7 @@ #X connect 8 0 9 0; #X connect 10 0 7 1; #X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; +#X restore 228 69 pd lengthCalc; #N canvas 63 71 726 590 myThinkness 0; #X obj 136 61 inlet; #X obj 136 87 unpack; @@ -2163,9 +2112,9 @@ #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 12 1 9 0; -#X restore 131 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; +#X restore 131 140 pd myThinkness; +#X obj 180 23 r setUp; +#X obj 199 97 inlet; #N canvas 186 23 742 749 sourceSpeed 0; #X text -122 17 Start calculation with elevation = 0 \, arm length is constant \, acceleration/deceleration is constant.; @@ -2257,514 +2206,84 @@ #X connect 43 0 40 0; #X connect 44 0 39 0; #X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 11 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 166 81 pd one_Source; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; -#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 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 280 243 +~; -#X obj 294 274 +~; -#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 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 -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; +#X restore 118 118 pd sourceSpeed; +#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 10 12; +#X connect 0 0 5 9; +#X connect 0 0 5 8; +#X connect 0 0 5 7; +#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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 0; +#X connect 10 0 11 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 280 123 pd one_Source; +#N canvas 563 178 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 *~; @@ -2960,17 +2479,19 @@ #X connect 80 0 81 1; #X connect 81 0 82 0; #X connect 82 0 84 0; -#X restore -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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; @@ -2987,11 +2508,11 @@ #X connect 16 0 19 1; #X connect 17 0 20 1; #X connect 18 0 25 0; -#X connect 18 0 74 2; +#X connect 18 0 42 2; #X connect 19 0 21 0; -#X connect 19 0 74 0; +#X connect 19 0 42 0; #X connect 20 0 23 0; -#X connect 20 0 74 1; +#X connect 20 0 42 1; #X connect 21 0 22 0; #X connect 21 0 22 1; #X connect 22 0 27 0; @@ -3008,59 +2529,25 @@ #X connect 31 0 7 1; #X connect 32 0 10 0; #X connect 33 0 34 0; -#X connect 36 0 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; +#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 649 57 311 384 lengthCalc 0; #X obj 151 48 inlet; #X obj 151 74 unpack; @@ -3085,7 +2572,7 @@ #X connect 8 0 9 0; #X connect 10 0 7 1; #X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; +#X restore 228 69 pd lengthCalc; #N canvas 63 71 726 590 myThinkness 0; #X obj 136 61 inlet; #X obj 136 87 unpack; @@ -3114,9 +2601,9 @@ #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 12 1 9 0; -#X restore 131 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; +#X restore 131 140 pd myThinkness; +#X obj 180 23 r setUp; +#X obj 199 97 inlet; #N canvas 186 23 742 749 sourceSpeed 0; #X text -122 17 Start calculation with elevation = 0 \, arm length is constant \, acceleration/deceleration is constant.; @@ -3208,514 +2695,84 @@ #X connect 43 0 40 0; #X connect 44 0 39 0; #X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 10 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 167 104 pd one_Source; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; -#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 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 280 243 +~; -#X obj 294 274 +~; -#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 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 -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; +#X restore 118 118 pd sourceSpeed; +#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 9 12; +#X connect 0 0 5 9; +#X connect 0 0 5 8; +#X connect 0 0 5 7; +#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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 0; +#X connect 10 0 11 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 370 122 pd one_Source; +#N canvas 563 178 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 *~; @@ -3911,17 +2968,19 @@ #X connect 80 0 81 1; #X connect 81 0 82 0; #X connect 82 0 84 0; -#X restore -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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; @@ -3938,11 +2997,11 @@ #X connect 16 0 19 1; #X connect 17 0 20 1; #X connect 18 0 25 0; -#X connect 18 0 74 2; +#X connect 18 0 42 2; #X connect 19 0 21 0; -#X connect 19 0 74 0; +#X connect 19 0 42 0; #X connect 20 0 23 0; -#X connect 20 0 74 1; +#X connect 20 0 42 1; #X connect 21 0 22 0; #X connect 21 0 22 1; #X connect 22 0 27 0; @@ -3959,59 +3018,25 @@ #X connect 31 0 7 1; #X connect 32 0 10 0; #X connect 33 0 34 0; -#X connect 36 0 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; +#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 649 57 311 384 lengthCalc 0; #X obj 151 48 inlet; #X obj 151 74 unpack; @@ -4036,7 +3061,7 @@ #X connect 8 0 9 0; #X connect 10 0 7 1; #X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; +#X restore 228 69 pd lengthCalc; #N canvas 63 71 726 590 myThinkness 0; #X obj 136 61 inlet; #X obj 136 87 unpack; @@ -4065,9 +3090,9 @@ #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 12 1 9 0; -#X restore 131 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; +#X restore 131 140 pd myThinkness; +#X obj 180 23 r setUp; +#X obj 199 97 inlet; #N canvas 186 23 742 749 sourceSpeed 0; #X text -122 17 Start calculation with elevation = 0 \, arm length is constant \, acceleration/deceleration is constant.; @@ -4159,514 +3184,84 @@ #X connect 43 0 40 0; #X connect 44 0 39 0; #X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 9 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 166 127 pd one_Source; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; -#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 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 280 243 +~; -#X obj 294 274 +~; -#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 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 -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; +#X restore 118 118 pd sourceSpeed; +#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 8 12; +#X connect 0 0 5 9; +#X connect 0 0 5 8; +#X connect 0 0 5 7; +#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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 0; +#X connect 10 0 11 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 456 122 pd one_Source; +#N canvas 563 178 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 *~; @@ -4862,17 +3457,19 @@ #X connect 80 0 81 1; #X connect 81 0 82 0; #X connect 82 0 84 0; -#X restore -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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; @@ -4889,11 +3486,11 @@ #X connect 16 0 19 1; #X connect 17 0 20 1; #X connect 18 0 25 0; -#X connect 18 0 74 2; +#X connect 18 0 42 2; #X connect 19 0 21 0; -#X connect 19 0 74 0; +#X connect 19 0 42 0; #X connect 20 0 23 0; -#X connect 20 0 74 1; +#X connect 20 0 42 1; #X connect 21 0 22 0; #X connect 21 0 22 1; #X connect 22 0 27 0; @@ -4910,59 +3507,25 @@ #X connect 31 0 7 1; #X connect 32 0 10 0; #X connect 33 0 34 0; -#X connect 36 0 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; +#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 649 57 311 384 lengthCalc 0; #X obj 151 48 inlet; #X obj 151 74 unpack; @@ -4987,7 +3550,7 @@ #X connect 8 0 9 0; #X connect 10 0 7 1; #X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; +#X restore 228 69 pd lengthCalc; #N canvas 63 71 726 590 myThinkness 0; #X obj 136 61 inlet; #X obj 136 87 unpack; @@ -5016,9 +3579,9 @@ #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 12 1 9 0; -#X restore 131 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; +#X restore 131 140 pd myThinkness; +#X obj 180 23 r setUp; +#X obj 199 97 inlet; #N canvas 186 23 742 749 sourceSpeed 0; #X text -122 17 Start calculation with elevation = 0 \, arm length is constant \, acceleration/deceleration is constant.; @@ -5110,514 +3673,84 @@ #X connect 43 0 40 0; #X connect 44 0 39 0; #X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 8 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 166 150 pd one_Source; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; -#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 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 280 243 +~; -#X obj 294 274 +~; -#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 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 -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; +#X restore 118 118 pd sourceSpeed; +#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 7 12; +#X connect 0 0 5 9; +#X connect 0 0 5 8; +#X connect 0 0 5 7; +#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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 0; +#X connect 10 0 11 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 543 122 pd one_Source; +#N canvas 563 178 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 *~; @@ -5813,17 +3946,19 @@ #X connect 80 0 81 1; #X connect 81 0 82 0; #X connect 82 0 84 0; -#X restore -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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; @@ -5840,11 +3975,11 @@ #X connect 16 0 19 1; #X connect 17 0 20 1; #X connect 18 0 25 0; -#X connect 18 0 74 2; +#X connect 18 0 42 2; #X connect 19 0 21 0; -#X connect 19 0 74 0; +#X connect 19 0 42 0; #X connect 20 0 23 0; -#X connect 20 0 74 1; +#X connect 20 0 42 1; #X connect 21 0 22 0; #X connect 21 0 22 1; #X connect 22 0 27 0; @@ -5861,59 +3996,25 @@ #X connect 31 0 7 1; #X connect 32 0 10 0; #X connect 33 0 34 0; -#X connect 36 0 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; +#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 649 57 311 384 lengthCalc 0; #X obj 151 48 inlet; #X obj 151 74 unpack; @@ -5938,7 +4039,7 @@ #X connect 8 0 9 0; #X connect 10 0 7 1; #X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; +#X restore 228 69 pd lengthCalc; #N canvas 63 71 726 590 myThinkness 0; #X obj 136 61 inlet; #X obj 136 87 unpack; @@ -5967,9 +4068,9 @@ #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 12 1 9 0; -#X restore 131 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; +#X restore 131 140 pd myThinkness; +#X obj 180 23 r setUp; +#X obj 199 97 inlet; #N canvas 186 23 742 749 sourceSpeed 0; #X text -122 17 Start calculation with elevation = 0 \, arm length is constant \, acceleration/deceleration is constant.; @@ -6061,514 +4162,84 @@ #X connect 43 0 40 0; #X connect 44 0 39 0; #X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 6 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 258 61 pd one_Source; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; -#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 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 280 243 +~; -#X obj 294 274 +~; -#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 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 -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; +#X restore 118 118 pd sourceSpeed; +#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 6 12; +#X connect 0 0 5 9; +#X connect 0 0 5 8; +#X connect 0 0 5 7; +#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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 0; +#X connect 10 0 11 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 631 122 pd one_Source; +#N canvas 563 178 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 *~; @@ -6764,17 +4435,19 @@ #X connect 80 0 81 1; #X connect 81 0 82 0; #X connect 82 0 84 0; -#X restore -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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; @@ -6791,11 +4464,11 @@ #X connect 16 0 19 1; #X connect 17 0 20 1; #X connect 18 0 25 0; -#X connect 18 0 74 2; +#X connect 18 0 42 2; #X connect 19 0 21 0; -#X connect 19 0 74 0; +#X connect 19 0 42 0; #X connect 20 0 23 0; -#X connect 20 0 74 1; +#X connect 20 0 42 1; #X connect 21 0 22 0; #X connect 21 0 22 1; #X connect 22 0 27 0; @@ -6812,59 +4485,25 @@ #X connect 31 0 7 1; #X connect 32 0 10 0; #X connect 33 0 34 0; -#X connect 36 0 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; +#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 649 57 311 384 lengthCalc 0; #X obj 151 48 inlet; #X obj 151 74 unpack; @@ -6889,7 +4528,7 @@ #X connect 8 0 9 0; #X connect 10 0 7 1; #X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; +#X restore 228 69 pd lengthCalc; #N canvas 63 71 726 590 myThinkness 0; #X obj 136 61 inlet; #X obj 136 87 unpack; @@ -6918,9 +4557,9 @@ #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 12 1 9 0; -#X restore 131 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; +#X restore 131 140 pd myThinkness; +#X obj 180 23 r setUp; +#X obj 199 97 inlet; #N canvas 186 23 742 749 sourceSpeed 0; #X text -122 17 Start calculation with elevation = 0 \, arm length is constant \, acceleration/deceleration is constant.; @@ -7012,514 +4651,84 @@ #X connect 43 0 40 0; #X connect 44 0 39 0; #X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 5 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 258 83 pd one_Source; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; -#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 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 280 243 +~; -#X obj 294 274 +~; -#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 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 -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; +#X restore 118 118 pd sourceSpeed; +#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 5 12; +#X connect 0 0 5 9; +#X connect 0 0 5 8; +#X connect 0 0 5 7; +#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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 0; +#X connect 10 0 11 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 717 122 pd one_Source; +#N canvas 563 178 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 *~; @@ -7715,17 +4924,19 @@ #X connect 80 0 81 1; #X connect 81 0 82 0; #X connect 82 0 84 0; -#X restore -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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; @@ -7742,11 +4953,11 @@ #X connect 16 0 19 1; #X connect 17 0 20 1; #X connect 18 0 25 0; -#X connect 18 0 74 2; +#X connect 18 0 42 2; #X connect 19 0 21 0; -#X connect 19 0 74 0; +#X connect 19 0 42 0; #X connect 20 0 23 0; -#X connect 20 0 74 1; +#X connect 20 0 42 1; #X connect 21 0 22 0; #X connect 21 0 22 1; #X connect 22 0 27 0; @@ -7763,59 +4974,25 @@ #X connect 31 0 7 1; #X connect 32 0 10 0; #X connect 33 0 34 0; -#X connect 36 0 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; +#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 649 57 311 384 lengthCalc 0; #X obj 151 48 inlet; #X obj 151 74 unpack; @@ -7840,7 +5017,7 @@ #X connect 8 0 9 0; #X connect 10 0 7 1; #X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; +#X restore 228 69 pd lengthCalc; #N canvas 63 71 726 590 myThinkness 0; #X obj 136 61 inlet; #X obj 136 87 unpack; @@ -7869,9 +5046,9 @@ #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 12 1 9 0; -#X restore 131 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; +#X restore 131 140 pd myThinkness; +#X obj 180 23 r setUp; +#X obj 199 97 inlet; #N canvas 186 23 742 749 sourceSpeed 0; #X text -122 17 Start calculation with elevation = 0 \, arm length is constant \, acceleration/deceleration is constant.; @@ -7963,514 +5140,84 @@ #X connect 43 0 40 0; #X connect 44 0 39 0; #X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 4 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 259 106 pd one_Source; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; -#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 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 280 243 +~; -#X obj 294 274 +~; -#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 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 -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; +#X restore 118 118 pd sourceSpeed; +#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 4 12; +#X connect 0 0 5 9; +#X connect 0 0 5 8; +#X connect 0 0 5 7; +#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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 0; +#X connect 10 0 11 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 804 122 pd one_Source; +#N canvas 563 178 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 *~; @@ -8666,17 +5413,19 @@ #X connect 80 0 81 1; #X connect 81 0 82 0; #X connect 82 0 84 0; -#X restore -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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; @@ -8693,11 +5442,11 @@ #X connect 16 0 19 1; #X connect 17 0 20 1; #X connect 18 0 25 0; -#X connect 18 0 74 2; +#X connect 18 0 42 2; #X connect 19 0 21 0; -#X connect 19 0 74 0; +#X connect 19 0 42 0; #X connect 20 0 23 0; -#X connect 20 0 74 1; +#X connect 20 0 42 1; #X connect 21 0 22 0; #X connect 21 0 22 1; #X connect 22 0 27 0; @@ -8714,59 +5463,25 @@ #X connect 31 0 7 1; #X connect 32 0 10 0; #X connect 33 0 34 0; -#X connect 36 0 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; +#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 649 57 311 384 lengthCalc 0; #X obj 151 48 inlet; #X obj 151 74 unpack; @@ -8791,7 +5506,7 @@ #X connect 8 0 9 0; #X connect 10 0 7 1; #X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; +#X restore 228 69 pd lengthCalc; #N canvas 63 71 726 590 myThinkness 0; #X obj 136 61 inlet; #X obj 136 87 unpack; @@ -8820,9 +5535,9 @@ #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 12 1 9 0; -#X restore 131 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; +#X restore 131 140 pd myThinkness; +#X obj 180 23 r setUp; +#X obj 199 97 inlet; #N canvas 186 23 742 749 sourceSpeed 0; #X text -122 17 Start calculation with elevation = 0 \, arm length is constant \, acceleration/deceleration is constant.; @@ -8914,514 +5629,84 @@ #X connect 43 0 40 0; #X connect 44 0 39 0; #X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 3 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 258 129 pd one_Source; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; -#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 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 280 243 +~; -#X obj 294 274 +~; -#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 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 -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; +#X restore 118 118 pd sourceSpeed; +#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 3 12; +#X connect 0 0 5 9; +#X connect 0 0 5 8; +#X connect 0 0 5 7; +#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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 0; +#X connect 10 0 11 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 894 121 pd one_Source; +#N canvas 563 178 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 *~; @@ -9617,17 +5902,19 @@ #X connect 80 0 81 1; #X connect 81 0 82 0; #X connect 82 0 84 0; -#X restore -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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; @@ -9644,11 +5931,11 @@ #X connect 16 0 19 1; #X connect 17 0 20 1; #X connect 18 0 25 0; -#X connect 18 0 74 2; +#X connect 18 0 42 2; #X connect 19 0 21 0; -#X connect 19 0 74 0; +#X connect 19 0 42 0; #X connect 20 0 23 0; -#X connect 20 0 74 1; +#X connect 20 0 42 1; #X connect 21 0 22 0; #X connect 21 0 22 1; #X connect 22 0 27 0; @@ -9665,59 +5952,25 @@ #X connect 31 0 7 1; #X connect 32 0 10 0; #X connect 33 0 34 0; -#X connect 36 0 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; +#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 649 57 311 384 lengthCalc 0; #X obj 151 48 inlet; #X obj 151 74 unpack; @@ -9742,7 +5995,7 @@ #X connect 8 0 9 0; #X connect 10 0 7 1; #X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; +#X restore 228 69 pd lengthCalc; #N canvas 63 71 726 590 myThinkness 0; #X obj 136 61 inlet; #X obj 136 87 unpack; @@ -9771,9 +6024,9 @@ #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 12 1 9 0; -#X restore 131 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; +#X restore 131 140 pd myThinkness; +#X obj 180 23 r setUp; +#X obj 199 97 inlet; #N canvas 186 23 742 749 sourceSpeed 0; #X text -122 17 Start calculation with elevation = 0 \, arm length is constant \, acceleration/deceleration is constant.; @@ -9865,514 +6118,84 @@ #X connect 43 0 40 0; #X connect 44 0 39 0; #X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 2 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 258 152 pd one_Source; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; -#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 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 280 243 +~; -#X obj 294 274 +~; -#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 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 -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; +#X restore 118 118 pd sourceSpeed; +#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 2 12; +#X connect 0 0 5 9; +#X connect 0 0 5 8; +#X connect 0 0 5 7; +#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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 0; +#X connect 10 0 11 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 980 121 pd one_Source; +#N canvas 563 178 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 *~; @@ -10568,17 +6391,19 @@ #X connect 80 0 81 1; #X connect 81 0 82 0; #X connect 82 0 84 0; -#X restore -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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; @@ -10595,11 +6420,11 @@ #X connect 16 0 19 1; #X connect 17 0 20 1; #X connect 18 0 25 0; -#X connect 18 0 74 2; +#X connect 18 0 42 2; #X connect 19 0 21 0; -#X connect 19 0 74 0; +#X connect 19 0 42 0; #X connect 20 0 23 0; -#X connect 20 0 74 1; +#X connect 20 0 42 1; #X connect 21 0 22 0; #X connect 21 0 22 1; #X connect 22 0 27 0; @@ -10616,59 +6441,25 @@ #X connect 31 0 7 1; #X connect 32 0 10 0; #X connect 33 0 34 0; -#X connect 36 0 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; +#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 649 57 311 384 lengthCalc 0; #X obj 151 48 inlet; #X obj 151 74 unpack; @@ -10693,7 +6484,7 @@ #X connect 8 0 9 0; #X connect 10 0 7 1; #X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; +#X restore 228 69 pd lengthCalc; #N canvas 63 71 726 590 myThinkness 0; #X obj 136 61 inlet; #X obj 136 87 unpack; @@ -10722,9 +6513,9 @@ #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 12 1 9 0; -#X restore 131 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; +#X restore 131 140 pd myThinkness; +#X obj 180 23 r setUp; +#X obj 199 97 inlet; #N canvas 186 23 742 749 sourceSpeed 0; #X text -122 17 Start calculation with elevation = 0 \, arm length is constant \, acceleration/deceleration is constant.; @@ -10816,1091 +6607,343 @@ #X connect 43 0 40 0; #X connect 44 0 39 0; #X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 7 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 166 171 pd one_Source; -#N canvas 563 178 372 392 one_Source 0; -#X obj 159 204 centreAngles; -#X msg 227 295 0; -#X obj 227 254 r setUp; -#N canvas 189 123 1233 633 positions 0; -#X text -8660 88 z coordinate of tip; -#X text -8976 234 x coordinate of tip; -#X text -8748 46 y coordinate of tip; -#X obj -8662 291 r Zobs; -#X obj -8748 289 r Yobs; -#X obj -8832 281 r Xobs; -#X obj -8847 48 sig~ 180; -#X obj -8847 92 -~; -#X obj -8847 112 *~ 0.002778; -#X obj -8763 110 *~ 0.002778; -#X obj -8677 133 *~ 0.002778; -#X obj -8847 136 cos~; -#X obj -8763 134 sin~; -#X obj -8832 158 sin~; -#X obj -8748 158 sin~; -#X obj -8677 160 cos~; -#X obj -8832 203 *~ 1; -#X obj -8748 203 *~ 1; -#X obj -8677 207 *~ 1; -#X obj -8847 231 *~; -#X obj -8763 234 *~; -#X obj -8847 350 -~; -#X obj -8847 374 *~; -#X obj -8763 352 -~; -#X obj -8763 381 *~; -#X obj -8677 352 -~; -#X obj -8677 376 *~; -#X obj -8778 415 +~; -#X obj -8778 447 +~; -#X obj -8778 474 sqrt~; -#X obj -8778 499 outlet~; -#X obj -8832 69 inlet~; -#X obj -8677 111 inlet~; -#X obj -8812 497 *~ 2; -#X obj -8812 522 *~; -#X text -8783 537 source distance from Observer; -#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 1010 408 ProjectionPoint 0; -#X obj -150 133 inlet~; -#X obj -107 132 inlet~; -#X obj -64 133 inlet~; -#X obj 42 130 inlet~; -#X obj 103 131 inlet~; -#X obj 162 131 inlet~; -#X obj 47 24 r Xobs; -#X obj 161 24 r Zobs; -#X obj 103 25 r Yobs; -#X msg 47 46 \$1 5; -#X obj 47 68 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -120 249 +~; -#X obj -106 280 +~; -#X msg 103 47 \$1 5; -#X obj 103 69 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 83 240 +~; -#X obj 97 271 +~; -#X msg 160 48 \$1 5; -#X obj 160 70 line~; -#X obj 239 133 inlet~; -#X obj 300 134 inlet~; -#X obj 359 134 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 280 243 +~; -#X obj 294 274 +~; -#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 -106 333 outlet~; -#X obj 97 331 outlet~; -#X obj 294 328 outlet~; -#X text 269 34 x' \, y' & z' relates to the point in the plane of the -sword when the observer position is projected on; -#X text -80 279 x'; -#X text 124 273 y'; -#X text 322 274 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 -8203 306 pd baseFind; -#X obj -8079 145 r midAzim; -#X obj -8063 215 r midElev; -#X obj -8063 259 line~; -#X msg -8063 237 \$1 5; -#X obj -8662 333 line~; -#X msg -8662 311 \$1 5; -#X obj -8748 331 line~; -#X msg -8748 310 \$1 5; -#X obj -8832 327 line~; -#X msg -8832 305 \$1 5; -#X obj -8079 191 line~; -#X msg -8079 169 \$1 5; -#X floatatom -8290 218 5 0 0 0 - - -; -#X obj -8301 195 r length; -#X obj -8216 195 r length; -#X obj -8145 211 r length; -#X obj -8336 21 sig~ 180; -#X obj -8336 107 -~; -#X obj -8336 127 *~ 0.002778; -#X obj -8252 125 *~ 0.002778; -#X obj -8166 150 *~ 0.002778; -#X obj -8336 151 cos~; -#X obj -8252 149 sin~; -#X obj -8321 173 sin~; -#X obj -8237 173 sin~; -#X obj -8166 187 cos~; -#X obj -8321 218 *~ 1; -#X obj -8237 218 *~ 1; -#X obj -8166 234 *~ 1; -#X obj -8336 246 *~; -#X obj -8252 249 *~; -#X obj -8321 87 line~; -#X msg -8321 65 \$1 5; -#X obj -8166 129 line~; -#X msg -8166 107 \$1 5; -#X obj -8321 42 r presweepAzim; -#X obj -8166 84 r presweepElev; -#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 restore 118 118 pd sourceSpeed; +#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 1 12; +#X connect 0 0 5 9; +#X connect 0 0 5 8; +#X connect 0 0 5 7; +#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 17 0; +#X connect 7 0 2 2; +#X connect 7 0 11 0; +#X connect 8 0 5 1; +#X connect 9 0 17 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 -8459 462 pd SourceAngles; -#X obj -8459 484 outlet~; -#X obj -8372 484 outlet~; -#X text -8533 510 Source - Obs Elevation; -#X text -8378 511 Source - Obs Azimuth; -#X text -8276 69 Start Coordinates of tip; -#X obj -8483 57 inlet; -#X text -8535 36 Source position on sword; -#X connect 3 0 42 0; -#X connect 4 0 44 0; -#X connect 5 0 46 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 74 2; -#X connect 19 0 21 0; -#X connect 19 0 74 0; -#X connect 20 0 23 0; -#X connect 20 0 74 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 74 3; -#X connect 36 1 74 4; -#X connect 36 2 74 5; -#X connect 37 0 48 0; -#X connect 38 0 40 0; -#X connect 39 0 36 4; -#X connect 40 0 39 0; -#X connect 41 0 25 1; -#X connect 42 0 41 0; -#X connect 43 0 23 1; -#X connect 44 0 43 0; -#X connect 45 0 21 1; -#X connect 46 0 45 0; -#X connect 47 0 36 3; -#X connect 48 0 47 0; -#X connect 50 0 49 0; -#X connect 50 0 63 1; -#X connect 51 0 64 1; -#X connect 52 0 65 1; -#X connect 53 0 54 0; -#X connect 54 0 55 0; -#X connect 54 0 56 0; -#X connect 55 0 58 0; -#X connect 56 0 59 0; -#X connect 57 0 60 0; -#X connect 57 0 61 0; -#X connect 57 0 62 0; -#X connect 58 0 66 0; -#X connect 59 0 67 0; -#X connect 60 0 63 0; -#X connect 61 0 64 0; -#X connect 62 0 65 0; -#X connect 63 0 66 1; -#X connect 64 0 67 1; -#X connect 65 0 36 2; -#X connect 66 0 36 0; -#X connect 67 0 36 1; -#X connect 68 0 54 1; -#X connect 69 0 68 0; -#X connect 70 0 57 0; -#X connect 71 0 70 0; -#X connect 72 0 69 0; -#X connect 73 0 71 0; -#X connect 74 0 75 0; -#X connect 74 1 76 0; -#X connect 80 0 16 1; -#X connect 80 0 17 1; -#X connect 80 0 18 1; -#X restore 159 231 pd positions; -#X msg 200 276 0.5; -#X obj 145 182 r bladeLen; -#X obj 118 318 freqCalcCyl3No_D3Mach; -#X obj 228 40 loadbang; -#N canvas 649 57 311 384 lengthCalc 0; -#X obj 151 48 inlet; -#X obj 151 74 unpack; -#X obj 151 189 r start_armLength; -#X obj 74 140 r bladeLen; -#X obj 151 97 - 1; -#X obj 184 98 - 1; -#X obj 151 121 /; -#X obj 136 169 *; -#X obj 136 209 +; -#X obj 136 235 outlet; -#X obj 151 144 t f b; -#X connect 0 0 1 0; -#X connect 1 0 4 0; -#X connect 1 1 5 0; -#X connect 2 0 8 1; +#X connect 11 0 5 0; +#X connect 12 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 2 3; +#X connect 15 0 2 4; +#X connect 16 0 2 5; +#X connect 17 0 7 0; +#X connect 17 0 8 0; +#X restore 1067 121 pd one_Source; +#X connect 1 0 0 0; +#X connect 1 0 2 2; +#X connect 1 0 9 2; +#X connect 1 0 8 2; +#X connect 1 0 7 2; +#X connect 1 0 6 2; +#X connect 1 0 5 2; +#X connect 1 0 15 2; +#X connect 1 0 14 2; +#X connect 1 0 13 2; +#X connect 1 0 12 2; +#X connect 1 0 11 2; +#X connect 1 0 10 2; +#X connect 3 0 2 0; +#X connect 3 0 9 0; +#X connect 3 0 8 0; #X connect 3 0 7 0; -#X connect 4 0 6 0; -#X connect 5 0 6 1; -#X connect 6 0 10 0; -#X connect 7 0 8 0; -#X connect 8 0 9 0; -#X connect 10 0 7 1; -#X connect 10 1 7 0; -#X restore 228 86 pd lengthCalc; -#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 6 0; +#X connect 3 0 5 0; +#X connect 3 0 15 0; +#X connect 3 0 14 0; +#X connect 3 0 13 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 157 pd myThinkness; -#X obj 180 40 r setUp; -#X obj 199 114 inlet; -#N canvas 186 23 742 749 sourceSpeed 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 obj -79 492 outlet~; -#X obj -357 40 inlet; -#X obj -342 144 inlet; -#X text -312 424 \$1 = source speed; -#X text -312 440 \$2 = time to reach source speed; -#X obj -224 344 r preswingTime; -#X obj -220 249 r preswingTime; -#X obj -235 292 /; -#X obj -220 270 * 0.001; -#X obj -235 319 * 2; -#X text -192 299 Average Speed; -#X text -195 323 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 459 vline~; -#X obj -327 81 r bladeLen; -#X obj -342 61 r start_armLength; -#X obj -342 102 +; -#X obj -357 124 /; -#X obj -357 168 *; -#X obj -205 67 r postsweepAzim; -#X obj -190 89 r presweepAzim; -#X obj -190 110 t f b; -#X obj -220 183 /; -#X obj -205 160 t f b; -#X obj -235 227 *; -#X obj -220 204 t f b; -#X obj -205 139 -; -#X obj -241 159 -; -#X msg -241 137 180; -#X connect 1 0 30 0; -#X connect 2 0 1 0; -#X connect 3 0 30 0; -#X connect 4 0 2 0; -#X connect 5 0 4 0; -#X connect 6 0 30 0; -#X connect 7 0 8 1; -#X connect 7 1 8 0; -#X connect 8 0 29 0; -#X connect 9 0 3 0; -#X connect 12 0 28 1; -#X connect 15 0 34 0; -#X connect 16 0 35 1; -#X connect 19 0 2 1; -#X connect 20 0 22 0; -#X connect 21 0 23 0; -#X connect 22 0 21 1; -#X connect 23 0 4 1; -#X connect 26 0 29 1; -#X connect 27 0 28 0; -#X connect 28 0 7 0; -#X connect 29 0 6 0; -#X connect 30 0 14 0; -#X connect 31 0 33 1; -#X connect 32 0 33 0; -#X connect 33 0 34 1; -#X connect 34 0 35 0; -#X connect 35 0 41 0; -#X connect 36 0 43 0; -#X connect 37 0 38 0; -#X connect 38 0 43 1; -#X connect 38 0 44 1; -#X connect 38 1 43 0; -#X connect 38 1 45 0; -#X connect 39 0 42 0; -#X connect 40 0 39 1; -#X connect 40 1 39 0; -#X connect 41 0 21 0; -#X connect 42 0 41 1; -#X connect 42 1 41 0; -#X connect 43 0 40 0; -#X connect 44 0 39 0; -#X connect 45 0 44 0; -#X restore 118 135 pd sourceSpeed; -#X msg 228 63 1 12; -#X connect 0 0 3 0; -#X connect 0 1 3 1; -#X connect 1 0 6 9; -#X connect 1 0 6 8; -#X connect 1 0 6 7; -#X connect 2 0 1 0; -#X connect 2 0 4 0; -#X connect 3 0 6 3; -#X connect 3 1 6 4; -#X connect 3 2 6 5; -#X connect 4 0 6 6; -#X connect 5 0 6 2; -#X connect 7 0 13 0; -#X connect 8 0 3 2; -#X connect 8 0 12 0; -#X connect 9 0 6 1; -#X connect 10 0 13 0; -#X connect 11 0 12 1; -#X connect 12 0 6 0; -#X connect 13 0 8 0; -#X connect 13 0 9 0; -#X restore 258 173 pd one_Source; -#X connect 1 0 0 0; -#X connect 1 0 2 0; -#X connect 1 0 3 0; -#X connect 1 0 4 0; -#X connect 1 0 5 0; -#X connect 1 0 6 0; -#X connect 1 0 12 0; -#X connect 1 0 7 0; -#X connect 1 0 8 0; -#X connect 1 0 9 0; -#X connect 1 0 10 0; -#X connect 1 0 11 0; -#X connect 1 0 13 0; +#X connect 3 0 11 0; +#X connect 3 0 10 0; +#X connect 3 1 2 1; +#X connect 3 1 9 1; +#X connect 3 1 8 1; +#X connect 3 1 7 1; +#X connect 3 1 6 1; +#X connect 3 1 5 1; +#X connect 3 1 15 1; +#X connect 3 1 14 1; +#X connect 3 1 13 1; +#X connect 3 1 12 1; +#X connect 3 1 11 1; +#X connect 3 1 10 1; +#X connect 4 0 2 3; +#X connect 4 0 9 3; +#X connect 4 0 8 3; +#X connect 4 0 7 3; +#X connect 4 0 6 3; +#X connect 4 0 5 3; +#X connect 4 0 15 3; +#X connect 4 0 14 3; +#X connect 4 0 13 3; +#X connect 4 0 12 3; +#X connect 4 0 11 3; +#X connect 4 0 10 3; +#X connect 4 1 2 4; +#X connect 4 1 9 4; +#X connect 4 1 8 4; +#X connect 4 1 7 4; +#X connect 4 1 6 4; +#X connect 4 1 5 4; +#X connect 4 1 15 4; +#X connect 4 1 14 4; +#X connect 4 1 13 4; +#X connect 4 1 12 4; +#X connect 4 1 11 4; +#X connect 4 1 10 4; +#X connect 4 2 2 5; +#X connect 4 2 9 5; +#X connect 4 2 8 5; +#X connect 4 2 7 5; +#X connect 4 2 6 5; +#X connect 4 2 5 5; +#X connect 4 2 15 5; +#X connect 4 2 14 5; +#X connect 4 2 13 5; +#X connect 4 2 12 5; +#X connect 4 2 11 5; +#X connect 4 2 10 5; #X restore 219 144 pd sources; #X floatatom 227 52 5 0 0 0 - - -; -#X msg -57 28 0.5; -#X msg -259 37 12; +#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 1; +#X msg 31 46 2 0 1 1 45 0.005 0.0045 130 210 60 60 50 bang; +#X obj 31 19 inlet; +#X obj 345 14 inlet; +#X msg 666 40 2 0 1 1 45 0.005 0.0045 130 210 60 60 50 bang; +#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 83 341 2 0 1 1 45 0.005 0.0045 135 225 120 120 50 bang; +#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 msg 78 210 2 0 1 1 45 0.005 0.0045 130 210 60 120 50 bang; +#X msg 345 44 1 2 1 0.6 60 0.012 0.008 90 270 45 90 50 bang; +#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 msg 512 281 1 2 1 0.6 50 0.012 0.008 45 290 30 85 50 bang; +#X obj 476 217 delay 330; +#X connect 0 0 21 0; +#X connect 1 0 0 0; +#X connect 1 0 5 0; +#X connect 1 0 16 0; +#X connect 2 0 23 0; +#X connect 2 0 5 0; +#X connect 2 0 28 0; +#X connect 4 0 3 0; +#X connect 4 0 5 0; +#X connect 5 0 9 0; +#X connect 5 0 30 0; +#X connect 5 1 8 0; +#X connect 5 1 31 0; +#X connect 5 2 8 0; +#X connect 5 2 30 0; +#X connect 6 0 17 0; +#X connect 7 0 22 0; +#X connect 7 0 19 0; +#X connect 8 0 7 1; +#X connect 8 0 12 1; +#X connect 9 0 7 1; +#X connect 9 0 12 1; +#X connect 11 0 10 0; +#X connect 11 0 18 0; +#X connect 12 0 15 0; +#X connect 12 0 20 0; +#X connect 14 0 13 0; +#X connect 15 0 21 0; +#X connect 16 0 11 1; +#X connect 16 0 14 1; +#X connect 17 0 7 0; +#X connect 18 0 12 0; +#X connect 19 0 11 0; +#X connect 20 0 14 0; +#X connect 22 0 21 0; +#X connect 23 0 21 0; +#X connect 24 0 33 0; +#X connect 25 0 29 0; +#X connect 25 0 32 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 27 0; +#X connect 30 0 25 1; +#X connect 31 0 25 1; +#X connect 32 0 21 0; +#X connect 33 0 25 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 connect 0 0 1 0; -#X connect 1 0 112 0; -#X connect 5 0 4 0; -#X connect 5 0 6 0; -#X connect 11 0 12 0; -#X connect 11 0 57 0; -#X connect 13 0 15 0; -#X connect 13 0 110 0; -#X connect 14 0 16 0; -#X connect 14 0 17 0; +#X connect 1 0 99 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 98 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 22 0 23 0; -#X connect 23 0 20 0; -#X connect 24 0 23 1; -#X connect 24 0 123 0; -#X connect 25 0 26 0; -#X connect 27 0 5 0; -#X connect 28 0 11 0; -#X connect 29 0 13 0; -#X connect 30 0 14 0; -#X connect 31 0 124 0; -#X connect 32 0 60 0; -#X connect 33 0 125 0; -#X connect 34 0 5 0; -#X connect 35 0 13 0; -#X connect 36 0 14 0; -#X connect 37 0 125 0; -#X connect 38 0 60 0; -#X connect 39 0 124 0; -#X connect 40 0 41 0; -#X connect 41 0 25 0; +#X connect 21 0 18 0; +#X connect 22 0 21 1; +#X connect 22 0 110 0; +#X connect 23 0 122 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 58 0; +#X connect 42 0 46 0; #X connect 44 0 42 0; -#X connect 45 0 46 0; -#X connect 45 0 51 0; -#X connect 47 0 45 0; -#X connect 48 0 49 0; -#X connect 48 0 52 0; -#X connect 50 0 48 0; -#X connect 60 0 59 0; -#X connect 61 0 64 0; -#X connect 61 0 67 0; -#X connect 62 0 65 0; -#X connect 62 0 68 0; -#X connect 63 0 66 0; -#X connect 63 0 69 0; -#X connect 70 0 61 0; -#X connect 71 0 63 0; -#X connect 72 0 62 0; -#X connect 73 0 61 0; -#X connect 74 0 62 0; -#X connect 75 0 63 0; -#X connect 76 0 62 0; -#X connect 77 0 11 0; -#X connect 78 0 63 0; -#X connect 79 0 61 0; -#X connect 80 0 45 0; -#X connect 81 0 62 0; -#X connect 82 0 62 0; -#X connect 83 0 5 0; -#X connect 84 0 61 0; -#X connect 85 0 13 0; -#X connect 86 0 14 0; -#X connect 87 0 5 0; -#X connect 88 0 61 0; -#X connect 89 0 62 0; -#X connect 90 0 63 0; -#X connect 91 0 11 0; -#X connect 93 0 45 0; -#X connect 94 0 48 0; -#X connect 95 0 11 0; -#X connect 96 0 48 0; -#X connect 100 0 102 0; -#X connect 101 0 97 0; -#X connect 101 1 98 0; -#X connect 102 0 103 0; -#X connect 103 0 101 0; -#X connect 103 0 109 0; -#X connect 104 0 101 1; -#X connect 105 0 108 0; -#X connect 107 0 103 0; -#X connect 108 0 104 0; -#X connect 112 0 2 0; -#X connect 113 0 11 0; -#X connect 114 0 11 0; -#X connect 115 0 48 0; -#X connect 116 0 45 0; -#X connect 117 0 42 0; -#X connect 118 0 45 0; -#X connect 118 0 48 0; -#X connect 119 0 11 0; -#X connect 120 0 62 0; -#X connect 121 0 63 0; -#X connect 124 0 111 0; -#X connect 125 0 3 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 11 0; +#X connect 79 0 12 0; +#X connect 80 0 4 0; +#X connect 81 0 55 0; +#X connect 82 0 56 0; +#X connect 83 0 57 0; +#X connect 84 0 9 0; +#X connect 85 0 36 0; +#X connect 86 0 39 0; +#X connect 87 0 42 0; +#X connect 88 0 9 0; +#X connect 92 0 94 0; +#X connect 93 0 89 0; +#X connect 93 1 90 0; +#X connect 94 0 95 0; +#X connect 95 0 93 0; +#X connect 95 0 97 0; +#X connect 96 0 95 0; +#X connect 99 0 2 0; +#X connect 100 0 9 0; +#X connect 101 0 9 0; +#X connect 102 0 42 0; +#X connect 103 0 39 0; +#X connect 104 0 36 0; +#X connect 105 0 39 0; +#X connect 105 0 42 0; +#X connect 106 0 9 0; +#X connect 107 0 56 0; +#X connect 108 0 57 0; +#X connect 111 0 112 0; +#X connect 111 0 115 0; +#X connect 113 0 111 0; +#X connect 114 0 111 0; +#X connect 119 0 111 0; +#X connect 120 0 111 0; +#X connect 121 0 111 0; +#X connect 122 0 24 0; +#X connect 123 0 39 0; +#X connect 124 0 42 0; +#X connect 137 0 23 0; +#X connect 138 0 129 0; +#X connect 138 1 135 0; +#X connect 138 2 134 0; +#X connect 138 3 133 0; +#X connect 138 4 132 0; +#X connect 138 5 131 0; +#X connect 138 6 130 0; +#X connect 138 7 128 0; +#X connect 138 8 127 0; +#X connect 138 9 126 0; +#X connect 138 10 125 0; +#X connect 138 11 136 0; +#X connect 138 12 139 0; +#X connect 140 0 138 0; +#X connect 141 0 140 0; +#X connect 141 0 144 0; +#X connect 142 0 140 1; +#X connect 142 0 144 0; +#X connect 143 0 140 2; +#X connect 143 0 144 0;