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

Edgetone development models
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 11 Nov 2017 17:43:39 +0000
parents 61d267c71a18
children
line wrap: on
line source
#N canvas 0 22 1426 817 10;
#X text 734 -8 Mass Density of Air;
#X text 135 314 Frequency (Hz);
#X obj 841 386 throw~ l;
#X obj 868 363 throw~ r;
#X obj 856 237 osc~;
#X obj 856 -7 *~ 1.225;
#X obj 856 68 /~ 1.81e-05;
#X obj 856 23 *~ 1;
#X obj 856 186 /~ 1;
#X floatatom 231 292 10 0 0 0 - - -;
#X obj 856 162 *~;
#X obj 856 211 clip~ 0 20000;
#X obj 242 -61 inlet;
#X text 889 112 Reynolds Number;
#X text 741 176 Strouhal Number;
#X obj 407 -63 inlet;
#X obj 856 267 *~;
#X text 886 48 Viscosity;
#X obj 641 208 *~ 2;
#X obj 641 235 osc~;
#X obj 641 257 *~;
#X obj 841 296 +~;
#X obj 249 -38 s \$0-diameter;
#X obj 917 -8 r \$0-diameter;
#X obj 924 167 r \$0-diameter;
#X obj 159 1 s~ \$0-windSpeed;
#X obj 331 40 r~ \$0-windSpeed;
#X obj 923 144 r~ \$0-windSpeed;
#X obj 856 -35 r~ \$0-windSpeed;
#X obj 777 236 s~ \$0-myFreq;
#X obj 641 181 r~ \$0-myFreq;
#X obj 159 -41 sig~;
#X obj 159 -19 vd~ varwind;
#X obj 159 -65 inlet;
#X obj 1089 42 r~ \$0-myFreq;
#X obj 1055 -8 noise~;
#X obj 1132 153 *~;
#X obj 153 114 snapshot~;
#X obj 153 89 metro 100;
#X obj 153 67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 153 140 10 0 0 0 - - -;
#X obj 153 41 loadbang;
#X obj 67 89 r~ \$0-myRey;
#X obj 869 92 s~ \$0-myRey;
#X obj 1270 43 snapshot~;
#X floatatom 1270 69 10 0 0 0 - - -;
#X obj 1270 -30 loadbang;
#X obj 1270 -5 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 1181 -59 r~ \$0-myRey;
#X obj 1097 394 r~ \$0-myFreq;
#X obj 1063 323 noise~;
#X obj 1140 491 *~;
#X obj 1278 403 snapshot~;
#X floatatom 1278 429 10 0 0 0 - - -;
#X obj 1278 330 loadbang;
#X obj 1278 355 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 1189 301 r~ \$0-myRey;
#X obj 1097 420 *~ 2;
#X text 138 162 Reynolds Number;
#X obj 1055 85 vcf~ 1000 10;
#X obj 1063 445 vcf~ 1000 10;
#X obj 841 339 fcpan;
#X obj 1147 126 *~ 1;
#X obj 1155 466 *~ 1;
#X obj 1189 376 clip~ 2 400;
#X obj 1181 16 clip~ 2 400;
#X obj 1189 325 *~ -0.003;
#X obj 1181 -35 *~ -0.003;
#X obj 1270 18 metro 10;
#X obj 1278 378 metro 10;
#X obj 655 -67 inlet;
#X floatatom 600 2 8 0 0 0 - - -;
#X obj 655 -43 max 0.1;
#X obj 655 -20 min 0.9;
#X text 1191 479 Drag Dipole spectrum calculation;
#X text 1186 143 Lift Dipole spectrum calculation;
#X text 577 107 Calculates the frequency;
#X text 577 120 based on the physics of;
#X text 578 133 the object and environment;
#X obj 335 322 r~ \$0-windSpeed;
#X obj 154 436 snapshot~;
#X obj 154 411 metro 100;
#X obj 154 389 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 154 462 10 0 0 0 - - -;
#X obj 154 363 loadbang;
#N canvas 665 72 843 731 noiseGain 0;
#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 532 *~ 0.27;
#X text -20767 49 Distance;
#X obj -20916 518 *~ 0.27;
#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 575 outlet~;
#X obj -20916 568 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 -21022 554 *~ 0.02;
#X obj -20916 543 *~ 0.002;
#X obj -21005 288 s~ \$0-nGain;
#X obj -20886 471 r~ \$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 350 angleCalc~;
#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 507 *~;
#X obj -21007 486 *~;
#X obj -20916 426 /~ 360;
#X obj -20916 447 cos~;
#X obj -20916 471 *~;
#X obj -20916 494 *~;
#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 5 0 0 0 - - -;
#X obj -20771 448 loadbang;
#X obj -20771 469 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj -20771 487 metro 10;
#X obj -20771 508 snapshot~;
#X floatatom -20771 528 5 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 connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 25 0;
#X connect 6 0 7 0;
#X connect 7 0 8 1;
#X connect 8 0 29 0;
#X connect 8 0 44 0;
#X connect 9 0 27 0;
#X connect 11 0 28 0;
#X connect 14 0 3 0;
#X connect 15 0 2 0;
#X connect 15 0 2 1;
#X connect 16 0 14 0;
#X connect 17 0 4 1;
#X connect 18 0 6 0;
#X connect 18 0 6 1;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 25 1;
#X connect 25 0 8 0;
#X connect 27 0 19 0;
#X connect 28 0 20 0;
#X connect 30 0 49 1;
#X connect 33 0 36 0;
#X connect 34 0 38 0;
#X connect 35 0 41 0;
#X connect 35 0 46 0;
#X connect 35 0 53 0;
#X connect 36 0 35 0;
#X connect 37 0 35 1;
#X connect 38 0 37 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 43 0 45 1;
#X connect 44 0 9 0;
#X connect 45 0 44 1;
#X connect 45 0 58 0;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 49 0;
#X connect 48 0 63 0;
#X connect 49 0 11 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 53 0 54 0;
#X connect 55 0 56 0;
#X connect 56 0 57 0;
#X connect 57 0 58 0;
#X connect 58 0 59 0;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 62 0 63 0;
#X connect 63 0 64 0;
#X connect 65 0 37 0;
#X connect 66 0 38 1;
#X connect 66 1 65 0;
#X connect 67 0 66 0;
#X connect 68 0 38 1;
#X restore 324 457 pd noiseGain;
#X obj 358 367 r \$0-diameter;
#N canvas 607 75 743 677 freqGain 0;
#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 250 156 inlet;
#X obj 250 180 *;
#X text 288 151 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 337 angleCalc~;
#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 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 27 0;
#X connect 7 0 8 0;
#X connect 8 0 9 1;
#X connect 9 0 29 0;
#X connect 9 0 52 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 25 0;
#X connect 24 0 25 1;
#X connect 25 0 27 1;
#X connect 27 0 9 0;
#X connect 30 0 56 1;
#X connect 33 0 36 0;
#X connect 34 0 38 0;
#X connect 35 0 48 0;
#X connect 35 0 53 0;
#X connect 35 0 57 0;
#X connect 36 0 35 0;
#X connect 37 0 35 1;
#X connect 38 0 37 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 43 0 57 0;
#X connect 44 0 37 0;
#X connect 45 0 38 1;
#X connect 45 1 44 0;
#X connect 46 0 45 0;
#X connect 47 0 38 1;
#X connect 48 0 49 0;
#X connect 49 0 50 0;
#X connect 50 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 51 0 67 0;
#X connect 52 0 10 0;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 55 1;
#X connect 55 0 56 0;
#X connect 55 0 62 0;
#X connect 56 0 12 0;
#X connect 57 0 58 0;
#X connect 59 0 60 0;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 62 0 63 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 67 0;
#X connect 67 0 68 0;
#X restore 321 162 pd freqGain;
#X obj 479 -64 inlet;
#X obj 352 79 r \$0-diameter;
#X obj 553 -65 inlet;
#X floatatom 407 -16 5 0 0 0 - - -;
#X floatatom 479 -18 5 0 0 0 - - -;
#X floatatom 554 -21 5 0 0 0 - - -;
#X obj 102 292 outlet;
#X obj 1055 39 hip~;
#X obj 146 265 snapshot~;
#X obj 146 218 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 146 192 loadbang;
#X obj 146 240 metro 10;
#X obj 1063 420 hip~;
#X obj 67 242 r~ \$0-myFreq;
#X obj 1084 367 * 2;
#X text 153 491 Strouhal Number;
#X text 311 223 Calculates the gain of the dipole source;
#X text 315 521 Calculates the gain of the source;
#X text 545 -84 Azimuth;
#X text 660 -85 Pan;
#X text 473 -83 Elevation;
#X text 403 -82 Distance;
#X text 237 -82 Diameter;
#X text 152 -83 Wind Speed;
#X obj 334 -64 inlet;
#X floatatom 334 -20 5 0 0 0 - - -;
#X text 330 -83 Length;
#X obj 856 133 newStrou;
#X floatatom 102 -25 5 0 0 0 - - -;
#X floatatom 242 -17 5 0 0 0 - - -;
#X obj 1181 -10 +~ 30;
#X obj 1189 350 +~ 30;
#X obj 1132 241 throw~ l;
#X obj 1159 219 throw~ r;
#X obj 1132 197 fcpan;
#X obj 1140 579 throw~ l;
#X obj 1167 557 throw~ r;
#X obj 1140 533 fcpan;
#X obj 344 -41 s \$0-leng;
#X obj 412 -40 s \$0-dist;
#X obj 486 -42 s \$0-elev;
#X obj 561 -42 s \$0-azim;
#X obj 321 19 r~ \$0-str;
#X obj 342 59 r \$0-leng;
#X obj 363 99 r \$0-azim;
#X obj 373 120 r \$0-elev;
#X obj 384 141 r \$0-dist;
#X obj 384 186 s~ \$0-dragDiGain;
#X obj 321 206 s~ \$0-liftDiGain;
#X obj 324 299 r~ \$0-str;
#X obj 347 343 r \$0-leng;
#X obj 381 410 r \$0-elev;
#X obj 370 387 r \$0-azim;
#X obj 393 433 r \$0-dist;
#X obj 393 480 s~ \$0-dragNoiseGain;
#X obj 324 502 s~ \$0-liftNoiseGain;
#X obj 674 235 r~ \$0-dragDiGain;
#X obj 750 163 s~ \$0-str;
#X obj 894 237 r~ \$0-liftDiGain;
#X obj 868 310 r \$0-thisPan;
#X obj 655 2 s \$0-thisPan;
#X obj 1076 16 r \$0-contFreq;
#X obj 146 292 s \$0-contFreq;
#X obj 69 411 r~ \$0-str;
#X obj 1147 84 r~ \$0-liftNoiseGain;
#X obj 1159 178 r \$0-thisPan;
#X obj 1084 344 r \$0-contFreq;
#X obj 1155 443 r~ \$0-dragNoiseGain;
#X obj 1167 513 r \$0-thisPan;
#X connect 4 0 16 0;
#X connect 5 0 7 0;
#X connect 6 0 43 0;
#X connect 6 0 115 0;
#X connect 7 0 6 0;
#X connect 8 0 11 0;
#X connect 10 0 8 0;
#X connect 11 0 4 0;
#X connect 11 0 29 0;
#X connect 12 0 22 0;
#X connect 12 0 117 0;
#X connect 15 0 91 0;
#X connect 15 0 127 0;
#X connect 16 0 21 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 61 0;
#X connect 23 0 7 1;
#X connect 24 0 8 1;
#X connect 26 0 87 1;
#X connect 27 0 10 1;
#X connect 28 0 5 0;
#X connect 30 0 18 0;
#X connect 31 0 32 0;
#X connect 32 0 25 0;
#X connect 33 0 31 0;
#X connect 33 0 116 0;
#X connect 34 0 59 1;
#X connect 35 0 95 0;
#X connect 36 0 122 0;
#X connect 37 0 40 0;
#X connect 38 0 37 0;
#X connect 39 0 38 0;
#X connect 41 0 39 0;
#X connect 42 0 37 0;
#X connect 44 0 45 0;
#X connect 44 0 59 2;
#X connect 46 0 47 0;
#X connect 47 0 68 0;
#X connect 48 0 67 0;
#X connect 49 0 57 0;
#X connect 50 0 100 0;
#X connect 51 0 125 0;
#X connect 52 0 53 0;
#X connect 52 0 60 2;
#X connect 54 0 55 0;
#X connect 55 0 69 0;
#X connect 56 0 66 0;
#X connect 57 0 60 1;
#X connect 59 0 36 0;
#X connect 60 0 51 0;
#X connect 61 0 2 0;
#X connect 61 1 3 0;
#X connect 62 0 36 1;
#X connect 63 0 51 1;
#X connect 64 0 52 0;
#X connect 65 0 44 0;
#X connect 66 0 119 0;
#X connect 67 0 118 0;
#X connect 68 0 44 0;
#X connect 69 0 52 0;
#X connect 70 0 72 0;
#X connect 72 0 73 0;
#X connect 73 0 71 0;
#X connect 73 0 148 0;
#X connect 79 0 85 1;
#X connect 80 0 83 0;
#X connect 81 0 80 0;
#X connect 82 0 81 0;
#X connect 84 0 82 0;
#X connect 85 0 143 0;
#X connect 85 1 142 0;
#X connect 86 0 85 3;
#X connect 87 0 136 0;
#X connect 87 1 135 0;
#X connect 88 0 92 0;
#X connect 88 0 128 0;
#X connect 89 0 87 3;
#X connect 90 0 93 0;
#X connect 90 0 129 0;
#X connect 95 0 59 0;
#X connect 96 0 94 0;
#X connect 96 0 9 0;
#X connect 96 0 150 0;
#X connect 97 0 99 0;
#X connect 98 0 97 0;
#X connect 99 0 96 0;
#X connect 100 0 60 0;
#X connect 101 0 96 0;
#X connect 102 0 100 1;
#X connect 112 0 113 0;
#X connect 112 0 126 0;
#X connect 115 0 10 0;
#X connect 115 0 145 0;
#X connect 118 0 65 0;
#X connect 119 0 64 0;
#X connect 122 0 120 0;
#X connect 122 1 121 0;
#X connect 125 0 123 0;
#X connect 125 1 124 0;
#X connect 130 0 87 0;
#X connect 131 0 87 2;
#X connect 132 0 87 4;
#X connect 133 0 87 5;
#X connect 134 0 87 6;
#X connect 137 0 85 0;
#X connect 138 0 85 2;
#X connect 139 0 85 5;
#X connect 140 0 85 4;
#X connect 141 0 85 6;
#X connect 144 0 20 1;
#X connect 146 0 16 1;
#X connect 147 0 61 1;
#X connect 149 0 95 1;
#X connect 151 0 80 0;
#X connect 152 0 62 0;
#X connect 153 0 122 1;
#X connect 154 0 102 0;
#X connect 155 0 63 0;
#X connect 156 0 125 1;