xxxxxxxxxxprint(r.eval("""svg(filename='Rplots.svg',width=6,height=6,onefile=TRUE, pointsize=14,family='courier',bg='slategray', antialias=c('default','none','gray','subpixel'))t<-seq(0,2*pi,len=360); d<-.04; c0<-'white'f<-exp(cos(t)^2+sin(t))-3*cos(4*t)+sin(t/12)x<-f*cos(t); y<-f*sin(t) for(i in 1:25){ plot(d*i*x,d*i*y,type='l',col=rgb(d*i,0,1-d*i), xlim=c(-6,6),ylim=c(-4,6), xlab='x',ylab='y', cex=.8,fg=c0,col.axis=c0,col.lab=c0) par(margin=c(0,0,0,0)); par(new=TRUE)}grid(col=c0); dev.off()"""))
No comments:
Post a Comment