alfa=Dinac.alfa.aw2(84110555)
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=100
Gs.postscript("18-aw2-84110555.ps",4,5)
latox=c(0,n); latoy=c(0,t)
par(bg="yellow")
Gd.grafica(latox,latoy)
Dinac(f,x,t)
dev.off()