数学之路-群体行为与群体智能（7）

下面完成绘图、开关和监视器的创建，可以自定义海龟的数量（滑动条）。选择下图中的相应选项创建组件。

 

 

麦好的AI乐园博客所有内容是原创，如果转载请注明来源

http://blog.csdn.net/myhaspl/

同时，让海龟自动繁殖，并规定，在1000步后模型停止，并编写相应代码：

;code:myhaspl@myhaspl.com

;date:2014-01-24

turtles-own [energy]

patches-own [oxygen]

to setup

  clear-all

  reset-ticks

  create-turtles turtlescount

  setup-turtles

  setup-patches

end

to go

  if ticks >= 1000 [stop]

  die-turtles

  reproduce-turtles

  generate-oxygen

  move-turtles

  breathe

  tick

  plots

end

to generate-oxygen

   ask patches [

    if oxygen <= 0 [

      set pcolor 100

    ]

    if  oxygen < 10[

       set oxygen (oxygen + 0.1)

       if pcolor <= 109 [

         set pcolor pcolor + 0.1

       ]

    ]

    if oxygen > 9 [

      set pcolor 109

      set oxygen 10

    ]

  ]

end

to move-turtles

  ask turtles [

    if energy > 0[

          right random 360    

          forward 1    

          set energy (energy - 1)

    ]   

  ]

end

to breathe

  ask turtles [

    if oxygen > 0 [

      set oxygen (oxygen - 2)  

      set energy (energy + 2)

 

      if pcolor >= 100 [

         set pcolor pcolor - 0.1

       ]

    ]

    ifelse show_energy

    [set label energy ]

    [set label "" ]

  ]

end

to setup-patches 

  ask patches[

    set pcolor 109

    set oxygen 10

    ]

end

to setup-turtles 

  ask turtles[

    setxy random-xcor random-ycor

    set energy 10

    ]

end

to die-turtles

  ask turtles[

    if energy <= 0[

      die

    ] 

  ]

end

to reproduce-turtles

  ask turtles[

    if energy > 50[

      set energy energy - 50

      hatch 1[set energy 10]

    ]

  ]

end

to plots

  set-current-plot "myplots"

  set-current-plot-pen "turtles"

  plot count turtles

  set-current-plot-pen "oxygen"

  plot count patches with [pcolor = 109]

end