weather-synthesis-prototyping: scene demo/freqCalcCyl3No

annotate scene demo/freqCalcCyl3No_D1Mach.pd @ 155:be0f8470d010

Averaging Acoustic Intensity calculation Calculating Turbulence Intensity New Gain Equation Implemented Doubled up in HIP~ to ge the correct wake response output

author	Rod Selfridge <r.selfridge@qmul.ac.uk>
date	Mon, 18 Jan 2016 14:38:06 +0000
parents	af6801647567
children	e05d98370da8

rev	line source
r@155	1 #N canvas 33 30 1396 823 10;
r@142	2 #X text 567 158 Mass Density of Air;
r@142	3 #X text 96 418 Frequency (Hz);
r@142	4 #X obj 689 159 *~ 1.225;
r@142	5 #X obj 689 234 /~ 1.81e-05;
r@142	6 #X obj 689 189 *~ 1;
r@142	7 #X obj 689 352 /~ 1;
r@142	8 #X floatatom 192 396 10 0 0 0 - - -;
r@142	9 #X obj 689 328 *~;
r@142	10 #X obj 203 43 inlet;
r@142	11 #X text 722 278 Reynolds Number;
r@142	12 #X text 569 345 Strouhal Number;
r@142	13 #X obj 368 41 inlet;
r@142	14 #X text 719 214 Viscosity;
r@142	15 #X obj 210 66 s \$0-diameter;
r@142	16 #X obj 750 158 r \$0-diameter;
r@142	17 #X obj 757 333 r \$0-diameter;
r@142	18 #X obj 120 105 s~ \$0-windSpeed;
r@142	19 #X obj 134 640 r~ \$0-windSpeed;
r@142	20 #X obj 756 310 r~ \$0-windSpeed;
r@142	21 #X obj 689 131 r~ \$0-windSpeed;
r@142	22 #X obj 689 376 s~ \$0-myFreq;
r@142	23 #X obj 1103 474 r~ \$0-myFreq;
r@142	24 #X obj 120 63 sig~;
r@142	25 #X obj 120 85 vd~ varwind;
r@142	26 #X obj 120 39 inlet;
r@155	27 #X obj 1040 338 *~;
r@142	28 #X obj 114 218 snapshot~;
r@142	29 #X obj 114 193 metro 100;
r@142	30 #X obj 114 171 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	31 1;
r@142	32 #X floatatom 114 244 10 0 0 0 - - -;
r@142	33 #X obj 114 145 loadbang;
r@142	34 #X obj 28 193 r~ \$0-myRey;
r@142	35 #X obj 702 258 s~ \$0-myRey;
r@142	36 #X text 99 266 Reynolds Number;
r@142	37 #X obj 616 37 inlet;
r@142	38 #X floatatom 561 106 8 0 0 0 - - -;
r@142	39 #X obj 616 61 max 0.1;
r@142	40 #X obj 616 84 min 0.9;
r@142	41 #X text 653 395 Calculates the frequency;
r@142	42 #X text 654 407 based on the physics of;
r@142	43 #X text 654 420 the object and environment;
r@155	44 #X obj 287 384 r~ \$0-windSpeed;
r@142	45 #X obj 115 540 snapshot~;
r@142	46 #X obj 115 515 metro 100;
r@142	47 #X obj 115 493 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	48 1;
r@142	49 #X floatatom 115 566 10 0 0 0 - - -;
r@142	50 #X obj 115 467 loadbang;
r@155	51 #X obj 327 446 r \$0-diameter;
r@142	52 #N canvas 299 77 1040 691 freqGain 0;
r@142	53 #X text 36 127 Mass Density of Air \, squared;
r@142	54 #X text 411 123 Speed of Sound to power 2;
r@142	55 #N canvas 759 125 286 289 pow6 0;
r@142	56 #X obj 47 67 *~;
r@142	57 #X obj 76 67 *~;
r@142	58 #X obj 76 35 inlet~;
r@142	59 #X obj 47 163 outlet~;
r@142	60 #X obj 136 184 snapshot~;
r@142	61 #X obj 136 159 metro 100;
r@142	62 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	63 1;
r@142	64 #X floatatom 136 211 10 0 0 0 - - -;
r@142	65 #X obj 216 210 outlet;
r@142	66 #X obj 136 111 loadbang;
r@142	67 #X obj 106 67 *~;
r@142	68 #X obj 47 93 *~;
r@142	69 #X obj 47 118 *~;
r@142	70 #X connect 0 0 11 0;
r@142	71 #X connect 1 0 11 1;
r@142	72 #X connect 2 0 0 0;
r@142	73 #X connect 2 0 0 1;
r@142	74 #X connect 2 0 1 1;
r@142	75 #X connect 2 0 10 0;
r@142	76 #X connect 2 0 10 1;
r@142	77 #X connect 2 0 1 0;
r@142	78 #X connect 4 0 7 0;
r@142	79 #X connect 4 0 8 0;
r@142	80 #X connect 5 0 4 0;
r@142	81 #X connect 6 0 5 0;
r@142	82 #X connect 9 0 6 0;
r@142	83 #X connect 10 0 12 1;
r@142	84 #X connect 11 0 12 0;
r@142	85 #X connect 12 0 4 0;
r@142	86 #X connect 12 0 3 0;
r@142	87 #X restore 219 30 pd pow6;
r@142	88 #X obj 173 32 *~;
r@142	89 #X obj 219 68 *~;
r@142	90 #X obj 219 102 *~ 1;
r@142	91 #X obj 219 130 *~ 1.50063;
r@142	92 #X obj 404 71 *;
r@142	93 #X obj 404 96 * 118033;
r@142	94 #X obj 219 224 /~ 1;
r@142	95 #X obj 219 497 *~ 0.27;
r@142	96 #X text 424 30 Distance;
r@142	97 #X obj 319 473 *~ 0.27;
r@142	98 #X floatatom 369 72 5 0 0 0 - - -;
r@142	99 #X text 304 556 Calculates Drag Dipole gain;
r@142	100 #X text 48 504 Calculates Lift Dipole gain;
r@142	101 #X obj 319 498 *~ 0.1;
r@142	102 #X obj 173 8 inlet~;
r@142	103 #X obj 219 7 inlet~;
r@142	104 #X text 256 54 Diameter;
r@142	105 #X obj 250 69 inlet;
r@142	106 #X obj 404 46 inlet;
r@142	107 #X obj 219 524 outlet~;
r@142	108 #X obj 319 523 outlet~;
r@142	109 #X obj 240 159 inlet;
r@142	110 #X text 278 154 Length;
r@142	111 #X obj 219 202 *~ 1;
r@142	112 #X text 397 195 Add in MACH deflection;
r@142	113 #X obj 236 253 s~ \$0-aGain;
r@142	114 #X obj 347 424 r~ \$0-aGain;
r@142	115 #X text 257 278 Azimuth;
r@142	116 #X text 318 240 Elevation;
r@142	117 #X obj 258 295 inlet;
r@142	118 #X obj 315 256 inlet;
r@142	119 #X obj 258 318 sig~;
r@142	120 #X obj 315 318 sig~;
r@142	121 #X obj 315 298 spigot;
r@142	122 #X text 414 265 End Source;
r@142	123 #X text 415 284 Mid Source;
r@142	124 #X obj 432 343 loadbang;
r@142	125 #X obj 432 364 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	126 1;
r@142	127 #X obj 432 382 metro 10;
r@142	128 #X msg 349 322 0;
r@142	129 #X obj 386 303 t f b;
r@142	130 #X msg 386 283 0;
r@142	131 #X msg 386 263 1;
r@142	132 #X obj 234 382 +~ 90;
r@142	133 #X obj 234 403 /~ 360;
r@142	134 #X obj 234 425 cos~;
r@142	135 #X obj 234 449 *~;
r@142	136 #X obj 219 472 *~;
r@142	137 #X obj 319 377 /~ 360;
r@142	138 #X obj 319 400 cos~;
r@142	139 #X obj 319 424 *~;
r@142	140 #X obj 319 449 *~;
r@142	141 #X obj 432 403 snapshot~;
r@142	142 #X floatatom 432 423 5 0 0 0 - - -;
r@142	143 #X obj 466 450 loadbang;
r@142	144 #X obj 466 471 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	145 1;
r@142	146 #X obj 466 489 metro 10;
r@142	147 #X obj 466 510 snapshot~;
r@142	148 #X floatatom 466 530 5 0 0 0 - - -;
r@142	149 #X obj 149 366 loadbang;
r@142	150 #X obj 149 387 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	151 1;
r@142	152 #X obj 149 405 metro 10;
r@142	153 #X obj 149 426 snapshot~;
r@142	154 #X floatatom 149 446 5 0 0 0 - - -;
r@142	155 #X obj 651 38 inlet;
r@142	156 #X obj 750 40 inlet;
r@142	157 #X obj 846 43 inlet;
r@142	158 #X floatatom 651 85 5 0 0 0 - - -;
r@142	159 #X floatatom 750 86 5 0 0 0 - - -;
r@142	160 #X floatatom 847 87 5 0 0 0 - - -;
r@142	161 #X text 647 19 X Rotation;
r@142	162 #X text 744 21 Y Rotation;
r@142	163 #X text 841 24 Z Rotation;
r@142	164 #X obj 656 61 s \$0-this_rotaX;
r@142	165 #X obj 757 62 s \$0-thisrotaY;
r@142	166 #X obj 854 66 s \$0-thisrotaZ;
r@142	167 #X obj 258 337 angleCalc~;
r@142	168 #X text 74 8 Strouhal number;
r@142	169 #X text 269 7 Wind speed;
r@142	170 #X connect 2 0 4 0;
r@142	171 #X connect 3 0 4 1;
r@142	172 #X connect 4 0 5 0;
r@142	173 #X connect 5 0 6 0;
r@142	174 #X connect 6 0 26 0;
r@142	175 #X connect 7 0 8 0;
r@142	176 #X connect 8 0 9 1;
r@142	177 #X connect 9 0 28 0;
r@142	178 #X connect 9 0 50 0;
r@142	179 #X connect 10 0 22 0;
r@142	180 #X connect 12 0 16 0;
r@142	181 #X connect 16 0 23 0;
r@142	182 #X connect 17 0 3 0;
r@142	183 #X connect 17 0 3 1;
r@142	184 #X connect 18 0 2 0;
r@142	185 #X connect 20 0 5 1;
r@142	186 #X connect 21 0 7 1;
r@142	187 #X connect 21 0 7 0;
r@142	188 #X connect 21 0 13 0;
r@142	189 #X connect 24 0 26 1;
r@142	190 #X connect 26 0 9 0;
r@142	191 #X connect 29 0 54 1;
r@142	192 #X connect 32 0 34 0;
r@142	193 #X connect 33 0 36 0;
r@142	194 #X connect 34 0 79 0;
r@142	195 #X connect 35 0 79 1;
r@142	196 #X connect 36 0 35 0;
r@142	197 #X connect 39 0 40 0;
r@142	198 #X connect 40 0 41 0;
r@142	199 #X connect 41 0 55 0;
r@142	200 #X connect 42 0 35 0;
r@142	201 #X connect 43 0 36 1;
r@142	202 #X connect 43 1 42 0;
r@142	203 #X connect 44 0 43 0;
r@142	204 #X connect 45 0 36 1;
r@142	205 #X connect 46 0 47 0;
r@142	206 #X connect 47 0 48 0;
r@142	207 #X connect 48 0 49 0;
r@142	208 #X connect 48 0 49 1;
r@142	209 #X connect 49 0 50 1;
r@142	210 #X connect 49 0 65 0;
r@142	211 #X connect 50 0 10 0;
r@142	212 #X connect 51 0 52 0;
r@142	213 #X connect 52 0 53 0;
r@142	214 #X connect 52 0 53 1;
r@142	215 #X connect 53 0 54 0;
r@142	216 #X connect 53 0 60 0;
r@142	217 #X connect 54 0 12 0;
r@142	218 #X connect 55 0 56 0;
r@142	219 #X connect 57 0 58 0;
r@142	220 #X connect 58 0 59 0;
r@142	221 #X connect 59 0 60 0;
r@142	222 #X connect 60 0 61 0;
r@142	223 #X connect 62 0 63 0;
r@142	224 #X connect 63 0 64 0;
r@142	225 #X connect 64 0 65 0;
r@142	226 #X connect 65 0 66 0;
r@142	227 #X connect 67 0 70 0;
r@142	228 #X connect 67 0 76 0;
r@142	229 #X connect 68 0 71 0;
r@142	230 #X connect 68 0 77 0;
r@142	231 #X connect 69 0 72 0;
r@142	232 #X connect 69 0 78 0;
r@142	233 #X connect 79 0 46 0;
r@142	234 #X connect 79 0 51 0;
r@142	235 #X connect 79 0 55 0;
r@142	236 #X restore 125 784 pd freqGain;
r@142	237 #X obj 440 40 inlet;
r@142	238 #X obj 155 679 r \$0-diameter;
r@142	239 #X obj 514 39 inlet;
r@142	240 #X floatatom 368 88 5 0 0 0 - - -;
r@142	241 #X floatatom 440 86 5 0 0 0 - - -;
r@142	242 #X floatatom 515 83 5 0 0 0 - - -;
r@142	243 #X obj 63 396 outlet;
r@142	244 #X obj 107 369 snapshot~;
r@142	245 #X obj 107 322 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	246 1;
r@142	247 #X obj 107 296 loadbang;
r@142	248 #X obj 107 344 metro 10;
r@142	249 #X obj 28 346 r~ \$0-myFreq;
r@142	250 #X text 114 595 Strouhal Number;
r@142	251 #X text 273 347 Calculates the gain of the dipole source;
r@144	252 #X text 439 17 Azimuth;
r@142	253 #X text 621 19 Pan;
r@144	254 #X text 513 21 Elevation;
r@142	255 #X text 364 22 Distance;
r@142	256 #X text 198 22 Diameter;
r@142	257 #X text 113 21 Wind Speed;
r@142	258 #X obj 295 40 inlet;
r@142	259 #X floatatom 295 84 5 0 0 0 - - -;
r@142	260 #X text 291 21 Length;
r@142	261 #X obj 689 299 newStrou;
r@142	262 #X floatatom 63 79 5 0 0 0 - - -;
r@142	263 #X floatatom 203 87 5 0 0 0 - - -;
r@155	264 #X obj 1040 407 throw~ l;
r@155	265 #X obj 1067 385 throw~ r;
r@155	266 #X obj 1040 363 fcpan;
r@142	267 #X obj 305 63 s \$0-leng;
r@142	268 #X obj 373 64 s \$0-dist;
r@142	269 #X obj 124 619 r~ \$0-str;
r@142	270 #X obj 145 659 r \$0-leng;
r@142	271 #X obj 166 699 r \$0-azim;
r@142	272 #X obj 176 720 r \$0-elev;
r@142	273 #X obj 187 741 r \$0-dist;
r@142	274 #X obj 380 311 s~ \$0-dragDiGain;
r@142	275 #X obj 293 332 s~ \$0-liftDiGain;
r@155	276 #X obj 274 365 r~ \$0-str;
r@155	277 #X obj 313 424 r \$0-leng;
r@155	278 #X obj 340 467 r \$0-dist;
r@155	279 #X obj 274 584 s~ \$0-liftNoiseGain;
r@142	280 #X obj 1076 454 r~ \$0-dragDiGain;
r@142	281 #X obj 589 330 s~ \$0-str;
r@142	282 #X obj 616 106 s \$0-thisPan;
r@143	283 #X obj 1076 262 r \$0-contFreq;
r@142	284 #X obj 107 396 s \$0-contFreq;
r@142	285 #X obj 30 515 r~ \$0-str;
r@143	286 #X obj 1040 182 r~ \$0-liftNoiseGain;
r@155	287 #X obj 1067 338 r \$0-thisPan;
r@142	288 #X obj 711 46 inlet;
r@142	289 #X obj 783 45 inlet;
r@142	290 #X obj 857 44 inlet;
r@142	291 #X floatatom 711 93 5 0 0 0 - - -;
r@142	292 #X floatatom 783 91 5 0 0 0 - - -;
r@142	293 #X floatatom 858 88 5 0 0 0 - - -;
r@142	294 #X obj 716 69 s \$0-rotaX;
r@142	295 #X obj 790 67 s \$0-rotaY;
r@142	296 #X obj 865 67 s \$0-rotaZ;
r@142	297 #X text 707 27 X Rotation;
r@142	298 #X text 777 26 Y Rotation;
r@142	299 #X text 852 25 Z Rotation;
r@143	300 #X text 1021 156 Noise spectrum calculation;
r@143	301 #X obj 1055 286 hip~;
r@142	302 #X obj 1130 494 r \$0-thisPan;
r@143	303 #X obj 1055 241 rpole~ 0.99;
r@143	304 #X obj 1055 215 noise~;
r@142	305 #X obj 72 246 outlet;
r@150	306 #X obj 301 143 r~ \$0-windSpeed;
r@150	307 #X obj 319 182 r \$0-diameter;
r@150	308 #X obj 293 122 r~ \$0-str;
r@150	309 #X obj 311 163 r \$0-leng;
r@150	310 #X obj 336 221 r \$0-dist;
r@152	311 #N canvas 183 98 1238 721 GoldfreqGain 0;
r@142	312 #N canvas 759 125 286 294 pow6 0;
r@142	313 #X obj 47 67 *~;
r@142	314 #X obj 76 67 *~;
r@142	315 #X obj 76 35 inlet~;
r@142	316 #X obj 47 163 outlet~;
r@142	317 #X obj 136 184 snapshot~;
r@142	318 #X obj 136 159 metro 100;
r@142	319 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	320 1;
r@142	321 #X floatatom 136 211 10 0 0 0 - - -;
r@142	322 #X obj 216 210 outlet;
r@142	323 #X obj 136 111 loadbang;
r@142	324 #X obj 106 67 *~;
r@142	325 #X obj 47 93 *~;
r@142	326 #X obj 47 118 *~;
r@142	327 #X obj 372 202 *;
r@142	328 #X obj 372 228 *;
r@142	329 #X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@142	330 -1 -1 0 1;
r@142	331 #X floatatom 374 288 10 0 0 0 - - -;
r@142	332 #X obj 303 20 t f b;
r@142	333 #X floatatom 455 55 5 0 0 0 - - -;
r@142	334 #X obj 372 260 *;
r@142	335 #X obj 400 202 *;
r@142	336 #X msg 303 -4 6;
r@142	337 #X obj 434 201 *;
r@142	338 #X connect 0 0 11 0;
r@142	339 #X connect 1 0 11 1;
r@142	340 #X connect 2 0 0 0;
r@142	341 #X connect 2 0 0 1;
r@142	342 #X connect 2 0 1 1;
r@142	343 #X connect 2 0 10 0;
r@142	344 #X connect 2 0 10 1;
r@142	345 #X connect 2 0 1 0;
r@142	346 #X connect 4 0 7 0;
r@142	347 #X connect 4 0 8 0;
r@142	348 #X connect 5 0 4 0;
r@142	349 #X connect 6 0 5 0;
r@142	350 #X connect 9 0 6 0;
r@142	351 #X connect 10 0 12 1;
r@142	352 #X connect 11 0 12 0;
r@142	353 #X connect 12 0 4 0;
r@142	354 #X connect 12 0 3 0;
r@142	355 #X connect 13 0 14 0;
r@142	356 #X connect 14 0 19 0;
r@142	357 #X connect 15 0 13 0;
r@142	358 #X connect 15 0 13 1;
r@142	359 #X connect 15 0 18 0;
r@142	360 #X connect 15 0 20 0;
r@142	361 #X connect 15 0 20 1;
r@142	362 #X connect 17 0 13 0;
r@142	363 #X connect 17 0 13 1;
r@142	364 #X connect 17 0 20 0;
r@142	365 #X connect 17 0 20 1;
r@142	366 #X connect 17 0 22 0;
r@142	367 #X connect 17 0 22 1;
r@142	368 #X connect 17 1 13 0;
r@142	369 #X connect 17 1 20 0;
r@142	370 #X connect 17 1 22 0;
r@142	371 #X connect 19 0 16 0;
r@142	372 #X connect 20 0 14 1;
r@142	373 #X connect 21 0 17 0;
r@142	374 #X connect 22 0 19 1;
r@155	375 #X restore 219 42 pd pow6;
r@142	376 #X obj 173 32 *~;
r@142	377 #X obj 219 68 *~;
r@150	378 #X obj 404 137 *;
r@150	379 #X text 533 2 Distance;
r@150	380 #X floatatom 513 62 5 0 0 0 - - -;
r@155	381 #X text 724 595 Calculates Drag Dipole gain;
r@155	382 #X text 48 647 Calculates Lift Dipole gain;
r@155	383 #X obj 173 -8 inlet~;
r@155	384 #X obj 219 -9 inlet~;
r@150	385 #X text 328 62 Diameter;
r@150	386 #X obj 291 61 inlet;
r@150	387 #X obj 513 18 inlet;
r@155	388 #X obj 219 667 outlet~;
r@155	389 #X obj 758 570 outlet~;
r@142	390 #X obj 240 159 inlet;
r@142	391 #X text 278 154 Length;
r@142	392 #X obj 219 185 *~ 1;
r@148	393 #X obj 234 416 sig~;
r@147	394 #X obj 322 438 sig~;
r@142	395 #X obj 287 563 loadbang;
r@142	396 #X obj 287 584 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	397 1;
r@142	398 #X obj 287 602 metro 10;
r@147	399 #X obj 234 468 /~ 360;
r@147	400 #X obj 234 517 *~;
r@147	401 #X obj 219 540 *~;
r@142	402 #X obj 287 623 snapshot~;
r@142	403 #X floatatom 287 643 10 0 0 0 - - -;
r@147	404 #X obj 398 512 loadbang;
r@147	405 #X obj 398 533 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	406 1;
r@147	407 #X obj 398 551 metro 10;
r@147	408 #X obj 398 572 snapshot~;
r@147	409 #X floatatom 398 592 10 0 0 0 - - -;
r@142	410 #X obj 149 419 loadbang;
r@142	411 #X obj 149 440 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	412 1;
r@142	413 #X obj 149 458 metro 10;
r@142	414 #X obj 149 479 snapshot~;
r@147	415 #X floatatom 112 524 10 0 0 0 - - -;
r@150	416 #X obj 814 19 inlet;
r@150	417 #X obj 913 21 inlet;
r@150	418 #X obj 1009 24 inlet;
r@150	419 #X floatatom 814 66 5 0 0 0 - - -;
r@150	420 #X floatatom 913 67 5 0 0 0 - - -;
r@150	421 #X floatatom 1010 68 5 0 0 0 - - -;
r@150	422 #X text 810 0 X Rotation;
r@150	423 #X text 907 2 Y Rotation;
r@150	424 #X text 1004 5 Z Rotation;
r@150	425 #X obj 819 42 s \$0-this_rotaX;
r@150	426 #X obj 920 43 s \$0-thisrotaY;
r@150	427 #X obj 1017 47 s \$0-thisrotaZ;
r@155	428 #X text 74 -8 Strouhal number;
r@155	429 #X text 269 -9 Wind speed;
r@150	430 #X text 266 103 Corr Length;
r@142	431 #X obj 219 225 *~ 2.50663;
r@142	432 #X obj 219 130 *~ 1.225;
r@142	433 #X text 93 126 Mass Density of Air;
r@142	434 #X text 147 227 Sqrt(2xpi);
r@147	435 #X obj 234 493 sin~;
r@147	436 #X obj 322 466 /~ 360;
r@147	437 #X obj 322 512 *~;
r@147	438 #X obj 322 488 cos~;
r@155	439 #X obj 219 558 *~;
r@150	440 #X obj 404 167 * 4.05513e+07;
r@150	441 #X text 355 186 Speed of Sound to power 3;
r@150	442 #X obj 404 220 * 32;
r@147	443 #X obj 553 189 r SIG_MACH;
r@142	444 #X obj 518 189 cos~;
r@142	445 #X obj 518 212 *~;
r@142	446 #X obj 466 213 sig~ 1;
r@142	447 #X obj 503 243 -~;
r@147	448 #N canvas 1150 227 286 289 pow4 0;
r@142	449 #X obj 47 67 *~;
r@142	450 #X obj 76 67 *~;
r@142	451 #X obj 76 35 inlet~;
r@142	452 #X obj 47 163 outlet~;
r@142	453 #X obj 136 184 snapshot~;
r@142	454 #X obj 136 159 metro 100;
r@142	455 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	456 1;
r@142	457 #X floatatom 136 211 10 0 0 0 - - -;
r@142	458 #X obj 216 210 outlet;
r@142	459 #X obj 136 111 loadbang;
r@142	460 #X obj 47 93 *~;
r@142	461 #X connect 0 0 10 0;
r@142	462 #X connect 1 0 10 1;
r@142	463 #X connect 2 0 0 0;
r@142	464 #X connect 2 0 0 1;
r@142	465 #X connect 2 0 1 1;
r@142	466 #X connect 2 0 1 0;
r@142	467 #X connect 4 0 7 0;
r@142	468 #X connect 4 0 8 0;
r@142	469 #X connect 5 0 4 0;
r@142	470 #X connect 6 0 5 0;
r@142	471 #X connect 9 0 6 0;
r@142	472 #X connect 10 0 3 0;
r@142	473 #X connect 10 0 4 0;
r@142	474 #X restore 503 266 pd pow4;
r@150	475 #X obj 404 248 sig~;
r@142	476 #X obj 404 298 *~;
r@142	477 #X obj 429 316 loadbang;
r@142	478 #X obj 429 337 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	479 1;
r@142	480 #X obj 429 355 metro 10;
r@142	481 #X obj 429 376 snapshot~;
r@142	482 #X floatatom 429 396 10 0 0 0 - - -;
r@142	483 #X obj 219 346 /~;
r@147	484 #X obj 133 287 s~ \$0-aGainG;
r@147	485 #X obj 872 246 r~ \$0-aGainG;
r@147	486 #X obj 758 512 *~ 0.1;
r@147	487 #X obj 723 340 +~ 90;
r@147	488 #X obj 723 363 /~ 360;
r@147	489 #X obj 723 409 *~;
r@147	490 #X obj 723 385 sin~;
r@147	491 #X obj 773 359 /~ 360;
r@147	492 #X obj 773 405 *~;
r@147	493 #X obj 773 381 cos~;
r@147	494 #X obj 758 436 *~;
r@150	495 #X text 709 1 Azimuth;
r@150	496 #X text 608 3 Elevation;
r@150	497 #X obj 611 21 inlet;
r@150	498 #X obj 713 19 inlet;
r@150	499 #X floatatom 611 68 5 0 0 0 - - -;
r@150	500 #X floatatom 713 68 5 0 0 0 - - -;
r@147	501 #X obj 322 417 r \$0-this_azim;
r@148	502 #X obj 234 394 r \$0-this_elev;
r@147	503 #X obj 773 314 r \$0-this_azim;
r@147	504 #X obj 723 256 r \$0-this_elev;
r@147	505 #X obj 723 280 sig~;
r@147	506 #X obj 773 336 sig~;
r@148	507 #X obj 518 141 sig~;
r@142	508 #X text 297 695 comment;
r@151	509 #X obj 557 139 r~ plotElev;
r@151	510 #X obj 245 439 r~ plotElev;
r@155	511 #X obj 139 628 s~ plotOPF;
r@155	512 #X obj 676 574 s~ plotOPD;
r@150	513 #X obj 616 44 s \$0-this_elev;
r@150	514 #X obj 720 44 s \$0-this_azim;
r@148	515 #X obj 518 117 r \$0-this_elev;
r@150	516 #X obj 520 40 s \$0-thisDist;
r@147	517 #X obj 887 268 r \$0-thisDist;
r@150	518 #X obj 404 111 r \$0-thisDist;
r@147	519 #X obj 887 292 *;
r@147	520 #X obj 887 317 * 4.05513e+07;
r@147	521 #X text 892 335 Speed of Sound to power 3;
r@147	522 #X obj 887 370 * 32;
r@147	523 #X obj 887 398 sig~;
r@147	524 #X obj 872 423 /~;
r@147	525 #X text 588 167 Remember - Goldstein moves cylinder;
r@151	526 #X obj 757 289 r~ plotElev;
r@150	527 #X floatatom 359 169 5 0 0 0 - - -;
r@147	528 #X obj 518 170 /~ 360;
r@147	529 #X obj 758 475 *~;
r@150	530 #X obj 424 40 s~ \$0-thisColL;
r@150	531 #X obj 270 42 r~ \$0-thisColL;
r@150	532 #X obj 270 82 *~ 1;
r@150	533 #X obj 219 102 *~;
r@150	534 #X obj 424 17 inlet~;
r@151	535 #X obj 534 620 cos~;
r@151	536 #X obj 534 595 *~ 2;
r@155	537 #N canvas 228 23 895 824 timeAve 0;
r@155	538 #X obj 63 29 delay~ 1;
r@155	539 #X obj 76 52 delay~ 1;
r@155	540 #X obj 87 76 delay~ 1;
r@155	541 #X obj 48 7 inlet~;
r@155	542 #X obj 96 100 delay~ 1;
r@155	543 #X obj 107 124 delay~ 1;
r@155	544 #X obj 118 148 delay~ 1;
r@155	545 #X obj 131 172 delay~ 1;
r@155	546 #X obj 142 196 delay~ 1;
r@155	547 #X obj 155 219 delay~ 1;
r@155	548 #X obj 166 243 delay~ 1;
r@155	549 #X obj 177 267 delay~ 1;
r@155	550 #X obj 186 291 delay~ 1;
r@155	551 #X obj 197 315 delay~ 1;
r@155	552 #X obj 208 339 delay~ 1;
r@155	553 #X obj 221 363 delay~ 1;
r@155	554 #X obj 48 52 +~;
r@155	555 #X obj 61 76 +~;
r@155	556 #X obj 72 99 +~;
r@155	557 #X obj 81 123 +~;
r@155	558 #X obj 92 147 +~;
r@155	559 #X obj 103 171 +~;
r@155	560 #X obj 114 195 +~;
r@155	561 #X obj 126 219 +~;
r@155	562 #X obj 137 243 +~;
r@155	563 #X obj 149 267 +~;
r@155	564 #X obj 160 291 +~;
r@155	565 #X obj 171 316 +~;
r@155	566 #X obj 182 340 +~;
r@155	567 #X obj 193 363 +~;
r@155	568 #X obj 204 387 +~;
r@155	569 #X obj 620 647 metro 100;
r@155	570 #X obj 620 670 snapshot~;
r@155	571 #X floatatom 620 696 0 0 0 0 - - -;
r@155	572 #X obj 620 626 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
r@155	573 1;
r@155	574 #X obj 558 644 metro 100;
r@155	575 #X obj 558 667 snapshot~;
r@155	576 #X floatatom 558 695 0 0 0 0 - - -;
r@155	577 #X obj 558 623 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
r@155	578 1;
r@155	579 #X obj 232 385 delay~ 1;
r@155	580 #X obj 245 408 delay~ 1;
r@155	581 #X obj 256 432 delay~ 1;
r@155	582 #X obj 265 456 delay~ 1;
r@155	583 #X obj 276 480 delay~ 1;
r@155	584 #X obj 287 504 delay~ 1;
r@155	585 #X obj 300 528 delay~ 1;
r@155	586 #X obj 312 549 delay~ 1;
r@155	587 #X obj 325 572 delay~ 1;
r@155	588 #X obj 336 596 delay~ 1;
r@155	589 #X obj 347 620 delay~ 1;
r@155	590 #X obj 356 644 delay~ 1;
r@155	591 #X obj 367 668 delay~ 1;
r@155	592 #X obj 378 692 delay~ 1;
r@155	593 #X obj 389 715 delay~ 1;
r@155	594 #X obj 217 408 +~;
r@155	595 #X obj 230 432 +~;
r@155	596 #X obj 241 455 +~;
r@155	597 #X obj 250 479 +~;
r@155	598 #X obj 261 503 +~;
r@155	599 #X obj 272 527 +~;
r@155	600 #X obj 283 551 +~;
r@155	601 #X obj 295 575 +~;
r@155	602 #X obj 306 599 +~;
r@155	603 #X obj 319 620 +~;
r@155	604 #X obj 330 644 +~;
r@155	605 #X obj 341 669 +~;
r@155	606 #X obj 352 693 +~;
r@155	607 #X obj 363 716 +~;
r@155	608 #X obj 374 740 +~;
r@155	609 #X obj 402 738 delay~ 1;
r@155	610 #X obj 387 761 +~;
r@155	611 #X obj 387 807 outlet~;
r@155	612 #X obj 387 781 *~ 0.03125;
r@155	613 #X obj 558 724 -;
r@155	614 #X floatatom 558 749 0 0 0 0 - - -;
r@155	615 #X text 539 532 Averages the windspeed over 32 samples;
r@155	616 #X connect 0 0 1 0;
r@155	617 #X connect 0 0 16 1;
r@155	618 #X connect 1 0 2 0;
r@155	619 #X connect 1 0 17 1;
r@155	620 #X connect 2 0 4 0;
r@155	621 #X connect 2 0 18 1;
r@155	622 #X connect 3 0 0 0;
r@155	623 #X connect 3 0 16 0;
r@155	624 #X connect 3 0 36 0;
r@155	625 #X connect 4 0 5 0;
r@155	626 #X connect 4 0 19 1;
r@155	627 #X connect 5 0 6 0;
r@155	628 #X connect 5 0 20 1;
r@155	629 #X connect 6 0 7 0;
r@155	630 #X connect 6 0 21 1;
r@155	631 #X connect 7 0 8 0;
r@155	632 #X connect 7 0 22 1;
r@155	633 #X connect 8 0 9 0;
r@155	634 #X connect 8 0 23 1;
r@155	635 #X connect 9 0 10 0;
r@155	636 #X connect 9 0 24 1;
r@155	637 #X connect 10 0 11 0;
r@155	638 #X connect 10 0 25 1;
r@155	639 #X connect 11 0 12 0;
r@155	640 #X connect 11 0 26 1;
r@155	641 #X connect 12 0 13 0;
r@155	642 #X connect 12 0 27 1;
r@155	643 #X connect 13 0 14 0;
r@155	644 #X connect 13 0 28 1;
r@155	645 #X connect 14 0 15 0;
r@155	646 #X connect 14 0 29 1;
r@155	647 #X connect 15 0 30 1;
r@155	648 #X connect 15 0 39 0;
r@155	649 #X connect 16 0 17 0;
r@155	650 #X connect 17 0 18 0;
r@155	651 #X connect 18 0 19 0;
r@155	652 #X connect 19 0 20 0;
r@155	653 #X connect 20 0 21 0;
r@155	654 #X connect 21 0 22 0;
r@155	655 #X connect 22 0 23 0;
r@155	656 #X connect 23 0 24 0;
r@155	657 #X connect 24 0 25 0;
r@155	658 #X connect 25 0 26 0;
r@155	659 #X connect 26 0 27 0;
r@155	660 #X connect 27 0 28 0;
r@155	661 #X connect 28 0 29 0;
r@155	662 #X connect 29 0 30 0;
r@155	663 #X connect 30 0 54 0;
r@155	664 #X connect 31 0 32 0;
r@155	665 #X connect 32 0 33 0;
r@155	666 #X connect 33 0 73 1;
r@155	667 #X connect 34 0 31 0;
r@155	668 #X connect 35 0 36 0;
r@155	669 #X connect 36 0 37 0;
r@155	670 #X connect 37 0 73 0;
r@155	671 #X connect 38 0 35 0;
r@155	672 #X connect 39 0 40 0;
r@155	673 #X connect 39 0 54 1;
r@155	674 #X connect 40 0 41 0;
r@155	675 #X connect 40 0 55 1;
r@155	676 #X connect 41 0 42 0;
r@155	677 #X connect 41 0 56 1;
r@155	678 #X connect 42 0 43 0;
r@155	679 #X connect 42 0 57 1;
r@155	680 #X connect 43 0 44 0;
r@155	681 #X connect 43 0 58 1;
r@155	682 #X connect 44 0 45 0;
r@155	683 #X connect 44 0 59 1;
r@155	684 #X connect 45 0 46 0;
r@155	685 #X connect 45 0 60 1;
r@155	686 #X connect 46 0 47 0;
r@155	687 #X connect 46 0 61 1;
r@155	688 #X connect 47 0 48 0;
r@155	689 #X connect 47 0 62 1;
r@155	690 #X connect 48 0 49 0;
r@155	691 #X connect 48 0 63 1;
r@155	692 #X connect 49 0 50 0;
r@155	693 #X connect 49 0 64 1;
r@155	694 #X connect 50 0 51 0;
r@155	695 #X connect 50 0 65 1;
r@155	696 #X connect 51 0 52 0;
r@155	697 #X connect 51 0 66 1;
r@155	698 #X connect 52 0 53 0;
r@155	699 #X connect 52 0 67 1;
r@155	700 #X connect 53 0 68 1;
r@155	701 #X connect 53 0 69 0;
r@155	702 #X connect 54 0 55 0;
r@155	703 #X connect 55 0 56 0;
r@155	704 #X connect 56 0 57 0;
r@155	705 #X connect 57 0 58 0;
r@155	706 #X connect 58 0 59 0;
r@155	707 #X connect 59 0 60 0;
r@155	708 #X connect 60 0 61 0;
r@155	709 #X connect 61 0 62 0;
r@155	710 #X connect 62 0 63 0;
r@155	711 #X connect 63 0 64 0;
r@155	712 #X connect 64 0 65 0;
r@155	713 #X connect 65 0 66 0;
r@155	714 #X connect 66 0 67 0;
r@155	715 #X connect 67 0 68 0;
r@155	716 #X connect 68 0 70 0;
r@155	717 #X connect 69 0 70 1;
r@155	718 #X connect 70 0 72 0;
r@155	719 #X connect 72 0 71 0;
r@155	720 #X connect 72 0 32 0;
r@155	721 #X connect 73 0 74 0;
r@155	722 #X restore 219 584 pd timeAve;
r@155	723 #N canvas 228 23 895 824 timeAve 0;
r@155	724 #X obj 63 29 delay~ 1;
r@155	725 #X obj 76 52 delay~ 1;
r@155	726 #X obj 87 76 delay~ 1;
r@155	727 #X obj 48 7 inlet~;
r@155	728 #X obj 96 100 delay~ 1;
r@155	729 #X obj 107 124 delay~ 1;
r@155	730 #X obj 118 148 delay~ 1;
r@155	731 #X obj 131 172 delay~ 1;
r@155	732 #X obj 142 196 delay~ 1;
r@155	733 #X obj 155 219 delay~ 1;
r@155	734 #X obj 166 243 delay~ 1;
r@155	735 #X obj 177 267 delay~ 1;
r@155	736 #X obj 186 291 delay~ 1;
r@155	737 #X obj 197 315 delay~ 1;
r@155	738 #X obj 208 339 delay~ 1;
r@155	739 #X obj 221 363 delay~ 1;
r@155	740 #X obj 48 52 +~;
r@155	741 #X obj 61 76 +~;
r@155	742 #X obj 72 99 +~;
r@155	743 #X obj 81 123 +~;
r@155	744 #X obj 92 147 +~;
r@155	745 #X obj 103 171 +~;
r@155	746 #X obj 114 195 +~;
r@155	747 #X obj 126 219 +~;
r@155	748 #X obj 137 243 +~;
r@155	749 #X obj 149 267 +~;
r@155	750 #X obj 160 291 +~;
r@155	751 #X obj 171 316 +~;
r@155	752 #X obj 182 340 +~;
r@155	753 #X obj 193 363 +~;
r@155	754 #X obj 204 387 +~;
r@155	755 #X obj 620 647 metro 100;
r@155	756 #X obj 620 670 snapshot~;
r@155	757 #X floatatom 620 696 0 0 0 0 - - -;
r@155	758 #X obj 620 626 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
r@155	759 1;
r@155	760 #X obj 558 644 metro 100;
r@155	761 #X obj 558 667 snapshot~;
r@155	762 #X floatatom 558 695 0 0 0 0 - - -;
r@155	763 #X obj 558 623 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
r@155	764 1;
r@155	765 #X obj 232 385 delay~ 1;
r@155	766 #X obj 245 408 delay~ 1;
r@155	767 #X obj 256 432 delay~ 1;
r@155	768 #X obj 265 456 delay~ 1;
r@155	769 #X obj 276 480 delay~ 1;
r@155	770 #X obj 287 504 delay~ 1;
r@155	771 #X obj 300 528 delay~ 1;
r@155	772 #X obj 312 549 delay~ 1;
r@155	773 #X obj 325 572 delay~ 1;
r@155	774 #X obj 336 596 delay~ 1;
r@155	775 #X obj 347 620 delay~ 1;
r@155	776 #X obj 356 644 delay~ 1;
r@155	777 #X obj 367 668 delay~ 1;
r@155	778 #X obj 378 692 delay~ 1;
r@155	779 #X obj 389 715 delay~ 1;
r@155	780 #X obj 217 408 +~;
r@155	781 #X obj 230 432 +~;
r@155	782 #X obj 241 455 +~;
r@155	783 #X obj 250 479 +~;
r@155	784 #X obj 261 503 +~;
r@155	785 #X obj 272 527 +~;
r@155	786 #X obj 283 551 +~;
r@155	787 #X obj 295 575 +~;
r@155	788 #X obj 306 599 +~;
r@155	789 #X obj 319 620 +~;
r@155	790 #X obj 330 644 +~;
r@155	791 #X obj 341 669 +~;
r@155	792 #X obj 352 693 +~;
r@155	793 #X obj 363 716 +~;
r@155	794 #X obj 374 740 +~;
r@155	795 #X obj 402 738 delay~ 1;
r@155	796 #X obj 387 761 +~;
r@155	797 #X obj 387 807 outlet~;
r@155	798 #X obj 387 781 *~ 0.03125;
r@155	799 #X obj 558 724 -;
r@155	800 #X floatatom 558 749 0 0 0 0 - - -;
r@155	801 #X text 539 532 Averages the windspeed over 32 samples;
r@155	802 #X connect 0 0 1 0;
r@155	803 #X connect 0 0 16 1;
r@155	804 #X connect 1 0 2 0;
r@155	805 #X connect 1 0 17 1;
r@155	806 #X connect 2 0 4 0;
r@155	807 #X connect 2 0 18 1;
r@155	808 #X connect 3 0 0 0;
r@155	809 #X connect 3 0 16 0;
r@155	810 #X connect 3 0 36 0;
r@155	811 #X connect 4 0 5 0;
r@155	812 #X connect 4 0 19 1;
r@155	813 #X connect 5 0 6 0;
r@155	814 #X connect 5 0 20 1;
r@155	815 #X connect 6 0 7 0;
r@155	816 #X connect 6 0 21 1;
r@155	817 #X connect 7 0 8 0;
r@155	818 #X connect 7 0 22 1;
r@155	819 #X connect 8 0 9 0;
r@155	820 #X connect 8 0 23 1;
r@155	821 #X connect 9 0 10 0;
r@155	822 #X connect 9 0 24 1;
r@155	823 #X connect 10 0 11 0;
r@155	824 #X connect 10 0 25 1;
r@155	825 #X connect 11 0 12 0;
r@155	826 #X connect 11 0 26 1;
r@155	827 #X connect 12 0 13 0;
r@155	828 #X connect 12 0 27 1;
r@155	829 #X connect 13 0 14 0;
r@155	830 #X connect 13 0 28 1;
r@155	831 #X connect 14 0 15 0;
r@155	832 #X connect 14 0 29 1;
r@155	833 #X connect 15 0 30 1;
r@155	834 #X connect 15 0 39 0;
r@155	835 #X connect 16 0 17 0;
r@155	836 #X connect 17 0 18 0;
r@155	837 #X connect 18 0 19 0;
r@155	838 #X connect 19 0 20 0;
r@155	839 #X connect 20 0 21 0;
r@155	840 #X connect 21 0 22 0;
r@155	841 #X connect 22 0 23 0;
r@155	842 #X connect 23 0 24 0;
r@155	843 #X connect 24 0 25 0;
r@155	844 #X connect 25 0 26 0;
r@155	845 #X connect 26 0 27 0;
r@155	846 #X connect 27 0 28 0;
r@155	847 #X connect 28 0 29 0;
r@155	848 #X connect 29 0 30 0;
r@155	849 #X connect 30 0 54 0;
r@155	850 #X connect 31 0 32 0;
r@155	851 #X connect 32 0 33 0;
r@155	852 #X connect 33 0 73 1;
r@155	853 #X connect 34 0 31 0;
r@155	854 #X connect 35 0 36 0;
r@155	855 #X connect 36 0 37 0;
r@155	856 #X connect 37 0 73 0;
r@155	857 #X connect 38 0 35 0;
r@155	858 #X connect 39 0 40 0;
r@155	859 #X connect 39 0 54 1;
r@155	860 #X connect 40 0 41 0;
r@155	861 #X connect 40 0 55 1;
r@155	862 #X connect 41 0 42 0;
r@155	863 #X connect 41 0 56 1;
r@155	864 #X connect 42 0 43 0;
r@155	865 #X connect 42 0 57 1;
r@155	866 #X connect 43 0 44 0;
r@155	867 #X connect 43 0 58 1;
r@155	868 #X connect 44 0 45 0;
r@155	869 #X connect 44 0 59 1;
r@155	870 #X connect 45 0 46 0;
r@155	871 #X connect 45 0 60 1;
r@155	872 #X connect 46 0 47 0;
r@155	873 #X connect 46 0 61 1;
r@155	874 #X connect 47 0 48 0;
r@155	875 #X connect 47 0 62 1;
r@155	876 #X connect 48 0 49 0;
r@155	877 #X connect 48 0 63 1;
r@155	878 #X connect 49 0 50 0;
r@155	879 #X connect 49 0 64 1;
r@155	880 #X connect 50 0 51 0;
r@155	881 #X connect 50 0 65 1;
r@155	882 #X connect 51 0 52 0;
r@155	883 #X connect 51 0 66 1;
r@155	884 #X connect 52 0 53 0;
r@155	885 #X connect 52 0 67 1;
r@155	886 #X connect 53 0 68 1;
r@155	887 #X connect 53 0 69 0;
r@155	888 #X connect 54 0 55 0;
r@155	889 #X connect 55 0 56 0;
r@155	890 #X connect 56 0 57 0;
r@155	891 #X connect 57 0 58 0;
r@155	892 #X connect 58 0 59 0;
r@155	893 #X connect 59 0 60 0;
r@155	894 #X connect 60 0 61 0;
r@155	895 #X connect 61 0 62 0;
r@155	896 #X connect 62 0 63 0;
r@155	897 #X connect 63 0 64 0;
r@155	898 #X connect 64 0 65 0;
r@155	899 #X connect 65 0 66 0;
r@155	900 #X connect 66 0 67 0;
r@155	901 #X connect 67 0 68 0;
r@155	902 #X connect 68 0 70 0;
r@155	903 #X connect 69 0 70 1;
r@155	904 #X connect 70 0 72 0;
r@155	905 #X connect 72 0 71 0;
r@155	906 #X connect 72 0 32 0;
r@155	907 #X connect 73 0 74 0;
r@155	908 #X restore 758 536 pd timeAve;
r@142	909 #X connect 0 0 2 0;
r@142	910 #X connect 1 0 2 1;
r@155	911 #X connect 2 0 128 0;
r@150	912 #X connect 3 0 62 0;
r@150	913 #X connect 3 0 122 0;
r@150	914 #X connect 8 0 1 0;
r@150	915 #X connect 8 0 1 1;
r@150	916 #X connect 9 0 0 0;
r@155	917 #X connect 11 0 127 1;
r@150	918 #X connect 12 0 5 0;
r@150	919 #X connect 12 0 111 0;
r@150	920 #X connect 15 0 17 1;
r@150	921 #X connect 17 0 53 0;
r@150	922 #X connect 18 0 23 0;
r@150	923 #X connect 19 0 58 0;
r@150	924 #X connect 20 0 21 0;
r@142	925 #X connect 21 0 22 0;
r@150	926 #X connect 22 0 26 0;
r@150	927 #X connect 23 0 57 0;
r@150	928 #X connect 24 0 25 1;
r@150	929 #X connect 25 0 61 0;
r@150	930 #X connect 26 0 27 0;
r@150	931 #X connect 28 0 29 0;
r@142	932 #X connect 29 0 30 0;
r@142	933 #X connect 30 0 31 0;
r@142	934 #X connect 31 0 32 0;
r@150	935 #X connect 33 0 34 0;
r@142	936 #X connect 34 0 35 0;
r@142	937 #X connect 35 0 36 0;
r@142	938 #X connect 36 0 37 0;
r@150	939 #X connect 38 0 41 0;
r@150	940 #X connect 38 0 47 0;
r@142	941 #X connect 39 0 42 0;
r@142	942 #X connect 39 0 48 0;
r@142	943 #X connect 40 0 43 0;
r@142	944 #X connect 40 0 49 0;
r@150	945 #X connect 53 0 78 0;
r@150	946 #X connect 53 0 79 0;
r@150	947 #X connect 54 0 17 0;
r@150	948 #X connect 57 0 24 0;
r@150	949 #X connect 57 0 24 1;
r@150	950 #X connect 58 0 60 0;
r@150	951 #X connect 59 0 61 1;
r@150	952 #X connect 60 0 59 0;
r@150	953 #X connect 60 0 59 1;
r@155	954 #X connect 61 0 132 0;
r@150	955 #X connect 62 0 64 0;
r@150	956 #X connect 64 0 71 0;
r@150	957 #X connect 65 0 67 1;
r@150	958 #X connect 66 0 67 0;
r@142	959 #X connect 67 0 69 1;
r@142	960 #X connect 68 0 69 0;
r@150	961 #X connect 69 0 70 0;
r@150	962 #X connect 70 0 72 1;
r@142	963 #X connect 71 0 72 0;
r@150	964 #X connect 72 0 78 1;
r@150	965 #X connect 72 0 76 0;
r@142	966 #X connect 73 0 74 0;
r@150	967 #X connect 74 0 75 0;
r@142	968 #X connect 75 0 76 0;
r@142	969 #X connect 76 0 77 0;
r@150	970 #X connect 78 0 25 0;
r@150	971 #X connect 80 0 119 0;
r@155	972 #X connect 81 0 133 0;
r@150	973 #X connect 82 0 83 0;
r@150	974 #X connect 83 0 85 0;
r@150	975 #X connect 84 0 89 0;
r@150	976 #X connect 85 0 84 0;
r@150	977 #X connect 85 0 84 1;
r@150	978 #X connect 86 0 88 0;
r@150	979 #X connect 87 0 89 1;
r@150	980 #X connect 88 0 87 0;
r@150	981 #X connect 88 0 87 1;
r@155	982 #X connect 89 0 124 0;
r@150	983 #X connect 92 0 94 0;
r@150	984 #X connect 92 0 108 0;
r@150	985 #X connect 93 0 95 0;
r@150	986 #X connect 93 0 109 0;
r@150	987 #X connect 96 0 19 0;
r@150	988 #X connect 97 0 18 0;
r@150	989 #X connect 98 0 101 0;
r@150	990 #X connect 99 0 100 0;
r@150	991 #X connect 100 0 82 0;
r@150	992 #X connect 101 0 86 0;
r@150	993 #X connect 102 0 123 0;
r@150	994 #X connect 110 0 102 0;
r@150	995 #X connect 112 0 114 0;
r@150	996 #X connect 112 0 114 1;
r@150	997 #X connect 113 0 3 0;
r@150	998 #X connect 113 0 3 1;
r@150	999 #X connect 114 0 115 0;
r@150	1000 #X connect 115 0 117 0;
r@150	1001 #X connect 117 0 118 0;
r@150	1002 #X connect 118 0 119 1;
r@155	1003 #X connect 119 0 124 1;
r@150	1004 #X connect 123 0 66 0;
r@155	1005 #X connect 124 0 81 0;
r@155	1006 #X connect 126 0 127 0;
r@155	1007 #X connect 127 0 128 1;
r@155	1008 #X connect 128 0 54 0;
r@155	1009 #X connect 129 0 125 0;
r@155	1010 #X connect 131 0 130 0;
r@155	1011 #X connect 132 0 13 0;
r@155	1012 #X connect 132 0 106 0;
r@155	1013 #X connect 132 0 26 0;
r@155	1014 #X connect 133 0 14 0;
r@155	1015 #X connect 133 0 107 0;
r@142	1016 #X restore 293 287 pd GoldfreqGain;
r@142	1017 #N canvas 732 187 570 435 Qvalues 0;
r@142	1018 #X obj 50 93 inlet~;
r@142	1019 #X obj 95 118 snapshot~;
r@142	1020 #X obj 95 93 metro 100;
r@142	1021 #X obj 95 71 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
r@142	1022 ;
r@142	1023 #X floatatom 26 142 10 0 0 0 - - -;
r@142	1024 #X obj 95 45 loadbang;
r@142	1025 #X text 8 162 Reynolds Number;
r@142	1026 #X obj 132 159 < 1000;
r@142	1027 #X obj 244 139 > 1000;
r@142	1028 #X obj 128 202 spigot;
r@142	1029 #X obj 209 206 spigot;
r@142	1030 #X floatatom 217 338 5 0 0 0 - - -;
r@142	1031 #X obj 211 70 hsl 128 15 100 30000 0 0 empty empty empty -2 -8 0 10
r@155	1032 -262144 -1 -1 2695 1;
r@142	1033 #X floatatom 174 128 8 0 0 0 - - -;
r@142	1034 #X obj 336 192 spigot;
r@142	1035 #X obj 382 165 spigot;
r@142	1036 #X obj 260 163 spigot;
r@142	1037 #X obj 215 369 outlet;
r@142	1038 #X obj 293 139 < 20000;
r@142	1039 #X obj 369 142 > 20000;
r@142	1040 #X obj 209 237 * -0.0015789;
r@142	1041 #X msg 128 228 40;
r@142	1042 #X msg 339 225 10;
r@142	1043 #X obj 210 270 + 41.5789;
r@142	1044 #X connect 0 0 1 0;
r@142	1045 #X connect 1 0 4 0;
r@142	1046 #X connect 1 0 12 0;
r@142	1047 #X connect 2 0 1 0;
r@142	1048 #X connect 3 0 2 0;
r@142	1049 #X connect 5 0 3 0;
r@142	1050 #X connect 7 0 9 1;
r@142	1051 #X connect 7 0 9 0;
r@142	1052 #X connect 8 0 10 1;
r@142	1053 #X connect 8 0 16 0;
r@142	1054 #X connect 9 0 21 0;
r@142	1055 #X connect 10 0 20 0;
r@142	1056 #X connect 11 0 17 0;
r@142	1057 #X connect 12 0 13 0;
r@142	1058 #X connect 12 0 8 0;
r@142	1059 #X connect 12 0 10 0;
r@142	1060 #X connect 12 0 7 0;
r@142	1061 #X connect 12 0 18 0;
r@142	1062 #X connect 12 0 19 0;
r@142	1063 #X connect 14 0 22 0;
r@142	1064 #X connect 15 0 14 0;
r@142	1065 #X connect 16 0 10 0;
r@142	1066 #X connect 18 0 16 1;
r@142	1067 #X connect 19 0 14 1;
r@142	1068 #X connect 19 0 15 0;
r@142	1069 #X connect 20 0 23 0;
r@142	1070 #X connect 21 0 11 0;
r@142	1071 #X connect 22 0 11 0;
r@142	1072 #X connect 23 0 11 0;
r@142	1073 #X restore 943 71 pd Qvalues;
r@142	1074 #X obj 943 48 r~ \$0-myRey;
r@142	1075 #X obj 943 95 s \$0-sourceQ;
r@142	1076 #X floatatom 908 96 5 0 0 0 - - -;
r@142	1077 #X obj 954 494 r \$0-thisPan;
r@142	1078 #X obj 908 451 r~ \$0-myFreq;
r@142	1079 #X obj 931 473 r~ \$0-dragDiGain;
r@142	1080 #X obj 279 660 r~ \$0-windSpeed;
r@142	1081 #N canvas 335 23 1006 797 noiseGain 0;
r@142	1082 #X text -21029 166 Mass Density of Air \, squared;
r@142	1083 #X text -20589 179 Speed of Sound to power 2;
r@142	1084 #X obj -20894 66 *~;
r@142	1085 #X obj -20846 107 *~;
r@142	1086 #X obj -20846 141 *~ 1;
r@142	1087 #X obj -20846 169 *~ 1.50063;
r@142	1088 #X obj -20591 133 *;
r@142	1089 #X obj -20591 156 * 118033;
r@142	1090 #X obj -20846 296 /~ 1;
r@142	1091 #X obj -20846 636 *~ 0.27;
r@142	1092 #X text -20591 86 Distance;
r@142	1093 #X text -21027 643 Calculates Lift Dipole gain;
r@142	1094 #N canvas 759 125 286 289 pow8 0;
r@142	1095 #X obj 47 67 *~;
r@142	1096 #X obj 76 67 *~;
r@142	1097 #X obj 76 35 inlet~;
r@142	1098 #X obj 47 170 outlet~;
r@142	1099 #X obj 136 173 snapshot~;
r@142	1100 #X obj 136 148 metro 100;
r@142	1101 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	1102 1;
r@142	1103 #X floatatom 136 200 10 0 0 0 - - -;
r@142	1104 #X obj 136 100 loadbang;
r@142	1105 #X obj 106 67 *~;
r@142	1106 #X obj 47 93 *~;
r@142	1107 #X obj 47 118 *~;
r@142	1108 #X obj 136 67 *~;
r@142	1109 #X obj 47 144 *~;
r@142	1110 #X connect 0 0 10 0;
r@142	1111 #X connect 1 0 10 1;
r@142	1112 #X connect 2 0 0 0;
r@142	1113 #X connect 2 0 0 1;
r@142	1114 #X connect 2 0 1 1;
r@142	1115 #X connect 2 0 9 0;
r@142	1116 #X connect 2 0 9 1;
r@142	1117 #X connect 2 0 1 0;
r@142	1118 #X connect 2 0 12 0;
r@142	1119 #X connect 2 0 12 1;
r@142	1120 #X connect 4 0 7 0;
r@142	1121 #X connect 5 0 4 0;
r@142	1122 #X connect 6 0 5 0;
r@142	1123 #X connect 8 0 6 0;
r@142	1124 #X connect 9 0 11 1;
r@142	1125 #X connect 10 0 11 0;
r@142	1126 #X connect 11 0 13 0;
r@142	1127 #X connect 12 0 13 1;
r@142	1128 #X connect 13 0 3 0;
r@142	1129 #X connect 13 0 4 0;
r@142	1130 #X restore -20846 69 pd pow8;
r@142	1131 #X obj -20894 44 inlet~;
r@142	1132 #X obj -20846 44 inlet~;
r@142	1133 #X obj -20810 118 inlet;
r@142	1134 #X obj -20591 107 inlet;
r@142	1135 #X obj -20846 679 outlet~;
r@142	1136 #X text -20785 63 Gain proportional to windspeed to power 8 for spectrum
r@142	1137 ;
r@142	1138 #X text -20805 102 Diameter;
r@142	1139 #X obj -20815 200 inlet;
r@142	1140 #X obj -20815 224 *;
r@142	1141 #X obj -20846 246 *~ 1;
r@142	1142 #X text -20774 199 Length;
r@142	1143 #X obj -20829 325 s~ \$0-nGain;
r@142	1144 #X text -20741 328 Azimuth;
r@142	1145 #X text -20680 290 Elevation;
r@142	1146 #X obj -20740 345 inlet;
r@142	1147 #X obj -20683 306 inlet;
r@142	1148 #X obj -20740 368 sig~;
r@142	1149 #X obj -20683 368 sig~;
r@142	1150 #X obj -20683 348 spigot;
r@142	1151 #X text -20581 312 End Source;
r@142	1152 #X obj -20831 456 +~ 90;
r@142	1153 #X obj -20831 477 /~ 360;
r@142	1154 #X obj -20831 499 cos~;
r@142	1155 #X obj -20846 611 *~;
r@142	1156 #X obj -20831 523 *~;
r@142	1157 #X obj -20631 395 loadbang;
r@142	1158 #X obj -20631 416 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@142	1159 1 1;
r@142	1160 #X obj -20631 434 metro 10;
r@142	1161 #X obj -20631 455 snapshot~;
r@142	1162 #X floatatom -20631 475 5 0 0 0 - - -;
r@142	1163 #X obj -20943 498 loadbang;
r@142	1164 #X obj -20943 519 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@142	1165 1 1;
r@142	1166 #X obj -20943 537 metro 10;
r@142	1167 #X obj -20943 558 snapshot~;
r@142	1168 #X floatatom -20943 578 8 0 0 0 - - -;
r@142	1169 #X msg -20649 372 0;
r@142	1170 #X obj -20612 353 t f b;
r@142	1171 #X msg -20612 333 0;
r@142	1172 #X msg -20612 313 1;
r@142	1173 #X obj -20787 455 +~ 90;
r@142	1174 #X obj -20787 476 /~ 360;
r@142	1175 #X obj -20787 498 sin~;
r@142	1176 #X text -20833 411 Quadrupole;
r@142	1177 #X obj -20740 391 angleCalcN~;
r@142	1178 #X text -20992 36 Strouhal number;
r@142	1179 #X text -20798 35 Wind speed;
r@142	1180 #X text -20580 332 Mid Source;
r@142	1181 #X text -20813 430 comment;
r@142	1182 #X obj -20846 658 *~ 5e-08;
r@142	1183 #X connect 2 0 3 1;
r@142	1184 #X connect 3 0 4 0;
r@142	1185 #X connect 4 0 5 0;
r@142	1186 #X connect 5 0 22 0;
r@142	1187 #X connect 6 0 7 0;
r@142	1188 #X connect 7 0 8 1;
r@142	1189 #X connect 8 0 24 0;
r@142	1190 #X connect 8 0 36 0;
r@142	1191 #X connect 9 0 61 0;
r@142	1192 #X connect 12 0 3 0;
r@142	1193 #X connect 13 0 2 0;
r@142	1194 #X connect 13 0 2 1;
r@142	1195 #X connect 14 0 12 0;
r@142	1196 #X connect 15 0 4 1;
r@142	1197 #X connect 16 0 6 0;
r@142	1198 #X connect 16 0 6 1;
r@142	1199 #X connect 20 0 21 0;
r@142	1200 #X connect 20 0 21 1;
r@142	1201 #X connect 21 0 22 1;
r@142	1202 #X connect 22 0 8 0;
r@142	1203 #X connect 27 0 29 0;
r@142	1204 #X connect 28 0 31 0;
r@142	1205 #X connect 29 0 56 0;
r@142	1206 #X connect 30 0 56 1;
r@142	1207 #X connect 31 0 30 0;
r@142	1208 #X connect 33 0 34 0;
r@142	1209 #X connect 34 0 35 0;
r@142	1210 #X connect 35 0 37 0;
r@142	1211 #X connect 36 0 9 0;
r@142	1212 #X connect 37 0 36 1;
r@142	1213 #X connect 37 0 46 0;
r@142	1214 #X connect 38 0 39 0;
r@142	1215 #X connect 39 0 40 0;
r@142	1216 #X connect 40 0 41 0;
r@142	1217 #X connect 41 0 42 0;
r@142	1218 #X connect 43 0 44 0;
r@142	1219 #X connect 44 0 45 0;
r@142	1220 #X connect 45 0 46 0;
r@142	1221 #X connect 46 0 47 0;
r@142	1222 #X connect 48 0 30 0;
r@142	1223 #X connect 49 0 31 1;
r@142	1224 #X connect 49 1 48 0;
r@142	1225 #X connect 50 0 49 0;
r@142	1226 #X connect 51 0 31 1;
r@142	1227 #X connect 52 0 53 0;
r@142	1228 #X connect 53 0 54 0;
r@142	1229 #X connect 54 0 37 1;
r@142	1230 #X connect 56 0 33 0;
r@142	1231 #X connect 56 0 41 0;
r@142	1232 #X connect 56 0 52 0;
r@142	1233 #X connect 61 0 17 0;
r@142	1234 #X restore 268 795 pd noiseGain;
r@142	1235 #X obj 302 705 r \$0-diameter;
r@142	1236 #X obj 268 637 r~ \$0-str;
r@142	1237 #X obj 291 681 r \$0-leng;
r@142	1238 #X obj 337 771 r \$0-dist;
r@155	1239 #N canvas 385 23 1006 797 GoldnoiseGain 1;
r@155	1240 #X text -21029 240 Mass Density of Air \, squared;
r@155	1241 #X obj -20777 456 *;
r@155	1242 #X text -20777 409 Distance;
r@142	1243 #N canvas 759 125 235 275 pow8 0;
r@142	1244 #X obj 47 67 *~;
r@142	1245 #X obj 76 67 *~;
r@142	1246 #X obj 76 35 inlet~;
r@142	1247 #X obj 47 147 outlet~;
r@142	1248 #X obj 128 146 snapshot~;
r@142	1249 #X obj 128 121 metro 100;
r@142	1250 #X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	1251 1;
r@142	1252 #X floatatom 128 173 10 0 0 0 - - -;
r@142	1253 #X obj 128 73 loadbang;
r@142	1254 #X obj 47 93 *~;
r@142	1255 #X obj 47 121 *~;
r@142	1256 #X connect 0 0 9 0;
r@142	1257 #X connect 1 0 9 1;
r@142	1258 #X connect 2 0 0 0;
r@142	1259 #X connect 2 0 0 1;
r@142	1260 #X connect 2 0 1 1;
r@142	1261 #X connect 2 0 1 0;
r@142	1262 #X connect 4 0 7 0;
r@142	1263 #X connect 5 0 4 0;
r@142	1264 #X connect 6 0 5 0;
r@142	1265 #X connect 8 0 6 0;
r@142	1266 #X connect 9 0 10 0;
r@142	1267 #X connect 9 0 10 1;
r@142	1268 #X connect 10 0 3 0;
r@142	1269 #X connect 10 0 4 0;
r@142	1270 #X restore -20846 69 pd pow8;
r@142	1271 #X obj -20846 44 inlet~;
r@155	1272 #X obj -20801 123 inlet;
r@155	1273 #X obj -20777 430 inlet;
r@155	1274 #X obj -20846 710 outlet~;
r@142	1275 #X text -20785 63 Gain proportional to windspeed to power 8 for spectrum
r@142	1276 ;
r@155	1277 #X text -20795 103 Diameter;
r@155	1278 #X obj -20754 633 loadbang;
r@155	1279 #X obj -20754 654 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@142	1280 1 1;
r@155	1281 #X obj -20754 672 metro 10;
r@155	1282 #X obj -20754 693 snapshot~;
r@155	1283 #X floatatom -20754 713 8 0 0 0 - - -;
r@142	1284 #X obj -20145 21 angleCalcN~;
r@142	1285 #X text -20798 35 Wind speed;
r@142	1286 #X text -21027 643 Calculates wake gain;
r@142	1287 #X text -20399 16 Azimuth;
r@142	1288 #X obj -20398 33 inlet;
r@142	1289 #X obj -20398 56 sig~;
r@142	1290 #X obj -20342 33 inlet;
r@142	1291 #X obj -20342 56 sig~;
r@142	1292 #X text -20343 16 Elevation;
r@142	1293 #X floatatom -20304 57 5 0 0 0 - - -;
r@142	1294 #X floatatom -20434 58 5 0 0 0 - - -;
r@142	1295 #X obj -20398 96 s~ \$0-this_azim;
r@142	1296 #X obj -20342 77 s~ \$0-this_elev;
r@155	1297 #X obj -20846 243 *~ 1.225;
r@147	1298 #X obj -20487 110 r~ \$0-this_azim;
r@142	1299 #N canvas 759 125 250 309 pow5 0;
r@142	1300 #X obj 47 67 *~;
r@142	1301 #X obj 76 35 inlet~;
r@142	1302 #X obj 47 170 outlet~;
r@142	1303 #X obj 136 173 snapshot~;
r@142	1304 #X obj 136 148 metro 100;
r@142	1305 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	1306 1;
r@142	1307 #X floatatom 136 200 10 0 0 0 - - -;
r@142	1308 #X obj 136 100 loadbang;
r@142	1309 #X obj 47 87 *~;
r@142	1310 #X obj 47 118 *~;
r@142	1311 #X connect 0 0 8 0;
r@142	1312 #X connect 0 0 8 1;
r@142	1313 #X connect 1 0 0 0;
r@142	1314 #X connect 1 0 0 1;
r@142	1315 #X connect 1 0 9 1;
r@142	1316 #X connect 3 0 6 0;
r@142	1317 #X connect 4 0 3 0;
r@142	1318 #X connect 5 0 4 0;
r@142	1319 #X connect 7 0 5 0;
r@142	1320 #X connect 8 0 9 0;
r@142	1321 #X connect 9 0 2 0;
r@142	1322 #X connect 9 0 3 0;
r@155	1323 #X restore -20680 508 pd pow5;
r@155	1324 #X obj -20680 484 sig~ 343.56;
r@142	1325 #N canvas 875 261 250 309 pow5 0;
r@142	1326 #X obj 47 67 *~;
r@142	1327 #X obj 76 35 inlet~;
r@142	1328 #X obj 47 170 outlet~;
r@142	1329 #X obj 136 173 snapshot~;
r@142	1330 #X obj 136 148 metro 100;
r@142	1331 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@142	1332 1;
r@142	1333 #X floatatom 136 200 10 0 0 0 - - -;
r@142	1334 #X obj 136 100 loadbang;
r@142	1335 #X obj 47 87 *~;
r@142	1336 #X obj 47 118 *~;
r@142	1337 #X connect 0 0 8 0;
r@142	1338 #X connect 0 0 8 1;
r@142	1339 #X connect 1 0 0 0;
r@142	1340 #X connect 1 0 0 1;
r@142	1341 #X connect 1 0 9 1;
r@142	1342 #X connect 3 0 6 0;
r@142	1343 #X connect 4 0 3 0;
r@142	1344 #X connect 5 0 4 0;
r@142	1345 #X connect 7 0 5 0;
r@142	1346 #X connect 8 0 9 0;
r@142	1347 #X connect 9 0 2 0;
r@142	1348 #X connect 9 0 3 0;
r@155	1349 #X restore -20645 434 pd pow5;
r@155	1350 #X obj -20599 284 /~ 360;
r@155	1351 #X obj -20599 311 cos~;
r@155	1352 #X obj -20584 333 r SIG_MACH;
r@155	1353 #X obj -20584 357 sig~;
r@155	1354 #X obj -20599 382 *~;
r@155	1355 #X obj -20645 381 sig~ 1;
r@155	1356 #X obj -20645 408 -~;
r@155	1357 #X obj -20680 355 sig~ 3.1416;
r@155	1358 #X obj -20680 380 *~;
r@155	1359 #X obj -20695 332 sig~ 16;
r@155	1360 #X obj -20695 404 *~;
r@155	1361 #X obj -20695 462 *~;
r@155	1362 #X obj -20695 535 *~;
r@155	1363 #X obj -20777 483 sig~;
r@155	1364 #X obj -20777 567 *~;
r@142	1365 #X obj -20846 611 /~;
r@142	1366 #X obj -20976 300 loadbang;
r@142	1367 #X obj -20976 321 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@142	1368 1 1;
r@142	1369 #X obj -20976 339 metro 10;
r@142	1370 #X obj -20976 360 snapshot~;
r@142	1371 #X floatatom -20976 380 8 0 0 0 - - -;
r@155	1372 #X obj -20552 527 loadbang;
r@155	1373 #X obj -20552 548 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@142	1374 1 1;
r@155	1375 #X obj -20552 566 metro 10;
r@155	1376 #X obj -20552 587 snapshot~;
r@155	1377 #X floatatom -20552 607 8 0 0 0 - - -;
r@155	1378 #X obj -20509 248 r~ plotElev;
r@155	1379 #X obj -20913 710 s~ plotOPN;
r@155	1380 #X obj -20599 262 -~;
r@155	1381 #X text -20547 269 Angle goes with the flow in Goldstein hence 90 -
r@147	1382 theta so that theta is same angle as dipole angles.;
r@155	1383 #X obj -20599 217 sig~ 180;
r@155	1384 #X obj -20536 221 r~ \$0-this_elev;
r@155	1385 #N canvas 228 23 895 824 timeAve 0;
r@155	1386 #X obj 63 29 delay~ 1;
r@155	1387 #X obj 76 52 delay~ 1;
r@155	1388 #X obj 87 76 delay~ 1;
r@155	1389 #X obj 48 7 inlet~;
r@155	1390 #X obj 96 100 delay~ 1;
r@155	1391 #X obj 107 124 delay~ 1;
r@155	1392 #X obj 118 148 delay~ 1;
r@155	1393 #X obj 131 172 delay~ 1;
r@155	1394 #X obj 142 196 delay~ 1;
r@155	1395 #X obj 155 219 delay~ 1;
r@155	1396 #X obj 166 243 delay~ 1;
r@155	1397 #X obj 177 267 delay~ 1;
r@155	1398 #X obj 186 291 delay~ 1;
r@155	1399 #X obj 197 315 delay~ 1;
r@155	1400 #X obj 208 339 delay~ 1;
r@155	1401 #X obj 221 363 delay~ 1;
r@155	1402 #X obj 48 52 +~;
r@155	1403 #X obj 61 76 +~;
r@155	1404 #X obj 72 99 +~;
r@155	1405 #X obj 81 123 +~;
r@155	1406 #X obj 92 147 +~;
r@155	1407 #X obj 103 171 +~;
r@155	1408 #X obj 114 195 +~;
r@155	1409 #X obj 126 219 +~;
r@155	1410 #X obj 137 243 +~;
r@155	1411 #X obj 149 267 +~;
r@155	1412 #X obj 160 291 +~;
r@155	1413 #X obj 171 316 +~;
r@155	1414 #X obj 182 340 +~;
r@155	1415 #X obj 193 363 +~;
r@155	1416 #X obj 204 387 +~;
r@155	1417 #X obj 620 647 metro 100;
r@155	1418 #X obj 620 670 snapshot~;
r@155	1419 #X floatatom 620 696 0 0 0 0 - - -;
r@155	1420 #X obj 620 626 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
r@155	1421 1;
r@155	1422 #X obj 558 644 metro 100;
r@155	1423 #X obj 558 667 snapshot~;
r@155	1424 #X floatatom 558 695 0 0 0 0 - - -;
r@155	1425 #X obj 558 623 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
r@155	1426 1;
r@155	1427 #X obj 232 385 delay~ 1;
r@155	1428 #X obj 245 408 delay~ 1;
r@155	1429 #X obj 256 432 delay~ 1;
r@155	1430 #X obj 265 456 delay~ 1;
r@155	1431 #X obj 276 480 delay~ 1;
r@155	1432 #X obj 287 504 delay~ 1;
r@155	1433 #X obj 300 528 delay~ 1;
r@155	1434 #X obj 312 549 delay~ 1;
r@155	1435 #X obj 325 572 delay~ 1;
r@155	1436 #X obj 336 596 delay~ 1;
r@155	1437 #X obj 347 620 delay~ 1;
r@155	1438 #X obj 356 644 delay~ 1;
r@155	1439 #X obj 367 668 delay~ 1;
r@155	1440 #X obj 378 692 delay~ 1;
r@155	1441 #X obj 389 715 delay~ 1;
r@155	1442 #X obj 217 408 +~;
r@155	1443 #X obj 230 432 +~;
r@155	1444 #X obj 241 455 +~;
r@155	1445 #X obj 250 479 +~;
r@155	1446 #X obj 261 503 +~;
r@155	1447 #X obj 272 527 +~;
r@155	1448 #X obj 283 551 +~;
r@155	1449 #X obj 295 575 +~;
r@155	1450 #X obj 306 599 +~;
r@155	1451 #X obj 319 620 +~;
r@155	1452 #X obj 330 644 +~;
r@155	1453 #X obj 341 669 +~;
r@155	1454 #X obj 352 693 +~;
r@155	1455 #X obj 363 716 +~;
r@155	1456 #X obj 374 740 +~;
r@155	1457 #X obj 402 738 delay~ 1;
r@155	1458 #X obj 387 761 +~;
r@155	1459 #X obj 387 807 outlet~;
r@155	1460 #X obj 387 781 *~ 0.03125;
r@155	1461 #X obj 558 724 -;
r@155	1462 #X floatatom 558 749 0 0 0 0 - - -;
r@155	1463 #X text 539 532 Averages the windspeed over 32 samples;
r@155	1464 #X connect 0 0 1 0;
r@155	1465 #X connect 0 0 16 1;
r@155	1466 #X connect 1 0 2 0;
r@155	1467 #X connect 1 0 17 1;
r@155	1468 #X connect 2 0 4 0;
r@155	1469 #X connect 2 0 18 1;
r@155	1470 #X connect 3 0 0 0;
r@155	1471 #X connect 3 0 16 0;
r@155	1472 #X connect 3 0 36 0;
r@155	1473 #X connect 4 0 5 0;
r@155	1474 #X connect 4 0 19 1;
r@155	1475 #X connect 5 0 6 0;
r@155	1476 #X connect 5 0 20 1;
r@155	1477 #X connect 6 0 7 0;
r@155	1478 #X connect 6 0 21 1;
r@155	1479 #X connect 7 0 8 0;
r@155	1480 #X connect 7 0 22 1;
r@155	1481 #X connect 8 0 9 0;
r@155	1482 #X connect 8 0 23 1;
r@155	1483 #X connect 9 0 10 0;
r@155	1484 #X connect 9 0 24 1;
r@155	1485 #X connect 10 0 11 0;
r@155	1486 #X connect 10 0 25 1;
r@142	1487 #X connect 11 0 12 0;
r@155	1488 #X connect 11 0 26 1;
r@148	1489 #X connect 12 0 13 0;
r@155	1490 #X connect 12 0 27 1;
r@148	1491 #X connect 13 0 14 0;
r@155	1492 #X connect 13 0 28 1;
r@148	1493 #X connect 14 0 15 0;
r@155	1494 #X connect 14 0 29 1;
r@155	1495 #X connect 15 0 30 1;
r@155	1496 #X connect 15 0 39 0;
r@155	1497 #X connect 16 0 17 0;
r@155	1498 #X connect 17 0 18 0;
r@155	1499 #X connect 18 0 19 0;
r@155	1500 #X connect 19 0 20 0;
r@148	1501 #X connect 20 0 21 0;
r@155	1502 #X connect 21 0 22 0;
r@148	1503 #X connect 22 0 23 0;
r@155	1504 #X connect 23 0 24 0;
r@155	1505 #X connect 24 0 25 0;
r@155	1506 #X connect 25 0 26 0;
r@155	1507 #X connect 26 0 27 0;
r@155	1508 #X connect 27 0 28 0;
r@155	1509 #X connect 28 0 29 0;
r@155	1510 #X connect 29 0 30 0;
r@148	1511 #X connect 30 0 54 0;
r@155	1512 #X connect 31 0 32 0;
r@155	1513 #X connect 32 0 33 0;
r@155	1514 #X connect 33 0 73 1;
r@155	1515 #X connect 34 0 31 0;
r@148	1516 #X connect 35 0 36 0;
r@155	1517 #X connect 36 0 37 0;
r@155	1518 #X connect 37 0 73 0;
r@155	1519 #X connect 38 0 35 0;
r@155	1520 #X connect 39 0 40 0;
r@155	1521 #X connect 39 0 54 1;
r@148	1522 #X connect 40 0 41 0;
r@155	1523 #X connect 40 0 55 1;
r@155	1524 #X connect 41 0 42 0;
r@155	1525 #X connect 41 0 56 1;
r@148	1526 #X connect 42 0 43 0;
r@155	1527 #X connect 42 0 57 1;
r@155	1528 #X connect 43 0 44 0;
r@155	1529 #X connect 43 0 58 1;
r@142	1530 #X connect 44 0 45 0;
r@155	1531 #X connect 44 0 59 1;
r@148	1532 #X connect 45 0 46 0;
r@155	1533 #X connect 45 0 60 1;
r@142	1534 #X connect 46 0 47 0;
r@155	1535 #X connect 46 0 61 1;
r@155	1536 #X connect 47 0 48 0;
r@155	1537 #X connect 47 0 62 1;
r@142	1538 #X connect 48 0 49 0;
r@155	1539 #X connect 48 0 63 1;
r@155	1540 #X connect 49 0 50 0;
r@155	1541 #X connect 49 0 64 1;
r@155	1542 #X connect 50 0 51 0;
r@155	1543 #X connect 50 0 65 1;
r@148	1544 #X connect 51 0 52 0;
r@155	1545 #X connect 51 0 66 1;
r@142	1546 #X connect 52 0 53 0;
r@155	1547 #X connect 52 0 67 1;
r@155	1548 #X connect 53 0 68 1;
r@155	1549 #X connect 53 0 69 0;
r@148	1550 #X connect 54 0 55 0;
r@155	1551 #X connect 55 0 56 0;
r@142	1552 #X connect 56 0 57 0;
r@142	1553 #X connect 57 0 58 0;
r@142	1554 #X connect 58 0 59 0;
r@148	1555 #X connect 59 0 60 0;
r@155	1556 #X connect 60 0 61 0;
r@155	1557 #X connect 61 0 62 0;
r@155	1558 #X connect 62 0 63 0;
r@155	1559 #X connect 63 0 64 0;
r@155	1560 #X connect 64 0 65 0;
r@155	1561 #X connect 65 0 66 0;
r@155	1562 #X connect 66 0 67 0;
r@155	1563 #X connect 67 0 68 0;
r@155	1564 #X connect 68 0 70 0;
r@155	1565 #X connect 69 0 70 1;
r@155	1566 #X connect 70 0 72 0;
r@155	1567 #X connect 72 0 71 0;
r@155	1568 #X connect 72 0 32 0;
r@155	1569 #X connect 73 0 74 0;
r@155	1570 #X restore -20846 667 pd timeAve;
r@155	1571 #X obj -20916 51 inlet~;
r@155	1572 #X obj -20916 83 *~;
r@155	1573 #X obj -20822 90 inlet~;
r@155	1574 #X obj -20822 148 *~ 1;
r@155	1575 #X obj -20846 170 *~;
r@155	1576 #X obj -20846 194 *~;
r@155	1577 #X obj -20821 273 inlet;
r@155	1578 #X obj -20847 308 *~ 1;
r@155	1579 #X obj -20848 343 *~ 2.50663;
r@155	1580 #X obj -20846 643 *~ 1;
r@155	1581 #X connect 1 0 46 0;
r@155	1582 #X connect 3 0 70 0;
r@155	1583 #X connect 4 0 3 0;
r@155	1584 #X connect 5 0 69 1;
r@155	1585 #X connect 6 0 1 0;
r@155	1586 #X connect 6 0 1 1;
r@155	1587 #X connect 10 0 11 0;
r@155	1588 #X connect 11 0 12 0;
r@155	1589 #X connect 12 0 13 0;
r@155	1590 #X connect 13 0 14 0;
r@155	1591 #X connect 19 0 20 0;
r@155	1592 #X connect 19 0 25 0;
r@155	1593 #X connect 20 0 26 0;
r@155	1594 #X connect 21 0 22 0;
r@155	1595 #X connect 21 0 24 0;
r@155	1596 #X connect 22 0 27 0;
r@155	1597 #X connect 28 0 52 0;
r@155	1598 #X connect 28 0 73 0;
r@155	1599 #X connect 30 0 45 1;
r@155	1600 #X connect 31 0 30 0;
r@155	1601 #X connect 32 0 44 1;
r@155	1602 #X connect 33 0 34 0;
r@155	1603 #X connect 34 0 37 0;
r@155	1604 #X connect 35 0 36 0;
r@155	1605 #X connect 36 0 37 1;
r@155	1606 #X connect 37 0 39 1;
r@155	1607 #X connect 38 0 39 0;
r@155	1608 #X connect 39 0 32 0;
r@155	1609 #X connect 40 0 41 0;
r@155	1610 #X connect 40 0 41 1;
r@155	1611 #X connect 41 0 43 1;
r@155	1612 #X connect 42 0 43 0;
r@155	1613 #X connect 43 0 44 0;
r@155	1614 #X connect 44 0 45 0;
r@155	1615 #X connect 45 0 47 1;
r@155	1616 #X connect 46 0 47 0;
r@155	1617 #X connect 47 0 48 1;
r@155	1618 #X connect 48 0 75 0;
r@155	1619 #X connect 49 0 50 0;
r@155	1620 #X connect 50 0 51 0;
r@155	1621 #X connect 51 0 52 0;
r@155	1622 #X connect 52 0 53 0;
r@155	1623 #X connect 54 0 55 0;
r@155	1624 #X connect 55 0 56 0;
r@155	1625 #X connect 56 0 57 0;
r@155	1626 #X connect 57 0 58 0;
r@155	1627 #X connect 61 0 33 0;
r@155	1628 #X connect 63 0 61 0;
r@155	1629 #X connect 64 0 61 1;
r@155	1630 #X connect 65 0 7 0;
r@155	1631 #X connect 65 0 60 0;
r@155	1632 #X connect 65 0 13 0;
r@155	1633 #X connect 66 0 67 0;
r@155	1634 #X connect 66 0 67 1;
r@155	1635 #X connect 67 0 70 1;
r@155	1636 #X connect 68 0 69 0;
r@155	1637 #X connect 69 0 71 1;
r@155	1638 #X connect 70 0 71 0;
r@155	1639 #X connect 71 0 28 0;
r@155	1640 #X connect 72 0 73 1;
r@155	1641 #X connect 73 0 74 0;
r@155	1642 #X connect 74 0 48 0;
r@155	1643 #X connect 75 0 65 0;
r@155	1644 #X restore 274 556 pd GoldnoiseGain;
r@155	1645 #X text 265 603 Calculates the gain of the wake;
r@142	1646 #X obj 1059 36 inlet;
r@142	1647 #X obj 1059 60 s \$0-TuInt;
r@142	1648 #X floatatom 1023 61 5 0 0 0 - - -;
r@155	1649 #N canvas 4 232 229 249 TuInt_calc 0;
r@142	1650 #X obj 116 42 inlet;
r@142	1651 #X obj 116 118 + 1;
r@142	1652 #X obj 116 67 min 0.2;
r@142	1653 #X floatatom 144 148 5 0 0 0 - - -;
r@142	1654 #X obj 116 173 outlet;
r@142	1655 #X obj 116 92 * -4.5;
r@142	1656 #X connect 0 0 2 0;
r@142	1657 #X connect 1 0 3 0;
r@142	1658 #X connect 1 0 4 0;
r@142	1659 #X connect 2 0 5 0;
r@142	1660 #X connect 5 0 1 0;
r@150	1661 #X restore 1141 61 pd TuInt_calc;
r@150	1662 #X obj 1142 39 r \$0-TuInt;
r@150	1663 #X obj 1141 84 s \$0-TuGain;
r@142	1664 #X obj 977 514 r \$0-TuGain;
r@150	1665 #X floatatom 1107 83 5 0 0 0 - - -;
r@142	1666 #X obj 1157 514 r \$0-TuGain;
r@142	1667 #N canvas 811 216 464 503 dragDiFunNo 0;
r@142	1668 #X obj 124 84 inlet~;
r@142	1669 #X obj 120 196 inlet~;
r@142	1670 #X obj 161 105 inlet;
r@142	1671 #X obj 132 255 inlet;
r@142	1672 #X obj 124 105 *~ 2;
r@142	1673 #X obj 105 256 *~;
r@142	1674 #X obj 105 321 throw~ l;
r@142	1675 #X obj 132 298 throw~ r;
r@142	1676 #X obj 105 277 fcpan;
r@142	1677 #X obj 105 65 noise~;
r@142	1678 #X obj 120 236 *~ 1;
r@142	1679 #X obj 141 215 r \$0-TuGain;
r@142	1680 #X obj 105 151 vcf~ 10;
r@142	1681 #N canvas 607 346 247 157 QV 0;
r@142	1682 #X obj 90 25 inlet;
r@142	1683 #X obj 90 47 * 5;
r@142	1684 #X obj 90 70 + 5;
r@142	1685 #X obj 90 93 outlet;
r@142	1686 #X connect 0 0 1 0;
r@142	1687 #X connect 1 0 2 0;
r@142	1688 #X connect 2 0 3 0;
r@142	1689 #X restore 144 128 pd QV;
r@142	1690 #X text 49 367 Creates the shaped noise sound equivalent to a narrow
r@142	1691 band signal at the drag dipole fundamental frequency.;
r@147	1692 #X floatatom 153 276 5 0 0 0 - - -;
r@155	1693 #X obj 105 173 *~ 0.5;
r@142	1694 #X connect 0 0 4 0;
r@142	1695 #X connect 1 0 10 0;
r@142	1696 #X connect 2 0 13 0;
r@142	1697 #X connect 3 0 8 1;
r@155	1698 #X connect 3 0 15 0;
r@142	1699 #X connect 4 0 12 1;
r@142	1700 #X connect 5 0 8 0;
r@142	1701 #X connect 8 0 6 0;
r@142	1702 #X connect 8 1 7 0;
r@142	1703 #X connect 9 0 12 0;
r@142	1704 #X connect 10 0 5 1;
r@142	1705 #X connect 11 0 10 1;
r@155	1706 #X connect 12 0 16 0;
r@142	1707 #X connect 13 0 12 2;
r@155	1708 #X connect 16 0 5 0;
r@142	1709 #X restore 1076 535 pd dragDiFunNo;
r@142	1710 #N canvas 1014 140 491 522 dragDiFun 0;
r@142	1711 #X obj 165 125 osc~;
r@142	1712 #X obj 165 298 throw~ l;
r@142	1713 #X obj 192 275 throw~ r;
r@142	1714 #X obj 165 232 *~;
r@142	1715 #X obj 165 253 fcpan;
r@142	1716 #X obj 165 100 *~ 2;
r@142	1717 #X obj 180 209 *~ 1;
r@142	1718 #X obj 180 168 *~ 1;
r@142	1719 #X obj 165 75 inlet~;
r@142	1720 #X obj 180 145 inlet~;
r@142	1721 #X obj 192 232 inlet;
r@142	1722 #X obj 201 187 inlet;
r@142	1723 #X text 60 369 Generates the pure tone associated with the drag dipole
r@142	1724 fundamental frequency.;
r@147	1725 #X floatatom 212 256 5 0 0 0 - - -;
r@142	1726 #X connect 0 0 3 0;
r@142	1727 #X connect 3 0 4 0;
r@142	1728 #X connect 4 0 1 0;
r@142	1729 #X connect 4 1 2 0;
r@142	1730 #X connect 5 0 0 0;
r@142	1731 #X connect 6 0 3 1;
r@142	1732 #X connect 7 0 6 0;
r@142	1733 #X connect 8 0 5 0;
r@142	1734 #X connect 9 0 7 0;
r@142	1735 #X connect 10 0 4 1;
r@147	1736 #X connect 10 0 13 0;
r@142	1737 #X connect 11 0 6 1;
r@142	1738 #X restore 908 537 pd dragDiFun;
r@142	1739 #X obj 742 470 r~ \$0-myFreq;
r@142	1740 #X obj 769 490 r \$0-thisPan;
r@142	1741 #X obj 796 510 r \$0-TuGain;
r@142	1742 #X obj 715 450 r~ \$0-liftDiGain;
r@155	1743 #N canvas 579 250 654 489 liftDi2ndNo 0;
r@142	1744 #X obj 124 84 inlet~;
r@142	1745 #X obj 120 198 inlet~;
r@142	1746 #X obj 161 105 inlet;
r@142	1747 #X obj 132 281 inlet;
r@142	1748 #X obj 105 282 *~;
r@142	1749 #X obj 105 347 throw~ l;
r@142	1750 #X obj 132 324 throw~ r;
r@142	1751 #X obj 105 303 fcpan;
r@142	1752 #X obj 105 65 noise~;
r@142	1753 #X obj 120 262 *~ 1;
r@142	1754 #X obj 141 241 r \$0-TuGain;
r@142	1755 #X obj 105 151 vcf~ 10;
r@142	1756 #N canvas 607 346 247 157 QV 0;
r@142	1757 #X obj 90 25 inlet;
r@142	1758 #X obj 90 47 * 5;
r@142	1759 #X obj 90 70 + 5;
r@142	1760 #X obj 90 93 outlet;
r@142	1761 #X connect 0 0 1 0;
r@142	1762 #X connect 1 0 2 0;
r@142	1763 #X connect 2 0 3 0;
r@142	1764 #X restore 144 128 pd QV;
r@142	1765 #X obj 124 105 *~ 5;
r@142	1766 #X text 49 393 Creates the shaped noise sound equivalent to a narrow
r@142	1767 band signal at the lift dipole second harmonic frequency.;
r@147	1768 #X obj 120 220 *~ 0.1;
r@147	1769 #X floatatom 174 303 5 0 0 0 - - -;
r@155	1770 #X obj 105 173 *~ 0.5;
r@155	1771 #X text 206 209 0.1 Value to match normalised gain of 3rd harmonic
r@155	1772 given in Hardin;
r@147	1773 #X connect 0 0 13 0;
r@142	1774 #X connect 1 0 15 0;
r@142	1775 #X connect 2 0 12 0;
r@142	1776 #X connect 3 0 7 1;
r@155	1777 #X connect 3 0 16 0;
r@142	1778 #X connect 4 0 7 0;
r@142	1779 #X connect 7 0 5 0;
r@142	1780 #X connect 7 1 6 0;
r@142	1781 #X connect 8 0 11 0;
r@142	1782 #X connect 9 0 4 1;
r@142	1783 #X connect 10 0 9 1;
r@142	1784 #X connect 12 0 11 2;
r@147	1785 #X connect 13 0 11 1;
r@142	1786 #X connect 15 0 9 0;
r@155	1787 #X connect 17 0 4 0;
r@142	1788 #X restore 715 531 pd liftDi2ndNo;
r@142	1789 #X obj 607 487 r \$0-thisPan;
r@142	1790 #X obj 561 444 r~ \$0-myFreq;
r@142	1791 #X obj 630 507 r \$0-TuGain;
r@155	1792 #N canvas 899 170 491 522 liftDi2nd 0;
r@155	1793 #X obj 41 132 osc~;
r@155	1794 #X obj 41 305 throw~ l;
r@155	1795 #X obj 68 282 throw~ r;
r@155	1796 #X obj 41 239 *~;
r@155	1797 #X obj 41 260 fcpan;
r@155	1798 #X obj 56 216 *~ 1;
r@155	1799 #X obj 41 82 inlet~;
r@155	1800 #X obj 56 152 inlet~;
r@155	1801 #X obj 68 239 inlet;
r@155	1802 #X obj 77 194 inlet;
r@155	1803 #X obj 41 107 *~ 5;
r@142	1804 #X text 60 369 Generates the pure tone associated with the lift dipole
r@142	1805 second harmonic frequency.;
r@155	1806 #X obj 56 175 *~ 0.1;
r@155	1807 #X floatatom 104 263 5 0 0 0 - - -;
r@155	1808 #X text 117 168 0.1 Value to match normalised gain of 3rd harmonic
r@155	1809 given in Hardin;
r@142	1810 #X connect 0 0 3 0;
r@142	1811 #X connect 3 0 4 0;
r@142	1812 #X connect 4 0 1 0;
r@142	1813 #X connect 4 1 2 0;
r@142	1814 #X connect 5 0 3 1;
r@142	1815 #X connect 6 0 10 0;
r@147	1816 #X connect 7 0 12 0;
r@142	1817 #X connect 8 0 4 1;
r@147	1818 #X connect 8 0 13 0;
r@142	1819 #X connect 9 0 5 1;
r@142	1820 #X connect 10 0 0 0;
r@147	1821 #X connect 12 0 5 0;
r@142	1822 #X restore 561 530 pd liftDi2nd;
r@142	1823 #X obj 584 466 r~ \$0-liftDiGain;
r@142	1824 #X obj 608 596 r \$0-thisPan;
r@142	1825 #X obj 562 553 r~ \$0-myFreq;
r@142	1826 #X obj 631 616 r \$0-TuGain;
r@142	1827 #X obj 585 575 r~ \$0-liftDiGain;
r@155	1828 #N canvas 59 232 491 522 liftDi1st 0;
r@155	1829 #X obj 36 136 osc~;
r@155	1830 #X obj 36 309 throw~ l;
r@155	1831 #X obj 63 286 throw~ r;
r@155	1832 #X obj 36 243 *~;
r@155	1833 #X obj 36 264 fcpan;
r@155	1834 #X obj 51 220 *~ 1;
r@155	1835 #X obj 36 86 inlet~;
r@155	1836 #X obj 51 156 inlet~;
r@155	1837 #X obj 63 243 inlet;
r@155	1838 #X obj 72 198 inlet;
r@155	1839 #X obj 36 111 *~ 3;
r@142	1840 #X text 60 369 Generates the pure tone associated with the lift dipole
r@142	1841 first harmonic frequency.;
r@155	1842 #X floatatom 105 265 5 0 0 0 - - -;
r@155	1843 #X obj 51 179 *~ 0.6;
r@155	1844 #X text 114 168 0.6 Value to match normalised gain of 3rd harmonic
r@155	1845 given in Hardin;
r@142	1846 #X connect 0 0 3 0;
r@142	1847 #X connect 3 0 4 0;
r@142	1848 #X connect 4 0 1 0;
r@142	1849 #X connect 4 1 2 0;
r@142	1850 #X connect 5 0 3 1;
r@142	1851 #X connect 6 0 10 0;
r@155	1852 #X connect 7 0 13 0;
r@142	1853 #X connect 8 0 4 1;
r@155	1854 #X connect 8 0 12 0;
r@142	1855 #X connect 9 0 5 1;
r@142	1856 #X connect 10 0 0 0;
r@155	1857 #X connect 13 0 5 0;
r@142	1858 #X restore 562 639 pd liftDi1st;
r@142	1859 #X obj 742 574 r~ \$0-myFreq;
r@142	1860 #X obj 769 594 r \$0-thisPan;
r@142	1861 #X obj 796 614 r \$0-TuGain;
r@142	1862 #X obj 715 554 r~ \$0-liftDiGain;
r@155	1863 #N canvas 665 229 578 492 liftDi1stNo 0;
r@142	1864 #X obj 124 84 inlet~;
r@142	1865 #X obj 120 198 inlet~;
r@142	1866 #X obj 161 105 inlet;
r@142	1867 #X obj 132 281 inlet;
r@142	1868 #X obj 105 282 *~;
r@142	1869 #X obj 105 347 throw~ l;
r@142	1870 #X obj 132 324 throw~ r;
r@142	1871 #X obj 105 303 fcpan;
r@142	1872 #X obj 105 65 noise~;
r@142	1873 #X obj 120 262 *~ 1;
r@142	1874 #X obj 141 241 r \$0-TuGain;
r@142	1875 #X obj 105 151 vcf~ 10;
r@142	1876 #N canvas 607 346 247 157 QV 0;
r@142	1877 #X obj 90 25 inlet;
r@142	1878 #X obj 90 47 * 5;
r@142	1879 #X obj 90 70 + 5;
r@142	1880 #X obj 90 93 outlet;
r@142	1881 #X connect 0 0 1 0;
r@142	1882 #X connect 1 0 2 0;
r@142	1883 #X connect 2 0 3 0;
r@142	1884 #X restore 144 128 pd QV;
r@142	1885 #X text 49 393 Creates the shaped noise sound equivalent to a narrow
r@142	1886 band signal at the lift dipole second harmonic frequency.;
r@142	1887 #X obj 124 105 *~ 3;
r@147	1888 #X obj 120 220 *~ 0.5;
r@147	1889 #X floatatom 163 302 5 0 0 0 - - -;
r@155	1890 #X obj 105 173 *~ 0.6;
r@155	1891 #X text 167 169 0.6 Value to match normalised gain of 3rd harmonic
r@155	1892 given in Hardin;
r@147	1893 #X connect 0 0 14 0;
r@147	1894 #X connect 1 0 15 0;
r@142	1895 #X connect 2 0 12 0;
r@142	1896 #X connect 3 0 7 1;
r@155	1897 #X connect 3 0 16 0;
r@142	1898 #X connect 4 0 7 0;
r@142	1899 #X connect 7 0 5 0;
r@142	1900 #X connect 7 1 6 0;
r@142	1901 #X connect 8 0 11 0;
r@142	1902 #X connect 9 0 4 1;
r@142	1903 #X connect 10 0 9 1;
r@155	1904 #X connect 11 0 17 0;
r@142	1905 #X connect 12 0 11 2;
r@147	1906 #X connect 14 0 11 1;
r@147	1907 #X connect 15 0 9 0;
r@155	1908 #X connect 17 0 4 0;
r@142	1909 #X restore 715 635 pd liftDi1stNo;
r@142	1910 #X obj 608 708 r \$0-thisPan;
r@142	1911 #X obj 562 665 r~ \$0-myFreq;
r@142	1912 #X obj 631 728 r \$0-TuGain;
r@142	1913 #X obj 585 687 r~ \$0-liftDiGain;
r@151	1914 #N canvas 444 150 491 522 liftDiFun 0;
r@142	1915 #X obj 165 125 osc~;
r@142	1916 #X obj 165 298 throw~ l;
r@142	1917 #X obj 192 275 throw~ r;
r@142	1918 #X obj 165 232 *~;
r@142	1919 #X obj 165 253 fcpan;
r@142	1920 #X obj 180 209 *~ 1;
r@142	1921 #X obj 165 75 inlet~;
r@142	1922 #X obj 180 145 inlet~;
r@142	1923 #X obj 192 232 inlet;
r@142	1924 #X obj 201 187 inlet;
r@142	1925 #X obj 165 100 *~ 1;
r@142	1926 #X obj 180 168 *~ 1;
r@142	1927 #X text 60 369 Generates the pure tone associated with the lift dipole
r@142	1928 fundamental frequency.;
r@147	1929 #X floatatom 227 254 5 0 0 0 - - -;
r@151	1930 #X obj 95 262 s~ fund1;
r@142	1931 #X connect 0 0 3 0;
r@142	1932 #X connect 3 0 4 0;
r@151	1933 #X connect 3 0 14 0;
r@142	1934 #X connect 4 0 1 0;
r@142	1935 #X connect 4 1 2 0;
r@142	1936 #X connect 5 0 3 1;
r@142	1937 #X connect 6 0 10 0;
r@142	1938 #X connect 7 0 11 0;
r@142	1939 #X connect 8 0 4 1;
r@147	1940 #X connect 8 0 13 0;
r@142	1941 #X connect 9 0 5 1;
r@142	1942 #X connect 10 0 0 0;
r@142	1943 #X connect 11 0 5 0;
r@142	1944 #X restore 562 751 pd liftDiFun;
r@142	1945 #X obj 738 683 r~ \$0-myFreq;
r@142	1946 #X obj 765 703 r \$0-thisPan;
r@142	1947 #X obj 792 723 r \$0-TuGain;
r@142	1948 #X obj 711 663 r~ \$0-liftDiGain;
r@155	1949 #N canvas 930 320 464 503 liftDiFunNo 0;
r@142	1950 #X obj 124 84 inlet~;
r@142	1951 #X obj 120 198 inlet~;
r@142	1952 #X obj 161 105 inlet;
r@142	1953 #X obj 132 281 inlet;
r@142	1954 #X obj 105 282 *~;
r@142	1955 #X obj 105 347 throw~ l;
r@142	1956 #X obj 132 324 throw~ r;
r@142	1957 #X obj 105 303 fcpan;
r@142	1958 #X obj 105 65 noise~;
r@142	1959 #X obj 120 262 *~ 1;
r@142	1960 #X obj 141 241 r \$0-TuGain;
r@142	1961 #X obj 105 151 vcf~ 10;
r@142	1962 #N canvas 607 346 247 157 QV 0;
r@142	1963 #X obj 90 25 inlet;
r@142	1964 #X obj 90 47 * 5;
r@142	1965 #X obj 90 70 + 5;
r@142	1966 #X obj 90 93 outlet;
r@142	1967 #X connect 0 0 1 0;
r@142	1968 #X connect 1 0 2 0;
r@142	1969 #X connect 2 0 3 0;
r@142	1970 #X restore 144 128 pd QV;
r@142	1971 #X obj 124 105 *~ 1;
r@142	1972 #X obj 120 220 *~ 1;
r@142	1973 #X text 49 393 Creates the shaped noise sound equivalent to a narrow
r@142	1974 band signal at the lift dipole fundamental frequency.;
r@154	1975 #X floatatom 149 303 5 0 0 0 - - -;
r@155	1976 #X obj 105 173 *~ 0.5;
r@147	1977 #X connect 0 0 13 0;
r@147	1978 #X connect 1 0 14 0;
r@142	1979 #X connect 2 0 12 0;
r@142	1980 #X connect 3 0 7 1;
r@154	1981 #X connect 3 0 16 0;
r@142	1982 #X connect 4 0 7 0;
r@142	1983 #X connect 7 0 5 0;
r@142	1984 #X connect 7 1 6 0;
r@142	1985 #X connect 8 0 11 0;
r@142	1986 #X connect 9 0 4 1;
r@142	1987 #X connect 10 0 9 1;
r@154	1988 #X connect 11 0 17 0;
r@142	1989 #X connect 12 0 11 2;
r@147	1990 #X connect 13 0 11 1;
r@147	1991 #X connect 14 0 9 0;
r@154	1992 #X connect 17 0 4 0;
r@142	1993 #X restore 711 744 pd liftDiFunNo;
r@147	1994 #X text 894 569 Patches that generate all the sounds associated with
r@142	1995 the drag dipole;
r@142	1996 #X text 554 772 Patches that generate all the sounds associated with
r@142	1997 the lift dipole;
r@144	1998 #X obj 447 62 s \$0-azim;
r@144	1999 #X obj 522 62 s \$0-elev;
r@150	2000 #X obj 345 242 r \$0-elev;
r@150	2001 #X obj 353 263 r \$0-azim;
r@155	2002 #X obj 353 486 r \$0-elev;
r@155	2003 #X obj 367 504 r \$0-azim;
r@144	2004 #X obj 314 725 r \$0-elev;
r@144	2005 #X obj 325 748 r \$0-azim;
r@152	2006 #N canvas 1021 287 444 428 corrLen 0;
r@150	2007 #X obj 103 71 inlet~;
r@151	2008 #X obj 88 200 outlet~;
r@150	2009 #X obj 282 208 snapshot~;
r@150	2010 #X obj 282 161 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@150	2011 1;
r@150	2012 #X obj 282 135 loadbang;
r@150	2013 #X floatatom 282 232 8 0 0 0 - - -;
r@150	2014 #X obj 88 143 *~;
r@150	2015 #X obj 282 183 metro 100;
r@150	2016 #X obj 124 93 sig~ -0.245;
r@150	2017 #X obj 103 119 pow~;
r@150	2018 #X text 234 22 Y = 10^b . X^m;
r@150	2019 #X text 235 40 b = 1.536;
r@150	2020 #X text 235 56 m = -0.245;
r@150	2021 #X text 80 297 Equation of line derived from Norberg 2001;
r@151	2022 #X obj 88 169 max~ 1;
r@151	2023 #X obj 88 46 sig~ 44.67;
r@150	2024 #X connect 0 0 9 0;
r@150	2025 #X connect 2 0 5 0;
r@150	2026 #X connect 3 0 7 0;
r@150	2027 #X connect 4 0 3 0;
r@151	2028 #X connect 6 0 14 0;
r@150	2029 #X connect 7 0 2 0;
r@150	2030 #X connect 8 0 9 1;
r@150	2031 #X connect 9 0 6 1;
r@151	2032 #X connect 14 0 1 0;
r@151	2033 #X connect 14 0 2 0;
r@151	2034 #X connect 15 0 6 0;
r@150	2035 #X restore 1229 60 pd corrLen Calc;
r@150	2036 #X obj 1229 37 r~ \$0-myRey;
r@150	2037 #X obj 1229 84 s~ \$0-myCor;
r@150	2038 #X obj 327 202 r~ \$0-myCor;
r@155	2039 #X obj 1090 285 r \$0-contFreq;
r@155	2040 #X obj 1055 313 hip~;
r@155	2041 #X obj 300 404 r~ \$0-myCor;
r@142	2042 #X connect 2 0 4 0;
r@142	2043 #X connect 3 0 32 0;
r@142	2044 #X connect 3 0 72 0;
r@142	2045 #X connect 4 0 3 0;
r@142	2046 #X connect 5 0 20 0;
r@142	2047 #X connect 7 0 5 0;
r@142	2048 #X connect 8 0 13 0;
r@142	2049 #X connect 8 0 74 0;
r@142	2050 #X connect 11 0 52 0;
r@142	2051 #X connect 11 0 79 0;
r@142	2052 #X connect 14 0 4 1;
r@142	2053 #X connect 15 0 5 1;
r@142	2054 #X connect 17 0 48 1;
r@142	2055 #X connect 18 0 7 1;
r@142	2056 #X connect 19 0 2 0;
r@144	2057 #X connect 21 0 147 1;
r@142	2058 #X connect 22 0 23 0;
r@142	2059 #X connect 23 0 16 0;
r@142	2060 #X connect 24 0 22 0;
r@142	2061 #X connect 24 0 73 0;
r@142	2062 #X connect 25 0 77 0;
r@142	2063 #X connect 26 0 29 0;
r@144	2064 #X connect 26 0 116 0;
r@142	2065 #X connect 27 0 26 0;
r@142	2066 #X connect 28 0 27 0;
r@142	2067 #X connect 30 0 28 0;
r@142	2068 #X connect 31 0 26 0;
r@142	2069 #X connect 34 0 36 0;
r@142	2070 #X connect 36 0 37 0;
r@142	2071 #X connect 37 0 35 0;
r@144	2072 #X connect 37 0 93 0;
r@155	2073 #X connect 41 0 136 1;
r@142	2074 #X connect 42 0 45 0;
r@142	2075 #X connect 43 0 42 0;
r@142	2076 #X connect 44 0 43 0;
r@142	2077 #X connect 46 0 44 0;
r@155	2078 #X connect 47 0 136 4;
r@142	2079 #X connect 49 0 53 0;
r@147	2080 #X connect 49 0 181 0;
r@142	2081 #X connect 50 0 48 3;
r@142	2082 #X connect 51 0 54 0;
r@147	2083 #X connect 51 0 182 0;
r@142	2084 #X connect 56 0 55 0;
r@142	2085 #X connect 56 0 6 0;
r@144	2086 #X connect 56 0 95 0;
r@142	2087 #X connect 57 0 59 0;
r@142	2088 #X connect 58 0 57 0;
r@142	2089 #X connect 59 0 56 0;
r@142	2090 #X connect 60 0 56 0;
r@142	2091 #X connect 69 0 70 0;
r@142	2092 #X connect 69 0 78 0;
r@144	2093 #X connect 72 0 92 0;
r@142	2094 #X connect 72 0 7 0;
r@142	2095 #X connect 77 0 75 0;
r@142	2096 #X connect 77 1 76 0;
r@144	2097 #X connect 80 0 48 0;
r@144	2098 #X connect 81 0 48 2;
r@144	2099 #X connect 82 0 48 4;
r@144	2100 #X connect 83 0 48 5;
r@144	2101 #X connect 84 0 48 6;
r@155	2102 #X connect 87 0 136 0;
r@155	2103 #X connect 88 0 136 3;
r@155	2104 #X connect 89 0 136 5;
r@144	2105 #X connect 91 0 147 0;
r@144	2106 #X connect 94 0 112 1;
r@144	2107 #X connect 96 0 42 0;
r@144	2108 #X connect 97 0 25 0;
r@144	2109 #X connect 98 0 77 1;
r@144	2110 #X connect 99 0 102 0;
r@144	2111 #X connect 99 0 105 0;
r@144	2112 #X connect 100 0 103 0;
r@144	2113 #X connect 100 0 106 0;
r@144	2114 #X connect 101 0 104 0;
r@144	2115 #X connect 101 0 107 0;
r@155	2116 #X connect 112 0 194 0;
r@144	2117 #X connect 113 0 147 2;
r@144	2118 #X connect 114 0 112 0;
r@144	2119 #X connect 115 0 114 0;
r@144	2120 #X connect 117 0 122 1;
r@144	2121 #X connect 118 0 122 3;
r@144	2122 #X connect 119 0 122 0;
r@144	2123 #X connect 120 0 122 2;
r@150	2124 #X connect 121 0 122 5;
r@144	2125 #X connect 122 0 86 0;
r@144	2126 #X connect 122 1 85 0;
r@144	2127 #X connect 123 0 125 0;
r@144	2128 #X connect 123 0 126 0;
r@144	2129 #X connect 124 0 123 0;
r@147	2130 #X connect 127 0 148 2;
r@147	2131 #X connect 128 0 148 0;
r@147	2132 #X connect 129 0 148 1;
r@144	2133 #X connect 130 0 131 1;
r@144	2134 #X connect 132 0 131 3;
r@144	2135 #X connect 133 0 131 0;
r@144	2136 #X connect 134 0 131 2;
r@144	2137 #X connect 135 0 131 6;
r@144	2138 #X connect 136 0 90 0;
r@144	2139 #X connect 138 0 139 0;
r@144	2140 #X connect 138 0 140 0;
r@144	2141 #X connect 141 0 143 0;
r@144	2142 #X connect 141 0 145 0;
r@144	2143 #X connect 142 0 141 0;
r@147	2144 #X connect 144 0 148 3;
r@144	2145 #X connect 146 0 147 3;
r@147	2146 #X connect 149 0 153 1;
r@147	2147 #X connect 150 0 153 2;
r@147	2148 #X connect 151 0 153 3;
r@147	2149 #X connect 152 0 153 0;
r@147	2150 #X connect 154 0 157 2;
r@147	2151 #X connect 155 0 157 0;
r@147	2152 #X connect 156 0 157 3;
r@147	2153 #X connect 158 0 157 1;
r@147	2154 #X connect 159 0 163 2;
r@147	2155 #X connect 160 0 163 0;
r@144	2156 #X connect 161 0 163 3;
r@147	2157 #X connect 162 0 163 1;
r@147	2158 #X connect 164 0 168 1;
r@147	2159 #X connect 165 0 168 2;
r@147	2160 #X connect 166 0 168 3;
r@147	2161 #X connect 167 0 168 0;
r@144	2162 #X connect 169 0 173 2;
r@144	2163 #X connect 170 0 173 0;
r@144	2164 #X connect 171 0 173 3;
r@144	2165 #X connect 172 0 173 1;
r@144	2166 #X connect 174 0 178 1;
r@144	2167 #X connect 175 0 178 2;
r@144	2168 #X connect 176 0 178 3;
r@144	2169 #X connect 177 0 178 0;
r@150	2170 #X connect 183 0 122 6;
r@150	2171 #X connect 184 0 122 7;
r@155	2172 #X connect 185 0 136 6;
r@155	2173 #X connect 186 0 136 7;
r@147	2174 #X connect 187 0 131 4;
r@147	2175 #X connect 188 0 131 5;
r@150	2176 #X connect 189 0 191 0;
r@150	2177 #X connect 190 0 189 0;
r@150	2178 #X connect 192 0 122 4;
r@155	2179 #X connect 193 0 194 1;
r@155	2180 #X connect 194 0 25 1;
r@155	2181 #X connect 195 0 136 2;

Mercurial > hg > weather-synthesis-prototyping

annotate scene demo/freqCalcCyl3No_D1Mach.pd @ 155:be0f8470d010