三维网格不反向路径的演示

电脑

Mathematica

先来画一个2*3*4的三维点阵：U = Table[{u, v, w}, {u, 0, 2}, {v, 0, 4}, {w, 0, 3}]其中，x轴方向是两个网格，y轴方向是4个网格，z轴方向是3个网格

明显的，x方向可以用(1,0,0)表示，也就是说，u0代表了{1,0,0}。{v0 -> {0, 0, 1}, w0 -> {0, 1, 0}, u0 -> {1, 0, 0}}

把每一个次级子列表里面的元素逐步累加起来，就是一爬沫游条具体的路径，比如召速，下面是第一条路径：road = a0[[1]]Accumulate@Join[{{0, 0, 0}}, road]

在点阵里面画出这第脾帮一条路径：

下面是第365条路径。

第666条路径。