设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9384|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
- O5 u! u& ~7 m. Bto setup8 x! d/ h* x, U8 x7 E5 k
  clear-all+ T+ A# c1 r7 y; l! o3 U! H$ a7 j
  setup-patches
+ x0 i0 G# {, d( p: y+ b  create-turtles 100, R* {( X3 |2 @' i1 P1 D$ n
  do-plots' L, C; n9 @- P. |2 D4 B' K! ^
  ask turtles [ setxy random-xcor random-ycor ]
& y  C  n0 g% X9 G+ Qend1 |$ p, e  N- N7 E; W
to go
4 x# w, [4 s: N$ I  move-turtles/ x+ d: ^7 [1 t9 }& D4 e9 i
  eat-grass
) V1 E$ n3 ]% ~  reproduce
* e0 w& n) r* H5 m  check-death- p$ ], i0 v5 c7 Z; z3 ^
  regrow-grass
7 G( t/ |- K3 F4 H' u  do-plots
9 n! k' I: d/ V1 G+ ?2 Hend0 _% U  ~% w" E! ~: U! o
to move-turtles
" K2 I: v+ g0 d( v  ask turtles [$ ~$ s' L1 w$ B; v( W7 I- f7 x
    right random 360$ ]# A) Y7 }5 E+ S4 i. [( c
    forward 1
% o0 v' P! T8 h- V% l3 h; r2 N) V    set energy energy - 1
* Q1 M3 ]; \. \, d% [% n5 B    ]
% j& K/ t; t% tend
- @, \3 I) p5 L9 Dto setup-patches
9 M' s! s3 c( k0 C/ `% g  ask patches [ set pcolor green ]
( Q- W# L  F, }: ?" T( O3 qend
/ d+ |  Q2 n2 s9 o4 [5 Tto setup-turtles
( k2 G  x! @- U/ F$ D  create-turtles 1006 T& R6 ~& W) V( c' R' {; E
  ask turtles [ setxy random-xcor random-ycor ]
1 ~+ G! [. r! X, nend6 u* x8 R0 W; R, ]" d" g
to eat-grass
' b1 X: i' e% |+ I% T  ask turtles [
9 @( G6 B3 ^( ~8 `) h! E4 x    if pcolor = green [
) x0 a1 J6 L  g9 |; e: r      set pcolor black, h# M7 K0 w2 v+ K* x: k
      set energy (energy + 10)% C, p  H: `) s2 l5 S
      ]
, w" l/ }7 q+ c' P    ifelse show-energy?
0 w# H: Y. r* B# ^$ J      [ set label energy ]  X6 F/ ~; b, W% m
      [ set label "" ]6 k4 R# S9 }6 f8 E3 @  g
    ]
0 Q  K9 l4 U) ~. G7 |4 Zend+ @3 |1 i! p/ z, T
to reproduce
0 \6 Y' B  S3 u0 P5 ]  ask turtles [
. W% g$ z; v7 M  m    if energy > 50 [4 C! K; \$ |3 T4 \# |
      set energy energy - 50; K0 X+ S0 A: t1 w* S
      hatch 1 [ set energy 50 ]+ w. i0 {  V) a6 u7 D" B$ T
      ]
: x% G8 D5 b' y5 {    ]8 I1 J# d8 h: `) H4 {; M# S. }
end) s$ m% e6 @' t% O- S$ E
to check-death: P4 l7 c; V% Q9 \; z% z% M
  ask turtles [9 |7 \4 Z" r4 I& C8 ?- e
    if energy <= 0 [ die ]
5 N9 p( }3 [2 T+ E7 m, D/ q2 J    ]
6 m" p: w, O7 Pend
, M  v: g1 W$ I* U8 ?- ?1 }to regrow-grass2 v1 j$ q, m5 C+ {: [$ K# t
  ask patches [7 q* i) l' r# V
    if random 100 < 3 [ set pcolor green ]
$ g+ p# F; z% }+ U$ w    ]# ?+ L8 Q* m2 b7 x- G3 Q1 Y
end
' l& A& V- ]* x) b; R" k1 Zto do-plots$ j6 [3 x8 \; a4 C  R
  set-current-plot "Totals"5 ^, Y( b5 W2 F, l& O9 _/ ~- A$ m
  set-current-plot-pen "turtles"
1 Q( |; A; z% y# l& V$ j2 b# n  plot count turtles* |4 X1 s4 Q6 y; M, m' F: c
  set-current-plot-pen "grass"
& G# z9 c$ _4 v( S& t2 |* j* q  plot count patches with [pcolor = green]0 {, |- `7 I) D
end& [+ y" u- ~- h/ d, U
可是运行时提示no such plot: "Totals"( \$ P' \+ H% o4 N' v9 O
error while observer running SET-CURRENT-PLOT! r! e. A) Z2 ~2 [
  called by procedure DO-PLOTS2 R& x3 X  s$ O$ K+ z7 H
  called by procedure SETUP+ |  J1 Q. O/ I7 G, e
  called by 按钮 'setup'& w' b/ d1 F, O5 v
求大神解答啊
发表于 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 |3 B* [. i( r$ l  M, O  h
建一个叫做叫做Totals的绘图框就行了

# e* i' u' |+ B6 P! ^8 J; t( K% [6 F哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-12-12 16:58 , Processed in 0.019034 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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