#define USRLIBS TDFLIB
#include <SEP.defs>
#define FIGLIST signoi signeps

default&: tube

#define TAVPLOT Ta2vplot crowd=.85  wantaxis=0 >/dev/null
FIGDIR/signoi.v !: make.x noiz.x Signoi.x     signoi.p	 	   
	           make.x                 par=signoi.p       > make.H
	<make.H           noiz.x          par=signoi.p       > noiz.H
	<noiz.H                  Signoi.x par=signoi.p Xn3=5  > sign.H
	< make.H Byte             > make.A
	< noiz.H Byte             > noiz.A
	< sign.H Byte             > sign.A
	< sign.A Window n3=1 f3=0 > ss.A
	< sign.A Window n3=1 f3=1 > nn.A
	<make.A TAVPLOT title=original        out=make.v
	<noiz.A TAVPLOT title="noise added"   out=noiz.v
	<  ss.A TAVPLOT title=signal          out=ss.v
	<  nn.A TAVPLOT title=noise           out=nn.v
	vp_SideBySideAniso make.v noiz.v ss.v nn.v > junk.v
	<junk.v  vppen vpstyle=n txscale=3. >FIGDIR/signoi.v
$	vp_Movie ss.v nn.v > sn.v

FIGDIR/signeps.v!: make.x noiz.x Signoi.x      signoi.p	 	   
	           make.x                  par=signoi.p  > make.H
	<make.H           noiz.x           par=signoi.p  > noiz.H
	<noiz.H                  Signoi.x  par=signoi.p  epsilon=1.5> sign.H
	< sign.H Byte             > sign.A
	< sign.A Window n3=1 f3=0 > ss.A
	< sign.A Window n3=1 f3=1 > nn.A
	<  ss.A TAVPLOT title=signal          out=ss.v
	<  nn.A TAVPLOT title=noise           out=nn.v
	vp_SideBySideAniso ss.v nn.v > smallpair.v
	<noiz.H                  Signoi.x  par=signoi.p  epsilon=0.5> sign.H
	< sign.H Byte             > sign.A
	< sign.A Window n3=1 f3=0 > ss.A
	< sign.A Window n3=1 f3=1 > nn.A
	<  ss.A TAVPLOT title=signal          out=ss.v
	<  nn.A TAVPLOT title=noise           out=nn.v
	vp_SideBySideAniso ss.v nn.v > bigpair.v
	vp_SideBySideAniso smallpair.v bigpair.v > junk.v
	<junk.v  vppen vpstyle=n txscale=3. >FIGDIR/signeps.v

#define       SIGNOI Signoi.o signoi2.o
$Signoi.x :    SIGNOI
$	FLINK(SIGNOI, Signoi.x)

clean&: jclean

#include <SEP.obj.rules>
#include <SEP.prog.rules>
#include <SEP.idoc.rules>
