annotate MechAeolian/MA_Test2.pd @ 222:12bb55b6cff0

String frequencies calculated for a number of different strings.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 23 May 2016 20:34:56 +0100
parents 2ae93fab838a
children 3829344821ce
rev   line source
r@222 1 #N canvas 230 47 1440 823 10;
r@218 2 #X obj 249 -64 loadbang;
r@222 3 #X obj -163 172 delwrite~ varwind 3000;
r@218 4 #X obj -54 -46 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144
r@222 5 -1 -1 169 1;
r@218 6 #X obj -163 -2 *~ 1;
r@218 7 #X obj -163 24 +~ 1;
r@218 8 #X obj 35 -90 loadbang;
r@218 9 #X obj 296 26 hsl 128 15 0.0001 0.3 1 0 empty empty empty -2 -8 0 10
r@222 10 -262144 -1 -1 1312 1;
r@218 11 #X floatatom 303 52 8 0 0 0 - - -;
r@218 12 #X obj 364 302 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10
r@218 13 -262144 -1 -1 6350 1;
r@218 14 #X floatatom 394 331 5 0 0 0 - - -;
r@218 15 #X obj 337 184 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@218 16 -1 -1 6350 1;
r@218 17 #X floatatom 365 213 5 0 0 0 - - -;
r@218 18 #X obj 350 239 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@218 19 -262144 -1 -1 9525 1;
r@218 20 #X floatatom 380 268 5 0 0 0 - - -;
r@218 21 #X obj 323 127 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
r@222 22 -1 -1 7759 1;
r@218 23 #X floatatom 339 156 5 0 0 0 - - -;
r@218 24 #X text 512 303 Pan Value;
r@222 25 #X obj -95 499 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@222 26 #X obj -32 499 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@222 27 #X text -35 408 Gain;
r@222 28 #X obj -87 379 loadbang;
r@218 29 #N canvas 555 179 313 396 opLevels 0;
r@218 30 #X obj 79 184 dac~;
r@218 31 #X obj 30 70 catch~ l;
r@218 32 #X obj 128 70 catch~ r;
r@218 33 #X obj 129 104 *~ 0.45;
r@218 34 #X obj 30 104 *~ 0.45;
r@218 35 #X obj 30 210 prvu~;
r@218 36 #X obj 129 211 prvu~;
r@218 37 #X obj 93 33 inlet;
r@218 38 #X obj 30 239 outlet;
r@218 39 #X obj 129 239 outlet;
r@218 40 #X connect 1 0 4 0;
r@218 41 #X connect 2 0 3 0;
r@218 42 #X connect 3 0 6 0;
r@218 43 #X connect 3 0 0 1;
r@218 44 #X connect 4 0 5 0;
r@218 45 #X connect 4 0 0 0;
r@218 46 #X connect 5 0 8 0;
r@218 47 #X connect 6 0 9 0;
r@218 48 #X connect 7 0 4 1;
r@218 49 #X connect 7 0 3 1;
r@222 50 #X restore -96 456 pd opLevels;
r@222 51 #X msg -87 402 5;
r@222 52 #X obj -93 427 hsl 100 25 0.1 1e+12 1 0 empty empty empty -2 -8 0 10
r@222 53 -262144 -1 -1 7615 1;
r@218 54 #N canvas 20 383 344 123 machCalc 0;
r@218 55 #X text 107 15 Speed of Sound (dry air 20 Degs C);
r@218 56 #X obj 26 -14 vd~ varwind;
r@218 57 #X obj 26 33 s~ MY_MACH;
r@218 58 #X obj 26 9 /~ 343.56;
r@218 59 #X connect 1 0 3 0;
r@218 60 #X connect 3 0 2 0;
r@218 61 #X restore 93 -33 pd machCalc;
r@218 62 #X obj 422 -121 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1
r@218 63 -1;
r@218 64 #X msg 178 167 0;
r@218 65 #X msg 135 285 0.5;
r@218 66 #X obj 249 -40 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@218 67 -1 -1;
r@218 68 #X obj 309 84 hsl 128 15 0.01 20 0 0 empty empty empty -2 -8 0 10 -262144
r@222 69 -1 -1 407 1;
r@218 70 #X floatatom 331 103 8 0 0 0 - - -;
r@218 71 #X text -8 353 No Of Sources;
r@218 72 #X obj 422 -63 s SET_UP;
r@218 73 #X obj 294 7 r SET_UP;
r@218 74 #X obj 364 62 r SET_UP;
r@218 75 #X obj 434 101 r SET_UP;
r@218 76 #X obj 422 153 r SET_UP;
r@218 77 #X obj 432 213 r SET_UP;
r@218 78 #X obj 438 271 r SET_UP;
r@222 79 #X obj 382 360 hsl 128 15 1 10000 1 0 empty empty empty -2 -8 0 10
r@222 80 -262144 -1 -1 12382 1;
r@218 81 #X floatatom 415 389 5 0 0 0 - - -;
r@218 82 #X obj 460 334 r SET_UP;
r@218 83 #X obj 391 420 hsl 128 15 0 1000 0 0 empty empty empty -2 -8 0 10 -262144
r@222 84 -1 -1 762 1;
r@218 85 #X floatatom 410 447 5 0 0 0 - - -;
r@218 86 #X obj 484 388 r SET_UP;
r@218 87 #X obj 405 472 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@218 88 -262144 -1 -1 6350 1;
r@218 89 #X floatatom 416 494 5 0 0 0 - - -;
r@218 90 #X obj 500 441 r SET_UP;
r@218 91 #X msg 74 450 0;
r@218 92 #X floatatom -16 -23 5 0 0 0 - - -;
r@218 93 #X msg 281 -21 0;
r@222 94 #X obj -262 364 s GAIN;
r@222 95 #X obj -96 356 r GAIN;
r@222 96 #X obj -336 529 s DIST;
r@218 97 #X obj 500 101 r DIST;
r@222 98 #X obj -355 571 s LEN;
r@218 99 #X obj 478 49 r LEN;
r@222 100 #X obj -373 610 s DIA;
r@218 101 #X obj 476 -4 r DIA;
r@222 102 #X obj -391 648 s SPEED;
r@218 103 #X obj -57 -70 r SPEED;
r@222 104 #X floatatom -153 457 8 0 0 0 - - -;
r@218 105 #X msg 207 206 90;
r@218 106 #X obj 496 209 r ELEV;
r@218 107 #N canvas 634 290 596 443 windDirection 0;
r@218 108 #X obj 183 0 inlet~;
r@218 109 #X obj 280 52 inlet;
r@218 110 #X obj 280 86 sig~;
r@218 111 #X obj 185 251 *~;
r@218 112 #X obj 185 279 outlet~;
r@218 113 #X obj 246 254 outlet~;
r@218 114 #X obj 200 195 cos~;
r@218 115 #X obj 200 135 +~;
r@218 116 #X obj 200 71 lop~ 1;
r@218 117 #X obj 246 194 *~ 360;
r@218 118 #X obj 200 91 lop~ 1;
r@218 119 #X obj 200 30 noise~;
r@218 120 #X obj 200 51 lop~ 1;
r@218 121 #X obj 200 157 /~ 360;
r@218 122 #X obj 200 113 *~ 800;
r@218 123 #X obj 200 221 abs~;
r@218 124 #X connect 0 0 3 0;
r@218 125 #X connect 1 0 2 0;
r@218 126 #X connect 2 0 7 1;
r@218 127 #X connect 3 0 4 0;
r@218 128 #X connect 6 0 15 0;
r@218 129 #X connect 7 0 13 0;
r@218 130 #X connect 8 0 10 0;
r@218 131 #X connect 9 0 5 0;
r@218 132 #X connect 10 0 14 0;
r@218 133 #X connect 11 0 12 0;
r@218 134 #X connect 12 0 8 0;
r@218 135 #X connect 13 0 6 0;
r@218 136 #X connect 13 0 9 0;
r@218 137 #X connect 14 0 7 0;
r@218 138 #X connect 15 0 3 1;
r@218 139 #X restore -129 88 pd windDirection;
r@218 140 #X obj -11 148 snapshot~;
r@218 141 #X floatatom -11 175 10 0 0 0 - - -;
r@218 142 #X text -14 193 Wind Speed;
r@218 143 #X obj -33 63 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262144
r@218 144 -1 -1 0 1;
r@218 145 #X msg 199 110 4;
r@218 146 #X obj 70 148 snapshot~;
r@218 147 #X floatatom 70 175 10 0 0 0 - - -;
r@218 148 #X text 67 193 Wind Direction;
r@218 149 #X obj -163 -32 WindGenD1;
r@218 150 #X msg -2 -69 20;
r@218 151 #X obj 618 -69 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@218 152 1;
r@218 153 #X obj 618 -94 loadbang;
r@218 154 #X obj 618 -23 s myMet;
r@218 155 #X obj 70 125 r myMet;
r@218 156 #X obj -11 125 r myMet;
r@218 157 #X msg 158 222 45;
r@222 158 #X obj -318 487 s ELEV;
r@218 159 #X obj -115 119 TUCalc2;
r@218 160 #X msg 216 250 18.435;
r@218 161 #X msg 348 -33 0.019;
r@218 162 #X msg 349 -52 0.0254;
r@218 163 #X msg 349 -72 0.0127;
r@218 164 #X obj -94 -23 * 0.5;
r@218 165 #X obj -57 -23 * 0.88;
r@222 166 #X obj -262 345 line \$1 50;
r@222 167 #X obj -318 465 line \$1 50;
r@222 168 #X obj -336 507 line \$1 50;
r@222 169 #X obj -355 550 line \$1 50;
r@222 170 #X obj -373 591 line \$1 50;
r@222 171 #X obj -391 629 line \$1 50;
r@218 172 #X msg 253 183 0;
r@218 173 #X obj -115 143 s blust;
r@218 174 #X floatatom -64 141 0 0 0 0 - - -;
r@218 175 #X msg 251 101 12;
r@218 176 #X obj -75 284 sig~;
r@222 177 #X obj 293 524 MechAeolianD1;
r@218 178 #X msg 113 343 7850;
r@218 179 #X text 434 29 Diameter (m);
r@218 180 #X text 441 68 Length (m);
r@218 181 #X text 461 128 Obs Distance (m);
r@218 182 #X text 476 184 Obs Azimuth (degs);
r@218 183 #X text 489 240 Obs Elevation (degs);
r@218 184 #X text 526 361 Mass Desnity (kg / m^3);
r@218 185 #X text 541 415 Tension (N);
r@218 186 #X obj 422 -84 uzi 20;
r@218 187 #X obj 618 -47 metro 10;
r@218 188 #X msg 411 -27 0.00038;
r@218 189 #X msg 416 52 0.6477;
r@218 190 #X msg 236 11 0.003;
r@218 191 #X msg 215 67 0.4;
r@218 192 #X msg 93 397 50;
r@222 193 #X floatatom 308 633 0 0 0 0 - - -;
r@222 194 #X floatatom 338 588 0 0 0 0 - - -;
r@222 195 #X floatatom 353 567 0 0 0 0 - - -;
r@222 196 #X floatatom 323 611 0 0 0 0 - - -;
r@218 197 #X msg 35 -70 7;
r@218 198 #X msg 348 -16 0.004;
r@222 199 #X obj -209 24 sig~;
r@222 200 #X msg -209 3 3.689;
r@222 201 #X obj 542 388 r TENS;
r@222 202 #X obj -391 324 unpack f f f f f f f f;
r@222 203 #X obj -299 425 line \$1 50;
r@222 204 #X obj -281 384 line \$1 50;
r@222 205 #X obj -281 403 s TENS;
r@222 206 #X obj -299 444 s MASS;
r@222 207 #X obj 542 327 r MASS;
r@222 208 #X msg -365 301 2 0.0002286 0.65 6 90 7940 59.98 1e+09;
r@222 209 #X msg -371 282 2 0.0002794 0.65 6 90 7820 49.5 1e+09;
r@222 210 #X msg -376 262 2 0.0004064 0.65 6 90 8050 67.91 1e+09;
r@222 211 #X msg -382 242 2 0.0006096 0.65 6 90 6650 70.79 1e+09;
r@222 212 #X msg -389 222 2 0.0008636 0.65 6 90 6900 82.83 1e+09;
r@222 213 #X msg -397 202 2 0.0010668 0.65 6 90 6640 68.23 1e+09;
r@222 214 #X msg -75 260 0.473;
r@222 215 #X obj -305 50 hsl 128 15 0.001 10 0 0 empty empty empty -2 -8 0 10
r@222 216 -262144 -1 -1 1900 1;
r@222 217 #X msg -308 85 \$1 10;
r@222 218 #X obj -308 106 line~;
r@222 219 #X floatatom -245 80 5 0 0 0 - - -;
r@222 220 #X msg -417 140 2 0.00334 1.83 6 90 2697 97.73 1e+09;
r@222 221 #X msg -403 161 2 0.0334 1.83 6 90 2697 100 1e+09;
r@222 222 #X floatatom 368 547 0 0 0 0 - - -;
r@218 223 #X connect 0 0 28 0;
r@218 224 #X connect 2 0 49 0;
r@222 225 #X connect 2 0 87 0;
r@222 226 #X connect 2 0 88 0;
r@218 227 #X connect 3 0 4 0;
r@222 228 #X connect 4 0 65 0;
r@222 229 #X connect 5 0 120 0;
r@218 230 #X connect 6 0 7 0;
r@222 231 #X connect 6 0 100 0;
r@218 232 #X connect 8 0 9 0;
r@222 233 #X connect 8 0 100 5;
r@218 234 #X connect 10 0 11 0;
r@222 235 #X connect 10 0 100 3;
r@218 236 #X connect 12 0 13 0;
r@222 237 #X connect 12 0 100 4;
r@218 238 #X connect 14 0 15 0;
r@222 239 #X connect 14 0 100 2;
r@218 240 #X connect 20 0 22 0;
r@218 241 #X connect 21 0 17 0;
r@218 242 #X connect 21 1 18 0;
r@218 243 #X connect 22 0 23 0;
r@218 244 #X connect 23 0 21 0;
r@222 245 #X connect 23 0 61 0;
r@222 246 #X connect 25 0 109 0;
r@218 247 #X connect 26 0 10 0;
r@218 248 #X connect 27 0 8 0;
r@218 249 #X connect 28 0 50 0;
r@222 250 #X connect 28 0 113 0;
r@222 251 #X connect 28 0 69 0;
r@218 252 #X connect 28 0 26 0;
r@222 253 #X connect 28 0 80 0;
r@218 254 #X connect 28 0 27 0;
r@222 255 #X connect 28 0 114 0;
r@222 256 #X connect 28 0 101 0;
r@222 257 #X connect 28 0 115 0;
r@218 258 #X connect 28 0 48 0;
r@218 259 #X connect 29 0 30 0;
r@222 260 #X connect 29 0 100 1;
r@218 261 #X connect 33 0 6 0;
r@218 262 #X connect 34 0 29 0;
r@218 263 #X connect 35 0 14 0;
r@218 264 #X connect 36 0 10 0;
r@218 265 #X connect 37 0 12 0;
r@218 266 #X connect 38 0 8 0;
r@218 267 #X connect 39 0 40 0;
r@222 268 #X connect 39 0 100 7;
r@218 269 #X connect 41 0 39 0;
r@218 270 #X connect 42 0 43 0;
r@222 271 #X connect 42 0 100 6;
r@218 272 #X connect 44 0 42 0;
r@218 273 #X connect 45 0 46 0;
r@218 274 #X connect 47 0 45 0;
r@218 275 #X connect 48 0 45 0;
r@222 276 #X connect 52 0 23 0;
r@222 277 #X connect 54 0 14 0;
r@222 278 #X connect 56 0 29 0;
r@222 279 #X connect 58 0 6 0;
r@222 280 #X connect 60 0 2 0;
r@222 281 #X connect 62 0 12 0;
r@218 282 #X connect 63 0 12 0;
r@222 283 #X connect 64 0 82 0;
r@222 284 #X connect 64 1 70 0;
r@222 285 #X connect 65 0 66 0;
r@222 286 #X connect 68 0 64 1;
r@222 287 #X connect 69 0 14 0;
r@222 288 #X connect 70 0 71 0;
r@222 289 #X connect 73 0 3 0;
r@222 290 #X connect 74 0 2 0;
r@222 291 #X connect 75 0 110 0;
r@222 292 #X connect 76 0 75 0;
r@222 293 #X connect 78 0 70 0;
r@222 294 #X connect 79 0 65 0;
r@222 295 #X connect 80 0 12 0;
r@222 296 #X connect 82 0 96 0;
r@222 297 #X connect 82 0 97 0;
r@222 298 #X connect 83 0 12 0;
r@222 299 #X connect 84 0 6 0;
r@222 300 #X connect 85 0 6 0;
r@218 301 #X connect 86 0 6 0;
r@222 302 #X connect 87 0 3 1;
r@222 303 #X connect 88 0 4 1;
r@222 304 #X connect 89 0 51 0;
r@222 305 #X connect 90 0 81 0;
r@222 306 #X connect 91 0 53 0;
r@222 307 #X connect 92 0 55 0;
r@222 308 #X connect 93 0 57 0;
r@222 309 #X connect 94 0 59 0;
r@222 310 #X connect 95 0 12 0;
r@222 311 #X connect 98 0 14 0;
r@222 312 #X connect 100 1 116 0;
r@222 313 #X connect 100 2 119 0;
r@222 314 #X connect 100 3 117 0;
r@222 315 #X connect 100 4 118 0;
r@222 316 #X connect 100 5 144 0;
r@222 317 #X connect 101 0 39 0;
r@222 318 #X connect 109 0 32 0;
r@222 319 #X connect 110 0 77 0;
r@222 320 #X connect 111 0 6 0;
r@222 321 #X connect 112 0 29 0;
r@222 322 #X connect 113 0 6 0;
r@222 323 #X connect 114 0 29 0;
r@222 324 #X connect 115 0 42 0;
r@222 325 #X connect 120 0 2 0;
r@222 326 #X connect 121 0 6 0;
r@222 327 #X connect 123 0 122 0;
r@218 328 #X connect 124 0 42 0;
r@222 329 #X connect 125 0 94 0;
r@222 330 #X connect 125 1 93 0;
r@222 331 #X connect 125 2 92 0;
r@222 332 #X connect 125 3 91 0;
r@222 333 #X connect 125 4 90 0;
r@222 334 #X connect 125 5 126 0;
r@222 335 #X connect 125 6 127 0;
r@222 336 #X connect 125 7 89 0;
r@222 337 #X connect 126 0 129 0;
r@222 338 #X connect 127 0 128 0;
r@222 339 #X connect 130 0 39 0;
r@222 340 #X connect 131 0 125 0;
r@222 341 #X connect 132 0 125 0;
r@222 342 #X connect 133 0 125 0;
r@222 343 #X connect 134 0 125 0;
r@222 344 #X connect 135 0 125 0;
r@222 345 #X connect 136 0 125 0;
r@222 346 #X connect 137 0 99 0;
r@222 347 #X connect 138 0 139 0;
r@222 348 #X connect 138 0 141 0;
r@222 349 #X connect 139 0 140 0;
r@222 350 #X connect 140 0 1 0;
r@222 351 #X connect 142 0 125 0;
r@222 352 #X connect 143 0 125 0;