diff CavD5.pd @ 1:88c2acdaa49a

Patches altered to account for additional factor.

--- 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;
[phone];
 #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;