设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12496|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 Z  t' a$ d, A+ r/ V; Ito setup
" f: Y" _  h  z5 X7 i7 `- L  clear-all
& a3 [: v- m- e9 H. h  setup-patches
. [6 n$ L' u# Y7 [( u7 t  create-turtles 100# d4 m) ]( }. m0 \, z+ I
  do-plots
2 v6 D$ t( B' P" W! a  ask turtles [ setxy random-xcor random-ycor ]" R8 a) u9 V* Q) M( ?1 P
end
$ V  N6 Q3 f% Q0 z$ N6 `to go
2 ~- g) X$ M. ^+ E7 C5 t! _  move-turtles' n$ O, F8 B% n
  eat-grass
) z! c  g3 u. d% s. N* k  reproduce- R: Q8 h( T! j
  check-death
  }3 l) q  V8 A2 `  regrow-grass% G! B3 `8 R( H$ T
  do-plots5 |4 i6 r# E) B. z  W$ p' o
end
0 G7 s' I; x0 d, U6 s, d1 s9 Zto move-turtles
. g: U# B( I# u7 l0 Q0 L' \  ask turtles [! B( S! ^. c/ i
    right random 360+ ?5 A: F0 K7 U. v# A
    forward 1
; w0 q0 B1 G2 K% Q* e    set energy energy - 1# ^# ]2 O0 I- u; {/ M
    ]
8 X1 }5 _+ D# F* j8 Mend1 ~, `" B5 X4 s0 v; A
to setup-patches4 N# {: {9 C; b) j
  ask patches [ set pcolor green ]
9 y6 F0 X1 {: @, C- xend
( k8 r1 q& ?, \; ^to setup-turtles- |; K7 d9 i5 n0 n! \
  create-turtles 100
! c4 {  X  P0 p; l$ K* T$ c$ ~; a  ask turtles [ setxy random-xcor random-ycor ]/ R  N  Q* w/ k
end: O# f; N2 Q9 i: L9 N: }" ?
to eat-grass
7 ^4 l$ ^, q0 W  ask turtles [
8 V/ u) n9 F( C& k. g    if pcolor = green [$ e; n& Y& \' f
      set pcolor black. B9 C4 D1 J) w/ d. U* F2 k' L
      set energy (energy + 10)9 M: ?* S8 a6 n, [
      ]# S, o8 @/ }& i4 x9 e
    ifelse show-energy?
7 W: C7 S/ h, y, J9 T      [ set label energy ]+ L" n% x: N5 s1 F0 D  A" B. F
      [ set label "" ]* J$ Y; r/ y) @0 T! L2 r4 s
    ]2 y6 z8 @8 O  @3 n0 J
end3 X; @8 N. U+ ]% o, _& c/ }8 f
to reproduce" y+ V0 }* B% N3 R! P( A
  ask turtles [
: I: V: r) I% @- H8 v    if energy > 50 [
' U( U0 n) a- Q      set energy energy - 50! X1 R; d7 i" D
      hatch 1 [ set energy 50 ]
; F1 N4 S! l3 G1 {6 z      ]
' n" Z4 |0 u& Z  z$ _1 b: x% T    ]  _. V. i3 |2 l  y
end
2 l# k4 B! v9 y1 n6 ^to check-death% I+ ^% A' M" |: ]" S, v
  ask turtles [& ~: E/ i$ h0 |% i* T. M  l- k0 I  `
    if energy <= 0 [ die ]) y' L3 D$ U9 [7 ^0 \
    ]) r1 T* [2 y* ^1 T) C
end$ `4 q; v$ @, Z5 N! @
to regrow-grass. [" h3 O5 V- W: I: z
  ask patches [" m5 `- W) g& `4 l& c
    if random 100 < 3 [ set pcolor green ]
, f( H$ ^5 c9 \' k% }" h0 w    ]: r" X+ l' i. c5 f) c* i; g- Y- o
end+ v* ?' B  m4 G) b" O% O" R5 l
to do-plots
7 H$ r! ?) @+ e+ {1 `  set-current-plot "Totals"5 f3 K1 f0 o/ e$ g$ W- ?
  set-current-plot-pen "turtles"
% o' U; {2 H2 x5 \8 y) I  plot count turtles
0 ?* w. G) M6 l. U: [, k9 W  set-current-plot-pen "grass"
+ \3 m' s6 W- y( m* X  plot count patches with [pcolor = green]
* A5 {/ \8 q4 p! H4 d6 P$ T" Jend
) Q1 R+ y1 J6 \; K4 k可是运行时提示no such plot: "Totals"+ r5 o, y# B3 @4 T9 Q3 H" T3 d- V
error while observer running SET-CURRENT-PLOT
: e; ]4 I% S7 F) c8 s9 u  called by procedure DO-PLOTS- C2 N) m6 I0 C) B1 U
  called by procedure SETUP- |* h9 [; ]$ P) r: \( }# f: u$ P
  called by 按钮 'setup'
5 t1 k& p8 h9 x- H# G& m# P5 A求大神解答啊
发表于 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
0 D' a$ e1 z( r' l2 G8 a建一个叫做叫做Totals的绘图框就行了
) M3 ?3 k/ y. K7 p5 i
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-27 05:15 , Processed in 0.017790 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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