| 所在主题： | |
| 文件名: 源数据.xls | |
| 资料下载链接地址: https://bbs.pinggu.org/a-1096592.html | |
| 附件大小: | |
|
从RGL包里面用surface3d与spheres3d做了一张图（），但发现出来的图高低起伏得太剧烈，平滑度很差，请教怎么解决哈。另外，如果不行，用 persp（）是否能解决呢？谢谢！
> a=read.csv("a01.csv",header=T) > b=read.csv("a02.csv",header=T) > m=as.matrix(a[1:42,1:6]) > n=as.matrix(b[1:42,1:6]) >tmp<-matrix(m,42,6) >tmt<-matrix(n,42,6) > x <- 1:nrow(tmp) > y <- 1:ncol(tmp) > u <- 1:nrow(tmt) > v <- 1:ncol(tmt) > library(rgl) > open3d() > zlim <- range(tmp) > zlen <- zlim[2] - zlim[1] + 1 > colorlut <- terrain.colors(zlen) > col <- colorlut[tmp-zlim[1]+1] > surface3d(30000*x,50000*y,tmp,col=colorlut) >spheres3d(30000*u,50000*v,tmt,radius=5000,color="blue") |
|
熟悉论坛请点击新手指南
|
|
| 下载说明 | |
|
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。 2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。 3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。 (如有侵权，欢迎举报) |
|
京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问：王进律师
知识产权保护声明
免责及隐私声明
