设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10199|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
: v$ k+ G( I7 L4 E9 ~3 j( R! zto setup
' h+ {8 N( {+ D* |  clear-all) z" ^% d3 C0 Y1 n9 L/ ?' Z
  setup-patches
3 v; F1 z- S, J: e7 [. z  create-turtles 100
7 f7 g- K9 c2 i/ B! v: P  do-plots
7 p, V/ J6 s. h$ U6 T  ask turtles [ setxy random-xcor random-ycor ]! O- s( p5 h# e3 N/ n; i1 I
end5 t( e# s2 a6 Q3 @$ I4 _2 [7 F
to go
' |- _' a1 B" p  A' C2 [% e  move-turtles2 D, m8 S" S" W6 b; E
  eat-grass
, }2 V& Z. A+ B- N: O. Q  C" Y  reproduce
) [" |0 Q# T" d, N$ F! H4 O  check-death
$ \) m" }- D. B8 X  regrow-grass
1 [6 D; r  x) S9 y  do-plots
6 p7 A3 u, U% h, p' m8 I/ mend
! J  F$ `% R8 r3 v9 {" S' P" Kto move-turtles
8 B3 O' V! G7 W7 [5 m  ask turtles [
9 i3 x- C$ d7 J; y; B    right random 360
& h  D( M4 p3 ~5 z    forward 1. j4 T# i1 |6 Y! e
    set energy energy - 1
. v) e5 C  k0 C" v# k* b0 L    ]
, B! f1 o3 g0 [8 u0 |4 cend
' q% T0 W" ^  D4 e) ~6 Fto setup-patches0 A& P6 E6 \7 ?% \; n
  ask patches [ set pcolor green ]
+ y2 ^1 o- I" V) S1 t/ K7 ^* Rend
6 B, u- K! q5 j. _to setup-turtles
' Q7 I! U) [/ j6 p  create-turtles 100# i7 K7 j  @$ H5 ?. }. O. ?4 x
  ask turtles [ setxy random-xcor random-ycor ]( B6 h" V+ t5 k" ^2 c" A9 U
end
, S" f! L$ R3 d; xto eat-grass; J( P* |7 b  X. I' P; l( t
  ask turtles [2 a% M+ F4 b3 V+ J9 J
    if pcolor = green [7 e! U  n' r& y) z3 v
      set pcolor black
  b$ e; P1 m  r& y# Z0 a) o      set energy (energy + 10)
( ^5 R6 L, q5 K      ]
, I& K+ B$ J) d- \) H& n    ifelse show-energy?
' H* d6 w# s4 i8 D' f0 }  ^      [ set label energy ]
8 u; V; Z0 q/ W4 Z& j0 F0 A$ _      [ set label "" ]
) N1 `' L; |8 Q& N. w3 B5 V2 W7 E    ]5 x6 i6 m" i  J( B) y, m! S
end
0 {# L% ^5 a8 I: jto reproduce# O$ N2 I8 x, c5 r- D* b
  ask turtles [
2 ~0 j4 g1 t+ c& ~    if energy > 50 [' u- v. S6 J! ?0 u9 W$ C8 r
      set energy energy - 50
0 h  ~0 Y( B2 X% [, `      hatch 1 [ set energy 50 ]6 D! p, O5 G  R6 ~
      ]
8 ^2 c* g! y% ^* @! R9 q    ]
1 e6 x/ Q& g# ]: F* u: }end
: o6 @  h& a8 }/ P8 wto check-death
: U" V' i& C5 L3 S5 f. J  @  ask turtles [6 S1 o% \9 e+ n
    if energy <= 0 [ die ]
/ F# R* u1 T# I& c6 O/ ]6 b& V/ |* f    ]* z' s' S, E9 X% H' p5 v
end* i6 u7 q( C  G
to regrow-grass" l2 D6 `6 H  e" t- r  q% S& y
  ask patches [0 \! D$ C" q/ V
    if random 100 < 3 [ set pcolor green ]: f1 I% h% D) i* X4 s
    ], e, \' Z! ^7 S. E- c
end7 ~; j% W- ]" u% ^" s. j
to do-plots0 ^7 V8 i7 R1 @: N2 q$ m0 ~' u
  set-current-plot "Totals"- W( ~, {* c5 }% M* `
  set-current-plot-pen "turtles"4 L5 L$ p3 A, C7 v5 {/ e
  plot count turtles
) N7 w' X2 b* B  set-current-plot-pen "grass"
7 ~5 a7 H/ c2 _: r' g! _, V  plot count patches with [pcolor = green]
6 D3 o+ B% N- r- @( E* i! ^& Zend* f' `9 H6 H( H9 _0 h  N% N* w
可是运行时提示no such plot: "Totals"
3 y9 E5 W) g4 E, @error while observer running SET-CURRENT-PLOT, ]! C( y- ~& Z6 B/ S$ j0 B, z% M/ O
  called by procedure DO-PLOTS
; ?& `3 G$ P  {, c4 I  called by procedure SETUP# ]: U5 G8 C9 S: j6 w
  called by 按钮 'setup'
$ R/ ^. R% R5 P1 g- s' n! 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 ) f5 I& h9 u/ r' f5 |1 L7 E$ Y
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-22 21:16 , Processed in 0.019969 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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