Mercurial > hg > propeller-model
view freqCalcCyl7HiFi.pd @ 1:731f358f302f
Sound files of propeller model used in listening test uploaded
author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Sat, 08 Apr 2017 11:24:36 +0100 |
parents | cef74e8afc39 |
children |
line wrap: on
line source
#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;