# HG changeset patch
# User Rod Selfridge <r.selfridge@qmul.ac.uk>
# Date 1507361420 -3600
# Node ID 8db386825c9c3a7b1250ab51f1e33447f7e68120
# Parent  e18dbd26468e80d6fd7630736646b354e4f669e1
Minor change

diff -r e18dbd26468e -r 8db386825c9c freqCalcCyl4No_D4Mach.pd
--- a/freqCalcCyl4No_D4Mach.pd	Tue Jun 13 12:53:12 2017 +0100
+++ b/freqCalcCyl4No_D4Mach.pd	Sat Oct 07 08:30:20 2017 +0100
@@ -68,7 +68,7 @@
 #X obj 313 142 r~ \$0-str;
 #X obj 331 183 r \$0-leng;
 #X obj 356 241 r \$0-dist;
-#N canvas 83 79 1238 721 GoldfreqGain 0;
+#N canvas 254 143 1238 721 GoldfreqGain 1;
 #N canvas 759 125 181 244 pow6 0;
 #X obj 47 67 *~;
 #X obj 76 67 *~;
@@ -250,14 +250,71 @@
 #X obj 565 217 r~ MY_MACH;
 #X obj 411 293 line~;
 #X msg 411 271 \$1 15;
+#N canvas 877 402 731 474 ext_addition 0;
+#X obj 165 36 inlet~;
+#X obj 227 35 inlet~;
+#X obj 294 35 inlet~;
+#X obj 417 30 inlet~;
+#X obj 479 29 inlet~;
+#X obj 175 118 *~;
+#X obj 185 158 *~;
+#X obj 182 198 *~ 6.28319;
+#X obj 198 250 /~ 1;
+#X obj 356 34 inlet;
+#X obj 196 288 *~;
+#X obj 197 313 *~ -0.5;
+#X obj 417 120 *~;
+#X obj 482 121 *~;
+#X obj 437 178 *~;
+#X obj 196 359 *~;
+#X obj 196 382 exp~;
+#X obj 193 422 outlet~;
+#X obj 456 271 snapshot~;
+#X obj 456 248 r myMet;
+#X floatatom 456 293 0 0 0 0 - - -;
+#X obj 410 75 sin~;
+#X obj 482 72 sin~;
+#X connect 0 0 5 0;
+#X connect 1 0 5 1;
+#X connect 2 0 6 1;
+#X connect 3 0 21 0;
+#X connect 4 0 22 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 10 0;
+#X connect 8 0 10 1;
+#X connect 9 0 8 1;
+#X connect 10 0 11 0;
+#X connect 11 0 15 0;
+#X connect 12 0 14 0;
+#X connect 13 0 14 1;
+#X connect 14 0 15 1;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 18 0 20 0;
+#X connect 19 0 18 0;
+#X connect 21 0 12 1;
+#X connect 21 0 12 0;
+#X connect 22 0 13 0;
+#X connect 22 0 13 1;
+#X restore 545 493 pd ext_addition;
+#X obj 456 560 snapshot~;
+#X obj 456 537 r myMet;
+#X floatatom 456 582 0 0 0 0 - - -;
+#X obj 352 602 snapshot~;
+#X obj 352 579 r myMet;
+#X floatatom 352 624 0 0 0 0 - - -;
 #X connect 0 0 2 0;
 #X connect 1 0 2 1;
 #X connect 2 0 83 0;
 #X connect 3 0 44 0;
 #X connect 8 0 1 0;
 #X connect 8 0 1 1;
+#X connect 8 0 109 0;
 #X connect 9 0 89 0;
 #X connect 11 0 82 1;
+#X connect 11 0 109 3;
 #X connect 12 0 5 0;
 #X connect 12 0 75 0;
 #X connect 15 0 17 1;
@@ -274,10 +331,12 @@
 #X connect 36 0 53 0;
 #X connect 37 0 17 0;
 #X connect 40 0 42 0;
+#X connect 40 0 109 4;
 #X connect 41 0 43 1;
 #X connect 42 0 41 0;
 #X connect 42 0 41 1;
 #X connect 43 0 13 0;
+#X connect 43 0 113 0;
 #X connect 44 0 46 0;
 #X connect 46 0 108 0;
 #X connect 47 0 48 0;
@@ -310,9 +369,11 @@
 #X connect 76 0 3 0;
 #X connect 76 0 3 1;
 #X connect 78 0 47 0;
+#X connect 78 0 109 5;
 #X connect 79 0 56 0;
 #X connect 81 0 82 0;
 #X connect 82 0 83 1;
+#X connect 82 0 109 2;
 #X connect 83 0 37 0;
 #X connect 84 0 80 0;
 #X connect 86 0 19 0;
@@ -337,10 +398,16 @@
 #X connect 103 0 102 0;
 #X connect 105 0 90 0;
 #X connect 106 0 48 1;
+#X connect 106 0 109 1;
 #X connect 107 0 52 0;
 #X connect 108 0 107 0;
+#X connect 109 0 110 0;
+#X connect 110 0 112 0;
+#X connect 111 0 110 0;
+#X connect 113 0 115 0;
+#X connect 114 0 113 0;
 #X restore 313 307 pd GoldfreqGain;
-#N canvas 563 85 1006 797 GoldnoiseGain 1;
+#N canvas 584 210 1006 797 GoldnoiseGain 0;
 #X text -21037 364 Mass Density of Air \, squared;
 #X obj -20777 459 *;
 #X text -20777 412 Distance;
@@ -390,7 +457,7 @@
 #X obj -20398 117 s~ \$0-this_azim;
 #X obj -20342 95 s~ \$0-this_elev;
 #X obj -20861 371 *~ 1.225;
-#X obj -20459 466 r~ \$0-this_azim;
+#X obj -20374 351 r~ \$0-this_azim;
 #N canvas 759 125 250 309 pow5 0;
 #X obj 47 67 *~;
 #X obj 76 35 inlet~;
@@ -512,9 +579,8 @@
 #X msg -20777 480 \$1 5;
 #X obj -20398 86 line~;
 #X msg -20398 64 \$1 5;
-#X obj -20459 512 cos~;
-#X obj -20459 489 /~ 360;
-#X obj -20459 534 *~;
+#X obj -20374 374 /~ 360;
+#X obj -20374 419 *~;
 #X text -20929 530 Sqrt(2*pi);
 #X obj -20609 326 r~ MY_MACH;
 #X text -21045 480 Scaling factor between dipoles;
@@ -543,10 +609,9 @@
 #X obj -20420 417 *~;
 #X obj -20457 396 +~ 3;
 #X obj -20457 417 /~ 4;
-#X obj -20457 442 *~;
-#X obj -20505 475 -~;
-#X obj -20520 501 +~;
-#X obj -20520 560 *~;
+#X obj -20457 447 *~;
+#X obj -20505 509 -~;
+#X obj -20520 535 +~;
 #X obj -20623 152 sig~ 180;
 #X obj -20623 197 -~;
 #X obj -20475 267 r~ \$0-this_elev;
@@ -555,6 +620,11 @@
 #X obj -20623 226 /~ 360;
 #X obj -20490 309 /~ 360;
 #X obj -20861 483 /~ 10000;
+#X obj -20374 397 sin~;
+#X obj -20440 595 snapshot~;
+#X obj -20440 572 r myMet;
+#X floatatom -20440 620 0 0 0 0 - - -;
+#X obj -20457 472 *~;
 #X connect 1 0 57 0;
 #X connect 3 0 42 1;
 #X connect 4 0 49 0;
@@ -566,7 +636,7 @@
 #X connect 14 0 16 0;
 #X connect 14 0 55 0;
 #X connect 20 0 45 0;
-#X connect 21 0 61 0;
+#X connect 21 0 60 0;
 #X connect 22 0 34 1;
 #X connect 23 0 22 0;
 #X connect 24 0 33 1;
@@ -582,8 +652,8 @@
 #X connect 33 0 34 0;
 #X connect 34 0 35 1;
 #X connect 35 0 36 1;
-#X connect 36 0 66 0;
-#X connect 37 0 83 1;
+#X connect 36 0 65 0;
+#X connect 37 0 81 1;
 #X connect 38 0 39 0;
 #X connect 38 0 39 1;
 #X connect 39 0 42 0;
@@ -592,7 +662,7 @@
 #X connect 42 0 43 0;
 #X connect 43 0 20 0;
 #X connect 44 0 45 1;
-#X connect 45 0 89 0;
+#X connect 45 0 87 0;
 #X connect 46 0 36 0;
 #X connect 49 0 53 0;
 #X connect 51 0 50 0;
@@ -605,37 +675,40 @@
 #X connect 57 0 56 0;
 #X connect 58 0 18 0;
 #X connect 59 0 58 0;
-#X connect 60 0 62 1;
-#X connect 60 0 62 0;
-#X connect 61 0 60 0;
-#X connect 62 0 81 1;
-#X connect 64 0 26 1;
-#X connect 66 0 7 0;
-#X connect 68 0 80 0;
-#X connect 69 0 72 0;
-#X connect 69 0 76 0;
-#X connect 70 0 71 0;
-#X connect 71 0 72 1;
-#X connect 72 0 79 0;
-#X connect 73 0 75 0;
-#X connect 73 0 75 1;
-#X connect 74 0 73 0;
-#X connect 75 0 78 1;
+#X connect 60 0 88 0;
+#X connect 61 0 92 1;
+#X connect 63 0 26 1;
+#X connect 65 0 7 0;
+#X connect 67 0 79 0;
+#X connect 68 0 71 0;
+#X connect 68 0 75 0;
+#X connect 69 0 70 0;
+#X connect 70 0 71 1;
+#X connect 71 0 78 0;
+#X connect 72 0 74 0;
+#X connect 72 0 74 1;
+#X connect 73 0 72 0;
+#X connect 74 0 77 1;
+#X connect 75 0 76 0;
 #X connect 76 0 77 0;
-#X connect 77 0 78 0;
+#X connect 77 0 92 0;
 #X connect 78 0 79 1;
-#X connect 79 0 80 1;
+#X connect 79 0 89 0;
+#X connect 79 0 65 1;
 #X connect 80 0 81 0;
-#X connect 81 0 66 1;
-#X connect 82 0 83 0;
-#X connect 83 0 87 0;
-#X connect 84 0 86 1;
-#X connect 85 0 86 0;
-#X connect 86 0 88 0;
-#X connect 87 0 25 0;
-#X connect 88 0 70 0;
-#X connect 88 0 74 0;
-#X connect 89 0 46 0;
+#X connect 81 0 85 0;
+#X connect 82 0 84 1;
+#X connect 83 0 84 0;
+#X connect 84 0 86 0;
+#X connect 85 0 25 0;
+#X connect 86 0 69 0;
+#X connect 86 0 73 0;
+#X connect 87 0 46 0;
+#X connect 88 0 61 1;
+#X connect 88 0 61 0;
+#X connect 89 0 91 0;
+#X connect 90 0 89 0;
+#X connect 92 0 78 1;
 #X restore 304 573 pd GoldnoiseGain;
 #X text 295 620 Calculates the gain of the wake;
 #X obj 460 80 s \$0-azim;
@@ -1111,7 +1184,6 @@
 #X connect 66 0 69 0;
 #X connect 67 0 69 2;
 #X connect 68 0 69 5;
-#X connect 69 0 103 0;
 #X connect 69 0 43 0;
 #X connect 69 1 42 0;
 #X connect 70 0 47 0;