设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10205|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
$ ?* X5 E9 s! L# |* }to setup
+ u, E1 m1 J4 K% _; i% Z* S$ r- U6 J  clear-all
- p/ u( A1 [3 A6 C+ ]6 O  setup-patches
: I0 j- R- P, D' Y6 Y; ]/ O9 J' K  create-turtles 100
) f+ F8 R$ M' v. M* y% i1 u/ ?# L  do-plots6 T0 j2 R1 B( G4 x, V! s+ `2 [
  ask turtles [ setxy random-xcor random-ycor ]
* g$ \3 ^& m2 K9 m7 w: |end( d% z8 l7 T1 q5 s' ]* F* M
to go7 U8 A" Z  n, I3 T7 c# j
  move-turtles
# `* T5 t# _6 D) z  eat-grass
/ q2 U9 F, }' b2 W( r: N  reproduce
( x& ?  ~4 n: N: E$ u9 E- h1 M  check-death: R# x1 ?: a/ f
  regrow-grass5 A: F& Y( K8 f& k% F7 }
  do-plots8 H4 C: m4 H- h& ], [
end
8 u: {+ b( w7 z' V% Ito move-turtles
' k- O, b+ g4 T# m$ d9 Y5 ~  ask turtles [
3 f( V# Y, T% e" a    right random 360
  M1 j- u% D* s$ a8 |    forward 1
# j; J1 J, R) [) s; w    set energy energy - 1, B2 E: ^! j* g3 E3 k9 f
    ]
8 ^. \/ r6 X& G- r- gend/ ]( p0 t1 y1 n! a
to setup-patches
. G( Q% \; ]! i: \# l  ask patches [ set pcolor green ]
$ N# P- J1 r2 b* {5 lend
1 [2 s& ~, I8 nto setup-turtles
' F" N1 H+ J% o2 y4 X  create-turtles 100: v4 ], ?  q# A) b' t1 T; b5 k' b
  ask turtles [ setxy random-xcor random-ycor ]
5 |2 j1 O5 O* S: j' g+ lend: M$ m0 I: O5 s+ z. n6 l: J" [
to eat-grass% z2 Y: u) l4 Z( o& x
  ask turtles [
, v/ D' K+ u" V% ^    if pcolor = green [. R1 Y; s5 B  P' `3 i: `) J
      set pcolor black
- {7 H+ W# c" [: g$ w' |+ \& E      set energy (energy + 10)9 e# q8 x% v- E
      ]
2 D! d, r' E0 Y- @1 u    ifelse show-energy?4 K; \: _% J& d9 e. v
      [ set label energy ]
+ s+ h; N. h# Q      [ set label "" ], U8 @  M9 {- t% T
    ]7 B' v. |( Z5 n- c$ _
end0 N1 D  D& J# e( n
to reproduce
" F* U- y8 U$ q$ {/ ~  ask turtles [
3 W% t, N$ \4 [; L    if energy > 50 [$ o, {9 z! y( y8 w' p7 m& |0 w1 J* r
      set energy energy - 50% @5 O' @# G0 q9 G
      hatch 1 [ set energy 50 ]) o$ h, }8 y6 I
      ]+ c9 Y2 U  k7 H( B
    ]
+ t" G5 l- {4 S7 `* W* o. fend
. p! P& N: Z' J9 |0 nto check-death
9 ~. q# o. d: A' ?" x  ask turtles [/ J* c% R2 F6 R9 b& j
    if energy <= 0 [ die ]8 F% l. w% s6 A8 K& L6 P
    ]
; g  A  d1 i5 G$ \6 I4 F0 oend# F& S# m0 e5 j- w9 a
to regrow-grass* p2 B' G3 S: \; r2 Q3 G
  ask patches [
0 v% O! ?" {) ?4 n  Y! C: f' Z    if random 100 < 3 [ set pcolor green ]
  E% A- i" J4 v! {    ]/ ~5 l- f6 g9 J# l2 c5 K/ i# ~1 U2 V
end
) l$ J0 J+ `8 s1 q" I2 N. `to do-plots
. j! y) o. f0 M  set-current-plot "Totals"4 w+ a0 ~. q1 m8 E7 n
  set-current-plot-pen "turtles"/ p( W; N8 S+ J, {1 O* n0 Q) J& E- I
  plot count turtles
. D  R1 m# H) X% ]  set-current-plot-pen "grass"$ v' p3 b2 h9 T( j( F
  plot count patches with [pcolor = green]+ Z& D$ ?& d( n, O4 l$ T
end
" V9 L$ J) g" Z, |& E8 {" t$ u可是运行时提示no such plot: "Totals"
4 J' a/ t4 p0 S. a# e) h$ Aerror while observer running SET-CURRENT-PLOT/ V1 b' a9 ^& V% r' \6 I
  called by procedure DO-PLOTS
5 a4 H  s# H6 ~0 r& h! Q2 o  called by procedure SETUP
! ?0 u1 H4 z5 B5 J9 D  called by 按钮 'setup', u7 d! y& Q2 _. R" B& ]
求大神解答啊
发表于 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 + J4 F& H2 N! e' ?. }* g7 Q+ R
建一个叫做叫做Totals的绘图框就行了
8 b% f# a( U% ]: p  s- }  K' E
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-23 15:50 , Processed in 0.017595 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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