a=normrnd(100,5,1,500)
plot(1:500,a)
把5改大点可以让波动幅度变大
简单的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]]
如果你还要格点不重复,标好箭头,颜色有变化,那你需要加点分咯。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)