设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12313|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]# I! m' w, L$ ]  W) h/ X9 i1 l
to setup
) S, D. l& H. N2 z+ Y( X# i( Y  clear-all
7 d+ S( x  t- x: x8 e+ j5 l  setup-patches
6 J( `! S! C/ ]0 N# X* A  create-turtles 100
) W5 W" x0 s4 ~  ~6 W+ g( V  do-plots4 V# ?2 M( r0 C6 b
  ask turtles [ setxy random-xcor random-ycor ]
2 a, J. t: O3 {1 ?' V9 ^end, P/ l* w# k" |1 M9 S/ Y6 m8 `5 l
to go
( o0 L" ]! k2 O9 q# G' T2 ?: o: d  move-turtles
: J4 _" \, j, F' G) ]1 H  eat-grass
! n" E# I$ [% Y' P. h+ d  reproduce1 u9 W1 U; I7 `! \
  check-death
1 `" y2 s7 ^, {- P* T1 i. l  regrow-grass
8 y) D) V+ E! c  do-plots  T7 M; P# B/ Y* Z+ N+ d) r
end
- ?2 g+ A% |4 K# k2 {to move-turtles9 I! h  T3 Q" R) Y
  ask turtles [
( Z/ C9 c" i  A) P    right random 360
8 l: Q& X" G2 N0 x0 p% ?/ j    forward 14 r! G$ z: p; I  p$ n
    set energy energy - 1! l$ m9 V2 V+ Y/ X% Q  P: G* [# r  _
    ]
: T  p) m$ T/ A. v/ qend0 R5 T( _1 P: G
to setup-patches0 g/ ~& u7 @( a8 P: q: a
  ask patches [ set pcolor green ]" U$ X+ Z+ z7 r5 B' n/ r0 R% Z
end
- ]2 W  r* f# Ato setup-turtles1 d4 p, `; ~1 R: m) P) r" l
  create-turtles 100! q& @, H* _; c& b) Z4 q
  ask turtles [ setxy random-xcor random-ycor ]% u/ I1 l8 t% v
end: ?8 b" z) B* z* Q8 `
to eat-grass& E0 D( R$ v8 w& ?9 x3 u+ \
  ask turtles [5 H" t: [8 {# I2 A( ^
    if pcolor = green [
9 b  ~5 K6 O) j, x, f- m& Y* d; I' C. T      set pcolor black
) H& U$ ~9 y$ `6 D      set energy (energy + 10)
/ P; c$ I2 A# ~7 f      ], e1 x# F. o9 R" z
    ifelse show-energy?
( A/ [, u/ q, n      [ set label energy ]  r3 N9 y& G5 d
      [ set label "" ]) I0 F) D4 H' D. }7 S. b
    ]4 d, X6 w: J- |
end9 q/ K+ \, w8 d1 W1 m# A
to reproduce0 i" r: G0 N  y) Z$ h
  ask turtles [: B7 c5 P# b  b, F# B% e
    if energy > 50 [
# C1 p; ?. V& o' B0 e      set energy energy - 503 s: e' K- q; W6 s/ V6 ?
      hatch 1 [ set energy 50 ]- O- O8 S* b0 F; ?' U. h6 I
      ]: g$ z* m7 k8 X9 S$ e3 }- u" L
    ]' f/ z! X3 R  n
end* o7 c+ O& F5 @8 G# f
to check-death
0 a! C- \- X* S7 i! N9 U) e  ask turtles [/ b! _) q. q, H
    if energy <= 0 [ die ]- }9 m4 J1 k- f: E2 f; d- p, ^# u! K* S7 v
    ]: ~) P3 Z( w/ k9 ?; L) q$ I
end
: _% X4 v: H4 L4 }, b- u/ u; @1 Zto regrow-grass- i. m, m$ x1 P' o7 \) G4 j8 k
  ask patches [' Y2 k1 Q! ~/ J" o
    if random 100 < 3 [ set pcolor green ]
$ S$ S, Z" z0 [$ F0 B    ]5 T" `5 r4 R3 F
end
  d: A. A4 f8 oto do-plots* g( g- ]0 T: q: n! m
  set-current-plot "Totals"
0 ~: a" G' X" K* f) X0 S( }- K9 ~  set-current-plot-pen "turtles"
/ U( W. D' Y  a/ R+ L5 L  plot count turtles4 f: a; J+ W% |/ U/ E
  set-current-plot-pen "grass"4 P1 V1 p/ t1 \% h6 H6 k
  plot count patches with [pcolor = green]
5 X" _  m7 {# ?' Wend
/ [& z, R8 Z/ J5 O/ t0 }0 [可是运行时提示no such plot: "Totals"
* X) l/ T' L; Oerror while observer running SET-CURRENT-PLOT
1 O( q3 G0 X6 O9 D* D- `  called by procedure DO-PLOTS  n" U% g2 y/ _) l) e& M
  called by procedure SETUP' n# V8 M* N7 e) `3 R$ ]4 V: d
  called by 按钮 'setup': P9 |  x( H* B5 ^
求大神解答啊
发表于 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 ) J5 |0 N5 l7 g8 K
建一个叫做叫做Totals的绘图框就行了
% V2 Y* h. R5 I" e# Q
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-9 07:31 , Processed in 0.014985 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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