Mercurial > hg > weather-synthesis-prototyping
view June/freqCalcCylD6.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.
author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Fri, 31 Jul 2015 07:15:40 +0100 |
parents | c135ff021f93 |
children |
line wrap: on
line source
#N canvas 123 74 1263 724 10; #X text 808 -23 Mass Density of Air; #X text 117 292 Frequency (Hz); #X obj 885 425 throw~ l; #X obj 912 406 throw~ r; #X obj 900 279 osc~; #X obj 930 -22 *~ 1.225; #X obj 930 53 /~ 1.81e-05; #X obj 930 8 *~ 1; #X obj 900 228 /~ 1; #X floatatom 211 272 10 0 0 0 - - -; #X obj 915 96 /~; #X obj 900 204 *~; #X obj 900 253 clip~ 0 20000; #X obj 222 -81 inlet; #X text 771 46 Reynolds Number; #X text 784 220 Strouhal Number; #X obj 383 -83 inlet; #X obj 900 309 *~; #X text 960 33 Viscosity; #X obj 664 230 *~ 2; #X obj 664 257 osc~; #X obj 664 279 *~; #X obj 885 338 +~; #X obj 222 -57 s \$0-diameter; #X obj 991 -23 r \$0-diameter; #X obj 980 177 r \$0-diameter; #X obj 139 -19 s~ \$0-windSpeed; #X obj 328 50 r~ \$0-windSpeed; #X obj 979 146 r~ \$0-windSpeed; #X obj 930 -50 r~ \$0-windSpeed; #X obj 835 203 s~ \$0_str; #X obj 318 29 r~ \$0_str; #X obj 697 257 r~ \$0_dragDiGain; #X obj 815 279 s~ \$0-myFreq; #X obj 664 209 r~ \$0-myFreq; #X obj 938 279 r~ \$0_liftDiGain; #X obj 139 -61 sig~; #X obj 139 -40 vd~ varwind; #X obj 139 -85 inlet; #X obj 1359 8 r~ \$0-myFreq; #X obj 1325 -42 noise~; #X obj 1402 192 throw~ l; #X obj 1429 171 throw~ r; #X obj 1402 99 *~; #X obj 133 94 snapshot~; #X obj 133 69 metro 100; #X obj 133 47 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 133 120 10 0 0 0 - - -; #X obj 133 21 loadbang; #X obj 59 69 r~ \$0-myRey; #X obj 943 77 s~ \$0-myRey; #X obj 1540 9 snapshot~; #X floatatom 1540 35 10 0 0 0 - - -; #X obj 1540 -64 loadbang; #X obj 1540 -39 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 1451 -93 r~ \$0-myRey; #X obj 1367 360 r~ \$0-myFreq; #X obj 1333 289 noise~; #X obj 1410 549 throw~ l; #X obj 1437 526 throw~ r; #X obj 1410 457 *~; #X obj 1548 369 snapshot~; #X floatatom 1548 395 10 0 0 0 - - -; #X obj 1548 296 loadbang; #X obj 1548 321 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 1459 267 r~ \$0-myRey; #X obj 1367 386 *~ 2; #X text 118 140 Reynolds Number; #X obj 1325 51 vcf~ 1000 10; #X obj 1333 411 vcf~ 1000 10; #X obj 885 381 fcpan; #X obj 1402 148 fcpan; #X obj 1410 501 fcpan; #X obj 1417 72 *~ 1; #X obj 1425 432 *~ 1; #X obj 1459 342 clip~ 2 400; #X obj 1451 -18 clip~ 2 400; #X obj 1459 291 *~ -0.003; #X obj 1451 -69 *~ -0.003; #X obj 1451 -44 +~ 20; #X obj 1459 316 +~ 20; #X obj 1540 -16 metro 10; #X obj 1548 344 metro 10; #X obj 383 -63 s \$0_dist; #X obj 616 -90 inlet; #X obj 616 -21 s \$0_thisPan; #X obj 912 352 r \$0_thisPan; #X obj 1429 124 r \$0_thisPan; #X obj 1437 479 r \$0_thisPan; #X floatatom 561 -21 8 0 0 0 - - -; #X obj 616 -66 max 0.1; #X obj 616 -43 min 0.9; #X text 1461 445 Drag Dipole spectrum calculation; #X text 1456 89 Lift Dipole spectrum calculation; #X text 651 92 Calculates the frequency; #X text 651 105 based on the physics of; #X text 652 118 the object and environment; #X obj 325 309 r~ \$0-windSpeed; #X obj 314 286 r~ \$0_str; #X obj 1425 409 r~ \$0_dragNoiseGain; #X obj 1417 30 r~ \$0_liftNoiseGain; #X obj 881 57 sig~ 1; #X obj 915 122 sqrt~; #X obj 915 147 *~ 1.0356; #X obj 841 138 sig~ 0.2684; #X obj 900 177 -~; #X obj 134 416 snapshot~; #X obj 134 391 metro 100; #X obj 134 369 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 134 442 10 0 0 0 - - -; #X obj 134 343 loadbang; #X obj 70 392 r~ \$0_str; #N canvas 515 100 622 660 noiseGain 0; #X text -21205 129 Mass Density of Air \, squared; #X text -20857 164 Speed of Sound to power 2; #X obj -21070 29 *~; #X obj -21022 70 *~; #X obj -21022 104 *~ 1; #X obj -21022 132 *~ 1.50063; #X obj -20859 118 *; #X obj -20859 141 * 118033; #X obj -21022 193 /~ 1; #X obj -21021 422 *~ 0.27; #X text -20859 71 Distance; #X obj -20890 352 cos; #X obj -20890 307 / 360; #X floatatom -20863 403 8 0 0 0 - - -; #X obj -20890 376 *; #X obj -20911 435 *~ 0.27; #X obj -20890 329 * 6.28319; #X obj -21000 282 + 90; #X text -20895 510 Calculates Drag Dipole gain; #X text -21175 486 Calculates Lift Dipole gain; #N canvas 759 125 286 289 pow8 0; #X obj 47 67 *~; #X obj 76 67 *~; #X obj 76 35 inlet~; #X obj 47 170 outlet~; #X obj 136 173 snapshot~; #X obj 136 148 metro 100; #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 136 200 10 0 0 0 - - -; #X obj 136 100 loadbang; #X obj 106 67 *~; #X obj 47 93 *~; #X obj 47 118 *~; #X obj 136 67 *~; #X obj 47 144 *~; #X connect 0 0 10 0; #X connect 1 0 10 1; #X connect 2 0 0 0; #X connect 2 0 0 1; #X connect 2 0 1 1; #X connect 2 0 9 0; #X connect 2 0 9 1; #X connect 2 0 1 0; #X connect 2 0 12 0; #X connect 2 0 12 1; #X connect 4 0 7 0; #X connect 5 0 4 0; #X connect 6 0 5 0; #X connect 8 0 6 0; #X connect 9 0 11 1; #X connect 10 0 11 0; #X connect 11 0 13 0; #X connect 12 0 13 1; #X connect 13 0 3 0; #X connect 13 0 4 0; #X restore -21022 32 pd pow8; #X obj -21005 222 s~ \$0-c; #X obj -20948 385 r~ \$0-c; #X obj -21070 7 inlet~; #X obj -21022 7 inlet~; #X obj -20989 55 inlet; #X obj -20942 229 inlet; #X obj -20873 229 inlet; #X obj -20859 92 inlet; #X obj -21021 465 outlet~; #X obj -20911 485 outlet~; #X text -20947 211 Azimuth; #X text -20871 210 Elevation; #X text -20961 26 Gain proportional to windspeed to power 8 for spectrum ; #X text -20981 74 Diameter; #N canvas 1567 153 479 552 angleCalc 0; #X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 287 77 Elevation Angle; #X obj 236 118 / 360; #X obj 236 140 * 6.28319; #X obj 164 80 / 360; #X obj 164 102 * 6.28319; #X floatatom 49 106 5 0 0 0 - - -; #X floatatom 304 140 5 0 0 0 - - -; #X obj 278 443 * 360; #X floatatom 325 494 5 0 0 0 - - -; #X obj 278 467 / 6.28319; #X obj 236 235 *; #X obj 236 267 swap 1; #X obj 236 300 -; #X obj 236 329 sqrt; #X obj 278 360 /; #X obj 278 388 atan; #X obj 278 414 * 2; #X text 318 296 Arccos of angle; #X obj 293 236 + 1; #X obj 164 126 cos; #X obj 236 171 cos; #X obj 236 205 *; #X obj 164 149 t f b; #X obj 162 174 delay 9; #X obj 278 494 outlet; #X obj 236 90 inlet; #X obj 164 57 inlet; #X obj 52 80 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 56 42 Azimuth Angle; #X connect 0 0 7 0; #X connect 2 0 3 0; #X connect 3 0 21 0; #X connect 4 0 5 0; #X connect 5 0 20 0; #X connect 8 0 10 0; #X connect 10 0 9 0; #X connect 10 0 25 0; #X connect 11 0 12 0; #X connect 12 0 13 0; #X connect 12 1 13 1; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 17 0 8 0; #X connect 19 0 15 1; #X connect 20 0 23 0; #X connect 21 0 22 0; #X connect 22 0 11 0; #X connect 22 0 11 1; #X connect 22 0 19 0; #X connect 23 0 22 1; #X connect 23 1 24 0; #X connect 24 0 22 0; #X connect 26 0 2 0; #X connect 26 0 0 0; #X connect 27 0 4 0; #X connect 27 0 28 0; #X connect 28 0 6 0; #X restore -20942 252 pd angleCalc; #X obj -20951 117 inlet; #X obj -20951 142 *; #X obj -21022 167 *~ 1; #X text -20953 99 Length; #X obj -21000 305 / 360; #X obj -21000 351 cos; #X obj -21000 375 *; #X obj -21000 328 * 6.28319; #X obj -21021 397 *~ 1; #X obj -20911 411 *~ 1; #X text -20848 459 Need for scienctific reasoning here!; #X text -21239 441 Need for scienctific reasoning here!; #X obj -21021 444 *~ 0.02; #X obj -20911 460 *~ 0.002; #X connect 2 0 3 1; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 38 0; #X connect 6 0 7 0; #X connect 7 0 8 1; #X connect 8 0 21 0; #X connect 8 0 44 0; #X connect 9 0 48 0; #X connect 11 0 14 0; #X connect 11 0 14 1; #X connect 12 0 16 0; #X connect 14 0 13 0; #X connect 14 0 45 1; #X connect 15 0 49 0; #X connect 16 0 11 0; #X connect 17 0 40 0; #X connect 20 0 3 0; #X connect 22 0 45 0; #X connect 23 0 2 0; #X connect 23 0 2 1; #X connect 24 0 20 0; #X connect 25 0 4 1; #X connect 26 0 35 0; #X connect 27 0 35 1; #X connect 28 0 6 0; #X connect 28 0 6 1; #X connect 35 0 17 0; #X connect 35 0 12 0; #X connect 36 0 37 0; #X connect 36 0 37 1; #X connect 37 0 38 1; #X connect 38 0 8 0; #X connect 40 0 43 0; #X connect 41 0 42 0; #X connect 41 0 42 1; #X connect 42 0 44 1; #X connect 43 0 41 0; #X connect 44 0 9 0; #X connect 45 0 15 0; #X connect 48 0 29 0; #X connect 49 0 30 0; #X restore 314 438 pd noiseGain; #X obj 337 330 r \$0-diameter; #X obj 383 414 r \$0_dist; #X obj 371 392 r \$0_azim; #X obj 360 371 r \$0_elev; #X obj 314 483 s~ \$0_liftNoiseGain; #X obj 383 461 s~ \$0_dragNoiseGain; #N canvas 576 101 702 650 freqGain 0; #X text 36 127 Mass Density of Air \, squared; #X text 508 93 Speed of Sound to power 2; #N canvas 759 125 286 289 pow6 0; #X obj 47 67 *~; #X obj 76 67 *~; #X obj 76 35 inlet~; #X obj 47 163 outlet~; #X obj 136 184 snapshot~; #X obj 136 159 metro 100; #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 136 211 10 0 0 0 - - -; #X obj 216 210 outlet; #X obj 136 111 loadbang; #X obj 106 67 *~; #X obj 47 93 *~; #X obj 47 118 *~; #X connect 0 0 11 0; #X connect 1 0 11 1; #X connect 2 0 0 0; #X connect 2 0 0 1; #X connect 2 0 1 1; #X connect 2 0 10 0; #X connect 2 0 10 1; #X connect 2 0 1 0; #X connect 4 0 7 0; #X connect 4 0 8 0; #X connect 5 0 4 0; #X connect 6 0 5 0; #X connect 9 0 6 0; #X connect 10 0 12 1; #X connect 11 0 12 0; #X connect 12 0 4 0; #X connect 12 0 3 0; #X restore 219 30 pd pow6; #X obj 173 32 *~; #X obj 219 68 *~; #X obj 219 102 *~ 1; #X obj 219 130 *~ 1.50063; #X obj 506 45 *; #X obj 506 70 * 118033; #X obj 219 240 /~ 1; #X obj 219 506 *~ 0.27; #X text 380 261 Azimuth; #X text 497 1 Distance; #X obj 419 420 cos; #X obj 419 375 / 360; #X floatatom 446 466 8 0 0 0 - - -; #X obj 419 444 *; #X obj 398 491 *~ 0.27; #X obj 236 269 s~ \$0-a; #X obj 357 441 r~ \$0-a; #X obj 419 397 * 6.28319; #X floatatom 471 46 5 0 0 0 - - -; #N canvas 131 175 477 312 angleCalc 0; #X obj 297 33 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 233 6 Elevation Angle; #X obj 242 59 / 360; #X obj 242 81 * 6.28319; #X obj 170 21 / 360; #X obj 170 43 * 6.28319; #X floatatom 50 22 5 0 0 0 - - -; #X floatatom 294 57 5 0 0 0 - - -; #X floatatom 204 196 5 0 0 0 - - -; #X obj 170 67 cos; #X obj 242 112 cos; #X obj 242 146 *; #X obj 170 90 t f b; #X obj 168 115 delay 9; #X obj 242 197 outlet; #X obj 242 31 inlet; #X obj 170 -6 inlet; #X obj 53 -4 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 136 -30 Azimuth Angle; #X obj 242 172 arccos; #X connect 0 0 7 0; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 10 0; #X connect 4 0 5 0; #X connect 5 0 9 0; #X connect 9 0 12 0; #X connect 10 0 11 0; #X connect 11 0 19 0; #X connect 12 0 11 1; #X connect 12 1 13 0; #X connect 13 0 11 0; #X connect 15 0 2 0; #X connect 16 0 4 0; #X connect 17 0 6 0; #X connect 17 0 4 0; #X connect 19 0 14 0; #X connect 19 0 8 0; #X restore 365 297 pd angleCalc; #X text 451 260 Elevation; #X text 476 498 Calculates Drag Dipole gain; #X text 48 445 Calculates Lift Dipole gain; #X obj 398 516 *~ 0.1; #X obj 173 8 inlet~; #X obj 219 7 inlet~; #X text 256 54 Diameter; #X obj 250 69 inlet; #X obj 506 20 inlet; #X obj 365 276 inlet; #X obj 434 275 inlet; #X obj 219 530 outlet~; #X obj 398 541 outlet~; #X obj 297 125 inlet; #X obj 297 149 *; #X obj 219 193 *~ 1; #X text 292 106 Length; #X obj 240 388 / 360; #X obj 240 434 cos; #X obj 240 458 *; #X obj 240 411 * 6.28319; #X obj 398 467 *~ 1; #X obj 219 481 *~ 1; #X obj 305 247 arccos; #X obj 305 223 r sigMac; #X obj 240 362 +; #X obj 305 269 t f b; #X obj 240 323 delay 9; #X text 309 203 Replicates Doppler effect; #X connect 2 0 4 0; #X connect 3 0 4 1; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 38 0; #X connect 7 0 8 0; #X connect 8 0 9 1; #X connect 9 0 18 0; #X connect 9 0 45 0; #X connect 10 0 34 0; #X connect 13 0 16 0; #X connect 13 0 16 1; #X connect 14 0 20 0; #X connect 16 0 15 0; #X connect 16 0 44 1; #X connect 17 0 26 0; #X connect 19 0 44 0; #X connect 20 0 13 0; #X connect 22 0 14 0; #X connect 22 0 48 0; #X connect 26 0 35 0; #X connect 27 0 3 0; #X connect 27 0 3 1; #X connect 28 0 2 0; #X connect 30 0 5 1; #X connect 31 0 7 1; #X connect 31 0 7 0; #X connect 31 0 21 0; #X connect 32 0 22 0; #X connect 33 0 22 1; #X connect 36 0 37 0; #X connect 36 0 37 1; #X connect 37 0 38 1; #X connect 38 0 9 0; #X connect 40 0 43 0; #X connect 41 0 42 0; #X connect 41 0 42 1; #X connect 42 0 45 1; #X connect 43 0 41 0; #X connect 44 0 17 0; #X connect 45 0 10 0; #X connect 46 0 49 0; #X connect 47 0 46 0; #X connect 48 0 40 0; #X connect 49 0 48 1; #X connect 49 1 50 0; #X connect 50 0 48 0; #X restore 318 180 pd freqGain; #X obj 452 -83 inlet; #X obj 452 -63 s \$0_elev; #X obj 339 71 r \$0-diameter; #X obj 520 -85 inlet; #X obj 520 -63 s \$0_azim; #X obj 381 159 r \$0_dist; #X obj 360 116 r \$0_azim; #X obj 370 137 r \$0_elev; #X obj 381 204 s~ \$0_dragDiGain; #X obj 318 224 s~ \$0_liftDiGain; #X floatatom 383 -36 5 0 0 0 - - -; #X floatatom 453 -37 5 0 0 0 - - -; #X floatatom 521 -41 5 0 0 0 - - -; #X obj 82 272 outlet; #X obj 1325 5 hip~; #X obj 126 245 snapshot~; #X obj 126 198 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 126 172 loadbang; #X obj 126 220 metro 10; #X obj 1333 386 hip~; #X obj 47 222 r~ \$0-myFreq; #X obj 126 272 s \$0_contFreq; #X obj 1346 -18 r \$0_contFreq; #X obj 1354 310 r \$0_contFreq; #X obj 1354 333 * 2; #X text 122 463 Strouhal Number; #X text 308 241 Calculates the gain of the dipole source; #X text 305 502 Calculates the gain of the source; #X text 512 -104 Azimuth; #X text 621 -108 Pan; #X text 446 -102 Elevation; #X text 379 -102 Distance; #X text 217 -102 Diameter; #X text 132 -103 Wind Speed; #X obj 314 -82 inlet; #X floatatom 315 -38 5 0 0 0 - - -; #X text 310 -101 Length; #X obj 314 -60 s \$0_leng; #X obj 348 351 r \$0_leng; #X obj 349 94 r \$0_leng; #X connect 4 0 17 0; #X connect 5 0 7 0; #X connect 6 0 10 1; #X connect 6 0 50 0; #X connect 7 0 6 0; #X connect 8 0 12 0; #X connect 10 0 102 0; #X connect 11 0 8 0; #X connect 12 0 4 0; #X connect 12 0 33 0; #X connect 13 0 23 0; #X connect 16 0 83 0; #X connect 16 0 130 0; #X connect 17 0 22 1; #X connect 19 0 20 0; #X connect 20 0 21 0; #X connect 21 0 22 0; #X connect 22 0 70 0; #X connect 24 0 7 1; #X connect 25 0 8 1; #X connect 27 0 119 1; #X connect 28 0 11 1; #X connect 29 0 5 0; #X connect 31 0 119 0; #X connect 32 0 21 1; #X connect 34 0 19 0; #X connect 35 0 17 1; #X connect 36 0 37 0; #X connect 37 0 26 0; #X connect 38 0 36 0; #X connect 39 0 68 1; #X connect 40 0 134 0; #X connect 43 0 71 0; #X connect 44 0 47 0; #X connect 45 0 44 0; #X connect 46 0 45 0; #X connect 48 0 46 0; #X connect 49 0 44 0; #X connect 51 0 52 0; #X connect 51 0 68 2; #X connect 53 0 54 0; #X connect 54 0 81 0; #X connect 55 0 78 0; #X connect 56 0 66 0; #X connect 57 0 139 0; #X connect 60 0 72 0; #X connect 61 0 62 0; #X connect 61 0 69 2; #X connect 63 0 64 0; #X connect 64 0 82 0; #X connect 65 0 77 0; #X connect 66 0 69 1; #X connect 68 0 43 0; #X connect 69 0 60 0; #X connect 70 0 2 0; #X connect 70 1 3 0; #X connect 71 0 41 0; #X connect 71 1 42 0; #X connect 72 0 58 0; #X connect 72 1 59 0; #X connect 73 0 43 1; #X connect 74 0 60 1; #X connect 75 0 61 0; #X connect 76 0 51 0; #X connect 77 0 80 0; #X connect 78 0 79 0; #X connect 79 0 76 0; #X connect 80 0 75 0; #X connect 81 0 51 0; #X connect 82 0 61 0; #X connect 84 0 90 0; #X connect 86 0 70 1; #X connect 87 0 71 1; #X connect 88 0 72 1; #X connect 90 0 91 0; #X connect 91 0 85 0; #X connect 91 0 89 0; #X connect 97 0 112 1; #X connect 98 0 112 0; #X connect 99 0 74 0; #X connect 100 0 73 0; #X connect 101 0 10 0; #X connect 102 0 103 0; #X connect 103 0 105 1; #X connect 104 0 105 0; #X connect 105 0 30 0; #X connect 105 0 11 0; #X connect 106 0 109 0; #X connect 107 0 106 0; #X connect 108 0 107 0; #X connect 110 0 108 0; #X connect 111 0 106 0; #X connect 112 0 117 0; #X connect 112 1 118 0; #X connect 113 0 112 2; #X connect 114 0 112 6; #X connect 115 0 112 5; #X connect 116 0 112 4; #X connect 119 0 129 0; #X connect 119 1 128 0; #X connect 120 0 121 0; #X connect 120 0 131 0; #X connect 122 0 119 2; #X connect 123 0 124 0; #X connect 123 0 132 0; #X connect 125 0 119 6; #X connect 126 0 119 4; #X connect 127 0 119 5; #X connect 134 0 68 0; #X connect 135 0 141 0; #X connect 135 0 133 0; #X connect 135 0 9 0; #X connect 136 0 138 0; #X connect 137 0 136 0; #X connect 138 0 135 0; #X connect 139 0 69 0; #X connect 140 0 135 0; #X connect 142 0 134 1; #X connect 143 0 144 0; #X connect 144 0 139 1; #X connect 154 0 155 0; #X connect 154 0 157 0; #X connect 158 0 112 3; #X connect 159 0 119 3;