设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11950|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]9 u9 w5 N2 k! N- Z+ L; v% p4 C
to setup
, I: w/ n" \) X: N4 D8 h  clear-all+ r! F# x  I+ B0 E( [7 P
  setup-patches
  r' ^1 t# s6 T3 @6 Y7 L  create-turtles 100
7 ~! B) A. i% s5 r8 p  do-plots
( N3 y7 T+ j1 r# A  ask turtles [ setxy random-xcor random-ycor ]0 P  H2 _# ?4 ?, }7 j' z3 w
end: H* `( W( G4 s  y# x- e
to go% r1 M0 c$ ?5 r: N6 k
  move-turtles; g& w! c8 a8 z! s. c1 h+ L4 Z" d' b
  eat-grass
9 w- P$ M/ G' l: C5 S% |  reproduce
" Q6 L  _8 g4 `" h2 y2 B2 j  check-death  ^. w# L4 `+ e* a1 A/ ]* s
  regrow-grass
7 Y7 ^6 M- x9 v& h/ d  do-plots
* [, v5 X! }/ B% fend: u' S5 Z- n7 {& F8 C4 q0 }
to move-turtles7 X/ K1 j% @- o1 Z5 Y( s$ Y" M/ c
  ask turtles [
9 b" Z4 g5 X, W    right random 360
# e; M  d7 e. G6 i    forward 1) g. K+ \/ N- l2 @; p( ?; o
    set energy energy - 1
2 y. r) T; y$ j0 {$ Z! X    ]
& T- @! o1 U, f9 W0 ^+ }2 Z) t* Dend/ p* s& b# A5 b* \0 g  m; q' I8 z/ E
to setup-patches) @. E4 k9 |# b
  ask patches [ set pcolor green ]
, [, Y! I" v/ ~8 R$ s0 S8 gend
# S2 N8 {7 X$ O0 g+ A* t. c5 Dto setup-turtles
# l# w0 V, T: M* \  create-turtles 100
. S! I1 d, ~5 U- c" a: I, a* n7 J  ask turtles [ setxy random-xcor random-ycor ]7 c% T- w/ m9 s+ X0 t( u
end" u: H. G3 e# a5 G
to eat-grass
3 Q- a( d( m. E5 |  ask turtles [6 ]1 g/ N0 @# S4 `% g: v) U- J6 N
    if pcolor = green [
* `1 s$ }: y0 R) d  g. R      set pcolor black
, `* O4 u( _( g9 q9 C& k      set energy (energy + 10)
& {' ]+ s3 G, ~0 Y" |" Q* q      ]
4 S1 _% R$ v* S3 H8 ?    ifelse show-energy?
/ ~9 E- c/ L1 f" f$ R9 D* n; E      [ set label energy ]
$ @6 Z/ t# j+ K$ k/ u! x1 e      [ set label "" ]- \. ]6 G+ O3 `1 {
    ]
, X& U: V6 K! E. o: ^* ~end9 u1 z( x: X) R/ V  o
to reproduce
6 l  j+ J- x+ q$ {- O0 _3 |8 ]. k' ?  ask turtles [) W* t& I+ O! R8 {
    if energy > 50 [% y) m3 c. a" [3 M7 n2 B* c, Y
      set energy energy - 50
, z$ H3 b& d" v, B9 j      hatch 1 [ set energy 50 ]7 A9 @: C) F' s% @  v8 r
      ]
* N, D( P3 }& l! X( `    ]9 e& q. ?4 |5 l
end& |, E/ O* S# ~) x% Q0 y
to check-death% t2 i4 m" u# F2 ?9 d. |
  ask turtles [
3 o6 p  G" a! @( b" F+ X* R    if energy <= 0 [ die ]
& Z* I9 `/ Z+ f0 c* g$ {    ]
9 E0 I. o* Z5 jend. h0 ~2 A+ A# k0 w/ s7 ~
to regrow-grass9 Y3 ~8 v9 z2 f/ B& y3 d; k
  ask patches [
8 K( d% Q  {, j( F    if random 100 < 3 [ set pcolor green ]
# ?2 N& u$ X8 S$ w. `6 E" H    ]
0 @7 v! B; |( Jend3 m8 C) E+ N, O2 H- J
to do-plots- g: b/ l8 j) ]* E8 ]1 ]
  set-current-plot "Totals"2 j1 j6 P& o' j; h
  set-current-plot-pen "turtles"& B) i+ L8 j- e* T; C2 f
  plot count turtles
- n0 i% F7 o6 @; d- g% z/ Q; s  set-current-plot-pen "grass"
+ X; r4 N9 C, G( Q6 M$ r  plot count patches with [pcolor = green]
% \, Z9 K% Q& C% |; ^$ \* Nend- R( Q) b0 l8 a$ l
可是运行时提示no such plot: "Totals"* _6 p/ [) m- K* [( X+ P0 J# s" N
error while observer running SET-CURRENT-PLOT
' `0 B+ x/ V9 ~  N' w/ V* I8 r& ^  called by procedure DO-PLOTS/ m& P! m9 T" F8 p
  called by procedure SETUP
  h: u3 r) b; ?& ?6 x  called by 按钮 'setup'- p2 t# |: f' Y4 a. h
求大神解答啊
发表于 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
. Y' G4 l' d/ f- p: ^建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-7-14 19:13 , Processed in 0.015093 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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