UF77LIBS = ${TDFLIB}
include ${SEPINC}/SEP.top
RESULTSER = signoi signeps

default: tube

TAVPLOT = Ta2vplot crowd=.85  wantaxis=0 >/dev/null
${RESDIR}/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. >${RESDIR}/signoi.v
#	vp_Movie ss.v nn.v > sn.v

${RESDIR}/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=4.0> 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. >${RESDIR}/signeps.v

#Signoi.x : signoi2.o

clean: jclean

include ${SEPINC}/SEP.bottom
