# HG changeset patch
# User Rod Selfridge <r.selfridge@qmul.ac.uk>
# Date 1491601152 -3600
# Node ID 3b8a33b7ccc49bffbf96544e59124bc98785957c
# Parent  ac3659c52b074b05d28b0c4e8d98df28dcc703c9
shear layer thickness patch improved. Conditions reduced due to contradiction between sarohia and howe.

diff -r ac3659c52b07 -r 3b8a33b7ccc4 .DS_Store
Binary file .DS_Store has changed
diff -r ac3659c52b07 -r 3b8a33b7ccc4 Propellor/PropTestD6.pd
--- a/Propellor/PropTestD6.pd	Wed Apr 05 08:22:31 2017 +0100
+++ b/Propellor/PropTestD6.pd	Fri Apr 07 22:39:12 2017 +0100
@@ -4,7 +4,7 @@
 1;
 #X obj 405 79 s myMet;
 #X obj -251 527 hsl 70 15 0 5000 0 0 empty empty RPM 2 8 0 10 -262144
--1 -1 3036 1;
+-1 -1 1408 1;
 #X floatatom 147 583 5 0 0 0 - - -;
 #X obj 224 414 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
 #X obj 287 414 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
@@ -42,11 +42,11 @@
 -261682 -1 -66577 1634 1;
 #X obj 66 299 r GAIN;
 #X obj -278 417 hsl 70 15 0.1 3 0 0 empty empty Blade_Length 2 8 0
-10 -262144 -1 -1 2059 1;
+10 -262144 -1 -1 4663 1;
 #X floatatom -220 440 0 0 0 0 - - -;
 #X obj -281 376 loadbang;
 #X obj 78 497 hsl 100 20 0 2500 0 0 empty empty Throttle 2 10 0 10
--204800 -1 -1 8712 1;
+-204800 -1 -1 4039 1;
 #X text 117 583 RPM;
 #X floatatom 74 459 0 0 0 0 - - -;
 #X obj -268 685 hsl 70 15 2 4 0 0 empty empty Blades 2 8 0 10 -262144
@@ -58,7 +58,7 @@
 10 -203904 -1 -1 5601 1;
 #X floatatom 695 443 0 0 0 0 - - -;
 #X obj 456 425 hsl 70 15 0 5000 0 0 empty empty Horse_Power 2 8 0 10
--262144 -1 -1 414 1;
+-262144 -1 -1 5520 1;
 #N canvas 345 218 373 219 dist 0;
 #X obj -154 38 *~;
 #X obj -98 40 *~;
@@ -237,11 +237,11 @@
 #X connect 42 0 1 0;
 #X restore 349 362 pd startUp;
 #X obj 444 249 hsl 100 20 -5000 5000 0 0 empty empty PropX 6 10 0 10
--228856 -1 -1 5989 1;
+-228856 -1 -1 5445 1;
 #X obj 553 247 hsl 100 20 -5000 5000 0 0 empty empty PropY 6 10 0 10
--228856 -1 -1 4455 1;
+-228856 -1 -1 6435 1;
 #X obj 395 144 vsl 20 100 0 1500 0 0 empty empty PropZ 0 -9 0 10 -228856
--1 -1 330 1;
+-1 -1 5280 1;
 #X floatatom 486 282 0 0 0 0 - - -;
 #X floatatom 597 273 0 0 0 0 - - -;
 #X floatatom 399 254 0 0 0 0 - - -;
@@ -832,7 +832,7 @@
 #X connect 50 0 51 0;
 #X restore 284 102 pd Angles2;
 #X obj 593 137 hsl 80 20 0 360 0 0 empty empty Yaw(Azimuth) 2 10 0
-10 -232576 -1 -1 7002 1;
+10 -232576 -1 -1 1975 1;
 #X obj 809 137 hsl 80 20 -180 180 0 0 empty empty Roll 2 10 0 10 -232576
 -1 -1 3950 1;
 #X floatatom 863 165 0 0 0 0 - - -;
@@ -1076,12 +1076,12 @@
 #X text 255 664 Preset Flight Paths;
 #X text 267 596 Aircraft Selector;
 #X obj 812 37 hsl 80 20 -90 90 0 0 empty empty Pitch(Elevation) 2 10
-0 10 -232576 -1 -1 4296 1;
+0 10 -232576 -1 -1 3950 1;
 #X floatatom 829 83 0 0 0 0 - - -;
 #X obj 381 531 hsl 70 15 3.6 360 1 0 empty empty Yaw 2 8 0 10 -203904
--1 -1 6719 1;
+-1 -1 4823 1;
 #X obj 381 561 hsl 70 15 -90 90 0 0 empty empty Pitch 2 8 0 10 -204786
--1 -1 3752 1;
+-1 -1 3450 1;
 #X floatatom 457 530 0 0 0 0 - - -;
 #X floatatom 458 559 0 0 0 0 - - -;
 #X obj -25 636 r length;
@@ -1272,9 +1272,9 @@
 #X obj 256 504 pack;
 #X obj 304 503 pack;
 #X obj 922 118 hsl 128 15 -5000 5000 0 0 empty empty x -2 -8 0 10 -262144
--1 -1 7683 1;
+-1 -1 6985 1;
 #X obj 913 160 hsl 128 15 -5000 5000 0 0 empty empty y -2 -8 0 10 -262144
--1 -1 5715 1;
+-1 -1 8255 1;
 #X obj 23 592 <;
 #X floatatom 22 616 0 0 0 0 - - -;
 #X obj 56 592 <;
diff -r ac3659c52b07 -r 3b8a33b7ccc4 Propellor/SourcesD6.pd
--- a/Propellor/SourcesD6.pd	Wed Apr 05 08:22:31 2017 +0100
+++ b/Propellor/SourcesD6.pd	Fri Apr 07 22:39:12 2017 +0100
@@ -1,4 +1,4 @@
-#N canvas 335 44 955 598 10;
+#N canvas 45 23 1122 637 10;
 #X text -56 -46 Patch that holds all the sources that are used to produce
 the basic aeolian tone.;
 #X obj -169 24 inlet~;
diff -r ac3659c52b07 -r 3b8a33b7ccc4 Shallow Cavity/CavD5.pd
--- a/Shallow Cavity/CavD5.pd	Wed Apr 05 08:22:31 2017 +0100
+++ b/Shallow Cavity/CavD5.pd	Fri Apr 07 22:39:12 2017 +0100
@@ -1,4 +1,4 @@
-#N canvas -3 23 1287 823 10;
+#N canvas 129 23 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
@@ -39,17 +39,17 @@
 #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 9281 1;
+0 10 -262144 -1 -1 15189 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 4517 1;
+10 -262144 -1 -1 4905 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 5954 1;
+-262144 -1 -1 4905 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 4166 1;
+-262144 -1 -1 4309 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
@@ -100,7 +100,7 @@
 #X obj 260 -48 r myMet;
 #X text 237 10 Wind Speed (MPH);
 #X text 97 1 Wind Speed (m/s);
-#N canvas 106 141 930 696 Conditions 0;
+#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;
@@ -151,16 +151,35 @@
 #X obj 372 441 r~ thisDep;
 #X obj 295 83 r~ thisDep;
 #X obj 250 403 r~ thisLen;
-#X obj 312 631 s~ \$0-thisCond;
-#X obj 406 220 r~ effectShearThick;
+#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 406 242 /~ 0;
 #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;
@@ -175,9 +194,8 @@
 #X connect 9 0 11 1;
 #X connect 10 0 9 1;
 #X connect 11 0 28 0;
-#X connect 11 0 36 0;
 #X connect 12 0 8 0;
-#X connect 13 0 40 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;
@@ -193,19 +211,33 @@
 #X connect 24 0 20 0;
 #X connect 25 0 26 0;
 #X connect 26 0 3 0;
-#X connect 28 0 34 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 39 0;
-#X connect 36 0 37 0;
-#X connect 38 0 36 0;
-#X connect 39 0 4 1;
-#X connect 39 0 0 1;
-#X connect 39 0 1 0;
-#X connect 40 0 18 0;
-#X restore 630 82 pd Conditions;
+#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;
@@ -469,7 +501,7 @@
 #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 1529 1;
+-1 -1 3310 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;
@@ -567,22 +599,18 @@
 #X connect 17 0 18 0;
 #X connect 19 0 17 0;
 #X restore 83 508 pd Monopole;
-#X obj 294 254 snapshot~;
-#X floatatom 294 274 0 0 0 0 - - -;
-#X obj 294 233 r myMet;
 #N canvas 570 67 638 485 Dipoles 0;
-#X obj 132 278 *~;
-#X obj 132 382 throw~ l;
-#X obj 159 359 throw~ r;
-#X obj 132 338 fcpan;
-#X obj 159 316 r \$0-thisPan;
+#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~;
-#X obj 104 407 outlet~;
 #N canvas 304 98 361 372 rangeLimit 0;
 #X obj 285 58 inlet~;
 #X obj 128 282 outlet~;
@@ -624,19 +652,15 @@
 #X connect 16 0 1 0;
 #X connect 17 0 14 0;
 #X connect 18 0 6 0;
-#X restore 104 208 pd rangeLimit;
-#X obj 104 250 *~;
-#X obj 46 384 snapshot~;
-#X floatatom 46 404 0 0 0 0 - - -;
-#X obj 46 363 r myMet;
-#X obj 132 301 *~;
-#X obj 237 263 r~ \$0-thisCond;
+#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 119 228 HoweIntensityDipoleD2;
-#X connect 0 0 17 0;
+#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;
@@ -646,95 +670,41 @@
 #X connect 6 0 9 2;
 #X connect 8 0 9 0;
 #X connect 9 0 0 0;
-#X connect 10 0 12 0;
+#X connect 10 0 11 0;
 #X connect 10 0 8 1;
 #X connect 10 0 9 1;
-#X connect 10 0 23 0;
-#X connect 12 0 13 0;
-#X connect 12 0 14 0;
-#X connect 13 0 0 1;
-#X connect 13 0 11 0;
+#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 17 0 3 0;
-#X connect 18 0 17 1;
-#X connect 19 0 20 0;
-#X connect 19 0 22 0;
-#X connect 21 0 19 0;
-#X connect 23 0 13 1;
-#X connect 23 0 19 0;
-#X restore -61 236 pd Dipoles;
+#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;
-#X msg -154 370 500;
 #N canvas 570 67 638 485 Dipoles 0;
-#X obj 132 278 *~;
-#X obj 132 382 throw~ l;
-#X obj 159 359 throw~ r;
-#X obj 132 338 fcpan;
-#X obj 159 316 r \$0-thisPan;
+#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 104 407 outlet~;
-#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 118 81 /~ 80;
-#X obj 173 108 /~ 15000;
-#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 6 0;
-#X connect 18 0 14 0;
-#X restore 104 208 pd rangeLimit;
-#X obj 104 250 *~;
-#X obj 46 384 snapshot~;
-#X floatatom 46 404 0 0 0 0 - - -;
-#X obj 46 363 r myMet;
-#X obj 132 301 *~;
-#X obj 237 263 r~ \$0-thisCond;
+#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 119 228 HoweIntensityDipoleD2;
-#X connect 0 0 17 0;
+#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;
@@ -744,91 +714,37 @@
 #X connect 6 0 9 2;
 #X connect 8 0 9 0;
 #X connect 9 0 0 0;
-#X connect 10 0 12 0;
 #X connect 10 0 8 1;
 #X connect 10 0 9 1;
-#X connect 10 0 23 0;
-#X connect 12 0 13 0;
-#X connect 12 0 14 0;
-#X connect 13 0 0 1;
-#X connect 13 0 11 0;
-#X connect 14 0 15 0;
-#X connect 16 0 14 0;
-#X connect 17 0 3 0;
-#X connect 18 0 17 1;
-#X connect 19 0 20 0;
-#X connect 19 0 22 0;
-#X connect 21 0 19 0;
-#X connect 23 0 13 1;
-#X connect 23 0 19 0;
-#X restore 8 236 pd Dipoles;
+#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 278 *~;
-#X obj 132 382 throw~ l;
-#X obj 159 359 throw~ r;
-#X obj 132 338 fcpan;
-#X obj 159 316 r \$0-thisPan;
+#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 104 407 outlet~;
-#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 118 81 /~ 80;
-#X obj 173 108 /~ 15000;
-#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 6 0;
-#X connect 18 0 14 0;
-#X restore 104 208 pd rangeLimit;
-#X obj 104 250 *~;
-#X obj 46 384 snapshot~;
-#X floatatom 46 404 0 0 0 0 - - -;
-#X obj 46 363 r myMet;
-#X obj 132 301 *~;
-#X obj 237 263 r~ \$0-thisCond;
+#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 119 228 HoweIntensityDipoleD2;
-#X connect 0 0 17 0;
+#X obj 147 205 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;
@@ -838,91 +754,37 @@
 #X connect 6 0 9 2;
 #X connect 8 0 9 0;
 #X connect 9 0 0 0;
-#X connect 10 0 12 0;
 #X connect 10 0 8 1;
 #X connect 10 0 9 1;
-#X connect 10 0 23 0;
-#X connect 12 0 13 0;
-#X connect 12 0 14 0;
-#X connect 13 0 0 1;
-#X connect 13 0 11 0;
-#X connect 14 0 15 0;
-#X connect 16 0 14 0;
-#X connect 17 0 3 0;
-#X connect 18 0 17 1;
-#X connect 19 0 20 0;
-#X connect 19 0 22 0;
-#X connect 21 0 19 0;
-#X connect 23 0 13 1;
-#X connect 23 0 19 0;
-#X restore 77 236 pd Dipoles;
+#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 278 *~;
-#X obj 132 382 throw~ l;
-#X obj 159 359 throw~ r;
-#X obj 132 338 fcpan;
-#X obj 159 316 r \$0-thisPan;
+#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 104 407 outlet~;
-#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 104 208 pd rangeLimit;
-#X obj 104 250 *~;
-#X obj 46 384 snapshot~;
-#X floatatom 46 404 0 0 0 0 - - -;
-#X obj 46 363 r myMet;
 #X obj 271 347 snapshot~;
 #X floatatom 271 367 0 0 0 0 - - -;
 #X obj 271 326 r myMet;
-#X obj 132 301 *~;
-#X obj 237 263 r~ \$0-thisCond;
+#X obj 132 276 *~;
+#X obj 147 254 r~ \$0-thisCond;
 #X obj 258 387 outlet;
-#X obj 119 228 HoweIntensityDipoleD2;
-#X connect 0 0 20 0;
+#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;
@@ -932,24 +794,17 @@
 #X connect 6 0 9 2;
 #X connect 8 0 9 0;
 #X connect 9 0 0 0;
-#X connect 10 0 12 0;
 #X connect 10 0 8 1;
 #X connect 10 0 9 1;
-#X connect 10 0 23 0;
-#X connect 12 0 13 0;
-#X connect 12 0 14 0;
-#X connect 13 0 0 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 15 0;
-#X connect 16 0 14 0;
-#X connect 17 0 18 0;
-#X connect 17 0 22 0;
-#X connect 19 0 17 0;
-#X connect 20 0 3 0;
-#X connect 21 0 20 1;
-#X connect 23 0 13 1;
-#X connect 23 0 17 0;
-#X restore 145 236 pd Dipoles;
+#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;
@@ -994,7 +849,7 @@
 #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 1;
+#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;
@@ -1054,7 +909,7 @@
 #X obj 34 109 r myMet;
 #X obj 21 86 inlet~;
 #X msg 34 180 add2 \$1;
-#X msg 439 197 write HoweFull4.txt;
+#X msg 419 163 write HoweFull5_060417.txt;
 #X connect 1 0 0 0;
 #X connect 2 0 3 0;
 #X connect 2 0 11 0;
@@ -1114,8 +969,8 @@
 #X connect 15 1 0 2;
 #X connect 16 0 0 1;
 #X restore 609 52 pd IntensityTest;
-#N canvas 751 470 606 328 AngleTest 0;
-#N canvas 380 360 733 404 PlotWrt 0;
+#N canvas 765 502 606 328 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~;
@@ -1148,7 +1003,7 @@
 #X obj 285 109 r myMet;
 #X obj 272 86 inlet~;
 #X msg 285 180 add2 \$1;
-#X msg 575 106 write HoweDirD2.txt;
+#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;
@@ -1250,22 +1105,23 @@
 #X obj 303 104 HoweDirect;
 #X msg 366 38 0;
 #X obj 393 110 /~ 360;
+#X obj 446 153 outlet~;
+#X msg 301 39 180 500;
 #X obj 316 130 HoweDirect;
 #X obj 339 173 HoweDirect;
 #X obj 329 150 HoweDirect;
 #X obj 353 198 HoweDirect;
-#X obj 446 153 outlet~;
-#X msg 301 39 180 500;
+#X msg 418 49 90;
 #X connect 1 0 2 0;
 #X connect 1 0 18 0;
 #X connect 1 1 5 0;
-#X connect 1 1 21 0;
+#X connect 1 1 23 0;
 #X connect 1 2 8 0;
-#X connect 1 2 23 0;
+#X connect 1 2 25 0;
 #X connect 1 3 11 0;
-#X connect 1 3 22 0;
+#X connect 1 3 24 0;
 #X connect 1 4 14 0;
-#X connect 1 4 24 0;
+#X connect 1 4 26 0;
 #X connect 2 0 3 0;
 #X connect 4 0 2 0;
 #X connect 5 0 6 0;
@@ -1280,12 +1136,13 @@
 #X connect 17 0 20 0;
 #X connect 18 0 0 0;
 #X connect 19 0 17 0;
-#X connect 20 0 25 0;
-#X connect 21 0 0 1;
-#X connect 22 0 0 3;
-#X connect 23 0 0 2;
-#X connect 24 0 0 4;
-#X connect 26 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 restore 636 111 pd AngleTest;
 #X obj 543 506 s speed;
 #X obj -94 -48 r speed;
@@ -1305,7 +1162,6 @@
 #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 414 0.0045 0.06 0.0015 514.5 50 ZHENG;
 #X msg 684 434 0.4739 0.1016 0.1053 291.55 4 FUGLSANG;
 #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;
@@ -1321,8 +1177,8 @@
 #X connect 1 0 2 0;
 #X connect 2 0 3 0;
 #X connect 3 0 4 0;
-#X restore -61 257 pd on/off;
-#X obj -61 278 tgl 20 0 empty empty empty 17 7 0 10 -261682 -4034 -4034
+#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~;
@@ -1334,45 +1190,6 @@
 #X connect 1 0 2 0;
 #X connect 2 0 3 0;
 #X connect 3 0 4 0;
-#X restore 8 257 pd on/off;
-#X obj 8 278 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 77 257 pd on/off;
-#X obj 77 278 tgl 20 0 empty empty empty 17 7 0 10 -261682 -4034 -4034
-0 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 145 256 pd on/off;
-#X obj 145 277 tgl 20 0 empty empty empty 17 7 0 10 -261682 -4034 -4034
-0 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
 1 1;
@@ -1385,10 +1202,10 @@
 #X obj 214 504 snapshot~;
 #X floatatom 214 524 0 0 0 0 - - -;
 #X obj 214 483 r myMet;
-#X floatatom 8 303 0 0 0 0 - - -;
-#X floatatom 146 302 0 0 0 0 - - -;
-#X floatatom -60 304 0 0 0 0 - - -;
-#X floatatom 76 303 0 0 0 0 - - -;
+#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;
@@ -1397,140 +1214,158 @@
 #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 obj 60 446 HoweIntensityMonoTest;
 #X msg 720 464 0.03 0.03 0.015 34.3 80 HOWE;
-#X obj -95 187 outlet;
-#X obj 27 182 outlet;
-#X obj 154 184 outlet;
-#X obj 278 185 outlet;
+#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;
-#X obj 848 112 s me;
-#X obj 912 120 s him;
-#X obj 918 98 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
--1;
-#X obj 855 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
--1;
-#N canvas 203 201 1128 608 newShearThick 1;
-#X obj 80 101 *~ 1.225;
-#X obj 80 140 /~ 1.81e-05;
-#X obj 80 121 *~;
-#X obj 80 80 r~ windSpeed;
-#X obj 168 65 r~ thisLen;
-#X obj 15 169 snapshot~;
-#X floatatom 15 189 0 0 0 0 - - -;
-#X obj 15 148 r myMet;
-#X obj 222 193 sqrt~;
-#X obj 274 213 /~;
-#X obj 181 260 snapshot~;
-#X floatatom 181 280 0 0 0 0 - - -;
-#X obj 181 239 r myMet;
-#X obj 423 120 *~;
-#X obj 380 161 sig~ 0.75;
-#X obj 408 199 *~;
-#X obj 407 249 /~;
-#X obj 430 216 r~ \$0-myRey;
-#X obj 406 277 sqrt~;
-#X obj 483 316 snapshot~;
-#X floatatom 483 336 0 0 0 0 - - -;
-#X obj 483 295 r myMet;
-#X obj 346 384 +~;
-#X obj 349 419 /~ 2;
-#X obj 407 479 snapshot~;
-#X floatatom 407 499 0 0 0 0 - - -;
-#X obj 407 458 r myMet;
-#X obj 171 402 s~ effectShearThick2;
-#X obj 318 502 snapshot~;
-#X floatatom 318 522 0 0 0 0 - - -;
-#X obj 318 481 r myMet;
-#X obj 181 476 r~ effectShearThick;
-#X obj 240 117 *~ 5;
-#X obj 751 183 sig~ 0.37;
-#X obj 735 207 *~;
-#X obj 747 289 pow~;
-#X obj 769 257 sig~ 0.2;
-#X obj 607 325 snapshot~;
-#X floatatom 607 345 0 0 0 0 - - -;
-#X obj 607 304 r myMet;
-#X obj 734 326 /~;
-#X obj 757 418 sig~ 5;
-#X obj 770 443 sig~ 8;
-#X obj 770 465 sqrt~;
-#X obj 757 488 *~;
-#X obj 711 497 /~;
-#X obj 802 559 snapshot~;
-#X floatatom 802 579 0 0 0 0 - - -;
-#X obj 802 538 r myMet;
-#X obj 673 533 +~;
-#X obj 651 458 *~ 0.75;
-#X obj 168 99 *~ 0.1;
-#X obj 408 383;
+#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 5 0;
-#X connect 1 0 8 0;
-#X connect 1 0 35 0;
+#X connect 1 0 31 1;
 #X connect 2 0 1 0;
 #X connect 3 0 0 0;
-#X connect 4 0 13 1;
-#X connect 4 0 13 0;
-#X connect 4 0 32 0;
-#X connect 4 0 50 0;
-#X connect 4 0 51 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 9 1;
+#X connect 8 0 5 0;
+#X connect 8 0 57 0;
 #X connect 9 0 10 0;
-#X connect 9 0 22 0;
-#X connect 10 0 11 0;
-#X connect 12 0 10 0;
-#X connect 13 0 15 1;
-#X connect 14 0 15 0;
-#X connect 15 0 16 0;
-#X connect 16 0 18 0;
-#X connect 17 0 16 1;
+#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 18 0 22 1;
-#X connect 19 0 20 0;
-#X connect 21 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 23 0 24 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 26 0 24 0;
-#X connect 28 0 29 0;
-#X connect 30 0 28 0;
-#X connect 31 0 28 0;
-#X connect 32 0 9 0;
-#X connect 32 0 34 0;
-#X connect 33 0 34 1;
-#X connect 34 0 40 0;
-#X connect 35 0 40 1;
-#X connect 36 0 35 1;
-#X connect 37 0 38 0;
-#X connect 39 0 37 0;
-#X connect 40 0 37 0;
-#X connect 40 0 49 1;
-#X connect 41 0 44 0;
-#X connect 42 0 43 0;
-#X connect 43 0 44 1;
-#X connect 44 0 45 1;
-#X connect 45 0 49 0;
-#X connect 46 0 47 0;
-#X connect 48 0 46 0;
-#X connect 49 0 46 0;
-#X connect 49 0 27 0;
-#X connect 50 0 45 0;
-#X connect 51 0 2 1;
-#X restore 736 88 pd newShearThick;
+#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 obj 60 446 HoweIntensityMonoTest;
+#X msg -154 370 550;
+#X msg 684 414 0.0045 0.06 0.0015 514.5 0.1 ZHENG;
 #X connect 0 0 2 0;
 #X connect 1 0 3 0;
 #X connect 2 0 1 0;
-#X connect 8 0 128 0;
+#X connect 8 0 197 0;
 #X connect 9 0 5 0;
-#X connect 9 0 155 0;
+#X connect 9 0 151 0;
 #X connect 9 1 6 0;
-#X connect 9 1 154 0;
+#X connect 9 1 150 0;
 #X connect 10 0 9 0;
 #X connect 10 0 12 0;
 #X connect 11 0 10 0;
@@ -1555,7 +1390,7 @@
 #X connect 31 0 24 0;
 #X connect 32 0 34 0;
 #X connect 32 0 36 0;
-#X connect 32 0 134 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;
@@ -1581,16 +1416,17 @@
 #X connect 60 0 61 0;
 #X connect 61 0 62 0;
 #X connect 63 0 61 0;
+#X connect 66 0 159 0;
 #X connect 67 0 20 0;
 #X connect 69 0 74 0;
 #X connect 70 0 73 0;
-#X connect 70 0 202 0;
+#X connect 70 0 190 0;
 #X connect 74 0 70 0;
 #X connect 75 0 20 0;
 #X connect 76 0 77 0;
-#X connect 76 0 197 0;
+#X connect 76 0 185 0;
 #X connect 78 0 79 0;
-#X connect 78 0 198 0;
+#X connect 78 0 186 0;
 #X connect 80 0 78 0;
 #X connect 80 0 101 0;
 #X connect 80 0 76 0;
@@ -1600,9 +1436,9 @@
 #X connect 80 0 105 0;
 #X connect 80 0 83 0;
 #X connect 81 0 82 0;
-#X connect 81 0 199 0;
+#X connect 81 0 187 0;
 #X connect 83 0 84 0;
-#X connect 83 0 200 0;
+#X connect 83 0 188 0;
 #X connect 86 0 87 0;
 #X connect 87 0 91 0;
 #X connect 88 0 85 0;
@@ -1617,94 +1453,85 @@
 #X connect 105 0 106 0;
 #X connect 107 0 99 0;
 #X connect 107 1 76 0;
-#X connect 107 1 124 0;
+#X connect 107 1 121 0;
 #X connect 107 2 101 0;
 #X connect 107 3 78 0;
-#X connect 107 3 129 0;
+#X connect 107 3 125 0;
 #X connect 107 4 103 0;
 #X connect 107 5 81 0;
-#X connect 107 5 130 0;
+#X connect 107 5 126 0;
 #X connect 107 6 105 0;
 #X connect 107 7 83 0;
-#X connect 107 7 131 0;
+#X connect 107 7 127 0;
 #X connect 109 0 108 0;
-#X connect 109 0 126 0;
-#X connect 110 0 127 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 160 0;
+#X connect 117 0 155 0;
 #X connect 118 0 89 0;
-#X connect 119 0 125 0;
-#X connect 120 0 172 0;
-#X connect 121 0 122 0;
-#X connect 123 0 121 0;
-#X connect 124 0 164 0;
-#X connect 124 1 185 0;
-#X connect 125 0 115 0;
-#X connect 127 0 109 0;
-#X connect 128 0 10 0;
-#X connect 129 0 166 0;
-#X connect 129 1 183 0;
-#X connect 130 0 168 0;
-#X connect 130 1 186 0;
-#X connect 131 0 170 0;
-#X connect 131 1 184 0;
-#X connect 132 0 109 0;
-#X connect 135 0 137 0;
-#X connect 135 0 163 0;
-#X connect 136 0 135 0;
-#X connect 141 0 48 0;
-#X connect 141 0 142 0;
-#X connect 144 0 13 0;
-#X connect 145 0 15 0;
-#X connect 146 0 17 0;
-#X connect 147 0 115 0;
-#X connect 148 0 88 0;
-#X connect 149 0 115 0;
-#X connect 150 0 88 0;
-#X connect 151 0 48 0;
-#X connect 152 0 156 0;
-#X connect 153 0 10 0;
-#X connect 156 0 44 0;
-#X connect 156 1 43 0;
-#X connect 156 2 42 0;
-#X connect 156 3 140 0;
-#X connect 156 4 157 0;
-#X connect 156 5 143 0;
-#X connect 158 0 156 0;
-#X connect 159 0 156 0;
-#X connect 160 0 156 0;
-#X connect 161 0 156 0;
-#X connect 164 0 165 0;
-#X connect 166 0 167 0;
-#X connect 168 0 169 0;
-#X connect 170 0 171 0;
-#X connect 172 0 173 0;
-#X connect 174 0 156 0;
-#X connect 175 0 156 0;
-#X connect 176 0 177 0;
-#X connect 176 0 201 0;
-#X connect 178 0 176 0;
-#X connect 179 0 156 0;
-#X connect 180 0 181 0;
-#X connect 182 0 180 0;
-#X connect 187 0 156 0;
-#X connect 188 0 156 0;
-#X connect 189 0 156 0;
-#X connect 190 0 156 0;
-#X connect 191 0 156 0;
-#X connect 192 0 156 0;
-#X connect 193 0 156 0;
-#X connect 194 0 156 0;
-#X connect 195 0 120 0;
-#X connect 195 0 176 0;
-#X connect 195 1 120 1;
-#X connect 195 1 180 0;
-#X connect 196 0 156 0;
-#X connect 202 0 203 0;
-#X connect 204 0 202 0;
-#X connect 207 0 206 0;
-#X connect 208 0 205 0;
+#X connect 119 0 122 0;
+#X connect 120 0 161 0;
+#X connect 121 0 174 0;
+#X connect 122 0 115 0;
+#X connect 124 0 109 0;
+#X connect 125 0 172 0;
+#X connect 126 0 175 0;
+#X connect 127 0 173 0;
+#X connect 128 0 109 0;
+#X connect 131 0 133 0;
+#X connect 131 0 158 0;
+#X connect 132 0 131 0;
+#X connect 137 0 48 0;
+#X connect 137 0 138 0;
+#X connect 140 0 13 0;
+#X connect 141 0 15 0;
+#X connect 142 0 17 0;
+#X connect 143 0 115 0;
+#X connect 144 0 88 0;
+#X connect 145 0 115 0;
+#X connect 146 0 88 0;
+#X connect 147 0 48 0;
+#X connect 148 0 152 0;
+#X connect 149 0 10 0;
+#X connect 152 0 44 0;
+#X connect 152 1 43 0;
+#X connect 152 2 42 0;
+#X connect 152 3 136 0;
+#X connect 152 4 153 0;
+#X connect 152 5 139 0;
+#X connect 154 0 152 0;
+#X connect 155 0 152 0;
+#X connect 156 0 152 0;
+#X connect 159 0 160 0;
+#X connect 161 0 162 0;
+#X connect 163 0 152 0;
+#X connect 164 0 152 0;
+#X connect 165 0 166 0;
+#X connect 165 0 189 0;
+#X connect 167 0 165 0;
+#X connect 168 0 152 0;
+#X connect 169 0 170 0;
+#X connect 171 0 169 0;
+#X connect 176 0 152 0;
+#X connect 177 0 152 0;
+#X connect 178 0 152 0;
+#X connect 179 0 152 0;
+#X connect 180 0 152 0;
+#X connect 181 0 152 0;
+#X connect 182 0 152 0;
+#X connect 183 0 152 0;
+#X connect 184 0 152 0;
+#X connect 190 0 191 0;
+#X connect 192 0 190 0;
+#X connect 194 0 152 0;
+#X connect 195 0 152 0;
+#X connect 196 0 120 0;
+#X connect 196 0 165 0;
+#X connect 196 1 120 1;
+#X connect 196 1 169 0;
+#X connect 197 0 10 0;
+#X connect 198 0 152 0;
diff -r ac3659c52b07 -r 3b8a33b7ccc4 Shallow Cavity/HoweDirect.pd
--- a/Shallow Cavity/HoweDirect.pd	Wed Apr 05 08:22:31 2017 +0100
+++ b/Shallow Cavity/HoweDirect.pd	Fri Apr 07 22:39:12 2017 +0100
@@ -151,7 +151,7 @@
 #X obj 1067 402 -~;
 #X obj 1067 340 r~ thisEle;
 #X obj 1052 430 +~;
-#X obj 197 255 r~ effectShearThick;
+#X obj 197 255 r~ effectShearThick2;
 #X connect 0 0 7 0;
 #X connect 2 0 38 0;
 #X connect 4 0 91 0;
diff -r ac3659c52b07 -r 3b8a33b7ccc4 Shallow Cavity/HoweIntensity.pd
--- a/Shallow Cavity/HoweIntensity.pd	Wed Apr 05 08:22:31 2017 +0100
+++ b/Shallow Cavity/HoweIntensity.pd	Fri Apr 07 22:39:12 2017 +0100
@@ -171,7 +171,6 @@
 #X connect 17 0 14 0;
 #X connect 18 0 14 1;
 #X connect 19 0 21 0;
-#X connect 19 0 133 0;
 #X connect 20 0 21 1;
 #X connect 21 0 22 0;
 #X connect 22 0 23 0;
diff -r ac3659c52b07 -r 3b8a33b7ccc4 Shallow Cavity/HoweIntensityDipoleD2.pd
--- a/Shallow Cavity/HoweIntensityDipoleD2.pd	Wed Apr 05 08:22:31 2017 +0100
+++ b/Shallow Cavity/HoweIntensityDipoleD2.pd	Fri Apr 07 22:39:12 2017 +0100
@@ -1,4 +1,4 @@
-#N canvas 687 195 1347 841 10;
+#N canvas 148 33 1347 841 10;
 #X obj 117 145 sig~ 0.12;
 #X text 117 128 Alpha;
 #X obj 124 391 sig~ 1.02;
@@ -136,12 +136,7 @@
 #X obj 276 278 snapshot~;
 #X floatatom 276 299 0 0 0 0 - - -;
 #X obj 276 257 r myMet;
-#X obj 182 334 sig~;
-#X msg 151 313 0.000878;
-#X msg 223 307 0.00105;
-#X obj 224 288 r me;
-#X obj 123 332 r him;
-#X obj 144 258 r~ effectShearThick;
+#X obj 144 258 r~ effectShearThick2;
 #X connect 0 0 7 0;
 #X connect 2 0 38 0;
 #X connect 4 0 88 0;
@@ -271,9 +266,5 @@
 #X connect 133 0 131 0;
 #X connect 134 0 135 0;
 #X connect 136 0 134 0;
-#X connect 138 0 137 0;
-#X connect 139 0 137 0;
-#X connect 140 0 139 0;
-#X connect 141 0 138 0;
-#X connect 142 0 131 0;
-#X connect 142 0 78 0;
+#X connect 137 0 131 0;
+#X connect 137 0 78 0;
diff -r ac3659c52b07 -r 3b8a33b7ccc4 Shallow Cavity/HoweIntensityMonoTest.pd
--- a/Shallow Cavity/HoweIntensityMonoTest.pd	Wed Apr 05 08:22:31 2017 +0100
+++ b/Shallow Cavity/HoweIntensityMonoTest.pd	Fri Apr 07 22:39:12 2017 +0100
@@ -145,7 +145,7 @@
 #X obj 314 93 r~ thisDep;
 #X obj 293 141 outlet~;
 #X obj 171 84 inlet~;
-#X obj 155 249 r~ effectShearThick;
+#X obj 155 249 r~ effectShearThick2;
 #X connect 0 0 7 0;
 #X connect 2 0 38 0;
 #X connect 4 0 84 0;
diff -r ac3659c52b07 -r 3b8a33b7ccc4 Shallow Cavity/midCav.pd
--- a/Shallow Cavity/midCav.pd	Wed Apr 05 08:22:31 2017 +0100
+++ b/Shallow Cavity/midCav.pd	Fri Apr 07 22:39:12 2017 +0100
@@ -1,10 +1,10 @@
 #N canvas 388 200 1024 574 10;
 #X obj 157 128 hsl 100 25 0.001 10 1 0 empty empty Length 3 13 0 10
--262144 -1 -1 3656 1;
+-262144 -1 -1 1617 1;
 #X obj 157 158 hsl 100 25 0.0001 10 1 0 empty empty Width 3 13 0 10
--262144 -1 -1 4905 1;
+-262144 -1 -1 5501 1;
 #X obj 157 187 hsl 100 25 0.001 10 1 0 empty empty Depth 3 13 0 10
--262144 -1 -1 2911 1;
+-262144 -1 -1 436 1;
 #X obj 157 247 hsl 100 25 1 50 0 0 empty empty Distance 3 13 0 10 -262144
 -1 -1 0 1;
 #X obj 157 218 hsl 100 25 180 0 0 0 empty empty Elevation 3 13 0 10
@@ -16,7 +16,7 @@
 #X floatatom 266 250 0 0 0 0 - - -;
 #X floatatom 466 132 0 0 0 0 - - -;
 #X obj 359 127 hsl 100 25 0.1 1000 1 0 empty empty Speed 3 13 0 10
--262144 -1 -1 3800 1;
+-262144 -1 -1 9186 1;
 #X obj 45 183 r depth;
 #X obj 44 154 r width;
 #X obj 37 125 r length;
@@ -39,7 +39,7 @@
 #X obj 413 238 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X obj 157 277 hsl 100 25 0.0001 1e+09 1 0 empty empty Gain 3 13 0
-10 -262144 -1 -1 6039 1;
+10 -262144 -1 -1 4340 1;
 #X obj 46 274 r GAIN;
 #X floatatom 266 281 0 0 0 0 - - -;
 #X obj 412 312 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
@@ -56,7 +56,6 @@
 #X obj 607 303 unpack f f f f f s;
 #X obj 691 333 s GAIN;
 #X msg 762 146 0.0191 0.1016 0.0127 308.7 7 AHUJA;
-#X msg 762 196 0.0045 0.06 0.0015 514.5 50 ZHENG;
 #X msg 762 120 0.4739 0.1016 0.1053 291.55 4 FUGLSANG;
 #X msg 621 234 0.03 0.03 0.015 3.43 8500 HOWE;
 #X msg 762 171 0.06 0.06 0.35 40 0.1 ERICKSON;
@@ -73,18 +72,19 @@
 #X text 140 386 Rossiter Mode 3 (Hz);
 #X text 139 415 Rossiter Mode 4 (Hz);
 #X text 141 447 1st Depth Mode (Hz);
+#X msg 762 196 0.0045 0.06 0.0015 514.5 0.1 ZHENG;
 #X connect 0 0 5 0;
-#X connect 0 0 49 4;
+#X connect 0 0 48 4;
 #X connect 1 0 6 0;
-#X connect 1 0 49 5;
+#X connect 1 0 48 5;
 #X connect 2 0 7 0;
-#X connect 2 0 49 6;
+#X connect 2 0 48 6;
 #X connect 3 0 9 0;
-#X connect 3 0 49 3;
+#X connect 3 0 48 3;
 #X connect 4 0 8 0;
-#X connect 4 0 49 7;
+#X connect 4 0 48 7;
 #X connect 11 0 10 0;
-#X connect 11 0 49 0;
+#X connect 11 0 48 0;
 #X connect 12 0 2 0;
 #X connect 13 0 1 0;
 #X connect 14 0 0 0;
@@ -92,20 +92,20 @@
 #X connect 16 0 4 0;
 #X connect 17 0 11 0;
 #X connect 18 0 42 0;
-#X connect 20 0 46 0;
-#X connect 21 0 44 0;
-#X connect 22 0 45 0;
-#X connect 23 0 43 0;
-#X connect 24 0 48 0;
-#X connect 25 0 47 0;
+#X connect 20 0 45 0;
+#X connect 21 0 43 0;
+#X connect 22 0 44 0;
+#X connect 23 0 59 0;
+#X connect 24 0 47 0;
+#X connect 25 0 46 0;
 #X connect 26 0 28 0;
-#X connect 26 0 49 1;
+#X connect 26 0 48 1;
 #X connect 27 0 26 0;
 #X connect 31 0 32 0;
 #X connect 31 0 33 0;
 #X connect 32 0 4 0;
 #X connect 33 0 3 0;
-#X connect 37 0 45 0;
+#X connect 37 0 44 0;
 #X connect 40 0 36 0;
 #X connect 40 1 35 0;
 #X connect 40 2 34 0;
@@ -114,22 +114,22 @@
 #X connect 40 5 39 0;
 #X connect 40 5 19 0;
 #X connect 42 0 40 0;
-#X connect 42 0 49 2;
+#X connect 42 0 48 2;
 #X connect 43 0 40 0;
-#X connect 43 0 49 2;
 #X connect 44 0 40 0;
+#X connect 44 0 48 2;
 #X connect 45 0 40 0;
-#X connect 45 0 49 2;
+#X connect 45 0 48 2;
 #X connect 46 0 40 0;
-#X connect 46 0 49 2;
-#X connect 47 0 40 0;
-#X connect 47 0 49 2;
-#X connect 48 0 49 2;
-#X connect 49 0 29 0;
-#X connect 49 1 30 0;
-#X connect 49 2 50 0;
-#X connect 49 3 51 0;
-#X connect 49 4 52 0;
-#X connect 49 5 53 0;
-#X connect 49 6 54 0;
+#X connect 46 0 48 2;
+#X connect 47 0 48 2;
+#X connect 48 0 29 0;
+#X connect 48 1 30 0;
+#X connect 48 2 49 0;
+#X connect 48 3 50 0;
+#X connect 48 4 51 0;
+#X connect 48 5 52 0;
+#X connect 48 6 53 0;
+#X connect 59 0 40 0;
+#X connect 59 0 48 2;
 #X coords 0 -1 1 1 500 400 2 100 100;