设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11188|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
' c# f1 ?7 E, p- `  _! f0 lto setup. ^+ m- z% G# J6 C
  clear-all
& @3 ~7 s0 a8 n& S1 q3 F$ C" ?  setup-patches( j4 I; W) v6 V. F; l" X* l5 ?
  create-turtles 100( h6 E  M8 A: F$ a2 Z
  do-plots
' p5 T1 m* ^2 r  ask turtles [ setxy random-xcor random-ycor ]; t# U' B6 T4 o6 }! {% d
end
$ e6 {" a( I7 M6 L& ~* ]& eto go
/ X3 H- u) G: v% K  move-turtles" q. G& s; f, U' r" s% T$ r2 F, P8 ?5 K% p
  eat-grass
9 L8 w, a! {( D  reproduce
3 M- v( x, r1 \0 }7 K# s  check-death
- p$ R& g2 S( N  p: Z  regrow-grass
' Q0 z. g* h+ T$ |2 Z7 O$ u' M  do-plots* L. M& u) h6 Y( y& a
end! f9 K: R6 }+ o& H2 X
to move-turtles8 l. R+ O0 T2 V: w/ c. Q( O
  ask turtles [: h' P( X& Z6 A5 G; r( B* a# c
    right random 360+ c- e5 X+ |" m0 _2 L
    forward 1
# b: q  B  e" j1 h* B    set energy energy - 1) D; o; ?* U- D+ M) C5 f
    ]
- _, r% B2 E+ _1 h) W" Wend: C! U8 H# z. F( ^9 ]1 V& r) S
to setup-patches5 d7 F, m5 K/ Y6 h$ m; K9 R4 s; L
  ask patches [ set pcolor green ]
" s) x, m. F: g8 r7 aend
, o& n2 d  M$ X4 j. |& K; dto setup-turtles
2 D* k3 X6 a9 P0 e  create-turtles 100
! C% x3 h/ }" `) [6 T6 S: E  ask turtles [ setxy random-xcor random-ycor ]) Q3 M) _- u, C1 k
end
2 B( x  L: A* y, |- x" Lto eat-grass* Y2 V* s3 H9 ^5 h7 \+ p
  ask turtles [8 J0 D2 q3 `% t8 w+ b+ A& Y" D7 K$ B
    if pcolor = green [. F; X4 p, v/ x) o) s7 Z
      set pcolor black4 ?' R' I9 ?7 O* \
      set energy (energy + 10). R' {& L* ^; T
      ]: \9 d8 k9 \* B6 d0 ~0 c
    ifelse show-energy?2 @. I% `3 Q% N. _
      [ set label energy ]
5 P$ \# q2 i- D0 A, G/ U% D      [ set label "" ]2 N" E/ t( a, F: H2 m; z
    ]
! [( s' h6 s& ~; w0 c' aend
* Q# ]5 ]5 X) k1 H1 n- X0 {, Y( hto reproduce
5 q% x5 R3 J8 B, H8 i$ f8 U% C  ask turtles [
# d/ ?1 E* m% [- S1 r    if energy > 50 [
# P4 r0 Q, U9 F/ j) L6 X" N% }+ E      set energy energy - 50
- j7 o/ [. t# c/ X      hatch 1 [ set energy 50 ]
4 l: J6 g% H+ `. n      ]
3 n0 Y; U: r5 j/ L7 X    ]
( x$ [( R' W7 o; W6 ?% o6 o) @end0 J0 f: V( L4 L
to check-death
6 [/ I1 W5 ^4 @' C6 a4 J& Y; C  ask turtles [
' _$ ]9 B# I( \& B    if energy <= 0 [ die ]4 ^* p  Z( X* }4 ]( @
    ]
) O/ b' o. O, c$ {- v3 send+ V& A2 O' @3 Q& B
to regrow-grass
3 s( x* |- T7 s! M' q1 `  Y  ask patches [
6 U5 A! F) l1 g# f8 ]0 a8 R7 l    if random 100 < 3 [ set pcolor green ]
2 O- v0 a1 \! e+ H) D5 p) o    ]
% S3 x9 q+ Y3 tend2 ]: `, @& F0 y# O8 d: K' h, \/ U% z
to do-plots
3 A* c* n; b( X1 T- r1 x4 s  set-current-plot "Totals"- c+ K3 q! R- A( v8 S+ h
  set-current-plot-pen "turtles"
6 c6 B: L% e: R& W  plot count turtles" d  G, c" l1 ?, R% Z9 r& _
  set-current-plot-pen "grass"% [9 K8 n- p3 z6 s7 H: j+ g3 D( D$ b
  plot count patches with [pcolor = green]
  A3 [/ s) v6 O/ c; Vend, b2 X2 O& |: D, K+ g2 \% W
可是运行时提示no such plot: "Totals"1 \5 L4 B2 ^2 r# r# T  C. Q
error while observer running SET-CURRENT-PLOT% R7 S2 e: v) l- O  O
  called by procedure DO-PLOTS' s: k6 l( A1 m4 U) B, X: i3 P
  called by procedure SETUP, T; [: A/ T: t! P( ~5 W7 D
  called by 按钮 'setup'
; L) d, u2 ]* o  G求大神解答啊
发表于 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 ( B* T  d6 G$ |- r  x5 _1 `9 p" h; S
建一个叫做叫做Totals的绘图框就行了

1 ^) G6 X* V" {+ v) V0 M' y8 z哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-6 16:48 , Processed in 0.017876 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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