设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11519|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]& N& B" j* A- ?5 F
to setup
0 T( `% f- W/ Y) N  clear-all5 D9 m% g% x# J# v7 b/ W' G
  setup-patches
5 p* t7 ^) z+ a' O! }$ E  create-turtles 100
5 V7 y  D$ [6 e# d6 e! l  do-plots! W# T) D, n5 ^; J
  ask turtles [ setxy random-xcor random-ycor ]
$ c6 R; B7 L# g" g) iend/ V& i& O8 x) I* U8 v" m5 K
to go
% o1 E: `0 j( j5 H  move-turtles
6 t8 W( b' z3 K1 [9 F  eat-grass
8 h5 J! [0 g6 }5 V  reproduce
% s" Z  f7 K# {" n( G" ?3 [# w, ?" b  U  check-death
1 U" x$ f/ t4 N& |3 I, W$ Q/ v  regrow-grass. S0 M8 Y; l/ M9 ]3 m
  do-plots/ S5 M& i9 ]. }& \
end, S5 m/ J( a# T( ?- o8 s) m/ c. L+ J  D
to move-turtles
* L% ]( p2 \$ u% q" C  ask turtles [# l! o! o  A) H2 m
    right random 360
( k, z. n- R' m9 o    forward 1
- b; z3 w! }/ D6 R% j# n1 H8 i( O    set energy energy - 1  [( `) H) b6 _" F- N
    ]
' c$ Q/ R0 u  E- hend2 Z% o, x3 ~$ u3 @
to setup-patches8 w- Q% O) `' Z8 @
  ask patches [ set pcolor green ]; K+ {8 R# G% T9 r  U  Q
end$ [; o) u, }" R$ H) o
to setup-turtles
# |4 w5 V9 y+ Q, o* p/ G5 I8 v  create-turtles 1001 x/ F3 A, m% E1 l- Z* V, o+ C
  ask turtles [ setxy random-xcor random-ycor ]
; T2 c1 ^$ e) l- V4 E1 k. hend/ A3 F# l1 |! E* ^( h% a: x/ x/ I' [% V' `
to eat-grass
# L( M/ g) {. s% m$ K$ L  ask turtles [+ E' Q: l& P% Q5 j- C8 P$ W
    if pcolor = green [" B7 a/ f, P3 p! k: w' ?+ m* j
      set pcolor black
, m, D/ \/ Q9 L9 _, n      set energy (energy + 10)5 M7 Q5 h. S7 G5 c4 R* Q
      ]& j- S5 Z/ a% J8 q9 T$ Y6 Z
    ifelse show-energy?6 v: t! y' w( ~4 |: F; W
      [ set label energy ]
' @2 Q+ x! G$ {; B. e/ i      [ set label "" ]
1 y8 F3 X* W4 E- h: ^9 t) o4 }    ]
6 D& z, z. Z7 g3 jend( W7 K' C2 d- M$ e# u9 X
to reproduce
+ I) ^3 L# _5 V) U5 R  ask turtles [# `$ T! b) d2 j6 \' T
    if energy > 50 [
3 ]/ Y  P2 F4 J      set energy energy - 500 e: p0 @. A6 D; f" w
      hatch 1 [ set energy 50 ]
8 h2 t& T% X7 i9 Q! C& Y8 V  k      ]2 ~7 Z9 q) M7 y& P
    ]
8 j5 k, A. W, E' L  e/ l9 Aend
, x- U9 O2 g, L# B2 lto check-death
: z$ y; d3 i# U7 `+ s  ask turtles [
9 ], A* t& e! `$ X! w$ ]    if energy <= 0 [ die ]2 D* D- e% ], h4 m
    ]. s* p. e, M0 `' K) s
end0 s% t/ Q9 J+ h+ P) y! \7 c
to regrow-grass
4 G# O, u) j- u- K+ z# H: ?  ask patches [
- k: o9 R3 a1 b9 V+ D7 z9 q    if random 100 < 3 [ set pcolor green ]
; V( ^2 P7 F' u8 k    ]1 V: V4 T. R1 V4 M6 S6 a. j3 }
end, D" j$ `% G$ D, L7 b9 G
to do-plots. h9 z, x- U& R: \6 d5 g3 E2 W4 w
  set-current-plot "Totals"
' {/ m! y" ]6 c( i3 n  set-current-plot-pen "turtles"5 O( P6 q8 l6 ~/ U9 e2 I
  plot count turtles! J+ t- Z1 y4 A1 ]% p
  set-current-plot-pen "grass"7 a& t1 z6 _* ^1 ^1 [+ [
  plot count patches with [pcolor = green]
8 E# a0 |8 ]( o( Qend4 v- k, V3 P; I8 s' P
可是运行时提示no such plot: "Totals"( B8 t- J& C) Y4 r
error while observer running SET-CURRENT-PLOT
0 e9 }0 s) ~/ U. P0 ~1 D  called by procedure DO-PLOTS
! d8 m( B. V5 _! r: M  called by procedure SETUP
* @: c- a/ I$ j, F0 e/ U* X  called by 按钮 'setup'
: V# C; {& A$ T4 X* F& V& W" V1 T求大神解答啊
发表于 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
: H. b3 A9 [! ~建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-5 02:13 , Processed in 0.016012 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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