设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11306|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]+ r6 F/ _5 z$ f$ z
to setup
; D1 `7 ]) s6 n, S; o# L" P9 ^# b3 R' P" x( E  clear-all6 _8 ~  y. j9 w! q
  setup-patches$ f3 c6 X5 g2 j& ?" |- B+ y8 O- d
  create-turtles 100% u9 j  s( [! X' y" u
  do-plots. H' z2 ]; n8 N% T
  ask turtles [ setxy random-xcor random-ycor ]& L1 l) N" L& K2 ^; J0 R- U
end/ ~! T& ^) I% G! K2 p% e# T- ~
to go
; O& N" `7 v" B: E0 ^% x. z  move-turtles
0 `( G/ E. Q9 C* W: f  eat-grass
2 Z: U$ b8 @6 W  reproduce+ L$ ]1 P1 H/ V
  check-death
3 s' ~/ f2 H( Y* t  regrow-grass
9 J' x2 C2 D! R% x  ?+ S$ M6 ^' p  do-plots
* y6 W6 @+ y2 p1 X/ \) q. Rend
. p' t8 y0 N5 S) cto move-turtles
  E. V0 P9 \5 ^! p2 {( b- O" i  ask turtles [
5 F" H5 `3 u% x5 @- Q5 m    right random 360, \9 O: O5 x; ^) X
    forward 13 O3 ~" `% u0 X$ K+ d+ n* |
    set energy energy - 1
; d* b  |+ b" I# p, k3 k9 t. v    ]
* ^' s/ M1 j7 A) jend
+ k1 e1 n# H, [& C; i) C5 s* Kto setup-patches
- U9 k: F* `- A( i$ Y2 }4 K/ t4 i  ask patches [ set pcolor green ]
% ?! R' a2 h0 [# |( R* X  W) lend+ W' R+ b( w7 V" f7 X0 D, w% F: ?( o! i
to setup-turtles2 ?" A0 `( ^9 @5 F; Z0 }
  create-turtles 100/ J3 X5 I# H" {. k, m8 R+ Y- m
  ask turtles [ setxy random-xcor random-ycor ]# v7 K0 e/ f# f( X' J& O
end6 D2 `! O& o/ M3 r7 \. [9 t* L1 U
to eat-grass
- u) S3 b* w( n7 K6 c, i# k9 S" ~% j' c  ask turtles [; b" r% e6 u( n! @
    if pcolor = green [
+ z7 C' D2 b. {9 x0 G      set pcolor black* e4 t9 Z" X0 N. n  ~% }. p+ x
      set energy (energy + 10)
4 B+ e$ l4 T% I# ]) l) [6 D      ]" b- q# I( f0 |0 p) `8 o
    ifelse show-energy?
# Y$ v" ~+ B, p/ a& l      [ set label energy ]) Q: a$ [; X- c$ N+ o) V: {- p' ^
      [ set label "" ]
  D! [7 b; y" Y# X# v! E0 X    ]
" r5 Y, F% e' Bend
' v9 f1 Y1 R% Z% r9 s; Y$ q- B. d  Y& uto reproduce
9 A) F3 r9 d' h% f' c+ V  ask turtles [$ Z4 Q0 v) u0 P0 l$ @% O
    if energy > 50 [
: v% i+ B* T* r( M      set energy energy - 50
" `) q  G2 Y+ J4 g5 h      hatch 1 [ set energy 50 ]
6 s: U3 d# H0 k) T      ]/ X. ]4 s) @4 `# l3 d7 p
    ]1 Y4 C% i8 r3 d# t) R1 N7 u: i5 S
end
% H, p2 s$ u* Q# n1 G# S7 @to check-death
) X. C" u+ o. o4 q1 \  ask turtles [
9 e4 |  J- @' M6 I; e    if energy <= 0 [ die ]
( n/ p6 k; h& t1 W8 R# p( W1 T/ B/ p    ]
6 @, q3 H# ]2 a+ h+ u$ ^end9 O) R! e7 w/ W) L0 j& [) Q
to regrow-grass
' `. Y6 ^' n8 T9 Y; k' @( W4 n, [  ask patches [
3 F0 t% Q% Q# b1 _    if random 100 < 3 [ set pcolor green ]  `7 Z& i4 z- n$ D
    ]
0 j: \  n* O# C. b4 ~3 cend
. I( t# x+ e' k' t2 h% |to do-plots5 D0 |5 w; }% \2 u. v$ ^3 L; D4 u
  set-current-plot "Totals"- s: I% K- T' u: k+ n& G
  set-current-plot-pen "turtles"
% n3 z, P- o  L  plot count turtles
/ o5 y; k& U4 n9 n7 _  set-current-plot-pen "grass"
3 d/ e8 d3 D5 [' K- H- w  S3 z8 H7 R  plot count patches with [pcolor = green]
! ^$ \5 L. x5 Jend
+ \+ R8 m) ^* y: y( k可是运行时提示no such plot: "Totals"
8 i+ \. D- i+ |* n+ |error while observer running SET-CURRENT-PLOT. c$ y/ L( l" l7 K, B, V# p
  called by procedure DO-PLOTS- ?$ v; V7 l7 E, a& V2 s
  called by procedure SETUP# @% u3 _  Q; ?+ u: \) z& Z: s: n
  called by 按钮 'setup'
1 V& C4 G- ?8 o2 ~1 _, v- [$ 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
/ r2 [: U5 ~% u% n) J: |建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-17 02:52 , Processed in 0.019621 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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