diff June/freqCalcCylD5.pd @ 80:c21ae30cfdbb

Additional angle calculations correction made in June/freqCalcCylD5.pd
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 26 Jun 2015 17:38:23 +0100
parents 310f1de5b676
children
line wrap: on
line diff
--- a/June/freqCalcCylD5.pd	Fri Jun 26 17:16:21 2015 +0100
+++ b/June/freqCalcCylD5.pd	Fri Jun 26 17:38:23 2015 +0100
@@ -1,4 +1,4 @@
-#N canvas 1453 23 1649 836 10;
+#N canvas 1449 -75 1649 836 10;
 #X text 798 -33 Mass Density of Air;
 #X text 107 282 Frequency (Hz);
 #X obj 875 415 throw~ l;
@@ -115,7 +115,7 @@
 #X floatatom 124 432 10 0 0 0 - - -;
 #X obj 124 333 loadbang;
 #X obj 60 382 r~ \$0_str;
-#N canvas 1955 100 622 660 noiseGain 0;
+#N canvas 1955 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 *~;
@@ -125,7 +125,7 @@
 #X obj -20859 118 *;
 #X obj -20859 141 * 118033;
 #X obj -21022 193 /~ 1;
-#X obj -21022 399 *~ 0.27;
+#X obj -21021 422 *~ 0.27;
 #X text -20859 71 Distance;
 #X obj -20890 352 cos;
 #X obj -20890 307 / 360;
@@ -133,9 +133,9 @@
 #X obj -20890 376 *;
 #X obj -20911 435 *~ 0.27;
 #X obj -20890 329 * 6.28319;
-#X obj -20890 279 + 90;
+#X obj -21000 282 + 90;
 #X text -20895 510 Calculates Drag Dipole gain;
-#X text -21176 463 Calculates Lift Dipole gain;
+#X text -21175 486 Calculates Lift Dipole gain;
 #N canvas 759 125 286 289 pow8 0;
 #X obj 47 67 *~;
 #X obj 76 67 *~;
@@ -175,7 +175,7 @@
 #X restore -21022 32 pd pow8;
 #X obj -21005 222 s~ \$0-c;
 #X obj -20948 385 r~ \$0-c;
-#X obj -21022 421 *~ 1;
+#X obj -21021 444 *~ 1;
 #X obj -20911 460 *~ 0.1;
 #X obj -21070 7 inlet~;
 #X obj -21022 7 inlet~;
@@ -183,7 +183,7 @@
 #X obj -20942 229 inlet;
 #X obj -20873 229 inlet;
 #X obj -20859 92 inlet;
-#X obj -21022 442 outlet~;
+#X obj -21021 465 outlet~;
 #X obj -20911 485 outlet~;
 #X text -20947 211 Azimuth;
 #X text -20871 210 Elevation;
@@ -192,7 +192,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 9900 1;
+-1 -1 5223 1;
 #X text 287 77 Elevation Angle;
 #X obj 236 118 / 360;
 #X obj 236 140 * 6.28319;
@@ -258,11 +258,11 @@
 #X obj -20951 142 *;
 #X obj -21022 167 *~ 1;
 #X text -20953 99 Length;
-#X obj -21001 282 / 360;
-#X obj -21001 328 cos;
-#X obj -21001 352 *;
-#X obj -21001 305 * 6.28319;
-#X obj -21022 374 *~ 1;
+#X obj -21000 305 / 360;
+#X obj -21000 351 cos;
+#X obj -21000 375 *;
+#X obj -21000 328 * 6.28319;
+#X obj -21021 397 *~ 1;
 #X obj -20911 411 *~ 1;
 #X connect 2 0 3 1;
 #X connect 3 0 4 0;
@@ -280,7 +280,7 @@
 #X connect 14 0 47 1;
 #X connect 15 0 24 0;
 #X connect 16 0 11 0;
-#X connect 17 0 12 0;
+#X connect 17 0 42 0;
 #X connect 20 0 3 0;
 #X connect 22 0 47 0;
 #X connect 23 0 31 0;
@@ -294,7 +294,7 @@
 #X connect 30 0 6 0;
 #X connect 30 0 6 1;
 #X connect 37 0 17 0;
-#X connect 37 0 42 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;
@@ -313,7 +313,7 @@
 #X obj 350 361 r \$0_elev;
 #X obj 304 473 s~ \$0_liftNoiseGain;
 #X obj 373 451 s~ \$0_dragNoiseGain;
-#N canvas 2359 -5 620 642 freqGain 0;
+#N canvas 2053 -13 661 655 freqGain 0;
 #X text 36 127 Mass Density of Air \, squared;
 #X text 400 151 Speed of Sound to power 2;
 #N canvas 759 125 286 289 pow6 0;
@@ -368,9 +368,9 @@
 #X obj 290 477 r~ \$0-a;
 #X obj 352 433 * 6.28319;
 #X floatatom 363 104 5 0 0 0 - - -;
-#N canvas 1567 153 479 552 angleCalc 0;
+#N canvas 1694 100 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 4950 1;
+-1 -1 5700 1;
 #X text 287 77 Elevation Angle;
 #X obj 236 118 / 360;
 #X obj 236 140 * 6.28319;
@@ -399,9 +399,10 @@
 #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 9900 1;
+-1 -1 4700 1;
 #X text 56 42 Azimuth Angle;
 #X connect 0 0 7 0;
+#X connect 0 0 2 0;
 #X connect 2 0 3 0;
 #X connect 3 0 21 0;
 #X connect 4 0 5 0;
@@ -427,13 +428,12 @@
 #X connect 23 1 24 0;
 #X connect 24 0 22 0;
 #X connect 26 0 2 0;
-#X connect 26 0 0 0;
 #X connect 27 0 4 0;
-#X connect 27 0 28 0;
 #X connect 28 0 6 0;
+#X connect 28 0 4 0;
 #X restore 298 333 pd angleCalc;
 #X text 384 296 Elevation;
-#X obj 352 383 + 90;
+#X obj 240 364 + 90;
 #X text 409 534 Calculates Drag Dipole gain;
 #X text 48 445 Calculates Lift Dipole gain;
 #X obj 220 528 *~ 1;
@@ -457,6 +457,7 @@
 #X obj 240 411 * 6.28319;
 #X obj 331 503 *~ 1;
 #X obj 219 481 *~ 1;
+#X floatatom 139 477 8 0 0 0 - - -;
 #X connect 2 0 4 0;
 #X connect 3 0 4 1;
 #X connect 4 0 5 0;
@@ -476,8 +477,8 @@
 #X connect 19 0 46 0;
 #X connect 20 0 13 0;
 #X connect 22 0 24 0;
-#X connect 22 0 42 0;
-#X connect 24 0 14 0;
+#X connect 22 0 14 0;
+#X connect 24 0 42 0;
 #X connect 27 0 36 0;
 #X connect 28 0 37 0;
 #X connect 29 0 3 0;
@@ -497,6 +498,7 @@
 #X connect 43 0 44 0;
 #X connect 43 0 44 1;
 #X connect 44 0 47 1;
+#X connect 44 0 48 0;
 #X connect 45 0 43 0;
 #X connect 46 0 17 0;
 #X connect 47 0 10 0;