设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12749|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]9 H" z# v( Y# d; _5 e1 V1 `
to setup
* D; R  o! c9 [% d, t+ ]' x6 V  clear-all
/ s* j4 ?& z) P# W8 C  setup-patches
0 V( F/ F, T$ W( X% b; _( ~  create-turtles 100
' @6 `% e8 t& I( z( D+ T  do-plots
+ ]7 m: z* Q/ [9 e; F/ S  ask turtles [ setxy random-xcor random-ycor ]
4 ?- f. ?+ @: M4 k  i! ~& e& cend% N, I) Q$ B; w$ l4 Z
to go, y( y' D3 V3 x; H) G! b( R
  move-turtles/ O! X! d2 @% n0 i, w( e0 s
  eat-grass9 @" O% @- ?8 H
  reproduce
$ h$ m& v! V* l+ u' K! ?  check-death3 Q* k! e2 ^2 D0 v8 q- ^* g3 p
  regrow-grass9 v. j. V# q7 U6 z
  do-plots
+ C) Z: ?% d: V- I5 p0 fend
2 q, _9 v3 i, `' ?2 z$ B3 ]" a8 ^to move-turtles
2 W$ v* t: U3 U" R' i  ~& V$ I7 v  ask turtles [& F4 ~) R; k' B7 i6 u% ^1 Q4 \2 e
    right random 360" o/ G' [' `, a) r8 X3 m0 C. ?
    forward 14 Q8 `3 C, t9 H. I, a! q3 w
    set energy energy - 1
( l5 a; Y) W/ _& ~, r$ M    ]
! {7 z6 c1 C: t& z7 zend
/ N' W" U$ E9 X; c/ x3 O4 mto setup-patches: d5 ?+ l- ^5 f3 C- L: G! P/ q
  ask patches [ set pcolor green ]
8 A  u7 B$ |) o1 y% o: i3 |end' w9 R# n: I" M
to setup-turtles
" q5 X3 T0 L( t7 _" m! y! f( h  create-turtles 100" B3 g/ f7 R* C! o
  ask turtles [ setxy random-xcor random-ycor ]' l* F" h0 R- N& x9 D3 e( M
end  g* v7 _3 ?5 S2 J6 r
to eat-grass
: C% H6 q% I# t5 N% l, u5 ?  ask turtles [. T* Q) W: Z8 x) b, D
    if pcolor = green [
4 F5 j% X! y! A/ P6 d      set pcolor black6 u, {) H1 u' f  i- ^
      set energy (energy + 10)
$ x; U" j7 S! t. n' [      ]
( n% B, b% W5 L+ W$ y3 x* {% t    ifelse show-energy?
0 T% E3 |9 Z( c9 U7 O/ H4 }5 b: ]1 [$ \, }2 m      [ set label energy ]
+ c) ~; d; d$ P+ S2 J      [ set label "" ]- }) A+ J- j: T2 S
    ]
" R; V! h( J7 j8 k1 ~' Lend  t, c* I6 C3 c1 S) Y! R
to reproduce
- [/ {- p3 [6 J& Y" i- w( K# g. d/ t  ask turtles [" q! n- v) ^& s
    if energy > 50 [0 q, t7 }8 g9 J5 e
      set energy energy - 50: W# j4 J! p6 ^
      hatch 1 [ set energy 50 ]
. v2 g$ @$ i$ l- e& @9 O! t      ]) \0 L: A  {; ?6 Q, p/ S
    ]
5 v3 T% }+ f2 q* A5 eend/ F! L/ v+ }2 A! Y! \% D1 d& J
to check-death$ t# Q5 B8 {: ?! W& E& }
  ask turtles [4 }% v: y& M! f) W. z0 h+ v# ?" _- i
    if energy <= 0 [ die ]
9 O# j" T4 g7 B" {" B5 Q1 Y: G    ]2 ?9 q; t5 f0 J3 Q6 T2 l0 {' S3 A
end
+ B2 \* ?7 F* A) f* Q0 z2 D/ F# ato regrow-grass8 C3 D& a$ e" d
  ask patches [
% O1 [$ K) ~6 T! T    if random 100 < 3 [ set pcolor green ]  c! w$ Q! s: W2 @8 G4 @4 x
    ]1 k7 z% b. u5 }! a# {( @
end
7 q; L' A2 L( L2 }; x0 t* A- Uto do-plots
7 f! `- v1 \( E/ v* N  set-current-plot "Totals"
" U' w) I5 I/ |; E  set-current-plot-pen "turtles"3 Q& H1 U) i; U- d
  plot count turtles$ i; u$ J1 b; u/ E: }* {) \; k9 F; m
  set-current-plot-pen "grass"4 I0 v# `* i- D# j  `
  plot count patches with [pcolor = green]
. L) i3 |; H/ _- U+ D2 A( h- Aend! D6 L8 \; i) l8 G7 f8 C
可是运行时提示no such plot: "Totals"
5 a0 M& _+ h" Ierror while observer running SET-CURRENT-PLOT- i6 `3 b7 x$ z) g. P! w: v
  called by procedure DO-PLOTS' f$ _7 k2 h0 A; d
  called by procedure SETUP
  X; J' O2 C* h0 g  called by 按钮 'setup'
# `# M" W0 w: [' v5 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 5 ~! f. w! Z% E8 w
建一个叫做叫做Totals的绘图框就行了
3 v3 l* f7 r8 d6 b2 c. H
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-14 11:54 , Processed in 0.017998 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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