设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9923|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]% u  p. L) \  y8 {) ^
to setup$ ~  r% n8 o/ E$ c1 K1 B. }
  clear-all
- S) G, ]0 l! g$ h7 Y  setup-patches" V/ A" v2 f( G  p
  create-turtles 100+ w1 N4 Q, R# U6 g! w
  do-plots
4 g6 q$ L: N7 I5 F2 K6 l6 r/ k: X% n  ask turtles [ setxy random-xcor random-ycor ]8 Z1 ^: P7 @" Y0 A
end
7 V6 j2 g; a- o# M  {8 ?# g* Lto go
, k$ G/ g: e1 f" k. u  move-turtles4 p# u/ i$ G, J( N9 y
  eat-grass
/ _8 n/ K9 Y" I1 N; C5 i) r  reproduce1 M4 a. T( b3 A
  check-death
3 v" f: e3 g  {  regrow-grass8 @7 Q2 c1 f7 A* F& ?
  do-plots9 r$ o, {& p8 a  j8 g
end' e. h$ \, h, s, P+ H/ R& o) b  Z
to move-turtles
; J9 k. Q0 i5 ^7 S  ask turtles [
! Y8 `3 D% f2 [, k8 L$ Y0 z* o    right random 360
% j: H! n0 s7 i/ b    forward 1
) n$ R- k, K% v+ O4 W8 u    set energy energy - 1
- _% z3 {% s+ o: I    ]8 t0 L2 a: [! o: }" k
end
- ?# k* O0 O' g( l+ ?to setup-patches" g  f* L* i) ~1 ^' E$ H2 K/ L2 j$ V
  ask patches [ set pcolor green ]& A0 j6 ?7 `, |" o; u
end, ?- i* Z" q& N! I7 A
to setup-turtles
+ H- t0 o$ S% [  create-turtles 1005 M, F1 ^& S) Q9 O
  ask turtles [ setxy random-xcor random-ycor ]( J1 V0 Z# H. O. n
end
8 D, R( g  O) `3 d% ~to eat-grass' H4 k) m0 v  c, q  I
  ask turtles [$ C1 ~- T6 X8 Y: g% @' u
    if pcolor = green [# N7 ~: k" X3 R' }! y
      set pcolor black
* ]! z" h' D8 G0 M7 m      set energy (energy + 10)
, [- r3 J# l% p& e' b% s2 q      ]5 k8 D* }& e! N8 ]
    ifelse show-energy?, ~9 @* w( u* J
      [ set label energy ]1 o+ t9 r+ m. r9 v. u, J3 _  o0 S
      [ set label "" ]
# R" M* {- u% g* e# @; v    ]
5 F1 ?8 Z2 {) v* |: A) hend
" z5 |" g; s1 U5 ~/ h5 Xto reproduce
( Z* B1 m' |* v% y4 Y+ j" \  ask turtles [
" _  N* \. s6 t' o) |% F. E$ G    if energy > 50 [
3 B5 m9 C0 a' {1 i, w9 F      set energy energy - 50
5 Q" Q! h" R7 `; u+ V: h! B      hatch 1 [ set energy 50 ]
0 V! f! c  U. A/ x/ R5 F7 K      ]" C( U6 P$ N' J( {7 I$ [3 d9 |
    ]
, Y; I0 S7 U$ H7 R; E1 _end
! n4 p% j0 _) L9 X8 a. Ato check-death
0 S0 e5 ^3 e( Q# d5 e& P0 A% J$ n  ask turtles [5 A5 m* H3 c, E" M) ^/ a
    if energy <= 0 [ die ]
2 u; N; m' p, R) N    ]
- T% J/ b( f6 {4 ^4 E3 x0 ^end* s7 I  b, {$ c9 X+ M
to regrow-grass
8 c( o* s8 K: v  ask patches [
+ h) i! c! @' G' b5 M) _    if random 100 < 3 [ set pcolor green ]0 H3 y# E' R9 B" i) u( P
    ]9 P0 Z# W4 H0 o4 q) ], s, z
end7 b: x! D. v0 ?% x' J- ^
to do-plots2 Q5 p0 z! M7 _- k( E* S
  set-current-plot "Totals"' H/ x: I$ u  N) Q
  set-current-plot-pen "turtles"& b* w- b* o7 W; g/ G3 V
  plot count turtles! w; `# R" |+ G% m4 w0 r
  set-current-plot-pen "grass"
# f, i, T1 {- a# h5 g  plot count patches with [pcolor = green], x+ v3 R$ E& n# s" \8 f# Y/ R
end
2 `' [* }' B2 `1 Y9 O' f/ R# B可是运行时提示no such plot: "Totals"
# @' `3 \+ X& X' B" J- _' w: [error while observer running SET-CURRENT-PLOT+ y$ r' {0 h! U& m2 d4 ^; g0 _
  called by procedure DO-PLOTS
; c  V+ @% K" ~8 O* I7 F+ e  called by procedure SETUP
9 W! O+ R$ i; l; f% L( L  called by 按钮 'setup'
' `' m! t( h  H6 P* ?; u" u/ T求大神解答啊
发表于 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 2 G8 T* K8 n8 u4 ~6 r4 Y- Y1 J
建一个叫做叫做Totals的绘图框就行了

/ c3 h. {1 f6 J% S9 h2 x哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-31 01:34 , Processed in 0.017709 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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