设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12148|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]1 |0 c' G8 B& |- I" J0 I4 X% U
to setup* |3 i. s$ P! J2 y
  clear-all
( s. X/ n# t3 x8 N7 e  setup-patches% }3 W: p7 K, ]! a! D& a, n
  create-turtles 100
2 a/ o# Q; X, H! ^& O  do-plots
) C+ E( m' R7 o( X) r' r  ask turtles [ setxy random-xcor random-ycor ]
% N6 G" Y& n: pend
) U" r" a0 o5 `6 f+ u: Eto go
8 S; V2 t7 f7 N, f  move-turtles
0 W% G3 i/ _. o* l  eat-grass
- ?9 }2 O/ X3 r  reproduce" n: ?( A8 Q. w7 T4 v+ F
  check-death  Z, `( ?/ T1 }# O
  regrow-grass' `  o8 P8 r. ?  h0 \' f
  do-plots3 u5 ?/ x8 X' ^
end
2 s2 |; F7 J: \8 ^to move-turtles
5 `1 @- u4 m. m( S* w5 v  ask turtles [
3 R3 F! g1 y1 k& m4 [% j' `6 q) [    right random 360$ Y0 O0 c, Q! \6 F4 x! Z2 E& i
    forward 1
6 g5 a, v( N# [6 b: s# ]+ W7 H    set energy energy - 1
; h) G* A9 |- P& j, {9 P7 |    ]
1 [1 _; {# {/ ~- W$ E: Q7 m/ A: ~end: W' w. F- @* w8 J' f
to setup-patches
; A0 G+ S/ E/ |) E$ u3 A0 H  ask patches [ set pcolor green ]) S  k3 A5 ~! z. B6 {* _  z+ }
end8 s  i6 o  o4 w% ?: O% G# h
to setup-turtles9 a: U$ Q# e% I- u+ V# k* k
  create-turtles 100+ I) g& J  t# N  u' Q% ~
  ask turtles [ setxy random-xcor random-ycor ]
& g, k  }% {' z0 oend# X2 t7 U* z: z! [8 a
to eat-grass$ V1 b4 v3 ^6 ]
  ask turtles [
% S9 i  X$ @6 I$ K* m/ P& ?, E    if pcolor = green [
; l1 J1 L9 C1 e; `" v2 l; u      set pcolor black1 {4 I: ?( d$ ^; `2 t4 Y
      set energy (energy + 10)
! ?6 g5 H" E6 w/ x  f6 L      ]
3 k9 k  O7 a9 p; c/ P    ifelse show-energy?& h2 c: Z. {2 f( [
      [ set label energy ]
" x1 [3 v' `, f+ ~) w! Y$ P& o      [ set label "" ]1 _" f2 h0 ]9 F7 ^
    ]/ i4 @) {; d4 w/ B$ F
end( t0 e3 @4 ]) ~8 @/ j8 S! h
to reproduce) p' z5 {4 t5 z2 ?. [0 c* D/ ~" a
  ask turtles [2 }( G. g" ^, [& S4 k) y
    if energy > 50 [
  M; ?% K" }; h8 e      set energy energy - 50, H3 Y. a1 J2 s0 }% C
      hatch 1 [ set energy 50 ]
3 x& L6 z2 ?3 B9 @! \! O7 o3 C      ]
8 n& H4 c. {( ]  P& {    ]
/ M6 u7 a# ]8 B5 h5 B* o' I9 P6 wend( Z! |; H# S, R% `0 K" h4 Y& ~
to check-death
- O6 l$ U* y, \6 E9 i2 J" g  ask turtles [+ W+ z- }8 a, n. D$ @
    if energy <= 0 [ die ]
8 N. r1 }0 V8 @# B, H( \3 x( |    ]3 i% m' Q+ n+ W, D7 H
end. d0 g& p7 I# x; J( T
to regrow-grass
3 `( T9 r$ r$ ?- {  ask patches [
, |1 ]0 L7 G, \" H6 j- P) m    if random 100 < 3 [ set pcolor green ]* {% I- ^: A. b$ \6 |7 y1 W- L
    ]$ w2 C! ^+ W1 ~2 J
end/ ~! c1 q0 _9 G  M
to do-plots
7 S- W. v" e' x6 q, u! v9 q  set-current-plot "Totals"
! c3 Y# C! B; y0 ]- r  set-current-plot-pen "turtles"3 r- y6 h* F. p5 S% T- q
  plot count turtles" h! X  N0 t/ i& F2 L
  set-current-plot-pen "grass"# F2 N$ K6 N$ o5 t9 Q4 Q) f
  plot count patches with [pcolor = green]
$ u0 ~# V9 o# @& J9 t9 Wend
4 k+ g  d2 e2 `* O, R7 H/ }可是运行时提示no such plot: "Totals"
$ B1 D) I9 b& R2 ^/ ?9 b3 o8 uerror while observer running SET-CURRENT-PLOT
! K# W# X. C) X" U  called by procedure DO-PLOTS  P7 X8 R% q" t8 R- N; I
  called by procedure SETUP- t7 J6 _, I; i, F: X4 V* l
  called by 按钮 'setup'  [4 v1 R. W- Y( W) p, I
求大神解答啊
发表于 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 ( J7 O, e& z# r2 [( V% N
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-7-29 09:50 , Processed in 0.016071 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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