NetLogoで相関ランダムウォークと課金を実装する

Question

サンプルコードを持っている人や、netlogoで相関ランダムウォークまたは課金ウォークを実装する方法を知っている人はいますか？

***動物の動きを空間的に明示的にモデル化する必要があります。

Answer 1

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 

、単に報告の角度によって（左または右）回してheadingを変更します。