Mercurial > hg > weather-synthesis-prototyping
view June/prop_D1.pd @ 76:c24bf0e84aba
Alternative Strouhal Number calculation added to freqCalcCylD2, then implemented in Gen2_D5. Correction made to intensity calc which requires double checking.
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Wed, 24 Jun 2015 13:21:22 +0100 |
| parents | c0c0d99d1e2e |
| children | 94fdafb68c3e |
line wrap: on
line source
#N canvas 0 23 1105 841 10; #X obj 377 -124 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X obj 440 -124 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X text 437 -215 Gain; #X obj 376 -241 loadbang; #N canvas 865 368 284 318 opLevels 0; #X obj 74 188 dac~; #X obj 30 70 catch~ l; #X obj 128 70 catch~ r; #X obj 129 104 *~ 0.45; #X obj 30 104 *~ 0.45; #X obj 30 210 prvu~; #X obj 129 211 prvu~; #X obj 186 75 / 127; #X obj 186 40 inlet; #X obj 30 239 outlet; #X obj 129 239 outlet; #X obj 95 37 r NoOfSources; #X obj 74 143 /~ 15; #X obj 95 165 /~ 15; #X msg 94 111 50; #X obj 229 39 inlet; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 13 0; #X connect 4 0 12 0; #X connect 5 0 9 0; #X connect 6 0 10 0; #X connect 7 0 3 1; #X connect 7 0 4 1; #X connect 8 0 7 0; #X connect 12 0 0 0; #X connect 12 0 5 0; #X connect 13 0 0 1; #X connect 13 0 6 0; #X connect 14 0 12 1; #X connect 14 0 13 1; #X connect 15 0 12 1; #X connect 15 0 13 1; #X restore 376 -167 pd opLevels; #X msg 376 -218 5; #N canvas 739 151 718 592 source1 0; #X floatatom 63 122 8 0 0 0 - - -; #X obj 121 86 * 40; #X obj 130 122 s windSpeed; #X obj 390 16 s panVal; #X obj 390 -5 line; #X floatatom 353 16 5 0 0 0 - - -; #X msg 363 -54 1; #X obj 173 -298 r swipSpeed; #X obj 173 -271 swap 80; #X obj 173 -243 /; #X obj 172 -217 * 150; #X floatatom 124 -271 5 0 0 0 - - -; #X obj 142 55 r swipSpeed; #X obj 121 -28 line; #X msg 121 -56 1 \$1; #X obj 124 5 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom 157 31 5 0 0 0 - - -; #X obj 235 -128 * 0.67; #X obj 170 -132 delay \$1; #X obj 121 -194 i; #X obj 170 -103 i; #X msg 170 -54 0 \$1; #X floatatom 83 -165 5 0 0 0 - - -; #X floatatom 215 -55 5 0 0 0 - - -; #X obj 41 36 s outputS; #X obj 121 -242 r start; #X obj 460 -232 +; #X obj 460 -207 * 0.5; #X obj 438 -175 i; #X msg 390 -107 0.5 \$1; #X msg 492 -41 0 \$1; #X obj 336 -245 r start; #X floatatom 464 -176 5 0 0 0 - - -; #X obj 465 -89 delay; #X obj 492 -65 i; #X obj 438 -146 t f b; #X obj 166 -165 t f b; #X obj 475 -256 r d2; #X obj 264 -54 s d2; #X obj 35 -164 s d1; #X obj 461 -279 r d1; #X obj 438 -107 s d3; #X obj 507 -96 r d3; #X obj 336 -218 t b b; #X text 57 145 Effective Windspeed; #X text 368 40 Pan value; #X obj 421 -199 s d4; #X obj 52 -237 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 263 -286 70; #X connect 1 0 0 0; #X connect 1 0 2 0; #X connect 4 0 3 0; #X connect 4 0 5 0; #X connect 6 0 4 0; #X connect 7 0 8 0; #X connect 7 0 11 0; #X connect 8 0 9 0; #X connect 8 1 9 1; #X connect 9 0 10 0; #X connect 10 0 17 0; #X connect 10 0 19 1; #X connect 12 0 1 1; #X connect 13 0 15 0; #X connect 14 0 13 0; #X connect 15 0 16 0; #X connect 15 0 1 0; #X connect 15 0 24 0; #X connect 17 0 20 1; #X connect 18 0 20 0; #X connect 19 0 14 0; #X connect 19 0 22 0; #X connect 19 0 36 0; #X connect 19 0 39 0; #X connect 20 0 23 0; #X connect 20 0 21 0; #X connect 20 0 38 0; #X connect 21 0 13 0; #X connect 25 0 19 0; #X connect 26 0 27 0; #X connect 26 0 46 0; #X connect 27 0 28 1; #X connect 27 0 32 0; #X connect 28 0 35 0; #X connect 29 0 4 0; #X connect 30 0 4 0; #X connect 31 0 43 0; #X connect 33 0 34 0; #X connect 34 0 30 0; #X connect 35 0 29 0; #X connect 35 0 33 1; #X connect 35 0 41 0; #X connect 35 1 33 0; #X connect 36 0 18 1; #X connect 36 1 18 0; #X connect 37 0 26 1; #X connect 40 0 26 0; #X connect 42 0 34 1; #X connect 43 0 28 0; #X connect 43 1 6 0; #X connect 47 0 19 0; #X connect 48 0 8 0; #X restore 375 36 pd source1; #N canvas 12 52 684 554 speedCalc 0; #X obj 59 -12 inlet; #X obj 135 -11 inlet; #X obj 217 -12 inlet; #X obj 317 -12 inlet; #X obj 59 11 s \$0_swLen; #X obj 135 11 s \$0_armLen; #X obj 317 10 s \$0_tipSpeed; #X obj 141 301 r \$0_tipSpeed; #X obj 211 437 outlet; #X obj 211 414 r \$0_minSpeed; #X obj 126 349 s \$0_minSpeed; #X obj 310 414 r \$0_deltaSpeed; #X obj 388 261 s \$0_deltaSpeed; #X obj 310 437 outlet; #X obj 84 100 r \$0_swLen; #X obj 126 280 /; #X floatatom 80 307 5 0 0 0 - - -; #X obj 99 123 r \$0_armLen; #X obj 84 205 +; #X obj 99 152 t f b; #X floatatom 40 240 5 0 0 0 - - -; #X obj 126 207 r \$0_armLen; #X obj 126 231 t f b; #X obj 126 177 delay 6; #X obj 153 256 delay 9; #X obj 217 11 s \$0_sourceTot; #X obj 421 202 r \$0_sourceTot; #X obj 126 325 *; #X floatatom 84 349 5 0 0 0 - - -; #X obj 512 119 r \$0_minSpeed; #X obj 388 202 -; #X obj 388 158 r \$0_tipSpeed; #X obj 388 232 /; #X obj 512 145 t f b; #X floatatom 343 261 5 0 0 0 - - -; #X obj 539 170 delay 14; #X connect 0 0 4 0; #X connect 1 0 5 0; #X connect 2 0 25 0; #X connect 3 0 6 0; #X connect 7 0 27 1; #X connect 9 0 8 0; #X connect 11 0 13 0; #X connect 14 0 18 0; #X connect 15 0 16 0; #X connect 15 0 27 0; #X connect 17 0 19 0; #X connect 18 0 20 0; #X connect 18 0 15 1; #X connect 19 0 18 1; #X connect 19 1 23 0; #X connect 21 0 22 0; #X connect 22 0 15 0; #X connect 22 1 24 0; #X connect 23 0 18 0; #X connect 24 0 15 0; #X connect 26 0 32 1; #X connect 27 0 10 0; #X connect 27 0 28 0; #X connect 29 0 33 0; #X connect 30 0 32 0; #X connect 31 0 30 0; #X connect 32 0 34 0; #X connect 32 0 12 0; #X connect 33 0 30 1; #X connect 33 1 35 0; #X connect 35 0 30 0; #X restore 226 264 pd speedCalc; #X floatatom 135 288 8 0 0 0 - - -; #X floatatom 380 286 8 0 0 0 - - -; #X obj 226 169 r bladeLen; #X obj 249 192 r armLength; #X obj 272 216 r NoOfSources; #X obj 295 241 r topSpeed; #X obj -62 -210 hsl 100 20 0 3000 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 2300 1; #X floatatom -65 -184 8 0 0 0 - - -; #X obj -62 -132 hsl 100 20 0 300 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 6400 1; #X obj 200 288 s firstSpeed; #X obj 295 287 s deltaSpeed; #X floatatom 145 59 8 0 0 0 - - -; #X floatatom 396 126 8 0 0 0 - - -; #N canvas 57 585 305 180 thickCalc 0; #X obj 173 86 r NoOfSources; #X obj 23 16 inlet; #X obj 26 64 inlet; #X obj 26 86 s \$0_tipThick; #X obj 158 62 -; #X obj 158 111 /; #X obj 158 134 outlet; #X obj 23 39 s \$0_hiltThick; #X floatatom 126 94 5 0 0 0 - - -; #X obj 173 40 r \$0_tipThick; #X obj 158 15 r \$0_hiltThick; #X floatatom 94 136 8 0 0 0 - - -; #X connect 0 0 5 1; #X connect 1 0 7 0; #X connect 2 0 3 0; #X connect 4 0 5 0; #X connect 4 0 8 0; #X connect 5 0 6 0; #X connect 5 0 11 0; #X connect 9 0 4 1; #X connect 10 0 4 0; #X restore 205 -36 pd thickCalc; #X obj 205 -13 s deltaThick; #X floatatom 150 -12 8 0 0 0 - - -; #X obj 205 -81 r hiltThick; #X obj 274 -59 r tipThick; #N canvas 447 270 208 198 circumferCalc 0; #X obj 84 45 inlet; #X obj 84 69 * 3.14159; #X floatatom 26 120 8 0 0 0 - - -; #X obj 84 93 * 2; #X obj 84 118 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 3 0 2 0; #X connect 3 0 4 0; #X restore 202 35 pd circumferCalc; #X obj 306 128 s deltaCircum; #N canvas 767 188 758 617 angleCalc 0; #X floatatom -252 49 8 0 0 0 - - -; #X obj -194 50 * 0.75; #X obj 149 51 * 0.25; #X floatatom 171 76 8 0 0 0 - - -; #X floatatom -178 72 8 0 0 0 - - -; #X obj -194 97 /; #X msg -209 203 1 \$1; #X obj -209 180 f; #X floatatom -242 203 5 0 0 0 - - -; #X obj -209 225 line 0; #X obj -245 154 r GO; #X msg -165 203 0; #X obj -194 121 * 1000; #X obj 61 290 line 0; #X obj 61 212 delay \$1; #X obj 63 154 f; #X obj 63 111 r GO; #X obj 63 180 t f b; #X obj 61 239 i; #X msg 61 261 1 \$1; #X msg 139 255 0; #X obj 149 184 /; #X obj 149 208 * 1000; #X obj -209 275 *; #X obj -157 244 r sweepAngle; #X obj -206 340 hsl 100 25 0 360 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj -160 272 * -0.75; #X obj -209 299 +; #X obj -159 297 * -1; #X obj -179 155 s \$0_thisDe; #X obj 78 133 r \$0_thisDe; #X obj 61 328 *; #X obj 118 295 r sweepAngle; #X obj 64 380 hsl 100 25 -360 360 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 13 239 s \$0_d; #X obj 139 233 r GO; #X obj -194 26 r maxCirc; #X obj 149 29 r maxCirc; #X obj -124 70 r topSpeed; #X obj 164 158 r topSpeed; #X obj -90 459 s currentAngle; #X obj -90 413 +; #X floatatom -90 438 8 0 0 0 - - -; #X obj -41 392 t f b; #X obj 280 146 delay \$1; #X obj 282 88 f; #X obj 282 62 r GO; #X obj 282 114 t f b; #X obj 318 -6 r maxCirc; #X obj 333 16 r topSpeed; #X obj 318 40 /; #X obj 318 62 * 1000; #X obj 280 168 s end; #X obj -165 182 r end; #X floatatom -166 408 8 0 0 0 - - -; #X obj -41 359 r end; #X obj 118 318 * -0.25; #X connect 1 0 4 0; #X connect 1 0 5 0; #X connect 2 0 3 0; #X connect 2 0 21 0; #X connect 5 0 12 0; #X connect 6 0 9 0; #X connect 7 0 6 0; #X connect 7 0 8 0; #X connect 9 0 23 0; #X connect 10 0 7 0; #X connect 11 0 9 0; #X connect 12 0 7 1; #X connect 12 0 29 0; #X connect 13 0 31 0; #X connect 14 0 18 0; #X connect 14 0 34 0; #X connect 15 0 17 0; #X connect 16 0 15 0; #X connect 17 0 14 1; #X connect 17 1 14 0; #X connect 18 0 19 0; #X connect 19 0 13 0; #X connect 20 0 13 0; #X connect 21 0 22 0; #X connect 22 0 18 1; #X connect 23 0 27 0; #X connect 24 0 26 0; #X connect 25 0 41 0; #X connect 25 0 54 0; #X connect 26 0 28 0; #X connect 26 0 23 1; #X connect 27 0 25 0; #X connect 28 0 27 1; #X connect 30 0 15 1; #X connect 31 0 33 0; #X connect 32 0 56 0; #X connect 33 0 43 0; #X connect 35 0 20 0; #X connect 36 0 0 0; #X connect 36 0 1 0; #X connect 37 0 2 0; #X connect 38 0 5 1; #X connect 39 0 21 1; #X connect 41 0 42 0; #X connect 42 0 40 0; #X connect 43 0 41 1; #X connect 43 1 41 0; #X connect 44 0 52 0; #X connect 45 0 47 0; #X connect 46 0 45 0; #X connect 47 0 44 1; #X connect 47 1 44 0; #X connect 48 0 50 0; #X connect 49 0 50 1; #X connect 50 0 51 0; #X connect 51 0 45 1; #X connect 53 0 11 0; #X connect 54 0 42 0; #X connect 55 0 43 0; #X connect 56 0 31 1; #X restore 263 -108 pd angleCalc; #X obj 379 -196 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 1190 1; #X obj 652 -128 freqCalcWoo; #X obj 652 -179 r \$0_thisGroup; #X obj 778 -101 *; #X obj 793 -126 r deltaThick; #X obj 778 -190 r \$0_thisGroup; #X obj 778 -147 +; #X obj 763 -215 r hiltThick; #X obj 763 -76 -; #X floatatom 774 -50 8 0 0 0 - - -; #X obj 793 -169 r \$0_s0; #X obj 715 -151 r \$0_s0; #N canvas 1051 49 396 632 obsPosition 0; #X obj -49 337 r obsDistance; #X obj 113 149 r obsAngle; #X obj -44 29 inlet; #X obj 188 108 r bladeLen; #X obj 203 214 r armLength; #X obj -44 52 s \$0_sourceNo; #X obj 202 129 r NoOfSources; #X obj 188 239 +; #X obj 188 149 /; #X obj 188 193 *; #X obj 203 170 r \$0_sourceNo; #X floatatom 61 53 5 0 0 0 - - -; #X obj 98 204 / 360; #X obj 98 226 * 6.28319; #X floatatom 40 277 8 0 0 0 - - -; #X obj 98 277 *; #X floatatom 41 339 8 0 0 0 - - -; #X obj 122 391 hsl 128 15 15 25 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 98 127 r currentAngle; #X floatatom 55 147 5 0 0 0 - - -; #X floatatom 20 397 8 0 0 0 - - -; #X obj 98 339 t f b; #X obj 98 172 +; #X obj 116 36 hsl 128 15 180 -180 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom 124 63 5 0 0 0 - - -; #X obj 83 370 +; #X obj 98 251 cos; #X obj 98 314 * -1; #X obj -36 158 hsl 75 25 -60 180 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom -23 203 5 0 0 0 - - -; #X obj 83 412 outlet; #X floatatom 54 205 5 0 0 0 - - -; #X obj 146 205 outlet; #X connect 0 0 25 0; #X connect 1 0 22 1; #X connect 2 0 5 0; #X connect 2 0 11 0; #X connect 3 0 8 0; #X connect 4 0 7 1; #X connect 6 0 8 1; #X connect 7 0 15 1; #X connect 8 0 9 0; #X connect 9 0 7 0; #X connect 10 0 9 1; #X connect 12 0 13 0; #X connect 13 0 26 0; #X connect 15 0 27 0; #X connect 18 0 19 0; #X connect 18 0 22 0; #X connect 19 0 28 0; #X connect 21 0 25 1; #X connect 21 1 25 0; #X connect 22 0 12 0; #X connect 22 0 31 0; #X connect 22 0 32 0; #X connect 23 0 24 0; #X connect 25 0 17 0; #X connect 25 0 20 0; #X connect 25 0 30 0; #X connect 26 0 14 0; #X connect 26 0 15 0; #X connect 27 0 21 0; #X connect 27 0 16 0; #X connect 28 0 29 0; #X connect 28 0 22 0; #X restore 677 -43 pd obsPosition; #X obj 525 417 freq3DChord; #X obj -66 175 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 4600 1; #X obj -69 329 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 8600 1; #X obj -66 254 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 1400 1; #X text -62 152 Azimuth Angle; #X text -63 233 Elevation Angle; #X text -53 308 Distance; #X floatatom -69 281 5 0 0 0 - - -; #X floatatom -72 355 5 0 0 0 - - -; #X floatatom -69 203 5 0 0 0 - - -; #X obj -68 -57 hsl 100 20 0.5 10 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 1800 1; #X floatatom -71 -29 5 0 0 0 - - -; #X obj -70 100 hsl 100 20 0.001 0.1 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 8900 1; #X floatatom -73 127 5 0 0 0 - - -; #X text -67 78 Chord Thickness; #X obj -69 23 hsl 100 20 0 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom -72 48 5 0 0 0 - - -; #X text -65 1 Chord Pitch; #X text 538 -238 Vertical propellor; #X obj 202 12 r bladeRadius; #X obj -34 -29 s bladeRadius; #X obj 202 58 s circum; #X text -68 -153 RMP (Fine); #X text -66 -230 RMP (Coarse); #X floatatom -66 -107 8 0 0 0 - - -; #X obj -11 -107 s fineRPM; #X obj -10 -184 s coarseRPM; #X obj -30 203 s obsAzim; #X obj -29 281 s obsElev; #X text -59 -79 Blade Radius (m); #X obj -37 126 s chordTh; #X obj 540 352 r chordTh; #X obj -29 356 s obsDist; #X obj 645 333 freqCalc3dCh; #X obj 660 353 r chordTh; #X msg 546 277 1; #X msg 663 283 2; #X msg 654 259 1; #X obj 655 227 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 592 263 0; #X obj 490 -194 hsl 100 25 1 400 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 3700 1; #X obj 525 332 freqCalc3dCh; #X obj 645 418 freq3DChord; #X obj 146 -201 bng 25 250 50 0 empty empty empty 17 7 0 10 -257985 -1 -1; #X obj 146 -172 s setUp; #X obj 32 -231 r setUp; #X obj 37 -154 r setUp; #X obj 45 -80 r setUp; #X obj 38 3 r setUp; #X obj 40 76 r setUp; #X obj 41 155 r setUp; #X obj 42 228 r setUp; #X obj 31 306 r setUp; #X text 69 411 Pan not working on this yet; #X connect 3 0 5 0; #X connect 4 0 0 0; #X connect 4 1 1 0; #X connect 5 0 29 0; #X connect 7 0 8 0; #X connect 7 0 17 0; #X connect 7 1 9 0; #X connect 7 1 18 0; #X connect 10 0 7 0; #X connect 11 0 7 1; #X connect 12 0 7 2; #X connect 13 0 7 3; #X connect 14 0 15 0; #X connect 14 0 68 0; #X connect 16 0 66 0; #X connect 16 0 67 0; #X connect 21 0 22 0; #X connect 21 0 23 0; #X connect 24 0 21 0; #X connect 25 0 21 1; #X connect 26 0 19 0; #X connect 26 0 63 0; #X connect 29 0 4 0; #X connect 31 0 30 0; #X connect 32 0 37 1; #X connect 33 0 32 1; #X connect 34 0 35 0; #X connect 35 0 32 0; #X connect 35 0 41 0; #X connect 36 0 37 0; #X connect 37 0 38 0; #X connect 39 0 35 1; #X connect 40 0 30 1; #X connect 43 0 51 0; #X connect 43 0 69 0; #X connect 44 0 50 0; #X connect 44 0 74 0; #X connect 45 0 49 0; #X connect 45 0 70 0; #X connect 52 0 53 0; #X connect 52 0 62 0; #X connect 54 0 55 0; #X connect 54 0 72 0; #X connect 57 0 58 0; #X connect 61 0 26 0; #X connect 73 0 42 1; #X connect 75 0 84 0; #X connect 75 1 84 3; #X connect 75 2 84 2; #X connect 76 0 84 1; #X connect 77 0 83 0; #X connect 78 0 75 0; #X connect 79 0 83 0; #X connect 80 0 79 0; #X connect 80 0 78 0; #X connect 81 0 75 0; #X connect 82 0 4 1; #X connect 83 0 42 0; #X connect 83 1 42 3; #X connect 83 2 42 2; #X connect 85 0 86 0; #X connect 87 0 14 0; #X connect 88 0 16 0; #X connect 89 0 52 0; #X connect 90 0 57 0; #X connect 91 0 54 0; #X connect 92 0 43 0; #X connect 93 0 45 0; #X connect 94 0 44 0;