有哪位高手帮忙用mathematica编写程序画出三维空间上的100步按格点的随机游走，标好箭头，最好能有颜色变化
有哪位高手帮忙用mathematica编写程序画出三维空间上的100步按格点的随机游走，标好箭头，最好能有颜色变化，非常感谢啦！！！...
有哪位高手帮忙用mathematica编写程序画出三维空间上的100步按格点的随机游走，标好箭头，最好能有颜色变化，非常感谢啦！！！
展开
2个回答
展开全部
简单的3行代码就搞定了
lattice = Table[Take[Join[{0, 0}, IntegerDigits[i, 2]], -3], {i, 1, 8}] /. {0 -> -1};
data = Accumulate[Table[lattice[[RandomInteger[{1, 8}]]], {200}]];
Graphics3D[Line[data]]
如果你还要格点不重复，标好箭头，颜色有变化，那你需要加点分咯。
lattice = Table[Take[Join[{0, 0}, IntegerDigits[i, 2]], -3], {i, 1, 8}] /. {0 -> -1};
data = Accumulate[Table[lattice[[RandomInteger[{1, 8}]]], {200}]];
Graphics3D[Line[data]]
如果你还要格点不重复，标好箭头，颜色有变化，那你需要加点分咯。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
