如何在R中绘制3d参数方程式？

问题描述：

摘自Wiki页面上的参数方程式（ http://en.wikipedia.org/wiki/Parametric_equation ），我可以绘制2d方程，如下所示：

From the parametric equations on wiki page ( http://en.wikipedia.org/wiki/Parametric_equation ), I can plot 2d equations as follows:

#for a circle: 
x = seq(-pi, pi, length.out=30)
plot(sin(x),cos(x))

# for a star: 
a=10; b=10/1.8
x=seq(-50,50,length.out=500)
plot((a-b)*cos(x)+b*cos(x*((a/b)-1)), (a-b)*sin(x)-b*sin(x*((a/b)-1)), ylim=range(-13,13))

如何在方程式给定的Helix的3d图上绘制3d方程：

How can I plot 3d equations on a 3d plot of a Helix given by equations:

x=a*cos(t)
y=a*sin(t)
z=b*t

通过搜索，我发现3d绘图函数采用矩阵或x，y，z值，而不是数学曲线函数。

From searching I found that the 3d plotting functions take either a matrix or x,y,z values but not math curve functions.

答

您可以像绘制2D方程一样绘制3D方程。

You can plot 3D equations like you did the 2D ones.

library(lattice)
t<-seq(-2*pi, 2*pi, length.out=200)
cloud(z~x+y,data.frame(x=3*cos(t),y=3*sin(t), z=2*t))

是的，您不能直接提供原始函数，但是您可以根据这些函数轻松计算要绘制的点。让我知道您是否还有其他想法。

So yes, you can't supply a raw function directly, but you can easily calculate points to plot based on those functions. Let me know if you had something else in mind.

这里是两个参数的圆环

t <- seq(0, 2*pi, length.out=50); 
u <- seq(0, 2*pi, length.out=50); 
tu<-expand.grid(t=t,u=u)
R <- 6; 
r <- 3; 
tu <- transform(tu, 
    x = cos(t)*(R+r*cos(u)), 
    y = sin(t)*(R+r*cos(u)),
    z = r*sin(u)
)

rr<-c(-10,10)
cloud(z~x+y, tu, xlim=rr, ylim=rr, zlim=rr, screen=list(y=20));

实际上，我只是意识到 wireframe 更好，只是花了我一点时间找出语法。

Actually, I just realized wireframe is better, just took me a bit longer to figure out the syntax.

xm<-outer(t,u,function(t, u)cos(t)*(R+r*cos(u)))
ym<-outer(t,u,function(t, u)sin(t)*(R+r*cos(u)))
zm<-outer(t,u,function(t, u) r*sin(u))

rr<-c(-10,10)
wireframe(zm~xm+ym, xlim=rr, ylim=rr, zlim=rr, screen=list(y=30))

在？cloud 帮助页面上找到的更多详细信息

More details found on the ?cloud help page

如何在R中绘制3d参数方程式？

相关推荐