xxxxxxxxxxprint(r.eval("""svg(filename='Rplots.svg',width=6,height=6,pointsize=10, onefile=TRUE,family='courier',bg='black', antialias=c('default','none','gray','subpixel'))gen<-function (a,b,n) {i<-1; xyi<-array(c(0,0),c(n,2)) while (i<=n-1) { xi<-1-(.2+.01*a)*xyi[i,1]**2+xyi[i,2] yi<-(.9991+.0001*b)*xyi[i,1]; i<-i+1; xyi[i,1]<-xi; xyi[i,2]<-yi} return(xyi)}xyn<-gen(0,0,5000)col<-rgb(.9*runif(1),.9*runif(1),.9*runif(1))plot(xyn[,1],xyn[,2],type='p',cex=.5, col=col,xlab='x',ylab='y', fg='gray',col.axis='gray',col.lab='gray')grid(col='gray'); dev.off()"""))
No comments:
Post a Comment