设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10775|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
) H$ e8 [9 E% w# H% U! ito setup
- o% |- s- d7 O% ]* v  clear-all. H! H' [& {# [/ B2 O$ m
  setup-patches/ l" N1 e6 D9 o$ Q# S. j
  create-turtles 100, ?$ _: f8 D, B7 L9 n
  do-plots
$ b& U" B  Z: L4 h$ D  ask turtles [ setxy random-xcor random-ycor ]. s. |! A2 O/ X( v8 B0 }# c
end1 G3 h* T% M3 l3 m* G
to go, z3 M2 q* K  O( o. R* n! e
  move-turtles
& X" g9 P- Z# @* F" F  eat-grass; b3 [7 F; Q- N' K! z6 x( p
  reproduce
1 O& S0 S4 c6 n. f; `; f. h  check-death
8 c2 ~& x" O2 t5 C1 i  regrow-grass
7 f% W7 u1 {/ V. ?& M- y/ I  do-plots5 T- w# g' {" `1 w( V  K2 |
end
6 O9 n9 T" p7 ~" |4 u7 cto move-turtles
& E  s6 Q4 X9 |- u7 u0 _4 E  ask turtles [% e  _( j( a3 p5 o
    right random 360
3 F) O2 E: C( F) `, w: n4 @) t" l2 N    forward 1/ _* T! g8 y+ C3 Q6 ?- |% c( B
    set energy energy - 1. `- n" X( s5 f1 m* v9 f
    ]
2 {+ M$ L8 o6 u0 Jend
/ [8 j1 K. i+ ]1 Oto setup-patches  L+ Q# m3 t5 y. `; ]
  ask patches [ set pcolor green ]7 m% r) L' ^& m' R$ k* |
end
- Y) P9 w& i' |9 ~$ |; Hto setup-turtles1 K4 ^. }- b4 @, H, Q" A9 f* p1 a2 x
  create-turtles 100
. I) E/ F. i  z( m/ x" Q  ask turtles [ setxy random-xcor random-ycor ]8 n& _" D1 a9 G6 @( T7 I2 Y( k
end
3 V6 T" e$ H# c% }' A- I0 bto eat-grass* v$ K0 ^) H! R; b
  ask turtles [
4 P$ j8 ^6 x. @& }. w' W) E    if pcolor = green [
0 U" U5 @& E* L      set pcolor black6 k$ L  @' @+ ?& r7 T
      set energy (energy + 10)
" E! t8 ^7 h0 r2 V) h5 Y0 B      ]$ C9 P" z' {  v5 u% a1 L
    ifelse show-energy?+ b' u) y) f$ I9 J
      [ set label energy ]+ g, U6 o9 z( y, Q" x! B* t
      [ set label "" ]
; ]3 n& ?: n3 W0 n0 o    ]+ F8 u. l7 E( k9 m! w) u7 m0 y
end
3 j' Y- v3 d' Oto reproduce
4 ?) j. N6 F3 ~5 K. d" D  ask turtles [
# L% |% P; m2 U/ ^7 y0 e    if energy > 50 [' a0 n' S% t. \, {9 ~, f
      set energy energy - 50
$ q/ N9 v! l0 N: S9 k0 u7 g      hatch 1 [ set energy 50 ]# j& b$ c) G. M2 }6 D: K7 T, v
      ]& ?1 V: m9 o4 p; ~1 L
    ]
" l( ?. \3 F8 P  J4 Gend
: q' j- _  E6 ~" a$ Ito check-death
( Y3 N0 F, Z' w# w2 v  ask turtles [
; `: i" ^# Q% X2 ~6 M    if energy <= 0 [ die ]
) {8 x" U% h1 h$ O+ v6 K4 z    ]
& E1 ]" `/ e& d9 U$ xend9 _+ Z  x* ]( p' F* }
to regrow-grass  G+ X% N. I; e$ D& W0 j9 q7 T' U) {
  ask patches [
9 }8 E8 K' X/ b4 v, v    if random 100 < 3 [ set pcolor green ]' R- W( _; B1 G4 k  n
    ]
- [; I! s* |" O5 v& y" C  z% Hend
6 t/ ^& p  r) q% D" G2 K9 Hto do-plots6 b4 j0 w. s  P' V+ l5 \1 v) e  b
  set-current-plot "Totals". j9 D1 y$ h" U0 t
  set-current-plot-pen "turtles"4 z% D" d6 s4 m# Z6 H" S  O
  plot count turtles  e. t0 l) L) }8 y9 E+ L8 \! s
  set-current-plot-pen "grass"8 m& U3 |  s& ]+ n8 i  b
  plot count patches with [pcolor = green]
$ i! l/ K6 B& a8 U# ]end! Z! X6 c; x" J5 h7 n8 ?; E0 S
可是运行时提示no such plot: "Totals"8 X. N9 s1 I* n2 z. B
error while observer running SET-CURRENT-PLOT
7 X& P5 Y6 L4 A* k' R  called by procedure DO-PLOTS% S; c& U- [3 ]6 v6 {3 G
  called by procedure SETUP
2 F4 R+ n, ]! D( |9 e9 M' g+ r  called by 按钮 'setup'" X9 {' f8 i7 _" S" D: h  H3 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 , ^+ W! D5 C( E1 _, i; L5 c
建一个叫做叫做Totals的绘图框就行了
* v9 j* \; m# ?/ C% q+ c
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-10 11:44 , Processed in 0.020278 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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