设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7830|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
0 \1 ]3 h# G( c4 u  Lto setup
6 t; A" ~+ B0 L9 X, F& b  clear-all" {% E9 q: u9 l( l& d8 {
  setup-patches6 v# F4 |2 h# T" }
  create-turtles 100
( z1 m/ E0 s- l  do-plots8 L  y3 w1 `- l# W* \6 J2 E
  ask turtles [ setxy random-xcor random-ycor ]
2 b3 n# f* w% y, lend2 p) u: F- x; e+ l- X/ O. `
to go" d/ j2 a- L3 ?+ }$ p  _  b  Y$ i( M! R
  move-turtles9 D6 ?! S" x/ X  z) i5 h" Y
  eat-grass
0 |, [/ \+ f6 M( z  reproduce- a( p. K% ]! N" y5 \% Y
  check-death$ E* g( c, U# W3 D4 u
  regrow-grass
0 w5 h$ d  }9 j2 D, u/ K  do-plots
/ H& g% `0 ^6 @# H, d( z( @end
# b5 I3 _' D) S$ c& a! e- Ato move-turtles/ P' ~' r, d* O5 B
  ask turtles [) @0 ~3 L: H9 p6 \, O
    right random 3604 j9 r: E. A3 B7 u
    forward 15 m1 [, V' v3 X6 R" g& }, P6 d
    set energy energy - 11 J  Y* P* q3 T( X
    ]
  h# X5 ~5 @. }6 q/ t7 _end
) d3 }* Z4 [* t7 E; h+ E6 L) ito setup-patches
/ U" |; S+ ]! {  P0 `2 F  ask patches [ set pcolor green ]
! m5 b2 J$ X+ e+ e7 uend( {$ U0 X- V) ?$ k/ c: j: T5 X  C) K
to setup-turtles
; p  q* f6 V$ b  create-turtles 100
  B+ J; a: U! |8 B6 W' I  ask turtles [ setxy random-xcor random-ycor ]6 @$ c! M1 l  \( Y( b  O6 g# Q
end# {, ~! B( ]5 i
to eat-grass
- ~7 I( `. z: r+ u/ o  ask turtles [, ~3 X8 G5 M5 O) y
    if pcolor = green [
, u# Q$ B/ p1 a8 E% |1 W      set pcolor black
0 w8 D( W" `0 H7 J. p4 V1 ]: f1 i& K      set energy (energy + 10)
7 K- a- O+ i/ p7 u- N      ]
. C! H3 d1 M& R) `4 L5 n- l    ifelse show-energy?
# D5 R0 [/ n8 l      [ set label energy ]
* |9 y% G: U  T& {      [ set label "" ]* W2 F: x7 K) ~- e& T* ?, q; W
    ]% ^2 B  i$ M4 z4 K
end
" K  K8 ~/ S' U+ f- X/ ~to reproduce) ]& o5 C3 L; w+ m3 j
  ask turtles [
1 w) o. W0 D0 h* N. z    if energy > 50 [6 M1 r. O( Z; l  E* r& v. p
      set energy energy - 50
: W' K8 e2 `& L- v      hatch 1 [ set energy 50 ]
* R  v  i( s/ I8 H3 E+ X8 R5 S. F      ]
# q+ o0 ^2 V6 Q, z0 C5 G    ]" O. m) m' P* Y* l
end
) D7 \( z1 b5 f) l/ Q2 Q' r: cto check-death4 ?# ]) g: P1 B5 A
  ask turtles [) R% e# D* E: \6 w, f
    if energy <= 0 [ die ]
4 Q" X. s5 U  d6 E6 z9 M/ {% X    ]7 b- ^6 o$ h- L4 v3 x( F# y
end5 ^, g+ q( @( ^; {- U2 P0 `
to regrow-grass9 ]) c) |3 f4 K# l2 t2 B9 W
  ask patches [) T# u% B0 B; T# c& V
    if random 100 < 3 [ set pcolor green ]
- a8 q7 @/ A8 b9 c; u& |    ]
: C' X) a% O3 w- `5 u+ pend& _) W3 j, f7 e* I! y$ d2 \  ]5 G
to do-plots
: ?9 l* K9 p/ `& W0 r, a  set-current-plot "Totals"( A6 Q) F( p0 x1 _8 R( @4 r: s* I6 N
  set-current-plot-pen "turtles"
8 N+ o* a. O2 z) @  plot count turtles' f% j! M0 c2 }# a& W! ?8 C
  set-current-plot-pen "grass"
1 `! l+ D& K6 k  plot count patches with [pcolor = green]
% C0 U$ i% n! Qend
# b. z0 y* w$ I% j可是运行时提示no such plot: "Totals"! V/ H% d/ L, s
error while observer running SET-CURRENT-PLOT
- y- J, c5 V0 ^3 _$ C& g/ ~& v8 ?  called by procedure DO-PLOTS
' A6 y$ M5 J1 y% v- Y  called by procedure SETUP
& d) |# Z. ?3 M# z( `  O4 q- e  called by 按钮 'setup'; C! k" c0 |& H( u& {
求大神解答啊
发表于 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   Y0 ?, h& {4 s# ~* J/ p" r
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-6-4 18:29 , Processed in 0.022651 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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