view June/freq3DChord.pd @ 115:61d267c71a18

freqCalcCyl2_D4Mach added. This includes the effect of mach number on the angle of sound radiated from the dipole. This is limited up to 0.3M.

angleCalc converted to an object for both control and audio.

#N canvas 215 81 1321 796 10;
#X text 49 202 Mass Density of Air;
#X text 115 130 Frequency (Hz);
#X obj 142 641 throw~ l;
#X obj 169 622 throw~ r;
#X obj 142 522 osc~;
#X obj 171 203 *~ 1.225;
#X obj 171 278 /~ 1.81e-05;
#X obj 141 381 *~ 0.198;
#X obj 171 233 *~ 1;
#X obj 141 441 /~ 1;
#X obj 125 79 snapshot~;
#X obj 125 32 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 125 105 10 0 0 0 - - -;
#X obj 102 297 sig~ 19.7;
#X obj 156 321 /~;
#X obj 102 321 sig~ 1;
#X obj 141 350 -~;
#X obj 141 410 *~;
#X obj 141 467 clip~ 0 20000;
#X obj 175 -110 inlet;
#X obj 205 104 outlet;
#X obj 125 6 loadbang;
#X text 665 42 Mass Density of Air \, squared;
#X text 962 27 Speed of Sound to power 2;
#N canvas 713 191 156 220 pow6 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 163 outlet~;
#X obj 106 67 *~;
#X obj 47 93 *~;
#X obj 47 118 *~;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 2 0 1 1;
#X connect 2 0 4 0;
#X connect 2 0 4 1;
#X connect 2 0 1 0;
#X connect 4 0 6 1;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X restore 848 -55 pd pow6;
#X text 12 271 Reynolds Number;
#X text 20 453 Strouhal Number;
#X obj 811 -42 *~;
#X obj 848 -17 *~;
#X obj 848 17 *~ 1;
#X obj 848 45 *~ 1.50063;
#X obj 869 148 inlet;
#X obj 869 248 cos;
#X obj 869 203 / 360;
#X obj 848 420 *~ 0.27;
#X obj 142 553 *~;
#X floatatom 886 300 5 0 0 0 - - -;
#X obj 869 272 *;
#X text 925 -26 Distance;
#X obj 848 328 *~ 1;
#X text 201 258 Viscosity;
#X obj 848 445 *~ 1e-06;
#X obj 1114 238 cos;
#X obj 1114 193 / 360;
#X floatatom 1141 289 5 0 0 0 - - -;
#X obj 1114 262 *;
#X obj 1093 421 *~ 0.27;
#X obj 1093 294 *~ 1;
#X obj 175 -87 s \$0-diameter;
#X obj 232 202 r \$0-diameter;
#X obj 242 397 r \$0-diameter;
#X obj 917 -49 r \$0-diameter;
#X obj 53 -85 s~ \$0-windSpeed;
#X obj 848 -81 r~ \$0-windSpeed;
#X obj 197 380 r~ \$0-windSpeed;
#X obj 171 175 r~ \$0-windSpeed;
#X obj 75 479 s~ \$0_str;
#X obj 781 -80 r~ \$0_str;
#X obj 865 109 s~ \$0-a;
#X obj 1092 96 r~ \$0-a;
#X obj 1093 471 s~ \$0_dragDiGain;
#X obj 154 493 s~ \$0-myFreq;
#X obj 39 54 r~ \$0-myFreq;
#X obj 848 469 s~ \$0_liftDiGain;
#X obj 180 523 r~ \$0_liftDiGain;
#X obj 451 24 r~ \$0-myFreq;
#X obj 417 0 noise~;
#X obj 494 201 throw~ l;
#X obj 521 180 throw~ r;
#X obj 509 57 r~ \$0_liftDiGain;
#X obj 494 108 *~;
#X obj 268 -5 snapshot~;
#X obj 268 -30 metro 100;
#X obj 268 -52 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 268 21 10 0 0 0 - - -;
#X obj 268 -78 loadbang;
#X obj 182 -30 r~ \$0-myRey;
#X obj 184 302 s~ \$0-myRey;
#X obj 543 15 snapshot~;
#X floatatom 543 36 10 0 0 0 - - -;
#X obj 481 -56 loadbang;
#X obj 481 -31 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 543 -84 r~ \$0-myRey;
#X obj 474 338 r~ \$0-myFreq;
#X obj 440 313 noise~;
#X obj 517 527 throw~ l;
#X obj 544 504 throw~ r;
#X obj 517 435 *~;
#X obj 555 341 snapshot~;
#X floatatom 555 364 10 0 0 0 - - -;
#X obj 499 250 loadbang;
#X obj 499 275 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 555 240 r~ \$0-myRey;
#X obj 532 387 r~ \$0_dragDiGain;
#X obj 474 364 *~ 2;
#X text 253 43 Reynolds Number;
#X obj 417 60 vcf~ 1000 10;
#X obj 440 389 vcf~ 1000 10;
#X obj 53 -108 inlet~;
#X floatatom 905 181 5 0 0 0 - - -;
#X obj 142 597 fcpan;
#X obj 789 205 s \$0-b;
#X obj 185 547 r \$0-b;
#X obj 185 569 / 180;
#X obj 494 157 fcpan;
#X obj 521 109 r \$0-b;
#X obj 521 131 / 180;
#X obj 517 479 fcpan;
#X obj 544 434 r \$0-b;
#X obj 544 456 / 180;
#X obj 869 225 * 6.28319;
#X obj 1114 215 * 6.28319;
#X obj 509 81 *~ 1;
#X obj 532 410 *~ 1;
#X obj 481 -8 metro 10;
#X obj 499 298 metro 10;
#X obj 125 54 metro 10;
#X obj 321 637 throw~ l;
#X obj 348 618 throw~ r;
#X obj 321 492 *~ 2;
#X obj 321 519 osc~;
#X obj 321 555 *~;
#X obj 354 519 r~ \$0_dragDiGain;
#X obj 321 465 r~ \$0-myFreq;
#X obj 321 593 fcpan;
#X obj 364 543 r \$0-b;
#X obj 364 565 / 180;
#X text 310 441 Drag Dipole Calculation;
#X text 237 157 Lift Dipole Calculation;
#X text 597 107 Lift Dipole Spectrum;
#X text 603 446 Drag Dipole Spectrum;
#X obj 848 395 *~ 1;
#X obj 1114 135 r \$0-b;
#X obj 1093 396 *~ 1;
#X obj 926 -6 inlet~;
#X obj 926 19 *~;
#X obj 926 44 *~ 118033;
#X obj 848 80 /~;
#X obj 1093 446 *~ 1e-09;
#X obj 789 183 + 90;
#X obj 555 264 *~ -0.003;
#X obj 543 -60 *~ -0.003;
#X obj 543 -35 +~ 20;
#X obj 555 289 +~ 20;
#X obj 21 473 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 1000 1;
#X obj 45 608 / 127;
#X obj 90 574 *~ 1;
#X obj 290 577 *~ 1;
#X obj 543 -9 clip~ 15 400;
#X obj 555 315 clip~ 15 400;
#X text 872 130 Angle from Centre chord;
#X text 1053 73 Angle from Centre chord;
#X obj 21 398 loadbang;
#X msg 21 420 10;
#X connect 4 0 35 0;
#X connect 5 0 8 0;
#X connect 6 0 14 1;
#X connect 6 0 77 0;
#X connect 7 0 17 0;
#X connect 8 0 6 0;
#X connect 9 0 18 0;
#X connect 9 0 56 0;
#X connect 10 0 12 0;
#X connect 10 0 20 0;
#X connect 11 0 116 0;
#X connect 13 0 14 0;
#X connect 14 0 16 1;
#X connect 15 0 16 0;
#X connect 16 0 7 0;
#X connect 17 0 9 0;
#X connect 18 0 4 0;
#X connect 18 0 61 0;
#X connect 19 0 48 0;
#X connect 21 0 11 0;
#X connect 24 0 28 0;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 137 0;
#X connect 31 0 99 0;
#X connect 31 0 33 0;
#X connect 31 0 139 0;
#X connect 32 0 37 0;
#X connect 32 0 37 1;
#X connect 33 0 110 0;
#X connect 34 0 41 0;
#X connect 35 0 146 0;
#X connect 37 0 36 0;
#X connect 37 0 39 1;
#X connect 39 0 131 0;
#X connect 41 0 63 0;
#X connect 42 0 45 0;
#X connect 42 0 45 1;
#X connect 43 0 111 0;
#X connect 45 0 44 0;
#X connect 45 0 47 1;
#X connect 46 0 138 0;
#X connect 47 0 133 0;
#X connect 49 0 8 1;
#X connect 50 0 9 1;
#X connect 51 0 29 1;
#X connect 53 0 24 0;
#X connect 54 0 17 1;
#X connect 55 0 5 0;
#X connect 57 0 27 1;
#X connect 57 0 27 0;
#X connect 59 0 47 0;
#X connect 62 0 10 0;
#X connect 64 0 35 1;
#X connect 65 0 96 1;
#X connect 66 0 96 0;
#X connect 69 0 112 0;
#X connect 70 0 104 0;
#X connect 71 0 74 0;
#X connect 72 0 71 0;
#X connect 73 0 72 0;
#X connect 75 0 73 0;
#X connect 76 0 71 0;
#X connect 78 0 79 0;
#X connect 78 0 96 2;
#X connect 80 0 81 0;
#X connect 81 0 114 0;
#X connect 82 0 141 0;
#X connect 83 0 94 0;
#X connect 84 0 97 0;
#X connect 87 0 107 0;
#X connect 88 0 89 0;
#X connect 88 0 97 2;
#X connect 90 0 91 0;
#X connect 91 0 115 0;
#X connect 92 0 140 0;
#X connect 93 0 113 0;
#X connect 94 0 97 1;
#X connect 96 0 70 0;
#X connect 97 0 87 0;
#X connect 98 0 52 0;
#X connect 100 0 2 0;
#X connect 100 1 3 0;
#X connect 102 0 103 0;
#X connect 103 0 100 1;
#X connect 104 0 67 0;
#X connect 104 1 68 0;
#X connect 105 0 106 0;
#X connect 106 0 104 1;
#X connect 107 0 85 0;
#X connect 107 1 86 0;
#X connect 108 0 109 0;
#X connect 109 0 107 1;
#X connect 110 0 32 0;
#X connect 111 0 42 0;
#X connect 112 0 70 1;
#X connect 113 0 87 1;
#X connect 114 0 78 0;
#X connect 115 0 88 0;
#X connect 116 0 10 0;
#X connect 119 0 120 0;
#X connect 120 0 121 0;
#X connect 121 0 147 0;
#X connect 122 0 121 1;
#X connect 123 0 119 0;
#X connect 124 0 117 0;
#X connect 124 1 118 0;
#X connect 125 0 126 0;
#X connect 126 0 124 1;
#X connect 131 0 34 0;
#X connect 132 0 43 0;
#X connect 133 0 46 0;
#X connect 134 0 135 0;
#X connect 134 0 135 1;
#X connect 135 0 136 0;
#X connect 136 0 137 1;
#X connect 137 0 39 0;
#X connect 137 0 58 0;
#X connect 138 0 60 0;
#X connect 139 0 101 0;
#X connect 140 0 143 0;
#X connect 141 0 142 0;
#X connect 142 0 148 0;
#X connect 143 0 149 0;
#X connect 144 0 145 0;
#X connect 145 0 147 1;
#X connect 145 0 146 1;
#X connect 146 0 100 0;
#X connect 147 0 124 0;
#X connect 148 0 78 0;
#X connect 149 0 88 0;
#X connect 152 0 153 0;
#X connect 153 0 144 0;