changeset 150:8dce4d19c0d0

More randomisation of wind generation Correlation length calculation added
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sun, 13 Dec 2015 10:17:40 +0000
parents 2a2f032ec719
children 8bc63904cee2
files .DS_Store scene demo/WindGenD1.pd scene demo/freqCalcCyl3No_D1Mach.pd scene demo/testBed.pd
diffstat 4 files changed, 258 insertions(+), 209 deletions(-) [+]
line wrap: on
line diff
Binary file .DS_Store has changed
--- a/scene demo/WindGenD1.pd	Thu Dec 10 15:42:09 2015 +0000
+++ b/scene demo/WindGenD1.pd	Sun Dec 13 10:17:40 2015 +0000
@@ -1,10 +1,10 @@
-#N canvas 551 105 597 538 10;
-#X obj 131 202 +~ 1;
-#X obj 131 297 +~;
-#X obj 131 224 *~ 0.25;
-#X obj 147 274 +~;
-#X obj 131 319 clip~ 0 1;
-#N canvas 939 160 373 400 squall 1;
+#N canvas 551 105 427 561 10;
+#X obj 147 202 +~ 1;
+#X obj 147 297 +~;
+#X obj 147 224 *~ 0.25;
+#X obj 163 274 +~;
+#X obj 147 319 clip~ 0 1;
+#N canvas 939 160 373 400 squall 0;
 #X obj 113 208 noise~;
 #X obj 113 271 hip~ 0;
 #X obj 113 229 lop~ 3;
@@ -45,7 +45,7 @@
 #X connect 17 0 14 0;
 #X connect 18 0 13 0;
 #X connect 19 0 13 0;
-#X restore 205 249 pd squall;
+#X restore 221 249 pd squall;
 #N canvas 493 23 202 229 gust 0;
 #X obj 0 0 noise~;
 #X obj 0 63 hip~ 0;
@@ -69,48 +69,54 @@
 #X connect 7 0 6 0;
 #X connect 8 0 2 0;
 #X connect 9 0 4 0;
-#X restore 146 250 pd gust;
-#X obj 131 341 outlet~;
-#X obj 131 180 osc~ 0.01;
-#X obj 87 384 osc~;
-#X obj 87 341 *~ 200;
-#X obj 87 363 +~ 600;
-#X obj 110 -42 noise~;
-#X obj 131 155 line;
-#X floatatom 79 185 8 0 0 0 - - -;
-#X obj 193 58 snapshot~;
-#X obj 192 9 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+#X restore 162 250 pd gust;
+#X obj 147 341 outlet~;
+#X obj 147 180 osc~ 0.01;
+#X obj 103 384 osc~;
+#X obj 103 341 *~ 200;
+#X obj 103 363 +~ 600;
+#X obj 65 -24 noise~;
+#X obj 147 155 line;
+#X floatatom 94 180 8 0 0 0 - - -;
+#X obj 148 76 snapshot~;
+#X obj 147 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 200 101 8 0 0 0 - - -;
+#X obj 103 408 dac~;
+#X obj 65 2 lop~ 2000;
+#X obj 65 26 +~ 0.6;
+#X obj 120 155 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 8 221 loadbang;
+#X obj 147 3 loadbang;
+#X obj 8 321 snapshot~;
+#X obj 8 274 metro 100;
+#X obj 8 249 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
 ;
-#X floatatom 245 83 8 0 0 0 - - -;
-#X obj 87 408 dac~;
-#X obj 191 129 unpack;
-#X floatatom 191 152 5 0 0 0 - - -;
-#X floatatom 224 170 5 0 0 0 - - -;
-#X msg 192 107 \$1 500;
-#X obj 110 -16 lop~ 2000;
-#X obj 110 8 +~ 0.6;
-#X obj 84 162 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
--1;
-#X obj -8 221 loadbang;
-#X obj 192 -15 loadbang;
-#X obj -8 321 snapshot~;
-#X obj -8 274 metro 100;
-#X obj -8 249 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+#X floatatom 10 374 8 0 0 0 - - -;
+#X obj 148 101 * 0.2;
+#X msg 148 128 \$1 10;
+#X obj 147 52 metro 2000;
+#X obj 29 298 abs~;
+#X obj -36 373 outlet;
+#X obj 10 347 * 0.1;
+#X obj 280 -74 noise~;
+#X obj 280 -48 lop~ 2000;
+#X obj 280 -24 +~ 0.6;
+#X obj 204 18 snapshot~;
+#X obj 204 -30 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
-#X floatatom -6 374 8 0 0 0 - - -;
-#X obj 193 83 * 0.2;
-#X msg 132 128 \$1 10;
-#X obj 192 34 metro 2000;
-#X obj 13 298 abs~;
-#X obj -52 373 outlet;
-#X obj -6 347 * 0.1;
+#X obj 204 -55 loadbang;
+#X floatatom 254 49 5 0 0 0 - - -;
+#X obj 280 0 *~ 3000;
+#X obj 204 -6 metro 4000;
 #X connect 0 0 2 0;
 #X connect 1 0 4 0;
 #X connect 2 0 5 0;
 #X connect 2 0 6 0;
 #X connect 2 0 1 0;
 #X connect 3 0 1 1;
-#X connect 3 0 35 0;
+#X connect 3 0 31 0;
 #X connect 4 0 7 0;
 #X connect 4 0 10 0;
 #X connect 5 0 3 1;
@@ -118,27 +124,32 @@
 #X connect 8 0 0 0;
 #X connect 10 0 11 0;
 #X connect 11 0 9 0;
-#X connect 12 0 23 0;
+#X connect 12 0 19 0;
 #X connect 13 0 8 0;
 #X connect 13 0 14 0;
 #X connect 15 0 17 0;
-#X connect 15 0 32 0;
-#X connect 16 0 34 0;
+#X connect 15 0 28 0;
+#X connect 16 0 30 0;
 #X connect 19 0 20 0;
-#X connect 19 1 21 0;
-#X connect 22 0 19 0;
-#X connect 23 0 24 0;
-#X connect 24 0 15 0;
-#X connect 26 0 30 0;
-#X connect 27 0 16 0;
-#X connect 28 0 37 0;
-#X connect 29 0 28 0;
-#X connect 30 0 29 0;
-#X connect 32 0 22 0;
-#X connect 32 0 33 0;
-#X connect 33 0 13 0;
-#X connect 33 0 25 0;
-#X connect 34 0 15 0;
-#X connect 35 0 28 0;
-#X connect 37 0 36 0;
-#X connect 37 0 31 0;
+#X connect 20 0 15 0;
+#X connect 22 0 26 0;
+#X connect 23 0 16 0;
+#X connect 24 0 33 0;
+#X connect 25 0 24 0;
+#X connect 26 0 25 0;
+#X connect 28 0 29 0;
+#X connect 29 0 13 0;
+#X connect 29 0 21 0;
+#X connect 30 0 15 0;
+#X connect 31 0 24 0;
+#X connect 33 0 32 0;
+#X connect 33 0 27 0;
+#X connect 34 0 35 0;
+#X connect 35 0 36 0;
+#X connect 36 0 41 0;
+#X connect 37 0 30 1;
+#X connect 37 0 40 0;
+#X connect 38 0 42 0;
+#X connect 39 0 38 0;
+#X connect 41 0 37 0;
+#X connect 42 0 37 0;
--- a/scene demo/freqCalcCyl3No_D1Mach.pd	Thu Dec 10 15:42:09 2015 +0000
+++ b/scene demo/freqCalcCyl3No_D1Mach.pd	Sun Dec 13 10:17:40 2015 +0000
@@ -1,4 +1,4 @@
-#N canvas 9 24 1396 823 10;
+#N canvas 48 38 1396 823 10;
 #X text 567 158 Mass Density of Air;
 #X text 96 418 Frequency (Hz);
 #X obj 689 159 *~ 1.225;
@@ -303,12 +303,12 @@
 #X obj 1055 241 rpole~ 0.99;
 #X obj 1055 215 noise~;
 #X obj 72 246 outlet;
-#X obj 302 143 r~ \$0-windSpeed;
-#X obj 322 182 r \$0-diameter;
-#X obj 292 122 r~ \$0-str;
-#X obj 312 162 r \$0-leng;
-#X obj 331 204 r \$0-dist;
-#N canvas 336 65 1238 721 GoldfreqGain 0;
+#X obj 301 143 r~ \$0-windSpeed;
+#X obj 319 182 r \$0-diameter;
+#X obj 293 122 r~ \$0-str;
+#X obj 311 163 r \$0-leng;
+#X obj 336 221 r \$0-dist;
+#N canvas 183 98 1238 721 GoldfreqGain 1;
 #N canvas 759 125 286 294 pow6 0;
 #X obj 47 67 *~;
 #X obj 76 67 *~;
@@ -375,17 +375,16 @@
 #X restore 219 30 pd pow6;
 #X obj 173 32 *~;
 #X obj 219 68 *~;
-#X obj 219 102 *~ 1;
-#X obj 404 71 *;
-#X text 471 2 Distance;
-#X floatatom 451 62 5 0 0 0 - - -;
+#X obj 404 137 *;
+#X text 533 2 Distance;
+#X floatatom 513 62 5 0 0 0 - - -;
 #X text 724 562 Calculates Drag Dipole gain;
 #X text 48 626 Calculates Lift Dipole gain;
 #X obj 173 8 inlet~;
 #X obj 219 7 inlet~;
-#X text 283 38 Diameter;
-#X obj 277 53 inlet;
-#X obj 451 18 inlet;
+#X text 328 62 Diameter;
+#X obj 291 61 inlet;
+#X obj 513 18 inlet;
 #X obj 219 646 outlet~;
 #X obj 758 537 outlet~;
 #X obj 240 159 inlet;
@@ -414,22 +413,21 @@
 #X obj 149 458 metro 10;
 #X obj 149 479 snapshot~;
 #X floatatom 112 524 10 0 0 0 - - -;
-#X obj 752 19 inlet;
-#X obj 851 21 inlet;
-#X obj 947 24 inlet;
-#X floatatom 752 66 5 0 0 0 - - -;
-#X floatatom 851 67 5 0 0 0 - - -;
-#X floatatom 948 68 5 0 0 0 - - -;
-#X text 748 0 X Rotation;
-#X text 845 2 Y Rotation;
-#X text 942 5 Z Rotation;
-#X obj 757 42 s \$0-this_rotaX;
-#X obj 858 43 s \$0-thisrotaY;
-#X obj 955 47 s \$0-thisrotaZ;
+#X obj 814 19 inlet;
+#X obj 913 21 inlet;
+#X obj 1009 24 inlet;
+#X floatatom 814 66 5 0 0 0 - - -;
+#X floatatom 913 67 5 0 0 0 - - -;
+#X floatatom 1010 68 5 0 0 0 - - -;
+#X text 810 0 X Rotation;
+#X text 907 2 Y Rotation;
+#X text 1004 5 Z Rotation;
+#X obj 819 42 s \$0-this_rotaX;
+#X obj 920 43 s \$0-thisrotaY;
+#X obj 1017 47 s \$0-thisrotaZ;
 #X text 74 8 Strouhal number;
 #X text 269 7 Wind speed;
-#X obj 275 84 * 8;
-#X text 276 103 Corr Length;
+#X text 266 103 Corr Length;
 #X obj 219 225 *~ 2.50663;
 #X obj 219 130 *~ 1.225;
 #X text 93 126 Mass Density of Air;
@@ -439,9 +437,9 @@
 #X obj 322 512 *~;
 #X obj 322 488 cos~;
 #X obj 219 566 *~;
-#X obj 404 96 * 4.05513e+07;
-#X text 355 115 Speed of Sound to power 3;
-#X obj 404 149 * 32;
+#X obj 404 167 * 4.05513e+07;
+#X text 355 186 Speed of Sound to power 3;
+#X obj 404 220 * 32;
 #X obj 553 189 r SIG_MACH;
 #X obj 518 189 cos~;
 #X obj 518 212 *~;
@@ -474,7 +472,7 @@
 #X connect 10 0 3 0;
 #X connect 10 0 4 0;
 #X restore 503 266 pd pow4;
-#X obj 404 177 sig~;
+#X obj 404 248 sig~;
 #X obj 404 298 *~;
 #X obj 429 316 loadbang;
 #X obj 429 337 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
@@ -494,12 +492,12 @@
 #X obj 773 405 *~;
 #X obj 773 381 cos~;
 #X obj 758 436 *~;
-#X text 647 1 Azimuth;
-#X text 546 3 Elevation;
-#X obj 549 21 inlet;
-#X obj 651 19 inlet;
-#X floatatom 549 68 5 0 0 0 - - -;
-#X floatatom 651 68 5 0 0 0 - - -;
+#X text 709 1 Azimuth;
+#X text 608 3 Elevation;
+#X obj 611 21 inlet;
+#X obj 713 19 inlet;
+#X floatatom 611 68 5 0 0 0 - - -;
+#X floatatom 713 68 5 0 0 0 - - -;
 #X obj 322 417 r \$0-this_azim;
 #X obj 234 394 r \$0-this_elev;
 #X obj 773 314 r \$0-this_azim;
@@ -512,12 +510,12 @@
 #X obj 818 120 r~ plotElev;
 #X obj 150 588 s~ plotOPF;
 #X obj 676 541 s~ plotOPD;
-#X obj 554 44 s \$0-this_elev;
-#X obj 658 44 s \$0-this_azim;
+#X obj 616 44 s \$0-this_elev;
+#X obj 720 44 s \$0-this_azim;
 #X obj 518 117 r \$0-this_elev;
-#X obj 458 40 s \$0-thisDist;
+#X obj 520 40 s \$0-thisDist;
 #X obj 887 268 r \$0-thisDist;
-#X obj 370 39 r \$0-thisDist;
+#X obj 404 111 r \$0-thisDist;
 #X obj 887 292 *;
 #X obj 887 317 * 4.05513e+07;
 #X text 892 335 Speed of Sound to power 3;
@@ -526,112 +524,119 @@
 #X obj 872 423 /~;
 #X text 588 167 Remember - Goldstein moves cylinder;
 #X obj 893 122 r~ plotElev;
-#X floatatom 359 98 5 0 0 0 - - -;
+#X floatatom 359 169 5 0 0 0 - - -;
 #X obj 518 170 /~ 360;
 #X text 684 638 comment;
 #X obj 758 475 *~;
+#X obj 424 40 s~ \$0-thisColL;
+#X obj 270 42 r~ \$0-thisColL;
+#X obj 270 82 *~ 1;
+#X obj 219 102 *~;
+#X obj 424 17 inlet~;
 #X connect 0 0 2 0;
 #X connect 1 0 2 1;
-#X connect 2 0 3 0;
-#X connect 3 0 56 0;
-#X connect 4 0 64 0;
-#X connect 4 0 124 0;
-#X connect 9 0 1 0;
-#X connect 9 0 1 1;
-#X connect 10 0 0 0;
-#X connect 12 0 53 0;
-#X connect 13 0 6 0;
-#X connect 13 0 113 0;
-#X connect 16 0 18 1;
-#X connect 18 0 55 0;
-#X connect 19 0 24 0;
-#X connect 20 0 60 0;
+#X connect 2 0 129 0;
+#X connect 3 0 62 0;
+#X connect 3 0 122 0;
+#X connect 8 0 1 0;
+#X connect 8 0 1 1;
+#X connect 9 0 0 0;
+#X connect 11 0 128 1;
+#X connect 12 0 5 0;
+#X connect 12 0 111 0;
+#X connect 15 0 17 1;
+#X connect 17 0 53 0;
+#X connect 18 0 23 0;
+#X connect 19 0 58 0;
+#X connect 20 0 21 0;
 #X connect 21 0 22 0;
-#X connect 22 0 23 0;
-#X connect 23 0 27 0;
-#X connect 24 0 59 0;
-#X connect 25 0 26 1;
-#X connect 26 0 63 0;
-#X connect 27 0 28 0;
+#X connect 22 0 26 0;
+#X connect 23 0 57 0;
+#X connect 24 0 25 1;
+#X connect 25 0 61 0;
+#X connect 26 0 27 0;
+#X connect 28 0 29 0;
 #X connect 29 0 30 0;
 #X connect 30 0 31 0;
 #X connect 31 0 32 0;
-#X connect 32 0 33 0;
+#X connect 33 0 34 0;
 #X connect 34 0 35 0;
 #X connect 35 0 36 0;
 #X connect 36 0 37 0;
-#X connect 37 0 38 0;
+#X connect 38 0 41 0;
+#X connect 38 0 47 0;
 #X connect 39 0 42 0;
 #X connect 39 0 48 0;
 #X connect 40 0 43 0;
 #X connect 40 0 49 0;
-#X connect 41 0 44 0;
-#X connect 41 0 50 0;
-#X connect 53 0 3 1;
-#X connect 55 0 80 0;
-#X connect 55 0 81 0;
-#X connect 56 0 18 0;
-#X connect 59 0 25 0;
-#X connect 59 0 25 1;
-#X connect 60 0 62 0;
-#X connect 61 0 63 1;
-#X connect 62 0 61 0;
-#X connect 62 0 61 1;
-#X connect 63 0 14 0;
-#X connect 63 0 27 0;
-#X connect 63 0 108 0;
-#X connect 64 0 66 0;
-#X connect 66 0 73 0;
+#X connect 53 0 78 0;
+#X connect 53 0 79 0;
+#X connect 54 0 17 0;
+#X connect 57 0 24 0;
+#X connect 57 0 24 1;
+#X connect 58 0 60 0;
+#X connect 59 0 61 1;
+#X connect 60 0 59 0;
+#X connect 60 0 59 1;
+#X connect 61 0 13 0;
+#X connect 61 0 26 0;
+#X connect 61 0 106 0;
+#X connect 62 0 64 0;
+#X connect 64 0 71 0;
+#X connect 65 0 67 1;
+#X connect 66 0 67 0;
 #X connect 67 0 69 1;
 #X connect 68 0 69 0;
-#X connect 69 0 71 1;
-#X connect 70 0 71 0;
+#X connect 69 0 70 0;
+#X connect 70 0 72 1;
 #X connect 71 0 72 0;
-#X connect 72 0 74 1;
+#X connect 72 0 78 1;
+#X connect 72 0 76 0;
 #X connect 73 0 74 0;
-#X connect 74 0 80 1;
-#X connect 74 0 78 0;
+#X connect 74 0 75 0;
 #X connect 75 0 76 0;
 #X connect 76 0 77 0;
-#X connect 77 0 78 0;
-#X connect 78 0 79 0;
-#X connect 80 0 26 0;
-#X connect 82 0 121 0;
-#X connect 83 0 15 0;
-#X connect 83 0 109 0;
-#X connect 84 0 85 0;
-#X connect 85 0 87 0;
-#X connect 86 0 91 0;
-#X connect 87 0 86 0;
-#X connect 87 0 86 1;
-#X connect 88 0 90 0;
-#X connect 89 0 91 1;
-#X connect 90 0 89 0;
-#X connect 90 0 89 1;
-#X connect 91 0 127 0;
-#X connect 94 0 96 0;
-#X connect 94 0 110 0;
-#X connect 95 0 97 0;
-#X connect 95 0 111 0;
-#X connect 98 0 20 0;
-#X connect 99 0 19 0;
-#X connect 100 0 103 0;
-#X connect 101 0 102 0;
-#X connect 102 0 84 0;
-#X connect 103 0 88 0;
-#X connect 104 0 125 0;
-#X connect 112 0 104 0;
-#X connect 114 0 116 0;
-#X connect 114 0 116 1;
-#X connect 115 0 4 0;
-#X connect 115 0 4 1;
-#X connect 116 0 117 0;
-#X connect 117 0 119 0;
-#X connect 119 0 120 0;
-#X connect 120 0 121 1;
-#X connect 121 0 127 1;
-#X connect 125 0 68 0;
-#X connect 127 0 83 0;
+#X connect 78 0 25 0;
+#X connect 80 0 119 0;
+#X connect 81 0 14 0;
+#X connect 81 0 107 0;
+#X connect 82 0 83 0;
+#X connect 83 0 85 0;
+#X connect 84 0 89 0;
+#X connect 85 0 84 0;
+#X connect 85 0 84 1;
+#X connect 86 0 88 0;
+#X connect 87 0 89 1;
+#X connect 88 0 87 0;
+#X connect 88 0 87 1;
+#X connect 89 0 125 0;
+#X connect 92 0 94 0;
+#X connect 92 0 108 0;
+#X connect 93 0 95 0;
+#X connect 93 0 109 0;
+#X connect 96 0 19 0;
+#X connect 97 0 18 0;
+#X connect 98 0 101 0;
+#X connect 99 0 100 0;
+#X connect 100 0 82 0;
+#X connect 101 0 86 0;
+#X connect 102 0 123 0;
+#X connect 110 0 102 0;
+#X connect 112 0 114 0;
+#X connect 112 0 114 1;
+#X connect 113 0 3 0;
+#X connect 113 0 3 1;
+#X connect 114 0 115 0;
+#X connect 115 0 117 0;
+#X connect 117 0 118 0;
+#X connect 118 0 119 1;
+#X connect 119 0 125 1;
+#X connect 123 0 66 0;
+#X connect 125 0 81 0;
+#X connect 127 0 128 0;
+#X connect 128 0 129 1;
+#X connect 129 0 54 0;
+#X connect 130 0 126 0;
 #X restore 293 287 pd GoldfreqGain;
 #N canvas 732 187 570 435 Qvalues 0;
 #X obj 50 93 inlet~;
@@ -648,7 +653,7 @@
 #X obj 209 206 spigot;
 #X floatatom 217 338 5 0 0 0 - - -;
 #X obj 211 70 hsl 128 15 100 30000 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 3805 1;
+-262144 -1 -1 4891 1;
 #X floatatom 174 128 8 0 0 0 - - -;
 #X obj 336 192 spigot;
 #X obj 382 165 spigot;
@@ -855,7 +860,7 @@
 #X obj 268 637 r~ \$0-str;
 #X obj 291 681 r \$0-leng;
 #X obj 337 771 r \$0-dist;
-#N canvas 316 23 1006 797 GoldnoiseGain 1;
+#N canvas 316 23 1006 797 GoldnoiseGain 0;
 #X text -21029 166 Mass Density of Air \, squared;
 #X obj -20846 141 *~ 1;
 #X obj -20750 161 *;
@@ -1076,11 +1081,11 @@
 #X connect 1 0 4 0;
 #X connect 2 0 5 0;
 #X connect 5 0 1 0;
-#X restore 1141 63 pd TuInt_calc;
-#X obj 1142 41 r \$0-TuInt;
-#X obj 1141 86 s \$0-TuGain;
+#X restore 1141 61 pd TuInt_calc;
+#X obj 1142 39 r \$0-TuInt;
+#X obj 1141 84 s \$0-TuGain;
 #X obj 977 514 r \$0-TuGain;
-#X floatatom 1107 85 5 0 0 0 - - -;
+#X floatatom 1107 83 5 0 0 0 - - -;
 #X obj 1157 514 r \$0-TuGain;
 #N canvas 811 216 464 503 dragDiFunNo 0;
 #X obj 124 84 inlet~;
@@ -1406,12 +1411,43 @@
 the lift dipole;
 #X obj 447 62 s \$0-azim;
 #X obj 522 62 s \$0-elev;
-#X obj 341 225 r \$0-elev;
-#X obj 351 246 r \$0-azim;
+#X obj 345 242 r \$0-elev;
+#X obj 353 263 r \$0-azim;
 #X obj 329 479 r \$0-elev;
 #X obj 348 503 r \$0-azim;
 #X obj 314 725 r \$0-elev;
 #X obj 325 748 r \$0-azim;
+#N canvas 979 287 444 428 corrLen 0;
+#X obj 103 71 inlet~;
+#X obj 88 177 outlet~;
+#X obj 282 208 snapshot~;
+#X obj 282 161 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 282 135 loadbang;
+#X floatatom 282 232 8 0 0 0 - - -;
+#X obj 88 143 *~;
+#X obj 282 183 metro 100;
+#X obj 124 93 sig~ -0.245;
+#X obj 103 119 pow~;
+#X obj 88 46 sig~ 34.36;
+#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 80 297 Equation of line derived from Norberg 2001;
+#X connect 0 0 9 0;
+#X connect 2 0 5 0;
+#X connect 3 0 7 0;
+#X connect 4 0 3 0;
+#X connect 6 0 1 0;
+#X connect 6 0 2 0;
+#X connect 7 0 2 0;
+#X connect 8 0 9 1;
+#X connect 9 0 6 1;
+#X connect 10 0 6 0;
+#X restore 1229 60 pd corrLen Calc;
+#X obj 1229 37 r~ \$0-myRey;
+#X obj 1229 84 s~ \$0-myCor;
+#X obj 327 202 r~ \$0-myCor;
 #X connect 2 0 4 0;
 #X connect 3 0 32 0;
 #X connect 3 0 72 0;
@@ -1492,7 +1528,7 @@
 #X connect 118 0 122 3;
 #X connect 119 0 122 0;
 #X connect 120 0 122 2;
-#X connect 121 0 122 4;
+#X connect 121 0 122 5;
 #X connect 122 0 86 0;
 #X connect 122 1 85 0;
 #X connect 123 0 125 0;
@@ -1538,9 +1574,12 @@
 #X connect 175 0 178 2;
 #X connect 176 0 178 3;
 #X connect 177 0 178 0;
-#X connect 183 0 122 5;
-#X connect 184 0 122 6;
+#X connect 183 0 122 6;
+#X connect 184 0 122 7;
 #X connect 185 0 136 3;
 #X connect 186 0 136 4;
 #X connect 187 0 131 4;
 #X connect 188 0 131 5;
+#X connect 189 0 191 0;
+#X connect 190 0 189 0;
+#X connect 192 0 122 4;
--- a/scene demo/testBed.pd	Thu Dec 10 15:42:09 2015 +0000
+++ b/scene demo/testBed.pd	Sun Dec 13 10:17:40 2015 +0000
@@ -71,7 +71,7 @@
 #X restore -253 -154 pd windspeed;
 #X obj -268 138 delwrite~ varwind 3000;
 #X obj -159 -139 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 2401 1;
+-262144 -1 -1 1201 1;
 #X obj -225 -24 snapshot~;
 #X obj -225 -49 metro 100;
 #X obj -225 -71 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
@@ -84,7 +84,7 @@
 #X obj -23 -138 loadbang;
 #X msg -23 -110 5;
 #X obj 215 10 hsl 128 15 0.001 0.3 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 3030 1;
+-262144 -1 -1 3584 1;
 #X floatatom 223 34 8 0 0 0 - - -;
 #X obj 273 284 hsl 128 15 0.009 0.9 0 0 empty empty empty -2 -8 0 10
 -262144 -1 -1 6999 1;
@@ -94,10 +94,10 @@
 -1 -1 6350 1;
 #X floatatom 270 195 5 0 0 0 - - -;
 #X obj 261 221 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 8050 1;
+-262144 -1 -1 7200 1;
 #X floatatom 285 250 5 0 0 0 - - -;
 #X obj 236 109 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
--1 -1 10477 1;
+-1 -1 8877 1;
 #X floatatom 247 138 5 0 0 0 - - -;
 #X text 414 285 Pan Value;
 #X obj -271 425 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
@@ -144,7 +144,7 @@
 #X restore -272 382 pd opLevels;
 #X msg -256 300 5;
 #X obj -269 353 hsl 100 25 0.1 5000 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 5896 1;
+-262144 -1 -1 7500 1;
 #X obj -7 -21 snapshot~;
 #X obj -7 -46 metro 100;
 #X floatatom -7 6 10 0 0 0 - - -;
@@ -168,7 +168,7 @@
 #X obj 167 -58 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X obj 224 66 hsl 128 15 1 10 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 9733 1;
+-1 -1 4233 1;
 #X floatatom 245 85 8 0 0 0 - - -;
 #X msg 133 49 4;
 #X obj -152 356 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144
@@ -578,7 +578,7 @@
 #X obj 319 519 +;
 #X obj 402 519 r \$0-blust;
 #X obj 392 547 hsl 128 15 0 0.5 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 231 1;
+-1 -1 33 1;
 #X obj -162 -116 * 0.75;
 #X obj -34 117 snapshot~;
 #X obj -34 92 metro 100;
@@ -587,7 +587,7 @@
 #X floatatom -34 144 10 0 0 0 - - -;
 #X obj -34 45 loadbang;
 #X text -37 162 Wind Direction;
-#X msg 341 -20 0.0039;
+#X msg 341 -20 0.005;
 #X connect 0 0 44 0;
 #X connect 3 0 8 1;
 #X connect 3 0 82 0;
@@ -663,6 +663,7 @@
 #X connect 73 0 66 0;
 #X connect 74 0 69 0;
 #X connect 78 0 21 0;
+#X connect 79 0 2 0;
 #X connect 80 0 21 0;
 #X connect 81 0 14 0;
 #X connect 83 0 147 0;
@@ -695,7 +696,6 @@
 #X connect 119 0 115 0;
 #X connect 120 0 147 1;
 #X connect 123 0 21 0;
-#X connect 125 0 2 0;
 #X connect 125 0 126 0;
 #X connect 125 1 161 0;
 #X connect 126 0 129 0;
@@ -723,7 +723,6 @@
 #X connect 154 0 133 0;
 #X connect 155 0 156 0;
 #X connect 155 1 8 0;
-#X connect 157 0 147 10;
 #X connect 157 0 118 0;
 #X connect 157 0 159 0;
 #X connect 158 0 157 0;