changeset 288:07fa2ffc27ab

Various changes to Cavity, Aeolian Harp and Propeller models
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 24 Apr 2017 20:32:21 +0100
parents 3b8a33b7ccc4
children cf583cdc6d0c
files .DS_Store MechAeolian/MechAeolianD3.pd MechAeolian/MechAeolianD4.pd MechAeolian/harpD2.pd Propellor/AndyEngineD2.pd Propellor/PropTestD6.pd Shallow Cavity/CavD5.pd Shallow Cavity/HoweIntensity.pd Shallow Cavity/HoweIntensityDipoleD2.pd Shallow Cavity/HoweIntensityMonoTest.pd Shallow Cavity/cavGUID2.pd Shallow Cavity/midCav.pd
diffstat 12 files changed, 2800 insertions(+), 494 deletions(-) [+]
line wrap: on
line diff
Binary file .DS_Store has changed
--- a/MechAeolian/MechAeolianD3.pd	Fri Apr 07 22:39:12 2017 +0100
+++ b/MechAeolian/MechAeolianD3.pd	Mon Apr 24 20:32:21 2017 +0100
@@ -1279,7 +1279,7 @@
 #X obj -7 120 snapshot~;
 #X floatatom -7 143 0 0 0 0 - - -;
 #X obj 72 644 outlet~;
-#N canvas 0 27 638 497 PlotWrt 1;
+#N canvas 0 27 638 497 PlotWrt 0;
 #X obj 116 303 textfile;
 #X msg 330 202 clear \, rewind;
 #X msg 169 202 add \$1;
@@ -1430,7 +1430,7 @@
 #X obj 72 495 +~;
 #X msg 614 64 \$1 20;
 #X obj 617 43 hsl 128 15 0.01 10 1 0 empty empty empty -2 -8 0 10 -262144
--1 -1 6782 1;
+-1 -1 0 1;
 #X floatatom 658 68 0 0 0 0 - - -;
 #X obj 621 13 line;
 #X obj -19 458 spigot~;
@@ -1621,7 +1621,6 @@
 #X connect 54 0 10 0;
 #X connect 56 0 61 0;
 #X connect 57 0 60 0;
-#X connect 58 0 130 0;
 #X connect 59 0 151 0;
 #X connect 60 0 21 0;
 #X connect 61 0 1 0;
@@ -1702,6 +1701,7 @@
 #X connect 144 0 86 1;
 #X connect 145 0 41 0;
 #X connect 146 0 41 0;
+#X connect 147 0 130 0;
 #X connect 148 0 16 1;
 #X connect 148 0 154 0;
 #X connect 149 0 95 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MechAeolian/MechAeolianD4.pd	Mon Apr 24 20:32:21 2017 +0100
@@ -0,0 +1,2132 @@
+#N canvas 515 34 1370 784 10;
+#X obj 223 63 inlet;
+#X text 408 248 Reynolds Number;
+#X text 359 284 Strouhal Number;
+#X obj 388 61 inlet;
+#X obj 230 86 s \$0-diameter;
+#X obj 120 85 s~ \$0-windSpeed;
+#X obj 348 166 r~ \$0-windSpeed;
+#X obj 348 313 s~ \$0-myFreq;
+#X obj 311 595 *~;
+#X obj 411 231 s~ \$0-myRey;
+#X obj 636 57 inlet;
+#X floatatom 581 126 8 0 0 0 - - -;
+#X text 345 342 Calculates the frequency;
+#X text 346 354 based on the physics of;
+#X obj 77 422 r~ \$0-windSpeed;
+#X obj 117 484 r \$0-diameter;
+#X obj 460 60 inlet;
+#X obj 534 59 inlet;
+#X floatatom 388 108 0 0 0 0 - - -;
+#X floatatom 460 106 0 0 0 0 - - -;
+#X floatatom 535 103 0 0 0 0 - - -;
+#X text 63 385 Calculates the gain of the dipole source;
+#X text 459 37 Azimuth;
+#X text 641 39 Pan;
+#X text 533 41 Elevation;
+#X text 384 42 Distance;
+#X text 218 42 Diameter;
+#X text 133 41 Wind Speed;
+#X obj 315 60 inlet;
+#X floatatom 315 104 5 0 0 0 - - -;
+#X text 311 41 Length;
+#X floatatom 223 107 0 0 0 0 - - -;
+#X obj 311 664 throw~ l;
+#X obj 338 642 throw~ r;
+#X obj 325 83 s \$0-leng;
+#X obj 393 84 s \$0-dist;
+#X obj 170 349 s~ \$0-dragDiGain;
+#X obj 83 370 s~ \$0-liftDiGain;
+#X obj 64 403 r~ \$0-str;
+#X obj 103 462 r \$0-leng;
+#X obj 130 505 r \$0-dist;
+#X obj 64 598 s~ \$0-liftNoiseGain;
+#X obj 379 269 s~ \$0-str;
+#X obj 636 126 s \$0-thisPan;
+#X obj 311 451 r~ \$0-liftNoiseGain;
+#X obj 338 595 r \$0-thisPan;
+#X obj 803 39 inlet;
+#X obj 746 39 inlet;
+#X text 292 425 Noise spectrum calculation;
+#X obj 326 543 hip~;
+#X obj 326 498 rpole~ 0.99;
+#X obj 91 181 r~ \$0-windSpeed;
+#X obj 109 220 r \$0-diameter;
+#X obj 83 160 r~ \$0-str;
+#X obj 101 201 r \$0-leng;
+#X obj 126 259 r \$0-dist;
+#N canvas 205 88 1238 721 GoldfreqGain 0;
+#N canvas 759 125 286 294 pow6 0;
+#X obj 47 67 *~;
+#X obj 76 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 163 outlet~;
+#X obj 136 184 snapshot~;
+#X obj 136 159 metro 100;
+#X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 136 211 10 0 0 0 - - -;
+#X obj 216 210 outlet;
+#X obj 136 111 loadbang;
+#X obj 106 67 *~;
+#X obj 47 93 *~;
+#X obj 47 118 *~;
+#X obj 372 202 *;
+#X obj 372 228 *;
+#X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X floatatom 374 288 10 0 0 0 - - -;
+#X obj 303 20 t f b;
+#X floatatom 455 55 5 0 0 0 - - -;
+#X obj 372 260 *;
+#X obj 400 202 *;
+#X msg 303 -4 6;
+#X obj 434 201 *;
+#X connect 0 0 11 0;
+#X connect 1 0 11 1;
+#X connect 2 0 0 0;
+#X connect 2 0 0 1;
+#X connect 2 0 1 1;
+#X connect 2 0 10 0;
+#X connect 2 0 10 1;
+#X connect 2 0 1 0;
+#X connect 4 0 7 0;
+#X connect 4 0 8 0;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 9 0 6 0;
+#X connect 10 0 12 1;
+#X connect 11 0 12 0;
+#X connect 12 0 4 0;
+#X connect 12 0 3 0;
+#X connect 13 0 14 0;
+#X connect 14 0 19 0;
+#X connect 15 0 13 0;
+#X connect 15 0 13 1;
+#X connect 15 0 18 0;
+#X connect 15 0 20 0;
+#X connect 15 0 20 1;
+#X connect 17 0 13 0;
+#X connect 17 0 13 1;
+#X connect 17 0 20 0;
+#X connect 17 0 20 1;
+#X connect 17 0 22 0;
+#X connect 17 0 22 1;
+#X connect 17 1 13 0;
+#X connect 17 1 20 0;
+#X connect 17 1 22 0;
+#X connect 19 0 16 0;
+#X connect 20 0 14 1;
+#X connect 21 0 17 0;
+#X connect 22 0 19 1;
+#X restore 219 150 pd pow6;
+#X obj 173 140 *~;
+#X obj 219 176 *~;
+#X obj 411 161 *;
+#X text 587 13 Distance;
+#X floatatom 567 73 5 0 0 0 - - -;
+#X text 724 548 Calculates Drag Dipole gain;
+#X text 48 531 Calculates Lift Dipole gain;
+#X obj 173 100 inlet~;
+#X obj 219 13 inlet~;
+#X text 328 170 Diameter;
+#X obj 291 169 inlet;
+#X obj 567 29 inlet;
+#X obj 219 590 outlet~;
+#X obj 758 523 outlet~;
+#X obj 240 263 inlet;
+#X text 278 258 Length;
+#X obj 219 289 *~ 1;
+#X obj 234 469 /~ 360;
+#X obj 234 518 *~;
+#X obj 219 541 *~;
+#X obj 868 30 inlet;
+#X obj 967 32 inlet;
+#X obj 1063 35 inlet;
+#X floatatom 868 77 5 0 0 0 - - -;
+#X floatatom 967 78 5 0 0 0 - - -;
+#X floatatom 1064 79 5 0 0 0 - - -;
+#X text 864 11 X Rotation;
+#X text 961 13 Y Rotation;
+#X text 1058 16 Z Rotation;
+#X obj 873 53 s \$0-this_rotaX;
+#X obj 974 54 s \$0-thisrotaY;
+#X obj 1071 58 s \$0-thisrotaZ;
+#X text 74 100 Strouhal number;
+#X text 149 37 Wind speed;
+#X text 266 211 Corr Length;
+#X obj 219 348 *~ 2.50663;
+#X obj 219 238 *~ 1.225;
+#X text 93 234 Mass Density of Air;
+#X text 145 343 Sqrt(2xpi);
+#X obj 332 470 /~ 360;
+#X obj 332 516 *~;
+#X obj 332 492 cos~;
+#X obj 219 567 *~;
+#X obj 411 191 * 4.05513e+07;
+#X text 362 210 Speed of Sound to power 3;
+#X obj 411 244 * 32;
+#X obj 525 213 cos~;
+#X obj 525 236 *~;
+#X obj 473 237 sig~ 1;
+#X obj 510 267 -~;
+#N canvas 1150 227 286 289 pow4 0;
+#X obj 47 67 *~;
+#X obj 76 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 163 outlet~;
+#X obj 136 184 snapshot~;
+#X obj 136 159 metro 100;
+#X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 136 211 10 0 0 0 - - -;
+#X obj 216 210 outlet;
+#X obj 136 111 loadbang;
+#X obj 47 93 *~;
+#X connect 0 0 10 0;
+#X connect 1 0 10 1;
+#X connect 2 0 0 0;
+#X connect 2 0 0 1;
+#X connect 2 0 1 1;
+#X connect 2 0 1 0;
+#X connect 4 0 7 0;
+#X connect 4 0 8 0;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 9 0 6 0;
+#X connect 10 0 3 0;
+#X connect 10 0 4 0;
+#X restore 510 290 pd pow4;
+#X obj 411 272 sig~;
+#X obj 411 322 *~;
+#X obj 219 385 /~;
+#X obj 133 375 s~ \$0-aGainG;
+#X obj 872 246 r~ \$0-aGainG;
+#X obj 758 498 *~ 0.1;
+#X obj 723 340 +~ 90;
+#X obj 723 363 /~ 360;
+#X obj 723 409 *~;
+#X obj 723 385 sin~;
+#X obj 773 359 /~ 360;
+#X obj 773 405 *~;
+#X obj 773 381 cos~;
+#X obj 758 436 *~;
+#X text 763 12 Azimuth;
+#X text 662 14 Elevation;
+#X obj 665 32 inlet;
+#X obj 767 30 inlet;
+#X floatatom 665 79 5 0 0 0 - - -;
+#X floatatom 767 79 5 0 0 0 - - -;
+#X obj 773 294 r \$0-this_azim;
+#X obj 670 55 s \$0-this_elev;
+#X obj 774 55 s \$0-this_azim;
+#X obj 525 129 r \$0-this_elev;
+#X obj 574 51 s \$0-thisDist;
+#X obj 887 268 r \$0-thisDist;
+#X obj 411 135 r \$0-thisDist;
+#X obj 887 292 *;
+#X obj 887 317 * 4.05513e+07;
+#X text 892 335 Speed of Sound to power 3;
+#X obj 887 370 * 32;
+#X obj 887 398 sig~;
+#X obj 872 423 /~;
+#X text 595 191 Remember - Goldstein moves cylinder;
+#X obj 525 194 /~ 360;
+#X obj 758 475 *~;
+#X obj 478 51 s~ \$0-thisColL;
+#X obj 270 150 r~ \$0-thisColL;
+#X obj 270 190 *~ 1;
+#X obj 219 210 *~;
+#X obj 478 28 inlet~;
+#X obj 234 495 sin~;
+#N canvas 801 264 426 401 aveTimeCal 0;
+#X text 224 38 Elevation;
+#X obj 226 56 r \$0-elev;
+#X floatatom 240 81 5 0 0 0 - - -;
+#X obj 205 17 r~ MY_MACH;
+#X obj 226 135 cos;
+#X obj 226 107 * 0.01745;
+#X obj 205 158 *~ 1;
+#X obj 161 131 sig~ 1;
+#X obj 161 185 -~;
+#X obj 121 104 r~ \$0-myFreq;
+#X obj 106 82 sig~ 6.28318;
+#X obj 106 128 /~;
+#X obj 106 219 *~;
+#X obj 36 204 r myMet;
+#X obj 106 242 snapshot~;
+#X obj 106 263 * 44100;
+#X obj 106 292 outlet;
+#X floatatom 158 291 0 0 0 0 - - -;
+#X connect 1 0 2 0;
+#X connect 1 0 5 0;
+#X connect 3 0 6 0;
+#X connect 4 0 6 1;
+#X connect 5 0 4 0;
+#X connect 6 0 8 1;
+#X connect 7 0 8 0;
+#X connect 8 0 12 1;
+#X connect 9 0 11 1;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 14 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 15 0 17 0;
+#X restore 268 15 pd aveTimeCal;
+#X obj 219 122 line~;
+#X obj 525 173 line~;
+#X obj 723 273 r \$0-this_elev;
+#X obj 723 317 line~;
+#X msg 723 295 \$1 5;
+#X msg 525 151 \$1 5;
+#X obj 773 338 line~;
+#X msg 773 316 \$1 5;
+#X obj 332 402 r \$0-this_azim;
+#X obj 234 401 r \$0-this_elev;
+#X obj 234 445 line~;
+#X msg 234 423 \$1 5;
+#X obj 332 446 line~;
+#X msg 332 424 \$1 5;
+#X msg 219 100 \$1 5;
+#X obj 219 317 /~ 400;
+#X text -53 316 Scale factor to bring in line with CFD calcs;
+#X obj 559 214 r~ MY_MACH;
+#X floatatom 265 294 5 0 0 0 - - -;
+#X floatatom 311 117 0 0 0 0 - - -;
+#X obj 219 59 average~ 1000;
+#X connect 0 0 2 0;
+#X connect 1 0 2 1;
+#X connect 2 0 91 0;
+#X connect 3 0 44 0;
+#X connect 8 0 1 0;
+#X connect 8 0 1 1;
+#X connect 9 0 115 0;
+#X connect 11 0 90 1;
+#X connect 12 0 5 0;
+#X connect 12 0 76 0;
+#X connect 15 0 17 1;
+#X connect 15 0 113 0;
+#X connect 17 0 110 0;
+#X connect 18 0 93 0;
+#X connect 19 0 20 1;
+#X connect 20 0 43 0;
+#X connect 21 0 24 0;
+#X connect 21 0 30 0;
+#X connect 22 0 25 0;
+#X connect 22 0 31 0;
+#X connect 23 0 26 0;
+#X connect 23 0 32 0;
+#X connect 36 0 54 0;
+#X connect 36 0 55 0;
+#X connect 37 0 17 0;
+#X connect 40 0 42 0;
+#X connect 41 0 43 1;
+#X connect 42 0 41 0;
+#X connect 42 0 41 1;
+#X connect 43 0 13 0;
+#X connect 44 0 46 0;
+#X connect 46 0 52 0;
+#X connect 47 0 48 0;
+#X connect 48 0 50 1;
+#X connect 49 0 50 0;
+#X connect 50 0 51 0;
+#X connect 51 0 53 1;
+#X connect 52 0 53 0;
+#X connect 53 0 54 1;
+#X connect 54 0 20 0;
+#X connect 56 0 84 0;
+#X connect 57 0 14 0;
+#X connect 58 0 59 0;
+#X connect 59 0 61 0;
+#X connect 60 0 65 0;
+#X connect 61 0 60 0;
+#X connect 61 0 60 1;
+#X connect 62 0 64 0;
+#X connect 63 0 65 1;
+#X connect 64 0 63 0;
+#X connect 64 0 63 1;
+#X connect 65 0 87 0;
+#X connect 68 0 70 0;
+#X connect 68 0 73 0;
+#X connect 69 0 71 0;
+#X connect 69 0 74 0;
+#X connect 72 0 102 0;
+#X connect 75 0 100 0;
+#X connect 77 0 79 0;
+#X connect 77 0 79 1;
+#X connect 78 0 3 0;
+#X connect 78 0 3 1;
+#X connect 79 0 80 0;
+#X connect 80 0 82 0;
+#X connect 82 0 83 0;
+#X connect 83 0 84 1;
+#X connect 84 0 87 1;
+#X connect 86 0 47 0;
+#X connect 87 0 57 0;
+#X connect 89 0 90 0;
+#X connect 90 0 91 1;
+#X connect 91 0 37 0;
+#X connect 92 0 88 0;
+#X connect 93 0 19 0;
+#X connect 93 0 19 1;
+#X connect 95 0 0 0;
+#X connect 96 0 86 0;
+#X connect 97 0 99 0;
+#X connect 99 0 98 0;
+#X connect 100 0 96 0;
+#X connect 101 0 62 0;
+#X connect 102 0 101 0;
+#X connect 103 0 108 0;
+#X connect 104 0 106 0;
+#X connect 105 0 18 0;
+#X connect 106 0 105 0;
+#X connect 107 0 40 0;
+#X connect 108 0 107 0;
+#X connect 109 0 95 0;
+#X connect 110 0 36 0;
+#X connect 112 0 48 1;
+#X connect 115 0 109 0;
+#X connect 115 0 114 0;
+#X restore 83 325 pd GoldfreqGain;
+#N canvas 300 30 1006 797 GoldnoiseGain 0;
+#X text -21037 364 Mass Density of Air \, squared;
+#X obj -20777 459 *;
+#X text -20777 412 Distance;
+#N canvas 759 125 235 275 pow8 0;
+#X obj 47 67 *~;
+#X obj 76 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 147 outlet~;
+#X obj 128 146 snapshot~;
+#X obj 128 121 metro 100;
+#X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 128 173 10 0 0 0 - - -;
+#X obj 128 73 loadbang;
+#X obj 47 93 *~;
+#X obj 47 121 *~;
+#X connect 0 0 9 0;
+#X connect 1 0 9 1;
+#X connect 2 0 0 0;
+#X connect 2 0 0 1;
+#X connect 2 0 1 1;
+#X connect 2 0 1 0;
+#X connect 4 0 7 0;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 8 0 6 0;
+#X connect 9 0 10 0;
+#X connect 9 0 10 1;
+#X connect 10 0 3 0;
+#X connect 10 0 4 0;
+#X restore -20846 224 pd pow8;
+#X obj -20846 137 inlet~;
+#X obj -20807 286 inlet;
+#X obj -20777 433 inlet;
+#X obj -20861 617 outlet~;
+#X text -20858 648 Gain proportional to windspeed to power 8 for spectrum
+;
+#X text -20771 287 Diameter;
+#X text -20847 118 Wind speed;
+#X text -21027 627 Calculates wake gain;
+#X text -20399 16 Azimuth;
+#X obj -20398 33 inlet;
+#X obj -20342 33 inlet;
+#X text -20343 16 Elevation;
+#X floatatom -20304 57 5 0 0 0 - - -;
+#X floatatom -20470 58 5 0 0 0 - - -;
+#X obj -20398 117 s~ \$0-this_azim;
+#X obj -20342 95 s~ \$0-this_elev;
+#X obj -20861 371 *~ 1.225;
+#X obj -20587 239 r~ \$0-this_azim;
+#N canvas 759 125 250 309 pow5 0;
+#X obj 47 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 170 outlet~;
+#X obj 136 173 snapshot~;
+#X obj 136 148 metro 100;
+#X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 136 200 10 0 0 0 - - -;
+#X obj 136 100 loadbang;
+#X obj 47 87 *~;
+#X obj 47 118 *~;
+#X connect 0 0 8 0;
+#X connect 0 0 8 1;
+#X connect 1 0 0 0;
+#X connect 1 0 0 1;
+#X connect 1 0 9 1;
+#X connect 3 0 6 0;
+#X connect 4 0 3 0;
+#X connect 5 0 4 0;
+#X connect 7 0 5 0;
+#X connect 8 0 9 0;
+#X connect 9 0 2 0;
+#X connect 9 0 3 0;
+#X restore -20705 475 pd pow5;
+#X obj -20705 451 sig~ 343.56;
+#N canvas 875 261 250 309 pow5 0;
+#X obj 47 67 *~;
+#X obj 76 35 inlet~;
+#X obj 47 170 outlet~;
+#X obj 136 173 snapshot~;
+#X obj 136 148 metro 100;
+#X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 136 200 10 0 0 0 - - -;
+#X obj 136 100 loadbang;
+#X obj 47 87 *~;
+#X obj 47 118 *~;
+#X connect 0 0 8 0;
+#X connect 0 0 8 1;
+#X connect 1 0 0 0;
+#X connect 1 0 0 1;
+#X connect 1 0 9 1;
+#X connect 3 0 6 0;
+#X connect 4 0 3 0;
+#X connect 5 0 4 0;
+#X connect 7 0 5 0;
+#X connect 8 0 9 0;
+#X connect 9 0 2 0;
+#X connect 9 0 3 0;
+#X restore -20670 401 pd pow5;
+#X obj -20624 216 /~ 360;
+#X obj -20624 243 cos~;
+#X obj -20624 349 *~;
+#X obj -20670 348 sig~ 1;
+#X obj -20670 375 -~;
+#X obj -20705 322 sig~ 3.1416;
+#X obj -20705 347 *~;
+#X obj -20720 299 sig~ 16;
+#X obj -20720 371 *~;
+#X obj -20720 429 *~;
+#X obj -20720 502 *~;
+#X obj -20777 530 *~;
+#X obj -20861 574 /~;
+#X obj -20624 194 -~;
+#X text -20533 187 Angle goes with the flow in Goldstein hence 90 -
+theta so that theta is same angle as dipole angles.;
+#X obj -20624 149 sig~ 180;
+#X obj -20609 172 r~ \$0-this_elev;
+#X obj -20916 137 inlet~;
+#X obj -20916 164 *~;
+#X obj -20828 253 inlet~;
+#X obj -20828 312 *~ 1;
+#X obj -20861 251 *~;
+#X obj -20861 347 *~;
+#X obj -20809 392 inlet;
+#X obj -20861 444 *~ 1;
+#X obj -20861 528 *~ 2.50663;
+#X text -20782 254 Corrolation Length;
+#X text -20806 371 Length;
+#X obj -20846 159 average~ 64;
+#N canvas 801 264 426 401 aveTimeCal 0;
+#X text 224 38 Elevation;
+#X obj 226 56 r \$0-elev;
+#X floatatom 240 81 5 0 0 0 - - -;
+#X obj 205 17 r~ MY_MACH;
+#X obj 226 135 cos;
+#X obj 226 107 * 0.01745;
+#X obj 205 158 *~ 1;
+#X obj 161 131 sig~ 1;
+#X obj 161 185 -~;
+#X obj 121 104 r~ \$0-myFreq;
+#X obj 106 82 sig~ 6.28318;
+#X obj 106 128 /~;
+#X obj 106 219 *~;
+#X obj 36 204 r myMet;
+#X obj 106 242 snapshot~;
+#X floatatom 44 283 0 0 0 0 - - -;
+#X obj 106 263 * 44100;
+#X obj 106 292 outlet;
+#X connect 1 0 2 0;
+#X connect 1 0 5 0;
+#X connect 3 0 6 0;
+#X connect 4 0 6 1;
+#X connect 5 0 4 0;
+#X connect 6 0 8 1;
+#X connect 7 0 8 0;
+#X connect 8 0 12 1;
+#X connect 9 0 11 1;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 14 0;
+#X connect 13 0 14 0;
+#X connect 14 0 16 0;
+#X connect 16 0 15 0;
+#X connect 16 0 17 0;
+#X restore -20766 139 pd aveTimeCal;
+#X obj -20846 203 line~;
+#X msg -20846 181 \$1 5;
+#X obj -20342 75 line~;
+#X msg -20342 53 \$1 5;
+#X obj -20777 502 line~;
+#X msg -20777 480 \$1 5;
+#X obj -20398 86 line~;
+#X msg -20398 64 \$1 5;
+#X obj -20587 285 cos~;
+#X obj -20861 595 *~ 1;
+#X obj -20587 262 /~ 360;
+#X obj -20624 306 *~;
+#X text -21131 486 Scale factor to bring in line with CFD calcs;
+#X text -20929 530 Sqrt(2*pi);
+#X obj -20609 328 r~ MY_MACH;
+#X obj -20861 488 /~ 10000;
+#X connect 1 0 60 0;
+#X connect 3 0 46 1;
+#X connect 4 0 53 0;
+#X connect 5 0 45 1;
+#X connect 6 0 1 0;
+#X connect 6 0 1 1;
+#X connect 13 0 17 0;
+#X connect 13 0 62 0;
+#X connect 14 0 16 0;
+#X connect 14 0 58 0;
+#X connect 20 0 49 0;
+#X connect 21 0 65 0;
+#X connect 22 0 35 1;
+#X connect 23 0 22 0;
+#X connect 24 0 34 1;
+#X connect 25 0 26 0;
+#X connect 26 0 66 0;
+#X connect 27 0 29 1;
+#X connect 28 0 29 0;
+#X connect 29 0 24 0;
+#X connect 30 0 31 0;
+#X connect 30 0 31 1;
+#X connect 31 0 33 1;
+#X connect 32 0 33 0;
+#X connect 33 0 34 0;
+#X connect 34 0 35 0;
+#X connect 35 0 36 1;
+#X connect 36 0 37 1;
+#X connect 37 0 64 0;
+#X connect 38 0 25 0;
+#X connect 40 0 38 0;
+#X connect 41 0 38 1;
+#X connect 42 0 43 0;
+#X connect 42 0 43 1;
+#X connect 43 0 46 0;
+#X connect 44 0 45 0;
+#X connect 45 0 47 1;
+#X connect 46 0 47 0;
+#X connect 47 0 20 0;
+#X connect 48 0 49 1;
+#X connect 49 0 70 0;
+#X connect 50 0 37 0;
+#X connect 53 0 56 0;
+#X connect 54 0 53 0;
+#X connect 55 0 3 0;
+#X connect 56 0 55 0;
+#X connect 57 0 19 0;
+#X connect 58 0 57 0;
+#X connect 59 0 36 0;
+#X connect 60 0 59 0;
+#X connect 61 0 18 0;
+#X connect 62 0 61 0;
+#X connect 63 0 66 1;
+#X connect 64 0 7 0;
+#X connect 65 0 63 0;
+#X connect 66 0 27 0;
+#X connect 69 0 27 1;
+#X connect 70 0 50 0;
+#X restore 64 570 pd GoldnoiseGain;
+#X text 55 617 Calculates the gain of the wake;
+#X obj 467 82 s \$0-azim;
+#X obj 542 82 s \$0-elev;
+#X obj 135 280 r \$0-elev;
+#X obj 143 301 r \$0-azim;
+#X obj 157 549 r \$0-elev;
+#X obj 143 526 r \$0-azim;
+#N canvas 940 255 444 428 corrLen 0;
+#X obj 103 71 inlet~;
+#X obj 88 302 outlet~;
+#X obj 88 143 *~;
+#X obj 124 93 sig~ -0.245;
+#X obj 103 119 pow~;
+#X text 234 22 Y = 10^b . X^m;
+#X text 235 40 b = 1.536;
+#X text 235 56 m = -0.245;
+#X text 51 364 Equation of line derived from Norberg 2001;
+#X obj 88 169 max~ 1;
+#X obj 88 46 sig~ 44.67;
+#X obj 229 285 r myMet;
+#X obj 229 308 snapshot~;
+#X floatatom 228 329 0 0 0 0 - - -;
+#X obj 88 272 +~;
+#X obj 104 219 inlet~;
+#X obj 203 203 r myMet;
+#X obj 203 226 snapshot~;
+#X floatatom 202 247 0 0 0 0 - - -;
+#X obj 104 244 *~ 200;
+#X connect 0 0 4 0;
+#X connect 2 0 9 0;
+#X connect 3 0 4 1;
+#X connect 4 0 2 1;
+#X connect 9 0 14 0;
+#X connect 10 0 2 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 14 0 1 0;
+#X connect 14 0 12 0;
+#X connect 15 0 19 0;
+#X connect 15 0 17 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 19 0 14 1;
+#X restore 956 85 pd corrLen Calc;
+#X obj 956 62 r~ \$0-myRey;
+#X obj 956 109 s~ \$0-myCor;
+#X obj 117 240 r~ \$0-myCor;
+#X obj 326 570 hip~;
+#X obj 90 442 r~ \$0-myCor;
+#X obj 636 81 max 0.01;
+#X obj 636 104 min 0.99;
+#N canvas 125 74 950 728 Dipoles 0;
+#X obj 225 154 r~ \$0-liftDiGain;
+#X obj 495 160 r~ \$0-liftDiGain;
+#X obj 495 182 *~ 0.6;
+#X obj 381 91 *~ 3;
+#X obj 468 490 r~ \$0-dragDiGain;
+#X obj 354 400 *~ 2;
+#X obj 210 175 *~;
+#X obj 210 316 throw~ l;
+#X obj 237 293 throw~ r;
+#X obj 210 108 vcf~ 3;
+#X obj 237 249 r \$0-thisPan;
+#X obj 210 67 r~ \$0-thisNoise;
+#X obj 480 202 *~;
+#X obj 480 341 throw~ l;
+#X obj 507 318 throw~ r;
+#X obj 480 116 vcf~ 3;
+#X obj 507 275 r \$0-thisPan;
+#X obj 480 68 r~ \$0-thisNoise;
+#X obj 453 511 *~;
+#X obj 453 647 throw~ l;
+#X obj 480 624 throw~ r;
+#X obj 453 447 vcf~ 3;
+#X obj 480 581 r \$0-thisPan;
+#X obj 453 403 r~ \$0-thisNoise;
+#X text 273 27 Generates the sound associated with the lift dipole.
+;
+#X text 312 370 Generates the sound associated with the drag dipole.
+;
+#X obj 270 87 r \$0-Qval;
+#X obj 530 92 r \$0-Qval;
+#X obj 498 425 r \$0-Qval;
+#X floatatom 277 122 5 0 0 0 - - -;
+#X obj 210 134 vcf~ 3;
+#X obj 480 138 vcf~ 3;
+#X obj 453 468 vcf~ 3;
+#X obj 55 12 inlet~;
+#X obj 55 32 s~ \$0-myAeoFreq;
+#X obj 109 67 r~ \$0-myAeoFreq;
+#X obj 381 67 r~ \$0-myAeoFreq;
+#X obj 353 402 r~ \$0-myAeoFreq;
+#X obj 210 272 fcpan;
+#X obj 480 297 fcpan;
+#X obj 453 603 fcpan;
+#X obj 210 199 spigot~;
+#X obj 480 227 spigot~;
+#X obj 453 535 spigot~;
+#X obj 673 48 inlet;
+#X text 60 485 Generate sounds associated with the Aeolian tone. Higher
+harmonics have been removed compares to AES paper. This is because
+they have such a small contribution in comparison to lower harmonics
+and the FM spectrum during lock-in;
+#X obj 210 244 *~;
+#X obj 225 222 r~ \$0-reyGain;
+#X obj 480 270 *~;
+#X obj 495 248 r~ \$0-reyGain;
+#X obj 453 577 *~;
+#X obj 468 555 r~ \$0-reyGain;
+#X connect 0 0 6 1;
+#X connect 1 0 2 0;
+#X connect 2 0 12 1;
+#X connect 3 0 15 1;
+#X connect 3 0 31 1;
+#X connect 4 0 18 1;
+#X connect 5 0 21 1;
+#X connect 5 0 32 1;
+#X connect 6 0 41 0;
+#X connect 9 0 30 0;
+#X connect 10 0 38 1;
+#X connect 11 0 9 0;
+#X connect 12 0 42 0;
+#X connect 15 0 31 0;
+#X connect 16 0 39 1;
+#X connect 17 0 15 0;
+#X connect 18 0 43 0;
+#X connect 21 0 32 0;
+#X connect 22 0 40 1;
+#X connect 23 0 21 0;
+#X connect 26 0 9 2;
+#X connect 26 0 29 0;
+#X connect 26 0 30 2;
+#X connect 27 0 15 2;
+#X connect 27 0 31 2;
+#X connect 28 0 21 2;
+#X connect 28 0 32 2;
+#X connect 30 0 6 0;
+#X connect 31 0 12 0;
+#X connect 32 0 18 0;
+#X connect 33 0 34 0;
+#X connect 35 0 9 1;
+#X connect 35 0 30 1;
+#X connect 36 0 3 0;
+#X connect 37 0 5 0;
+#X connect 38 0 7 0;
+#X connect 38 1 8 0;
+#X connect 39 0 13 0;
+#X connect 39 1 14 0;
+#X connect 40 0 19 0;
+#X connect 40 1 20 0;
+#X connect 41 0 46 0;
+#X connect 42 0 48 0;
+#X connect 43 0 50 0;
+#X connect 44 0 42 1;
+#X connect 44 0 41 1;
+#X connect 44 0 43 1;
+#X connect 46 0 38 0;
+#X connect 47 0 46 1;
+#X connect 48 0 39 0;
+#X connect 49 0 48 1;
+#X connect 50 0 40 0;
+#X connect 51 0 50 1;
+#X restore 474 688 pd Dipoles;
+#X obj 1088 69 noise~;
+#X obj 1088 92 s~ \$0-thisNoise;
+#X obj 326 475 r~ \$0-thisNoise;
+#X text 346 367 the object and environment;
+#N canvas 308 58 1027 635 StBandwidth 0;
+#X obj 460 365 swap 1;
+#X obj 460 391 /;
+#X obj 460 342 / 100;
+#X obj 461 434 outlet;
+#X text 437 453 Q value;
+#X obj 531 -36 r~ \$0-myRey;
+#X obj 477 -36 r myMet;
+#X obj 477 -14 snapshot~;
+#X obj 203 164 spigot;
+#X obj 219 187 spigot;
+#X obj 236 140 > 0;
+#X obj 219 233 + 0.9797;
+#X obj 219 208 * 4.624e-05;
+#X obj 602 150 spigot;
+#X obj 618 173 spigot;
+#X obj 651 149 < 1e+06;
+#X obj 618 216 * 1.227e-10;
+#X obj 618 196 *;
+#X obj 690 215 * -8.553e-05;
+#X obj 618 261 + 16.5;
+#X obj 618 238 +;
+#X text -84 298 First section of the Reynolds number - DeltaF/F relationship
+is linear and did not appear to be reliant on current TU values;
+#X text 565 329 Third section of the Reynolds number - DeltaF/F relationship
+is linear and did not appear to be reliant on current TU values;
+#X text 114 -16 Middle section of Reynolds number - DeltaF/F relationship
+is also linear but depends on TU Value;
+#X obj 461 412 max 0.005;
+#X obj 635 126 > 193260;
+#X obj 252 163 < 193260;
+#X floatatom 653 40 0 0 0 0 - - -;
+#X floatatom 565 452 0 0 0 0 - - -;
+#X connect 0 0 1 0;
+#X connect 0 1 1 1;
+#X connect 1 0 24 0;
+#X connect 2 0 0 0;
+#X connect 5 0 7 0;
+#X connect 6 0 7 0;
+#X connect 7 0 15 0;
+#X connect 7 0 13 0;
+#X connect 7 0 10 0;
+#X connect 7 0 8 0;
+#X connect 7 0 25 0;
+#X connect 7 0 26 0;
+#X connect 7 0 27 0;
+#X connect 8 0 9 0;
+#X connect 9 0 12 0;
+#X connect 10 0 8 1;
+#X connect 11 0 2 0;
+#X connect 12 0 11 0;
+#X connect 13 0 14 0;
+#X connect 14 0 18 0;
+#X connect 14 0 17 1;
+#X connect 14 0 17 0;
+#X connect 15 0 14 1;
+#X connect 16 0 20 0;
+#X connect 17 0 16 0;
+#X connect 18 0 20 1;
+#X connect 19 0 2 0;
+#X connect 20 0 19 0;
+#X connect 24 0 3 0;
+#X connect 24 0 28 0;
+#X connect 25 0 13 1;
+#X connect 26 0 9 1;
+#X restore 1189 91 pd StBandwidth;
+#X obj 1189 114 s \$0-Qval;
+#X obj 412 518 r myMet;
+#X obj 402 539 snapshot~;
+#X text 780 18 Mass Density;
+#X text 720 16 Tension;
+#N canvas 389 23 542 808 NatFreq 0;
+#X obj 148 86 inlet;
+#X obj 109 367 inlet;
+#X text 137 62 Mass Density;
+#X text 55 366 Tension;
+#X obj 163 155 r \$0-diameter;
+#X floatatom 206 177 0 0 0 0 - - -;
+#X floatatom 51 416 0 0 0 0 - - -;
+#X floatatom 191 111 0 0 0 0 - - -;
+#X obj 163 511 r \$0-leng;
+#X text 121 669 Natural Frequency;
+#X text 74 717 Patch that calcultes the natural or fundamental frequency
+of a string in 1 dimension. Uses f = (1/2l) * sqrt(T/u) where u is
+the linear mass density.;
+#X obj 133 646 outlet~;
+#X msg 148 111 \$1 10;
+#X obj 148 133 line~;
+#X msg 163 179 \$1 10;
+#X obj 163 202 line~;
+#X obj 163 224 *~ 0.5;
+#X obj 163 249 *~;
+#X obj 163 271 *~ 3.14159;
+#X obj 148 352 *~;
+#X obj 133 440 /~;
+#X msg 109 389 \$1 10;
+#X obj 109 413 line~;
+#X obj 133 467 sqrt~;
+#X msg 163 533 \$1 10;
+#X obj 163 556 line~;
+#X obj 163 577 *~ 2;
+#X obj 149 489 sig~ 1;
+#X obj 149 597 /~;
+#X obj 133 621 *~;
+#X obj 67 624 r myMet;
+#X obj 67 647 snapshot~;
+#X floatatom 67 670 0 0 0 0 - - -;
+#X obj 189 374 r myMet;
+#X obj 189 397 snapshot~;
+#X floatatom 189 420 0 0 0 0 - - -;
+#X obj 303 31 r myMet;
+#X obj 303 54 snapshot~;
+#X floatatom 303 77 0 0 0 0 - - -;
+#X obj 207 597 r myMet;
+#X obj 207 620 snapshot~;
+#X floatatom 207 643 0 0 0 0 - - -;
+#X obj 365 29 r myMet;
+#X obj 365 52 snapshot~;
+#X floatatom 365 75 0 0 0 0 - - -;
+#X text 187 441 Linear Density;
+#X obj 234 224 *~ 0.5;
+#X obj 234 249 *~;
+#X obj 234 271 *~ 3.14159;
+#X obj 234 202 sig~ 0.0266;
+#X obj 234 305 -~;
+#X obj 260 305 r myMet;
+#X obj 260 328 snapshot~;
+#X floatatom 260 351 0 0 0 0 - - -;
+#X floatatom 205 532 0 0 0 0 - - -;
+#X obj 273 423 s~ 0$-linden;
+#X connect 0 0 7 0;
+#X connect 0 0 12 0;
+#X connect 1 0 6 0;
+#X connect 1 0 21 0;
+#X connect 4 0 5 0;
+#X connect 4 0 14 0;
+#X connect 8 0 24 0;
+#X connect 8 0 54 0;
+#X connect 12 0 13 0;
+#X connect 13 0 19 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 16 0 17 1;
+#X connect 17 0 18 0;
+#X connect 18 0 19 1;
+#X connect 19 0 20 1;
+#X connect 19 0 34 0;
+#X connect 19 0 55 0;
+#X connect 20 0 23 0;
+#X connect 21 0 22 0;
+#X connect 22 0 20 0;
+#X connect 23 0 29 0;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 26 0 28 1;
+#X connect 27 0 28 0;
+#X connect 28 0 29 1;
+#X connect 28 0 40 0;
+#X connect 29 0 11 0;
+#X connect 29 0 31 0;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X connect 33 0 34 0;
+#X connect 34 0 35 0;
+#X connect 36 0 37 0;
+#X connect 37 0 38 0;
+#X connect 39 0 40 0;
+#X connect 40 0 41 0;
+#X connect 42 0 43 0;
+#X connect 43 0 44 0;
+#X connect 46 0 47 0;
+#X connect 46 0 47 1;
+#X connect 47 0 48 0;
+#X connect 48 0 50 1;
+#X connect 49 0 46 0;
+#X connect 50 0 52 0;
+#X connect 51 0 52 0;
+#X connect 52 0 53 0;
+#X restore 746 96 pd NatFreq;
+#X obj 746 118 s~ \$0-thisNatF;
+#X obj 849 90 r myMet;
+#X obj 849 111 snapshot~;
+#X floatatom 849 132 0 0 0 0 - - -;
+#N canvas 541 215 891 445 toneCalc 0;
+#X obj 101 -1 inlet~;
+#X obj 144 40 inlet;
+#X obj 102 228 outlet~;
+#X obj 161 230 outlet~;
+#X obj 228 232 outlet~;
+#X obj 101 59 *~ 1;
+#X obj 101 134 newStrou;
+#X obj 101 163 *~;
+#X obj 101 191 /~ 1;
+#X text 161 252 Strouhal No;
+#X text 281 235 Reynolds No;
+#X obj 101 23 *~ 67679.6;
+#X text 210 22 Cosolidation of 2pi \, air density and viscosity in
+equations identified in original AES paper - Aeolian tone.;
+#X text 43 252 Strouhal Frequency;
+#X obj 101 94 clip~ 40 1e+06;
+#X text 210 109 Reynolds number clipped at lower limit of 40 to prevent
+Strouhal number decreasing to negative numbers - due to relationship
+identified in Fey paper.;
+#X connect 0 0 7 1;
+#X connect 0 0 11 0;
+#X connect 1 0 5 1;
+#X connect 1 0 8 1;
+#X connect 5 0 4 0;
+#X connect 5 0 14 0;
+#X connect 6 0 7 0;
+#X connect 6 0 3 0;
+#X connect 7 0 8 0;
+#X connect 8 0 2 0;
+#X connect 11 0 5 0;
+#X connect 14 0 6 0;
+#X restore 348 206 pd toneCalc;
+#X obj 411 186 r \$0-diameter;
+#X obj 311 620 fcpan;
+#X obj 1176 674 outlet;
+#X obj 870 747 outlet;
+#X obj 744 180 r~ \$0-myFreq;
+#X obj 759 200 r~ \$0-thisNatF;
+#X obj 744 220 /~;
+#X obj 769 220 r myMet;
+#X obj 744 240 snapshot~;
+#X obj 744 260 + 0.5;
+#X obj 744 300 i;
+#X obj 1083 672 outlet;
+#N canvas 333 355 537 467 modulation 0;
+#X obj 171 17 r~ \$0-thisNatF;
+#X floatatom 316 237 0 0 0 0 - - -;
+#X obj 171 246 osc~;
+#X obj 171 271 *~;
+#X obj 282 186 hsl 150 35 1 100 1 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X obj 206 247 line~;
+#X obj 171 295 outlet~;
+#X obj 206 178 r mod;
+#X text 100 346 Calculates the modulation frequency from the difference
+between the shedding and natural frequency - Van Atta paper.;
+#X obj 186 111 line~;
+#X obj 171 134 *~;
+#X floatatom 215 204 0 0 0 0 - - -;
+#X obj 121 246 outlet~;
+#X text 25 209 Difference frequency;
+#X obj 171 217 -~;
+#X obj 186 155 inlet~;
+#X obj 186 37 inlet;
+#X obj 186 62 + 1;
+#X floatatom 227 86 0 0 0 0 - - -;
+#X msg 206 226 \$1 30;
+#X msg 186 85 \$1 40;
+#X text 241 124 Nearest Upper Harmonic;
+#X connect 0 0 10 0;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 4 0 1 0;
+#X connect 4 0 19 0;
+#X connect 5 0 3 1;
+#X connect 7 0 19 0;
+#X connect 7 0 11 0;
+#X connect 9 0 10 1;
+#X connect 10 0 14 0;
+#X connect 14 0 2 0;
+#X connect 14 0 12 0;
+#X connect 15 0 14 1;
+#X connect 16 0 17 0;
+#X connect 17 0 20 0;
+#X connect 17 0 18 0;
+#X connect 19 0 5 0;
+#X connect 20 0 9 0;
+#X restore 964 440 pd modulation;
+#X obj 727 407 r~ \$0-myFreq;
+#X floatatom 817 321 0 0 0 0 - - -;
+#X obj 675 510 outlet~;
+#X obj 734 427 outlet~;
+#N canvas 0 375 852 514 AeolianFreq 0;
+#X obj 558 63 > 1;
+#X obj 126 -69 inlet~;
+#X obj 445 169 spigot~;
+#X obj 558 236 outlet~;
+#X floatatom 558 88 0 0 0 0 - - -;
+#X obj 197 -69 inlet~;
+#X obj 460 117 *~;
+#X obj 445 147 +~;
+#X obj 657 168 spigot~;
+#X obj 672 115 *~;
+#X obj 657 145 -~;
+#X obj 475 88 -~;
+#X obj 687 88 -~;
+#X obj 126 -46 s~ \$0-AeoF;
+#X obj 445 5 r~ \$0-AeoF;
+#X obj 490 67 r~ \$0-AeoF;
+#X obj 657 3 r~ \$0-AeoF;
+#X obj 687 44 r~ \$0-AeoF;
+#X obj 197 -46 s~ \$0-NatF;
+#X obj 702 65 r~ \$0-NatF;
+#X obj 475 47 r~ \$0-NatF;
+#X obj 218 262 s~ \$0-flipVal;
+#X obj 460 26 r~ \$0-flipVal;
+#X obj 672 24 r~ \$0-flipVal;
+#X obj 558 213 +~;
+#X obj 584 265 r myMet;
+#X obj 584 288 snapshot~;
+#X floatatom 584 309 0 0 0 0 - - -;
+#X obj 683 318 outlet;
+#X obj 582 21 r myMet;
+#X obj 558 40 snapshot~;
+#X floatatom 583 62 0 0 0 0 - - -;
+#X obj 558 20 /~;
+#X obj 558 -21 r~ \$0-AeoF;
+#X obj 573 -1 r~ \$0-NatF;
+#X obj 262 32 inlet~;
+#X obj 120 175 -~ 1;
+#X obj 136 22 sig~ 1;
+#X obj 150 108 exp~;
+#X obj 120 154 /~;
+#X obj 135 129 +~;
+#X obj 120 195 *~ -1;
+#X obj 247 81 sig~ 1;
+#X obj 262 167 exp~;
+#X obj 232 213 /~;
+#X obj 247 188 +~;
+#X obj 217 236 *~;
+#X obj 150 62 -~ 0.83;
+#X obj 262 123 -~ 1.24;
+#X obj 150 84 *~ 100;
+#X obj 262 144 *~ 100;
+#X text 361 199 f(s)[n]+β(f(eta)[n]−f(s)[n]);
+#X text 655 204 f(s)[n]-β(f(s)[n]−f(eta)[n]);
+#X text 36 291 Calculates the value of β from the Red Velocity V;
+#X text 229 371 Patch that calculates the vortex shedding frequency
+from the values of the Strouhal Frequency \, Harmonic of the natural
+vibration frequency and the reduced velocity.;
+#X obj 344 -25 r myMet;
+#X obj 344 -2 snapshot~;
+#X floatatom 344 19 0 0 0 0 - - -;
+#X obj 373 251 r myMet;
+#X obj 373 274 snapshot~;
+#X floatatom 373 295 0 0 0 0 - - -;
+#X connect 0 0 2 1;
+#X connect 0 0 4 0;
+#X connect 0 0 8 1;
+#X connect 1 0 13 0;
+#X connect 2 0 24 0;
+#X connect 5 0 18 0;
+#X connect 5 0 56 0;
+#X connect 6 0 7 1;
+#X connect 7 0 2 0;
+#X connect 8 1 24 1;
+#X connect 9 0 10 1;
+#X connect 10 0 8 0;
+#X connect 11 0 6 1;
+#X connect 12 0 9 1;
+#X connect 14 0 7 0;
+#X connect 15 0 11 1;
+#X connect 16 0 10 0;
+#X connect 17 0 12 0;
+#X connect 19 0 12 1;
+#X connect 20 0 11 0;
+#X connect 22 0 6 0;
+#X connect 23 0 9 0;
+#X connect 24 0 3 0;
+#X connect 24 0 26 0;
+#X connect 25 0 26 0;
+#X connect 26 0 27 0;
+#X connect 26 0 28 0;
+#X connect 29 0 30 0;
+#X connect 30 0 31 0;
+#X connect 30 0 0 0;
+#X connect 32 0 30 0;
+#X connect 33 0 32 0;
+#X connect 34 0 32 1;
+#X connect 35 0 48 0;
+#X connect 35 0 47 0;
+#X connect 36 0 41 0;
+#X connect 37 0 39 0;
+#X connect 37 0 40 0;
+#X connect 38 0 40 1;
+#X connect 39 0 36 0;
+#X connect 40 0 39 1;
+#X connect 41 0 46 0;
+#X connect 42 0 44 0;
+#X connect 42 0 45 0;
+#X connect 43 0 45 1;
+#X connect 44 0 46 1;
+#X connect 45 0 44 1;
+#X connect 46 0 21 0;
+#X connect 46 0 59 0;
+#X connect 47 0 49 0;
+#X connect 48 0 50 0;
+#X connect 49 0 38 0;
+#X connect 50 0 43 0;
+#X connect 55 0 56 0;
+#X connect 56 0 57 0;
+#X connect 58 0 59 0;
+#X connect 59 0 60 0;
+#X restore 727 486 pd AeolianFreq;
+#X obj 1289 75 inlet;
+#X obj 816 61 s \$0-mass;
+#X obj 1178 718 outlet~;
+#X obj 1085 718 outlet~;
+#X obj 902 134 outlet;
+#X obj 1113 131 inlet;
+#X obj 744 280 max 1;
+#X obj 57 62 r myMet;
+#X obj 57 85 snapshot~;
+#X floatatom 57 109 0 0 0 0 - - -;
+#X text 1255 58 Damping Parameter;
+#X obj 1043 47 r~ \$0-AdVal;
+#X obj 975 269 s~ \$0-redVel;
+#X obj 1178 698 r~ \$0-redVel;
+#X obj 998 249 s~ \$0-lockFreq;
+#X obj 767 447 r~ \$0-lockFreq;
+#X obj 1085 697 r~ \$0-lockFreq;
+#X obj 744 354 s \$0-harmNo;
+#X obj 1083 651 r \$0-harmNo;
+#X obj 953 207 r \$0-harmNo;
+#X obj 1289 96 s \$0-dampPar;
+#X obj 1113 154 s \$0-onOff;
+#X obj 1254 464 r \$0-onOff;
+#X obj 531 667 r \$0-onOff;
+#X obj 1039 460 s~ \$0-modFreq;
+#X obj 1232 422 r~ \$0-modFreq;
+#X obj 964 480 s~ \$0-diffFreq;
+#X obj 1243 442 r~ \$0-diffFreq;
+#X floatatom 755 58 0 0 0 0 - - -;
+#X floatatom 847 41 0 0 0 0 - - -;
+#X floatatom 1284 118 0 0 0 0 - - -;
+#X floatatom 1150 130 0 0 0 0 - - -;
+#X floatatom 913 747 0 0 0 0 - - -;
+#X obj 953 289 s \$0-redVelCo;
+#N canvas 561 291 400 432 VCalc 0;
+#X obj 202 126 r~ \$0-thisNatF;
+#X obj 178 41 r \$0-diameter;
+#X obj 178 83 line~;
+#X obj 178 105 *~ 6.28319;
+#X obj 163 20 r~ \$0-windSpeed;
+#X obj 163 270 /~;
+#X obj 163 302 outlet~;
+#X obj 163 158 /~;
+#X obj 202 281 outlet~;
+#X obj 54 289 r myMet;
+#X obj 54 312 snapshot~;
+#X floatatom 97 334 0 0 0 0 - - -;
+#X obj 54 335 outlet;
+#X obj 217 146 inlet;
+#X obj 217 189 line~;
+#X obj 202 244 *~;
+#X msg 178 61 \$1 20;
+#X text 37 89 V = u/(2pi.f.d);
+#X text 254 149 Harmonic Number;
+#X msg 217 168 \$1 40;
+#X text 38 373 Patch that calculates the Reduced Velocity \, V.;
+#X connect 0 0 15 0;
+#X connect 1 0 16 0;
+#X connect 2 0 3 0;
+#X connect 3 0 7 1;
+#X connect 4 0 7 0;
+#X connect 5 0 6 0;
+#X connect 5 0 10 0;
+#X connect 7 0 5 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 10 0 12 0;
+#X connect 13 0 19 0;
+#X connect 14 0 15 1;
+#X connect 15 0 5 1;
+#X connect 15 0 8 0;
+#X connect 16 0 2 0;
+#X connect 19 0 14 0;
+#X restore 953 228 pd VCalc;
+#N canvas 40 37 1392 752 SimpHyst 0;
+#X obj 289 250 sig~ 1;
+#X obj 304 336 exp~;
+#X obj 274 382 /~;
+#X obj 289 357 +~;
+#X obj 121 338 -~ 1;
+#X obj 121 358 *~ -1;
+#X obj 136 180 sig~ 1;
+#X obj 151 271 exp~;
+#X obj 121 317 /~;
+#X obj 136 292 +~;
+#X obj 194 432 *~;
+#X obj 121 381 spigot~;
+#X obj -7 99 r myMet;
+#X obj -7 120 snapshot~;
+#X floatatom -7 143 0 0 0 0 - - -;
+#X obj 72 644 outlet~;
+#N canvas 0 27 638 497 PlotWrt 0;
+#X obj 116 303 textfile;
+#X msg 330 202 clear \, rewind;
+#X msg 169 202 add \$1;
+#X msg 116 202 add2 \$1;
+#X obj 105 92 snapshot~;
+#X floatatom 119 129 0 0 0 0 - - -;
+#X obj 198 92 snapshot~;
+#X floatatom 250 119 0 0 0 0 - - -;
+#X obj 25 15 inlet~;
+#X obj 343 45 inlet~;
+#X obj 105 67 r myMet;
+#X obj 198 67 r myMet;
+#X msg 218 202 write hystTest3.txt;
+#X connect 1 0 0 0;
+#X connect 2 0 0 0;
+#X connect 3 0 0 0;
+#X connect 4 0 5 0;
+#X connect 4 0 3 0;
+#X connect 6 0 7 0;
+#X connect 6 0 2 0;
+#X connect 8 0 4 0;
+#X connect 9 0 6 0;
+#X connect 10 0 4 0;
+#X connect 11 0 6 0;
+#X connect 12 0 0 0;
+#X restore -6 583 pd PlotWrt;
+#X floatatom 103 460 0 0 0 0 - - -;
+#X floatatom 58 461 0 0 0 0 - - -;
+#N canvas 432 91 476 532 Hyst1 0;
+#X obj 184 20 inlet~;
+#X obj 309 66 snapshot~;
+#X obj 309 43 r myMet;
+#X floatatom 356 91 0 0 0 0 - - -;
+#X floatatom 149 135 0 0 0 0 - - -;
+#X floatatom 270 136 0 0 0 0 - - -;
+#X obj 184 69 snapshot~;
+#X obj 119 45 r myMet;
+#X floatatom 102 93 0 0 0 0 - - -;
+#X obj 184 46 delta~;
+#X obj 184 92 > 0;
+#X obj 235 91 < 0;
+#X obj 234 267 - 1;
+#X obj 234 287 * -1;
+#X floatatom 291 310 0 0 0 0 - - -;
+#N canvas 582 482 491 257 accDec 0;
+#X obj 91 77 r myMet;
+#X obj 224 20 inlet;
+#X obj 268 21 inlet;
+#X obj 91 98 spigot;
+#X msg 91 119 1;
+#X obj 153 78 r myMet;
+#X obj 153 99 spigot;
+#X msg 153 120 0;
+#X floatatom 91 141 0 0 0 0 - - -;
+#X obj 153 142 outlet;
+#X obj 298 72 r myMet;
+#X obj 298 93 spigot;
+#X msg 298 114 1;
+#X obj 360 73 r myMet;
+#X obj 360 94 spigot;
+#X msg 360 115 0;
+#X obj 360 137 outlet;
+#X floatatom 298 135 0 0 0 0 - - -;
+#X text 88 177 Identifies if the Reduced Velocity is increasing or
+decreasing.;
+#X connect 0 0 3 0;
+#X connect 1 0 6 1;
+#X connect 1 0 11 1;
+#X connect 2 0 3 1;
+#X connect 2 0 14 1;
+#X connect 3 0 4 0;
+#X connect 4 0 8 0;
+#X connect 4 0 9 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 7 0 9 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 12 0 16 0;
+#X connect 12 0 17 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 15 0 17 0;
+#X restore 184 113 pd accDec;
+#X obj 151 166 spigot;
+#X obj 202 162 spigot;
+#X obj 169 213 spigot;
+#X floatatom 136 282 0 0 0 0 - - -;
+#X obj 168 281 outlet;
+#X obj 234 311 outlet;
+#X obj 202 189 > 1.06;
+#X obj 169 244 < 0.9;
+#X text 52 371 This patch identifies which path of the hysteresis curve
+the reduced velocity is on. It keeps it locked into this path between
+the values of 0.9 and 1.06. Outwith these values both legs are approx
+the same.;
+#X text 67 -14 Goal - If output = 1 at any time then keep it at one
+until other input = 1;
+#X connect 0 0 9 0;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 1 0 16 0;
+#X connect 1 0 17 0;
+#X connect 2 0 1 0;
+#X connect 2 0 13 0;
+#X connect 2 0 23 0;
+#X connect 6 0 8 0;
+#X connect 6 0 10 0;
+#X connect 6 0 11 0;
+#X connect 7 0 6 0;
+#X connect 9 0 6 0;
+#X connect 10 0 15 0;
+#X connect 11 0 15 1;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 13 0 21 0;
+#X connect 15 0 4 0;
+#X connect 15 0 16 1;
+#X connect 15 1 5 0;
+#X connect 15 1 17 1;
+#X connect 16 0 18 0;
+#X connect 17 0 22 0;
+#X connect 18 0 23 0;
+#X connect 22 0 18 1;
+#X connect 23 0 19 0;
+#X connect 23 0 12 0;
+#X connect 23 0 20 0;
+#X restore 58 439 pd Hyst1;
+#X obj 11 246 sig~ 1;
+#X obj 26 332 exp~;
+#X obj -4 378 /~;
+#X obj 11 353 +~;
+#X obj -153 333 -~ 1;
+#X obj -137 180 sig~ 1;
+#X obj -123 266 exp~;
+#X obj -153 312 /~;
+#X obj -138 287 +~;
+#X obj -19 435 *~;
+#X obj -50 177 sig~ 1;
+#X obj -35 264 exp~;
+#X obj -65 310 /~;
+#X obj -50 285 +~;
+#X obj -65 355 +~ 1;
+#X obj -65 378 spigot~;
+#X obj -41 408 +~;
+#X obj 72 495 +~;
+#X msg 614 64 \$1 20;
+#X obj 617 43 hsl 128 15 0.01 10 1 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X floatatom 658 68 0 0 0 0 - - -;
+#X obj 621 13 line;
+#X obj -19 458 spigot~;
+#X obj -65 333 *~ 0.2;
+#X obj 291 96 r myMet;
+#X obj 291 117 snapshot~;
+#X floatatom 291 138 0 0 0 0 - - -;
+#X obj 209 382 spigot~;
+#X obj 209 338 -~ 1;
+#X obj 209 358 *~ -1;
+#X obj 224 186 sig~ 1;
+#X obj 239 271 exp~;
+#X obj 209 317 /~;
+#X obj 224 292 +~;
+#X obj 194 409 +~;
+#X floatatom 270 160 0 0 0 0 - - -;
+#X obj 304 291 -~ 1.2;
+#X obj 26 288 -~ 1.2;
+#X obj 614 86 line~;
+#X obj 871 -5 inlet;
+#X obj 26 309 *~ 50;
+#X obj 304 313 *~ 50;
+#X obj 814 202 inlet;
+#X obj -35 219 -~ 1.02;
+#X obj -123 220 -~ 0.92;
+#X obj -123 242 *~ 33;
+#X obj -153 353 *~ -1.3;
+#X obj -35 241 *~ 200;
+#X obj 239 248 *~ 33;
+#X msg 566 -22 1.6;
+#X obj 151 248 *~ 200;
+#X msg 520 -24 0.4;
+#X obj 799 112 r \$0-mass;
+#X obj 799 135 / 1.225;
+#X msg 799 158 \$1 20;
+#X obj 799 177 line~;
+#X text 853 139 m* = rho_m / rho_f;
+#X floatatom 874 264 0 0 0 0 - - -;
+#X obj 829 245 t f b;
+#X obj 194 454 spigot~;
+#X obj 814 268 *;
+#X obj 635 363 r~ \$0-myRey;
+#X obj 587 363 r myMet;
+#X obj 587 386 snapshot~;
+#X floatatom 630 409 0 0 0 0 - - -;
+#X obj 548 431 spigot~;
+#X obj 443 430 spigot~;
+#X obj 563 250 r~ \$0-myRey;
+#X obj 563 293 pow~ 0.36;
+#X obj 614 271 sig~ 0.36;
+#X obj 563 314 *~ 0.41;
+#X obj 563 334 log~ 10;
+#X obj 613 313 sig~ 10;
+#X obj 814 308 line~;
+#X obj 799 331 *~;
+#X obj 799 371 s~ \$0-myApl;
+#X obj 458 281 r~ \$0-myApl;
+#X obj 458 347 *~;
+#X obj 458 303 *~ -1.29;
+#X obj 443 408 *~ 0.63;
+#X obj 443 262 sig~ 1;
+#X obj 443 324 +~;
+#X obj 473 324 r~ \$0-myApl;
+#X obj 443 386 +~;
+#X obj 563 118 r~ \$0-myApl;
+#X obj 563 184 *~;
+#X obj 548 99 sig~ 1;
+#X obj 548 161 +~;
+#X obj 578 161 r~ \$0-myApl;
+#X obj 548 228 +~;
+#X obj 563 140 *~ -1.12;
+#X obj 563 205 *~ 0.3;
+#X obj 458 367 *~ 0.59;
+#X obj 548 356 *~;
+#X obj 72 516 /~ 1.2;
+#X obj 482 458 +~;
+#X obj 239 227 -~ 0.9;
+#X obj 248 138 < 0.86;
+#X obj 151 226 -~ 0.89;
+#X obj -64 142 >= 0.995;
+#X floatatom 925 219 0 0 0 0 - - -;
+#X text 128 643 A/d;
+#X text -198 62 Sigmoid functions replicating the inital branch of
+the hysteresis curve.;
+#X text 151 60 Sigmoid functions replicating the lower branch of the
+hysteresis curve.;
+#X text 681 23 Test objects;
+#X obj -153 374 spigot~;
+#X text -303 477 By time decent kicks in the other sigmoids will be
+= 1 therefore the multiplication of the decending sigmoid rather than
+adding.;
+#X text 855 199 Damping input;
+#X text 864 286 Harmonic number;
+#X text -117 521 Normalises the Hysteresis plot;
+#X obj -171 17 s~ \$0-thisV;
+#X obj -30 80 r~ \$0-thisV;
+#X obj -123 199 r~ \$0-thisV;
+#X obj -35 197 r~ \$0-thisV;
+#X obj 26 266 r~ \$0-thisV;
+#X obj 58 403 r~ \$0-thisV;
+#X obj -6 560 r~ \$0-thisV;
+#X obj 151 203 r~ \$0-thisV;
+#X obj 270 76 r~ \$0-thisV;
+#X obj 238 205 r~ \$0-thisV;
+#X obj 304 269 r~ \$0-thisV;
+#X text 424 241 Low Re route;
+#X text 468 125 High Re route;
+#X text 715 422 Clipped to match the range given in Govardhan paper
+as well as to stop the value exploding after 1.5;
+#X obj 587 409 <= 500;
+#X msg 622 -11 1.6 30000;
+#X msg 695 0 0.4 30000;
+#X obj -171 -5 inlet~;
+#X obj 72 560 clip~ 0 2;
+#X obj 799 352 clip~ 0 1.5;
+#X obj 72 538 *~;
+#X obj 871 17 s \$0-thisHarm;
+#X obj 829 224 r \$0-thisHarm;
+#X msg 814 289 \$1 40;
+#X obj 72 581 snapshot~;
+#X obj 164 562 r myMet;
+#X obj 72 622 vline~;
+#X msg 72 601 \$1 50;
+#X text 124 607 Smoothing;
+#X text 234 594 This patch takes the Reduced Velocity V value \, (\$0-thisV)
+and calculates the corresponding value of maximum vibration \, A/d.
+;
+#X text 493 491 Calculates Amax;
+#X msg 37 37;
+#X connect 0 0 2 0;
+#X connect 0 0 3 0;
+#X connect 1 0 3 1;
+#X connect 2 0 10 1;
+#X connect 3 0 2 1;
+#X connect 4 0 5 0;
+#X connect 5 0 11 0;
+#X connect 6 0 8 0;
+#X connect 6 0 9 0;
+#X connect 7 0 9 1;
+#X connect 8 0 4 0;
+#X connect 9 0 8 1;
+#X connect 10 0 79 0;
+#X connect 11 0 54 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 13 0 119 0;
+#X connect 19 0 18 0;
+#X connect 19 0 42 1;
+#X connect 19 1 17 0;
+#X connect 19 1 79 1;
+#X connect 20 0 22 0;
+#X connect 20 0 23 0;
+#X connect 21 0 23 1;
+#X connect 22 0 29 1;
+#X connect 23 0 22 1;
+#X connect 24 0 66 0;
+#X connect 25 0 27 0;
+#X connect 25 0 28 0;
+#X connect 26 0 28 1;
+#X connect 27 0 24 0;
+#X connect 28 0 27 1;
+#X connect 29 0 42 0;
+#X connect 30 0 32 0;
+#X connect 30 0 33 0;
+#X connect 31 0 33 1;
+#X connect 32 0 43 0;
+#X connect 33 0 32 1;
+#X connect 34 0 35 0;
+#X connect 35 1 36 1;
+#X connect 36 0 29 0;
+#X connect 37 0 114 0;
+#X connect 38 0 58 0;
+#X connect 39 0 38 0;
+#X connect 39 0 40 0;
+#X connect 41 0 39 0;
+#X connect 42 1 37 0;
+#X connect 43 0 34 0;
+#X connect 44 0 45 0;
+#X connect 45 0 46 0;
+#X connect 45 0 117 0;
+#X connect 47 1 54 1;
+#X connect 48 0 49 0;
+#X connect 49 0 47 0;
+#X connect 50 0 52 0;
+#X connect 50 0 53 0;
+#X connect 51 0 53 1;
+#X connect 52 0 48 0;
+#X connect 53 0 52 1;
+#X connect 54 0 10 0;
+#X connect 56 0 61 0;
+#X connect 57 0 60 0;
+#X connect 59 0 151 0;
+#X connect 60 0 21 0;
+#X connect 61 0 1 0;
+#X connect 62 0 80 0;
+#X connect 62 0 120 0;
+#X connect 63 0 67 0;
+#X connect 64 0 65 0;
+#X connect 65 0 26 0;
+#X connect 66 0 125 0;
+#X connect 67 0 31 0;
+#X connect 68 0 51 0;
+#X connect 69 0 41 0;
+#X connect 70 0 7 0;
+#X connect 71 0 41 0;
+#X connect 72 0 73 0;
+#X connect 73 0 74 0;
+#X connect 74 0 75 0;
+#X connect 75 0 94 0;
+#X connect 78 0 80 1;
+#X connect 78 1 80 0;
+#X connect 79 1 37 1;
+#X connect 80 0 153 0;
+#X connect 81 0 83 0;
+#X connect 82 0 83 0;
+#X connect 83 0 84 0;
+#X connect 83 0 144 0;
+#X connect 85 0 115 1;
+#X connect 86 1 115 0;
+#X connect 87 0 88 0;
+#X connect 88 0 90 0;
+#X connect 89 0 88 1;
+#X connect 90 0 91 0;
+#X connect 91 0 113 1;
+#X connect 92 0 91 1;
+#X connect 93 0 94 1;
+#X connect 94 0 149 0;
+#X connect 96 0 98 0;
+#X connect 97 0 112 0;
+#X connect 98 0 101 1;
+#X connect 99 0 86 0;
+#X connect 100 0 101 0;
+#X connect 101 0 103 0;
+#X connect 102 0 97 0;
+#X connect 102 0 97 1;
+#X connect 103 0 99 0;
+#X connect 104 0 110 0;
+#X connect 105 0 111 0;
+#X connect 106 0 107 0;
+#X connect 107 0 109 0;
+#X connect 108 0 105 0;
+#X connect 108 0 105 1;
+#X connect 109 0 113 0;
+#X connect 110 0 107 1;
+#X connect 111 0 109 1;
+#X connect 112 0 103 1;
+#X connect 113 0 85 0;
+#X connect 114 0 150 0;
+#X connect 115 0 150 1;
+#X connect 116 0 68 0;
+#X connect 117 0 11 1;
+#X connect 117 0 47 1;
+#X connect 117 0 55 0;
+#X connect 118 0 70 0;
+#X connect 119 0 35 1;
+#X connect 119 0 125 1;
+#X connect 125 0 36 0;
+#X connect 131 0 13 0;
+#X connect 132 0 64 0;
+#X connect 133 0 63 0;
+#X connect 134 0 57 0;
+#X connect 135 0 19 0;
+#X connect 136 0 16 0;
+#X connect 137 0 118 0;
+#X connect 138 0 45 0;
+#X connect 139 0 116 0;
+#X connect 140 0 56 0;
+#X connect 144 0 85 1;
+#X connect 144 0 86 1;
+#X connect 145 0 41 0;
+#X connect 146 0 41 0;
+#X connect 147 0 130 0;
+#X connect 148 0 16 1;
+#X connect 148 0 154 0;
+#X connect 149 0 95 0;
+#X connect 150 0 148 0;
+#X connect 152 0 78 0;
+#X connect 152 0 77 0;
+#X connect 153 0 93 0;
+#X connect 154 0 157 0;
+#X connect 155 0 154 0;
+#X connect 156 0 15 0;
+#X connect 157 0 156 0;
+#X restore 1161 268 pd SimpHyst;
+#X obj 1161 207 r~ \$0-redVel;
+#X obj 1192 227 r \$0-dampPar;
+#X obj 1224 246 r \$0-harmNo;
+#X obj 1161 288 s~ \$0-AdVal;
+#X obj 1265 484 r~ \$0-AdVal;
+#N canvas 361 196 756 527 FMout 0;
+#X obj 170 -2 inlet~;
+#X obj -67 61 osc~;
+#X obj -67 384 throw~ l;
+#X obj -56 363 throw~ r;
+#X obj -67 -10 inlet~;
+#X obj -52 15 inlet~;
+#X obj -67 343 spigot~;
+#X obj -67 37 +~;
+#X obj -48 188 osc~;
+#X obj -67 232 +~;
+#X obj -3 118 r mod;
+#X obj -48 95 inlet~;
+#X obj -33 118 osc~;
+#X obj -33 142 *~ 1;
+#X obj -48 164 +~;
+#X text -40 31 Modulation frequency;
+#X text 81 -24 A/d - max vibration;
+#X text -46 80 Difference frequency;
+#X obj 170 20 s~ \$0-myAd;
+#X obj -52 251 r~ \$0-myAd;
+#X text -191 -32 Fv \, vortex shedding freq;
+#X obj 1 320 inlet;
+#X text 35 322 on/off;
+#X obj -67 321 *~ 5e-05;
+#X obj -67 273 *~;
+#X text -329 265 Vibration value as calculated in SimpHyst;
+#X text -399 56 High Frequency FM Spectrum around the vortex shedding
+frequency;
+#X text -405 204 Low Frequency spectrum around the difference frequency
+;
+#X text -432 328 Gain value to strike a balance between the FM spectrums
+and the output from the dipoles due to the Aeolian Tone;
+#X text -235 449 Patch that calculates the full FM spectrum and scales
+it according to the vibration amount A as well as a ratio to the Aeolian
+tone dipoles.;
+#X text 6 376 Send signal to the DAC;
+#X text 11 203 LF Spectrum is at lower level that HF one;
+#X obj -48 208 *~ 0.1;
+#X obj -67 300 *~;
+#X obj -36 274 r~ \$0-reyGain;
+#X connect 0 0 18 0;
+#X connect 1 0 9 0;
+#X connect 4 0 7 0;
+#X connect 5 0 7 1;
+#X connect 6 0 2 0;
+#X connect 6 0 3 0;
+#X connect 7 0 1 0;
+#X connect 8 0 32 0;
+#X connect 9 0 24 0;
+#X connect 10 0 13 1;
+#X connect 11 0 14 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 1;
+#X connect 14 0 8 0;
+#X connect 19 0 24 1;
+#X connect 21 0 6 1;
+#X connect 23 0 6 0;
+#X connect 24 0 33 0;
+#X connect 32 0 9 1;
+#X connect 33 0 23 0;
+#X connect 34 0 33 1;
+#X restore 1221 504 pd FMout;
+#X obj 727 526 s~ \$0-vorFreq;
+#X obj 474 647 r~ \$0-vorFreq;
+#X obj 1221 401 r~ \$0-vorFreq;
+#X obj 1039 419 r~ \$0-vorFreq;
+#X obj 1176 650 r \$0-vorFreq;
+#X obj 808 506 s \$0-vorFreq;
+#X text 773 299 Calcs Harmonic No;
+#X obj 906 622 r \$0-harmNo;
+#X obj 885 602 r~ \$0-thisNatF;
+#X obj 885 643 *~ 1;
+#X obj 870 582 r~ \$0-vorFreq;
+#X obj 870 663 /~;
+#X obj 921 685 r myMet;
+#X obj 870 705 snapshot~;
+#X obj 870 725 == 1;
+#X obj 870 684 spigot~;
+#X obj 909 663 r \$0-onOff;
+#X obj 1257 684 r myMet;
+#X obj 1257 704 snapshot~;
+#X floatatom 1257 725 0 0 0 0 - - -;
+#X obj 964 419 r \$0-harmNo;
+#X obj 402 498 r~ \$0-vorFreq;
+#X floatatom 692 302 0 0 0 0 - - -;
+#X floatatom 782 260 0 0 0 0 - - -;
+#X obj 808 467 r~ \$0-redVel;
+#X obj 249 204 r myMet;
+#X obj 249 227 snapshot~;
+#X floatatom 249 251 0 0 0 0 - - -;
+#X obj 535 210 r myMet;
+#X obj 535 233 snapshot~;
+#X floatatom 535 257 0 0 0 0 - - -;
+#X obj 552 469 -~ 1;
+#X obj 568 316 sig~ 1;
+#X obj 582 402 exp~;
+#X obj 552 448 /~;
+#X obj 567 423 +~;
+#X obj 552 489 *~ -1;
+#X obj 582 337 r~ \$0-myRey;
+#X obj 610 552 r myMet;
+#X obj 610 575 snapshot~;
+#X floatatom 610 599 0 0 0 0 - - -;
+#X obj 552 511 s~ \$0-reyGain;
+#X obj 582 378 *~ 0.5;
+#X obj 582 356 -~ 43;
+#X msg 882 21 2432.2;
+#X msg 678 22 36.81;
+#X msg 237 14 0.0005;
+#X msg 389 22 20;
+#X msg 468 12 90;
+#X msg 323 19 0.61;
+#X obj 43 35 s myMet;
+#X obj 43 14 metro 30;
+#X obj 13 8 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X msg 1235 32 0.006;
+#X obj 120 65 line~;
+#X obj 130 119 /~ 343;
+#X obj 202 140 s~ MY_MACH;
+#N canvas 0 23 782 533 PlotWrt2 1;
+#X obj 232 325 textfile;
+#X msg 563 220 clear \, rewind;
+#X msg -7 121 add \$1;
+#X msg 241 157 add2 \$1;
+#X obj 243 91 snapshot~;
+#X floatatom 257 128 0 0 0 0 - - -;
+#X obj -7 89 snapshot~;
+#X floatatom 45 116 0 0 0 0 - - -;
+#X obj 198 65 inlet~;
+#X obj 43 63 inlet~;
+#X obj 243 66 r myMet;
+#X obj -7 64 r myMet;
+#X msg 346 154 add2 \$1;
+#X obj 348 88 snapshot~;
+#X floatatom 362 125 0 0 0 0 - - -;
+#X obj 303 62 inlet~;
+#X obj 348 63 r myMet;
+#X msg 139 156 add2 \$1;
+#X obj 141 90 snapshot~;
+#X floatatom 155 127 0 0 0 0 - - -;
+#X obj 96 64 inlet~;
+#X obj 141 65 r myMet;
+#X msg 457 152 add2 \$1;
+#X obj 459 86 snapshot~;
+#X floatatom 473 123 0 0 0 0 - - -;
+#X obj 414 60 inlet~;
+#X obj 459 61 r myMet;
+#X msg 561 189 write lockinTest130417D2.txt;
+#X connect 1 0 0 0;
+#X connect 2 0 0 0;
+#X connect 3 0 0 0;
+#X connect 4 0 5 0;
+#X connect 4 0 3 0;
+#X connect 6 0 7 0;
+#X connect 6 0 2 0;
+#X connect 8 0 4 0;
+#X connect 9 0 6 0;
+#X connect 10 0 4 0;
+#X connect 11 0 6 0;
+#X connect 12 0 0 0;
+#X connect 13 0 14 0;
+#X connect 13 0 12 0;
+#X connect 15 0 13 0;
+#X connect 16 0 13 0;
+#X connect 17 0 0 0;
+#X connect 18 0 19 0;
+#X connect 18 0 17 0;
+#X connect 20 0 18 0;
+#X connect 21 0 18 0;
+#X connect 22 0 0 0;
+#X connect 23 0 24 0;
+#X connect 23 0 22 0;
+#X connect 25 0 23 0;
+#X connect 26 0 23 0;
+#X connect 27 0 0 0;
+#X restore 1014 625 pd PlotWrt2;
+#X obj 263 288 r myMet;
+#X obj 263 311 snapshot~;
+#X floatatom 263 335 0 0 0 0 - - -;
+#N canvas 561 291 400 432 VCalc1 0;
+#X obj 202 126 r~ \$0-thisNatF;
+#X obj 178 41 r \$0-diameter;
+#X obj 178 83 line~;
+#X obj 178 105 *~ 6.28319;
+#X obj 163 20 r~ \$0-windSpeed;
+#X obj 163 270 /~;
+#X obj 163 302 outlet~;
+#X obj 163 158 /~;
+#X obj 202 281 outlet~;
+#X obj 54 289 r myMet;
+#X obj 54 312 snapshot~;
+#X floatatom 97 334 0 0 0 0 - - -;
+#X obj 54 335 outlet;
+#X obj 217 146 inlet;
+#X obj 217 189 line~;
+#X obj 202 244 *~;
+#X msg 178 61 \$1 20;
+#X text 37 89 V = u/(2pi.f.d);
+#X text 254 149 Harmonic Number;
+#X msg 217 168 \$1 40;
+#X text 38 373 Patch that calculates the Reduced Velocity \, V.;
+#X connect 0 0 15 0;
+#X connect 1 0 16 0;
+#X connect 2 0 3 0;
+#X connect 3 0 7 1;
+#X connect 4 0 7 0;
+#X connect 5 0 6 0;
+#X connect 5 0 10 0;
+#X connect 7 0 5 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 10 0 12 0;
+#X connect 13 0 19 0;
+#X connect 14 0 15 1;
+#X connect 15 0 5 1;
+#X connect 15 0 8 0;
+#X connect 16 0 2 0;
+#X connect 19 0 14 0;
+#X restore 880 242 pd VCalc1;
+#X msg 183 26 3.6;
+#X msg 122 27 4.8 6000;
+#X msg 881 218 6;
+#X msg 119 8 6 6000;
+#X msg 180 7 2;
+#X connect 0 0 4 0;
+#X connect 0 0 31 0;
+#X connect 3 0 18 0;
+#X connect 3 0 35 0;
+#X connect 6 0 89 0;
+#X connect 8 0 91 0;
+#X connect 10 0 71 0;
+#X connect 14 0 57 1;
+#X connect 15 0 57 4;
+#X connect 16 0 19 0;
+#X connect 16 0 59 0;
+#X connect 17 0 20 0;
+#X connect 17 0 60 0;
+#X connect 28 0 29 0;
+#X connect 28 0 34 0;
+#X connect 38 0 57 0;
+#X connect 39 0 57 3;
+#X connect 40 0 57 5;
+#X connect 44 0 8 0;
+#X connect 45 0 91 1;
+#X connect 46 0 84 1;
+#X connect 46 0 109 0;
+#X connect 46 0 137 0;
+#X connect 47 0 84 0;
+#X connect 47 0 136 0;
+#X connect 49 0 69 0;
+#X connect 50 0 49 0;
+#X connect 51 0 56 1;
+#X connect 52 0 56 3;
+#X connect 53 0 56 0;
+#X connect 54 0 56 2;
+#X connect 55 0 56 5;
+#X connect 56 0 37 0;
+#X connect 56 1 36 0;
+#X connect 57 0 41 0;
+#X connect 61 0 56 6;
+#X connect 62 0 56 7;
+#X connect 63 0 57 7;
+#X connect 64 0 57 6;
+#X connect 65 0 67 0;
+#X connect 66 0 65 0;
+#X connect 68 0 56 4;
+#X connect 69 0 8 1;
+#X connect 70 0 57 2;
+#X connect 71 0 72 0;
+#X connect 72 0 11 0;
+#X connect 72 0 43 0;
+#X connect 74 0 75 0;
+#X connect 76 0 50 0;
+#X connect 78 0 79 0;
+#X connect 80 0 81 0;
+#X connect 81 0 49 1;
+#X connect 81 0 69 1;
+#X connect 84 0 85 0;
+#X connect 84 0 87 0;
+#X connect 86 0 87 0;
+#X connect 87 0 88 0;
+#X connect 87 0 112 0;
+#X connect 89 0 7 0;
+#X connect 89 0 176 0;
+#X connect 89 0 207 3;
+#X connect 89 1 42 0;
+#X connect 89 1 209 0;
+#X connect 89 2 9 0;
+#X connect 89 2 179 0;
+#X connect 90 0 89 1;
+#X connect 91 0 32 0;
+#X connect 91 1 33 0;
+#X connect 94 0 96 0;
+#X connect 95 0 96 1;
+#X connect 96 0 98 0;
+#X connect 97 0 98 0;
+#X connect 98 0 99 0;
+#X connect 98 0 173 0;
+#X connect 99 0 114 0;
+#X connect 100 0 104 0;
+#X connect 102 0 134 0;
+#X connect 102 1 132 0;
+#X connect 103 0 107 0;
+#X connect 103 0 106 0;
+#X connect 107 0 105 0;
+#X connect 107 0 150 0;
+#X connect 107 1 155 0;
+#X connect 108 0 128 0;
+#X connect 108 0 138 0;
+#X connect 113 0 129 0;
+#X connect 113 0 139 0;
+#X connect 114 0 100 0;
+#X connect 114 0 172 0;
+#X connect 115 0 116 0;
+#X connect 116 0 117 0;
+#X connect 119 0 65 1;
+#X connect 121 0 110 0;
+#X connect 121 0 168 0;
+#X connect 123 0 107 1;
+#X connect 124 0 111 0;
+#X connect 126 0 101 0;
+#X connect 127 0 142 0;
+#X connect 130 0 149 3;
+#X connect 131 0 73 1;
+#X connect 133 0 149 1;
+#X connect 135 0 149 2;
+#X connect 142 0 141 0;
+#X connect 142 1 120 0;
+#X connect 142 1 207 0;
+#X connect 142 2 122 0;
+#X connect 143 0 147 0;
+#X connect 144 0 143 0;
+#X connect 145 0 143 1;
+#X connect 146 0 143 2;
+#X connect 148 0 149 4;
+#X connect 151 0 73 0;
+#X connect 152 0 149 0;
+#X connect 153 0 102 1;
+#X connect 154 0 92 0;
+#X connect 157 0 159 1;
+#X connect 158 0 159 0;
+#X connect 159 0 161 1;
+#X connect 159 0 207 1;
+#X connect 160 0 161 0;
+#X connect 160 0 207 2;
+#X connect 161 0 165 0;
+#X connect 162 0 163 0;
+#X connect 163 0 164 0;
+#X connect 164 0 93 0;
+#X connect 164 0 140 0;
+#X connect 165 0 163 0;
+#X connect 166 0 165 1;
+#X connect 167 0 168 0;
+#X connect 168 0 169 0;
+#X connect 170 0 102 0;
+#X connect 171 0 81 0;
+#X connect 174 0 107 2;
+#X connect 175 0 176 0;
+#X connect 176 0 177 0;
+#X connect 178 0 179 0;
+#X connect 179 0 180 0;
+#X connect 181 0 186 0;
+#X connect 182 0 184 0;
+#X connect 182 0 185 0;
+#X connect 183 0 185 1;
+#X connect 184 0 181 0;
+#X connect 185 0 184 1;
+#X connect 186 0 189 0;
+#X connect 186 0 191 0;
+#X connect 187 0 193 0;
+#X connect 188 0 189 0;
+#X connect 189 0 190 0;
+#X connect 192 0 183 0;
+#X connect 193 0 192 0;
+#X connect 194 0 84 1;
+#X connect 195 0 84 0;
+#X connect 196 0 4 0;
+#X connect 197 0 35 0;
+#X connect 198 0 59 0;
+#X connect 199 0 34 0;
+#X connect 201 0 200 0;
+#X connect 202 0 201 0;
+#X connect 203 0 128 0;
+#X connect 204 0 5 0;
+#X connect 204 0 116 0;
+#X connect 204 0 205 0;
+#X connect 204 0 207 4;
+#X connect 205 0 206 0;
+#X connect 208 0 209 0;
+#X connect 209 0 210 0;
+#X connect 212 0 204 0;
+#X connect 213 0 204 0;
+#X connect 214 0 211 0;
+#X connect 214 0 125 0;
+#X connect 215 0 204 0;
+#X connect 216 0 204 0;
--- a/MechAeolian/harpD2.pd	Fri Apr 07 22:39:12 2017 +0100
+++ b/MechAeolian/harpD2.pd	Mon Apr 24 20:32:21 2017 +0100
@@ -26,12 +26,12 @@
 #X connect 7 0 3 1;
 #X restore -194 242 pd opLevels;
 #X obj -191 213 hsl 100 25 0.01 1e+20 1 0 empty empty empty -2 -8 0
-10 -262144 -1 -1 3700 1;
+10 -262144 -1 -1 2700 1;
 #X obj -194 142 r GAIN;
 #X floatatom -251 243 8 0 0 0 - - -;
 #X obj -85 74 delwrite~ varwind 3000;
 #X obj 24 -18 hsl 128 15 0 100 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 577 1;
+-1 -1 330 1;
 #X obj -85 26 *~ 1;
 #X obj -85 48 +~ 1;
 #X obj -85 -76 loadbang;
@@ -68,7 +68,7 @@
 #X obj -158 -13 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X obj 218 -20 hsl 300 35 1 10000 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 14217 1;
+-262144 -1 -1 15260 1;
 #X obj 254 38 s mod;
 #X obj 105 233 r rand2;
 #X obj -242 524 r rand2;
@@ -144,7 +144,7 @@
 #X connect 27 0 0 0;
 #X restore 184 437 pd PlotWrt;
 #X obj -82 -52 hsl 50 30 0 1 0 0 empty empty Gusts 2 8 0 10 -261995
--1 -4032 445 1;
+-1 -4032 0 1;
 #X obj -17 -21 t f b;
 #X obj -18 -43 * 0.75;
 #X floatatom 146 459 0 0 0 0 - - -;
@@ -193,17 +193,17 @@
 #X obj 184 1320 r rand3;
 #X obj 485 1323 r rand3;
 #X obj 639 -8 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10 0
-10 -204800 -1 -1 4655 1;
+10 -204800 -1 -1 3355 1;
 #X obj 639 14 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 1898 1;
+-1 -1 1798 1;
 #X obj 639 36 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1835 1;
+-262130 -1 -1 1435 1;
 #X obj 639 58 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
--1 -1 2786 1;
+-1 -1 1086 1;
 #X obj 639 80 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0 10
--261234 -1 -1 4380 1;
+-261234 -1 -1 3540 1;
 #X obj 637 -45 tgl 35 0 empty empty empty 17 7 0 40 -228856 -257985
--257985 0 1;
+-257985 1 1;
 #X floatatom 715 123 0 0 0 0 - - -;
 #X floatatom 715 144 0 0 0 0 - - -;
 #X floatatom 703 -6 0 0 0 0 - - -;
@@ -216,21 +216,21 @@
 #X text 636 123 Current Freq;
 #X text 613 143 Current Harmonic;
 #X obj 1630 242 hsl 100 35 0.01 1e+20 1 0 empty empty Gain 3 16 0 10
--228856 -1 -1 3700 1;
+-228856 -1 -1 2700 1;
 #X obj 1657 286 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
 #X obj 1720 286 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
 #X obj 1630 205 hsl 100 35 1 500 0 0 empty empty Modulation_Index 3
-16 0 10 -203904 -1 -1 1563 1;
+16 0 10 -203904 -1 -1 2163 1;
 #X floatatom 1733 215 0 0 0 0 - - -;
 #X floatatom 1733 250 0 0 0 0 - - -;
 #X obj 798 -10 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10 0
-10 -204800 -1 -1 4255 1;
+10 -204800 -1 -1 3933 1;
 #X obj 798 12 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 5898 1;
+-1 -1 2655 1;
 #X obj 798 34 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1318 1;
+-262130 -1 -1 590 1;
 #X obj 798 56 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
--1 -1 1032 1;
+-1 -1 1770 1;
 #X obj 798 78 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0 10
 -261234 -1 -1 1180 1;
 #X floatatom 874 121 0 0 0 0 - - -;
@@ -245,13 +245,13 @@
 #X text 795 121 Current Freq;
 #X text 772 141 Current Harmonic;
 #X obj 962 -9 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10 0
-10 -204800 -1 -1 4255 1;
+10 -204800 -1 -1 3933 1;
 #X obj 962 13 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 5298 1;
+-1 -1 2655 1;
 #X obj 962 35 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1121 1;
+-262130 -1 -1 590 1;
 #X obj 962 57 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
--1 -1 1003 1;
+-1 -1 2884 1;
 #X obj 962 79 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0 10
 -261234 -1 -1 1180 1;
 #X floatatom 1038 122 0 0 0 0 - - -;
@@ -266,13 +266,13 @@
 #X text 959 122 Current Freq;
 #X text 936 142 Current Harmonic;
 #X obj 1130 -8 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10 0
-10 -204800 -1 -1 3355 1;
+10 -204800 -1 -1 3933 1;
 #X obj 1130 14 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 1798 1;
+-1 -1 2655 1;
 #X obj 1130 36 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1447 1;
+-262130 -1 -1 590 1;
 #X obj 1130 58 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
--1 -1 973 1;
+-1 -1 2773 1;
 #X obj 1130 80 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0
 10 -261234 -1 -1 1180 1;
 #X floatatom 1206 123 0 0 0 0 - - -;
@@ -287,13 +287,13 @@
 #X text 1127 123 Current Freq;
 #X text 1104 143 Current Harmonic;
 #X obj 1308 -8 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10 0
-10 -204800 -1 -1 3355 1;
+10 -204800 -1 -1 4089 1;
 #X obj 1308 14 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 1798 1;
+-1 -1 2655 1;
 #X obj 1308 36 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1318 1;
+-262130 -1 -1 590 1;
 #X obj 1308 58 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
--1 -1 1121 1;
+-1 -1 1770 1;
 #X obj 1308 80 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0
 10 -261234 -1 -1 1180 1;
 #X floatatom 1384 123 0 0 0 0 - - -;
@@ -308,13 +308,13 @@
 #X text 1305 123 Current Freq;
 #X text 1282 143 Current Harmonic;
 #X obj 1493 -7 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10 0
-10 -204800 -1 -1 3355 1;
+10 -204800 -1 -1 4089 1;
 #X obj 1493 15 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 1798 1;
+-1 -1 2655 1;
 #X obj 1493 37 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1397 1;
+-262130 -1 -1 590 1;
 #X obj 1493 59 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
--1 -1 1091 1;
+-1 -1 2884 1;
 #X obj 1493 81 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0
 10 -261234 -1 -1 1180 1;
 #X floatatom 1569 124 0 0 0 0 - - -;
@@ -329,13 +329,13 @@
 #X text 1490 124 Current Freq;
 #X text 1467 144 Current Harmonic;
 #X obj 1667 -8 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10 0
-10 -204800 -1 -1 3355 1;
+10 -204800 -1 -1 4089 1;
 #X obj 1667 14 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 1798 1;
+-1 -1 2655 1;
 #X obj 1667 36 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1447 1;
+-262130 -1 -1 590 1;
 #X obj 1667 58 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
--1 -1 1062 1;
+-1 -1 2773 1;
 #X obj 1667 80 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0
 10 -261234 -1 -1 1180 1;
 #X floatatom 1743 123 0 0 0 0 - - -;
@@ -350,13 +350,13 @@
 #X text 1664 123 Current Freq;
 #X text 1641 143 Current Harmonic;
 #X obj 637 236 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10 0
-10 -204800 -1 -1 3355 1;
+10 -204800 -1 -1 3933 1;
 #X obj 637 258 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 1798 1;
+-1 -1 2655 1;
 #X obj 637 280 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1447 1;
+-262130 -1 -1 590 1;
 #X obj 637 302 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
--1 -1 1086 1;
+-1 -1 1829 1;
 #X obj 637 324 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0
 10 -261234 -1 -1 1180 1;
 #X floatatom 713 367 0 0 0 0 - - -;
@@ -371,13 +371,13 @@
 #X text 634 367 Current Freq;
 #X text 611 387 Current Harmonic;
 #X obj 795 236 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10 0
-10 -204800 -1 -1 3355 1;
+10 -204800 -1 -1 3933 1;
 #X obj 795 258 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 1798 1;
+-1 -1 2655 1;
 #X obj 795 280 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1259 1;
+-262130 -1 -1 590 1;
 #X obj 795 302 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
--1 -1 1593 1;
+-1 -1 2301 1;
 #X obj 795 324 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0
 10 -261234 -1 -1 1180 1;
 #X floatatom 871 367 0 0 0 0 - - -;
@@ -392,13 +392,13 @@
 #X text 792 367 Current Freq;
 #X text 769 387 Current Harmonic;
 #X obj 965 236 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10 0
-10 -204800 -1 -1 3355 1;
+10 -204800 -1 -1 3933 1;
 #X obj 965 258 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 1798 1;
+-1 -1 2655 1;
 #X obj 965 280 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1384 1;
+-262130 -1 -1 590 1;
 #X obj 965 302 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
--1 -1 1593 1;
+-1 -1 1888 1;
 #X obj 965 324 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0
 10 -261234 -1 -1 1180 1;
 #X floatatom 1041 367 0 0 0 0 - - -;
@@ -413,11 +413,11 @@
 #X text 962 367 Current Freq;
 #X text 939 387 Current Harmonic;
 #X obj 1129 240 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10
-0 10 -204800 -1 -1 3355 1;
+0 10 -204800 -1 -1 4015 1;
 #X obj 1129 262 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 1798 1;
+-1 -1 2655 1;
 #X obj 1129 284 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1500 1;
+-262130 -1 -1 590 1;
 #X obj 1129 306 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
 -1 -1 1593 1;
 #X obj 1129 328 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0
@@ -434,11 +434,11 @@
 #X text 1126 371 Current Freq;
 #X text 1103 391 Current Harmonic;
 #X obj 1306 239 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10
-0 10 -204800 -1 -1 3355 1;
+0 10 -204800 -1 -1 3843 1;
 #X obj 1306 261 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 1798 1;
+-1 -1 2655 1;
 #X obj 1306 283 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1568 1;
+-262130 -1 -1 590 1;
 #X obj 1306 305 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
 -1 -1 1563 1;
 #X obj 1306 327 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0
@@ -455,13 +455,13 @@
 #X text 1303 370 Current Freq;
 #X text 1280 390 Current Harmonic;
 #X obj 1486 237 hsl 60 20 1e-05 0.01 1 0 empty empty Diameter 3 10
-0 10 -204800 -1 -1 3355 1;
+0 10 -204800 -1 -1 4015 1;
 #X obj 1486 259 hsl 60 20 0 2 0 0 empty empty Length 3 10 0 10 -204786
--1 -1 1798 1;
+-1 -1 2655 1;
 #X obj 1486 281 hsl 60 20 0 10000 0 0 empty empty Mass_Den 3 10 0 10
--262130 -1 -1 1384 1;
+-262130 -1 -1 590 1;
 #X obj 1486 303 hsl 60 20 0 200 0 0 empty empty Tension 3 10 0 10 -261682
--1 -1 1622 1;
+-1 -1 1976 1;
 #X obj 1486 325 hsl 60 20 1e-06 0.01 0 0 empty empty Damping 3 10 0
 10 -261234 -1 -1 1180 1;
 #X floatatom 1562 368 0 0 0 0 - - -;
@@ -488,9 +488,9 @@
 #X obj 1753 675 s rand2;
 #X obj 1772 658 s rand3;
 #X obj 1632 465 hsl 100 35 0 1 0 0 empty empty Gusts 3 16 0 10 -191407
--1 -13330 900 1;
+-1 -13330 0 1;
 #X obj 1632 502 hsl 100 35 0.1 100 1 0 empty empty Wind_Speed 3 16
-0 10 -232576 -1 -1 5469 1;
+0 10 -232576 -1 -1 4669 1;
 #X obj 673 -45 bng 35 250 50 0 empty empty empty 1 16 0 10 -260097
 -1 -1;
 #X obj 711 -43 tgl 15 0 empty empty empty 17 7 0 10 -262144 -4034 -4034
@@ -1916,7 +1916,6 @@
 #X obj 691 1498 r pack13;
 #X msg 215 -41 110;
 #X msg -185 188 10000;
-#X msg 74 211 2.6 0.000508 0.6096 6 90 2432 36.81 20 0.002;
 #X msg 105 254 1.4 0.001 0.85 6 90 1000 36.81 20 0.002;
 #X msg 126 293 3 0.000308 0.7 6 90 1230 31 20 0.002;
 #X msg 142 331 0.9 0.0006096 0.65 6 90 6650 70.79 20 0.002;
@@ -1988,6 +1987,7 @@
 #X obj 241 1489 MA_Test3;
 #X obj 542 1496 MA_Test3;
 #X obj 359 650 MA_Test3;
+#X msg 74 211 2.6 0.000508 0.6096 6 90 2432 36.81 20 0.006;
 #X connect 3 0 597 0;
 #X connect 4 0 0 0;
 #X connect 4 0 118 0;
@@ -2011,21 +2011,21 @@
 #X connect 21 0 16 0;
 #X connect 22 0 10 1;
 #X connect 23 0 11 1;
-#X connect 25 0 601 0;
-#X connect 26 0 605 0;
-#X connect 27 0 609 0;
-#X connect 28 0 613 0;
+#X connect 25 0 600 0;
+#X connect 26 0 604 0;
+#X connect 27 0 608 0;
+#X connect 28 0 612 0;
 #X connect 29 0 24 0;
-#X connect 31 0 600 0;
-#X connect 32 0 604 0;
-#X connect 33 0 608 0;
-#X connect 34 0 612 0;
+#X connect 31 0 599 0;
+#X connect 32 0 603 0;
+#X connect 33 0 607 0;
+#X connect 34 0 611 0;
 #X connect 35 0 30 0;
 #X connect 36 0 37 0;
-#X connect 38 0 599 0;
-#X connect 39 0 603 0;
-#X connect 40 0 607 0;
-#X connect 41 0 611 0;
+#X connect 38 0 598 0;
+#X connect 39 0 602 0;
+#X connect 40 0 606 0;
+#X connect 41 0 610 0;
 #X connect 43 0 42 0;
 #X connect 45 0 596 0;
 #X connect 46 0 48 0;
@@ -2040,47 +2040,47 @@
 #X connect 54 1 22 0;
 #X connect 55 0 54 0;
 #X connect 57 0 47 0;
-#X connect 58 0 617 0;
-#X connect 59 0 621 0;
-#X connect 60 0 625 0;
-#X connect 61 0 616 0;
-#X connect 62 0 620 0;
-#X connect 63 0 624 0;
-#X connect 64 0 615 0;
-#X connect 65 0 619 0;
-#X connect 66 0 623 0;
-#X connect 67 0 637 0;
-#X connect 68 0 630 0;
-#X connect 69 0 629 0;
-#X connect 70 0 636 0;
-#X connect 71 0 631 0;
-#X connect 72 0 628 0;
-#X connect 73 0 635 0;
-#X connect 74 0 632 0;
-#X connect 75 0 627 0;
-#X connect 76 0 641 0;
-#X connect 77 0 645 0;
-#X connect 78 0 649 0;
-#X connect 79 0 640 0;
-#X connect 80 0 644 0;
-#X connect 81 0 648 0;
-#X connect 82 0 639 0;
-#X connect 83 0 643 0;
-#X connect 84 0 647 0;
+#X connect 58 0 616 0;
+#X connect 59 0 620 0;
+#X connect 60 0 624 0;
+#X connect 61 0 615 0;
+#X connect 62 0 619 0;
+#X connect 63 0 623 0;
+#X connect 64 0 614 0;
+#X connect 65 0 618 0;
+#X connect 66 0 622 0;
+#X connect 67 0 636 0;
+#X connect 68 0 629 0;
+#X connect 69 0 628 0;
+#X connect 70 0 635 0;
+#X connect 71 0 630 0;
+#X connect 72 0 627 0;
+#X connect 73 0 634 0;
+#X connect 74 0 631 0;
+#X connect 75 0 626 0;
+#X connect 76 0 640 0;
+#X connect 77 0 644 0;
+#X connect 78 0 648 0;
+#X connect 79 0 639 0;
+#X connect 80 0 643 0;
+#X connect 81 0 647 0;
+#X connect 82 0 638 0;
+#X connect 83 0 642 0;
+#X connect 84 0 646 0;
 #X connect 85 0 86 0;
-#X connect 87 0 598 0;
-#X connect 88 0 602 0;
-#X connect 89 0 606 0;
-#X connect 90 0 610 0;
-#X connect 91 0 614 0;
-#X connect 92 0 618 0;
-#X connect 93 0 622 0;
-#X connect 94 0 634 0;
-#X connect 95 0 633 0;
-#X connect 96 0 626 0;
-#X connect 97 0 638 0;
-#X connect 98 0 642 0;
-#X connect 99 0 646 0;
+#X connect 87 0 668 0;
+#X connect 88 0 601 0;
+#X connect 89 0 605 0;
+#X connect 90 0 609 0;
+#X connect 91 0 613 0;
+#X connect 92 0 617 0;
+#X connect 93 0 621 0;
+#X connect 94 0 633 0;
+#X connect 95 0 632 0;
+#X connect 96 0 625 0;
+#X connect 97 0 637 0;
+#X connect 98 0 641 0;
+#X connect 99 0 645 0;
 #X connect 100 0 108 0;
 #X connect 100 0 478 0;
 #X connect 101 0 109 0;
@@ -2379,7 +2379,7 @@
 #X connect 474 0 473 0;
 #X connect 476 0 504 0;
 #X connect 478 0 477 0;
-#X connect 479 0 657 1;
+#X connect 479 0 656 1;
 #X connect 480 0 481 0;
 #X connect 482 0 483 0;
 #X connect 483 0 105 0;
@@ -2393,14 +2393,14 @@
 #X connect 487 3 129 0;
 #X connect 488 0 487 0;
 #X connect 489 0 490 0;
-#X connect 491 0 659 1;
+#X connect 491 0 658 1;
 #X connect 492 0 337 0;
 #X connect 492 1 151 0;
 #X connect 492 2 144 0;
 #X connect 492 3 145 0;
 #X connect 493 0 495 0;
 #X connect 494 0 492 0;
-#X connect 496 0 656 1;
+#X connect 496 0 655 1;
 #X connect 497 0 498 0;
 #X connect 499 0 475 0;
 #X connect 503 0 53 0;
@@ -2424,13 +2424,13 @@
 #X connect 519 0 521 0;
 #X connect 520 0 518 0;
 #X connect 522 0 523 0;
-#X connect 524 0 668 1;
+#X connect 524 0 667 1;
 #X connect 525 0 526 0;
 #X connect 527 0 529 0;
 #X connect 528 0 530 0;
-#X connect 531 0 658 1;
-#X connect 532 0 661 1;
-#X connect 533 0 660 1;
+#X connect 531 0 657 1;
+#X connect 532 0 660 1;
+#X connect 533 0 659 1;
 #X connect 534 0 349 0;
 #X connect 534 1 183 0;
 #X connect 534 2 176 0;
@@ -2495,183 +2495,183 @@
 #X connect 581 0 587 0;
 #X connect 582 0 588 0;
 #X connect 583 0 589 0;
-#X connect 590 0 662 1;
-#X connect 591 0 663 1;
-#X connect 592 0 664 1;
-#X connect 593 0 665 1;
-#X connect 594 0 666 1;
-#X connect 595 0 667 1;
+#X connect 590 0 661 1;
+#X connect 591 0 662 1;
+#X connect 592 0 663 1;
+#X connect 593 0 664 1;
+#X connect 594 0 665 1;
+#X connect 595 0 666 1;
 #X connect 596 0 36 0;
 #X connect 596 0 120 0;
 #X connect 597 0 5 0;
 #X connect 597 0 117 0;
 #X connect 598 0 444 0;
-#X connect 598 0 657 0;
+#X connect 598 0 656 0;
 #X connect 599 0 444 0;
-#X connect 599 0 657 0;
+#X connect 599 0 656 0;
 #X connect 600 0 444 0;
-#X connect 600 0 657 0;
-#X connect 601 0 444 0;
-#X connect 601 0 657 0;
+#X connect 600 0 656 0;
+#X connect 601 0 441 0;
+#X connect 601 0 658 0;
 #X connect 602 0 441 0;
-#X connect 602 0 659 0;
+#X connect 602 0 658 0;
 #X connect 603 0 441 0;
-#X connect 603 0 659 0;
+#X connect 603 0 658 0;
 #X connect 604 0 441 0;
-#X connect 604 0 659 0;
-#X connect 605 0 441 0;
-#X connect 605 0 659 0;
+#X connect 604 0 658 0;
+#X connect 605 0 445 0;
+#X connect 605 0 655 0;
 #X connect 606 0 445 0;
-#X connect 606 0 656 0;
+#X connect 606 0 655 0;
 #X connect 607 0 445 0;
-#X connect 607 0 656 0;
+#X connect 607 0 655 0;
 #X connect 608 0 445 0;
-#X connect 608 0 656 0;
-#X connect 609 0 445 0;
-#X connect 609 0 656 0;
+#X connect 608 0 655 0;
+#X connect 609 0 446 0;
+#X connect 609 0 667 0;
 #X connect 610 0 446 0;
-#X connect 610 0 668 0;
+#X connect 610 0 667 0;
 #X connect 611 0 446 0;
-#X connect 611 0 668 0;
+#X connect 611 0 667 0;
 #X connect 612 0 446 0;
-#X connect 612 0 668 0;
-#X connect 613 0 446 0;
-#X connect 613 0 668 0;
+#X connect 612 0 667 0;
+#X connect 613 0 447 0;
+#X connect 613 0 657 0;
 #X connect 614 0 447 0;
-#X connect 614 0 658 0;
+#X connect 614 0 657 0;
 #X connect 615 0 447 0;
-#X connect 615 0 658 0;
+#X connect 615 0 657 0;
 #X connect 616 0 447 0;
-#X connect 616 0 658 0;
-#X connect 617 0 447 0;
-#X connect 617 0 658 0;
+#X connect 616 0 657 0;
+#X connect 617 0 448 0;
+#X connect 617 0 659 0;
 #X connect 618 0 448 0;
-#X connect 618 0 660 0;
+#X connect 618 0 659 0;
 #X connect 619 0 448 0;
-#X connect 619 0 660 0;
+#X connect 619 0 659 0;
 #X connect 620 0 448 0;
-#X connect 620 0 660 0;
-#X connect 621 0 448 0;
+#X connect 620 0 659 0;
+#X connect 621 0 449 0;
 #X connect 621 0 660 0;
 #X connect 622 0 449 0;
-#X connect 622 0 661 0;
+#X connect 622 0 660 0;
 #X connect 623 0 449 0;
-#X connect 623 0 661 0;
+#X connect 623 0 660 0;
 #X connect 624 0 449 0;
-#X connect 624 0 661 0;
-#X connect 625 0 449 0;
-#X connect 625 0 661 0;
+#X connect 624 0 660 0;
+#X connect 625 0 452 0;
+#X connect 625 0 663 0;
 #X connect 626 0 452 0;
-#X connect 626 0 664 0;
+#X connect 626 0 663 0;
 #X connect 627 0 452 0;
-#X connect 627 0 664 0;
+#X connect 627 0 663 0;
 #X connect 628 0 452 0;
-#X connect 628 0 664 0;
-#X connect 629 0 452 0;
-#X connect 629 0 664 0;
+#X connect 628 0 663 0;
+#X connect 629 0 451 0;
+#X connect 629 0 662 0;
 #X connect 630 0 451 0;
-#X connect 630 0 663 0;
+#X connect 630 0 662 0;
 #X connect 631 0 451 0;
-#X connect 631 0 663 0;
+#X connect 631 0 662 0;
 #X connect 632 0 451 0;
-#X connect 632 0 663 0;
-#X connect 633 0 451 0;
-#X connect 633 0 663 0;
+#X connect 632 0 662 0;
+#X connect 633 0 450 0;
+#X connect 633 0 661 0;
 #X connect 634 0 450 0;
-#X connect 634 0 662 0;
+#X connect 634 0 661 0;
 #X connect 635 0 450 0;
-#X connect 635 0 662 0;
+#X connect 635 0 661 0;
 #X connect 636 0 450 0;
-#X connect 636 0 662 0;
-#X connect 637 0 450 0;
-#X connect 637 0 662 0;
+#X connect 636 0 661 0;
+#X connect 637 0 453 0;
+#X connect 637 0 664 0;
 #X connect 638 0 453 0;
-#X connect 638 0 665 0;
+#X connect 638 0 664 0;
 #X connect 639 0 453 0;
-#X connect 639 0 665 0;
+#X connect 639 0 664 0;
 #X connect 640 0 453 0;
-#X connect 640 0 665 0;
-#X connect 641 0 453 0;
+#X connect 640 0 664 0;
+#X connect 641 0 454 0;
 #X connect 641 0 665 0;
 #X connect 642 0 454 0;
-#X connect 642 0 666 0;
+#X connect 642 0 665 0;
 #X connect 643 0 454 0;
-#X connect 643 0 666 0;
+#X connect 643 0 665 0;
 #X connect 644 0 454 0;
-#X connect 644 0 666 0;
-#X connect 645 0 454 0;
+#X connect 644 0 665 0;
+#X connect 645 0 455 0;
 #X connect 645 0 666 0;
 #X connect 646 0 455 0;
-#X connect 646 0 667 0;
+#X connect 646 0 666 0;
 #X connect 647 0 455 0;
-#X connect 647 0 667 0;
+#X connect 647 0 666 0;
 #X connect 648 0 455 0;
-#X connect 648 0 667 0;
-#X connect 649 0 455 0;
-#X connect 649 0 667 0;
-#X connect 650 0 476 0;
-#X connect 651 0 652 0;
+#X connect 648 0 666 0;
+#X connect 649 0 476 0;
+#X connect 650 0 651 0;
+#X connect 652 0 47 0;
 #X connect 653 0 47 0;
 #X connect 654 0 47 0;
-#X connect 655 0 47 0;
-#X connect 656 0 497 0;
-#X connect 656 1 497 3;
-#X connect 656 4 497 1;
-#X connect 656 5 497 2;
-#X connect 657 0 44 0;
-#X connect 657 0 480 0;
-#X connect 657 1 480 3;
-#X connect 657 2 52 1;
-#X connect 657 3 52 2;
-#X connect 657 4 484 0;
-#X connect 657 4 480 1;
-#X connect 657 5 56 0;
-#X connect 657 5 480 2;
-#X connect 657 6 52 4;
-#X connect 657 7 52 3;
-#X connect 658 0 525 0;
-#X connect 658 1 525 3;
-#X connect 658 4 525 1;
-#X connect 658 5 525 2;
-#X connect 659 0 485 0;
-#X connect 659 1 485 3;
-#X connect 659 4 485 1;
-#X connect 659 5 485 2;
-#X connect 659 5 500 0;
-#X connect 660 0 527 0;
-#X connect 660 1 527 3;
-#X connect 660 4 527 1;
-#X connect 660 5 527 2;
-#X connect 661 0 528 0;
-#X connect 661 1 528 3;
-#X connect 661 4 528 1;
-#X connect 661 5 528 2;
-#X connect 662 0 578 0;
-#X connect 662 1 578 3;
-#X connect 662 4 578 1;
-#X connect 662 5 578 2;
-#X connect 663 0 579 0;
-#X connect 663 1 579 3;
-#X connect 663 4 579 1;
-#X connect 663 5 579 2;
-#X connect 664 0 580 0;
-#X connect 664 1 580 3;
-#X connect 664 4 580 1;
-#X connect 664 5 580 2;
-#X connect 665 0 581 0;
-#X connect 665 1 581 3;
-#X connect 665 4 581 1;
-#X connect 665 5 581 2;
-#X connect 666 0 582 0;
-#X connect 666 1 582 3;
-#X connect 666 4 582 1;
-#X connect 666 5 582 2;
-#X connect 667 0 583 0;
-#X connect 667 1 583 3;
-#X connect 667 4 583 1;
-#X connect 667 5 583 2;
-#X connect 668 0 522 0;
-#X connect 668 1 522 3;
-#X connect 668 4 522 1;
-#X connect 668 5 522 2;
+#X connect 655 0 497 0;
+#X connect 655 1 497 3;
+#X connect 655 4 497 1;
+#X connect 655 5 497 2;
+#X connect 656 0 44 0;
+#X connect 656 0 480 0;
+#X connect 656 1 480 3;
+#X connect 656 2 52 1;
+#X connect 656 3 52 2;
+#X connect 656 4 484 0;
+#X connect 656 4 480 1;
+#X connect 656 5 56 0;
+#X connect 656 5 480 2;
+#X connect 656 6 52 4;
+#X connect 656 7 52 3;
+#X connect 657 0 525 0;
+#X connect 657 1 525 3;
+#X connect 657 4 525 1;
+#X connect 657 5 525 2;
+#X connect 658 0 485 0;
+#X connect 658 1 485 3;
+#X connect 658 4 485 1;
+#X connect 658 5 485 2;
+#X connect 658 5 500 0;
+#X connect 659 0 527 0;
+#X connect 659 1 527 3;
+#X connect 659 4 527 1;
+#X connect 659 5 527 2;
+#X connect 660 0 528 0;
+#X connect 660 1 528 3;
+#X connect 660 4 528 1;
+#X connect 660 5 528 2;
+#X connect 661 0 578 0;
+#X connect 661 1 578 3;
+#X connect 661 4 578 1;
+#X connect 661 5 578 2;
+#X connect 662 0 579 0;
+#X connect 662 1 579 3;
+#X connect 662 4 579 1;
+#X connect 662 5 579 2;
+#X connect 663 0 580 0;
+#X connect 663 1 580 3;
+#X connect 663 4 580 1;
+#X connect 663 5 580 2;
+#X connect 664 0 581 0;
+#X connect 664 1 581 3;
+#X connect 664 4 581 1;
+#X connect 664 5 581 2;
+#X connect 665 0 582 0;
+#X connect 665 1 582 3;
+#X connect 665 4 582 1;
+#X connect 665 5 582 2;
+#X connect 666 0 583 0;
+#X connect 666 1 583 3;
+#X connect 666 4 583 1;
+#X connect 666 5 583 2;
+#X connect 667 0 522 0;
+#X connect 667 1 522 3;
+#X connect 667 4 522 1;
+#X connect 667 5 522 2;
+#X connect 668 0 444 0;
+#X connect 668 0 656 0;
 #X coords 0 -1 1 1 1250 650 2 600 -50;
--- a/Propellor/AndyEngineD2.pd	Fri Apr 07 22:39:12 2017 +0100
+++ b/Propellor/AndyEngineD2.pd	Mon Apr 24 20:32:21 2017 +0100
@@ -181,4 +181,5 @@
 #X connect 19 0 4 1;
 #X connect 19 0 10 0;
 #X connect 20 1 16 0;
+#X connect 20 1 4 0;
 #X connect 21 0 20 1;
--- a/Propellor/PropTestD6.pd	Fri Apr 07 22:39:12 2017 +0100
+++ b/Propellor/PropTestD6.pd	Mon Apr 24 20:32:21 2017 +0100
@@ -4,7 +4,7 @@
 1;
 #X obj 405 79 s myMet;
 #X obj -251 527 hsl 70 15 0 5000 0 0 empty empty RPM 2 8 0 10 -262144
--1 -1 1408 1;
+-1 -1 3036 1;
 #X floatatom 147 583 5 0 0 0 - - -;
 #X obj 224 414 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
 #X obj 287 414 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
@@ -42,11 +42,11 @@
 -261682 -1 -66577 1634 1;
 #X obj 66 299 r GAIN;
 #X obj -278 417 hsl 70 15 0.1 3 0 0 empty empty Blade_Length 2 8 0
-10 -262144 -1 -1 4663 1;
+10 -262144 -1 -1 2059 1;
 #X floatatom -220 440 0 0 0 0 - - -;
 #X obj -281 376 loadbang;
 #X obj 78 497 hsl 100 20 0 2500 0 0 empty empty Throttle 2 10 0 10
--204800 -1 -1 4039 1;
+-204800 -1 -1 8712 1;
 #X text 117 583 RPM;
 #X floatatom 74 459 0 0 0 0 - - -;
 #X obj -268 685 hsl 70 15 2 4 0 0 empty empty Blades 2 8 0 10 -262144
@@ -58,7 +58,7 @@
 10 -203904 -1 -1 5601 1;
 #X floatatom 695 443 0 0 0 0 - - -;
 #X obj 456 425 hsl 70 15 0 5000 0 0 empty empty Horse_Power 2 8 0 10
--262144 -1 -1 5520 1;
+-262144 -1 -1 414 1;
 #N canvas 345 218 373 219 dist 0;
 #X obj -154 38 *~;
 #X obj -98 40 *~;
@@ -113,8 +113,8 @@
 #X obj 355 459 hsl 70 15 1e-06 0.01 1 0 empty empty Vortex 2 8 0 10
 -204786 -1 -1 4656 1;
 #X floatatom 696 468 0 0 0 0 - - -;
-#X obj 356 488 hsl 70 15 0.01 2e+06 1 0 empty empty Engine 2 8 0 10
--261234 -1 -1 6319 1;
+#X obj 356 488 hsl 70 15 0.01 2e+07 1 0 empty empty Engine 2 8 0 10
+-261234 -1 -1 5640 1;
 #X floatatom 474 445 6 0 0 0 - - -;
 #X text 90 613 Distance;
 #X floatatom 694 496 0 0 0 0 - - -;
@@ -237,11 +237,11 @@
 #X connect 42 0 1 0;
 #X restore 349 362 pd startUp;
 #X obj 444 249 hsl 100 20 -5000 5000 0 0 empty empty PropX 6 10 0 10
--228856 -1 -1 5445 1;
+-228856 -1 -1 5823 1;
 #X obj 553 247 hsl 100 20 -5000 5000 0 0 empty empty PropY 6 10 0 10
--228856 -1 -1 6435 1;
+-228856 -1 -1 4599 1;
 #X obj 395 144 vsl 20 100 0 1500 0 0 empty empty PropZ 0 -9 0 10 -228856
--1 -1 5280 1;
+-1 -1 533 1;
 #X floatatom 486 282 0 0 0 0 - - -;
 #X floatatom 597 273 0 0 0 0 - - -;
 #X floatatom 399 254 0 0 0 0 - - -;
@@ -832,7 +832,7 @@
 #X connect 50 0 51 0;
 #X restore 284 102 pd Angles2;
 #X obj 593 137 hsl 80 20 0 360 0 0 empty empty Yaw(Azimuth) 2 10 0
-10 -232576 -1 -1 1975 1;
+10 -232576 -1 -1 7002 1;
 #X obj 809 137 hsl 80 20 -180 180 0 0 empty empty Roll 2 10 0 10 -232576
 -1 -1 3950 1;
 #X floatatom 863 165 0 0 0 0 - - -;
@@ -1076,12 +1076,12 @@
 #X text 255 664 Preset Flight Paths;
 #X text 267 596 Aircraft Selector;
 #X obj 812 37 hsl 80 20 -90 90 0 0 empty empty Pitch(Elevation) 2 10
-0 10 -232576 -1 -1 3950 1;
+0 10 -232576 -1 -1 4296 1;
 #X floatatom 829 83 0 0 0 0 - - -;
 #X obj 381 531 hsl 70 15 3.6 360 1 0 empty empty Yaw 2 8 0 10 -203904
--1 -1 4823 1;
+-1 -1 6719 1;
 #X obj 381 561 hsl 70 15 -90 90 0 0 empty empty Pitch 2 8 0 10 -204786
--1 -1 3450 1;
+-1 -1 3752 1;
 #X floatatom 457 530 0 0 0 0 - - -;
 #X floatatom 458 559 0 0 0 0 - - -;
 #X obj -25 636 r length;
@@ -1272,9 +1272,9 @@
 #X obj 256 504 pack;
 #X obj 304 503 pack;
 #X obj 922 118 hsl 128 15 -5000 5000 0 0 empty empty x -2 -8 0 10 -262144
--1 -1 6985 1;
+-1 -1 7470 1;
 #X obj 913 160 hsl 128 15 -5000 5000 0 0 empty empty y -2 -8 0 10 -262144
--1 -1 8255 1;
+-1 -1 5900 1;
 #X obj 23 592 <;
 #X floatatom 22 616 0 0 0 0 - - -;
 #X obj 56 592 <;
--- a/Shallow Cavity/CavD5.pd	Fri Apr 07 22:39:12 2017 +0100
+++ b/Shallow Cavity/CavD5.pd	Mon Apr 24 20:32:21 2017 +0100
@@ -1,4 +1,4 @@
-#N canvas 129 23 1287 823 10;
+#N canvas 267 25 1287 823 10;
 #X obj -172 -182 loadbang;
 #X obj -172 -145 metro 10;
 #X obj -172 -162 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
@@ -39,17 +39,17 @@
 #X connect 7 0 3 1;
 #X restore -163 424 pd opLevels;
 #X obj -160 395 hsl 250 25 0.0001 1e+09 1 0 empty empty empty -2 -8
-0 10 -262144 -1 -1 15189 1;
+0 10 -262144 -1 -1 5747 1;
 #X obj -163 324 r GAIN;
 #X floatatom -220 425 8 0 0 0 - - -;
 #X obj 436 -178 hsl 100 25 0.0001 10 1 0 empty empty Length 3 13 0
-10 -262144 -1 -1 4905 1;
+10 -262144 -1 -1 3274 1;
 #X floatatom 481 -147 0 0 0 0 - - -;
 #X obj 550 -178 hsl 100 25 0.0001 10 1 0 empty empty Width 3 13 0 10
--262144 -1 -1 4905 1;
+-262144 -1 -1 5501 1;
 #X floatatom 595 -148 0 0 0 0 - - -;
 #X obj 664 -178 hsl 100 25 0.0001 10 1 0 empty empty Depth 3 13 0 10
--262144 -1 -1 4309 1;
+-262144 -1 -1 2329 1;
 #X floatatom 712 -149 0 0 0 0 - - -;
 #X obj -41 -3 delwrite~ varwind 3000;
 #X obj 70 -127 hsl 100 15 0 100 0 0 empty empty empty -2 -8 0 10 -262144
@@ -501,7 +501,7 @@
 #X restore -47 39 pd rossFreqD1_n=1-4;
 #X obj 603 -18 s \$0-Qval;
 #X obj 606 -37 hsl 50 15 1 60 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 3310 1;
+-1 -1 1940 1;
 #X obj 603 -77 loadbang;
 #X obj 889 -165 hsl 50 20 0.01 0.99 0 0 empty empty empty -2 -8 0 10
 -262144 -1 -1 2450 1;
@@ -569,7 +569,6 @@
 #X connect 17 0 1 0;
 #X connect 18 0 6 0;
 #X restore 93 107 pd rangeLimit;
-#X obj 210 202 *~;
 #X text 40 -33 Generates the sound associated with the resonant cavity
 monopole.;
 #X obj 149 349 outlet~;
@@ -589,15 +588,12 @@
 #X connect 8 0 10 1;
 #X connect 8 0 11 1;
 #X connect 9 0 7 1;
-#X connect 9 0 16 1;
 #X connect 10 0 11 0;
-#X connect 11 0 13 0;
-#X connect 12 0 13 1;
-#X connect 12 0 16 0;
-#X connect 13 0 7 0;
-#X connect 16 0 15 0;
-#X connect 17 0 18 0;
-#X connect 19 0 17 0;
+#X connect 11 0 7 0;
+#X connect 12 0 15 0;
+#X connect 15 0 14 0;
+#X connect 16 0 17 0;
+#X connect 18 0 16 0;
 #X restore 83 508 pd Monopole;
 #N canvas 570 67 638 485 Dipoles 0;
 #X obj 132 230 *~;
@@ -743,7 +739,7 @@
 #X floatatom 291 387 0 0 0 0 - - -;
 #X obj 291 346 r myMet;
 #X obj 278 407 outlet;
-#X obj 147 205 HoweIntensityDipoleD2;
+#X obj 147 203 HoweIntensityDipoleD2;
 #X connect 0 0 11 0;
 #X connect 3 0 1 0;
 #X connect 3 1 2 0;
@@ -882,11 +878,8 @@
 #X connect 14 0 3 0;
 #X restore 638 138 pd thickcalc;
 #X obj -82 -128 s gusts;
-#X obj -199 22 TUCalc2;
-#X obj -199 -1 r~ windSpeed;
-#X floatatom -167 42 0 0 0 0 - - -;
-#N canvas 815 537 450 300 IntensityTest 0;
-#N canvas 276 439 681 350 PlotWrt 0;
+#N canvas 752 190 656 557 IntensityTest 0;
+#N canvas 87 229 681 350 PlotWrt 0;
 #X obj 70 303 textfile;
 #X msg 562 196 clear \, rewind;
 #X obj 212 134 snapshot~;
@@ -909,7 +902,12 @@
 #X obj 34 109 r myMet;
 #X obj 21 86 inlet~;
 #X msg 34 180 add2 \$1;
-#X msg 419 163 write HoweFull5_060417.txt;
+#X obj -38 134 snapshot~;
+#X floatatom -30 157 0 0 0 0 - - -;
+#X obj -38 107 r myMet;
+#X obj -51 84 inlet~;
+#X msg -38 178 add2 \$1;
+#X msg 419 163 write HoweFull7_090417.txt;
 #X connect 1 0 0 0;
 #X connect 2 0 3 0;
 #X connect 2 0 11 0;
@@ -931,11 +929,16 @@
 #X connect 19 0 17 0;
 #X connect 20 0 17 0;
 #X connect 21 0 0 0;
-#X connect 22 0 0 0;
+#X connect 22 0 23 0;
+#X connect 22 0 26 0;
+#X connect 24 0 22 0;
+#X connect 25 0 22 0;
+#X connect 26 0 0 0;
+#X connect 27 0 0 0;
 #X restore 148 173 pd PlotWrt;
 #X obj 200 50 HoweIntensity;
 #X obj 208 -49 hsl 100 15 0 20000 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 0 1;
+-262144 -1 -1 1000 1;
 #X floatatom 246 -30 0 0 0 0 - - -;
 #X obj 113 75 snapshot~;
 #X floatatom 113 95 0 0 0 0 - - -;
@@ -946,11 +949,16 @@
 #X floatatom 70 170 0 0 0 0 - - -;
 #X obj 70 129 r myMet;
 #X msg 180 -8 0;
+#X obj 215 73 HoweIntensityDipoleD2;
+#X obj 31 105 HoweIntMod;
+#X obj 234 524 snapshot~;
+#X floatatom 234 544 0 0 0 0 - - -;
+#X obj 234 503 r myMet;
+#X obj 412 43 HoweIntTest;
+#X msg 87 -1 6000 7000;
 #X obj 250 26 HoweIntensity;
-#X msg 87 -1 12000 15000;
 #X obj 223 103 HoweIntensityMonoTest;
-#X obj 215 73 HoweIntensityDipoleD2;
-#X connect 1 0 0 0;
+#X connect 1 0 0 1;
 #X connect 1 0 9 0;
 #X connect 2 0 3 0;
 #X connect 2 0 7 0;
@@ -958,18 +966,23 @@
 #X connect 6 0 4 0;
 #X connect 7 0 8 0;
 #X connect 8 0 1 0;
-#X connect 8 0 0 3;
+#X connect 8 0 0 4;
 #X connect 8 0 4 0;
-#X connect 8 0 15 0;
-#X connect 8 0 16 0;
+#X connect 8 0 13 0;
+#X connect 8 0 14 0;
+#X connect 8 0 18 0;
+#X connect 8 0 21 0;
 #X connect 9 0 10 0;
 #X connect 11 0 9 0;
 #X connect 12 0 8 0;
-#X connect 14 0 8 0;
-#X connect 15 1 0 2;
-#X connect 16 0 0 1;
+#X connect 13 0 0 2;
+#X connect 14 0 0 0;
+#X connect 15 0 16 0;
+#X connect 17 0 15 0;
+#X connect 19 0 8 0;
+#X connect 21 1 0 3;
 #X restore 609 52 pd IntensityTest;
-#N canvas 765 502 606 328 AngleTest 0;
+#N canvas 387 61 1247 749 AngleTest 0;
 #N canvas 61 95 798 402 PlotWrt 0;
 #X obj 70 303 textfile;
 #X msg 574 162 clear \, rewind;
@@ -1036,7 +1049,7 @@
 #X connect 30 0 27 0;
 #X connect 31 0 0 0;
 #X connect 32 0 0 0;
-#X restore 309 222 pd PlotWrt;
+#X restore 309 281 pd PlotWrt;
 #N canvas 417 23 740 476 FreqCalc 0;
 #X obj 100 113 r~ windSpeed;
 #X obj 189 115 sig~ 0.5;
@@ -1101,27 +1114,119 @@
 #X obj 140 97 snapshot~;
 #X floatatom 140 117 0 0 0 0 - - -;
 #X obj 140 76 r myMet;
-#X obj 385 87 line~;
+#X obj 547 82 line~;
 #X obj 303 104 HoweDirect;
-#X msg 366 38 0;
-#X obj 393 110 /~ 360;
-#X obj 446 153 outlet~;
-#X msg 301 39 180 500;
+#X msg 577 17 0;
+#X obj 555 105 /~ 360;
+#X obj 608 148 outlet~;
+#X msg 512 18 180 500;
 #X obj 316 130 HoweDirect;
 #X obj 339 173 HoweDirect;
 #X obj 329 150 HoweDirect;
 #X obj 353 198 HoweDirect;
-#X msg 418 49 90;
+#X msg 580 44 90;
+#X obj 23 354 HoweIntensityDipoleD2;
+#X obj 23 397 +~;
+#N canvas 60 397 798 402 PlotWrt 0;
+#X obj 70 303 textfile;
+#X msg 574 162 clear \, rewind;
+#X obj 212 134 snapshot~;
+#X floatatom 220 157 0 0 0 0 - - -;
+#X obj 212 107 r myMet;
+#X obj 199 84 inlet~;
+#X obj 449 139 snapshot~;
+#X floatatom 458 161 0 0 0 0 - - -;
+#X obj 449 112 r myMet;
+#X obj 436 89 inlet~;
+#X msg 449 183 add \$1;
+#X msg 212 178 add2 \$1;
+#X obj 130 134 snapshot~;
+#X floatatom 138 157 0 0 0 0 - - -;
+#X obj 130 107 r myMet;
+#X obj 117 84 inlet~;
+#X msg 130 178 add2 \$1;
+#X obj 34 136 snapshot~;
+#X floatatom 42 159 0 0 0 0 - - -;
+#X obj 34 109 r myMet;
+#X obj 21 86 inlet~;
+#X msg 34 180 add2 \$1;
+#X obj 367 136 snapshot~;
+#X floatatom 375 159 0 0 0 0 - - -;
+#X obj 367 109 r myMet;
+#X obj 354 86 inlet~;
+#X msg 367 180 add2 \$1;
+#X obj 285 136 snapshot~;
+#X floatatom 293 159 0 0 0 0 - - -;
+#X obj 285 109 r myMet;
+#X obj 272 86 inlet~;
+#X msg 285 180 add2 \$1;
+#X msg 575 106 write HoweDirD4_090417.txt;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 2 0 11 0;
+#X connect 4 0 2 0;
+#X connect 5 0 2 0;
+#X connect 6 0 7 0;
+#X connect 6 0 10 0;
+#X connect 8 0 6 0;
+#X connect 9 0 6 0;
+#X connect 10 0 0 0;
+#X connect 11 0 0 0;
+#X connect 12 0 13 0;
+#X connect 12 0 16 0;
+#X connect 14 0 12 0;
+#X connect 15 0 12 0;
+#X connect 16 0 0 0;
+#X connect 17 0 18 0;
+#X connect 17 0 21 0;
+#X connect 19 0 17 0;
+#X connect 20 0 17 0;
+#X connect 21 0 0 0;
+#X connect 22 0 23 0;
+#X connect 22 0 26 0;
+#X connect 24 0 22 0;
+#X connect 25 0 22 0;
+#X connect 26 0 0 0;
+#X connect 27 0 28 0;
+#X connect 27 0 31 0;
+#X connect 29 0 27 0;
+#X connect 30 0 27 0;
+#X connect 31 0 0 0;
+#X connect 32 0 0 0;
+#X restore 448 538 pd PlotWrt;
+#X obj 203 359 HoweIntensityDipoleD2;
+#X obj 203 402 +~;
+#X obj 372 358 HoweIntensityDipoleD2;
+#X obj 372 401 +~;
+#X obj 552 363 HoweIntensityDipoleD2;
+#X obj 552 406 +~;
+#X obj 720 362 HoweIntensityDipoleD2;
+#X obj 720 405 +~;
+#X obj 218 380 HoweIntensityMonoTest;
+#X obj 38 375 HoweIntensityMonoTest;
+#X obj 387 379 HoweIntensityMonoTest;
+#X obj 567 384 HoweIntensityMonoTest;
+#X obj 735 383 HoweIntensityMonoTest;
 #X connect 1 0 2 0;
 #X connect 1 0 18 0;
+#X connect 1 0 28 0;
+#X connect 1 0 40 0;
 #X connect 1 1 5 0;
 #X connect 1 1 23 0;
+#X connect 1 1 31 0;
+#X connect 1 1 39 0;
 #X connect 1 2 8 0;
 #X connect 1 2 25 0;
+#X connect 1 2 33 0;
+#X connect 1 2 41 0;
 #X connect 1 3 11 0;
 #X connect 1 3 24 0;
+#X connect 1 3 35 0;
+#X connect 1 3 42 0;
 #X connect 1 4 14 0;
 #X connect 1 4 26 0;
+#X connect 1 4 37 0;
+#X connect 1 4 43 0;
 #X connect 2 0 3 0;
 #X connect 4 0 2 0;
 #X connect 5 0 6 0;
@@ -1134,6 +1239,7 @@
 #X connect 16 0 14 0;
 #X connect 17 0 0 5;
 #X connect 17 0 20 0;
+#X connect 17 0 30 5;
 #X connect 18 0 0 0;
 #X connect 19 0 17 0;
 #X connect 20 0 21 0;
@@ -1143,6 +1249,21 @@
 #X connect 25 0 0 2;
 #X connect 26 0 0 4;
 #X connect 27 0 17 0;
+#X connect 28 0 29 0;
+#X connect 29 0 30 0;
+#X connect 31 0 32 0;
+#X connect 32 0 30 1;
+#X connect 33 0 34 0;
+#X connect 34 0 30 2;
+#X connect 35 0 36 0;
+#X connect 36 0 30 3;
+#X connect 37 0 38 0;
+#X connect 38 0 30 4;
+#X connect 39 1 32 1;
+#X connect 40 1 29 1;
+#X connect 41 1 34 1;
+#X connect 42 1 36 1;
+#X connect 43 1 38 1;
 #X restore 636 111 pd AngleTest;
 #X obj 543 506 s speed;
 #X obj -94 -48 r speed;
@@ -1162,11 +1283,9 @@
 #X obj -214 457 outlet;
 #X obj 480 463 unpack f f f f f s;
 #X obj 564 486 s GAIN;
-#X msg 684 434 0.4739 0.1016 0.1053 291.55 4 FUGLSANG;
 #X msg 684 393 0.03 0.03 0.015 3.43 8500 HOWE;
 #X msg 683 371 0.06 0.06 0.35 40 0.1 ERICKSON;
 #X text -97 -88 comment;
-#X obj -199 42 s TU;
 #N canvas 505 490 450 300 on/off 0;
 #X obj 169 93 inlet~;
 #X obj 213 92 r myMet;
@@ -1192,12 +1311,9 @@
 #X connect 3 0 4 0;
 #X restore 83 527 pd on/off;
 #X obj 83 548 tgl 20 0 empty empty empty 17 7 0 10 -261682 -4034 -4034
-1 1;
+0 1;
 #X msg 683 350 0.0191 0.1016 0.0127 308.7 7 AHUJA;
 #X msg 682 295 0.0476 0.1016 0.0127 137.2 7 AHUJA2;
-#X obj 15 498 snapshot~;
-#X floatatom 15 518 0 0 0 0 - - -;
-#X obj 15 477 r myMet;
 #X msg 683 263 0.15 0.15 0.15 31 7 CHATELLIER;
 #X obj 214 504 snapshot~;
 #X floatatom 214 524 0 0 0 0 - - -;
@@ -1355,17 +1471,47 @@
 #X restore 634 82 pd newShearThick;
 #X msg 723 319 0.03 0.6 0.015 12 7 KOSCHATZKY;
 #X msg 844 215 0.03 0.6 0.015 15 7 KOSCHATZKY2;
-#X obj 60 446 HoweIntensityMonoTest;
 #X msg -154 370 550;
 #X msg 684 414 0.0045 0.06 0.0015 514.5 0.1 ZHENG;
+#N canvas 632 119 701 487 MonopolePeak 0;
+#X obj 152 158 outlet~;
+#X obj 167 87 +~;
+#X obj 167 112 *~ 4;
+#X obj 152 23 sig~ 343;
+#X obj 152 133 /~;
+#X obj 323 71 *~;
+#X obj 323 114 /~ 4;
+#X obj 323 134 sqrt~;
+#X obj 323 30 r~ thisLen;
+#X obj 338 51 r~ thisWid;
+#X obj 323 93 *~ 3.14159;
+#X obj 182 65 r~ thisDep;
+#X connect 1 0 2 0;
+#X connect 2 0 4 1;
+#X connect 3 0 4 0;
+#X connect 4 0 0 0;
+#X connect 5 0 10 0;
+#X connect 6 0 7 0;
+#X connect 7 0 1 0;
+#X connect 8 0 5 0;
+#X connect 9 0 5 1;
+#X connect 10 0 6 0;
+#X connect 11 0 1 1;
+#X restore 741 75 pd MonopolePeak;
+#X obj 342 449 snapshot~;
+#X floatatom 342 469 0 0 0 0 - - -;
+#X obj 342 428 r myMet;
+#X obj 742 99 HoweIntMod;
+#X obj 78 456 HoweIntensityMonoTest;
+#X msg 684 434 0.4572 0.1016 0.1016 291.55 4 FUGLSANG;
 #X connect 0 0 2 0;
 #X connect 1 0 3 0;
 #X connect 2 0 1 0;
-#X connect 8 0 197 0;
+#X connect 8 0 188 0;
 #X connect 9 0 5 0;
-#X connect 9 0 151 0;
+#X connect 9 0 148 0;
 #X connect 9 1 6 0;
-#X connect 9 1 150 0;
+#X connect 9 1 147 0;
 #X connect 10 0 9 0;
 #X connect 10 0 12 0;
 #X connect 11 0 10 0;
@@ -1416,17 +1562,17 @@
 #X connect 60 0 61 0;
 #X connect 61 0 62 0;
 #X connect 63 0 61 0;
-#X connect 66 0 159 0;
+#X connect 66 0 154 0;
 #X connect 67 0 20 0;
 #X connect 69 0 74 0;
 #X connect 70 0 73 0;
-#X connect 70 0 190 0;
+#X connect 70 0 182 0;
 #X connect 74 0 70 0;
 #X connect 75 0 20 0;
 #X connect 76 0 77 0;
-#X connect 76 0 185 0;
+#X connect 76 0 177 0;
 #X connect 78 0 79 0;
-#X connect 78 0 186 0;
+#X connect 78 0 178 0;
 #X connect 80 0 78 0;
 #X connect 80 0 101 0;
 #X connect 80 0 76 0;
@@ -1436,9 +1582,9 @@
 #X connect 80 0 105 0;
 #X connect 80 0 83 0;
 #X connect 81 0 82 0;
-#X connect 81 0 187 0;
+#X connect 81 0 179 0;
 #X connect 83 0 84 0;
-#X connect 83 0 188 0;
+#X connect 83 0 180 0;
 #X connect 86 0 87 0;
 #X connect 87 0 91 0;
 #X connect 88 0 85 0;
@@ -1471,67 +1617,65 @@
 #X connect 114 0 116 0;
 #X connect 115 0 113 0;
 #X connect 115 0 112 0;
-#X connect 117 0 155 0;
+#X connect 117 0 151 0;
 #X connect 118 0 89 0;
 #X connect 119 0 122 0;
-#X connect 120 0 161 0;
-#X connect 121 0 174 0;
+#X connect 120 0 156 0;
+#X connect 121 0 166 0;
 #X connect 122 0 115 0;
 #X connect 124 0 109 0;
-#X connect 125 0 172 0;
-#X connect 126 0 175 0;
-#X connect 127 0 173 0;
+#X connect 125 0 164 0;
+#X connect 126 0 167 0;
+#X connect 127 0 165 0;
 #X connect 128 0 109 0;
-#X connect 131 0 133 0;
-#X connect 131 0 158 0;
-#X connect 132 0 131 0;
-#X connect 137 0 48 0;
-#X connect 137 0 138 0;
-#X connect 140 0 13 0;
-#X connect 141 0 15 0;
-#X connect 142 0 17 0;
-#X connect 143 0 115 0;
-#X connect 144 0 88 0;
-#X connect 145 0 115 0;
-#X connect 146 0 88 0;
-#X connect 147 0 48 0;
-#X connect 148 0 152 0;
-#X connect 149 0 10 0;
-#X connect 152 0 44 0;
-#X connect 152 1 43 0;
-#X connect 152 2 42 0;
-#X connect 152 3 136 0;
-#X connect 152 4 153 0;
-#X connect 152 5 139 0;
-#X connect 154 0 152 0;
-#X connect 155 0 152 0;
-#X connect 156 0 152 0;
-#X connect 159 0 160 0;
+#X connect 134 0 48 0;
+#X connect 134 0 135 0;
+#X connect 137 0 13 0;
+#X connect 138 0 15 0;
+#X connect 139 0 17 0;
+#X connect 140 0 115 0;
+#X connect 141 0 88 0;
+#X connect 142 0 115 0;
+#X connect 143 0 88 0;
+#X connect 144 0 48 0;
+#X connect 145 0 149 0;
+#X connect 146 0 10 0;
+#X connect 149 0 44 0;
+#X connect 149 1 43 0;
+#X connect 149 2 42 0;
+#X connect 149 3 133 0;
+#X connect 149 4 150 0;
+#X connect 149 5 136 0;
+#X connect 151 0 149 0;
+#X connect 152 0 149 0;
+#X connect 154 0 155 0;
+#X connect 156 0 157 0;
+#X connect 158 0 149 0;
+#X connect 159 0 149 0;
+#X connect 160 0 149 0;
 #X connect 161 0 162 0;
-#X connect 163 0 152 0;
-#X connect 164 0 152 0;
-#X connect 165 0 166 0;
-#X connect 165 0 189 0;
-#X connect 167 0 165 0;
-#X connect 168 0 152 0;
-#X connect 169 0 170 0;
-#X connect 171 0 169 0;
-#X connect 176 0 152 0;
-#X connect 177 0 152 0;
-#X connect 178 0 152 0;
-#X connect 179 0 152 0;
-#X connect 180 0 152 0;
-#X connect 181 0 152 0;
-#X connect 182 0 152 0;
-#X connect 183 0 152 0;
-#X connect 184 0 152 0;
-#X connect 190 0 191 0;
-#X connect 192 0 190 0;
-#X connect 194 0 152 0;
-#X connect 195 0 152 0;
-#X connect 196 0 120 0;
-#X connect 196 0 165 0;
-#X connect 196 1 120 1;
-#X connect 196 1 169 0;
-#X connect 197 0 10 0;
-#X connect 198 0 152 0;
+#X connect 163 0 161 0;
+#X connect 168 0 149 0;
+#X connect 169 0 149 0;
+#X connect 170 0 149 0;
+#X connect 171 0 149 0;
+#X connect 172 0 149 0;
+#X connect 173 0 149 0;
+#X connect 174 0 149 0;
+#X connect 175 0 149 0;
+#X connect 176 0 149 0;
+#X connect 182 0 183 0;
+#X connect 184 0 182 0;
+#X connect 186 0 149 0;
+#X connect 187 0 149 0;
+#X connect 188 0 10 0;
+#X connect 189 0 149 0;
+#X connect 190 0 194 0;
+#X connect 191 0 192 0;
+#X connect 191 0 181 0;
+#X connect 193 0 191 0;
+#X connect 195 0 191 0;
+#X connect 195 0 120 0;
+#X connect 195 1 161 0;
+#X connect 195 1 120 1;
+#X connect 196 0 149 0;
--- a/Shallow Cavity/HoweIntensity.pd	Fri Apr 07 22:39:12 2017 +0100
+++ b/Shallow Cavity/HoweIntensity.pd	Mon Apr 24 20:32:21 2017 +0100
@@ -65,7 +65,6 @@
 #X obj 1047 277 +~;
 #X obj 1032 299 /~;
 #X obj 680 406 /~;
-#X obj 695 468 +~;
 #X obj 680 492 *~;
 #X obj 602 359 snapshot~;
 #X floatatom 602 379 10 0 0 0 - - -;
@@ -151,15 +150,16 @@
 #X obj 1047 382 -~;
 #X obj 1047 320 r~ thisEle;
 #X obj 1032 410 +~;
+#X obj 695 468 +~;
 #X connect 0 0 7 0;
 #X connect 2 0 38 0;
-#X connect 4 0 91 0;
+#X connect 4 0 90 0;
 #X connect 5 0 6 0;
-#X connect 6 0 94 0;
+#X connect 6 0 93 0;
 #X connect 6 0 40 0;
 #X connect 7 0 8 0;
-#X connect 8 0 81 0;
-#X connect 9 0 87 0;
+#X connect 8 0 80 0;
+#X connect 9 0 86 0;
 #X connect 10 0 11 1;
 #X connect 10 0 11 0;
 #X connect 11 0 16 0;
@@ -167,7 +167,7 @@
 #X connect 13 0 15 0;
 #X connect 14 0 15 1;
 #X connect 15 0 16 1;
-#X connect 16 0 110 0;
+#X connect 16 0 109 0;
 #X connect 17 0 14 0;
 #X connect 18 0 14 1;
 #X connect 19 0 21 0;
@@ -188,10 +188,10 @@
 #X connect 32 0 35 1;
 #X connect 33 0 31 0;
 #X connect 34 0 31 1;
-#X connect 35 0 120 0;
-#X connect 36 0 143 0;
+#X connect 35 0 119 0;
+#X connect 36 0 142 0;
 #X connect 37 0 38 1;
-#X connect 38 0 112 0;
+#X connect 38 0 111 0;
 #X connect 39 0 44 0;
 #X connect 39 0 51 0;
 #X connect 40 0 41 0;
@@ -199,100 +199,99 @@
 #X connect 43 0 44 1;
 #X connect 43 0 51 1;
 #X connect 44 0 45 0;
-#X connect 45 0 99 0;
-#X connect 45 0 136 0;
+#X connect 45 0 98 0;
+#X connect 45 0 135 0;
 #X connect 46 0 47 1;
-#X connect 47 0 144 0;
+#X connect 47 0 143 0;
 #X connect 48 0 49 0;
-#X connect 49 0 145 0;
-#X connect 50 0 101 0;
+#X connect 49 0 144 0;
+#X connect 50 0 100 0;
 #X connect 51 0 50 0;
-#X connect 52 0 103 0;
-#X connect 53 0 107 0;
+#X connect 52 0 102 0;
+#X connect 53 0 106 0;
 #X connect 54 0 58 0;
 #X connect 55 0 57 0;
 #X connect 56 0 57 1;
 #X connect 57 0 58 1;
 #X connect 58 0 59 0;
 #X connect 58 0 59 1;
-#X connect 59 0 116 0;
-#X connect 59 0 68 0;
+#X connect 59 0 115 0;
+#X connect 59 0 67 0;
 #X connect 60 0 64 0;
 #X connect 61 0 63 0;
 #X connect 62 0 63 1;
 #X connect 63 0 64 1;
-#X connect 64 0 151 0;
-#X connect 65 0 67 0;
-#X connect 66 0 67 1;
-#X connect 67 0 122 0;
-#X connect 67 0 127 0;
-#X connect 68 0 69 0;
-#X connect 70 0 68 0;
-#X connect 71 0 43 0;
-#X connect 72 0 19 0;
-#X connect 73 0 13 1;
-#X connect 74 0 7 1;
-#X connect 75 0 4 0;
-#X connect 76 0 4 1;
-#X connect 77 0 36 1;
-#X connect 78 0 25 1;
-#X connect 80 0 46 0;
-#X connect 82 0 12 1;
-#X connect 83 0 24 1;
-#X connect 85 0 12 0;
-#X connect 86 0 24 0;
-#X connect 88 0 36 0;
-#X connect 89 0 48 0;
-#X connect 89 0 48 1;
-#X connect 90 0 141 0;
-#X connect 92 0 47 0;
-#X connect 93 0 49 1;
-#X connect 95 0 46 1;
-#X connect 97 0 39 0;
-#X connect 98 0 71 0;
-#X connect 100 0 52 1;
-#X connect 102 0 53 1;
-#X connect 104 0 61 0;
-#X connect 104 0 61 1;
-#X connect 105 0 54 0;
-#X connect 106 0 55 0;
-#X connect 106 0 55 1;
-#X connect 108 0 62 0;
-#X connect 108 0 62 1;
-#X connect 109 0 60 0;
-#X connect 111 0 65 0;
-#X connect 113 0 54 1;
-#X connect 114 0 60 1;
-#X connect 115 0 56 0;
-#X connect 115 0 56 1;
-#X connect 117 0 66 0;
-#X connect 119 0 66 1;
-#X connect 121 0 65 1;
-#X connect 123 0 118 0;
-#X connect 123 0 130 0;
-#X connect 124 0 142 0;
-#X connect 126 0 125 1;
-#X connect 127 0 128 0;
-#X connect 129 0 127 0;
-#X connect 130 0 131 0;
-#X connect 132 0 130 0;
-#X connect 133 0 134 0;
-#X connect 135 0 133 0;
-#X connect 136 0 137 0;
-#X connect 138 0 136 0;
-#X connect 139 0 52 0;
-#X connect 140 0 53 0;
-#X connect 141 0 5 0;
-#X connect 142 0 9 0;
-#X connect 142 0 84 0;
-#X connect 143 0 37 0;
-#X connect 144 0 139 0;
-#X connect 144 0 140 0;
-#X connect 145 0 96 0;
-#X connect 146 0 8 1;
-#X connect 147 0 149 0;
-#X connect 148 0 149 1;
-#X connect 149 0 151 1;
-#X connect 150 0 147 0;
-#X connect 151 0 123 1;
-#X connect 151 0 123 0;
+#X connect 64 0 150 0;
+#X connect 65 0 66 0;
+#X connect 66 0 121 0;
+#X connect 66 0 126 0;
+#X connect 67 0 68 0;
+#X connect 69 0 67 0;
+#X connect 70 0 43 0;
+#X connect 71 0 19 0;
+#X connect 72 0 13 1;
+#X connect 73 0 7 1;
+#X connect 74 0 4 0;
+#X connect 75 0 4 1;
+#X connect 76 0 36 1;
+#X connect 77 0 25 1;
+#X connect 79 0 46 0;
+#X connect 81 0 12 1;
+#X connect 82 0 24 1;
+#X connect 84 0 12 0;
+#X connect 85 0 24 0;
+#X connect 87 0 36 0;
+#X connect 88 0 48 0;
+#X connect 88 0 48 1;
+#X connect 89 0 140 0;
+#X connect 91 0 47 0;
+#X connect 92 0 49 1;
+#X connect 94 0 46 1;
+#X connect 96 0 39 0;
+#X connect 97 0 70 0;
+#X connect 99 0 52 1;
+#X connect 101 0 53 1;
+#X connect 103 0 61 0;
+#X connect 103 0 61 1;
+#X connect 104 0 54 0;
+#X connect 105 0 55 0;
+#X connect 105 0 55 1;
+#X connect 107 0 62 0;
+#X connect 107 0 62 1;
+#X connect 108 0 60 0;
+#X connect 110 0 65 0;
+#X connect 112 0 54 1;
+#X connect 113 0 60 1;
+#X connect 114 0 56 0;
+#X connect 114 0 56 1;
+#X connect 116 0 151 0;
+#X connect 118 0 151 1;
+#X connect 120 0 65 1;
+#X connect 122 0 117 0;
+#X connect 123 0 141 0;
+#X connect 125 0 124 1;
+#X connect 126 0 127 0;
+#X connect 128 0 126 0;
+#X connect 129 0 130 0;
+#X connect 131 0 129 0;
+#X connect 132 0 133 0;
+#X connect 134 0 132 0;
+#X connect 135 0 136 0;
+#X connect 137 0 135 0;
+#X connect 138 0 52 0;
+#X connect 139 0 53 0;
+#X connect 140 0 5 0;
+#X connect 141 0 9 0;
+#X connect 141 0 83 0;
+#X connect 142 0 37 0;
+#X connect 143 0 138 0;
+#X connect 143 0 139 0;
+#X connect 144 0 95 0;
+#X connect 145 0 8 1;
+#X connect 146 0 148 0;
+#X connect 147 0 148 1;
+#X connect 148 0 150 1;
+#X connect 149 0 146 0;
+#X connect 150 0 122 1;
+#X connect 150 0 122 0;
+#X connect 151 0 66 1;
--- a/Shallow Cavity/HoweIntensityDipoleD2.pd	Fri Apr 07 22:39:12 2017 +0100
+++ b/Shallow Cavity/HoweIntensityDipoleD2.pd	Mon Apr 24 20:32:21 2017 +0100
@@ -1,4 +1,4 @@
-#N canvas 148 33 1347 841 10;
+#N canvas 8 183 1347 841 10;
 #X obj 117 145 sig~ 0.12;
 #X text 117 128 Alpha;
 #X obj 124 391 sig~ 1.02;
@@ -61,14 +61,14 @@
 #X obj 1072 266 *~;
 #X obj 1057 287 +~;
 #X obj 1042 309 /~;
-#X obj 1042 402 cos~;
-#X obj 1057 422 r~ MY_MACH;
-#X obj 1042 443 -~;
+#X obj 1131 369 cos~;
+#X obj 1146 389 r~ MY_MACH;
+#X obj 1131 410 -~;
 #X obj 690 416 /~;
 #X obj 690 502 *~;
 #X obj 368 448 *~ -1;
 #X obj 497 99 r~ thisEle;
-#X obj 1042 381 r~ thisEle;
+#X obj 1131 348 r~ thisEle;
 #X obj 389 232 r~ windSpeed;
 #X obj 132 165 r~ thisLen;
 #X obj 47 275 r~ thisLen;
@@ -113,11 +113,11 @@
 #X obj 1057 159 r~ \$0-num2;
 #X obj 905 254 r~ \$0-thisY;
 #X obj 875 370 s~ \$0-block1;
-#X obj 1042 487 s~ \$0-block2;
+#X obj 1154 564 s~ \$0-block2;
 #X obj 497 552 s~ \$0-demon1;
 #X obj 705 395 r~ \$0-demon1;
 #X obj 639 584 outlet~;
-#X obj 1042 465 *~;
+#X obj 1127 480 *~;
 #X obj 227 145 inlet~;
 #X obj 691 542 /~;
 #X obj 706 522 r~ thisDist;
@@ -137,6 +137,9 @@
 #X floatatom 276 299 0 0 0 0 - - -;
 #X obj 276 257 r myMet;
 #X obj 144 258 r~ effectShearThick2;
+#X obj 1071 477 *~;
+#X obj 1071 514 +~;
+#X obj 1061 415 *~ 1;
 #X connect 0 0 7 0;
 #X connect 2 0 38 0;
 #X connect 4 0 88 0;
@@ -202,10 +205,12 @@
 #X connect 58 0 60 0;
 #X connect 59 0 60 1;
 #X connect 60 0 61 1;
+#X connect 61 0 140 0;
 #X connect 62 0 64 0;
 #X connect 63 0 64 1;
 #X connect 64 0 118 0;
 #X connect 64 0 118 1;
+#X connect 64 0 138 1;
 #X connect 65 0 66 0;
 #X connect 66 0 120 0;
 #X connect 67 0 40 0;
@@ -247,6 +252,7 @@
 #X connect 112 0 53 0;
 #X connect 112 0 53 1;
 #X connect 116 0 65 1;
+#X connect 118 0 139 1;
 #X connect 118 0 114 0;
 #X connect 119 0 125 0;
 #X connect 120 0 117 0;
@@ -268,3 +274,5 @@
 #X connect 136 0 134 0;
 #X connect 137 0 131 0;
 #X connect 137 0 78 0;
+#X connect 138 0 139 0;
+#X connect 140 0 138 0;
--- a/Shallow Cavity/HoweIntensityMonoTest.pd	Fri Apr 07 22:39:12 2017 +0100
+++ b/Shallow Cavity/HoweIntensityMonoTest.pd	Mon Apr 24 20:32:21 2017 +0100
@@ -110,11 +110,11 @@
 #X obj 905 254 r~ \$0-thisY;
 #X obj 875 370 s~ \$0-block1;
 #X obj 705 437 r~ \$0-block1;
-#X obj 1043 354 s~ \$0-block2;
+#X obj 1043 562 s~ \$0-block2;
 #X obj 720 457 r~ \$0-block2;
 #X obj 497 552 s~ \$0-demon1;
 #X obj 705 395 r~ \$0-demon1;
-#X obj 690 573 outlet~;
+#X obj 690 600 outlet~;
 #X obj 1043 332 *~;
 #X obj 690 542 /~;
 #X obj 705 522 r~ thisDist;
@@ -146,6 +146,17 @@
 #X obj 293 141 outlet~;
 #X obj 171 84 inlet~;
 #X obj 155 249 r~ effectShearThick2;
+#X obj 1149 332 cos~;
+#X obj 1164 352 r~ MY_MACH;
+#X obj 1149 373 -~;
+#X obj 1149 311 r~ thisEle;
+#X obj 1105 371 *~ 2;
+#X obj 1128 420 *~;
+#X obj 1114 447 +~;
+#X obj 691 572 max~ 0;
+#X obj 965 483 snapshot~;
+#X floatatom 965 503 0 0 0 0 - - -;
+#X obj 965 462 r myMet;
 #X connect 0 0 7 0;
 #X connect 2 0 38 0;
 #X connect 4 0 84 0;
@@ -212,6 +223,7 @@
 #X connect 60 0 61 1;
 #X connect 61 0 116 0;
 #X connect 61 0 116 1;
+#X connect 61 0 137 0;
 #X connect 62 0 64 0;
 #X connect 63 0 64 1;
 #X connect 64 0 117 0;
@@ -255,8 +267,8 @@
 #X connect 110 0 63 0;
 #X connect 112 0 63 1;
 #X connect 114 0 62 1;
-#X connect 116 0 111 0;
-#X connect 117 0 115 0;
+#X connect 116 0 139 0;
+#X connect 117 0 140 0;
 #X connect 118 0 117 1;
 #X connect 119 0 49 0;
 #X connect 120 0 50 0;
@@ -273,3 +285,13 @@
 #X connect 128 0 127 0;
 #X connect 129 0 127 1;
 #X connect 132 0 74 0;
+#X connect 133 0 135 0;
+#X connect 134 0 135 1;
+#X connect 135 0 138 1;
+#X connect 136 0 133 0;
+#X connect 137 0 138 0;
+#X connect 138 0 139 1;
+#X connect 139 0 111 0;
+#X connect 140 0 115 0;
+#X connect 141 0 142 0;
+#X connect 143 0 141 0;
--- a/Shallow Cavity/cavGUID2.pd	Fri Apr 07 22:39:12 2017 +0100
+++ b/Shallow Cavity/cavGUID2.pd	Mon Apr 24 20:32:21 2017 +0100
@@ -1,2 +1,2 @@
-#N canvas 432 197 712 518 10;
+#N canvas 92 57 712 518 10;
 #X obj 88 45 midCav;
--- a/Shallow Cavity/midCav.pd	Fri Apr 07 22:39:12 2017 +0100
+++ b/Shallow Cavity/midCav.pd	Mon Apr 24 20:32:21 2017 +0100
@@ -1,10 +1,10 @@
 #N canvas 388 200 1024 574 10;
 #X obj 157 128 hsl 100 25 0.001 10 1 0 empty empty Length 3 13 0 10
--262144 -1 -1 1617 1;
+-262144 -1 -1 3656 1;
 #X obj 157 158 hsl 100 25 0.0001 10 1 0 empty empty Width 3 13 0 10
--262144 -1 -1 5501 1;
+-262144 -1 -1 4905 1;
 #X obj 157 187 hsl 100 25 0.001 10 1 0 empty empty Depth 3 13 0 10
--262144 -1 -1 436 1;
+-262144 -1 -1 2911 1;
 #X obj 157 247 hsl 100 25 1 50 0 0 empty empty Distance 3 13 0 10 -262144
 -1 -1 0 1;
 #X obj 157 218 hsl 100 25 180 0 0 0 empty empty Elevation 3 13 0 10
@@ -16,7 +16,7 @@
 #X floatatom 266 250 0 0 0 0 - - -;
 #X floatatom 466 132 0 0 0 0 - - -;
 #X obj 359 127 hsl 100 25 0.1 1000 1 0 empty empty Speed 3 13 0 10
--262144 -1 -1 9186 1;
+-262144 -1 -1 6275 1;
 #X obj 45 183 r depth;
 #X obj 44 154 r width;
 #X obj 37 125 r length;
@@ -39,7 +39,7 @@
 #X obj 413 238 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X obj 157 277 hsl 100 25 0.0001 1e+09 1 0 empty empty Gain 3 13 0
-10 -262144 -1 -1 4340 1;
+10 -262144 -1 -1 4495 1;
 #X obj 46 274 r GAIN;
 #X floatatom 266 281 0 0 0 0 - - -;
 #X obj 412 312 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;