Mercurial > hg > cavity-tone

annotate CavD5.pd @ 1:88c2acdaa49a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Patches altered to account for additional factor.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 10 Apr 2017 19:38:33 +0100
parents bb1881a77862
children 36c099597c68
rev   line source
r@1 1 #N canvas 267 25 1287 823 10;
r@0 2 #X obj -172 -182 loadbang;
r@0 3 #X obj -172 -145 metro 10;
r@0 4 #X obj -172 -162 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@0 5 1 1;
r@0 6 #X obj -172 -123 s myMet;
r@0 7 #N canvas 20 383 344 123 machCalc 0;
r@0 8 #X text 107 15 Speed of Sound (dry air 20 Degs C);
r@0 9 #X obj 26 -14 vd~ varwind;
r@0 10 #X obj 26 33 s~ MY_MACH;
r@0 11 #X obj 26 9 /~ 343;
r@0 12 #X connect 1 0 3 0;
r@0 13 #X connect 3 0 2 0;
r@0 14 #X restore 159 -181 pd machCalc;
r@0 15 #X obj -162 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@0 16 #X obj -99 467 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@0 17 #X text -102 376 Gain;
r@0 18 #X obj -154 347 loadbang;
r@0 19 #N canvas 555 179 313 396 opLevels 0;
r@0 20 #X obj 79 184 dac~;
r@0 21 #X obj 30 70 catch~ l;
r@0 22 #X obj 128 70 catch~ r;
r@0 23 #X obj 129 104 *~ 0.45;
r@0 24 #X obj 30 104 *~ 0.45;
r@0 25 #X obj 30 210 prvu~;
r@0 26 #X obj 129 211 prvu~;
r@0 27 #X obj 93 33 inlet;
r@0 28 #X obj 30 239 outlet;
r@0 29 #X obj 129 239 outlet;
r@0 30 #X connect 1 0 4 0;
r@0 31 #X connect 2 0 3 0;
r@0 32 #X connect 3 0 6 0;
r@0 33 #X connect 3 0 0 1;
r@0 34 #X connect 4 0 5 0;
r@0 35 #X connect 4 0 0 0;
r@0 36 #X connect 5 0 8 0;
r@0 37 #X connect 6 0 9 0;
r@0 38 #X connect 7 0 4 1;
r@0 39 #X connect 7 0 3 1;
r@0 40 #X restore -163 424 pd opLevels;
r@0 41 #X obj -160 395 hsl 250 25 0.0001 1e+09 1 0 empty empty empty -2 -8
r@1 42 0 10 -262144 -1 -1 5747 1;
r@0 43 #X obj -163 324 r GAIN;
r@0 44 #X floatatom -220 425 8 0 0 0 - - -;
r@0 45 #X obj 436 -178 hsl 100 25 0.0001 10 1 0 empty empty Length 3 13 0
r@1 46 10 -262144 -1 -1 3274 1;
r@0 47 #X floatatom 481 -147 0 0 0 0 - - -;
r@0 48 #X obj 550 -178 hsl 100 25 0.0001 10 1 0 empty empty Width 3 13 0 10
r@1 49 -262144 -1 -1 5501 1;
r@0 50 #X floatatom 595 -148 0 0 0 0 - - -;
r@0 51 #X obj 664 -178 hsl 100 25 0.0001 10 1 0 empty empty Depth 3 13 0 10
r@1 52 -262144 -1 -1 2329 1;
r@0 53 #X floatatom 712 -149 0 0 0 0 - - -;
r@0 54 #X obj -41 -3 delwrite~ varwind 3000;
r@0 55 #X obj 70 -127 hsl 100 15 0 100 0 0 empty empty empty -2 -8 0 10 -262144
r@0 56 -1 -1 0 1;
r@0 57 #X obj -39 -83 *~ 1;
r@0 58 #X obj -39 -61 +~ 1;
r@0 59 #X obj -39 -185 loadbang;
r@0 60 #X floatatom 108 -104 0 0 0 0 - - -;
r@0 61 #X obj 67 -151 r SPEED;
r@0 62 #X obj 100 -37 snapshot~;
r@0 63 #X floatatom 100 -17 0 0 0 0 - - -;
r@0 64 #X msg 122 -150 20;
r@0 65 #X obj 100 -58 r myMet;
r@0 66 #X obj 30 -104 * 0.5;
r@0 67 #X obj 67 -104 * 0.88;
r@0 68 #X obj -36 -161 hsl 50 30 0 1 0 0 empty empty Gusts 2 8 0 10 -261995
r@0 69 -1 -4032 0 1;
r@0 70 #X obj 29 -130 t f b;
r@0 71 #X obj 28 -152 * 0.75;
r@0 72 #X obj 156 -149 r underWind;
r@0 73 #X obj -39 -109 windGenD1;
r@0 74 #X obj -172 -99 vd~ varwind;
r@0 75 #X obj 315 -66 snapshot~;
r@0 76 #X floatatom 315 -46 0 0 0 0 - - -;
r@0 77 #X obj 315 -87 r myMet;
r@0 78 #X obj 248 -88 r~ MY_MACH;
r@0 79 #X obj 522 527 s depth;
r@0 80 #X obj 501 548 s width;
r@0 81 #X obj 480 569 s length;
r@0 82 #X obj 661 -199 r depth;
r@0 83 #X obj 547 -199 r width;
r@0 84 #X obj 433 -199 r length;
r@0 85 #X obj -94 -27 line~;
r@0 86 #X text -81 52 St_1;
r@0 87 #X msg 433 -148 \$1 20;
r@0 88 #X obj 433 -128 line~;
r@0 89 #X msg 547 -150 \$1 20;
r@0 90 #X obj 547 -130 line~;
r@0 91 #X msg 661 -150 \$1 20;
r@0 92 #X obj 661 -130 line~;
r@0 93 #X obj 776 -197 noise~;
r@0 94 #X obj 886 -207 loadbang;
r@0 95 #X msg 886 -187 0.5;
r@0 96 #X obj 886 -143 s \$0-thisPan;
r@0 97 #X obj 193 -42 *~ 2.23694;
r@0 98 #X obj 260 -27 snapshot~;
r@0 99 #X floatatom 260 -7 0 0 0 0 - - -;
r@0 100 #X obj 260 -48 r myMet;
r@0 101 #X text 237 10 Wind Speed (MPH);
r@0 102 #X text 97 1 Wind Speed (m/s);
r@0 103 #N canvas 6 42 1356 774 Conditions 0;
r@0 104 #X obj 295 127 /~;
r@0 105 #N canvas 795 163 450 300 Re_theta 0;
r@0 106 #X obj 135 66 *~ 1.225;
r@0 107 #X obj 135 110 *~;
r@0 108 #X obj 135 135 /~ 1.8e-05;
r@0 109 #X obj 135 164 outlet~;
r@0 110 #X obj 135 43 r~ windSpeed;
r@0 111 #X obj 89 183 s~ thisRe_Theta;
r@0 112 #X obj 312 109 inlet~;
r@0 113 #X connect 0 0 1 0;
r@0 114 #X connect 1 0 2 0;
r@0 115 #X connect 2 0 3 0;
r@0 116 #X connect 2 0 5 0;
r@0 117 #X connect 4 0 0 0;
r@0 118 #X connect 6 0 1 1;
r@0 119 #X restore 280 312 pd Re_theta;
r@0 120 #X obj 280 334 sqrt~;
r@0 121 #X obj 265 356 /~;
r@0 122 #X obj 265 382 *~;
r@0 123 #X obj 280 272 sig~ 325;
r@0 124 #X obj 250 426 -~;
r@0 125 #X obj 205 466 sig~ 1;
r@0 126 #X obj 250 467 exp~;
r@0 127 #X obj 220 509 /~;
r@0 128 #X obj 235 488 +~;
r@0 129 #X obj 205 530 -~;
r@0 130 #X obj 250 447 *~ 100000;
r@0 131 #X obj 357 468 /~;
r@0 132 #X obj 327 399 sig~ 1;
r@0 133 #X obj 357 536 exp~;
r@0 134 #X obj 327 582 /~;
r@0 135 #X obj 342 557 +~;
r@0 136 #X obj 357 513 *~ 10;
r@0 137 #X obj 268 59 sig~ 1;
r@0 138 #X obj 295 189 exp~;
r@0 139 #X obj 265 230 /~;
r@0 140 #X obj 280 210 +~;
r@0 141 #X obj 295 148 -~ 0.2;
r@0 142 #X obj 295 169 *~ 100;
r@0 143 #X obj 265 252 *~ 250;
r@0 144 #X obj 265 292 +~;
r@0 145 #X text 122 5 Sharohia - Fig 4 Minimum values below which no oscillations
r@0 146 occur;
r@0 147 #X obj 312 609 *~;
r@0 148 #X text 345 138 If d/(shear_thickness) < 0.2 the non-dimensional length
r@0 149 increases (Sharohia Fig 4).;
r@0 150 #X obj 357 420 r~ thisLen;
r@0 151 #X obj 372 441 r~ thisDep;
r@0 152 #X obj 295 83 r~ thisDep;
r@0 153 #X obj 250 403 r~ thisLen;
r@0 154 #X obj 829 377 s~ \$0-thisCond;
r@0 155 #X obj 453 601 snapshot~;
r@0 156 #X floatatom 453 621 0 0 0 0 - - -;
r@0 157 #X obj 453 580 r myMet;
r@0 158 #X obj 357 492 -~ 9.5;
r@0 159 #X text 404 477 This tests for open/closed cavities. 9.5 as a compramise
r@0 160 between 11 for supersonic (Charwat et al) and 8 for subsonic - Sharohia
r@0 161 (Intro);
r@0 162 #X obj 406 220 r~ effectShearThick_0;
r@0 163 #X obj 761 377 outlet~;
r@0 164 #X obj 406 242 *~ 8;
r@0 165 #X obj 859 219 /~;
r@0 166 #X obj 829 150 sig~ 1;
r@0 167 #X obj 859 287 exp~;
r@0 168 #X obj 829 333 /~;
r@0 169 #X obj 844 308 +~;
r@0 170 #X obj 859 264 *~ 10;
r@0 171 #X obj 859 171 r~ thisLen;
r@0 172 #X obj 874 192 r~ thisDep;
r@0 173 #X obj 947 363 snapshot~;
r@0 174 #X floatatom 947 383 0 0 0 0 - - -;
r@0 175 #X obj 947 342 r myMet;
r@0 176 #X obj 859 243 -~ 9.5;
r@0 177 #X text 906 228 This tests for open/closed cavities. 9.5 as a compramise
r@0 178 between 11 for supersonic (Charwat et al) and 8 for subsonic - Sharohia
r@0 179 (Intro);
r@0 180 #X text 154 673 This part of the patch was missed out. It is taken
r@0 181 form Sarohia paper but if accurate then Howe's test conditions would
r@0 182 not produce any tone.;
r@0 183 #X connect 0 0 23 0;
r@0 184 #X connect 1 0 2 0;
r@0 185 #X connect 2 0 3 1;
r@0 186 #X connect 3 0 4 0;
r@0 187 #X connect 4 0 6 1;
r@0 188 #X connect 5 0 26 1;
r@0 189 #X connect 6 0 12 0;
r@0 190 #X connect 7 0 9 0;
r@0 191 #X connect 7 0 10 0;
r@0 192 #X connect 7 0 11 0;
r@0 193 #X connect 8 0 10 1;
r@0 194 #X connect 9 0 11 1;
r@0 195 #X connect 10 0 9 1;
r@0 196 #X connect 11 0 28 0;
r@0 197 #X connect 12 0 8 0;
r@0 198 #X connect 13 0 38 0;
r@0 199 #X connect 14 0 16 0;
r@0 200 #X connect 14 0 17 0;
r@0 201 #X connect 15 0 17 1;
r@0 202 #X connect 16 0 28 1;
r@0 203 #X connect 17 0 16 1;
r@0 204 #X connect 18 0 15 0;
r@0 205 #X connect 19 0 21 0;
r@0 206 #X connect 19 0 22 0;
r@0 207 #X connect 20 0 22 1;
r@0 208 #X connect 21 0 25 0;
r@0 209 #X connect 22 0 21 1;
r@0 210 #X connect 23 0 24 0;
r@0 211 #X connect 24 0 20 0;
r@0 212 #X connect 25 0 26 0;
r@0 213 #X connect 26 0 3 0;
r@0 214 #X connect 28 0 35 0;
r@0 215 #X connect 30 0 13 0;
r@0 216 #X connect 31 0 13 1;
r@0 217 #X connect 32 0 0 0;
r@0 218 #X connect 33 0 6 0;
r@0 219 #X connect 35 0 36 0;
r@0 220 #X connect 37 0 35 0;
r@0 221 #X connect 38 0 18 0;
r@0 222 #X connect 40 0 42 0;
r@0 223 #X connect 42 0 4 1;
r@0 224 #X connect 42 0 0 1;
r@0 225 #X connect 42 0 1 0;
r@0 226 #X connect 43 0 54 0;
r@0 227 #X connect 44 0 46 0;
r@0 228 #X connect 44 0 47 0;
r@0 229 #X connect 45 0 47 1;
r@0 230 #X connect 46 0 51 0;
r@0 231 #X connect 46 0 34 0;
r@0 232 #X connect 46 0 41 0;
r@0 233 #X connect 47 0 46 1;
r@0 234 #X connect 48 0 45 0;
r@0 235 #X connect 49 0 43 0;
r@0 236 #X connect 50 0 43 1;
r@0 237 #X connect 51 0 52 0;
r@0 238 #X connect 53 0 51 0;
r@0 239 #X connect 54 0 48 0;
r@0 240 #X restore 845 94 pd Conditions;
r@0 241 #X msg 240 -150 12;
r@0 242 #X text 312 88 Mass Density of Air;
r@0 243 #X obj 432 89 *~ 1.225;
r@0 244 #X obj 432 128 /~ 1.81e-05;
r@0 245 #X text 444 169 Reynolds Number;
r@0 246 #X text 462 108 Viscosity;
r@0 247 #X obj 432 149 s~ \$0-myRey;
r@0 248 #X obj 432 109 *~;
r@0 249 #X msg 274 -152 15;
r@0 250 #X obj -105 143 snapshot~;
r@0 251 #X floatatom -105 163 0 0 0 0 - - -;
r@0 252 #X obj 20 141 snapshot~;
r@0 253 #X floatatom 20 161 0 0 0 0 - - -;
r@0 254 #X obj 54 113 r myMet;
r@0 255 #X obj 141 141 snapshot~;
r@0 256 #X floatatom 141 161 0 0 0 0 - - -;
r@0 257 #X obj 265 142 snapshot~;
r@0 258 #X floatatom 265 162 0 0 0 0 - - -;
r@0 259 #X floatatom 880 -50 0 0 0 0 - - -;
r@0 260 #X msg 813 -29 \$1 20;
r@0 261 #X obj 813 -9 line~;
r@0 262 #X obj 816 -78 hsl 100 25 180 0 0 0 empty empty Elevation 3 13 0 10
r@0 263 -262144 -1 -1 8250 1;
r@0 264 #X msg 813 -106 30;
r@0 265 #X obj 813 -49 / 360;
r@0 266 #X obj 813 35 s~ thisEle;
r@0 267 #X obj -172 -79 s~ windSpeed;
r@0 268 #X obj 432 68 r~ windSpeed;
r@0 269 #X obj 433 -107 s~ thisLen;
r@0 270 #X obj 547 -109 s~ thisWid;
r@0 271 #X obj 661 -109 s~ thisDep;
r@0 272 #X obj 493 88 r~ thisLen;
r@0 273 #X obj 776 -176 s~ \$0-thisNoise;
r@0 274 #X obj -168 147 snapshot~;
r@0 275 #X floatatom -168 167 0 0 0 0 - - -;
r@0 276 #X obj -42 142 snapshot~;
r@0 277 #X floatatom -42 162 0 0 0 0 - - -;
r@0 278 #X obj 80 141 snapshot~;
r@0 279 #X floatatom 80 161 0 0 0 0 - - -;
r@0 280 #X obj 203 142 snapshot~;
r@0 281 #X floatatom 203 162 0 0 0 0 - - -;
r@0 282 #N canvas 91 29 1271 683 rossFreqD1_n=1-4 0;
r@0 283 #X obj 152 -70 r~ MY_MACH;
r@0 284 #X obj 137 -91 sig~ 1;
r@0 285 #X obj 152 -45 *~;
r@0 286 #X obj 152 -23 *~ 0.2;
r@0 287 #X obj 137 0 +~;
r@0 288 #X obj 137 23 sqrt~;
r@0 289 #X obj 122 -113 r~ MY_MACH;
r@0 290 #X obj 122 44 /~;
r@0 291 #X obj 107 88 /~;
r@0 292 #X obj 27 81 r myMet;
r@0 293 #X obj 27 103 snapshot~;
r@0 294 #X floatatom 27 127 0 0 0 0 - - -;
r@0 295 #X obj 107 130 *~;
r@0 296 #X obj 140 216 r myMet;
r@0 297 #X obj 140 237 snapshot~;
r@0 298 #X floatatom 140 261 0 0 0 0 - - -;
r@0 299 #X text 203 -28 (y-1)/2 -> y = 1.4;
r@0 300 #X text 167 -138 alpha = 0.25;
r@0 301 #X text 190 64 (1/k) -> k = 0.57;
r@0 302 #X text 148 284 m = 1;
r@0 303 #X text 163 -158 h = 1;
r@0 304 #X text 46 -176 A. Rona;
r@0 305 #X obj 107 -136 -~ 0.25;
r@0 306 #X text 7 -200 Has + alpha in paper but Rossiter has - ???;
r@0 307 #X obj 56 256 outlet~;
r@0 308 #X text 186 -6 Heller \, Holmes & Covert;
r@0 309 #X obj 15 208 outlet~;
r@0 310 #X obj 107 170 /~;
r@0 311 #X obj 122 66 +~ 1.7544;
r@0 312 #X obj 107 -158 sig~ 1;
r@0 313 #X obj 499 -79 r~ MY_MACH;
r@0 314 #X obj 484 -100 sig~ 1;
r@0 315 #X obj 499 -54 *~;
r@0 316 #X obj 499 -32 *~ 0.2;
r@0 317 #X obj 484 -9 +~;
r@0 318 #X obj 484 14 sqrt~;
r@0 319 #X obj 469 -122 r~ MY_MACH;
r@0 320 #X obj 469 35 /~;
r@0 321 #X obj 454 79 /~;
r@0 322 #X obj 374 72 r myMet;
r@0 323 #X obj 374 94 snapshot~;
r@0 324 #X floatatom 374 118 0 0 0 0 - - -;
r@0 325 #X obj 454 121 *~;
r@0 326 #X obj 487 207 r myMet;
r@0 327 #X obj 487 228 snapshot~;
r@0 328 #X floatatom 487 252 0 0 0 0 - - -;
r@0 329 #X text 550 -37 (y-1)/2 -> y = 1.4;
r@0 330 #X text 514 -147 alpha = 0.25;
r@0 331 #X text 537 55 (1/k) -> k = 0.57;
r@0 332 #X obj 454 -145 -~ 0.25;
r@0 333 #X obj 403 247 outlet~;
r@0 334 #X text 528 -14 Heller \, Holmes & Covert;
r@0 335 #X obj 362 199 outlet~;
r@0 336 #X obj 454 161 /~;
r@0 337 #X obj 469 57 +~ 1.7544;
r@0 338 #X obj 454 -167 sig~ 2;
r@0 339 #X text 510 -167 h = 2;
r@0 340 #X text 495 275 m = 2;
r@0 341 #X obj 803 -72 r~ MY_MACH;
r@0 342 #X obj 788 -93 sig~ 1;
r@0 343 #X obj 803 -47 *~;
r@0 344 #X obj 803 -25 *~ 0.2;
r@0 345 #X obj 788 -2 +~;
r@0 346 #X obj 788 21 sqrt~;
r@0 347 #X obj 773 -115 r~ MY_MACH;
r@0 348 #X obj 773 42 /~;
r@0 349 #X obj 758 86 /~;
r@0 350 #X obj 678 79 r myMet;
r@0 351 #X obj 678 101 snapshot~;
r@0 352 #X floatatom 678 125 0 0 0 0 - - -;
r@0 353 #X obj 758 128 *~;
r@0 354 #X obj 791 214 r myMet;
r@0 355 #X obj 791 235 snapshot~;
r@0 356 #X floatatom 791 259 0 0 0 0 - - -;
r@0 357 #X text 854 -30 (y-1)/2 -> y = 1.4;
r@0 358 #X text 818 -140 alpha = 0.25;
r@0 359 #X text 841 62 (1/k) -> k = 0.57;
r@0 360 #X obj 758 -138 -~ 0.25;
r@0 361 #X obj 707 254 outlet~;
r@0 362 #X text 836 -5 Heller \, Holmes & Covert;
r@0 363 #X obj 666 206 outlet~;
r@0 364 #X obj 758 168 /~;
r@0 365 #X obj 773 64 +~ 1.7544;
r@0 366 #X obj 1092 -66 r~ MY_MACH;
r@0 367 #X obj 1077 -87 sig~ 1;
r@0 368 #X obj 1092 -41 *~;
r@0 369 #X obj 1092 -19 *~ 0.2;
r@0 370 #X obj 1077 4 +~;
r@0 371 #X obj 1077 27 sqrt~;
r@0 372 #X obj 1062 -109 r~ MY_MACH;
r@0 373 #X obj 1062 48 /~;
r@0 374 #X obj 1047 92 /~;
r@0 375 #X obj 967 85 r myMet;
r@0 376 #X obj 967 107 snapshot~;
r@0 377 #X floatatom 967 131 0 0 0 0 - - -;
r@0 378 #X obj 1047 134 *~;
r@0 379 #X obj 1080 220 r myMet;
r@0 380 #X obj 1080 241 snapshot~;
r@0 381 #X floatatom 1080 265 0 0 0 0 - - -;
r@0 382 #X text 1143 -24 (y-1)/2 -> y = 1.4;
r@0 383 #X text 1107 -134 alpha = 0.25;
r@0 384 #X text 1130 68 (1/k) -> k = 0.57;
r@0 385 #X obj 1047 -132 -~ 0.25;
r@0 386 #X obj 996 260 outlet~;
r@0 387 #X text 1116 -1 Heller \, Holmes & Covert;
r@0 388 #X obj 955 212 outlet~;
r@0 389 #X obj 1047 174 /~;
r@0 390 #X obj 1062 70 +~ 1.7544;
r@0 391 #X obj 758 -160 sig~ 3;
r@0 392 #X obj 1047 -154 sig~ 4;
r@0 393 #X text 799 282 m = 3;
r@0 394 #X text 814 -160 h = 3;
r@0 395 #X text 1103 -154 h = 4;
r@0 396 #X text 1088 288 m = 4;
r@0 397 #X obj 122 109 r~ windSpeed;
r@0 398 #X obj 469 100 r~ windSpeed;
r@0 399 #X obj 773 107 r~ windSpeed;
r@0 400 #X obj 1062 113 r~ windSpeed;
r@0 401 #X obj 1068 154 r~ thisLen;
r@0 402 #X obj 779 148 r~ thisLen;
r@0 403 #X obj 475 141 r~ thisLen;
r@0 404 #X obj 128 150 r~ thisLen;
r@0 405 #X connect 0 0 2 0;
r@0 406 #X connect 0 0 2 1;
r@0 407 #X connect 1 0 4 0;
r@0 408 #X connect 2 0 3 0;
r@0 409 #X connect 3 0 4 1;
r@0 410 #X connect 4 0 5 0;
r@0 411 #X connect 5 0 7 1;
r@0 412 #X connect 6 0 7 0;
r@0 413 #X connect 7 0 28 0;
r@0 414 #X connect 8 0 12 0;
r@0 415 #X connect 8 0 10 0;
r@0 416 #X connect 8 0 26 0;
r@0 417 #X connect 9 0 10 0;
r@0 418 #X connect 10 0 11 0;
r@0 419 #X connect 12 0 27 0;
r@0 420 #X connect 13 0 14 0;
r@0 421 #X connect 14 0 15 0;
r@0 422 #X connect 22 0 8 0;
r@0 423 #X connect 27 0 14 0;
r@0 424 #X connect 27 0 24 0;
r@0 425 #X connect 28 0 8 1;
r@0 426 #X connect 29 0 22 0;
r@0 427 #X connect 30 0 32 0;
r@0 428 #X connect 30 0 32 1;
r@0 429 #X connect 31 0 34 0;
r@0 430 #X connect 32 0 33 0;
r@0 431 #X connect 33 0 34 1;
r@0 432 #X connect 34 0 35 0;
r@0 433 #X connect 35 0 37 1;
r@0 434 #X connect 36 0 37 0;
r@0 435 #X connect 37 0 54 0;
r@0 436 #X connect 38 0 42 0;
r@0 437 #X connect 38 0 40 0;
r@0 438 #X connect 38 0 52 0;
r@0 439 #X connect 39 0 40 0;
r@0 440 #X connect 40 0 41 0;
r@0 441 #X connect 42 0 53 0;
r@0 442 #X connect 43 0 44 0;
r@0 443 #X connect 44 0 45 0;
r@0 444 #X connect 49 0 38 0;
r@0 445 #X connect 53 0 44 0;
r@0 446 #X connect 53 0 50 0;
r@0 447 #X connect 54 0 38 1;
r@0 448 #X connect 55 0 49 0;
r@0 449 #X connect 58 0 60 0;
r@0 450 #X connect 58 0 60 1;
r@0 451 #X connect 59 0 62 0;
r@0 452 #X connect 60 0 61 0;
r@0 453 #X connect 61 0 62 1;
r@0 454 #X connect 62 0 63 0;
r@0 455 #X connect 63 0 65 1;
r@0 456 #X connect 64 0 65 0;
r@0 457 #X connect 65 0 82 0;
r@0 458 #X connect 66 0 70 0;
r@0 459 #X connect 66 0 68 0;
r@0 460 #X connect 66 0 80 0;
r@0 461 #X connect 67 0 68 0;
r@0 462 #X connect 68 0 69 0;
r@0 463 #X connect 70 0 81 0;
r@0 464 #X connect 71 0 72 0;
r@0 465 #X connect 72 0 73 0;
r@0 466 #X connect 77 0 66 0;
r@0 467 #X connect 81 0 72 0;
r@0 468 #X connect 81 0 78 0;
r@0 469 #X connect 82 0 66 1;
r@0 470 #X connect 83 0 85 0;
r@0 471 #X connect 83 0 85 1;
r@0 472 #X connect 84 0 87 0;
r@0 473 #X connect 85 0 86 0;
r@0 474 #X connect 86 0 87 1;
r@0 475 #X connect 87 0 88 0;
r@0 476 #X connect 88 0 90 1;
r@0 477 #X connect 89 0 90 0;
r@0 478 #X connect 90 0 107 0;
r@0 479 #X connect 91 0 95 0;
r@0 480 #X connect 91 0 93 0;
r@0 481 #X connect 91 0 105 0;
r@0 482 #X connect 92 0 93 0;
r@0 483 #X connect 93 0 94 0;
r@0 484 #X connect 95 0 106 0;
r@0 485 #X connect 96 0 97 0;
r@0 486 #X connect 97 0 98 0;
r@0 487 #X connect 102 0 91 0;
r@0 488 #X connect 106 0 97 0;
r@0 489 #X connect 106 0 103 0;
r@0 490 #X connect 107 0 91 1;
r@0 491 #X connect 108 0 77 0;
r@0 492 #X connect 109 0 102 0;
r@0 493 #X connect 114 0 12 1;
r@0 494 #X connect 115 0 42 1;
r@0 495 #X connect 116 0 70 1;
r@0 496 #X connect 117 0 95 1;
r@0 497 #X connect 118 0 106 1;
r@0 498 #X connect 119 0 81 1;
r@0 499 #X connect 120 0 53 1;
r@0 500 #X connect 121 0 27 1;
r@0 501 #X restore -47 39 pd rossFreqD1_n=1-4;
r@0 502 #X obj 603 -18 s \$0-Qval;
r@0 503 #X obj 606 -37 hsl 50 15 1 60 0 0 empty empty empty -2 -8 0 10 -262144
r@1 504 -1 -1 1940 1;
r@0 505 #X obj 603 -77 loadbang;
r@0 506 #X obj 889 -165 hsl 50 20 0.01 0.99 0 0 empty empty empty -2 -8 0 10
r@0 507 -262144 -1 -1 2450 1;
r@0 508 #X floatatom 501 -12 0 0 0 0 - - -;
r@0 509 #X msg 434 -11 \$1 20;
r@0 510 #X obj 434 9 line~;
r@0 511 #X obj 437 -40 hsl 100 25 0.1 50 0 0 empty empty Distance 3 13 0 10
r@0 512 -262144 -1 -1 179 1;
r@0 513 #X obj 434 30 s~ thisDist;
r@0 514 #X obj 873 372 loadbang;
r@0 515 #X obj 813 -128 loadbang;
r@0 516 #X obj 434 -80 loadbang;
r@0 517 #N canvas 137 142 402 461 Monopole 0;
r@0 518 #X obj 211 382 throw~ l;
r@0 519 #X obj 238 359 throw~ r;
r@0 520 #X obj 211 338 fcpan;
r@0 521 #X obj 238 316 r \$0-thisPan;
r@0 522 #X obj 210 89 r~ \$0-thisNoise;
r@0 523 #X obj 270 109 r \$0-Qval;
r@0 524 #X floatatom 277 144 5 0 0 0 - - -;
r@0 525 #X obj 210 245 *~;
r@0 526 #X obj 72 12 inlet~;
r@0 527 #X obj 225 223 inlet~;
r@0 528 #X obj 210 130 vcf~ 30;
r@0 529 #X obj 210 152 vcf~ 30;
r@0 530 #N canvas 304 98 361 372 rangeLimit 0;
r@0 531 #X obj 285 58 inlet~;
r@0 532 #X obj 128 282 outlet~;
r@0 533 #X obj 103 60 sig~ 1;
r@0 534 #X obj 117 145 exp~;
r@0 535 #X obj 87 186 /~;
r@0 536 #X obj 102 166 +~;
r@0 537 #X obj 118 104 -~ 1;
r@0 538 #X obj 117 125 *~ 100;
r@0 539 #X obj 87 207 *~ -1;
r@0 540 #X obj 87 228 +~ 1;
r@0 541 #X obj 163 87 sig~ 1;
r@0 542 #X obj 173 173 exp~;
r@0 543 #X obj 143 214 /~;
r@0 544 #X obj 158 194 +~;
r@0 545 #X obj 173 130 -~ 1;
r@0 546 #X obj 173 108 /~ 20000;
r@0 547 #X obj 173 151 *~ 1000;
r@0 548 #X obj 128 259 *~;
r@0 549 #X obj 118 81 /~ 80;
r@0 550 #X connect 0 0 15 0;
r@0 551 #X connect 0 0 18 0;
r@0 552 #X connect 2 0 4 0;
r@0 553 #X connect 2 0 5 0;
r@0 554 #X connect 3 0 5 1;
r@0 555 #X connect 4 0 8 0;
r@0 556 #X connect 5 0 4 1;
r@0 557 #X connect 6 0 7 0;
r@0 558 #X connect 7 0 3 0;
r@0 559 #X connect 8 0 9 0;
r@0 560 #X connect 9 0 17 0;
r@0 561 #X connect 10 0 12 0;
r@0 562 #X connect 10 0 13 0;
r@0 563 #X connect 11 0 13 1;
r@0 564 #X connect 12 0 17 1;
r@0 565 #X connect 13 0 12 1;
r@0 566 #X connect 14 0 16 0;
r@0 567 #X connect 15 0 14 0;
r@0 568 #X connect 16 0 11 0;
r@0 569 #X connect 17 0 1 0;
r@0 570 #X connect 18 0 6 0;
r@0 571 #X restore 93 107 pd rangeLimit;
r@0 572 #X text 40 -33 Generates the sound associated with the resonant cavity
r@0 573 monopole.;
r@0 574 #X obj 149 349 outlet~;
r@0 575 #X obj 149 327 *~;
r@0 576 #X obj 315 274 snapshot~;
r@0 577 #X floatatom 315 294 0 0 0 0 - - -;
r@0 578 #X obj 315 253 r myMet;
r@0 579 #X connect 2 0 0 0;
r@0 580 #X connect 2 1 1 0;
r@0 581 #X connect 3 0 2 1;
r@0 582 #X connect 4 0 10 0;
r@0 583 #X connect 5 0 6 0;
r@0 584 #X connect 5 0 10 2;
r@0 585 #X connect 5 0 11 2;
r@0 586 #X connect 7 0 2 0;
r@0 587 #X connect 8 0 12 0;
r@0 588 #X connect 8 0 10 1;
r@0 589 #X connect 8 0 11 1;
r@0 590 #X connect 9 0 7 1;
r@0 591 #X connect 10 0 11 0;
r@1 592 #X connect 11 0 7 0;
r@1 593 #X connect 12 0 15 0;
r@1 594 #X connect 15 0 14 0;
r@1 595 #X connect 16 0 17 0;
r@1 596 #X connect 18 0 16 0;
r@0 597 #X restore 83 508 pd Monopole;
r@0 598 #N canvas 570 67 638 485 Dipoles 0;
r@0 599 #X obj 132 230 *~;
r@0 600 #X obj 132 355 throw~ l;
r@0 601 #X obj 159 332 throw~ r;
r@0 602 #X obj 132 311 fcpan;
r@0 603 #X obj 159 289 r \$0-thisPan;
r@0 604 #X obj 132 119 r~ \$0-thisNoise;
r@0 605 #X obj 192 139 r \$0-Qval;
r@0 606 #X floatatom 199 174 5 0 0 0 - - -;
r@0 607 #X obj 132 160 vcf~ 30;
r@0 608 #X obj 132 182 vcf~ 30;
r@0 609 #X obj 249 68 inlet~;
r@0 610 #N canvas 304 98 361 372 rangeLimit 0;
r@0 611 #X obj 285 58 inlet~;
r@0 612 #X obj 128 282 outlet~;
r@0 613 #X obj 103 60 sig~ 1;
r@0 614 #X obj 117 145 exp~;
r@0 615 #X obj 87 186 /~;
r@0 616 #X obj 102 166 +~;
r@0 617 #X obj 118 104 -~ 1;
r@0 618 #X obj 117 125 *~ 100;
r@0 619 #X obj 87 207 *~ -1;
r@0 620 #X obj 87 228 +~ 1;
r@0 621 #X obj 163 87 sig~ 1;
r@0 622 #X obj 173 173 exp~;
r@0 623 #X obj 143 214 /~;
r@0 624 #X obj 158 194 +~;
r@0 625 #X obj 173 130 -~ 1;
r@0 626 #X obj 173 151 *~ 1000;
r@0 627 #X obj 128 259 *~;
r@0 628 #X obj 173 108 /~ 15000;
r@0 629 #X obj 118 81 /~ 80;
r@0 630 #X connect 0 0 17 0;
r@0 631 #X connect 0 0 18 0;
r@0 632 #X connect 2 0 4 0;
r@0 633 #X connect 2 0 5 0;
r@0 634 #X connect 3 0 5 1;
r@0 635 #X connect 4 0 8 0;
r@0 636 #X connect 5 0 4 1;
r@0 637 #X connect 6 0 7 0;
r@0 638 #X connect 7 0 3 0;
r@0 639 #X connect 8 0 9 0;
r@0 640 #X connect 9 0 16 0;
r@0 641 #X connect 10 0 12 0;
r@0 642 #X connect 10 0 13 0;
r@0 643 #X connect 11 0 13 1;
r@0 644 #X connect 12 0 16 1;
r@0 645 #X connect 13 0 12 1;
r@0 646 #X connect 14 0 15 0;
r@0 647 #X connect 15 0 11 0;
r@0 648 #X connect 16 0 1 0;
r@0 649 #X connect 17 0 14 0;
r@0 650 #X connect 18 0 6 0;
r@0 651 #X restore 14 144 pd rangeLimit;
r@0 652 #X obj 132 274 *~;
r@0 653 #X obj 147 252 r~ \$0-thisCond;
r@0 654 #X obj 276 338 snapshot~;
r@0 655 #X floatatom 276 358 0 0 0 0 - - -;
r@0 656 #X obj 276 317 r myMet;
r@0 657 #X obj 263 378 outlet;
r@0 658 #X obj 147 204 HoweIntensityDipoleD2;
r@0 659 #X connect 0 0 12 0;
r@0 660 #X connect 3 0 1 0;
r@0 661 #X connect 3 1 2 0;
r@0 662 #X connect 4 0 3 1;
r@0 663 #X connect 5 0 8 0;
r@0 664 #X connect 6 0 7 0;
r@0 665 #X connect 6 0 8 2;
r@0 666 #X connect 6 0 9 2;
r@0 667 #X connect 8 0 9 0;
r@0 668 #X connect 9 0 0 0;
r@0 669 #X connect 10 0 11 0;
r@0 670 #X connect 10 0 8 1;
r@0 671 #X connect 10 0 9 1;
r@0 672 #X connect 10 0 18 0;
r@0 673 #X connect 12 0 3 0;
r@0 674 #X connect 13 0 12 1;
r@0 675 #X connect 14 0 15 0;
r@0 676 #X connect 14 0 17 0;
r@0 677 #X connect 16 0 14 0;
r@0 678 #X connect 18 0 0 1;
r@0 679 #X connect 18 0 14 0;
r@0 680 #X restore -96 219 pd Dipoles;
r@0 681 #X msg 434 -61 1;
r@0 682 #X floatatom 665 -19 0 0 0 0 - - -;
r@0 683 #X msg 603 -57 40;
r@0 684 #N canvas 570 67 638 485 Dipoles 0;
r@0 685 #X obj 132 233 *~;
r@0 686 #X obj 132 359 throw~ l;
r@0 687 #X obj 159 336 throw~ r;
r@0 688 #X obj 132 315 fcpan;
r@0 689 #X obj 159 293 r \$0-thisPan;
r@0 690 #X obj 132 119 r~ \$0-thisNoise;
r@0 691 #X obj 192 139 r \$0-Qval;
r@0 692 #X floatatom 199 174 5 0 0 0 - - -;
r@0 693 #X obj 132 160 vcf~ 30;
r@0 694 #X obj 132 182 vcf~ 30;
r@0 695 #X obj 249 68 inlet~;
r@0 696 #X obj 132 278 *~;
r@0 697 #X obj 147 255 r~ \$0-thisCond;
r@0 698 #X obj 280 336 snapshot~;
r@0 699 #X floatatom 280 356 0 0 0 0 - - -;
r@0 700 #X obj 280 315 r myMet;
r@0 701 #X obj 267 376 outlet;
r@0 702 #X obj 147 208 HoweIntensityDipoleD2;
r@0 703 #X connect 0 0 11 0;
r@0 704 #X connect 3 0 1 0;
r@0 705 #X connect 3 1 2 0;
r@0 706 #X connect 4 0 3 1;
r@0 707 #X connect 5 0 8 0;
r@0 708 #X connect 6 0 7 0;
r@0 709 #X connect 6 0 8 2;
r@0 710 #X connect 6 0 9 2;
r@0 711 #X connect 8 0 9 0;
r@0 712 #X connect 9 0 0 0;
r@0 713 #X connect 10 0 8 1;
r@0 714 #X connect 10 0 9 1;
r@0 715 #X connect 10 0 17 0;
r@0 716 #X connect 11 0 3 0;
r@0 717 #X connect 12 0 11 1;
r@0 718 #X connect 13 0 14 0;
r@0 719 #X connect 13 0 16 0;
r@0 720 #X connect 15 0 13 0;
r@0 721 #X connect 17 0 13 0;
r@0 722 #X connect 17 0 0 1;
r@0 723 #X restore 7 223 pd Dipoles;
r@0 724 #N canvas 570 67 638 485 Dipoles 0;
r@0 725 #X obj 132 228 *~;
r@0 726 #X obj 132 352 throw~ l;
r@0 727 #X obj 159 329 throw~ r;
r@0 728 #X obj 132 308 fcpan;
r@0 729 #X obj 159 286 r \$0-thisPan;
r@0 730 #X obj 132 119 r~ \$0-thisNoise;
r@0 731 #X obj 192 139 r \$0-Qval;
r@0 732 #X floatatom 199 174 5 0 0 0 - - -;
r@0 733 #X obj 132 160 vcf~ 30;
r@0 734 #X obj 132 182 vcf~ 30;
r@0 735 #X obj 249 68 inlet~;
r@0 736 #X obj 132 271 *~;
r@0 737 #X obj 147 250 r~ \$0-thisCond;
r@0 738 #X obj 291 367 snapshot~;
r@0 739 #X floatatom 291 387 0 0 0 0 - - -;
r@0 740 #X obj 291 346 r myMet;
r@0 741 #X obj 278 407 outlet;
r@1 742 #X obj 147 203 HoweIntensityDipoleD2;
r@0 743 #X connect 0 0 11 0;
r@0 744 #X connect 3 0 1 0;
r@0 745 #X connect 3 1 2 0;
r@0 746 #X connect 4 0 3 1;
r@0 747 #X connect 5 0 8 0;
r@0 748 #X connect 6 0 7 0;
r@0 749 #X connect 6 0 8 2;
r@0 750 #X connect 6 0 9 2;
r@0 751 #X connect 8 0 9 0;
r@0 752 #X connect 9 0 0 0;
r@0 753 #X connect 10 0 8 1;
r@0 754 #X connect 10 0 9 1;
r@0 755 #X connect 10 0 17 0;
r@0 756 #X connect 11 0 3 0;
r@0 757 #X connect 12 0 11 1;
r@0 758 #X connect 13 0 14 0;
r@0 759 #X connect 13 0 16 0;
r@0 760 #X connect 15 0 13 0;
r@0 761 #X connect 17 0 13 0;
r@0 762 #X connect 17 0 0 1;
r@0 763 #X restore 103 229 pd Dipoles;
r@0 764 #N canvas 570 67 638 485 Dipoles 0;
r@0 765 #X obj 132 232 *~;
r@0 766 #X obj 132 357 throw~ l;
r@0 767 #X obj 159 334 throw~ r;
r@0 768 #X obj 132 313 fcpan;
r@0 769 #X obj 159 291 r \$0-thisPan;
r@0 770 #X obj 132 119 r~ \$0-thisNoise;
r@0 771 #X obj 192 139 r \$0-Qval;
r@0 772 #X floatatom 199 174 5 0 0 0 - - -;
r@0 773 #X obj 132 160 vcf~ 30;
r@0 774 #X obj 132 182 vcf~ 30;
r@0 775 #X obj 249 68 inlet~;
r@0 776 #X obj 271 347 snapshot~;
r@0 777 #X floatatom 271 367 0 0 0 0 - - -;
r@0 778 #X obj 271 326 r myMet;
r@0 779 #X obj 132 276 *~;
r@0 780 #X obj 147 254 r~ \$0-thisCond;
r@0 781 #X obj 258 387 outlet;
r@0 782 #X obj 147 207 HoweIntensityDipoleD2;
r@0 783 #X connect 0 0 14 0;
r@0 784 #X connect 3 0 1 0;
r@0 785 #X connect 3 1 2 0;
r@0 786 #X connect 4 0 3 1;
r@0 787 #X connect 5 0 8 0;
r@0 788 #X connect 6 0 7 0;
r@0 789 #X connect 6 0 8 2;
r@0 790 #X connect 6 0 9 2;
r@0 791 #X connect 8 0 9 0;
r@0 792 #X connect 9 0 0 0;
r@0 793 #X connect 10 0 8 1;
r@0 794 #X connect 10 0 9 1;
r@0 795 #X connect 10 0 17 0;
r@0 796 #X connect 11 0 12 0;
r@0 797 #X connect 11 0 16 0;
r@0 798 #X connect 13 0 11 0;
r@0 799 #X connect 14 0 3 0;
r@0 800 #X connect 15 0 14 1;
r@0 801 #X connect 17 0 11 0;
r@0 802 #X connect 17 0 0 1;
r@0 803 #X restore 252 224 pd Dipoles;
r@0 804 #N canvas 303 310 942 536 QCalc 0;
r@0 805 #X obj 304 340 snapshot~;
r@0 806 #X obj 304 318 r myMet;
r@0 807 #X obj 304 360 outlet;
r@0 808 #X obj 112 79 log~;
r@0 809 #X obj 133 57 sig~ 10;
r@0 810 #X obj 112 100 *~ -5.345;
r@0 811 #X obj 112 122 +~ 52.16;
r@0 812 #X obj 431 185 snapshot~;
r@0 813 #X floatatom 431 205 0 0 0 0 - - -;
r@0 814 #X obj 431 164 r myMet;
r@0 815 #X obj 112 35 r~ \$0-myRey;
r@0 816 #X obj 279 59 snapshot~;
r@0 817 #X floatatom 279 79 0 0 0 0 - - -;
r@0 818 #X obj 279 38 r myMet;
r@0 819 #X obj 276 209 +~ 40;
r@0 820 #X obj 276 187 *~ -4;
r@0 821 #X obj 276 233 clip~ 5 50;
r@0 822 #X obj 598 71 r~ \$0-myRey;
r@0 823 #X obj 598 97 log~;
r@0 824 #X obj 598 121 *~ -5.296;
r@0 825 #X obj 598 149 +~ 87.715;
r@0 826 #X obj 598 173 clip~ 2 90;
r@0 827 #X connect 0 0 2 0;
r@0 828 #X connect 1 0 0 0;
r@0 829 #X connect 3 0 5 0;
r@0 830 #X connect 3 0 15 0;
r@0 831 #X connect 4 0 3 1;
r@0 832 #X connect 5 0 6 0;
r@0 833 #X connect 7 0 8 0;
r@0 834 #X connect 9 0 7 0;
r@0 835 #X connect 10 0 3 0;
r@0 836 #X connect 10 0 11 0;
r@0 837 #X connect 11 0 12 0;
r@0 838 #X connect 13 0 11 0;
r@0 839 #X connect 14 0 16 0;
r@0 840 #X connect 15 0 14 0;
r@0 841 #X connect 17 0 18 0;
r@0 842 #X connect 18 0 19 0;
r@0 843 #X connect 19 0 20 0;
r@0 844 #X connect 20 0 7 0;
r@0 845 #X connect 20 0 21 0;
r@0 846 #X connect 21 0 0 0;
r@0 847 #X restore 544 -67 pd QCalc;
r@0 848 #N canvas 312 235 756 477 thickcalc 0;
r@0 849 #X obj 72 -75 r~ \$0-myRey;
r@0 850 #X obj 72 54 pow~;
r@0 851 #X obj 72 130 r~ thisLen;
r@0 852 #X obj 57 80 *~;
r@0 853 #X obj 57 194 s~ effectShearThick;
r@0 854 #X obj 93 -33 log~;
r@0 855 #X obj 114 -53 sig~ 10;
r@0 856 #X obj 93 32 clip~ -0.5 -0.2;
r@0 857 #X obj 93 -11 *~ 0.11;
r@0 858 #X obj 93 10 -~ 0.92;
r@0 859 #X obj 190 195 snapshot~;
r@0 860 #X floatatom 190 215 0 0 0 0 - - -;
r@0 861 #X obj 190 174 r myMet;
r@0 862 #X obj 57 150 *~;
r@0 863 #X obj 57 -96 sig~ 2.1978;
r@0 864 #X connect 0 0 1 0;
r@0 865 #X connect 0 0 5 0;
r@0 866 #X connect 1 0 3 1;
r@0 867 #X connect 2 0 13 1;
r@0 868 #X connect 3 0 13 0;
r@0 869 #X connect 5 0 8 0;
r@0 870 #X connect 6 0 5 1;
r@0 871 #X connect 7 0 1 1;
r@0 872 #X connect 8 0 9 0;
r@0 873 #X connect 9 0 7 0;
r@0 874 #X connect 10 0 11 0;
r@0 875 #X connect 12 0 10 0;
r@0 876 #X connect 13 0 4 0;
r@0 877 #X connect 13 0 10 0;
r@0 878 #X connect 14 0 3 0;
r@0 879 #X restore 638 138 pd thickcalc;
r@0 880 #X obj -82 -128 s gusts;
r@1 881 #N canvas 752 190 656 557 IntensityTest 0;
r@1 882 #N canvas 87 229 681 350 PlotWrt 0;
r@0 883 #X obj 70 303 textfile;
r@0 884 #X msg 562 196 clear \, rewind;
r@0 885 #X obj 212 134 snapshot~;
r@0 886 #X floatatom 220 157 0 0 0 0 - - -;
r@0 887 #X obj 212 107 r myMet;
r@0 888 #X obj 199 84 inlet~;
r@0 889 #X obj 323 125 snapshot~;
r@0 890 #X floatatom 332 147 0 0 0 0 - - -;
r@0 891 #X obj 323 98 r myMet;
r@0 892 #X obj 310 75 inlet~;
r@0 893 #X msg 323 169 add \$1;
r@0 894 #X msg 212 178 add2 \$1;
r@0 895 #X obj 130 134 snapshot~;
r@0 896 #X floatatom 138 157 0 0 0 0 - - -;
r@0 897 #X obj 130 107 r myMet;
r@0 898 #X obj 117 84 inlet~;
r@0 899 #X msg 130 178 add2 \$1;
r@0 900 #X obj 34 136 snapshot~;
r@0 901 #X floatatom 42 159 0 0 0 0 - - -;
r@0 902 #X obj 34 109 r myMet;
r@0 903 #X obj 21 86 inlet~;
r@0 904 #X msg 34 180 add2 \$1;
r@1 905 #X obj -38 134 snapshot~;
r@1 906 #X floatatom -30 157 0 0 0 0 - - -;
r@1 907 #X obj -38 107 r myMet;
r@1 908 #X obj -51 84 inlet~;
r@1 909 #X msg -38 178 add2 \$1;
r@1 910 #X msg 419 163 write HoweFull7_090417.txt;
r@0 911 #X connect 1 0 0 0;
r@0 912 #X connect 2 0 3 0;
r@0 913 #X connect 2 0 11 0;
r@0 914 #X connect 4 0 2 0;
r@0 915 #X connect 5 0 2 0;
r@0 916 #X connect 6 0 7 0;
r@0 917 #X connect 6 0 10 0;
r@0 918 #X connect 8 0 6 0;
r@0 919 #X connect 9 0 6 0;
r@0 920 #X connect 10 0 0 0;
r@0 921 #X connect 11 0 0 0;
r@0 922 #X connect 12 0 13 0;
r@0 923 #X connect 12 0 16 0;
r@0 924 #X connect 14 0 12 0;
r@0 925 #X connect 15 0 12 0;
r@0 926 #X connect 16 0 0 0;
r@0 927 #X connect 17 0 18 0;
r@0 928 #X connect 17 0 21 0;
r@0 929 #X connect 19 0 17 0;
r@0 930 #X connect 20 0 17 0;
r@0 931 #X connect 21 0 0 0;
r@1 932 #X connect 22 0 23 0;
r@1 933 #X connect 22 0 26 0;
r@1 934 #X connect 24 0 22 0;
r@1 935 #X connect 25 0 22 0;
r@1 936 #X connect 26 0 0 0;
r@1 937 #X connect 27 0 0 0;
r@0 938 #X restore 148 173 pd PlotWrt;
r@0 939 #X obj 200 50 HoweIntensity;
r@0 940 #X obj 208 -49 hsl 100 15 0 20000 0 0 empty empty empty -2 -8 0 10
r@1 941 -262144 -1 -1 1000 1;
r@0 942 #X floatatom 246 -30 0 0 0 0 - - -;
r@0 943 #X obj 113 75 snapshot~;
r@0 944 #X floatatom 113 95 0 0 0 0 - - -;
r@0 945 #X obj 113 54 r myMet;
r@0 946 #X msg 205 -29 \$1 20;
r@0 947 #X obj 171 24 line~;
r@0 948 #X obj 70 150 snapshot~;
r@0 949 #X floatatom 70 170 0 0 0 0 - - -;
r@0 950 #X obj 70 129 r myMet;
r@0 951 #X msg 180 -8 0;
r@1 952 #X obj 215 73 HoweIntensityDipoleD2;
r@1 953 #X obj 31 105 HoweIntMod;
r@1 954 #X obj 234 524 snapshot~;
r@1 955 #X floatatom 234 544 0 0 0 0 - - -;
r@1 956 #X obj 234 503 r myMet;
r@1 957 #X obj 412 43 HoweIntTest;
r@1 958 #X msg 87 -1 6000 7000;
r@0 959 #X obj 250 26 HoweIntensity;
r@0 960 #X obj 223 103 HoweIntensityMonoTest;
r@1 961 #X connect 1 0 0 1;
r@0 962 #X connect 1 0 9 0;
r@0 963 #X connect 2 0 3 0;
r@0 964 #X connect 2 0 7 0;
r@0 965 #X connect 4 0 5 0;
r@0 966 #X connect 6 0 4 0;
r@0 967 #X connect 7 0 8 0;
r@0 968 #X connect 8 0 1 0;
r@1 969 #X connect 8 0 0 4;
r@0 970 #X connect 8 0 4 0;
r@1 971 #X connect 8 0 13 0;
r@1 972 #X connect 8 0 14 0;
r@1 973 #X connect 8 0 18 0;
r@1 974 #X connect 8 0 21 0;
r@0 975 #X connect 9 0 10 0;
r@0 976 #X connect 11 0 9 0;
r@0 977 #X connect 12 0 8 0;
r@1 978 #X connect 13 0 0 2;
r@1 979 #X connect 14 0 0 0;
r@1 980 #X connect 15 0 16 0;
r@1 981 #X connect 17 0 15 0;
r@1 982 #X connect 19 0 8 0;
r@1 983 #X connect 21 1 0 3;
r@0 984 #X restore 609 52 pd IntensityTest;
r@1 985 #N canvas 387 61 1247 749 AngleTest 0;
r@0 986 #N canvas 61 95 798 402 PlotWrt 0;
r@0 987 #X obj 70 303 textfile;
r@0 988 #X msg 574 162 clear \, rewind;
r@0 989 #X obj 212 134 snapshot~;
r@0 990 #X floatatom 220 157 0 0 0 0 - - -;
r@0 991 #X obj 212 107 r myMet;
r@0 992 #X obj 199 84 inlet~;
r@0 993 #X obj 449 139 snapshot~;
r@0 994 #X floatatom 458 161 0 0 0 0 - - -;
r@0 995 #X obj 449 112 r myMet;
r@0 996 #X obj 436 89 inlet~;
r@0 997 #X msg 449 183 add \$1;
r@0 998 #X msg 212 178 add2 \$1;
r@0 999 #X obj 130 134 snapshot~;
r@0 1000 #X floatatom 138 157 0 0 0 0 - - -;
r@0 1001 #X obj 130 107 r myMet;
r@0 1002 #X obj 117 84 inlet~;
r@0 1003 #X msg 130 178 add2 \$1;
r@0 1004 #X obj 34 136 snapshot~;
r@0 1005 #X floatatom 42 159 0 0 0 0 - - -;
r@0 1006 #X obj 34 109 r myMet;
r@0 1007 #X obj 21 86 inlet~;
r@0 1008 #X msg 34 180 add2 \$1;
r@0 1009 #X obj 367 136 snapshot~;
r@0 1010 #X floatatom 375 159 0 0 0 0 - - -;
r@0 1011 #X obj 367 109 r myMet;
r@0 1012 #X obj 354 86 inlet~;
r@0 1013 #X msg 367 180 add2 \$1;
r@0 1014 #X obj 285 136 snapshot~;
r@0 1015 #X floatatom 293 159 0 0 0 0 - - -;
r@0 1016 #X obj 285 109 r myMet;
r@0 1017 #X obj 272 86 inlet~;
r@0 1018 #X msg 285 180 add2 \$1;
r@0 1019 #X msg 575 106 write HoweDirD3_060417.txt;
r@0 1020 #X connect 1 0 0 0;
r@0 1021 #X connect 2 0 3 0;
r@0 1022 #X connect 2 0 11 0;
r@0 1023 #X connect 4 0 2 0;
r@0 1024 #X connect 5 0 2 0;
r@0 1025 #X connect 6 0 7 0;
r@0 1026 #X connect 6 0 10 0;
r@0 1027 #X connect 8 0 6 0;
r@0 1028 #X connect 9 0 6 0;
r@0 1029 #X connect 10 0 0 0;
r@0 1030 #X connect 11 0 0 0;
r@0 1031 #X connect 12 0 13 0;
r@0 1032 #X connect 12 0 16 0;
r@0 1033 #X connect 14 0 12 0;
r@0 1034 #X connect 15 0 12 0;
r@0 1035 #X connect 16 0 0 0;
r@0 1036 #X connect 17 0 18 0;
r@0 1037 #X connect 17 0 21 0;
r@0 1038 #X connect 19 0 17 0;
r@0 1039 #X connect 20 0 17 0;
r@0 1040 #X connect 21 0 0 0;
r@0 1041 #X connect 22 0 23 0;
r@0 1042 #X connect 22 0 26 0;
r@0 1043 #X connect 24 0 22 0;
r@0 1044 #X connect 25 0 22 0;
r@0 1045 #X connect 26 0 0 0;
r@0 1046 #X connect 27 0 28 0;
r@0 1047 #X connect 27 0 31 0;
r@0 1048 #X connect 29 0 27 0;
r@0 1049 #X connect 30 0 27 0;
r@0 1050 #X connect 31 0 0 0;
r@0 1051 #X connect 32 0 0 0;
r@1 1052 #X restore 309 281 pd PlotWrt;
r@0 1053 #N canvas 417 23 740 476 FreqCalc 0;
r@0 1054 #X obj 100 113 r~ windSpeed;
r@0 1055 #X obj 189 115 sig~ 0.5;
r@0 1056 #X obj 549 116 r~ thisLen;
r@0 1057 #X obj 181 187 /~;
r@0 1058 #X obj 260 187 /~;
r@0 1059 #X obj 330 193 /~;
r@0 1060 #X obj 409 193 /~;
r@0 1061 #X obj 466 186 /~;
r@0 1062 #X obj 167 236 *~;
r@0 1063 #X obj 241 237 *~;
r@0 1064 #X obj 323 234 *~;
r@0 1065 #X obj 397 235 *~;
r@0 1066 #X obj 460 238 *~;
r@0 1067 #X obj 257 117 sig~ 1;
r@0 1068 #X obj 329 116 sig~ 1.5;
r@0 1069 #X obj 398 116 sig~ 2;
r@0 1070 #X obj 466 116 sig~ 2.5;
r@0 1071 #X obj 167 267 outlet~;
r@0 1072 #X obj 241 267 outlet~;
r@0 1073 #X obj 319 268 outlet~;
r@0 1074 #X obj 393 268 outlet~;
r@0 1075 #X obj 460 269 outlet~;
r@0 1076 #X connect 0 0 8 0;
r@0 1077 #X connect 0 0 9 0;
r@0 1078 #X connect 0 0 10 0;
r@0 1079 #X connect 0 0 11 0;
r@0 1080 #X connect 0 0 12 0;
r@0 1081 #X connect 1 0 3 0;
r@0 1082 #X connect 2 0 3 1;
r@0 1083 #X connect 2 0 4 1;
r@0 1084 #X connect 2 0 5 1;
r@0 1085 #X connect 2 0 6 1;
r@0 1086 #X connect 2 0 7 1;
r@0 1087 #X connect 3 0 8 1;
r@0 1088 #X connect 4 0 9 1;
r@0 1089 #X connect 5 0 10 1;
r@0 1090 #X connect 6 0 11 1;
r@0 1091 #X connect 7 0 12 1;
r@0 1092 #X connect 8 0 17 0;
r@0 1093 #X connect 9 0 18 0;
r@0 1094 #X connect 10 0 19 0;
r@0 1095 #X connect 11 0 20 0;
r@0 1096 #X connect 12 0 21 0;
r@0 1097 #X connect 13 0 4 0;
r@0 1098 #X connect 14 0 5 0;
r@0 1099 #X connect 15 0 6 0;
r@0 1100 #X connect 16 0 7 0;
r@0 1101 #X restore -6 29 pd FreqCalc;
r@0 1102 #X obj -106 101 snapshot~;
r@0 1103 #X floatatom -106 121 0 0 0 0 - - -;
r@0 1104 #X obj -106 80 r myMet;
r@0 1105 #X obj -45 101 snapshot~;
r@0 1106 #X floatatom -45 121 0 0 0 0 - - -;
r@0 1107 #X obj -45 80 r myMet;
r@0 1108 #X obj 17 100 snapshot~;
r@0 1109 #X floatatom 17 120 0 0 0 0 - - -;
r@0 1110 #X obj 17 79 r myMet;
r@0 1111 #X obj 78 98 snapshot~;
r@0 1112 #X floatatom 78 118 0 0 0 0 - - -;
r@0 1113 #X obj 78 77 r myMet;
r@0 1114 #X obj 140 97 snapshot~;
r@0 1115 #X floatatom 140 117 0 0 0 0 - - -;
r@0 1116 #X obj 140 76 r myMet;
r@1 1117 #X obj 547 82 line~;
r@0 1118 #X obj 303 104 HoweDirect;
r@1 1119 #X msg 577 17 0;
r@1 1120 #X obj 555 105 /~ 360;
r@1 1121 #X obj 608 148 outlet~;
r@1 1122 #X msg 512 18 180 500;
r@0 1123 #X obj 316 130 HoweDirect;
r@0 1124 #X obj 339 173 HoweDirect;
r@0 1125 #X obj 329 150 HoweDirect;
r@0 1126 #X obj 353 198 HoweDirect;
r@1 1127 #X msg 580 44 90;
r@1 1128 #X obj 23 354 HoweIntensityDipoleD2;
r@1 1129 #X obj 23 397 +~;
r@1 1130 #N canvas 60 397 798 402 PlotWrt 0;
r@1 1131 #X obj 70 303 textfile;
r@1 1132 #X msg 574 162 clear \, rewind;
r@1 1133 #X obj 212 134 snapshot~;
r@1 1134 #X floatatom 220 157 0 0 0 0 - - -;
r@1 1135 #X obj 212 107 r myMet;
r@1 1136 #X obj 199 84 inlet~;
r@1 1137 #X obj 449 139 snapshot~;
r@1 1138 #X floatatom 458 161 0 0 0 0 - - -;
r@1 1139 #X obj 449 112 r myMet;
r@1 1140 #X obj 436 89 inlet~;
r@1 1141 #X msg 449 183 add \$1;
r@1 1142 #X msg 212 178 add2 \$1;
r@1 1143 #X obj 130 134 snapshot~;
r@1 1144 #X floatatom 138 157 0 0 0 0 - - -;
r@1 1145 #X obj 130 107 r myMet;
r@1 1146 #X obj 117 84 inlet~;
r@1 1147 #X msg 130 178 add2 \$1;
r@1 1148 #X obj 34 136 snapshot~;
r@1 1149 #X floatatom 42 159 0 0 0 0 - - -;
r@1 1150 #X obj 34 109 r myMet;
r@1 1151 #X obj 21 86 inlet~;
r@1 1152 #X msg 34 180 add2 \$1;
r@1 1153 #X obj 367 136 snapshot~;
r@1 1154 #X floatatom 375 159 0 0 0 0 - - -;
r@1 1155 #X obj 367 109 r myMet;
r@1 1156 #X obj 354 86 inlet~;
r@1 1157 #X msg 367 180 add2 \$1;
r@1 1158 #X obj 285 136 snapshot~;
r@1 1159 #X floatatom 293 159 0 0 0 0 - - -;
r@1 1160 #X obj 285 109 r myMet;
r@1 1161 #X obj 272 86 inlet~;
r@1 1162 #X msg 285 180 add2 \$1;
r@1 1163 #X msg 575 106 write HoweDirD4_090417.txt;
r@1 1164 #X connect 1 0 0 0;
r@1 1165 #X connect 2 0 3 0;
r@1 1166 #X connect 2 0 11 0;
r@1 1167 #X connect 4 0 2 0;
r@1 1168 #X connect 5 0 2 0;
r@1 1169 #X connect 6 0 7 0;
r@1 1170 #X connect 6 0 10 0;
r@1 1171 #X connect 8 0 6 0;
r@1 1172 #X connect 9 0 6 0;
r@1 1173 #X connect 10 0 0 0;
r@1 1174 #X connect 11 0 0 0;
r@1 1175 #X connect 12 0 13 0;
r@1 1176 #X connect 12 0 16 0;
r@1 1177 #X connect 14 0 12 0;
r@1 1178 #X connect 15 0 12 0;
r@1 1179 #X connect 16 0 0 0;
r@1 1180 #X connect 17 0 18 0;
r@1 1181 #X connect 17 0 21 0;
r@1 1182 #X connect 19 0 17 0;
r@1 1183 #X connect 20 0 17 0;
r@1 1184 #X connect 21 0 0 0;
r@1 1185 #X connect 22 0 23 0;
r@1 1186 #X connect 22 0 26 0;
r@1 1187 #X connect 24 0 22 0;
r@1 1188 #X connect 25 0 22 0;
r@1 1189 #X connect 26 0 0 0;
r@1 1190 #X connect 27 0 28 0;
r@1 1191 #X connect 27 0 31 0;
r@1 1192 #X connect 29 0 27 0;
r@1 1193 #X connect 30 0 27 0;
r@1 1194 #X connect 31 0 0 0;
r@1 1195 #X connect 32 0 0 0;
r@1 1196 #X restore 448 538 pd PlotWrt;
r@1 1197 #X obj 203 359 HoweIntensityDipoleD2;
r@1 1198 #X obj 203 402 +~;
r@1 1199 #X obj 372 358 HoweIntensityDipoleD2;
r@1 1200 #X obj 372 401 +~;
r@1 1201 #X obj 552 363 HoweIntensityDipoleD2;
r@1 1202 #X obj 552 406 +~;
r@1 1203 #X obj 720 362 HoweIntensityDipoleD2;
r@1 1204 #X obj 720 405 +~;
r@1 1205 #X obj 218 380 HoweIntensityMonoTest;
r@1 1206 #X obj 38 375 HoweIntensityMonoTest;
r@1 1207 #X obj 387 379 HoweIntensityMonoTest;
r@1 1208 #X obj 567 384 HoweIntensityMonoTest;
r@1 1209 #X obj 735 383 HoweIntensityMonoTest;
r@0 1210 #X connect 1 0 2 0;
r@0 1211 #X connect 1 0 18 0;
r@1 1212 #X connect 1 0 28 0;
r@1 1213 #X connect 1 0 40 0;
r@0 1214 #X connect 1 1 5 0;
r@0 1215 #X connect 1 1 23 0;
r@1 1216 #X connect 1 1 31 0;
r@1 1217 #X connect 1 1 39 0;
r@0 1218 #X connect 1 2 8 0;
r@0 1219 #X connect 1 2 25 0;
r@1 1220 #X connect 1 2 33 0;
r@1 1221 #X connect 1 2 41 0;
r@0 1222 #X connect 1 3 11 0;
r@0 1223 #X connect 1 3 24 0;
r@1 1224 #X connect 1 3 35 0;
r@1 1225 #X connect 1 3 42 0;
r@0 1226 #X connect 1 4 14 0;
r@0 1227 #X connect 1 4 26 0;
r@1 1228 #X connect 1 4 37 0;
r@1 1229 #X connect 1 4 43 0;
r@0 1230 #X connect 2 0 3 0;
r@0 1231 #X connect 4 0 2 0;
r@0 1232 #X connect 5 0 6 0;
r@0 1233 #X connect 7 0 5 0;
r@0 1234 #X connect 8 0 9 0;
r@0 1235 #X connect 10 0 8 0;
r@0 1236 #X connect 11 0 12 0;
r@0 1237 #X connect 13 0 11 0;
r@0 1238 #X connect 14 0 15 0;
r@0 1239 #X connect 16 0 14 0;
r@0 1240 #X connect 17 0 0 5;
r@0 1241 #X connect 17 0 20 0;
r@1 1242 #X connect 17 0 30 5;
r@0 1243 #X connect 18 0 0 0;
r@0 1244 #X connect 19 0 17 0;
r@0 1245 #X connect 20 0 21 0;
r@0 1246 #X connect 22 0 17 0;
r@0 1247 #X connect 23 0 0 1;
r@0 1248 #X connect 24 0 0 3;
r@0 1249 #X connect 25 0 0 2;
r@0 1250 #X connect 26 0 0 4;
r@0 1251 #X connect 27 0 17 0;
r@1 1252 #X connect 28 0 29 0;
r@1 1253 #X connect 29 0 30 0;
r@1 1254 #X connect 31 0 32 0;
r@1 1255 #X connect 32 0 30 1;
r@1 1256 #X connect 33 0 34 0;
r@1 1257 #X connect 34 0 30 2;
r@1 1258 #X connect 35 0 36 0;
r@1 1259 #X connect 36 0 30 3;
r@1 1260 #X connect 37 0 38 0;
r@1 1261 #X connect 38 0 30 4;
r@1 1262 #X connect 39 1 32 1;
r@1 1263 #X connect 40 1 29 1;
r@1 1264 #X connect 41 1 34 1;
r@1 1265 #X connect 42 1 36 1;
r@1 1266 #X connect 43 1 38 1;
r@0 1267 #X restore 636 111 pd AngleTest;
r@0 1268 #X obj 543 506 s speed;
r@0 1269 #X obj -94 -48 r speed;
r@0 1270 #X floatatom -153 -30 0 0 0 0 - - -;
r@0 1271 #X symbolatom 645 472 10 0 0 0 - - -;
r@0 1272 #X obj 491 -201 inlet;
r@0 1273 #X obj 606 -200 inlet;
r@0 1274 #X obj 712 -198 inlet;
r@0 1275 #X obj 487 -62 inlet;
r@0 1276 #X obj 848 -104 inlet;
r@0 1277 #X obj 395 -65 r dist;
r@0 1278 #X obj 930 -108 r elev;
r@0 1279 #X obj -137 -53 inlet;
r@0 1280 #X obj 441 443 inlet;
r@0 1281 #X obj -102 327 inlet;
r@0 1282 #X obj -207 485 outlet;
r@0 1283 #X obj -214 457 outlet;
r@0 1284 #X obj 480 463 unpack f f f f f s;
r@0 1285 #X obj 564 486 s GAIN;
r@0 1286 #X msg 684 393 0.03 0.03 0.015 3.43 8500 HOWE;
r@0 1287 #X msg 683 371 0.06 0.06 0.35 40 0.1 ERICKSON;
r@0 1288 #X text -97 -88 comment;
r@0 1289 #N canvas 505 490 450 300 on/off 0;
r@0 1290 #X obj 169 93 inlet~;
r@0 1291 #X obj 213 92 r myMet;
r@0 1292 #X obj 169 115 snapshot~;
r@0 1293 #X obj 169 137 > 0;
r@0 1294 #X obj 169 159 outlet;
r@0 1295 #X connect 0 0 2 0;
r@0 1296 #X connect 1 0 2 0;
r@0 1297 #X connect 2 0 3 0;
r@0 1298 #X connect 3 0 4 0;
r@0 1299 #X restore 845 118 pd on/off;
r@0 1300 #X obj 845 139 tgl 20 0 empty empty empty 17 7 0 10 -261682 -4034 -4034
r@0 1301 1 1;
r@0 1302 #N canvas 505 490 450 300 on/off 0;
r@0 1303 #X obj 169 93 inlet~;
r@0 1304 #X obj 213 92 r myMet;
r@0 1305 #X obj 169 115 snapshot~;
r@0 1306 #X obj 169 137 > 0;
r@0 1307 #X obj 169 159 outlet;
r@0 1308 #X connect 0 0 2 0;
r@0 1309 #X connect 1 0 2 0;
r@0 1310 #X connect 2 0 3 0;
r@0 1311 #X connect 3 0 4 0;
r@0 1312 #X restore 83 527 pd on/off;
r@0 1313 #X obj 83 548 tgl 20 0 empty empty empty 17 7 0 10 -261682 -4034 -4034
r@1 1314 0 1;
r@0 1315 #X msg 683 350 0.0191 0.1016 0.0127 308.7 7 AHUJA;
r@0 1316 #X msg 682 295 0.0476 0.1016 0.0127 137.2 7 AHUJA2;
r@0 1317 #X msg 683 263 0.15 0.15 0.15 31 7 CHATELLIER;
r@0 1318 #X obj 214 504 snapshot~;
r@0 1319 #X floatatom 214 524 0 0 0 0 - - -;
r@0 1320 #X obj 214 483 r myMet;
r@0 1321 #X floatatom 7 290 0 0 0 0 - - -;
r@0 1322 #X floatatom 253 290 0 0 0 0 - - -;
r@0 1323 #X floatatom -95 287 0 0 0 0 - - -;
r@0 1324 #X floatatom 102 296 0 0 0 0 - - -;
r@0 1325 #X msg 427 233 0.0191 0.1016 0.0127 137.2 7 AHUJA2;
r@0 1326 #X msg 420 210 0.0191 0.1016 0.0127 89.2 7 AHUJA2;
r@0 1327 #X msg 437 256 0.0191 0.1016 0.0127 181.8 7 AHUJA2;
r@0 1328 #X msg 447 276 0.0191 0.1016 0.0127 230.5 7 AHUJA2;
r@0 1329 #X msg 457 297 0.0191 0.1016 0.0127 274.4 7 AHUJA2;
r@0 1330 #X msg 468 318 0.0191 0.1016 0.0127 308.7 7 AHUJA2;
r@0 1331 #X msg 680 204 1 0.25 0.25 10 10 AVITAL;
r@0 1332 #X msg 689 234 0.0305 1 0.076 62.5 1 YU;
r@0 1333 #X msg 720 464 0.03 0.03 0.015 34.3 80 HOWE;
r@0 1334 #X obj -114 187 outlet;
r@0 1335 #X obj 12 182 outlet;
r@0 1336 #X obj 126 184 outlet;
r@0 1337 #X obj 258 185 outlet;
r@0 1338 #X obj 384 583 outlet;
r@0 1339 #X obj 362 159 snapshot~;
r@0 1340 #X floatatom 362 179 0 0 0 0 - - -;
r@0 1341 #X obj 362 138 r myMet;
r@0 1342 #N canvas 126 117 988 704 newShearThick 0;
r@0 1343 #X obj 523 196 *~ 1.225;
r@0 1344 #X obj 523 235 /~ 1.81e-05;
r@0 1345 #X obj 523 216 *~;
r@0 1346 #X obj 523 175 r~ windSpeed;
r@0 1347 #X obj 251 45 r~ thisLen;
r@0 1348 #X obj 855 283 snapshot~;
r@0 1349 #X floatatom 855 303 0 0 0 0 - - -;
r@0 1350 #X obj 855 262 r myMet;
r@0 1351 #X obj 762 257 r~ \$0-myRey;
r@0 1352 #X obj 315 155 snapshot~;
r@0 1353 #X floatatom 315 175 0 0 0 0 - - -;
r@0 1354 #X obj 315 134 r myMet;
r@0 1355 #X obj 371 591 s~ effectShearThick2;
r@0 1356 #X obj 27 32 snapshot~;
r@0 1357 #X floatatom 27 52 0 0 0 0 - - -;
r@0 1358 #X obj 27 11 r myMet;
r@0 1359 #X obj 84 10 r~ effectShearThick;
r@0 1360 #X obj 266 66 r~ thisDep;
r@0 1361 #X obj 251 86 /~;
r@0 1362 #X obj 251 110 *~ 9.39;
r@0 1363 #X obj 236 156 /~;
r@0 1364 #X obj 221 181 *~;
r@0 1365 #X obj 508 104 r~ thisLen;
r@0 1366 #X obj 508 127 *~ 0.75;
r@0 1367 #X obj 268 306 sig~ 8;
r@0 1368 #X obj 268 327 sqrt~;
r@0 1369 #X obj 253 348 *~;
r@0 1370 #X obj 435 245 sig~ 2.69;
r@0 1371 #X text 143 132 H (Avital T);
r@0 1372 #X text 430 227 H (Avital L);
r@0 1373 #X obj 508 149 *~;
r@0 1374 #X obj 508 257 /~;
r@0 1375 #X obj 508 280 sqrt~;
r@0 1376 #X obj 238 373 /~;
r@0 1377 #X text 236 260 delta_c (Cebeci) T;
r@0 1378 #X text 492 77 delta_c (Cebeci) L;
r@0 1379 #X obj 238 397 /~ 8;
r@0 1380 #X obj 508 302 /~ 8;
r@0 1381 #X text 156 203 delta_*_0;
r@0 1382 #X obj 223 428 +~;
r@0 1383 #X obj 420 268 *~;
r@0 1384 #X obj 493 326 +~;
r@0 1385 #X obj 146 152 sig~ 1.28;
r@0 1386 #X obj 251 134 +~ 36.732;
r@0 1387 #X obj 253 284 sig~ 6;
r@0 1388 #X obj 751 236 sig~ 1;
r@0 1389 #X obj 761 322 exp~;
r@0 1390 #X obj 731 363 /~;
r@0 1391 #X obj 746 343 +~;
r@0 1392 #X obj 790 398 snapshot~;
r@0 1393 #X floatatom 790 418 0 0 0 0 - - -;
r@0 1394 #X obj 790 377 r myMet;
r@0 1395 #X obj 493 528 *~;
r@0 1396 #X obj 371 493 sig~ 1;
r@0 1397 #X obj 371 517 -~;
r@0 1398 #X obj 371 540 *~;
r@0 1399 #X obj 371 567 +~;
r@0 1400 #X obj 761 279 /~ 25000;
r@0 1401 #X obj 761 301 *~ 5;
r@0 1402 #X text 237 17 comment;
r@0 1403 #X text 272 402 delta_*_c (T);
r@0 1404 #X text 544 301 delta_*_c (L);
r@0 1405 #X obj -5 254 s~ effectShearThick_0;
r@0 1406 #X obj 131 339 snapshot~;
r@0 1407 #X floatatom 131 359 0 0 0 0 - - -;
r@0 1408 #X obj 131 318 r myMet;
r@0 1409 #X connect 0 0 2 0;
r@0 1410 #X connect 1 0 31 1;
r@0 1411 #X connect 2 0 1 0;
r@0 1412 #X connect 3 0 0 0;
r@0 1413 #X connect 4 0 18 0;
r@0 1414 #X connect 4 0 20 0;
r@0 1415 #X connect 5 0 6 0;
r@0 1416 #X connect 7 0 5 0;
r@0 1417 #X connect 8 0 5 0;
r@0 1418 #X connect 8 0 57 0;
r@0 1419 #X connect 9 0 10 0;
r@0 1420 #X connect 11 0 9 0;
r@0 1421 #X connect 13 0 14 0;
r@0 1422 #X connect 15 0 13 0;
r@0 1423 #X connect 16 0 13 0;
r@0 1424 #X connect 17 0 18 1;
r@0 1425 #X connect 18 0 19 0;
r@0 1426 #X connect 19 0 43 0;
r@0 1427 #X connect 20 0 21 1;
r@0 1428 #X connect 20 0 40 0;
r@0 1429 #X connect 21 0 39 0;
r@0 1430 #X connect 21 0 62 0;
r@0 1431 #X connect 22 0 23 0;
r@0 1432 #X connect 22 0 30 1;
r@0 1433 #X connect 22 0 2 1;
r@0 1434 #X connect 23 0 30 0;
r@0 1435 #X connect 23 0 33 0;
r@0 1436 #X connect 24 0 25 0;
r@0 1437 #X connect 25 0 26 1;
r@0 1438 #X connect 26 0 33 1;
r@0 1439 #X connect 27 0 40 1;
r@0 1440 #X connect 30 0 31 0;
r@0 1441 #X connect 31 0 32 0;
r@0 1442 #X connect 32 0 37 0;
r@0 1443 #X connect 33 0 36 0;
r@0 1444 #X connect 36 0 39 1;
r@0 1445 #X connect 37 0 41 1;
r@0 1446 #X connect 39 0 55 1;
r@0 1447 #X connect 40 0 41 0;
r@0 1448 #X connect 41 0 52 0;
r@0 1449 #X connect 42 0 21 0;
r@0 1450 #X connect 43 0 9 0;
r@0 1451 #X connect 43 0 20 1;
r@0 1452 #X connect 44 0 26 0;
r@0 1453 #X connect 45 0 47 0;
r@0 1454 #X connect 45 0 48 0;
r@0 1455 #X connect 46 0 48 1;
r@0 1456 #X connect 47 0 49 0;
r@0 1457 #X connect 47 0 54 1;
r@0 1458 #X connect 47 0 52 1;
r@0 1459 #X connect 48 0 47 1;
r@0 1460 #X connect 49 0 50 0;
r@0 1461 #X connect 51 0 49 0;
r@0 1462 #X connect 52 0 56 1;
r@0 1463 #X connect 53 0 54 0;
r@0 1464 #X connect 54 0 55 0;
r@0 1465 #X connect 55 0 56 0;
r@0 1466 #X connect 56 0 12 0;
r@0 1467 #X connect 57 0 58 0;
r@0 1468 #X connect 58 0 46 0;
r@0 1469 #X connect 63 0 64 0;
r@0 1470 #X connect 65 0 63 0;
r@0 1471 #X restore 634 82 pd newShearThick;
r@0 1472 #X msg 723 319 0.03 0.6 0.015 12 7 KOSCHATZKY;
r@0 1473 #X msg 844 215 0.03 0.6 0.015 15 7 KOSCHATZKY2;
r@0 1474 #X msg -154 370 550;
r@0 1475 #X msg 684 414 0.0045 0.06 0.0015 514.5 0.1 ZHENG;
r@1 1476 #N canvas 632 119 701 487 MonopolePeak 0;
r@1 1477 #X obj 152 158 outlet~;
r@1 1478 #X obj 167 87 +~;
r@1 1479 #X obj 167 112 *~ 4;
r@1 1480 #X obj 152 23 sig~ 343;
r@1 1481 #X obj 152 133 /~;
r@1 1482 #X obj 323 71 *~;
r@1 1483 #X obj 323 114 /~ 4;
r@1 1484 #X obj 323 134 sqrt~;
r@1 1485 #X obj 323 30 r~ thisLen;
r@1 1486 #X obj 338 51 r~ thisWid;
r@1 1487 #X obj 323 93 *~ 3.14159;
r@1 1488 #X obj 182 65 r~ thisDep;
r@1 1489 #X connect 1 0 2 0;
r@1 1490 #X connect 2 0 4 1;
r@1 1491 #X connect 3 0 4 0;
r@1 1492 #X connect 4 0 0 0;
r@1 1493 #X connect 5 0 10 0;
r@1 1494 #X connect 6 0 7 0;
r@1 1495 #X connect 7 0 1 0;
r@1 1496 #X connect 8 0 5 0;
r@1 1497 #X connect 9 0 5 1;
r@1 1498 #X connect 10 0 6 0;
r@1 1499 #X connect 11 0 1 1;
r@1 1500 #X restore 741 75 pd MonopolePeak;
r@1 1501 #X obj 342 449 snapshot~;
r@1 1502 #X floatatom 342 469 0 0 0 0 - - -;
r@1 1503 #X obj 342 428 r myMet;
r@1 1504 #X obj 742 99 HoweIntMod;
r@1 1505 #X obj 78 456 HoweIntensityMonoTest;
r@1 1506 #X msg 684 434 0.4572 0.1016 0.1016 291.55 4 FUGLSANG;
r@0 1507 #X connect 0 0 2 0;
r@0 1508 #X connect 1 0 3 0;
r@0 1509 #X connect 2 0 1 0;
r@1 1510 #X connect 8 0 188 0;
r@0 1511 #X connect 9 0 5 0;
r@0 1512 #X connect 9 0 148 0;
r@0 1513 #X connect 9 1 6 0;
r@0 1514 #X connect 9 1 147 0;
r@0 1515 #X connect 10 0 9 0;
r@0 1516 #X connect 10 0 12 0;
r@0 1517 #X connect 11 0 10 0;
r@0 1518 #X connect 13 0 14 0;
r@0 1519 #X connect 13 0 50 0;
r@0 1520 #X connect 15 0 16 0;
r@0 1521 #X connect 15 0 52 0;
r@0 1522 #X connect 17 0 18 0;
r@0 1523 #X connect 17 0 54 0;
r@0 1524 #X connect 20 0 30 0;
r@0 1525 #X connect 20 0 31 0;
r@0 1526 #X connect 21 0 22 0;
r@0 1527 #X connect 22 0 26 0;
r@0 1528 #X connect 22 0 60 0;
r@0 1529 #X connect 23 0 32 0;
r@0 1530 #X connect 25 0 20 0;
r@0 1531 #X connect 26 0 27 0;
r@0 1532 #X connect 28 0 20 0;
r@0 1533 #X connect 29 0 26 0;
r@0 1534 #X connect 30 0 21 1;
r@0 1535 #X connect 31 0 22 1;
r@0 1536 #X connect 31 0 24 0;
r@0 1537 #X connect 32 0 34 0;
r@0 1538 #X connect 32 0 36 0;
r@0 1539 #X connect 32 0 130 0;
r@0 1540 #X connect 33 0 30 1;
r@0 1541 #X connect 33 1 30 0;
r@0 1542 #X connect 34 0 33 0;
r@0 1543 #X connect 35 0 20 0;
r@0 1544 #X connect 36 0 21 0;
r@0 1545 #X connect 37 0 92 0;
r@0 1546 #X connect 38 0 39 0;
r@0 1547 #X connect 40 0 38 0;
r@0 1548 #X connect 41 0 38 0;
r@0 1549 #X connect 45 0 17 0;
r@0 1550 #X connect 46 0 15 0;
r@0 1551 #X connect 47 0 13 0;
r@0 1552 #X connect 48 0 19 0;
r@0 1553 #X connect 50 0 51 0;
r@0 1554 #X connect 51 0 94 0;
r@0 1555 #X connect 52 0 53 0;
r@0 1556 #X connect 53 0 95 0;
r@0 1557 #X connect 54 0 55 0;
r@0 1558 #X connect 55 0 96 0;
r@0 1559 #X connect 56 0 98 0;
r@0 1560 #X connect 57 0 58 0;
r@0 1561 #X connect 58 0 111 0;
r@0 1562 #X connect 60 0 61 0;
r@0 1563 #X connect 61 0 62 0;
r@0 1564 #X connect 63 0 61 0;
r@1 1565 #X connect 66 0 154 0;
r@0 1566 #X connect 67 0 20 0;
r@0 1567 #X connect 69 0 74 0;
r@0 1568 #X connect 70 0 73 0;
r@1 1569 #X connect 70 0 182 0;
r@0 1570 #X connect 74 0 70 0;
r@0 1571 #X connect 75 0 20 0;
r@0 1572 #X connect 76 0 77 0;
r@1 1573 #X connect 76 0 177 0;
r@0 1574 #X connect 78 0 79 0;
r@1 1575 #X connect 78 0 178 0;
r@0 1576 #X connect 80 0 78 0;
r@0 1577 #X connect 80 0 101 0;
r@0 1578 #X connect 80 0 76 0;
r@0 1579 #X connect 80 0 99 0;
r@0 1580 #X connect 80 0 103 0;
r@0 1581 #X connect 80 0 81 0;
r@0 1582 #X connect 80 0 105 0;
r@0 1583 #X connect 80 0 83 0;
r@0 1584 #X connect 81 0 82 0;
r@1 1585 #X connect 81 0 179 0;
r@0 1586 #X connect 83 0 84 0;
r@1 1587 #X connect 83 0 180 0;
r@0 1588 #X connect 86 0 87 0;
r@0 1589 #X connect 87 0 91 0;
r@0 1590 #X connect 88 0 85 0;
r@0 1591 #X connect 88 0 90 0;
r@0 1592 #X connect 89 0 88 0;
r@0 1593 #X connect 90 0 86 0;
r@0 1594 #X connect 93 0 69 0;
r@0 1595 #X connect 97 0 74 1;
r@0 1596 #X connect 99 0 100 0;
r@0 1597 #X connect 101 0 102 0;
r@0 1598 #X connect 103 0 104 0;
r@0 1599 #X connect 105 0 106 0;
r@0 1600 #X connect 107 0 99 0;
r@0 1601 #X connect 107 1 76 0;
r@0 1602 #X connect 107 1 121 0;
r@0 1603 #X connect 107 2 101 0;
r@0 1604 #X connect 107 3 78 0;
r@0 1605 #X connect 107 3 125 0;
r@0 1606 #X connect 107 4 103 0;
r@0 1607 #X connect 107 5 81 0;
r@0 1608 #X connect 107 5 126 0;
r@0 1609 #X connect 107 6 105 0;
r@0 1610 #X connect 107 7 83 0;
r@0 1611 #X connect 107 7 127 0;
r@0 1612 #X connect 109 0 108 0;
r@0 1613 #X connect 109 0 123 0;
r@0 1614 #X connect 110 0 124 0;
r@0 1615 #X connect 111 0 59 0;
r@0 1616 #X connect 113 0 114 0;
r@0 1617 #X connect 114 0 116 0;
r@0 1618 #X connect 115 0 113 0;
r@0 1619 #X connect 115 0 112 0;
r@1 1620 #X connect 117 0 151 0;
r@0 1621 #X connect 118 0 89 0;
r@0 1622 #X connect 119 0 122 0;
r@1 1623 #X connect 120 0 156 0;
r@1 1624 #X connect 121 0 166 0;
r@0 1625 #X connect 122 0 115 0;
r@0 1626 #X connect 124 0 109 0;
r@1 1627 #X connect 125 0 164 0;
r@1 1628 #X connect 126 0 167 0;
r@1 1629 #X connect 127 0 165 0;
r@0 1630 #X connect 128 0 109 0;
r@0 1631 #X connect 134 0 48 0;
r@0 1632 #X connect 134 0 135 0;
r@0 1633 #X connect 137 0 13 0;
r@0 1634 #X connect 138 0 15 0;
r@0 1635 #X connect 139 0 17 0;
r@0 1636 #X connect 140 0 115 0;
r@0 1637 #X connect 141 0 88 0;
r@0 1638 #X connect 142 0 115 0;
r@0 1639 #X connect 143 0 88 0;
r@0 1640 #X connect 144 0 48 0;
r@0 1641 #X connect 145 0 149 0;
r@0 1642 #X connect 146 0 10 0;
r@0 1643 #X connect 149 0 44 0;
r@0 1644 #X connect 149 1 43 0;
r@0 1645 #X connect 149 2 42 0;
r@0 1646 #X connect 149 3 133 0;
r@0 1647 #X connect 149 4 150 0;
r@0 1648 #X connect 149 5 136 0;
r@0 1649 #X connect 151 0 149 0;
r@0 1650 #X connect 152 0 149 0;
r@1 1651 #X connect 154 0 155 0;
r@1 1652 #X connect 156 0 157 0;
r@1 1653 #X connect 158 0 149 0;
r@0 1654 #X connect 159 0 149 0;
r@0 1655 #X connect 160 0 149 0;
r@0 1656 #X connect 161 0 162 0;
r@0 1657 #X connect 163 0 161 0;
r@1 1658 #X connect 168 0 149 0;
r@1 1659 #X connect 169 0 149 0;
r@1 1660 #X connect 170 0 149 0;
r@1 1661 #X connect 171 0 149 0;
r@0 1662 #X connect 172 0 149 0;
r@0 1663 #X connect 173 0 149 0;
r@0 1664 #X connect 174 0 149 0;
r@0 1665 #X connect 175 0 149 0;
r@0 1666 #X connect 176 0 149 0;
r@1 1667 #X connect 182 0 183 0;
r@1 1668 #X connect 184 0 182 0;
r@1 1669 #X connect 186 0 149 0;
r@1 1670 #X connect 187 0 149 0;
r@1 1671 #X connect 188 0 10 0;
r@1 1672 #X connect 189 0 149 0;
r@1 1673 #X connect 190 0 194 0;
r@1 1674 #X connect 191 0 192 0;
r@1 1675 #X connect 191 0 181 0;
r@1 1676 #X connect 193 0 191 0;
r@1 1677 #X connect 195 0 191 0;
r@1 1678 #X connect 195 0 120 0;
r@1 1679 #X connect 195 1 161 0;
r@1 1680 #X connect 195 1 120 1;
r@1 1681 #X connect 196 0 149 0;