annotate MechAeolian/harpD2.pd @ 226:a7403270b41a

Working on the Scruton number and hyst response.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 13 Jun 2016 09:51:03 +0100
parents f13bc86bb52f
children b96e767d1b05
rev   line source
r@226 1 #N canvas 88 41 1167 772 10;
r@225 2 #X obj -193 285 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@225 3 #X obj -130 285 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@225 4 #X text -133 194 Gain;
r@225 5 #X obj -185 165 loadbang;
r@225 6 #N canvas 555 179 313 396 opLevels 0;
r@225 7 #X obj 79 184 dac~;
r@225 8 #X obj 30 70 catch~ l;
r@225 9 #X obj 128 70 catch~ r;
r@225 10 #X obj 129 104 *~ 0.45;
r@225 11 #X obj 30 104 *~ 0.45;
r@225 12 #X obj 30 210 prvu~;
r@225 13 #X obj 129 211 prvu~;
r@225 14 #X obj 93 33 inlet;
r@225 15 #X obj 30 239 outlet;
r@225 16 #X obj 129 239 outlet;
r@225 17 #X connect 1 0 4 0;
r@225 18 #X connect 2 0 3 0;
r@225 19 #X connect 3 0 6 0;
r@225 20 #X connect 3 0 0 1;
r@225 21 #X connect 4 0 5 0;
r@225 22 #X connect 4 0 0 0;
r@225 23 #X connect 5 0 8 0;
r@225 24 #X connect 6 0 9 0;
r@225 25 #X connect 7 0 4 1;
r@225 26 #X connect 7 0 3 1;
r@225 27 #X restore -194 242 pd opLevels;
r@226 28 #X obj -191 213 hsl 100 25 0.01 1e+20 1 0 empty empty empty -2 -8 0
r@226 29 10 -262144 -1 -1 1500 1;
r@225 30 #X obj -194 142 r GAIN;
r@225 31 #X floatatom -251 243 8 0 0 0 - - -;
r@226 32 #X obj 409 128 delwrite~ varwind 3000;
r@226 33 #X obj 518 36 hsl 128 15 0 30 0 0 empty empty empty -2 -8 0 10 -262144
r@226 34 -1 -1 770 1;
r@225 35 #X obj 409 80 *~ 1;
r@225 36 #X obj 409 102 +~ 1;
r@225 37 #X obj 607 -8 loadbang;
r@225 38 #N canvas 20 383 344 123 machCalc 0;
r@225 39 #X text 107 15 Speed of Sound (dry air 20 Degs C);
r@225 40 #X obj 26 -14 vd~ varwind;
r@225 41 #X obj 26 33 s~ MY_MACH;
r@225 42 #X obj 26 9 /~ 343.56;
r@225 43 #X connect 1 0 3 0;
r@225 44 #X connect 3 0 2 0;
r@225 45 #X restore 665 49 pd machCalc;
r@225 46 #X floatatom 556 59 0 0 0 0 - - -;
r@225 47 #X obj 515 12 r SPEED;
r@226 48 #X obj 548 126 snapshot~;
r@226 49 #X floatatom 548 146 0 0 0 0 - - -;
r@226 50 #X text 545 164 Wind Speed;
r@225 51 #X obj 409 50 WindGenD1;
r@225 52 #X msg 570 13 20;
r@226 53 #X obj 548 105 r myMet;
r@225 54 #X obj 478 59 * 0.5;
r@225 55 #X obj 515 59 * 0.88;
r@225 56 #X msg 607 12 7;
r@226 57 #X msg 558 573 0.9 0.0002286 0.65 6 90 7940 59.98 20;
r@226 58 #X msg 253 569 0.9 0.0002794 0.65 6 90 7820 49.5 20;
r@226 59 #X msg -32 574 0.9 0.0004064 0.65 6 90 8050 67.91 20;
r@225 60 #X msg 57 167 0.9 0.0008636 0.65 6 90 6900 82.83 20;
r@225 61 #X msg -13 -1 0.9 0.0010668 0.65 6 90 6640 68.23 20;
r@225 62 #X obj -216 0 s guitar;
r@225 63 #X obj -13 -21 r guitar;
r@225 64 #X obj 57 148 r guitar;
r@225 65 #X obj 142 313 r guitar;
r@226 66 #X obj -32 553 r guitar;
r@226 67 #X obj 253 550 r guitar;
r@226 68 #X obj 558 552 r guitar;
r@225 69 #X obj -216 -21 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@225 70 -1 -1;
r@225 71 #X obj -156 -1 s rand1;
r@225 72 #X obj -27 -64 r rand1;
r@225 73 #X obj 44 107 r rand1;
r@225 74 #X obj 126 273 r rand1;
r@226 75 #X obj -46 511 r rand1;
r@226 76 #X obj 237 509 r rand1;
r@226 77 #X obj 541 511 r rand1;
r@225 78 #X obj -156 -21 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@225 79 -1 -1;
r@225 80 #X obj 246 -45 hsl 300 35 1 10000 1 0 empty empty empty -2 -8 0 10
r@225 81 -262144 -1 -1 3566 1;
r@225 82 #X obj 282 13 s mod;
r@225 83 #X msg -185 188 0.015;
r@225 84 #X obj -48 -107 r rand2;
r@225 85 #X obj 26 65 r rand2;
r@225 86 #X obj 105 233 r rand2;
r@226 87 #X obj -62 471 r rand2;
r@226 88 #X obj 213 468 r rand2;
r@226 89 #X obj 519 471 r rand2;
r@225 90 #X obj -140 51 s rand2;
r@225 91 #X obj -140 32 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@225 92 -1 -1;
r@225 93 #X obj -43 43 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@226 94 0 1;
r@226 95 #X obj 26 210 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@226 96 0 1;
r@226 97 #X obj 112 377 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@225 98 1 1;
r@226 99 #X obj -66 617 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@225 100 0 1;
r@226 101 #X obj 218 618 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@225 102 0 1;
r@226 103 #X obj 527 619 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@225 104 0 1;
r@225 105 #X msg -74 -2 0;
r@225 106 #X floatatom 31 42 0 0 0 0 - - -;
r@225 107 #X floatatom 102 207 0 0 0 0 - - -;
r@226 108 #X floatatom 196 381 0 0 0 0 - - -;
r@226 109 #X floatatom 13 615 0 0 0 0 - - -;
r@226 110 #X floatatom 298 613 0 0 0 0 - - -;
r@226 111 #X floatatom 603 617 0 0 0 0 - - -;
r@226 112 #X msg 213 489 1.4 0.001 0.9 6 90 1000 97.76 20;
r@226 113 #X msg 519 492 1.4 0.001 0.9 6 90 1000 94 20;
r@225 114 #X obj 243 -88 loadbang;
r@225 115 #X msg 243 -66 3;
r@225 116 #X msg -48 -84 1.4 0.001 0.65 6 90 1000 80 20;
r@225 117 #X msg 26 88 1.4 0.001 0.7 6 90 1000 92.78 20;
r@226 118 #X msg -62 492 1.4 0.001 0.9 6 90 1000 60 20;
r@225 119 #X obj -10 43 tgl 30 0 empty empty empty 17 7 0 40 -262130 -159808
r@226 120 -159808 0 1;
r@226 121 #X obj 62 212 tgl 30 0 empty empty empty 17 7 0 40 -262130 -159808
r@226 122 -159808 0 1;
r@226 123 #X obj 151 377 tgl 30 0 empty empty empty 17 7 0 40 -262130 -159808
r@225 124 -159808 -0 1;
r@226 125 #X obj -25 619 tgl 30 0 empty empty empty 17 7 0 40 -262130 -159808
r@226 126 -159808 0 1;
r@226 127 #X obj 260 615 tgl 30 0 empty empty empty 17 7 0 40 -262130 -159808
r@226 128 -159808 0 1;
r@226 129 #X obj 567 619 tgl 30 0 empty empty empty 17 7 0 40 -262130 -159808
r@226 130 -159808 0 1;
r@226 131 #X obj 381 188 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@226 132 -1 -1 1100 1;
r@226 133 #X obj 378 235 line~;
r@226 134 #X msg 378 212 \$1 5;
r@225 135 #X obj 414 313 r myMet;
r@225 136 #X obj 414 336 snapshot~;
r@225 137 #X floatatom 414 358 0 0 0 0 - - -;
r@226 138 #X msg 317 226 0 10000;
r@226 139 #N canvas 1011 105 450 362 PlotWrt 0;
r@225 140 #X obj 70 303 textfile;
r@225 141 #X msg 341 201 clear \, rewind;
r@225 142 #X obj 69 103 snapshot~;
r@225 143 #X floatatom 84 137 0 0 0 0 - - -;
r@225 144 #X obj 123 153 snapshot~;
r@225 145 #X floatatom 161 178 0 0 0 0 - - -;
r@225 146 #X obj 24 41 inlet~;
r@225 147 #X obj 137 45 inlet~;
r@225 148 #X obj 69 78 r myMet;
r@225 149 #X obj 123 128 r myMet;
r@225 150 #X msg 218 202 write lockFreq.txt;
r@225 151 #X obj 213 134 snapshot~;
r@225 152 #X floatatom 228 158 0 0 0 0 - - -;
r@225 153 #X obj 213 107 r myMet;
r@225 154 #X obj 200 48 inlet~;
r@225 155 #X msg 70 202 add2 \$1;
r@225 156 #X msg 123 202 add \$1;
r@225 157 #X msg 170 202 add2 \$1;
r@225 158 #X connect 1 0 0 0;
r@225 159 #X connect 2 0 3 0;
r@225 160 #X connect 2 0 15 0;
r@225 161 #X connect 4 0 5 0;
r@225 162 #X connect 4 0 16 0;
r@225 163 #X connect 6 0 2 0;
r@225 164 #X connect 7 0 4 0;
r@225 165 #X connect 8 0 2 0;
r@225 166 #X connect 9 0 4 0;
r@225 167 #X connect 10 0 0 0;
r@225 168 #X connect 11 0 12 0;
r@225 169 #X connect 11 0 17 0;
r@225 170 #X connect 13 0 11 0;
r@225 171 #X connect 14 0 11 0;
r@225 172 #X connect 15 0 0 0;
r@225 173 #X connect 16 0 0 0;
r@226 174 #X restore 184 419 pd PlotWrt;
r@225 175 #X msg -27 -43 3 0.000508 0.7 6 90 1200 30 20;
r@225 176 #X msg 44 128 3 0.000508 0.7 6 90 1200 30 20;
r@226 177 #X msg -46 532 3 0.000508 0.7 6 90 1190 20 20;
r@226 178 #X msg 238 529 3 0.000508 0.7 6 90 1205 20 20;
r@226 179 #X msg 540 532 3 0.000508 0.7 6 90 1130 21 20;
r@225 180 #X obj 412 2 hsl 50 30 0 1 0 0 empty empty Gusts 2 8 0 10 -261995 -1
r@226 181 -4032 4900 1;
r@225 182 #X obj 477 33 t f b;
r@226 183 #X obj 476 11 * 0.75;
r@226 184 #X floatatom 655 618 0 0 0 0 - - -;
r@226 185 #X floatatom 352 616 0 0 0 0 - - -;
r@226 186 #X floatatom 78 617 0 0 0 0 - - -;
r@226 187 #X floatatom 90 37 0 0 0 0 - - -;
r@226 188 #X floatatom 163 202 0 0 0 0 - - -;
r@226 189 #X floatatom 248 374 0 0 0 0 - - -;
r@226 190 #X obj 142 353 MA_Test3;
r@226 191 #X msg 422 208 0;
r@226 192 #X msg 105 254 1.4 0.001 0.85 6 90 1000 36.81 20 0.005;
r@226 193 #X msg 126 293 3 0.000508 0.7 6 90 1230 31 20 0.009;
r@226 194 #X msg 142 331 0.9 0.0006096 0.65 6 90 6650 70.79 20 0.05;
r@226 195 #X msg 316 204 5 50000;
r@226 196 #X connect 3 0 48 0;
r@225 197 #X connect 4 0 0 0;
r@225 198 #X connect 4 1 1 0;
r@225 199 #X connect 5 0 4 0;
r@225 200 #X connect 5 0 7 0;
r@225 201 #X connect 6 0 5 0;
r@225 202 #X connect 9 0 14 0;
r@226 203 #X connect 9 0 22 0;
r@226 204 #X connect 9 0 23 0;
r@225 205 #X connect 10 0 11 0;
r@225 206 #X connect 11 0 16 0;
r@226 207 #X connect 11 0 8 0;
r@226 208 #X connect 12 0 24 0;
r@225 209 #X connect 15 0 9 0;
r@225 210 #X connect 16 0 17 0;
r@226 211 #X connect 19 0 10 0;
r@226 212 #X connect 20 0 9 0;
r@226 213 #X connect 21 0 16 0;
r@226 214 #X connect 22 0 10 1;
r@226 215 #X connect 23 0 11 1;
r@226 216 #X connect 24 0 9 0;
r@226 217 #X connect 31 0 29 0;
r@226 218 #X connect 32 0 28 0;
r@226 219 #X connect 33 0 109 0;
r@226 220 #X connect 34 0 27 0;
r@226 221 #X connect 35 0 26 0;
r@226 222 #X connect 36 0 25 0;
r@226 223 #X connect 37 0 30 0;
r@226 224 #X connect 39 0 91 0;
r@226 225 #X connect 40 0 92 0;
r@226 226 #X connect 41 0 108 0;
r@226 227 #X connect 42 0 93 0;
r@226 228 #X connect 43 0 94 0;
r@226 229 #X connect 44 0 95 0;
r@226 230 #X connect 45 0 38 0;
r@226 231 #X connect 46 0 47 0;
r@226 232 #X connect 48 0 5 0;
r@226 233 #X connect 49 0 74 0;
r@226 234 #X connect 50 0 75 0;
r@225 235 #X connect 51 0 107 0;
r@226 236 #X connect 52 0 76 0;
r@226 237 #X connect 53 0 70 0;
r@226 238 #X connect 54 0 71 0;
r@226 239 #X connect 56 0 55 0;
r@226 240 #X connect 72 0 73 0;
r@226 241 #X connect 73 0 46 0;
r@226 242 #X connect 83 0 85 0;
r@226 243 #X connect 84 0 87 0;
r@226 244 #X connect 84 0 90 0;
r@226 245 #X connect 85 0 84 0;
r@226 246 #X connect 86 0 87 0;
r@226 247 #X connect 87 0 88 0;
r@226 248 #X connect 89 0 84 0;
r@226 249 #X connect 96 0 19 0;
r@226 250 #X connect 96 0 98 0;
r@226 251 #X connect 97 0 22 1;
r@226 252 #X connect 97 1 22 0;
r@226 253 #X connect 98 0 97 0;
r@226 254 #X connect 105 0 66 0;
r@226 255 #X connect 105 1 59 0;
r@226 256 #X connect 105 2 90 1;
r@226 257 #X connect 105 4 104 0;
r@226 258 #X connect 106 0 84 0;
r@226 259 #X connect 107 0 105 0;
r@226 260 #X connect 108 0 105 0;
r@226 261 #X connect 109 0 105 0;
r@226 262 #X connect 110 0 84 0;