Mercurial > hg > weather-synthesis-prototyping

annotate Shallow Cavity/CavD5.pd @ 306:c57f401165ca tip

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