设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10889|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
9 j- N! e0 L6 L' P* ato setup
* U4 w2 R' H  g! v. t" J  clear-all
% C% z% k6 u; x4 U$ e) _1 O  setup-patches
6 s# |) [: Q. v" X4 e, W1 m  s  create-turtles 100
1 ]7 s" O- ?0 B  do-plots
$ Z/ j# F3 x7 n' s& k  ask turtles [ setxy random-xcor random-ycor ]: h0 f: }0 d, ^
end/ @( n* u8 W; w6 t
to go$ G6 |% s! R( ?3 o4 Z, Y/ B& M
  move-turtles
+ h" r9 Y: ]! Z& O  eat-grass6 }* L# b$ m5 |4 B, l
  reproduce
" n! d9 H5 f5 o  check-death
- F3 t8 r, J6 S2 N3 a' C  regrow-grass( [# z; x5 J1 m2 Y* T
  do-plots
' T" V$ h% w" Q8 f: R5 N4 H. S0 qend
9 g) z# b5 s: [to move-turtles
- G* F+ A/ ?2 a8 z4 [  ask turtles [  p: u- T7 C6 a- U: ]3 Y" i! y
    right random 360
7 c! ]/ y/ o5 S& U/ z6 f% P- G    forward 1
$ z  J0 I4 y5 ?! E& [    set energy energy - 1
* K* o8 a& i. F" z7 o    ]
7 }- r& {9 V" K$ ]0 O* Fend+ L: U4 W4 q, ?- A! {" C: s5 m2 x
to setup-patches4 v8 l1 @% t3 {% ?. e6 q; S7 t! f. v
  ask patches [ set pcolor green ]
% P. ^5 ^: h" t! A; {/ Xend
, u* \! B! g: Q8 D1 `3 M; rto setup-turtles/ j, W' H, Q8 u) h. A" m: s7 m
  create-turtles 100
+ C2 C5 c; }$ d  ask turtles [ setxy random-xcor random-ycor ]8 A8 b+ p* M2 J+ j
end  l/ V  l1 h5 {" P
to eat-grass
# |; |- r% b& s  ask turtles [
& _3 |" }& K* O9 Q6 T    if pcolor = green [
* i9 Q- W+ n+ r% x1 F      set pcolor black- m0 W1 K& O, d4 I# l
      set energy (energy + 10)
* z" e  Q9 R4 q; N3 i2 K      ]
+ J7 H$ d- S! Z  |; t    ifelse show-energy?
. l0 _, X* n# Y! U( A      [ set label energy ]
0 g" g2 v$ v. L2 Q( @      [ set label "" ]
$ ]. ^& C( M' i3 M    ]
0 P0 a& e3 s4 |4 \6 a% lend
" y; B4 d* r2 E1 ]to reproduce
0 j, i, m, r- h" Q  ask turtles [
1 q' r5 ^5 y. P& a2 G    if energy > 50 [. {/ B$ R; n0 V" D
      set energy energy - 50* p8 }  d( W( Y; @
      hatch 1 [ set energy 50 ]
% Y+ V' c# C7 t0 _' i) ~( n      ]
" z0 k0 ^# X( ?/ {( [3 h2 I/ r7 o    ]
$ E" Y& w2 h/ ~# @end
  P. b3 ^6 b4 Oto check-death
8 ?( D1 Y$ W, A  ask turtles [
6 P& q0 k/ ], `/ v1 n1 C    if energy <= 0 [ die ]; c0 u6 H$ x7 Q. z0 E
    ]
, C+ y- t9 M/ N9 ]% ^end
6 {* c9 h) d( h" D& N9 M: _to regrow-grass: j& |( O* w: m8 G0 D
  ask patches [3 c$ {0 U+ ]7 W' I4 Y% x9 [
    if random 100 < 3 [ set pcolor green ]
5 k) n! M" x3 J) s8 |    ]
: I) c: O+ ^* t! p# z- Uend
; K0 V5 v! r. a7 [; wto do-plots
& p7 |% w  \0 I) F3 ]  set-current-plot "Totals"# |* d# \  ?: {  B8 o; i9 B
  set-current-plot-pen "turtles"
2 P7 p5 X, y- G3 Y  plot count turtles
% Q. J, h6 |. n0 A. g  set-current-plot-pen "grass"
4 O: V" T, \8 W: {& _$ P( ~& o  plot count patches with [pcolor = green]
8 `/ t8 b, i( N" G0 |8 Tend
- S* W/ v+ m* W6 m) p3 y可是运行时提示no such plot: "Totals"  Z$ p5 s* L" ?
error while observer running SET-CURRENT-PLOT
% Z( h' U: L' O4 ]  called by procedure DO-PLOTS% |: X% T% F+ H5 J
  called by procedure SETUP5 E: b/ z  f' I7 ^% p
  called by 按钮 'setup'8 ]+ E5 i. O( a/ ?2 K$ D
求大神解答啊
发表于 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
0 I: A7 B" M4 e0 W建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-4-18 10:46 , Processed in 0.023402 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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