设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12057|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]/ M8 j/ X% I' M  f: M. H: _$ W! i
to setup5 l* @' l  h% I: F
  clear-all
1 V/ u/ P5 Q. P2 r( G0 u- j! R  setup-patches" u0 ]. Z  q7 p. Z( H  r
  create-turtles 100
0 E& V* R5 H5 M' t, r1 N  do-plots
3 C2 K7 V8 {1 ?! R7 O# c" s, b  ask turtles [ setxy random-xcor random-ycor ]0 w  j, T2 i% H- V
end
5 n: ]6 I2 V5 T% G" o! H/ @to go
9 q+ j% d6 f! c+ n  ^' i1 c  move-turtles
0 }+ A1 m) N+ \. m3 s  eat-grass
1 x) Q9 Z  P; T% R  reproduce
8 s  _/ S( u0 J" L* I  check-death% P# F& @2 B% N; i& h) u
  regrow-grass+ p+ H$ \  q/ M; S
  do-plots! `) }  s4 k/ K+ e; |
end; q0 m. F0 o' Z1 ]5 M
to move-turtles2 e4 l  t  }# l. E5 i9 y
  ask turtles [$ I! T* ^4 _# @$ X
    right random 360
5 r' ~8 L8 s$ V* _' B, t2 K    forward 1# U& Q9 z4 B+ U6 a1 M* ~
    set energy energy - 1) I) }, c+ a$ A! R. m' A) [# C: J
    ]
: M# U, A2 X) a: }$ k. Send
8 e7 D- [  A1 c( ~, B! Ito setup-patches3 ?  ?3 h" \+ k' I0 y+ l
  ask patches [ set pcolor green ]
& ]9 J3 L  [9 iend
/ _3 d/ l* J! A, Dto setup-turtles
0 K+ _# [$ V3 T1 s1 V  create-turtles 1006 I* I# H+ l9 V. D  q' I' q! ^
  ask turtles [ setxy random-xcor random-ycor ]- N4 {, J: k' J- L5 p* G
end
$ W$ N( a' w8 [. y7 j% ^to eat-grass
# w5 x& u0 w6 D. O  ask turtles [
. S+ x/ r7 b5 T+ T. Y9 s" n    if pcolor = green [
* Y/ a/ U0 S0 P3 L+ g, F      set pcolor black
* [- S, `) O) M      set energy (energy + 10)7 f% W9 D! G$ n% m' ^) ?6 X
      ]
% W. v) D, `  q  j. Z    ifelse show-energy?
9 H. F  Q- h# {) O7 h) i      [ set label energy ]
: t* g0 }1 n3 D/ c% r2 I( M      [ set label "" ]
( y' A+ s$ O/ r0 f2 X; S1 x    ]
7 m4 ?% A: [/ Y+ Y3 aend
  \2 g& c2 N+ m: yto reproduce3 g& V( R3 U# g/ e
  ask turtles [
  R3 U& r4 k# k; R- A9 ?    if energy > 50 [
4 r( R. x$ C- s$ N      set energy energy - 50. ?; Z, ?1 P; ~8 Q
      hatch 1 [ set energy 50 ]
: J9 I3 E! v* w7 z      ]  _' I( x" I3 J; [; Q
    ]7 D: N: Y$ F7 w" ^0 z
end% ~. `8 y6 n2 t- A
to check-death
+ ^0 R& W) J$ S$ U  U; y0 |, L( U  ask turtles [
* e7 ~9 `- F  ^7 [4 D5 W    if energy <= 0 [ die ]6 U; X* O1 f% E; d$ E
    ]0 L4 _  l! }7 ~- R+ J5 p
end
4 J7 g- Z/ m2 d3 Jto regrow-grass$ b6 R- W# U+ t2 R: h: g1 I
  ask patches [
" z9 }9 Y* p& t5 b, o    if random 100 < 3 [ set pcolor green ]; t, f3 U1 \# c, R
    ]
8 I* Z1 |1 e7 p, q; s; Iend
6 P) q" u: Q; @4 C9 S3 pto do-plots
/ |% n$ v7 ^! F$ ^4 r1 k* |3 F  set-current-plot "Totals"' e' c/ r6 O; k" P+ {7 h; l* a
  set-current-plot-pen "turtles"" V7 X; \  w" v# ~' h' |9 J
  plot count turtles, Z1 G! O5 w2 |5 A/ x$ `+ V
  set-current-plot-pen "grass", q- [/ y" I2 @0 i4 s" C
  plot count patches with [pcolor = green]6 v$ N# C% m; p2 r4 u! L& A9 r
end
+ u. D/ H6 v& J% x" i# I可是运行时提示no such plot: "Totals"% s0 H% T0 g& o/ S# n& O
error while observer running SET-CURRENT-PLOT
2 o) O9 Y4 x2 T- e/ H  called by procedure DO-PLOTS
) d' U( `# g$ R6 k  called by procedure SETUP
+ b& r: K2 Q+ p! L% u  called by 按钮 'setup'
2 ]- m$ E% z) m! B* ~求大神解答啊
发表于 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
! r7 G( T$ j) ~建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-7-23 12:37 , Processed in 0.018980 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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