Mercurial > hg > weather-synthesis-prototyping
changeset 127:b3ebe65683bc
basic Fan model added
author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Wed, 12 Aug 2015 14:18:32 +0100 |
parents | 11f39050c282 |
children | 17d7696c19c5 |
files | .DS_Store Fan Models/angleCalc.pd Fan Models/angleCalcN~.pd Fan Models/angleCalc~.pd Fan Models/arccos.pd Fan Models/arccos~.pd Fan Models/fcpan.pd Fan Models/freqCalc3dCh.pd Fan Models/freqCalcCyl2_D7Mach.pd Fan Models/freqFan2_D7Mach.pd Fan Models/newStrou.pd Fan Models/prop2_D1.pd Fan Models/prop_D2.pd June/.DS_Store |
diffstat | 14 files changed, 2649 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/angleCalc.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,46 @@ +#N canvas 373 91 541 315 10; +#X obj 275 46 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text 255 27 Elevation Angle; +#X obj 204 68 / 360; +#X obj 204 90 * 6.28319; +#X floatatom 79 166 8 0 0 0 - - -; +#X obj 138 69 / 360; +#X obj 138 91 * 6.28319; +#X floatatom 23 72 5 0 0 0 - - -; +#X floatatom 272 70 5 0 0 0 - - -; +#X floatatom 166 207 5 0 0 0 - - -; +#X floatatom 251 239 5 0 0 0 - - -; +#X obj 138 115 cos; +#X obj 204 121 cos; +#X obj 204 185 *; +#X obj 138 139 t f b; +#X obj 136 164 delay 9; +#X obj 204 239 outlet; +#X obj 204 40 inlet; +#X obj 139 42 inlet; +#X obj 26 46 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text 30 28 Azimuth Angle; +#X text 278 129 Create an audio version of this patch; +#X obj 204 210 arccos; +#X connect 0 0 8 0; +#X connect 0 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 12 0; +#X connect 5 0 6 0; +#X connect 6 0 11 0; +#X connect 11 0 14 0; +#X connect 12 0 13 0; +#X connect 13 0 9 0; +#X connect 13 0 22 0; +#X connect 14 0 13 1; +#X connect 14 0 4 0; +#X connect 14 1 15 0; +#X connect 15 0 13 0; +#X connect 17 0 2 0; +#X connect 18 0 5 0; +#X connect 19 0 7 0; +#X connect 19 0 5 0; +#X connect 22 0 16 0; +#X connect 22 0 10 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/angleCalcN~.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,43 @@ +#N canvas 446 246 615 451 10; +#X obj 337 174 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3600 1; +#X text 336 155 Elevation Angle; +#X floatatom 175 108 8 0 0 0 - - -; +#X floatatom 373 200 5 0 0 0 - - -; +#X obj 198 82 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 4000 1; +#X text 202 64 Azimuth Angle; +#X obj 273 109 inlet~; +#X obj 288 200 inlet~; +#X obj 273 131 /~ 360; +#X obj 288 223 /~ 360; +#X obj 288 249 cos~; +#X obj 273 271 *~; +#X obj 273 296 arccos~; +#X obj 273 325 outlet~; +#X obj 238 108 sig~; +#X obj 334 200 sig~; +#X obj 328 264 loadbang; +#X obj 328 285 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 328 303 metro 10; +#X obj 328 324 snapshot~; +#X floatatom 328 344 8 0 0 0 - - -; +#X obj 273 167 cos~; +#X connect 0 0 3 0; +#X connect 0 0 15 0; +#X connect 4 0 2 0; +#X connect 4 0 14 0; +#X connect 6 0 8 0; +#X connect 7 0 9 0; +#X connect 8 0 21 0; +#X connect 9 0 10 0; +#X connect 10 0 11 1; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 12 0 19 0; +#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 21 0 11 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/angleCalc~.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,97 @@ +#N canvas 711 342 677 520 10; +#X obj 464 162 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text 463 143 Elevation Angle; +#X floatatom 152 121 8 0 0 0 - - -; +#X floatatom 500 188 5 0 0 0 - - -; +#X obj 175 95 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 5000 1; +#X text 179 77 Azimuth Angle; +#X obj 250 122 inlet~; +#X obj 415 188 inlet~; +#X obj 250 144 /~ 360; +#X obj 415 211 /~ 360; +#X obj 415 237 cos~; +#X obj 313 320 *~; +#X obj 313 345 arccos~; +#X obj 313 374 outlet~; +#X obj 215 121 sig~; +#X obj 461 188 sig~; +#X obj 368 313 loadbang; +#X obj 368 334 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 368 352 metro 10; +#X obj 368 373 snapshot~; +#X floatatom 368 393 8 0 0 0 - - -; +#X obj 88 112 loadbang; +#X obj 88 133 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 88 151 metro 10; +#X obj 88 172 snapshot~; +#X floatatom 49 193 5 0 0 0 - - -; +#X obj 88 198 > 0; +#X floatatom 92 236 5 0 0 0 - - -; +#X obj 249 210 spigot~; +#X obj 225 270 -~; +#X obj 240 247 r~ MY_MACH; +#X obj 328 232 r~ MY_MACH; +#X obj 116 291 loadbang; +#X obj 116 312 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 116 330 metro 10; +#X obj 116 351 snapshot~; +#X floatatom 116 371 8 0 0 0 - - -; +#X obj 470 303 loadbang; +#X obj 470 324 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 470 342 metro 10; +#X obj 470 363 snapshot~; +#X floatatom 470 383 8 0 0 0 - - -; +#X obj 250 180 cos~; +#X obj 313 267 +~; +#X obj 234 296 spigot~; +#X obj 289 292 spigot~; +#X connect 0 0 3 0; +#X connect 0 0 15 0; +#X connect 4 0 2 0; +#X connect 4 0 14 0; +#X connect 6 0 8 0; +#X connect 7 0 9 0; +#X connect 8 0 24 0; +#X connect 8 0 42 0; +#X connect 9 0 10 0; +#X connect 10 0 11 1; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 12 0 19 0; +#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 21 0 22 0; +#X connect 22 0 23 0; +#X connect 23 0 24 0; +#X connect 24 0 25 0; +#X connect 24 0 26 0; +#X connect 26 0 27 0; +#X connect 26 0 28 1; +#X connect 26 0 45 1; +#X connect 26 0 44 1; +#X connect 28 0 29 0; +#X connect 28 1 43 0; +#X connect 29 0 44 0; +#X connect 30 0 29 1; +#X connect 31 0 43 1; +#X connect 31 0 40 0; +#X connect 32 0 33 0; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 35 0 36 0; +#X connect 37 0 38 0; +#X connect 38 0 39 0; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 42 0 28 0; +#X connect 43 0 45 0; +#X connect 44 0 11 0; +#X connect 45 1 11 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/arccos.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,30 @@ +#N canvas 88 45 313 368 10; +#X obj 112 255 * 360; +#X floatatom 159 306 5 0 0 0 - - -; +#X obj 112 279 / 6.28319; +#X obj 70 47 *; +#X obj 70 79 swap 1; +#X obj 70 112 -; +#X obj 70 141 sqrt; +#X obj 112 172 /; +#X obj 112 200 atan; +#X obj 112 226 * 2; +#X text 152 108 Arccos of angle; +#X obj 127 48 + 1; +#X obj 112 306 outlet; +#X obj 70 20 inlet; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X connect 2 0 12 0; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 4 1 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 0 0; +#X connect 11 0 7 1; +#X connect 13 0 3 1; +#X connect 13 0 3 0; +#X connect 13 0 11 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/arccos~.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,39 @@ +#N canvas 177 186 443 430 10; +#X obj 162 73 inlet~; +#X obj 162 108 *~; +#X obj 197 107 +~ 1; +#X obj 147 136 -~; +#X obj 113 109 sig~ 1; +#X obj 147 163 sqrt~; +#X obj 182 193 /~; +#X obj 182 221 atan~; +#X obj 182 248 *~ 2; +#X obj 69 236 loadbang; +#X obj 69 259 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 69 280 metro 10; +#X obj 69 303 snapshot~; +#X floatatom 69 327 5 0 0 0 - - -; +#X obj 182 339 outlet~; +#X obj 182 272 *~ 360; +#X obj 182 294 /~ 3.14159; +#X obj 182 315 /~ 2; +#X connect 0 0 1 0; +#X connect 0 0 1 1; +#X connect 0 0 2 0; +#X connect 1 0 3 1; +#X connect 2 0 6 1; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 15 0; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 15 0 16 0; +#X connect 16 0 17 0; +#X connect 17 0 14 0; +#X connect 17 0 12 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/fcpan.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,25 @@ +#N canvas 316 389 443 292 10; +#X obj 64 123 *~; +#X obj -4 123 *~; +#X obj 80 77 cos~; +#X obj 80 40 -~ 0.25; +#X obj 80 18 *~ 0.25; +#X obj 12 101 cos~; +#X obj 12 77 -~ 0.25; +#X obj -4 146 outlet~ l; +#X obj 64 146 outlet~ r; +#X obj -4 -4 inlet~; +#X obj 80 -4 sig~; +#X obj 80 -36 inlet; +#X connect 0 0 8 0; +#X connect 1 0 7 0; +#X connect 2 0 0 1; +#X connect 3 0 2 0; +#X connect 3 0 6 0; +#X connect 4 0 3 0; +#X connect 5 0 1 1; +#X connect 6 0 5 0; +#X connect 9 0 1 0; +#X connect 9 0 0 0; +#X connect 10 0 4 0; +#X connect 11 0 10 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/freqCalc3dCh.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,187 @@ +#N canvas 194 23 1270 805 10; +#X obj -184 362 snapshot~; +#X obj -184 315 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -241 395 hsl 128 15 0 20000 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom -244 421 8 0 0 0 - - -; +#X obj -184 337 metro 1; +#X obj -111 390 outlet~; +#X obj -184 281 loadbang; +#X obj -111 335 *~ 1; +#X obj -39 182 r circum; +#X msg -112 237 1; +#X obj -112 284 +~ 1; +#X obj -111 309 *~ 0.5; +#X obj -112 260 sig~; +#X obj -54 47 r fineRPM; +#X obj -39 70 r coarseRPM; +#X obj -54 130 +; +#X obj -39 89 t f b; +#X floatatom -103 184 5 0 0 0 - - -; +#X obj -12 110 delay 9; +#X obj -54 251 *; +#X floatatom -32 281 5 0 0 0 - - -; +#X obj -39 204 t f b; +#X obj -12 225 delay 9; +#X obj -112 215 loadbang; +#X obj -54 157 / 60; +#X text -10 159 Revs / sec; +#X obj 170 182 osc~; +#X obj 730 50 r obsAzim; +#X obj 82 407 snapshot~; +#X obj 82 364 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 25 440 hsl 128 15 -10 10 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 7113 1; +#X floatatom 69 467 8 0 0 0 - - -; +#X obj 82 383 metro 1; +#X obj 82 341 loadbang; +#X obj 170 212 *~ 1; +#X obj 171 300 *~ 1; +#X obj 192 272 r bladeRadius; +#X obj 802 55 r obsElev; +#X obj 218 327 sig~; +#X obj 172 391 +~; +#X obj 187 327 abs~; +#X obj 187 348 +~; +#X obj 218 304 r obsDist; +#X obj 172 416 outlet~; +#X obj 686 22 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5800 1; +#X obj 820 22 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 4900 1; +#X text 823 1 Elevation Angle; +#X obj 820 79 / 360; +#X obj 820 101 * 6.28319; +#X floatatom 685 172 5 0 0 0 - - -; +#X obj 729 77 / 360; +#X obj 729 99 * 6.28319; +#X floatatom 667 76 5 0 0 0 - - -; +#X floatatom 887 69 5 0 0 0 - - -; +#X floatatom 713 251 5 0 0 0 - - -; +#X floatatom 926 311 5 0 0 0 - - -; +#X obj 37 37 /; +#X obj 820 263 /; +#X obj 729 123 cos; +#X obj 729 149 *; +#X obj 820 132 cos; +#X obj 820 232 *; +#X obj 729 173 t f b; +#X obj 727 198 delay 9; +#X obj 753 123 r obsDist; +#X obj 848 233 r obsDist; +#X obj 205 192 / 90; +#X obj 820 313 s \$0_offsetAngle; +#X obj 205 169 r \$0_offsetAngle; +#X obj 768 313 outlet; +#X obj 412 69 inlet; +#X msg 375 60 2; +#X msg 349 78 3; +#X obj 430 115 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 412 115 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 449 115 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 170 243 *~ 1; +#X msg 289 211 -1; +#X msg 253 212 1; +#X obj 468 115 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 412 92 route 0 1 2 3 4; +#X obj -111 369 *~ 1; +#X msg -68 337 0; +#X obj 344 148 s \$0_thisOff; +#X obj -68 311 r \$0_thisOff; +#X obj 429 146 s \$0_thisOn; +#X obj -54 356 r \$0_thisOn; +#X msg -54 380 1; +#X obj 820 287 arccos; +#X connect 0 0 2 0; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 4 0 0 0; +#X connect 6 0 1 0; +#X connect 7 0 0 0; +#X connect 7 0 81 0; +#X connect 8 0 21 0; +#X connect 9 0 12 0; +#X connect 10 0 11 0; +#X connect 11 0 7 0; +#X connect 12 0 10 0; +#X connect 13 0 15 0; +#X connect 14 0 16 0; +#X connect 15 0 24 0; +#X connect 16 0 15 1; +#X connect 16 1 18 0; +#X connect 18 0 15 0; +#X connect 19 0 20 0; +#X connect 19 0 7 1; +#X connect 21 0 19 1; +#X connect 21 1 22 0; +#X connect 22 0 19 0; +#X connect 23 0 9 0; +#X connect 24 0 19 0; +#X connect 24 0 17 0; +#X connect 24 0 26 0; +#X connect 26 0 34 0; +#X connect 27 0 50 0; +#X connect 27 0 44 0; +#X connect 28 0 30 0; +#X connect 29 0 32 0; +#X connect 30 0 31 0; +#X connect 32 0 28 0; +#X connect 33 0 29 0; +#X connect 34 0 76 0; +#X connect 35 0 28 0; +#X connect 35 0 40 0; +#X connect 35 0 39 0; +#X connect 36 0 35 1; +#X connect 37 0 47 0; +#X connect 37 0 45 0; +#X connect 38 0 41 1; +#X connect 39 0 43 0; +#X connect 40 0 41 0; +#X connect 41 0 39 1; +#X connect 42 0 38 0; +#X connect 44 0 52 0; +#X connect 45 0 53 0; +#X connect 47 0 48 0; +#X connect 48 0 60 0; +#X connect 50 0 51 0; +#X connect 51 0 58 0; +#X connect 57 0 88 0; +#X connect 58 0 59 0; +#X connect 59 0 49 0; +#X connect 59 0 62 0; +#X connect 60 0 61 0; +#X connect 61 0 54 0; +#X connect 61 0 57 0; +#X connect 62 0 61 1; +#X connect 62 1 63 0; +#X connect 63 0 61 0; +#X connect 64 0 59 1; +#X connect 65 0 57 1; +#X connect 66 0 34 1; +#X connect 68 0 66 0; +#X connect 70 0 80 0; +#X connect 71 0 80 0; +#X connect 72 0 80 0; +#X connect 73 0 85 0; +#X connect 74 0 83 0; +#X connect 76 0 35 0; +#X connect 77 0 76 1; +#X connect 78 0 76 1; +#X connect 80 0 74 0; +#X connect 80 1 73 0; +#X connect 80 2 75 0; +#X connect 80 3 79 0; +#X connect 81 0 5 0; +#X connect 82 0 81 1; +#X connect 84 0 82 0; +#X connect 86 0 87 0; +#X connect 87 0 81 1; +#X connect 88 0 67 0; +#X connect 88 0 69 0; +#X connect 88 0 55 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/freqCalcCyl2_D7Mach.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,591 @@ +#N canvas 0 23 1347 718 10; +#X text 675 181 Mass Density of Air; +#X text 165 344 Frequency (Hz); +#X obj 782 552 throw~ l; +#X obj 809 529 throw~ r; +#X obj 797 403 osc~; +#X obj 797 182 *~ 1.225; +#X obj 797 257 /~ 1.81e-05; +#X obj 797 212 *~ 1; +#X obj 797 375 /~ 1; +#X floatatom 261 322 10 0 0 0 - - -; +#X obj 797 351 *~; +#X obj 272 -31 inlet; +#X text 830 301 Reynolds Number; +#X text 677 368 Strouhal Number; +#X obj 437 -33 inlet; +#X obj 797 433 *~; +#X text 827 237 Viscosity; +#X obj 576 372 *~ 2; +#X obj 576 399 osc~; +#X obj 576 421 *~; +#X obj 782 462 +~; +#X obj 279 -8 s \$0-diameter; +#X obj 858 181 r \$0-diameter; +#X obj 865 356 r \$0-diameter; +#X obj 189 31 s~ \$0-windSpeed; +#X obj 361 70 r~ \$0-windSpeed; +#X obj 864 333 r~ \$0-windSpeed; +#X obj 797 154 r~ \$0-windSpeed; +#X obj 718 402 s~ \$0-myFreq; +#X obj 576 347 r~ \$0-myFreq; +#X obj 189 -11 sig~; +#X obj 189 11 vd~ varwind; +#X obj 189 -35 inlet; +#X obj 1110 161 r~ \$0-myFreq; +#X obj 1022 93 noise~; +#X obj 1070 241 *~; +#X obj 183 144 snapshot~; +#X obj 183 119 metro 100; +#X obj 183 97 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 183 170 10 0 0 0 - - -; +#X obj 183 71 loadbang; +#X obj 97 119 r~ \$0-myRey; +#X obj 810 281 s~ \$0-myRey; +#X obj 1208 154 snapshot~; +#X floatatom 1208 180 10 0 0 0 - - -; +#X obj 1208 81 loadbang; +#X obj 1208 106 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj 1162 -17 r~ \$0-myRey; +#X text 168 192 Reynolds Number; +#X obj 1076 188 vcf~ 1000 10; +#X obj 782 505 fcpan; +#X obj 1208 129 metro 10; +#X obj 685 -37 inlet; +#X floatatom 630 32 8 0 0 0 - - -; +#X obj 685 -13 max 0.1; +#X obj 685 10 min 0.9; +#X text 606 266 Calculates the frequency; +#X text 607 278 based on the physics of; +#X text 607 291 the object and environment; +#X obj 365 352 r~ \$0-windSpeed; +#X obj 184 466 snapshot~; +#X obj 184 441 metro 100; +#X obj 184 419 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 184 492 10 0 0 0 - - -; +#X obj 184 393 loadbang; +#N canvas 335 23 1006 797 noiseGain 1; +#X text -21029 166 Mass Density of Air \, squared; +#X text -20589 179 Speed of Sound to power 2; +#X obj -20894 66 *~; +#X obj -20846 107 *~; +#X obj -20846 141 *~ 1; +#X obj -20846 169 *~ 1.50063; +#X obj -20591 133 *; +#X obj -20591 156 * 118033; +#X obj -20846 296 /~ 1; +#X obj -20846 636 *~ 0.27; +#X text -20591 86 Distance; +#X text -21027 643 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 -20846 69 pd pow8; +#X obj -20894 44 inlet~; +#X obj -20846 44 inlet~; +#X obj -20810 118 inlet; +#X obj -20591 107 inlet; +#X obj -20846 679 outlet~; +#X text -20785 63 Gain proportional to windspeed to power 8 for spectrum +; +#X text -20805 102 Diameter; +#X obj -20815 200 inlet; +#X obj -20815 224 *; +#X obj -20846 246 *~ 1; +#X text -20774 199 Length; +#X obj -20829 325 s~ \$0-nGain; +#X text -20741 328 Azimuth; +#X text -20680 290 Elevation; +#X obj -20740 345 inlet; +#X obj -20683 306 inlet; +#X obj -20740 368 sig~; +#X obj -20683 368 sig~; +#X obj -20683 348 spigot; +#X text -20581 312 End Source; +#X obj -20831 456 +~ 90; +#X obj -20831 477 /~ 360; +#X obj -20831 499 cos~; +#X obj -20846 611 *~; +#X obj -20831 523 *~; +#X obj -20631 395 loadbang; +#X obj -20631 416 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20631 434 metro 10; +#X obj -20631 455 snapshot~; +#X floatatom -20631 475 5 0 0 0 - - -; +#X obj -20943 498 loadbang; +#X obj -20943 519 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20943 537 metro 10; +#X obj -20943 558 snapshot~; +#X floatatom -20943 578 8 0 0 0 - - -; +#X msg -20649 372 0; +#X obj -20612 353 t f b; +#X msg -20612 333 0; +#X msg -20612 313 1; +#X obj -20787 455 +~ 90; +#X obj -20787 476 /~ 360; +#X obj -20787 498 sin~; +#X text -20833 411 Quadrupole; +#X obj -20740 391 angleCalcN~; +#X obj -20846 658 *~ 0.005; +#X text -20992 36 Strouhal number; +#X text -20798 35 Wind speed; +#X text -20580 332 Mid Source; +#X text -20813 430; +#X connect 2 0 3 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 5 0 22 0; +#X connect 6 0 7 0; +#X connect 7 0 8 1; +#X connect 8 0 24 0; +#X connect 8 0 36 0; +#X connect 9 0 57 0; +#X connect 12 0 3 0; +#X connect 13 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 12 0; +#X connect 15 0 4 1; +#X connect 16 0 6 0; +#X connect 16 0 6 1; +#X connect 20 0 21 0; +#X connect 20 0 21 1; +#X connect 21 0 22 1; +#X connect 22 0 8 0; +#X connect 27 0 29 0; +#X connect 28 0 31 0; +#X connect 29 0 56 0; +#X connect 30 0 56 1; +#X connect 31 0 30 0; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 35 0 37 0; +#X connect 36 0 9 0; +#X connect 37 0 36 1; +#X connect 37 0 46 0; +#X connect 38 0 39 0; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 41 0 42 0; +#X connect 43 0 44 0; +#X connect 44 0 45 0; +#X connect 45 0 46 0; +#X connect 46 0 47 0; +#X connect 48 0 30 0; +#X connect 49 0 31 1; +#X connect 49 1 48 0; +#X connect 50 0 49 0; +#X connect 51 0 31 1; +#X connect 52 0 53 0; +#X connect 53 0 54 0; +#X connect 54 0 37 1; +#X connect 56 0 33 0; +#X connect 56 0 41 0; +#X connect 56 0 52 0; +#X connect 57 0 17 0; +#X restore 354 487 pd noiseGain; +#X obj 388 397 r \$0-diameter; +#N canvas 299 77 1040 691 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 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 352 214 pd freqGain; +#X obj 509 -34 inlet; +#X obj 382 109 r \$0-diameter; +#X obj 583 -35 inlet; +#X floatatom 437 14 5 0 0 0 - - -; +#X floatatom 509 12 5 0 0 0 - - -; +#X floatatom 584 9 5 0 0 0 - - -; +#X obj 132 322 outlet; +#X obj 176 295 snapshot~; +#X obj 176 248 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 176 222 loadbang; +#X obj 176 270 metro 10; +#X obj 97 272 r~ \$0-myFreq; +#X text 183 521 Strouhal Number; +#X text 342 273 Calculates the gain of the dipole source; +#X text 345 551 Calculates the gain of the source; +#X text 575 -54 Azimuth; +#X text 690 -55 Pan; +#X text 503 -53 Elevation; +#X text 433 -52 Distance; +#X text 267 -52 Diameter; +#X text 182 -53 Wind Speed; +#X obj 364 -34 inlet; +#X floatatom 364 10 5 0 0 0 - - -; +#X text 360 -53 Length; +#X obj 797 322 newStrou; +#X floatatom 132 5 5 0 0 0 - - -; +#X floatatom 272 13 5 0 0 0 - - -; +#X obj 1070 329 throw~ l; +#X obj 1097 307 throw~ r; +#X obj 1070 285 fcpan; +#X obj 374 -11 s \$0-leng; +#X obj 442 -10 s \$0-dist; +#X obj 516 -12 s \$0-elev; +#X obj 591 -12 s \$0-azim; +#X obj 351 49 r~ \$0-str; +#X obj 372 89 r \$0-leng; +#X obj 393 129 r \$0-azim; +#X obj 403 150 r \$0-elev; +#X obj 414 171 r \$0-dist; +#X obj 415 238 s~ \$0-dragDiGain; +#X obj 352 258 s~ \$0-liftDiGain; +#X obj 354 329 r~ \$0-str; +#X obj 377 373 r \$0-leng; +#X obj 411 440 r \$0-elev; +#X obj 400 417 r \$0-azim; +#X obj 423 463 r \$0-dist; +#X obj 354 532 s~ \$0-liftNoiseGain; +#X obj 609 401 r~ \$0-dragDiGain; +#X obj 691 352 s~ \$0-str; +#X obj 835 403 r~ \$0-liftDiGain; +#X obj 809 476 r \$0-thisPan; +#X obj 685 32 s \$0-thisPan; +#X obj 1043 115 r \$0-contFreq; +#X obj 176 322 s \$0-contFreq; +#X obj 99 441 r~ \$0-str; +#X obj 1085 212 r~ \$0-liftNoiseGain; +#X obj 1097 266 r \$0-thisPan; +#X obj 780 -28 inlet; +#X obj 852 -29 inlet; +#X obj 926 -30 inlet; +#X floatatom 780 19 5 0 0 0 - - -; +#X floatatom 852 17 5 0 0 0 - - -; +#X floatatom 927 14 5 0 0 0 - - -; +#X obj 785 -5 s \$0-rotaX; +#X obj 859 -7 s \$0-rotaY; +#X obj 934 -7 s \$0-rotaZ; +#X text 776 -47 X Rotation; +#X text 846 -48 Y Rotation; +#X text 921 -49 Z Rotation; +#X text 1124 231 Noise spectrum calculation; +#X obj 1022 139 hip~; +#X obj 1061 220 +~; +#X obj 1162 7 *~ -0.001; +#X obj 1162 32 +~ 20; +#X obj 1022 188 *~ 0.015; +#X obj 1162 58 clip~ 1 20; +#X connect 4 0 15 0; +#X connect 5 0 7 0; +#X connect 6 0 42 0; +#X connect 6 0 92 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 94 0; +#X connect 14 0 71 0; +#X connect 14 0 99 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 67 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 93 0; +#X connect 33 0 49 1; +#X connect 34 0 138 0; +#X connect 34 0 49 0; +#X connect 35 0 97 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 51 0; +#X connect 47 0 140 0; +#X connect 49 0 139 1; +#X connect 50 0 2 0; +#X connect 50 1 3 0; +#X connect 51 0 43 0; +#X connect 52 0 54 0; +#X connect 54 0 55 0; +#X connect 55 0 53 0; +#X connect 55 0 119 0; +#X connect 59 0 65 1; +#X connect 60 0 63 0; +#X connect 61 0 60 0; +#X connect 62 0 61 0; +#X connect 64 0 62 0; +#X connect 65 0 114 0; +#X connect 66 0 65 3; +#X connect 67 0 108 0; +#X connect 67 1 107 0; +#X connect 68 0 72 0; +#X connect 68 0 100 0; +#X connect 69 0 67 3; +#X connect 70 0 73 0; +#X connect 70 0 101 0; +#X connect 75 0 74 0; +#X connect 75 0 9 0; +#X connect 75 0 121 0; +#X connect 76 0 78 0; +#X connect 77 0 76 0; +#X connect 78 0 75 0; +#X connect 79 0 75 0; +#X connect 89 0 90 0; +#X connect 89 0 98 0; +#X connect 92 0 10 0; +#X connect 92 0 116 0; +#X connect 97 0 95 0; +#X connect 97 1 96 0; +#X connect 102 0 67 0; +#X connect 103 0 67 2; +#X connect 104 0 67 4; +#X connect 105 0 67 5; +#X connect 106 0 67 6; +#X connect 109 0 65 0; +#X connect 110 0 65 2; +#X connect 111 0 65 5; +#X connect 112 0 65 4; +#X connect 113 0 65 6; +#X connect 115 0 19 1; +#X connect 117 0 15 1; +#X connect 118 0 50 1; +#X connect 120 0 138 1; +#X connect 122 0 60 0; +#X connect 123 0 35 1; +#X connect 124 0 97 1; +#X connect 125 0 128 0; +#X connect 125 0 131 0; +#X connect 126 0 129 0; +#X connect 126 0 132 0; +#X connect 127 0 130 0; +#X connect 127 0 133 0; +#X connect 138 0 142 0; +#X connect 139 0 35 0; +#X connect 140 0 141 0; +#X connect 141 0 143 0; +#X connect 142 0 139 0; +#X connect 143 0 43 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/freqFan2_D7Mach.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,586 @@ +#N canvas 0 22 1366 770 10; +#X text 685 191 Mass Density of Air; +#X text 175 354 Frequency (Hz); +#X obj 792 562 throw~ l; +#X obj 819 539 throw~ r; +#X obj 807 413 osc~; +#X obj 807 192 *~ 1.225; +#X obj 807 267 /~ 1.81e-05; +#X obj 807 222 *~ 1; +#X obj 807 385 /~ 1; +#X floatatom 271 332 10 0 0 0 - - -; +#X obj 807 361 *~; +#X obj 282 -21 inlet; +#X text 840 311 Reynolds Number; +#X text 687 378 Strouhal Number; +#X obj 447 -23 inlet; +#X obj 807 443 *~; +#X text 837 247 Viscosity; +#X obj 586 382 *~ 2; +#X obj 586 409 osc~; +#X obj 586 431 *~; +#X obj 792 472 +~; +#X obj 289 2 s \$0-diameter; +#X obj 868 191 r \$0-diameter; +#X obj 875 366 r \$0-diameter; +#X obj 199 41 s~ \$0-windSpeed; +#X obj 371 80 r~ \$0-windSpeed; +#X obj 874 343 r~ \$0-windSpeed; +#X obj 807 164 r~ \$0-windSpeed; +#X obj 728 412 s~ \$0-myFreq; +#X obj 586 357 r~ \$0-myFreq; +#X obj 1120 171 r~ \$0-myFreq; +#X obj 1032 103 noise~; +#X obj 1080 251 *~; +#X obj 193 154 snapshot~; +#X obj 193 129 metro 100; +#X obj 193 107 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 193 180 10 0 0 0 - - -; +#X obj 193 81 loadbang; +#X obj 107 129 r~ \$0-myRey; +#X obj 820 291 s~ \$0-myRey; +#X obj 1218 164 snapshot~; +#X floatatom 1218 190 10 0 0 0 - - -; +#X obj 1218 91 loadbang; +#X obj 1218 116 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj 1172 -7 r~ \$0-myRey; +#X text 178 202 Reynolds Number; +#X obj 1086 198 vcf~ 1000 10; +#X obj 792 515 fcpan; +#X obj 1218 139 metro 10; +#X obj 695 -27 inlet; +#X floatatom 640 42 8 0 0 0 - - -; +#X obj 695 -3 max 0.1; +#X obj 695 20 min 0.9; +#X text 616 276 Calculates the frequency; +#X text 617 288 based on the physics of; +#X text 617 301 the object and environment; +#X obj 375 362 r~ \$0-windSpeed; +#X obj 194 476 snapshot~; +#X obj 194 451 metro 100; +#X obj 194 429 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 194 502 10 0 0 0 - - -; +#X obj 194 403 loadbang; +#N canvas 335 23 1006 797 noiseGain 0; +#X text -21029 166 Mass Density of Air \, squared; +#X text -20589 179 Speed of Sound to power 2; +#X obj -20894 66 *~; +#X obj -20846 107 *~; +#X obj -20846 141 *~ 1; +#X obj -20846 169 *~ 1.50063; +#X obj -20591 133 *; +#X obj -20591 156 * 118033; +#X obj -20846 296 /~ 1; +#X obj -20846 636 *~ 0.27; +#X text -20591 86 Distance; +#X text -21027 643 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 -20846 69 pd pow8; +#X obj -20894 44 inlet~; +#X obj -20846 44 inlet~; +#X obj -20810 118 inlet; +#X obj -20591 107 inlet; +#X obj -20846 679 outlet~; +#X text -20785 63 Gain proportional to windspeed to power 8 for spectrum +; +#X text -20805 102 Diameter; +#X obj -20815 200 inlet; +#X obj -20815 224 *; +#X obj -20846 246 *~ 1; +#X text -20774 199 Length; +#X obj -20829 325 s~ \$0-nGain; +#X text -20741 328 Azimuth; +#X text -20680 290 Elevation; +#X obj -20740 345 inlet; +#X obj -20683 306 inlet; +#X obj -20740 368 sig~; +#X obj -20683 368 sig~; +#X obj -20683 348 spigot; +#X text -20581 312 End Source; +#X obj -20831 456 +~ 90; +#X obj -20831 477 /~ 360; +#X obj -20831 499 cos~; +#X obj -20846 611 *~; +#X obj -20831 523 *~; +#X obj -20631 395 loadbang; +#X obj -20631 416 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20631 434 metro 10; +#X obj -20631 455 snapshot~; +#X floatatom -20631 475 5 0 0 0 - - -; +#X obj -20943 498 loadbang; +#X obj -20943 519 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20943 537 metro 10; +#X obj -20943 558 snapshot~; +#X floatatom -20943 578 8 0 0 0 - - -; +#X msg -20649 372 0; +#X obj -20612 353 t f b; +#X msg -20612 333 0; +#X msg -20612 313 1; +#X obj -20787 455 +~ 90; +#X obj -20787 476 /~ 360; +#X obj -20787 498 sin~; +#X text -20833 411 Quadrupole; +#X obj -20740 391 angleCalcN~; +#X obj -20846 658 *~ 0.005; +#X text -20992 36 Strouhal number; +#X text -20798 35 Wind speed; +#X text -20580 332 Mid Source; +#X text -20813 430 comment; +#X connect 2 0 3 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 5 0 22 0; +#X connect 6 0 7 0; +#X connect 7 0 8 1; +#X connect 8 0 24 0; +#X connect 8 0 36 0; +#X connect 9 0 57 0; +#X connect 12 0 3 0; +#X connect 13 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 12 0; +#X connect 15 0 4 1; +#X connect 16 0 6 0; +#X connect 16 0 6 1; +#X connect 20 0 21 0; +#X connect 20 0 21 1; +#X connect 21 0 22 1; +#X connect 22 0 8 0; +#X connect 27 0 29 0; +#X connect 28 0 31 0; +#X connect 29 0 56 0; +#X connect 30 0 56 1; +#X connect 31 0 30 0; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 35 0 37 0; +#X connect 36 0 9 0; +#X connect 37 0 36 1; +#X connect 37 0 46 0; +#X connect 38 0 39 0; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 41 0 42 0; +#X connect 43 0 44 0; +#X connect 44 0 45 0; +#X connect 45 0 46 0; +#X connect 46 0 47 0; +#X connect 48 0 30 0; +#X connect 49 0 31 1; +#X connect 49 1 48 0; +#X connect 50 0 49 0; +#X connect 51 0 31 1; +#X connect 52 0 53 0; +#X connect 53 0 54 0; +#X connect 54 0 37 1; +#X connect 56 0 33 0; +#X connect 56 0 41 0; +#X connect 56 0 52 0; +#X connect 57 0 17 0; +#X restore 364 497 pd noiseGain; +#X obj 398 407 r \$0-diameter; +#N canvas 299 77 1040 691 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 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 362 224 pd freqGain; +#X obj 519 -24 inlet; +#X obj 392 119 r \$0-diameter; +#X obj 593 -25 inlet; +#X floatatom 447 24 5 0 0 0 - - -; +#X floatatom 519 22 5 0 0 0 - - -; +#X floatatom 594 19 5 0 0 0 - - -; +#X obj 142 332 outlet; +#X obj 186 305 snapshot~; +#X obj 186 258 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 186 232 loadbang; +#X obj 186 280 metro 10; +#X obj 107 282 r~ \$0-myFreq; +#X text 193 531 Strouhal Number; +#X text 352 283 Calculates the gain of the dipole source; +#X text 355 561 Calculates the gain of the source; +#X text 585 -44 Azimuth; +#X text 700 -45 Pan; +#X text 513 -43 Elevation; +#X text 443 -42 Distance; +#X text 277 -42 Diameter; +#X obj 374 -24 inlet; +#X floatatom 374 20 5 0 0 0 - - -; +#X text 370 -43 Length; +#X obj 807 332 newStrou; +#X floatatom 142 15 5 0 0 0 - - -; +#X floatatom 282 23 5 0 0 0 - - -; +#X obj 1080 339 throw~ l; +#X obj 1107 317 throw~ r; +#X obj 1080 295 fcpan; +#X obj 384 -1 s \$0-leng; +#X obj 452 0 s \$0-dist; +#X obj 526 -2 s \$0-elev; +#X obj 601 -2 s \$0-azim; +#X obj 361 59 r~ \$0-str; +#X obj 382 99 r \$0-leng; +#X obj 403 139 r \$0-azim; +#X obj 413 160 r \$0-elev; +#X obj 424 181 r \$0-dist; +#X obj 425 248 s~ \$0-dragDiGain; +#X obj 362 268 s~ \$0-liftDiGain; +#X obj 364 339 r~ \$0-str; +#X obj 387 383 r \$0-leng; +#X obj 421 450 r \$0-elev; +#X obj 410 427 r \$0-azim; +#X obj 433 473 r \$0-dist; +#X obj 364 542 s~ \$0-liftNoiseGain; +#X obj 619 411 r~ \$0-dragDiGain; +#X obj 701 362 s~ \$0-str; +#X obj 845 413 r~ \$0-liftDiGain; +#X obj 819 486 r \$0-thisPan; +#X obj 695 42 s \$0-thisPan; +#X obj 1053 125 r \$0-contFreq; +#X obj 186 332 s \$0-contFreq; +#X obj 109 451 r~ \$0-str; +#X obj 1095 222 r~ \$0-liftNoiseGain; +#X obj 1107 276 r \$0-thisPan; +#X obj 790 -18 inlet; +#X obj 862 -19 inlet; +#X obj 936 -20 inlet; +#X floatatom 790 29 5 0 0 0 - - -; +#X floatatom 862 27 5 0 0 0 - - -; +#X floatatom 937 24 5 0 0 0 - - -; +#X obj 795 5 s \$0-rotaX; +#X obj 869 3 s \$0-rotaY; +#X obj 944 3 s \$0-rotaZ; +#X text 786 -37 X Rotation; +#X text 856 -38 Y Rotation; +#X text 931 -39 Z Rotation; +#X text 1134 241 Noise spectrum calculation; +#X obj 1032 149 hip~; +#X obj 1071 230 +~; +#X obj 1172 17 *~ -0.001; +#X obj 1172 42 +~ 20; +#X obj 1032 198 *~ 0.015; +#X obj 1172 68 clip~ 1 20; +#X obj 199 -22 inlet~; +#X text 186 -41 Rotation Speed; +#X connect 4 0 15 0; +#X connect 5 0 7 0; +#X connect 6 0 39 0; +#X connect 6 0 88 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 90 0; +#X connect 14 0 68 0; +#X connect 14 0 95 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 47 0; +#X connect 22 0 7 1; +#X connect 23 0 8 1; +#X connect 25 0 64 1; +#X connect 26 0 10 1; +#X connect 27 0 5 0; +#X connect 29 0 17 0; +#X connect 30 0 46 1; +#X connect 31 0 134 0; +#X connect 31 0 46 0; +#X connect 32 0 93 0; +#X connect 33 0 36 0; +#X connect 34 0 33 0; +#X connect 35 0 34 0; +#X connect 37 0 35 0; +#X connect 38 0 33 0; +#X connect 40 0 41 0; +#X connect 40 0 46 2; +#X connect 42 0 43 0; +#X connect 43 0 48 0; +#X connect 44 0 136 0; +#X connect 46 0 135 1; +#X connect 47 0 2 0; +#X connect 47 1 3 0; +#X connect 48 0 40 0; +#X connect 49 0 51 0; +#X connect 51 0 52 0; +#X connect 52 0 50 0; +#X connect 52 0 115 0; +#X connect 56 0 62 1; +#X connect 57 0 60 0; +#X connect 58 0 57 0; +#X connect 59 0 58 0; +#X connect 61 0 59 0; +#X connect 62 0 110 0; +#X connect 63 0 62 3; +#X connect 64 0 104 0; +#X connect 64 1 103 0; +#X connect 65 0 69 0; +#X connect 65 0 96 0; +#X connect 66 0 64 3; +#X connect 67 0 70 0; +#X connect 67 0 97 0; +#X connect 72 0 71 0; +#X connect 72 0 9 0; +#X connect 72 0 117 0; +#X connect 73 0 75 0; +#X connect 74 0 73 0; +#X connect 75 0 72 0; +#X connect 76 0 72 0; +#X connect 85 0 86 0; +#X connect 85 0 94 0; +#X connect 88 0 10 0; +#X connect 88 0 112 0; +#X connect 93 0 91 0; +#X connect 93 1 92 0; +#X connect 98 0 64 0; +#X connect 99 0 64 2; +#X connect 100 0 64 4; +#X connect 101 0 64 5; +#X connect 102 0 64 6; +#X connect 105 0 62 0; +#X connect 106 0 62 2; +#X connect 107 0 62 5; +#X connect 108 0 62 4; +#X connect 109 0 62 6; +#X connect 111 0 19 1; +#X connect 113 0 15 1; +#X connect 114 0 47 1; +#X connect 116 0 134 1; +#X connect 118 0 57 0; +#X connect 119 0 32 1; +#X connect 120 0 93 1; +#X connect 121 0 124 0; +#X connect 121 0 127 0; +#X connect 122 0 125 0; +#X connect 122 0 128 0; +#X connect 123 0 126 0; +#X connect 123 0 129 0; +#X connect 134 0 138 0; +#X connect 135 0 32 0; +#X connect 136 0 137 0; +#X connect 137 0 139 0; +#X connect 138 0 135 0; +#X connect 139 0 40 0; +#X connect 140 0 24 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/newStrou.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,138 @@ +#N canvas 804 381 590 316 10; +#X obj 203 48 inlet~; +#X obj 273 202 outlet~; +#X text 101 20 Reynolds number coming in; +#X text 211 238 Strouhal Number going out; +#N canvas 350 312 1026 531 eqnSelect 0; +#X msg 41 221 0.2684 -1.0356; +#X msg 148 221 0.2437 -0.8607; +#X msg 256 223 0.4291 -3.6735; +#X msg 365 223 0.3274 -2.0569; +#X msg 472 223 0.2257 -0.4402; +#X msg 577 222 0.204 0.3364; +#X msg 686 224 0.1776 2.2023; +#X obj 365 299 unpack; +#X obj 75 164 < 180; +#X obj 181 144 > 180; +#X obj 227 146 < 230; +#X obj 289 149 > 230; +#X obj 335 148 < 240; +#X obj 398 148 > 240; +#X obj 444 149 < 360; +#X obj 505 147 > 360; +#X obj 551 147 < 1300; +#X obj 611 150 > 1300; +#X obj 657 150 < 5000; +#X obj 719 149 > 5000; +#X obj 765 148 < 200000; +#X obj 827 149 > 200000; +#X obj 41 196 spigot; +#X floatatom 286 327 8 0 0 0 - - -; +#X floatatom 455 330 8 0 0 0 - - -; +#X obj 148 198 spigot; +#X obj 194 171 spigot; +#X obj 256 200 spigot; +#X obj 302 173 spigot; +#X obj 365 200 spigot; +#X obj 411 173 spigot; +#X floatatom 546 83 8 0 0 0 - - -; +#X obj 472 198 spigot; +#X obj 518 171 spigot; +#X obj 578 200 spigot; +#X obj 624 173 spigot; +#X obj 686 199 spigot; +#X obj 732 172 spigot; +#X obj 426 67 snapshot~; +#X obj 426 37 inlet~; +#X obj 359 2 loadbang; +#X obj 359 23 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 359 42 metro 10; +#X obj 365 373 outlet~; +#X obj 398 352 outlet~; +#X obj 365 327 sig~; +#X obj 398 327 sig~; +#X text 539 419 This selects the values for the St* and m coefficients +for Fey's formula; +#X text 254 359 St* coefficient; +#X text 462 361 m coefficient; +#X text 372 240 Averaged; +#X connect 0 0 7 0; +#X connect 1 0 7 0; +#X connect 2 0 7 0; +#X connect 3 0 7 0; +#X connect 4 0 7 0; +#X connect 5 0 7 0; +#X connect 6 0 7 0; +#X connect 7 0 23 0; +#X connect 7 0 45 0; +#X connect 7 1 24 0; +#X connect 7 1 46 0; +#X connect 8 0 22 1; +#X connect 8 0 22 0; +#X connect 9 0 25 1; +#X connect 9 0 26 0; +#X connect 10 0 26 1; +#X connect 11 0 28 0; +#X connect 11 0 27 1; +#X connect 12 0 28 1; +#X connect 13 0 29 1; +#X connect 13 0 30 0; +#X connect 14 0 30 1; +#X connect 15 0 32 1; +#X connect 15 0 33 0; +#X connect 16 0 33 1; +#X connect 17 0 34 1; +#X connect 17 0 35 0; +#X connect 18 0 35 1; +#X connect 19 0 36 1; +#X connect 19 0 37 0; +#X connect 20 0 37 1; +#X connect 22 0 0 0; +#X connect 25 0 1 0; +#X connect 26 0 25 0; +#X connect 27 0 2 0; +#X connect 28 0 27 0; +#X connect 29 0 3 0; +#X connect 30 0 29 0; +#X connect 32 0 4 0; +#X connect 33 0 32 0; +#X connect 34 0 5 0; +#X connect 35 0 34 0; +#X connect 36 0 6 0; +#X connect 37 0 36 0; +#X connect 38 0 8 0; +#X connect 38 0 9 0; +#X connect 38 0 10 0; +#X connect 38 0 11 0; +#X connect 38 0 12 0; +#X connect 38 0 13 0; +#X connect 38 0 14 0; +#X connect 38 0 31 0; +#X connect 38 0 15 0; +#X connect 38 0 16 0; +#X connect 38 0 17 0; +#X connect 38 0 18 0; +#X connect 38 0 19 0; +#X connect 38 0 20 0; +#X connect 39 0 38 0; +#X connect 40 0 41 0; +#X connect 41 0 42 0; +#X connect 42 0 38 0; +#X connect 45 0 43 0; +#X connect 46 0 44 0; +#X restore 273 83 pd eqnSelect; +#X obj 203 85 sqrt~; +#X obj 342 119 /~; +#X obj 273 166 +~; +#X text 135 97 sqrt(Re); +#X text 250 114 St*; +#X text 359 101 m; +#X text 376 152 St = St* + m / sqrt(Re); +#X connect 0 0 4 0; +#X connect 0 0 5 0; +#X connect 4 0 7 0; +#X connect 4 1 6 0; +#X connect 5 0 6 1; +#X connect 6 0 7 1; +#X connect 7 0 1 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/prop2_D1.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,439 @@ +#N canvas 161 23 1184 833 10; +#X obj 397 -104 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 460 -104 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X text 457 -195 Gain; +#X obj 396 -221 loadbang; +#N canvas 865 368 284 318 opLevels 0; +#X obj 74 188 dac~; +#X obj 30 70 catch~ l; +#X obj 128 70 catch~ r; +#X obj 129 104 *~ 0.45; +#X obj 30 104 *~ 0.45; +#X obj 30 210 prvu~; +#X obj 129 211 prvu~; +#X obj 186 75 / 127; +#X obj 186 40 inlet; +#X obj 30 239 outlet; +#X obj 129 239 outlet; +#X obj 219 118 inlet; +#X obj 30 152 /~ 1; +#X obj 129 154 /~ 1; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 13 0; +#X connect 4 0 12 0; +#X connect 5 0 9 0; +#X connect 6 0 10 0; +#X connect 7 0 3 1; +#X connect 7 0 4 1; +#X connect 8 0 7 0; +#X connect 11 0 12 1; +#X connect 11 0 13 1; +#X connect 12 0 0 0; +#X connect 12 0 5 0; +#X connect 13 0 0 1; +#X connect 13 0 6 0; +#X restore 396 -147 pd opLevels; +#X msg 396 -198 5; +#N canvas 12 52 684 554 speedCalc 0; +#X obj 59 -12 inlet; +#X obj 135 -11 inlet; +#X obj 217 -12 inlet; +#X obj 317 -12 inlet; +#X obj 59 11 s \$0_swLen; +#X obj 135 11 s \$0_armLen; +#X obj 317 10 s \$0_tipSpeed; +#X obj 141 301 r \$0_tipSpeed; +#X obj 211 437 outlet; +#X obj 211 414 r \$0_minSpeed; +#X obj 126 349 s \$0_minSpeed; +#X obj 310 414 r \$0_deltaSpeed; +#X obj 388 261 s \$0_deltaSpeed; +#X obj 310 437 outlet; +#X obj 84 100 r \$0_swLen; +#X obj 126 280 /; +#X floatatom 80 307 5 0 0 0 - - -; +#X obj 99 123 r \$0_armLen; +#X obj 84 205 +; +#X obj 99 152 t f b; +#X floatatom 40 240 5 0 0 0 - - -; +#X obj 126 207 r \$0_armLen; +#X obj 126 231 t f b; +#X obj 126 177 delay 6; +#X obj 153 256 delay 9; +#X obj 217 11 s \$0_sourceTot; +#X obj 421 202 r \$0_sourceTot; +#X obj 126 325 *; +#X floatatom 84 349 5 0 0 0 - - -; +#X obj 512 119 r \$0_minSpeed; +#X obj 388 202 -; +#X obj 388 158 r \$0_tipSpeed; +#X obj 388 232 /; +#X obj 512 145 t f b; +#X floatatom 343 261 5 0 0 0 - - -; +#X obj 539 170 delay 14; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 25 0; +#X connect 3 0 6 0; +#X connect 7 0 27 1; +#X connect 9 0 8 0; +#X connect 11 0 13 0; +#X connect 14 0 18 0; +#X connect 15 0 16 0; +#X connect 15 0 27 0; +#X connect 17 0 19 0; +#X connect 18 0 20 0; +#X connect 18 0 15 1; +#X connect 19 0 18 1; +#X connect 19 1 23 0; +#X connect 21 0 22 0; +#X connect 22 0 15 0; +#X connect 22 1 24 0; +#X connect 23 0 18 0; +#X connect 24 0 15 0; +#X connect 26 0 32 1; +#X connect 27 0 10 0; +#X connect 27 0 28 0; +#X connect 29 0 33 0; +#X connect 30 0 32 0; +#X connect 31 0 30 0; +#X connect 32 0 34 0; +#X connect 32 0 12 0; +#X connect 33 0 30 1; +#X connect 33 1 35 0; +#X connect 35 0 30 0; +#X restore 246 284 pd speedCalc; +#X floatatom 155 308 8 0 0 0 - - -; +#X floatatom 400 306 8 0 0 0 - - -; +#X obj 246 189 r bladeLen; +#X obj 269 212 r armLength; +#X obj 292 236 r NoOfSources; +#X obj 315 261 r topSpeed; +#X obj -42 -190 hsl 100 20 0 3000 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom -45 -164 8 0 0 0 - - -; +#X obj -42 -112 hsl 100 20 0 300 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj 220 308 s firstSpeed; +#X obj 315 307 s deltaSpeed; +#X floatatom 165 79 8 0 0 0 - - -; +#N canvas 57 585 305 180 thickCalc 0; +#X obj 173 86 r NoOfSources; +#X obj 23 16 inlet; +#X obj 26 64 inlet; +#X obj 26 86 s \$0_tipThick; +#X obj 158 62 -; +#X obj 158 111 /; +#X obj 158 134 outlet; +#X obj 23 39 s \$0_hiltThick; +#X floatatom 126 94 5 0 0 0 - - -; +#X obj 173 40 r \$0_tipThick; +#X obj 158 15 r \$0_hiltThick; +#X floatatom 94 136 8 0 0 0 - - -; +#X connect 0 0 5 1; +#X connect 1 0 7 0; +#X connect 2 0 3 0; +#X connect 4 0 5 0; +#X connect 4 0 8 0; +#X connect 5 0 6 0; +#X connect 5 0 11 0; +#X connect 9 0 4 1; +#X connect 10 0 4 0; +#X restore 225 -16 pd thickCalc; +#X obj 225 7 s deltaThick; +#X floatatom 170 8 8 0 0 0 - - -; +#X obj 225 -61 r hiltThick; +#X obj 294 -39 r tipThick; +#N canvas 447 270 208 198 circumferCalc 0; +#X obj 84 45 inlet; +#X obj 84 69 * 3.14159; +#X floatatom 26 120 8 0 0 0 - - -; +#X obj 84 93 * 2; +#X obj 84 118 outlet; +#X connect 0 0 1 0; +#X connect 1 0 3 0; +#X connect 3 0 2 0; +#X connect 3 0 4 0; +#X restore 222 55 pd circumferCalc; +#X obj 326 148 s deltaCircum; +#N canvas 767 188 758 617 angleCalc 0; +#X floatatom -252 49 8 0 0 0 - - -; +#X obj -194 50 * 0.75; +#X obj 149 51 * 0.25; +#X floatatom 171 76 8 0 0 0 - - -; +#X floatatom -178 72 8 0 0 0 - - -; +#X obj -194 97 /; +#X msg -209 203 1 \$1; +#X obj -209 180 f; +#X floatatom -242 203 5 0 0 0 - - -; +#X obj -209 225 line 0; +#X obj -245 154 r GO; +#X msg -165 203 0; +#X obj -194 121 * 1000; +#X obj 61 290 line 0; +#X obj 61 212 delay \$1; +#X obj 63 154 f; +#X obj 63 111 r GO; +#X obj 63 180 t f b; +#X obj 61 239 i; +#X msg 61 261 1 \$1; +#X msg 139 255 0; +#X obj 149 184 /; +#X obj 149 208 * 1000; +#X obj -209 275 *; +#X obj -157 244 r sweepAngle; +#X obj -206 340 hsl 100 25 0 360 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -160 272 * -0.75; +#X obj -209 299 +; +#X obj -159 297 * -1; +#X obj -179 155 s \$0_thisDe; +#X obj 78 133 r \$0_thisDe; +#X obj 61 328 *; +#X obj 118 295 r sweepAngle; +#X obj 64 380 hsl 100 25 -360 360 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X obj 13 239 s \$0_d; +#X obj 139 233 r GO; +#X obj -194 26 r maxCirc; +#X obj 149 29 r maxCirc; +#X obj -124 70 r topSpeed; +#X obj 164 158 r topSpeed; +#X obj -90 459 s currentAngle; +#X obj -90 413 +; +#X floatatom -90 438 8 0 0 0 - - -; +#X obj -41 392 t f b; +#X obj 280 146 delay \$1; +#X obj 282 88 f; +#X obj 282 62 r GO; +#X obj 282 114 t f b; +#X obj 318 -6 r maxCirc; +#X obj 333 16 r topSpeed; +#X obj 318 40 /; +#X obj 318 62 * 1000; +#X obj 280 168 s end; +#X obj -165 182 r end; +#X floatatom -166 408 8 0 0 0 - - -; +#X obj -41 359 r end; +#X obj 118 318 * -0.25; +#X connect 1 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 3 0; +#X connect 2 0 21 0; +#X connect 5 0 12 0; +#X connect 6 0 9 0; +#X connect 7 0 6 0; +#X connect 7 0 8 0; +#X connect 9 0 23 0; +#X connect 10 0 7 0; +#X connect 11 0 9 0; +#X connect 12 0 7 1; +#X connect 12 0 29 0; +#X connect 13 0 31 0; +#X connect 14 0 18 0; +#X connect 14 0 34 0; +#X connect 15 0 17 0; +#X connect 16 0 15 0; +#X connect 17 0 14 1; +#X connect 17 1 14 0; +#X connect 18 0 19 0; +#X connect 19 0 13 0; +#X connect 20 0 13 0; +#X connect 21 0 22 0; +#X connect 22 0 18 1; +#X connect 23 0 27 0; +#X connect 24 0 26 0; +#X connect 25 0 41 0; +#X connect 25 0 54 0; +#X connect 26 0 28 0; +#X connect 26 0 23 1; +#X connect 27 0 25 0; +#X connect 28 0 27 1; +#X connect 30 0 15 1; +#X connect 31 0 33 0; +#X connect 32 0 56 0; +#X connect 33 0 43 0; +#X connect 35 0 20 0; +#X connect 36 0 0 0; +#X connect 36 0 1 0; +#X connect 37 0 2 0; +#X connect 38 0 5 1; +#X connect 39 0 21 1; +#X connect 41 0 42 0; +#X connect 42 0 40 0; +#X connect 43 0 41 1; +#X connect 43 1 41 0; +#X connect 44 0 52 0; +#X connect 45 0 47 0; +#X connect 46 0 45 0; +#X connect 47 0 44 1; +#X connect 47 1 44 0; +#X connect 48 0 50 0; +#X connect 49 0 50 1; +#X connect 50 0 51 0; +#X connect 51 0 45 1; +#X connect 53 0 11 0; +#X connect 54 0 42 0; +#X connect 55 0 43 0; +#X connect 56 0 31 1; +#X restore 283 -88 pd angleCalc; +#X obj 398 -178 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 390 1; +#X obj -46 195 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5400 1; +#X obj -49 349 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 7800 1; +#X obj -46 274 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 4200 1; +#X text -42 172 Azimuth Angle; +#X text -43 253 Elevation Angle; +#X text -33 328 Distance; +#X floatatom -49 301 5 0 0 0 - - -; +#X floatatom -52 377 5 0 0 0 - - -; +#X floatatom -49 223 5 0 0 0 - - -; +#X obj -48 -37 hsl 100 20 0.5 10 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 6600 1; +#X floatatom -51 -9 5 0 0 0 - - -; +#X obj -50 120 hsl 100 20 0.001 0.1 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 4400 1; +#X floatatom -53 147 5 0 0 0 - - -; +#X text -47 98 Chord Thickness; +#X obj -49 43 hsl 100 20 0 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom -52 68 5 0 0 0 - - -; +#X text -45 21 Chord Pitch; +#X text 558 -218 Vertical propellor; +#X obj 222 32 r bladeRadius; +#X obj -14 -9 s bladeRadius; +#X obj 222 78 s circum; +#X text -48 -133 RMP (Fine); +#X text -46 -210 RMP (Coarse); +#X floatatom -46 -87 8 0 0 0 - - -; +#X obj 9 -87 s fineRPM; +#X obj 10 -164 s coarseRPM; +#X obj -10 223 s obsAzim; +#X obj -9 301 s obsElev; +#X text -39 -59 Blade Radius (m); +#X obj -17 146 s chordTh; +#X obj -9 376 s obsDist; +#X msg 696 107 1; +#X obj 510 -174 hsl 100 25 1 400 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3945 1; +#X obj 166 -181 bng 25 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 166 -152 s setUp; +#X obj 52 -211 r setUp; +#X obj 57 -134 r setUp; +#X obj 65 -60 r setUp; +#X obj 58 23 r setUp; +#X obj 60 96 r setUp; +#X obj 61 175 r setUp; +#X obj 62 248 r setUp; +#X obj 51 326 r setUp; +#X text 89 431 Pan not working on this yet; +#X obj 491 565 s fCRPM; +#X obj 527 527 s fRad; +#X obj 546 508 s fPit; +#X obj 564 489 s fThi; +#X obj 583 470 s fAzi; +#X obj 601 451 s fEle; +#X obj 620 432 s fDis; +#X obj 509 546 s fFRPM; +#X obj -96 -211 r fCRPM; +#X obj -100 -132 r fFRPM; +#X obj -90 -60 r fRad; +#X obj -92 19 r fPit; +#X obj -92 96 r fThi; +#X obj -91 173 r fAzi; +#X obj -94 252 r fEle; +#X obj -93 330 r fDis; +#X obj 491 412 unpack f f f f f f f f; +#X msg 488 362 230 15 5 0 0.04 45 0 35; +#X msg 507 -195 160; +#X obj 581 144 freqCalc3dCh; +#X obj 596 188 r chordTh; +#X obj 628 211 r obsAzim; +#X obj 644 232 r obsElev; +#N canvas 146 379 344 123 machCalc 0; +#X obj 26 9 /~ 343.59; +#X text 107 15 Speed of Sound (dry air 20 Degs C); +#X obj 26 -14 vd~ varwind; +#X obj 26 33 s~ MY_MACH; +#X obj 125 -10 inlet~; +#X connect 0 0 3 0; +#X connect 2 0 0 0; +#X connect 4 0 0 0; +#X restore 490 168 pd machCalc; +#X obj 581 253 freqFan2_D7Mach; +#X connect 3 0 5 0; +#X connect 3 0 90 0; +#X connect 4 0 0 0; +#X connect 4 1 1 0; +#X connect 5 0 27 0; +#X connect 6 0 7 0; +#X connect 6 0 16 0; +#X connect 6 1 8 0; +#X connect 6 1 17 0; +#X connect 9 0 6 0; +#X connect 10 0 6 1; +#X connect 11 0 6 2; +#X connect 12 0 6 3; +#X connect 13 0 14 0; +#X connect 13 0 53 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 19 0 20 0; +#X connect 19 0 21 0; +#X connect 22 0 19 0; +#X connect 23 0 19 1; +#X connect 24 0 18 0; +#X connect 24 0 48 0; +#X connect 27 0 4 0; +#X connect 28 0 36 0; +#X connect 28 0 54 0; +#X connect 29 0 35 0; +#X connect 29 0 58 0; +#X connect 30 0 34 0; +#X connect 30 0 55 0; +#X connect 37 0 38 0; +#X connect 37 0 47 0; +#X connect 39 0 40 0; +#X connect 39 0 57 0; +#X connect 42 0 43 0; +#X connect 46 0 24 0; +#X connect 59 0 91 0; +#X connect 60 0 4 1; +#X connect 61 0 62 0; +#X connect 63 0 13 0; +#X connect 64 0 15 0; +#X connect 65 0 37 0; +#X connect 66 0 42 0; +#X connect 67 0 39 0; +#X connect 68 0 28 0; +#X connect 69 0 30 0; +#X connect 70 0 29 0; +#X connect 80 0 13 0; +#X connect 81 0 15 0; +#X connect 82 0 37 0; +#X connect 83 0 42 0; +#X connect 84 0 39 0; +#X connect 85 0 28 0; +#X connect 86 0 30 0; +#X connect 87 0 29 0; +#X connect 88 0 72 0; +#X connect 88 1 79 0; +#X connect 88 2 73 0; +#X connect 88 3 74 0; +#X connect 88 4 75 0; +#X connect 88 5 76 0; +#X connect 88 6 77 0; +#X connect 88 7 78 0; +#X connect 89 0 88 0; +#X connect 90 0 60 0; +#X connect 91 0 95 0; +#X connect 91 0 96 0; +#X connect 91 1 96 2; +#X connect 92 0 96 1; +#X connect 93 0 96 3; +#X connect 94 0 96 4;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Fan Models/prop_D2.pd Wed Aug 12 14:18:32 2015 +0100 @@ -0,0 +1,428 @@ +#N canvas 1668 22 1203 851 10; +#X obj 387 -114 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 450 -114 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X text 447 -205 Gain; +#X obj 386 -231 loadbang; +#N canvas 865 368 284 318 opLevels 0; +#X obj 74 188 dac~; +#X obj 30 70 catch~ l; +#X obj 128 70 catch~ r; +#X obj 129 104 *~ 0.45; +#X obj 30 104 *~ 0.45; +#X obj 30 210 prvu~; +#X obj 129 211 prvu~; +#X obj 186 75 / 127; +#X obj 186 40 inlet; +#X obj 30 239 outlet; +#X obj 129 239 outlet; +#X obj 219 118 inlet; +#X obj 30 152 /~ 1; +#X obj 129 154 /~ 1; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 13 0; +#X connect 4 0 12 0; +#X connect 5 0 9 0; +#X connect 6 0 10 0; +#X connect 7 0 3 1; +#X connect 7 0 4 1; +#X connect 8 0 7 0; +#X connect 11 0 12 1; +#X connect 11 0 13 1; +#X connect 12 0 0 0; +#X connect 12 0 5 0; +#X connect 13 0 0 1; +#X connect 13 0 6 0; +#X restore 386 -157 pd opLevels; +#X msg 386 -208 5; +#N canvas 12 52 684 554 speedCalc 0; +#X obj 59 -12 inlet; +#X obj 135 -11 inlet; +#X obj 217 -12 inlet; +#X obj 317 -12 inlet; +#X obj 59 11 s \$0_swLen; +#X obj 135 11 s \$0_armLen; +#X obj 317 10 s \$0_tipSpeed; +#X obj 141 301 r \$0_tipSpeed; +#X obj 211 437 outlet; +#X obj 211 414 r \$0_minSpeed; +#X obj 126 349 s \$0_minSpeed; +#X obj 310 414 r \$0_deltaSpeed; +#X obj 388 261 s \$0_deltaSpeed; +#X obj 310 437 outlet; +#X obj 84 100 r \$0_swLen; +#X obj 126 280 /; +#X floatatom 80 307 5 0 0 0 - - -; +#X obj 99 123 r \$0_armLen; +#X obj 84 205 +; +#X obj 99 152 t f b; +#X floatatom 40 240 5 0 0 0 - - -; +#X obj 126 207 r \$0_armLen; +#X obj 126 231 t f b; +#X obj 126 177 delay 6; +#X obj 153 256 delay 9; +#X obj 217 11 s \$0_sourceTot; +#X obj 421 202 r \$0_sourceTot; +#X obj 126 325 *; +#X floatatom 84 349 5 0 0 0 - - -; +#X obj 512 119 r \$0_minSpeed; +#X obj 388 202 -; +#X obj 388 158 r \$0_tipSpeed; +#X obj 388 232 /; +#X obj 512 145 t f b; +#X floatatom 343 261 5 0 0 0 - - -; +#X obj 539 170 delay 14; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 25 0; +#X connect 3 0 6 0; +#X connect 7 0 27 1; +#X connect 9 0 8 0; +#X connect 11 0 13 0; +#X connect 14 0 18 0; +#X connect 15 0 16 0; +#X connect 15 0 27 0; +#X connect 17 0 19 0; +#X connect 18 0 20 0; +#X connect 18 0 15 1; +#X connect 19 0 18 1; +#X connect 19 1 23 0; +#X connect 21 0 22 0; +#X connect 22 0 15 0; +#X connect 22 1 24 0; +#X connect 23 0 18 0; +#X connect 24 0 15 0; +#X connect 26 0 32 1; +#X connect 27 0 10 0; +#X connect 27 0 28 0; +#X connect 29 0 33 0; +#X connect 30 0 32 0; +#X connect 31 0 30 0; +#X connect 32 0 34 0; +#X connect 32 0 12 0; +#X connect 33 0 30 1; +#X connect 33 1 35 0; +#X connect 35 0 30 0; +#X restore 236 274 pd speedCalc; +#X floatatom 145 298 8 0 0 0 - - -; +#X floatatom 390 296 8 0 0 0 - - -; +#X obj 236 179 r bladeLen; +#X obj 259 202 r armLength; +#X obj 282 226 r NoOfSources; +#X obj 305 251 r topSpeed; +#X obj -52 -200 hsl 100 20 0 3000 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 759 1; +#X floatatom -55 -174 8 0 0 0 - - -; +#X obj -52 -122 hsl 100 20 0 300 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 495 1; +#X obj 210 298 s firstSpeed; +#X obj 305 297 s deltaSpeed; +#X floatatom 155 69 8 0 0 0 - - -; +#N canvas 57 585 305 180 thickCalc 0; +#X obj 173 86 r NoOfSources; +#X obj 23 16 inlet; +#X obj 26 64 inlet; +#X obj 26 86 s \$0_tipThick; +#X obj 158 62 -; +#X obj 158 111 /; +#X obj 158 134 outlet; +#X obj 23 39 s \$0_hiltThick; +#X floatatom 126 94 5 0 0 0 - - -; +#X obj 173 40 r \$0_tipThick; +#X obj 158 15 r \$0_hiltThick; +#X floatatom 94 136 8 0 0 0 - - -; +#X connect 0 0 5 1; +#X connect 1 0 7 0; +#X connect 2 0 3 0; +#X connect 4 0 5 0; +#X connect 4 0 8 0; +#X connect 5 0 6 0; +#X connect 5 0 11 0; +#X connect 9 0 4 1; +#X connect 10 0 4 0; +#X restore 215 -26 pd thickCalc; +#X obj 215 -3 s deltaThick; +#X floatatom 160 -2 8 0 0 0 - - -; +#X obj 215 -71 r hiltThick; +#X obj 284 -49 r tipThick; +#N canvas 447 270 208 198 circumferCalc 0; +#X obj 84 45 inlet; +#X obj 84 69 * 3.14159; +#X floatatom 26 120 8 0 0 0 - - -; +#X obj 84 93 * 2; +#X obj 84 118 outlet; +#X connect 0 0 1 0; +#X connect 1 0 3 0; +#X connect 3 0 2 0; +#X connect 3 0 4 0; +#X restore 212 45 pd circumferCalc; +#X obj 316 138 s deltaCircum; +#N canvas 767 188 758 617 angleCalc 0; +#X floatatom -252 49 8 0 0 0 - - -; +#X obj -194 50 * 0.75; +#X obj 149 51 * 0.25; +#X floatatom 171 76 8 0 0 0 - - -; +#X floatatom -178 72 8 0 0 0 - - -; +#X obj -194 97 /; +#X msg -209 203 1 \$1; +#X obj -209 180 f; +#X floatatom -242 203 5 0 0 0 - - -; +#X obj -209 225 line 0; +#X obj -245 154 r GO; +#X msg -165 203 0; +#X obj -194 121 * 1000; +#X obj 61 290 line 0; +#X obj 61 212 delay \$1; +#X obj 63 154 f; +#X obj 63 111 r GO; +#X obj 63 180 t f b; +#X obj 61 239 i; +#X msg 61 261 1 \$1; +#X msg 139 255 0; +#X obj 149 184 /; +#X obj 149 208 * 1000; +#X obj -209 275 *; +#X obj -157 244 r sweepAngle; +#X obj -206 340 hsl 100 25 0 360 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -160 272 * -0.75; +#X obj -209 299 +; +#X obj -159 297 * -1; +#X obj -179 155 s \$0_thisDe; +#X obj 78 133 r \$0_thisDe; +#X obj 61 328 *; +#X obj 118 295 r sweepAngle; +#X obj 64 380 hsl 100 25 -360 360 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X obj 13 239 s \$0_d; +#X obj 139 233 r GO; +#X obj -194 26 r maxCirc; +#X obj 149 29 r maxCirc; +#X obj -124 70 r topSpeed; +#X obj 164 158 r topSpeed; +#X obj -90 459 s currentAngle; +#X obj -90 413 +; +#X floatatom -90 438 8 0 0 0 - - -; +#X obj -41 392 t f b; +#X obj 280 146 delay \$1; +#X obj 282 88 f; +#X obj 282 62 r GO; +#X obj 282 114 t f b; +#X obj 318 -6 r maxCirc; +#X obj 333 16 r topSpeed; +#X obj 318 40 /; +#X obj 318 62 * 1000; +#X obj 280 168 s end; +#X obj -165 182 r end; +#X floatatom -166 408 8 0 0 0 - - -; +#X obj -41 359 r end; +#X obj 118 318 * -0.25; +#X connect 1 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 3 0; +#X connect 2 0 21 0; +#X connect 5 0 12 0; +#X connect 6 0 9 0; +#X connect 7 0 6 0; +#X connect 7 0 8 0; +#X connect 9 0 23 0; +#X connect 10 0 7 0; +#X connect 11 0 9 0; +#X connect 12 0 7 1; +#X connect 12 0 29 0; +#X connect 13 0 31 0; +#X connect 14 0 18 0; +#X connect 14 0 34 0; +#X connect 15 0 17 0; +#X connect 16 0 15 0; +#X connect 17 0 14 1; +#X connect 17 1 14 0; +#X connect 18 0 19 0; +#X connect 19 0 13 0; +#X connect 20 0 13 0; +#X connect 21 0 22 0; +#X connect 22 0 18 1; +#X connect 23 0 27 0; +#X connect 24 0 26 0; +#X connect 25 0 41 0; +#X connect 25 0 54 0; +#X connect 26 0 28 0; +#X connect 26 0 23 1; +#X connect 27 0 25 0; +#X connect 28 0 27 1; +#X connect 30 0 15 1; +#X connect 31 0 33 0; +#X connect 32 0 56 0; +#X connect 33 0 43 0; +#X connect 35 0 20 0; +#X connect 36 0 0 0; +#X connect 36 0 1 0; +#X connect 37 0 2 0; +#X connect 38 0 5 1; +#X connect 39 0 21 1; +#X connect 41 0 42 0; +#X connect 42 0 40 0; +#X connect 43 0 41 1; +#X connect 43 1 41 0; +#X connect 44 0 52 0; +#X connect 45 0 47 0; +#X connect 46 0 45 0; +#X connect 47 0 44 1; +#X connect 47 1 44 0; +#X connect 48 0 50 0; +#X connect 49 0 50 1; +#X connect 50 0 51 0; +#X connect 51 0 45 1; +#X connect 53 0 11 0; +#X connect 54 0 42 0; +#X connect 55 0 43 0; +#X connect 56 0 31 1; +#X restore 273 -98 pd angleCalc; +#X obj 388 -188 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 2700 1; +#X obj -56 185 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 7425 1; +#X obj -59 339 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 6500 1; +#X obj -56 264 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 4950 1; +#X text -52 162 Azimuth Angle; +#X text -53 243 Elevation Angle; +#X text -43 318 Distance; +#X floatatom -59 291 5 0 0 0 - - -; +#X floatatom -62 367 5 0 0 0 - - -; +#X floatatom -59 213 5 0 0 0 - - -; +#X obj -58 -47 hsl 100 20 0.5 10 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 4689 1; +#X floatatom -61 -19 5 0 0 0 - - -; +#X obj -60 110 hsl 100 20 0.001 0.1 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 3900 1; +#X floatatom -63 137 5 0 0 0 - - -; +#X text -57 88 Chord Thickness; +#X obj -59 33 hsl 100 20 0 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom -62 58 5 0 0 0 - - -; +#X text -55 11 Chord Pitch; +#X text 548 -228 Vertical propellor; +#X obj 212 22 r bladeRadius; +#X obj -24 -19 s bladeRadius; +#X obj 212 68 s circum; +#X text -58 -143 RMP (Fine); +#X text -56 -220 RMP (Coarse); +#X floatatom -56 -97 8 0 0 0 - - -; +#X obj -1 -97 s fineRPM; +#X obj 0 -174 s coarseRPM; +#X obj -20 213 s obsAzim; +#X obj -19 291 s obsElev; +#X text -49 -69 Blade Radius (m); +#X obj -27 136 s chordTh; +#X obj -19 366 s obsDist; +#X msg 686 97 1; +#X obj 500 -184 hsl 100 25 1 400 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3945 1; +#X obj 156 -191 bng 25 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 156 -162 s setUp; +#X obj 42 -221 r setUp; +#X obj 47 -144 r setUp; +#X obj 55 -70 r setUp; +#X obj 48 13 r setUp; +#X obj 50 86 r setUp; +#X obj 51 165 r setUp; +#X obj 52 238 r setUp; +#X obj 41 316 r setUp; +#X text 79 421 Pan not working on this yet; +#X obj 481 555 s fCRPM; +#X obj 517 517 s fRad; +#X obj 536 498 s fPit; +#X obj 554 479 s fThi; +#X obj 573 460 s fAzi; +#X obj 591 441 s fEle; +#X obj 610 422 s fDis; +#X obj 499 536 s fFRPM; +#X obj -106 -221 r fCRPM; +#X obj -110 -142 r fFRPM; +#X obj -100 -70 r fRad; +#X obj -102 9 r fPit; +#X obj -102 86 r fThi; +#X obj -101 163 r fAzi; +#X obj -104 242 r fEle; +#X obj -103 320 r fDis; +#X obj 481 402 unpack f f f f f f f f; +#X msg 478 352 230 15 5 0 0.04 45 0 35; +#X msg 497 -205 160; +#X obj 571 134 freqCalc3dCh; +#X obj 586 178 r chordTh; +#X obj 571 243 freq3DChoD1; +#X obj 618 201 r obsAzim; +#X obj 634 222 r obsElev; +#X connect 3 0 5 0; +#X connect 3 0 90 0; +#X connect 4 0 0 0; +#X connect 4 1 1 0; +#X connect 5 0 27 0; +#X connect 6 0 7 0; +#X connect 6 0 16 0; +#X connect 6 1 8 0; +#X connect 6 1 17 0; +#X connect 9 0 6 0; +#X connect 10 0 6 1; +#X connect 11 0 6 2; +#X connect 12 0 6 3; +#X connect 13 0 14 0; +#X connect 13 0 53 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 19 0 20 0; +#X connect 19 0 21 0; +#X connect 22 0 19 0; +#X connect 23 0 19 1; +#X connect 24 0 18 0; +#X connect 24 0 48 0; +#X connect 27 0 4 0; +#X connect 28 0 36 0; +#X connect 28 0 54 0; +#X connect 29 0 35 0; +#X connect 29 0 58 0; +#X connect 30 0 34 0; +#X connect 30 0 55 0; +#X connect 37 0 38 0; +#X connect 37 0 47 0; +#X connect 39 0 40 0; +#X connect 39 0 57 0; +#X connect 42 0 43 0; +#X connect 46 0 24 0; +#X connect 59 0 91 0; +#X connect 60 0 4 1; +#X connect 61 0 62 0; +#X connect 63 0 13 0; +#X connect 64 0 15 0; +#X connect 65 0 37 0; +#X connect 66 0 42 0; +#X connect 67 0 39 0; +#X connect 68 0 28 0; +#X connect 69 0 30 0; +#X connect 70 0 29 0; +#X connect 80 0 13 0; +#X connect 81 0 15 0; +#X connect 82 0 37 0; +#X connect 83 0 42 0; +#X connect 84 0 39 0; +#X connect 85 0 28 0; +#X connect 86 0 30 0; +#X connect 87 0 29 0; +#X connect 88 0 72 0; +#X connect 88 1 79 0; +#X connect 88 2 73 0; +#X connect 88 3 74 0; +#X connect 88 4 75 0; +#X connect 88 5 76 0; +#X connect 88 6 77 0; +#X connect 88 7 78 0; +#X connect 89 0 88 0; +#X connect 90 0 60 0; +#X connect 91 0 93 0; +#X connect 91 1 93 2; +#X connect 92 0 93 1; +#X connect 94 0 93 3; +#X connect 95 0 93 4;