Mercurial > hg > aeolian-tone
comparison freqCalcCyl4No_D4Mach.pd @ 2:58abd6089729
Equations for gains modified
author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Fri, 09 Jun 2017 17:19:06 +0100 |
parents | 971da3e24318 |
children | e18dbd26468e |
comparison
equal
deleted
inserted
replaced
1:971da3e24318 | 2:58abd6089729 |
---|---|
66 #X obj 321 163 r~ \$0-windSpeed; | 66 #X obj 321 163 r~ \$0-windSpeed; |
67 #X obj 339 202 r \$0-diameter; | 67 #X obj 339 202 r \$0-diameter; |
68 #X obj 313 142 r~ \$0-str; | 68 #X obj 313 142 r~ \$0-str; |
69 #X obj 331 183 r \$0-leng; | 69 #X obj 331 183 r \$0-leng; |
70 #X obj 356 241 r \$0-dist; | 70 #X obj 356 241 r \$0-dist; |
71 #N canvas 83 79 1238 721 GoldfreqGain 0; | 71 #N canvas 83 79 1238 721 GoldfreqGain 1; |
72 #N canvas 759 125 286 294 pow6 0; | 72 #N canvas 759 125 181 244 pow6 0; |
73 #X obj 47 67 *~; | 73 #X obj 47 67 *~; |
74 #X obj 76 67 *~; | 74 #X obj 76 67 *~; |
75 #X obj 76 35 inlet~; | 75 #X obj 76 35 inlet~; |
76 #X obj 47 163 outlet~; | 76 #X obj 47 163 outlet~; |
77 #X obj 136 184 snapshot~; | |
78 #X obj 136 159 metro 100; | |
79 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 | |
80 1; | |
81 #X floatatom 136 211 10 0 0 0 - - -; | |
82 #X obj 216 210 outlet; | |
83 #X obj 136 111 loadbang; | |
84 #X obj 106 67 *~; | 77 #X obj 106 67 *~; |
85 #X obj 47 93 *~; | 78 #X obj 47 93 *~; |
86 #X obj 47 118 *~; | 79 #X obj 47 118 *~; |
87 #X obj 372 202 *; | 80 #X connect 0 0 5 0; |
88 #X obj 372 228 *; | 81 #X connect 1 0 5 1; |
89 #X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144 | |
90 -1 -1 0 1; | |
91 #X floatatom 374 288 10 0 0 0 - - -; | |
92 #X obj 303 20 t f b; | |
93 #X floatatom 455 55 5 0 0 0 - - -; | |
94 #X obj 372 260 *; | |
95 #X obj 400 202 *; | |
96 #X msg 303 -4 6; | |
97 #X obj 434 201 *; | |
98 #X connect 0 0 11 0; | |
99 #X connect 1 0 11 1; | |
100 #X connect 2 0 0 0; | 82 #X connect 2 0 0 0; |
101 #X connect 2 0 0 1; | 83 #X connect 2 0 0 1; |
102 #X connect 2 0 1 1; | 84 #X connect 2 0 1 1; |
103 #X connect 2 0 10 0; | 85 #X connect 2 0 4 0; |
104 #X connect 2 0 10 1; | 86 #X connect 2 0 4 1; |
105 #X connect 2 0 1 0; | 87 #X connect 2 0 1 0; |
106 #X connect 4 0 7 0; | 88 #X connect 4 0 6 1; |
107 #X connect 4 0 8 0; | 89 #X connect 5 0 6 0; |
108 #X connect 5 0 4 0; | 90 #X connect 6 0 3 0; |
109 #X connect 6 0 5 0; | |
110 #X connect 9 0 6 0; | |
111 #X connect 10 0 12 1; | |
112 #X connect 11 0 12 0; | |
113 #X connect 12 0 4 0; | |
114 #X connect 12 0 3 0; | |
115 #X connect 13 0 14 0; | |
116 #X connect 14 0 19 0; | |
117 #X connect 15 0 13 0; | |
118 #X connect 15 0 13 1; | |
119 #X connect 15 0 18 0; | |
120 #X connect 15 0 20 0; | |
121 #X connect 15 0 20 1; | |
122 #X connect 17 0 13 0; | |
123 #X connect 17 0 13 1; | |
124 #X connect 17 0 20 0; | |
125 #X connect 17 0 20 1; | |
126 #X connect 17 0 22 0; | |
127 #X connect 17 0 22 1; | |
128 #X connect 17 1 13 0; | |
129 #X connect 17 1 20 0; | |
130 #X connect 17 1 22 0; | |
131 #X connect 19 0 16 0; | |
132 #X connect 20 0 14 1; | |
133 #X connect 21 0 17 0; | |
134 #X connect 22 0 19 1; | |
135 #X restore 219 150 pd pow6; | 91 #X restore 219 150 pd pow6; |
136 #X obj 173 140 *~; | 92 #X obj 173 140 *~; |
137 #X obj 219 176 *~; | 93 #X obj 219 176 *~; |
138 #X obj 411 161 *; | 94 #X obj 411 161 *; |
139 #X text 587 13 Distance; | 95 #X text 587 13 Distance; |
181 #X obj 411 244 * 32; | 137 #X obj 411 244 * 32; |
182 #X obj 525 213 cos~; | 138 #X obj 525 213 cos~; |
183 #X obj 525 236 *~; | 139 #X obj 525 236 *~; |
184 #X obj 473 237 sig~ 1; | 140 #X obj 473 237 sig~ 1; |
185 #X obj 510 267 -~; | 141 #X obj 510 267 -~; |
186 #N canvas 1150 227 286 289 pow4 0; | 142 #N canvas 927 234 183 208 pow4 0; |
187 #X obj 47 67 *~; | 143 #X obj 47 67 *~; |
188 #X obj 76 67 *~; | 144 #X obj 76 67 *~; |
189 #X obj 76 35 inlet~; | 145 #X obj 76 35 inlet~; |
190 #X obj 47 163 outlet~; | 146 #X obj 47 120 outlet~; |
191 #X obj 136 184 snapshot~; | |
192 #X obj 136 159 metro 100; | |
193 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 | |
194 1; | |
195 #X floatatom 136 211 10 0 0 0 - - -; | |
196 #X obj 216 210 outlet; | |
197 #X obj 136 111 loadbang; | |
198 #X obj 47 93 *~; | 147 #X obj 47 93 *~; |
199 #X connect 0 0 10 0; | 148 #X connect 0 0 4 0; |
200 #X connect 1 0 10 1; | 149 #X connect 1 0 4 1; |
201 #X connect 2 0 0 0; | 150 #X connect 2 0 0 0; |
202 #X connect 2 0 0 1; | 151 #X connect 2 0 0 1; |
203 #X connect 2 0 1 1; | 152 #X connect 2 0 1 1; |
204 #X connect 2 0 1 0; | 153 #X connect 2 0 1 0; |
205 #X connect 4 0 7 0; | 154 #X connect 4 0 3 0; |
206 #X connect 4 0 8 0; | |
207 #X connect 5 0 4 0; | |
208 #X connect 6 0 5 0; | |
209 #X connect 9 0 6 0; | |
210 #X connect 10 0 3 0; | |
211 #X connect 10 0 4 0; | |
212 #X restore 510 290 pd pow4; | 155 #X restore 510 290 pd pow4; |
213 #X obj 411 272 sig~; | |
214 #X obj 411 322 *~; | 156 #X obj 411 322 *~; |
215 #X obj 219 385 /~; | 157 #X obj 219 385 /~; |
216 #X obj 133 375 s~ \$0-aGainG; | 158 #X obj 139 419 s~ \$0-aGainG; |
217 #X obj 872 246 r~ \$0-aGainG; | 159 #X obj 785 438 r~ \$0-aGainG; |
218 #X obj 758 512 *~ 0.1; | 160 #X obj 758 512 *~ 0.1; |
219 #X obj 723 340 +~ 90; | 161 #X obj 723 340 +~ 90; |
220 #X obj 723 363 /~ 360; | 162 #X obj 723 363 /~ 360; |
221 #X obj 723 409 *~; | 163 #X obj 723 409 *~; |
222 #X obj 723 385 sin~; | 164 #X obj 723 385 sin~; |
233 #X obj 773 294 r \$0-this_azim; | 175 #X obj 773 294 r \$0-this_azim; |
234 #X obj 670 55 s \$0-this_elev; | 176 #X obj 670 55 s \$0-this_elev; |
235 #X obj 774 55 s \$0-this_azim; | 177 #X obj 774 55 s \$0-this_azim; |
236 #X obj 525 129 r \$0-this_elev; | 178 #X obj 525 129 r \$0-this_elev; |
237 #X obj 574 51 s \$0-thisDist; | 179 #X obj 574 51 s \$0-thisDist; |
238 #X obj 887 268 r \$0-thisDist; | |
239 #X obj 411 135 r \$0-thisDist; | 180 #X obj 411 135 r \$0-thisDist; |
240 #X obj 887 292 *; | |
241 #X obj 887 317 * 4.05513e+07; | |
242 #X text 892 335 Speed of Sound to power 3; | |
243 #X obj 887 370 * 32; | |
244 #X obj 887 398 sig~; | |
245 #X obj 872 423 /~; | |
246 #X text 595 191 Remember - Goldstein moves cylinder; | 181 #X text 595 191 Remember - Goldstein moves cylinder; |
247 #X obj 525 194 /~ 360; | 182 #X obj 525 194 /~ 360; |
248 #X obj 758 475 *~; | 183 #X obj 758 475 *~; |
249 #X obj 478 51 s~ \$0-thisColL; | 184 #X obj 478 51 s~ \$0-thisColL; |
250 #X obj 270 150 r~ \$0-thisColL; | 185 #X obj 270 150 r~ \$0-thisColL; |
311 #X obj 306 471 line~; | 246 #X obj 306 471 line~; |
312 #X msg 306 449 \$1 5; | 247 #X msg 306 449 \$1 5; |
313 #X obj 685 572 s~ plotOPD; | 248 #X obj 685 572 s~ plotOPD; |
314 #X msg 219 100 \$1 15; | 249 #X msg 219 100 \$1 15; |
315 #X obj 565 217 r~ MY_MACH; | 250 #X obj 565 217 r~ MY_MACH; |
251 #X obj 411 293 line~; | |
252 #X msg 411 271 \$1 15; | |
316 #X connect 0 0 2 0; | 253 #X connect 0 0 2 0; |
317 #X connect 1 0 2 1; | 254 #X connect 1 0 2 1; |
318 #X connect 2 0 91 0; | 255 #X connect 2 0 83 0; |
319 #X connect 3 0 44 0; | 256 #X connect 3 0 44 0; |
320 #X connect 8 0 1 0; | 257 #X connect 8 0 1 0; |
321 #X connect 8 0 1 1; | 258 #X connect 8 0 1 1; |
322 #X connect 9 0 97 0; | 259 #X connect 9 0 89 0; |
323 #X connect 11 0 90 1; | 260 #X connect 11 0 82 1; |
324 #X connect 12 0 5 0; | 261 #X connect 12 0 5 0; |
325 #X connect 12 0 76 0; | 262 #X connect 12 0 75 0; |
326 #X connect 15 0 17 1; | 263 #X connect 15 0 17 1; |
327 #X connect 17 0 36 0; | 264 #X connect 17 0 36 0; |
328 #X connect 18 0 94 0; | 265 #X connect 18 0 86 0; |
329 #X connect 19 0 20 1; | 266 #X connect 19 0 20 1; |
330 #X connect 20 0 43 0; | 267 #X connect 20 0 43 0; |
331 #X connect 21 0 24 0; | 268 #X connect 21 0 24 0; |
332 #X connect 21 0 30 0; | 269 #X connect 21 0 30 0; |
333 #X connect 22 0 25 0; | 270 #X connect 22 0 25 0; |
334 #X connect 22 0 31 0; | 271 #X connect 22 0 31 0; |
335 #X connect 23 0 26 0; | 272 #X connect 23 0 26 0; |
336 #X connect 23 0 32 0; | 273 #X connect 23 0 32 0; |
337 #X connect 36 0 54 0; | 274 #X connect 36 0 53 0; |
338 #X connect 36 0 55 0; | |
339 #X connect 37 0 17 0; | 275 #X connect 37 0 17 0; |
340 #X connect 40 0 42 0; | 276 #X connect 40 0 42 0; |
341 #X connect 41 0 43 1; | 277 #X connect 41 0 43 1; |
342 #X connect 42 0 41 0; | 278 #X connect 42 0 41 0; |
343 #X connect 42 0 41 1; | 279 #X connect 42 0 41 1; |
344 #X connect 43 0 13 0; | 280 #X connect 43 0 13 0; |
345 #X connect 44 0 46 0; | 281 #X connect 44 0 46 0; |
346 #X connect 46 0 52 0; | 282 #X connect 46 0 108 0; |
347 #X connect 47 0 48 0; | 283 #X connect 47 0 48 0; |
348 #X connect 48 0 50 1; | 284 #X connect 48 0 50 1; |
349 #X connect 49 0 50 0; | 285 #X connect 49 0 50 0; |
350 #X connect 50 0 51 0; | 286 #X connect 50 0 51 0; |
351 #X connect 51 0 53 1; | 287 #X connect 51 0 52 1; |
352 #X connect 52 0 53 0; | 288 #X connect 52 0 53 1; |
353 #X connect 53 0 54 1; | 289 #X connect 53 0 20 0; |
354 #X connect 54 0 20 0; | 290 #X connect 53 0 54 0; |
355 #X connect 56 0 84 0; | 291 #X connect 55 0 79 1; |
356 #X connect 57 0 14 0; | 292 #X connect 56 0 14 0; |
357 #X connect 57 0 112 0; | 293 #X connect 56 0 104 0; |
358 #X connect 58 0 59 0; | 294 #X connect 57 0 58 0; |
359 #X connect 59 0 61 0; | 295 #X connect 58 0 60 0; |
360 #X connect 60 0 65 0; | 296 #X connect 59 0 64 0; |
361 #X connect 61 0 60 0; | 297 #X connect 60 0 59 0; |
362 #X connect 61 0 60 1; | 298 #X connect 60 0 59 1; |
363 #X connect 62 0 64 0; | 299 #X connect 61 0 63 0; |
364 #X connect 63 0 65 1; | 300 #X connect 62 0 64 1; |
365 #X connect 64 0 63 0; | 301 #X connect 63 0 62 0; |
366 #X connect 64 0 63 1; | 302 #X connect 63 0 62 1; |
367 #X connect 65 0 87 0; | 303 #X connect 64 0 79 0; |
304 #X connect 67 0 69 0; | |
305 #X connect 67 0 72 0; | |
368 #X connect 68 0 70 0; | 306 #X connect 68 0 70 0; |
369 #X connect 68 0 73 0; | 307 #X connect 68 0 73 0; |
370 #X connect 69 0 71 0; | 308 #X connect 71 0 97 0; |
371 #X connect 69 0 74 0; | 309 #X connect 74 0 95 0; |
372 #X connect 72 0 105 0; | 310 #X connect 76 0 3 0; |
373 #X connect 75 0 103 0; | 311 #X connect 76 0 3 1; |
374 #X connect 77 0 79 0; | 312 #X connect 78 0 47 0; |
375 #X connect 77 0 79 1; | 313 #X connect 79 0 56 0; |
376 #X connect 78 0 3 0; | 314 #X connect 81 0 82 0; |
377 #X connect 78 0 3 1; | 315 #X connect 82 0 83 1; |
378 #X connect 79 0 80 0; | 316 #X connect 83 0 37 0; |
379 #X connect 80 0 82 0; | 317 #X connect 84 0 80 0; |
380 #X connect 82 0 83 0; | 318 #X connect 86 0 19 0; |
381 #X connect 83 0 84 1; | 319 #X connect 86 0 19 1; |
382 #X connect 84 0 87 1; | 320 #X connect 88 0 87 0; |
383 #X connect 86 0 47 0; | 321 #X connect 88 0 89 0; |
384 #X connect 87 0 57 0; | 322 #X connect 89 0 85 0; |
385 #X connect 89 0 90 0; | 323 #X connect 89 0 105 0; |
386 #X connect 90 0 91 1; | 324 #X connect 90 0 0 0; |
387 #X connect 91 0 37 0; | 325 #X connect 91 0 78 0; |
388 #X connect 92 0 88 0; | 326 #X connect 92 0 94 0; |
389 #X connect 94 0 19 0; | 327 #X connect 93 0 57 0; |
390 #X connect 94 0 19 1; | 328 #X connect 94 0 93 0; |
391 #X connect 96 0 95 0; | 329 #X connect 95 0 91 0; |
392 #X connect 96 0 97 0; | 330 #X connect 96 0 61 0; |
393 #X connect 97 0 93 0; | 331 #X connect 97 0 96 0; |
394 #X connect 97 0 113 0; | 332 #X connect 98 0 103 0; |
395 #X connect 98 0 0 0; | 333 #X connect 99 0 101 0; |
396 #X connect 99 0 86 0; | 334 #X connect 100 0 18 0; |
397 #X connect 100 0 102 0; | 335 #X connect 101 0 100 0; |
398 #X connect 101 0 58 0; | 336 #X connect 102 0 40 0; |
399 #X connect 102 0 101 0; | 337 #X connect 103 0 102 0; |
400 #X connect 103 0 99 0; | 338 #X connect 105 0 90 0; |
401 #X connect 104 0 62 0; | 339 #X connect 106 0 48 1; |
402 #X connect 105 0 104 0; | 340 #X connect 107 0 52 0; |
403 #X connect 106 0 111 0; | 341 #X connect 108 0 107 0; |
404 #X connect 107 0 109 0; | |
405 #X connect 108 0 18 0; | |
406 #X connect 109 0 108 0; | |
407 #X connect 110 0 40 0; | |
408 #X connect 111 0 110 0; | |
409 #X connect 113 0 98 0; | |
410 #X connect 114 0 48 1; | |
411 #X restore 313 307 pd GoldfreqGain; | 342 #X restore 313 307 pd GoldfreqGain; |
412 #N canvas 300 30 1006 797 GoldnoiseGain 1; | 343 #N canvas 344 132 1006 797 GoldnoiseGain 1; |
413 #X text -21037 364 Mass Density of Air \, squared; | 344 #X text -21037 364 Mass Density of Air \, squared; |
414 #X obj -20777 459 *; | 345 #X obj -20777 459 *; |
415 #X text -20777 412 Distance; | 346 #X text -20777 412 Distance; |
416 #N canvas 759 125 235 275 pow8 0; | 347 #N canvas 759 125 235 275 pow8 0; |
417 #X obj 47 67 *~; | 348 #X obj 47 67 *~; |
457 #X floatatom -20304 57 5 0 0 0 - - -; | 388 #X floatatom -20304 57 5 0 0 0 - - -; |
458 #X floatatom -20470 58 5 0 0 0 - - -; | 389 #X floatatom -20470 58 5 0 0 0 - - -; |
459 #X obj -20398 117 s~ \$0-this_azim; | 390 #X obj -20398 117 s~ \$0-this_azim; |
460 #X obj -20342 95 s~ \$0-this_elev; | 391 #X obj -20342 95 s~ \$0-this_elev; |
461 #X obj -20861 371 *~ 1.225; | 392 #X obj -20861 371 *~ 1.225; |
462 #X obj -20587 239 r~ \$0-this_azim; | 393 #X obj -20501 232 r~ \$0-this_azim; |
463 #N canvas 759 125 250 309 pow5 0; | 394 #N canvas 759 125 250 309 pow5 0; |
464 #X obj 47 67 *~; | 395 #X obj 47 67 *~; |
465 #X obj 76 35 inlet~; | 396 #X obj 76 35 inlet~; |
466 #X obj 47 170 outlet~; | 397 #X obj 47 170 outlet~; |
467 #X obj 136 173 snapshot~; | 398 #X obj 136 173 snapshot~; |
535 #X obj -20861 444 *~ 1; | 466 #X obj -20861 444 *~ 1; |
536 #X obj -20861 528 *~ 2.50663; | 467 #X obj -20861 528 *~ 2.50663; |
537 #X text -20782 254 Corrolation Length; | 468 #X text -20782 254 Corrolation Length; |
538 #X text -20806 371 Length; | 469 #X text -20806 371 Length; |
539 #X obj -20846 159 average~ 64; | 470 #X obj -20846 159 average~ 64; |
540 #X floatatom -20757 165 5 0 0 0 - - -; | 471 #X floatatom -20757 165 0 0 0 0 - - -; |
541 #N canvas 801 264 426 401 aveTimeCal 0; | 472 #N canvas 801 264 426 401 aveTimeCal 0; |
542 #X text 224 38 Elevation; | 473 #X text 224 38 Elevation; |
543 #X obj 226 56 r \$0-elev; | 474 #X obj 226 56 r \$0-elev; |
544 #X floatatom 240 81 5 0 0 0 - - -; | 475 #X floatatom 240 81 5 0 0 0 - - -; |
545 #X obj 205 17 r~ MY_MACH; | 476 #X obj 205 17 r~ MY_MACH; |
580 #X msg -20342 53 \$1 5; | 511 #X msg -20342 53 \$1 5; |
581 #X obj -20777 502 line~; | 512 #X obj -20777 502 line~; |
582 #X msg -20777 480 \$1 5; | 513 #X msg -20777 480 \$1 5; |
583 #X obj -20398 86 line~; | 514 #X obj -20398 86 line~; |
584 #X msg -20398 64 \$1 5; | 515 #X msg -20398 64 \$1 5; |
585 #X obj -20587 285 cos~; | 516 #X obj -20501 278 cos~; |
586 #X obj -20861 595 *~ 1; | 517 #X obj -20861 595 *~ 1; |
587 #X obj -20587 262 /~ 360; | 518 #X obj -20501 255 /~ 360; |
588 #X obj -20624 306 *~; | 519 #X obj -20516 299 *~; |
589 #X text -20929 530 Sqrt(2*pi); | 520 #X text -20929 530 Sqrt(2*pi); |
590 #X obj -20609 326 r~ MY_MACH; | 521 #X obj -20609 326 r~ MY_MACH; |
591 #X text -21045 480 Scaling factor between dipoles; | 522 #X text -21045 480 Scaling factor between dipoles; |
592 #X obj -20861 483 /~ 1000; | 523 #X obj -20861 483 /~ 10000; |
593 #X connect 1 0 58 0; | 524 #X connect 1 0 58 0; |
594 #X connect 3 0 43 1; | 525 #X connect 3 0 43 1; |
595 #X connect 4 0 50 0; | 526 #X connect 4 0 50 0; |
596 #X connect 5 0 42 1; | 527 #X connect 5 0 42 1; |
597 #X connect 6 0 1 0; | 528 #X connect 6 0 1 0; |
604 #X connect 21 0 63 0; | 535 #X connect 21 0 63 0; |
605 #X connect 22 0 35 1; | 536 #X connect 22 0 35 1; |
606 #X connect 23 0 22 0; | 537 #X connect 23 0 22 0; |
607 #X connect 24 0 34 1; | 538 #X connect 24 0 34 1; |
608 #X connect 25 0 26 0; | 539 #X connect 25 0 26 0; |
609 #X connect 26 0 64 0; | 540 #X connect 26 0 27 0; |
610 #X connect 27 0 29 1; | 541 #X connect 27 0 29 1; |
611 #X connect 28 0 29 0; | 542 #X connect 28 0 29 0; |
612 #X connect 29 0 24 0; | 543 #X connect 29 0 24 0; |
613 #X connect 30 0 31 0; | 544 #X connect 30 0 31 0; |
614 #X connect 30 0 31 1; | 545 #X connect 30 0 31 1; |
642 #X connect 59 0 18 0; | 573 #X connect 59 0 18 0; |
643 #X connect 60 0 59 0; | 574 #X connect 60 0 59 0; |
644 #X connect 61 0 64 1; | 575 #X connect 61 0 64 1; |
645 #X connect 62 0 7 0; | 576 #X connect 62 0 7 0; |
646 #X connect 63 0 61 0; | 577 #X connect 63 0 61 0; |
647 #X connect 64 0 27 0; | |
648 #X connect 66 0 27 1; | 578 #X connect 66 0 27 1; |
649 #X connect 68 0 47 0; | 579 #X connect 68 0 47 0; |
650 #X restore 304 573 pd GoldnoiseGain; | 580 #X restore 304 573 pd GoldnoiseGain; |
651 #X text 295 620 Calculates the gain of the wake; | 581 #X text 295 620 Calculates the gain of the wake; |
652 #X obj 460 80 s \$0-azim; | 582 #X obj 460 80 s \$0-azim; |