设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12249|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]3 ]0 E) ]# k9 T* O. k' c$ \
to setup
% b' Y# J- i# J$ N" D5 x, F1 {- G  clear-all5 ?" ?, {8 V3 d: s- }# T
  setup-patches: v; G2 ~$ P. C% d/ y$ O: S3 [3 a
  create-turtles 100
. o4 H, S% @3 {1 H& \) k  do-plots; {: V$ h  x* E8 l- D7 \1 E
  ask turtles [ setxy random-xcor random-ycor ]+ v' U* b0 d* z$ H2 v. M
end2 V8 k4 L# i4 n6 x. S  T" v. _7 Z
to go
& ?9 s& U# y9 f1 s. a# T0 t  move-turtles: P( ~, k' g' O1 N! W, I% X, h5 q/ H
  eat-grass
* Z5 q2 m5 X7 j1 D  a6 R  reproduce
& l3 T- B; P) y% f+ s9 q  check-death
7 R' }# R1 }, p% O4 t& p: q  regrow-grass/ o7 {5 \5 {- u" t3 t
  do-plots
9 _6 V; V* {; U; bend! n% M8 V: p' @3 t3 ]4 {& r3 @# K
to move-turtles
0 K* D- Y# \5 @0 V0 k/ e; f  ask turtles [
0 M+ ^% }& W7 E& k: A* K5 p    right random 360
! l; i- e/ d' l5 [8 C    forward 1
( J2 }% _. Z3 J& a    set energy energy - 1! ?9 l5 }0 S. n
    ]
2 H$ }& v! e$ {, L+ f& z. ]end
" H% |4 ~& D5 M$ ?& A% L2 Dto setup-patches5 w* [* g" c$ y. V7 R6 F
  ask patches [ set pcolor green ]
. c4 t) I2 Q2 Y/ Qend
* @. I+ ^. D0 w' Z! S: g5 ~! ato setup-turtles6 r# x, d# p! V! j
  create-turtles 1005 w4 @  z' b5 O* c0 J4 S+ ?7 @
  ask turtles [ setxy random-xcor random-ycor ]
4 j0 e! }7 \$ g% o8 L  s* [  c2 w7 Pend: h% _& I' t) T5 x
to eat-grass, j) q" @8 m- {  v2 J1 O+ w! n
  ask turtles [1 {& s6 Z, e  K" f* @" [
    if pcolor = green [) R! a. e0 G0 S( O$ C% O9 v
      set pcolor black2 Y% _  ]: I5 [/ c' D6 x8 y
      set energy (energy + 10)3 H0 w# J  u5 I( z) [5 o
      ]
, g* b- h7 j* u; [/ ?* q+ G9 Y    ifelse show-energy?
5 B8 G  c6 U" `5 F% X' L: |      [ set label energy ]
& L0 v) O) c  n( J6 B      [ set label "" ]/ C4 n' ~% ^; F" H5 W2 P5 a7 Z" E  t
    ]
. @) U1 P4 z) f% A  r" w" c; m' x5 Qend
2 }/ L5 |: I4 _& j& oto reproduce+ K( X" P' d+ i  y
  ask turtles [
; a3 _: d; ~+ X9 L* H    if energy > 50 [
+ x; q) s; L% u, w      set energy energy - 506 L# g0 ]6 F! m' _8 B
      hatch 1 [ set energy 50 ]
+ D4 Y  Y& z/ u6 l) \1 I# Q( S+ y      ]
6 d! h9 e; m% w* W- \( y8 _) ^* Y3 Y    ]/ [! l2 ]3 Z: G$ ?' Z
end% a" _9 ~5 E2 D+ T9 ?; g, E+ |
to check-death
- H; T5 J/ C6 z: Y8 h8 }' j  ask turtles [8 i% X) J3 Y& @  ~3 y" u4 q/ K8 c
    if energy <= 0 [ die ]! ?% ]# X$ m! W7 }" ^# h# r
    ]
* ]! E7 m( o* u( {2 r% G$ p' Oend
7 ^3 K: T2 t8 b# h6 ^! y3 ?3 n/ lto regrow-grass
0 W4 }6 c/ j# R* ~4 H  ask patches [* M! A0 d$ }8 t, _1 F3 r9 V
    if random 100 < 3 [ set pcolor green ]
8 j4 _9 G4 P7 o/ s    ], e' k+ h4 {: N: K/ o, M
end' @) `# S" `* B# _
to do-plots; r: d4 _2 H; ~% {% E
  set-current-plot "Totals"7 r6 S6 y6 F% d- A" m  n: {
  set-current-plot-pen "turtles". E: p, q  o& D
  plot count turtles
; b- j! a& ]0 O/ w- p) X  set-current-plot-pen "grass"
% H  A& i0 W1 l% E% Q7 t  plot count patches with [pcolor = green]
# X/ ~4 n8 l: `end
2 a, n* N* f- T! j5 C可是运行时提示no such plot: "Totals"8 Z& O6 i+ q2 ], p8 ?$ {9 J
error while observer running SET-CURRENT-PLOT
, {+ g) B3 M, c  called by procedure DO-PLOTS
% }/ A3 E/ x- |- P, K( E0 l8 E  called by procedure SETUP
* H7 l7 S1 e5 g, E0 Y# J  called by 按钮 'setup'
" A8 {8 J& w5 r; H' K5 i求大神解答啊
发表于 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
: U( K# w7 m" u+ F5 Q建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-8-4 20:18 , Processed in 0.015644 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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