设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9203|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
# c- N: N# e9 zto setup$ Q+ l3 G( O7 f1 x/ v4 J3 `" N
  clear-all. q0 I3 [2 t; @- D- v4 G
  setup-patches
7 ]# X( w, L) @" B; W* V: O  create-turtles 100# C! l% V/ n6 h1 Q, V
  do-plots& m" @, Q4 q: N4 V* N4 v  P
  ask turtles [ setxy random-xcor random-ycor ]
) D- H& ?; z0 N* }3 X. ]; Wend
8 h; [4 r  D1 y% R( `3 \8 ato go) M$ ~6 u; J- k( w" E
  move-turtles
& b6 _5 F; p. d0 t8 q" k# M! v4 r  eat-grass
6 \: S; C, N1 j" U( l" z3 j# o  reproduce& P2 v( m/ Q4 n" y
  check-death! X" h0 ~5 q  ?8 I2 M
  regrow-grass
1 b1 N  C: b- ^! m# \! `  do-plots* D: b/ v# t/ P
end
: S0 r8 c( A0 }, L. Z; s) dto move-turtles
" K4 K9 s4 R2 o, s  ask turtles [
4 u7 q9 `7 L& Q/ O1 e7 m; Y    right random 3607 c4 L4 w8 s$ p! ?
    forward 1% _- s3 d: H6 }3 |. w1 w' S+ Q
    set energy energy - 1
$ E& _; m$ I: u2 J1 J/ V. k/ J    ]
; |5 h' ^  |) S5 \6 d$ vend7 [' K5 X" O; \/ d6 |
to setup-patches
; p: j" U. ^8 |6 j5 i$ r% L  ask patches [ set pcolor green ]
' U, }7 C) o: pend' I* Q) O7 T. a4 o2 E
to setup-turtles
" G1 C) l* L, M' @  k  create-turtles 100
& g4 }- m$ J( T5 N  ask turtles [ setxy random-xcor random-ycor ]
4 @8 `6 z! q. b2 B$ K2 Cend
$ J* e+ p2 f1 F7 g9 eto eat-grass
/ k+ G( d$ U) ]  ask turtles [
5 C; V& ]# L2 x% \3 ]% ?3 l6 K    if pcolor = green [
, x3 L2 u9 g1 p4 y2 B      set pcolor black
8 {# g' U* Z! R; V3 z: }      set energy (energy + 10)/ W- Y) J& K5 S; c7 C: @( d" ]
      ]- A, Z; P! }$ K' F( K: J$ x
    ifelse show-energy?# Y! t  Q# m, ~  h9 X+ N) i. e
      [ set label energy ]
+ x; K. ^" I, v8 p      [ set label "" ]
6 p7 z+ X% K& Y' I    ]4 ]. g: \. R  J" {
end& t1 R- @& h" Y$ f( O3 H
to reproduce
: U) C! y; A; ]1 @7 b  ask turtles [; A* o( p/ n% r- D1 r( Z
    if energy > 50 [# C/ p8 B& D& C4 O" S
      set energy energy - 50" u3 L, b/ B7 X1 R6 m
      hatch 1 [ set energy 50 ]
1 ]2 |" h6 ?& F+ ?# r5 e9 C1 m" Q; ?      ]
# w1 i1 J2 [5 J/ A# l    ]
/ E0 k6 i: ^7 tend
% P" Y# f4 h2 V9 y; r/ a: Sto check-death5 o7 j* L! p  |( d5 {
  ask turtles [
, K' I8 M0 U2 M. \, G7 y9 W2 M    if energy <= 0 [ die ]: K! d+ _+ ~6 q/ j2 e8 b
    ]
3 c* x7 ^$ W$ u1 S( @4 P) Tend
0 y$ \& H* h' o) U4 }to regrow-grass
, l$ H1 G3 a% R  ask patches [
$ D( \& P! o4 T# D( I    if random 100 < 3 [ set pcolor green ]
- O: r3 B" R1 C$ C+ J! Y& P    ]
1 b) r3 ]: A2 X3 M' F1 `( V0 Cend
8 S( q8 f* q/ s4 sto do-plots
: x8 f4 _; s7 x( o5 R' [8 v  set-current-plot "Totals"
8 l+ W- Z( L2 K: d1 A  set-current-plot-pen "turtles"
! v- I; n* }; A  plot count turtles
$ {, r. h4 Z6 A) s1 m8 B' H  set-current-plot-pen "grass"* M9 j5 C7 r0 l' @+ N' N4 L0 [: q! Z8 r
  plot count patches with [pcolor = green]
& A! |. \" R$ q- Z0 ]end: v1 o8 Q0 k6 O2 p
可是运行时提示no such plot: "Totals". m0 T% c5 K5 p. `8 \
error while observer running SET-CURRENT-PLOT, f/ y, T% o9 B$ \' i; X) A
  called by procedure DO-PLOTS0 L0 V. ?7 F8 b# r8 D' n
  called by procedure SETUP! g; z2 h% m2 o: _: T; R
  called by 按钮 'setup': C% K  A4 d4 |2 s0 X+ H$ R
求大神解答啊
发表于 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   D- ~5 q1 ^8 g9 S7 e8 C
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-11-25 11:46 , Processed in 0.020090 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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