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