Mercurial > hg > aeolian-tone

comparison newStrou.pd @ 0:ba6878e40772

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Demo of Aeolian tone sound synthesis model
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Tue, 17 May 2016 09:50:06 +0100
parents
children e18dbd26468e
comparison
equal deleted inserted replaced
-1:000000000000 0:ba6878e40772
1 #N canvas 74 48 718 433 10;
2 #X obj 203 48 inlet~;
3 #X obj 273 202 outlet~;
4 #X text 101 20 Reynolds number coming in;
5 #X text 211 238 Strouhal Number going out;
6 #N canvas 679 277 1026 531 eqnSelect 0;
7 #X msg 41 221 0.2684 -1.0356;
8 #X msg 148 221 0.2437 -0.8607;
9 #X msg 256 223 0.4291 -3.6735;
10 #X msg 472 223 0.2257 -0.4402;
11 #X msg 577 222 0.204 0.3364;
12 #X msg 686 224 0.1776 2.2023;
13 #X obj 365 299 unpack;
14 #X obj 75 164 < 180;
15 #X obj 181 144 > 180;
16 #X obj 227 146 < 230;
17 #X obj 289 149 > 230;
18 #X obj 335 148 < 240;
19 #X obj 398 148 > 240;
20 #X obj 444 149 < 360;
21 #X obj 505 147 > 360;
22 #X obj 551 147 < 1300;
23 #X obj 611 150 > 1300;
24 #X obj 657 150 < 5000;
25 #X obj 719 149 > 5000;
26 #X obj 765 148 < 200000;
27 #X obj 827 149 > 200000;
28 #X obj 41 196 spigot;
29 #X floatatom 286 327 8 0 0 0 - - -;
30 #X floatatom 455 330 8 0 0 0 - - -;
31 #X obj 148 198 spigot;
32 #X obj 194 171 spigot;
33 #X obj 256 200 spigot;
34 #X obj 302 173 spigot;
35 #X obj 365 200 spigot;
36 #X obj 411 173 spigot;
37 #X floatatom 546 83 8 0 0 0 - - -;
38 #X obj 472 198 spigot;
39 #X obj 518 171 spigot;
40 #X obj 578 200 spigot;
41 #X obj 624 173 spigot;
42 #X obj 686 199 spigot;
43 #X obj 732 172 spigot;
44 #X obj 426 67 snapshot~;
45 #X obj 426 37 inlet~;
46 #X obj 359 2 loadbang;
47 #X obj 359 23 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
48 1;
49 #X obj 359 42 metro 10;
50 #X obj 365 373 outlet~;
51 #X obj 398 352 outlet~;
52 #X obj 365 327 sig~;
53 #X obj 398 327 sig~;
54 #X text 539 419 This selects the values for the St* and m coefficients
55 for Fey's formula;
56 #X obj 794 201 spigot;
57 #X obj 840 174 spigot;
58 #X obj 885 149 < 1e+06;
59 #X text 784 251 Critical - Derived by author;
60 #X text 254 359 St* (I) coefficient;
61 #X text 462 361 m (J) coefficient;
62 #X msg 794 226 0.576 -175.957;
63 #X text 372 240;
64 #X msg 365 223 0.2492 -0.8861;
65 #X text 370 240 Linear Int;
66 #X connect 0 0 6 0;
67 #X connect 1 0 6 0;
68 #X connect 2 0 6 0;
69 #X connect 3 0 6 0;
70 #X connect 4 0 6 0;
71 #X connect 5 0 6 0;
72 #X connect 6 0 22 0;
73 #X connect 6 0 44 0;
74 #X connect 6 1 23 0;
75 #X connect 6 1 45 0;
76 #X connect 7 0 21 1;
77 #X connect 7 0 21 0;
78 #X connect 8 0 24 1;
79 #X connect 8 0 25 0;
80 #X connect 9 0 25 1;
81 #X connect 10 0 27 0;
82 #X connect 10 0 26 1;
83 #X connect 11 0 27 1;
84 #X connect 12 0 28 1;
85 #X connect 12 0 29 0;
86 #X connect 13 0 29 1;
87 #X connect 14 0 31 1;
88 #X connect 14 0 32 0;
89 #X connect 15 0 32 1;
90 #X connect 16 0 33 1;
91 #X connect 16 0 34 0;
92 #X connect 17 0 34 1;
93 #X connect 18 0 35 1;
94 #X connect 18 0 36 0;
95 #X connect 19 0 36 1;
96 #X connect 20 0 48 0;
97 #X connect 20 0 47 1;
98 #X connect 21 0 0 0;
99 #X connect 24 0 1 0;
100 #X connect 25 0 24 0;
101 #X connect 26 0 2 0;
102 #X connect 27 0 26 0;
103 #X connect 28 0 55 0;
104 #X connect 29 0 28 0;
105 #X connect 31 0 3 0;
106 #X connect 32 0 31 0;
107 #X connect 33 0 4 0;
108 #X connect 34 0 33 0;
109 #X connect 35 0 5 0;
110 #X connect 36 0 35 0;
111 #X connect 37 0 7 0;
112 #X connect 37 0 8 0;
113 #X connect 37 0 9 0;
114 #X connect 37 0 10 0;
115 #X connect 37 0 11 0;
116 #X connect 37 0 12 0;
117 #X connect 37 0 13 0;
118 #X connect 37 0 30 0;
119 #X connect 37 0 14 0;
120 #X connect 37 0 15 0;
121 #X connect 37 0 16 0;
122 #X connect 37 0 17 0;
123 #X connect 37 0 18 0;
124 #X connect 37 0 19 0;
125 #X connect 37 0 20 0;
126 #X connect 37 0 49 0;
127 #X connect 38 0 37 0;
128 #X connect 39 0 40 0;
129 #X connect 40 0 41 0;
130 #X connect 41 0 37 0;
131 #X connect 44 0 42 0;
132 #X connect 45 0 43 0;
133 #X connect 47 0 53 0;
134 #X connect 48 0 47 0;
135 #X connect 49 0 48 1;
136 #X connect 53 0 6 0;
137 #X connect 55 0 6 0;
138 #X restore 273 83 pd eqnSelect;
139 #X obj 203 85 sqrt~;
140 #X obj 342 119 /~;
141 #X text 135 97 sqrt(Re);
142 #X text 250 114 St*;
143 #X text 359 101 m;
144 #X text 376 152 St = St* + m / sqrt(Re);
145 #X obj 99 248 snapshot~;
146 #X obj 99 223 metro 100;
147 #X obj 99 201 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
148 1;
149 #X floatatom 99 274 10 0 0 0 - - -;
150 #X obj 99 175 loadbang;
151 #X obj 273 166 +~;
152 #X connect 0 0 4 0;
153 #X connect 0 0 5 0;
154 #X connect 4 0 16 0;
155 #X connect 4 1 6 0;
156 #X connect 5 0 6 1;
157 #X connect 6 0 16 1;
158 #X connect 11 0 14 0;
159 #X connect 12 0 11 0;
160 #X connect 13 0 12 0;
161 #X connect 15 0 13 0;
162 #X connect 16 0 1 0;
163 #X connect 16 0 11 0;