svg(filename='Rplots.svg',width=6,height=6,onefile=TRUE,
pointsize=10,family='times',bg='lightsteelblue',
antialias=c('default','none','gray','subpixel'))a<-(.5+runif(1))*sample(c(-1,1),1); b<-sample(6:12,1)
c<-.001*sample(1:99,1)*sample(c(-1,1),1); d<-sample(4:8,1)
t<-seq(0,24*pi,len=24*18)
col<-rgb(runif(1),runif(1),runif(1))
x<-sin(t/6)+a*sin(b*t)*cos(t)+c*sin(b*t)
y<-cos(t/6)+a*sin(b*t)*sin(t)+c*cos(d*b*t)
plot(x,y,type='o',cex=.8,col='white',lwd=3); par(new=TRUE)
plot(x,y,type='o',cex=.4,col=col,lwd=1,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,'; d = ',d,'; color:',col))"""))
No comments:
Post a Comment