设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12431|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
: D. _4 d" f* i; ^4 cto setup2 [3 P3 H( d( i  l
  clear-all
  U" S$ V  a6 u. B  z  setup-patches
3 T2 S4 f* ]+ G6 w0 a  create-turtles 100% Y3 F' A; b- f
  do-plots
. u$ I! W9 [% q. _# L- {' G- e' c6 Q, {  ask turtles [ setxy random-xcor random-ycor ]
9 s. y& V9 n$ i! r$ z* _! ]# Nend
& u/ t+ W( _6 j  Nto go; Q7 C5 x& o/ k: Z) m/ E. ^( k4 P$ Z
  move-turtles3 p: X( t% v' o# R
  eat-grass5 x/ b" ]$ y# R  Y2 C
  reproduce
  L* c+ b+ u3 J% B0 S  check-death
8 b6 S( y- S, _, l0 o, d  regrow-grass; w6 {9 `4 }$ w' u: n
  do-plots
/ s  q% v/ B9 B! Eend
- j( ^4 s6 |1 Mto move-turtles6 {, n4 V) s% X+ j. G; R- |
  ask turtles [
5 A9 Z. f; l- ]5 t) \    right random 3601 B0 b0 r( V  g/ Q5 b8 C
    forward 11 ^4 Y" n/ b/ l, }+ {# G
    set energy energy - 1
" x" b7 N; Q& A; k, I" d) ?    ]
+ W# w4 B% }  C6 |4 }) iend
! B& E5 Y* m2 Ito setup-patches- ^; F. i( N  K0 _, V
  ask patches [ set pcolor green ]
9 v8 I% a" I" ]0 }, C* ~end
& v. B( |# I$ d; Eto setup-turtles
! t, I: e) w! C, u9 r+ b. Z  create-turtles 100
; X; l8 @$ N2 y5 m  ask turtles [ setxy random-xcor random-ycor ]8 q/ K# |' {1 Q. o) D& `
end
$ t% }3 `; h) l+ B1 P* ~to eat-grass. |  o+ }& @9 V
  ask turtles [- C- U3 C$ V) }: h( K( l
    if pcolor = green [
- Z. ?' a5 |; b- t# \* x2 X      set pcolor black
2 r6 m. M2 p1 i( W9 B# M5 I      set energy (energy + 10)
/ r  f0 l- b% g) d5 _4 N      ]' R4 m0 F' C4 \) G7 @+ h  u
    ifelse show-energy?
* {( \  o+ N! ?      [ set label energy ]# P" ?$ t# l# o+ e" a* T
      [ set label "" ]4 E4 J. ?) C& ]( |1 e  X( m6 q
    ]/ i( X- e. o1 N
end
6 u  r; }( |1 c" z! @to reproduce+ S" |& [6 K# S* V8 M
  ask turtles [* t% p2 f5 a0 u
    if energy > 50 [4 U) @& m8 T) q7 T5 D
      set energy energy - 50$ z; X. h6 e! c& H
      hatch 1 [ set energy 50 ]4 }5 B9 j/ Y6 `% F  `3 D
      ]
8 N! s/ c! N* `) z: J* k    ]+ T3 f& Z8 Y3 H7 ?: Q
end
( z3 T6 e+ c* M0 x0 Eto check-death
5 P+ u! }/ p" X8 ^' I( h# e* G  ask turtles [+ h" y3 o" _% W  s, i
    if energy <= 0 [ die ]
- f  U% Z8 ]# f' }- L2 v$ B  G* v    ]
* L/ c' N6 d& ~7 G" ~end7 _4 N+ }& I* E% q, _( P  ?8 r
to regrow-grass
" N7 m) ]  w7 ]. W: m. {0 C' _0 q  ask patches [; p' m1 h7 }+ p8 `) p
    if random 100 < 3 [ set pcolor green ]! m0 s$ x! ^9 k& y) L  c! h2 C5 q/ q
    ]! n0 R# s! p3 _
end
# G9 h# ^; l1 dto do-plots3 `7 c& I4 G. j5 R0 q: g
  set-current-plot "Totals"4 q7 h& P3 O  b: P# `6 B
  set-current-plot-pen "turtles"( Z1 q$ d4 A% L' X- N+ C' h$ Y
  plot count turtles
' [- F" m, e. j' a$ m$ T) }  set-current-plot-pen "grass"1 z# r5 [6 w% f& g; t" L" I
  plot count patches with [pcolor = green]
% n% k, r( ?% Wend9 e8 j' O* V( U8 L
可是运行时提示no such plot: "Totals"
6 w1 _; m8 B6 n- I/ aerror while observer running SET-CURRENT-PLOT
+ T* |- {; |9 ]" r1 q2 q* b  called by procedure DO-PLOTS
3 K; J6 s. [( H2 l% a- R( S  Z  called by procedure SETUP
) j/ e. W- N# C% G2 u& ^/ T+ ]  called by 按钮 'setup'7 Z# d4 p7 @0 S  n4 s
求大神解答啊
发表于 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 - |6 f3 z1 {2 B/ Q6 C, D
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-8-20 14:26 , Processed in 0.017738 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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