rm(list=ls(all=TRUE))
library(rgl)
x<-c(rep(0.0125*0:40,each=41))
y<-c(rep(rep(0,25),times=41))
z<-c(rep(seq(length=25,from=-1,by=-0.02165),times=41))
open3d()
plot3d(x, y, z)

挺漂亮的，呵呵

R软件可以免费下载你还要论坛币啊

呵呵 当时不知道怎么挣钱 好的 从现在起免费

给大家一个消灾R软件的地址好了 不断更新中的官方下载地址
http://cran.r-project.org/bin/windows/base/
我最近刚开始学着用R 有什么新的大家可以交流一下