Mercurial > hg > weather-synthesis-prototyping

annotate June/freqCalcCylD4.pd @ 306:c57f401165ca tip

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