# HG changeset patch
# User Rod Selfridge <r.selfridge@qmul.ac.uk>
# Date 1480801004 0
# Node ID dbe084bffe10b84ad2c381da33337346e46a3483
# Parent  e76673cec7d0dd2aa51800b5500da04075dde5de
Howe Eqn added

diff -r e76673cec7d0 -r dbe084bffe10 Shallow Cavity/CavD3.pd
--- a/Shallow Cavity/CavD3.pd	Tue Nov 29 14:09:31 2016 +0000
+++ b/Shallow Cavity/CavD3.pd	Sat Dec 03 21:36:44 2016 +0000
@@ -47,14 +47,14 @@
 -262144 -1 -1 3656 1;
 #X floatatom 481 -147 0 0 0 0 - - -;
 #X obj 550 -178 hsl 100 25 0.001 10 1 0 empty empty Width 3 13 0 10
--262144 -1 -1 2475 1;
+-262144 -1 -1 3656 1;
 #X floatatom 595 -148 0 0 0 0 - - -;
 #X obj 664 -178 hsl 100 25 0.001 10 1 0 empty empty Depth 3 13 0 10
 -262144 -1 -1 2911 1;
 #X floatatom 712 -149 0 0 0 0 - - -;
 #X obj -41 -21 delwrite~ varwind 3000;
 #X obj 70 -127 hsl 500 15 0 1000 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 648 1;
+-1 -1 0 1;
 #X obj -39 -83 *~ 1;
 #X obj -39 -61 +~ 1;
 #X obj -39 -185 loadbang;
@@ -159,6 +159,14 @@
 #X obj 439 671 outlet~;
 #X obj 836 139 outlet;
 #X obj 567 127 outlet;
+#X obj 163 492 r myMet;
+#X obj 163 513 snapshot~;
+#X floatatom 163 537 0 0 0 0 - - -;
+#X obj 877 669 *~;
+#X obj 877 694 /~;
+#X obj 759 674 r myMet;
+#X obj 759 695 snapshot~;
+#X floatatom 759 719 0 0 0 0 - - -;
 #X connect 0 0 2 0;
 #X connect 0 0 2 1;
 #X connect 1 0 4 0;
@@ -177,8 +185,10 @@
 #X connect 14 0 15 1;
 #X connect 15 0 17 0;
 #X connect 15 0 41 0;
+#X connect 15 0 85 0;
 #X connect 17 0 37 0;
 #X connect 18 0 17 1;
+#X connect 18 0 88 1;
 #X connect 19 0 20 0;
 #X connect 20 0 21 0;
 #X connect 22 0 23 0;
@@ -241,17 +251,24 @@
 #X connect 69 0 70 1;
 #X connect 70 0 71 0;
 #X connect 71 0 73 0;
+#X connect 71 0 87 1;
 #X connect 72 0 73 0;
 #X connect 73 0 74 0;
 #X connect 75 0 69 0;
 #X connect 76 0 81 0;
 #X connect 77 0 80 0;
 #X connect 78 0 79 0;
+#X connect 84 0 85 0;
+#X connect 85 0 86 0;
+#X connect 87 0 88 0;
+#X connect 88 0 90 0;
+#X connect 89 0 90 0;
+#X connect 90 0 91 0;
 #X restore 451 10 pd cavFreqD1;
 #X obj -173 -31 s~ \$0-windSpeed;
 #X obj -173 -51 vd~ varwind;
 #X text -160 -75 Wind Speed;
-#N canvas 450 162 1067 712 rossFreqD1_n=1 1;
+#N canvas 450 162 1067 712 rossFreqD1_n=1 0;
 #X obj 239 -76 r~ MY_MACH;
 #X obj 224 -97 sig~ 1;
 #X obj 239 -51 *~;
@@ -304,7 +321,7 @@
 #X obj 443 65 snapshot~;
 #X floatatom 443 89 0 0 0 0 - - -;
 #X obj 209 60 +~ 1.7544;
-#X obj 194 -164 sig~ 2;
+#X obj 194 -164 sig~ 1;
 #X connect 0 0 2 0;
 #X connect 0 0 2 1;
 #X connect 0 0 33 0;
@@ -695,7 +712,7 @@
 #X msg 900 -104 0.025 0.0508 0.03175;
 #X msg 882 -8 0.075 0.0508 0.03175;
 #X text -81 52 St_1;
-#X text 6 177 St_2;
+#X text 40 175 St_2;
 #X text 108 181 St_3;
 #X text 206 185 St_4;
 #X obj -26 79 -~;
@@ -1923,8 +1940,8 @@
 #X obj 898 178 loadbang;
 #X msg 898 198 0.5;
 #X obj 898 218 s \$0-thisPan;
-#X obj 878 283 s~ \$0-liftDiGain;
-#X obj 878 261 sig~ 1;
+#X obj 898 160 s~ \$0-liftDiGain;
+#X obj 898 138 sig~ 1;
 #N canvas 173 219 976 679 Dipoles 0;
 #X obj 225 178 r~ \$0-liftDiGain;
 #X obj 210 199 *~;
@@ -2270,13 +2287,13 @@
 #X connect 12 0 10 0;
 #X connect 14 0 9 1;
 #X restore 476 -72 pd DepthMode;
-#X obj 814 409 hsl 200 25 1 250 0 0 empty empty ShearThick 3 13 0 10
+#X obj 810 438 hsl 200 25 1 250 0 0 empty empty ShearThick 3 13 0 10
 -262144 -1 -1 0 1;
-#X floatatom 859 440 0 0 0 0 - - -;
-#X msg 811 439 \$1 20;
-#X obj 811 459 line~;
-#X obj 811 388 r ThickRatio;
-#X obj 811 479 s~ \$0-thisThickRatio;
+#X floatatom 855 469 0 0 0 0 - - -;
+#X msg 807 468 \$1 20;
+#X obj 807 488 line~;
+#X obj 807 417 r ThickRatio;
+#X obj 807 508 s~ \$0-thisThickRatio;
 #X obj 193 -42 *~ 2.23694;
 #X obj 260 -27 snapshot~;
 #X floatatom 260 -7 0 0 0 0 - - -;
@@ -2496,12 +2513,11 @@
 #X obj 767 162 r~ \$0-thisLen;
 #X obj 706 183 *~;
 #X obj 706 142 r~ \$0-windSpeed;
-#X msg 895 40 0.03 0.01 0.015;
 #X msg 274 -152 15;
 #X obj -105 143 snapshot~;
 #X floatatom -105 163 0 0 0 0 - - -;
 #X obj -105 122 r myMet;
-#N canvas 437 105 698 733 BlockRoss 1;
+#N canvas 437 105 698 733 BlockRoss 0;
 #X obj 239 37 r~ MY_MACH;
 #X obj 284 95 r~ \$0-thisLen;
 #X obj 299 114 r~ \$0-thisDep;
@@ -2525,7 +2541,7 @@
 #X obj 239 220 +~;
 #X obj 351 195 /~ 1;
 #X obj 375 165 hsl 100 25 0.4 0.6 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 5300 1;
+-262144 -1 -1 0 1;
 #X floatatom 397 204 0 0 0 0 - - -;
 #X obj 224 346 outlet~;
 #X obj 176 264 outlet~;
@@ -2558,8 +2574,7 @@
 #X connect 22 0 21 1;
 #X connect 26 0 8 0;
 #X restore 261 50 pd BlockRoss;
-#X obj -41 -43 sig~ 12;
-#N canvas 32 23 842 534 Plumblee 1;
+#N canvas 32 23 842 534 Plumblee 0;
 #X obj 264 64 sig~ 0.25;
 #X obj 294 105 r~ \$0-thisLen;
 #X obj 309 124 r~ \$0-thisDep;
@@ -2606,6 +2621,308 @@
 #X connect 19 0 21 0;
 #X connect 20 0 19 1;
 #X restore 335 78 pd Plumblee;
+#X obj 902 555 sqrt~;
+#X obj 799 573 snapshot~;
+#X floatatom 799 593 0 0 0 0 - - -;
+#X obj 799 552 r myMet;
+#X obj 902 534 sig~ 1;
+#X obj -41 -43 sig~ 34.3;
+#X msg 895 40 0.03 0.03 0.015;
+#X obj 19 138 snapshot~;
+#X floatatom 19 158 0 0 0 0 - - -;
+#X obj 19 117 r myMet;
+#X obj 140 152 snapshot~;
+#X floatatom 140 172 0 0 0 0 - - -;
+#X obj 140 131 r myMet;
+#X obj 240 152 snapshot~;
+#X floatatom 240 172 0 0 0 0 - - -;
+#X obj 240 131 r myMet;
+#N canvas 22 34 1347 828 Howe 1;
+#X obj 215 2 r~ \$0-windSpeed;
+#X obj 23 128 r~ \$0-thisLen;
+#X obj 473 -24 r~ \$0-thisEle;
+#X obj 88 -4 sig~ 0.12;
+#X text 88 -21 Alpha;
+#X obj 100 221 sig~ 1.02;
+#X text 100 204 C2;
+#X obj 23 169 *~;
+#X obj 23 190 s~ A;
+#X obj 23 -1 r~ A;
+#X obj 23 20 *~ 3.1416;
+#X obj 23 41 /~ 4;
+#X obj 23 60 sqrt~;
+#X obj 23 81 s~ l;
+#X obj 103 16 r~ \$0-thisLen;
+#X obj 88 37 *~;
+#X obj 103 57 sig~ 4.443;
+#X obj 88 79 /~;
+#X obj 88 101 s~ sigma;
+#X obj 200 23 *~;
+#X obj 200 65 /~;
+#X obj 215 44 r~ \$0-thisLen;
+#X obj 200 86 *~ 6.2839;
+#X obj 249 111 s~ omega;
+#X obj 200 112 /~ 343;
+#X obj 251 135 s~ Ko;
+#X obj 215 135 r~ A;
+#X obj 200 156 *~;
+#X obj 200 178 s~ min;
+#X obj 335 -21 r~ MY_MACH;
+#X obj 335 2 *~;
+#X obj 350 22 r~ omega;
+#X obj 365 44 r~ sigma;
+#X obj 350 65 *~;
+#X obj 350 105 /~;
+#X obj 365 85 r~ \$0-windSpeed;
+#X obj 371 163 /~;
+#X obj 350 183 pow~;
+#X obj 335 204 *~;
+#X obj 335 226 s~ num1;
+#X obj 371 125 sig~ 5;
+#X obj 386 144 sig~ 3;
+#X obj 473 -3 cos~;
+#X obj 488 17 r~ MY_MACH;
+#X obj 473 38 *~;
+#X obj 473 60 +~ 1;
+#X obj 473 85 *~;
+#X obj 489 105 r~ omega;
+#X obj 504 127 r~ sigma;
+#X obj 489 148 *~;
+#X obj 489 188 /~;
+#X obj 504 168 r~ \$0-windSpeed;
+#X obj 489 213 *~;
+#X obj 489 277 +~;
+#X obj 504 233 sig~ 0.12;
+#X text 516 214 Alpha;
+#X obj 504 256 *~;
+#X obj 510 336 /~;
+#X obj 489 356 pow~;
+#X obj 510 298 sig~ 3;
+#X obj 525 317 sig~ 2;
+#X obj 473 382 *~;
+#X obj 473 405 s~ demon1;
+#X obj 38 149 r~ \$0-thisWid;
+#X obj 115 242 r~ Ko;
+#X obj 130 262 r~ \$0-thisDep;
+#X obj 115 282 *~;
+#X obj 115 304 sin~;
+#X obj 100 325 *~;
+#X obj 100 348 s~ num2;
+#X obj 12 427 exp~;
+#X obj 153 615 snapshot~;
+#X floatatom 153 635 0 0 0 0 - - -;
+#X obj 153 594 r myMet;
+#X obj 84 427 exp~;
+#X obj 12 450 +~;
+#X obj 12 473 /~ 2;
+#X obj 659 -6 r~ Ko;
+#X obj 689 35 r~ l;
+#X obj 674 15 r~ \$0-thisDep;
+#X obj 674 56 +~;
+#X obj 659 77 *~;
+#X obj 659 99 cos~;
+#X obj 16 228 r~ Ko;
+#X obj 16 254 *~;
+#X obj 31 275 r~ A;
+#X obj 16 296 *~;
+#X obj 31 317 *~ 6.2839;
+#X obj 16 360 s~ comp1;
+#X obj 12 407 r~ comp1;
+#X obj 84 407 r~ comp1;
+#X obj 16 338 /~ 6.2839;
+#X obj 12 497 s~ cosh;
+#X obj 69 473 /~ 2;
+#X obj 69 497 s~ sinh;
+#X obj 69 450 -~;
+#X obj 733 102 sin~;
+#X obj 673 119 r~ cosh;
+#X obj 659 139 *~;
+#X obj 748 123 r~ sinh;
+#X obj 733 143 *~;
+#X obj 659 163 s~ thisX;
+#X obj 733 165 s~ thisY;
+#X obj 652 269 r~ thisX;
+#X obj 652 311 *~;
+#X obj 667 290 r~ num2;
+#X obj 667 330 r~ thisX;
+#X obj 682 374 r~ thisY;
+#X obj 667 354 *~;
+#X obj 682 397 *~;
+#X obj 667 418 +~;
+#X obj 652 440 /~;
+#X obj 652 467 *~;
+#X obj 652 490 s~ block1;
+#X obj 819 300 *~;
+#X obj 834 279 r~ num2;
+#X obj 834 319 r~ thisX;
+#X obj 849 363 r~ thisY;
+#X obj 834 343 *~;
+#X obj 849 386 *~;
+#X obj 834 407 +~;
+#X obj 819 429 /~;
+#X obj 819 258 r~ thisY;
+#X obj 835 450 r~ \$0-thisEle;
+#X obj 835 470 cos~;
+#X obj 820 491 +~;
+#X obj 835 512 r~ MY_MACH;
+#X obj 820 533 -~;
+#X obj 820 576 s~ block2;
+#X obj 820 556 *~;
+#X obj 289 394 r~ num1;
+#X obj 304 413 r~ demon1;
+#X obj 289 434 /~;
+#X obj 304 455 r~ block1;
+#X obj 319 475 r~ block2;
+#X obj 304 496 +~;
+#X obj 289 520 *~;
+#X obj 289 548 s~ \$0-thisHowe;
+#X obj 200 -17 r~ St4;
+#X connect 0 0 19 1;
+#X connect 1 0 7 0;
+#X connect 2 0 42 0;
+#X connect 3 0 15 0;
+#X connect 5 0 68 0;
+#X connect 7 0 8 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 14 0 15 1;
+#X connect 15 0 17 0;
+#X connect 16 0 17 1;
+#X connect 17 0 18 0;
+#X connect 19 0 20 0;
+#X connect 20 0 22 0;
+#X connect 21 0 20 1;
+#X connect 22 0 23 0;
+#X connect 22 0 24 0;
+#X connect 24 0 25 0;
+#X connect 24 0 27 0;
+#X connect 26 0 27 1;
+#X connect 27 0 28 0;
+#X connect 29 0 30 1;
+#X connect 29 0 30 0;
+#X connect 30 0 38 0;
+#X connect 31 0 33 0;
+#X connect 32 0 33 1;
+#X connect 33 0 34 0;
+#X connect 34 0 37 0;
+#X connect 35 0 34 1;
+#X connect 36 0 37 1;
+#X connect 37 0 38 1;
+#X connect 38 0 39 0;
+#X connect 40 0 36 0;
+#X connect 41 0 36 1;
+#X connect 42 0 44 0;
+#X connect 43 0 44 1;
+#X connect 44 0 45 0;
+#X connect 45 0 46 0;
+#X connect 45 0 46 1;
+#X connect 46 0 61 0;
+#X connect 47 0 49 0;
+#X connect 48 0 49 1;
+#X connect 49 0 50 0;
+#X connect 50 0 52 0;
+#X connect 50 0 52 1;
+#X connect 51 0 50 1;
+#X connect 52 0 53 0;
+#X connect 53 0 58 0;
+#X connect 54 0 56 0;
+#X connect 54 0 56 1;
+#X connect 56 0 53 1;
+#X connect 57 0 58 1;
+#X connect 58 0 61 1;
+#X connect 59 0 57 0;
+#X connect 60 0 57 1;
+#X connect 61 0 62 0;
+#X connect 63 0 7 1;
+#X connect 64 0 66 0;
+#X connect 65 0 66 1;
+#X connect 66 0 67 0;
+#X connect 67 0 68 1;
+#X connect 68 0 69 0;
+#X connect 70 0 75 0;
+#X connect 70 0 95 0;
+#X connect 71 0 72 0;
+#X connect 73 0 71 0;
+#X connect 74 0 75 1;
+#X connect 74 0 95 1;
+#X connect 75 0 76 0;
+#X connect 76 0 92 0;
+#X connect 77 0 81 0;
+#X connect 78 0 80 1;
+#X connect 79 0 80 0;
+#X connect 80 0 81 1;
+#X connect 81 0 82 0;
+#X connect 81 0 96 0;
+#X connect 82 0 98 0;
+#X connect 83 0 84 0;
+#X connect 83 0 84 1;
+#X connect 84 0 86 0;
+#X connect 85 0 86 1;
+#X connect 86 0 91 0;
+#X connect 89 0 70 0;
+#X connect 90 0 74 0;
+#X connect 91 0 88 0;
+#X connect 93 0 94 0;
+#X connect 95 0 93 0;
+#X connect 96 0 100 0;
+#X connect 97 0 98 1;
+#X connect 98 0 101 0;
+#X connect 99 0 100 1;
+#X connect 100 0 102 0;
+#X connect 103 0 104 0;
+#X connect 104 0 111 0;
+#X connect 105 0 104 1;
+#X connect 106 0 108 0;
+#X connect 106 0 108 1;
+#X connect 107 0 109 0;
+#X connect 107 0 109 1;
+#X connect 108 0 110 0;
+#X connect 109 0 110 1;
+#X connect 110 0 111 1;
+#X connect 111 0 112 0;
+#X connect 111 0 112 1;
+#X connect 112 0 113 0;
+#X connect 114 0 121 0;
+#X connect 115 0 114 1;
+#X connect 116 0 118 0;
+#X connect 116 0 118 1;
+#X connect 117 0 119 0;
+#X connect 117 0 119 1;
+#X connect 118 0 120 0;
+#X connect 119 0 120 1;
+#X connect 120 0 121 1;
+#X connect 121 0 125 0;
+#X connect 122 0 114 0;
+#X connect 123 0 124 0;
+#X connect 124 0 125 1;
+#X connect 125 0 127 0;
+#X connect 126 0 127 1;
+#X connect 127 0 129 0;
+#X connect 127 0 129 1;
+#X connect 129 0 128 0;
+#X connect 130 0 132 0;
+#X connect 131 0 132 1;
+#X connect 132 0 136 0;
+#X connect 133 0 135 0;
+#X connect 134 0 135 1;
+#X connect 135 0 136 1;
+#X connect 136 0 71 0;
+#X connect 136 0 137 0;
+#X connect 138 0 19 0;
+#X restore 351 10 pd Howe;
+#X floatatom 969 334 0 0 0 0 - - -;
+#X msg 902 355 \$1 20;
+#X obj 902 375 line~;
+#X obj 905 306 hsl 100 25 180 1.8 1 0 empty empty Elevation 3 13 0
+10 -262144 -1 -1 3800 1;
+#X obj 902 335 * 0.01745;
+#X obj 902 396 s~ \$0-thisEle;
+#X obj -37 114 s~ St1;
+#X obj 84 149 s~ St2;
+#X obj 201 153 s~ St3;
+#X obj 331 124 s~ St4;
 #X connect 0 0 2 0;
 #X connect 1 0 3 0;
 #X connect 2 0 1 0;
@@ -2656,6 +2973,8 @@
 #X connect 43 0 76 0;
 #X connect 43 0 86 0;
 #X connect 43 0 90 0;
+#X connect 43 0 191 0;
+#X connect 43 0 219 0;
 #X connect 44 0 75 0;
 #X connect 45 0 46 0;
 #X connect 47 0 45 0;
@@ -2682,11 +3001,17 @@
 #X connect 76 0 77 0;
 #X connect 76 0 86 1;
 #X connect 76 0 94 0;
+#X connect 76 0 203 0;
+#X connect 76 0 220 0;
 #X connect 77 0 78 0;
 #X connect 77 0 86 2;
 #X connect 77 0 96 0;
+#X connect 77 0 206 0;
+#X connect 77 0 221 0;
 #X connect 78 0 86 3;
 #X connect 78 0 98 0;
+#X connect 78 0 209 0;
+#X connect 78 0 222 0;
 #X connect 79 0 80 0;
 #X connect 80 0 87 0;
 #X connect 81 0 82 0;
@@ -2790,8 +3115,23 @@
 #X connect 187 0 188 1;
 #X connect 188 0 180 0;
 #X connect 189 0 179 0;
-#X connect 190 0 53 0;
-#X connect 191 0 21 0;
-#X connect 192 0 193 0;
-#X connect 194 0 192 0;
-#X connect 196 0 20 0;
+#X connect 190 0 21 0;
+#X connect 191 0 192 0;
+#X connect 193 0 191 0;
+#X connect 196 0 197 0;
+#X connect 197 0 198 0;
+#X connect 199 0 197 0;
+#X connect 200 0 196 0;
+#X connect 201 0 20 0;
+#X connect 202 0 53 0;
+#X connect 203 0 204 0;
+#X connect 205 0 203 0;
+#X connect 206 0 207 0;
+#X connect 208 0 206 0;
+#X connect 209 0 210 0;
+#X connect 211 0 209 0;
+#X connect 214 0 215 0;
+#X connect 215 0 218 0;
+#X connect 216 0 213 0;
+#X connect 216 0 217 0;
+#X connect 217 0 214 0;