R中的3D绘图并找到自相交

Question

Rstudio绘制3D参数化的最简单方法是什么

g(t)=(cos(t)^2-0.5,sin(t)*cos(t),sin(t))

我想找到值t1和t2，其中g（t1）= g（t2）（因此我想找到自交点）

另外，我如何制作这个参数化的2D

g(t)=((1+2*cos(t))*cos(t),(1+2*cos(t))*sin(t))

此致

取值

Answer 1

以下是3D参数化问题的解决方案：

t <- seq(0, 2*pi, length.out=200)
gt <- data.frame(x=(1+2*cos(t))*cos(t),y=(1+2*cos(t))*sin(t))

plot(gt$x, gt$y, type="l", asp=1, xlab="x", ylab="y")

对于2D参数化：

fields.stream()
      .map(map::get)
      .filter(Objects::nonNull)
      .collect(Collectors.toList())