我贴一个数学东西 大家帮我看看

来源: 挪威的海峡 于 2017-02-20 10:55:07 [] [旧帖] [给我悄悄话] 本文已被阅读： 次 (615 bytes)
本文内容已被 [ 挪威的海峡 ] 在 2017-02-20 11:11:43 编辑过。如有问题，请报告版主或论坛管理删除.

这里面是写的啥东西？啥意思？跟一个数学呆子在一起的日子真是怪异啊！

 

levyFlight[t_] := 
 Accumulate[
  Map[{#[[2]] Cos[#[[1]]], #[[2]] Sin[#[[1]]]} &, 
   MapThread[
    List, {RandomReal[{0, 2 Pi}, t], 
     RandomVariate[
      ProbabilityDistribution[1/x^2, {x, 0.0001, Infinity}], t]}]]]

ListLinePlot[levyFlight[10000], AspectRatio -> Automatic, 
 Axes -> False]

所有跟帖： 

• 航空公司的飞行图 -嘚瑟一下- ♂ 给 嘚瑟一下 发送悄悄话 (0 bytes) () 02/20/2017 postreply 10:57:24

• 不会吧 -挪威的海峡- ♀ 给 挪威的海峡 发送悄悄话 (0 bytes) () 02/20/2017 postreply 11:02:59

• Mathematica -got66- ♂ 给 got66 发送悄悄话 (23 bytes) () 02/20/2017 postreply 11:20:12

• 是的 random跑的 -挪威的海峡- ♀ 给 挪威的海峡 发送悄悄话 (0 bytes) () 02/20/2017 postreply 11:21:55

加跟帖：

当前帖子已经过期归档，不能加跟帖！