设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12557|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
" K) Y' K8 G( `, b1 d+ j4 Xto setup( |* O4 c  {7 r( w7 O0 r' P# j$ o8 M) m
  clear-all3 R- ]' ]& H1 [
  setup-patches; s3 L/ @' A% F" z$ n
  create-turtles 100( ?* W( Y! w# Y. v+ K9 h
  do-plots
3 G1 b( A$ v/ Y$ B- F; ]* P6 k  ask turtles [ setxy random-xcor random-ycor ]% J; |8 u2 G% W2 b7 c% J2 d8 q
end( W4 [6 v, i1 k( V2 }+ c2 u
to go
- Q4 \' b" x2 G3 b$ I8 N$ ~9 v  move-turtles# i1 S( C" m! f# x, p
  eat-grass$ Z) J3 N8 {% b4 w
  reproduce
& K. o- U$ m* [0 n7 Z6 ~  check-death  [8 G6 [2 H* ~7 B7 x2 N4 [9 p
  regrow-grass
. t/ @" e6 N3 c7 E  T  do-plots
8 x& l# n8 a- Eend/ @  O$ `6 E  P9 A6 z$ T
to move-turtles/ F, A# u  N/ h& @2 x1 g7 ^2 J
  ask turtles [
- K7 Z/ f7 S8 x$ I1 N9 q    right random 360
/ X+ j0 Q, N: C* Y. \8 n( F9 t    forward 1: O( a& t+ j( j" H3 _. d$ \
    set energy energy - 15 X* t. J: H+ Q  `) O- u" N
    ]
" F* c) H. {. S& Y5 Pend
3 L* L# W9 y7 ]  R- y# Y: o: Cto setup-patches
( }0 S5 X# l8 C1 \% l; b. U  ask patches [ set pcolor green ]
' {2 d) E  p. Y7 Pend& d* P/ e; w% _4 ]" |7 C
to setup-turtles% d# Q. b0 l+ U+ K, h! L
  create-turtles 100
, N7 }; h$ B2 x+ `: L. u  ask turtles [ setxy random-xcor random-ycor ]9 C! ^- @% k# @
end
) E0 J( U' U  \& A9 n  C3 ito eat-grass2 H% z" O4 T. m+ @# |, N2 P1 ^; @8 ?
  ask turtles [+ r" v+ `3 K6 Q* u
    if pcolor = green [
$ `) R1 R2 D2 \4 Q: x* W  [      set pcolor black
, z: E, B6 s& L7 Z0 y7 A) z      set energy (energy + 10)3 w' t# Y8 N, n% Z: S
      ]
" G9 I- S" v0 H# ^. d: z* E5 ?# t    ifelse show-energy?3 X6 M2 I! j& T8 Z) h
      [ set label energy ]
' R8 j9 T0 |, N* S5 q% O* \7 v      [ set label "" ]% I- P$ g# d# ?( p
    ]0 a" X& I. e& h$ c  Q
end, a1 e; U3 E4 [5 Y
to reproduce" m) {$ v( z3 C* ^" E) B
  ask turtles [* j0 n4 ~) t% |* |/ T/ j0 M
    if energy > 50 [
: T- Z( e3 w  w      set energy energy - 50
1 ]1 b1 y6 t7 s4 E( N7 I8 X      hatch 1 [ set energy 50 ]
1 U3 N' }% {' m* ^# C, N( }2 }# `      ]
5 K6 {# }$ R' w. m3 y/ X+ V    ]
9 s, Q: }1 Z! h6 send
/ n8 H8 C9 q8 p! y" f3 x  u' Sto check-death
% A5 H# ^6 o+ G$ m6 H& W, H3 h( h  ask turtles [3 [/ w9 z, U$ M8 U5 z: a
    if energy <= 0 [ die ]
4 S, b: ^, J( a* K+ S0 Q    ]
6 ?% R7 A6 J: E" Q/ J3 F& Iend
. M' r7 Y  X, B6 C! Y; \6 cto regrow-grass3 u, z; O4 ?* K4 c! ?7 J; p. t
  ask patches [  c( |2 ^- ^7 E6 \
    if random 100 < 3 [ set pcolor green ]
; J: ]2 K: m1 J5 N5 O0 m    ]& j' q2 }# [9 m
end
4 A2 B/ |. Z# i5 |, l$ b* Nto do-plots: [+ W" J: N2 B/ e2 r$ @
  set-current-plot "Totals"2 G' L& i6 t) o
  set-current-plot-pen "turtles"2 s9 J. r0 y- ~  C0 E0 Z2 Q% C9 s
  plot count turtles5 Q; w+ }* b) @6 [# E
  set-current-plot-pen "grass"
% Y" [- X# e" J& Y  c6 I  plot count patches with [pcolor = green], O" g" D8 r" M3 H! P5 L0 R! F- [6 }
end
) O+ ]3 e" f0 P可是运行时提示no such plot: "Totals"
9 @" [2 K+ ~. O. Y3 }error while observer running SET-CURRENT-PLOT
- H8 x/ O- v( [( h3 r* @& r8 J7 C  called by procedure DO-PLOTS; U9 F. L: ^8 \, R6 O5 Z/ V
  called by procedure SETUP$ a* F  g+ Q, p4 X, l9 }
  called by 按钮 'setup'
$ s7 X/ E$ \  z6 w求大神解答啊
发表于 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
1 H- z# q9 k- j$ @4 u) ]建一个叫做叫做Totals的绘图框就行了
( c6 v1 k  J* R
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-31 18:48 , Processed in 0.017263 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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