diff scene demo/freqCalcCyl3No_D1Mach.pd @ 151:8bc63904cee2

minor edits

--- a/scene demo/freqCalcCyl3No_D1Mach.pd	Sun Dec 13 10:17:40 2015 +0000
+++ b/scene demo/freqCalcCyl3No_D1Mach.pd	Mon Jan 04 20:11:00 2016 +0000
@@ -506,8 +506,8 @@
 #X obj 773 336 sig~;
 #X obj 518 141 sig~;
 #X text 297 695 comment;
-#X obj 844 146 r~ plotElev;
-#X obj 818 120 r~ plotElev;
+#X obj 557 139 r~ plotElev;
+#X obj 245 439 r~ plotElev;
 #X obj 150 588 s~ plotOPF;
 #X obj 676 541 s~ plotOPD;
 #X obj 616 44 s \$0-this_elev;
@@ -523,7 +523,7 @@
 #X obj 887 398 sig~;
 #X obj 872 423 /~;
 #X text 588 167 Remember - Goldstein moves cylinder;
-#X obj 893 122 r~ plotElev;
+#X obj 757 289 r~ plotElev;
 #X floatatom 359 169 5 0 0 0 - - -;
 #X obj 518 170 /~ 360;
 #X text 684 638 comment;
@@ -533,6 +533,8 @@
 #X obj 270 82 *~ 1;
 #X obj 219 102 *~;
 #X obj 424 17 inlet~;
+#X obj 534 620 cos~;
+#X obj 534 595 *~ 2;
 #X connect 0 0 2 0;
 #X connect 1 0 2 1;
 #X connect 2 0 129 0;
@@ -637,6 +639,7 @@
 #X connect 128 0 129 1;
 #X connect 129 0 54 0;
 #X connect 130 0 126 0;
+#X connect 132 0 131 0;
 #X restore 293 287 pd GoldfreqGain;
 #N canvas 732 187 570 435 Qvalues 0;
 #X obj 50 93 inlet~;
@@ -653,7 +656,7 @@
 #X obj 209 206 spigot;
 #X floatatom 217 338 5 0 0 0 - - -;
 #X obj 211 70 hsl 128 15 100 30000 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 4891 1;
+-262144 -1 -1 3784 1;
 #X floatatom 174 128 8 0 0 0 - - -;
 #X obj 336 192 spigot;
 #X obj 382 165 spigot;
@@ -1001,14 +1004,14 @@
 #X obj -20622 587 metro 10;
 #X obj -20622 608 snapshot~;
 #X floatatom -20622 628 8 0 0 0 - - -;
-#X obj -20516 195 r~ plotElev;
+#X obj -20579 269 r~ plotElev;
 #X obj -20925 705 s~ plotOPN;
-#X obj -20846 658 *~ 3000;
 #X obj -20669 283 -~;
 #X text -20617 290 Angle goes with the flow in Goldstein hence 90 -
 theta so that theta is same angle as dipole angles.;
 #X obj -20669 238 sig~ 180;
-#X obj -20654 260 r~ \$0-this_elev;
+#X obj -20606 242 r~ \$0-this_elev;
+#X obj -20846 658 *~ 3000;
 #X connect 1 0 30 0;
 #X connect 2 0 48 0;
 #X connect 4 0 1 0;
@@ -1049,7 +1052,7 @@
 #X connect 47 0 49 1;
 #X connect 48 0 49 0;
 #X connect 49 0 50 1;
-#X connect 50 0 63 0;
+#X connect 50 0 67 0;
 #X connect 51 0 52 0;
 #X connect 52 0 53 0;
 #X connect 53 0 54 0;
@@ -1058,12 +1061,12 @@
 #X connect 57 0 58 0;
 #X connect 58 0 59 0;
 #X connect 59 0 60 0;
-#X connect 63 0 8 0;
-#X connect 63 0 14 0;
-#X connect 63 0 62 0;
-#X connect 64 0 35 0;
-#X connect 66 0 64 0;
-#X connect 67 0 64 1;
+#X connect 63 0 35 0;
+#X connect 65 0 63 0;
+#X connect 66 0 63 1;
+#X connect 67 0 8 0;
+#X connect 67 0 14 0;
+#X connect 67 0 62 0;
 #X restore 274 527 pd GoldnoiseGain;
 #X text 265 574 Calculates the gain of the wake;
 #X obj 1059 36 inlet;
@@ -1202,7 +1205,6 @@
 #X connect 8 0 11 0;
 #X connect 9 0 4 1;
 #X connect 10 0 9 1;
-#X connect 11 0 16 0;
 #X connect 12 0 11 2;
 #X connect 13 0 11 1;
 #X connect 15 0 9 0;
@@ -1327,7 +1329,7 @@
 #X obj 562 665 r~ \$0-myFreq;
 #X obj 631 728 r \$0-TuGain;
 #X obj 585 687 r~ \$0-liftDiGain;
-#N canvas 1014 140 491 522 liftDiFun 0;
+#N canvas 444 150 491 522 liftDiFun 0;
 #X obj 165 125 osc~;
 #X obj 165 298 throw~ l;
 #X obj 192 275 throw~ r;
@@ -1343,8 +1345,10 @@
 #X text 60 369 Generates the pure tone associated with the lift dipole
 fundamental frequency.;
 #X floatatom 227 254 5 0 0 0 - - -;
+#X obj 95 262 s~ fund1;
 #X connect 0 0 3 0;
 #X connect 3 0 4 0;
+#X connect 3 0 14 0;
 #X connect 4 0 1 0;
 #X connect 4 1 2 0;
 #X connect 5 0 3 1;
@@ -1417,9 +1421,9 @@
 #X obj 348 503 r \$0-azim;
 #X obj 314 725 r \$0-elev;
 #X obj 325 748 r \$0-azim;
-#N canvas 979 287 444 428 corrLen 0;
+#N canvas 1021 287 444 428 corrLen 1;
 #X obj 103 71 inlet~;
-#X obj 88 177 outlet~;
+#X obj 88 200 outlet~;
 #X obj 282 208 snapshot~;
 #X obj 282 161 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
@@ -1429,25 +1433,34 @@
 #X obj 282 183 metro 100;
 #X obj 124 93 sig~ -0.245;
 #X obj 103 119 pow~;
-#X obj 88 46 sig~ 34.36;
 #X text 234 22 Y = 10^b . X^m;
 #X text 235 40 b = 1.536;
 #X text 235 56 m = -0.245;
 #X text 80 297 Equation of line derived from Norberg 2001;
+#X obj 88 169 max~ 1;
+#X obj 88 46 sig~ 44.67;
 #X connect 0 0 9 0;
 #X connect 2 0 5 0;
 #X connect 3 0 7 0;
 #X connect 4 0 3 0;
-#X connect 6 0 1 0;
-#X connect 6 0 2 0;
+#X connect 6 0 14 0;
 #X connect 7 0 2 0;
 #X connect 8 0 9 1;
 #X connect 9 0 6 1;
-#X connect 10 0 6 0;
+#X connect 14 0 1 0;
+#X connect 14 0 2 0;
+#X connect 15 0 6 0;
 #X restore 1229 60 pd corrLen Calc;
 #X obj 1229 37 r~ \$0-myRey;
 #X obj 1229 84 s~ \$0-myCor;
 #X obj 327 202 r~ \$0-myCor;
+#X obj 942 211 snapshot~;
+#X floatatom 942 234 5 0 0 0 - - -;
+#X obj 942 172 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 891 224 rfft~;
+#X obj 894 267 print~ real;
+#X obj 942 190 metro 1000;
 #X connect 2 0 4 0;
 #X connect 3 0 32 0;
 #X connect 3 0 72 0;
@@ -1463,6 +1476,7 @@
 #X connect 17 0 48 1;
 #X connect 18 0 7 1;
 #X connect 19 0 2 0;
+#X connect 19 0 196 0;
 #X connect 21 0 147 1;
 #X connect 22 0 23 0;
 #X connect 23 0 16 0;
@@ -1583,3 +1597,8 @@
 #X connect 189 0 191 0;
 #X connect 190 0 189 0;
 #X connect 192 0 122 4;
+#X connect 193 0 194 0;
+#X connect 195 0 198 0;
+#X connect 196 0 197 0;
+#X connect 198 0 193 0;
+#X connect 198 0 197 0;