设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10241|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
4 {" W- V' ]; m. Q& ^4 c- f7 Fto setup
3 ?$ e4 v7 ?( R1 f  clear-all
, B( ?8 n# W. y0 X8 ~  setup-patches
; g9 A6 A/ e2 T7 _- `* k  create-turtles 100
, |9 Q' f1 D3 u3 l8 c: a9 y  do-plots
9 U& Z# P2 ?2 E$ ]; x* X$ _  ask turtles [ setxy random-xcor random-ycor ]' `4 V" c  n; L; F( U5 p
end% d% Q" z6 r( q! S' V6 ]% [
to go
( L$ f) L# O) Z" f/ G6 A, f  move-turtles
* h9 x8 {8 e" X& Y+ E$ O+ ]  eat-grass* `) h( R0 {: z$ D: M; w' P" O
  reproduce" ~, c# n& {- D# B9 W
  check-death
& ]6 U' T8 N$ E# ~1 v- _. R( c/ B  regrow-grass( l4 f, W8 z  u3 e
  do-plots
: [" x  ?# O8 N) L* N0 ~end; N8 d0 ]! P: t/ N4 i* o
to move-turtles
0 E9 E; }+ j1 u8 |% l9 r  ask turtles [
) {# W/ t# {0 m    right random 360
% F3 y' o$ p3 i1 L" _. _, x    forward 1
% N. L9 L: @0 W) `4 [8 O5 a) {& h    set energy energy - 1" _6 x! Q. I! Q  @
    ]6 u$ X7 P" `3 x" N- P
end
: |, G( W. Q6 a+ N+ y7 Ato setup-patches
2 a' z$ n! N+ Y( ?" g  ask patches [ set pcolor green ]
4 n6 ~* N' `0 w' Yend( [/ W# p' U  C5 L) ^+ B
to setup-turtles
& k; B* g' L8 p7 W' O5 [% J" Q  create-turtles 1009 _6 U: I2 w7 S4 f
  ask turtles [ setxy random-xcor random-ycor ]
' _4 n) J& P- A  S/ ~9 ~5 [0 dend
- W9 p0 P  @7 t( t# rto eat-grass0 P* [8 Y$ n" m$ \% ?/ X! l$ c
  ask turtles [9 U2 J: j% r- N7 \# _
    if pcolor = green [) i) p( m, J) C0 m$ k! c! y
      set pcolor black
' F8 c1 M0 a* o% f1 A: P/ d, p* ]      set energy (energy + 10)
7 T2 U8 S% P% _& t8 R4 W7 Y3 p2 |      ]
, _- i0 l& |" J" Q- x1 P4 S    ifelse show-energy?
7 u6 R& i( B, r- m9 W, W& L      [ set label energy ]
/ {, ]% z1 K, V' V& ]" G      [ set label "" ]
' S" X% j9 }" i/ s6 r    ]
8 O% B# c4 @) l- ^' W7 C* J) t  v0 Cend4 o9 B1 M; r" S% g0 A
to reproduce* J! v+ }/ h- |# G1 e, F
  ask turtles [4 C# a5 K9 o( w$ u; ]! W, A- a
    if energy > 50 [, |( q+ F- L/ {) S% w
      set energy energy - 50
& U4 n+ Q* f$ R+ i      hatch 1 [ set energy 50 ]
; H) k! b* ~! I$ v0 @& k( `      ]" ~9 u0 i- n# G8 v; [
    ]( y3 {" T. P0 _, f' ?/ K3 j
end
0 v5 h7 f, \* T2 Wto check-death
& C! R* ~: H' Y4 N. R1 S3 Z$ W6 H  ask turtles [
& S( B, |9 B6 _* E0 M6 q. E    if energy <= 0 [ die ]
; B3 j, E' Q% }# u2 n9 p3 O    ]; G: p6 [3 h: W; ^0 O& w( g% T! H4 ~+ K
end" S0 H/ V) g4 h
to regrow-grass
* U0 `6 n/ r/ ?9 |: _' ~  ask patches [
; F. u$ p. `# ~    if random 100 < 3 [ set pcolor green ]) s+ U& i- k7 s  @# \) Z/ s9 d
    ]- ^  O; D$ M% t: E$ A4 G0 M1 E
end4 K# }$ a$ S" ]3 y
to do-plots/ |1 ]4 Y1 @7 J4 |  L
  set-current-plot "Totals"
9 ^" i) o4 E$ x& r9 g) R  set-current-plot-pen "turtles"
/ d' U* J: k8 B0 d% ^; q( ]. r  plot count turtles) f9 n1 i; Q% {
  set-current-plot-pen "grass"
0 ]) J1 Z1 D2 E1 o: o  plot count patches with [pcolor = green]" O  c( ?/ Z6 m7 I/ C; O/ k
end* X! [7 q. S5 ~  C  `
可是运行时提示no such plot: "Totals", w$ \) J4 ?. c& a
error while observer running SET-CURRENT-PLOT3 n7 S, J0 k! m4 c) ~9 i
  called by procedure DO-PLOTS7 g' P# ]. T- [5 A: \
  called by procedure SETUP
& v0 P( n1 ~+ l' K+ K! {  called by 按钮 'setup'' }9 A5 Q7 q, }1 ?/ h; Z3 d2 j5 n
求大神解答啊
发表于 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 # F; e3 G4 `. h) B3 g8 `. i5 _
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-26 15:29 , Processed in 0.019249 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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