设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11522|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]1 o1 u8 K% r( R# G) g) L2 H
to setup  I8 t: [7 P- B' A$ D- @% D) M
  clear-all! B, D( Q3 x6 x5 ^% h8 j2 F4 H
  setup-patches
& m" @4 r% X1 n/ s  create-turtles 100& l6 d7 [: c. B% W5 [2 P
  do-plots& x4 q" ^- x/ d! Z
  ask turtles [ setxy random-xcor random-ycor ]  t9 e8 w+ h4 B% e- ~
end% d1 @: b' H1 L7 X
to go4 [; q# |. t# J4 [$ p4 A
  move-turtles; I8 R' I$ P1 o& I7 W5 D
  eat-grass0 i  `* M: ?' X6 w
  reproduce
6 Q' \8 a! G9 u  check-death9 A6 r8 h; y8 k! k9 K6 N/ G2 S
  regrow-grass% h& I# P2 n. n; D9 H
  do-plots
: E% r7 D; z. K0 n+ ^. ~+ w$ Xend" h% E9 ~" s" \
to move-turtles) B2 W+ G$ H! m0 o4 |
  ask turtles [
5 @1 i( N+ M9 h  V/ k    right random 360, L5 e3 h: {/ W4 n  p# w
    forward 1
; M2 P. Q1 q# q1 w. p: Z    set energy energy - 1
: ?! q$ _5 {  n: I    ]
" I: x3 e& o* ^4 _. ?3 Eend+ C9 ]% I' i7 w9 S- Y$ c3 n
to setup-patches
- N& W) C" [$ ~" Z4 R, H  ask patches [ set pcolor green ]
* v% H1 B0 |) N) Z0 yend
+ F' F- z0 p! r, w" Yto setup-turtles- w* a% P- e0 H5 V- p
  create-turtles 100
" Y% H; g! f1 A- e  ask turtles [ setxy random-xcor random-ycor ]+ `/ l& V) L% f- v+ e+ y: c
end. J" n+ j" H( B4 y3 ]9 d9 ~5 \8 C6 O
to eat-grass( L+ ~- Z) k5 A( Z3 f
  ask turtles [
" \. J$ N$ G& j( L! o( `    if pcolor = green [, L1 G2 b/ ~3 n" `* c
      set pcolor black
0 P' g( j- O1 d      set energy (energy + 10)
% R0 {9 \% m$ d) z2 E" S- ^( x. s      ]7 r$ i  `/ u) y" e' p  B4 G3 d7 l9 ^
    ifelse show-energy?
" Y  m2 E6 z  F" U) ], _      [ set label energy ]
$ }6 ^8 {, _' c$ a' |$ V      [ set label "" ]
" V8 H+ i9 y7 O/ U) m4 u    ]4 v8 F- ~0 ^" C2 C7 ?
end
, Y. F& U) m4 @/ j/ a/ t: T# x, ito reproduce6 t$ U( E1 W/ K% ~9 e
  ask turtles [
2 X8 a4 O# G9 H6 D/ k    if energy > 50 [# Z, Y3 Q. [: @& p" g
      set energy energy - 50& v, _+ r) t% P: z
      hatch 1 [ set energy 50 ]
5 e) w, K& A; s      ]$ n! \7 [* m, |' x- }
    ]
" Z9 N9 P) G  P& Bend0 y% g+ {) n' Z5 R
to check-death5 ?2 D6 o; d% ^3 U2 R: e7 ]
  ask turtles [5 D( n+ K& @2 s( K9 N: o
    if energy <= 0 [ die ]' h6 R& T& [  `# m+ Q0 ?4 O- @6 [
    ]
( ]9 f3 f& [: c' v3 jend* O; g; J" l6 B$ a
to regrow-grass4 h; U$ t0 i3 T7 x' G% y
  ask patches [5 Y- V. r0 V. V/ q/ K* a
    if random 100 < 3 [ set pcolor green ]
& d$ g6 @& B) Y7 V    ]9 m# g* o: T8 f6 M
end% m/ [5 k& G3 ]0 q( y* Q7 F; B
to do-plots# @& ]6 G8 T& x
  set-current-plot "Totals": f: I& u3 L* b) q! `
  set-current-plot-pen "turtles"" X/ X: o$ n% n1 Y' ~
  plot count turtles3 m7 B7 N+ g8 w# g, N! E) P# I1 v
  set-current-plot-pen "grass"
% `" Y* H5 x- U* `  plot count patches with [pcolor = green]
" j+ b. l0 b. W( A+ y9 }end) J% s& D$ Q# M, Q# Q6 K
可是运行时提示no such plot: "Totals", M, g- Z+ J; e7 }% g' z  b: _% w
error while observer running SET-CURRENT-PLOT
( n) g: ~3 ]( O$ Q  called by procedure DO-PLOTS
) g- \) y+ o% j4 s6 U  `  called by procedure SETUP
5 `5 s7 r2 f& ?0 k* @- ]) j+ p  called by 按钮 'setup'; n3 @! W3 G1 {) {% Q
求大神解答啊
发表于 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 : d7 ?: \. _( [1 m1 u* \0 Y
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-5 14:20 , Processed in 0.016840 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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