设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12497|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
7 B% H! E4 f" O+ O0 ?7 }: I, hto setup
! @/ l2 ?: [% [, J+ }, D  clear-all
4 L  z8 {# l1 U1 k' L  setup-patches+ R. X5 R2 h. v4 E+ p' J4 x, r. g9 _
  create-turtles 100# M' W5 w  G" W# D! a. K  W  N: Z
  do-plots1 b+ D% Q0 c- C4 Q
  ask turtles [ setxy random-xcor random-ycor ]
8 v% j/ F0 t9 R6 y# Cend1 Y! N" i$ l! o* o# v
to go
* `- D$ ]/ C1 M- U; u0 P  move-turtles" {5 g& ~1 `) P- J5 F) m% G* E6 {
  eat-grass
: |* `$ |% \8 o  reproduce2 }% |$ E# B8 v
  check-death! z: n) @, D# x
  regrow-grass
! V( g8 z. a) d" f" u' v. M  do-plots
2 ^  B; [+ f  R, mend
3 Q, j% M9 G8 N9 pto move-turtles" ^6 n  A* ?$ Y1 w+ t: a# \% y
  ask turtles [" O$ ~# V: a8 @- c5 f6 L
    right random 360& v5 X! E; W# A* v+ \* z
    forward 1& o5 [* n( i8 k/ v8 D
    set energy energy - 1
- Y5 ^$ S/ n" n( q$ g% Y1 u6 P    ]
) J% @2 F, m: B" q" mend0 B1 C# u& p$ ^6 L
to setup-patches8 ~: c; K( F& i! x% E1 i5 Q
  ask patches [ set pcolor green ]
' D$ L, I. l  x, y+ G) a3 \2 U0 _end
. Z: o2 ^+ j) h$ Rto setup-turtles6 y/ M6 O$ j- R1 i6 d) V  F! p
  create-turtles 100
! S4 N( t& \: e2 Z- G  H  ask turtles [ setxy random-xcor random-ycor ]
# D  G5 |( g4 n/ f# nend  q* k& c  r( u  _- i
to eat-grass
0 S' \$ X3 E" r  e2 F  ask turtles [
- b. |5 w! ?1 x. {* C    if pcolor = green [
. O. N) m4 A" N* I, \      set pcolor black
  e, v6 G$ O6 s4 Y# P) r      set energy (energy + 10)5 F: f5 Z) M6 e1 H: {" z
      ]7 p% l% I6 P  M5 V6 h) s
    ifelse show-energy?7 y' j! V& J) Z/ Y( V
      [ set label energy ]
" ?! x5 f0 U, n; E! t      [ set label "" ]
% B4 R* ~' y( B) r& q- g    ]( @# [9 g: f" n: D2 o0 E. K
end/ k/ u8 t- A! C5 w) B
to reproduce
& g2 V$ q4 ?$ j8 ^  L6 @% u  ask turtles [
* z1 G& F/ M5 s; R    if energy > 50 [2 d. @! j! R* L; K+ z/ A
      set energy energy - 50
& G$ D% n/ l. c- H0 D      hatch 1 [ set energy 50 ]
; y4 @' i0 b# A  t1 X9 J" @      ]
5 V0 Z) M0 n" [  q! f9 h- p    ]7 x% L1 u; v6 e. v
end
3 `9 K1 I% B* t4 G# eto check-death' W: G- E( r' u" @! i
  ask turtles [
; y: E* Z5 I# u: {! E0 P+ Q    if energy <= 0 [ die ]
* p- Q4 v: {  J( ^. W% S    ]
( l; z# t9 x, ?: Aend
3 ^/ |7 ?3 @% U7 a( b2 J5 {3 Ito regrow-grass
! K& `0 Q/ e+ v" Z( k% S9 l$ J  ask patches [
4 @& r, A4 N% A; V) {7 ]; z    if random 100 < 3 [ set pcolor green ]
' {' `2 R) C0 l& z+ `    ]
. Z6 Y8 F3 w; `+ V& |$ G7 Lend
6 F+ z  T$ K3 Q4 Xto do-plots* f5 G7 c0 L/ J4 S' Z
  set-current-plot "Totals"
: G, T: e# O- C7 U4 N, s/ d  set-current-plot-pen "turtles"3 z7 _0 Z1 m$ `, Q" @% {: \: Y
  plot count turtles
% `6 Y. F) y; g& Q* `  set-current-plot-pen "grass"
0 l9 _) N3 i, y1 |/ ^  plot count patches with [pcolor = green]
5 ]# w1 c! \8 q/ V/ v- ^end
" A1 u0 K$ |! l( z6 R, a可是运行时提示no such plot: "Totals"# b) t1 f, k. p# S4 x
error while observer running SET-CURRENT-PLOT
' g! I3 B) ?6 d3 K  called by procedure DO-PLOTS
+ R/ X' u  a; h' z; c1 }  called by procedure SETUP* }% K2 `' v3 M  [( ?
  called by 按钮 'setup'5 g  e6 F+ D* ^
求大神解答啊
发表于 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 # i0 v& F8 }0 K) S
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-8-27 05:16 , Processed in 0.016577 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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