r@238: #N canvas 132 23 1193 815 10;
r@238: #X obj -172 -182 loadbang;
r@238: #X obj -172 -145 metro 10;
r@238: #X obj -172 -162 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@201: 1 1;
r@238: #X obj -172 -123 s myMet;
r@201: #N canvas 20 383 344 123 machCalc 0;
r@201: #X text 107 15 Speed of Sound (dry air 20 Degs C);
r@201: #X obj 26 -14 vd~ varwind;
r@201: #X obj 26 33 s~ MY_MACH;
r@201: #X obj 26 9 /~ 343.56;
r@201: #X connect 1 0 3 0;
r@201: #X connect 3 0 2 0;
r@238: #X restore -177 -97 pd machCalc;
r@201: #X obj -162 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@201: #X obj -99 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@201: #X text -102 376 Gain;
r@201: #X obj -154 347 loadbang;
r@201: #N canvas 555 179 313 396 opLevels 0;
r@201: #X obj 79 184 dac~;
r@201: #X obj 30 70 catch~ l;
r@201: #X obj 128 70 catch~ r;
r@201: #X obj 129 104 *~ 0.45;
r@201: #X obj 30 104 *~ 0.45;
r@201: #X obj 30 210 prvu~;
r@201: #X obj 129 211 prvu~;
r@201: #X obj 93 33 inlet;
r@201: #X obj 30 239 outlet;
r@201: #X obj 129 239 outlet;
r@201: #X connect 1 0 4 0;
r@201: #X connect 2 0 3 0;
r@201: #X connect 3 0 6 0;
r@201: #X connect 3 0 0 1;
r@201: #X connect 4 0 5 0;
r@201: #X connect 4 0 0 0;
r@201: #X connect 5 0 8 0;
r@201: #X connect 6 0 9 0;
r@201: #X connect 7 0 4 1;
r@201: #X connect 7 0 3 1;
r@201: #X restore -163 424 pd opLevels;
r@201: #X msg -154 370 5;
r@201: #X obj -160 395 hsl 100 25 0.1 1e+09 1 0 empty empty empty -2 -8 0
r@238: 10 -262144 -1 -1 1682 1;
r@201: #X obj -163 324 r GAIN;
r@201: #X floatatom -220 425 8 0 0 0 - - -;
r@238: #X obj 436 -178 hsl 100 25 0.001 10 1 0 empty empty Length 3 13 0 10
r@251: -262144 -1 -1 0 1;
r@238: #X floatatom 454 -149 0 0 0 0 - - -;
r@238: #X obj 550 -178 hsl 100 25 0.001 10 1 0 empty empty Width 3 13 0 10
r@251: -262144 -1 -1 0 1;
r@238: #X floatatom 580 -149 0 0 0 0 - - -;
r@238: #X obj 664 -178 hsl 100 25 0.001 10 1 0 empty empty Depth 3 13 0 10
r@251: -262144 -1 -1 0 1;
r@238: #X floatatom 688 -150 0 0 0 0 - - -;
r@238: #X obj -39 -35 delwrite~ varwind 3000;
r@251: #X obj 70 -127 hsl 128 15 0 400 0 0 empty empty empty -2 -8 0 10 -262144
r@251: -1 -1 0 1;
r@238: #X obj -39 -83 *~ 1;
r@238: #X obj -39 -61 +~ 1;
r@238: #X obj -39 -185 loadbang;
r@238: #X floatatom 108 -104 0 0 0 0 - - -;
r@238: #X obj 67 -151 r SPEED;
r@238: #X obj 100 -37 snapshot~;
r@238: #X floatatom 100 -17 0 0 0 0 - - -;
r@238: #X text 97 1 Wind Speed;
r@238: #X msg 122 -150 20;
r@238: #X obj 100 -58 r myMet;
r@238: #X obj 30 -104 * 0.5;
r@238: #X obj 67 -104 * 0.88;
r@238: #X obj -36 -161 hsl 50 30 0 1 0 0 empty empty Gusts 2 8 0 10 -261995
r@251: -1 -4032 0 1;
r@238: #X obj 29 -130 t f b;
r@238: #X obj 28 -152 * 0.75;
r@238: #X obj 15 -184 r gusts;
r@238: #X obj 156 -149 r underWind;
r@238: #X obj -39 -109 windGenD1;
r@251: #N canvas 310 284 1009 672 cavFreqD1 1;
r@238: #X obj 273 -22 r~ MY_MACH;
r@238: #X obj 258 -43 sig~ 1;
r@238: #X obj 273 3 *~;
r@238: #X obj 273 25 *~ 0.2;
r@238: #X obj 258 48 +~;
r@238: #X obj 258 71 sqrt~;
r@238: #X obj 273 93 r~ MY_MACH;
r@238: #X text 324 20 (y-1)/2 -> y = 1.4;
r@238: #X obj 258 119 /~;
r@238: #X obj 463 -24 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@251: -1 -1 0 1;
r@238: #X obj 460 1 i;
r@238: #X msg 460 23 \$1 50;
r@238: #X obj 460 44 line~;
r@238: #X floatatom 502 23 0 0 0 0 - - -;
r@238: #X obj 598 -47 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@251: -1 -1 0 1;
r@238: #X obj 595 -22 i;
r@238: #X msg 595 0 \$1 50;
r@238: #X obj 595 21 line~;
r@238: #X floatatom 637 0 0 0 0 0 - - -;
r@238: #X obj 741 -41 hsl 80 20 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@251: -1 -1 0 1;
r@238: #X obj 738 -16 i;
r@238: #X msg 738 6 \$1 50;
r@238: #X obj 738 27 line~;
r@238: #X floatatom 780 6 0 0 0 0 - - -;
r@238: #X text 549 -24 l;
r@238: #X text 687 -47 m;
r@238: #X text 834 -40 n;
r@238: #X obj 460 68 /~ 2;
r@238: #X obj 460 98 *~;
r@238: #X obj 595 43 /~ 2;
r@238: #X obj 738 48 /~ 2;
r@238: #X obj 610 67 r $-thisLen;
r@238: #X obj 625 133 r $-thisWid;
r@238: #X msg 610 90 \$1 50;
r@238: #X obj 610 111 line~;
r@238: #X msg 625 155 \$1 50;
r@238: #X obj 625 176 line~;
r@238: #X obj 610 199 /~;
r@238: #X obj 595 240 *~;
r@238: #X obj 595 266 *~;
r@238: #X obj 753 71 r $-thisLen;
r@238: #X msg 753 94 \$1 50;
r@238: #X obj 753 115 line~;
r@238: #X msg 768 159 \$1 50;
r@238: #X obj 768 180 line~;
r@238: #X obj 753 203 /~;
r@238: #X obj 738 244 *~;
r@238: #X obj 738 270 *~;
r@238: #X obj 768 137 r $-thisDep;
r@238: #X obj 582 310 +~;
r@238: #X obj 638 341 +~;
r@238: #X obj 638 366 sqrt~;
r@238: #X obj 592 427 *~;
r@238: #X obj 496 414 r myMet;
r@238: #X obj 496 436 snapshot~;
r@238: #X floatatom 496 460 0 0 0 0 - - -;
r@238: #X obj 477 222 r myMet;
r@238: #X obj 477 244 snapshot~;
r@238: #X floatatom 477 268 0 0 0 0 - - -;
r@238: #X obj 592 462 outlet~;
r@251: #X text 65 348 This is a mistake!! It is calculating the Strouhal number
r@251: of the cavity not the freq!;
r@238: #X connect 0 0 2 0;
r@238: #X connect 0 0 2 1;
r@238: #X connect 1 0 4 0;
r@238: #X connect 2 0 3 0;
r@238: #X connect 3 0 4 1;
r@238: #X connect 4 0 5 0;
r@238: #X connect 5 0 8 0;
r@238: #X connect 6 0 8 1;
r@238: #X connect 8 0 52 0;
r@238: #X connect 9 0 10 0;
r@238: #X connect 10 0 11 0;
r@201: #X connect 10 0 13 0;
r@201: #X connect 11 0 12 0;
r@238: #X connect 12 0 27 0;
r@238: #X connect 14 0 15 0;
r@201: #X connect 15 0 16 0;
r@238: #X connect 15 0 18 0;
r@201: #X connect 16 0 17 0;
r@238: #X connect 17 0 29 0;
r@201: #X connect 19 0 20 0;
r@201: #X connect 20 0 21 0;
r@238: #X connect 20 0 23 0;
r@238: #X connect 21 0 22 0;
r@238: #X connect 22 0 30 0;
r@201: #X connect 27 0 28 0;
r@238: #X connect 27 0 28 1;
r@238: #X connect 28 0 49 0;
r@238: #X connect 29 0 38 0;
r@238: #X connect 30 0 46 0;
r@238: #X connect 31 0 33 0;
r@238: #X connect 32 0 35 0;
r@201: #X connect 33 0 34 0;
r@238: #X connect 34 0 37 0;
r@238: #X connect 35 0 36 0;
r@238: #X connect 36 0 37 1;
r@238: #X connect 37 0 38 1;
r@238: #X connect 38 0 39 0;
r@238: #X connect 38 0 39 1;
r@238: #X connect 39 0 49 1;
r@201: #X connect 40 0 41 0;
r@238: #X connect 41 0 42 0;
r@238: #X connect 42 0 45 0;
r@238: #X connect 43 0 44 0;
r@238: #X connect 44 0 45 1;
r@238: #X connect 45 0 46 1;
r@238: #X connect 46 0 47 0;
r@238: #X connect 46 0 47 1;
r@238: #X connect 47 0 50 1;
r@238: #X connect 48 0 43 0;
r@238: #X connect 49 0 50 0;
r@238: #X connect 50 0 51 0;
r@238: #X connect 51 0 52 1;
r@238: #X connect 52 0 54 0;
r@238: #X connect 52 0 59 0;
r@238: #X connect 53 0 54 0;
r@238: #X connect 54 0 55 0;
r@238: #X connect 56 0 57 0;
r@238: #X connect 57 0 58 0;
r@251: #X restore 214 -46 pd cavFreqD1;
r@238: #X obj 433 -129 s $-thisLen;
r@238: #X obj 661 -128 s $-thisDep;
r@238: #X obj 547 -129 s $-thisWid;
r@238: #X obj -173 -31 s~ \$0-windSpeed;
r@238: #X obj -173 -51 vd~ varwind;
r@238: #X text -160 -75 Wind Speed;
r@251: #X obj 229 -3 snapshot~;
r@251: #X floatatom 229 17 0 0 0 0 - - -;
r@251: #X obj 229 -24 r myMet;
r@251: #X obj 392 9 snapshot~;
r@251: #X floatatom 392 29 0 0 0 0 - - -;
r@251: #X obj 392 -12 r myMet;
r@251: #X obj 366 95 /;
r@251: #X obj 366 123 * 100;
r@251: #X floatatom 304 148 0 0 0 0 - - -;
r@251: #X obj 230 40 -;
r@251: #X obj 230 61 abs;
r@251: #X obj 366 150 < 5;
r@251: #X obj 366 175 tgl 35 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@238: 1;
r@251: #N canvas 353 99 1064 659 rossFreqD1_n=1 0;
r@251: #X obj 239 -76 r~ MY_MACH;
r@251: #X obj 224 -97 sig~ 1;
r@251: #X obj 239 -51 *~;
r@251: #X obj 239 -29 *~ 0.2;
r@251: #X obj 224 -6 +~;
r@251: #X obj 224 17 sqrt~;
r@251: #X obj 209 -119 r~ MY_MACH;
r@251: #X obj 209 38 /~;
r@251: #X obj 209 60 +~ 1.7544;
r@251: #X obj 194 82 /~;
r@251: #X obj 114 75 r myMet;
r@251: #X obj 114 97 snapshot~;
r@251: #X floatatom 114 121 0 0 0 0 - - -;
r@251: #X obj 194 124 *~;
r@251: #X obj 209 103 r~ \$0-windSpeed;
r@251: #X obj 194 164 /~ 1;
r@251: #X obj 215 144 r $-thisLen;
r@251: #X obj 227 210 r myMet;
r@251: #X obj 227 231 snapshot~;
r@251: #X floatatom 227 255 0 0 0 0 - - -;
r@251: #X text 290 -34 (y-1)/2 -> y = 1.4;
r@251: #X text 254 -144 alpha = 0.25;
r@251: #X text 277 58 (1/k) -> k = 0.57;
r@251: #X text 235 278 m = 1;
r@251: #X text 838 -107 alpha = 0.25;
r@251: #X text 834 -127 m = 1;
r@251: #X obj 778 -51 /~;
r@251: #X obj 793 -80 sig~ 1.7544;
r@251: #X obj 778 -5 *~;
r@251: #X obj 793 -26 r~ \$0-windSpeed;
r@251: #X obj 778 35 /~ 1;
r@251: #X obj 799 15 r $-thisLen;
r@251: #X obj 798 61 r myMet;
r@251: #X obj 798 83 snapshot~;
r@251: #X floatatom 798 107 0 0 0 0 - - -;
r@251: #X text 875 -79 (1/k) -> k = 0.57;
r@251: #X text 250 -164 h = 1;
r@251: #X obj 707 -32 r myMet;
r@251: #X obj 707 -10 snapshot~;
r@251: #X floatatom 707 14 0 0 0 0 - - -;
r@251: #X text 755 -160 Victoria Suponitsky;
r@251: #X text 197 -194 A. Rona;
r@251: #X obj 778 -105 -~ 0.25;
r@251: #X obj 194 -142 -~ 0.25;
r@251: #X text 363 -145 Has + alpha in paper but Rossiter has - ???;
r@251: #X obj 778 -127 sig~ 1;
r@251: #X obj 778 181 outlet~;
r@251: #X obj 194 -164 sig~ 1;
r@251: #X obj 143 250 outlet~;
r@251: #X connect 0 0 2 0;
r@251: #X connect 0 0 2 1;
r@251: #X connect 1 0 4 0;
r@251: #X connect 2 0 3 0;
r@251: #X connect 3 0 4 1;
r@251: #X connect 4 0 5 0;
r@251: #X connect 5 0 7 1;
r@251: #X connect 6 0 7 0;
r@251: #X connect 7 0 8 0;
r@251: #X connect 8 0 9 1;
r@251: #X connect 9 0 11 0;
r@251: #X connect 9 0 13 0;
r@251: #X connect 10 0 11 0;
r@251: #X connect 11 0 12 0;
r@251: #X connect 13 0 15 0;
r@251: #X connect 14 0 13 1;
r@251: #X connect 15 0 18 0;
r@251: #X connect 15 0 48 0;
r@251: #X connect 16 0 15 1;
r@251: #X connect 17 0 18 0;
r@251: #X connect 18 0 19 0;
r@251: #X connect 26 0 28 0;
r@251: #X connect 26 0 38 0;
r@251: #X connect 27 0 26 1;
r@251: #X connect 28 0 30 0;
r@251: #X connect 29 0 28 1;
r@251: #X connect 30 0 33 0;
r@251: #X connect 30 0 46 0;
r@251: #X connect 31 0 30 1;
r@251: #X connect 32 0 33 0;
r@251: #X connect 33 0 34 0;
r@251: #X connect 37 0 38 0;
r@251: #X connect 38 0 39 0;
r@251: #X connect 42 0 26 0;
r@251: #X connect 43 0 9 0;
r@251: #X connect 45 0 42 0;
r@251: #X connect 47 0 43 0;
r@251: #X restore 336 -46 pd rossFreqD1_n=1;
r@251: #X obj 569 5 snapshot~;
r@251: #X floatatom 569 25 0 0 0 0 - - -;
r@251: #X obj 569 -16 r myMet;
r@251: #N canvas 353 99 1064 659 rossFreqD1_n=2 0;
r@251: #X obj 239 -76 r~ MY_MACH;
r@251: #X obj 224 -97 sig~ 1;
r@251: #X obj 239 -51 *~;
r@251: #X obj 239 -29 *~ 0.2;
r@251: #X obj 224 -6 +~;
r@251: #X obj 224 17 sqrt~;
r@251: #X obj 209 -119 r~ MY_MACH;
r@251: #X obj 209 38 /~;
r@251: #X obj 209 60 +~ 1.7544;
r@251: #X obj 194 82 /~;
r@251: #X obj 114 75 r myMet;
r@251: #X obj 114 97 snapshot~;
r@251: #X floatatom 114 121 0 0 0 0 - - -;
r@251: #X obj 194 124 *~;
r@251: #X obj 209 103 r~ \$0-windSpeed;
r@251: #X obj 194 164 /~ 1;
r@251: #X obj 215 144 r $-thisLen;
r@251: #X obj 227 210 r myMet;
r@251: #X obj 227 231 snapshot~;
r@251: #X floatatom 227 255 0 0 0 0 - - -;
r@251: #X text 290 -34 (y-1)/2 -> y = 1.4;
r@251: #X text 254 -144 alpha = 0.25;
r@251: #X text 277 58 (1/k) -> k = 0.57;
r@251: #X text 235 278 m = 1;
r@251: #X text 838 -107 alpha = 0.25;
r@251: #X text 834 -127 m = 1;
r@251: #X obj 778 -51 /~;
r@251: #X obj 793 -80 sig~ 1.7544;
r@251: #X obj 778 -5 *~;
r@251: #X obj 793 -26 r~ \$0-windSpeed;
r@251: #X obj 778 35 /~ 1;
r@251: #X obj 799 15 r $-thisLen;
r@251: #X obj 798 61 r myMet;
r@251: #X obj 798 83 snapshot~;
r@251: #X floatatom 798 107 0 0 0 0 - - -;
r@251: #X text 875 -79 (1/k) -> k = 0.57;
r@251: #X obj 707 -32 r myMet;
r@251: #X obj 707 -10 snapshot~;
r@251: #X floatatom 707 14 0 0 0 0 - - -;
r@251: #X text 755 -160 Victoria Suponitsky;
r@251: #X text 197 -194 A. Rona;
r@251: #X obj 778 -105 -~ 0.25;
r@251: #X obj 194 -142 -~ 0.25;
r@251: #X text 363 -145 Has + alpha in paper but Rossiter has - ???;
r@251: #X obj 778 181 outlet~;
r@251: #X obj 194 -164 sig~ 2;
r@251: #X text 250 -164 h = 2;
r@251: #X obj 778 -127 sig~ 2;
r@251: #X obj 167 253 outlet~;
r@251: #X connect 0 0 2 0;
r@251: #X connect 0 0 2 1;
r@251: #X connect 1 0 4 0;
r@251: #X connect 2 0 3 0;
r@251: #X connect 3 0 4 1;
r@251: #X connect 4 0 5 0;
r@251: #X connect 5 0 7 1;
r@251: #X connect 6 0 7 0;
r@251: #X connect 7 0 8 0;
r@251: #X connect 8 0 9 1;
r@251: #X connect 9 0 11 0;
r@251: #X connect 9 0 13 0;
r@251: #X connect 10 0 11 0;
r@251: #X connect 11 0 12 0;
r@251: #X connect 13 0 15 0;
r@251: #X connect 14 0 13 1;
r@251: #X connect 15 0 18 0;
r@251: #X connect 15 0 48 0;
r@251: #X connect 16 0 15 1;
r@251: #X connect 17 0 18 0;
r@251: #X connect 18 0 19 0;
r@251: #X connect 26 0 28 0;
r@251: #X connect 26 0 37 0;
r@251: #X connect 27 0 26 1;
r@251: #X connect 28 0 30 0;
r@251: #X connect 29 0 28 1;
r@251: #X connect 30 0 33 0;
r@251: #X connect 30 0 44 0;
r@251: #X connect 31 0 30 1;
r@251: #X connect 32 0 33 0;
r@251: #X connect 33 0 34 0;
r@251: #X connect 36 0 37 0;
r@251: #X connect 37 0 38 0;
r@251: #X connect 41 0 26 0;
r@251: #X connect 42 0 9 0;
r@251: #X connect 45 0 42 0;
r@251: #X connect 47 0 41 0;
r@251: #X restore 477 -42 pd rossFreqD1_n=2;
r@251: #X obj 743 9 snapshot~;
r@251: #X floatatom 743 29 0 0 0 0 - - -;
r@251: #X obj 743 -12 r myMet;
r@251: #N canvas 353 99 1064 659 rossFreqD1_n=3 0;
r@251: #X obj 239 -76 r~ MY_MACH;
r@251: #X obj 224 -97 sig~ 1;
r@251: #X obj 239 -51 *~;
r@251: #X obj 239 -29 *~ 0.2;
r@251: #X obj 224 -6 +~;
r@251: #X obj 224 17 sqrt~;
r@251: #X obj 209 -119 r~ MY_MACH;
r@251: #X obj 209 38 /~;
r@251: #X obj 209 60 +~ 1.7544;
r@251: #X obj 194 82 /~;
r@251: #X obj 114 75 r myMet;
r@251: #X obj 114 97 snapshot~;
r@251: #X floatatom 114 121 0 0 0 0 - - -;
r@251: #X obj 194 124 *~;
r@251: #X obj 209 103 r~ \$0-windSpeed;
r@251: #X obj 194 164 /~ 1;
r@251: #X obj 215 144 r $-thisLen;
r@251: #X obj 227 210 r myMet;
r@251: #X obj 227 231 snapshot~;
r@251: #X floatatom 227 255 0 0 0 0 - - -;
r@251: #X text 290 -34 (y-1)/2 -> y = 1.4;
r@251: #X text 254 -144 alpha = 0.25;
r@251: #X text 277 58 (1/k) -> k = 0.57;
r@251: #X text 235 278 m = 1;
r@251: #X text 838 -107 alpha = 0.25;
r@251: #X text 834 -127 m = 1;
r@251: #X obj 778 -51 /~;
r@251: #X obj 793 -80 sig~ 1.7544;
r@251: #X obj 778 -5 *~;
r@251: #X obj 793 -26 r~ \$0-windSpeed;
r@251: #X obj 778 35 /~ 1;
r@251: #X obj 799 15 r $-thisLen;
r@251: #X obj 798 61 r myMet;
r@251: #X obj 798 83 snapshot~;
r@251: #X floatatom 798 107 0 0 0 0 - - -;
r@251: #X text 875 -79 (1/k) -> k = 0.57;
r@251: #X obj 707 -32 r myMet;
r@251: #X obj 707 -10 snapshot~;
r@251: #X floatatom 707 14 0 0 0 0 - - -;
r@251: #X text 755 -160 Victoria Suponitsky;
r@251: #X text 197 -194 A. Rona;
r@251: #X obj 778 -105 -~ 0.25;
r@251: #X obj 194 -142 -~ 0.25;
r@251: #X text 363 -145 Has + alpha in paper but Rossiter has - ???;
r@251: #X obj 778 181 outlet~;
r@251: #X text 250 -164 h = 2;
r@251: #X obj 194 -164 sig~ 3;
r@251: #X obj 778 -127 sig~ 3;
r@251: #X obj 156 256 outlet~;
r@251: #X connect 0 0 2 0;
r@251: #X connect 0 0 2 1;
r@251: #X connect 1 0 4 0;
r@251: #X connect 2 0 3 0;
r@251: #X connect 3 0 4 1;
r@251: #X connect 4 0 5 0;
r@251: #X connect 5 0 7 1;
r@251: #X connect 6 0 7 0;
r@251: #X connect 7 0 8 0;
r@251: #X connect 8 0 9 1;
r@251: #X connect 9 0 11 0;
r@251: #X connect 9 0 13 0;
r@251: #X connect 10 0 11 0;
r@251: #X connect 11 0 12 0;
r@251: #X connect 13 0 15 0;
r@251: #X connect 14 0 13 1;
r@251: #X connect 15 0 18 0;
r@251: #X connect 15 0 48 0;
r@251: #X connect 16 0 15 1;
r@251: #X connect 17 0 18 0;
r@251: #X connect 18 0 19 0;
r@251: #X connect 26 0 28 0;
r@251: #X connect 26 0 37 0;
r@251: #X connect 27 0 26 1;
r@251: #X connect 28 0 30 0;
r@251: #X connect 29 0 28 1;
r@251: #X connect 30 0 33 0;
r@251: #X connect 30 0 44 0;
r@251: #X connect 31 0 30 1;
r@251: #X connect 32 0 33 0;
r@251: #X connect 33 0 34 0;
r@251: #X connect 36 0 37 0;
r@251: #X connect 37 0 38 0;
r@251: #X connect 41 0 26 0;
r@251: #X connect 42 0 9 0;
r@251: #X connect 46 0 42 0;
r@251: #X connect 47 0 41 0;
r@251: #X restore 643 -40 pd rossFreqD1_n=3;
r@251: #X obj 556 165 snapshot~;
r@251: #X floatatom 556 185 0 0 0 0 - - -;
r@251: #X obj 556 144 r myMet;
r@251: #N canvas 353 99 1064 659 rossFreqD1_n=4 0;
r@251: #X obj 239 -76 r~ MY_MACH;
r@251: #X obj 224 -97 sig~ 1;
r@251: #X obj 239 -51 *~;
r@251: #X obj 239 -29 *~ 0.2;
r@251: #X obj 224 -6 +~;
r@251: #X obj 224 17 sqrt~;
r@251: #X obj 209 -119 r~ MY_MACH;
r@251: #X obj 209 38 /~;
r@251: #X obj 209 60 +~ 1.7544;
r@251: #X obj 194 82 /~;
r@251: #X obj 114 75 r myMet;
r@251: #X obj 114 97 snapshot~;
r@251: #X floatatom 114 121 0 0 0 0 - - -;
r@251: #X obj 194 124 *~;
r@251: #X obj 209 103 r~ \$0-windSpeed;
r@251: #X obj 194 164 /~ 1;
r@251: #X obj 215 144 r $-thisLen;
r@251: #X obj 227 210 r myMet;
r@251: #X obj 227 231 snapshot~;
r@251: #X floatatom 227 255 0 0 0 0 - - -;
r@251: #X text 290 -34 (y-1)/2 -> y = 1.4;
r@251: #X text 254 -144 alpha = 0.25;
r@251: #X text 277 58 (1/k) -> k = 0.57;
r@251: #X text 235 278 m = 1;
r@251: #X text 838 -107 alpha = 0.25;
r@251: #X text 834 -127 m = 1;
r@251: #X obj 778 -51 /~;
r@251: #X obj 793 -80 sig~ 1.7544;
r@251: #X obj 778 -5 *~;
r@251: #X obj 793 -26 r~ \$0-windSpeed;
r@251: #X obj 778 35 /~ 1;
r@251: #X obj 799 15 r $-thisLen;
r@251: #X obj 798 61 r myMet;
r@251: #X obj 798 83 snapshot~;
r@251: #X floatatom 798 107 0 0 0 0 - - -;
r@251: #X text 875 -79 (1/k) -> k = 0.57;
r@251: #X obj 707 -32 r myMet;
r@251: #X obj 707 -10 snapshot~;
r@251: #X floatatom 707 14 0 0 0 0 - - -;
r@251: #X text 755 -160 Victoria Suponitsky;
r@251: #X text 197 -194 A. Rona;
r@251: #X obj 778 -105 -~ 0.25;
r@251: #X obj 194 -142 -~ 0.25;
r@251: #X text 363 -145 Has + alpha in paper but Rossiter has - ???;
r@251: #X obj 778 181 outlet~;
r@251: #X text 250 -164 h = 2;
r@251: #X obj 194 -164 sig~ 4;
r@251: #X obj 778 -127 sig~ 4;
r@251: #X obj 172 242 outlet~;
r@251: #X connect 0 0 2 0;
r@251: #X connect 0 0 2 1;
r@251: #X connect 1 0 4 0;
r@251: #X connect 2 0 3 0;
r@251: #X connect 3 0 4 1;
r@251: #X connect 4 0 5 0;
r@251: #X connect 5 0 7 1;
r@251: #X connect 6 0 7 0;
r@251: #X connect 7 0 8 0;
r@251: #X connect 8 0 9 1;
r@251: #X connect 9 0 11 0;
r@251: #X connect 9 0 13 0;
r@251: #X connect 10 0 11 0;
r@251: #X connect 11 0 12 0;
r@251: #X connect 13 0 15 0;
r@251: #X connect 14 0 13 1;
r@251: #X connect 15 0 18 0;
r@251: #X connect 15 0 48 0;
r@251: #X connect 16 0 15 1;
r@251: #X connect 17 0 18 0;
r@251: #X connect 18 0 19 0;
r@251: #X connect 26 0 28 0;
r@251: #X connect 26 0 37 0;
r@251: #X connect 27 0 26 1;
r@251: #X connect 28 0 30 0;
r@251: #X connect 29 0 28 1;
r@251: #X connect 30 0 33 0;
r@251: #X connect 30 0 44 0;
r@251: #X connect 31 0 30 1;
r@251: #X connect 32 0 33 0;
r@251: #X connect 33 0 34 0;
r@251: #X connect 36 0 37 0;
r@251: #X connect 37 0 38 0;
r@251: #X connect 41 0 26 0;
r@251: #X connect 42 0 9 0;
r@251: #X connect 46 0 42 0;
r@251: #X connect 47 0 41 0;
r@251: #X restore 491 117 pd rossFreqD1_n=4;
r@251: #X obj 735 169 snapshot~;
r@251: #X floatatom 735 189 0 0 0 0 - - -;
r@251: #X obj 735 148 r myMet;
r@251: #N canvas 353 99 1064 659 rossFreqD1_n=5 0;
r@251: #X obj 239 -76 r~ MY_MACH;
r@251: #X obj 224 -97 sig~ 1;
r@251: #X obj 239 -51 *~;
r@251: #X obj 239 -29 *~ 0.2;
r@251: #X obj 224 -6 +~;
r@251: #X obj 224 17 sqrt~;
r@251: #X obj 209 -119 r~ MY_MACH;
r@251: #X obj 209 38 /~;
r@251: #X obj 209 60 +~ 1.7544;
r@251: #X obj 194 82 /~;
r@251: #X obj 114 75 r myMet;
r@251: #X obj 114 97 snapshot~;
r@251: #X floatatom 114 121 0 0 0 0 - - -;
r@251: #X obj 194 124 *~;
r@251: #X obj 209 103 r~ \$0-windSpeed;
r@251: #X obj 194 164 /~ 1;
r@251: #X obj 215 144 r $-thisLen;
r@251: #X obj 227 210 r myMet;
r@251: #X obj 227 231 snapshot~;
r@251: #X floatatom 227 255 0 0 0 0 - - -;
r@251: #X text 290 -34 (y-1)/2 -> y = 1.4;
r@251: #X text 254 -144 alpha = 0.25;
r@251: #X text 277 58 (1/k) -> k = 0.57;
r@251: #X text 235 278 m = 1;
r@251: #X text 838 -107 alpha = 0.25;
r@251: #X text 834 -127 m = 1;
r@251: #X obj 778 -51 /~;
r@251: #X obj 793 -80 sig~ 1.7544;
r@251: #X obj 778 -5 *~;
r@251: #X obj 793 -26 r~ \$0-windSpeed;
r@251: #X obj 778 35 /~ 1;
r@251: #X obj 799 15 r $-thisLen;
r@251: #X obj 798 61 r myMet;
r@251: #X obj 798 83 snapshot~;
r@251: #X floatatom 798 107 0 0 0 0 - - -;
r@251: #X text 875 -79 (1/k) -> k = 0.57;
r@251: #X obj 707 -32 r myMet;
r@251: #X obj 707 -10 snapshot~;
r@251: #X floatatom 707 14 0 0 0 0 - - -;
r@251: #X text 755 -160 Victoria Suponitsky;
r@251: #X text 197 -194 A. Rona;
r@251: #X obj 778 -105 -~ 0.25;
r@251: #X obj 194 -142 -~ 0.25;
r@251: #X text 363 -145 Has + alpha in paper but Rossiter has - ???;
r@251: #X obj 778 181 outlet~;
r@251: #X text 250 -164 h = 2;
r@251: #X obj 194 -164 sig~ 5;
r@251: #X obj 778 -127 sig~ 5;
r@251: #X obj 169 218 outlet~;
r@251: #X connect 0 0 2 0;
r@251: #X connect 0 0 2 1;
r@251: #X connect 1 0 4 0;
r@251: #X connect 2 0 3 0;
r@251: #X connect 3 0 4 1;
r@251: #X connect 4 0 5 0;
r@251: #X connect 5 0 7 1;
r@251: #X connect 6 0 7 0;
r@251: #X connect 7 0 8 0;
r@251: #X connect 8 0 9 1;
r@251: #X connect 9 0 11 0;
r@251: #X connect 9 0 13 0;
r@251: #X connect 10 0 11 0;
r@251: #X connect 11 0 12 0;
r@251: #X connect 13 0 15 0;
r@251: #X connect 14 0 13 1;
r@251: #X connect 15 0 18 0;
r@251: #X connect 15 0 48 0;
r@251: #X connect 16 0 15 1;
r@251: #X connect 17 0 18 0;
r@251: #X connect 18 0 19 0;
r@251: #X connect 26 0 28 0;
r@251: #X connect 26 0 37 0;
r@251: #X connect 27 0 26 1;
r@251: #X connect 28 0 30 0;
r@251: #X connect 29 0 28 1;
r@251: #X connect 30 0 33 0;
r@251: #X connect 30 0 44 0;
r@251: #X connect 31 0 30 1;
r@251: #X connect 32 0 33 0;
r@251: #X connect 33 0 34 0;
r@251: #X connect 36 0 37 0;
r@251: #X connect 37 0 38 0;
r@251: #X connect 41 0 26 0;
r@251: #X connect 42 0 9 0;
r@251: #X connect 46 0 42 0;
r@251: #X connect 47 0 41 0;
r@251: #X restore 635 121 pd rossFreqD1_n=5;
r@251: #X obj 657 171 snapshot~;
r@251: #X floatatom 657 191 0 0 0 0 - - -;
r@251: #X obj 657 150 r myMet;
r@251: #X obj 462 166 snapshot~;
r@251: #X floatatom 462 186 0 0 0 0 - - -;
r@251: #X obj 462 145 r myMet;
r@251: #X obj 644 7 snapshot~;
r@251: #X floatatom 644 27 0 0 0 0 - - -;
r@251: #X obj 644 -14 r myMet;
r@251: #X obj 468 6 snapshot~;
r@251: #X floatatom 468 26 0 0 0 0 - - -;
r@251: #X obj 468 -15 r myMet;
r@251: #X obj 330 7 snapshot~;
r@251: #X floatatom 330 27 0 0 0 0 - - -;
r@251: #X obj 330 -14 r myMet;
r@251: #X obj 559 305 snapshot~;
r@251: #X floatatom 559 325 0 0 0 0 - - -;
r@251: #X obj 559 284 r myMet;
r@251: #X obj 481 307 snapshot~;
r@251: #X floatatom 481 327 0 0 0 0 - - -;
r@251: #X obj 481 286 r myMet;
r@251: #X obj 761 305 snapshot~;
r@251: #X floatatom 761 325 0 0 0 0 - - -;
r@251: #X obj 761 284 r myMet;
r@251: #X obj 683 307 snapshot~;
r@251: #X floatatom 683 327 0 0 0 0 - - -;
r@251: #X obj 683 286 r myMet;
r@251: #N canvas 353 99 1064 659 rossFreqD1_n=6 0;
r@251: #X obj 239 -76 r~ MY_MACH;
r@251: #X obj 224 -97 sig~ 1;
r@251: #X obj 239 -51 *~;
r@251: #X obj 239 -29 *~ 0.2;
r@251: #X obj 224 -6 +~;
r@251: #X obj 224 17 sqrt~;
r@251: #X obj 209 -119 r~ MY_MACH;
r@251: #X obj 209 38 /~;
r@251: #X obj 209 60 +~ 1.7544;
r@251: #X obj 194 82 /~;
r@251: #X obj 114 75 r myMet;
r@251: #X obj 114 97 snapshot~;
r@251: #X floatatom 114 121 0 0 0 0 - - -;
r@251: #X obj 194 124 *~;
r@251: #X obj 209 103 r~ \$0-windSpeed;
r@251: #X obj 194 164 /~ 1;
r@251: #X obj 215 144 r $-thisLen;
r@251: #X obj 227 210 r myMet;
r@251: #X obj 227 231 snapshot~;
r@251: #X floatatom 227 255 0 0 0 0 - - -;
r@251: #X text 290 -34 (y-1)/2 -> y = 1.4;
r@251: #X text 254 -144 alpha = 0.25;
r@251: #X text 277 58 (1/k) -> k = 0.57;
r@251: #X text 235 278 m = 1;
r@251: #X text 838 -107 alpha = 0.25;
r@251: #X text 834 -127 m = 1;
r@251: #X obj 778 -51 /~;
r@251: #X obj 793 -80 sig~ 1.7544;
r@251: #X obj 778 -5 *~;
r@251: #X obj 793 -26 r~ \$0-windSpeed;
r@251: #X obj 778 35 /~ 1;
r@251: #X obj 799 15 r $-thisLen;
r@251: #X obj 798 61 r myMet;
r@251: #X obj 798 83 snapshot~;
r@251: #X floatatom 798 107 0 0 0 0 - - -;
r@251: #X text 875 -79 (1/k) -> k = 0.57;
r@251: #X obj 707 -32 r myMet;
r@251: #X obj 707 -10 snapshot~;
r@251: #X floatatom 707 14 0 0 0 0 - - -;
r@251: #X text 755 -160 Victoria Suponitsky;
r@251: #X text 197 -194 A. Rona;
r@251: #X obj 778 -105 -~ 0.25;
r@251: #X obj 194 -142 -~ 0.25;
r@251: #X text 363 -145 Has + alpha in paper but Rossiter has - ???;
r@251: #X obj 778 181 outlet~;
r@251: #X text 250 -164 h = 2;
r@251: #X obj 169 218 outlet~;
r@251: #X obj 194 -164 sig~ 6;
r@251: #X obj 778 -127 sig~ 6;
r@251: #X connect 0 0 2 0;
r@251: #X connect 0 0 2 1;
r@251: #X connect 1 0 4 0;
r@251: #X connect 2 0 3 0;
r@251: #X connect 3 0 4 1;
r@251: #X connect 4 0 5 0;
r@251: #X connect 5 0 7 1;
r@251: #X connect 6 0 7 0;
r@251: #X connect 7 0 8 0;
r@251: #X connect 8 0 9 1;
r@251: #X connect 9 0 11 0;
r@251: #X connect 9 0 13 0;
r@251: #X connect 10 0 11 0;
r@251: #X connect 11 0 12 0;
r@251: #X connect 13 0 15 0;
r@251: #X connect 14 0 13 1;
r@251: #X connect 15 0 18 0;
r@251: #X connect 15 0 46 0;
r@251: #X connect 16 0 15 1;
r@251: #X connect 17 0 18 0;
r@251: #X connect 18 0 19 0;
r@251: #X connect 26 0 28 0;
r@251: #X connect 26 0 37 0;
r@251: #X connect 27 0 26 1;
r@251: #X connect 28 0 30 0;
r@251: #X connect 29 0 28 1;
r@251: #X connect 30 0 33 0;
r@251: #X connect 30 0 44 0;
r@251: #X connect 31 0 30 1;
r@251: #X connect 32 0 33 0;
r@251: #X connect 33 0 34 0;
r@251: #X connect 36 0 37 0;
r@251: #X connect 37 0 38 0;
r@251: #X connect 41 0 26 0;
r@251: #X connect 42 0 9 0;
r@251: #X connect 47 0 42 0;
r@251: #X connect 48 0 41 0;
r@251: #X restore 459 257 pd rossFreqD1_n=6;
r@251: #N canvas 353 99 1064 659 rossFreqD1_n=7 0;
r@251: #X obj 239 -76 r~ MY_MACH;
r@251: #X obj 224 -97 sig~ 1;
r@251: #X obj 239 -51 *~;
r@251: #X obj 239 -29 *~ 0.2;
r@251: #X obj 224 -6 +~;
r@251: #X obj 224 17 sqrt~;
r@251: #X obj 209 -119 r~ MY_MACH;
r@251: #X obj 209 38 /~;
r@251: #X obj 209 60 +~ 1.7544;
r@251: #X obj 194 82 /~;
r@251: #X obj 114 75 r myMet;
r@251: #X obj 114 97 snapshot~;
r@251: #X floatatom 114 121 0 0 0 0 - - -;
r@251: #X obj 194 124 *~;
r@251: #X obj 209 103 r~ \$0-windSpeed;
r@251: #X obj 194 164 /~ 1;
r@251: #X obj 215 144 r $-thisLen;
r@251: #X obj 227 210 r myMet;
r@251: #X obj 227 231 snapshot~;
r@251: #X floatatom 227 255 0 0 0 0 - - -;
r@251: #X text 290 -34 (y-1)/2 -> y = 1.4;
r@251: #X text 254 -144 alpha = 0.25;
r@251: #X text 277 58 (1/k) -> k = 0.57;
r@251: #X text 235 278 m = 1;
r@251: #X text 838 -107 alpha = 0.25;
r@251: #X text 834 -127 m = 1;
r@251: #X obj 778 -51 /~;
r@251: #X obj 793 -80 sig~ 1.7544;
r@251: #X obj 778 -5 *~;
r@251: #X obj 793 -26 r~ \$0-windSpeed;
r@251: #X obj 778 35 /~ 1;
r@251: #X obj 799 15 r $-thisLen;
r@251: #X obj 798 61 r myMet;
r@251: #X obj 798 83 snapshot~;
r@251: #X floatatom 798 107 0 0 0 0 - - -;
r@251: #X text 875 -79 (1/k) -> k = 0.57;
r@251: #X obj 707 -32 r myMet;
r@251: #X obj 707 -10 snapshot~;
r@251: #X floatatom 707 14 0 0 0 0 - - -;
r@251: #X text 755 -160 Victoria Suponitsky;
r@251: #X text 197 -194 A. Rona;
r@251: #X obj 778 -105 -~ 0.25;
r@251: #X obj 194 -142 -~ 0.25;
r@251: #X text 363 -145 Has + alpha in paper but Rossiter has - ???;
r@251: #X obj 778 181 outlet~;
r@251: #X text 250 -164 h = 2;
r@251: #X obj 169 218 outlet~;
r@251: #X obj 194 -164 sig~ 7;
r@251: #X obj 778 -127 sig~ 7;
r@251: #X connect 0 0 2 0;
r@251: #X connect 0 0 2 1;
r@251: #X connect 1 0 4 0;
r@251: #X connect 2 0 3 0;
r@251: #X connect 3 0 4 1;
r@251: #X connect 4 0 5 0;
r@251: #X connect 5 0 7 1;
r@251: #X connect 6 0 7 0;
r@251: #X connect 7 0 8 0;
r@251: #X connect 8 0 9 1;
r@251: #X connect 9 0 11 0;
r@251: #X connect 9 0 13 0;
r@251: #X connect 10 0 11 0;
r@251: #X connect 11 0 12 0;
r@251: #X connect 13 0 15 0;
r@251: #X connect 14 0 13 1;
r@251: #X connect 15 0 18 0;
r@251: #X connect 15 0 46 0;
r@251: #X connect 16 0 15 1;
r@251: #X connect 17 0 18 0;
r@251: #X connect 18 0 19 0;
r@251: #X connect 26 0 28 0;
r@251: #X connect 26 0 37 0;
r@251: #X connect 27 0 26 1;
r@251: #X connect 28 0 30 0;
r@251: #X connect 29 0 28 1;
r@251: #X connect 30 0 33 0;
r@251: #X connect 30 0 44 0;
r@251: #X connect 31 0 30 1;
r@251: #X connect 32 0 33 0;
r@251: #X connect 33 0 34 0;
r@251: #X connect 36 0 37 0;
r@251: #X connect 37 0 38 0;
r@251: #X connect 41 0 26 0;
r@251: #X connect 42 0 9 0;
r@251: #X connect 47 0 42 0;
r@251: #X connect 48 0 41 0;
r@251: #X restore 661 257 pd rossFreqD1_n=7;
r@201: #X connect 0 0 2 0;
r@201: #X connect 1 0 3 0;
r@201: #X connect 2 0 1 0;
r@238: #X connect 8 0 10 0;
r@201: #X connect 9 0 5 0;
r@238: #X connect 9 1 6 0;
r@238: #X connect 10 0 11 0;
r@238: #X connect 11 0 9 0;
r@238: #X connect 11 0 13 0;
r@238: #X connect 12 0 11 0;
r@201: #X connect 14 0 15 0;
r@251: #X connect 14 0 41 0;
r@238: #X connect 16 0 17 0;
r@251: #X connect 16 0 43 0;
r@201: #X connect 18 0 19 0;
r@251: #X connect 18 0 42 0;
r@238: #X connect 21 0 25 0;
r@238: #X connect 21 0 32 0;
r@238: #X connect 21 0 33 0;
r@238: #X connect 22 0 23 0;
r@238: #X connect 23 0 27 0;
r@238: #X connect 23 0 20 0;
r@238: #X connect 24 0 34 0;
r@238: #X connect 26 0 21 0;
r@238: #X connect 27 0 28 0;
r@238: #X connect 30 0 21 0;
r@238: #X connect 31 0 27 0;
r@238: #X connect 32 0 22 1;
r@238: #X connect 33 0 23 1;
r@201: #X connect 34 0 36 0;
r@238: #X connect 34 0 39 0;
r@238: #X connect 35 0 32 1;
r@238: #X connect 35 1 32 0;
r@238: #X connect 36 0 35 0;
r@238: #X connect 37 0 34 0;
r@238: #X connect 38 0 21 0;
r@238: #X connect 39 0 22 0;
r@251: #X connect 40 0 47 0;
r@251: #X connect 45 0 44 0;
r@251: #X connect 47 0 48 0;
r@251: #X connect 48 0 56 0;
r@251: #X connect 49 0 47 0;
r@251: #X connect 50 0 51 0;
r@251: #X connect 51 0 53 1;
r@251: #X connect 51 0 56 1;
r@251: #X connect 52 0 50 0;
r@251: #X connect 53 0 54 0;
r@251: #X connect 53 0 55 0;
r@251: #X connect 54 0 58 0;
r@251: #X connect 56 0 57 0;
r@251: #X connect 57 0 53 0;
r@251: #X connect 58 0 59 0;
r@251: #X connect 60 0 89 0;
r@251: #X connect 60 1 50 0;
r@251: #X connect 61 0 62 0;
r@251: #X connect 63 0 61 0;
r@251: #X connect 64 0 86 0;
r@251: #X connect 64 1 61 0;
r@251: #X connect 65 0 66 0;
r@251: #X connect 67 0 65 0;
r@251: #X connect 68 0 83 0;
r@251: #X connect 68 1 65 0;
r@251: #X connect 69 0 70 0;
r@251: #X connect 71 0 69 0;
r@251: #X connect 72 0 80 0;
r@251: #X connect 72 1 69 0;
r@251: #X connect 73 0 74 0;
r@251: #X connect 75 0 73 0;
r@251: #X connect 76 0 77 0;
r@251: #X connect 76 1 73 0;
r@251: #X connect 77 0 78 0;
r@251: #X connect 79 0 77 0;
r@251: #X connect 80 0 81 0;
r@251: #X connect 82 0 80 0;
r@251: #X connect 83 0 84 0;
r@251: #X connect 85 0 83 0;
r@251: #X connect 86 0 87 0;
r@251: #X connect 88 0 86 0;
r@251: #X connect 89 0 90 0;
r@251: #X connect 91 0 89 0;
r@251: #X connect 92 0 93 0;
r@251: #X connect 94 0 92 0;
r@251: #X connect 95 0 96 0;
r@251: #X connect 97 0 95 0;
r@251: #X connect 98 0 99 0;
r@251: #X connect 100 0 98 0;
r@251: #X connect 101 0 102 0;
r@251: #X connect 103 0 101 0;
r@251: #X connect 104 0 95 0;
r@251: #X connect 104 1 92 0;
r@251: #X connect 105 0 101 0;
r@251: #X connect 105 1 98 0;