# HG changeset patch
# User Rod Selfridge <r.selfridge@qmul.ac.uk>
# Date 1491849513 -3600
# Node ID 88c2acdaa49a8c2b3028287455020ca0bf28f4a5
# Parent  bb1881a778625a46b87c4479426b73c561a9d7e3
Patches altered to account for additional factor.

diff -r bb1881a77862 -r 88c2acdaa49a CavD5.pd
--- a/CavD5.pd	Fri Apr 07 22:46:44 2017 +0100
+++ b/CavD5.pd	Mon Apr 10 19:38:33 2017 +0100
@@ -1,4 +1,4 @@
-#N canvas 129 23 1287 823 10;
+#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
@@ -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 15189 1;
+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 4905 1;
+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 4905 1;
+-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 4309 1;
+-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
@@ -501,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 3310 1;
+-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;
@@ -569,7 +569,6 @@
 #X connect 17 0 1 0;
 #X connect 18 0 6 0;
 #X restore 93 107 pd rangeLimit;
-#X obj 210 202 *~;
 #X text 40 -33 Generates the sound associated with the resonant cavity
 monopole.;
 #X obj 149 349 outlet~;
@@ -589,15 +588,12 @@
 #X connect 8 0 10 1;
 #X connect 8 0 11 1;
 #X connect 9 0 7 1;
-#X connect 9 0 16 1;
 #X connect 10 0 11 0;
-#X connect 11 0 13 0;
-#X connect 12 0 13 1;
-#X connect 12 0 16 0;
-#X connect 13 0 7 0;
-#X connect 16 0 15 0;
-#X connect 17 0 18 0;
-#X connect 19 0 17 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 *~;
@@ -743,7 +739,7 @@
 #X floatatom 291 387 0 0 0 0 - - -;
 #X obj 291 346 r myMet;
 #X obj 278 407 outlet;
-#X obj 147 205 HoweIntensityDipoleD2;
+#X obj 147 203 HoweIntensityDipoleD2;
 #X connect 0 0 11 0;
 #X connect 3 0 1 0;
 #X connect 3 1 2 0;
@@ -882,8 +878,8 @@
 #X connect 14 0 3 0;
 #X restore 638 138 pd thickcalc;
 #X obj -82 -128 s gusts;
-#N canvas 815 537 450 300 IntensityTest 0;
-#N canvas 276 439 681 350 PlotWrt 0;
+#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~;
@@ -906,7 +902,12 @@
 #X obj 34 109 r myMet;
 #X obj 21 86 inlet~;
 #X msg 34 180 add2 \$1;
-#X msg 419 163 write HoweFull5_060417.txt;
+#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;
@@ -928,11 +929,16 @@
 #X connect 19 0 17 0;
 #X connect 20 0 17 0;
 #X connect 21 0 0 0;
-#X connect 22 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 0 1;
+-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 - - -;
@@ -943,11 +949,16 @@
 #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 msg 87 -1 12000 15000;
 #X obj 223 103 HoweIntensityMonoTest;
-#X obj 215 73 HoweIntensityDipoleD2;
-#X connect 1 0 0 0;
+#X connect 1 0 0 1;
 #X connect 1 0 9 0;
 #X connect 2 0 3 0;
 #X connect 2 0 7 0;
@@ -955,18 +966,23 @@
 #X connect 6 0 4 0;
 #X connect 7 0 8 0;
 #X connect 8 0 1 0;
-#X connect 8 0 0 3;
+#X connect 8 0 0 4;
 #X connect 8 0 4 0;
-#X connect 8 0 15 0;
-#X connect 8 0 16 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 14 0 8 0;
-#X connect 15 1 0 2;
-#X connect 16 0 0 1;
+#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 765 502 606 328 AngleTest 0;
+#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;
@@ -1033,7 +1049,7 @@
 #X connect 30 0 27 0;
 #X connect 31 0 0 0;
 #X connect 32 0 0 0;
-#X restore 309 222 pd PlotWrt;
+#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;
@@ -1098,27 +1114,119 @@
 #X obj 140 97 snapshot~;
 #X floatatom 140 117 0 0 0 0 - - -;
 #X obj 140 76 r myMet;
-#X obj 385 87 line~;
+#X obj 547 82 line~;
 #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 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 418 49 90;
+#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;
@@ -1131,6 +1239,7 @@
 #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;
@@ -1140,6 +1249,21 @@
 #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;
@@ -1159,7 +1283,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 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;
 #X text -97 -88 comment;
@@ -1188,12 +1311,9 @@
 #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;
+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 obj 15 498 snapshot~;
-#X floatatom 15 518 0 0 0 0 - - -;
-#X obj 15 477 r myMet;
 #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 - - -;
@@ -1351,13 +1471,43 @@
 #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;
+#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 193 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;
@@ -1412,17 +1562,17 @@
 #X connect 60 0 61 0;
 #X connect 61 0 62 0;
 #X connect 63 0 61 0;
-#X connect 66 0 155 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 186 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 181 0;
+#X connect 76 0 177 0;
 #X connect 78 0 79 0;
-#X connect 78 0 182 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;
@@ -1432,9 +1582,9 @@
 #X connect 80 0 105 0;
 #X connect 80 0 83 0;
 #X connect 81 0 82 0;
-#X connect 81 0 183 0;
+#X connect 81 0 179 0;
 #X connect 83 0 84 0;
-#X connect 83 0 184 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;
@@ -1467,16 +1617,16 @@
 #X connect 114 0 116 0;
 #X connect 115 0 113 0;
 #X connect 115 0 112 0;
-#X connect 117 0 152 0;
+#X connect 117 0 151 0;
 #X connect 118 0 89 0;
 #X connect 119 0 122 0;
-#X connect 120 0 157 0;
-#X connect 121 0 170 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 168 0;
-#X connect 126 0 171 0;
-#X connect 127 0 169 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;
@@ -1498,33 +1648,34 @@
 #X connect 149 5 136 0;
 #X connect 151 0 149 0;
 #X connect 152 0 149 0;
-#X connect 153 0 149 0;
-#X connect 155 0 156 0;
-#X connect 157 0 158 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 161 0 185 0;
 #X connect 163 0 161 0;
-#X connect 164 0 149 0;
-#X connect 165 0 166 0;
-#X connect 167 0 165 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 177 0 149 0;
-#X connect 178 0 149 0;
-#X connect 179 0 149 0;
-#X connect 180 0 149 0;
-#X connect 186 0 187 0;
-#X connect 188 0 186 0;
-#X connect 190 0 149 0;
-#X connect 191 0 149 0;
-#X connect 192 0 120 0;
-#X connect 192 0 161 0;
-#X connect 192 1 120 1;
-#X connect 192 1 165 0;
-#X connect 193 0 10 0;
-#X connect 194 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;
diff -r bb1881a77862 -r 88c2acdaa49a HoweIntMod.pd
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/HoweIntMod.pd	Mon Apr 10 19:38:33 2017 +0100
@@ -0,0 +1,294 @@
+#N canvas 102 95 1179 646 10;
+#X obj 107 135 sig~ 0.12;
+#X text 107 118 Alpha;
+#X obj 114 381 sig~ 1.02;
+#X text 114 364 C2;
+#X obj 37 306 *~;
+#X obj 37 178 /~ 4;
+#X obj 37 198 sqrt~;
+#X obj 107 176 *~;
+#X obj 107 218 /~;
+#X obj 217 182 /~ 343;
+#X obj 349 116 r~ MY_MACH;
+#X obj 349 139 *~;
+#X obj 364 202 *~;
+#X obj 364 242 /~;
+#X obj 385 300 /~;
+#X obj 364 320 pow~;
+#X obj 349 341 *~;
+#X obj 385 262 sig~ 5;
+#X obj 400 281 sig~ 3;
+#X obj 487 134 cos~;
+#X obj 502 154 r~ MY_MACH;
+#X obj 487 175 *~;
+#X obj 487 197 +~ 1;
+#X obj 487 222 *~;
+#X obj 503 285 *~;
+#X obj 503 325 /~;
+#X obj 503 350 *~;
+#X obj 503 414 +~;
+#X obj 518 370 sig~ 0.12;
+#X text 530 351 Alpha;
+#X obj 518 393 *~;
+#X obj 524 473 /~;
+#X obj 503 493 pow~;
+#X obj 524 435 sig~ 3;
+#X obj 539 454 sig~ 2;
+#X obj 487 519 *~;
+#X obj 129 442 *~;
+#X obj 129 485 sin~;
+#X obj 114 506 *~;
+#X obj 274 458 exp~;
+#X obj 357 458 exp~;
+#X obj 274 481 +~;
+#X obj 274 504 /~ 2;
+#X obj 688 111 +~;
+#X obj 673 156 *~;
+#X obj 30 391 *~;
+#X obj 30 433 *~;
+#X obj 342 504 /~ 2;
+#X obj 342 481 -~;
+#X obj 673 296 *~;
+#X obj 757 299 *~;
+#X obj 865 181 *~;
+#X obj 880 224 *~;
+#X obj 895 267 *~;
+#X obj 880 288 +~;
+#X obj 865 310 /~;
+#X obj 865 337 *~;
+#X obj 1032 170 *~;
+#X obj 1047 213 *~;
+#X obj 1062 256 *~;
+#X obj 1047 277 +~;
+#X obj 1032 299 /~;
+#X obj 680 406 /~;
+#X obj 695 468 +~;
+#X obj 680 492 *~;
+#X obj 602 359 snapshot~;
+#X floatatom 602 379 10 0 0 0 - - -;
+#X obj 602 338 r myMet;
+#X obj 358 438 *~ -1;
+#X obj 487 89 r~ thisEle;
+#X obj 379 222 r~ windSpeed;
+#X obj 122 155 r~ thisLen;
+#X obj 37 265 r~ thisLen;
+#X obj 52 286 r~ thisWid;
+#X obj 144 422 r~ thisDep;
+#X obj 518 305 r~ windSpeed;
+#X obj 680 573 s~ thisHowe;
+#X obj 688 70 r~ thisDep;
+#X obj 143 288 s~ \$0-sigma;
+#X obj 379 181 r~ \$0-sigma;
+#X obj 518 264 r~ \$0-sigma;
+#X obj 266 181 s~ \$0-omega;
+#X obj 364 159 r~ \$0-omega;
+#X obj 503 242 r~ \$0-omega;
+#X obj 217 204 s~ \$0-Ko;
+#X obj 129 402 r~ \$0-Ko;
+#X obj 30 365 r~ \$0-Ko;
+#X obj 37 136 r~ \$0-A;
+#X obj 37 327 s~ \$0-A;
+#X obj 673 49 r~ \$0-Ko;
+#X obj 45 412 r~ \$0-A;
+#X obj 37 218 s~ \$0-l;
+#X obj 703 90 r~ \$0-l;
+#X obj 30 477 s~ \$0-comp1;
+#X obj 274 438 r~ \$0-comp1;
+#X obj 358 419 r~ \$0-comp1;
+#X obj 274 528 s~ \$0-cosh;
+#X obj 687 276 r~ \$0-cosh;
+#X obj 342 528 s~ \$0-sinh;
+#X obj 772 279 r~ \$0-sinh;
+#X obj 673 320 s~ \$0-thisX;
+#X obj 1047 189 r~ \$0-thisX;
+#X obj 865 139 r~ \$0-thisX;
+#X obj 880 200 r~ \$0-thisX;
+#X obj 757 321 s~ \$0-thisY;
+#X obj 1062 233 r~ \$0-thisY;
+#X obj 1032 128 r~ \$0-thisY;
+#X obj 349 363 s~ \$0-num1;
+#X obj 680 366 r~ \$0-num1;
+#X obj 114 529 s~ \$0-num2;
+#X obj 880 160 r~ \$0-num2;
+#X obj 1047 149 r~ \$0-num2;
+#X obj 895 244 r~ \$0-thisY;
+#X obj 865 360 s~ \$0-block1;
+#X obj 695 427 r~ \$0-block1;
+#X obj 1032 459 s~ \$0-block2;
+#X obj 710 447 r~ \$0-block2;
+#X obj 487 542 s~ \$0-demon1;
+#X obj 695 385 r~ \$0-demon1;
+#X obj 629 574 outlet~;
+#X obj 1032 437 *~;
+#X obj 217 135 inlet~;
+#X obj 681 534 /~;
+#X obj 696 514 r~ thisDist;
+#X obj 833 563 snapshot~;
+#X floatatom 833 583 0 0 0 0 - - -;
+#X obj 833 542 r myMet;
+#X obj 904 458 snapshot~;
+#X floatatom 904 478 0 0 0 0 - - -;
+#X obj 904 437 r myMet;
+#X obj 609 461 snapshot~;
+#X floatatom 609 481 0 0 0 0 - - -;
+#X obj 609 440 r myMet;
+#X obj 279 580 snapshot~;
+#X floatatom 279 600 0 0 0 0 - - -;
+#X obj 279 559 r myMet;
+#X obj 673 250 cos~;
+#X obj 757 255 sin~;
+#X obj 37 157 *~ 3.14159;
+#X obj 217 156 *~ 6.28319;
+#X obj 129 463 /~ 6.28319;
+#X obj 673 178 /~ 6.28319;
+#X obj 30 455 /~ 6.28319;
+#X obj 122 196 sig~ 4.44288;
+#X obj 1047 340 cos~;
+#X obj 1062 361 r~ MY_MACH;
+#X obj 1047 382 -~;
+#X obj 1047 320 r~ thisEle;
+#X obj 1032 410 +~;
+#X obj 143 261 r~ effectShearThick2;
+#X connect 0 0 7 0;
+#X connect 2 0 38 0;
+#X connect 4 0 88 0;
+#X connect 5 0 6 0;
+#X connect 6 0 91 0;
+#X connect 7 0 8 0;
+#X connect 9 0 84 0;
+#X connect 10 0 11 1;
+#X connect 10 0 11 0;
+#X connect 11 0 16 0;
+#X connect 12 0 13 0;
+#X connect 13 0 15 0;
+#X connect 14 0 15 1;
+#X connect 15 0 16 1;
+#X connect 16 0 107 0;
+#X connect 17 0 14 0;
+#X connect 18 0 14 1;
+#X connect 19 0 21 0;
+#X connect 20 0 21 1;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 22 0 23 1;
+#X connect 23 0 35 0;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 25 0 26 1;
+#X connect 26 0 27 0;
+#X connect 27 0 32 0;
+#X connect 28 0 30 0;
+#X connect 28 0 30 1;
+#X connect 30 0 27 1;
+#X connect 31 0 32 1;
+#X connect 32 0 35 1;
+#X connect 33 0 31 0;
+#X connect 34 0 31 1;
+#X connect 35 0 117 0;
+#X connect 36 0 140 0;
+#X connect 37 0 38 1;
+#X connect 38 0 109 0;
+#X connect 39 0 41 0;
+#X connect 39 0 48 0;
+#X connect 40 0 41 1;
+#X connect 40 0 48 1;
+#X connect 41 0 42 0;
+#X connect 42 0 96 0;
+#X connect 42 0 133 0;
+#X connect 43 0 44 1;
+#X connect 44 0 141 0;
+#X connect 45 0 46 0;
+#X connect 46 0 142 0;
+#X connect 47 0 98 0;
+#X connect 48 0 47 0;
+#X connect 49 0 100 0;
+#X connect 50 0 104 0;
+#X connect 51 0 55 0;
+#X connect 52 0 54 0;
+#X connect 53 0 54 1;
+#X connect 54 0 55 1;
+#X connect 55 0 56 0;
+#X connect 55 0 56 1;
+#X connect 56 0 113 0;
+#X connect 56 0 65 0;
+#X connect 57 0 61 0;
+#X connect 58 0 60 0;
+#X connect 59 0 60 1;
+#X connect 60 0 61 1;
+#X connect 61 0 148 0;
+#X connect 62 0 64 0;
+#X connect 63 0 64 1;
+#X connect 64 0 122 0;
+#X connect 65 0 66 0;
+#X connect 67 0 65 0;
+#X connect 68 0 40 0;
+#X connect 69 0 19 0;
+#X connect 70 0 13 1;
+#X connect 71 0 7 1;
+#X connect 72 0 4 0;
+#X connect 73 0 4 1;
+#X connect 74 0 36 1;
+#X connect 75 0 25 1;
+#X connect 77 0 43 0;
+#X connect 79 0 12 1;
+#X connect 80 0 24 1;
+#X connect 82 0 12 0;
+#X connect 83 0 24 0;
+#X connect 85 0 36 0;
+#X connect 86 0 45 0;
+#X connect 86 0 45 1;
+#X connect 87 0 138 0;
+#X connect 89 0 44 0;
+#X connect 90 0 46 1;
+#X connect 92 0 43 1;
+#X connect 94 0 39 0;
+#X connect 95 0 68 0;
+#X connect 97 0 49 1;
+#X connect 99 0 50 1;
+#X connect 101 0 58 0;
+#X connect 101 0 58 1;
+#X connect 102 0 51 0;
+#X connect 103 0 52 0;
+#X connect 103 0 52 1;
+#X connect 105 0 59 0;
+#X connect 105 0 59 1;
+#X connect 106 0 57 0;
+#X connect 108 0 62 0;
+#X connect 110 0 51 1;
+#X connect 111 0 57 1;
+#X connect 112 0 53 0;
+#X connect 112 0 53 1;
+#X connect 114 0 63 0;
+#X connect 116 0 63 1;
+#X connect 118 0 62 1;
+#X connect 120 0 115 0;
+#X connect 120 0 127 0;
+#X connect 121 0 139 0;
+#X connect 122 0 119 0;
+#X connect 122 0 124 0;
+#X connect 123 0 122 1;
+#X connect 124 0 125 0;
+#X connect 126 0 124 0;
+#X connect 127 0 128 0;
+#X connect 129 0 127 0;
+#X connect 130 0 131 0;
+#X connect 132 0 130 0;
+#X connect 133 0 134 0;
+#X connect 135 0 133 0;
+#X connect 136 0 49 0;
+#X connect 137 0 50 0;
+#X connect 138 0 5 0;
+#X connect 139 0 9 0;
+#X connect 139 0 81 0;
+#X connect 140 0 37 0;
+#X connect 141 0 136 0;
+#X connect 141 0 137 0;
+#X connect 142 0 93 0;
+#X connect 143 0 8 1;
+#X connect 144 0 146 0;
+#X connect 145 0 146 1;
+#X connect 146 0 148 1;
+#X connect 147 0 144 0;
+#X connect 148 0 120 1;
+#X connect 148 0 120 0;
+#X connect 149 0 78 0;
diff -r bb1881a77862 -r 88c2acdaa49a HoweIntTest.pd
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/HoweIntTest.pd	Mon Apr 10 19:38:33 2017 +0100
@@ -0,0 +1,335 @@
+#N canvas 301 57 1179 646 10;
+#X obj 107 135 sig~ 0.12;
+#X text 107 118 Alpha;
+#X obj 114 381 sig~ 1.02;
+#X text 114 364 C2;
+#X obj 37 306 *~;
+#X obj 37 178 /~ 4;
+#X obj 37 198 sqrt~;
+#X obj 107 176 *~;
+#X obj 107 218 /~;
+#X obj 217 182 /~ 343;
+#X obj 349 116 r~ MY_MACH;
+#X obj 349 139 *~;
+#X obj 364 202 *~;
+#X obj 364 242 /~;
+#X obj 385 300 /~;
+#X obj 364 320 pow~;
+#X obj 349 341 *~;
+#X obj 385 262 sig~ 5;
+#X obj 400 281 sig~ 3;
+#X obj 487 134 cos~;
+#X obj 502 154 r~ MY_MACH;
+#X obj 487 175 *~;
+#X obj 487 197 +~ 1;
+#X obj 487 222 *~;
+#X obj 503 285 *~;
+#X obj 503 325 /~;
+#X obj 503 350 *~;
+#X obj 503 414 +~;
+#X obj 518 370 sig~ 0.12;
+#X text 530 351 Alpha;
+#X obj 518 393 *~;
+#X obj 524 473 /~;
+#X obj 503 493 pow~;
+#X obj 524 435 sig~ 3;
+#X obj 539 454 sig~ 2;
+#X obj 487 519 *~;
+#X obj 129 442 *~;
+#X obj 129 485 sin~;
+#X obj 114 506 *~;
+#X obj 274 458 exp~;
+#X obj 357 458 exp~;
+#X obj 274 481 +~;
+#X obj 274 504 /~ 2;
+#X obj 688 111 +~;
+#X obj 673 156 *~;
+#X obj 30 391 *~;
+#X obj 30 433 *~;
+#X obj 342 504 /~ 2;
+#X obj 342 481 -~;
+#X obj 673 296 *~;
+#X obj 757 299 *~;
+#X obj 865 181 *~;
+#X obj 880 224 *~;
+#X obj 895 267 *~;
+#X obj 880 288 +~;
+#X obj 865 310 /~;
+#X obj 865 337 *~;
+#X obj 1032 170 *~;
+#X obj 1047 213 *~;
+#X obj 1062 256 *~;
+#X obj 1047 277 +~;
+#X obj 1032 299 /~;
+#X obj 680 406 /~;
+#X obj 695 468 +~;
+#X obj 680 492 *~;
+#X obj 602 359 snapshot~;
+#X floatatom 602 379 10 0 0 0 - - -;
+#X obj 602 338 r myMet;
+#X obj 358 438 *~ -1;
+#X obj 487 89 r~ thisEle;
+#X obj 379 222 r~ windSpeed;
+#X obj 122 155 r~ thisLen;
+#X obj 37 265 r~ thisLen;
+#X obj 52 286 r~ thisWid;
+#X obj 144 422 r~ thisDep;
+#X obj 518 305 r~ windSpeed;
+#X obj 680 573 s~ thisHowe;
+#X obj 688 70 r~ thisDep;
+#X obj 143 288 s~ \$0-sigma;
+#X obj 379 181 r~ \$0-sigma;
+#X obj 518 264 r~ \$0-sigma;
+#X obj 266 181 s~ \$0-omega;
+#X obj 364 159 r~ \$0-omega;
+#X obj 503 242 r~ \$0-omega;
+#X obj 217 204 s~ \$0-Ko;
+#X obj 129 402 r~ \$0-Ko;
+#X obj 30 365 r~ \$0-Ko;
+#X obj 37 136 r~ \$0-A;
+#X obj 37 327 s~ \$0-A;
+#X obj 673 49 r~ \$0-Ko;
+#X obj 45 412 r~ \$0-A;
+#X obj 37 218 s~ \$0-l;
+#X obj 703 90 r~ \$0-l;
+#X obj 30 477 s~ \$0-comp1;
+#X obj 274 438 r~ \$0-comp1;
+#X obj 358 419 r~ \$0-comp1;
+#X obj 274 528 s~ \$0-cosh;
+#X obj 687 276 r~ \$0-cosh;
+#X obj 342 528 s~ \$0-sinh;
+#X obj 772 279 r~ \$0-sinh;
+#X obj 673 320 s~ \$0-thisX;
+#X obj 1047 189 r~ \$0-thisX;
+#X obj 865 139 r~ \$0-thisX;
+#X obj 880 200 r~ \$0-thisX;
+#X obj 757 321 s~ \$0-thisY;
+#X obj 1062 233 r~ \$0-thisY;
+#X obj 1032 128 r~ \$0-thisY;
+#X obj 349 363 s~ \$0-num1;
+#X obj 680 366 r~ \$0-num1;
+#X obj 114 529 s~ \$0-num2;
+#X obj 880 160 r~ \$0-num2;
+#X obj 1047 149 r~ \$0-num2;
+#X obj 895 244 r~ \$0-thisY;
+#X obj 865 360 s~ \$0-block1;
+#X obj 695 427 r~ \$0-block1;
+#X obj 1032 459 s~ \$0-block2;
+#X obj 710 447 r~ \$0-block2;
+#X obj 487 542 s~ \$0-demon1;
+#X obj 695 385 r~ \$0-demon1;
+#X obj 629 574 outlet~;
+#X obj 1032 437 *~;
+#X obj 217 135 inlet~;
+#X obj 681 534 /~;
+#X obj 696 514 r~ thisDist;
+#X obj 833 563 snapshot~;
+#X floatatom 833 583 0 0 0 0 - - -;
+#X obj 833 542 r myMet;
+#X obj 1050 534 snapshot~;
+#X floatatom 1050 554 0 0 0 0 - - -;
+#X obj 1050 513 r myMet;
+#X obj 609 461 snapshot~;
+#X floatatom 609 481 0 0 0 0 - - -;
+#X obj 609 440 r myMet;
+#X obj 279 580 snapshot~;
+#X floatatom 279 600 0 0 0 0 - - -;
+#X obj 279 559 r myMet;
+#X obj 673 250 cos~;
+#X obj 757 255 sin~;
+#X obj 37 157 *~ 3.14159;
+#X obj 217 156 *~ 6.28319;
+#X obj 129 463 /~ 6.28319;
+#X obj 673 178 /~ 6.28319;
+#X obj 30 455 /~ 6.28319;
+#X obj 122 196 sig~ 4.44288;
+#X obj 1047 340 cos~;
+#X obj 1062 361 r~ MY_MACH;
+#X obj 1047 382 -~;
+#X obj 1047 320 r~ thisEle;
+#X obj 1032 410 +~;
+#X obj 143 261 r~ effectShearThick2;
+#X obj 956 476 *~ 2;
+#X obj 956 497 *~;
+#X obj 954 388 snapshot~;
+#X floatatom 954 408 0 0 0 0 - - -;
+#X obj 954 367 r myMet;
+#X obj 1104 422 snapshot~;
+#X floatatom 1104 442 0 0 0 0 - - -;
+#X obj 1104 401 r myMet;
+#X obj 969 538 snapshot~;
+#X floatatom 969 558 0 0 0 0 - - -;
+#X obj 969 517 r myMet;
+#X obj 906 519 +~;
+#X obj 901 493 *~;
+#X obj 920 561 *~;
+#X obj 906 588 +~;
+#X obj 971 599 snapshot~;
+#X floatatom 971 619 0 0 0 0 - - -;
+#X obj 971 578 r myMet;
+#X connect 0 0 7 0;
+#X connect 2 0 38 0;
+#X connect 4 0 88 0;
+#X connect 5 0 6 0;
+#X connect 6 0 91 0;
+#X connect 7 0 8 0;
+#X connect 9 0 84 0;
+#X connect 10 0 11 1;
+#X connect 10 0 11 0;
+#X connect 11 0 16 0;
+#X connect 12 0 13 0;
+#X connect 13 0 15 0;
+#X connect 14 0 15 1;
+#X connect 15 0 16 1;
+#X connect 16 0 107 0;
+#X connect 17 0 14 0;
+#X connect 18 0 14 1;
+#X connect 19 0 21 0;
+#X connect 20 0 21 1;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 22 0 23 1;
+#X connect 23 0 35 0;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 25 0 26 1;
+#X connect 26 0 27 0;
+#X connect 27 0 32 0;
+#X connect 28 0 30 0;
+#X connect 28 0 30 1;
+#X connect 30 0 27 1;
+#X connect 31 0 32 1;
+#X connect 32 0 35 1;
+#X connect 33 0 31 0;
+#X connect 34 0 31 1;
+#X connect 35 0 117 0;
+#X connect 36 0 140 0;
+#X connect 37 0 38 1;
+#X connect 38 0 109 0;
+#X connect 39 0 41 0;
+#X connect 39 0 48 0;
+#X connect 40 0 41 1;
+#X connect 40 0 48 1;
+#X connect 41 0 42 0;
+#X connect 42 0 96 0;
+#X connect 42 0 133 0;
+#X connect 43 0 44 1;
+#X connect 44 0 141 0;
+#X connect 45 0 46 0;
+#X connect 46 0 142 0;
+#X connect 47 0 98 0;
+#X connect 48 0 47 0;
+#X connect 49 0 100 0;
+#X connect 50 0 104 0;
+#X connect 51 0 55 0;
+#X connect 52 0 54 0;
+#X connect 53 0 54 1;
+#X connect 54 0 55 1;
+#X connect 55 0 56 0;
+#X connect 55 0 56 1;
+#X connect 56 0 113 0;
+#X connect 56 0 65 0;
+#X connect 57 0 61 0;
+#X connect 58 0 60 0;
+#X connect 59 0 60 1;
+#X connect 60 0 61 1;
+#X connect 61 0 148 0;
+#X connect 61 0 152 0;
+#X connect 61 0 150 0;
+#X connect 61 0 162 0;
+#X connect 61 0 162 1;
+#X connect 62 0 64 0;
+#X connect 63 0 64 1;
+#X connect 64 0 122 0;
+#X connect 65 0 66 0;
+#X connect 67 0 65 0;
+#X connect 68 0 40 0;
+#X connect 69 0 19 0;
+#X connect 70 0 13 1;
+#X connect 71 0 7 1;
+#X connect 72 0 4 0;
+#X connect 73 0 4 1;
+#X connect 74 0 36 1;
+#X connect 75 0 25 1;
+#X connect 77 0 43 0;
+#X connect 79 0 12 1;
+#X connect 80 0 24 1;
+#X connect 82 0 12 0;
+#X connect 83 0 24 0;
+#X connect 85 0 36 0;
+#X connect 86 0 45 0;
+#X connect 86 0 45 1;
+#X connect 87 0 138 0;
+#X connect 89 0 44 0;
+#X connect 90 0 46 1;
+#X connect 92 0 43 1;
+#X connect 94 0 39 0;
+#X connect 95 0 68 0;
+#X connect 97 0 49 1;
+#X connect 99 0 50 1;
+#X connect 101 0 58 0;
+#X connect 101 0 58 1;
+#X connect 102 0 51 0;
+#X connect 103 0 52 0;
+#X connect 103 0 52 1;
+#X connect 105 0 59 0;
+#X connect 105 0 59 1;
+#X connect 106 0 57 0;
+#X connect 108 0 62 0;
+#X connect 110 0 51 1;
+#X connect 111 0 57 1;
+#X connect 112 0 53 0;
+#X connect 112 0 53 1;
+#X connect 114 0 63 0;
+#X connect 116 0 63 1;
+#X connect 118 0 62 1;
+#X connect 120 0 115 0;
+#X connect 120 0 127 0;
+#X connect 121 0 139 0;
+#X connect 122 0 119 0;
+#X connect 122 0 124 0;
+#X connect 123 0 122 1;
+#X connect 124 0 125 0;
+#X connect 126 0 124 0;
+#X connect 127 0 128 0;
+#X connect 129 0 127 0;
+#X connect 130 0 131 0;
+#X connect 132 0 130 0;
+#X connect 133 0 134 0;
+#X connect 135 0 133 0;
+#X connect 136 0 49 0;
+#X connect 137 0 50 0;
+#X connect 138 0 5 0;
+#X connect 139 0 9 0;
+#X connect 139 0 81 0;
+#X connect 140 0 37 0;
+#X connect 141 0 136 0;
+#X connect 141 0 137 0;
+#X connect 142 0 93 0;
+#X connect 143 0 8 1;
+#X connect 144 0 146 0;
+#X connect 145 0 146 1;
+#X connect 146 0 148 1;
+#X connect 146 0 155 0;
+#X connect 146 0 151 1;
+#X connect 146 0 163 1;
+#X connect 146 0 163 0;
+#X connect 147 0 144 0;
+#X connect 148 0 120 1;
+#X connect 148 0 120 0;
+#X connect 149 0 78 0;
+#X connect 150 0 151 0;
+#X connect 151 0 158 0;
+#X connect 151 0 161 1;
+#X connect 152 0 153 0;
+#X connect 154 0 152 0;
+#X connect 155 0 156 0;
+#X connect 157 0 155 0;
+#X connect 158 0 159 0;
+#X connect 160 0 158 0;
+#X connect 161 0 164 0;
+#X connect 162 0 161 0;
+#X connect 163 0 164 1;
+#X connect 164 0 165 0;
+#X connect 165 0 166 0;
+#X connect 167 0 165 0;
diff -r bb1881a77862 -r 88c2acdaa49a HoweIntensity.pd
--- a/HoweIntensity.pd	Fri Apr 07 22:46:44 2017 +0100
+++ b/HoweIntensity.pd	Mon Apr 10 19:38:33 2017 +0100
@@ -65,7 +65,6 @@
 #X obj 1047 277 +~;
 #X obj 1032 299 /~;
 #X obj 680 406 /~;
-#X obj 695 468 +~;
 #X obj 680 492 *~;
 #X obj 602 359 snapshot~;
 #X floatatom 602 379 10 0 0 0 - - -;
@@ -151,15 +150,16 @@
 #X obj 1047 382 -~;
 #X obj 1047 320 r~ thisEle;
 #X obj 1032 410 +~;
+#X obj 695 468 +~;
 #X connect 0 0 7 0;
 #X connect 2 0 38 0;
-#X connect 4 0 91 0;
+#X connect 4 0 90 0;
 #X connect 5 0 6 0;
-#X connect 6 0 94 0;
+#X connect 6 0 93 0;
 #X connect 6 0 40 0;
 #X connect 7 0 8 0;
-#X connect 8 0 81 0;
-#X connect 9 0 87 0;
+#X connect 8 0 80 0;
+#X connect 9 0 86 0;
 #X connect 10 0 11 1;
 #X connect 10 0 11 0;
 #X connect 11 0 16 0;
@@ -167,7 +167,7 @@
 #X connect 13 0 15 0;
 #X connect 14 0 15 1;
 #X connect 15 0 16 1;
-#X connect 16 0 110 0;
+#X connect 16 0 109 0;
 #X connect 17 0 14 0;
 #X connect 18 0 14 1;
 #X connect 19 0 21 0;
@@ -188,10 +188,10 @@
 #X connect 32 0 35 1;
 #X connect 33 0 31 0;
 #X connect 34 0 31 1;
-#X connect 35 0 120 0;
-#X connect 36 0 143 0;
+#X connect 35 0 119 0;
+#X connect 36 0 142 0;
 #X connect 37 0 38 1;
-#X connect 38 0 112 0;
+#X connect 38 0 111 0;
 #X connect 39 0 44 0;
 #X connect 39 0 51 0;
 #X connect 40 0 41 0;
@@ -199,100 +199,99 @@
 #X connect 43 0 44 1;
 #X connect 43 0 51 1;
 #X connect 44 0 45 0;
-#X connect 45 0 99 0;
-#X connect 45 0 136 0;
+#X connect 45 0 98 0;
+#X connect 45 0 135 0;
 #X connect 46 0 47 1;
-#X connect 47 0 144 0;
+#X connect 47 0 143 0;
 #X connect 48 0 49 0;
-#X connect 49 0 145 0;
-#X connect 50 0 101 0;
+#X connect 49 0 144 0;
+#X connect 50 0 100 0;
 #X connect 51 0 50 0;
-#X connect 52 0 103 0;
-#X connect 53 0 107 0;
+#X connect 52 0 102 0;
+#X connect 53 0 106 0;
 #X connect 54 0 58 0;
 #X connect 55 0 57 0;
 #X connect 56 0 57 1;
 #X connect 57 0 58 1;
 #X connect 58 0 59 0;
 #X connect 58 0 59 1;
-#X connect 59 0 116 0;
-#X connect 59 0 68 0;
+#X connect 59 0 115 0;
+#X connect 59 0 67 0;
 #X connect 60 0 64 0;
 #X connect 61 0 63 0;
 #X connect 62 0 63 1;
 #X connect 63 0 64 1;
-#X connect 64 0 151 0;
-#X connect 65 0 67 0;
-#X connect 66 0 67 1;
-#X connect 67 0 122 0;
-#X connect 67 0 127 0;
-#X connect 68 0 69 0;
-#X connect 70 0 68 0;
-#X connect 71 0 43 0;
-#X connect 72 0 19 0;
-#X connect 73 0 13 1;
-#X connect 74 0 7 1;
-#X connect 75 0 4 0;
-#X connect 76 0 4 1;
-#X connect 77 0 36 1;
-#X connect 78 0 25 1;
-#X connect 80 0 46 0;
-#X connect 82 0 12 1;
-#X connect 83 0 24 1;
-#X connect 85 0 12 0;
-#X connect 86 0 24 0;
-#X connect 88 0 36 0;
-#X connect 89 0 48 0;
-#X connect 89 0 48 1;
-#X connect 90 0 141 0;
-#X connect 92 0 47 0;
-#X connect 93 0 49 1;
-#X connect 95 0 46 1;
-#X connect 97 0 39 0;
-#X connect 98 0 71 0;
-#X connect 100 0 52 1;
-#X connect 102 0 53 1;
-#X connect 104 0 61 0;
-#X connect 104 0 61 1;
-#X connect 105 0 54 0;
-#X connect 106 0 55 0;
-#X connect 106 0 55 1;
-#X connect 108 0 62 0;
-#X connect 108 0 62 1;
-#X connect 109 0 60 0;
-#X connect 111 0 65 0;
-#X connect 113 0 54 1;
-#X connect 114 0 60 1;
-#X connect 115 0 56 0;
-#X connect 115 0 56 1;
-#X connect 117 0 66 0;
-#X connect 119 0 66 1;
-#X connect 121 0 65 1;
-#X connect 123 0 118 0;
-#X connect 123 0 130 0;
-#X connect 124 0 142 0;
-#X connect 126 0 125 1;
-#X connect 127 0 128 0;
-#X connect 129 0 127 0;
-#X connect 130 0 131 0;
-#X connect 132 0 130 0;
-#X connect 133 0 134 0;
-#X connect 135 0 133 0;
-#X connect 136 0 137 0;
-#X connect 138 0 136 0;
-#X connect 139 0 52 0;
-#X connect 140 0 53 0;
-#X connect 141 0 5 0;
-#X connect 142 0 9 0;
-#X connect 142 0 84 0;
-#X connect 143 0 37 0;
-#X connect 144 0 139 0;
-#X connect 144 0 140 0;
-#X connect 145 0 96 0;
-#X connect 146 0 8 1;
-#X connect 147 0 149 0;
-#X connect 148 0 149 1;
-#X connect 149 0 151 1;
-#X connect 150 0 147 0;
-#X connect 151 0 123 1;
-#X connect 151 0 123 0;
+#X connect 64 0 150 0;
+#X connect 65 0 66 0;
+#X connect 66 0 121 0;
+#X connect 66 0 126 0;
+#X connect 67 0 68 0;
+#X connect 69 0 67 0;
+#X connect 70 0 43 0;
+#X connect 71 0 19 0;
+#X connect 72 0 13 1;
+#X connect 73 0 7 1;
+#X connect 74 0 4 0;
+#X connect 75 0 4 1;
+#X connect 76 0 36 1;
+#X connect 77 0 25 1;
+#X connect 79 0 46 0;
+#X connect 81 0 12 1;
+#X connect 82 0 24 1;
+#X connect 84 0 12 0;
+#X connect 85 0 24 0;
+#X connect 87 0 36 0;
+#X connect 88 0 48 0;
+#X connect 88 0 48 1;
+#X connect 89 0 140 0;
+#X connect 91 0 47 0;
+#X connect 92 0 49 1;
+#X connect 94 0 46 1;
+#X connect 96 0 39 0;
+#X connect 97 0 70 0;
+#X connect 99 0 52 1;
+#X connect 101 0 53 1;
+#X connect 103 0 61 0;
+#X connect 103 0 61 1;
+#X connect 104 0 54 0;
+#X connect 105 0 55 0;
+#X connect 105 0 55 1;
+#X connect 107 0 62 0;
+#X connect 107 0 62 1;
+#X connect 108 0 60 0;
+#X connect 110 0 65 0;
+#X connect 112 0 54 1;
+#X connect 113 0 60 1;
+#X connect 114 0 56 0;
+#X connect 114 0 56 1;
+#X connect 116 0 151 0;
+#X connect 118 0 151 1;
+#X connect 120 0 65 1;
+#X connect 122 0 117 0;
+#X connect 123 0 141 0;
+#X connect 125 0 124 1;
+#X connect 126 0 127 0;
+#X connect 128 0 126 0;
+#X connect 129 0 130 0;
+#X connect 131 0 129 0;
+#X connect 132 0 133 0;
+#X connect 134 0 132 0;
+#X connect 135 0 136 0;
+#X connect 137 0 135 0;
+#X connect 138 0 52 0;
+#X connect 139 0 53 0;
+#X connect 140 0 5 0;
+#X connect 141 0 9 0;
+#X connect 141 0 83 0;
+#X connect 142 0 37 0;
+#X connect 143 0 138 0;
+#X connect 143 0 139 0;
+#X connect 144 0 95 0;
+#X connect 145 0 8 1;
+#X connect 146 0 148 0;
+#X connect 147 0 148 1;
+#X connect 148 0 150 1;
+#X connect 149 0 146 0;
+#X connect 150 0 122 1;
+#X connect 150 0 122 0;
+#X connect 151 0 66 1;
diff -r bb1881a77862 -r 88c2acdaa49a HoweIntensityDipoleD2.pd
--- a/HoweIntensityDipoleD2.pd	Fri Apr 07 22:46:44 2017 +0100
+++ b/HoweIntensityDipoleD2.pd	Mon Apr 10 19:38:33 2017 +0100
@@ -1,4 +1,4 @@
-#N canvas 148 33 1347 841 10;
+#N canvas 8 183 1347 841 10;
 #X obj 117 145 sig~ 0.12;
 #X text 117 128 Alpha;
 #X obj 124 391 sig~ 1.02;
@@ -61,14 +61,14 @@
 #X obj 1072 266 *~;
 #X obj 1057 287 +~;
 #X obj 1042 309 /~;
-#X obj 1042 402 cos~;
-#X obj 1057 422 r~ MY_MACH;
-#X obj 1042 443 -~;
+#X obj 1131 369 cos~;
+#X obj 1146 389 r~ MY_MACH;
+#X obj 1131 410 -~;
 #X obj 690 416 /~;
 #X obj 690 502 *~;
 #X obj 368 448 *~ -1;
 #X obj 497 99 r~ thisEle;
-#X obj 1042 381 r~ thisEle;
+#X obj 1131 348 r~ thisEle;
 #X obj 389 232 r~ windSpeed;
 #X obj 132 165 r~ thisLen;
 #X obj 47 275 r~ thisLen;
@@ -113,11 +113,11 @@
 #X obj 1057 159 r~ \$0-num2;
 #X obj 905 254 r~ \$0-thisY;
 #X obj 875 370 s~ \$0-block1;
-#X obj 1042 487 s~ \$0-block2;
+#X obj 1154 564 s~ \$0-block2;
 #X obj 497 552 s~ \$0-demon1;
 #X obj 705 395 r~ \$0-demon1;
 #X obj 639 584 outlet~;
-#X obj 1042 465 *~;
+#X obj 1127 480 *~;
 #X obj 227 145 inlet~;
 #X obj 691 542 /~;
 #X obj 706 522 r~ thisDist;
@@ -137,6 +137,9 @@
 #X floatatom 276 299 0 0 0 0 - - -;
 #X obj 276 257 r myMet;
 #X obj 144 258 r~ effectShearThick2;
+#X obj 1071 477 *~;
+#X obj 1071 514 +~;
+#X obj 1061 415 *~ 1;
 #X connect 0 0 7 0;
 #X connect 2 0 38 0;
 #X connect 4 0 88 0;
@@ -202,10 +205,12 @@
 #X connect 58 0 60 0;
 #X connect 59 0 60 1;
 #X connect 60 0 61 1;
+#X connect 61 0 140 0;
 #X connect 62 0 64 0;
 #X connect 63 0 64 1;
 #X connect 64 0 118 0;
 #X connect 64 0 118 1;
+#X connect 64 0 138 1;
 #X connect 65 0 66 0;
 #X connect 66 0 120 0;
 #X connect 67 0 40 0;
@@ -247,6 +252,7 @@
 #X connect 112 0 53 0;
 #X connect 112 0 53 1;
 #X connect 116 0 65 1;
+#X connect 118 0 139 1;
 #X connect 118 0 114 0;
 #X connect 119 0 125 0;
 #X connect 120 0 117 0;
@@ -268,3 +274,5 @@
 #X connect 136 0 134 0;
 #X connect 137 0 131 0;
 #X connect 137 0 78 0;
+#X connect 138 0 139 0;
+#X connect 140 0 138 0;
diff -r bb1881a77862 -r 88c2acdaa49a HoweIntensityMonoTest.pd
--- a/HoweIntensityMonoTest.pd	Fri Apr 07 22:46:44 2017 +0100
+++ b/HoweIntensityMonoTest.pd	Mon Apr 10 19:38:33 2017 +0100
@@ -110,11 +110,11 @@
 #X obj 905 254 r~ \$0-thisY;
 #X obj 875 370 s~ \$0-block1;
 #X obj 705 437 r~ \$0-block1;
-#X obj 1043 354 s~ \$0-block2;
+#X obj 1043 562 s~ \$0-block2;
 #X obj 720 457 r~ \$0-block2;
 #X obj 497 552 s~ \$0-demon1;
 #X obj 705 395 r~ \$0-demon1;
-#X obj 690 573 outlet~;
+#X obj 690 600 outlet~;
 #X obj 1043 332 *~;
 #X obj 690 542 /~;
 #X obj 705 522 r~ thisDist;
@@ -146,6 +146,17 @@
 #X obj 293 141 outlet~;
 #X obj 171 84 inlet~;
 #X obj 155 249 r~ effectShearThick2;
+#X obj 1149 332 cos~;
+#X obj 1164 352 r~ MY_MACH;
+#X obj 1149 373 -~;
+#X obj 1149 311 r~ thisEle;
+#X obj 1105 371 *~ 2;
+#X obj 1128 420 *~;
+#X obj 1114 447 +~;
+#X obj 691 572 max~ 0;
+#X obj 965 483 snapshot~;
+#X floatatom 965 503 0 0 0 0 - - -;
+#X obj 965 462 r myMet;
 #X connect 0 0 7 0;
 #X connect 2 0 38 0;
 #X connect 4 0 84 0;
@@ -212,6 +223,7 @@
 #X connect 60 0 61 1;
 #X connect 61 0 116 0;
 #X connect 61 0 116 1;
+#X connect 61 0 137 0;
 #X connect 62 0 64 0;
 #X connect 63 0 64 1;
 #X connect 64 0 117 0;
@@ -255,8 +267,8 @@
 #X connect 110 0 63 0;
 #X connect 112 0 63 1;
 #X connect 114 0 62 1;
-#X connect 116 0 111 0;
-#X connect 117 0 115 0;
+#X connect 116 0 139 0;
+#X connect 117 0 140 0;
 #X connect 118 0 117 1;
 #X connect 119 0 49 0;
 #X connect 120 0 50 0;
@@ -273,3 +285,13 @@
 #X connect 128 0 127 0;
 #X connect 129 0 127 1;
 #X connect 132 0 74 0;
+#X connect 133 0 135 0;
+#X connect 134 0 135 1;
+#X connect 135 0 138 1;
+#X connect 136 0 133 0;
+#X connect 137 0 138 0;
+#X connect 138 0 139 1;
+#X connect 139 0 111 0;
+#X connect 140 0 115 0;
+#X connect 141 0 142 0;
+#X connect 143 0 141 0;
diff -r bb1881a77862 -r 88c2acdaa49a cavGUID2.pd
--- a/cavGUID2.pd	Fri Apr 07 22:46:44 2017 +0100
+++ b/cavGUID2.pd	Mon Apr 10 19:38:33 2017 +0100
@@ -1,2 +1,2 @@
-#N canvas 432 197 712 518 10;
+#N canvas 92 57 712 518 10;
 #X obj 88 45 midCav;
diff -r bb1881a77862 -r 88c2acdaa49a midCav.pd
--- a/midCav.pd	Fri Apr 07 22:46:44 2017 +0100
+++ b/midCav.pd	Mon Apr 10 19:38:33 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 1617 1;
+-262144 -1 -1 3656 1;
 #X obj 157 158 hsl 100 25 0.0001 10 1 0 empty empty Width 3 13 0 10
--262144 -1 -1 5501 1;
+-262144 -1 -1 4905 1;
 #X obj 157 187 hsl 100 25 0.001 10 1 0 empty empty Depth 3 13 0 10
--262144 -1 -1 436 1;
+-262144 -1 -1 2911 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 9186 1;
+-262144 -1 -1 6275 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 4340 1;
+10 -262144 -1 -1 4495 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;