在NetLogo中实现相关随机游走和levy游走

是否有人有任何示例代码或知道如何在netlogo中实现相关的随机行走或levy行走

***我需要它来做动物运动的空间显式建模

globals [alpha minstep]

to setup
  ca
  set alpha 1.5 set minstep 0.2 ;or whatever
  crt 1 [pen-down]
end

to go
  ask turtles [
    set heading random-float 360
    fd minstep * (random-float 1) ^ (-1 / alpha)
  ]
end

编辑：

下面可能是获得相关角度的最简单方法

to-report randomAngleTriangular [
  #maxAngle  ;(number) angle in degrees
  ]
  let _maxAngle abs #maxAngle
  if (_maxAngle > 180) [
    set _maxAngle 180
  ]
  report (2 * randomStandardTriangular - 1) * _maxAngle
end

to-report randomStandardTriangular
  report (random-float 1 + (1 - random-float 1)) / 2
end

对于相关的随机行走，只需按报告的角度（向左或向右）转动

航向

to-report randomAngleTriangular [
  #maxAngle  ;(number) angle in degrees
  ]
  let _maxAngle abs #maxAngle
  if (_maxAngle > 180) [
    set _maxAngle 180
  ]
  report (2 * randomStandardTriangular - 1) * _maxAngle
end

to-report randomStandardTriangular
  report (random-float 1 + (1 - random-float 1)) / 2
end

编辑：

下面可能是获得相关角度的最简单方法

to-report randomAngleTriangular [
  #maxAngle  ;(number) angle in degrees
  ]
  let _maxAngle abs #maxAngle
  if (_maxAngle > 180) [
    set _maxAngle 180
  ]
  report (2 * randomStandardTriangular - 1) * _maxAngle
end

to-report randomStandardTriangular
  report (random-float 1 + (1 - random-float 1)) / 2
end

---

对于相关的随机游动，只需按报告的角度（向左或向右）转动

航向
。
我应该提到：另请参见Railsback和Grimm教科书中的蘑菇狩猎模型。（不是列维的航班，但与你的问题相关）谢谢你，艾伦，这对列维的行走非常有帮助。。。我现在有很好的方向来处理这件事。。。一次相关的随机漫步怎么样？关于如何实现这一点有什么想法吗？你好，Alan或其他任何可能帮助我的人：我已经能够在netlogo中使用下面的代码实现levy walk和相关的随机行走（使用滑块和按钮以增强功能）。然而，相关的随机游走并没有相应地发挥作用…@nigus21阅读是不可能的，使用评论提出新问题被认为是不礼貌的。相反，这是一个新问题。另外，请务必阅读感谢您的建议，我为我的问题作为评论的表述不清楚表示歉意。我将分别提出以下问题。谢谢你回答我最初的问题。我对堆叠交换相当陌生，所以我仍然习惯这里的礼节。我确实需要一些关于执行代码的澄清。。。我将在另一个问题中要求澄清！我应该提到：在Railsback和Grimm教科书中也可以看到蘑菇狩猎模型。（不是列维的航班，但与你的问题相关）谢谢你，艾伦，这对列维的行走非常有帮助。。。我现在有很好的方向来处理这件事。。。一次相关的随机漫步怎么样？关于如何实现这一点有什么想法吗？你好，Alan或其他任何可能帮助我的人：我已经能够在netlogo中使用下面的代码实现levy walk和相关的随机行走（使用滑块和按钮以增强功能）。然而，相关的随机游走并没有相应地发挥作用…@nigus21阅读是不可能的，使用评论提出新问题被认为是不礼貌的。相反，这是一个新问题。另外，请务必阅读感谢您的建议，我为我的问题作为评论的表述不清楚表示歉意。我将分别提出以下问题。谢谢你回答我最初的问题。我对堆叠交换相当陌生，所以我仍然习惯这里的礼节。我确实需要一些关于执行代码的澄清。。。我将在另一个问题中要求澄清！
to-report randomAngleTriangular [
  #maxAngle  ;(number) angle in degrees
  ]
  let _maxAngle abs #maxAngle
  if (_maxAngle > 180) [
    set _maxAngle 180
  ]
  report (2 * randomStandardTriangular - 1) * _maxAngle
end

to-report randomStandardTriangular
  report (random-float 1 + (1 - random-float 1)) / 2
end