Mercurial > hg > propeller-model
diff freqCalcCyl7HiFi.pd @ 0:cef74e8afc39
Propeller Blog Patch Added
author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Wed, 05 Apr 2017 08:31:12 +0100 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/freqCalcCyl7HiFi.pd Wed Apr 05 08:31:12 2017 +0100 @@ -0,0 +1,434 @@ +#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;