# 07-dingrafo-7

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)) u=c(0,0.6)
else u=c(0,1)
P.quale(x,3,c(30,0.6),11,c(70,0.3),u)}

Gs.postscript("07-dingrafo-7.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()