设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11683|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
/ q5 B/ n# K/ a. Zto setup+ K" p" o7 c" x- b" _' d, |
  clear-all( x" ?- N4 [  y! V4 ^3 K- c! c3 I
  setup-patches
- O9 c4 m  R7 s9 \1 G) h5 f- r  create-turtles 100
0 O. x3 v; {& a' i, `# C& m5 I  do-plots
4 U8 k: _$ D# K. [) \  ask turtles [ setxy random-xcor random-ycor ]
4 o" b) {$ a; q& _end
2 `6 H5 _# X; A  g9 x0 m) pto go. W  b6 O6 z+ f4 c% k
  move-turtles
' _. {) ]. T& y  q/ x- h  eat-grass  O8 ]4 d- s9 U" Z' c0 h
  reproduce, q2 s7 x" \4 Z; X3 M& e$ y5 y
  check-death
4 P# `- v( k. ?  regrow-grass
, P( U9 {% S6 W1 @( \0 S! S2 C1 S  do-plots
3 q2 m2 A, A2 x5 Oend
( ]9 L. N. I3 L, Kto move-turtles$ x, b. h3 r! f2 X/ B
  ask turtles [4 Y% Q" d& c* k
    right random 360% H5 J( ^( y9 [. s$ B
    forward 13 T  S. w9 X& y# [8 L
    set energy energy - 1; c% t+ n9 l* @$ \
    ]
  y! v9 `3 u# g( q/ Wend- O8 ?# p9 P- L7 Y- A
to setup-patches
$ s, k$ z" J7 Q/ I) f  ask patches [ set pcolor green ]8 Q* e' M9 t( v: ^; Q: k
end
( [0 U8 e1 x  F( D4 \: ^+ S+ F1 _! e9 hto setup-turtles+ K/ z+ U3 S4 d( p7 G% G2 _  L
  create-turtles 100
+ `/ j0 b; E6 B, u0 ?7 U( Y  ask turtles [ setxy random-xcor random-ycor ]
2 u( e- N) z- \. y7 [, e. pend2 _- \% q4 ^, S; t
to eat-grass8 e9 G$ [) C$ O' }, }  T( h$ `. G4 L
  ask turtles [
  l$ q, m+ V1 R( b% A    if pcolor = green [6 R% J9 Y8 D0 ^. n
      set pcolor black
1 q0 x" c" k& S      set energy (energy + 10)
" k# y2 t: o/ T8 D8 m' z$ F      ]0 S  e% H  A% p0 Q$ ?
    ifelse show-energy?
& a" \' q, n+ j! U1 p9 v4 k& o      [ set label energy ]
8 c2 u5 k- a! y5 q! c& {      [ set label "" ]
: G" t1 I. k$ F    ]
  l6 K: M5 A, Lend
5 g. x+ Y; r  L: C7 ?# j- k+ Tto reproduce
* S) n' F4 N. C7 r. X. A  ask turtles [, g2 _) O0 r$ Q1 {1 o
    if energy > 50 [6 s+ {( @: N+ D2 R
      set energy energy - 50. C. X8 ]9 w8 c) u/ h4 y
      hatch 1 [ set energy 50 ]. i5 Y: N: N+ p- I2 n7 u; q6 |4 H
      ], [! l: d+ h3 u& G3 b* @" E# t
    ]
5 `1 C+ Z1 O- Qend
0 u+ I; O" @6 l% F% O1 j& X7 Y4 Kto check-death  S  @+ G2 o  P6 R8 b7 ~
  ask turtles [2 a% n  b! |1 a! x" c( L9 E
    if energy <= 0 [ die ]  k1 |' L- p9 L
    ]
$ K2 P( k, D9 c0 K; {end
  @8 E' n, d8 G5 c  Xto regrow-grass
4 z) u! a- y$ v- N2 u! m  ask patches [
# Q$ v' T& _, B# n; M, E    if random 100 < 3 [ set pcolor green ]
8 v, Z0 ~9 i1 @7 y8 q: }3 _4 p    ]
0 U( a; v8 F0 }. }' ]end
3 ?8 ^& f3 Z- z9 V9 Jto do-plots0 J# F& C1 i2 n7 @/ M- E9 f
  set-current-plot "Totals"
) K2 o8 Q& p% u* Z8 d. i  set-current-plot-pen "turtles"& L$ M1 H7 ^3 O+ i! I/ y1 d% {3 T
  plot count turtles- G6 J6 a* n# p* p; O
  set-current-plot-pen "grass"
7 |5 v  o. j8 ~" S$ s+ ]  plot count patches with [pcolor = green]
' b( ]; Y$ U: c0 e& oend) q! ~# k9 ~% U$ M
可是运行时提示no such plot: "Totals"5 N1 z7 }" }2 ^3 c2 [7 N
error while observer running SET-CURRENT-PLOT
. I+ a9 t# T! W1 I  called by procedure DO-PLOTS
# p6 d* F" T# N  called by procedure SETUP4 g" p* S. M7 Y5 l
  called by 按钮 'setup'; L9 N8 O& ?' f" z" ]
求大神解答啊
发表于 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
3 g: d5 H% U5 d2 B建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-19 06:28 , Processed in 0.014534 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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