view freqCalcCyl7HiFi.pd @ 0:cef74e8afc39

Propeller Blog Patch Added

#N canvas 72 88 655 381 10;
#X obj 52 169 *~;
#X text 16 281 Calculates the frequency;
#X text 17 293 based on the physics of;
#X text 280 299 Calculates the gain of the dipole source;
#X text 392 216 Azimuth;
#X text 371 145 Elevation;
#X text 354 114 Distance;
#X text 318 54 Diameter;
#N canvas 322 154 491 423 Dipoles 0;
#X obj 210 217 *~;
#X obj 249 315 throw~ l;
#X obj 276 292 throw~ r;
#X obj 249 271 fcpan;
#X text 101 35 Generates the sound associated with the lift dipole.
;
#X obj 210 108 vcf~ 10;
#X obj 210 131 vcf~ 10;
#X obj 284 95 r \$0-Qval;
#X floatatom 294 270 5 0 0 0 - - -;
#X obj 362 158 r myMet;
#X obj 362 178 snapshot~;
#X floatatom 362 199 0 0 0 0 - - -;
#X obj 210 67 inlet~;
#X obj 261 155 r broBoost;
#X obj 210 176 *~ 0.0001;
#X obj 225 196 inlet~;
#X obj 131 67 inlet~;
#N canvas 304 98 651 476 rangeLimit 0;
#X obj 285 58 inlet~;
#X obj 128 282 outlet~;
#X obj 103 60 sig~ 1;
#X obj 117 145 exp~;
#X obj 87 186 /~;
#X obj 102 166 +~;
#X obj 118 104 -~ 1;
#X obj 117 125 *~ 100;
#X obj 87 207 *~ -1;
#X obj 87 228 +~ 1;
#X obj 163 87 sig~ 1;
#X obj 173 173 exp~;
#X obj 143 214 /~;
#X obj 158 194 +~;
#X obj 173 130 -~ 1;
#X obj 173 151 *~ 1000;
#X obj 128 259 *~;
#X obj 173 108 /~ 15000;
#X obj 372 168 r myMet;
#X obj 372 188 snapshot~;
#X floatatom 372 209 0 0 0 0 - - -;
#X obj 118 81 /~ 10;
#X connect 0 0 17 0;
#X connect 0 0 21 0;
#X connect 2 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 5 1;
#X connect 4 0 8 0;
#X connect 5 0 4 1;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 16 0;
#X connect 10 0 12 0;
#X connect 10 0 13 0;
#X connect 11 0 13 1;
#X connect 12 0 16 1;
#X connect 13 0 12 1;
#X connect 14 0 15 0;
#X connect 15 0 11 0;
#X connect 16 0 1 0;
#X connect 17 0 14 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 21 0 6 0;
#X restore 99 156 pd rangeLimit;
#X obj 133 205 *~;
#X obj 276 249 r centrePan;
#X obj 249 227 inlet;
#X obj 210 248 spigot~;
#X connect 0 0 21 0;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 5 0 6 0;
#X connect 6 0 14 0;
#X connect 7 0 5 2;
#X connect 7 0 6 2;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 12 0 5 0;
#X connect 13 0 14 1;
#X connect 14 0 0 0;
#X connect 15 0 18 1;
#X connect 15 0 0 1;
#X connect 16 0 5 1;
#X connect 16 0 6 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 19 0 3 1;
#X connect 19 0 8 0;
#X connect 20 0 21 1;
#X connect 21 1 3 0;
#X connect 21 1 10 0;
#X restore 220 333 pd Dipoles;
#X obj 239 307 noise~;
#X text 17 306 the object and environment;
#X text 279 8 Source Speed;
#X obj 310 120 inlet~;
#X obj 258 35 inlet~;
#X obj 292 94 /~ 343.56;
#N canvas 110 127 1340 718 GoldfreqGain 0;
#N canvas 759 125 172 246 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 218 82 pd pow6;
#X obj 218 123 *~;
#X text 587 13 Distance;
#X text 48 531 Calculates Lift Dipole gain;
#X obj 218 60 inlet~;
#X text 292 166 Diameter;
#X obj 219 618 outlet~;
#X text 298 252 Length;
#X obj 234 469 /~ 360;
#X obj 234 518 *~;
#X obj 219 541 *~;
#X text 74 100 Strouhal number;
#X text 216 46 Wind speed;
#X text 281 146 Corr Length;
#X text -86 235 Mass Density of Air;
#X text 108 242 Sqrt(2xpi);
#X obj 332 470 /~ 360;
#X obj 332 516 *~;
#X obj 332 492 cos~;
#X obj 219 567 *~;
#X obj 442 257 cos~;
#X obj 442 300 *~;
#X obj 427 196 sig~ 1;
#X obj 427 320 -~;
#N canvas 739 248 286 289 pow4 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 163 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 427 340 pd pow4;
#X obj 412 360 *~;
#X obj 219 385 /~;
#X text 763 12 Azimuth;
#X text 662 14 Elevation;
#X text 512 235 Remember - Goldstein moves cylinder;
#X obj 442 238 /~ 360;
#X obj 219 210 *~;
#X obj 234 495 sin~;
#X obj 567 29 inlet~;
#X obj 665 32 inlet~;
#X obj 767 30 inlet~;
#X obj 411 155 *~;
#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 234 146 sig~ 8;
#X text -154 219 Scale factor to bring in line with CFD calcs (divided
by 400);
#X obj 219 233 *~ 0.0076766;
#X text 340 105 Speed of Sound to power 3 x 32;
#X obj 411 175 *~ 1.29764e+09;
#X obj 233 102 sig~ 0.85;
#X obj 457 278 inlet~;
#X obj 234 186 *~ 1;
#X obj 249 165 inlet;
#X obj 234 254 r length;
#X obj 219 276 *~ 1;
#X obj 556 271 r myMet;
#X obj 556 291 snapshot~;
#X floatatom 556 311 0 0 0 0 - - -;
#X connect 0 0 1 0;
#X connect 1 0 31 0;
#X connect 4 0 0 0;
#X connect 8 0 32 0;
#X connect 9 0 10 1;
#X connect 10 0 19 0;
#X connect 16 0 18 0;
#X connect 17 0 19 1;
#X connect 18 0 17 0;
#X connect 18 0 17 1;
#X connect 19 0 38 0;
#X connect 20 0 21 0;
#X connect 21 0 23 1;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 10 0;
#X connect 30 0 20 0;
#X connect 31 0 41 0;
#X connect 32 0 9 0;
#X connect 32 0 9 1;
#X connect 33 0 36 0;
#X connect 33 0 36 1;
#X connect 34 0 30 0;
#X connect 34 0 8 0;
#X connect 35 0 16 0;
#X connect 36 0 43 0;
#X connect 38 0 6 0;
#X connect 39 0 46 0;
#X connect 41 0 49 0;
#X connect 43 0 25 0;
#X connect 44 0 1 1;
#X connect 45 0 21 1;
#X connect 46 0 31 1;
#X connect 47 0 46 1;
#X connect 48 0 49 1;
#X connect 49 0 26 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X restore 258 281 pd GoldfreqGain;
#X obj 52 123 sig~ 0.85;
#N canvas 161 91 608 545 doppler 0;
#X obj 91 27 inlet~;
#X obj 91 266 outlet~;
#X obj 121 47 sig~ 323.56;
#X obj 121 190 +~;
#X obj 106 212 /~;
#X obj 91 234 *~;
#X obj 136 90 delta~;
#X obj 136 111 *~ 44100;
#X obj 333 191 r myMet;
#X obj 333 211 snapshot~;
#X floatatom 333 232 0 0 0 0 - - -;
#X obj 136 69 inlet~;
#X obj 136 141 lop~ 1;
#X obj 136 163 lop~ 1;
#X connect 0 0 5 0;
#X connect 2 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 1;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 11 0 6 0;
#X connect 12 0 13 0;
#X connect 13 0 3 1;
#X restore 52 228 pd doppler;
#N canvas 290 200 365 347 scatter 0;
#X obj 138 20 inlet~;
#X obj 125 272 outlet~;
#X obj 177 53 snapshot~;
#X obj 177 73 >= 0;
#X obj 138 94 spigot~;
#X obj 178 141 spigot~;
#X obj 125 163 spigot~;
#X obj 182 21 r myMet;
#X text -5 301 Limits the value of the elevation to 25 to replicate
the scatter that would occur in the propeller when on a plane.;
#X obj 125 140 min~ -5;
#X obj 178 115 max~ 5;
#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 9 0;
#X connect 4 1 10 0;
#X connect 5 1 1 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 6 0;
#X connect 10 0 5 0;
#X restore 338 170 pd scatter;
#X obj 476 72 *~ 1.225;
#X obj 476 118 /~ 1.81e-05;
#X text 496 137 Reynolds Number;
#X text 550 113 Viscosity;
#N canvas 308 58 1027 635 StBandwidth 0;
#X obj 460 365 swap 1;
#X obj 460 391 /;
#X obj 461 434 outlet;
#X text 437 453 Q value;
#X obj 477 -36 r myMet;
#X obj 477 -14 snapshot~;
#X obj 203 164 spigot;
#X obj 219 187 spigot;
#X obj 236 140 > 0;
#X obj 219 233 + 0.9797;
#X obj 219 208 * 4.624e-05;
#X obj 602 150 spigot;
#X obj 618 173 spigot;
#X obj 651 149 < 1e+06;
#X obj 618 216 * 1.227e-10;
#X obj 618 196 *;
#X obj 690 215 * -8.553e-05;
#X obj 618 261 + 16.5;
#X obj 618 238 +;
#X text -84 298 First section of the Reynolds number - DeltaF/F relationship
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 obj 635 126 > 193260;
#X obj 252 163 < 193260;
#X floatatom 352 446 0 0 0 0 - - -;
#X floatatom 588 23 0 0 0 0 - - -;
#X obj 460 342 / 100;
#X obj 531 -36 inlet~;
#X msg 593 195 10;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 22 0;
#X connect 4 0 5 0;
#X connect 5 0 13 0;
#X connect 5 0 11 0;
#X connect 5 0 8 0;
#X connect 5 0 6 0;
#X connect 5 0 23 0;
#X connect 5 0 24 0;
#X connect 5 0 26 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 0 6 1;
#X connect 9 0 27 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 11 0 29 0;
#X connect 12 0 16 0;
#X connect 12 0 15 1;
#X connect 12 0 15 0;
#X connect 13 0 12 1;
#X connect 14 0 18 0;
#X connect 15 0 14 0;
#X connect 16 0 18 1;
#X connect 18 0 17 0;
#X connect 22 0 2 0;
#X connect 22 0 25 0;
#X connect 23 0 11 1;
#X connect 24 0 7 1;
#X connect 27 0 0 0;
#X connect 28 0 5 0;
#X connect 29 0 27 0;
#X restore 476 154 pd StBandwidth;
#X obj 476 177 s \$0-Qval;
#X floatatom 551 177 0 0 0 0 - - -;
#X obj 327 146 inlet~;
#X obj 345 213 inlet~;
#N canvas 290 200 365 347 scatter 0;
#X obj 138 20 inlet~;
#X obj 125 272 outlet~;
#X obj 177 53 snapshot~;
#X obj 177 73 >= 0;
#X obj 138 94 spigot~;
#X obj 178 141 spigot~;
#X obj 125 163 spigot~;
#X obj 182 21 r myMet;
#X text -5 301 Limits the value of the elevation to 25 to replicate
the scatter that would occur in the propeller when on a plane.;
#X obj 125 140 min~ -5;
#X obj 178 115 max~ 5;
#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 9 0;
#X connect 4 1 10 0;
#X connect 5 1 1 0;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 6 0;
#X connect 10 0 5 0;
#X restore 362 259 pd scatter;
#X obj 546 261 r myMet;
#X obj 546 281 snapshot~;
#X floatatom 546 301 0 0 0 0 - - -;
#X obj 275 65 inlet;
#X obj 476 96 *~ 1;
#X obj 52 193 /~ 1;
#X obj 464 233 inlet;
#X connect 0 0 34 0;
#X connect 9 0 8 1;
#X connect 12 0 15 3;
#X connect 12 0 17 1;
#X connect 13 0 14 0;
#X connect 13 0 15 0;
#X connect 13 0 0 1;
#X connect 13 0 19 0;
#X connect 14 0 15 2;
#X connect 15 0 8 2;
#X connect 16 0 0 0;
#X connect 17 0 8 0;
#X connect 19 0 33 0;
#X connect 20 0 23 0;
#X connect 23 0 24 0;
#X connect 23 0 25 0;
#X connect 26 0 18 0;
#X connect 26 0 15 4;
#X connect 27 0 15 5;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 32 0 33 1;
#X connect 32 0 15 1;
#X connect 32 0 34 1;
#X connect 33 0 20 0;
#X connect 34 0 17 0;
#X connect 34 0 30 0;
#X connect 35 0 8 3;