2

NetLogoで高速道路とドライバーの動作のシミュレーションを作成しようとしています。

解決に苦労している質問がいくつかあります。

これが私のコードです：

    globals
[
  selected-car   ;; the currently selected car
  average-speed  ;; average speed of all the cars
  look-ahead
]

turtles-own
[
  speed         ;; the current speed of the car
  speed-limit   ;; the maximum speed of the car (different for all cars)
  lane          ;; the current lane of the car
  target-lane   ;; the desired lane of the car
  change?       ;; true if the car wants to change lanes
  patience      ;; the driver's current patience
  max-patience  ;; the driver's maximum patience
]

to setup 
  ca
    import-drawing "my_road3.png"
    set-default-shape turtles "car"
    crt number_of_cars
      [ setup-cars ]
end

to setup-cars
  set color blue
  set size .9
  set lane (random 3)
  set target-lane (lane + 1)
  setxy round random-xcor (lane + 1)
  set heading 90
  set speed 0.1 + random 9.9
  set speed-limit (((random 11) / 10) + 1)
  set change? false
  set max-patience ((random 50) + 10)
  set patience (max-patience - (random 10))
  ;; make sure no two cars are on the same patch
  loop
  [
    ifelse any? other turtles-here
    [ fd 1 ]
    [ stop ]
    ;if count turtles-here > 1
    ;  fd 0.1
    ;if 
    ;
    ;ifelse (any? turtles-on neighbors) or (count turtles-here > 1)
    ;[
    ;   ifelse (count turtles-here = 1)
    ;   [ if  any? turtles-on neighbors
    ;     [
    ;       if distance min-one-of turtles-on neighbors [distance myself] > 0.9
    ;       [stop]
    ;     ]  
    ;   ]  
    ;   [ fd 0.1 ]
    ;]
    ;[ stop ]
  ]
end

to go
  drive
end

to drive
  ;; first determine average speed of the cars
  set average-speed ((sum [speed] of turtles) / number_of_cars)
  ;set-current-plot "Car Speeds"
  ;set-current-plot-pen "average"
  ;plot average-speed
  ;set-current-plot-pen "max"
  ;plot (max [speed] of turtles)
  ;set-current-plot-pen "min"
  ;plot (abs (min [speed] of turtles) )
  ;set-current-plot-pen "selected-car"
  ;plot ([speed] of selected-car)

  ask turtles
  [
    ifelse (any? turtles-at 1 0)
    [
      set speed ([speed] of (one-of (turtles-at 1 0)))
      decelerate
    ]
    [
      ifelse (look-ahead = 2)
      [
        ifelse (any? turtles-at 2 0)
        [
          set speed ([speed] of (one-of turtles-at 2 0))
          decelerate
        ]
        [ 
          accelerate
          if count turtles-at 0 1 = 0 and ycor < 2.5
            [lt 90
             fd 1
             rt 90]
        ]
      ]
      [accelerate
        if count turtles-at 0 1 = 0 and ycor < 2.5
            [lt 90
             fd 1
             rt 90]
            ]
    ]
    if (speed < 0.01)
    [ set speed 0.01 ]
    if (speed > speed-limit)
    [ set speed speed-limit ]
    ifelse (change? = false)
    [ signal ]
    [ change-lanes ]
    ;; Control for making sure no one crashes.
    ifelse (any? turtles-at 1 0) and (xcor != min-pxcor - .5)
    [ set speed [speed] of (one-of turtles-at 1 0) ]
    [
      ifelse ((any? turtles-at 2 0) and (speed > 1.0))
      [
        set speed ([speed] of (one-of turtles-at 2 0))
        fd 1
      ]
      [jump speed]
    ]
  ]
  tick
end

;; increase speed of cars
to accelerate  ;; turtle procedure
  set speed (speed + (speed-up / 1000))
end

;; reduce speed of cars
to decelerate  ;; turtle procedure
  set speed (speed - (slow-down / 1000))
end

to signal
  ifelse (any? turtles-at 1 0)
  [
    if ([speed] of (one-of (turtles-at 1 0))) < (speed)
    [ set change? true ]
  ]
  [ set change? false ]
end

;; undergoes search algorithms
to change-lanes  ;; turtle procedure
  show ycor
  ifelse (patience <= 0)
  [
    ifelse (max-patience <= 1)
    [ set max-patience (random 10) + 1 ]
    [ set max-patience (max-patience - (random 5)) ]
    set patience max-patience
    ifelse (target-lane = 0)
    [
      set target-lane 1
      set lane 0
    ]
    [
      set target-lane 0
      set lane 1
    ]
  ]
  [ set patience (patience - 1) ]

  ifelse (target-lane = lane)
  [
    ifelse (target-lane = 0)
    [
      set target-lane 1
      set change? false
    ]
    [
      set target-lane 0
      set change? false
    ]
  ]
  [
    ifelse (target-lane = 1)
    [
      ifelse (pycor = 2)
      [
        set lane 1
        set change? false
      ]
      [
        ifelse (not any? turtles-at 0 1)
        [ set ycor (ycor + 1) ]
        [
          ifelse (not any? turtles-at 1 0)
          [ set xcor (xcor + 1) ]
          [
            decelerate
            if (speed <= 0)
            [ set speed 0.1 ]
          ]
        ]
      ]
    ]
    [
      ifelse (pycor = -2)
      [
        set lane 0
        set change? false
      ]
      [
        ifelse (not any? turtles-at 0 -1)
        [ set ycor (ycor - 1) ]
        [
          ifelse (not any? turtles-at 1 0)
          [ set xcor (xcor + 1) ]
          [
            decelerate
            if (speed <= 0)
            [ set speed 0.1 ]
          ]
        ]
      ]
    ]
  ]
end

ライブラリの他のモデルのコードを使用しているので、少し面倒です。

車の衝突を作成する方法を知りたいです。何も思いつかない。お気づきのように、私のエージェントはパッチとほぼ同じサイズです（2台の車を並べて配置したときにスペースを区別できるように、0.9に設定し、座標を丸めて中央に設定します。パッチの）。

加速手順では、エージェントを左に曲がり、1を移動し、ループで右に曲がるように設定しました。エージェントを回転させたり動かしたりせずに、あるレーンから別のレーンに（左側の隣のパッチに）ジャンプさせるコマンドがあるかどうかを知りたいです。

そして最後に、私が作成したコードに気付いた場合、車は左側のレーンでその隣にあるパッチと、その前と後ろのパッチをチェックします。したがって、左側の3つのパッチが空の場合、レーンを変更できます。あいまいな部分は、セットアップを実行してGoを押すと、時々（常にではない）車が3つの基本レーンから出てしまうことです。

これを理解するために、私は7つのレーンを持っています。私が使用していない真ん中のレーン0です。次に、レーン0の上に3つのレーンがあり、その下に3つのレーンがあります。したがって、私が使用しているコードは、車を設定した上位3車線を参照していますが、何らかの理由で、一部の車は車線を変更し、車線-3、次に-2などに移動します。

誰かが私にヒントを与えることができれば、私は本当にそれをいただければ幸いです。

前もって感謝します。

ヒント：netlogoでこのコードを試してみたい場合は、[インターフェイス]タブに2つのボタンがあります。1つはセットアップ、もう1つは移動、3つのスライダーにはnumber_of_cars、speed-up、slowdownという名前が付いています。

4

2 に答える 2

3

クラッシュをチェックするには、カメに最も近い他のカメを見つけるように依頼します。それらの距離が1未満の場合、それらはクラッシュします。そのような：

let closest min-one-of other turtles [distance myself]
if (distance closest < 1) [
  ;;we crashed
]
于 2010-03-31T23:59:10.873 に答える
2

「どういうわけか、同じパッチに複数のカメ（車）がセットされていて、検査したときの距離が1より大きい！どうしてそれが可能でしょうか？」、同じパッチの反対側の角にいる2匹のカメを考えてみましょう。 。それらが同じパッチ上にある場合でも、それらの間の距離は1.414 ...（対角線の長さ）です。

于 2010-04-01T15:08:43.760 に答える