Mercurial > hg > weather-synthesis-prototyping

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