annotate SwordSounds2/sweepTime.pd @ 223:3829344821ce

Test Aeolian harp added. 6 strings with various diameters, tensions, mass and lengths.
More physics to be added but not too bad a starting place.
Sigmoids added for the lock in region. No hysteresis yet.
No dampening factor for higher harmonics yet.
Could do with an indicator on harpD1 that shows the natural freq, strouhal freq, harmonic number and if on / off.

#N canvas 64 60 1299 777 10;
#X obj 658 -89 r presweepElev;
#X obj 751 -90 r postsweepElev;
#X obj 199 19 r presweepAzim;
#X floatatom 158 51 5 0 0 0 - - -;
#X floatatom 658 -65 5 0 0 0 - - -;
#X floatatom 751 -67 5 0 0 0 - - -;
#X obj 198 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 198 -57 s GO;
#X obj 138 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj 138 -57 s setUp;
#X obj 852 -90 r start_armLength;
#X floatatom 852 -69 5 0 0 0 - - -;
#X obj 968 -90 r bladeLen;
#X floatatom 968 -67 5 0 0 0 - - -;
#X obj 214 86 r start_armLength;
#X obj 229 107 r bladeLen;
#X obj 214 131 +;
#X floatatom 232 151 5 0 0 0 - - -;
#X text 328 -89 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X obj 199 64 * 6.28312;
#X obj 199 42 / 360;
#X floatatom 156 97 5 0 0 0 - - -;
#X obj 199 164 *;
#X floatatom 152 198 5 0 0 0 - - -;
#X obj 214 185 r topSpeed;
#X obj 214 210 / 2;
#X obj 199 293 /;
#X obj 199 317 * 1000;
#X floatatom 246 346 5 0 0 0 - - -;
#X floatatom 542 40 5 0 0 0 - - -;
#X obj 598 75 r start_armLength;
#X obj 613 96 r bladeLen;
#X obj 598 120 +;
#X floatatom 616 140 5 0 0 0 - - -;
#X obj 583 53 * 6.28312;
#X obj 583 31 / 360;
#X floatatom 540 86 5 0 0 0 - - -;
#X obj 583 153 *;
#X floatatom 536 187 5 0 0 0 - - -;
#X obj 598 174 r topSpeed;
#X obj 598 199 / 2;
#X obj 583 275 /;
#X obj 583 299 * 1000;
#X obj 583 -17 r postsweepAzim;
#X text 683 304 Time from 0 azimuth to;
#X text 686 319 stationary at post sweep;
#X text 637 199 Assuming constant acceleration;
#X floatatom 635 326 5 0 0 0 - - -;
#X obj 199 379 s preswingTime;
#X obj 583 358 s postswingTime;
#X text 249 211 Assuming constant acceleration;
#X text 25 240 Time from pre-sweep azimuth;
#X text 26 253 to centre at top speed;
#X text 8 186 Pre sweep Circumference;
#X text 396 167 Post sweep Circumference;
#X text 315 380 Acceleration time;
#X text 692 359 Decceleration time;
#X text 246 130 Full radius;
#X text 648 119 Full radius;
#X obj 1037 70 r preswingTime;
#X obj 1022 152 +;
#X obj 1009 253 delay;
#X obj 1007 200 t f b;
#X obj 1007 27 r GO;
#X obj 1007 175 f;
#X obj 1036 230 + 5;
#X obj 1022 48 r postswingTime;
#X obj 1009 276 s myEnd;
#X obj 1037 122 t f b;
#X floatatom 955 252 5 0 0 0 - - -;
#X obj 582 10 * -1;
#X obj 214 233 t f b;
#X obj 241 257 delay 9;
#X obj 598 222 t f b;
#X obj 625 246 delay 9;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 2 0 20 0;
#X connect 6 0 7 0;
#X connect 8 0 9 0;
#X connect 10 0 11 0;
#X connect 12 0 13 0;
#X connect 14 0 16 0;
#X connect 15 0 16 1;
#X connect 16 0 17 0;
#X connect 16 0 22 1;
#X connect 19 0 21 0;
#X connect 19 0 22 0;
#X connect 20 0 19 0;
#X connect 22 0 23 0;
#X connect 22 0 26 0;
#X connect 24 0 25 0;
#X connect 25 0 71 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 27 0 48 0;
#X connect 30 0 32 0;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 32 0 37 1;
#X connect 34 0 36 0;
#X connect 34 0 37 0;
#X connect 35 0 34 0;
#X connect 37 0 38 0;
#X connect 37 0 41 0;
#X connect 39 0 40 0;
#X connect 40 0 73 0;
#X connect 41 0 42 0;
#X connect 42 0 47 0;
#X connect 42 0 49 0;
#X connect 43 0 29 0;
#X connect 43 0 70 0;
#X connect 59 0 68 0;
#X connect 60 0 64 1;
#X connect 61 0 67 0;
#X connect 62 0 65 0;
#X connect 62 1 61 0;
#X connect 63 0 64 0;
#X connect 64 0 62 0;
#X connect 65 0 61 1;
#X connect 65 0 69 0;
#X connect 66 0 60 0;
#X connect 68 0 60 1;
#X connect 68 1 60 0;
#X connect 70 0 35 0;
#X connect 71 0 26 1;
#X connect 71 1 72 0;
#X connect 72 0 26 0;
#X connect 73 0 41 1;
#X connect 73 1 74 0;
#X connect 74 0 41 0;