维纳过程切片

wiener[x_, y_, z_] := 
 Module[{o}, 
  o = Flatten[
    RandomFunction[WienerProcess[x, y], {1, z, 1}]["SliceData", 
     Table[i, {i, z}]]]; o = 1 + o + Abs[Min[o]]];

对系统内置函数WienerProess进行切片后便可得到随机生成的维纳过程的具体数值.