comparison June/freqCalcCylD4.pd @ 117:3f2588a64b25

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