求助如何画三维曲面图

hdmars

13006

收藏 2014-11-19

已知数据如下：

复制代码

想画如下图

该怎么画呢，谢谢啦

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

libraryrgl

2014-11-20 09:53:56

帮顶

[tongue]

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

DM小菜鸟

2015-2-15 11:39:36

用Cairo包可以做
CairoPNG(file="Cairo2.png",width=640,height=480)
op <- par(bg = "white", mar=c(0,2,3,0)+.1)
persp(x, y, z,
theta = 30, phi = 30,
expand = 0.5,
col = "lightblue",
ltheta = 120,
shade = 0.75,
ticktype = "detailed",
xlab = "X", ylab = "Y", zlab = "Sinc(r)",
main = "Cairo"
)
par(op)
dev.off()

因为我不知道你的这个角度参数，改一下上面的程序，可以试一试