Mercurial > hg > weather-synthesis-prototyping

annotate SwordLogInterpWii/sweepTime.pd @ 223:3829344821ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 28 May 2016 08:11:09 +0100
parents 154a4980ed70
children
rev   line source
r@195 1 #N canvas 85 142 1299 777 10;
r@195 2 #X obj 658 -89 r presweepElev;
r@195 3 #X obj 751 -90 r postsweepElev;
r@195 4 #X floatatom 658 -65 5 0 0 0 - - -;
r@195 5 #X floatatom 751 -67 5 0 0 0 - - -;
r@195 6 #X obj 198 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
r@195 7 -1;
r@195 8 #X obj 198 -57 s GO;
r@195 9 #X obj 138 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
r@195 10 -1 -1;
r@195 11 #X obj 138 -57 s setUp;
r@195 12 #X obj 852 -90 r start_armLength;
r@195 13 #X floatatom 852 -69 5 0 0 0 - - -;
r@195 14 #X obj 968 -90 r bladeLen;
r@195 15 #X floatatom 968 -67 5 0 0 0 - - -;
r@195 16 #X text 328 -89 Start calculation with elevation = 0 \, arm length
r@195 17 is constant \, acceleration/deceleration is constant.;
r@195 18 #X obj 214 185 r topSpeed;
r@195 19 #X obj 214 210 / 2;
r@195 20 #X obj 199 293 /;
r@195 21 #X obj 199 317 * 1000;
r@195 22 #X floatatom 246 346 5 0 0 0 - - -;
r@195 23 #X obj 598 174 r topSpeed;
r@195 24 #X obj 598 199 / 2;
r@195 25 #X obj 583 275 /;
r@195 26 #X obj 583 299 * 1000;
r@195 27 #X text 683 304 Time from 0 azimuth to;
r@195 28 #X text 686 319 stationary at post sweep;
r@195 29 #X text 637 199 Assuming constant acceleration;
r@195 30 #X floatatom 635 326 5 0 0 0 - - -;
r@195 31 #X obj 199 379 s preswingTime;
r@195 32 #X obj 583 358 s postswingTime;
r@195 33 #X text 249 211 Assuming constant acceleration;
r@195 34 #X text 25 240 Time from pre-sweep azimuth;
r@195 35 #X text 26 253 to centre at top speed;
r@195 36 #X obj 1037 70 r preswingTime;
r@195 37 #X obj 1022 152 +;
r@195 38 #X obj 1009 253 delay;
r@195 39 #X obj 1007 200 t f b;
r@195 40 #X obj 1007 27 r GO;
r@195 41 #X obj 1007 175 f;
r@195 42 #X obj 1036 230 + 5;
r@195 43 #X obj 1022 48 r postswingTime;
r@195 44 #X obj 1009 276 s myEnd;
r@195 45 #X obj 1037 122 t f b;
r@195 46 #X floatatom 955 252 5 0 0 0 - - -;
r@195 47 #X obj 214 233 t f b;
r@195 48 #X obj 598 222 t f b;
r@195 49 #X text 315 380 Acceleration time ms;
r@195 50 #X text 692 359 Decceleration time ms;
r@195 51 #X text 944 302 Send a bang o signify the swing is over;
r@195 52 #X obj 219 -34 r presweepAzim;
r@195 53 #X obj 199 129 /;
r@195 54 #X obj 313 25 inlet;
r@195 55 #X obj 199 158 *;
r@195 56 #X obj 384 83 +;
r@195 57 #X obj 583 119 /;
r@195 58 #X obj 583 147 *;
r@195 59 #X obj 583 5 r postsweepAzim;
r@195 60 #X obj 376 156 +;
r@195 61 #X floatatom 375 181 5 0 0 0 - - -;
r@195 62 #X floatatom 158 181 5 0 0 0 - - -;
r@195 63 #X floatatom 542 182 5 0 0 0 - - -;
r@195 64 #X floatatom 542 149 5 0 0 0 - - -;
r@195 65 #X msg 204 18 180;
r@195 66 #X obj 204 45 -;
r@195 67 #X obj 219 -9 t f b;
r@195 68 #X obj 583 33 - 180;
r@195 69 #X floatatom 143 130 5 0 0 0 - - -;
r@195 70 #X floatatom 612 59 5 0 0 0 - - -;
r@195 71 #X obj 399 61 t f b;
r@195 72 #X floatatom 385 121 5 0 0 0 - - -;
r@195 73 #X floatatom 321 54 5 0 0 0 - - -;
r@195 74 #X text 324 7 Length of tip sweep;
r@195 75 #X connect 0 0 2 0;
r@195 76 #X connect 1 0 3 0;
r@195 77 #X connect 4 0 5 0;
r@195 78 #X connect 6 0 7 0;
r@195 79 #X connect 8 0 9 0;
r@195 80 #X connect 10 0 11 0;
r@195 81 #X connect 13 0 14 0;
r@195 82 #X connect 14 0 42 0;
r@195 83 #X connect 15 0 16 0;
r@195 84 #X connect 16 0 17 0;
r@195 85 #X connect 16 0 26 0;
r@195 86 #X connect 18 0 19 0;
r@195 87 #X connect 19 0 43 0;
r@195 88 #X connect 20 0 21 0;
r@195 89 #X connect 21 0 25 0;
r@195 90 #X connect 21 0 27 0;
r@195 91 #X connect 31 0 40 0;
r@195 92 #X connect 32 0 36 1;
r@195 93 #X connect 33 0 39 0;
r@195 94 #X connect 34 0 37 0;
r@195 95 #X connect 34 1 33 0;
r@195 96 #X connect 35 0 36 0;
r@195 97 #X connect 36 0 34 0;
r@195 98 #X connect 37 0 33 1;
r@195 99 #X connect 37 0 41 0;
r@195 100 #X connect 38 0 32 0;
r@195 101 #X connect 40 0 32 1;
r@195 102 #X connect 40 1 32 0;
r@195 103 #X connect 42 0 15 1;
r@195 104 #X connect 42 1 15 0;
r@195 105 #X connect 43 0 20 1;
r@195 106 #X connect 43 1 20 0;
r@195 107 #X connect 47 0 62 0;
r@195 108 #X connect 48 0 50 0;
r@195 109 #X connect 48 0 55 0;
r@195 110 #X connect 49 0 50 1;
r@195 111 #X connect 49 0 53 1;
r@195 112 #X connect 49 0 68 0;
r@195 113 #X connect 50 0 57 0;
r@195 114 #X connect 50 0 15 0;
r@195 115 #X connect 51 0 52 1;
r@195 116 #X connect 51 0 48 1;
r@195 117 #X connect 51 0 67 0;
r@195 118 #X connect 52 0 53 0;
r@195 119 #X connect 52 0 55 1;
r@195 120 #X connect 52 0 59 0;
r@195 121 #X connect 53 0 58 0;
r@195 122 #X connect 53 0 20 0;
r@195 123 #X connect 54 0 63 0;
r@195 124 #X connect 55 0 56 0;
r@195 125 #X connect 60 0 61 0;
r@195 126 #X connect 61 0 48 0;
r@195 127 #X connect 61 0 64 0;
r@195 128 #X connect 61 0 51 0;
r@195 129 #X connect 62 0 61 1;
r@195 130 #X connect 62 1 60 0;
r@195 131 #X connect 63 0 52 0;
r@195 132 #X connect 63 0 65 0;
r@195 133 #X connect 63 0 66 0;
r@195 134 #X connect 66 0 51 1;
r@195 135 #X connect 66 1 51 0;