I am writing to you in connection with a Csound program.I have problems
concerning its study and analysis. Maybe someone could help me. I hope I
haven't disturb you in your work. Here is the program :

 ; Physical Models                            *
>; coded:        1/22/97 Hans Mikelson        *
>;*********************************************
>
>sr = 22050
>kr = 22050
>ksmps = 1
>nchnls = 1
>
>;Perry Cook's Slide Flute
>
>instr 2
>  aflute1 init 0
>
>; Flow setup
>
>  kenv1   linseg 0, .05, 1.1*p4, .1, .98*p4, p3-.15, .95*p4
>  kenv2   linseg 1, p3-.01, 1, .01, 0
>  aflow1 rand kenv1
>  aflow1 = aflow1/p4
>  asum1 = aflow1*.0356 + kenv1/p4*1
>  asum2 = asum1 + aflute1*.4
>
>; Embouchure
>
>  ax delayr 1/p5/4
>     delayw asum2
>  apoly = ax - ax*ax*ax
>  asum3 = apoly + aflute1*.4
>
>  avalue tone asum3, 8*p5
>
>; Bore
>
>  aflute1 delayr 1/p5/2
>          delayw avalue
>
>  out avalue*p4*kenv2
>endin
>
>; Score
>;  Start  Dur  Amplitude Pitch
>i2  0     .4    16000      220
>i2  +     .2    12000      258.3
>i2  .      .    13000      289.5
>i2  .      .    14000      328.9
>i2  .      .    15000      440
>i2  .      .    16000      289.5
>i2  .      .    14000      328.9
>i2  .     .4    16000      258.3
>i2  .     .2    17000      516.6
>i2  .      .    15000      440
>i2  .      .    17000      386.4
>i2  .      .    15000      440
>i2  .      .    14000      289.5
>i2  .      .    17000      328.9
>e

Thanks for your help.

Your sincerely,
Matthieu Lentz