设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11731|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
) R+ g) U3 |: V% Ato setup
* X/ d, z  [8 Z& c) D3 w/ x  clear-all& {0 c( S8 Q$ \! |: f& z
  setup-patches2 W. A" E- Z( d* o
  create-turtles 100" h! N3 i# E  F- f& Z
  do-plots$ a0 F7 k$ x) K, R2 `: D
  ask turtles [ setxy random-xcor random-ycor ]
3 k% f1 X8 m# {end
4 ?+ E' T6 \5 Z* F* K; Pto go
3 _: C" k' ?! u' a  move-turtles
9 J% o0 n. e7 [$ R) H4 s  B  eat-grass' A$ V7 e! x1 W* ]; [
  reproduce
7 D* E+ e8 r  Z; E  p  check-death& ^4 A1 x0 a" w9 B
  regrow-grass1 x$ ^8 u+ q, Q# v2 W
  do-plots
$ k: a% f# {0 fend
0 r1 C. N2 v5 c, Q; m+ Z4 f. e3 yto move-turtles2 w+ S3 b- X, e7 C6 H! y, Q% y
  ask turtles [
' R. H  d+ f! t& C    right random 360
. v. l9 \2 c& t    forward 1
) b) t! c6 p  ?8 c4 w, o    set energy energy - 1
! c( }) X" s/ G. ^! p, B    ]9 k% Q  {+ V8 X. [" _9 E. I
end0 z. W% S$ W7 V
to setup-patches9 k+ J2 a, m' C% }1 ]9 J: F2 @
  ask patches [ set pcolor green ]
' x6 ?3 p/ U; Y) @# eend8 a% _2 I7 l' S$ t# x; r
to setup-turtles6 n% h4 x" ^& v
  create-turtles 1009 K, X& ^6 p' _: p
  ask turtles [ setxy random-xcor random-ycor ]
6 L; `8 U- I7 \* U6 R7 s% qend( Y: V4 s- p# G  N
to eat-grass' @8 f7 g" [4 I, a9 F; p5 T8 N. n
  ask turtles [
# H4 W8 q; U& w6 w" j! K7 k9 v' p$ @    if pcolor = green [( N, T' H6 a  G2 j. K9 O
      set pcolor black
9 q* i  Y+ |* W8 b      set energy (energy + 10)$ D$ q  _1 ]' C1 o7 E- d
      ]
3 M; z1 M( [- S  d" `    ifelse show-energy?
) W" y" \) ^# d, x  {$ f. Q5 Q& a      [ set label energy ]" R7 n7 L: C) h  N
      [ set label "" ]
. e0 r4 \+ k# Y7 y: C- {* ^" l$ Q    ]
( p  P$ j: c! R8 H9 m& \( }end
$ P5 }5 v/ m+ ~0 I8 }to reproduce* V& t$ C2 c5 N4 _
  ask turtles [
/ N5 V, [) {9 g7 v# `) {" @8 T    if energy > 50 [
, J4 c; t* y: H      set energy energy - 50+ ~3 ~* W, r) g2 u2 [/ r3 U$ k/ u
      hatch 1 [ set energy 50 ]
& n* x" Q  L/ t1 S      ]
2 d  O6 N! J: g) ], \  h    ]
5 f/ N, j$ S4 e" ^" Aend; k0 }$ l8 H: R, w8 k
to check-death
' w( R) t  z) ~$ I) d  ask turtles [
- H7 Y+ \0 N, F( D2 I    if energy <= 0 [ die ]  c: d! G4 u! `
    ]  [/ T. r' e5 L! L( W3 u
end
' K, E6 l: r1 Mto regrow-grass) _" c. F3 V' I# ~% @& |
  ask patches [, S! z" {1 _" l- ^$ ?
    if random 100 < 3 [ set pcolor green ]/ V# J) D, k/ T$ p# O* C* a4 H3 b
    ]
0 Y# u# }2 n! T0 `6 xend
6 r* [: v2 @1 q' R7 v) Q) ^. ]to do-plots
: D, L) ^0 @6 M& ]5 Z/ f  set-current-plot "Totals"
: Z3 \6 Y3 ~3 E. L8 T  set-current-plot-pen "turtles"
4 `1 P8 `! v# H3 {) k" H" k& g  plot count turtles( M. [. r2 y  W6 r# y3 N
  set-current-plot-pen "grass"1 D' @6 N5 i3 m2 ^& F
  plot count patches with [pcolor = green]
$ ~. R+ t+ E% X" f1 dend& L% V. z& X+ c' g$ v
可是运行时提示no such plot: "Totals"4 h. ^9 z' E$ X9 k5 y0 T
error while observer running SET-CURRENT-PLOT* i) q6 ~. n6 E% b% J3 [! F
  called by procedure DO-PLOTS
7 O$ E& w7 x+ G& C' y. P" L  called by procedure SETUP$ E. ]: W. t- K
  called by 按钮 'setup'
* a7 W8 u: H4 B1 ^求大神解答啊
发表于 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 , e' o' y6 y6 @  O* T
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-24 19:33 , Processed in 0.019394 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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