Gr.postscript("18-plot.ps",5,5)
Db(2)
X=Db.matrice()
X01=Sm.tra01(X)
x=X01[,1]; y=X01[,2]
intx=c(0,1)
Gr(intx,intx)
plot(x,y,pch=21,bg='green')
dev.off()