annotate scene demo/freqCalcCyl2D3.pd @ 306:c57f401165ca tip

New Decision tree added
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 13 Jan 2018 14:47:35 +0000
parents e57832817def
children
rev   line source
r@114 1 #N canvas 25 89 1385 754 10;
r@110 2 #X text 724 -18 Mass Density of Air;
r@114 3 #X text 125 304 Frequency (Hz);
r@114 4 #X obj 831 404 throw~ l;
r@114 5 #X obj 886 404 throw~ r;
r@110 6 #X obj 846 227 osc~;
r@110 7 #X obj 846 -17 *~ 1.225;
r@110 8 #X obj 846 58 /~ 1.81e-05;
r@110 9 #X obj 846 13 *~ 1;
r@110 10 #X obj 846 176 /~ 1;
r@110 11 #X floatatom 221 282 10 0 0 0 - - -;
r@110 12 #X obj 846 152 *~;
r@110 13 #X obj 846 201 clip~ 0 20000;
r@110 14 #X obj 232 -71 inlet;
r@110 15 #X text 879 102 Reynolds Number;
r@110 16 #X text 731 166 Strouhal Number;
r@114 17 #X obj 397 -73 inlet;
r@110 18 #X obj 846 257 *~;
r@110 19 #X text 876 38 Viscosity;
r@110 20 #X obj 631 198 *~ 2;
r@110 21 #X obj 631 225 osc~;
r@110 22 #X obj 631 247 *~;
r@110 23 #X obj 831 286 +~;
r@114 24 #X obj 239 -48 s \$0-diameter;
r@110 25 #X obj 907 -18 r \$0-diameter;
r@110 26 #X obj 914 157 r \$0-diameter;
r@110 27 #X obj 149 -9 s~ \$0-windSpeed;
r@110 28 #X obj 320 30 r~ \$0-windSpeed;
r@110 29 #X obj 913 134 r~ \$0-windSpeed;
r@110 30 #X obj 846 -45 r~ \$0-windSpeed;
r@110 31 #X obj 767 226 s~ \$0-myFreq;
r@110 32 #X obj 631 171 r~ \$0-myFreq;
r@110 33 #X obj 149 -51 sig~;
r@110 34 #X obj 149 -29 vd~ varwind;
r@110 35 #X obj 149 -75 inlet;
r@110 36 #X obj 1079 32 r~ \$0-myFreq;
r@110 37 #X obj 1045 -18 noise~;
r@110 38 #X obj 1122 123 *~;
r@110 39 #X obj 143 104 snapshot~;
r@110 40 #X obj 143 79 metro 100;
r@110 41 #X obj 143 57 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@110 42 1;
r@110 43 #X floatatom 143 130 10 0 0 0 - - -;
r@110 44 #X obj 143 31 loadbang;
r@110 45 #X obj 57 79 r~ \$0-myRey;
r@110 46 #X obj 859 82 s~ \$0-myRey;
r@110 47 #X obj 1260 33 snapshot~;
r@110 48 #X floatatom 1260 59 10 0 0 0 - - -;
r@110 49 #X obj 1260 -40 loadbang;
r@110 50 #X obj 1260 -15 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@110 51 1 1;
r@110 52 #X obj 1171 -69 r~ \$0-myRey;
r@110 53 #X obj 1087 384 r~ \$0-myFreq;
r@110 54 #X obj 1053 313 noise~;
r@110 55 #X obj 1130 481 *~;
r@110 56 #X obj 1268 393 snapshot~;
r@110 57 #X floatatom 1268 419 10 0 0 0 - - -;
r@110 58 #X obj 1268 320 loadbang;
r@110 59 #X obj 1268 345 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@110 60 1 1;
r@110 61 #X obj 1179 291 r~ \$0-myRey;
r@110 62 #X obj 1087 410 *~ 2;
r@110 63 #X text 128 152 Reynolds Number;
r@110 64 #X obj 1045 75 vcf~ 1000 10;
r@110 65 #X obj 1053 435 vcf~ 1000 10;
r@110 66 #X obj 831 329 fcpan;
r@110 67 #X obj 1137 96 *~ 1;
r@110 68 #X obj 1145 456 *~ 1;
r@110 69 #X obj 1179 366 clip~ 2 400;
r@110 70 #X obj 1171 6 clip~ 2 400;
r@110 71 #X obj 1179 315 *~ -0.003;
r@110 72 #X obj 1171 -45 *~ -0.003;
r@110 73 #X obj 1260 8 metro 10;
r@110 74 #X obj 1268 368 metro 10;
r@114 75 #X obj 645 -77 inlet;
r@114 76 #X floatatom 590 -8 8 0 0 0 - - -;
r@114 77 #X obj 645 -53 max 0.1;
r@114 78 #X obj 645 -30 min 0.9;
r@110 79 #X text 1181 469 Drag Dipole spectrum calculation;
r@110 80 #X text 1176 113 Lift Dipole spectrum calculation;
r@110 81 #X text 567 97 Calculates the frequency;
r@110 82 #X text 567 110 based on the physics of;
r@110 83 #X text 568 123 the object and environment;
r@110 84 #X obj 323 312 r~ \$0-windSpeed;
r@110 85 #X obj 144 426 snapshot~;
r@110 86 #X obj 144 401 metro 100;
r@110 87 #X obj 144 379 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@110 88 1;
r@110 89 #X floatatom 144 452 10 0 0 0 - - -;
r@110 90 #X obj 144 353 loadbang;
r@110 91 #N canvas 75 127 654 734 noiseGain 0;
r@110 92 #X text -21205 129 Mass Density of Air \, squared;
r@110 93 #X text -20765 142 Speed of Sound to power 2;
r@110 94 #X obj -21070 29 *~;
r@110 95 #X obj -21022 70 *~;
r@110 96 #X obj -21022 104 *~ 1;
r@110 97 #X obj -21022 132 *~ 1.50063;
r@110 98 #X obj -20767 96 *;
r@110 99 #X obj -20767 119 * 118033;
r@110 100 #X obj -21022 259 /~ 1;
r@110 101 #X obj -21022 532 *~ 0.27;
r@110 102 #X text -20767 49 Distance;
r@110 103 #X obj -20847 502 cos;
r@110 104 #X obj -20847 457 / 360;
r@110 105 #X floatatom -20820 553 5 0 0 0 - - -;
r@110 106 #X obj -20847 526 *;
r@110 107 #X obj -20886 606 *~ 0.27;
r@110 108 #X obj -20847 479 * 6.28319;
r@110 109 #N canvas 409 243 688 659 angleCalc 0;
r@110 110 #X obj 341 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@114 111 -1 -1 0 1;
r@110 112 #X text 321 40 Elevation Angle;
r@110 113 #X obj 270 81 / 360;
r@110 114 #X obj 270 103 * 6.28319;
r@110 115 #X floatatom 135 174 5 0 0 0 - - -;
r@110 116 #X obj 179 79 / 360;
r@110 117 #X obj 179 101 * 6.28319;
r@110 118 #X floatatom 64 105 5 0 0 0 - - -;
r@110 119 #X floatatom 338 103 5 0 0 0 - - -;
r@110 120 #X floatatom 232 256 5 0 0 0 - - -;
r@110 121 #X floatatom 360 500 8 0 0 0 - - -;
r@110 122 #X obj 312 502 * 360;
r@110 123 #X floatatom 359 553 5 0 0 0 - - -;
r@110 124 #X obj 312 526 / 6.28319;
r@110 125 #X obj 270 294 *;
r@110 126 #X obj 270 326 swap 1;
r@110 127 #X obj 270 359 -;
r@110 128 #X obj 270 388 sqrt;
r@110 129 #X obj 312 419 /;
r@110 130 #X obj 312 447 atan;
r@110 131 #X obj 312 473 * 2;
r@110 132 #X text 352 355 Arccos of angle;
r@110 133 #X obj 270 265 /;
r@110 134 #X obj 327 295 + 1;
r@110 135 #X obj 179 125 cos;
r@110 136 #X obj 179 151 *;
r@110 137 #X obj 270 134 cos;
r@110 138 #X obj 270 234 *;
r@110 139 #X obj 179 175 t f b;
r@110 140 #X obj 177 200 delay 9;
r@110 141 #X obj 312 553 outlet;
r@110 142 #X obj 270 53 inlet;
r@110 143 #X obj 180 52 inlet;
r@110 144 #X obj 370 227 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144
r@110 145 -1 -1 0 1;
r@110 146 #X obj 516 57 inlet;
r@110 147 #X floatatom 482 81 5 0 0 0 - - -;
r@110 148 #X obj 67 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@114 149 -1 -1 0 1;
r@110 150 #X text 71 41 Azimuth Angle;
r@114 151 #X obj 516 81 s \$0-tDist;
r@114 152 #X obj 295 234 r \$0-tDist;
r@114 153 #X obj 204 126 r \$0-tDist;
r@110 154 #X connect 0 0 8 0;
r@110 155 #X connect 2 0 3 0;
r@110 156 #X connect 3 0 26 0;
r@110 157 #X connect 5 0 6 0;
r@110 158 #X connect 6 0 24 0;
r@110 159 #X connect 11 0 13 0;
r@110 160 #X connect 13 0 12 0;
r@110 161 #X connect 13 0 30 0;
r@110 162 #X connect 14 0 15 0;
r@110 163 #X connect 15 0 16 0;
r@110 164 #X connect 15 1 16 1;
r@110 165 #X connect 16 0 17 0;
r@110 166 #X connect 17 0 18 0;
r@110 167 #X connect 18 0 19 0;
r@110 168 #X connect 19 0 20 0;
r@110 169 #X connect 20 0 11 0;
r@110 170 #X connect 20 0 10 0;
r@110 171 #X connect 22 0 14 0;
r@110 172 #X connect 22 0 14 1;
r@110 173 #X connect 22 0 23 0;
r@110 174 #X connect 23 0 18 1;
r@110 175 #X connect 24 0 25 0;
r@110 176 #X connect 25 0 4 0;
r@110 177 #X connect 25 0 28 0;
r@110 178 #X connect 26 0 27 0;
r@110 179 #X connect 27 0 9 0;
r@110 180 #X connect 27 0 22 0;
r@110 181 #X connect 28 0 27 1;
r@110 182 #X connect 28 1 29 0;
r@110 183 #X connect 29 0 27 0;
r@110 184 #X connect 31 0 2 0;
r@110 185 #X connect 31 0 0 0;
r@110 186 #X connect 32 0 5 0;
r@114 187 #X connect 32 0 36 0;
r@110 188 #X connect 34 0 35 0;
r@110 189 #X connect 34 0 38 0;
r@114 190 #X connect 36 0 7 0;
r@114 191 #X connect 39 0 22 1;
r@114 192 #X connect 40 0 25 1;
r@110 193 #X restore -20983 388 pd angleCalc;
r@110 194 #X obj -20983 451 / 90;
r@110 195 #X floatatom -21015 475 5 0 0 0 - - -;
r@110 196 #X obj -20847 429 + 90;
r@110 197 #X obj -20937 452 loadbang;
r@110 198 #X msg -20937 474 0.05;
r@110 199 #X obj -21022 507 *~ 0.05;
r@110 200 #X obj -20782 531 loadbang;
r@110 201 #X msg -20782 553 0.05;
r@110 202 #X obj -20886 582 *~ 0.05;
r@110 203 #X text -20812 621 Calculates Drag Dipole gain;
r@110 204 #X text -21198 525 Calculates Lift Dipole gain;
r@110 205 #N canvas 759 125 286 289 pow8 0;
r@110 206 #X obj 47 67 *~;
r@110 207 #X obj 76 67 *~;
r@110 208 #X obj 76 35 inlet~;
r@110 209 #X obj 47 170 outlet~;
r@110 210 #X obj 136 173 snapshot~;
r@110 211 #X obj 136 148 metro 100;
r@110 212 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@110 213 1;
r@110 214 #X floatatom 136 200 10 0 0 0 - - -;
r@110 215 #X obj 136 100 loadbang;
r@110 216 #X obj 106 67 *~;
r@110 217 #X obj 47 93 *~;
r@110 218 #X obj 47 118 *~;
r@110 219 #X obj 136 67 *~;
r@110 220 #X obj 47 144 *~;
r@110 221 #X connect 0 0 10 0;
r@110 222 #X connect 1 0 10 1;
r@110 223 #X connect 2 0 0 0;
r@110 224 #X connect 2 0 0 1;
r@110 225 #X connect 2 0 1 1;
r@110 226 #X connect 2 0 9 0;
r@110 227 #X connect 2 0 9 1;
r@110 228 #X connect 2 0 1 0;
r@110 229 #X connect 2 0 12 0;
r@110 230 #X connect 2 0 12 1;
r@110 231 #X connect 4 0 7 0;
r@110 232 #X connect 5 0 4 0;
r@110 233 #X connect 6 0 5 0;
r@110 234 #X connect 8 0 6 0;
r@110 235 #X connect 9 0 11 1;
r@110 236 #X connect 10 0 11 0;
r@110 237 #X connect 11 0 13 0;
r@110 238 #X connect 12 0 13 1;
r@110 239 #X connect 13 0 3 0;
r@110 240 #X connect 13 0 4 0;
r@110 241 #X restore -21022 32 pd pow8;
r@110 242 #X obj -21070 7 inlet~;
r@110 243 #X obj -21022 7 inlet~;
r@110 244 #X obj -20989 55 inlet;
r@110 245 #X obj -20983 324 inlet;
r@110 246 #X obj -20949 345 inlet;
r@110 247 #X obj -20914 367 inlet;
r@110 248 #X obj -20767 70 inlet;
r@110 249 #X obj -21022 575 outlet~;
r@110 250 #X obj -20886 656 outlet~;
r@110 251 #X text -20949 312 Azimuth;
r@110 252 #X text -20914 335 Elevation;
r@110 253 #X text -20880 359 Distance;
r@110 254 #X text -20961 26 Gain proportional to windspeed to power 8 for spectrum
r@110 255 ;
r@110 256 #X text -20981 74 Diameter;
r@110 257 #X obj -20991 163 inlet;
r@110 258 #X obj -20991 187 *;
r@110 259 #X obj -21022 209 *~ 1;
r@110 260 #X text -20950 162 Length;
r@110 261 #X obj -21022 554 *~ 0.02;
r@110 262 #X obj -20886 631 *~ 0.002;
r@114 263 #X obj -21005 288 s~ \$0-nGain;
r@114 264 #X obj -20920 556 r~ \$0-nGain;
r@110 265 #X connect 2 0 3 1;
r@110 266 #X connect 3 0 4 0;
r@110 267 #X connect 4 0 5 0;
r@114 268 #X connect 5 0 46 0;
r@110 269 #X connect 6 0 7 0;
r@110 270 #X connect 7 0 8 1;
r@110 271 #X connect 8 0 23 0;
r@114 272 #X connect 8 0 50 0;
r@114 273 #X connect 9 0 48 0;
r@110 274 #X connect 11 0 14 0;
r@110 275 #X connect 11 0 14 1;
r@110 276 #X connect 12 0 16 0;
r@110 277 #X connect 14 0 13 0;
r@110 278 #X connect 14 0 26 1;
r@114 279 #X connect 15 0 49 0;
r@110 280 #X connect 16 0 11 0;
r@110 281 #X connect 17 0 18 0;
r@110 282 #X connect 17 0 20 0;
r@110 283 #X connect 18 0 19 0;
r@110 284 #X connect 18 0 23 1;
r@110 285 #X connect 20 0 12 0;
r@110 286 #X connect 21 0 22 0;
r@110 287 #X connect 22 0 23 1;
r@110 288 #X connect 23 0 9 0;
r@110 289 #X connect 24 0 25 0;
r@110 290 #X connect 25 0 26 1;
r@110 291 #X connect 26 0 15 0;
r@110 292 #X connect 29 0 3 0;
r@114 293 #X connect 30 0 2 0;
r@114 294 #X connect 30 0 2 1;
r@114 295 #X connect 31 0 29 0;
r@114 296 #X connect 32 0 4 1;
r@114 297 #X connect 33 0 17 0;
r@114 298 #X connect 34 0 17 1;
r@114 299 #X connect 35 0 17 2;
r@114 300 #X connect 36 0 6 0;
r@114 301 #X connect 36 0 6 1;
r@114 302 #X connect 44 0 45 0;
r@114 303 #X connect 44 0 45 1;
r@114 304 #X connect 45 0 46 1;
r@114 305 #X connect 46 0 8 0;
r@114 306 #X connect 48 0 37 0;
r@114 307 #X connect 49 0 38 0;
r@114 308 #X connect 51 0 26 0;
r@110 309 #X restore 314 447 pd noiseGain;
r@110 310 #X obj 343 357 r \$0-diameter;
r@110 311 #N canvas 577 142 663 715 freqGain 0;
r@110 312 #X text 36 127 Mass Density of Air \, squared;
r@110 313 #X text 411 123 Speed of Sound to power 2;
r@110 314 #N canvas 759 125 286 289 pow6 0;
r@110 315 #X obj 47 67 *~;
r@110 316 #X obj 76 67 *~;
r@110 317 #X obj 76 35 inlet~;
r@110 318 #X obj 47 163 outlet~;
r@110 319 #X obj 136 184 snapshot~;
r@110 320 #X obj 136 159 metro 100;
r@110 321 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@110 322 1;
r@110 323 #X floatatom 136 211 10 0 0 0 - - -;
r@110 324 #X obj 216 210 outlet;
r@110 325 #X obj 136 111 loadbang;
r@110 326 #X obj 106 67 *~;
r@110 327 #X obj 47 93 *~;
r@110 328 #X obj 47 118 *~;
r@110 329 #X connect 0 0 11 0;
r@110 330 #X connect 1 0 11 1;
r@110 331 #X connect 2 0 0 0;
r@110 332 #X connect 2 0 0 1;
r@110 333 #X connect 2 0 1 1;
r@110 334 #X connect 2 0 10 0;
r@110 335 #X connect 2 0 10 1;
r@110 336 #X connect 2 0 1 0;
r@110 337 #X connect 4 0 7 0;
r@110 338 #X connect 4 0 8 0;
r@110 339 #X connect 5 0 4 0;
r@110 340 #X connect 6 0 5 0;
r@110 341 #X connect 9 0 6 0;
r@110 342 #X connect 10 0 12 1;
r@110 343 #X connect 11 0 12 0;
r@110 344 #X connect 12 0 4 0;
r@110 345 #X connect 12 0 3 0;
r@110 346 #X restore 219 30 pd pow6;
r@110 347 #X obj 173 32 *~;
r@110 348 #X obj 219 68 *~;
r@110 349 #X obj 219 102 *~ 1;
r@110 350 #X obj 219 130 *~ 1.50063;
r@110 351 #X obj 404 71 *;
r@110 352 #X obj 404 96 * 118033;
r@110 353 #X obj 219 224 /~ 1;
r@110 354 #X obj 219 497 *~ 0.27;
r@110 355 #X text 271 275 Azimuth;
r@110 356 #X text 424 30 Distance;
r@110 357 #X obj 370 482 cos;
r@110 358 #X obj 370 437 / 360;
r@110 359 #X floatatom 397 533 5 0 0 0 - - -;
r@110 360 #X obj 370 506 *;
r@110 361 #X obj 331 586 *~ 0.27;
r@110 362 #X obj 370 459 * 6.28319;
r@110 363 #X floatatom 369 72 5 0 0 0 - - -;
r@110 364 #N canvas 713 150 688 659 angleCalc 0;
r@110 365 #X obj 341 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@114 366 -1 -1 0 1;
r@110 367 #X text 321 40 Elevation Angle;
r@110 368 #X obj 270 81 / 360;
r@110 369 #X obj 270 103 * 6.28319;
r@110 370 #X floatatom 135 174 5 0 0 0 - - -;
r@110 371 #X obj 179 79 / 360;
r@110 372 #X obj 179 101 * 6.28319;
r@110 373 #X floatatom 64 105 5 0 0 0 - - -;
r@110 374 #X floatatom 338 103 5 0 0 0 - - -;
r@110 375 #X floatatom 232 256 5 0 0 0 - - -;
r@110 376 #X floatatom 360 500 8 0 0 0 - - -;
r@110 377 #X obj 312 502 * 360;
r@110 378 #X floatatom 359 553 5 0 0 0 - - -;
r@110 379 #X obj 312 526 / 6.28319;
r@110 380 #X obj 270 294 *;
r@110 381 #X obj 270 326 swap 1;
r@110 382 #X obj 270 359 -;
r@110 383 #X obj 270 388 sqrt;
r@110 384 #X obj 312 419 /;
r@110 385 #X obj 312 447 atan;
r@110 386 #X obj 312 473 * 2;
r@110 387 #X text 352 355 Arccos of angle;
r@110 388 #X obj 270 265 /;
r@110 389 #X obj 327 295 + 1;
r@110 390 #X obj 179 125 cos;
r@110 391 #X obj 179 151 *;
r@110 392 #X obj 270 134 cos;
r@110 393 #X obj 270 234 *;
r@110 394 #X obj 179 175 t f b;
r@110 395 #X obj 177 200 delay 9;
r@110 396 #X obj 312 553 outlet;
r@110 397 #X obj 270 53 inlet;
r@110 398 #X obj 180 52 inlet;
r@110 399 #X obj 370 227 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144
r@110 400 -1 -1 0 1;
r@110 401 #X obj 516 57 inlet;
r@110 402 #X floatatom 482 81 5 0 0 0 - - -;
r@110 403 #X obj 67 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@114 404 -1 -1 0 1;
r@110 405 #X text 71 41 Azimuth Angle;
r@110 406 #X text 102 584 remove distance from this patch as makes no difference
r@110 407 to the end calculation and confuses things!;
r@110 408 #X text 386 407 Create an audio version of this patch;
r@114 409 #X obj 516 81 s \$0-tDist;
r@114 410 #X obj 295 234 r \$0-tDist;
r@114 411 #X obj 204 126 r \$0-tDist;
r@110 412 #X connect 0 0 8 0;
r@110 413 #X connect 2 0 3 0;
r@110 414 #X connect 3 0 26 0;
r@110 415 #X connect 5 0 6 0;
r@110 416 #X connect 6 0 24 0;
r@110 417 #X connect 11 0 13 0;
r@110 418 #X connect 13 0 12 0;
r@110 419 #X connect 13 0 30 0;
r@110 420 #X connect 14 0 15 0;
r@110 421 #X connect 15 0 16 0;
r@110 422 #X connect 15 1 16 1;
r@110 423 #X connect 16 0 17 0;
r@110 424 #X connect 17 0 18 0;
r@110 425 #X connect 18 0 19 0;
r@110 426 #X connect 19 0 20 0;
r@110 427 #X connect 20 0 11 0;
r@110 428 #X connect 20 0 10 0;
r@110 429 #X connect 22 0 14 0;
r@110 430 #X connect 22 0 14 1;
r@110 431 #X connect 22 0 23 0;
r@110 432 #X connect 23 0 18 1;
r@110 433 #X connect 24 0 25 0;
r@110 434 #X connect 25 0 4 0;
r@110 435 #X connect 25 0 28 0;
r@110 436 #X connect 26 0 27 0;
r@110 437 #X connect 27 0 9 0;
r@110 438 #X connect 27 0 22 0;
r@110 439 #X connect 28 0 27 1;
r@110 440 #X connect 28 1 29 0;
r@110 441 #X connect 29 0 27 0;
r@110 442 #X connect 31 0 2 0;
r@110 443 #X connect 31 0 0 0;
r@110 444 #X connect 32 0 5 0;
r@114 445 #X connect 32 0 36 0;
r@110 446 #X connect 34 0 35 0;
r@114 447 #X connect 34 0 40 0;
r@114 448 #X connect 36 0 7 0;
r@114 449 #X connect 41 0 22 1;
r@114 450 #X connect 42 0 25 1;
r@110 451 #X restore 256 348 pd angleCalc;
r@110 452 #X text 307 294 Elevation;
r@110 453 #X obj 370 409 + 90;
r@110 454 #X obj 435 511 loadbang;
r@110 455 #X msg 435 533 0.05;
r@110 456 #X obj 331 562 *~ 0.05;
r@110 457 #X text 409 593 Calculates Drag Dipole gain;
r@110 458 #X text 48 504 Calculates Lift Dipole gain;
r@110 459 #X obj 331 611 *~ 0.1;
r@110 460 #X obj 173 8 inlet~;
r@110 461 #X obj 219 7 inlet~;
r@110 462 #X text 256 54 Diameter;
r@110 463 #X obj 250 69 inlet;
r@110 464 #X obj 404 46 inlet;
r@110 465 #X obj 325 326 inlet;
r@110 466 #X obj 256 290 inlet;
r@110 467 #X obj 290 309 inlet;
r@110 468 #X text 360 328 Distance;
r@110 469 #X obj 219 524 outlet~;
r@110 470 #X obj 331 636 outlet~;
r@110 471 #X obj 240 425 cos;
r@110 472 #X obj 240 380 / 360;
r@110 473 #X obj 240 449 *;
r@110 474 #X obj 240 402 * 6.28319;
r@110 475 #X obj 219 472 *~ 1;
r@110 476 #X obj 250 156 inlet;
r@110 477 #X obj 250 180 *;
r@110 478 #X text 288 151 Length;
r@110 479 #X obj 219 202 *~ 1;
r@110 480 #X text 388 225 Add in MACH deflection;
r@114 481 #X obj 236 253 s~ \$0-aGain;
r@114 482 #X obj 297 536 r~ \$0-aGain;
r@110 483 #X connect 2 0 4 0;
r@110 484 #X connect 3 0 4 1;
r@110 485 #X connect 4 0 5 0;
r@110 486 #X connect 5 0 6 0;
r@114 487 #X connect 6 0 48 0;
r@110 488 #X connect 7 0 8 0;
r@110 489 #X connect 8 0 9 1;
r@114 490 #X connect 9 0 44 0;
r@114 491 #X connect 9 0 50 0;
r@114 492 #X connect 10 0 38 0;
r@110 493 #X connect 13 0 16 0;
r@110 494 #X connect 13 0 16 1;
r@114 495 #X connect 14 0 18 0;
r@110 496 #X connect 16 0 15 0;
r@114 497 #X connect 16 0 25 1;
r@114 498 #X connect 17 0 28 0;
r@114 499 #X connect 18 0 13 0;
r@114 500 #X connect 20 0 22 0;
r@114 501 #X connect 20 0 41 0;
r@114 502 #X connect 22 0 14 0;
r@114 503 #X connect 23 0 24 0;
r@114 504 #X connect 24 0 25 1;
r@114 505 #X connect 25 0 17 0;
r@114 506 #X connect 28 0 39 0;
r@114 507 #X connect 29 0 3 0;
r@114 508 #X connect 29 0 3 1;
r@114 509 #X connect 30 0 2 0;
r@114 510 #X connect 32 0 5 1;
r@114 511 #X connect 33 0 7 1;
r@114 512 #X connect 33 0 7 0;
r@114 513 #X connect 33 0 19 0;
r@114 514 #X connect 34 0 20 2;
r@114 515 #X connect 35 0 20 0;
r@114 516 #X connect 36 0 20 1;
r@114 517 #X connect 40 0 42 0;
r@114 518 #X connect 40 0 42 1;
r@114 519 #X connect 41 0 43 0;
r@110 520 #X connect 42 0 44 1;
r@114 521 #X connect 43 0 40 0;
r@114 522 #X connect 44 0 10 0;
r@114 523 #X connect 45 0 46 0;
r@114 524 #X connect 45 0 46 1;
r@114 525 #X connect 46 0 48 1;
r@114 526 #X connect 48 0 9 0;
r@114 527 #X connect 51 0 25 0;
r@110 528 #X restore 311 152 pd freqGain;
r@114 529 #X obj 469 -74 inlet;
r@110 530 #X obj 338 69 r \$0-diameter;
r@114 531 #X obj 543 -75 inlet;
r@114 532 #X floatatom 397 -26 5 0 0 0 - - -;
r@114 533 #X floatatom 469 -28 5 0 0 0 - - -;
r@114 534 #X floatatom 544 -31 5 0 0 0 - - -;
r@110 535 #X obj 92 282 outlet;
r@110 536 #X obj 1045 29 hip~;
r@110 537 #X obj 136 255 snapshot~;
r@110 538 #X obj 136 208 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@110 539 1;
r@110 540 #X obj 136 182 loadbang;
r@110 541 #X obj 136 230 metro 10;
r@110 542 #X obj 1053 410 hip~;
r@110 543 #X obj 57 232 r~ \$0-myFreq;
r@110 544 #X obj 1074 357 * 2;
r@110 545 #X text 143 481 Strouhal Number;
r@110 546 #X text 301 213 Calculates the gain of the dipole source;
r@110 547 #X text 305 511 Calculates the gain of the source;
r@114 548 #X text 535 -94 Azimuth;
r@114 549 #X text 650 -95 Pan;
r@114 550 #X text 463 -93 Elevation;
r@114 551 #X text 393 -92 Distance;
r@110 552 #X text 227 -92 Diameter;
r@110 553 #X text 142 -93 Wind Speed;
r@114 554 #X obj 324 -74 inlet;
r@114 555 #X floatatom 324 -30 5 0 0 0 - - -;
r@114 556 #X text 320 -93 Length;
r@110 557 #X obj 846 123 newStrou;
r@110 558 #X floatatom 92 -35 5 0 0 0 - - -;
r@114 559 #X floatatom 232 -27 5 0 0 0 - - -;
r@112 560 #X obj 1171 -20 +~ 30;
r@112 561 #X obj 1179 340 +~ 30;
r@114 562 #X obj 831 355 /~ 0.5;
r@114 563 #X obj 886 355 /~ 0.5;
r@114 564 #X obj 886 380 tanh~;
r@114 565 #X obj 831 377 tanh~;
r@114 566 #X obj 1122 242 throw~ l;
r@114 567 #X obj 1177 242 throw~ r;
r@114 568 #X obj 1122 167 fcpan;
r@114 569 #X obj 1122 193 /~ 0.5;
r@114 570 #X obj 1177 193 /~ 0.5;
r@114 571 #X obj 1177 218 tanh~;
r@114 572 #X obj 1122 215 tanh~;
r@114 573 #X obj 1130 598 throw~ l;
r@114 574 #X obj 1185 598 throw~ r;
r@114 575 #X obj 1130 523 fcpan;
r@114 576 #X obj 1130 549 /~ 0.5;
r@114 577 #X obj 1185 549 /~ 0.5;
r@114 578 #X obj 1185 574 tanh~;
r@114 579 #X obj 1130 571 tanh~;
r@114 580 #X obj 334 -51 s \$0-leng;
r@114 581 #X obj 402 -50 s \$0-dist;
r@114 582 #X obj 476 -52 s \$0-elev;
r@114 583 #X obj 551 -52 s \$0-azim;
r@114 584 #X obj 311 9 r~ \$0-str;
r@114 585 #X obj 329 49 r \$0-leng;
r@114 586 #X obj 347 89 r \$0-azim;
r@114 587 #X obj 357 110 r \$0-elev;
r@114 588 #X obj 374 131 r \$0-dist;
r@114 589 #X obj 374 176 s~ \$0-dragDiGain;
r@114 590 #X obj 311 196 s~ \$0-liftDiGain;
r@114 591 #X obj 314 289 r~ \$0-str;
r@114 592 #X obj 333 333 r \$0-leng;
r@114 593 #X obj 353 380 r \$0-elev;
r@114 594 #X obj 363 402 r \$0-azim;
r@114 595 #X obj 383 423 r \$0-dist;
r@114 596 #X obj 383 470 s~ \$0-dragNoiseGain;
r@114 597 #X obj 314 492 s~ \$0-liftNoiseGain;
r@114 598 #X obj 664 225 r~ \$0-dragDiGain;
r@114 599 #X obj 740 153 s~ \$0-str;
r@114 600 #X obj 884 227 r~ \$0-liftDiGain;
r@114 601 #X obj 858 300 r \$0-thisPan;
r@114 602 #X obj 645 -8 s \$0-thisPan;
r@114 603 #X obj 1066 6 r \$0-contFreq;
r@114 604 #X obj 136 282 s \$0-contFreq;
r@114 605 #X obj 59 401 r~ \$0-str;
r@114 606 #X obj 1137 54 r~ \$0-liftNoiseGain;
r@114 607 #X obj 1149 148 r \$0-thisPan;
r@114 608 #X obj 1074 334 r \$0-contFreq;
r@114 609 #X obj 1145 433 r~ \$0-dragNoiseGain;
r@114 610 #X obj 1157 503 r \$0-thisPan;
r@110 611 #X connect 4 0 16 0;
r@110 612 #X connect 5 0 7 0;
r@114 613 #X connect 6 0 43 0;
r@114 614 #X connect 6 0 115 0;
r@110 615 #X connect 7 0 6 0;
r@110 616 #X connect 8 0 11 0;
r@110 617 #X connect 10 0 8 0;
r@110 618 #X connect 11 0 4 0;
r@114 619 #X connect 11 0 29 0;
r@110 620 #X connect 12 0 22 0;
r@114 621 #X connect 12 0 117 0;
r@114 622 #X connect 15 0 91 0;
r@114 623 #X connect 15 0 139 0;
r@110 624 #X connect 16 0 21 1;
r@110 625 #X connect 18 0 19 0;
r@110 626 #X connect 19 0 20 0;
r@110 627 #X connect 20 0 21 0;
r@114 628 #X connect 21 0 61 0;
r@110 629 #X connect 23 0 7 1;
r@110 630 #X connect 24 0 8 1;
r@114 631 #X connect 26 0 87 1;
r@110 632 #X connect 27 0 10 1;
r@110 633 #X connect 28 0 5 0;
r@114 634 #X connect 30 0 18 0;
r@114 635 #X connect 31 0 32 0;
r@114 636 #X connect 32 0 25 0;
r@114 637 #X connect 33 0 31 0;
r@114 638 #X connect 33 0 116 0;
r@114 639 #X connect 34 0 59 1;
r@114 640 #X connect 35 0 95 0;
r@114 641 #X connect 36 0 126 0;
r@114 642 #X connect 37 0 40 0;
r@114 643 #X connect 38 0 37 0;
r@114 644 #X connect 39 0 38 0;
r@114 645 #X connect 41 0 39 0;
r@114 646 #X connect 42 0 37 0;
r@114 647 #X connect 44 0 45 0;
r@114 648 #X connect 44 0 59 2;
r@114 649 #X connect 46 0 47 0;
r@114 650 #X connect 47 0 68 0;
r@114 651 #X connect 48 0 67 0;
r@114 652 #X connect 49 0 57 0;
r@114 653 #X connect 50 0 100 0;
r@114 654 #X connect 51 0 133 0;
r@110 655 #X connect 52 0 53 0;
r@114 656 #X connect 52 0 60 2;
r@114 657 #X connect 54 0 55 0;
r@114 658 #X connect 55 0 69 0;
r@114 659 #X connect 56 0 66 0;
r@114 660 #X connect 57 0 60 1;
r@114 661 #X connect 59 0 36 0;
r@114 662 #X connect 60 0 51 0;
r@114 663 #X connect 61 0 120 0;
r@114 664 #X connect 61 1 121 0;
r@114 665 #X connect 62 0 36 1;
r@114 666 #X connect 63 0 51 1;
r@114 667 #X connect 64 0 52 0;
r@114 668 #X connect 65 0 44 0;
r@114 669 #X connect 66 0 119 0;
r@114 670 #X connect 67 0 118 0;
r@114 671 #X connect 68 0 44 0;
r@114 672 #X connect 69 0 52 0;
r@114 673 #X connect 70 0 72 0;
r@114 674 #X connect 72 0 73 0;
r@114 675 #X connect 73 0 71 0;
r@114 676 #X connect 73 0 160 0;
r@114 677 #X connect 79 0 85 1;
r@114 678 #X connect 80 0 83 0;
r@114 679 #X connect 81 0 80 0;
r@114 680 #X connect 82 0 81 0;
r@114 681 #X connect 84 0 82 0;
r@114 682 #X connect 85 0 155 0;
r@114 683 #X connect 85 1 154 0;
r@114 684 #X connect 86 0 85 3;
r@114 685 #X connect 87 0 148 0;
r@114 686 #X connect 87 1 147 0;
r@114 687 #X connect 88 0 92 0;
r@114 688 #X connect 88 0 140 0;
r@114 689 #X connect 89 0 87 3;
r@114 690 #X connect 90 0 93 0;
r@114 691 #X connect 90 0 141 0;
r@114 692 #X connect 95 0 59 0;
r@114 693 #X connect 96 0 94 0;
r@114 694 #X connect 96 0 9 0;
r@114 695 #X connect 96 0 162 0;
r@114 696 #X connect 97 0 99 0;
r@114 697 #X connect 98 0 97 0;
r@114 698 #X connect 99 0 96 0;
r@114 699 #X connect 100 0 60 0;
r@114 700 #X connect 101 0 96 0;
r@114 701 #X connect 102 0 100 1;
r@110 702 #X connect 112 0 113 0;
r@114 703 #X connect 112 0 138 0;
r@114 704 #X connect 115 0 10 0;
r@114 705 #X connect 115 0 157 0;
r@114 706 #X connect 118 0 65 0;
r@114 707 #X connect 119 0 64 0;
r@114 708 #X connect 120 0 123 0;
r@114 709 #X connect 121 0 122 0;
r@114 710 #X connect 122 0 3 0;
r@114 711 #X connect 123 0 2 0;
r@114 712 #X connect 126 0 127 0;
r@114 713 #X connect 126 1 128 0;
r@114 714 #X connect 127 0 130 0;
r@114 715 #X connect 128 0 129 0;
r@114 716 #X connect 129 0 125 0;
r@114 717 #X connect 130 0 124 0;
r@114 718 #X connect 133 0 134 0;
r@114 719 #X connect 133 1 135 0;
r@114 720 #X connect 134 0 137 0;
r@110 721 #X connect 135 0 136 0;
r@114 722 #X connect 136 0 132 0;
r@114 723 #X connect 137 0 131 0;
r@114 724 #X connect 142 0 87 0;
r@114 725 #X connect 143 0 87 2;
r@114 726 #X connect 144 0 87 4;
r@114 727 #X connect 145 0 87 5;
r@114 728 #X connect 146 0 87 6;
r@114 729 #X connect 146 0 87 7;
r@114 730 #X connect 149 0 85 0;
r@114 731 #X connect 150 0 85 2;
r@114 732 #X connect 151 0 85 4;
r@114 733 #X connect 152 0 85 5;
r@114 734 #X connect 153 0 85 6;
r@114 735 #X connect 153 0 85 7;
r@114 736 #X connect 156 0 20 1;
r@114 737 #X connect 158 0 16 1;
r@114 738 #X connect 159 0 61 1;
r@114 739 #X connect 161 0 95 1;
r@114 740 #X connect 163 0 80 0;
r@114 741 #X connect 164 0 62 0;
r@114 742 #X connect 165 0 126 1;
r@114 743 #X connect 166 0 102 0;
r@114 744 #X connect 167 0 63 0;
r@114 745 #X connect 168 0 133 1;