drosofff
12/26/2016 - 7:04 PM

For happy new year ?

For happy new year ?

theta=seq(0,10*pi, length.out=10000)
x=theta^2 * cos(theta) *sin(theta^2 * cos(theta))
y=theta^2 * sin(theta) *sin(theta^2 * sin(theta))
plot(x,y, type="l", col="darkblue", lwd=1, xaxt='n', yaxt='n', ann=FALSE)
text(x,y, label=c("2017","2017","2017","2016"), col=c("red","orange","aquamarine4","black"), cex=c(1,1,1,.5))

# or
theta=seq(0,10*pi, length.out=2017)
x=theta^2 * cos(theta) *sin(theta^2 * cos(theta))
y=theta^2 * sin(theta) *sin(theta^2 * sin(theta))
plot(x,y, type="l", col="darkblue", lwd=1, xaxt='n', yaxt='n', ann=FALSE)
text(x,y, label=as.character(1:2017), col=c("orange","red","aquamarine4","black","green"), cex=c(rep(0.5,2016),2))
text(-600,-800, label="Le changement, c'est pour 2017, bien sûr !", col="blue")

theta=seq(0,10*pi, length.out=20000)
x=theta^2 * cos(theta) *sin(theta^2 * cos(theta))
y=theta^2 * sin(theta) *sin(theta^2 * sin(theta))
plot(x,y, type="l", col="darkblue", lwd=1, xaxt='n', yaxt='n', ann=FALSE)
text(x,y, label=seq(1, 20000, by=1), col=colors(), cex=0.4)