设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11182|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]1 V5 z6 O) k+ b, h, o
to setup
! T& r, }' @& _4 v9 ]! I  clear-all' ]. c: r4 E* [5 {% ]
  setup-patches' P# C3 @2 {  N- Q3 k' s
  create-turtles 100
5 t# G7 u0 h2 @! c8 J6 \  do-plots
: a9 c* b! d! j" H  ask turtles [ setxy random-xcor random-ycor ]% n2 c8 S0 b* k9 W+ t0 q
end% r0 j! }& J' ?, G
to go/ r, `. Q9 f# E/ W  b) n1 n5 i
  move-turtles
. p8 k# q) C2 y2 o  eat-grass7 x- q" l% C4 r" v' ?0 p
  reproduce
0 p6 l2 l. @( P8 d, B2 i  check-death  j6 B* {$ I  f
  regrow-grass
! @. ~2 o/ Q: D: y+ V% c- U9 S  do-plots
) S% W0 F/ Z. e8 X( dend& L+ j) m8 b$ @3 q! x6 A
to move-turtles
7 ?! S5 u6 ?( O+ c* h# _9 X  ask turtles [
( D5 t5 z! B+ A1 z1 U! E+ R    right random 360
+ F0 s$ F6 H# x, L    forward 1
7 H' x) j: h* U; d& d$ Z8 z    set energy energy - 13 ?) x# t! h& C( _$ L# U
    ]5 u! ?! @- V  ]/ K6 h( n
end
* u5 B7 I: ?% }: yto setup-patches9 ^( Z/ \/ u8 j8 G$ u/ O( B- A
  ask patches [ set pcolor green ]
" I! e6 D) m& P6 w8 xend
) U( F" _  G' T" Ito setup-turtles
& C) R" e' Z1 S, {' J  create-turtles 1008 y, b; S) l* V) S' E+ w
  ask turtles [ setxy random-xcor random-ycor ]. W# n, b/ |! M& S4 t5 W
end1 {9 {- l. K  e1 q
to eat-grass4 [# X, ^6 o5 k2 k" M
  ask turtles [
" V' N' @% z) r2 z8 h) y    if pcolor = green [( d9 \: K' E$ t1 k
      set pcolor black
9 ?1 |& L& o( N4 o: j& s' ~6 }: L      set energy (energy + 10)
$ q, e! y# }8 l6 f8 }; {      ]- ^% [: h2 |5 r5 N. k) {$ w
    ifelse show-energy?
5 t5 r# K, @( B      [ set label energy ]
$ z) F* f6 e1 y: R, @  N0 ?1 y7 G      [ set label "" ]- k3 W: Z2 p( I& k: y0 r% G
    ]
3 B5 G# s+ c; N) aend3 s' C) ^$ o7 w" q0 z, |
to reproduce2 ^, e% ^& T' a$ o5 A# y5 t
  ask turtles [
# T& [' u1 x% O! }5 }, z% r    if energy > 50 [
' D$ h: O$ H" D      set energy energy - 50
. j% G7 w+ `. m+ a) ]4 n! Z1 K: @      hatch 1 [ set energy 50 ]
. l2 s! o: O/ {( R# i: L      ]
. R. p# U+ C+ Y( u! @% }7 m* _    ]
: i7 ^% ]" }. I0 K2 send
0 j$ L  N" \. @1 u: @: Vto check-death4 Y: u- S/ H4 b# F" |
  ask turtles [
) e4 z/ p" T- {: O    if energy <= 0 [ die ]" j2 i  w4 v/ S: w4 H% K$ A
    ]
, \) z' M; _  T' {: K/ O" pend
$ J6 T! ~" Q% _- h# A: f/ D7 g. Zto regrow-grass
  O/ B& i) t- S/ v3 E: a  ask patches [
6 A- F2 C2 ?; V5 _8 E  J    if random 100 < 3 [ set pcolor green ]# m* i% z- }, X" {1 a
    ]8 Y! Q% j9 P+ R! v" f
end
1 B) d- ]9 [3 ]  F8 u& I% h+ Vto do-plots* |; k& @) H7 y. E: U5 B  Y
  set-current-plot "Totals"
1 H  Y: e6 F9 R1 G$ V, g  set-current-plot-pen "turtles"2 T7 K- e1 }8 i$ E) @( e
  plot count turtles5 Z) \0 q* A' A' b! L
  set-current-plot-pen "grass"
1 }# j. I0 A. i6 h  Q0 H4 p6 q  plot count patches with [pcolor = green]* }( m, S) z5 L8 Z
end1 a) A' r0 e1 B' F
可是运行时提示no such plot: "Totals"
. i2 V* m# Y  a0 o- n* Qerror while observer running SET-CURRENT-PLOT  `- m. h  y7 c
  called by procedure DO-PLOTS3 M( S: ]1 N0 u# i: ~5 r# g
  called by procedure SETUP
$ C# V# `6 X- y6 V0 d  called by 按钮 'setup'
* x3 D, o3 c$ l3 n& L5 f1 ?1 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 / W+ `* S2 \- h) x5 h
建一个叫做叫做Totals的绘图框就行了
7 v; }, l) r$ E% H$ m+ _) B' u, V
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-6 01:32 , Processed in 0.025168 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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