设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11333|回复: 4

[求助] 自学中文手册时遇到了问题,求高手解答

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& B. J% i6 b4 q5 K7 qto setup
/ p( g9 Z$ |6 E* H  S  clear-all% `9 x0 e4 ^; h) B, }2 ~7 M9 N( K
  setup-patches- f- f/ M+ M2 s! Y& y8 `- ~  ~
  create-turtles 100
" j; W% {! u& S% D% m8 A7 ~  do-plots
6 T5 M% r- e# Z9 M/ {1 Z" b4 b  ask turtles [ setxy random-xcor random-ycor ]* D+ g& V0 |6 T$ D, X+ n
end
0 Y) g" H5 W0 K) n  \to go5 [9 O, R3 ?0 U& Y
  move-turtles
$ V' A% X0 z# l+ h  eat-grass
  w7 O! _, e/ T& v3 b  reproduce# M3 ~3 ?7 g2 _- r2 @0 u
  check-death. [/ [0 H% J1 b: L, n0 h
  regrow-grass$ m% f  I+ \( S+ W0 u0 q7 Z
  do-plots8 Y" r# F- o6 X5 Z7 I$ j
end8 B& {3 s6 @6 j' u% }, W& P9 A
to move-turtles
6 Z8 `9 {  p  C; j  q  ask turtles [
8 r" v: w% ~9 N# `1 U) ]    right random 3601 D; S' E3 |" J8 ~
    forward 1# t5 V, d. {  b$ M1 G
    set energy energy - 1$ o) V8 \6 N, Z0 \! B0 X7 M
    ]
2 y$ C- c6 Y/ E. m, F- Q9 Bend
" A6 R( i( o2 b# [( Eto setup-patches. h$ |# T- z, ]
  ask patches [ set pcolor green ]. ?% p7 S  M2 A! x" q% R9 P
end( f0 H% p7 N( w5 o2 z1 _
to setup-turtles, Q9 ?" e0 Y6 A' w6 v$ T1 h  O
  create-turtles 100% n, J% `% s, k8 u/ C7 y( ?# `. N
  ask turtles [ setxy random-xcor random-ycor ]! J# j( r' V1 q' v" ]; L% x
end  B2 a: y& g( F0 o
to eat-grass
* A# X* p+ `4 P2 q  `  ask turtles [
! {. q, b; s( W: d4 U9 M1 z% R    if pcolor = green [
) G2 [3 `! g" u& r$ h1 Z8 y* N$ c      set pcolor black
; L5 B0 m- t7 N      set energy (energy + 10), p+ J2 M* E2 V6 `# [2 i+ E8 \( ]) f+ ^  k
      ]
6 ?) G0 \1 H! q; D, \' x1 c" G3 @    ifelse show-energy?
- G2 @6 L  y" [( r% `# o/ d1 X# B      [ set label energy ]
5 K) n) f- B- ?) f; N; |( B# ~; R      [ set label "" ]
; Q3 z* h( r) \9 Y    ]! [8 i8 r3 g/ f7 _2 B
end' R* K1 o$ |- ?9 ^) ^7 y; w$ S0 c( }
to reproduce
2 k( S$ [& G; A3 [: C) B3 |  ask turtles [
& Z% e- `, ~' M/ ]) A( L    if energy > 50 [
: M, t. z% _7 D      set energy energy - 50$ a: ]( f! X" F; U4 h' y
      hatch 1 [ set energy 50 ]
( A; k* K' W* F; l      ]
5 |- r  f; T5 \- u7 ]    ]
. a2 u, m2 @1 _- E, p0 z7 r9 send9 O2 Y5 G2 v) ?
to check-death& @( N0 y/ I' @) t; E# h. U
  ask turtles [
5 N) w" _' D0 w5 o% Y& l6 o    if energy <= 0 [ die ]8 z3 n; s* c6 o/ t7 N) t1 E5 P# ^
    ]$ [' m+ {+ K# N* r* d$ O
end2 e; y- l- T: ~+ @: V
to regrow-grass* B+ \$ W$ c- Y" c3 d
  ask patches [
# B$ N5 {! D+ k; |5 F    if random 100 < 3 [ set pcolor green ]% ]0 q9 I2 C' t* C. `5 |, q. F
    ]
2 f& J7 |. J, T8 a$ A3 D; s8 Tend( Q$ u7 O& Z9 Z5 b8 Q! r
to do-plots3 X- t! @' m$ Y# o2 B: {
  set-current-plot "Totals"
8 c& N) ?, }5 G$ X$ p  set-current-plot-pen "turtles"" K9 L; p4 s# I4 w  b: I8 r# \
  plot count turtles8 U9 L" i0 M0 [; v! V
  set-current-plot-pen "grass"2 t" z; [" q/ O! b
  plot count patches with [pcolor = green]
) F& ~) t$ j- l2 T$ f# yend: k$ H( E- Q# X0 h2 K
可是运行时提示no such plot: "Totals"* h6 y) ]& P& J  x
error while observer running SET-CURRENT-PLOT& R# g6 Z* ?7 D- ?  i
  called by procedure DO-PLOTS
2 W/ @5 H* `2 k7 h+ F* A  called by procedure SETUP: W: z1 l; @5 [2 B. C( L- @0 K
  called by 按钮 'setup'9 D! P& N! w3 l& V& Y2 Z! }
求大神解答啊
发表于 2013-5-29 00:25:38 | 显示全部楼层
no such plot: "Totals",就是说你的界面里没有叫做Totals的绘图框
发表于 2013-5-29 00:26:26 | 显示全部楼层
建一个叫做叫做Totals的绘图框就行了
 楼主| 发表于 2013-6-4 12:24:45 | 显示全部楼层
emlyn 发表于 2013-5-29 00:26
# ^3 Y0 C+ w8 l( S) X/ W建一个叫做叫做Totals的绘图框就行了

2 y  o; H/ {6 ?  W, i3 ?+ r# j哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2026-5-19 09:04 , Processed in 0.015831 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表