设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9846|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]6 c' g/ v5 [1 b& y( ?
to setup
* S) }9 V0 F1 `$ v: n1 a8 m8 v  clear-all
9 t$ E9 G! r- p$ d8 V  setup-patches2 g8 r5 `: N9 U  i0 I8 b8 N, D1 S
  create-turtles 100
( i  `! D9 }4 \* ^4 z+ \& \0 C  do-plots- f: t. G) {9 F
  ask turtles [ setxy random-xcor random-ycor ]
; M7 d& @9 q$ s: F# x" Mend2 A! ~( X' d/ N; l! G
to go/ g- l( F; B' S/ ~
  move-turtles
0 K" Z% ]5 i7 i# D  eat-grass$ v5 G/ E: A# V3 s8 j0 z1 ]. Y
  reproduce
5 l1 o0 m- D. m5 b$ W8 o  check-death
; s1 d0 F# n! z* ~  o  regrow-grass" F. d+ a) F% y9 X$ n
  do-plots3 a! J7 t* y4 ^
end
0 @: o1 ?& A/ \2 bto move-turtles, }9 n$ K# o; E& o: h0 P
  ask turtles [0 W$ L# \) f* O- C' L
    right random 3604 w% l. [; r7 f! h6 n+ f5 o1 ]) O
    forward 1
4 Y# Z2 P8 G4 g5 q5 s( r$ X+ y7 q$ h    set energy energy - 1
% x3 {. g, n9 j2 ?    ]4 h  ~% v. F( y/ {: |9 h# P
end
' q2 M- E* O; p2 t% ito setup-patches2 g; Z2 L) F5 ?2 `: W
  ask patches [ set pcolor green ]4 Y  C" p7 ]0 N. K" W
end
. n! K" y. f; j$ u1 o; a- Yto setup-turtles% x, x! f3 o; @" P- x/ ?. E$ f
  create-turtles 100) c7 z/ }0 D& q& P9 m" k
  ask turtles [ setxy random-xcor random-ycor ]
6 f" N# n1 n, X7 g/ H- ?  Yend. |( M# k! i; v& `) \7 i
to eat-grass
" G. k# b4 w3 W  D# l! }  ask turtles [
( k( f! c" F$ t  k! Q4 l9 |3 @2 Y    if pcolor = green [
' E$ w: h" j5 F      set pcolor black
! ?8 w* _4 c4 F4 M      set energy (energy + 10)' D. \8 P2 B: j( C9 B& J+ K
      ]
+ V( E: c- l5 G- p    ifelse show-energy?( c5 @$ x# T7 i+ z
      [ set label energy ]
" F% Y* g( r: j3 \$ K  O& u3 G6 G      [ set label "" ]- g- c; n, n- u
    ]
, ~  I+ [. F4 l3 \end8 ?; w7 O7 k7 N9 o) W3 x. n& j
to reproduce6 @- [0 h( K% ]; @1 \
  ask turtles [' Y) I/ O: ~) `" T$ k1 |
    if energy > 50 [
  l, z4 o3 t( l+ \      set energy energy - 50
, B- ]: F% g  c! o* b      hatch 1 [ set energy 50 ]
5 X' \  g( d' D, ^: S      ]
9 U. {2 f: N5 G+ L    ]& U0 F& ?/ G/ s7 w0 S1 R9 j" W
end- r2 @* H/ O4 w
to check-death
+ m" d/ W/ s0 f. [* I! G3 P  ask turtles [
) \' Z* R6 k/ M  g5 D+ k) }& }7 k    if energy <= 0 [ die ]/ X! s2 j" x4 Y1 Z: G' Q4 B5 {* L
    ]
; E8 u2 P: u0 H) T. zend
+ _3 _, ?: F- o& r. _, ]  n7 Wto regrow-grass
& r/ T3 M! |7 Z  ask patches [
% k0 T8 T) E9 g( b# f& t: k; u/ C; u    if random 100 < 3 [ set pcolor green ]# M0 j: ]: X6 K. v& ^$ j- d. J) o5 ^0 O
    ]
7 d4 R: O. S6 ?/ Aend: ~- |( Y. W) K: k
to do-plots
3 o# t) _# \0 W' v( K( W& {" N7 H, J  set-current-plot "Totals"$ W9 y/ K. D6 V! o" ^
  set-current-plot-pen "turtles": t3 \2 x) K6 k$ N( h- A. `
  plot count turtles. H9 a" S9 |* n  a
  set-current-plot-pen "grass"$ _2 H* s& e. }# f0 B: @
  plot count patches with [pcolor = green]
5 H8 C" D7 G% b0 q8 K" Wend3 q1 A/ s" p6 \4 _& s; y) U
可是运行时提示no such plot: "Totals"/ a% F0 |, P# }! B8 E( @2 u
error while observer running SET-CURRENT-PLOT; L/ |  _9 A, ^( d$ ?5 w4 U6 m
  called by procedure DO-PLOTS
, `- {$ ]( q: `% @  called by procedure SETUP
: S* j# O" z& I0 u) y  called by 按钮 'setup'
9 k7 A0 u9 V6 \( z! R求大神解答啊
发表于 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 , g3 z! b& r- O% Y8 p  m' f3 S
建一个叫做叫做Totals的绘图框就行了
4 ?: O% F) e  c, e5 ~" T+ F* Y: n
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-26 03:40 , Processed in 0.023527 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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