Mercurial > hg > weather-synthesis-prototyping
view June/freqCalcCylD3.pd @ 77:f15a9429abdb
freqCalcCylD3 created to add improvements
author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Thu, 25 Jun 2015 17:06:01 +0100 |
parents | |
children | 3fd10ec003c3 |
line wrap: on
line source
#N canvas 302 23 1138 747 10; #X text 191 166 Mass Density of Air; #X text 125 140 Frequency (Hz); #X obj 268 614 throw~ l; #X obj 295 595 throw~ r; #X obj 283 468 osc~; #X obj 313 167 *~ 1.225; #X obj 313 242 /~ 1.81e-05; #X obj 313 197 *~ 1; #X obj 283 417 /~ 1; #X obj 135 89 snapshot~; #X obj 135 42 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X floatatom 135 115 10 0 0 0 - - -; #X obj 298 285 /~; #X obj 283 393 *~; #X obj 283 442 clip~ 0 20000; #X obj 185 -100 inlet; #X obj 215 114 outlet; #X obj 135 16 loadbang; #X text 375 43 Mass Density of Air \, squared; #X text 638 68 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 558 -54 pd pow6; #X text 154 235 Reynolds Number; #X text 167 409 Strouhal Number; #X obj 521 -41 *~; #X obj 558 -16 *~; #X obj 558 18 *~ 1; #X obj 558 46 *~ 1.50063; #X obj 636 -5 inlet; #X obj 636 20 *; #X obj 636 45 * 118033; #X obj 558 81 /~ 1; #X obj 631 126 inlet; #X obj 558 354 *~ 0.27; #X obj 283 498 *~; #X text 628 109 Azimuth; #X text 635 -25 Distance; #X text 343 222 Viscosity; #X obj 47 425 *~ 2; #X obj 47 452 osc~; #X obj 47 488 *~; #X obj 268 527 +~; #X obj 680 427 cos; #X obj 680 382 / 360; #X floatatom 707 478 5 0 0 0 - - -; #X obj 680 451 *; #X obj 641 531 *~ 0.27; #X obj 185 -77 s \$0-diameter; #X obj 374 166 r \$0-diameter; #X obj 363 366 r \$0-diameter; #X obj 627 -48 r \$0-diameter; #X obj 110 -43 s~ \$0-windSpeed; #X obj 558 -80 r~ \$0-windSpeed; #X obj 362 335 r~ \$0-windSpeed; #X obj 313 139 r~ \$0-windSpeed; #X obj 218 392 s~ \$0_str; #X obj 491 -79 r~ \$0_str; #X obj 575 110 s~ \$0-a; #X obj 616 481 r~ \$0-a; #X obj 641 581 s~ \$0_dragDiGain; #X obj 80 452 r~ \$0_dragDiGain; #X obj 198 468 s~ \$0-myFreq; #X obj 47 398 r~ \$0-myFreq; #X obj 49 64 r~ \$0-myFreq; #X obj 558 404 s~ \$0_liftDiGain; #X obj 321 468 r~ \$0_liftDiGain; #X obj 110 -85 sig~; #X obj 110 -63 vd~ varwind; #X obj 110 -109 inlet; #X obj 1214 46 r~ \$0-myFreq; #X obj 1180 22 noise~; #X obj 1257 230 throw~ l; #X obj 1284 209 throw~ r; #X obj 1257 137 *~; #X obj 285 10 snapshot~; #X obj 285 -15 metro 100; #X obj 285 -37 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X floatatom 285 36 10 0 0 0 - - -; #X obj 285 -63 loadbang; #X obj 199 -15 r~ \$0-myRey; #X obj 326 266 s~ \$0-myRey; #X obj 1395 47 snapshot~; #X floatatom 1395 73 10 0 0 0 - - -; #X obj 1395 -26 loadbang; #X obj 1395 -1 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 1306 -55 r~ \$0-myRey; #X obj 1232 346 r~ \$0-myFreq; #X obj 1198 321 noise~; #X obj 1275 535 throw~ l; #X obj 1302 512 throw~ r; #X obj 1275 443 *~; #X obj 1413 355 snapshot~; #X floatatom 1413 381 10 0 0 0 - - -; #X obj 1413 282 loadbang; #X obj 1413 307 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 1324 253 r~ \$0-myRey; #X obj 1232 372 *~ 2; #X text 270 58 Reynolds Number; #X obj 1180 89 vcf~ 1000 10; #X obj 1198 397 vcf~ 1000 10; #X obj 268 570 fcpan; #X obj 1257 186 fcpan; #X obj 1275 487 fcpan; #X obj 680 404 * 6.28319; #X obj 1272 110 *~ 1; #X obj 1290 418 *~ 1; #X obj 1324 328 clip~ 2 400; #X obj 1306 20 clip~ 2 400; #X obj 1324 277 *~ -0.003; #X obj 1306 -31 *~ -0.003; #X obj 1306 -6 +~ 20; #X obj 1324 302 +~ 20; #X floatatom 601 21 5 0 0 0 - - -; #X obj 1395 22 metro 10; #X obj 1413 330 metro 10; #X obj 135 64 metro 10; #N canvas 409 243 688 659 angleCalc 0; #X obj 341 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 321 40 Elevation Angle; #X obj 270 81 / 360; #X obj 270 103 * 6.28319; #X floatatom 135 174 5 0 0 0 - - -; #X obj 179 79 / 360; #X obj 179 101 * 6.28319; #X floatatom 64 105 5 0 0 0 - - -; #X floatatom 338 103 5 0 0 0 - - -; #X floatatom 232 256 5 0 0 0 - - -; #X floatatom 360 500 8 0 0 0 - - -; #X obj 312 502 * 360; #X floatatom 359 553 5 0 0 0 - - -; #X obj 312 526 / 6.28319; #X obj 270 294 *; #X obj 270 326 swap 1; #X obj 270 359 -; #X obj 270 388 sqrt; #X obj 312 419 /; #X obj 312 447 atan; #X obj 312 473 * 2; #X text 352 355 Arccos of angle; #X obj 270 265 /; #X obj 327 295 + 1; #X obj 179 125 cos; #X obj 179 151 *; #X obj 270 134 cos; #X obj 270 234 *; #X obj 179 175 t f b; #X obj 177 200 delay 9; #X obj 312 553 outlet; #X obj 270 53 inlet; #X obj 180 52 inlet; #X obj 370 227 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 516 57 inlet; #X obj 516 81 s \$0_tDist; #X obj 204 126 r \$0_tDist; #X obj 295 234 r \$0_tDist; #X floatatom 482 81 5 0 0 0 - - -; #X obj 67 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 71 41 Azimuth Angle; #X connect 0 0 8 0; #X connect 2 0 3 0; #X connect 3 0 26 0; #X connect 5 0 6 0; #X connect 6 0 24 0; #X connect 11 0 13 0; #X connect 13 0 12 0; #X connect 13 0 30 0; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 15 1 16 1; #X connect 16 0 17 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 20 0; #X connect 20 0 11 0; #X connect 20 0 10 0; #X connect 22 0 14 0; #X connect 22 0 14 1; #X connect 22 0 23 0; #X connect 23 0 18 1; #X connect 24 0 25 0; #X connect 25 0 4 0; #X connect 25 0 28 0; #X connect 26 0 27 0; #X connect 27 0 9 0; #X connect 27 0 22 0; #X connect 28 0 27 1; #X connect 28 1 29 0; #X connect 29 0 27 0; #X connect 31 0 2 0; #X connect 31 0 0 0; #X connect 32 0 5 0; #X connect 32 0 39 0; #X connect 34 0 35 0; #X connect 34 0 38 0; #X connect 36 0 25 1; #X connect 37 0 22 1; #X connect 39 0 7 0; #X restore 597 210 pd angleCalc; #X obj 597 160 inlet; #X obj 667 21 s \$0_dist; #X obj 666 188 r \$0_dist; #X text 568 144 Elevation; #X obj 597 273 / 90; #X floatatom 565 297 5 0 0 0 - - -; #X obj 680 354 + 90; #X obj 447 550 inlet; #X obj 445 628 s \$0_thisPan; #X obj 295 541 r \$0_thisPan; #X obj 1284 162 r \$0_thisPan; #X obj 1302 465 r \$0_thisPan; #X floatatom 378 583 8 0 0 0 - - -; #X obj 444 578 max 0.1; #X obj 443 605 min 0.9; #X text 501 560 Pan value inlet; #X text 1326 431 Drag Dipole spectrum calculation; #X text 1311 127 Lift Dipole spectrum calculation; #X obj 643 274 loadbang; #X msg 643 296 0.05; #X obj 558 329 *~ 0.05; #X obj 745 456 loadbang; #X msg 745 478 0.05; #X obj 641 507 *~ 0.05; #X text 719 538 Calculates Drag Dipole gain; #X text 499 439 Calculates Lift Dipole gain; #X text 34 281 Calculates the frequency; #X text 34 294 based on the physics of; #X text 35 307 the object and environment; #X text 739 51 Mass Density of Air \, squared; #X text 1002 76 Speed of Sound to power 2; #X obj 885 -33 *~; #X obj 922 -8 *~; #X obj 922 26 *~ 1; #X obj 922 54 *~ 1.50063; #X obj 1000 28 *; #X obj 1000 53 * 118033; #X obj 922 89 /~ 1; #X obj 922 362 *~ 0.27; #X text 1000 -17 Distance; #X obj 1044 435 cos; #X obj 1044 390 / 360; #X floatatom 1071 486 5 0 0 0 - - -; #X obj 1044 459 *; #X obj 1005 539 *~ 0.27; #X obj 991 -40 r \$0-diameter; #X obj 922 -72 r~ \$0-windSpeed; #X obj 855 -71 r~ \$0_str; #X obj 1044 412 * 6.28319; #N canvas 409 243 688 659 angleCalc 0; #X obj 341 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 321 40 Elevation Angle; #X obj 270 81 / 360; #X obj 270 103 * 6.28319; #X floatatom 135 174 5 0 0 0 - - -; #X obj 179 79 / 360; #X obj 179 101 * 6.28319; #X floatatom 64 105 5 0 0 0 - - -; #X floatatom 338 103 5 0 0 0 - - -; #X floatatom 232 256 5 0 0 0 - - -; #X floatatom 360 500 8 0 0 0 - - -; #X obj 312 502 * 360; #X floatatom 359 553 5 0 0 0 - - -; #X obj 312 526 / 6.28319; #X obj 270 294 *; #X obj 270 326 swap 1; #X obj 270 359 -; #X obj 270 388 sqrt; #X obj 312 419 /; #X obj 312 447 atan; #X obj 312 473 * 2; #X text 352 355 Arccos of angle; #X obj 270 265 /; #X obj 327 295 + 1; #X obj 179 125 cos; #X obj 179 151 *; #X obj 270 134 cos; #X obj 270 234 *; #X obj 179 175 t f b; #X obj 177 200 delay 9; #X obj 312 553 outlet; #X obj 270 53 inlet; #X obj 180 52 inlet; #X obj 370 227 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 516 57 inlet; #X obj 516 81 s \$0_tDist; #X obj 204 126 r \$0_tDist; #X obj 295 234 r \$0_tDist; #X floatatom 482 81 5 0 0 0 - - -; #X obj 67 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 71 41 Azimuth Angle; #X connect 0 0 8 0; #X connect 2 0 3 0; #X connect 3 0 26 0; #X connect 5 0 6 0; #X connect 6 0 24 0; #X connect 11 0 13 0; #X connect 13 0 12 0; #X connect 13 0 30 0; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 15 1 16 1; #X connect 16 0 17 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 20 0; #X connect 20 0 11 0; #X connect 20 0 10 0; #X connect 22 0 14 0; #X connect 22 0 14 1; #X connect 22 0 23 0; #X connect 23 0 18 1; #X connect 24 0 25 0; #X connect 25 0 4 0; #X connect 25 0 28 0; #X connect 26 0 27 0; #X connect 27 0 9 0; #X connect 27 0 22 0; #X connect 28 0 27 1; #X connect 28 1 29 0; #X connect 29 0 27 0; #X connect 31 0 2 0; #X connect 31 0 0 0; #X connect 32 0 5 0; #X connect 32 0 39 0; #X connect 34 0 35 0; #X connect 34 0 38 0; #X connect 36 0 25 1; #X connect 37 0 22 1; #X connect 39 0 7 0; #X restore 961 218 pd angleCalc; #X obj 1030 196 r \$0_dist; #X obj 961 281 / 90; #X floatatom 929 305 5 0 0 0 - - -; #X obj 1044 362 + 90; #X obj 1007 282 loadbang; #X msg 1007 304 0.05; #X obj 922 337 *~ 0.05; #X obj 1109 464 loadbang; #X msg 1109 486 0.05; #X obj 1005 515 *~ 0.05; #X text 1079 554 Calculates Drag Dipole gain; #X text 830 429 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 13 0 3 0; #X connect 13 0 4 0; #X restore 922 -46 pd pow8; #X obj 922 412 s~ \$0_liftNoiseGain; #X obj 1005 589 s~ \$0_dragNoiseGain; #X obj 1290 395 r~ \$0_dragNoiseGain; #X obj 1272 68 r~ \$0_liftNoiseGain; #X obj 939 118 s~ \$0-c; #X obj 980 489 r~ \$0-c; #X obj 1000 6 r \$0_dist; #X obj 657 148 s \$0_azim; #X obj 604 184 s \$0_elev; #X obj 995 177 r \$0_azim; #X obj 961 154 r \$0_elev; #X floatatom 734 231 5 0 0 0 - - -; #X floatatom 749 206 5 0 0 0 - - -; #X floatatom 512 596 5 0 0 0 - - -; #X obj 264 246 sig~ 1; #X obj 298 311 sqrt~; #X obj 298 336 *~ 1.0356; #X obj 224 327 sig~ 0.2684; #X obj 283 366 -~; #X obj 145 603 snapshot~; #X obj 145 578 metro 100; #X obj 145 556 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X floatatom 145 629 10 0 0 0 - - -; #X obj 145 530 loadbang; #X obj 59 578 r~ \$0_str; #X obj 31 -15 hsl 128 15 0 30 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X msg 246 -103 0.003; #X obj 559 376 *~ 1; #X obj 641 556 *~ 0.1; #X obj 922 384 *~ 1; #X obj 1005 564 *~ 0.1; #X connect 4 0 33 0; #X connect 5 0 7 0; #X connect 6 0 12 1; #X connect 6 0 79 0; #X connect 7 0 6 0; #X connect 8 0 14 0; #X connect 9 0 11 0; #X connect 9 0 16 0; #X connect 10 0 114 0; #X connect 12 0 194 0; #X connect 13 0 8 0; #X connect 14 0 4 0; #X connect 14 0 60 0; #X connect 15 0 46 0; #X connect 17 0 10 0; #X connect 20 0 24 0; #X connect 23 0 24 1; #X connect 24 0 25 0; #X connect 25 0 26 0; #X connect 26 0 30 0; #X connect 27 0 28 0; #X connect 27 0 28 1; #X connect 27 0 111 0; #X connect 27 0 117 0; #X connect 28 0 29 0; #X connect 29 0 30 1; #X connect 30 0 56 0; #X connect 30 0 136 0; #X connect 31 0 115 1; #X connect 31 0 186 0; #X connect 31 0 191 0; #X connect 32 0 206 0; #X connect 33 0 40 1; #X connect 37 0 38 0; #X connect 38 0 39 0; #X connect 39 0 40 0; #X connect 40 0 99 0; #X connect 41 0 44 0; #X connect 41 0 44 1; #X connect 42 0 102 0; #X connect 44 0 43 0; #X connect 44 0 139 1; #X connect 45 0 207 0; #X connect 47 0 7 1; #X connect 48 0 8 1; #X connect 49 0 25 1; #X connect 51 0 20 0; #X connect 52 0 13 1; #X connect 53 0 5 0; #X connect 55 0 23 1; #X connect 55 0 23 0; #X connect 57 0 139 0; #X connect 59 0 39 1; #X connect 61 0 37 0; #X connect 62 0 9 0; #X connect 64 0 33 1; #X connect 65 0 66 0; #X connect 66 0 50 0; #X connect 67 0 65 0; #X connect 68 0 97 1; #X connect 69 0 97 0; #X connect 72 0 100 0; #X connect 73 0 76 0; #X connect 74 0 73 0; #X connect 75 0 74 0; #X connect 77 0 75 0; #X connect 78 0 73 0; #X connect 80 0 81 0; #X connect 80 0 97 2; #X connect 82 0 83 0; #X connect 83 0 112 0; #X connect 84 0 108 0; #X connect 85 0 95 0; #X connect 86 0 98 0; #X connect 89 0 101 0; #X connect 90 0 91 0; #X connect 90 0 98 2; #X connect 92 0 93 0; #X connect 93 0 113 0; #X connect 94 0 107 0; #X connect 95 0 98 1; #X connect 97 0 72 0; #X connect 98 0 89 0; #X connect 99 0 2 0; #X connect 99 1 3 0; #X connect 100 0 70 0; #X connect 100 1 71 0; #X connect 101 0 87 0; #X connect 101 1 88 0; #X connect 102 0 41 0; #X connect 103 0 72 1; #X connect 104 0 89 1; #X connect 105 0 90 0; #X connect 106 0 80 0; #X connect 107 0 110 0; #X connect 108 0 109 0; #X connect 109 0 106 0; #X connect 110 0 105 0; #X connect 112 0 80 0; #X connect 113 0 90 0; #X connect 114 0 9 0; #X connect 115 0 120 0; #X connect 115 0 122 0; #X connect 116 0 115 0; #X connect 116 0 187 0; #X connect 116 0 190 0; #X connect 118 0 115 2; #X connect 120 0 121 0; #X connect 120 0 136 1; #X connect 122 0 42 0; #X connect 123 0 129 0; #X connect 123 0 192 0; #X connect 125 0 99 1; #X connect 126 0 100 1; #X connect 127 0 101 1; #X connect 129 0 130 0; #X connect 130 0 124 0; #X connect 130 0 128 0; #X connect 134 0 135 0; #X connect 135 0 136 1; #X connect 136 0 32 0; #X connect 137 0 138 0; #X connect 138 0 139 1; #X connect 139 0 45 0; #X connect 147 0 148 1; #X connect 148 0 149 0; #X connect 149 0 150 0; #X connect 150 0 153 0; #X connect 151 0 152 0; #X connect 152 0 153 1; #X connect 153 0 172 0; #X connect 153 0 183 0; #X connect 154 0 208 0; #X connect 156 0 159 0; #X connect 156 0 159 1; #X connect 157 0 164 0; #X connect 159 0 158 0; #X connect 159 0 175 1; #X connect 160 0 209 0; #X connect 161 0 149 1; #X connect 162 0 178 0; #X connect 163 0 147 1; #X connect 163 0 147 0; #X connect 164 0 156 0; #X connect 165 0 167 0; #X connect 165 0 169 0; #X connect 166 0 165 2; #X connect 167 0 168 0; #X connect 167 0 172 1; #X connect 169 0 157 0; #X connect 170 0 171 0; #X connect 171 0 172 1; #X connect 172 0 154 0; #X connect 173 0 174 0; #X connect 174 0 175 1; #X connect 175 0 160 0; #X connect 178 0 148 0; #X connect 181 0 104 0; #X connect 182 0 103 0; #X connect 184 0 175 0; #X connect 185 0 151 0; #X connect 185 0 151 1; #X connect 188 0 165 1; #X connect 189 0 165 0; #X connect 193 0 12 0; #X connect 194 0 195 0; #X connect 195 0 197 1; #X connect 196 0 197 0; #X connect 197 0 54 0; #X connect 197 0 13 0; #X connect 198 0 201 0; #X connect 199 0 198 0; #X connect 200 0 199 0; #X connect 202 0 200 0; #X connect 203 0 198 0; #X connect 206 0 63 0; #X connect 207 0 58 0; #X connect 208 0 179 0; #X connect 209 0 180 0;