Mercurial > hg > weather-synthesis-prototyping
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; |