annotate SwordLofIWii/sourceSpeed.pd @ 261:eb3fb10f2541

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