Mercurial > hg > weather-synthesis-prototyping

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