Mercurial > hg > weather-synthesis-prototyping

annotate SwordAutoD2/newStrou.pd @ 199:2ded41e29e57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Projection matrix now calculated using control signals rather than audio. This makes sense as it was eating too much processing power for something that doesn't chage during the sound effect.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 11 Mar 2016 20:51:21 +0000
parents 0ce3b6ae1866
children
rev   line source
r@187 1 #N canvas 183 221 718 433 10;
r@187 2 #X obj 203 48 inlet~;
r@187 3 #X obj 273 233 outlet~;
r@187 4 #X text 101 20 Reynolds number coming in;
r@187 5 #X text 211 257 Strouhal Number going out;
r@187 6 #N canvas 648 199 1026 531 eqnSelect 0;
r@187 7 #X msg 41 221 0.2684 -1.0356;
r@187 8 #X msg 148 221 0.2437 -0.8607;
r@187 9 #X msg 256 223 0.4291 -3.6735;
r@187 10 #X msg 472 223 0.2257 -0.4402;
r@187 11 #X msg 577 222 0.204 0.3364;
r@187 12 #X msg 686 224 0.1776 2.2023;
r@187 13 #X obj 365 299 unpack;
r@187 14 #X obj 75 164 < 180;
r@187 15 #X obj 181 144 > 180;
r@187 16 #X obj 227 146 < 230;
r@187 17 #X obj 289 149 > 230;
r@187 18 #X obj 335 148 < 240;
r@187 19 #X obj 398 148 > 240;
r@187 20 #X obj 444 149 < 360;
r@187 21 #X obj 505 147 > 360;
r@187 22 #X obj 551 147 < 1300;
r@187 23 #X obj 611 150 > 1300;
r@187 24 #X obj 657 150 < 5000;
r@187 25 #X obj 719 149 > 5000;
r@187 26 #X obj 765 148 < 200000;
r@187 27 #X obj 827 149 > 200000;
r@187 28 #X obj 41 196 spigot;
r@187 29 #X floatatom 286 327 8 0 0 0 - - -;
r@187 30 #X floatatom 455 330 8 0 0 0 - - -;
r@187 31 #X obj 148 198 spigot;
r@187 32 #X obj 194 171 spigot;
r@187 33 #X obj 256 200 spigot;
r@187 34 #X obj 302 173 spigot;
r@187 35 #X obj 365 200 spigot;
r@187 36 #X obj 411 173 spigot;
r@187 37 #X floatatom 546 83 8 0 0 0 - - -;
r@187 38 #X obj 472 198 spigot;
r@187 39 #X obj 518 171 spigot;
r@187 40 #X obj 578 200 spigot;
r@187 41 #X obj 624 173 spigot;
r@187 42 #X obj 686 199 spigot;
r@187 43 #X obj 732 172 spigot;
r@187 44 #X obj 426 67 snapshot~;
r@187 45 #X obj 426 37 inlet~;
r@187 46 #X obj 365 373 outlet~;
r@187 47 #X obj 398 352 outlet~;
r@187 48 #X obj 365 327 sig~;
r@187 49 #X obj 398 327 sig~;
r@187 50 #X text 539 419 This selects the values for the St* and m coefficients
r@187 51 for Fey's formula;
r@187 52 #X obj 794 201 spigot;
r@187 53 #X obj 840 174 spigot;
r@187 54 #X obj 885 149 < 1e+06;
r@187 55 #X text 784 251 Critical - Derived by author;
r@187 56 #X text 254 359 St* (I) coefficient;
r@187 57 #X text 462 361 m (J) coefficient;
r@187 58 #X msg 794 226 0.576 -175.957;
r@187 59 #X obj 374 38 r myMet;
r@187 60 #X msg 365 223 0.2492 -0.8861;
r@187 61 #X text 372 240 Linear Int;
r@187 62 #X connect 0 0 6 0;
r@187 63 #X connect 1 0 6 0;
r@187 64 #X connect 2 0 6 0;
r@187 65 #X connect 3 0 6 0;
r@187 66 #X connect 4 0 6 0;
r@187 67 #X connect 5 0 6 0;
r@187 68 #X connect 6 0 22 0;
r@187 69 #X connect 6 0 41 0;
r@187 70 #X connect 6 1 23 0;
r@187 71 #X connect 6 1 42 0;
r@187 72 #X connect 7 0 21 1;
r@187 73 #X connect 7 0 21 0;
r@187 74 #X connect 8 0 24 1;
r@187 75 #X connect 8 0 25 0;
r@187 76 #X connect 9 0 25 1;
r@187 77 #X connect 10 0 27 0;
r@187 78 #X connect 10 0 26 1;
r@187 79 #X connect 11 0 27 1;
r@187 80 #X connect 12 0 28 1;
r@187 81 #X connect 12 0 29 0;
r@187 82 #X connect 13 0 29 1;
r@187 83 #X connect 14 0 31 1;
r@187 84 #X connect 14 0 32 0;
r@187 85 #X connect 15 0 32 1;
r@187 86 #X connect 16 0 33 1;
r@187 87 #X connect 16 0 34 0;
r@187 88 #X connect 17 0 34 1;
r@187 89 #X connect 18 0 35 1;
r@187 90 #X connect 18 0 36 0;
r@187 91 #X connect 19 0 36 1;
r@187 92 #X connect 20 0 45 0;
r@187 93 #X connect 20 0 44 1;
r@187 94 #X connect 21 0 0 0;
r@187 95 #X connect 24 0 1 0;
r@187 96 #X connect 25 0 24 0;
r@187 97 #X connect 26 0 2 0;
r@187 98 #X connect 27 0 26 0;
r@187 99 #X connect 28 0 52 0;
r@187 100 #X connect 29 0 28 0;
r@187 101 #X connect 31 0 3 0;
r@187 102 #X connect 32 0 31 0;
r@187 103 #X connect 33 0 4 0;
r@187 104 #X connect 34 0 33 0;
r@187 105 #X connect 35 0 5 0;
r@187 106 #X connect 36 0 35 0;
r@187 107 #X connect 37 0 7 0;
r@187 108 #X connect 37 0 8 0;
r@187 109 #X connect 37 0 9 0;
r@187 110 #X connect 37 0 10 0;
r@187 111 #X connect 37 0 11 0;
r@187 112 #X connect 37 0 12 0;
r@187 113 #X connect 37 0 13 0;
r@187 114 #X connect 37 0 30 0;
r@187 115 #X connect 37 0 14 0;
r@187 116 #X connect 37 0 15 0;
r@187 117 #X connect 37 0 16 0;
r@187 118 #X connect 37 0 17 0;
r@187 119 #X connect 37 0 18 0;
r@187 120 #X connect 37 0 19 0;
r@187 121 #X connect 37 0 20 0;
r@187 122 #X connect 37 0 46 0;
r@187 123 #X connect 38 0 37 0;
r@187 124 #X connect 41 0 39 0;
r@187 125 #X connect 42 0 40 0;
r@187 126 #X connect 44 0 50 0;
r@187 127 #X connect 45 0 44 0;
r@187 128 #X connect 46 0 45 1;
r@187 129 #X connect 50 0 6 0;
r@187 130 #X connect 51 0 37 0;
r@187 131 #X connect 52 0 6 0;
r@187 132 #X restore 273 83 pd eqnSelect;
r@187 133 #X obj 203 85 sqrt~;
r@187 134 #X obj 342 119 /~;
r@187 135 #X text 135 97 sqrt(Re);
r@187 136 #X text 250 114 St*;
r@187 137 #X text 359 101 m;
r@187 138 #X text 376 152 St = St* + m / sqrt(Re);
r@187 139 #X obj 273 166 +~;
r@187 140 #X obj 273 191 max~ 0;
r@187 141 #X connect 0 0 4 0;
r@187 142 #X connect 0 0 5 0;
r@187 143 #X connect 4 0 11 0;
r@187 144 #X connect 4 1 6 0;
r@187 145 #X connect 5 0 6 1;
r@187 146 #X connect 6 0 11 1;
r@187 147 #X connect 11 0 12 0;
r@187 148 #X connect 12 0 1 0;