diff June/thisFreq.pd @ 41:52511c74c3f1

Numerous improvements based on physics equation, inc intensity and azimuth angle calculations

--- a/June/thisFreq.pd	Fri May 29 15:22:13 2015 +0100
+++ b/June/thisFreq.pd	Fri May 29 20:56:56 2015 +0100
@@ -1,12 +1,10 @@
-#N canvas 516 71 470 555 10;
+#N canvas 810 373 1223 757 10;
 #X text 46 -77 Mass Density of Air;
 #X text 237 301 Frequency (Hz);
-#X obj 168 -139 inlet~;
-#X obj 107 275 throw~ l;
-#X obj 172 275 throw~ r;
+#X obj 327 -119 inlet~;
+#X obj 99 345 throw~ l;
+#X obj 164 345 throw~ r;
 #X obj 139 243 osc~;
-#X obj 226 -48 s diameter;
-#X obj 176 128 r diameter;
 #X obj 168 -76 *~ 1.225;
 #X obj 168 -1 /~ 1.81e-05;
 #X obj 138 102 *~ 0.198;
@@ -22,32 +20,125 @@
 #X obj 99 42 sig~ 1;
 #X obj 138 71 -~;
 #X obj 138 131 *~;
-#X obj 91 -98 s~ wind;
-#X obj 203 100 r~ wind;
 #X obj 138 205 clip~ 0 20000;
-#X obj 226 -75 inlet;
+#X obj 329 -83 inlet;
 #X obj 327 275 outlet;
-#X connect 2 0 8 0;
-#X connect 2 0 22 0;
+#X obj 247 176 loadbang;
+#X text 290 37 Mass Density of Air \, squared;
+#X text 550 20 Speed of Sound to power 2;
+#N canvas 759 125 286 289 pow6 0;
+#X obj 47 67 *~;
+#X obj 76 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 163 outlet~;
+#X obj 136 184 snapshot~;
+#X obj 136 159 metro 100;
+#X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 136 211 10 0 0 0 - - -;
+#X obj 216 210 outlet;
+#X obj 136 111 loadbang;
+#X obj 106 67 *~;
+#X obj 47 93 *~;
+#X obj 47 118 *~;
+#X connect 0 0 11 0;
+#X connect 1 0 11 1;
+#X connect 2 0 0 0;
+#X connect 2 0 0 1;
+#X connect 2 0 1 1;
+#X connect 2 0 10 0;
+#X connect 2 0 10 1;
+#X connect 2 0 1 0;
+#X connect 4 0 7 0;
+#X connect 4 0 8 0;
 #X connect 5 0 4 0;
-#X connect 5 0 3 0;
-#X connect 7 0 12 1;
-#X connect 8 0 11 0;
-#X connect 9 0 18 1;
-#X connect 10 0 21 0;
-#X connect 11 0 9 0;
-#X connect 12 0 24 0;
-#X connect 13 0 16 0;
-#X connect 13 0 26 0;
-#X connect 14 0 13 0;
-#X connect 15 0 14 0;
+#X connect 6 0 5 0;
+#X connect 9 0 6 0;
+#X connect 10 0 12 1;
+#X connect 11 0 12 0;
+#X connect 12 0 4 0;
+#X connect 12 0 3 0;
+#X restore 413 -78 pd pow6;
+#X text 9 -8 Reynolds Number;
+#X text 17 174 Strouhal Number;
+#X obj 376 -65 *~;
+#X obj 413 -40 *~;
+#X obj 413 -6 *~ 1;
+#X obj 413 22 *~ 1.50063;
+#X obj 491 -29 inlet;
+#X obj 491 -4 *;
+#X obj 491 21 * 118033;
+#X obj 413 57 /~ 1;
+#X obj 501 43 inlet;
+#X obj 501 112 cos;
+#X obj 501 67 / 360;
+#X obj 501 89 * 6.28319;
+#X obj 413 155 *~ 0.27;
+#X obj 139 285 *~;
+#X obj 441 260 snapshot~;
+#X obj 441 235 metro 100;
+#X obj 441 213 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 441 287 10 0 0 0 - - -;
+#X obj 521 286 outlet;
+#X obj 441 187 loadbang;
+#X floatatom 501 161 5 0 0 0 - - -;
+#X obj 501 136 *;
+#X text 546 46 Azimuth;
+#X text 490 -49 Distance;
+#X obj 336 200 *~ 1e-05;
+#X obj 413 130 *~ 1;
+#X connect 2 0 6 0;
+#X connect 2 0 19 1;
+#X connect 2 0 26 0;
+#X connect 5 0 42 0;
+#X connect 6 0 9 0;
+#X connect 7 0 16 1;
+#X connect 8 0 19 0;
+#X connect 9 0 7 0;
+#X connect 10 0 20 0;
+#X connect 10 0 29 0;
+#X connect 10 0 29 1;
+#X connect 11 0 14 0;
+#X connect 11 0 22 0;
+#X connect 12 0 11 0;
+#X connect 13 0 12 0;
+#X connect 15 0 16 0;
+#X connect 16 0 18 1;
 #X connect 17 0 18 0;
-#X connect 18 0 20 1;
-#X connect 19 0 20 0;
-#X connect 20 0 10 0;
-#X connect 21 0 12 0;
-#X connect 23 0 21 1;
-#X connect 24 0 5 0;
-#X connect 24 0 13 0;
-#X connect 25 0 11 1;
-#X connect 25 0 6 0;
+#X connect 18 0 8 0;
+#X connect 19 0 10 0;
+#X connect 20 0 5 0;
+#X connect 20 0 11 0;
+#X connect 21 0 9 1;
+#X connect 21 0 10 1;
+#X connect 21 0 31 1;
+#X connect 23 0 13 0;
+#X connect 26 0 30 0;
+#X connect 29 0 30 1;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X connect 32 0 36 0;
+#X connect 33 0 34 0;
+#X connect 33 0 34 1;
+#X connect 34 0 35 0;
+#X connect 35 0 36 1;
+#X connect 36 0 54 0;
+#X connect 37 0 39 0;
+#X connect 38 0 50 0;
+#X connect 38 0 50 1;
+#X connect 39 0 40 0;
+#X connect 40 0 38 0;
+#X connect 41 0 53 0;
+#X connect 42 0 3 0;
+#X connect 42 0 4 0;
+#X connect 43 0 46 0;
+#X connect 43 0 47 0;
+#X connect 44 0 43 0;
+#X connect 45 0 44 0;
+#X connect 48 0 45 0;
+#X connect 50 0 49 0;
+#X connect 50 0 54 1;
+#X connect 53 0 42 1;
+#X connect 53 0 43 0;
+#X connect 54 0 41 0;