Mercurial > hg > weather-synthesis-prototyping

annotate scene demo/newStrou.pd @ 129:5e7c747e4876

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct azimuth angle between source and observer calulated from the sine rule
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Wed, 12 Aug 2015 19:22:56 +0100
parents 61d267c71a18
children e71e2b4657a6
rev   line source
r@114 1 #N canvas 804 381 590 316 10;
r@114 2 #X obj 203 48 inlet~;
r@114 3 #X obj 273 202 outlet~;
r@106 4 #X text 101 20 Reynolds number coming in;
r@114 5 #X text 211 238 Strouhal Number going out;
r@114 6 #N canvas 350 312 1026 531 eqnSelect 0;
r@106 7 #X msg 41 221 0.2684 -1.0356;
r@106 8 #X msg 148 221 0.2437 -0.8607;
r@106 9 #X msg 256 223 0.4291 -3.6735;
r@106 10 #X msg 365 223 0.3274 -2.0569;
r@106 11 #X msg 472 223 0.2257 -0.4402;
r@106 12 #X msg 577 222 0.204 0.3364;
r@106 13 #X msg 686 224 0.1776 2.2023;
r@106 14 #X obj 365 299 unpack;
r@106 15 #X obj 75 164 < 180;
r@106 16 #X obj 181 144 > 180;
r@106 17 #X obj 227 146 < 230;
r@106 18 #X obj 289 149 > 230;
r@106 19 #X obj 335 148 < 240;
r@106 20 #X obj 398 148 > 240;
r@106 21 #X obj 444 149 < 360;
r@106 22 #X obj 505 147 > 360;
r@106 23 #X obj 551 147 < 1300;
r@106 24 #X obj 611 150 > 1300;
r@106 25 #X obj 657 150 < 5000;
r@106 26 #X obj 719 149 > 5000;
r@106 27 #X obj 765 148 < 200000;
r@106 28 #X obj 827 149 > 200000;
r@106 29 #X obj 41 196 spigot;
r@106 30 #X floatatom 286 327 8 0 0 0 - - -;
r@106 31 #X floatatom 455 330 8 0 0 0 - - -;
r@106 32 #X obj 148 198 spigot;
r@106 33 #X obj 194 171 spigot;
r@106 34 #X obj 256 200 spigot;
r@106 35 #X obj 302 173 spigot;
r@106 36 #X obj 365 200 spigot;
r@106 37 #X obj 411 173 spigot;
r@115 38 #X floatatom 546 83 8 0 0 0 - - -;
r@106 39 #X obj 472 198 spigot;
r@106 40 #X obj 518 171 spigot;
r@106 41 #X obj 578 200 spigot;
r@106 42 #X obj 624 173 spigot;
r@106 43 #X obj 686 199 spigot;
r@106 44 #X obj 732 172 spigot;
r@106 45 #X obj 426 67 snapshot~;
r@106 46 #X obj 426 37 inlet~;
r@106 47 #X obj 359 2 loadbang;
r@106 48 #X obj 359 23 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@106 49 1;
r@106 50 #X obj 359 42 metro 10;
r@106 51 #X obj 365 373 outlet~;
r@106 52 #X obj 398 352 outlet~;
r@106 53 #X obj 365 327 sig~;
r@106 54 #X obj 398 327 sig~;
r@106 55 #X text 539 419 This selects the values for the St* and m coefficients
r@106 56 for Fey's formula;
r@106 57 #X text 254 359 St* coefficient;
r@106 58 #X text 462 361 m coefficient;
r@107 59 #X text 372 240 Averaged;
r@106 60 #X connect 0 0 7 0;
r@106 61 #X connect 1 0 7 0;
r@106 62 #X connect 2 0 7 0;
r@106 63 #X connect 3 0 7 0;
r@106 64 #X connect 4 0 7 0;
r@106 65 #X connect 5 0 7 0;
r@106 66 #X connect 6 0 7 0;
r@106 67 #X connect 7 0 23 0;
r@106 68 #X connect 7 0 45 0;
r@106 69 #X connect 7 1 24 0;
r@106 70 #X connect 7 1 46 0;
r@106 71 #X connect 8 0 22 1;
r@106 72 #X connect 8 0 22 0;
r@106 73 #X connect 9 0 25 1;
r@106 74 #X connect 9 0 26 0;
r@106 75 #X connect 10 0 26 1;
r@106 76 #X connect 11 0 28 0;
r@106 77 #X connect 11 0 27 1;
r@106 78 #X connect 12 0 28 1;
r@106 79 #X connect 13 0 29 1;
r@106 80 #X connect 13 0 30 0;
r@106 81 #X connect 14 0 30 1;
r@106 82 #X connect 15 0 32 1;
r@106 83 #X connect 15 0 33 0;
r@106 84 #X connect 16 0 33 1;
r@106 85 #X connect 17 0 34 1;
r@106 86 #X connect 17 0 35 0;
r@106 87 #X connect 18 0 35 1;
r@106 88 #X connect 19 0 36 1;
r@106 89 #X connect 19 0 37 0;
r@106 90 #X connect 20 0 37 1;
r@106 91 #X connect 22 0 0 0;
r@106 92 #X connect 25 0 1 0;
r@106 93 #X connect 26 0 25 0;
r@106 94 #X connect 27 0 2 0;
r@106 95 #X connect 28 0 27 0;
r@106 96 #X connect 29 0 3 0;
r@106 97 #X connect 30 0 29 0;
r@106 98 #X connect 32 0 4 0;
r@106 99 #X connect 33 0 32 0;
r@106 100 #X connect 34 0 5 0;
r@106 101 #X connect 35 0 34 0;
r@106 102 #X connect 36 0 6 0;
r@106 103 #X connect 37 0 36 0;
r@106 104 #X connect 38 0 8 0;
r@106 105 #X connect 38 0 9 0;
r@106 106 #X connect 38 0 10 0;
r@106 107 #X connect 38 0 11 0;
r@106 108 #X connect 38 0 12 0;
r@106 109 #X connect 38 0 13 0;
r@106 110 #X connect 38 0 14 0;
r@106 111 #X connect 38 0 31 0;
r@106 112 #X connect 38 0 15 0;
r@106 113 #X connect 38 0 16 0;
r@106 114 #X connect 38 0 17 0;
r@106 115 #X connect 38 0 18 0;
r@106 116 #X connect 38 0 19 0;
r@106 117 #X connect 38 0 20 0;
r@106 118 #X connect 39 0 38 0;
r@106 119 #X connect 40 0 41 0;
r@106 120 #X connect 41 0 42 0;
r@106 121 #X connect 42 0 38 0;
r@106 122 #X connect 45 0 43 0;
r@106 123 #X connect 46 0 44 0;
r@114 124 #X restore 273 83 pd eqnSelect;
r@114 125 #X obj 203 85 sqrt~;
r@114 126 #X obj 342 119 /~;
r@114 127 #X obj 273 166 +~;
r@114 128 #X text 135 97 sqrt(Re);
r@114 129 #X text 250 114 St*;
r@114 130 #X text 359 101 m;
r@114 131 #X text 376 152 St = St* + m / sqrt(Re);
r@106 132 #X connect 0 0 4 0;
r@106 133 #X connect 0 0 5 0;
r@106 134 #X connect 4 0 7 0;
r@106 135 #X connect 4 1 6 0;
r@106 136 #X connect 5 0 6 1;
r@106 137 #X connect 6 0 7 1;
r@106 138 #X connect 7 0 1 0;