Mercurial > hg > weather-synthesis-prototyping

annotate SwordLogInterp/newStrou.pd @ 261:eb3fb10f2541

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