r@127: #N canvas 161 23 1184 833 10;
r@127: #X obj 397 -104 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@127: #X obj 460 -104 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@127: #X text 457 -195 Gain;
r@127: #X obj 396 -221 loadbang;
r@127: #N canvas 865 368 284 318 opLevels 0;
r@127: #X obj 74 188 dac~;
r@127: #X obj 30 70 catch~ l;
r@127: #X obj 128 70 catch~ r;
r@127: #X obj 129 104 *~ 0.45;
r@127: #X obj 30 104 *~ 0.45;
r@127: #X obj 30 210 prvu~;
r@127: #X obj 129 211 prvu~;
r@127: #X obj 186 75 / 127;
r@127: #X obj 186 40 inlet;
r@127: #X obj 30 239 outlet;
r@127: #X obj 129 239 outlet;
r@127: #X obj 219 118 inlet;
r@127: #X obj 30 152 /~ 1;
r@127: #X obj 129 154 /~ 1;
r@127: #X connect 1 0 4 0;
r@127: #X connect 2 0 3 0;
r@127: #X connect 3 0 13 0;
r@127: #X connect 4 0 12 0;
r@127: #X connect 5 0 9 0;
r@127: #X connect 6 0 10 0;
r@127: #X connect 7 0 3 1;
r@127: #X connect 7 0 4 1;
r@127: #X connect 8 0 7 0;
r@127: #X connect 11 0 12 1;
r@127: #X connect 11 0 13 1;
r@127: #X connect 12 0 0 0;
r@127: #X connect 12 0 5 0;
r@127: #X connect 13 0 0 1;
r@127: #X connect 13 0 6 0;
r@127: #X restore 396 -147 pd opLevels;
r@127: #X msg 396 -198 5;
r@127: #N canvas 12 52 684 554 speedCalc 0;
r@127: #X obj 59 -12 inlet;
r@127: #X obj 135 -11 inlet;
r@127: #X obj 217 -12 inlet;
r@127: #X obj 317 -12 inlet;
r@127: #X obj 59 11 s \$0_swLen;
r@127: #X obj 135 11 s \$0_armLen;
r@127: #X obj 317 10 s \$0_tipSpeed;
r@127: #X obj 141 301 r \$0_tipSpeed;
r@127: #X obj 211 437 outlet;
r@127: #X obj 211 414 r \$0_minSpeed;
r@127: #X obj 126 349 s \$0_minSpeed;
r@127: #X obj 310 414 r \$0_deltaSpeed;
r@127: #X obj 388 261 s \$0_deltaSpeed;
r@127: #X obj 310 437 outlet;
r@127: #X obj 84 100 r \$0_swLen;
r@127: #X obj 126 280 /;
r@127: #X floatatom 80 307 5 0 0 0 - - -;
r@127: #X obj 99 123 r \$0_armLen;
r@127: #X obj 84 205 +;
r@127: #X obj 99 152 t f b;
r@127: #X floatatom 40 240 5 0 0 0 - - -;
r@127: #X obj 126 207 r \$0_armLen;
r@127: #X obj 126 231 t f b;
r@127: #X obj 126 177 delay 6;
r@127: #X obj 153 256 delay 9;
r@127: #X obj 217 11 s \$0_sourceTot;
r@127: #X obj 421 202 r \$0_sourceTot;
r@127: #X obj 126 325 *;
r@127: #X floatatom 84 349 5 0 0 0 - - -;
r@127: #X obj 512 119 r \$0_minSpeed;
r@127: #X obj 388 202 -;
r@127: #X obj 388 158 r \$0_tipSpeed;
r@127: #X obj 388 232 /;
r@127: #X obj 512 145 t f b;
r@127: #X floatatom 343 261 5 0 0 0 - - -;
r@127: #X obj 539 170 delay 14;
r@127: #X connect 0 0 4 0;
r@127: #X connect 1 0 5 0;
r@127: #X connect 2 0 25 0;
r@127: #X connect 3 0 6 0;
r@127: #X connect 7 0 27 1;
r@127: #X connect 9 0 8 0;
r@127: #X connect 11 0 13 0;
r@127: #X connect 14 0 18 0;
r@127: #X connect 15 0 16 0;
r@127: #X connect 15 0 27 0;
r@127: #X connect 17 0 19 0;
r@127: #X connect 18 0 20 0;
r@127: #X connect 18 0 15 1;
r@127: #X connect 19 0 18 1;
r@127: #X connect 19 1 23 0;
r@127: #X connect 21 0 22 0;
r@127: #X connect 22 0 15 0;
r@127: #X connect 22 1 24 0;
r@127: #X connect 23 0 18 0;
r@127: #X connect 24 0 15 0;
r@127: #X connect 26 0 32 1;
r@127: #X connect 27 0 10 0;
r@127: #X connect 27 0 28 0;
r@127: #X connect 29 0 33 0;
r@127: #X connect 30 0 32 0;
r@127: #X connect 31 0 30 0;
r@127: #X connect 32 0 34 0;
r@127: #X connect 32 0 12 0;
r@127: #X connect 33 0 30 1;
r@127: #X connect 33 1 35 0;
r@127: #X connect 35 0 30 0;
r@127: #X restore 246 284 pd speedCalc;
r@127: #X floatatom 155 308 8 0 0 0 - - -;
r@127: #X floatatom 400 306 8 0 0 0 - - -;
r@127: #X obj 246 189 r bladeLen;
r@127: #X obj 269 212 r armLength;
r@127: #X obj 292 236 r NoOfSources;
r@127: #X obj 315 261 r topSpeed;
r@127: #X obj -42 -190 hsl 100 20 0 3000 0 0 empty empty empty -2 -8 0 10
r@289: -262144 -1 -1 659 1;
r@127: #X floatatom -45 -164 8 0 0 0 - - -;
r@127: #X obj -42 -112 hsl 100 20 0 300 0 0 empty empty empty -2 -8 0 10 -262144
r@289: -1 -1 495 1;
r@127: #X obj 220 308 s firstSpeed;
r@127: #X obj 315 307 s deltaSpeed;
r@127: #X floatatom 165 79 8 0 0 0 - - -;
r@127: #N canvas 57 585 305 180 thickCalc 0;
r@127: #X obj 173 86 r NoOfSources;
r@127: #X obj 23 16 inlet;
r@127: #X obj 26 64 inlet;
r@127: #X obj 26 86 s \$0_tipThick;
r@127: #X obj 158 62 -;
r@127: #X obj 158 111 /;
r@127: #X obj 158 134 outlet;
r@127: #X obj 23 39 s \$0_hiltThick;
r@127: #X floatatom 126 94 5 0 0 0 - - -;
r@127: #X obj 173 40 r \$0_tipThick;
r@127: #X obj 158 15 r \$0_hiltThick;
r@127: #X floatatom 94 136 8 0 0 0 - - -;
r@127: #X connect 0 0 5 1;
r@127: #X connect 1 0 7 0;
r@127: #X connect 2 0 3 0;
r@127: #X connect 4 0 5 0;
r@127: #X connect 4 0 8 0;
r@127: #X connect 5 0 6 0;
r@127: #X connect 5 0 11 0;
r@127: #X connect 9 0 4 1;
r@127: #X connect 10 0 4 0;
r@127: #X restore 225 -16 pd thickCalc;
r@127: #X obj 225 7 s deltaThick;
r@127: #X floatatom 170 8 8 0 0 0 - - -;
r@127: #X obj 225 -61 r hiltThick;
r@127: #X obj 294 -39 r tipThick;
r@127: #N canvas 447 270 208 198 circumferCalc 0;
r@127: #X obj 84 45 inlet;
r@127: #X obj 84 69 * 3.14159;
r@127: #X floatatom 26 120 8 0 0 0 - - -;
r@127: #X obj 84 93 * 2;
r@127: #X obj 84 118 outlet;
r@127: #X connect 0 0 1 0;
r@127: #X connect 1 0 3 0;
r@127: #X connect 3 0 2 0;
r@127: #X connect 3 0 4 0;
r@127: #X restore 222 55 pd circumferCalc;
r@127: #X obj 326 148 s deltaCircum;
r@127: #N canvas 767 188 758 617 angleCalc 0;
r@127: #X floatatom -252 49 8 0 0 0 - - -;
r@127: #X obj -194 50 * 0.75;
r@127: #X obj 149 51 * 0.25;
r@127: #X floatatom 171 76 8 0 0 0 - - -;
r@127: #X floatatom -178 72 8 0 0 0 - - -;
r@127: #X obj -194 97 /;
r@127: #X msg -209 203 1 \$1;
r@127: #X obj -209 180 f;
r@127: #X floatatom -242 203 5 0 0 0 - - -;
r@127: #X obj -209 225 line 0;
r@127: #X obj -245 154 r GO;
r@127: #X msg -165 203 0;
r@127: #X obj -194 121 * 1000;
r@127: #X obj 61 290 line 0;
r@127: #X obj 61 212 delay \$1;
r@127: #X obj 63 154 f;
r@127: #X obj 63 111 r GO;
r@127: #X obj 63 180 t f b;
r@127: #X obj 61 239 i;
r@127: #X msg 61 261 1 \$1;
r@127: #X msg 139 255 0;
r@127: #X obj 149 184 /;
r@127: #X obj 149 208 * 1000;
r@127: #X obj -209 275 *;
r@127: #X obj -157 244 r sweepAngle;
r@127: #X obj -206 340 hsl 100 25 0 360 0 0 empty empty empty -2 -8 0 10 -262144
r@127: -1 -1 0 1;
r@127: #X obj -160 272 * -0.75;
r@127: #X obj -209 299 +;
r@127: #X obj -159 297 * -1;
r@127: #X obj -179 155 s \$0_thisDe;
r@127: #X obj 78 133 r \$0_thisDe;
r@127: #X obj 61 328 *;
r@127: #X obj 118 295 r sweepAngle;
r@127: #X obj 64 380 hsl 100 25 -360 360 0 0 empty empty empty -2 -8 0 10
r@127: -262144 -1 -1 0 1;
r@127: #X obj 13 239 s \$0_d;
r@127: #X obj 139 233 r GO;
r@127: #X obj -194 26 r maxCirc;
r@127: #X obj 149 29 r maxCirc;
r@127: #X obj -124 70 r topSpeed;
r@127: #X obj 164 158 r topSpeed;
r@127: #X obj -90 459 s currentAngle;
r@127: #X obj -90 413 +;
r@127: #X floatatom -90 438 8 0 0 0 - - -;
r@127: #X obj -41 392 t f b;
r@127: #X obj 280 146 delay \$1;
r@127: #X obj 282 88 f;
r@127: #X obj 282 62 r GO;
r@127: #X obj 282 114 t f b;
r@127: #X obj 318 -6 r maxCirc;
r@127: #X obj 333 16 r topSpeed;
r@127: #X obj 318 40 /;
r@127: #X obj 318 62 * 1000;
r@127: #X obj 280 168 s end;
r@127: #X obj -165 182 r end;
r@127: #X floatatom -166 408 8 0 0 0 - - -;
r@127: #X obj -41 359 r end;
r@127: #X obj 118 318 * -0.25;
r@127: #X connect 1 0 4 0;
r@127: #X connect 1 0 5 0;
r@127: #X connect 2 0 3 0;
r@127: #X connect 2 0 21 0;
r@127: #X connect 5 0 12 0;
r@127: #X connect 6 0 9 0;
r@127: #X connect 7 0 6 0;
r@127: #X connect 7 0 8 0;
r@127: #X connect 9 0 23 0;
r@127: #X connect 10 0 7 0;
r@127: #X connect 11 0 9 0;
r@127: #X connect 12 0 7 1;
r@127: #X connect 12 0 29 0;
r@127: #X connect 13 0 31 0;
r@127: #X connect 14 0 18 0;
r@127: #X connect 14 0 34 0;
r@127: #X connect 15 0 17 0;
r@127: #X connect 16 0 15 0;
r@127: #X connect 17 0 14 1;
r@127: #X connect 17 1 14 0;
r@127: #X connect 18 0 19 0;
r@127: #X connect 19 0 13 0;
r@127: #X connect 20 0 13 0;
r@127: #X connect 21 0 22 0;
r@127: #X connect 22 0 18 1;
r@127: #X connect 23 0 27 0;
r@127: #X connect 24 0 26 0;
r@127: #X connect 25 0 41 0;
r@127: #X connect 25 0 54 0;
r@127: #X connect 26 0 28 0;
r@127: #X connect 26 0 23 1;
r@127: #X connect 27 0 25 0;
r@127: #X connect 28 0 27 1;
r@127: #X connect 30 0 15 1;
r@127: #X connect 31 0 33 0;
r@127: #X connect 32 0 56 0;
r@127: #X connect 33 0 43 0;
r@127: #X connect 35 0 20 0;
r@127: #X connect 36 0 0 0;
r@127: #X connect 36 0 1 0;
r@127: #X connect 37 0 2 0;
r@127: #X connect 38 0 5 1;
r@127: #X connect 39 0 21 1;
r@127: #X connect 41 0 42 0;
r@127: #X connect 42 0 40 0;
r@127: #X connect 43 0 41 1;
r@127: #X connect 43 1 41 0;
r@127: #X connect 44 0 52 0;
r@127: #X connect 45 0 47 0;
r@127: #X connect 46 0 45 0;
r@127: #X connect 47 0 44 1;
r@127: #X connect 47 1 44 0;
r@127: #X connect 48 0 50 0;
r@127: #X connect 49 0 50 1;
r@127: #X connect 50 0 51 0;
r@127: #X connect 51 0 45 1;
r@127: #X connect 53 0 11 0;
r@127: #X connect 54 0 42 0;
r@127: #X connect 55 0 43 0;
r@127: #X connect 56 0 31 1;
r@127: #X restore 283 -88 pd angleCalc;
r@127: #X obj 398 -178 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
r@127: -1 -1 390 1;
r@127: #X obj -46 195 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@289: -1 -1 6625 1;
r@127: #X obj -49 349 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144
r@289: -1 -1 6500 1;
r@127: #X obj -46 274 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@289: -1 -1 7200 1;
r@127: #X text -42 172 Azimuth Angle;
r@127: #X text -43 253 Elevation Angle;
r@127: #X text -33 328 Distance;
r@127: #X floatatom -49 301 5 0 0 0 - - -;
r@127: #X floatatom -52 377 5 0 0 0 - - -;
r@127: #X floatatom -49 223 5 0 0 0 - - -;
r@127: #X obj -48 -37 hsl 100 20 0.5 10 0 0 empty empty empty -2 -8 0 10 -262144
r@289: -1 -1 4689 1;
r@127: #X floatatom -51 -9 5 0 0 0 - - -;
r@127: #X obj -50 120 hsl 100 20 0.001 0.1 0 0 empty empty empty -2 -8 0 10
r@289: -262144 -1 -1 3900 1;
r@127: #X floatatom -53 147 5 0 0 0 - - -;
r@127: #X text -47 98 Chord Thickness;
r@127: #X obj -49 43 hsl 100 20 0 90 0 0 empty empty empty -2 -8 0 10 -262144
r@127: -1 -1 0 1;
r@127: #X floatatom -52 68 5 0 0 0 - - -;
r@127: #X text -45 21 Chord Pitch;
r@127: #X text 558 -218 Vertical propellor;
r@127: #X obj 222 32 r bladeRadius;
r@127: #X obj -14 -9 s bladeRadius;
r@127: #X obj 222 78 s circum;
r@127: #X text -48 -133 RMP (Fine);
r@127: #X text -46 -210 RMP (Coarse);
r@127: #X floatatom -46 -87 8 0 0 0 - - -;
r@127: #X obj 9 -87 s fineRPM;
r@127: #X obj 10 -164 s coarseRPM;
r@127: #X obj -10 223 s obsAzim;
r@127: #X obj -9 301 s obsElev;
r@127: #X text -39 -59 Blade Radius (m);
r@127: #X obj -17 146 s chordTh;
r@127: #X obj -9 376 s obsDist;
r@127: #X msg 696 107 1;
r@127: #X obj 510 -174 hsl 100 25 1 400 0 0 empty empty empty -2 -8 0 10 -262144
r@127: -1 -1 3945 1;
r@127: #X obj 166 -181 bng 25 250 50 0 empty empty empty 17 7 0 10 -257985
r@127: -1 -1;
r@127: #X obj 166 -152 s setUp;
r@127: #X obj 52 -211 r setUp;
r@127: #X obj 57 -134 r setUp;
r@127: #X obj 65 -60 r setUp;
r@127: #X obj 58 23 r setUp;
r@127: #X obj 60 96 r setUp;
r@127: #X obj 61 175 r setUp;
r@127: #X obj 62 248 r setUp;
r@127: #X obj 51 326 r setUp;
r@127: #X text 89 431 Pan not working on this yet;
r@127: #X obj 491 565 s fCRPM;
r@127: #X obj 527 527 s fRad;
r@127: #X obj 546 508 s fPit;
r@127: #X obj 564 489 s fThi;
r@127: #X obj 583 470 s fAzi;
r@127: #X obj 601 451 s fEle;
r@127: #X obj 620 432 s fDis;
r@127: #X obj 509 546 s fFRPM;
r@127: #X obj -96 -211 r fCRPM;
r@127: #X obj -100 -132 r fFRPM;
r@127: #X obj -90 -60 r fRad;
r@127: #X obj -92 19 r fPit;
r@127: #X obj -92 96 r fThi;
r@127: #X obj -91 173 r fAzi;
r@127: #X obj -94 252 r fEle;
r@127: #X obj -93 330 r fDis;
r@127: #X obj 491 412 unpack f f f f f f f f;
r@127: #X msg 488 362 230 15 5 0 0.04 45 0 35;
r@127: #X msg 507 -195 160;
r@127: #X obj 581 144 freqCalc3dCh;
r@289: #X obj 591 182 r chordTh;
r@289: #X obj 610 206 r obsAzim;
r@289: #X obj 619 226 r obsElev;
r@127: #N canvas 146 379 344 123 machCalc 0;
r@127: #X obj 26 9 /~ 343.59;
r@127: #X text 107 15 Speed of Sound (dry air 20 Degs C);
r@127: #X obj 26 -14 vd~ varwind;
r@127: #X obj 26 33 s~ MY_MACH;
r@127: #X obj 125 -10 inlet~;
r@127: #X connect 0 0 3 0;
r@127: #X connect 2 0 0 0;
r@127: #X connect 4 0 0 0;
r@127: #X restore 490 168 pd machCalc;
r@127: #X obj 581 253 freqFan2_D7Mach;
r@127: #X connect 3 0 5 0;
r@127: #X connect 3 0 90 0;
r@127: #X connect 4 0 0 0;
r@127: #X connect 4 1 1 0;
r@127: #X connect 5 0 27 0;
r@127: #X connect 6 0 7 0;
r@127: #X connect 6 0 16 0;
r@127: #X connect 6 1 8 0;
r@127: #X connect 6 1 17 0;
r@127: #X connect 9 0 6 0;
r@127: #X connect 10 0 6 1;
r@127: #X connect 11 0 6 2;
r@127: #X connect 12 0 6 3;
r@127: #X connect 13 0 14 0;
r@127: #X connect 13 0 53 0;
r@127: #X connect 15 0 51 0;
r@127: #X connect 15 0 52 0;
r@127: #X connect 19 0 20 0;
r@127: #X connect 19 0 21 0;
r@127: #X connect 22 0 19 0;
r@127: #X connect 23 0 19 1;
r@127: #X connect 24 0 18 0;
r@127: #X connect 24 0 48 0;
r@127: #X connect 27 0 4 0;
r@127: #X connect 28 0 36 0;
r@127: #X connect 28 0 54 0;
r@127: #X connect 29 0 35 0;
r@127: #X connect 29 0 58 0;
r@127: #X connect 30 0 34 0;
r@127: #X connect 30 0 55 0;
r@127: #X connect 37 0 38 0;
r@127: #X connect 37 0 47 0;
r@127: #X connect 39 0 40 0;
r@127: #X connect 39 0 57 0;
r@127: #X connect 42 0 43 0;
r@127: #X connect 46 0 24 0;
r@127: #X connect 59 0 91 0;
r@127: #X connect 60 0 4 1;
r@127: #X connect 61 0 62 0;
r@127: #X connect 63 0 13 0;
r@127: #X connect 64 0 15 0;
r@127: #X connect 65 0 37 0;
r@127: #X connect 66 0 42 0;
r@127: #X connect 67 0 39 0;
r@127: #X connect 68 0 28 0;
r@127: #X connect 69 0 30 0;
r@127: #X connect 70 0 29 0;
r@127: #X connect 80 0 13 0;
r@127: #X connect 81 0 15 0;
r@127: #X connect 82 0 37 0;
r@127: #X connect 83 0 42 0;
r@127: #X connect 84 0 39 0;
r@127: #X connect 85 0 28 0;
r@127: #X connect 86 0 30 0;
r@127: #X connect 87 0 29 0;
r@127: #X connect 88 0 72 0;
r@127: #X connect 88 1 79 0;
r@127: #X connect 88 2 73 0;
r@127: #X connect 88 3 74 0;
r@127: #X connect 88 4 75 0;
r@127: #X connect 88 5 76 0;
r@127: #X connect 88 6 77 0;
r@127: #X connect 88 7 78 0;
r@127: #X connect 89 0 88 0;
r@127: #X connect 90 0 60 0;
r@127: #X connect 91 0 95 0;
r@127: #X connect 91 0 96 0;
r@127: #X connect 91 1 96 2;
r@127: #X connect 92 0 96 1;
r@127: #X connect 93 0 96 3;
r@127: #X connect 94 0 96 4;