Gr.postscript('29505-cicloidi.ps', 5.2,10.4) latox=c(0,26); latoy=c(0,52) par(cex=0.5,bg='yellow') Gr(latox,latoy,cornice=T) for (k in c(14,28,36,44)) abline(h=k) t=seq(-2*pi,10*pi,by=0.01) lines(48i+(t-sin(t))+1i*(1-cos(t))) text(13+45i,'Cicloide comune') lines(39.5i+(t-1.5*sin(t))+ 1i*(1-1.5*cos(t))) text(13+37i,'Cicloide allungata') lines(31.5i+(t-0.6*sin(t))+ 1i*(1-0.6*cos(t))) text(13+29i,'Cicloide abbreviata') lines(3.5+21.5i+0.75*(5*cos(t)-cos(5*t) +1i*(5*sin(t)-sin(5*t)))) text(13+15i,'Epicicloidi') lines(13+21.5i+0.75*(5*cos(t)- 1.5*cos(5*t) +1i*(5*sin(t)-1.5*sin(5*t)))) lines(22.5+21.5i+0.75*(5*cos(t)- 0.6*cos(5*t) +1i*(5*sin(t)-0.6*sin(5*t)))) lines(3.5+7i+3*cos(t)+cos(3*t) +1i*(3*sin(t)-sin(3*t))) lines(13+7i+3*cos(t)+1.5*cos(3*t) +1i*(3*sin(t)-1.5*sin(3*t))) lines(22.5+7i+3*cos(t)+0.6*cos(3*t) +1i*(3*sin(t)-0.6*sin(3*t))) text(13+0.5i,'Ipocicloidi') dev.off()