Mercurial > hg > weather-synthesis-prototyping

annotate SwordCorInterpWii/sourceSpeed.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 479310b9582f
children
rev   line source
r@204 1 #N canvas 584 109 1231 826 10;
r@204 2 #X obj -219 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034
r@204 3 -1 -1;
r@204 4 #X obj -219 -68 s GO;
r@204 5 #X obj -279 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
r@204 6 -1 -1;
r@204 7 #X obj -279 -68 s setUp;
r@204 8 #X text -89 -100 Start calculation with elevation = 0 \, arm length
r@204 9 is constant \, acceleration/deceleration is constant.;
r@204 10 #X obj -202 498 loadbang;
r@204 11 #X obj -202 519 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@204 12 1 1;
r@204 13 #X obj -202 537 metro 10;
r@204 14 #X obj -202 559 snapshot~;
r@204 15 #X floatatom -202 579 5 0 0 0 - - -;
r@204 16 #X obj -121 595 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144
r@204 17 -1 -1 0 1;
r@204 18 #X msg -259 383 \$1 \$2;
r@204 19 #X obj -259 358 pack;
r@204 20 #X msg -89 415 0;
r@204 21 #X obj -260 335 f;
r@204 22 #X obj -281 291 r GO;
r@204 23 #X msg 50 417 0 \$1;
r@204 24 #X obj 49 340 t f b;
r@204 25 #X obj 50 368 delay;
r@204 26 #X obj -89 394 r setUp;
r@204 27 #X text -106 375 Start at 0 speed;
r@204 28 #X text 92 428 \$1 = time to reach speed of 0;
r@204 29 #X obj 64 293 r preswingTime;
r@204 30 #X text 2 253 Trigger once full speed;
r@204 31 #X obj -89 482 outlet~;
r@204 32 #X obj 367 -102 inlet;
r@204 33 #X obj 266 -101 inlet;
r@204 34 #X text -322 414 \$1 = source speed;
r@204 35 #X text -322 430 \$2 = time to reach source speed;
r@204 36 #X obj -234 334 r preswingTime;
r@204 37 #X obj -215 156 r preswingTime;
r@204 38 #X obj -230 199 /;
r@204 39 #X obj -215 177 * 0.001;
r@204 40 #X obj -230 226 * 2;
r@204 41 #X text -187 206 Average Speed;
r@204 42 #X text -190 230 Top Speed for this source;
r@204 43 #X floatatom -283 252 5 0 0 0 - - -;
r@204 44 #X obj 107 357 r postswingTime;
r@204 45 #X floatatom 139 380 5 0 0 0 - - -;
r@204 46 #X obj 49 273 r GO;
r@204 47 #X obj 49 315 f;
r@204 48 #X obj 50 395 f;
r@204 49 #X obj 272 482 vline~;
r@204 50 #X obj -89 449 vline~;
r@204 51 #X obj 266 -77 s \$0-fullArc;
r@204 52 #X obj 367 -79 s \$0-thislength;
r@204 53 #X obj 513 483 r \$0-thislength;
r@204 54 #X obj 474 22 * 0.01745;
r@204 55 #X floatatom 538 20 0 0 0 0 - - -;
r@204 56 #X obj 489 93 * 0.01745;
r@204 57 #X floatatom 552 93 0 0 0 0 - - -;
r@204 58 #X obj 474 45 cos;
r@204 59 #X obj 489 114 cos;
r@204 60 #X obj 474 164 *;
r@204 61 #X obj 489 138 t f b;
r@204 62 #X obj 489 213 * 0.01745;
r@204 63 #X obj 489 188 r presweepElev;
r@204 64 #X floatatom 552 213 0 0 0 0 - - -;
r@204 65 #X obj 584 186 * 0.01745;
r@204 66 #X obj 584 161 r postsweepElev;
r@204 67 #X floatatom 648 184 0 0 0 0 - - -;
r@204 68 #X obj 584 207 sin;
r@204 69 #X obj 584 229 t f b;
r@204 70 #X obj 489 237 sin;
r@204 71 #X obj 489 261 *;
r@204 72 #X obj 504 311 * 0.01745;
r@204 73 #X obj 620 296 * 0.01745;
r@204 74 #X floatatom 684 294 0 0 0 0 - - -;
r@204 75 #X floatatom 569 311 0 0 0 0 - - -;
r@204 76 #X obj 504 342 -;
r@204 77 #X obj 504 367 cos;
r@204 78 #X obj 504 387 t f b;
r@204 79 #X obj 489 412 *;
r@204 80 #X obj 620 319 t f b;
r@204 81 #X obj 474 461 +;
r@204 82 #X obj 489 436 t f b;
r@204 83 #X obj 474 484 acos;
r@204 84 #X obj 474 507 *;
r@204 85 #X obj 474 -3 r presweepElev;
r@204 86 #X obj 489 68 r postsweepElev;
r@204 87 #X obj 338 245 -;
r@204 88 #X obj 338 290 select 1;
r@204 89 #X msg 338 314 4.24115;
r@204 90 #X obj 459 555 +;
r@204 91 #X obj 474 530 t f b;
r@204 92 #X obj 397 290 select 0;
r@204 93 #X msg 397 314 0;
r@204 94 #X obj 378 376 -;
r@204 95 #X obj 378 399 * 2;
r@204 96 #X floatatom 285 295 5 0 0 0 - - -;
r@204 97 #X obj 338 172 r postsweepAzim;
r@204 98 #X obj 353 194 r presweepAzim;
r@204 99 #X obj 353 216 t f b;
r@204 100 #X floatatom 458 585 0 0 0 0 - - -;
r@204 101 #X floatatom 533 539 0 0 0 0 - - -;
r@204 102 #X obj 303 581 spigot;
r@204 103 #X obj 393 350 t f b b;
r@204 104 #X floatatom 435 636 0 0 0 0 - - -;
r@204 105 #X obj 336 537 * -1;
r@204 106 #X obj 336 558 + 1;
r@204 107 #X obj 362 583 spigot;
r@204 108 #X obj 504 286 r postsweepAzim;
r@204 109 #X obj 620 271 r presweepAzim;
r@204 110 #X obj 338 268 >= 180;
r@204 111 #X obj 387 612 abs;
r@204 112 #X obj 387 638 outlet;
r@204 113 #X floatatom -84 186 0 0 0 0 - - -;
r@204 114 #X connect 0 0 1 0;
r@204 115 #X connect 2 0 3 0;
r@204 116 #X connect 5 0 6 0;
r@204 117 #X connect 6 0 7 0;
r@204 118 #X connect 7 0 8 0;
r@204 119 #X connect 8 0 9 0;
r@204 120 #X connect 8 0 10 0;
r@204 121 #X connect 11 0 43 0;
r@204 122 #X connect 12 0 11 0;
r@204 123 #X connect 13 0 43 0;
r@204 124 #X connect 14 0 12 0;
r@204 125 #X connect 15 0 14 0;
r@204 126 #X connect 16 0 43 0;
r@204 127 #X connect 17 0 18 1;
r@204 128 #X connect 17 1 18 0;
r@204 129 #X connect 18 0 41 0;
r@204 130 #X connect 19 0 13 0;
r@204 131 #X connect 22 0 40 1;
r@204 132 #X connect 25 0 45 0;
r@204 133 #X connect 26 0 44 0;
r@204 134 #X connect 29 0 12 1;
r@204 135 #X connect 30 0 32 0;
r@204 136 #X connect 31 0 33 0;
r@204 137 #X connect 32 0 31 1;
r@204 138 #X connect 32 0 106 0;
r@204 139 #X connect 33 0 36 0;
r@204 140 #X connect 33 0 14 1;
r@204 141 #X connect 37 0 38 0;
r@204 142 #X connect 37 0 41 1;
r@204 143 #X connect 39 0 40 0;
r@204 144 #X connect 40 0 17 0;
r@204 145 #X connect 41 0 16 0;
r@204 146 #X connect 43 0 8 0;
r@204 147 #X connect 43 0 24 0;
r@204 148 #X connect 46 0 77 1;
r@204 149 #X connect 47 0 51 0;
r@204 150 #X connect 49 0 52 0;
r@204 151 #X connect 51 0 53 0;
r@204 152 #X connect 52 0 54 0;
r@204 153 #X connect 53 0 74 0;
r@204 154 #X connect 54 0 53 1;
r@204 155 #X connect 54 1 53 0;
r@204 156 #X connect 55 0 63 0;
r@204 157 #X connect 56 0 57 0;
r@204 158 #X connect 56 0 55 0;
r@204 159 #X connect 58 0 61 0;
r@204 160 #X connect 59 0 60 0;
r@204 161 #X connect 59 0 58 0;
r@204 162 #X connect 61 0 62 0;
r@204 163 #X connect 62 0 64 1;
r@204 164 #X connect 62 1 64 0;
r@204 165 #X connect 63 0 64 0;
r@204 166 #X connect 64 0 72 0;
r@204 167 #X connect 65 0 69 0;
r@204 168 #X connect 66 0 73 0;
r@204 169 #X connect 69 0 70 0;
r@204 170 #X connect 70 0 71 0;
r@204 171 #X connect 71 0 72 1;
r@204 172 #X connect 71 1 72 0;
r@204 173 #X connect 72 0 75 0;
r@204 174 #X connect 73 0 69 1;
r@204 175 #X connect 73 1 69 0;
r@204 176 #X connect 74 0 76 0;
r@204 177 #X connect 75 0 74 1;
r@204 178 #X connect 75 1 74 0;
r@204 179 #X connect 76 0 77 0;
r@204 180 #X connect 77 0 84 0;
r@204 181 #X connect 77 0 94 0;
r@204 182 #X connect 77 0 95 0;
r@204 183 #X connect 78 0 48 0;
r@204 184 #X connect 78 0 47 0;
r@204 185 #X connect 79 0 50 0;
r@204 186 #X connect 79 0 49 0;
r@204 187 #X connect 80 0 103 0;
r@204 188 #X connect 81 0 82 0;
r@204 189 #X connect 82 0 87 0;
r@204 190 #X connect 83 0 93 0;
r@204 191 #X connect 83 0 100 0;
r@204 192 #X connect 84 0 83 1;
r@204 193 #X connect 84 0 96 0;
r@204 194 #X connect 84 1 83 0;
r@204 195 #X connect 85 0 86 0;
r@204 196 #X connect 86 0 87 0;
r@204 197 #X connect 87 0 88 0;
r@204 198 #X connect 88 0 83 0;
r@204 199 #X connect 90 0 80 0;
r@204 200 #X connect 91 0 92 0;
r@204 201 #X connect 92 0 80 1;
r@204 202 #X connect 92 1 80 0;
r@204 203 #X connect 95 0 104 0;
r@204 204 #X connect 96 0 87 1;
r@204 205 #X connect 96 2 87 0;
r@204 206 #X connect 98 0 99 0;
r@204 207 #X connect 99 0 95 1;
r@204 208 #X connect 100 0 104 0;
r@204 209 #X connect 101 0 65 0;
r@204 210 #X connect 101 0 68 0;
r@204 211 #X connect 102 0 67 0;
r@204 212 #X connect 102 0 66 0;
r@204 213 #X connect 103 0 81 0;
r@204 214 #X connect 103 0 85 0;
r@204 215 #X connect 103 0 89 0;
r@204 216 #X connect 103 0 98 0;
r@204 217 #X connect 103 0 100 1;
r@204 218 #X connect 104 0 97 0;
r@204 219 #X connect 104 0 105 0;