Mercurial > hg > weather-synthesis-prototyping
view MechAeolian/MechAeolianD2.pd @ 303:8b51c20529a6
Edgetone development models
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Sat, 11 Nov 2017 17:43:39 +0000 |
| parents | 3f098ee30907 |
| children |
line wrap: on
line source
#N canvas 18 41 1370 784 10; #X obj 223 63 inlet; #X text 792 236 Reynolds Number; #X text 720 269 Strouhal Number; #X obj 388 61 inlet; #X obj 230 86 s \$0-diameter; #X obj 120 85 s~ \$0-windSpeed; #X obj 709 151 r~ \$0-windSpeed; #X obj 709 298 s~ \$0-myFreq; #X obj 120 65 vd~ varwind; #X obj 1052 334 *~; #X obj 772 216 s~ \$0-myRey; #X obj 636 57 inlet; #X floatatom 581 126 8 0 0 0 - - -; #X text 673 317 Calculates the frequency; #X text 674 329 based on the physics of; #X obj 307 404 r~ \$0-windSpeed; #X obj 347 466 r \$0-diameter; #X obj 460 60 inlet; #X obj 534 59 inlet; #X floatatom 388 108 0 0 0 0 - - -; #X floatatom 460 106 0 0 0 0 - - -; #X floatatom 535 103 0 0 0 0 - - -; #X text 293 367 Calculates the gain of the dipole source; #X text 459 37 Azimuth; #X text 641 39 Pan; #X text 533 41 Elevation; #X text 384 42 Distance; #X text 218 42 Diameter; #X text 133 41 Wind Speed; #X obj 315 60 inlet; #X floatatom 315 104 5 0 0 0 - - -; #X text 311 41 Length; #X floatatom 223 107 0 0 0 0 - - -; #X obj 1052 403 throw~ l; #X obj 1079 381 throw~ r; #X obj 325 83 s \$0-leng; #X obj 393 84 s \$0-dist; #X obj 400 331 s~ \$0-dragDiGain; #X obj 313 352 s~ \$0-liftDiGain; #X obj 294 385 r~ \$0-str; #X obj 333 444 r \$0-leng; #X obj 360 487 r \$0-dist; #X obj 294 580 s~ \$0-liftNoiseGain; #X obj 740 254 s~ \$0-str; #X obj 636 126 s \$0-thisPan; #X obj 1052 190 r~ \$0-liftNoiseGain; #X obj 1079 334 r \$0-thisPan; #X obj 803 39 inlet; #X obj 746 39 inlet; #X text 1033 164 Noise spectrum calculation; #X obj 1067 282 hip~; #X obj 1067 237 rpole~ 0.99; #X obj 321 163 r~ \$0-windSpeed; #X obj 339 202 r \$0-diameter; #X obj 313 142 r~ \$0-str; #X obj 331 183 r \$0-leng; #X obj 356 241 r \$0-dist; #N canvas 205 88 1238 721 GoldfreqGain 0; #N canvas 759 125 286 294 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 obj 372 202 *; #X obj 372 228 *; #X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom 374 288 10 0 0 0 - - -; #X obj 303 20 t f b; #X floatatom 455 55 5 0 0 0 - - -; #X obj 372 260 *; #X obj 400 202 *; #X msg 303 -4 6; #X obj 434 201 *; #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 connect 13 0 14 0; #X connect 14 0 19 0; #X connect 15 0 13 0; #X connect 15 0 13 1; #X connect 15 0 18 0; #X connect 15 0 20 0; #X connect 15 0 20 1; #X connect 17 0 13 0; #X connect 17 0 13 1; #X connect 17 0 20 0; #X connect 17 0 20 1; #X connect 17 0 22 0; #X connect 17 0 22 1; #X connect 17 1 13 0; #X connect 17 1 20 0; #X connect 17 1 22 0; #X connect 19 0 16 0; #X connect 20 0 14 1; #X connect 21 0 17 0; #X connect 22 0 19 1; #X restore 219 150 pd pow6; #X obj 173 140 *~; #X obj 219 176 *~; #X obj 411 161 *; #X text 587 13 Distance; #X floatatom 567 73 5 0 0 0 - - -; #X text 724 548 Calculates Drag Dipole gain; #X text 48 531 Calculates Lift Dipole gain; #X obj 173 100 inlet~; #X obj 219 13 inlet~; #X text 328 170 Diameter; #X obj 291 169 inlet; #X obj 567 29 inlet; #X obj 219 590 outlet~; #X obj 758 523 outlet~; #X obj 240 263 inlet; #X text 278 258 Length; #X obj 219 289 *~ 1; #X obj 234 469 /~ 360; #X obj 234 518 *~; #X obj 219 541 *~; #X obj 868 30 inlet; #X obj 967 32 inlet; #X obj 1063 35 inlet; #X floatatom 868 77 5 0 0 0 - - -; #X floatatom 967 78 5 0 0 0 - - -; #X floatatom 1064 79 5 0 0 0 - - -; #X text 864 11 X Rotation; #X text 961 13 Y Rotation; #X text 1058 16 Z Rotation; #X obj 873 53 s \$0-this_rotaX; #X obj 974 54 s \$0-thisrotaY; #X obj 1071 58 s \$0-thisrotaZ; #X text 74 100 Strouhal number; #X text 149 37 Wind speed; #X text 266 211 Corr Length; #X obj 219 348 *~ 2.50663; #X obj 219 238 *~ 1.225; #X text 93 234 Mass Density of Air; #X text 145 343 Sqrt(2xpi); #X obj 332 470 /~ 360; #X obj 332 516 *~; #X obj 332 492 cos~; #X obj 219 567 *~; #X obj 411 191 * 4.05513e+07; #X text 362 210 Speed of Sound to power 3; #X obj 411 244 * 32; #X obj 525 213 cos~; #X obj 525 236 *~; #X obj 473 237 sig~ 1; #X obj 510 267 -~; #N canvas 1150 227 286 289 pow4 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 47 93 *~; #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 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 3 0; #X connect 10 0 4 0; #X restore 510 290 pd pow4; #X obj 411 272 sig~; #X obj 411 322 *~; #X obj 219 385 /~; #X obj 133 375 s~ \$0-aGainG; #X obj 872 246 r~ \$0-aGainG; #X obj 758 498 *~ 0.1; #X obj 723 340 +~ 90; #X obj 723 363 /~ 360; #X obj 723 409 *~; #X obj 723 385 sin~; #X obj 773 359 /~ 360; #X obj 773 405 *~; #X obj 773 381 cos~; #X obj 758 436 *~; #X text 763 12 Azimuth; #X text 662 14 Elevation; #X obj 665 32 inlet; #X obj 767 30 inlet; #X floatatom 665 79 5 0 0 0 - - -; #X floatatom 767 79 5 0 0 0 - - -; #X obj 773 294 r \$0-this_azim; #X obj 670 55 s \$0-this_elev; #X obj 774 55 s \$0-this_azim; #X obj 525 129 r \$0-this_elev; #X obj 574 51 s \$0-thisDist; #X obj 887 268 r \$0-thisDist; #X obj 411 135 r \$0-thisDist; #X obj 887 292 *; #X obj 887 317 * 4.05513e+07; #X text 892 335 Speed of Sound to power 3; #X obj 887 370 * 32; #X obj 887 398 sig~; #X obj 872 423 /~; #X text 595 191 Remember - Goldstein moves cylinder; #X obj 525 194 /~ 360; #X obj 758 475 *~; #X obj 478 51 s~ \$0-thisColL; #X obj 270 150 r~ \$0-thisColL; #X obj 270 190 *~ 1; #X obj 219 210 *~; #X obj 478 28 inlet~; #X obj 234 495 sin~; #N canvas 801 264 426 401 aveTimeCal 0; #X text 224 38 Elevation; #X obj 226 56 r \$0-elev; #X floatatom 240 81 5 0 0 0 - - -; #X obj 205 17 r~ MY_MACH; #X obj 226 135 cos; #X obj 226 107 * 0.01745; #X obj 205 158 *~ 1; #X obj 161 131 sig~ 1; #X obj 161 185 -~; #X obj 121 104 r~ \$0-myFreq; #X obj 106 82 sig~ 6.28318; #X obj 106 128 /~; #X obj 106 219 *~; #X obj 36 204 r myMet; #X obj 106 242 snapshot~; #X obj 106 263 * 44100; #X obj 106 292 outlet; #X floatatom 158 291 0 0 0 0 - - -; #X connect 1 0 2 0; #X connect 1 0 5 0; #X connect 3 0 6 0; #X connect 4 0 6 1; #X connect 5 0 4 0; #X connect 6 0 8 1; #X connect 7 0 8 0; #X connect 8 0 12 1; #X connect 9 0 11 1; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 12 0 14 0; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 15 0 17 0; #X restore 268 15 pd aveTimeCal; #X obj 219 122 line~; #X obj 525 173 line~; #X obj 723 273 r \$0-this_elev; #X obj 723 317 line~; #X msg 723 295 \$1 5; #X msg 525 151 \$1 5; #X obj 773 338 line~; #X msg 773 316 \$1 5; #X obj 332 402 r \$0-this_azim; #X obj 234 401 r \$0-this_elev; #X obj 234 445 line~; #X msg 234 423 \$1 5; #X obj 332 446 line~; #X msg 332 424 \$1 5; #X msg 219 100 \$1 5; #X obj 219 317 /~ 400; #X text -53 316 Scale factor to bring in line with CFD calcs; #X obj 559 214 r~ MY_MACH; #X obj 559 406 r myMet; #X obj 559 429 snapshot~; #X floatatom 559 453 0 0 0 0 - - -; #X floatatom 265 294 5 0 0 0 - - -; #X floatatom 311 117 0 0 0 0 - - -; #X obj 219 59 average~ 1000; #X connect 0 0 2 0; #X connect 1 0 2 1; #X connect 2 0 91 0; #X connect 3 0 44 0; #X connect 8 0 1 0; #X connect 8 0 1 1; #X connect 9 0 118 0; #X connect 11 0 90 1; #X connect 12 0 5 0; #X connect 12 0 76 0; #X connect 15 0 17 1; #X connect 15 0 116 0; #X connect 17 0 110 0; #X connect 18 0 93 0; #X connect 19 0 20 1; #X connect 20 0 43 0; #X connect 21 0 24 0; #X connect 21 0 30 0; #X connect 22 0 25 0; #X connect 22 0 31 0; #X connect 23 0 26 0; #X connect 23 0 32 0; #X connect 36 0 54 0; #X connect 36 0 55 0; #X connect 37 0 17 0; #X connect 40 0 42 0; #X connect 41 0 43 1; #X connect 42 0 41 0; #X connect 42 0 41 1; #X connect 43 0 13 0; #X connect 44 0 46 0; #X connect 46 0 52 0; #X connect 47 0 48 0; #X connect 48 0 50 1; #X connect 49 0 50 0; #X connect 50 0 51 0; #X connect 51 0 53 1; #X connect 52 0 53 0; #X connect 53 0 54 1; #X connect 54 0 20 0; #X connect 56 0 84 0; #X connect 57 0 14 0; #X connect 58 0 59 0; #X connect 59 0 61 0; #X connect 60 0 65 0; #X connect 61 0 60 0; #X connect 61 0 60 1; #X connect 62 0 64 0; #X connect 63 0 65 1; #X connect 64 0 63 0; #X connect 64 0 63 1; #X connect 65 0 87 0; #X connect 68 0 70 0; #X connect 68 0 73 0; #X connect 69 0 71 0; #X connect 69 0 74 0; #X connect 72 0 102 0; #X connect 75 0 100 0; #X connect 77 0 79 0; #X connect 77 0 79 1; #X connect 78 0 3 0; #X connect 78 0 3 1; #X connect 79 0 80 0; #X connect 80 0 82 0; #X connect 82 0 83 0; #X connect 83 0 84 1; #X connect 84 0 87 1; #X connect 86 0 47 0; #X connect 87 0 57 0; #X connect 89 0 90 0; #X connect 90 0 91 1; #X connect 91 0 37 0; #X connect 92 0 88 0; #X connect 93 0 19 0; #X connect 93 0 19 1; #X connect 95 0 0 0; #X connect 96 0 86 0; #X connect 97 0 99 0; #X connect 99 0 98 0; #X connect 100 0 96 0; #X connect 101 0 62 0; #X connect 102 0 101 0; #X connect 103 0 108 0; #X connect 104 0 106 0; #X connect 105 0 18 0; #X connect 106 0 105 0; #X connect 107 0 40 0; #X connect 108 0 107 0; #X connect 109 0 95 0; #X connect 110 0 36 0; #X connect 112 0 48 1; #X connect 113 0 114 0; #X connect 114 0 115 0; #X connect 118 0 109 0; #X connect 118 0 117 0; #X restore 313 307 pd GoldfreqGain; #N canvas 300 30 1006 797 GoldnoiseGain 0; #X text -21037 364 Mass Density of Air \, squared; #X obj -20777 459 *; #X text -20777 412 Distance; #N canvas 759 125 235 275 pow8 0; #X obj 47 67 *~; #X obj 76 67 *~; #X obj 76 35 inlet~; #X obj 47 147 outlet~; #X obj 128 146 snapshot~; #X obj 128 121 metro 100; #X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 128 173 10 0 0 0 - - -; #X obj 128 73 loadbang; #X obj 47 93 *~; #X obj 47 121 *~; #X connect 0 0 9 0; #X connect 1 0 9 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 7 0; #X connect 5 0 4 0; #X connect 6 0 5 0; #X connect 8 0 6 0; #X connect 9 0 10 0; #X connect 9 0 10 1; #X connect 10 0 3 0; #X connect 10 0 4 0; #X restore -20846 224 pd pow8; #X obj -20846 137 inlet~; #X obj -20807 286 inlet; #X obj -20777 433 inlet; #X obj -20861 617 outlet~; #X text -20858 648 Gain proportional to windspeed to power 8 for spectrum ; #X text -20771 287 Diameter; #X text -20847 118 Wind speed; #X text -21027 627 Calculates wake gain; #X text -20399 16 Azimuth; #X obj -20398 33 inlet; #X obj -20342 33 inlet; #X text -20343 16 Elevation; #X floatatom -20304 57 5 0 0 0 - - -; #X floatatom -20470 58 5 0 0 0 - - -; #X obj -20398 117 s~ \$0-this_azim; #X obj -20342 95 s~ \$0-this_elev; #X obj -20861 371 *~ 1.225; #X obj -20587 239 r~ \$0-this_azim; #N canvas 759 125 250 309 pow5 0; #X obj 47 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 47 87 *~; #X obj 47 118 *~; #X connect 0 0 8 0; #X connect 0 0 8 1; #X connect 1 0 0 0; #X connect 1 0 0 1; #X connect 1 0 9 1; #X connect 3 0 6 0; #X connect 4 0 3 0; #X connect 5 0 4 0; #X connect 7 0 5 0; #X connect 8 0 9 0; #X connect 9 0 2 0; #X connect 9 0 3 0; #X restore -20705 475 pd pow5; #X obj -20705 451 sig~ 343.56; #N canvas 875 261 250 309 pow5 0; #X obj 47 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 47 87 *~; #X obj 47 118 *~; #X connect 0 0 8 0; #X connect 0 0 8 1; #X connect 1 0 0 0; #X connect 1 0 0 1; #X connect 1 0 9 1; #X connect 3 0 6 0; #X connect 4 0 3 0; #X connect 5 0 4 0; #X connect 7 0 5 0; #X connect 8 0 9 0; #X connect 9 0 2 0; #X connect 9 0 3 0; #X restore -20670 401 pd pow5; #X obj -20624 216 /~ 360; #X obj -20624 243 cos~; #X obj -20624 349 *~; #X obj -20670 348 sig~ 1; #X obj -20670 375 -~; #X obj -20705 322 sig~ 3.1416; #X obj -20705 347 *~; #X obj -20720 299 sig~ 16; #X obj -20720 371 *~; #X obj -20720 429 *~; #X obj -20720 502 *~; #X obj -20777 530 *~; #X obj -20861 574 /~; #X obj -20624 194 -~; #X text -20533 187 Angle goes with the flow in Goldstein hence 90 - theta so that theta is same angle as dipole angles.; #X obj -20624 149 sig~ 180; #X obj -20609 172 r~ \$0-this_elev; #X obj -20916 137 inlet~; #X obj -20916 164 *~; #X obj -20828 253 inlet~; #X obj -20828 312 *~ 1; #X obj -20861 251 *~; #X obj -20861 347 *~; #X obj -20809 392 inlet; #X obj -20861 444 *~ 1; #X obj -20861 528 *~ 2.50663; #X text -20782 254 Corrolation Length; #X text -20806 371 Length; #X obj -20846 159 average~ 64; #N canvas 801 264 426 401 aveTimeCal 0; #X text 224 38 Elevation; #X obj 226 56 r \$0-elev; #X floatatom 240 81 5 0 0 0 - - -; #X obj 205 17 r~ MY_MACH; #X obj 226 135 cos; #X obj 226 107 * 0.01745; #X obj 205 158 *~ 1; #X obj 161 131 sig~ 1; #X obj 161 185 -~; #X obj 121 104 r~ \$0-myFreq; #X obj 106 82 sig~ 6.28318; #X obj 106 128 /~; #X obj 106 219 *~; #X obj 36 204 r myMet; #X obj 106 242 snapshot~; #X floatatom 44 283 0 0 0 0 - - -; #X obj 106 263 * 44100; #X obj 106 292 outlet; #X connect 1 0 2 0; #X connect 1 0 5 0; #X connect 3 0 6 0; #X connect 4 0 6 1; #X connect 5 0 4 0; #X connect 6 0 8 1; #X connect 7 0 8 0; #X connect 8 0 12 1; #X connect 9 0 11 1; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 12 0 14 0; #X connect 13 0 14 0; #X connect 14 0 16 0; #X connect 16 0 15 0; #X connect 16 0 17 0; #X restore -20766 139 pd aveTimeCal; #X obj -20846 203 line~; #X msg -20846 181 \$1 5; #X obj -20342 75 line~; #X msg -20342 53 \$1 5; #X obj -20777 502 line~; #X msg -20777 480 \$1 5; #X obj -20398 86 line~; #X msg -20398 64 \$1 5; #X obj -20587 285 cos~; #X obj -20861 595 *~ 1; #X obj -20587 262 /~ 360; #X obj -20624 306 *~; #X text -21131 486 Scale factor to bring in line with CFD calcs; #X text -20929 530 Sqrt(2*pi); #X obj -20609 328 r~ MY_MACH; #X obj -20861 488 /~ 10000; #X connect 1 0 60 0; #X connect 3 0 46 1; #X connect 4 0 53 0; #X connect 5 0 45 1; #X connect 6 0 1 0; #X connect 6 0 1 1; #X connect 13 0 17 0; #X connect 13 0 62 0; #X connect 14 0 16 0; #X connect 14 0 58 0; #X connect 20 0 49 0; #X connect 21 0 65 0; #X connect 22 0 35 1; #X connect 23 0 22 0; #X connect 24 0 34 1; #X connect 25 0 26 0; #X connect 26 0 66 0; #X connect 27 0 29 1; #X connect 28 0 29 0; #X connect 29 0 24 0; #X connect 30 0 31 0; #X connect 30 0 31 1; #X connect 31 0 33 1; #X connect 32 0 33 0; #X connect 33 0 34 0; #X connect 34 0 35 0; #X connect 35 0 36 1; #X connect 36 0 37 1; #X connect 37 0 64 0; #X connect 38 0 25 0; #X connect 40 0 38 0; #X connect 41 0 38 1; #X connect 42 0 43 0; #X connect 42 0 43 1; #X connect 43 0 46 0; #X connect 44 0 45 0; #X connect 45 0 47 1; #X connect 46 0 47 0; #X connect 47 0 20 0; #X connect 48 0 49 1; #X connect 49 0 70 0; #X connect 50 0 37 0; #X connect 53 0 56 0; #X connect 54 0 53 0; #X connect 55 0 3 0; #X connect 56 0 55 0; #X connect 57 0 19 0; #X connect 58 0 57 0; #X connect 59 0 36 0; #X connect 60 0 59 0; #X connect 61 0 18 0; #X connect 62 0 61 0; #X connect 63 0 66 1; #X connect 64 0 7 0; #X connect 65 0 63 0; #X connect 66 0 27 0; #X connect 69 0 27 1; #X connect 70 0 50 0; #X restore 294 552 pd GoldnoiseGain; #X text 285 599 Calculates the gain of the wake; #X obj 467 82 s \$0-azim; #X obj 542 82 s \$0-elev; #X obj 365 262 r \$0-elev; #X obj 373 283 r \$0-azim; #X obj 387 531 r \$0-elev; #X obj 373 508 r \$0-azim; #N canvas 940 255 444 428 corrLen 0; #X obj 103 71 inlet~; #X obj 88 302 outlet~; #X obj 88 143 *~; #X obj 124 93 sig~ -0.245; #X obj 103 119 pow~; #X text 234 22 Y = 10^b . X^m; #X text 235 40 b = 1.536; #X text 235 56 m = -0.245; #X text 51 364 Equation of line derived from Norberg 2001; #X obj 88 169 max~ 1; #X obj 88 46 sig~ 44.67; #X obj 229 285 r myMet; #X obj 229 308 snapshot~; #X floatatom 228 329 0 0 0 0 - - -; #X obj 88 272 +~; #X obj 104 219 inlet~; #X obj 203 203 r myMet; #X obj 203 226 snapshot~; #X floatatom 202 247 0 0 0 0 - - -; #X obj 104 244 *~ 200; #X connect 0 0 4 0; #X connect 2 0 9 0; #X connect 3 0 4 1; #X connect 4 0 2 1; #X connect 9 0 14 0; #X connect 10 0 2 0; #X connect 11 0 12 0; #X connect 12 0 13 0; #X connect 14 0 1 0; #X connect 14 0 12 0; #X connect 15 0 19 0; #X connect 15 0 17 0; #X connect 16 0 17 0; #X connect 17 0 18 0; #X connect 19 0 14 1; #X restore 956 85 pd corrLen Calc; #X obj 956 62 r~ \$0-myRey; #X obj 956 109 s~ \$0-myCor; #X obj 347 222 r~ \$0-myCor; #X obj 1067 309 hip~; #X obj 320 424 r~ \$0-myCor; #X obj 636 81 max 0.01; #X obj 636 104 min 0.99; #N canvas 125 74 976 679 Dipoles 0; #X obj 225 205 r~ \$0-liftDiGain; #X obj 511 182 r~ \$0-liftDiGain; #X obj 511 204 *~ 0.6; #X obj 381 91 *~ 3; #X obj 369 530 r~ \$0-dragDiGain; #X obj 255 421 *~ 2; #X obj 210 226 *~; #X obj 210 340 throw~ l; #X obj 237 317 throw~ r; #X obj 210 108 vcf~ 3; #X obj 237 273 r \$0-thisPan; #X obj 210 67 r~ \$0-thisNoise; #X obj 480 224 *~; #X obj 480 340 throw~ l; #X obj 507 317 throw~ r; #X obj 480 116 vcf~ 3; #X obj 507 274 r \$0-thisPan; #X obj 480 68 r~ \$0-thisNoise; #X obj 354 551 *~; #X obj 354 669 throw~ l; #X obj 381 646 throw~ r; #X obj 354 445 vcf~ 3; #X obj 381 603 r \$0-thisPan; #X obj 354 401 r~ \$0-thisNoise; #X text 273 27 Generates the sound associated with the lift dipole. ; #X text 312 369 Generates the sound associated with the drag dipole. ; #X obj 270 87 r \$0-Qval; #X obj 530 92 r \$0-Qval; #X obj 399 423 r \$0-Qval; #X floatatom 277 122 5 0 0 0 - - -; #X obj 210 134 vcf~ 3; #X obj 480 138 vcf~ 3; #X obj 354 466 vcf~ 3; #X obj 55 12 inlet~; #X obj 55 32 s~ \$0-myAeoFreq; #X obj 109 67 r~ \$0-myAeoFreq; #X obj 381 67 r~ \$0-myAeoFreq; #X obj 254 400 r~ \$0-myAeoFreq; #X obj 210 296 fcpan; #X obj 480 296 fcpan; #X obj 354 625 fcpan; #X obj 161 14 inlet~; #X obj 161 34 s~ \$0-myHist; #X obj 225 155 r~ \$0-myHist; #X obj 495 159 r~ \$0-myHist; #X obj 369 486 r~ \$0-myHist; #X obj 59 140 r myMet; #X obj 59 163 snapshot~; #X floatatom 59 184 0 0 0 0 - - -; #X obj 210 250 spigot~; #X obj 480 249 spigot~; #X obj 354 575 spigot~; #X obj 759 93 inlet; #X obj 210 184 *~ 1; #X obj 480 183 *~ 1; #X obj 354 509 *~ 1; #X connect 0 0 6 1; #X connect 1 0 2 0; #X connect 2 0 12 1; #X connect 3 0 15 1; #X connect 3 0 31 1; #X connect 4 0 18 1; #X connect 5 0 21 1; #X connect 5 0 32 1; #X connect 6 0 49 0; #X connect 9 0 30 0; #X connect 10 0 38 1; #X connect 11 0 9 0; #X connect 12 0 50 0; #X connect 15 0 31 0; #X connect 16 0 39 1; #X connect 17 0 15 0; #X connect 18 0 51 0; #X connect 21 0 32 0; #X connect 22 0 40 1; #X connect 23 0 21 0; #X connect 26 0 9 2; #X connect 26 0 29 0; #X connect 26 0 30 2; #X connect 27 0 15 2; #X connect 27 0 31 2; #X connect 28 0 21 2; #X connect 28 0 32 2; #X connect 30 0 53 0; #X connect 31 0 54 0; #X connect 32 0 55 0; #X connect 33 0 34 0; #X connect 35 0 9 1; #X connect 35 0 30 1; #X connect 35 0 47 0; #X connect 36 0 3 0; #X connect 37 0 5 0; #X connect 38 0 7 0; #X connect 38 1 8 0; #X connect 39 0 13 0; #X connect 39 1 14 0; #X connect 40 0 19 0; #X connect 40 1 20 0; #X connect 41 0 42 0; #X connect 46 0 47 0; #X connect 47 0 48 0; #X connect 49 0 38 0; #X connect 50 0 39 0; #X connect 51 0 40 0; #X connect 52 0 50 1; #X connect 52 0 49 1; #X connect 52 0 51 1; #X connect 53 0 6 0; #X connect 54 0 12 0; #X connect 55 0 18 0; #X restore 554 694 pd Dipoles; #X obj 1088 69 noise~; #X obj 1088 92 s~ \$0-thisNoise; #X obj 1067 214 r~ \$0-thisNoise; #X text 674 342 the object and environment; #N canvas 308 58 1027 635 StBandwidth 0; #X obj 460 365 swap 1; #X obj 460 391 /; #X obj 460 342 / 100; #X obj 461 434 outlet; #X text 437 453 Q value; #X obj 531 -36 r~ \$0-myRey; #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 653 40 0 0 0 0 - - -; #X floatatom 565 452 0 0 0 0 - - -; #X connect 0 0 1 0; #X connect 0 1 1 1; #X connect 1 0 24 0; #X connect 2 0 0 0; #X connect 5 0 7 0; #X connect 6 0 7 0; #X connect 7 0 15 0; #X connect 7 0 13 0; #X connect 7 0 10 0; #X connect 7 0 8 0; #X connect 7 0 25 0; #X connect 7 0 26 0; #X connect 7 0 27 0; #X connect 8 0 9 0; #X connect 9 0 12 0; #X connect 10 0 8 1; #X connect 11 0 2 0; #X connect 12 0 11 0; #X connect 13 0 14 0; #X connect 14 0 18 0; #X connect 14 0 17 1; #X connect 14 0 17 0; #X connect 15 0 14 1; #X connect 16 0 20 0; #X connect 17 0 16 0; #X connect 18 0 20 1; #X connect 19 0 2 0; #X connect 20 0 19 0; #X connect 24 0 3 0; #X connect 24 0 28 0; #X connect 25 0 13 1; #X connect 26 0 9 1; #X restore 1189 91 pd StBandwidth; #X obj 1189 114 s \$0-Qval; #X obj 1153 257 r myMet; #X obj 1143 278 snapshot~; #X obj 1143 237 r~ \$0-myFreq; #X text 780 18 Mass Density; #X text 720 16 Tension; #N canvas 389 23 542 808 NatFreq 0; #X obj 148 86 inlet; #X obj 109 367 inlet; #X text 137 62 Mass Density; #X text 55 366 Tension; #X obj 163 155 r \$0-diameter; #X floatatom 206 177 0 0 0 0 - - -; #X floatatom 51 416 0 0 0 0 - - -; #X floatatom 191 111 0 0 0 0 - - -; #X obj 163 511 r \$0-leng; #X text 121 669 Natural Frequency; #X text 74 717 Patch that calcultes the natural or fundamental frequency of a string in 1 dimension. Uses f = (1/2l) * sqrt(T/u) where u is the linear mass density.; #X obj 133 646 outlet~; #X msg 148 111 \$1 10; #X obj 148 133 line~; #X msg 163 179 \$1 10; #X obj 163 202 line~; #X obj 163 224 *~ 0.5; #X obj 163 249 *~; #X obj 163 271 *~ 3.14159; #X obj 148 352 *~; #X obj 133 440 /~; #X msg 109 389 \$1 10; #X obj 109 413 line~; #X obj 133 467 sqrt~; #X msg 163 533 \$1 10; #X obj 163 556 line~; #X obj 163 577 *~ 2; #X obj 149 489 sig~ 1; #X obj 149 597 /~; #X obj 133 621 *~; #X obj 67 624 r myMet; #X obj 67 647 snapshot~; #X floatatom 67 670 0 0 0 0 - - -; #X obj 189 374 r myMet; #X obj 189 397 snapshot~; #X floatatom 189 420 0 0 0 0 - - -; #X obj 303 31 r myMet; #X obj 303 54 snapshot~; #X floatatom 303 77 0 0 0 0 - - -; #X obj 207 597 r myMet; #X obj 207 620 snapshot~; #X floatatom 207 643 0 0 0 0 - - -; #X obj 365 29 r myMet; #X obj 365 52 snapshot~; #X floatatom 365 75 0 0 0 0 - - -; #X text 187 441 Linear Density; #X obj 234 224 *~ 0.5; #X obj 234 249 *~; #X obj 234 271 *~ 3.14159; #X obj 234 202 sig~ 0.0266; #X obj 234 305 -~; #X obj 260 305 r myMet; #X obj 260 328 snapshot~; #X floatatom 260 351 0 0 0 0 - - -; #X floatatom 205 532 0 0 0 0 - - -; #X obj 273 423 s~ 0$-linden; #X connect 0 0 7 0; #X connect 0 0 12 0; #X connect 1 0 6 0; #X connect 1 0 21 0; #X connect 4 0 5 0; #X connect 4 0 14 0; #X connect 8 0 24 0; #X connect 8 0 54 0; #X connect 12 0 13 0; #X connect 13 0 19 0; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 16 0 17 1; #X connect 17 0 18 0; #X connect 18 0 19 1; #X connect 19 0 20 1; #X connect 19 0 34 0; #X connect 19 0 55 0; #X connect 20 0 23 0; #X connect 21 0 22 0; #X connect 22 0 20 0; #X connect 23 0 29 0; #X connect 24 0 25 0; #X connect 25 0 26 0; #X connect 26 0 28 1; #X connect 27 0 28 0; #X connect 28 0 29 1; #X connect 28 0 40 0; #X connect 29 0 11 0; #X connect 29 0 31 0; #X connect 30 0 31 0; #X connect 31 0 32 0; #X connect 33 0 34 0; #X connect 34 0 35 0; #X connect 36 0 37 0; #X connect 37 0 38 0; #X connect 39 0 40 0; #X connect 40 0 41 0; #X connect 42 0 43 0; #X connect 43 0 44 0; #X connect 46 0 47 0; #X connect 46 0 47 1; #X connect 47 0 48 0; #X connect 48 0 50 1; #X connect 49 0 46 0; #X connect 50 0 52 0; #X connect 51 0 52 0; #X connect 52 0 53 0; #X restore 746 96 pd NatFreq; #X obj 643 192 r myMet; #X obj 643 215 snapshot~; #X floatatom 643 239 0 0 0 0 - - -; #X obj 746 118 s~ \$0-thisNatF; #X obj 849 90 r myMet; #X obj 849 111 snapshot~; #X floatatom 849 132 0 0 0 0 - - -; #N canvas 983 470 450 300 toneCalc 0; #X obj 101 -1 inlet~; #X obj 144 40 inlet; #X obj 102 228 outlet~; #X obj 161 230 outlet~; #X obj 228 232 outlet~; #X obj 101 64 *~ 1; #X obj 101 134 newStrou; #X obj 101 163 *~; #X obj 101 191 /~ 1; #X text 98 260 Frequency; #X text 161 252 Strouhal No; #X text 281 235 Reynolds No; #X obj 101 23 *~ 67679.6; #X obj 301 128 r myMet; #X obj 301 149 snapshot~; #X floatatom 301 168 0 0 0 0 - - -; #X obj 16 122 sig~ 0.1593; #X obj 219 62 r myMet; #X obj 219 83 snapshot~; #X floatatom 219 102 0 0 0 0 - - -; #X obj 101 94 clip~ 80 1e+06; #X connect 0 0 7 1; #X connect 0 0 12 0; #X connect 1 0 5 1; #X connect 1 0 8 1; #X connect 5 0 4 0; #X connect 5 0 20 0; #X connect 6 0 18 0; #X connect 6 0 7 0; #X connect 6 0 3 0; #X connect 7 0 8 0; #X connect 8 0 2 0; #X connect 12 0 5 0; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 20 0 6 0; #X connect 20 0 14 0; #X restore 709 191 pd toneCalc; #X obj 772 171 r \$0-diameter; #X obj 890 197 r myMet; #X obj 890 220 snapshot~; #X floatatom 890 244 0 0 0 0 - - -; #X obj 1052 359 fcpan; #X obj 1071 676 outlet; #N canvas 32 224 850 673 lockIn 1; #X obj 311 13 inlet~; #X obj 52 80 osc~; #X obj 52 491 throw~ l; #X obj 63 468 throw~ r; #X obj 52 -21 inlet~; #X obj 67 34 inlet~; #X obj 374 68 inlet; #N canvas 40 37 1394 682 SimpHyst 1; #X obj 289 250 sig~ 1; #X obj 304 336 exp~; #X obj 274 382 /~; #X obj 289 357 +~; #X obj 121 338 -~ 1; #X obj 121 358 *~ -1; #X obj 136 180 sig~ 1; #X obj 151 271 exp~; #X obj 121 317 /~; #X obj 136 292 +~; #X obj 194 432 *~; #X obj 121 381 spigot~; #X obj -7 99 r myMet; #X obj -7 120 snapshot~; #X floatatom -7 143 0 0 0 0 - - -; #X obj 72 584 outlet~; #N canvas 0 27 450 362 PlotWrt 0; #X obj 116 303 textfile; #X msg 330 202 clear \, rewind; #X msg 169 202 add \$1; #X msg 116 202 add2 \$1; #X obj 105 92 snapshot~; #X floatatom 119 129 0 0 0 0 - - -; #X obj 198 92 snapshot~; #X floatatom 250 119 0 0 0 0 - - -; #X obj 25 15 inlet~; #X obj 343 45 inlet~; #X obj 105 67 r myMet; #X obj 198 67 r myMet; #X msg 218 202 write hystTest.txt; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 0 0; #X connect 4 0 5 0; #X connect 4 0 3 0; #X connect 6 0 7 0; #X connect 6 0 2 0; #X connect 8 0 4 0; #X connect 9 0 6 0; #X connect 10 0 4 0; #X connect 11 0 6 0; #X connect 12 0 0 0; #X restore -6 583 pd PlotWrt; #X floatatom 103 453 0 0 0 0 - - -; #X floatatom 58 454 0 0 0 0 - - -; #N canvas 0 232 902 701 Hyst1 0; #X obj 318 29 inlet~; #X obj 443 75 snapshot~; #X obj 443 52 r myMet; #X floatatom 490 100 0 0 0 0 - - -; #X floatatom 283 144 0 0 0 0 - - -; #X floatatom 404 145 0 0 0 0 - - -; #X obj 318 78 snapshot~; #X obj 253 54 r myMet; #X floatatom 236 102 0 0 0 0 - - -; #X obj 318 55 delta~; #X obj 427 -21 hsl 128 15 0 2 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 378 25 line~; #X floatatom 450 4 0 0 0 0 - - -; #X obj 318 101 > 0; #X msg 378 4 \$1 50; #X obj 369 100 < 0; #X obj 368 276 - 1; #X obj 368 296 * -1; #X floatatom 425 319 0 0 0 0 - - -; #X text 530 7 If output = 1 at any time then keep it at one until other input = 1; #N canvas 483 126 585 224 accDec 0; #X obj 162 87 r myMet; #X obj 295 30 inlet; #X obj 339 31 inlet; #X obj 162 108 spigot; #X msg 162 129 1; #X obj 224 88 r myMet; #X obj 224 109 spigot; #X msg 224 130 0; #X floatatom 162 151 0 0 0 0 - - -; #X obj 224 152 outlet; #X obj 369 82 r myMet; #X obj 369 103 spigot; #X msg 369 124 1; #X obj 431 83 r myMet; #X obj 431 104 spigot; #X msg 431 125 0; #X obj 431 147 outlet; #X floatatom 369 145 0 0 0 0 - - -; #X connect 0 0 3 0; #X connect 1 0 6 1; #X connect 1 0 11 1; #X connect 2 0 3 1; #X connect 2 0 14 1; #X connect 3 0 4 0; #X connect 4 0 8 0; #X connect 4 0 9 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 7 0 9 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 12 0 16 0; #X connect 12 0 17 0; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 15 0 17 0; #X restore 318 122 pd accDec; #X obj 285 175 spigot; #X obj 336 171 spigot; #X obj 303 222 spigot; #X floatatom 270 291 0 0 0 0 - - -; #X obj 302 290 outlet; #X obj 368 320 outlet; #X obj 336 198 > 1.06; #X obj 507 244 < 0.956; #X obj 303 253 < 0.9; #X connect 0 0 9 0; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 1 0 21 0; #X connect 1 0 22 0; #X connect 2 0 1 0; #X connect 2 0 17 0; #X connect 2 0 29 0; #X connect 6 0 8 0; #X connect 6 0 13 0; #X connect 6 0 15 0; #X connect 7 0 6 0; #X connect 9 0 6 0; #X connect 10 0 14 0; #X connect 10 0 12 0; #X connect 13 0 20 0; #X connect 14 0 11 0; #X connect 15 0 20 1; #X connect 16 0 17 0; #X connect 17 0 18 0; #X connect 17 0 26 0; #X connect 20 0 4 0; #X connect 20 0 21 1; #X connect 20 1 5 0; #X connect 20 1 22 1; #X connect 21 0 23 0; #X connect 22 0 27 0; #X connect 23 0 29 0; #X connect 27 0 23 1; #X connect 29 0 24 0; #X connect 29 0 16 0; #X connect 29 0 25 0; #X restore 58 432 pd Hyst1; #X obj 11 246 sig~ 1; #X obj 26 332 exp~; #X obj -4 378 /~; #X obj 11 353 +~; #X obj -153 333 -~ 1; #X obj -137 180 sig~ 1; #X obj -123 266 exp~; #X obj -153 312 /~; #X obj -138 287 +~; #X obj -19 435 *~; #X obj -50 177 sig~ 1; #X obj -35 264 exp~; #X obj -65 310 /~; #X obj -50 285 +~; #X obj -65 355 +~ 1; #X obj -65 378 spigot~; #X obj -41 408 +~; #X obj 72 495 +~; #X msg 614 64 \$1 20; #X obj 617 43 hsl 128 15 0.01 10 1 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom 658 68 0 0 0 0 - - -; #X obj 621 13 line; #X obj -19 458 spigot~; #X obj -65 333 *~ 0.2; #X obj 291 96 r myMet; #X obj 291 117 snapshot~; #X floatatom 291 138 0 0 0 0 - - -; #X obj 209 382 spigot~; #X obj 209 338 -~ 1; #X obj 209 358 *~ -1; #X obj 224 186 sig~ 1; #X obj 239 271 exp~; #X obj 209 317 /~; #X obj 224 292 +~; #X obj 194 409 +~; #X floatatom 270 160 0 0 0 0 - - -; #X obj 304 291 -~ 1.2; #X obj 26 288 -~ 1.2; #X obj 614 86 line~; #X text 338 1439 Pretty good representation of 'Griffin" plot.; #X text 461 1087 2 pi^3; #X obj 829 225 inlet; #X obj 26 309 *~ 50; #X obj 304 313 *~ 50; #X obj 814 202 inlet; #X obj -35 219 -~ 1.02; #X obj -123 220 -~ 0.92; #X obj -123 242 *~ 33; #X obj -153 353 *~ -1.3; #X obj -35 241 *~ 200; #X obj 239 248 *~ 33; #X msg 566 -22 1.6; #X obj 151 248 *~ 200; #X msg 520 -24 0.4; #X obj 72 560 clip~ 0 1; #X obj 799 112 r \$0-mass; #X obj 799 135 / 1.225; #X msg 799 158 \$1 20; #X obj 799 177 line~; #X obj 507 1040 r~ \$0-str; #X obj 507 1063 *~; #X obj 507 1083 *~ 62.013; #X obj 507 1106 *~; #X obj 507 1251 *~ 1; #X obj 507 1274 *~ -1.05; #X obj 507 1297 exp~; #X obj 507 1322 *~ 1.12; #X obj 506 1344 *~ 1.155; #X obj 570 1345 r myMet; #X obj 570 1368 snapshot~; #X floatatom 570 1389 0 0 0 0 - - -; #X obj 478 1378 *~ -0.5; #X obj 478 1400 +~ 0.5; #X text 853 139 m* = rho_m / rho_f; #X text 562 1315 (A/d) = gamma * 1.12 e ^ (-1.05Sg); #X text 411 1344 gamma = 1.155; #X text 415 1391 Inverted; #X floatatom 874 264 0 0 0 0 - - -; #X obj 829 245 t f b; #X obj 194 454 spigot~; #X obj 814 268 *; #X text 554 1250 Sg = 2 pi^3 St^2 zeta k m*; #X obj 580 1186 *~ 1; #X obj 580 1209 *~ -1.05; #X obj 580 1232 exp~; #X obj 565 1284 /~; #X obj 635 363 r~ \$0-myRey; #X obj 587 363 r myMet; #X obj 587 386 snapshot~; #X floatatom 630 409 0 0 0 0 - - -; #X obj 548 431 spigot~; #X obj 587 409 <= 669; #X obj 443 430 spigot~; #X obj 563 250 r~ \$0-myRey; #X obj 563 293 pow~ 0.36; #X obj 614 271 sig~ 0.36; #X obj 563 314 *~ 0.41; #X obj 563 334 log~ 10; #X obj 613 313 sig~ 10; #X msg 814 289 \$1 20; #X obj 814 308 line~; #X obj 799 331 *~; #X obj 799 371 s~ \$0-myApl; #X obj 458 281 r~ \$0-myApl; #X obj 458 347 *~; #X obj 458 303 *~ -1.29; #X obj 443 408 *~ 0.63; #X obj 443 262 sig~ 1; #X obj 443 324 +~; #X obj 473 324 r~ \$0-myApl; #X obj 443 386 +~; #X obj 563 118 r~ \$0-myApl; #X obj 563 184 *~; #X obj 548 99 sig~ 1; #X obj 548 161 +~; #X obj 578 161 r~ \$0-myApl; #X obj 548 228 +~; #X obj 563 140 *~ -1.12; #X obj 563 205 *~ 0.3; #X obj 458 367 *~ 0.59; #X obj 548 356 *~; #X obj 799 352 clip~ 0 1.5; #X obj 72 516 /~ 1.2; #X obj 482 456 +~; #X obj 239 227 -~ 0.9; #X obj 248 138 < 0.86; #X obj 151 226 -~ 0.89; #X msg 695 0 0.4 10000; #X msg 622 -11 1.6 10000; #X obj -64 142 >= 0.995; #X obj 174 -21 inlet~; #X obj 739 349 r myMet; #X obj 739 372 snapshot~; #X floatatom 739 396 0 0 0 0 - - -; #X floatatom 871 225 0 0 0 0 - - -; #X text 128 583 A/d; #X text 234 594 This patch takes the Reduced Velocity V value \, (\$0-thisU) and calculates the corresponding value of maximum vibration \, A/d. ; #X text -198 62 Sigmoid functions replicating the inital branch of the hysteresis curve.; #X text 151 60 Sigmoid functions replicating the lower branch of the hysteresis curve.; #X text 681 23 Test objects; #X obj -153 374 spigot~; #X text -303 477 By time decent kicks in the other sigmoids will be = 1 therefore the multiplication of the decending sigmoid rather than adding.; #X text 855 199 Damping input; #X text 864 286 Harmonic number; #X text -117 521 Normalises the Hysteresis plot; #X obj 72 538 *~; #X obj 174 3 s~ \$0-thisV; #X obj -30 80 r~ \$0-thisV; #X obj -123 199 r~ \$0-thisV; #X obj -35 197 r~ \$0-thisV; #X obj 26 266 r~ \$0-thisV; #X obj 58 409 r~ \$0-thisV; #X obj -6 560 r~ \$0-thisV; #X obj 151 203 r~ \$0-thisV; #X obj 270 76 r~ \$0-thisV; #X obj 238 205 r~ \$0-thisV; #X obj 304 269 r~ \$0-thisV; #X text 424 241 Low Re route; #X text 468 125 High Re route; #X text 715 422 Clipped to match the range given in Govardhan paper as well as to stop the value exploding after 1.5; #X obj 569 465 r myMet; #X obj 569 488 snapshot~; #X floatatom 569 512 0 0 0 0 - - -; #X connect 0 0 2 0; #X connect 0 0 3 0; #X connect 1 0 3 1; #X connect 2 0 10 1; #X connect 3 0 2 1; #X connect 4 0 5 0; #X connect 5 0 11 0; #X connect 6 0 8 0; #X connect 6 0 9 0; #X connect 7 0 9 1; #X connect 8 0 4 0; #X connect 9 0 8 1; #X connect 10 0 99 0; #X connect 11 0 54 0; #X connect 12 0 13 0; #X connect 13 0 14 0; #X connect 13 0 149 0; #X connect 19 0 18 0; #X connect 19 0 42 1; #X connect 19 1 17 0; #X connect 19 1 99 1; #X connect 20 0 22 0; #X connect 20 0 23 0; #X connect 21 0 23 1; #X connect 22 0 29 1; #X connect 23 0 22 1; #X connect 24 0 68 0; #X connect 25 0 27 0; #X connect 25 0 28 0; #X connect 26 0 28 1; #X connect 27 0 24 0; #X connect 28 0 27 1; #X connect 29 0 42 0; #X connect 30 0 32 0; #X connect 30 0 33 0; #X connect 31 0 33 1; #X connect 32 0 43 0; #X connect 33 0 32 1; #X connect 34 0 35 0; #X connect 35 1 36 1; #X connect 36 0 29 0; #X connect 37 0 142 0; #X connect 38 0 58 0; #X connect 39 0 38 0; #X connect 39 0 40 0; #X connect 41 0 39 0; #X connect 42 1 37 0; #X connect 43 0 34 0; #X connect 44 0 45 0; #X connect 45 0 46 0; #X connect 45 0 145 0; #X connect 47 1 54 1; #X connect 48 0 49 0; #X connect 49 0 47 0; #X connect 50 0 52 0; #X connect 50 0 53 0; #X connect 51 0 53 1; #X connect 52 0 48 0; #X connect 53 0 52 1; #X connect 54 0 10 0; #X connect 56 0 63 0; #X connect 57 0 62 0; #X connect 61 0 97 0; #X connect 61 0 98 0; #X connect 62 0 21 0; #X connect 63 0 1 0; #X connect 64 0 100 0; #X connect 64 0 154 0; #X connect 65 0 69 0; #X connect 66 0 67 0; #X connect 67 0 26 0; #X connect 68 0 160 0; #X connect 69 0 31 0; #X connect 70 0 51 0; #X connect 71 0 41 0; #X connect 72 0 7 0; #X connect 73 0 41 0; #X connect 74 0 15 0; #X connect 74 0 16 1; #X connect 75 0 76 0; #X connect 76 0 77 0; #X connect 77 0 78 0; #X connect 78 0 121 0; #X connect 79 0 80 0; #X connect 79 0 80 1; #X connect 80 0 81 0; #X connect 81 0 82 0; #X connect 82 0 83 0; #X connect 82 0 102 0; #X connect 83 0 84 0; #X connect 84 0 85 0; #X connect 85 0 86 0; #X connect 85 0 105 0; #X connect 86 0 87 0; #X connect 87 0 89 0; #X connect 88 0 89 0; #X connect 89 0 90 0; #X connect 91 0 92 0; #X connect 98 0 100 1; #X connect 98 1 100 0; #X connect 99 1 37 1; #X connect 100 0 119 0; #X connect 102 0 103 0; #X connect 103 0 104 0; #X connect 104 0 105 1; #X connect 105 0 91 0; #X connect 106 0 108 0; #X connect 107 0 108 0; #X connect 108 0 109 0; #X connect 108 0 111 0; #X connect 110 0 143 1; #X connect 111 0 110 1; #X connect 111 0 112 1; #X connect 112 1 143 0; #X connect 113 0 114 0; #X connect 114 0 116 0; #X connect 115 0 114 1; #X connect 116 0 117 0; #X connect 117 0 140 1; #X connect 118 0 117 1; #X connect 119 0 120 0; #X connect 120 0 121 1; #X connect 121 0 141 0; #X connect 123 0 125 0; #X connect 124 0 139 0; #X connect 125 0 128 1; #X connect 126 0 112 0; #X connect 127 0 128 0; #X connect 128 0 130 0; #X connect 129 0 124 0; #X connect 129 0 124 1; #X connect 130 0 126 0; #X connect 131 0 137 0; #X connect 132 0 138 0; #X connect 133 0 134 0; #X connect 134 0 136 0; #X connect 135 0 132 0; #X connect 135 0 132 1; #X connect 136 0 140 0; #X connect 137 0 134 1; #X connect 138 0 136 1; #X connect 139 0 130 1; #X connect 140 0 110 0; #X connect 141 0 122 0; #X connect 141 0 152 0; #X connect 142 0 165 0; #X connect 143 0 165 1; #X connect 143 0 181 0; #X connect 144 0 70 0; #X connect 145 0 11 1; #X connect 145 0 47 1; #X connect 145 0 55 0; #X connect 146 0 72 0; #X connect 147 0 41 0; #X connect 148 0 41 0; #X connect 149 0 35 1; #X connect 149 0 160 1; #X connect 150 0 166 0; #X connect 151 0 152 0; #X connect 152 0 153 0; #X connect 160 0 36 0; #X connect 165 0 74 0; #X connect 167 0 13 0; #X connect 168 0 66 0; #X connect 169 0 65 0; #X connect 170 0 57 0; #X connect 171 0 19 0; #X connect 172 0 16 0; #X connect 173 0 146 0; #X connect 174 0 45 0; #X connect 175 0 144 0; #X connect 176 0 56 0; #X connect 180 0 181 0; #X connect 181 0 182 0; #X restore 311 92 pd SimpHyst; #X obj 311 118 outlet~; #X obj 342 44 inlet; #X obj 52 439 spigot~; #X obj 431 283 inlet; #X obj 392 375 outlet; #X obj 437 375 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 440 308 r myMet; #X obj 392 331 snapshot~; #X obj 392 352 > 0.01; #X obj 52 56 +~; #X obj 52 404 *~ 5e-05; #X obj 71 300 osc~; #X obj 52 343 +~; #X obj 116 207 r mod; #X obj 71 207 inlet~; #X obj 86 252 osc~; #X obj 86 231 *~ 1; #X obj 71 276 +~; #X obj 52 380 *~; #X text 316 -6 V; #X text 12 -42 Fn \, nearest harmonic freq; #X text 79 50 Modulation frequency; #X text 415 69 Harmonic number; #X text 465 285 on/off; #X text 356 24 Damping Parameter; #X text 253 146 A/d - max vibration; #X text 88 187 Difference frequency; #X text 330 396 Indicator as to when in lock-in; #X obj 67 114 change; #X obj 67 159 vline~; #X floatatom -62 221 0 0 0 0 - - -; #X obj 52 2 samphold~; #X obj 103 -18 sig~; #X obj -9 29 snapshot~; #X floatatom -9 50 0 0 0 0 - - -; #X obj 52 184 *~; #X obj -8 8 r myMet; #X obj -23 180 snapshot~; #X floatatom -23 201 0 0 0 0 - - -; #X obj -22 159 r myMet; #X obj -34 221 s \$0-mySwitch; #X obj 134 -19 r \$0-mySwitch; #X obj -62 201 < 0.2; #X floatatom 385 91 0 0 0 0 - - -; #X obj 219 46 snapshot~; #X floatatom 219 67 0 0 0 0 - - -; #X obj 220 25 r myMet; #X obj 535 388 snapshot~; #X floatatom 535 409 0 0 0 0 - - -; #X obj 536 367 r myMet; #X msg 67 136 0.1 150 \, 0.4 150 260; #X obj 71 320 *~ 0.005; #X floatatom 460 355 5 0 0 0 - - -; #X floatatom 510 294 5 0 0 0 - - -; #X obj 392 306 spigot~; #X obj 259 421 snapshot~; #X floatatom 259 442 0 0 0 0 - - -; #X obj 260 400 r myMet; #X msg 434 261 1; #X msg 472 253 0; #X connect 0 0 7 0; #X connect 1 0 43 0; #X connect 4 0 39 0; #X connect 5 0 17 1; #X connect 5 0 52 0; #X connect 6 0 7 2; #X connect 6 0 36 0; #X connect 6 0 51 0; #X connect 7 0 8 0; #X connect 7 0 26 1; #X connect 7 0 62 0; #X connect 9 0 7 1; #X connect 10 0 2 0; #X connect 10 0 3 0; #X connect 11 0 10 1; #X connect 11 0 61 0; #X connect 11 0 62 1; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 15 0 60 0; #X connect 16 0 12 0; #X connect 16 0 13 0; #X connect 17 0 1 0; #X connect 18 0 10 0; #X connect 19 0 59 0; #X connect 20 0 26 0; #X connect 21 0 24 1; #X connect 22 0 24 0; #X connect 22 0 25 0; #X connect 23 0 25 1; #X connect 24 0 23 0; #X connect 25 0 19 0; #X connect 26 0 18 0; #X connect 36 0 58 0; #X connect 37 0 43 1; #X connect 37 0 45 0; #X connect 39 0 41 0; #X connect 39 0 17 0; #X connect 40 0 39 1; #X connect 41 0 42 0; #X connect 43 0 20 0; #X connect 44 0 41 0; #X connect 45 0 46 0; #X connect 45 0 50 0; #X connect 47 0 45 0; #X connect 49 0 40 0; #X connect 50 0 38 0; #X connect 50 0 48 0; #X connect 52 0 53 0; #X connect 54 0 52 0; #X connect 55 0 56 0; #X connect 57 0 55 0; #X connect 58 0 37 0; #X connect 59 0 20 1; #X connect 62 0 15 0; #X connect 62 0 63 0; #X connect 62 1 55 0; #X connect 63 0 64 0; #X connect 65 0 63 0; #X connect 66 0 62 1; #X connect 67 0 62 1; #X restore 747 697 pd lockIn; #X obj 797 717 outlet; #X obj 855 302 r~ \$0-myFreq; #X obj 870 327 r~ \$0-thisNatF; #X obj 855 351 /~; #X obj 882 352 r myMet; #X obj 855 374 snapshot~; #X obj 856 399 + 0.5; #X obj 856 446 i; #X obj 978 674 outlet; #N canvas 93 72 1162 685 modulation 0; #X obj 643 -6 r~ \$0-myFreq; #X obj 658 19 r~ \$0-thisNatF; #X obj 643 43 /~; #X obj 670 44 r myMet; #X obj 643 66 snapshot~; #X floatatom 687 138 0 0 0 0 - - -; #X obj 18 359 -~; #X floatatom 703 91 0 0 0 0 - - -; #X obj 629 -27 r~ \$0-thisNatF; #X floatatom 724 403 0 0 0 0 - - -; #X obj 629 419 osc~; #X obj 629 444 *~; #X obj 690 352 hsl 150 35 1 100 1 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 664 420 line~; #X obj 629 468 outlet~; #X obj 664 304 r mod; #X text 560 494 Calculates the modulation frequency from the difference between the shedding and natural frequency - Van Atta paper.; #X obj 644 114 i; #X obj 644 192 line~; #X obj 629 215 *~; #X msg 644 166 \$1 20; #X msg 664 399 \$1 20; #X obj 109 285 r myMet; #X obj 109 306 snapshot~; #X floatatom 109 325 0 0 0 0 - - -; #X floatatom 673 330 0 0 0 0 - - -; #X obj 579 419 outlet~; #X text 935 428 Difference frequency; #X obj 49 389 r myMet; #X obj 49 410 snapshot~; #X floatatom 49 429 0 0 0 0 - - -; #X obj 644 240 inlet; #X obj -28 293 r~ \$0-thisNatF; #X obj 644 282 line~; #X msg 644 261 \$1 20; #X floatatom 683 259 0 0 0 0 - - -; #X obj 62 207 r myMet; #X obj 62 228 snapshot~; #X floatatom 62 247 0 0 0 0 - - -; #X obj 99 58 r myMet; #X obj 99 79 snapshot~; #X floatatom 99 98 0 0 0 0 - - -; #X obj 45 318 -~; #X obj 45 339 abs~; #X obj -22 333 i; #X obj -44 357 *~ 1; #X floatatom -6 360 0 0 0 0 - - -; #X obj 984 91 inlet; #X obj 963 70 r~ \$0-thisNatF; #X obj 963 111 *~ 1; #X obj 948 134 -~; #X obj 948 155 abs~; #X obj 999 148 r myMet; #X obj 999 169 snapshot~; #X floatatom 999 188 0 0 0 0 - - -; #X obj 939 341 +~; #X floatatom 995 112 0 0 0 0 - - -; #X obj 1045 200 == 0; #X obj 1019 253 spigot~; #X obj 976 346 r myMet; #X obj 976 367 snapshot~; #X floatatom 976 386 0 0 0 0 - - -; #X obj 494 461 r myMet; #X obj 494 482 snapshot~; #X floatatom 494 501 0 0 0 0 - - -; #X obj 629 390 -~; #X obj 519 398 r myMet; #X obj 519 419 snapshot~; #X floatatom 519 438 0 0 0 0 - - -; #X obj 644 89 + 1.5; #X connect 0 0 2 0; #X connect 1 0 2 1; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 4 0 7 0; #X connect 4 0 69 0; #X connect 6 0 29 0; #X connect 8 0 19 0; #X connect 10 0 11 0; #X connect 11 0 14 0; #X connect 11 0 63 0; #X connect 12 0 9 0; #X connect 12 0 21 0; #X connect 13 0 11 1; #X connect 15 0 21 0; #X connect 15 0 25 0; #X connect 17 0 5 0; #X connect 17 0 20 0; #X connect 18 0 19 1; #X connect 19 0 65 0; #X connect 20 0 18 0; #X connect 21 0 13 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 28 0 29 0; #X connect 29 0 30 0; #X connect 31 0 34 0; #X connect 31 0 35 0; #X connect 32 0 45 0; #X connect 33 0 50 0; #X connect 33 0 65 1; #X connect 34 0 33 0; #X connect 36 0 37 0; #X connect 37 0 38 0; #X connect 39 0 40 0; #X connect 40 0 41 0; #X connect 42 0 43 0; #X connect 43 0 6 1; #X connect 43 0 23 0; #X connect 44 0 45 1; #X connect 44 0 46 0; #X connect 45 0 42 1; #X connect 47 0 49 1; #X connect 47 0 56 0; #X connect 48 0 49 0; #X connect 48 0 58 0; #X connect 49 0 50 1; #X connect 50 0 51 0; #X connect 51 0 53 0; #X connect 51 0 55 0; #X connect 52 0 53 0; #X connect 53 0 54 0; #X connect 53 0 57 0; #X connect 55 0 60 0; #X connect 57 0 58 1; #X connect 58 1 55 1; #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 65 0 67 0; #X connect 65 0 10 0; #X connect 65 0 26 0; #X connect 66 0 67 0; #X connect 67 0 68 0; #X connect 69 0 17 0; #X restore 695 473 pd modulation; #X obj 554 487 r~ \$0-myFreq; #X floatatom 931 469 0 0 0 0 - - -; #X obj 502 621 outlet~; #X obj 561 516 outlet~; #N canvas 64 288 949 640 AeolianFreq 0; #X obj 605 102 inlet; #X obj 605 123 > 1; #X obj 126 -69 inlet~; #X obj 228 -71 inlet~; #X obj 492 229 spigot~; #X obj 605 296 outlet~; #X floatatom 605 148 0 0 0 0 - - -; #X obj 352 -66 inlet~; #X obj 507 177 *~; #X obj 492 207 +~; #X obj 670 228 spigot~; #X obj 685 175 *~; #X obj 670 205 -~; #X obj 473 266 r myMet; #X obj 473 289 snapshot~; #X floatatom 473 310 0 0 0 0 - - -; #X obj 716 255 r myMet; #X obj 716 278 snapshot~; #X floatatom 716 299 0 0 0 0 - - -; #X obj 422 -67 r myMet; #X obj 422 -44 snapshot~; #X floatatom 422 -23 0 0 0 0 - - -; #X obj 275 -71 r myMet; #X obj 275 -49 snapshot~; #X floatatom 275 -28 0 0 0 0 - - -; #X obj 65 -70 r myMet; #X obj 65 -47 snapshot~; #X floatatom 65 -26 0 0 0 0 - - -; #X obj 522 148 -~; #X obj 700 148 -~; #X obj 622 -25 hsl 128 15 0 0.5 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 198 -16 sig~ 1; #X obj 228 28 exp~; #X obj 198 74 /~; #X obj 213 49 +~; #X obj 285 123 r myMet; #X obj 285 146 snapshot~; #X floatatom 285 167 0 0 0 0 - - -; #X msg 619 -5 \$1 20; #X obj 619 15 line~; #X floatatom 662 -6 0 0 0 0 - - -; #X obj 198 97 -~ 1; #X obj 199 120 *~ -1; #X obj 126 -46 s~ \$0-AeoF; #X obj 492 65 r~ \$0-AeoF; #X obj 537 127 r~ \$0-AeoF; #X obj 670 63 r~ \$0-AeoF; #X obj 700 104 r~ \$0-AeoF; #X obj 352 -43 s~ \$0-NatF; #X obj 715 125 r~ \$0-NatF; #X obj 522 107 r~ \$0-NatF; #X obj 199 145 s~ \$0-flipVal; #X obj 507 86 r~ \$0-flipVal; #X obj 685 84 r~ \$0-flipVal; #X obj 605 273 +~; #X floatatom 631 123 0 0 0 0 - - -; #X obj 631 325 r myMet; #X obj 631 348 snapshot~; #X floatatom 631 369 0 0 0 0 - - -; #X obj 730 378 outlet; #X obj 228 -42 *~ 2; #X obj 228 -20 -~ 0.05; #X obj 228 5 *~ 60; #X text 642 99 V; #X connect 0 0 1 0; #X connect 0 0 55 0; #X connect 1 0 4 1; #X connect 1 0 6 0; #X connect 1 0 10 1; #X connect 2 0 26 0; #X connect 2 0 43 0; #X connect 3 0 23 0; #X connect 3 0 60 0; #X connect 4 0 14 0; #X connect 4 0 54 0; #X connect 7 0 20 0; #X connect 7 0 48 0; #X connect 8 0 9 1; #X connect 9 0 4 0; #X connect 10 1 17 0; #X connect 10 1 54 1; #X connect 11 0 12 1; #X connect 12 0 10 0; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 16 0 17 0; #X connect 17 0 18 0; #X connect 19 0 20 0; #X connect 20 0 21 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 25 0 26 0; #X connect 26 0 27 0; #X connect 28 0 8 1; #X connect 29 0 11 1; #X connect 30 0 38 0; #X connect 30 0 40 0; #X connect 31 0 33 0; #X connect 31 0 34 0; #X connect 32 0 34 1; #X connect 33 0 41 0; #X connect 34 0 33 1; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 38 0 39 0; #X connect 41 0 42 0; #X connect 42 0 36 0; #X connect 42 0 51 0; #X connect 44 0 9 0; #X connect 45 0 28 1; #X connect 46 0 12 0; #X connect 47 0 29 0; #X connect 49 0 29 1; #X connect 50 0 28 0; #X connect 52 0 8 0; #X connect 53 0 11 0; #X connect 54 0 5 0; #X connect 54 0 57 0; #X connect 56 0 57 0; #X connect 57 0 58 0; #X connect 57 0 59 0; #X connect 60 0 61 0; #X connect 61 0 62 0; #X connect 62 0 32 0; #X restore 554 597 pd AeolianFreq; #X obj 1289 75 inlet; #X obj 816 61 s \$0-mass; #X obj 1073 720 outlet~; #X obj 980 720 outlet~; #X obj 902 134 outlet; #X obj 1124 483 inlet; #X obj 856 424 max 1; #X obj 96 209 r myMet; #X obj 96 232 snapshot~; #X floatatom 96 256 0 0 0 0 - - -; #X text 1255 58 Damping Parameter; #X obj 747 739 s~ \$0-AdVal; #X obj 1043 47 r~ \$0-AdVal; #X obj 582 648 r~ \$0-AdVal; #X obj 581 537 r~ \$0-AdVal; #X obj 613 422 s~ \$0-redVel; #X obj 772 610 r~ \$0-redVel; #X obj 1073 700 r~ \$0-redVel; #X obj 636 402 s~ \$0-lockFreq; #X obj 747 546 r~ \$0-lockFreq; #X obj 608 557 r~ \$0-lockFreq; #X obj 980 699 r~ \$0-lockFreq; #X obj 856 471 s \$0-harmNo; #X obj 978 653 r \$0-harmNo; #X obj 591 360 r \$0-harmNo; #X obj 770 451 r \$0-harmNo; #X obj 1289 96 s \$0-dampPar; #X obj 781 632 r \$0-dampPar; #X obj 789 653 r \$0-harmNo; #X obj 1124 506 s \$0-onOff; #X obj 798 675 r \$0-onOff; #X obj 611 671 r \$0-onOff; #X obj 770 493 s~ \$0-modFreq; #X obj 755 568 r~ \$0-modFreq; #X obj 695 513 s~ \$0-diffFreq; #X obj 764 588 r~ \$0-diffFreq; #X floatatom 755 58 0 0 0 0 - - -; #X floatatom 847 41 0 0 0 0 - - -; #X floatatom 1284 118 0 0 0 0 - - -; #X floatatom 1161 482 0 0 0 0 - - -; #X obj 446 649 r myMet; #X obj 446 672 snapshot~; #X floatatom 446 696 0 0 0 0 - - -; #X msg 1173 657 2; #X floatatom 846 721 0 0 0 0 - - -; #X obj 635 622 s \$0-aeoFreq; #X obj 1071 652 r \$0-aeoFreq; #X obj 635 576 r \$0-redVelCo; #X obj 591 442 s \$0-redVelCo; #N canvas 14 255 747 554 VCalc 0; #X obj 238 173 r~ \$0-thisNatF; #X obj 214 88 r \$0-diameter; #X obj 214 130 line~; #X obj 214 152 *~ 6.28319; #X obj 199 67 r~ \$0-windSpeed; #X obj 199 317 /~; #X obj 199 349 outlet~; #X obj 199 205 /~; #X obj 238 328 outlet~; #X obj 90 336 r myMet; #X obj 90 359 snapshot~; #X floatatom 133 381 0 0 0 0 - - -; #X obj 90 382 outlet; #X obj 253 193 inlet; #X obj 253 236 line~; #X obj 238 291 *~; #X msg 214 108 \$1 20; #X msg 253 215 \$1 15; #X text 54 93 V = u/(2pi.f.d); #X text 290 196 Harmonic Number; #X connect 0 0 15 0; #X connect 1 0 16 0; #X connect 2 0 3 0; #X connect 3 0 7 1; #X connect 4 0 7 0; #X connect 5 0 6 0; #X connect 5 0 10 0; #X connect 7 0 5 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 10 0 12 0; #X connect 13 0 17 0; #X connect 14 0 15 1; #X connect 15 0 5 1; #X connect 15 0 8 0; #X connect 16 0 2 0; #X connect 17 0 14 0; #X restore 591 381 pd VCalc; #X obj 695 445 r \$0-aeoFreq; #X connect 0 0 4 0; #X connect 0 0 32 0; #X connect 3 0 19 0; #X connect 3 0 36 0; #X connect 6 0 94 0; #X connect 8 0 5 0; #X connect 8 0 125 0; #X connect 9 0 99 0; #X connect 11 0 72 0; #X connect 15 0 58 1; #X connect 16 0 58 4; #X connect 17 0 20 0; #X connect 17 0 60 0; #X connect 18 0 21 0; #X connect 18 0 61 0; #X connect 29 0 30 0; #X connect 29 0 35 0; #X connect 39 0 58 0; #X connect 40 0 58 3; #X connect 41 0 58 5; #X connect 45 0 9 0; #X connect 46 0 99 1; #X connect 47 0 86 1; #X connect 47 0 118 0; #X connect 47 0 154 0; #X connect 48 0 86 0; #X connect 48 0 153 0; #X connect 50 0 70 0; #X connect 51 0 50 0; #X connect 52 0 57 1; #X connect 53 0 57 3; #X connect 54 0 57 0; #X connect 55 0 57 2; #X connect 56 0 57 5; #X connect 57 0 38 0; #X connect 57 1 37 0; #X connect 58 0 42 0; #X connect 62 0 57 6; #X connect 63 0 57 7; #X connect 64 0 58 7; #X connect 65 0 58 6; #X connect 66 0 68 0; #X connect 67 0 66 0; #X connect 69 0 57 4; #X connect 70 0 9 1; #X connect 71 0 58 2; #X connect 72 0 73 0; #X connect 73 0 12 0; #X connect 73 0 44 0; #X connect 75 0 76 0; #X connect 77 0 51 0; #X connect 79 0 80 0; #X connect 81 0 82 0; #X connect 82 0 50 1; #X connect 82 0 70 1; #X connect 83 0 82 0; #X connect 86 0 90 0; #X connect 86 0 92 0; #X connect 87 0 88 0; #X connect 88 0 89 0; #X connect 91 0 92 0; #X connect 92 0 93 0; #X connect 92 0 121 0; #X connect 94 0 7 0; #X connect 94 0 88 0; #X connect 94 1 43 0; #X connect 94 2 10 0; #X connect 94 2 97 0; #X connect 95 0 94 1; #X connect 96 0 97 0; #X connect 97 0 98 0; #X connect 99 0 33 0; #X connect 99 1 34 0; #X connect 101 0 128 0; #X connect 101 1 102 0; #X connect 101 1 161 0; #X connect 103 0 105 0; #X connect 104 0 105 1; #X connect 105 0 107 0; #X connect 106 0 107 0; #X connect 107 0 108 0; #X connect 108 0 123 0; #X connect 109 0 113 0; #X connect 109 0 139 0; #X connect 111 0 151 0; #X connect 111 1 149 0; #X connect 112 0 116 0; #X connect 112 0 115 0; #X connect 116 0 74 0; #X connect 116 0 114 0; #X connect 116 0 158 0; #X connect 116 1 162 0; #X connect 117 0 143 0; #X connect 117 0 155 0; #X connect 122 0 146 0; #X connect 122 0 156 0; #X connect 123 0 109 0; #X connect 124 0 125 0; #X connect 125 0 126 0; #X connect 129 0 66 1; #X connect 130 0 74 1; #X connect 131 0 116 1; #X connect 133 0 101 3; #X connect 134 0 119 0; #X connect 136 0 101 0; #X connect 137 0 116 2; #X connect 138 0 120 0; #X connect 140 0 110 0; #X connect 141 0 166 0; #X connect 142 0 111 1; #X connect 144 0 101 4; #X connect 145 0 101 5; #X connect 147 0 101 6; #X connect 148 0 74 2; #X connect 150 0 101 1; #X connect 152 0 101 2; #X connect 157 0 158 0; #X connect 158 0 159 0; #X connect 160 0 100 0; #X connect 163 0 100 0; #X connect 164 0 116 3; #X connect 166 0 165 0; #X connect 166 1 132 0; #X connect 166 2 135 0; #X connect 167 0 111 0;