设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12333|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
# F1 x* t- `5 @: t$ P5 Fto setup6 ?& b$ w8 ?8 [6 |
  clear-all) G# r, ]$ k& j6 W- `
  setup-patches
% Y: S8 e; o8 M$ T+ @' ~' g% f/ m. P, x  create-turtles 100$ {5 Z" y1 N8 u. f/ ^
  do-plots% w% K4 p/ ?# d2 C1 D
  ask turtles [ setxy random-xcor random-ycor ]4 l6 ^3 o; ^4 ?
end# x+ b4 p- a0 K
to go
. `6 E7 O4 Y& Z( i0 {  move-turtles
1 E8 ]$ }% Z: f/ b  eat-grass
: a" K7 s) W% W6 ~2 O  reproduce
) I4 q6 ^) q+ P0 D9 |* o; U  check-death
. D' [7 r9 G& e7 m/ k  regrow-grass) Q) m, A( g, n. T" r7 t; `/ I
  do-plots& L9 z9 q8 A* Y7 I5 M
end+ B* Z% Z- D% q0 e. Y
to move-turtles
. f6 y# Y) V1 I! a  ask turtles [1 S/ D7 B: K; y6 g
    right random 360" t; c; w( ~5 a9 W/ I7 o& ~% {; F
    forward 18 p& b9 Q' O; w8 P5 B
    set energy energy - 1# Z! m2 J! ]4 q! A: C2 |6 A0 a& }
    ]
: y5 n; |! m7 vend. L& s+ i+ \& X! S5 v8 y
to setup-patches
: r: {' K' h7 F+ i. C! }9 o  ask patches [ set pcolor green ]
/ X% t: A3 C' J* Eend, ?2 Q6 M5 k0 U4 D
to setup-turtles
" w5 H  J1 m6 t+ T1 Q/ i& J  create-turtles 100. ?# U+ n0 _$ l; }1 a+ p7 L7 U
  ask turtles [ setxy random-xcor random-ycor ]; V' t8 U! H. B0 z* h2 I
end
1 k( q4 t5 _  K/ T+ B( w9 O5 T3 cto eat-grass" Q( S4 ~4 ~. D1 j2 C3 J, b
  ask turtles [
: o1 R( Y$ Q2 _0 s8 F    if pcolor = green [0 h0 Q% y) H- d" t
      set pcolor black2 ~+ L% m/ q; ~
      set energy (energy + 10)& t& B4 k+ H$ M7 N! f
      ]+ w' m4 @; r* P" r0 ], z
    ifelse show-energy?
' n+ ~" o. C9 L# N7 z& u" N      [ set label energy ]- m' y3 @0 t2 S% e/ V3 v' z- }
      [ set label "" ]
. Z$ X* {% M# v% y1 p" d6 _% ]    ]) S, Z& W: s$ |# e/ z8 e1 R
end
1 w8 a8 a: V3 P$ j8 E( Wto reproduce7 s4 F3 U) ~, P  U; I3 P# \* Q% a
  ask turtles [
2 Y  [* ~8 J" v. a8 k2 N5 I    if energy > 50 [& A$ r' g2 n0 Y$ p& T) F
      set energy energy - 50
; x) Q% d( l2 F      hatch 1 [ set energy 50 ]$ E) [* c. f% Z+ H7 r, q  a; I
      ]
& \- v2 F! c' V0 r2 s" C8 G    ]
$ ~. m2 B" m( j6 ^" ]* A  Uend
& X8 P; E6 w# rto check-death
9 L* x, w) `- U+ T  ask turtles [
" x" f, y) b4 h7 b( x    if energy <= 0 [ die ]
: ?* e, _  Z# z. H8 G2 x  h    ], h% b' U2 U/ A, a0 D/ t6 p& Z% x
end1 k7 i: M+ g) W0 i" [
to regrow-grass
' a% }4 h3 Q2 V# C! {  ask patches [/ f: d3 s  i0 z
    if random 100 < 3 [ set pcolor green ]! @+ b- M! ]3 W. R3 p4 {" [
    ]
4 U, {/ |1 W1 k' M8 iend1 j0 J+ A+ V" ?" l
to do-plots, y, V; L' Y6 E& N4 {4 N
  set-current-plot "Totals"0 k3 O! e& E7 D* `
  set-current-plot-pen "turtles"
4 _! z+ X5 K- K; q( v4 c  plot count turtles% z# L/ k, O  U8 S( J5 v/ J6 q
  set-current-plot-pen "grass"- g+ {+ h/ g% U. Z. k
  plot count patches with [pcolor = green]- b9 T# f+ N# J/ i" l
end
, C1 M% E+ C6 G: k  p可是运行时提示no such plot: "Totals"6 B. c; H  f$ c/ B
error while observer running SET-CURRENT-PLOT* @9 r/ F1 ~2 J. L7 _5 y% N
  called by procedure DO-PLOTS
' d- v: }; W2 d! [* a" @  called by procedure SETUP* Q7 {8 c6 P' c6 v7 r6 d9 W& j
  called by 按钮 'setup'
+ ^) h6 L3 |+ F) H求大神解答啊
发表于 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
0 \# f0 R7 z* Q' U建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-8-11 00:37 , Processed in 0.025942 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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