[PD] sinesum and phase

[G Quested]

  On 4/9/06, David Golightly wrote:
> However, if you wish to invert the phase for a given partial, simply
> prefix it with a '-':
> 
> sinesum 256 1 -0.5 0.333 -0.25
> 
> for instance - each negative partial is flipped 180º.
> 
> (Too bad there's no way to make intermediate phases with such a simple
> statement - you'd have to do that by hand with a counter & a formula.)
> 
> -david
Hi,
I'm a relative newbie to Pd. I have tried to build a patch that lets you
create an array, summing partials at any phase/amplitude (as an learning
exercise).

I kept getting stack overflow with my first attempt because my array was
too large so i had to put a delay into the circuit. Is this a reasonable
workaround or is there a better way?

Anyway, if anyone can suggest improvements to my patch i would
appreciate it. I'm guessing someone will have the answer using half the
number of objects.

My next step is to add some receive objects so that a message can be
sent of the form: [; const 0.5; partial 1 0.4 0.7; partial 3 0.8 0.5 ( 
to set up an array in one go.

Cheers
Garry.
=====================================

#N canvas 57 9 706 686 10;
#N canvas 0 0 450 300 graph1 0;
#X array \$0array 100 float 0;
#X coords 0 1 99 -1 200 140 1;
#X restore 472 38 graph;
#X symbolatom 395 61 10 0 0 0 - - -;
#X floatatom 30 227 20 0 0 0 - - -;
#X floatatom 44 80 5 0 0 0 - - -;
#X obj 395 81 t s s;
#X obj 290 -90 f 0;
#X obj 432 213 pack f f s;
#X msg 290 -111 0;
#X obj 165 -90 + 1;
#X msg 359 240 \; \$3 \$2 \$1;
#X obj 149 -22 f;
#X obj 95 -44 delay 1;
#X text 168 -63 counter;
#X obj 286 -37 t f f f b;
#X obj 370 9 f \$0;
#X obj 331 35 makefilename %darray;
#X obj 81 -66 select 100;
#X floatatom 150 81 5 0 0 0 - - -;
#X obj 452 -88 f \$0;
#X obj 438 -113 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144
-1 -1;
#X msg 427 -59 \; \$1array const 0;
#X floatatom 195 80 5 0 0 0 - - -;
#X text 192 118 amp;
#X floatatom 264 76 5 0 0 0 - - -;
#X obj 254 27 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 419 255 symbol \, index+1 \, exprResult;
#X text 108 119 init phase;
#X text 19 116 index;
#X obj 36 169 expr $s5[$f1] + ($f3 * sin(2*3.14157*$f2+ 2*3.14157*
($f1*($f4))/100));
#X text 434 185 index;
#X obj 275 318 f \$0;
#X obj 261 293 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 259 364 f \$0;
#X obj 245 339 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 317 332 \; \$1array read table.txt;
#X msg 317 376 \; \$1array write table.txt;
#X text 258 119 partial;
#X connect 1 0 4 0;
#X connect 3 0 28 0;
#X connect 4 0 28 4;
#X connect 4 1 6 2;
#X connect 5 0 13 0;
#X connect 6 0 9 0;
#X connect 7 0 5 0;
#X connect 8 0 10 1;
#X connect 8 0 16 0;
#X connect 10 0 5 0;
#X connect 11 0 10 0;
#X connect 13 0 8 0;
#X connect 13 1 3 0;
#X connect 13 2 6 1;
#X connect 13 3 14 0;
#X connect 13 3 24 0;
#X connect 14 0 15 0;
#X connect 15 0 1 0;
#X connect 16 1 11 0;
#X connect 17 0 28 1;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 21 0 28 2;
#X connect 23 0 28 3;
#X connect 24 0 17 0;
#X connect 24 0 21 0;
#X connect 24 0 23 0;
#X connect 28 0 2 0;
#X connect 28 0 6 0;
#X connect 30 0 34 0;
#X connect 31 0 30 0;
#X connect 32 0 35 0;
#X connect 33 0 32 0;
=====================================
> 
> On 4/8/06, Frank Barknecht <fbar at footils.org> wrote:
> > Hallo,
> > alexandre matheson hat gesagt: // alexandre matheson wrote:
> >
> > > does sinesum automatically offset the phase of each partial by 180º?
> >
> > No, every partial starts with phase=0. You can see for yourself with:
> >
> > sinesum 256 1
> > sinesum 256 0 1
> > sinesum 256 0 0 1
> > sinesum 256 0 0 0 1
> > sinesum 256 0 0 0 0 1
> > etc.
> >
> > sinesum is just a sum of sines. ;)
> >
> > Ciao
> > --
> >  Frank Barknecht                 _ ______footils.org_ __goto10.org__
> >
> > _______________________________________________
> > PD-list at iem.at mailing list
> > UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
> >


-- 
Garry Quested
Research Assistant
ICSRiM
School of Music
University of Leeds
http://www.icsrim.org.uk/