设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11132|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
; o( k$ p  e6 |& m1 z8 N. }to setup
) ~, j& Q) E0 l; O( }  clear-all! m& H7 ~0 O* T  J9 |2 K' u' A
  setup-patches
: |; a: M( B# l) N  create-turtles 100
. x( ?0 j. q- M0 v# D8 s  do-plots
7 o/ @5 h% a7 q2 p6 D4 C  ask turtles [ setxy random-xcor random-ycor ]
7 [, O3 @/ p5 e5 q3 Cend
# e0 Q2 U) K3 |& _" rto go8 _$ m4 ~8 e# S" P. K, n
  move-turtles; U) s) N) o1 m' p$ Y; B
  eat-grass/ x% \; z/ E4 g9 m/ C9 j) a* l, p
  reproduce" i: D9 w8 K3 V# Z( i/ P
  check-death# }8 O" m' V0 r  |
  regrow-grass
+ T2 f3 e4 ^' b  y1 L: j1 m  do-plots& w( c% K+ Z7 n. k' H
end6 [: P2 f1 u% K5 Y2 _& ?! n- u8 t
to move-turtles' x3 B! n$ Z& r8 r4 S
  ask turtles [. K( p- Q% k( I: w5 J4 ^
    right random 360
( e4 }; H' k1 k8 v0 m( D    forward 1
) S7 e1 E' i7 I6 G' R    set energy energy - 1
0 H6 L! c2 R; p7 ~" g& ?    ]
3 S3 u/ I' g- q' a$ Uend& R* `- r; Y# @/ r
to setup-patches# l1 @: b8 `/ c6 x- b
  ask patches [ set pcolor green ]8 d' ^  y) l6 K+ t
end/ W' N6 j* h% Z3 z  _- M
to setup-turtles7 X# x- ?, _7 U
  create-turtles 100% R) F6 x" K/ d* T8 A+ x7 V
  ask turtles [ setxy random-xcor random-ycor ]
/ J! i) N2 M8 qend
  f( g! q$ z9 r+ ]  k  rto eat-grass
- }2 N2 x3 Q) k9 W. @  _  ask turtles [% N, M0 B( v- c! n: m% l3 L* T. i! i
    if pcolor = green [& y$ F( {7 m3 _1 _' ^7 h
      set pcolor black7 ^& p/ P) q% C$ d. w
      set energy (energy + 10)
* Q" r1 f, O3 C9 M1 P      ]: u  S% Y& F. P- v
    ifelse show-energy?
( ]7 s# n; E; P) ?- r      [ set label energy ]: I/ N; A* \: U0 h" o$ Y4 X' ^# g
      [ set label "" ]/ A; ~/ T  G0 S2 e
    ]7 [3 \! \6 l# }1 L+ U
end
7 M" o$ `/ i/ [9 V" q) o' @3 H5 ^to reproduce& r9 Z+ t" b+ w8 \9 O4 P/ [
  ask turtles [
. V5 i4 e; |  G* E* A    if energy > 50 [# T- a6 X# s; S( R
      set energy energy - 507 e$ {* T! n0 [9 G# Z" |
      hatch 1 [ set energy 50 ]
8 o2 L6 _3 {9 h2 i" `7 j      ]; o) f  `: j+ v7 ^; J
    ]  a. G4 T3 u" H( }
end* {7 g" `0 g$ ?" y' E% x  \
to check-death2 k$ }( F3 u0 N+ g
  ask turtles [
, H5 X" g; F/ h5 f. A    if energy <= 0 [ die ]8 i" {& L! p4 G+ ^7 k
    ]8 s& j* z9 |) s* g0 M& \2 D
end
" q+ v+ N. ?+ B' D, \! N. Ito regrow-grass* {( a8 S  }6 L3 h
  ask patches [/ {9 ~; f8 C: ]! h- s
    if random 100 < 3 [ set pcolor green ]
1 |5 x6 B% m, c0 _% ?: i, r+ L    ]
* l# Z: c7 V0 v+ ^end) L0 k/ U& I1 V- ^1 Z; c1 y: I* y5 A
to do-plots
6 O0 U3 b8 Z2 c5 M9 R6 L  set-current-plot "Totals"$ u7 o; T9 r# j% i" p
  set-current-plot-pen "turtles"3 ~- o& _/ q4 A. k6 e
  plot count turtles4 |7 |2 w: u% i+ C; S* K1 A
  set-current-plot-pen "grass"" }  T% V+ h# s; F
  plot count patches with [pcolor = green]) G8 {8 n; q, N( g' q
end" ~( L. e* f* R# e
可是运行时提示no such plot: "Totals"4 I8 k1 I: T7 P7 i
error while observer running SET-CURRENT-PLOT" n, I4 h; J/ {/ U+ @" B
  called by procedure DO-PLOTS
, Q' h# K3 d9 \9 o3 k2 v/ g4 N# H1 L  called by procedure SETUP
4 l5 s$ ]& p; x4 `# m  K& @  called by 按钮 'setup'! e  y0 q1 R7 ^  K/ y5 @# I5 J
求大神解答啊
发表于 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
& ?' D/ H. U+ e! Z) i; G$ Z" V- ^' o建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-2 10:59 , Processed in 0.017582 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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