view Propellor/AndyEngine.pd @ 261:eb3fb10f2541

Howe Intensity Eqns fixed. Added into dipole and monopole patches.
Frquency limits added to dipole patches
Need to add frequency limits to the monopole patch
Look at adding in the effect of shear layer thickness

#N canvas 453 128 648 443 10;
#N canvas 73 22 356 699 engine 0;
#X obj 155 769 outlet~;
#X obj 215 428 delwrite~ e1b 50;
#X obj 215 662 delwrite~ e2b 50;
#X obj 99 581 +~;
#X obj 53 702 s~ ewgfb1;
#X obj 215 704 s~ ewgfb2;
#X obj 52 364 r~ ewgfb2;
#X obj 52 418 delwrite~ e1a 10;
#X obj 53 659 delwrite~ e2a 10;
#X obj 215 386 r~ ewgfb1;
#X obj 59 184 *~;
#X obj 4 202 sig~ 1;
#X obj 22 231 /~;
#X obj 59 205 +~ 1;
#X obj 23 312 -~ 0.5;
#X obj 215 407 bp~ 100 2;
#X obj 153 99 noise~;
#X obj 153 165 clip~ -0.5 0.5;
#X obj 22 288 +~;
#X obj 153 143 *~ 12;
#X obj 74 530 cos~;
#X obj 74 508 -~ 0.25;
#X obj 138 529 cos~;
#X obj 138 507 -~ 0.25;
#X obj 74 486 *~ 0.125;
#X obj 138 485 *~ 0.125;
#X obj 99 622 hip~ 12;
#X obj 99 601 lop~ 200;
#X obj 23 335 hip~ 30;
#X obj 153 121 bp~ 500 5;
#X obj 38 266 *~;
#X obj 153 187 *~ 0.15;
#X obj 74 556 *~ 0.17;
#X obj 138 554 *~ 0.17;
#X obj 52 385 *~ 0.6;
#X obj 53 439 vd~ e1a 8;
#X obj 215 450 vd~ e1b 9;
#X obj 53 681 vd~ e2a 3;
#X obj 215 683 vd~ e2b 6;
#X obj 75 54 *~;
#X obj 59 77 *~;
#X obj 59 125 +~;
#X obj 59 98 *~ -14;
#X obj 106 99 *~ 14;
#X obj 59 163 *~ 7;
#X obj 155 725 hip~ 200;
#X obj 155 747 hip~ 200;
#X obj 59 2 inlet~;
#X obj 59 23 phasor~;
#X connect 3 0 27 0;
#X connect 6 0 34 0;
#X connect 9 0 15 0;
#X connect 10 0 13 0;
#X connect 11 0 12 0;
#X connect 12 0 30 0;
#X connect 12 0 18 0;
#X connect 13 0 12 1;
#X connect 14 0 28 0;
#X connect 15 0 1 0;
#X connect 16 0 29 0;
#X connect 17 0 31 0;
#X connect 18 0 14 0;
#X connect 19 0 17 0;
#X connect 20 0 32 0;
#X connect 21 0 20 0;
#X connect 22 0 33 0;
#X connect 23 0 22 0;
#X connect 24 0 21 0;
#X connect 25 0 23 0;
#X connect 26 0 8 0;
#X connect 26 0 2 0;
#X connect 27 0 26 0;
#X connect 28 0 7 0;
#X connect 29 0 19 0;
#X connect 30 0 18 1;
#X connect 31 0 30 1;
#X connect 32 0 3 0;
#X connect 33 0 3 1;
#X connect 34 0 7 0;
#X connect 35 0 8 0;
#X connect 35 0 24 0;
#X connect 35 0 32 0;
#X connect 36 0 2 0;
#X connect 36 0 25 0;
#X connect 36 0 33 0;
#X connect 37 0 4 0;
#X connect 38 0 5 0;
#X connect 38 0 45 0;
#X connect 39 0 40 1;
#X connect 39 0 43 0;
#X connect 40 0 42 0;
#X connect 41 0 44 0;
#X connect 42 0 41 0;
#X connect 43 0 41 1;
#X connect 44 0 10 0;
#X connect 44 0 10 1;
#X connect 45 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 48 0;
#X connect 48 0 39 0;
#X connect 48 0 39 1;
#X connect 48 0 40 0;
#X restore 132 191 pd engine;
#X obj 132 58 lop~ 0.6;
#X obj 148 214 r \$0-engine-mix;
#X obj 132 -2 r \$0-engine-speed;
#X obj 132 18 * 90;
#X obj 132 38 + 1;
#X obj 131 259 dac~;
#X obj 191 27 hsl 128 15 0 2 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 800 1;
#X obj 132 238 *~ 10;
#X connect 0 0 8 0;
#X connect 1 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X connect 7 0 4 0;
#X connect 8 0 6 0;
#X connect 8 0 6 1;