view MechAeolian/MA_Test.pd @ 200:04808797b49e

Adjacent frequency calculated as wellas the correspoding value in lower frequency(f2).

Need to calculate the +/- 2% (or similar) and built lock-in patch.

#N canvas 34 25 1139 792 10;
#X obj 249 -64 loadbang;
#X obj -164 205 delwrite~ varwind 3000;
#X obj -54 -46 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 1947 1;
#X obj -163 -2 *~ 1;
#X obj -163 24 +~ 1;
#X obj 35 -90 loadbang;
#X msg 35 -70 5;
#X obj 296 26 hsl 128 15 0.0001 0.3 1 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6495 1;
#X floatatom 303 52 8 0 0 0 - - -;
#X obj 364 302 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6350 1;
#X floatatom 394 331 5 0 0 0 - - -;
#X obj 337 184 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 6350 1;
#X floatatom 365 213 5 0 0 0 - - -;
#X obj 350 239 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 9349 1;
#X floatatom 380 268 5 0 0 0 - - -;
#X obj 323 127 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
-1 -1 8877 1;
#X floatatom 339 156 5 0 0 0 - - -;
#X text 512 303 Pan Value;
#X obj -189 443 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj -126 443 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text -129 352 Gain;
#X obj -181 323 loadbang;
#N canvas 555 179 313 396 opLevels 0;
#X obj 79 184 dac~;
#X obj 30 70 catch~ l;
#X obj 128 70 catch~ r;
#X obj 129 104 *~ 0.45;
#X obj 30 104 *~ 0.45;
#X obj 30 210 prvu~;
#X obj 129 211 prvu~;
#X obj 93 33 inlet;
#X obj 30 239 outlet;
#X obj 129 239 outlet;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 0 0 1;
#X connect 4 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 4 1;
#X connect 7 0 3 1;
#X restore -190 400 pd opLevels;
#X msg -181 346 5;
#X obj -187 371 hsl 100 25 0.1 1e+09 1 0 empty empty empty -2 -8 0
10 -262144 -1 -1 7920 1;
#N canvas 20 383 344 123 machCalc 1;
#X text 107 15 Speed of Sound (dry air 20 Degs C);
#X obj 26 -14 vd~ varwind;
#X obj 26 33 s~ MY_MACH;
#X obj 26 9 /~ 343.56;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X restore 93 -33 pd machCalc;
#X obj 422 -121 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1
-1;
#X msg 178 167 0;
#X msg 135 285 0.5;
#X obj 249 -40 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 309 84 hsl 128 15 0.11 20 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3122 1;
#X floatatom 331 103 8 0 0 0 - - -;
#X text -8 353 No Of Sources;
#X obj 422 -63 s SET_UP;
#X obj 294 7 r SET_UP;
#X obj 364 62 r SET_UP;
#X obj 434 101 r SET_UP;
#X obj 422 153 r SET_UP;
#X obj 432 213 r SET_UP;
#X obj 438 271 r SET_UP;
#X obj 382 360 hsl 128 15 0 10000 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 9969 1;
#X floatatom 415 389 5 0 0 0 - - -;
#X obj 460 334 r SET_UP;
#X obj 391 420 hsl 128 15 0 10000 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 1426 1;
#X floatatom 410 447 5 0 0 0 - - -;
#X obj 484 388 r SET_UP;
#X obj 405 472 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6350 1;
#X floatatom 416 494 5 0 0 0 - - -;
#X obj 500 441 r SET_UP;
#X msg 74 450 0;
#X floatatom -16 -23 5 0 0 0 - - -;
#X msg 281 -21 0;
#X obj -400 248 unpack f f f f f f;
#X obj -295 294 s GAIN;
#X obj -190 300 r GAIN;
#X obj -337 380 s DIST;
#X obj 500 101 r DIST;
#X obj -358 422 s LEN;
#X obj 478 49 r LEN;
#X obj -379 461 s DIA;
#X obj 476 -4 r DIA;
#X obj -400 499 s SPEED;
#X obj -57 -70 r SPEED;
#X floatatom -247 401 8 0 0 0 - - -;
#X msg 207 206 90;
#X obj 496 209 r ELEV;
#X obj 529 261 s elev;
#N canvas 634 290 596 443 windDirection 0;
#X obj 183 0 inlet~;
#X obj 280 52 inlet;
#X obj 280 86 sig~;
#X obj 185 251 *~;
#X obj 185 279 outlet~;
#X obj 246 254 outlet~;
#X obj 200 195 cos~;
#X obj 200 135 +~;
#X obj 200 71 lop~ 1;
#X obj 246 194 *~ 360;
#X obj 200 91 lop~ 1;
#X obj 200 30 noise~;
#X obj 200 51 lop~ 1;
#X obj 200 157 /~ 360;
#X obj 200 113 *~ 800;
#X obj 200 221 abs~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 7 1;
#X connect 3 0 4 0;
#X connect 6 0 15 0;
#X connect 7 0 13 0;
#X connect 8 0 10 0;
#X connect 9 0 5 0;
#X connect 10 0 14 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 13 0 6 0;
#X connect 13 0 9 0;
#X connect 14 0 7 0;
#X connect 15 0 3 1;
#X restore -164 103 pd windDirection;
#X obj -11 148 snapshot~;
#X floatatom -11 175 10 0 0 0 - - -;
#X text -14 193 Wind Speed;
#X obj -68 78 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X msg 199 110 4;
#X obj 70 148 snapshot~;
#X floatatom 70 175 10 0 0 0 - - -;
#X text 67 193 Wind Direction;
#X obj -163 -32 WindGenD1;
#X msg -2 -69 20;
#X obj 618 -69 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 618 -94 loadbang;
#X obj 618 -23 s myMet;
#X obj 70 125 r myMet;
#X obj -11 125 r myMet;
#X msg 158 222 45;
#X msg 236 11 0.005;
#X obj -316 338 s ELEV;
#X obj -150 134 TUCalc2;
#X msg 216 250 18.435;
#X msg 348 -33 0.019;
#X msg 349 -52 0.0254;
#X msg 349 -72 0.0127;
#X obj -94 -23 * 0.5;
#X obj -57 -23 * 0.88;
#X obj -295 275 line \$1 50;
#X obj -316 316 line \$1 50;
#X obj -337 358 line \$1 50;
#X obj -358 401 line \$1 50;
#X obj -379 442 line \$1 50;
#X obj -400 480 line \$1 50;
#X msg 253 183 0;
#X obj -150 158 s blust;
#X obj 416 526 r blust;
#X floatatom -99 156 0 0 0 0 - - -;
#X obj 416 549 * 100;
#X floatatom 434 578 0 0 0 0 - - -;
#X text 464 548 Free Stream Turbulence Intensity (%);
#X obj 474 506 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X msg 251 101 12;
#X msg -400 130 23 0.006 5 4 85 1e+07;
#X msg -391 154 24 0.01 15 6 77 1e+07;
#X msg -379 182 17 0.0015 10 3 -100 1e+07;
#X msg -372 215 28 0.04 7 6 35 1e+07;
#X msg 348 -16 0.006;
#X obj -75 284 sig~;
#X obj 293 577 MechAeolianD1;
#X msg 113 343 7850;
#X msg 215 67 2;
#X text 434 29 Diameter (m);
#X text 441 68 Length (m);
#X text 461 128 Obs Distance (m);
#X text 476 184 Obs Azimuth (degs);
#X text 489 240 Obs Elevation (degs);
#X text 526 361 Mass Desnity (kg / m^3);
#X text 541 415 Tension (N);
#X msg 552 385 20.2;
#X msg 416 52 0.48;
#X msg 93 397 4052;
#X msg 411 -27 0.00036;
#X obj 422 -84 uzi 20;
#X obj 618 -47 metro 10;
#X msg -75 260 2;
#X connect 0 0 29 0;
#X connect 2 0 50 0;
#X connect 2 0 91 0;
#X connect 2 0 92 0;
#X connect 3 0 4 0;
#X connect 4 0 67 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 7 0 8 0;
#X connect 7 0 114 0;
#X connect 9 0 10 0;
#X connect 9 0 114 5;
#X connect 11 0 12 0;
#X connect 11 0 114 3;
#X connect 13 0 14 0;
#X connect 13 0 66 0;
#X connect 13 0 114 4;
#X connect 15 0 16 0;
#X connect 15 0 114 2;
#X connect 21 0 23 0;
#X connect 22 0 18 0;
#X connect 22 1 19 0;
#X connect 23 0 24 0;
#X connect 24 0 22 0;
#X connect 24 0 63 0;
#X connect 26 0 128 0;
#X connect 27 0 11 0;
#X connect 28 0 9 0;
#X connect 29 0 51 0;
#X connect 29 0 84 0;
#X connect 29 0 72 0;
#X connect 29 0 27 0;
#X connect 29 0 83 0;
#X connect 29 0 28 0;
#X connect 29 0 116 0;
#X connect 29 0 115 0;
#X connect 29 0 126 0;
#X connect 29 0 49 0;
#X connect 30 0 31 0;
#X connect 30 0 114 1;
#X connect 34 0 7 0;
#X connect 35 0 30 0;
#X connect 36 0 15 0;
#X connect 37 0 11 0;
#X connect 38 0 13 0;
#X connect 39 0 9 0;
#X connect 40 0 41 0;
#X connect 40 0 114 6;
#X connect 42 0 40 0;
#X connect 43 0 44 0;
#X connect 43 0 114 7;
#X connect 45 0 43 0;
#X connect 46 0 47 0;
#X connect 48 0 46 0;
#X connect 49 0 46 0;
#X connect 52 0 98 0;
#X connect 52 1 97 0;
#X connect 52 2 96 0;
#X connect 52 3 95 0;
#X connect 52 4 94 0;
#X connect 52 5 93 0;
#X connect 54 0 24 0;
#X connect 56 0 15 0;
#X connect 58 0 30 0;
#X connect 60 0 7 0;
#X connect 62 0 2 0;
#X connect 64 0 13 0;
#X connect 65 0 13 0;
#X connect 67 0 86 0;
#X connect 67 0 68 0;
#X connect 67 0 1 0;
#X connect 67 1 73 0;
#X connect 68 0 69 0;
#X connect 71 0 67 1;
#X connect 72 0 15 0;
#X connect 73 0 74 0;
#X connect 76 0 3 0;
#X connect 77 0 2 0;
#X connect 78 0 129 0;
#X connect 79 0 78 0;
#X connect 81 0 73 0;
#X connect 82 0 68 0;
#X connect 83 0 13 0;
#X connect 84 0 7 0;
#X connect 86 0 100 0;
#X connect 86 0 102 0;
#X connect 87 0 13 0;
#X connect 88 0 7 0;
#X connect 89 0 7 0;
#X connect 90 0 7 0;
#X connect 91 0 3 1;
#X connect 92 0 4 1;
#X connect 93 0 53 0;
#X connect 94 0 85 0;
#X connect 95 0 55 0;
#X connect 96 0 57 0;
#X connect 97 0 59 0;
#X connect 98 0 61 0;
#X connect 99 0 13 0;
#X connect 101 0 103 0;
#X connect 103 0 104 0;
#X connect 107 0 15 0;
#X connect 108 0 52 0;
#X connect 109 0 52 0;
#X connect 110 0 52 0;
#X connect 111 0 52 0;
#X connect 112 0 7 0;
#X connect 115 0 40 0;
#X connect 116 0 30 0;
#X connect 124 0 43 0;
#X connect 125 0 30 0;
#X connect 126 0 43 0;
#X connect 127 0 7 0;
#X connect 128 0 33 0;
#X connect 129 0 80 0;
#X connect 130 0 113 0;