设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12587|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
0 h  B* b& h6 Z  tto setup
& e+ Y) f) q" p3 z) W% H  clear-all+ a) m4 j5 D9 [% @$ E/ }' L# A
  setup-patches
, F8 K. C, c# Q7 q) \5 B  create-turtles 100
, i" E$ J) Y$ x. Z8 b$ F7 _* h  do-plots- j/ K3 Y% x. v) l) S6 O( E$ |" f
  ask turtles [ setxy random-xcor random-ycor ]
5 z- d& m9 ~0 [) N% p0 X; j4 b, |end& d: [* ]8 z, h( u
to go
* E1 ]9 t, B+ G. q% U  move-turtles
9 A. R# f7 Y% R" o$ e  eat-grass
6 C9 _  c) Z  N  reproduce' S" M( R  _! v) B: a- B
  check-death
- j: _/ A, h( ?, w& e5 J' y/ W  regrow-grass
6 x9 F+ E; y  W1 H  do-plots% g& [: r  B0 d' J1 x3 ~: h
end
" ?& ]8 t& T2 o5 F7 Qto move-turtles
1 P# o( E, q' F& l  ask turtles [' q  i# b, o( t$ H. V
    right random 360
6 R8 n- n/ S" S/ N6 v% c2 M1 M    forward 1
3 c% I, f: r5 i" h! z8 y+ ]; d    set energy energy - 1
4 c5 Z) D6 {! q4 w  V2 G    ]
6 N) a9 d+ d" Bend3 o3 Y6 e- |& T/ K% J& {
to setup-patches
9 v# U2 A, Y3 r; [  @3 d  ask patches [ set pcolor green ]' H( u, V( Y; J8 x1 K
end$ I0 \$ I* \* t2 ^: ~3 X5 F0 g
to setup-turtles
1 K, V+ c; o6 D9 l( J, y6 B  create-turtles 100" s6 K* s  l5 y+ A2 L
  ask turtles [ setxy random-xcor random-ycor ]$ Q7 ^6 j8 j4 D
end
$ b2 G2 S! L/ Q: p& k5 B9 Xto eat-grass+ B  P& }$ Q: D: B, ~" O
  ask turtles [
3 ^" a7 _/ E) W( G/ X! q1 b. y    if pcolor = green [$ W5 R4 p5 e& Q$ I
      set pcolor black0 L  P& A/ T- G
      set energy (energy + 10)2 J! ^2 z+ F# I, W1 \
      ]
2 q9 `, G; ~5 i    ifelse show-energy?. h! I( g4 m9 R8 y  [2 v- H  Q; C
      [ set label energy ]9 E1 x+ W$ g! H/ C. Y
      [ set label "" ]% p* b7 M" H. E) M
    ]$ v2 v" i8 [9 |+ u/ h% v' s. Z
end
- @4 Y) i% _) y. U( l5 lto reproduce- h) s! c0 w  g% B
  ask turtles [
# c' T- G. B$ R6 n" ~& d    if energy > 50 [
- V7 h: J+ S8 g! Y1 }. w      set energy energy - 506 u+ Z4 T1 s- X; C; n; ?
      hatch 1 [ set energy 50 ]( x* t, S& F% A: N
      ], q& H9 U- E# @& K# V$ u7 i+ M
    ]
+ n8 m; E5 v0 v: i7 s" r$ v  \end
* n5 q' a/ P  K7 Y, Vto check-death7 F0 F. r- x6 ]: W6 a! E$ Y
  ask turtles [
) r  I# S0 F1 e, L4 Q    if energy <= 0 [ die ]
9 ^$ g/ {/ j4 C% x- B, B1 p    ]7 Y$ ?/ z1 @. e( V
end; Z! G1 H" V' V# Y" h. K: Q
to regrow-grass9 O" S# C9 K% P% O
  ask patches [- X& q6 k1 ?) E* F& ^
    if random 100 < 3 [ set pcolor green ]
) a2 x! Q% W( k( `    ]
) r4 R- P% m; v# o/ Aend
0 C0 Y5 r' Z; R. G5 I8 y0 ?  uto do-plots
7 o3 d5 M3 A& [! v4 h+ f( {& D$ I  set-current-plot "Totals"0 q; W7 x! l+ @
  set-current-plot-pen "turtles"
; G+ A. \2 Z6 O" ]  plot count turtles8 N3 W0 z* q+ Y# T
  set-current-plot-pen "grass"4 y4 f2 d- k, t" l5 S, n: b: Y( e
  plot count patches with [pcolor = green]# q; G+ k4 C$ ]$ e$ j& X3 B& x
end/ @' I  p! S: I
可是运行时提示no such plot: "Totals"+ _  g' F! l% k' a) t( A: I
error while observer running SET-CURRENT-PLOT
# w- E6 o$ T1 Z- w! w" J; f; m  called by procedure DO-PLOTS: X) U( n" I/ l5 m9 L. @
  called by procedure SETUP7 H7 t4 b# {. [+ T( \
  called by 按钮 'setup'
' v- L9 Q# E7 \9 J求大神解答啊
发表于 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
- A! w6 D( @; Y3 w建一个叫做叫做Totals的绘图框就行了
5 V; J; B' `2 u  w- S4 M0 [
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-3 02:24 , Processed in 0.026324 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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