comparison freqCalcCyl4No_D4Mach.pd @ 3:e18dbd26468e

Wake quadrupoles directivity updated

-#N canvas 159 62 1370 784 10;
+#N canvas 55 48 1370 784 10;
 #X text 582 246 Mass Density of Air;
 #X obj 704 247 *~ 1.225;
 #X obj 704 322 /~ 1.81e-05;
 #X obj 704 277 *~ 1;
 #X obj 704 440 /~ 1;

 #X obj 321 163 r~ \$0-windSpeed;
 #X obj 339 202 r \$0-diameter;
 #X obj 313 142 r~ \$0-str;
 #X obj 331 183 r \$0-leng;
 #X obj 356 241 r \$0-dist;
-#N canvas 83 79 1238 721 GoldfreqGain 1;
+#N canvas 83 79 1238 721 GoldfreqGain 0;
 #N canvas 759 125 181 244 pow6 0;
 #X obj 47 67 *~;
 #X obj 76 67 *~;
 #X obj 76 35 inlet~;
 #X obj 47 163 outlet~;

 #X connect 105 0 90 0;
 #X connect 106 0 48 1;
 #X connect 107 0 52 0;
 #X connect 108 0 107 0;
 #X restore 313 307 pd GoldfreqGain;
-#N canvas 344 132 1006 797 GoldnoiseGain 1;
+#N canvas 563 85 1006 797 GoldnoiseGain 1;
 #X text -21037 364 Mass Density of Air \, squared;
 #X obj -20777 459 *;
 #X text -20777 412 Distance;
 #N canvas 759 125 235 275 pow8 0;
 #X obj 47 67 *~;

 #X connect 10 0 4 0;
 #X restore -20846 224 pd pow8;
 #X obj -20846 137 inlet~;
 #X obj -20807 286 inlet;
 #X obj -20777 433 inlet;
-#X obj -20861 617 outlet~;
-#X text -20858 648 Gain proportional to windspeed to power 8 for spectrum
+#X obj -20861 636 outlet~;
+#X text -20858 667 Gain proportional to windspeed to power 8 for spectrum
 ;
 #X text -20771 287 Diameter;
 #X text -20847 118 Wind speed;
-#X text -21027 627 Calculates wake gain;
+#X text -21027 646 Calculates wake gain;
 #X text -20399 16 Azimuth;
 #X obj -20398 33 inlet;
 #X obj -20342 33 inlet;
 #X text -20343 16 Elevation;
 #X floatatom -20304 57 5 0 0 0 - - -;
 #X floatatom -20470 58 5 0 0 0 - - -;
 #X obj -20398 117 s~ \$0-this_azim;
 #X obj -20342 95 s~ \$0-this_elev;
 #X obj -20861 371 *~ 1.225;
-#X obj -20501 232 r~ \$0-this_azim;
+#X obj -20459 466 r~ \$0-this_azim;
 #N canvas 759 125 250 309 pow5 0;
 #X obj 47 67 *~;
 #X obj 76 35 inlet~;
 #X obj 47 170 outlet~;
 #X obj 136 173 snapshot~;

 #X connect 7 0 5 0;
 #X connect 8 0 9 0;
 #X connect 9 0 2 0;
 #X connect 9 0 3 0;
 #X restore -20670 401 pd pow5;
-#X obj -20624 216 /~ 360;
-#X obj -20624 243 cos~;
+#X obj -20624 264 cos~;
 #X obj -20624 349 *~;
 #X obj -20670 348 sig~ 1;
 #X obj -20670 375 -~;
 #X obj -20705 322 sig~ 3.1416;
 #X obj -20705 347 *~;

 #X obj -20720 371 *~;
 #X obj -20720 429 *~;
 #X obj -20720 502 *~;
 #X obj -20777 530 *~;
 #X obj -20861 574 /~;
-#X obj -20623 186 r~ \$0-this_elev;
+#X obj -20608 173 r~ \$0-this_elev;
 #X obj -20916 137 inlet~;
 #X obj -20916 164 *~;
 #X obj -20828 253 inlet~;
 #X obj -20828 312 *~ 1;
 #X obj -20861 251 *~;

 #X msg -20342 53 \$1 5;
 #X obj -20777 502 line~;
 #X msg -20777 480 \$1 5;
 #X obj -20398 86 line~;
 #X msg -20398 64 \$1 5;
-#X obj -20501 278 cos~;
-#X obj -20861 595 *~ 1;
-#X obj -20501 255 /~ 360;
-#X obj -20516 299 *~;
+#X obj -20459 512 cos~;
+#X obj -20459 489 /~ 360;
+#X obj -20459 534 *~;
 #X text -20929 530 Sqrt(2*pi);
 #X obj -20609 326 r~ MY_MACH;
 #X text -21045 480 Scaling factor between dipoles;
+#X obj -20861 595 *~;
+#X text -20512 165 Lateral Quadrupole Directionality;
+#X obj -20520 196 sig~ 1;
+#X obj -20505 223 sig~ 0.7;
+#X obj -20490 332 cos~;
+#N canvas 927 234 183 208 pow4 0;
+#X obj 47 67 *~;
+#X obj 76 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 120 outlet~;
+#X obj 47 93 *~;
+#X connect 0 0 4 0;
+#X connect 1 0 4 1;
+#X connect 2 0 0 0;
+#X connect 2 0 0 1;
+#X connect 2 0 1 1;
+#X connect 2 0 1 0;
+#X connect 4 0 3 0;
+#X restore -20490 356 pd pow4;
+#X obj -20505 378 *~;
+#X obj -20420 393 sin~;
+#X obj -20420 370 *~ 2;
+#X obj -20420 417 *~;
+#X obj -20457 396 +~ 3;
+#X obj -20457 417 /~ 4;
+#X obj -20457 442 *~;
+#X obj -20505 475 -~;
+#X obj -20520 501 +~;
+#X obj -20520 560 *~;
+#X obj -20623 152 sig~ 180;
+#X obj -20623 197 -~;
+#X obj -20475 267 r~ \$0-this_elev;
+#X obj -20490 246 sig~ 180;
+#X obj -20490 288 -~;
+#X obj -20623 226 /~ 360;
+#X obj -20490 309 /~ 360;
 #X obj -20861 483 /~ 10000;
-#X connect 1 0 58 0;
-#X connect 3 0 43 1;
-#X connect 4 0 50 0;
-#X connect 5 0 42 1;
+#X connect 1 0 57 0;
+#X connect 3 0 42 1;
+#X connect 4 0 49 0;
+#X connect 5 0 41 1;
 #X connect 6 0 1 0;
 #X connect 6 0 1 1;
 #X connect 13 0 17 0;
-#X connect 13 0 60 0;
+#X connect 13 0 59 0;
 #X connect 14 0 16 0;
-#X connect 14 0 56 0;
-#X connect 20 0 46 0;
-#X connect 21 0 63 0;
-#X connect 22 0 35 1;
+#X connect 14 0 55 0;
+#X connect 20 0 45 0;
+#X connect 21 0 61 0;
+#X connect 22 0 34 1;
 #X connect 23 0 22 0;
-#X connect 24 0 34 1;
+#X connect 24 0 33 1;
 #X connect 25 0 26 0;
-#X connect 26 0 27 0;
-#X connect 27 0 29 1;
-#X connect 28 0 29 0;
-#X connect 29 0 24 0;
-#X connect 30 0 31 0;
-#X connect 30 0 31 1;
-#X connect 31 0 33 1;
+#X connect 26 0 28 1;
+#X connect 27 0 28 0;
+#X connect 28 0 24 0;
+#X connect 29 0 30 0;
+#X connect 29 0 30 1;
+#X connect 30 0 32 1;
+#X connect 31 0 32 0;
 #X connect 32 0 33 0;
 #X connect 33 0 34 0;
-#X connect 34 0 35 0;
+#X connect 34 0 35 1;
 #X connect 35 0 36 1;
-#X connect 36 0 37 1;
-#X connect 37 0 62 0;
-#X connect 38 0 25 0;
-#X connect 39 0 40 0;
-#X connect 39 0 40 1;
-#X connect 40 0 43 0;
-#X connect 41 0 42 0;
-#X connect 42 0 44 1;
-#X connect 43 0 44 0;
-#X connect 44 0 20 0;
-#X connect 45 0 46 1;
-#X connect 46 0 68 0;
-#X connect 47 0 37 0;
-#X connect 50 0 54 0;
-#X connect 52 0 51 0;
-#X connect 52 0 50 0;
-#X connect 53 0 3 0;
-#X connect 54 0 53 0;
-#X connect 55 0 19 0;
-#X connect 56 0 55 0;
-#X connect 57 0 36 0;
-#X connect 58 0 57 0;
-#X connect 59 0 18 0;
-#X connect 60 0 59 0;
-#X connect 61 0 64 1;
-#X connect 62 0 7 0;
-#X connect 63 0 61 0;
-#X connect 66 0 27 1;
-#X connect 68 0 47 0;
+#X connect 36 0 66 0;
+#X connect 37 0 83 1;
+#X connect 38 0 39 0;
+#X connect 38 0 39 1;
+#X connect 39 0 42 0;
+#X connect 40 0 41 0;
+#X connect 41 0 43 1;
+#X connect 42 0 43 0;
+#X connect 43 0 20 0;
+#X connect 44 0 45 1;
+#X connect 45 0 89 0;
+#X connect 46 0 36 0;
+#X connect 49 0 53 0;
+#X connect 51 0 50 0;
+#X connect 51 0 49 0;
+#X connect 52 0 3 0;
+#X connect 53 0 52 0;
+#X connect 54 0 19 0;
+#X connect 55 0 54 0;
+#X connect 56 0 35 0;
+#X connect 57 0 56 0;
+#X connect 58 0 18 0;
+#X connect 59 0 58 0;
+#X connect 60 0 62 1;
+#X connect 60 0 62 0;
+#X connect 61 0 60 0;
+#X connect 62 0 81 1;
+#X connect 64 0 26 1;
+#X connect 66 0 7 0;
+#X connect 68 0 80 0;
+#X connect 69 0 72 0;
+#X connect 69 0 76 0;
+#X connect 70 0 71 0;
+#X connect 71 0 72 1;
+#X connect 72 0 79 0;
+#X connect 73 0 75 0;
+#X connect 73 0 75 1;
+#X connect 74 0 73 0;
+#X connect 75 0 78 1;
+#X connect 76 0 77 0;
+#X connect 77 0 78 0;
+#X connect 78 0 79 1;
+#X connect 79 0 80 1;
+#X connect 80 0 81 0;
+#X connect 81 0 66 1;
+#X connect 82 0 83 0;
+#X connect 83 0 87 0;
+#X connect 84 0 86 1;
+#X connect 85 0 86 0;
+#X connect 86 0 88 0;
+#X connect 87 0 25 0;
+#X connect 88 0 70 0;
+#X connect 88 0 74 0;
+#X connect 89 0 46 0;
 #X restore 304 573 pd GoldnoiseGain;
 #X text 295 620 Calculates the gain of the wake;
 #X obj 460 80 s \$0-azim;
 #X obj 534 80 s \$0-elev;
 #X obj 365 262 r \$0-elev;

 is linear and did not appear to be reliant on current TU values;
 #X text 565 329 Third section of the Reynolds number - DeltaF/F relationship
 is linear and did not appear to be reliant on current TU values;
 #X text 114 -16 Middle section of Reynolds number - DeltaF/F relationship
 is also linear but depends on TU Value;
-#X obj 461 412 max 0.005;
 #X floatatom 402 435 0 0 0 0 - - -;
 #X obj 707 42 > 243320;
 #X obj 712 97 > 145021;
 #X obj 635 126 > 193260;
 #X obj 252 163 < 193260;
 #X text 184 511 This patch calculates the Q values to be applied to
 the bandpass filters. Future development may link this to the Turbulence
 Intensity but not enough data available at time of writing to do this.
 ;
+#X obj 461 412 max 5;
 #X connect 0 0 16 0;
 #X connect 1 0 2 0;
 #X connect 1 1 2 1;
 #X connect 2 0 3 0;
-#X connect 2 0 36 0;
+#X connect 2 0 42 0;
 #X connect 4 0 1 0;
 #X connect 7 0 9 0;
 #X connect 8 0 9 0;
 #X connect 9 0 24 0;
 #X connect 9 0 22 0;
 #X connect 9 0 12 0;
 #X connect 9 0 10 0;
 #X connect 9 0 31 0;
+#X connect 9 0 39 0;
 #X connect 9 0 40 0;
-#X connect 9 0 41 0;
 #X connect 10 0 11 0;
 #X connect 11 0 15 0;
 #X connect 12 0 10 1;
 #X connect 13 0 14 0;
 #X connect 13 0 4 0;

 #X connect 26 0 25 0;
 #X connect 27 0 29 1;
 #X connect 28 0 30 0;
 #X connect 28 0 4 0;
 #X connect 29 0 28 0;
-#X connect 36 0 5 0;
-#X connect 36 0 37 0;
-#X connect 40 0 22 1;
-#X connect 41 0 11 1;
+#X connect 39 0 22 1;
+#X connect 40 0 11 1;
+#X connect 42 0 5 0;
+#X connect 42 0 36 0;
 #X restore 1189 91 pd StBandwidth;
 #X obj 1189 67 inlet;
 #X obj 1189 114 s \$0-Qval;
 #X obj 1098 260 r~ \$0-myFreq;
 #X obj 120 65 vd~ varwind;

 #X connect 78 0 77 1;
 #X connect 79 0 71 1;
 #X connect 80 0 31 1;
 #X connect 81 0 67 0;
 #X restore 837 576 pd Dipoles;
+#X obj 545 548 snapshot~;
+#X obj 545 525 r myMet;
+#X floatatom 545 573 0 0 0 0 - - -;
+#X obj 542 623 snapshot~;
+#X obj 542 600 r myMet;
+#X floatatom 542 648 0 0 0 0 - - -;
 #X connect 1 0 3 0;
 #X connect 2 0 19 0;
 #X connect 2 0 36 0;
 #X connect 2 0 99 0;
 #X connect 3 0 2 0;

 #X connect 64 0 69 1;
 #X connect 65 0 69 3;
 #X connect 66 0 69 0;
 #X connect 67 0 69 2;
 #X connect 68 0 69 5;
+#X connect 69 0 103 0;
 #X connect 69 0 43 0;
 #X connect 69 1 42 0;
 #X connect 70 0 47 0;
+#X connect 70 0 106 0;
 #X connect 74 0 69 6;
 #X connect 75 0 69 7;
 #X connect 76 0 70 7;
 #X connect 77 0 70 6;
 #X connect 78 0 80 0;

 #X connect 93 0 92 0;
 #X connect 95 0 91 0;
 #X connect 96 0 14 0;
 #X connect 96 0 101 0;
 #X connect 101 0 97 0;
+#X connect 103 0 105 0;
+#X connect 104 0 103 0;
+#X connect 106 0 108 0;
+#X connect 107 0 106 0;