view scene demo/freqCalcCyl2_D6Mach.pd @ 303:8b51c20529a6

Edgetone development models
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 11 Nov 2017 17:43:39 +0000
parents 398ffb215693
children
line wrap: on
line source
#N canvas 0 23 1403 728 10;
#X text 665 171 Mass Density of Air;
#X text 155 334 Frequency (Hz);
#X obj 772 542 throw~ l;
#X obj 799 519 throw~ r;
#X obj 787 393 osc~;
#X obj 787 172 *~ 1.225;
#X obj 787 247 /~ 1.81e-05;
#X obj 787 202 *~ 1;
#X obj 787 365 /~ 1;
#X floatatom 251 312 10 0 0 0 - - -;
#X obj 787 341 *~;
#X obj 262 -41 inlet;
#X text 820 291 Reynolds Number;
#X text 667 358 Strouhal Number;
#X obj 427 -43 inlet;
#X obj 787 423 *~;
#X text 817 227 Viscosity;
#X obj 566 362 *~ 2;
#X obj 566 389 osc~;
#X obj 566 411 *~;
#X obj 772 452 +~;
#X obj 269 -18 s \$0-diameter;
#X obj 848 171 r \$0-diameter;
#X obj 855 346 r \$0-diameter;
#X obj 179 21 s~ \$0-windSpeed;
#X obj 351 60 r~ \$0-windSpeed;
#X obj 854 323 r~ \$0-windSpeed;
#X obj 787 144 r~ \$0-windSpeed;
#X obj 708 392 s~ \$0-myFreq;
#X obj 566 337 r~ \$0-myFreq;
#X obj 179 -21 sig~;
#X obj 179 1 vd~ varwind;
#X obj 179 -45 inlet;
#X obj 1017 120 r~ \$0-myFreq;
#X obj 983 70 noise~;
#X obj 1060 231 *~;
#X obj 173 134 snapshot~;
#X obj 173 109 metro 100;
#X obj 173 87 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 173 160 10 0 0 0 - - -;
#X obj 173 61 loadbang;
#X obj 87 109 r~ \$0-myRey;
#X obj 800 271 s~ \$0-myRey;
#X obj 1198 121 snapshot~;
#X floatatom 1198 147 10 0 0 0 - - -;
#X obj 1198 48 loadbang;
#X obj 1198 73 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 1109 19 r~ \$0-myRey;
#X text 158 182 Reynolds Number;
#X obj 983 163 vcf~ 1000 10;
#X obj 772 495 fcpan;
#X obj 1075 204 *~ 1;
#X obj 1109 94 clip~ 2 400;
#X obj 1109 43 *~ -0.003;
#X obj 1198 96 metro 10;
#X obj 675 -47 inlet;
#X floatatom 620 22 8 0 0 0 - - -;
#X obj 675 -23 max 0.1;
#X obj 675 0 min 0.9;
#X text 596 256 Calculates the frequency;
#X text 597 268 based on the physics of;
#X text 597 281 the object and environment;
#X obj 355 342 r~ \$0-windSpeed;
#X obj 174 456 snapshot~;
#X obj 174 431 metro 100;
#X obj 174 409 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 174 482 10 0 0 0 - - -;
#X obj 174 383 loadbang;
#N canvas 665 72 843 731 noiseGain 1;
#X text -21205 129 Mass Density of Air \, squared;
#X text -20765 142 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 -20767 96 *;
#X obj -20767 119 * 118033;
#X obj -21022 259 /~ 1;
#X obj -21022 599 *~ 0.27;
#X text -20767 49 Distance;
#X text -20937 606 Calculates Drag Dipole gain;
#X text -21198 525 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 -21070 7 inlet~;
#X obj -21022 7 inlet~;
#X obj -20989 55 inlet;
#X obj -20767 70 inlet;
#X obj -21022 642 outlet~;
#X text -20961 26 Gain proportional to windspeed to power 8 for spectrum
;
#X text -20981 74 Diameter;
#X obj -20991 163 inlet;
#X obj -20991 187 *;
#X obj -21022 209 *~ 1;
#X text -20950 162 Length;
#X obj -21005 288 s~ \$0-nGain;
#X text -20917 291 Azimuth;
#X text -20856 253 Elevation;
#X obj -20916 308 inlet;
#X obj -20859 269 inlet;
#X obj -20916 331 sig~;
#X obj -20859 331 sig~;
#X obj -20859 311 spigot;
#X text -20757 275 End Source;
#X text -20756 294 Mid Source;
#X obj -21007 419 +~ 90;
#X obj -21007 440 /~ 360;
#X obj -21007 462 cos~;
#X obj -21022 574 *~;
#X obj -21007 486 *~;
#X obj -20807 358 loadbang;
#X obj -20807 379 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj -20807 397 metro 10;
#X obj -20807 418 snapshot~;
#X floatatom -20807 438 5 0 0 0 - - -;
#X obj -21107 416 loadbang;
#X obj -21107 437 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj -21107 455 metro 10;
#X obj -21107 476 snapshot~;
#X floatatom -21107 496 8 0 0 0 - - -;
#X msg -20825 335 0;
#X obj -20788 316 t f b;
#X msg -20788 296 0;
#X msg -20788 276 1;
#X obj -20963 418 +~ 90;
#X obj -20963 439 /~ 360;
#X obj -20963 461 sin~;
#X text -21009 374 Quadrupole;
#X obj -20916 354 angleCalcN~;
#X obj -21022 621 *~ 0.002;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 23 0;
#X connect 6 0 7 0;
#X connect 7 0 8 1;
#X connect 8 0 25 0;
#X connect 8 0 38 0;
#X connect 9 0 59 0;
#X connect 13 0 3 0;
#X connect 14 0 2 0;
#X connect 14 0 2 1;
#X connect 15 0 13 0;
#X connect 16 0 4 1;
#X connect 17 0 6 0;
#X connect 17 0 6 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 23 1;
#X connect 23 0 8 0;
#X connect 28 0 30 0;
#X connect 29 0 32 0;
#X connect 30 0 58 0;
#X connect 31 0 58 1;
#X connect 32 0 31 0;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 39 0;
#X connect 38 0 9 0;
#X connect 39 0 38 1;
#X connect 39 0 48 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X connect 50 0 31 0;
#X connect 51 0 32 1;
#X connect 51 1 50 0;
#X connect 52 0 51 0;
#X connect 53 0 32 1;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 56 0 39 1;
#X connect 58 0 35 0;
#X connect 58 0 43 0;
#X connect 58 0 54 0;
#X connect 59 0 18 0;
#X restore 344 477 pd noiseGain;
#X obj 378 387 r \$0-diameter;
#N canvas 299 77 1040 691 freqGain 1;
#X text 36 127 Mass Density of Air \, squared;
#X text 411 123 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 404 71 *;
#X obj 404 96 * 118033;
#X obj 219 224 /~ 1;
#X obj 219 497 *~ 0.27;
#X text 424 30 Distance;
#X obj 319 473 *~ 0.27;
#X floatatom 369 72 5 0 0 0 - - -;
#X text 304 556 Calculates Drag Dipole gain;
#X text 48 504 Calculates Lift Dipole gain;
#X obj 319 498 *~ 0.1;
#X obj 173 8 inlet~;
#X obj 219 7 inlet~;
#X text 256 54 Diameter;
#X obj 250 69 inlet;
#X obj 404 46 inlet;
#X obj 219 524 outlet~;
#X obj 319 523 outlet~;
#X obj 240 159 inlet;
#X text 278 154 Length;
#X obj 219 202 *~ 1;
#X text 397 195 Add in MACH deflection;
#X obj 236 253 s~ \$0-aGain;
#X obj 347 424 r~ \$0-aGain;
#X text 257 278 Azimuth;
#X text 318 240 Elevation;
#X obj 258 295 inlet;
#X obj 315 256 inlet;
#X obj 258 318 sig~;
#X obj 315 318 sig~;
#X obj 315 298 spigot;
#X text 414 265 End Source;
#X text 415 284 Mid Source;
#X obj 432 343 loadbang;
#X obj 432 364 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 432 382 metro 10;
#X msg 349 322 0;
#X obj 386 303 t f b;
#X msg 386 283 0;
#X msg 386 263 1;
#X obj 234 382 +~ 90;
#X obj 234 403 /~ 360;
#X obj 234 425 cos~;
#X obj 234 449 *~;
#X obj 219 472 *~;
#X obj 319 377 /~ 360;
#X obj 319 400 cos~;
#X obj 319 424 *~;
#X obj 319 449 *~;
#X obj 432 403 snapshot~;
#X floatatom 432 423 5 0 0 0 - - -;
#X obj 466 450 loadbang;
#X obj 466 471 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 466 489 metro 10;
#X obj 466 510 snapshot~;
#X floatatom 466 530 5 0 0 0 - - -;
#X obj 149 366 loadbang;
#X obj 149 387 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 149 405 metro 10;
#X obj 149 426 snapshot~;
#X floatatom 149 446 5 0 0 0 - - -;
#X obj 651 38 inlet;
#X obj 750 40 inlet;
#X obj 846 43 inlet;
#X floatatom 651 85 5 0 0 0 - - -;
#X floatatom 750 86 5 0 0 0 - - -;
#X floatatom 847 87 5 0 0 0 - - -;
#X text 647 19 X Rotation;
#X text 744 21 Y Rotation;
#X text 841 24 Z Rotation;
#X obj 656 61 s \$0-this_rotaX;
#X obj 757 62 s \$0-thisrotaY;
#X obj 854 66 s \$0-thisrotaZ;
#X obj 258 337 angleCalc~;
#X text 74 8 Strouhal number;
#X text 269 7 Wind speed;
#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 26 0;
#X connect 7 0 8 0;
#X connect 8 0 9 1;
#X connect 9 0 28 0;
#X connect 9 0 50 0;
#X connect 10 0 22 0;
#X connect 12 0 16 0;
#X connect 16 0 23 0;
#X connect 17 0 3 0;
#X connect 17 0 3 1;
#X connect 18 0 2 0;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 21 0 7 0;
#X connect 21 0 13 0;
#X connect 24 0 26 1;
#X connect 26 0 9 0;
#X connect 29 0 54 1;
#X connect 32 0 34 0;
#X connect 33 0 36 0;
#X connect 34 0 79 0;
#X connect 35 0 79 1;
#X connect 36 0 35 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 55 0;
#X connect 42 0 35 0;
#X connect 43 0 36 1;
#X connect 43 1 42 0;
#X connect 44 0 43 0;
#X connect 45 0 36 1;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X connect 48 0 49 1;
#X connect 49 0 50 1;
#X connect 49 0 65 0;
#X connect 50 0 10 0;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 53 1;
#X connect 53 0 54 0;
#X connect 53 0 60 0;
#X connect 54 0 12 0;
#X connect 55 0 56 0;
#X connect 57 0 58 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 60 0 61 0;
#X connect 62 0 63 0;
#X connect 63 0 64 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 67 0 70 0;
#X connect 67 0 76 0;
#X connect 68 0 71 0;
#X connect 68 0 77 0;
#X connect 69 0 72 0;
#X connect 69 0 78 0;
#X connect 79 0 46 0;
#X connect 79 0 51 0;
#X connect 79 0 55 0;
#X restore 342 204 pd freqGain;
#X obj 499 -44 inlet;
#X obj 372 99 r \$0-diameter;
#X obj 573 -45 inlet;
#X floatatom 427 4 5 0 0 0 - - -;
#X floatatom 499 2 5 0 0 0 - - -;
#X floatatom 574 -1 5 0 0 0 - - -;
#X obj 122 312 outlet;
#X obj 983 117 hip~;
#X obj 166 285 snapshot~;
#X obj 166 238 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 166 212 loadbang;
#X obj 166 260 metro 10;
#X obj 87 262 r~ \$0-myFreq;
#X text 173 511 Strouhal Number;
#X text 332 263 Calculates the gain of the dipole source;
#X text 335 541 Calculates the gain of the source;
#X text 565 -64 Azimuth;
#X text 680 -65 Pan;
#X text 493 -63 Elevation;
#X text 423 -62 Distance;
#X text 257 -62 Diameter;
#X text 172 -63 Wind Speed;
#X obj 354 -44 inlet;
#X floatatom 354 0 5 0 0 0 - - -;
#X text 350 -63 Length;
#X obj 787 312 newStrou;
#X floatatom 122 -5 5 0 0 0 - - -;
#X floatatom 262 3 5 0 0 0 - - -;
#X obj 1109 68 +~ 30;
#X obj 1060 319 throw~ l;
#X obj 1087 297 throw~ r;
#X obj 1060 275 fcpan;
#X obj 364 -21 s \$0-leng;
#X obj 432 -20 s \$0-dist;
#X obj 506 -22 s \$0-elev;
#X obj 581 -22 s \$0-azim;
#X obj 341 39 r~ \$0-str;
#X obj 362 79 r \$0-leng;
#X obj 383 119 r \$0-azim;
#X obj 393 140 r \$0-elev;
#X obj 404 161 r \$0-dist;
#X obj 405 228 s~ \$0-dragDiGain;
#X obj 342 248 s~ \$0-liftDiGain;
#X obj 344 319 r~ \$0-str;
#X obj 367 363 r \$0-leng;
#X obj 401 430 r \$0-elev;
#X obj 390 407 r \$0-azim;
#X obj 413 453 r \$0-dist;
#X obj 344 522 s~ \$0-liftNoiseGain;
#X obj 599 391 r~ \$0-dragDiGain;
#X obj 681 342 s~ \$0-str;
#X obj 825 393 r~ \$0-liftDiGain;
#X obj 799 466 r \$0-thisPan;
#X obj 675 22 s \$0-thisPan;
#X obj 1004 94 r \$0-contFreq;
#X obj 166 312 s \$0-contFreq;
#X obj 89 431 r~ \$0-str;
#X obj 1075 162 r~ \$0-liftNoiseGain;
#X obj 1087 256 r \$0-thisPan;
#X obj 770 -38 inlet;
#X obj 842 -39 inlet;
#X obj 916 -40 inlet;
#X floatatom 770 9 5 0 0 0 - - -;
#X floatatom 842 7 5 0 0 0 - - -;
#X floatatom 917 4 5 0 0 0 - - -;
#X obj 775 -15 s \$0-rotaX;
#X obj 849 -17 s \$0-rotaY;
#X obj 924 -17 s \$0-rotaZ;
#X text 766 -57 X Rotation;
#X text 836 -58 Y Rotation;
#X text 911 -59 Z Rotation;
#X text 1114 221 Noise spectrum calculation;
#X connect 4 0 15 0;
#X connect 5 0 7 0;
#X connect 6 0 42 0;
#X connect 6 0 96 0;
#X connect 7 0 6 0;
#X connect 8 0 4 0;
#X connect 8 0 28 0;
#X connect 10 0 8 0;
#X connect 11 0 21 0;
#X connect 11 0 98 0;
#X connect 14 0 74 0;
#X connect 14 0 104 0;
#X connect 15 0 20 1;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 50 0;
#X connect 22 0 7 1;
#X connect 23 0 8 1;
#X connect 25 0 70 1;
#X connect 26 0 10 1;
#X connect 27 0 5 0;
#X connect 29 0 17 0;
#X connect 30 0 31 0;
#X connect 31 0 24 0;
#X connect 32 0 30 0;
#X connect 32 0 97 0;
#X connect 33 0 49 1;
#X connect 34 0 78 0;
#X connect 35 0 102 0;
#X connect 36 0 39 0;
#X connect 37 0 36 0;
#X connect 38 0 37 0;
#X connect 40 0 38 0;
#X connect 41 0 36 0;
#X connect 43 0 44 0;
#X connect 43 0 49 2;
#X connect 45 0 46 0;
#X connect 46 0 54 0;
#X connect 47 0 53 0;
#X connect 49 0 35 0;
#X connect 50 0 2 0;
#X connect 50 1 3 0;
#X connect 51 0 35 1;
#X connect 52 0 43 0;
#X connect 53 0 99 0;
#X connect 54 0 43 0;
#X connect 55 0 57 0;
#X connect 57 0 58 0;
#X connect 58 0 56 0;
#X connect 58 0 124 0;
#X connect 62 0 68 1;
#X connect 63 0 66 0;
#X connect 64 0 63 0;
#X connect 65 0 64 0;
#X connect 67 0 65 0;
#X connect 68 0 119 0;
#X connect 69 0 68 3;
#X connect 70 0 113 0;
#X connect 70 1 112 0;
#X connect 71 0 75 0;
#X connect 71 0 105 0;
#X connect 72 0 70 3;
#X connect 73 0 76 0;
#X connect 73 0 106 0;
#X connect 78 0 49 0;
#X connect 79 0 77 0;
#X connect 79 0 9 0;
#X connect 79 0 126 0;
#X connect 80 0 82 0;
#X connect 81 0 80 0;
#X connect 82 0 79 0;
#X connect 83 0 79 0;
#X connect 93 0 94 0;
#X connect 93 0 103 0;
#X connect 96 0 10 0;
#X connect 96 0 121 0;
#X connect 99 0 52 0;
#X connect 102 0 100 0;
#X connect 102 1 101 0;
#X connect 107 0 70 0;
#X connect 108 0 70 2;
#X connect 109 0 70 4;
#X connect 110 0 70 5;
#X connect 111 0 70 6;
#X connect 114 0 68 0;
#X connect 115 0 68 2;
#X connect 116 0 68 5;
#X connect 117 0 68 4;
#X connect 118 0 68 6;
#X connect 120 0 19 1;
#X connect 122 0 15 1;
#X connect 123 0 50 1;
#X connect 125 0 78 1;
#X connect 127 0 63 0;
#X connect 128 0 51 0;
#X connect 129 0 102 1;
#X connect 130 0 133 0;
#X connect 130 0 136 0;
#X connect 131 0 134 0;
#X connect 131 0 137 0;
#X connect 132 0 135 0;
#X connect 132 0 138 0;