view Fan Models/prop2_D1.pd @ 303:8b51c20529a6

Edgetone development models

#N canvas 161 23 1184 833 10;
#X obj 397 -104 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 460 -104 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text 457 -195 Gain;
#X obj 396 -221 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 219 118 inlet;
#X obj 30 152 /~ 1;
#X obj 129 154 /~ 1;
#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 11 0 12 1;
#X connect 11 0 13 1;
#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 restore 396 -147 pd opLevels;
#X msg 396 -198 5;
#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 246 284 pd speedCalc;
#X floatatom 155 308 8 0 0 0 - - -;
#X floatatom 400 306 8 0 0 0 - - -;
#X obj 246 189 r bladeLen;
#X obj 269 212 r armLength;
#X obj 292 236 r NoOfSources;
#X obj 315 261 r topSpeed;
#X obj -42 -190 hsl 100 20 0 3000 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 659 1;
#X floatatom -45 -164 8 0 0 0 - - -;
#X obj -42 -112 hsl 100 20 0 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 495 1;
#X obj 220 308 s firstSpeed;
#X obj 315 307 s deltaSpeed;
#X floatatom 165 79 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 225 -16 pd thickCalc;
#X obj 225 7 s deltaThick;
#X floatatom 170 8 8 0 0 0 - - -;
#X obj 225 -61 r hiltThick;
#X obj 294 -39 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 222 55 pd circumferCalc;
#X obj 326 148 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 283 -88 pd angleCalc;
#X obj 398 -178 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 390 1;
#X obj -46 195 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 6625 1;
#X obj -49 349 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 6500 1;
#X obj -46 274 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 7200 1;
#X text -42 172 Azimuth Angle;
#X text -43 253 Elevation Angle;
#X text -33 328 Distance;
#X floatatom -49 301 5 0 0 0 - - -;
#X floatatom -52 377 5 0 0 0 - - -;
#X floatatom -49 223 5 0 0 0 - - -;
#X obj -48 -37 hsl 100 20 0.5 10 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 4689 1;
#X floatatom -51 -9 5 0 0 0 - - -;
#X obj -50 120 hsl 100 20 0.001 0.1 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 3900 1;
#X floatatom -53 147 5 0 0 0 - - -;
#X text -47 98 Chord Thickness;
#X obj -49 43 hsl 100 20 0 90 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom -52 68 5 0 0 0 - - -;
#X text -45 21 Chord Pitch;
#X text 558 -218 Vertical propellor;
#X obj 222 32 r bladeRadius;
#X obj -14 -9 s bladeRadius;
#X obj 222 78 s circum;
#X text -48 -133 RMP (Fine);
#X text -46 -210 RMP (Coarse);
#X floatatom -46 -87 8 0 0 0 - - -;
#X obj 9 -87 s fineRPM;
#X obj 10 -164 s coarseRPM;
#X obj -10 223 s obsAzim;
#X obj -9 301 s obsElev;
#X text -39 -59 Blade Radius (m);
#X obj -17 146 s chordTh;
#X obj -9 376 s obsDist;
#X msg 696 107 1;
#X obj 510 -174 hsl 100 25 1 400 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3945 1;
#X obj 166 -181 bng 25 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj 166 -152 s setUp;
#X obj 52 -211 r setUp;
#X obj 57 -134 r setUp;
#X obj 65 -60 r setUp;
#X obj 58 23 r setUp;
#X obj 60 96 r setUp;
#X obj 61 175 r setUp;
#X obj 62 248 r setUp;
#X obj 51 326 r setUp;
#X text 89 431 Pan not working on this yet;
#X obj 491 565 s fCRPM;
#X obj 527 527 s fRad;
#X obj 546 508 s fPit;
#X obj 564 489 s fThi;
#X obj 583 470 s fAzi;
#X obj 601 451 s fEle;
#X obj 620 432 s fDis;
#X obj 509 546 s fFRPM;
#X obj -96 -211 r fCRPM;
#X obj -100 -132 r fFRPM;
#X obj -90 -60 r fRad;
#X obj -92 19 r fPit;
#X obj -92 96 r fThi;
#X obj -91 173 r fAzi;
#X obj -94 252 r fEle;
#X obj -93 330 r fDis;
#X obj 491 412 unpack f f f f f f f f;
#X msg 488 362 230 15 5 0 0.04 45 0 35;
#X msg 507 -195 160;
#X obj 581 144 freqCalc3dCh;
#X obj 591 182 r chordTh;
#X obj 610 206 r obsAzim;
#X obj 619 226 r obsElev;
#N canvas 146 379 344 123 machCalc 0;
#X obj 26 9 /~ 343.59;
#X text 107 15 Speed of Sound (dry air 20 Degs C);
#X obj 26 -14 vd~ varwind;
#X obj 26 33 s~ MY_MACH;
#X obj 125 -10 inlet~;
#X connect 0 0 3 0;
#X connect 2 0 0 0;
#X connect 4 0 0 0;
#X restore 490 168 pd machCalc;
#X obj 581 253 freqFan2_D7Mach;
#X connect 3 0 5 0;
#X connect 3 0 90 0;
#X connect 4 0 0 0;
#X connect 4 1 1 0;
#X connect 5 0 27 0;
#X connect 6 0 7 0;
#X connect 6 0 16 0;
#X connect 6 1 8 0;
#X connect 6 1 17 0;
#X connect 9 0 6 0;
#X connect 10 0 6 1;
#X connect 11 0 6 2;
#X connect 12 0 6 3;
#X connect 13 0 14 0;
#X connect 13 0 53 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 19 0 20 0;
#X connect 19 0 21 0;
#X connect 22 0 19 0;
#X connect 23 0 19 1;
#X connect 24 0 18 0;
#X connect 24 0 48 0;
#X connect 27 0 4 0;
#X connect 28 0 36 0;
#X connect 28 0 54 0;
#X connect 29 0 35 0;
#X connect 29 0 58 0;
#X connect 30 0 34 0;
#X connect 30 0 55 0;
#X connect 37 0 38 0;
#X connect 37 0 47 0;
#X connect 39 0 40 0;
#X connect 39 0 57 0;
#X connect 42 0 43 0;
#X connect 46 0 24 0;
#X connect 59 0 91 0;
#X connect 60 0 4 1;
#X connect 61 0 62 0;
#X connect 63 0 13 0;
#X connect 64 0 15 0;
#X connect 65 0 37 0;
#X connect 66 0 42 0;
#X connect 67 0 39 0;
#X connect 68 0 28 0;
#X connect 69 0 30 0;
#X connect 70 0 29 0;
#X connect 80 0 13 0;
#X connect 81 0 15 0;
#X connect 82 0 37 0;
#X connect 83 0 42 0;
#X connect 84 0 39 0;
#X connect 85 0 28 0;
#X connect 86 0 30 0;
#X connect 87 0 29 0;
#X connect 88 0 72 0;
#X connect 88 1 79 0;
#X connect 88 2 73 0;
#X connect 88 3 74 0;
#X connect 88 4 75 0;
#X connect 88 5 76 0;
#X connect 88 6 77 0;
#X connect 88 7 78 0;
#X connect 89 0 88 0;
#X connect 90 0 60 0;
#X connect 91 0 95 0;
#X connect 91 0 96 0;
#X connect 91 1 96 2;
#X connect 92 0 96 1;
#X connect 93 0 96 3;
#X connect 94 0 96 4;