svg(filename='Rplots.svg',width=6,height=6,pointsize=10,
onefile=TRUE,family='times',bg='lightgray',
antialias=c('default','none','gray','subpixel'))a<-(.5+runif(1))*sample(c(-1,1),1); b<-sample(6:18,1)
c<-.001*sample(1:99,1)*sample(c(-1,1),1)
t<-seq(0,16*b*pi,len=36*360)
col<-rgb(.7*runif(1),.7*runif(1),.7*runif(1))
x<-sin(t/6)-a*sin(b*t)*cos(t)-c*sin(16*b*t)
y<-cos(t/6)-a*sin(b*t)*sin(t)-c*cos(16*b*t)
plot(x,y,type='o',lwd=.1,cex=.1^5,col=col,xlab='x',ylab='y',
fg='slategray',col.axis='slategray',col.lab='slategray')
grid(col='slategray'); dev.off()
c(paste0('a = ',a,'; b = ',b,'; c = ',c,'; color:',col))"""))
No comments:
Post a Comment