设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12817|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]$ F! J0 P7 y# W! E
to setup9 \9 I/ W* P4 O& p# W; _
  clear-all
0 b: _; x; n) p0 B  setup-patches
) A  c# I5 b& e$ A/ t! {7 X1 W  create-turtles 100
/ U  [3 `5 O. ]* {& n7 ^: q2 ?  do-plots" I4 ?6 K$ Z$ e2 o/ p3 s' P. b, n+ ~
  ask turtles [ setxy random-xcor random-ycor ]/ ]. B" [, r3 D: w2 W" u* a6 g. K
end# _. b* h5 X( Q* S' |; ^+ ~
to go
- |$ i. E4 B0 X( f! }$ K  move-turtles* @- K0 N$ V# V% J
  eat-grass8 T2 H. f  I7 K$ @
  reproduce
- b1 e  k7 r# Y1 ~: |8 {3 D  check-death
4 ?- ^9 P/ u* y; u6 h4 E  regrow-grass+ i1 v& c, u( s! a$ V: L
  do-plots% i" F. z2 l; _. c$ ~# S
end
9 y( Y: b- k$ S- v+ q- ato move-turtles1 X6 {7 c' A0 _4 T$ C
  ask turtles [% M. f2 u1 w7 n6 `3 n( ?, j
    right random 360
: _& b  x' s5 C/ e$ \& B8 u    forward 1  m# w* L4 i, ?$ z
    set energy energy - 1/ ?1 ]3 x; [7 a: x6 \
    ]
' r- z! ^8 @: E- t, Kend) q+ `% m* v$ o
to setup-patches0 c; I7 V# T# Y& `
  ask patches [ set pcolor green ]* A! r9 G2 h4 }' e
end
1 I  q# m  U& D1 C5 d5 Eto setup-turtles
$ c% e( p' q; C' N; V1 I" u/ }$ _  create-turtles 100
. g1 R; I' t8 W  ask turtles [ setxy random-xcor random-ycor ]
4 @3 B6 Z, R, b: A) R. }1 d" S$ ?end; n5 ]7 K! v0 S. g
to eat-grass2 Y9 x* q3 K& Y4 r
  ask turtles [( F( t. ]6 c6 f* Q! q4 R
    if pcolor = green [
( Z4 K' I3 {0 n6 H: T      set pcolor black
$ U) K/ h" K& N( z( A( z' l$ p      set energy (energy + 10)
4 g* [! D0 R8 }  M8 h% w: K- P      ]% v; t$ p8 m- I' h" y
    ifelse show-energy?% I( {3 \6 }6 M$ g+ V. a
      [ set label energy ]5 ~' d8 S# f/ s" K  L
      [ set label "" ]
3 P2 I$ e+ k/ x( F  c  |    ]' d, E  ?. g2 I. r
end5 ], z+ i6 ~! k$ L3 V
to reproduce
  Y2 s, g' g4 E+ _% g  ask turtles [# ^# e( p: ]& j3 \! z6 J, Z
    if energy > 50 [: g  [, t% q, z
      set energy energy - 50# d6 ^9 |! \% B% O( z
      hatch 1 [ set energy 50 ]6 q8 C" S% u% L/ `$ N0 `
      ]0 \9 W0 A( w% E1 w' j
    ]& l# S. |- V4 c% u3 G9 L
end  B, G& T4 A: Q3 ?: q2 L
to check-death) D) A7 b8 W+ ^% i  S
  ask turtles [
# o( S% N4 `( E4 q6 Q    if energy <= 0 [ die ]7 i& g, R: t3 i  p3 f
    ]6 E' d( h7 k: `  o
end" s( `1 `! J! ]: |4 j% a9 @0 \
to regrow-grass
& F6 T. ^! R5 y/ R  ask patches [
, s- @4 v: c. A; t    if random 100 < 3 [ set pcolor green ]5 Z4 m5 K+ E% q# `0 O
    ]/ S3 `( w5 z% d. }
end, I* _1 b) X& ^4 G9 W
to do-plots
7 {9 y4 s2 ]+ p" [& K% W  set-current-plot "Totals"
' D3 X/ j$ j: I4 g6 ]! [  set-current-plot-pen "turtles"1 q6 x  M9 P2 q8 }3 f2 N
  plot count turtles% D9 N1 A5 d% [9 G: R! m. s+ B
  set-current-plot-pen "grass"& i/ P1 D: x' ?* ~7 q9 y
  plot count patches with [pcolor = green]
8 y. q% N# }; \* D5 L5 ~8 i/ X4 gend
, S% f. N9 j1 {: o- ^可是运行时提示no such plot: "Totals"* u0 S; x+ h2 O; G3 z
error while observer running SET-CURRENT-PLOT
. {1 O- h8 x( A  called by procedure DO-PLOTS
3 Z7 ]# R$ v8 c  i  called by procedure SETUP
7 N+ Q; [( o# F$ j- W& A, C: A  called by 按钮 'setup'
. M8 h) R* Y. X求大神解答啊
发表于 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 $ H2 o, K% z! J" ?* F0 {& R: e5 F
建一个叫做叫做Totals的绘图框就行了
6 g+ b0 p% s# n% L( b
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-18 04:03 , Processed in 0.017165 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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