Mercurial > hg > weather-synthesis-prototyping

view Propellor/rotationNoiseTest.pd @ 238:62b41b255645

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
HarpD2 - minor edits Propellor - Starting to add rotation noise CavD1 - Applying Rossiter formula and Avital WindGenD1 - Evening out gust control RotationNoiseTest - New patch to work out Gutin's rotational noise equation.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 12 Sep 2016 22:36:23 +0100
parents
children 0afd235c4bb9
line wrap: on
line source
#N canvas 12 40 863 723 10;
#X obj 438 155 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 501 155 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#N canvas 555 179 313 396 opLevels 0;
#X obj 83 210 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 93 33 inlet;
#X obj 30 239 outlet;
#X obj 129 239 outlet;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 0 0 1;
#X connect 4 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 4 1;
#X connect 7 0 3 1;
#X restore 437 112 pd opLevels;
#N canvas 75 325 735 653 rotNoise 1;
#X obj 178 68 / 60;
#X floatatom 229 92 0 0 0 0 - - -;
#X obj 178 92 * 6.28;
#X floatatom 229 121 0 0 0 0 - - -;
#X obj 108 365 throw~ l;
#X obj 135 342 throw~ r;
#X obj 108 321 fcpan;
#X obj 108 224 vcf~ 3;
#X obj 247 294 r \$0-thisPan;
#X obj 108 273 *~ 1;
#X obj 108 245 vcf~ 3;
#X obj 17 190 *~ 1;
#X obj 178 137 line~;
#X msg 178 114 \$1 40;
#X obj 108 189 noise~;
#X obj 108 300 *~ 1;
#N canvas 706 94 1010 723 GutinGain 1;
#X floatatom 127 173 0 0 0 0 - - -;
#X text 215 135 k;
#X obj 205 33 r~ RPM;
#X obj 205 54 /~ 60;
#X obj 190 13 *~;
#X obj 190 -32 r~ Blad;
#X obj 205 -7 r~ Har;
#X obj 190 131 *~;
#X obj 243 54 r~ Blad;
#X obj 348 38 r~ Az;
#X obj 373 103 r~ Len;
#X obj 127 129 r myMet;
#X obj 127 151 snapshot~;
#X obj 369 181 r~ Blad;
#X obj 384 202 r~ Har;
#X obj 369 224 *~;
#X obj 369 248 *~ 2;
#X obj 348 61 sin~;
#X obj 348 101 *~;
#X obj 190 175 s~ k;
#X obj 363 80 r~ k;
#X obj 348 272 pow~;
#X floatatom 400 294 0 0 0 0 - - -;
#X obj 400 250 r myMet;
#X obj 400 272 snapshot~;
#X obj 313 204 r~ k;
#X obj 313 229 *~;
#X obj 288 184 r~ Blad;
#X obj 288 218 *~;
#X obj 348 315 r~ Az;
#X obj 348 335 cos~;
#X obj 348 357 -~ 0.2;
#X obj 348 380 *~;
#X obj 298 250 *~;
#X obj 333 294 *~;
#X obj 333 402 *~;
#X floatatom 220 454 0 0 0 0 - - -;
#X obj 220 410 r myMet;
#X obj 220 432 snapshot~;
#X obj 348 125 *~;
#X obj 580 45 r~ Dist;
#X obj 580 70 *~;
#X obj 580 92 *~ 343;
#X text 633 91 C;
#X obj 580 120 *~ 1.225;
#X text 641 122 Air Density;
#X obj 580 148 *~ 9.87;
#X text 636 147 pi^2;
#X obj 616 231 *~;
#X obj 616 190 r~ Blad;
#X obj 631 211 r~ Har;
#X obj 616 252 *~ 2;
#X obj 595 170 sig~ 2;
#X obj 595 296 pow~;
#X obj 580 318 *~;
#X obj 595 379 *~;
#X obj 595 338 r~ Blad;
#X obj 610 359 r~ Har;
#X obj 623 380 r myMet;
#X obj 595 400 snapshot~;
#X floatatom 661 401 0 0 0 0 - - -;
#N canvas 683 114 385 576 myFactorial 0;
#X obj 305 33 inlet;
#X floatatom 331 55 0 0 0 0 - - -;
#X obj 86 449 outlet;
#X obj 305 56 s n;
#X obj 86 32 r n;
#X obj 86 53 / 2.7183;
#X obj 86 96 pow;
#X obj 101 74 r n;
#X obj 101 144 r n;
#X obj 101 166 + 0.0333;
#X obj 116 187 r n;
#X obj 116 209 *;
#X obj 116 231 * 4;
#X obj 116 275 r n;
#X obj 116 297 *;
#X obj 131 316 r n;
#X obj 116 337 *;
#X obj 116 358 * 8;
#X obj 101 400 pow 0.166667;
#X obj 101 254 +;
#X obj 101 379 +;
#X obj 86 120 * 1.7725;
#X obj 86 423 *;
#X floatatom 143 448 0 0 0 0 - - -;
#X text 71 506 Based on Ramanujan approximation;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 21 0;
#X connect 7 0 6 1;
#X connect 8 0 9 0;
#X connect 9 0 19 0;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 12 0;
#X connect 12 0 19 1;
#X connect 13 0 14 0;
#X connect 13 0 14 1;
#X connect 14 0 16 0;
#X connect 15 0 16 1;
#X connect 16 0 17 0;
#X connect 17 0 20 1;
#X connect 18 0 22 1;
#X connect 19 0 20 0;
#X connect 20 0 18 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 22 0 2 0;
#X restore 595 423 pd myFactorial;
#X floatatom 639 444 0 0 0 0 - - -;
#X msg 595 445 \$1 20;
#X obj 595 464 line~;
#X obj 580 486 *~;
#X obj 565 510 /~;
#X floatatom 610 571 0 0 0 0 - - -;
#X obj 610 527 r myMet;
#X obj 610 549 snapshot~;
#X floatatom 847 118 0 0 0 0 - - -;
#X obj 847 74 r myMet;
#X obj 847 96 snapshot~;
#X floatatom 141 289 0 0 0 0 - - -;
#X obj 141 245 r myMet;
#X obj 141 267 snapshot~;
#X floatatom 217 323 0 0 0 0 - - -;
#X obj 217 279 r myMet;
#X obj 217 301 snapshot~;
#X floatatom 245 161 0 0 0 0 - - -;
#X obj 245 117 r myMet;
#X obj 245 139 snapshot~;
#X obj 190 153 /~ 343;
#X obj 205 75 *~ 6.2831;
#X floatatom 713 279 0 0 0 0 - - -;
#X obj 713 235 r myMet;
#X obj 713 257 snapshot~;
#X obj 616 273 +~ 4;
#X floatatom 702 515 0 0 0 0 - - -;
#X obj 702 471 r myMet;
#X obj 702 493 snapshot~;
#X obj 538 592 outlet~;
#X floatatom 144 409 0 0 0 0 - - -;
#X obj 144 365 r myMet;
#X obj 144 387 snapshot~;
#X obj 348 148 abs~;
#X floatatom 430 177 0 0 0 0 - - -;
#X obj 430 133 r myMet;
#X obj 430 155 snapshot~;
#X connect 2 0 3 0;
#X connect 3 0 83 0;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 6 0 4 1;
#X connect 7 0 82 0;
#X connect 9 0 17 0;
#X connect 10 0 39 1;
#X connect 11 0 12 0;
#X connect 12 0 0 0;
#X connect 13 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 16 0;
#X connect 16 0 21 1;
#X connect 16 0 24 0;
#X connect 17 0 18 0;
#X connect 18 0 39 0;
#X connect 20 0 18 1;
#X connect 21 0 34 1;
#X connect 23 0 24 0;
#X connect 24 0 22 0;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 25 0 78 0;
#X connect 26 0 33 1;
#X connect 27 0 28 0;
#X connect 27 0 28 1;
#X connect 28 0 33 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 31 0 32 1;
#X connect 32 0 35 1;
#X connect 32 0 38 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 66 0;
#X connect 37 0 38 0;
#X connect 38 0 36 0;
#X connect 39 0 94 0;
#X connect 39 0 95 0;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 40 0 72 0;
#X connect 41 0 42 0;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 54 0;
#X connect 48 0 51 0;
#X connect 49 0 48 0;
#X connect 50 0 48 1;
#X connect 51 0 87 0;
#X connect 52 0 53 0;
#X connect 53 0 54 1;
#X connect 53 0 86 0;
#X connect 54 0 65 0;
#X connect 55 0 59 0;
#X connect 56 0 55 0;
#X connect 57 0 55 1;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 59 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 63 0;
#X connect 63 0 64 0;
#X connect 64 0 65 1;
#X connect 65 0 66 1;
#X connect 65 0 90 0;
#X connect 66 0 69 0;
#X connect 66 0 91 0;
#X connect 68 0 69 0;
#X connect 69 0 67 0;
#X connect 71 0 72 0;
#X connect 72 0 70 0;
#X connect 74 0 75 0;
#X connect 75 0 73 0;
#X connect 77 0 78 0;
#X connect 78 0 76 0;
#X connect 80 0 81 0;
#X connect 81 0 79 0;
#X connect 82 0 19 0;
#X connect 82 0 12 0;
#X connect 83 0 7 1;
#X connect 83 0 81 0;
#X connect 85 0 86 0;
#X connect 86 0 84 0;
#X connect 87 0 53 1;
#X connect 89 0 90 0;
#X connect 90 0 88 0;
#X connect 93 0 94 0;
#X connect 94 0 92 0;
#X connect 95 0 98 0;
#X connect 95 0 21 0;
#X connect 97 0 98 0;
#X connect 98 0 96 0;
#X restore 517 167 pd GutinGain;
#X obj 178 45 r RPM;
#X msg 176 294 0.5;
#X obj 517 194 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 13 0;
#X connect 6 0 4 0;
#X connect 6 1 5 0;
#X connect 7 0 10 0;
#X connect 9 0 15 0;
#X connect 10 0 9 0;
#X connect 11 0 7 1;
#X connect 11 0 10 1;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 14 0 7 0;
#X connect 15 0 6 0;
#X connect 16 0 19 0;
#X connect 17 0 0 0;
#X connect 18 0 6 1;
#X restore 489 364 pd rotNoise;
#X obj 436 67 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2300 1;
#X obj 77 165 hsl 128 15 0 1000 0 0 empty empty RPM 5 8 0 10 -262144
-1 -1 6071 1;
#X obj 82 52 hsl 128 15 1 3 0 0 empty empty No_of_Blades 5 8 0 10 -262144
-1 -1 6800 1;
#X obj 79 72 i;
#X floatatom 106 72 0 0 0 0 - - -;
#X floatatom 118 182 0 0 0 0 - - -;
#X obj 75 257 hsl 128 15 1 8 0 0 empty empty Harmonic_Number 5 8 0
10 -262144 -1 -1 1800 1;
#X obj 72 277 i;
#X floatatom 96 276 0 0 0 0 - - -;
#X obj 76 376 hsl 128 15 0 360 0 0 empty empty Azimuth 5 8 0 10 -262144
-1 -1 12700 1;
#X floatatom 116 395 0 0 0 0 - - -;
#X obj 74 479 hsl 128 15 0 2 0 0 empty empty Blade_Radius 5 8 0 10
-262144 -1 -1 5100 1;
#X floatatom 123 498 0 0 0 0 - - -;
#X msg 79 94 \$1 20;
#X obj 79 113 line~;
#X obj 79 134 s~ Blad;
#X msg 74 184 \$1 20;
#X obj 74 203 line~;
#X obj 74 223 s~ RPM;
#X msg 72 298 \$1 20;
#X obj 72 317 line~;
#X obj 72 338 s~ Har;
#X msg 73 416 \$1 20;
#X obj 73 435 line~;
#X obj 73 455 s~ Az;
#X msg 71 496 \$1 20;
#X obj 71 515 line~;
#X obj 71 535 s~ Len;
#X obj 595 4 loadbang;
#X obj 595 24 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 595 63 s myMet;
#X obj 74 558 hsl 128 15 0 150 0 0 empty empty Distance 5 8 0 10 -262144
-1 -1 4100 1;
#X floatatom 123 577 0 0 0 0 - - -;
#X msg 71 578 \$1 20;
#X obj 71 600 line~;
#X obj 71 621 s~ Dist;
#X obj 595 42 metro 10;
#X floatatom 266 608 0 0 0 0 - - -;
#X obj 266 564 r myMet;
#X obj 266 586 snapshot~;
#X msg 172 141 478;
#X msg 189 348 120;
#X obj 73 395 / 360;
#X msg 224 347 50;
#N canvas 753 58 681 350 PlotWrt 0;
#X obj 70 303 textfile;
#X msg 562 196 clear \, rewind;
#X obj 70 159 snapshot~;
#X floatatom 77 181 0 0 0 0 - - -;
#X obj 140 156 snapshot~;
#X floatatom 148 177 0 0 0 0 - - -;
#X obj 57 113 inlet~;
#X obj 128 107 inlet~;
#X obj 70 134 r myMet;
#X obj 140 131 r myMet;
#X obj 213 155 snapshot~;
#X floatatom 222 177 0 0 0 0 - - -;
#X obj 213 128 r myMet;
#X obj 200 105 inlet~;
#X msg 70 202 add2 \$1;
#X obj 282 152 snapshot~;
#X floatatom 290 175 0 0 0 0 - - -;
#X obj 282 125 r myMet;
#X obj 269 102 inlet~;
#X msg 213 198 add2 \$1;
#X obj 358 155 snapshot~;
#X floatatom 367 177 0 0 0 0 - - -;
#X obj 358 128 r myMet;
#X obj 345 105 inlet~;
#X msg 358 199 add \$1;
#X msg 282 196 add2 \$1;
#X msg 439 197 write rotNoise.txt;
#X msg 140 198 add \$1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 14 0;
#X connect 4 0 5 0;
#X connect 4 0 27 0;
#X connect 6 0 2 0;
#X connect 7 0 4 0;
#X connect 8 0 2 0;
#X connect 9 0 4 0;
#X connect 10 0 11 0;
#X connect 10 0 19 0;
#X connect 12 0 10 0;
#X connect 13 0 10 0;
#X connect 14 0 0 0;
#X connect 15 0 16 0;
#X connect 15 0 25 0;
#X connect 17 0 15 0;
#X connect 18 0 15 0;
#X connect 20 0 21 0;
#X connect 20 0 24 0;
#X connect 22 0 20 0;
#X connect 23 0 20 0;
#X connect 26 0 0 0;
#X connect 27 0 0 0;
#X restore 465 454 pd PlotWrt;
#X obj 274 353 line;
#X msg 333 338 0;
#X msg 272 311 360 5000;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 48 1;
#X connect 4 0 2 0;
#X connect 5 0 9 0;
#X connect 5 0 20 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 17 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 0 23 0;
#X connect 13 0 14 0;
#X connect 13 0 46 0;
#X connect 15 0 16 0;
#X connect 15 0 29 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 27 0 48 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 32 0 33 0;
#X connect 33 0 40 0;
#X connect 35 0 36 0;
#X connect 35 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 40 0 34 0;
#X connect 42 0 43 0;
#X connect 43 0 41 0;
#X connect 44 0 5 0;
#X connect 45 0 13 0;
#X connect 46 0 26 0;
#X connect 47 0 13 0;
#X connect 49 0 13 0;
#X connect 50 0 49 0;
#X connect 51 0 49 0;