设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12697|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]% t/ u# G/ d, L: B$ G# Z+ G
to setup
3 G- k- C0 {+ B: v0 P0 x  clear-all/ j  b) ~  l8 G* Q, M% `
  setup-patches# C7 B5 R* ~6 K  k/ o2 ]) c$ s2 O
  create-turtles 100
3 Y# I' D# x" s0 V% O3 ]  do-plots* i( u. E( N* k* w$ l
  ask turtles [ setxy random-xcor random-ycor ]9 |- V4 G1 w9 e. \- K
end
' T* q2 y: H% Z6 E& X3 w% n* {to go) O6 \" `/ _9 }- T: t+ k
  move-turtles
# H5 Z( U0 J7 g. W6 L* r+ t  eat-grass
# _8 q$ T- e, I; ~  reproduce
6 E3 X8 B" H& Z0 m  check-death& I% E* D- ]4 u, Y+ [  P
  regrow-grass
, O2 s; l  @8 {' T* A8 P- q  do-plots
8 T9 y8 e  |. ?' y" ]8 ~end
4 [7 S' Y. r: J- Y9 }to move-turtles
/ p0 x2 w4 p4 A7 z, n$ j  ask turtles [) @" g% N5 M; T" a3 Y( m& w% z6 d- U
    right random 360
2 T2 x9 S5 A) l; p    forward 1
# A/ U5 {1 u5 u- `4 t  k3 C3 R    set energy energy - 1& q( @9 j; Z( c( }8 J( F
    ]
4 J" P4 b6 |; d  g' pend
7 k" ]# T5 q" ~2 r7 Y: s$ z% S: Fto setup-patches
# J( I! f8 G  ~+ A: W  ask patches [ set pcolor green ]
2 o2 w: y' O+ B- xend
1 v3 W# J  @0 _to setup-turtles! t4 [  A. J5 l" }" p" K
  create-turtles 1009 q. z: q* [! k
  ask turtles [ setxy random-xcor random-ycor ]
2 f# B4 q. o: q# |end# R9 S/ f6 [6 {; V2 h) w
to eat-grass
) G9 o- W7 Q- O* L/ A7 s# ]( B3 r  ask turtles [
/ I/ q, w* ?7 ]0 A    if pcolor = green [
4 O: a& W- H! F& R! |      set pcolor black
: c: E% j* H: }% W( H, M      set energy (energy + 10)
. F3 R( x- s+ K* E0 v1 M      ]
! j2 V9 |( Y3 I2 I- X) T    ifelse show-energy?9 z# N. g* o7 ^( t* ]
      [ set label energy ]
. J6 {5 B. @! j, N+ ~# Y9 T      [ set label "" ]
8 y% n4 j* P: c% t4 e: D3 h( ~$ i    ]# Y$ K9 v; ]3 u* N0 J( h' m
end
: w3 z7 ?' p: P8 P* Cto reproduce
! ]) {: e' m5 n% E  ask turtles [
, ^, M8 ?" u  E% C0 U, E    if energy > 50 [8 o0 s- y$ G: @8 E
      set energy energy - 505 _7 w7 ~) w8 x1 ?( e1 w
      hatch 1 [ set energy 50 ]
. @4 H2 r. Z9 e0 T3 A      ]
, T& V8 A" e2 v9 {2 f8 y    ]0 O6 a2 }/ M" q2 _% |/ {
end
5 |) {7 _2 P1 T1 j1 dto check-death
3 h3 D; k/ ^  f& }( b  ask turtles [) R1 a. c5 l1 _2 [8 H
    if energy <= 0 [ die ]0 T+ m& L1 J$ W+ s8 B, r
    ]
- w+ d4 B- Z4 bend' K# X$ g# u6 i  n: ?$ _. v
to regrow-grass
9 w1 f$ n" V6 |2 d6 s8 d% L  ask patches [) K  Q) V% G% J/ N" k! W9 y
    if random 100 < 3 [ set pcolor green ]; U* O% M; Z8 |, x. W
    ]
7 V$ W9 R; O2 L4 r% I" L! a( Tend
" k* |- x6 _% G, {1 |# J" eto do-plots
  ~& {- c2 N5 Y1 S0 r  set-current-plot "Totals"" `! q9 W. w+ T
  set-current-plot-pen "turtles"
/ s& V* x* p$ x8 @/ F( @! Y: A  plot count turtles
  K# N+ f$ c' L& `6 I  set-current-plot-pen "grass". q# u; i6 e8 Z$ H8 N3 {
  plot count patches with [pcolor = green]
# X8 w! B% k' C; v$ N0 t& lend
% A1 E0 z1 H/ |; B3 D9 y7 ~( T* ]( E0 F7 F可是运行时提示no such plot: "Totals"
8 C* _3 p- c& Z# O8 Werror while observer running SET-CURRENT-PLOT9 |2 E4 N/ s& r; n9 j
  called by procedure DO-PLOTS' Y7 s+ z  u4 A# h5 n. W% O* ?/ Y
  called by procedure SETUP
& {8 b  Q) Y* @7 b( t$ K4 ~8 n  called by 按钮 'setup'' F, {' B; X9 [5 p: F6 v3 @
求大神解答啊
发表于 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
9 i# H) L3 x7 }  a- H建一个叫做叫做Totals的绘图框就行了
0 `( ~" a. ]/ O' d1 f, N
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-11 16:03 , Processed in 1.408040 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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