instr 3

  ir        =           70/sr
  ifqc      = cpspch(p4)
  iamp      = p5

  adamp     expseg 0.00001,0.01/ifqc,1,1/ifqc,0.000001
  arand     rand 1

  ain = adamp*arand


  ajunction init 0


  kcoef1    =                       .7
  kcoef2    =                       .4
  kcoef3    =                       .2
  kcoef4    =                       .5
  kcoef5    =                       .6
  kvar1     =           10/ifqc
  kvar2     =           5/ifqc
  kvar3     =           2.5/ifqc
  kvar4     =           1.25/ifqc
  kvar5     =           .625/ifqc
  kstrl     =          1000/ifqc

  kamp      expseg 0.0001,0.01,1,p3-0.3,1,0.2,0.00001

  afeed     init        0

  astring   vdelay afeed,kstrl,1000
  a1b       vdelay ain,kvar1,1000
  a2b       vdelay ain,kvar2,1000
  a3b       vdelay ain,kvar3,1000
  a4b       vdelay ain,kvar4,1000
  a5b       vdelay ain,kvar5,1000

  a1f       vdelay afeed,kvar1,1000
  a2f       vdelay afeed,kvar2,1000
  a3f       vdelay afeed,kvar3,1000
  a4f       vdelay afeed,kvar4,1000
  a5f       vdelay afeed,kvar5,1000

  afeed     =  (a4b+kcoef1*a4f+a2b+kcoef2*a2f+a3b+kcoef3*a3f)/4+astring*0.6

            ;   ain       table       0.5+ajunction*0.2, 2, 1 



            out         afeed*iamp*kamp*2000
endin