Question

如何绘制点到点的渐进式步行？

让我们让p1 = [1,0]，p2 = [0,1]，p3 = [1,1]。绘图应首先从p1到p2画一条线来显示方向，等待一秒钟，然后再从p2到p3画一条线，如果有更多数据，它将继续。

图的大小应首先固定为（0,1）^ 2。正确的输出应类似于此图像： Example plot

我的代码现在是这样的：

$plan->setPlanAt($plan->getPlanAt()->modify('+7 day')); //fail
$plan->setPlanAt(new \Datetime($plan->getPlanAt()->modify('+7 day')->format('Y-m-d')));  //success

Answer 1

一种选择是使用箭头。首先，您需要创建一个绘图，以提供所需的数据。然后，您可以画线以连接您的点。假设您有x，y的随机统一数组。设置限制以决定要绘制的点数。尽管我立即放置了点（否则无法正确放置网格）希望对您有所帮助。

limit<- 50
x <- runif(limit)
y <- runif(limit)
plot(x,y, xlim=range(0,1), ylim=range(0,1),
    xlab="x", ylab="y", main = "Random Walk")
grid(nx = 10, ny = 10, col = "lightgray", lty = "dotted", 
    lwd = par("lwd"), equilogs = TRUE)
for(i in 1:limit){
  arrows(x[i],y[i],x[i+1],y[i+1], length = 0.1, angle = 20)
  Sys.sleep(0.5)
}

R中的渐进式点对点行走绘图

1 个答案: