设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10980|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& k6 i! @; N4 Y- r7 yto setup
8 I& K! O4 w7 N7 N6 F  clear-all' c4 ?2 R( {/ E" S: g4 q! g
  setup-patches$ C' }, \/ t- g7 x$ Q3 O4 C; n
  create-turtles 100
" o* B+ F- v5 w: X5 t/ K  do-plots
, i; M# h- ~# C6 \8 c) i2 l0 s; ]  E/ H  ask turtles [ setxy random-xcor random-ycor ]5 Y3 m, M# D1 m
end
9 m+ O* p" g' D% S1 \3 jto go
7 N1 h" }4 @0 H6 c/ i  move-turtles
2 X+ @) r, ?: N  o+ t) M7 v  eat-grass
1 y1 k( X- |* @# k! D% F  reproduce
; n8 D/ Q1 Q: z( V$ T) P5 P5 q  check-death
, a5 ~$ \- t, B1 O! F  regrow-grass
/ L$ F% R9 a6 v5 Y  do-plots* f* j/ G! S5 W5 @2 n) T/ ]" `
end
: b* K& t- E/ `, R# U* _to move-turtles) A5 p2 L  ^# s! ?  ?# p0 Z- K
  ask turtles [% C- T) [, X7 a$ |7 o  [0 B
    right random 360" q! U% J. `6 X' t
    forward 1% v' B  K, P$ ?4 c! S7 K; m4 \
    set energy energy - 1- x: a* }% r! ~& {" t1 a
    ]
% E4 Q! K4 s. s8 S- a: [end
( H9 ]" \5 X( @- pto setup-patches
  j& D: V- U: l! f  ask patches [ set pcolor green ]; o) c, z' x! w7 e8 W/ h' y
end% a+ ~! z+ U- y# z/ q( |  E
to setup-turtles
" X% U- ^; |5 @) @! K% c, o7 g8 x9 x/ k  create-turtles 100
+ X" x# H  c6 l- Q+ |' S+ j  ask turtles [ setxy random-xcor random-ycor ]/ f7 J* r1 g. O. z( m
end4 b) c% J) E4 z7 a! C
to eat-grass
( ^! q! e( y) i/ g2 [  ask turtles [
+ }0 I: |) X. z    if pcolor = green [  c  p9 g: A6 v& a/ ^
      set pcolor black% _. ?9 S- {1 i+ c
      set energy (energy + 10): H' j0 S) ]& v( S& q0 {0 R( [1 u
      ]
3 C# @; M) `' z; g    ifelse show-energy?8 }( @# H' t0 s" E0 O5 x
      [ set label energy ]# ~2 \9 [6 K# B- |) X& H
      [ set label "" ]3 w( q1 T2 f0 ]
    ]5 q- J. C5 ^4 f6 U+ K; r$ D
end1 K- i7 N5 N) E+ t1 F0 D
to reproduce
/ _( u/ Y* W5 J- j. S* q  ask turtles [: x$ X! S+ q6 I! U/ W1 }
    if energy > 50 [1 W5 E& D) O7 o0 F! a" g% `
      set energy energy - 50* b, a. H+ S) q$ v4 ]+ \) y: e- r
      hatch 1 [ set energy 50 ]; i! q, M" z9 s  j+ n
      ]# b- @0 b: y, `
    ]
8 t, P7 L8 {  v$ d( `end
8 R/ a# ~4 v5 N8 Ito check-death1 }+ q; ^9 q3 a
  ask turtles [
4 k' {& V0 @: g* ~7 D    if energy <= 0 [ die ]
( r. N. a% A9 z0 f1 S* a    ]( S9 ]1 i9 G" F6 X4 U5 ]0 b( Z
end! M, w4 X9 c  Z2 W- r0 R
to regrow-grass! {5 s# ~( s& X  B# ?
  ask patches [& f/ A  Z) R) g* a
    if random 100 < 3 [ set pcolor green ]
8 n( ^5 K- S. p/ o) O+ Q- G( G6 i( Q    ]- A9 n) L2 R  C
end
) g: T9 a5 P8 B! _  xto do-plots
% ~- B  Y: N& R( U% d8 z  set-current-plot "Totals"
% w( h7 K- [* ^( M& q) V1 Z  set-current-plot-pen "turtles"
. l. L) z/ }( C0 ?4 }- o6 d  plot count turtles! z" g4 q3 f/ s2 W/ B5 r% q7 a9 R
  set-current-plot-pen "grass"- _1 q* g. p( A4 u
  plot count patches with [pcolor = green]
# j7 U# D5 Y7 F% }2 h) o+ ?/ N" H8 y# Xend( q( Z! }3 U$ [4 j$ p# ?1 G
可是运行时提示no such plot: "Totals") N4 I$ w; I6 a4 p
error while observer running SET-CURRENT-PLOT( y" b, g3 M, m
  called by procedure DO-PLOTS5 `7 `; E) W. r  y, M
  called by procedure SETUP( S5 B; t; Y& ~9 m" v+ f' A
  called by 按钮 'setup'
, v" W+ C* M7 [4 I! W求大神解答啊
发表于 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 , b: L: r' O7 `4 D" A0 I$ M* E* c, J
建一个叫做叫做Totals的绘图框就行了
, {- ]6 U7 D3 O
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-23 16:35 , Processed in 0.029386 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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