view CavD5.pd @ 1:88c2acdaa49a

Patches altered to account for additional factor.

#N canvas 267 25 1287 823 10;
#X obj -172 -182 loadbang;
#X obj -172 -145 metro 10;
#X obj -172 -162 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj -172 -123 s myMet;
#N canvas 20 383 344 123 machCalc 0;
#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;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X restore 159 -181 pd machCalc;
#X obj -162 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj -99 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text -102 376 Gain;
#X obj -154 347 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 -163 424 pd opLevels;
#X obj -160 395 hsl 250 25 0.0001 1e+09 1 0 empty empty empty -2 -8
0 10 -262144 -1 -1 5747 1;
#X obj -163 324 r GAIN;
#X floatatom -220 425 8 0 0 0 - - -;
#X obj 436 -178 hsl 100 25 0.0001 10 1 0 empty empty Length 3 13 0
10 -262144 -1 -1 3274 1;
#X floatatom 481 -147 0 0 0 0 - - -;
#X obj 550 -178 hsl 100 25 0.0001 10 1 0 empty empty Width 3 13 0 10
-262144 -1 -1 5501 1;
#X floatatom 595 -148 0 0 0 0 - - -;
#X obj 664 -178 hsl 100 25 0.0001 10 1 0 empty empty Depth 3 13 0 10
-262144 -1 -1 2329 1;
#X floatatom 712 -149 0 0 0 0 - - -;
#X obj -41 -3 delwrite~ varwind 3000;
#X obj 70 -127 hsl 100 15 0 100 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj -39 -83 *~ 1;
#X obj -39 -61 +~ 1;
#X obj -39 -185 loadbang;
#X floatatom 108 -104 0 0 0 0 - - -;
#X obj 67 -151 r SPEED;
#X obj 100 -37 snapshot~;
#X floatatom 100 -17 0 0 0 0 - - -;
#X msg 122 -150 20;
#X obj 100 -58 r myMet;
#X obj 30 -104 * 0.5;
#X obj 67 -104 * 0.88;
#X obj -36 -161 hsl 50 30 0 1 0 0 empty empty Gusts 2 8 0 10 -261995
-1 -4032 0 1;
#X obj 29 -130 t f b;
#X obj 28 -152 * 0.75;
#X obj 156 -149 r underWind;
#X obj -39 -109 windGenD1;
#X obj -172 -99 vd~ varwind;
#X obj 315 -66 snapshot~;
#X floatatom 315 -46 0 0 0 0 - - -;
#X obj 315 -87 r myMet;
#X obj 248 -88 r~ MY_MACH;
#X obj 522 527 s depth;
#X obj 501 548 s width;
#X obj 480 569 s length;
#X obj 661 -199 r depth;
#X obj 547 -199 r width;
#X obj 433 -199 r length;
#X obj -94 -27 line~;
#X text -81 52 St_1;
#X msg 433 -148 \$1 20;
#X obj 433 -128 line~;
#X msg 547 -150 \$1 20;
#X obj 547 -130 line~;
#X msg 661 -150 \$1 20;
#X obj 661 -130 line~;
#X obj 776 -197 noise~;
#X obj 886 -207 loadbang;
#X msg 886 -187 0.5;
#X obj 886 -143 s \$0-thisPan;
#X obj 193 -42 *~ 2.23694;
#X obj 260 -27 snapshot~;
#X floatatom 260 -7 0 0 0 0 - - -;
#X obj 260 -48 r myMet;
#X text 237 10 Wind Speed (MPH);
#X text 97 1 Wind Speed (m/s);
#N canvas 6 42 1356 774 Conditions 0;
#X obj 295 127 /~;
#N canvas 795 163 450 300 Re_theta 0;
#X obj 135 66 *~ 1.225;
#X obj 135 110 *~;
#X obj 135 135 /~ 1.8e-05;
#X obj 135 164 outlet~;
#X obj 135 43 r~ windSpeed;
#X obj 89 183 s~ thisRe_Theta;
#X obj 312 109 inlet~;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 5 0;
#X connect 4 0 0 0;
#X connect 6 0 1 1;
#X restore 280 312 pd Re_theta;
#X obj 280 334 sqrt~;
#X obj 265 356 /~;
#X obj 265 382 *~;
#X obj 280 272 sig~ 325;
#X obj 250 426 -~;
#X obj 205 466 sig~ 1;
#X obj 250 467 exp~;
#X obj 220 509 /~;
#X obj 235 488 +~;
#X obj 205 530 -~;
#X obj 250 447 *~ 100000;
#X obj 357 468 /~;
#X obj 327 399 sig~ 1;
#X obj 357 536 exp~;
#X obj 327 582 /~;
#X obj 342 557 +~;
#X obj 357 513 *~ 10;
#X obj 268 59 sig~ 1;
#X obj 295 189 exp~;
#X obj 265 230 /~;
#X obj 280 210 +~;
#X obj 295 148 -~ 0.2;
#X obj 295 169 *~ 100;
#X obj 265 252 *~ 250;
#X obj 265 292 +~;
#X text 122 5 Sharohia - Fig 4 Minimum values below which no oscillations
occur;
#X obj 312 609 *~;
#X text 345 138 If d/(shear_thickness) < 0.2 the non-dimensional length
increases (Sharohia Fig 4).;
#X obj 357 420 r~ thisLen;
#X obj 372 441 r~ thisDep;
#X obj 295 83 r~ thisDep;
#X obj 250 403 r~ thisLen;
#X obj 829 377 s~ \$0-thisCond;
#X obj 453 601 snapshot~;
#X floatatom 453 621 0 0 0 0 - - -;
#X obj 453 580 r myMet;
#X obj 357 492 -~ 9.5;
#X text 404 477 This tests for open/closed cavities. 9.5 as a compramise
between 11 for supersonic (Charwat et al) and 8 for subsonic - Sharohia
(Intro);
#X obj 406 220 r~ effectShearThick_0;
#X obj 761 377 outlet~;
#X obj 406 242 *~ 8;
#X obj 859 219 /~;
#X obj 829 150 sig~ 1;
#X obj 859 287 exp~;
#X obj 829 333 /~;
#X obj 844 308 +~;
#X obj 859 264 *~ 10;
#X obj 859 171 r~ thisLen;
#X obj 874 192 r~ thisDep;
#X obj 947 363 snapshot~;
#X floatatom 947 383 0 0 0 0 - - -;
#X obj 947 342 r myMet;
#X obj 859 243 -~ 9.5;
#X text 906 228 This tests for open/closed cavities. 9.5 as a compramise
between 11 for supersonic (Charwat et al) and 8 for subsonic - Sharohia
(Intro);
#X text 154 673 This part of the patch was missed out. It is taken
form Sarohia paper but if accurate then Howe's test conditions would
not produce any tone.;
#X connect 0 0 23 0;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 6 1;
#X connect 5 0 26 1;
#X connect 6 0 12 0;
#X connect 7 0 9 0;
#X connect 7 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 10 1;
#X connect 9 0 11 1;
#X connect 10 0 9 1;
#X connect 11 0 28 0;
#X connect 12 0 8 0;
#X connect 13 0 38 0;
#X connect 14 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 17 1;
#X connect 16 0 28 1;
#X connect 17 0 16 1;
#X connect 18 0 15 0;
#X connect 19 0 21 0;
#X connect 19 0 22 0;
#X connect 20 0 22 1;
#X connect 21 0 25 0;
#X connect 22 0 21 1;
#X connect 23 0 24 0;
#X connect 24 0 20 0;
#X connect 25 0 26 0;
#X connect 26 0 3 0;
#X connect 28 0 35 0;
#X connect 30 0 13 0;
#X connect 31 0 13 1;
#X connect 32 0 0 0;
#X connect 33 0 6 0;
#X connect 35 0 36 0;
#X connect 37 0 35 0;
#X connect 38 0 18 0;
#X connect 40 0 42 0;
#X connect 42 0 4 1;
#X connect 42 0 0 1;
#X connect 42 0 1 0;
#X connect 43 0 54 0;
#X connect 44 0 46 0;
#X connect 44 0 47 0;
#X connect 45 0 47 1;
#X connect 46 0 51 0;
#X connect 46 0 34 0;
#X connect 46 0 41 0;
#X connect 47 0 46 1;
#X connect 48 0 45 0;
#X connect 49 0 43 0;
#X connect 50 0 43 1;
#X connect 51 0 52 0;
#X connect 53 0 51 0;
#X connect 54 0 48 0;
#X restore 845 94 pd Conditions;
#X msg 240 -150 12;
#X text 312 88 Mass Density of Air;
#X obj 432 89 *~ 1.225;
#X obj 432 128 /~ 1.81e-05;
#X text 444 169 Reynolds Number;
#X text 462 108 Viscosity;
#X obj 432 149 s~ \$0-myRey;
#X obj 432 109 *~;
#X msg 274 -152 15;
#X obj -105 143 snapshot~;
#X floatatom -105 163 0 0 0 0 - - -;
#X obj 20 141 snapshot~;
#X floatatom 20 161 0 0 0 0 - - -;
#X obj 54 113 r myMet;
#X obj 141 141 snapshot~;
#X floatatom 141 161 0 0 0 0 - - -;
#X obj 265 142 snapshot~;
#X floatatom 265 162 0 0 0 0 - - -;
#X floatatom 880 -50 0 0 0 0 - - -;
#X msg 813 -29 \$1 20;
#X obj 813 -9 line~;
#X obj 816 -78 hsl 100 25 180 0 0 0 empty empty Elevation 3 13 0 10
-262144 -1 -1 8250 1;
#X msg 813 -106 30;
#X obj 813 -49 / 360;
#X obj 813 35 s~ thisEle;
#X obj -172 -79 s~ windSpeed;
#X obj 432 68 r~ windSpeed;
#X obj 433 -107 s~ thisLen;
#X obj 547 -109 s~ thisWid;
#X obj 661 -109 s~ thisDep;
#X obj 493 88 r~ thisLen;
#X obj 776 -176 s~ \$0-thisNoise;
#X obj -168 147 snapshot~;
#X floatatom -168 167 0 0 0 0 - - -;
#X obj -42 142 snapshot~;
#X floatatom -42 162 0 0 0 0 - - -;
#X obj 80 141 snapshot~;
#X floatatom 80 161 0 0 0 0 - - -;
#X obj 203 142 snapshot~;
#X floatatom 203 162 0 0 0 0 - - -;
#N canvas 91 29 1271 683 rossFreqD1_n=1-4 0;
#X obj 152 -70 r~ MY_MACH;
#X obj 137 -91 sig~ 1;
#X obj 152 -45 *~;
#X obj 152 -23 *~ 0.2;
#X obj 137 0 +~;
#X obj 137 23 sqrt~;
#X obj 122 -113 r~ MY_MACH;
#X obj 122 44 /~;
#X obj 107 88 /~;
#X obj 27 81 r myMet;
#X obj 27 103 snapshot~;
#X floatatom 27 127 0 0 0 0 - - -;
#X obj 107 130 *~;
#X obj 140 216 r myMet;
#X obj 140 237 snapshot~;
#X floatatom 140 261 0 0 0 0 - - -;
#X text 203 -28 (y-1)/2 -> y = 1.4;
#X text 167 -138 alpha = 0.25;
#X text 190 64 (1/k) -> k = 0.57;
#X text 148 284 m = 1;
#X text 163 -158 h = 1;
#X text 46 -176 A. Rona;
#X obj 107 -136 -~ 0.25;
#X text 7 -200 Has + alpha in paper but Rossiter has - ???;
#X obj 56 256 outlet~;
#X text 186 -6 Heller \, Holmes & Covert;
#X obj 15 208 outlet~;
#X obj 107 170 /~;
#X obj 122 66 +~ 1.7544;
#X obj 107 -158 sig~ 1;
#X obj 499 -79 r~ MY_MACH;
#X obj 484 -100 sig~ 1;
#X obj 499 -54 *~;
#X obj 499 -32 *~ 0.2;
#X obj 484 -9 +~;
#X obj 484 14 sqrt~;
#X obj 469 -122 r~ MY_MACH;
#X obj 469 35 /~;
#X obj 454 79 /~;
#X obj 374 72 r myMet;
#X obj 374 94 snapshot~;
#X floatatom 374 118 0 0 0 0 - - -;
#X obj 454 121 *~;
#X obj 487 207 r myMet;
#X obj 487 228 snapshot~;
#X floatatom 487 252 0 0 0 0 - - -;
#X text 550 -37 (y-1)/2 -> y = 1.4;
#X text 514 -147 alpha = 0.25;
#X text 537 55 (1/k) -> k = 0.57;
#X obj 454 -145 -~ 0.25;
#X obj 403 247 outlet~;
#X text 528 -14 Heller \, Holmes & Covert;
#X obj 362 199 outlet~;
#X obj 454 161 /~;
#X obj 469 57 +~ 1.7544;
#X obj 454 -167 sig~ 2;
#X text 510 -167 h = 2;
#X text 495 275 m = 2;
#X obj 803 -72 r~ MY_MACH;
#X obj 788 -93 sig~ 1;
#X obj 803 -47 *~;
#X obj 803 -25 *~ 0.2;
#X obj 788 -2 +~;
#X obj 788 21 sqrt~;
#X obj 773 -115 r~ MY_MACH;
#X obj 773 42 /~;
#X obj 758 86 /~;
#X obj 678 79 r myMet;
#X obj 678 101 snapshot~;
#X floatatom 678 125 0 0 0 0 - - -;
#X obj 758 128 *~;
#X obj 791 214 r myMet;
#X obj 791 235 snapshot~;
#X floatatom 791 259 0 0 0 0 - - -;
#X text 854 -30 (y-1)/2 -> y = 1.4;
#X text 818 -140 alpha = 0.25;
#X text 841 62 (1/k) -> k = 0.57;
#X obj 758 -138 -~ 0.25;
#X obj 707 254 outlet~;
#X text 836 -5 Heller \, Holmes & Covert;
#X obj 666 206 outlet~;
#X obj 758 168 /~;
#X obj 773 64 +~ 1.7544;
#X obj 1092 -66 r~ MY_MACH;
#X obj 1077 -87 sig~ 1;
#X obj 1092 -41 *~;
#X obj 1092 -19 *~ 0.2;
#X obj 1077 4 +~;
#X obj 1077 27 sqrt~;
#X obj 1062 -109 r~ MY_MACH;
#X obj 1062 48 /~;
#X obj 1047 92 /~;
#X obj 967 85 r myMet;
#X obj 967 107 snapshot~;
#X floatatom 967 131 0 0 0 0 - - -;
#X obj 1047 134 *~;
#X obj 1080 220 r myMet;
#X obj 1080 241 snapshot~;
#X floatatom 1080 265 0 0 0 0 - - -;
#X text 1143 -24 (y-1)/2 -> y = 1.4;
#X text 1107 -134 alpha = 0.25;
#X text 1130 68 (1/k) -> k = 0.57;
#X obj 1047 -132 -~ 0.25;
#X obj 996 260 outlet~;
#X text 1116 -1 Heller \, Holmes & Covert;
#X obj 955 212 outlet~;
#X obj 1047 174 /~;
#X obj 1062 70 +~ 1.7544;
#X obj 758 -160 sig~ 3;
#X obj 1047 -154 sig~ 4;
#X text 799 282 m = 3;
#X text 814 -160 h = 3;
#X text 1103 -154 h = 4;
#X text 1088 288 m = 4;
#X obj 122 109 r~ windSpeed;
#X obj 469 100 r~ windSpeed;
#X obj 773 107 r~ windSpeed;
#X obj 1062 113 r~ windSpeed;
#X obj 1068 154 r~ thisLen;
#X obj 779 148 r~ thisLen;
#X obj 475 141 r~ thisLen;
#X obj 128 150 r~ thisLen;
#X connect 0 0 2 0;
#X connect 0 0 2 1;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 7 1;
#X connect 6 0 7 0;
#X connect 7 0 28 0;
#X connect 8 0 12 0;
#X connect 8 0 10 0;
#X connect 8 0 26 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 12 0 27 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 22 0 8 0;
#X connect 27 0 14 0;
#X connect 27 0 24 0;
#X connect 28 0 8 1;
#X connect 29 0 22 0;
#X connect 30 0 32 0;
#X connect 30 0 32 1;
#X connect 31 0 34 0;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 37 1;
#X connect 36 0 37 0;
#X connect 37 0 54 0;
#X connect 38 0 42 0;
#X connect 38 0 40 0;
#X connect 38 0 52 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 42 0 53 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 49 0 38 0;
#X connect 53 0 44 0;
#X connect 53 0 50 0;
#X connect 54 0 38 1;
#X connect 55 0 49 0;
#X connect 58 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 62 0;
#X connect 60 0 61 0;
#X connect 61 0 62 1;
#X connect 62 0 63 0;
#X connect 63 0 65 1;
#X connect 64 0 65 0;
#X connect 65 0 82 0;
#X connect 66 0 70 0;
#X connect 66 0 68 0;
#X connect 66 0 80 0;
#X connect 67 0 68 0;
#X connect 68 0 69 0;
#X connect 70 0 81 0;
#X connect 71 0 72 0;
#X connect 72 0 73 0;
#X connect 77 0 66 0;
#X connect 81 0 72 0;
#X connect 81 0 78 0;
#X connect 82 0 66 1;
#X connect 83 0 85 0;
#X connect 83 0 85 1;
#X connect 84 0 87 0;
#X connect 85 0 86 0;
#X connect 86 0 87 1;
#X connect 87 0 88 0;
#X connect 88 0 90 1;
#X connect 89 0 90 0;
#X connect 90 0 107 0;
#X connect 91 0 95 0;
#X connect 91 0 93 0;
#X connect 91 0 105 0;
#X connect 92 0 93 0;
#X connect 93 0 94 0;
#X connect 95 0 106 0;
#X connect 96 0 97 0;
#X connect 97 0 98 0;
#X connect 102 0 91 0;
#X connect 106 0 97 0;
#X connect 106 0 103 0;
#X connect 107 0 91 1;
#X connect 108 0 77 0;
#X connect 109 0 102 0;
#X connect 114 0 12 1;
#X connect 115 0 42 1;
#X connect 116 0 70 1;
#X connect 117 0 95 1;
#X connect 118 0 106 1;
#X connect 119 0 81 1;
#X connect 120 0 53 1;
#X connect 121 0 27 1;
#X restore -47 39 pd rossFreqD1_n=1-4;
#X obj 603 -18 s \$0-Qval;
#X obj 606 -37 hsl 50 15 1 60 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 1940 1;
#X obj 603 -77 loadbang;
#X obj 889 -165 hsl 50 20 0.01 0.99 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 2450 1;
#X floatatom 501 -12 0 0 0 0 - - -;
#X msg 434 -11 \$1 20;
#X obj 434 9 line~;
#X obj 437 -40 hsl 100 25 0.1 50 0 0 empty empty Distance 3 13 0 10
-262144 -1 -1 179 1;
#X obj 434 30 s~ thisDist;
#X obj 873 372 loadbang;
#X obj 813 -128 loadbang;
#X obj 434 -80 loadbang;
#N canvas 137 142 402 461 Monopole 0;
#X obj 211 382 throw~ l;
#X obj 238 359 throw~ r;
#X obj 211 338 fcpan;
#X obj 238 316 r \$0-thisPan;
#X obj 210 89 r~ \$0-thisNoise;
#X obj 270 109 r \$0-Qval;
#X floatatom 277 144 5 0 0 0 - - -;
#X obj 210 245 *~;
#X obj 72 12 inlet~;
#X obj 225 223 inlet~;
#X obj 210 130 vcf~ 30;
#X obj 210 152 vcf~ 30;
#N canvas 304 98 361 372 rangeLimit 0;
#X obj 285 58 inlet~;
#X obj 128 282 outlet~;
#X obj 103 60 sig~ 1;
#X obj 117 145 exp~;
#X obj 87 186 /~;
#X obj 102 166 +~;
#X obj 118 104 -~ 1;
#X obj 117 125 *~ 100;
#X obj 87 207 *~ -1;
#X obj 87 228 +~ 1;
#X obj 163 87 sig~ 1;
#X obj 173 173 exp~;
#X obj 143 214 /~;
#X obj 158 194 +~;
#X obj 173 130 -~ 1;
#X obj 173 108 /~ 20000;
#X obj 173 151 *~ 1000;
#X obj 128 259 *~;
#X obj 118 81 /~ 80;
#X connect 0 0 15 0;
#X connect 0 0 18 0;
#X connect 2 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 5 1;
#X connect 4 0 8 0;
#X connect 5 0 4 1;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 17 0;
#X connect 10 0 12 0;
#X connect 10 0 13 0;
#X connect 11 0 13 1;
#X connect 12 0 17 1;
#X connect 13 0 12 1;
#X connect 14 0 16 0;
#X connect 15 0 14 0;
#X connect 16 0 11 0;
#X connect 17 0 1 0;
#X connect 18 0 6 0;
#X restore 93 107 pd rangeLimit;
#X text 40 -33 Generates the sound associated with the resonant cavity
monopole.;
#X obj 149 349 outlet~;
#X obj 149 327 *~;
#X obj 315 274 snapshot~;
#X floatatom 315 294 0 0 0 0 - - -;
#X obj 315 253 r myMet;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 2 1;
#X connect 4 0 10 0;
#X connect 5 0 6 0;
#X connect 5 0 10 2;
#X connect 5 0 11 2;
#X connect 7 0 2 0;
#X connect 8 0 12 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 9 0 7 1;
#X connect 10 0 11 0;
#X connect 11 0 7 0;
#X connect 12 0 15 0;
#X connect 15 0 14 0;
#X connect 16 0 17 0;
#X connect 18 0 16 0;
#X restore 83 508 pd Monopole;
#N canvas 570 67 638 485 Dipoles 0;
#X obj 132 230 *~;
#X obj 132 355 throw~ l;
#X obj 159 332 throw~ r;
#X obj 132 311 fcpan;
#X obj 159 289 r \$0-thisPan;
#X obj 132 119 r~ \$0-thisNoise;
#X obj 192 139 r \$0-Qval;
#X floatatom 199 174 5 0 0 0 - - -;
#X obj 132 160 vcf~ 30;
#X obj 132 182 vcf~ 30;
#X obj 249 68 inlet~;
#N canvas 304 98 361 372 rangeLimit 0;
#X obj 285 58 inlet~;
#X obj 128 282 outlet~;
#X obj 103 60 sig~ 1;
#X obj 117 145 exp~;
#X obj 87 186 /~;
#X obj 102 166 +~;
#X obj 118 104 -~ 1;
#X obj 117 125 *~ 100;
#X obj 87 207 *~ -1;
#X obj 87 228 +~ 1;
#X obj 163 87 sig~ 1;
#X obj 173 173 exp~;
#X obj 143 214 /~;
#X obj 158 194 +~;
#X obj 173 130 -~ 1;
#X obj 173 151 *~ 1000;
#X obj 128 259 *~;
#X obj 173 108 /~ 15000;
#X obj 118 81 /~ 80;
#X connect 0 0 17 0;
#X connect 0 0 18 0;
#X connect 2 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 5 1;
#X connect 4 0 8 0;
#X connect 5 0 4 1;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 16 0;
#X connect 10 0 12 0;
#X connect 10 0 13 0;
#X connect 11 0 13 1;
#X connect 12 0 16 1;
#X connect 13 0 12 1;
#X connect 14 0 15 0;
#X connect 15 0 11 0;
#X connect 16 0 1 0;
#X connect 17 0 14 0;
#X connect 18 0 6 0;
#X restore 14 144 pd rangeLimit;
#X obj 132 274 *~;
#X obj 147 252 r~ \$0-thisCond;
#X obj 276 338 snapshot~;
#X floatatom 276 358 0 0 0 0 - - -;
#X obj 276 317 r myMet;
#X obj 263 378 outlet;
#X obj 147 204 HoweIntensityDipoleD2;
#X connect 0 0 12 0;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 4 0 3 1;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 6 0 8 2;
#X connect 6 0 9 2;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 10 0 11 0;
#X connect 10 0 8 1;
#X connect 10 0 9 1;
#X connect 10 0 18 0;
#X connect 12 0 3 0;
#X connect 13 0 12 1;
#X connect 14 0 15 0;
#X connect 14 0 17 0;
#X connect 16 0 14 0;
#X connect 18 0 0 1;
#X connect 18 0 14 0;
#X restore -96 219 pd Dipoles;
#X msg 434 -61 1;
#X floatatom 665 -19 0 0 0 0 - - -;
#X msg 603 -57 40;
#N canvas 570 67 638 485 Dipoles 0;
#X obj 132 233 *~;
#X obj 132 359 throw~ l;
#X obj 159 336 throw~ r;
#X obj 132 315 fcpan;
#X obj 159 293 r \$0-thisPan;
#X obj 132 119 r~ \$0-thisNoise;
#X obj 192 139 r \$0-Qval;
#X floatatom 199 174 5 0 0 0 - - -;
#X obj 132 160 vcf~ 30;
#X obj 132 182 vcf~ 30;
#X obj 249 68 inlet~;
#X obj 132 278 *~;
#X obj 147 255 r~ \$0-thisCond;
#X obj 280 336 snapshot~;
#X floatatom 280 356 0 0 0 0 - - -;
#X obj 280 315 r myMet;
#X obj 267 376 outlet;
#X obj 147 208 HoweIntensityDipoleD2;
#X connect 0 0 11 0;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 4 0 3 1;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 6 0 8 2;
#X connect 6 0 9 2;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 10 0 8 1;
#X connect 10 0 9 1;
#X connect 10 0 17 0;
#X connect 11 0 3 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 13 0 16 0;
#X connect 15 0 13 0;
#X connect 17 0 13 0;
#X connect 17 0 0 1;
#X restore 7 223 pd Dipoles;
#N canvas 570 67 638 485 Dipoles 0;
#X obj 132 228 *~;
#X obj 132 352 throw~ l;
#X obj 159 329 throw~ r;
#X obj 132 308 fcpan;
#X obj 159 286 r \$0-thisPan;
#X obj 132 119 r~ \$0-thisNoise;
#X obj 192 139 r \$0-Qval;
#X floatatom 199 174 5 0 0 0 - - -;
#X obj 132 160 vcf~ 30;
#X obj 132 182 vcf~ 30;
#X obj 249 68 inlet~;
#X obj 132 271 *~;
#X obj 147 250 r~ \$0-thisCond;
#X obj 291 367 snapshot~;
#X floatatom 291 387 0 0 0 0 - - -;
#X obj 291 346 r myMet;
#X obj 278 407 outlet;
#X obj 147 203 HoweIntensityDipoleD2;
#X connect 0 0 11 0;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 4 0 3 1;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 6 0 8 2;
#X connect 6 0 9 2;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 10 0 8 1;
#X connect 10 0 9 1;
#X connect 10 0 17 0;
#X connect 11 0 3 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 13 0 16 0;
#X connect 15 0 13 0;
#X connect 17 0 13 0;
#X connect 17 0 0 1;
#X restore 103 229 pd Dipoles;
#N canvas 570 67 638 485 Dipoles 0;
#X obj 132 232 *~;
#X obj 132 357 throw~ l;
#X obj 159 334 throw~ r;
#X obj 132 313 fcpan;
#X obj 159 291 r \$0-thisPan;
#X obj 132 119 r~ \$0-thisNoise;
#X obj 192 139 r \$0-Qval;
#X floatatom 199 174 5 0 0 0 - - -;
#X obj 132 160 vcf~ 30;
#X obj 132 182 vcf~ 30;
#X obj 249 68 inlet~;
#X obj 271 347 snapshot~;
#X floatatom 271 367 0 0 0 0 - - -;
#X obj 271 326 r myMet;
#X obj 132 276 *~;
#X obj 147 254 r~ \$0-thisCond;
#X obj 258 387 outlet;
#X obj 147 207 HoweIntensityDipoleD2;
#X connect 0 0 14 0;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 4 0 3 1;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 6 0 8 2;
#X connect 6 0 9 2;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 10 0 8 1;
#X connect 10 0 9 1;
#X connect 10 0 17 0;
#X connect 11 0 12 0;
#X connect 11 0 16 0;
#X connect 13 0 11 0;
#X connect 14 0 3 0;
#X connect 15 0 14 1;
#X connect 17 0 11 0;
#X connect 17 0 0 1;
#X restore 252 224 pd Dipoles;
#N canvas 303 310 942 536 QCalc 0;
#X obj 304 340 snapshot~;
#X obj 304 318 r myMet;
#X obj 304 360 outlet;
#X obj 112 79 log~;
#X obj 133 57 sig~ 10;
#X obj 112 100 *~ -5.345;
#X obj 112 122 +~ 52.16;
#X obj 431 185 snapshot~;
#X floatatom 431 205 0 0 0 0 - - -;
#X obj 431 164 r myMet;
#X obj 112 35 r~ \$0-myRey;
#X obj 279 59 snapshot~;
#X floatatom 279 79 0 0 0 0 - - -;
#X obj 279 38 r myMet;
#X obj 276 209 +~ 40;
#X obj 276 187 *~ -4;
#X obj 276 233 clip~ 5 50;
#X obj 598 71 r~ \$0-myRey;
#X obj 598 97 log~;
#X obj 598 121 *~ -5.296;
#X obj 598 149 +~ 87.715;
#X obj 598 173 clip~ 2 90;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 3 0 5 0;
#X connect 3 0 15 0;
#X connect 4 0 3 1;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 7 0;
#X connect 10 0 3 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 13 0 11 0;
#X connect 14 0 16 0;
#X connect 15 0 14 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 7 0;
#X connect 20 0 21 0;
#X connect 21 0 0 0;
#X restore 544 -67 pd QCalc;
#N canvas 312 235 756 477 thickcalc 0;
#X obj 72 -75 r~ \$0-myRey;
#X obj 72 54 pow~;
#X obj 72 130 r~ thisLen;
#X obj 57 80 *~;
#X obj 57 194 s~ effectShearThick;
#X obj 93 -33 log~;
#X obj 114 -53 sig~ 10;
#X obj 93 32 clip~ -0.5 -0.2;
#X obj 93 -11 *~ 0.11;
#X obj 93 10 -~ 0.92;
#X obj 190 195 snapshot~;
#X floatatom 190 215 0 0 0 0 - - -;
#X obj 190 174 r myMet;
#X obj 57 150 *~;
#X obj 57 -96 sig~ 2.1978;
#X connect 0 0 1 0;
#X connect 0 0 5 0;
#X connect 1 0 3 1;
#X connect 2 0 13 1;
#X connect 3 0 13 0;
#X connect 5 0 8 0;
#X connect 6 0 5 1;
#X connect 7 0 1 1;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 12 0 10 0;
#X connect 13 0 4 0;
#X connect 13 0 10 0;
#X connect 14 0 3 0;
#X restore 638 138 pd thickcalc;
#X obj -82 -128 s gusts;
#N canvas 752 190 656 557 IntensityTest 0;
#N canvas 87 229 681 350 PlotWrt 0;
#X obj 70 303 textfile;
#X msg 562 196 clear \, rewind;
#X obj 212 134 snapshot~;
#X floatatom 220 157 0 0 0 0 - - -;
#X obj 212 107 r myMet;
#X obj 199 84 inlet~;
#X obj 323 125 snapshot~;
#X floatatom 332 147 0 0 0 0 - - -;
#X obj 323 98 r myMet;
#X obj 310 75 inlet~;
#X msg 323 169 add \$1;
#X msg 212 178 add2 \$1;
#X obj 130 134 snapshot~;
#X floatatom 138 157 0 0 0 0 - - -;
#X obj 130 107 r myMet;
#X obj 117 84 inlet~;
#X msg 130 178 add2 \$1;
#X obj 34 136 snapshot~;
#X floatatom 42 159 0 0 0 0 - - -;
#X obj 34 109 r myMet;
#X obj 21 86 inlet~;
#X msg 34 180 add2 \$1;
#X obj -38 134 snapshot~;
#X floatatom -30 157 0 0 0 0 - - -;
#X obj -38 107 r myMet;
#X obj -51 84 inlet~;
#X msg -38 178 add2 \$1;
#X msg 419 163 write HoweFull7_090417.txt;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 11 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 6 0 10 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 10 0 0 0;
#X connect 11 0 0 0;
#X connect 12 0 13 0;
#X connect 12 0 16 0;
#X connect 14 0 12 0;
#X connect 15 0 12 0;
#X connect 16 0 0 0;
#X connect 17 0 18 0;
#X connect 17 0 21 0;
#X connect 19 0 17 0;
#X connect 20 0 17 0;
#X connect 21 0 0 0;
#X connect 22 0 23 0;
#X connect 22 0 26 0;
#X connect 24 0 22 0;
#X connect 25 0 22 0;
#X connect 26 0 0 0;
#X connect 27 0 0 0;
#X restore 148 173 pd PlotWrt;
#X obj 200 50 HoweIntensity;
#X obj 208 -49 hsl 100 15 0 20000 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 1000 1;
#X floatatom 246 -30 0 0 0 0 - - -;
#X obj 113 75 snapshot~;
#X floatatom 113 95 0 0 0 0 - - -;
#X obj 113 54 r myMet;
#X msg 205 -29 \$1 20;
#X obj 171 24 line~;
#X obj 70 150 snapshot~;
#X floatatom 70 170 0 0 0 0 - - -;
#X obj 70 129 r myMet;
#X msg 180 -8 0;
#X obj 215 73 HoweIntensityDipoleD2;
#X obj 31 105 HoweIntMod;
#X obj 234 524 snapshot~;
#X floatatom 234 544 0 0 0 0 - - -;
#X obj 234 503 r myMet;
#X obj 412 43 HoweIntTest;
#X msg 87 -1 6000 7000;
#X obj 250 26 HoweIntensity;
#X obj 223 103 HoweIntensityMonoTest;
#X connect 1 0 0 1;
#X connect 1 0 9 0;
#X connect 2 0 3 0;
#X connect 2 0 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X connect 8 0 0 4;
#X connect 8 0 4 0;
#X connect 8 0 13 0;
#X connect 8 0 14 0;
#X connect 8 0 18 0;
#X connect 8 0 21 0;
#X connect 9 0 10 0;
#X connect 11 0 9 0;
#X connect 12 0 8 0;
#X connect 13 0 0 2;
#X connect 14 0 0 0;
#X connect 15 0 16 0;
#X connect 17 0 15 0;
#X connect 19 0 8 0;
#X connect 21 1 0 3;
#X restore 609 52 pd IntensityTest;
#N canvas 387 61 1247 749 AngleTest 0;
#N canvas 61 95 798 402 PlotWrt 0;
#X obj 70 303 textfile;
#X msg 574 162 clear \, rewind;
#X obj 212 134 snapshot~;
#X floatatom 220 157 0 0 0 0 - - -;
#X obj 212 107 r myMet;
#X obj 199 84 inlet~;
#X obj 449 139 snapshot~;
#X floatatom 458 161 0 0 0 0 - - -;
#X obj 449 112 r myMet;
#X obj 436 89 inlet~;
#X msg 449 183 add \$1;
#X msg 212 178 add2 \$1;
#X obj 130 134 snapshot~;
#X floatatom 138 157 0 0 0 0 - - -;
#X obj 130 107 r myMet;
#X obj 117 84 inlet~;
#X msg 130 178 add2 \$1;
#X obj 34 136 snapshot~;
#X floatatom 42 159 0 0 0 0 - - -;
#X obj 34 109 r myMet;
#X obj 21 86 inlet~;
#X msg 34 180 add2 \$1;
#X obj 367 136 snapshot~;
#X floatatom 375 159 0 0 0 0 - - -;
#X obj 367 109 r myMet;
#X obj 354 86 inlet~;
#X msg 367 180 add2 \$1;
#X obj 285 136 snapshot~;
#X floatatom 293 159 0 0 0 0 - - -;
#X obj 285 109 r myMet;
#X obj 272 86 inlet~;
#X msg 285 180 add2 \$1;
#X msg 575 106 write HoweDirD3_060417.txt;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 11 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 6 0 10 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 10 0 0 0;
#X connect 11 0 0 0;
#X connect 12 0 13 0;
#X connect 12 0 16 0;
#X connect 14 0 12 0;
#X connect 15 0 12 0;
#X connect 16 0 0 0;
#X connect 17 0 18 0;
#X connect 17 0 21 0;
#X connect 19 0 17 0;
#X connect 20 0 17 0;
#X connect 21 0 0 0;
#X connect 22 0 23 0;
#X connect 22 0 26 0;
#X connect 24 0 22 0;
#X connect 25 0 22 0;
#X connect 26 0 0 0;
#X connect 27 0 28 0;
#X connect 27 0 31 0;
#X connect 29 0 27 0;
#X connect 30 0 27 0;
#X connect 31 0 0 0;
#X connect 32 0 0 0;
#X restore 309 281 pd PlotWrt;
#N canvas 417 23 740 476 FreqCalc 0;
#X obj 100 113 r~ windSpeed;
#X obj 189 115 sig~ 0.5;
#X obj 549 116 r~ thisLen;
#X obj 181 187 /~;
#X obj 260 187 /~;
#X obj 330 193 /~;
#X obj 409 193 /~;
#X obj 466 186 /~;
#X obj 167 236 *~;
#X obj 241 237 *~;
#X obj 323 234 *~;
#X obj 397 235 *~;
#X obj 460 238 *~;
#X obj 257 117 sig~ 1;
#X obj 329 116 sig~ 1.5;
#X obj 398 116 sig~ 2;
#X obj 466 116 sig~ 2.5;
#X obj 167 267 outlet~;
#X obj 241 267 outlet~;
#X obj 319 268 outlet~;
#X obj 393 268 outlet~;
#X obj 460 269 outlet~;
#X connect 0 0 8 0;
#X connect 0 0 9 0;
#X connect 0 0 10 0;
#X connect 0 0 11 0;
#X connect 0 0 12 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 2 0 4 1;
#X connect 2 0 5 1;
#X connect 2 0 6 1;
#X connect 2 0 7 1;
#X connect 3 0 8 1;
#X connect 4 0 9 1;
#X connect 5 0 10 1;
#X connect 6 0 11 1;
#X connect 7 0 12 1;
#X connect 8 0 17 0;
#X connect 9 0 18 0;
#X connect 10 0 19 0;
#X connect 11 0 20 0;
#X connect 12 0 21 0;
#X connect 13 0 4 0;
#X connect 14 0 5 0;
#X connect 15 0 6 0;
#X connect 16 0 7 0;
#X restore -6 29 pd FreqCalc;
#X obj -106 101 snapshot~;
#X floatatom -106 121 0 0 0 0 - - -;
#X obj -106 80 r myMet;
#X obj -45 101 snapshot~;
#X floatatom -45 121 0 0 0 0 - - -;
#X obj -45 80 r myMet;
#X obj 17 100 snapshot~;
#X floatatom 17 120 0 0 0 0 - - -;
#X obj 17 79 r myMet;
#X obj 78 98 snapshot~;
#X floatatom 78 118 0 0 0 0 - - -;
#X obj 78 77 r myMet;
#X obj 140 97 snapshot~;
#X floatatom 140 117 0 0 0 0 - - -;
#X obj 140 76 r myMet;
#X obj 547 82 line~;
#X obj 303 104 HoweDirect;
#X msg 577 17 0;
#X obj 555 105 /~ 360;
#X obj 608 148 outlet~;
#X msg 512 18 180 500;
#X obj 316 130 HoweDirect;
#X obj 339 173 HoweDirect;
#X obj 329 150 HoweDirect;
#X obj 353 198 HoweDirect;
#X msg 580 44 90;
#X obj 23 354 HoweIntensityDipoleD2;
#X obj 23 397 +~;
#N canvas 60 397 798 402 PlotWrt 0;
#X obj 70 303 textfile;
#X msg 574 162 clear \, rewind;
#X obj 212 134 snapshot~;
#X floatatom 220 157 0 0 0 0 - - -;
#X obj 212 107 r myMet;
#X obj 199 84 inlet~;
#X obj 449 139 snapshot~;
#X floatatom 458 161 0 0 0 0 - - -;
#X obj 449 112 r myMet;
#X obj 436 89 inlet~;
#X msg 449 183 add \$1;
#X msg 212 178 add2 \$1;
#X obj 130 134 snapshot~;
#X floatatom 138 157 0 0 0 0 - - -;
#X obj 130 107 r myMet;
#X obj 117 84 inlet~;
#X msg 130 178 add2 \$1;
#X obj 34 136 snapshot~;
#X floatatom 42 159 0 0 0 0 - - -;
#X obj 34 109 r myMet;
#X obj 21 86 inlet~;
#X msg 34 180 add2 \$1;
#X obj 367 136 snapshot~;
#X floatatom 375 159 0 0 0 0 - - -;
#X obj 367 109 r myMet;
#X obj 354 86 inlet~;
#X msg 367 180 add2 \$1;
#X obj 285 136 snapshot~;
#X floatatom 293 159 0 0 0 0 - - -;
#X obj 285 109 r myMet;
#X obj 272 86 inlet~;
#X msg 285 180 add2 \$1;
#X msg 575 106 write HoweDirD4_090417.txt;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 11 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 6 0 10 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 10 0 0 0;
#X connect 11 0 0 0;
#X connect 12 0 13 0;
#X connect 12 0 16 0;
#X connect 14 0 12 0;
#X connect 15 0 12 0;
#X connect 16 0 0 0;
#X connect 17 0 18 0;
#X connect 17 0 21 0;
#X connect 19 0 17 0;
#X connect 20 0 17 0;
#X connect 21 0 0 0;
#X connect 22 0 23 0;
#X connect 22 0 26 0;
#X connect 24 0 22 0;
#X connect 25 0 22 0;
#X connect 26 0 0 0;
#X connect 27 0 28 0;
#X connect 27 0 31 0;
#X connect 29 0 27 0;
#X connect 30 0 27 0;
#X connect 31 0 0 0;
#X connect 32 0 0 0;
#X restore 448 538 pd PlotWrt;
#X obj 203 359 HoweIntensityDipoleD2;
#X obj 203 402 +~;
#X obj 372 358 HoweIntensityDipoleD2;
#X obj 372 401 +~;
#X obj 552 363 HoweIntensityDipoleD2;
#X obj 552 406 +~;
#X obj 720 362 HoweIntensityDipoleD2;
#X obj 720 405 +~;
#X obj 218 380 HoweIntensityMonoTest;
#X obj 38 375 HoweIntensityMonoTest;
#X obj 387 379 HoweIntensityMonoTest;
#X obj 567 384 HoweIntensityMonoTest;
#X obj 735 383 HoweIntensityMonoTest;
#X connect 1 0 2 0;
#X connect 1 0 18 0;
#X connect 1 0 28 0;
#X connect 1 0 40 0;
#X connect 1 1 5 0;
#X connect 1 1 23 0;
#X connect 1 1 31 0;
#X connect 1 1 39 0;
#X connect 1 2 8 0;
#X connect 1 2 25 0;
#X connect 1 2 33 0;
#X connect 1 2 41 0;
#X connect 1 3 11 0;
#X connect 1 3 24 0;
#X connect 1 3 35 0;
#X connect 1 3 42 0;
#X connect 1 4 14 0;
#X connect 1 4 26 0;
#X connect 1 4 37 0;
#X connect 1 4 43 0;
#X connect 2 0 3 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 7 0 5 0;
#X connect 8 0 9 0;
#X connect 10 0 8 0;
#X connect 11 0 12 0;
#X connect 13 0 11 0;
#X connect 14 0 15 0;
#X connect 16 0 14 0;
#X connect 17 0 0 5;
#X connect 17 0 20 0;
#X connect 17 0 30 5;
#X connect 18 0 0 0;
#X connect 19 0 17 0;
#X connect 20 0 21 0;
#X connect 22 0 17 0;
#X connect 23 0 0 1;
#X connect 24 0 0 3;
#X connect 25 0 0 2;
#X connect 26 0 0 4;
#X connect 27 0 17 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 31 0 32 0;
#X connect 32 0 30 1;
#X connect 33 0 34 0;
#X connect 34 0 30 2;
#X connect 35 0 36 0;
#X connect 36 0 30 3;
#X connect 37 0 38 0;
#X connect 38 0 30 4;
#X connect 39 1 32 1;
#X connect 40 1 29 1;
#X connect 41 1 34 1;
#X connect 42 1 36 1;
#X connect 43 1 38 1;
#X restore 636 111 pd AngleTest;
#X obj 543 506 s speed;
#X obj -94 -48 r speed;
#X floatatom -153 -30 0 0 0 0 - - -;
#X symbolatom 645 472 10 0 0 0 - - -;
#X obj 491 -201 inlet;
#X obj 606 -200 inlet;
#X obj 712 -198 inlet;
#X obj 487 -62 inlet;
#X obj 848 -104 inlet;
#X obj 395 -65 r dist;
#X obj 930 -108 r elev;
#X obj -137 -53 inlet;
#X obj 441 443 inlet;
#X obj -102 327 inlet;
#X obj -207 485 outlet;
#X obj -214 457 outlet;
#X obj 480 463 unpack f f f f f s;
#X obj 564 486 s GAIN;
#X msg 684 393 0.03 0.03 0.015 3.43 8500 HOWE;
#X msg 683 371 0.06 0.06 0.35 40 0.1 ERICKSON;
#X text -97 -88 comment;
#N canvas 505 490 450 300 on/off 0;
#X obj 169 93 inlet~;
#X obj 213 92 r myMet;
#X obj 169 115 snapshot~;
#X obj 169 137 > 0;
#X obj 169 159 outlet;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X restore 845 118 pd on/off;
#X obj 845 139 tgl 20 0 empty empty empty 17 7 0 10 -261682 -4034 -4034
1 1;
#N canvas 505 490 450 300 on/off 0;
#X obj 169 93 inlet~;
#X obj 213 92 r myMet;
#X obj 169 115 snapshot~;
#X obj 169 137 > 0;
#X obj 169 159 outlet;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X restore 83 527 pd on/off;
#X obj 83 548 tgl 20 0 empty empty empty 17 7 0 10 -261682 -4034 -4034
0 1;
#X msg 683 350 0.0191 0.1016 0.0127 308.7 7 AHUJA;
#X msg 682 295 0.0476 0.1016 0.0127 137.2 7 AHUJA2;
#X msg 683 263 0.15 0.15 0.15 31 7 CHATELLIER;
#X obj 214 504 snapshot~;
#X floatatom 214 524 0 0 0 0 - - -;
#X obj 214 483 r myMet;
#X floatatom 7 290 0 0 0 0 - - -;
#X floatatom 253 290 0 0 0 0 - - -;
#X floatatom -95 287 0 0 0 0 - - -;
#X floatatom 102 296 0 0 0 0 - - -;
#X msg 427 233 0.0191 0.1016 0.0127 137.2 7 AHUJA2;
#X msg 420 210 0.0191 0.1016 0.0127 89.2 7 AHUJA2;
#X msg 437 256 0.0191 0.1016 0.0127 181.8 7 AHUJA2;
#X msg 447 276 0.0191 0.1016 0.0127 230.5 7 AHUJA2;
#X msg 457 297 0.0191 0.1016 0.0127 274.4 7 AHUJA2;
#X msg 468 318 0.0191 0.1016 0.0127 308.7 7 AHUJA2;
#X msg 680 204 1 0.25 0.25 10 10 AVITAL;
#X msg 689 234 0.0305 1 0.076 62.5 1 YU;
#X msg 720 464 0.03 0.03 0.015 34.3 80 HOWE;
#X obj -114 187 outlet;
#X obj 12 182 outlet;
#X obj 126 184 outlet;
#X obj 258 185 outlet;
#X obj 384 583 outlet;
#X obj 362 159 snapshot~;
#X floatatom 362 179 0 0 0 0 - - -;
#X obj 362 138 r myMet;
#N canvas 126 117 988 704 newShearThick 0;
#X obj 523 196 *~ 1.225;
#X obj 523 235 /~ 1.81e-05;
#X obj 523 216 *~;
#X obj 523 175 r~ windSpeed;
#X obj 251 45 r~ thisLen;
#X obj 855 283 snapshot~;
#X floatatom 855 303 0 0 0 0 - - -;
#X obj 855 262 r myMet;
#X obj 762 257 r~ \$0-myRey;
#X obj 315 155 snapshot~;
#X floatatom 315 175 0 0 0 0 - - -;
#X obj 315 134 r myMet;
#X obj 371 591 s~ effectShearThick2;
#X obj 27 32 snapshot~;
#X floatatom 27 52 0 0 0 0 - - -;
#X obj 27 11 r myMet;
#X obj 84 10 r~ effectShearThick;
#X obj 266 66 r~ thisDep;
#X obj 251 86 /~;
#X obj 251 110 *~ 9.39;
#X obj 236 156 /~;
#X obj 221 181 *~;
#X obj 508 104 r~ thisLen;
#X obj 508 127 *~ 0.75;
#X obj 268 306 sig~ 8;
#X obj 268 327 sqrt~;
#X obj 253 348 *~;
#X obj 435 245 sig~ 2.69;
#X text 143 132 H (Avital T);
#X text 430 227 H (Avital L);
#X obj 508 149 *~;
#X obj 508 257 /~;
#X obj 508 280 sqrt~;
#X obj 238 373 /~;
#X text 236 260 delta_c (Cebeci) T;
#X text 492 77 delta_c (Cebeci) L;
#X obj 238 397 /~ 8;
#X obj 508 302 /~ 8;
#X text 156 203 delta_*_0;
#X obj 223 428 +~;
#X obj 420 268 *~;
#X obj 493 326 +~;
#X obj 146 152 sig~ 1.28;
#X obj 251 134 +~ 36.732;
#X obj 253 284 sig~ 6;
#X obj 751 236 sig~ 1;
#X obj 761 322 exp~;
#X obj 731 363 /~;
#X obj 746 343 +~;
#X obj 790 398 snapshot~;
#X floatatom 790 418 0 0 0 0 - - -;
#X obj 790 377 r myMet;
#X obj 493 528 *~;
#X obj 371 493 sig~ 1;
#X obj 371 517 -~;
#X obj 371 540 *~;
#X obj 371 567 +~;
#X obj 761 279 /~ 25000;
#X obj 761 301 *~ 5;
#X text 237 17 comment;
#X text 272 402 delta_*_c (T);
#X text 544 301 delta_*_c (L);
#X obj -5 254 s~ effectShearThick_0;
#X obj 131 339 snapshot~;
#X floatatom 131 359 0 0 0 0 - - -;
#X obj 131 318 r myMet;
#X connect 0 0 2 0;
#X connect 1 0 31 1;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 4 0 18 0;
#X connect 4 0 20 0;
#X connect 5 0 6 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 8 0 57 0;
#X connect 9 0 10 0;
#X connect 11 0 9 0;
#X connect 13 0 14 0;
#X connect 15 0 13 0;
#X connect 16 0 13 0;
#X connect 17 0 18 1;
#X connect 18 0 19 0;
#X connect 19 0 43 0;
#X connect 20 0 21 1;
#X connect 20 0 40 0;
#X connect 21 0 39 0;
#X connect 21 0 62 0;
#X connect 22 0 23 0;
#X connect 22 0 30 1;
#X connect 22 0 2 1;
#X connect 23 0 30 0;
#X connect 23 0 33 0;
#X connect 24 0 25 0;
#X connect 25 0 26 1;
#X connect 26 0 33 1;
#X connect 27 0 40 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 37 0;
#X connect 33 0 36 0;
#X connect 36 0 39 1;
#X connect 37 0 41 1;
#X connect 39 0 55 1;
#X connect 40 0 41 0;
#X connect 41 0 52 0;
#X connect 42 0 21 0;
#X connect 43 0 9 0;
#X connect 43 0 20 1;
#X connect 44 0 26 0;
#X connect 45 0 47 0;
#X connect 45 0 48 0;
#X connect 46 0 48 1;
#X connect 47 0 49 0;
#X connect 47 0 54 1;
#X connect 47 0 52 1;
#X connect 48 0 47 1;
#X connect 49 0 50 0;
#X connect 51 0 49 0;
#X connect 52 0 56 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 56 0 12 0;
#X connect 57 0 58 0;
#X connect 58 0 46 0;
#X connect 63 0 64 0;
#X connect 65 0 63 0;
#X restore 634 82 pd newShearThick;
#X msg 723 319 0.03 0.6 0.015 12 7 KOSCHATZKY;
#X msg 844 215 0.03 0.6 0.015 15 7 KOSCHATZKY2;
#X msg -154 370 550;
#X msg 684 414 0.0045 0.06 0.0015 514.5 0.1 ZHENG;
#N canvas 632 119 701 487 MonopolePeak 0;
#X obj 152 158 outlet~;
#X obj 167 87 +~;
#X obj 167 112 *~ 4;
#X obj 152 23 sig~ 343;
#X obj 152 133 /~;
#X obj 323 71 *~;
#X obj 323 114 /~ 4;
#X obj 323 134 sqrt~;
#X obj 323 30 r~ thisLen;
#X obj 338 51 r~ thisWid;
#X obj 323 93 *~ 3.14159;
#X obj 182 65 r~ thisDep;
#X connect 1 0 2 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 5 0 10 0;
#X connect 6 0 7 0;
#X connect 7 0 1 0;
#X connect 8 0 5 0;
#X connect 9 0 5 1;
#X connect 10 0 6 0;
#X connect 11 0 1 1;
#X restore 741 75 pd MonopolePeak;
#X obj 342 449 snapshot~;
#X floatatom 342 469 0 0 0 0 - - -;
#X obj 342 428 r myMet;
#X obj 742 99 HoweIntMod;
#X obj 78 456 HoweIntensityMonoTest;
#X msg 684 434 0.4572 0.1016 0.1016 291.55 4 FUGLSANG;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 8 0 188 0;
#X connect 9 0 5 0;
#X connect 9 0 148 0;
#X connect 9 1 6 0;
#X connect 9 1 147 0;
#X connect 10 0 9 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 13 0 14 0;
#X connect 13 0 50 0;
#X connect 15 0 16 0;
#X connect 15 0 52 0;
#X connect 17 0 18 0;
#X connect 17 0 54 0;
#X connect 20 0 30 0;
#X connect 20 0 31 0;
#X connect 21 0 22 0;
#X connect 22 0 26 0;
#X connect 22 0 60 0;
#X connect 23 0 32 0;
#X connect 25 0 20 0;
#X connect 26 0 27 0;
#X connect 28 0 20 0;
#X connect 29 0 26 0;
#X connect 30 0 21 1;
#X connect 31 0 22 1;
#X connect 31 0 24 0;
#X connect 32 0 34 0;
#X connect 32 0 36 0;
#X connect 32 0 130 0;
#X connect 33 0 30 1;
#X connect 33 1 30 0;
#X connect 34 0 33 0;
#X connect 35 0 20 0;
#X connect 36 0 21 0;
#X connect 37 0 92 0;
#X connect 38 0 39 0;
#X connect 40 0 38 0;
#X connect 41 0 38 0;
#X connect 45 0 17 0;
#X connect 46 0 15 0;
#X connect 47 0 13 0;
#X connect 48 0 19 0;
#X connect 50 0 51 0;
#X connect 51 0 94 0;
#X connect 52 0 53 0;
#X connect 53 0 95 0;
#X connect 54 0 55 0;
#X connect 55 0 96 0;
#X connect 56 0 98 0;
#X connect 57 0 58 0;
#X connect 58 0 111 0;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 63 0 61 0;
#X connect 66 0 154 0;
#X connect 67 0 20 0;
#X connect 69 0 74 0;
#X connect 70 0 73 0;
#X connect 70 0 182 0;
#X connect 74 0 70 0;
#X connect 75 0 20 0;
#X connect 76 0 77 0;
#X connect 76 0 177 0;
#X connect 78 0 79 0;
#X connect 78 0 178 0;
#X connect 80 0 78 0;
#X connect 80 0 101 0;
#X connect 80 0 76 0;
#X connect 80 0 99 0;
#X connect 80 0 103 0;
#X connect 80 0 81 0;
#X connect 80 0 105 0;
#X connect 80 0 83 0;
#X connect 81 0 82 0;
#X connect 81 0 179 0;
#X connect 83 0 84 0;
#X connect 83 0 180 0;
#X connect 86 0 87 0;
#X connect 87 0 91 0;
#X connect 88 0 85 0;
#X connect 88 0 90 0;
#X connect 89 0 88 0;
#X connect 90 0 86 0;
#X connect 93 0 69 0;
#X connect 97 0 74 1;
#X connect 99 0 100 0;
#X connect 101 0 102 0;
#X connect 103 0 104 0;
#X connect 105 0 106 0;
#X connect 107 0 99 0;
#X connect 107 1 76 0;
#X connect 107 1 121 0;
#X connect 107 2 101 0;
#X connect 107 3 78 0;
#X connect 107 3 125 0;
#X connect 107 4 103 0;
#X connect 107 5 81 0;
#X connect 107 5 126 0;
#X connect 107 6 105 0;
#X connect 107 7 83 0;
#X connect 107 7 127 0;
#X connect 109 0 108 0;
#X connect 109 0 123 0;
#X connect 110 0 124 0;
#X connect 111 0 59 0;
#X connect 113 0 114 0;
#X connect 114 0 116 0;
#X connect 115 0 113 0;
#X connect 115 0 112 0;
#X connect 117 0 151 0;
#X connect 118 0 89 0;
#X connect 119 0 122 0;
#X connect 120 0 156 0;
#X connect 121 0 166 0;
#X connect 122 0 115 0;
#X connect 124 0 109 0;
#X connect 125 0 164 0;
#X connect 126 0 167 0;
#X connect 127 0 165 0;
#X connect 128 0 109 0;
#X connect 134 0 48 0;
#X connect 134 0 135 0;
#X connect 137 0 13 0;
#X connect 138 0 15 0;
#X connect 139 0 17 0;
#X connect 140 0 115 0;
#X connect 141 0 88 0;
#X connect 142 0 115 0;
#X connect 143 0 88 0;
#X connect 144 0 48 0;
#X connect 145 0 149 0;
#X connect 146 0 10 0;
#X connect 149 0 44 0;
#X connect 149 1 43 0;
#X connect 149 2 42 0;
#X connect 149 3 133 0;
#X connect 149 4 150 0;
#X connect 149 5 136 0;
#X connect 151 0 149 0;
#X connect 152 0 149 0;
#X connect 154 0 155 0;
#X connect 156 0 157 0;
#X connect 158 0 149 0;
#X connect 159 0 149 0;
#X connect 160 0 149 0;
#X connect 161 0 162 0;
#X connect 163 0 161 0;
#X connect 168 0 149 0;
#X connect 169 0 149 0;
#X connect 170 0 149 0;
#X connect 171 0 149 0;
#X connect 172 0 149 0;
#X connect 173 0 149 0;
#X connect 174 0 149 0;
#X connect 175 0 149 0;
#X connect 176 0 149 0;
#X connect 182 0 183 0;
#X connect 184 0 182 0;
#X connect 186 0 149 0;
#X connect 187 0 149 0;
#X connect 188 0 10 0;
#X connect 189 0 149 0;
#X connect 190 0 194 0;
#X connect 191 0 192 0;
#X connect 191 0 181 0;
#X connect 193 0 191 0;
#X connect 195 0 191 0;
#X connect 195 0 120 0;
#X connect 195 1 161 0;
#X connect 195 1 120 1;
#X connect 196 0 149 0;