alfa=Dinac.alfa.aw2(689209)
eps=Dinac.eps.aw2

f=Dinac.fun(eps=eps,alfa=alfa)

n=80
x=c(rep(0,n/2),1,rep(0,n/2-1))

t=160
Gs.postscript("18-aw2-689209.ps",4,8)
latox=c(0,n); latoy=c(0,t)
par(bg="yellow")
Gd.grafica(latox,latoy)
Dinac(f,x,t)
dev.off()