设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11363|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
$ j% K: t9 o2 n! d  u3 Yto setup9 H  n6 g) Z, Y0 E' e$ b, \
  clear-all
) g. c' t- F3 E4 W$ K) C  setup-patches! v, p/ u1 H! c- P9 `  }5 ?
  create-turtles 100
+ m: M. W3 U! p5 l" {# Q( \  do-plots5 I9 O' S" w% c+ k4 s9 T" S
  ask turtles [ setxy random-xcor random-ycor ]
% D5 D% |# E1 b: \# Zend% Z8 n$ v3 [9 ?' q! m2 ]/ ^
to go
! F3 ^9 Z) V. B8 W  f  move-turtles
9 u" N: o' }$ X, E7 D( J3 C  eat-grass3 [, {) X, W: r. t, ~2 h! }
  reproduce
& w: \8 J7 \& r, c- ]4 U% O0 u  check-death
0 D2 A* i. |5 H2 U2 P8 s  regrow-grass) V# k* j  z: V* W, M) ]
  do-plots5 m  D. Z) Y; z7 t
end
0 O0 ~4 m2 b8 E& i# ato move-turtles
2 A& j% ]- N3 s, g  ask turtles [+ S: M, Q+ r2 i7 _' ^2 {) E
    right random 3601 p2 _( Q6 j  P7 ^3 J/ z  v$ a
    forward 1
3 g9 b2 `+ F# J    set energy energy - 1
. c4 _& b0 S3 Z! F& s    ]$ W3 c$ j. _) M$ ~0 Q: g
end
3 q0 `  N( j9 u$ s  W' `1 nto setup-patches, q3 |# M! O+ n7 s* G9 i5 Q% N! h- f9 M
  ask patches [ set pcolor green ]# L- ~% x7 x5 H% y) ?$ N
end
5 J7 M! }9 w: C2 e# w- Xto setup-turtles+ C" r! B6 _1 N, J7 f  }. g: K
  create-turtles 1009 T- W. @. J! q; A* v; d
  ask turtles [ setxy random-xcor random-ycor ]8 d1 K8 e3 C+ j' M! u% p
end
+ u% ]/ ]; S1 o1 k, Y1 n# y* Mto eat-grass, m/ p" {# Q5 \6 u+ a# \9 i$ ]8 [
  ask turtles [2 m5 O& M# k% |4 Z" {
    if pcolor = green [
) m6 P; {! I' T/ v. [& K! v1 d  R      set pcolor black
; x; J/ N6 n# r& u% N2 }' B      set energy (energy + 10)6 b8 I# E' E- c9 w+ b
      ]
  r& e' v( A8 L7 K& t& R( {* @! X    ifelse show-energy?
! @) W# i( Q, q& S. ]      [ set label energy ]
6 _# @! Y# ?% [5 p% I      [ set label "" ]3 D9 M' ?$ B! R+ X' C
    ]
" M6 N" N5 n: P; S- I  Y" `end
  L" {. ~0 C1 c7 E5 J& }2 zto reproduce! a5 l  v2 }- ?1 S  V
  ask turtles [
8 _% b4 e( k1 u; `) _    if energy > 50 [9 Y$ D# j( z& D# F; b
      set energy energy - 50! `* w0 s# `! _# Q: v
      hatch 1 [ set energy 50 ]; e0 b( V! `8 N/ q/ e4 Y
      ]
' o7 U' R* l+ [% j1 k) }- _- B    ]
. V; _! c" N2 T* K3 \5 Uend
0 n& J4 o0 T/ G) s, X, Jto check-death
/ G9 a& B4 o+ {) B; f9 u; @4 \7 X  ask turtles [6 D4 y% X% Q, H% \
    if energy <= 0 [ die ]
8 X0 ?' `+ Q$ Q" ~    ]2 z: p5 Q% }# ^5 w2 X, P$ \
end4 }, p; _1 f' g! W
to regrow-grass+ p  D1 r1 P3 x9 {; N) K" ^
  ask patches [
9 _0 M7 W; q2 w' i    if random 100 < 3 [ set pcolor green ]8 c9 Q- ~: E: Z. a3 p+ l; Z) J- u' j
    ]6 K& m3 o' t7 r
end4 E7 l+ {( G% |" N$ g
to do-plots
; C$ l& }& W' Y3 L  set-current-plot "Totals"% t4 d6 {4 y: j% y2 u
  set-current-plot-pen "turtles"
: K0 I5 c. D0 |1 X  M0 P8 J3 O  plot count turtles7 \: F! l& L0 w* d+ `* p
  set-current-plot-pen "grass"  M! d/ s: ?3 s$ [4 t! Z
  plot count patches with [pcolor = green]
% w0 t* I" V( O+ W, ~) ^7 yend  L2 k- B* Z9 k; C
可是运行时提示no such plot: "Totals"* K- V7 i! j  C1 i  t$ O% i' q1 v
error while observer running SET-CURRENT-PLOT4 \* V0 s$ Z( M* r2 |' k
  called by procedure DO-PLOTS" U0 k3 a( X" `' w
  called by procedure SETUP
# Z3 e* u- C5 u$ {  called by 按钮 'setup'
; h) ^+ t- L4 D5 g2 T求大神解答啊
发表于 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
/ `) H! P6 R8 o5 z7 G1 a+ g+ h& |建一个叫做叫做Totals的绘图框就行了
5 d* S; J2 i! a1 a; _, {. g8 ]( w, G
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-21 21:34 , Processed in 0.018473 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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