view scene demo/wireSource.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 713 23 781 398 10;
#X obj -159 98 inlet;
#X obj -159 120 s \$0_wDel;
#X obj 48 250 freqCalcCyl2D3;
#X obj -57 181 r \$0_wDel;
#X obj 48 273 outlet;
#N canvas 855 500 450 215 Tolerance 0;
#X obj 178 73 inlet;
#X obj 178 153 outlet;
#X obj 242 25 loadbang;
#X obj 208 35 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 242 51 random 500;
#X floatatom 301 126 8 0 0 0 - - -;
#X obj 242 134 *;
#X floatatom 244 159 8 0 0 0 - - -;
#X obj 178 129 +;
#X obj 242 72 - 250;
#X floatatom 111 154 8 0 0 0 - - -;
#X floatatom 136 100 5 0 0 0 - - -;
#X obj 242 94 * 0.0001;
#X obj 135 61 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 299 72 +/- 2.5% Tolerence;
#X obj 316 -1 inlet;
#X obj 316 20 delay 9;
#X connect 0 0 6 1;
#X connect 0 0 11 0;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 6 0 7 0;
#X connect 6 0 8 1;
#X connect 8 0 1 0;
#X connect 8 0 10 0;
#X connect 9 0 12 0;
#X connect 12 0 5 0;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 15 0 16 0;
#X connect 15 0 3 0;
#X connect 16 0 13 0;
#X restore 19 181 pd Tolerance;
#X text -81 373 A single source on the horizontal wire;
#X obj 54 60 inlet;
#X floatatom -9 115 5 0 0 0 - - -;
#X obj -37 18 inlet;
#X obj 79 18 unpack f f f f f f f f f;
#X floatatom -6 80 5 0 0 0 - - -;
#X floatatom 64 87 5 0 0 0 - - -;
#X obj 136 188 wirePosition;
#X obj 291 63 inlet;
#X obj 291 86 t b;
#X connect 0 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 5 0 2 1;
#X connect 7 0 8 0;
#X connect 7 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 10 1 13 1;
#X connect 10 2 11 0;
#X connect 10 2 13 3;
#X connect 10 3 2 2;
#X connect 10 3 13 4;
#X connect 10 4 5 0;
#X connect 10 4 13 5;
#X connect 10 5 13 6;
#X connect 10 6 13 7;
#X connect 10 7 13 8;
#X connect 10 8 13 9;
#X connect 12 0 13 2;
#X connect 13 0 2 5;
#X connect 13 1 2 6;
#X connect 13 2 2 3;
#X connect 13 3 2 4;
#X connect 14 0 15 0;
#X connect 15 0 5 1;