diff June/freqCalcCylD6.pd @ 82:08b4f16fc947

Adjustment on the gain of the noise spectrum on freqCalcCylD6. Still need for scientific basement for this value.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sun, 28 Jun 2015 10:00:01 +0100
parents 93856d889505
children c135ff021f93
line wrap: on
line diff
--- a/June/freqCalcCylD6.pd	Sat Jun 27 20:58:46 2015 +0100
+++ b/June/freqCalcCylD6.pd	Sun Jun 28 10:00:01 2015 +0100
@@ -1,4 +1,4 @@
-#N canvas 0 129 1263 724 10;
+#N canvas 123 74 1263 724 10;
 #X text 808 -23 Mass Density of Air;
 #X text 117 292 Frequency (Hz);
 #X obj 885 425 throw~ l;
@@ -115,7 +115,7 @@
 #X floatatom 134 442 10 0 0 0 - - -;
 #X obj 134 343 loadbang;
 #X obj 70 392 r~ \$0_str;
-#N canvas 1955 100 622 660 noiseGain 0;
+#N canvas 515 100 622 660 noiseGain 1;
 #X text -21205 129 Mass Density of Air \, squared;
 #X text -20857 164 Speed of Sound to power 2;
 #X obj -21070 29 *~;
@@ -129,7 +129,7 @@
 #X text -20859 71 Distance;
 #X obj -20890 352 cos;
 #X obj -20890 307 / 360;
-#X floatatom -20863 403 5 0 0 0 - - -;
+#X floatatom -20863 403 8 0 0 0 - - -;
 #X obj -20890 376 *;
 #X obj -20911 435 *~ 0.27;
 #X obj -20890 329 * 6.28319;
@@ -175,8 +175,6 @@
 #X restore -21022 32 pd pow8;
 #X obj -21005 222 s~ \$0-c;
 #X obj -20948 385 r~ \$0-c;
-#X obj -21021 444 *~ 1;
-#X obj -20911 460 *~ 0.1;
 #X obj -21070 7 inlet~;
 #X obj -21022 7 inlet~;
 #X obj -20989 55 inlet;
@@ -192,7 +190,7 @@
 #X text -20981 74 Diameter;
 #N canvas 1567 153 479 552 angleCalc 0;
 #X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 9705 1;
+-1 -1 9900 1;
 #X text 287 77 Elevation Angle;
 #X obj 236 118 / 360;
 #X obj 236 140 * 6.28319;
@@ -221,7 +219,7 @@
 #X obj 236 90 inlet;
 #X obj 164 57 inlet;
 #X obj 52 80 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 1715 1;
+-1 -1 4950 1;
 #X text 56 42 Azimuth Angle;
 #X connect 0 0 7 0;
 #X connect 2 0 3 0;
@@ -264,48 +262,52 @@
 #X obj -21000 328 * 6.28319;
 #X obj -21021 397 *~ 1;
 #X obj -20911 411 *~ 1;
+#X text -20848 459 Need for scienctific reasoning here!;
+#X text -21239 441 Need for scienctific reasoning here!;
+#X obj -21021 444 *~ 0.02;
+#X obj -20911 460 *~ 0.002;
 #X connect 2 0 3 1;
 #X connect 3 0 4 0;
 #X connect 4 0 5 0;
-#X connect 5 0 40 0;
+#X connect 5 0 38 0;
 #X connect 6 0 7 0;
 #X connect 7 0 8 1;
 #X connect 8 0 21 0;
-#X connect 8 0 46 0;
-#X connect 9 0 23 0;
+#X connect 8 0 44 0;
+#X connect 9 0 48 0;
 #X connect 11 0 14 0;
 #X connect 11 0 14 1;
 #X connect 12 0 16 0;
 #X connect 14 0 13 0;
-#X connect 14 0 47 1;
-#X connect 15 0 24 0;
+#X connect 14 0 45 1;
+#X connect 15 0 49 0;
 #X connect 16 0 11 0;
-#X connect 17 0 42 0;
+#X connect 17 0 40 0;
 #X connect 20 0 3 0;
-#X connect 22 0 47 0;
-#X connect 23 0 31 0;
-#X connect 24 0 32 0;
-#X connect 25 0 2 0;
-#X connect 25 0 2 1;
-#X connect 26 0 20 0;
-#X connect 27 0 4 1;
-#X connect 28 0 37 0;
-#X connect 29 0 37 1;
-#X connect 30 0 6 0;
-#X connect 30 0 6 1;
-#X connect 37 0 17 0;
-#X connect 37 0 12 0;
-#X connect 38 0 39 0;
-#X connect 38 0 39 1;
-#X connect 39 0 40 1;
-#X connect 40 0 8 0;
-#X connect 42 0 45 0;
-#X connect 43 0 44 0;
-#X connect 43 0 44 1;
-#X connect 44 0 46 1;
-#X connect 45 0 43 0;
-#X connect 46 0 9 0;
-#X connect 47 0 15 0;
+#X connect 22 0 45 0;
+#X connect 23 0 2 0;
+#X connect 23 0 2 1;
+#X connect 24 0 20 0;
+#X connect 25 0 4 1;
+#X connect 26 0 35 0;
+#X connect 27 0 35 1;
+#X connect 28 0 6 0;
+#X connect 28 0 6 1;
+#X connect 35 0 17 0;
+#X connect 35 0 12 0;
+#X connect 36 0 37 0;
+#X connect 36 0 37 1;
+#X connect 37 0 38 1;
+#X connect 38 0 8 0;
+#X connect 40 0 43 0;
+#X connect 41 0 42 0;
+#X connect 41 0 42 1;
+#X connect 42 0 44 1;
+#X connect 43 0 41 0;
+#X connect 44 0 9 0;
+#X connect 45 0 15 0;
+#X connect 48 0 29 0;
+#X connect 49 0 30 0;
 #X restore 314 438 pd noiseGain;
 #X obj 337 330 r \$0-diameter;
 #X obj 383 414 r \$0_dist;
@@ -368,9 +370,9 @@
 #X obj 357 441 r~ \$0-a;
 #X obj 419 397 * 6.28319;
 #X floatatom 471 46 5 0 0 0 - - -;
-#N canvas 131 175 479 552 angleCalc 1;
+#N canvas 131 175 479 552 angleCalc 0;
 #X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 1700 1;
+-1 -1 0 1;
 #X text 287 77 Elevation Angle;
 #X obj 236 118 / 360;
 #X obj 236 140 * 6.28319;
@@ -399,7 +401,7 @@
 #X obj 236 90 inlet;
 #X obj 164 57 inlet;
 #X obj 52 80 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 3300 1;
+-1 -1 0 1;
 #X text 56 42 Azimuth Angle;
 #X connect 0 0 7 0;
 #X connect 0 0 2 0;