设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10232|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 V5 m' G3 o7 zto setup
) }2 v! l: }/ ^' t7 I  clear-all
7 j7 E6 j$ l5 z) w  setup-patches% T0 X0 S& s& `" T1 J  m
  create-turtles 100- ~1 [. P# `6 J9 Q% e4 @
  do-plots
7 v. @! L: x" O4 X8 {4 g  ask turtles [ setxy random-xcor random-ycor ]
0 A4 m/ t: C; a8 ?5 a  qend
6 W9 l  M4 J7 H( q4 ^to go
- g' c+ }; b* E3 I2 h* D) Y& L  move-turtles  r( A5 N. g- w
  eat-grass9 V2 ~0 B1 ?4 X) n6 u
  reproduce7 ]# b: |; O& X6 |5 o7 C! |
  check-death
  o( J& j8 ]) ]5 E* k2 K, [: b  regrow-grass
! ?4 G, _) n0 J6 x3 A4 _& V+ O  do-plots5 M, K& Z) L5 V% R7 O0 ^
end) C# U; d# G, q$ X
to move-turtles
* o# [" D% |$ S; b# g0 j( z- l  \  ask turtles [
4 C) P+ X9 Y8 g/ j2 e6 M8 W* I    right random 360
  t$ _1 m1 ]+ P. c, ~( x    forward 19 K6 F, C% R& G- K6 k/ e
    set energy energy - 1
- z  D: p/ p3 A' d$ {. V* v# @    ]( K  j  R( g$ Y; K6 @
end5 }; p) y3 S* J7 z
to setup-patches
+ K9 n7 ?( w! \8 E. D2 x  ask patches [ set pcolor green ]
  Z7 k7 z: H) qend. U( p& D; }# @
to setup-turtles
9 M* }# T, a( n" Y4 D5 p/ G  create-turtles 100( ]; I3 f: u0 f# s9 Q3 T" q
  ask turtles [ setxy random-xcor random-ycor ]
! I$ e# S# Z9 ~* J( X6 qend
3 ?  f! Q8 Y- J' c+ tto eat-grass6 W5 X- k) d2 D8 d' y+ ?, @7 l7 q
  ask turtles [2 m! S; j2 _" ]( U4 s& N' L
    if pcolor = green [9 a! o, J. U. N
      set pcolor black. M8 g! [6 r4 C) T
      set energy (energy + 10)
' H0 M. Z4 i! w  J7 x      ]
. Q: S/ I/ F1 ~6 Q    ifelse show-energy?# S% p6 Y1 x# D" X) I5 \
      [ set label energy ]7 l, X, d7 s: W$ F  H, g
      [ set label "" ]
7 A+ h7 h- l& _- O) j( G7 D% `2 ]: P    ]
0 L* L- V0 d/ b8 [) \, F4 eend
' P$ }3 L: b0 f9 @; e& cto reproduce
7 L/ |/ W( G/ E9 B  ask turtles [
3 [+ S" o' i7 T/ o) v7 G4 X9 j    if energy > 50 [
. v' X5 e! i1 d1 h1 A      set energy energy - 50
% I: @; {. P' H* y! M      hatch 1 [ set energy 50 ]  o5 E7 a7 H% D+ g$ e6 y
      ]& K7 L# u( F# x2 h9 b8 h5 o- F
    ]) W2 o& T- ?: ~* {% i
end; z! Q0 Q7 q. s
to check-death  h4 x; d2 S7 I3 u7 \& U$ @
  ask turtles [/ ?) q) E$ n8 ]+ b
    if energy <= 0 [ die ]
6 \* _& z: m% c' P1 `1 K4 q" v    ]
3 \. x) L) e/ M- K6 i* fend
/ L* z, i9 d8 wto regrow-grass8 c8 B2 a& U* Q4 K' {! W! b
  ask patches [
8 T9 U: k8 b3 `# l; u3 C8 y0 c    if random 100 < 3 [ set pcolor green ]
1 x- u1 B) K7 F0 {, `! X4 o7 i) I    ]
* |( y: Z( H7 N" I& I  u' zend
, ]$ x5 a# w6 u7 cto do-plots4 c* y  Y) M, t, v6 n8 a
  set-current-plot "Totals"6 y( }: L- J3 U" K" D7 B1 P4 x
  set-current-plot-pen "turtles"
( I4 q* @5 Z6 \" P3 D& y, K  plot count turtles
* {5 S: J4 x* S  set-current-plot-pen "grass"
) p4 b. D# M% c5 p% v: c& g  plot count patches with [pcolor = green]
1 t: }  Y4 o( {8 L, M7 eend. _0 E6 S& A6 [
可是运行时提示no such plot: "Totals"  v$ D0 M# B" A$ j6 c3 ~9 ?  i% i: E
error while observer running SET-CURRENT-PLOT
3 U3 w: G; f' D8 [' T0 i  called by procedure DO-PLOTS. s& B  w% _# [# D! y* i) N! l
  called by procedure SETUP9 S0 {/ U4 X1 i( j
  called by 按钮 'setup'5 }5 V. h& c! [: \) F& f, ]1 X
求大神解答啊
发表于 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
9 C* T( Z  u# {0 @3 {5 R& e建一个叫做叫做Totals的绘图框就行了
/ w/ k  b; Y9 H
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-25 15:28 , Processed in 0.021585 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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