设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9399|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]+ _3 L, L+ o* X2 \* \1 W: |  a4 D
to setup
* c* v2 i7 z2 V' E6 ^  clear-all
" n0 x5 c1 n5 \; ~3 B  f% [  setup-patches
8 Z$ h+ _: A- Z; {# F  create-turtles 1006 n! M" A' H1 n
  do-plots/ T' b! z7 S" C6 R) F4 D
  ask turtles [ setxy random-xcor random-ycor ]
$ p. u, j2 e; fend6 a6 c6 `4 ^+ t- T; F/ M7 B
to go$ U7 i) a- a! F
  move-turtles+ O1 w! T  @- f' Q$ f
  eat-grass4 w! ]; `; _# w) I
  reproduce
# A1 X' p- Y3 s% i" y( o; T& m  check-death
0 ]* z% y# B1 h, X  regrow-grass
* U: ]  e. V/ }" D0 Z( I6 A! N  do-plots
0 g& F# [! w2 \* mend" ~# L: h) }* K3 j+ {* M
to move-turtles1 I9 `0 N* L  M; U
  ask turtles [
& n: K+ I1 ~+ z    right random 3608 ^' V. ~1 }( D8 U( L6 U3 p- ^
    forward 1
3 I8 f' T0 O1 F% `    set energy energy - 19 k4 a4 q0 x- V6 {) P
    ], C+ [' ?5 U, @
end* v& y0 Y1 X4 b  s! t2 j2 L1 w
to setup-patches
# l3 r" h& i1 S$ J1 L8 v+ r  ask patches [ set pcolor green ]" A& [. C9 M1 ^) H4 v" Q
end& S# j1 E; E# v: R) x; J
to setup-turtles
9 V. q, R; _5 C1 ]- T0 X  create-turtles 100
& C$ O" v- Z, l2 }0 I" A  D+ `  ask turtles [ setxy random-xcor random-ycor ]2 o1 C- [4 f2 \- C7 _
end
7 N0 y% I3 q) O8 W) Tto eat-grass; v  G) ^5 V4 E) {% W
  ask turtles [
: H  ]/ U9 ?% `/ Z2 j* Q( X( H  M    if pcolor = green [* X: N3 B$ `2 S/ x' k
      set pcolor black9 j& D( ^  n, H
      set energy (energy + 10). c% i$ j0 F  r
      ]
& g) v/ B( U+ l5 \) G4 a7 h3 }    ifelse show-energy?
8 I$ }9 m$ c1 T) B2 K$ f      [ set label energy ]0 G. z7 u) B/ p% o5 O+ c8 m7 q+ I
      [ set label "" ]
4 Q2 S! U3 E  G' v    ]5 u% J* X2 d5 Q; k! L/ |# V0 [
end: ~* `, a2 }3 ]$ _
to reproduce
) H6 S2 J: v8 Y2 F  ask turtles [
, @* S. e0 D& M' W  m    if energy > 50 [
/ l, t( L( R% e( R2 k5 X! X      set energy energy - 50. E9 [+ T' P$ Y$ e2 H. G
      hatch 1 [ set energy 50 ]$ o& ?8 h3 q9 r6 h- w
      ]
( p; c# e' s- D+ m! z4 @    ]
- D9 q) l+ x: o' m3 z1 [end
3 N5 p3 E5 Y7 ~5 a6 Eto check-death
  j- z# p7 g3 _9 h  ask turtles [
1 e' {1 D7 j6 N4 D! C- E/ i- ]    if energy <= 0 [ die ]
7 I, E8 s0 ^! x6 W    ]: w$ \6 W9 Q( n! s
end2 d: C& }6 z4 Z6 T$ m# C
to regrow-grass7 C2 A. B! R( F- g
  ask patches [
% o3 J. T0 c# n* b; t    if random 100 < 3 [ set pcolor green ]2 ~$ D* ~: K$ ]6 z) U( I
    ]
6 v% i. K+ \: B+ O, Zend, P& o, [2 E7 I
to do-plots
4 R  r$ S$ [7 f/ ?3 h) N+ C  set-current-plot "Totals"
  ]! u7 F. D" }( I( Z  set-current-plot-pen "turtles"
; d; E% {7 Q% h' i' e  plot count turtles
% ^& |2 T6 @- x; |$ u+ C) |  set-current-plot-pen "grass": k7 [! N1 S! n3 x! z
  plot count patches with [pcolor = green]
4 V) N% ~" u! b, ~' Q; Zend1 L6 F& }7 I3 H- }  D5 I
可是运行时提示no such plot: "Totals"
5 {7 M2 Q8 p4 Y: k& q0 |error while observer running SET-CURRENT-PLOT5 [( T9 S; Q0 V9 G
  called by procedure DO-PLOTS) r) e. ?( f6 J3 e0 V$ w; U
  called by procedure SETUP. s6 V7 Z8 k# Z, C0 ~6 d1 C
  called by 按钮 'setup'( B$ N; E* a4 y9 e
求大神解答啊
发表于 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 7 @  m" y1 p+ G& u) Q7 S/ B, ~
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-12-14 01:35 , Processed in 0.018009 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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