# HG changeset patch
# User Rod Selfridge <r.selfridge@qmul.ac.uk>
# Date 1447747047 0
# Node ID e71e2b4657a646b73de13b59f9403a09b0385083
# Parent  6f2ac9ea16903dc5aea7f796cee3e843f47879c1
Goldstein dipole gain equantion added
Goldstein noise analogy added but might not be right

diff -r 6f2ac9ea1690 -r e71e2b4657a6 scene demo/freqCalcCyl3_D1Mach.pd
--- a/scene demo/freqCalcCyl3_D1Mach.pd	Tue Oct 27 13:16:45 2015 +0000
+++ b/scene demo/freqCalcCyl3_D1Mach.pd	Tue Nov 17 07:57:27 2015 +0000
@@ -65,7 +65,7 @@
 1;
 #X floatatom 104 571 10 0 0 0 - - -;
 #X obj 104 472 loadbang;
-#N canvas 335 23 1006 797 noiseGain 1;
+#N canvas 335 23 1006 797 noiseGain 0;
 #X text -21029 166 Mass Density of Air \, squared;
 #X text -20589 179 Speed of Sound to power 2;
 #X obj -20894 66 *~;
@@ -166,7 +166,7 @@
 #X text -20798 35 Wind speed;
 #X text -20580 332 Mid Source;
 #X text -20813 430 comment;
-#X obj -20846 658 *~ 0.05;
+#X obj -20846 658 *~ 0.001;
 #X connect 2 0 3 1;
 #X connect 3 0 4 0;
 #X connect 4 0 5 0;
@@ -514,10 +514,10 @@
 #X obj 475 721 fcpan;
 #X obj 502 692 r \$0-thisPan;
 #X obj 475 639 *~ 4;
-#X obj 649 676 *~ 0.4;
-#X obj 811 676 *~ 0.3;
-#X obj 509 665 *~ 0.4;
 #X obj 957 184 pink~;
+#X obj 509 665 *~ 0.8;
+#X obj 649 676 *~ 1;
+#X obj 811 676 *~ 1;
 #X connect 4 0 15 0;
 #X connect 5 0 7 0;
 #X connect 6 0 40 0;
@@ -631,22 +631,22 @@
 #X connect 156 0 154 0;
 #X connect 156 1 155 0;
 #X connect 157 0 156 1;
-#X connect 158 0 174 0;
+#X connect 158 0 176 0;
 #X connect 159 0 147 0;
 #X connect 160 0 161 0;
 #X connect 161 0 144 0;
 #X connect 162 0 164 0;
-#X connect 163 0 175 0;
+#X connect 163 0 177 0;
 #X connect 164 0 160 0;
 #X connect 165 0 166 0;
 #X connect 166 0 171 0;
 #X connect 167 0 173 0;
-#X connect 168 0 176 0;
+#X connect 168 0 175 0;
 #X connect 171 0 169 0;
 #X connect 171 1 170 0;
 #X connect 172 0 171 1;
 #X connect 173 0 165 0;
-#X connect 174 0 148 1;
-#X connect 175 0 161 1;
-#X connect 176 0 166 1;
-#X connect 177 0 136 0;
+#X connect 174 0 136 0;
+#X connect 175 0 166 1;
+#X connect 176 0 148 1;
+#X connect 177 0 161 1;
diff -r 6f2ac9ea1690 -r e71e2b4657a6 scene demo/newStrou.pd
--- a/scene demo/newStrou.pd	Tue Oct 27 13:16:45 2015 +0000
+++ b/scene demo/newStrou.pd	Tue Nov 17 07:57:27 2015 +0000
@@ -1,9 +1,9 @@
-#N canvas 804 381 590 316 10;
+#N canvas 645 272 718 433 10;
 #X obj 203 48 inlet~;
 #X obj 273 202 outlet~;
 #X text 101 20 Reynolds number coming in;
 #X text 211 238 Strouhal Number going out;
-#N canvas 350 312 1026 531 eqnSelect 0;
+#N canvas 350 312 1026 531 eqnSelect 1;
 #X msg 41 221 0.2684 -1.0356;
 #X msg 148 221 0.2437 -0.8607;
 #X msg 256 223 0.4291 -3.6735;
@@ -57,6 +57,11 @@
 #X text 254 359 St* coefficient;
 #X text 462 361 m coefficient;
 #X text 372 240 Averaged;
+#X obj 794 201 spigot;
+#X obj 840 174 spigot;
+#X obj 885 149 < 1e+06;
+#X text 784 251 Critical - Derived by author;
+#X msg 794 226 0.5839 -183.885;
 #X connect 0 0 7 0;
 #X connect 1 0 7 0;
 #X connect 2 0 7 0;
@@ -88,6 +93,8 @@
 #X connect 19 0 36 1;
 #X connect 19 0 37 0;
 #X connect 20 0 37 1;
+#X connect 21 0 52 0;
+#X connect 21 0 51 1;
 #X connect 22 0 0 0;
 #X connect 25 0 1 0;
 #X connect 26 0 25 0;
@@ -115,24 +122,41 @@
 #X connect 38 0 18 0;
 #X connect 38 0 19 0;
 #X connect 38 0 20 0;
+#X connect 38 0 21 0;
+#X connect 38 0 53 0;
 #X connect 39 0 38 0;
 #X connect 40 0 41 0;
 #X connect 41 0 42 0;
 #X connect 42 0 38 0;
 #X connect 45 0 43 0;
 #X connect 46 0 44 0;
+#X connect 51 0 55 0;
+#X connect 52 0 51 0;
+#X connect 53 0 52 1;
+#X connect 55 0 7 0;
 #X restore 273 83 pd eqnSelect;
 #X obj 203 85 sqrt~;
 #X obj 342 119 /~;
-#X obj 273 166 +~;
 #X text 135 97 sqrt(Re);
 #X text 250 114 St*;
 #X text 359 101 m;
 #X text 376 152 St = St* + m / sqrt(Re);
+#X obj 99 248 snapshot~;
+#X obj 99 223 metro 100;
+#X obj 99 201 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 99 274 10 0 0 0 - - -;
+#X obj 99 175 loadbang;
+#X obj 273 166 +~;
 #X connect 0 0 4 0;
 #X connect 0 0 5 0;
-#X connect 4 0 7 0;
+#X connect 4 0 16 0;
 #X connect 4 1 6 0;
 #X connect 5 0 6 1;
-#X connect 6 0 7 1;
-#X connect 7 0 1 0;
+#X connect 6 0 16 1;
+#X connect 11 0 14 0;
+#X connect 12 0 11 0;
+#X connect 13 0 12 0;
+#X connect 15 0 13 0;
+#X connect 16 0 1 0;
+#X connect 16 0 11 0;
diff -r 6f2ac9ea1690 -r e71e2b4657a6 scene demo/testBed.pd
--- a/scene demo/testBed.pd	Tue Oct 27 13:16:45 2015 +0000
+++ b/scene demo/testBed.pd	Tue Nov 17 07:57:27 2015 +0000
@@ -1,4 +1,4 @@
-#N canvas 162 77 1281 766 10;
+#N canvas -13 65 1058 764 10;
 #X obj 167 -82 loadbang;
 #N canvas 236 158 426 423 windspeed 0;
 #X obj 3 -19 +~ 1;
@@ -71,7 +71,7 @@
 #X restore -268 -129 pd windspeed;
 #X obj -268 65 delwrite~ varwind 3000;
 #X obj -185 -127 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 1101 1;
+-262144 -1 -1 2401 1;
 #X obj -225 -24 snapshot~;
 #X obj -225 -49 metro 100;
 #X obj -225 -71 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
@@ -83,8 +83,8 @@
 #X text -228 21 Wind Speed;
 #X obj -49 -126 loadbang;
 #X msg -49 -98 5;
-#X obj 211 10 hsl 128 15 0.001 0.1 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 6218 1;
+#X obj 211 10 hsl 128 15 0.001 0.3 1 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 6827 1;
 #X floatatom 223 34 8 0 0 0 - - -;
 #X obj 274 284 hsl 128 15 0.009 0.9 0 0 empty empty empty -2 -8 0 10
 -262144 -1 -1 6999 1;
@@ -94,10 +94,10 @@
 -1 -1 6350 1;
 #X floatatom 270 195 5 0 0 0 - - -;
 #X obj 261 221 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 8449 1;
+-262144 -1 -1 6700 1;
 #X floatatom 285 250 5 0 0 0 - - -;
 #X obj 236 109 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
--1 -1 12700 1;
+-1 -1 9747 1;
 #X floatatom 247 138 5 0 0 0 - - -;
 #X text 415 285 Pan Value;
 #X obj -276 231 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
@@ -144,7 +144,7 @@
 #X restore -277 188 pd opLevels;
 #X msg -253 109 5;
 #X obj -274 159 hsl 100 25 0.1 5000 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 396 1;
+-262144 -1 -1 1496 1;
 #X obj -7 -21 snapshot~;
 #X obj -7 -46 metro 100;
 #X floatatom -7 6 10 0 0 0 - - -;
@@ -162,14 +162,14 @@
 #X restore 64 -121 pd machCalc;
 #X obj 340 -139 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1
 -1;
-#X floatatom 235 509 8 0 0 0 - - -;
+#X floatatom 199 506 8 0 0 0 - - -;
 #X msg 117 92 12;
 #X msg 97 149 0;
 #X msg 54 267 0.5;
 #X obj 167 -58 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X obj 224 66 hsl 128 15 1 10 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 12700 1;
+-1 -1 4233 1;
 #X floatatom 245 85 8 0 0 0 - - -;
 #X msg 133 49 4;
 #X obj -157 162 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144
@@ -393,8 +393,6 @@
 #X connect 28 0 11 1;
 #X restore -414 49 pd writing;
 #X obj 440 243 s azim;
-#X msg 77 204 90;
-#X msg 125 188 120;
 #X msg 171 165 -45;
 #X obj -374 10 sig~;
 #X msg 134 232 5;
@@ -432,12 +430,17 @@
 #X floatatom -456 -5 5 0 0 0 - - -;
 #X msg 154 -7 0.0254;
 #X msg -378 -17 32.3;
-#X obj 199 481 freqCalcCyl3_D1Mach;
+#X obj 199 481 freqCalcCyl3No_D1Mach;
+#X floatatom 322 504 12 0 0 0 - - -;
+#X text 168 528 Fundamental Freq;
+#X text 316 528 Reynolds No.;
+#X msg 77 204 110;
+#X msg 125 188 90;
 #X connect 0 0 45 0;
 #X connect 1 0 8 0;
 #X connect 3 0 8 1;
 #X connect 3 0 9 1;
-#X connect 3 0 89 0;
+#X connect 3 0 87 0;
 #X connect 4 0 7 0;
 #X connect 4 0 53 0;
 #X connect 5 0 4 0;
@@ -449,22 +452,22 @@
 #X connect 12 0 13 0;
 #X connect 13 0 3 0;
 #X connect 14 0 15 0;
-#X connect 14 0 121 1;
+#X connect 14 0 119 1;
 #X connect 16 0 17 0;
-#X connect 16 0 121 6;
+#X connect 16 0 119 6;
 #X connect 19 0 20 0;
-#X connect 19 0 121 4;
+#X connect 19 0 119 4;
 #X connect 21 0 22 0;
 #X connect 21 0 82 0;
-#X connect 21 0 121 5;
+#X connect 21 0 119 5;
 #X connect 23 0 24 0;
-#X connect 23 0 121 3;
+#X connect 23 0 119 3;
 #X connect 29 0 31 0;
 #X connect 30 0 26 0;
 #X connect 30 1 27 0;
 #X connect 31 0 32 0;
 #X connect 32 0 30 0;
-#X connect 32 0 115 0;
+#X connect 32 0 113 0;
 #X connect 33 0 35 0;
 #X connect 33 0 55 0;
 #X connect 34 0 33 0;
@@ -474,21 +477,21 @@
 #X connect 42 0 23 0;
 #X connect 43 0 19 0;
 #X connect 44 0 16 0;
-#X connect 45 0 91 0;
-#X connect 45 0 119 0;
+#X connect 45 0 89 0;
+#X connect 45 0 117 0;
 #X connect 45 0 42 0;
 #X connect 45 0 43 0;
-#X connect 45 0 83 0;
+#X connect 45 0 123 0;
 #X connect 45 0 44 0;
 #X connect 45 0 48 0;
 #X connect 45 0 75 0;
 #X connect 45 0 76 0;
 #X connect 45 0 77 0;
 #X connect 46 0 47 0;
-#X connect 46 0 121 2;
+#X connect 46 0 119 2;
 #X connect 48 0 46 0;
 #X connect 49 0 30 1;
-#X connect 50 0 114 0;
+#X connect 50 0 112 0;
 #X connect 54 0 33 0;
 #X connect 57 0 14 0;
 #X connect 58 0 46 0;
@@ -497,48 +500,49 @@
 #X connect 61 0 21 0;
 #X connect 62 0 16 0;
 #X connect 66 0 67 0;
-#X connect 66 0 121 7;
+#X connect 66 0 119 7;
 #X connect 68 0 66 0;
 #X connect 69 0 70 0;
-#X connect 69 0 121 8;
+#X connect 69 0 119 8;
 #X connect 71 0 69 0;
 #X connect 72 0 73 0;
-#X connect 72 0 121 9;
+#X connect 72 0 119 9;
 #X connect 74 0 72 0;
 #X connect 75 0 66 0;
 #X connect 76 0 69 0;
 #X connect 77 0 72 0;
 #X connect 83 0 21 0;
-#X connect 84 0 21 0;
 #X connect 85 0 21 0;
-#X connect 87 0 21 0;
+#X connect 86 0 14 0;
 #X connect 88 0 14 0;
-#X connect 90 0 14 0;
-#X connect 91 0 121 0;
-#X connect 92 0 94 0;
-#X connect 93 0 94 0;
-#X connect 95 0 106 0;
-#X connect 95 1 104 0;
-#X connect 95 2 102 0;
-#X connect 95 3 100 0;
-#X connect 95 4 98 0;
-#X connect 95 5 96 0;
-#X connect 97 0 32 0;
-#X connect 99 0 21 0;
-#X connect 101 0 23 0;
-#X connect 103 0 46 0;
-#X connect 105 0 14 0;
-#X connect 107 0 3 0;
-#X connect 108 0 32 0;
-#X connect 109 0 95 0;
-#X connect 110 0 95 0;
-#X connect 111 0 95 0;
-#X connect 112 0 95 0;
-#X connect 113 0 109 0;
-#X connect 114 0 49 0;
-#X connect 116 0 95 0;
-#X connect 117 0 86 0;
-#X connect 117 0 118 0;
-#X connect 119 0 14 0;
-#X connect 120 0 86 0;
-#X connect 121 0 41 0;
+#X connect 89 0 119 0;
+#X connect 90 0 92 0;
+#X connect 91 0 92 0;
+#X connect 93 0 104 0;
+#X connect 93 1 102 0;
+#X connect 93 2 100 0;
+#X connect 93 3 98 0;
+#X connect 93 4 96 0;
+#X connect 93 5 94 0;
+#X connect 95 0 32 0;
+#X connect 97 0 21 0;
+#X connect 99 0 23 0;
+#X connect 101 0 46 0;
+#X connect 103 0 14 0;
+#X connect 105 0 3 0;
+#X connect 106 0 32 0;
+#X connect 107 0 93 0;
+#X connect 108 0 93 0;
+#X connect 109 0 93 0;
+#X connect 110 0 93 0;
+#X connect 111 0 107 0;
+#X connect 112 0 49 0;
+#X connect 114 0 93 0;
+#X connect 115 0 84 0;
+#X connect 115 0 116 0;
+#X connect 117 0 14 0;
+#X connect 118 0 84 0;
+#X connect 119 0 41 0;
+#X connect 119 1 120 0;
+#X connect 123 0 21 0;
+#X connect 124 0 21 0;