设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10886|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
/ C; n2 E) ?1 o1 A; @! g2 Yto setup
7 ^2 y/ b+ U6 M; {( @$ P  clear-all  c% @# [, R* ?: q* R+ E* ?: m0 Y
  setup-patches
; W; P5 y; s. D% O  create-turtles 1004 n6 y7 c' N8 U. Q6 h+ F
  do-plots$ [) z- [  U. \+ R2 y+ j
  ask turtles [ setxy random-xcor random-ycor ]2 f" L  o" J) V/ y; W" ~
end
' u! l- E5 O/ f% r9 Yto go
# L9 X5 `' E. |' V$ s  move-turtles5 U; i; R  |( G4 r; F5 q+ ?* A
  eat-grass
+ P3 c* Z& y( ?7 w! k  reproduce
5 D: d4 t5 [8 e0 G  check-death9 f, Z% |$ B9 w. W. e1 i: F# a
  regrow-grass
0 w0 }% C, t; v  T. b  do-plots
/ T9 n3 \, x% T- dend
. N6 m1 h, ^* A+ X+ kto move-turtles
  e+ ?8 f$ M% k& ~! H* Z  ask turtles [
( t+ N( {" d1 [7 k# j    right random 360
6 w: D4 C  T4 [/ m7 d* Q& ]7 T    forward 10 H+ N! w* o. F7 H
    set energy energy - 1
# ]* y4 n. Q; V+ t8 w( n+ h9 s    ]* I6 l$ c+ ~: d1 q+ h4 h3 C; |
end
! _- }& I6 y2 y  t# Sto setup-patches3 ]+ j9 b: `; O: E: l
  ask patches [ set pcolor green ]
% a: S8 }. P* l7 ~; \! eend
1 }2 J$ L" ?, p/ G7 ~1 p, pto setup-turtles
2 C. j, ^4 `8 K' }. |1 @' f3 v  create-turtles 100; P4 P: j% N3 M; J: j! L
  ask turtles [ setxy random-xcor random-ycor ]
( \2 f0 I' v, a, a% v6 K- bend& p0 S* D' ?! I9 a; J. N
to eat-grass- P. ?! \/ B: w
  ask turtles [! O2 o- j( ~4 X' m2 \2 N
    if pcolor = green [
5 T# \% t% L7 E      set pcolor black* l9 c: J% _! Y0 a. k) z: M0 M- |
      set energy (energy + 10)
4 J4 V& i% U, q) i8 [1 l7 o8 n  _      ]
& g' v  ~' k6 Z4 q. y# N9 V: {    ifelse show-energy?
5 v9 d; Z+ ^. X: l8 i/ T1 V3 \      [ set label energy ]& L# H, y0 ]; e
      [ set label "" ]7 J2 n2 F& ^6 j
    ]) p; m( |5 W- i3 O
end2 d% |9 k' \) R2 R! n2 ^3 E$ s2 x
to reproduce
! n% ?+ N. {3 y  w, _+ _) ^  ask turtles [9 K! l' e5 \# @" }. `4 r% a1 ~4 z
    if energy > 50 [7 k% D, `1 O% H) Z+ w
      set energy energy - 50  I& e9 t+ r# ^
      hatch 1 [ set energy 50 ]
7 ?  G1 n0 }9 p$ l( Y, ~8 |0 B- q3 z      ]  W- {0 w8 Q: F
    ]
0 t0 t9 H5 h; m# X. C: Y: Iend/ t' a9 |) s+ g9 J
to check-death) b) V* @. Z9 f7 y. ~+ E, x# ?/ F
  ask turtles [
; v2 L6 M, c2 {    if energy <= 0 [ die ]
- C! @6 Q8 f+ `8 R  R  Q    ]1 N% G& {! q8 @5 i9 o
end( K: G) V3 g) w
to regrow-grass
+ Y% B. N2 M4 l) B' X% E/ s: ]  ask patches [
! Z) {0 ]: M( y% v5 ?- x. R8 J    if random 100 < 3 [ set pcolor green ]/ h: l; g% }! W7 m% A8 l6 S5 K
    ]
" @" y- y2 s* v  v( t8 x9 R* Uend
! V' Z7 Q* {. i: c+ n. e9 y6 M! d% Oto do-plots
, a4 ~6 `* y) S' w+ p  set-current-plot "Totals", ~+ }& w5 j3 ^2 h. ?4 X
  set-current-plot-pen "turtles"- E9 T  z) g8 V% W8 A- z" f6 r
  plot count turtles
5 ~8 [7 N. D( W% k( |  set-current-plot-pen "grass"
2 F* K) S6 ]9 @5 d# q1 X. L) m  plot count patches with [pcolor = green]1 G$ x, W3 t2 |9 f3 w& b
end& L$ w; G) v8 \; A
可是运行时提示no such plot: "Totals"3 h8 X% Z' U* j: s( q1 L5 t9 u
error while observer running SET-CURRENT-PLOT
5 R- W: G% r0 V6 j* e0 ^7 t  g  called by procedure DO-PLOTS& f& _) ^2 `% i2 N7 D9 C
  called by procedure SETUP
: {( W/ s3 |9 `  called by 按钮 'setup'
, A7 D8 T; v, b1 F% s- m% ~1 V$ n5 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 4 d; b1 g* t; M3 W$ ^# ]
建一个叫做叫做Totals的绘图框就行了
- O4 d7 a$ N0 n" S1 D! P
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-18 06:50 , Processed in 0.023774 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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