diff Propellor/freqCalcCyl6HiFi.pd @ 251:fc487b69ce79

Update to Propeller model
New gain relationships updated to tone sounds.

--- a/Propellor/freqCalcCyl6HiFi.pd	Thu Sep 22 19:52:04 2016 +0100
+++ b/Propellor/freqCalcCyl6HiFi.pd	Thu Oct 13 17:24:22 2016 +0100
@@ -1,4 +1,4 @@
-#N canvas 114 59 1227 739 10;
+#N canvas 65 37 1227 739 10;
 #X text 597 188 Mass Density of Air;
 #X obj 719 189 *~ 1.225;
 #X obj 719 264 /~ 1.81e-05;
@@ -15,17 +15,17 @@
 #X floatatom 591 136 8 0 0 0 - - -;
 #X text 683 470 Calculates the frequency;
 #X text 684 482 based on the physics of;
-#X text 307 401 Calculates the gain of the dipole source;
-#X text 500 40 Azimuth;
+#X text 307 437 Calculates the gain of the dipole source;
+#X text 559 36 Azimuth;
 #X text 651 49 Pan;
-#X text 423 39 Elevation;
-#X text 354 42 Distance;
+#X text 404 41 Elevation;
+#X text 284 5 Distance;
 #X text 228 52 Diameter;
 #X obj 1062 413 throw~ l;
 #X obj 1089 391 throw~ r;
 #X obj 1062 369 fcpan;
-#X obj 441 364 s~ \$0-dragDiGain;
-#X obj 354 384 s~ \$0-liftDiGain;
+#X obj 441 400 s~ \$0-dragDiGain;
+#X obj 354 420 s~ \$0-liftDiGain;
 #X obj 336 464 r~ \$0-str;
 #X obj 336 681 s~ \$0-liftNoiseGain;
 #X obj 619 360 s~ \$0-str;
@@ -35,7 +35,7 @@
 #X text 1043 174 Noise spectrum calculation;
 #X obj 1077 292 hip~;
 #X obj 1077 247 rpole~ 0.99;
-#X obj 354 145 r~ \$0-str;
+#X obj 354 181 r~ \$0-str;
 #X text 327 700 Calculates the gain of the wake;
 #N canvas 1021 287 444 428 corrLen 0;
 #X obj 103 71 inlet~;
@@ -58,7 +58,7 @@
 #X restore 718 71 pd corrLen Calc;
 #X obj 718 48 r~ \$0-myRey;
 #X obj 718 95 s~ \$0-myCor;
-#X obj 403 235 r~ \$0-myCor;
+#X obj 403 271 r~ \$0-myCor;
 #X obj 1077 319 hip~;
 #X obj 362 508 r~ \$0-myCor;
 #X obj 646 91 max 0.01;
@@ -67,8 +67,6 @@
 #X obj 131 67 r~ \$0-myFreq;
 #X obj 225 178 r~ \$0-liftDiGain;
 #X obj 389 58 r~ \$0-myFreq;
-#X obj 528 138 r~ \$0-liftDiGain;
-#X obj 528 159 *~ 0.6;
 #X obj 389 82 *~ 3;
 #X obj 258 385 r~ \$0-myFreq;
 #X obj 371 472 r~ \$0-dragDiGain;
@@ -114,54 +112,74 @@
 #X obj 480 159 *~;
 #X obj 338 472 *~;
 #X obj 385 447 r~ broBoost;
-#X connect 0 0 13 1;
-#X connect 0 0 36 1;
-#X connect 1 0 9 1;
-#X connect 2 0 5 0;
-#X connect 3 0 4 0;
-#X connect 4 0 16 1;
-#X connect 5 0 20 1;
-#X connect 5 0 37 1;
-#X connect 6 0 8 0;
-#X connect 7 0 23 1;
-#X connect 8 0 27 1;
-#X connect 8 0 38 1;
-#X connect 9 0 12 0;
-#X connect 12 0 10 0;
-#X connect 12 1 11 0;
-#X connect 13 0 36 0;
-#X connect 14 0 12 1;
-#X connect 14 0 41 0;
-#X connect 15 0 13 0;
-#X connect 16 0 19 0;
-#X connect 19 0 17 0;
-#X connect 19 1 18 0;
-#X connect 20 0 37 0;
-#X connect 21 0 19 1;
-#X connect 22 0 20 0;
-#X connect 23 0 26 0;
-#X connect 26 0 24 0;
-#X connect 26 1 25 0;
-#X connect 27 0 38 0;
-#X connect 28 0 26 1;
-#X connect 29 0 27 0;
-#X connect 32 0 13 2;
-#X connect 32 0 35 0;
-#X connect 33 0 20 2;
-#X connect 33 0 37 2;
-#X connect 34 0 27 2;
-#X connect 34 0 38 2;
-#X connect 36 0 42 0;
-#X connect 37 0 45 0;
-#X connect 38 0 46 0;
-#X connect 39 0 40 0;
-#X connect 40 0 41 0;
-#X connect 42 0 9 0;
-#X connect 43 0 42 1;
-#X connect 44 0 45 1;
-#X connect 45 0 16 0;
-#X connect 46 0 23 0;
-#X connect 47 0 46 1;
+#X obj 727 125 r~ \$0-liftDiGain;
+#X obj 706 224 pow~;
+#X obj 706 104 sig~ 10;
+#X obj 727 147 /~ 2e-05;
+#X obj 706 247 *~ 2e-05;
+#X obj 727 197 *~ 0.6;
+#X obj 801 220 r myMet;
+#X obj 801 239 snapshot~;
+#X floatatom 801 259 0 0 0 0 - - -;
+#X obj 727 174 log~ 10;
+#X obj 799 150 sig~ 10;
+#X connect 0 0 11 1;
+#X connect 0 0 34 1;
+#X connect 1 0 7 1;
+#X connect 2 0 3 0;
+#X connect 3 0 18 1;
+#X connect 3 0 35 1;
+#X connect 4 0 6 0;
+#X connect 5 0 21 1;
+#X connect 6 0 25 1;
+#X connect 6 0 36 1;
+#X connect 7 0 10 0;
+#X connect 10 0 8 0;
+#X connect 10 1 9 0;
+#X connect 11 0 34 0;
+#X connect 12 0 10 1;
+#X connect 12 0 39 0;
+#X connect 13 0 11 0;
+#X connect 14 0 17 0;
+#X connect 17 0 15 0;
+#X connect 17 1 16 0;
+#X connect 18 0 35 0;
+#X connect 19 0 17 1;
+#X connect 20 0 18 0;
+#X connect 21 0 24 0;
+#X connect 24 0 22 0;
+#X connect 24 1 23 0;
+#X connect 25 0 36 0;
+#X connect 26 0 24 1;
+#X connect 27 0 25 0;
+#X connect 30 0 11 2;
+#X connect 30 0 33 0;
+#X connect 31 0 18 2;
+#X connect 31 0 35 2;
+#X connect 32 0 25 2;
+#X connect 32 0 36 2;
+#X connect 34 0 40 0;
+#X connect 35 0 43 0;
+#X connect 36 0 44 0;
+#X connect 37 0 38 0;
+#X connect 38 0 39 0;
+#X connect 40 0 7 0;
+#X connect 41 0 40 1;
+#X connect 42 0 43 1;
+#X connect 43 0 14 0;
+#X connect 44 0 21 0;
+#X connect 45 0 44 1;
+#X connect 46 0 49 0;
+#X connect 47 0 50 0;
+#X connect 48 0 47 0;
+#X connect 49 0 55 0;
+#X connect 50 0 14 1;
+#X connect 51 0 53 0;
+#X connect 51 0 47 1;
+#X connect 52 0 53 0;
+#X connect 53 0 54 0;
+#X connect 55 0 51 0;
+#X connect 56 0 55 1;
 #X restore 659 559 pd Dipoles;
 #X obj 823 47 noise~;
 #X obj 823 70 s~ \$0-thisNoise;
@@ -240,20 +258,20 @@
 #X obj 1153 288 snapshot~;
 #X obj 1153 247 r~ \$0-myFreq;
 #X text 140 51 Source Speed;
-#X obj 358 61 inlet~;
-#X obj 430 60 inlet~;
-#X obj 504 59 inlet~;
-#X obj 358 82 s~ \$0-dist;
+#X obj 288 24 inlet~;
+#X obj 411 62 inlet~;
+#X obj 563 55 inlet~;
+#X obj 288 45 s~ \$0-dist;
 #X obj 127 75 inlet~;
 #X obj 59 98 /~ 343.56;
 #X obj 59 121 s~ \$0-MY_MACH;
-#X obj 416 256 r~ \$0-dist;
-#X obj 428 277 r~ \$0-elev;
-#X obj 441 298 r~ \$0-azim;
+#X obj 416 292 r~ \$0-dist;
+#X obj 428 313 r~ \$0-elev;
+#X obj 441 334 r~ \$0-azim;
 #X obj 429 612 r~ \$0-elev;
 #X obj 415 593 r~ \$0-azim;
 #X obj 402 572 r~ \$0-dist;
-#X obj 366 169 r~ \$0-sourceSpeed;
+#X obj 366 205 r~ \$0-sourceSpeed;
 #X obj 127 95 s~ \$0-sourceSpeed;
 #X obj 719 161 r~ \$0-sourceSpeed;
 #X obj 349 486 r~ \$0-sourceSpeed;
@@ -325,9 +343,9 @@
 #X connect 30 0 2 0;
 #X connect 31 0 12 1;
 #X restore 887 501 pd doppler;
-#X obj 430 115 s~ \$0-elev;
-#X obj 504 82 s~ \$0-azim;
-#N canvas 39 56 1340 718 GoldfreqGain 0;
+#X obj 411 109 s~ \$0-elev;
+#X obj 563 78 s~ \$0-azim;
+#N canvas 39 56 1340 718 GoldfreqGain 1;
 #N canvas 759 125 172 246 pow6 0;
 #X obj 47 67 *~;
 #X obj 76 67 *~;
@@ -351,13 +369,13 @@
 #X obj 173 140 *~;
 #X obj 219 176 *~;
 #X text 587 13 Distance;
-#X text 724 548 Calculates Drag Dipole gain;
+#X text 724 610 Calculates Drag Dipole gain;
 #X text 48 531 Calculates Lift Dipole gain;
 #X obj 173 100 inlet~;
 #X obj 219 13 inlet~;
 #X text 328 170 Diameter;
-#X obj 219 590 outlet~;
-#X obj 758 523 outlet~;
+#X obj 219 618 outlet~;
+#X obj 758 585 outlet~;
 #X text 278 258 Length;
 #X obj 234 469 /~ 360;
 #X obj 234 518 *~;
@@ -492,6 +510,8 @@
 #X text -214 358 If adding additional signal at 0 degrees then you
 will have to add it before you divid by distance - for all sources!
 ;
+#X obj 219 597 *~ 100000;
+#X obj 756 534 *~ 100000;
 #X connect 0 0 2 0;
 #X connect 1 0 2 1;
 #X connect 2 0 54 0;
@@ -509,8 +529,7 @@
 #X connect 23 0 25 1;
 #X connect 24 0 23 0;
 #X connect 24 0 23 1;
-#X connect 25 0 9 0;
-#X connect 25 0 88 0;
+#X connect 25 0 95 0;
 #X connect 27 0 28 0;
 #X connect 28 0 30 1;
 #X connect 29 0 30 0;
@@ -519,7 +538,7 @@
 #X connect 32 0 33 1;
 #X connect 33 0 14 0;
 #X connect 35 0 48 0;
-#X connect 36 0 10 0;
+#X connect 36 0 96 0;
 #X connect 37 0 38 0;
 #X connect 38 0 40 0;
 #X connect 39 0 44 0;
@@ -571,7 +590,10 @@
 #X connect 91 0 61 0;
 #X connect 92 0 54 1;
 #X connect 93 0 92 1;
-#X restore 354 320 pd GoldfreqGain;
+#X connect 95 0 9 0;
+#X connect 95 0 88 0;
+#X connect 96 0 10 0;
+#X restore 354 356 pd GoldfreqGain;
 #N canvas 300 30 1006 797 GoldnoiseGain 0;
 #X text -21037 364 Mass Density of Air \, squared;
 #X text -20777 458 Distance;
@@ -799,20 +821,20 @@
 #X connect 61 0 57 0;
 #X connect 62 0 4 0;
 #X restore 336 636 pd GoldnoiseGain;
-#X obj 176 173 r myMet;
-#X obj 176 195 snapshot~;
-#X floatatom 176 218 0 0 0 0 - - -;
+#X obj 536 196 r myMet;
+#X obj 536 218 snapshot~;
+#X floatatom 536 241 0 0 0 0 - - -;
 #X obj 1048 65 inlet~;
 #X obj 1048 88 s~ \$0-proprAzim;
 #X obj 776 393 r~ \$0-proprAzim;
 #X obj 719 329 sig~ 0.85;
-#X obj 378 190 r~ length;
+#X obj 378 226 r~ length;
 #X floatatom 262 229 0 0 0 0 - - -;
 #X obj 233 73 inlet~;
 #X obj 240 96 s~ \$0-diameter;
 #X obj 787 363 r~ \$0-diameter;
 #X obj 719 382 /~;
-#X obj 391 213 r~ \$0-diameter;
+#X obj 391 249 r~ \$0-diameter;
 #X obj 375 529 r~ \$0-diameter;
 #X obj 389 550 r~ length;
 #N canvas 305 129 260 284 doppler 0;
@@ -835,16 +857,37 @@
 #X connect 7 0 8 0;
 #X connect 8 0 3 1;
 #X restore 719 417 pd doppler;
-#X obj 276 344 max~ 5e-05;
-#X obj 466 341 max~ 5e-06;
 #X obj 379 657 max~ 5e-07;
-#X obj 430 83 max~ 8;
+#N canvas 290 200 604 418 scatter 0;
+#X obj 274 38 inlet~;
+#X obj 279 286 outlet~;
+#X obj 331 67 snapshot~;
+#X obj 331 87 >= 0;
+#X obj 292 108 spigot~;
+#X obj 332 155 spigot~;
+#X obj 271 170 spigot~;
+#X obj 332 129 max~ 25;
+#X obj 271 147 min~ -25;
+#X obj 347 32 r myMet;
+#X connect 0 0 2 0;
+#X connect 0 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 1;
+#X connect 3 0 5 1;
+#X connect 3 0 6 1;
+#X connect 4 0 8 0;
+#X connect 4 1 7 0;
+#X connect 5 1 1 0;
+#X connect 6 0 1 0;
+#X connect 7 0 5 0;
+#X connect 8 0 6 0;
+#X connect 9 0 2 0;
+#X restore 411 85 pd scatter;
 #X connect 1 0 3 0;
 #X connect 2 0 11 0;
 #X connect 3 0 2 0;
 #X connect 4 0 92 0;
 #X connect 8 0 3 1;
-#X connect 10 0 24 0;
 #X connect 12 0 44 0;
 #X connect 24 0 22 0;
 #X connect 24 1 23 0;
@@ -870,12 +913,11 @@
 #X connect 54 0 42 1;
 #X connect 55 0 54 0;
 #X connect 57 0 60 0;
-#X connect 58 0 100 0;
+#X connect 58 0 98 0;
 #X connect 59 0 77 0;
 #X connect 61 0 62 0;
 #X connect 61 0 71 0;
 #X connect 62 0 63 0;
-#X connect 62 0 81 0;
 #X connect 64 0 78 5;
 #X connect 65 0 78 6;
 #X connect 66 0 78 7;
@@ -902,4 +944,4 @@
 #X connect 94 0 79 3;
 #X connect 95 0 79 4;
 #X connect 96 0 9 0;
-#X connect 100 0 76 0;
+#X connect 98 0 76 0;