# 07-dingrafo-6

X=c(1,3,5,7,9,2,10,18,14,6,4,8,
  0,16,12,11,13,19,15,17)
f = function (x) (2*x^3+13*x+8)%%20
rota = function (x)
{if (x==Din.omega(x,f)) c(0,0.6)
else c(0,1)}

Gs.postscript("07-dingrafo-6.ps",4.8,4.8)
lato=c(-2.4,2.4); par(bg="#ccff99")
Gd.grafica(lato,lato,cornice=T)
Din.grafo(X,f,rotazioni=rota)
dev.off()