设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10652|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
# e, S+ O, |- j2 vto setup
, d' M- ~/ |4 g* @  clear-all
# D1 G4 {: V* `! q/ }4 u  setup-patches5 ]3 p- o; X. g: K; U
  create-turtles 100( Z& Y3 ~' A3 }
  do-plots
- h5 f9 Z" L) U/ T: T  ask turtles [ setxy random-xcor random-ycor ]
( h! J( v( u" m: dend& {- i3 s( D3 r
to go. H9 t% u$ u  z# R. h
  move-turtles
, T6 R$ L5 j& P5 B( J: ~  eat-grass
7 ~  C0 K! q* R! e. e; `; x- h, c  reproduce
9 a5 U: q9 n- A, d: }9 M8 b  ~4 h  check-death
7 u2 W  y7 _7 T) v0 B2 q: _8 K  regrow-grass
/ F2 r! s0 H5 Z5 p  U2 n* c( r, p  do-plots, y3 U, N: H: F, z3 e0 W
end- B2 |; d- P+ ?! ]
to move-turtles
/ @( N( N- V: h/ ^" r5 U& a! A  ask turtles [
$ o4 G9 s- x3 i    right random 360
, \3 Y& U- Q( P2 m6 x    forward 1  O% }9 H3 s5 w8 S& L) C
    set energy energy - 1
+ a( a& |& L6 o+ Z- r    ]; I: g# |& w2 x9 |: ?) A
end1 a' c) @, ?3 g, F, V( W
to setup-patches/ n3 O/ u" ?! z9 N3 V
  ask patches [ set pcolor green ]
: X" X3 v% ?) x- R2 Tend
9 B6 j4 i& ^9 ^: C. @to setup-turtles  @3 b* K) K& F7 X' D' o9 \2 E
  create-turtles 100! ^: k& o5 g/ F9 k+ M
  ask turtles [ setxy random-xcor random-ycor ]
$ G& l7 E, g* U3 D1 Gend
5 d0 r1 z0 a9 e& l" Z4 I4 dto eat-grass
; X) A/ N" }0 M3 D( N4 f  ask turtles [
' G9 s; M! {+ e7 b# {1 @% K    if pcolor = green [
$ U. m6 p+ L2 ~. C- ?: J& d1 ?      set pcolor black) `, D7 B& f5 ^$ v
      set energy (energy + 10)
" S1 F8 D* t: q% _6 F- K      ]0 p: E2 b6 q$ k" R! v
    ifelse show-energy?
0 R$ o+ o: U' I! R, N2 H4 I- o      [ set label energy ]
: c6 P; L0 p3 e* ~      [ set label "" ]
* c- W4 u+ t+ r( W( L    ]1 r$ N6 Y( P- b9 f5 Z
end% Z/ ^5 q% I6 y0 u  R/ l
to reproduce
/ e6 w. s; L# w5 z  ask turtles [
, O0 n& x8 i3 r* P8 H& w; u    if energy > 50 [1 l" u5 b( V4 f3 [# ]
      set energy energy - 50
* ~" Z9 c  f$ N0 X' J      hatch 1 [ set energy 50 ]
: {1 c, X0 i! w' a2 w      ]# `  t) {$ s( I+ R/ Z2 D. }
    ]$ u8 E& G% n1 _/ }0 h& h
end" [) y9 ^" S7 j) H
to check-death( r% H& e% s- I! D0 [/ n' s7 @
  ask turtles [+ S3 O: U) V* s: E* h
    if energy <= 0 [ die ]
7 s" M0 B! p2 {3 o6 e6 L7 M    ]
3 `# b7 \4 u! M& hend' B0 V" {+ t) z5 z6 z: I5 |0 f, I$ e
to regrow-grass* \; P- i, }5 E9 ~" @; c$ I
  ask patches [
% B) P" R" m9 y$ N. c4 B- i    if random 100 < 3 [ set pcolor green ]
. d1 m0 Z, c! a    ]- l7 Q$ a" E1 z, d" k
end- @8 ]1 v$ V  Q
to do-plots& U: c) w3 l: u" F9 a: T2 }
  set-current-plot "Totals"
4 M/ I9 y3 C$ u: J* o: B/ g% o  set-current-plot-pen "turtles"
: n- i$ M/ |! [) C  plot count turtles! w% |& i& V; v0 O
  set-current-plot-pen "grass"& k# B: p0 z3 w4 |8 Q+ X( d
  plot count patches with [pcolor = green]
$ U) l3 P/ k2 ~: E4 Y" \2 O& `; ^1 D+ lend
& D, p4 Q) o: p1 `可是运行时提示no such plot: "Totals"
& D- i$ b: {: ~) V0 Q% B9 C" w5 ]' k: ferror while observer running SET-CURRENT-PLOT
: A+ l1 E% @; S8 M  M6 s1 a8 z* R8 [3 @  called by procedure DO-PLOTS
- a; o) L# Y5 \' {, X  called by procedure SETUP( N( h  l/ U7 D4 @* a% Y: B# v
  called by 按钮 'setup'  X* W1 S/ [  @
求大神解答啊
发表于 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
! l1 _5 d/ l5 s- `& g) X- ^建一个叫做叫做Totals的绘图框就行了

( u) [- R. R9 {  k! s/ J; \哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-31 21:39 , Processed in 0.021364 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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