关于存活时间编程

wjcpcahu · 发表于 2008-4-15 22:28:18

在t 1时候，crt 100，此时turtle 的存活时间为1，所有turtles的变量为m；
在t 2时候，crt 100，此时t 1 turtle 的存活时间为2， turtles的变量为2m；而新造的turtles的存活时间为1，turtles的变量为m；
在t 3时候，crt 100，此时t 1 turtle 的存活时间为3，turtles的变量为3m；而t 2 turtles的存活时间为2，turtles的变量为2m；而新造的turtles的存活时间为1，turtles的变量为m；
不断进行下去，到t n时停止
如何用logo语言将t n时段所有turtles的变量表达出来呢？

wjcpcahu · 发表于 2008-4-15 23:55:59

可以这么理解，就是程序跑完一遍，时间就加1

wjcpcahu · 发表于 2008-4-16 11:24:54

globals [t
         energy
               ]
      ;;energy为个体的能量,m为每阶段所有个体energy的均值

to setup
ca
setup-turtles

end

to setup-turtles
set-default-shape turtles "person"
create-persons 100 [ setxy random-xcor random-ycor
                                       set color white
                                          set energy random-normal 0.5 0.15 ]
end


to go
ifelse t < 60
[hire
   socialize
   set t t + 1]
   [stop]
   tick
end

to hire
create-persons 20 [ setxy random-xcor random-ycor
                                       set color white
                                       set energy random-normal 0.5 0.15 ]
end

to socialize
set  m mean [ energy ]of persons
ask persons [set energy  ( energy + 0.02*t)  ；；？？？这里有问题：这样的话所有人的energy都乘以相同的    t ，但在hire程序中，那些新造的人的存活时间并不是全局间t，比如在t为30的时间段，t为13时段时造的人的存活时间为（30 - 13），而我要表达的就是怎没让0.02*t中的t代表人的真实地存活时间。高手赐教阿！！！
end

如果这样
globals [t
         energy
         n；；n为新造的人的时间
            ]
      ;;energy为个体的能量,m为每阶段所有个体energy的均值

to setup
ca
setup-turtles

end

to setup-turtles
set-default-shape turtles "person"
create-persons 100 [ setxy random-xcor random-ycor
                                       set color white
                                          set energy random-normal 0.5 0.15
                                                               ]
end


to go
ifelse t < 60
[hire
   socialize
   set t t + 1]
   [stop]
   tick
end

to hire
create-persons 20 [ setxy random-xcor random-ycor
                                       set color white
                                       set energy random-normal 0.5 0.15
                                             set  n  t ] 在这里将新人的进入时间给定住
end

to socialize
set  m mean [ energy ]of persons
ask persons [set energy  ( energy + 0.02*（t - n）)不知这样改动后（t - n）能不能表示所有人的真实的存活时间。
end

[ 本帖最后由 wjcpcahu 于 2008-4-16 12:04 编辑 ]

mengye02 · 发表于 2010-5-7 15:20:16

turtles-own [initial-energy energy s-time ]
to setup
  ca
  setup-turtles

end
to setup-turtles
  set-default-shape turtles"person"
  create-turtles 100 [setxy random-xcor random-ycor
set color white
   set initial-energy random-normal 0.5 0.15

  ]
end
to go
  ifelse ticks < 5
  [hire
tick
socialize

  ]
  [stop]




end
to hire
  create-turtles 20 [setxy random-xcor random-ycor
set color white
set initial-energy random-normal 0.5 0.15
]
end

to socialize
ask turtles[
   set s-time s-time + 1
set energy s-time * initial-energy
do-plots show-m

]
end
to do-plots
  set-current-plot "total"
  set-current-plot-pen "turtles"
  plot count turtles
  set-current-plot-pen "energy"
  plot [energy]of turtle 1
end
to show-m
  show [energy]of turtle 1
end

yjt615ok · 发表于 2010-10-16 13:34:40

感谢啊

dcjmmm · 发表于 2011-4-10 14:38:56

很专业

帐号		自动登录	找回密码
密码			注册

[悬赏] 关于存活时间编程

问题是这样的

评分