设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10268|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
8 k* y% F$ ^  s. Zto setup4 A- D. P$ \' M! H$ ]! N
  clear-all: \! n9 [. y/ |  W5 u& o
  setup-patches) H- U" n, O8 G7 {7 d+ ]  e! I
  create-turtles 100
8 K9 m6 L; G+ E* d  do-plots' k  t, z" q9 O' K
  ask turtles [ setxy random-xcor random-ycor ]
# p9 j' r. C1 \9 C/ K5 ~+ hend0 W& P7 b9 Z0 y; H3 W7 q8 d6 Q
to go/ R; x$ i- l2 e
  move-turtles
/ b3 {' e" d4 Q  eat-grass
" f+ v- K2 G7 J% E) I( k* F  reproduce* ?0 K7 t- P) _3 M1 c. f7 v
  check-death1 P/ y5 |9 ]0 z" V
  regrow-grass
, E. R8 b" d1 B! b# `( z2 F  do-plots
2 X) {4 ~- d' o* pend
- s1 \& V* K5 m" k  M5 d: y( m/ Lto move-turtles- z% O# v% q9 z8 R/ p
  ask turtles [
5 @) U( i" v4 Q    right random 360
  ~2 _; x, t6 h# i    forward 1
5 p; P. u4 F5 ]5 u9 D. }# C    set energy energy - 1( z7 d4 b1 G( [+ p0 ^
    ]' m) c9 J$ C! n0 K- X/ s: t
end
/ J: E- G  B# _! Y/ W) Oto setup-patches9 ?5 i. }2 |  h2 j  c9 w
  ask patches [ set pcolor green ]& q) c- U1 _' w) z+ ^) j
end
" T+ O1 n2 C! r  ?) r$ f" h+ Cto setup-turtles
" Z4 s  J7 r3 Z. ~' ?5 w$ V9 |2 ~/ D  create-turtles 100* G& i" y. ]2 z* ^% Y& q5 G
  ask turtles [ setxy random-xcor random-ycor ]
% |8 t" I. J8 @end
  o2 |' D) U7 {6 N3 G5 Ito eat-grass
+ U6 l3 ~/ ~3 Y6 Y9 B& H% C  ask turtles [
( [) }/ }/ i* J  s    if pcolor = green [; ^( O! G, u- r! y
      set pcolor black
* W; Z6 F4 H; ?5 S      set energy (energy + 10)
- Z) n0 _8 O$ `3 L      ]: h- k8 i- i! a0 X+ l' R: ]
    ifelse show-energy?
8 Z1 k6 T. b5 }1 Z      [ set label energy ]* [' n0 w9 o/ n0 y0 r
      [ set label "" ]& X; R; B$ o* p! U' u$ ~: |# k
    ]
" l+ ]' X0 n& W6 H' z+ ~  Fend
+ K) M4 r7 w& ~+ h; R; g8 a4 qto reproduce
4 N/ T" _# p+ K$ C) L  ask turtles [
+ [2 D  f5 c4 P- b( `1 N    if energy > 50 [2 M; e$ x$ g, o: m1 v! I
      set energy energy - 50
# M2 S9 B( e! y      hatch 1 [ set energy 50 ]# B& k9 P" E9 d- a2 d
      ]
) u& [5 Z' a& e0 {! g    ]
- `3 G2 T1 z% |- y( p/ tend  `# {7 j0 |" G* n/ h, p2 O& R
to check-death
9 o# ?  L3 b' ^' v5 ?6 v5 X& L  ask turtles [; Z' t& q' p' k) B
    if energy <= 0 [ die ]
. I) T" g! J4 ?( W' D, J; {+ m    ]
1 x% A/ o" R8 D, Qend6 A: A( J1 @! }3 P1 }0 n8 l6 B7 E4 `: d
to regrow-grass- g) e$ F5 {0 Q. O" E# W# p7 R
  ask patches [) ^+ [" P* Y' d- k$ `
    if random 100 < 3 [ set pcolor green ]- V) B# `  g- y! I
    ]
- e- \5 O( _& W0 mend
9 n; W2 f* {3 Z' Yto do-plots7 r2 n/ n% z' J$ b/ e# N8 K
  set-current-plot "Totals"* q2 A$ m( @* \5 K2 v
  set-current-plot-pen "turtles"' H1 G5 ^1 u$ V, ?% Z
  plot count turtles. P' L! N1 ]& b/ U( ]) m, R  f
  set-current-plot-pen "grass"
0 h) ]& k7 z" Z7 t  plot count patches with [pcolor = green]4 x0 r! W- m+ S& J
end
# {2 ~% v' p/ y( U2 Z5 p+ d6 b, @可是运行时提示no such plot: "Totals"3 j5 l6 m/ B" g+ r. w. }" n9 T0 ?
error while observer running SET-CURRENT-PLOT
5 K# f3 a; ^/ v) n8 I  called by procedure DO-PLOTS8 x, r% L, w3 ?0 X6 J' X
  called by procedure SETUP
7 l* D5 T- D$ O( I  called by 按钮 'setup'2 C2 Z5 H4 G! j& E$ 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 ) i8 s9 G- t- v3 E$ n5 q) K- W
建一个叫做叫做Totals的绘图框就行了
. c. p  [1 F8 D# Q3 D& I3 t3 {4 D
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-28 13:04 , Processed in 0.022783 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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