设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12511|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
. E+ |0 ^( X4 [to setup
+ d! {. b/ T; r  clear-all$ Z6 g9 @" m9 T6 l( y) j# @' V9 ~" M
  setup-patches- b7 x2 ]7 s4 ^/ c
  create-turtles 100+ i& r, N5 s8 ~# ~( R; {9 C
  do-plots
5 O8 R0 u5 _( \  G+ e' c  ask turtles [ setxy random-xcor random-ycor ]
( ~, o% M" P! ]' T3 _% M* bend
4 b- i' o2 R' n# a/ b/ g3 Yto go
$ Q; m, I. g1 p  move-turtles4 x5 s$ f/ x* ?- w( O$ C
  eat-grass
& Z5 n. G7 H" Y1 K" w  reproduce" M4 t7 f  y; B0 p- o
  check-death6 K; Y6 J: \1 g  G( j6 \* A
  regrow-grass' b  b2 q, A' ?4 f/ X
  do-plots4 U3 z3 _) V$ X
end7 f( P- {" o3 T) _8 {
to move-turtles
2 [% Y) t! x+ T  P" v0 `  ask turtles [
1 l' Q0 J8 ?. e9 {, R3 q2 u7 I    right random 360
2 _/ U4 Z: R8 x' }; `    forward 14 A' Z5 O& i. k; B7 M
    set energy energy - 1
; r1 i3 D" W- z8 ?# o) C; Z    ]+ m7 Q# W/ m) G
end! o2 B' F6 Q7 n
to setup-patches% u( t2 a# U. W9 T" v" q  B8 F" p
  ask patches [ set pcolor green ]8 L% z2 k$ N6 p
end
7 t$ P% s" ^9 g4 w0 Cto setup-turtles
, D5 R9 T5 L6 V8 E& ~  create-turtles 100
1 g) }5 v, h& b5 ]  ask turtles [ setxy random-xcor random-ycor ]
. p' ]4 N3 L! _" X* E% n& Iend! ~, |7 v! r& @- z- n
to eat-grass
# l" i1 ^% ~( \. e0 C  ask turtles [
! `0 ^- F7 Z4 _& d9 G8 A5 c    if pcolor = green [" T1 h0 V  ^+ I" I
      set pcolor black
1 R* Y) N& @* ^5 `" o  s      set energy (energy + 10)  ~* L' U2 H. T6 c0 `& \
      ]# j) s0 K7 T, \: F/ T: b2 ?4 o
    ifelse show-energy?
8 w$ Z* f! T: o( z7 g$ j) B3 M      [ set label energy ]/ N+ P% m% K8 L" D3 E" P
      [ set label "" ]
9 m- r: g5 }- h7 r+ A- ?/ W    ]
- |3 c$ D. P  c% T1 n( Y7 gend
& Q3 N, h1 E. T9 w$ }( C+ P  Rto reproduce$ E$ ~& K" Y. I
  ask turtles [
& B6 n9 B4 r7 e! j2 l' d1 B    if energy > 50 [5 R0 B) @" y- _! N( K
      set energy energy - 50! h5 U5 k4 O9 B7 d$ O, M9 |
      hatch 1 [ set energy 50 ]
* N4 P4 _" c# g! p; ^      ]
$ s* E3 X, v  W; X$ x8 Y, G0 ^6 r    ]
' G: i2 O4 S3 Send, D: X, E1 \6 M% F& ~! s
to check-death$ k- F/ k( b4 T- y$ Y# v% ?. ]
  ask turtles [
8 {6 E7 M7 V) ^7 r, M* q) P0 z) z    if energy <= 0 [ die ]
! ^5 _5 _+ N- p; ~7 g6 u    ]
5 U* }7 {! _6 q% t0 aend
; M4 h9 L0 H' [; wto regrow-grass/ V% E9 k. n1 O- b7 b! t
  ask patches [
/ J! R: `8 t/ \8 x6 g; \    if random 100 < 3 [ set pcolor green ]
8 O! N3 i* ?! F/ v" P    ]
$ g$ f6 m: \. B7 `end8 M+ ?+ M4 [  y' b
to do-plots7 q  v5 k7 I0 m8 d7 b' W0 o* N
  set-current-plot "Totals"5 J# p& ~0 b, c/ `7 {
  set-current-plot-pen "turtles"& o4 Z) m( c' b+ s! d
  plot count turtles* e$ L; m4 h2 w9 G7 k; C
  set-current-plot-pen "grass"
! R- }' [6 ?! |  plot count patches with [pcolor = green]! ~/ i1 T8 t) e2 |0 [
end9 L6 R% s: P! s6 D
可是运行时提示no such plot: "Totals"
# n7 r! ?) N% `: d- x% J( _8 c, Werror while observer running SET-CURRENT-PLOT* v( F: k. D3 |. a. D. K3 c
  called by procedure DO-PLOTS
9 ]# ~/ f1 V* j; Z) g; r2 H  called by procedure SETUP
* @2 R9 }; a( U; s) b4 r- H  called by 按钮 'setup'
! ^4 B% Z+ \# ]/ q( M; C求大神解答啊
发表于 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 0 y. z- Q  @8 z0 F
建一个叫做叫做Totals的绘图框就行了
0 @) K/ k/ o- n8 Q
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-28 05:59 , Processed in 0.016977 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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