设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11465|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
/ ]* s3 q5 e$ d) d8 W! m: \- Rto setup- h$ n# u9 K# G- H3 C# `8 @: i
  clear-all
; ]6 }8 C. t, x1 V' X/ ~  setup-patches
  R+ _1 ^+ Z7 J0 X  create-turtles 100
$ h' I# `' S. I6 i) r  do-plots
& a% _& I9 ?' D& X% D. d% \& w! y% N  ask turtles [ setxy random-xcor random-ycor ]
5 K& ?9 A2 F( s' oend2 O# v, a: x% V. Z
to go
* f/ F9 `0 T9 @+ G' k. K" A6 F  move-turtles% b/ }4 _( \. X3 {5 ?+ F
  eat-grass2 \9 s6 N) q- K' [: u1 `, ]
  reproduce
1 v6 \' c: F- g! f  check-death* T6 W: t; Y1 U5 U: @# D$ ?: Q7 K
  regrow-grass: \9 b0 R! r$ u, _! I' b6 u! A
  do-plots
. ?5 Q% [( a2 M" ?8 f! [end
) ?$ ?# q& V* s  ^5 ]- Zto move-turtles8 J: e; h  }4 w9 j0 Q$ ~$ X
  ask turtles [
- ^7 V) Q4 X$ }6 r2 E    right random 360$ F) H6 y: H( z( p: G8 C0 Z6 u  L
    forward 1
1 Q* ^3 ]- i. `1 I; ]    set energy energy - 10 l6 P! g; d8 N2 S/ i6 Y8 E# q2 L
    ]
( w; x& m2 G7 V4 P& t3 F4 gend/ p: k, m# b, ?) B8 p- j2 `
to setup-patches
9 E4 u/ i3 |/ B  ask patches [ set pcolor green ]
" O# J% f" ~1 n8 m5 e5 kend' o8 y* O& N8 C+ A+ B
to setup-turtles0 N) t, [0 Z. Q
  create-turtles 100
$ `/ v. |9 ?8 W  ask turtles [ setxy random-xcor random-ycor ]
" u8 O  s$ G8 v* z# N  q4 l6 R: lend" b9 C6 g% b8 {; q) Q. S) }! W: d! }
to eat-grass
) y1 P( \4 a, W  ask turtles [4 F. x2 R3 c; h; ~. D0 |* G" I. F
    if pcolor = green [
/ D9 @, }2 B  W$ i7 l/ M: d' T6 b      set pcolor black; a1 _, y" Z7 T. q- d) ]- I
      set energy (energy + 10)
7 s: a* A+ P  [: K4 O      ]3 T0 O1 Z7 d5 s: M
    ifelse show-energy?
' Z( E9 Q# E# t, I; f1 |( U      [ set label energy ]2 Y3 y" j* l9 q3 J
      [ set label "" ]
  A+ e2 I# F2 g* [! @    ]
. j4 [8 x) x6 I9 T, y# Jend5 E. p4 P' L5 _& N* n. F
to reproduce
1 K. h' {& B0 q2 |  ask turtles [+ B( |/ y/ M. Z5 }
    if energy > 50 [- c0 x. f6 c0 \3 x% ]
      set energy energy - 50
+ k# A' F! R; s4 M% a! c      hatch 1 [ set energy 50 ]
& }9 C" z, E- K7 X      ]
, f0 m3 @7 D# Y    ]
/ t. c9 B$ @( j0 }* e0 A( Aend
& z! }5 p& O; A/ G* sto check-death
) I, R; n" x  o3 P/ S7 n3 _9 x0 U# V# {  ask turtles [
0 A: Q/ R3 R8 ?+ U# }1 |& P    if energy <= 0 [ die ]
* E) K; O' b  ?( J5 \* Y9 {; C) c4 S/ Q    ]* O, o0 Y5 f7 d3 e
end! e1 {# S% S; x, @% e
to regrow-grass4 u4 {4 S0 p+ s. r- O0 N" r, G1 M
  ask patches [
1 m) b/ S+ |9 f5 s' v1 g( f    if random 100 < 3 [ set pcolor green ]
: j/ G; c1 d9 M/ v. S9 u, ?    ]
3 V* G2 ]* E8 A$ d" r1 B+ ]* t% Nend
( @1 U3 o9 a# q6 U1 D3 q; \9 j' ^$ ito do-plots; {: s2 p7 G7 z* |  F5 p0 u8 _
  set-current-plot "Totals"
/ X: i0 k, @* t0 w6 i& M# R( R" [  set-current-plot-pen "turtles"
' Z  E+ ?; v: J6 ~- L3 L0 A  plot count turtles  o. Z# z" d2 ^1 c& L
  set-current-plot-pen "grass"5 ^+ m1 @, c' |( d1 F# v
  plot count patches with [pcolor = green]
0 Z! `6 ?2 O$ X% x- j) Y! E: Bend
% X: C% @2 F6 M5 e8 c& ?- r! H可是运行时提示no such plot: "Totals"
( O# C' S& a: J: F" Eerror while observer running SET-CURRENT-PLOT
% Y. S% C. g/ X. g$ L' v  called by procedure DO-PLOTS
# b) y* @; Y- d: Q) t  called by procedure SETUP1 b! G4 o! r: P, ]* x
  called by 按钮 'setup'/ t& V* s& g) x' j/ j% r& o/ Z
求大神解答啊
发表于 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
, p+ e9 S: X7 U9 ?) N建一个叫做叫做Totals的绘图框就行了
% c1 W8 X1 C& O* O6 e7 d9 G& E$ @
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-1 06:31 , Processed in 0.012721 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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