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