设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11117|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
" t" g3 x- N. yto setup
% _9 {: P6 ^' ^+ b$ D  clear-all
, P* B& K; b8 n& u  setup-patches* {7 x2 |. l& O5 h4 [; T
  create-turtles 100
8 K1 R1 R0 J3 i5 `  do-plots; \' l% M8 k: u
  ask turtles [ setxy random-xcor random-ycor ]9 M! ^: m4 t6 _( i8 h- X
end2 Z0 S6 @7 a' T( y0 Q
to go7 F4 b2 W, t$ b* U) k7 v8 m
  move-turtles( h0 Q$ L- ?( x: t- f  w
  eat-grass3 }# K3 m% s* z; k. Z, y
  reproduce
/ j1 \7 j4 j$ x5 ]  check-death
4 u6 e% X) j2 Y+ F  regrow-grass8 p3 J0 {: i* y) w+ l6 S3 z
  do-plots
; m" y, x* O( C& D2 Wend: w  C/ g$ r! \
to move-turtles/ j  K* @+ Y3 Y4 Q- I
  ask turtles [% h. @* ?. `8 }! ~6 N4 q8 C; Q8 m" o
    right random 360+ }6 `* V* g0 h' C$ S2 L7 Z
    forward 1
1 J- i( w5 j% A5 T( ?  Q    set energy energy - 1# @0 `' q: w' T3 r+ R9 Q0 N' t" S
    ]# H7 a, n) D0 Q+ o; O
end
) D6 ?8 \* d* F+ C6 ]8 `/ eto setup-patches
# N7 W8 X! b; Y8 N+ H  ask patches [ set pcolor green ]
6 \4 U+ Z. g7 y$ eend
8 @+ q; O$ z7 T" N: o! {; m( ]to setup-turtles
. @* f5 k- R' b8 M7 c/ m! k  create-turtles 100
  y( h3 W. J! E0 @0 w  ask turtles [ setxy random-xcor random-ycor ]
+ f. C2 K; f* K3 N/ Z# k# F# @end4 Z" k; V2 L/ q- C1 \$ f, J
to eat-grass9 w; V# Y9 L; R8 s2 f0 p
  ask turtles [) J* u# W' x# [: ]# y( F
    if pcolor = green [
! m/ Y. z6 Z/ H7 X- M; d      set pcolor black" z  T  A2 _, ?% j2 N" ]4 i
      set energy (energy + 10)
# _- T( N* I* X$ |      ]- U6 Y  S% T0 G
    ifelse show-energy?
, I! P$ s. w+ U  l8 K3 i      [ set label energy ]. C5 ~! j3 o/ R8 Q* I+ b2 o: T+ b! U
      [ set label "" ]. N, \. w, f- X( I5 k. N/ f
    ]  X' u* S* r- E4 X; M! j
end
9 v' H/ H" A( Lto reproduce
# B; ]7 h6 N) x" K  ask turtles [
. E) R* B+ i$ v  A4 @' f' i; ~3 r    if energy > 50 [
8 {! x, B" A9 p9 m      set energy energy - 50; `% Y5 [+ d: I  K
      hatch 1 [ set energy 50 ]
' _' C* _4 }. U/ Q      ]
" e: e# w6 Q, g    ]2 t. }9 B8 c& e& Z9 p& w7 F
end; b# f' _& R+ T) I8 |
to check-death8 m2 @0 _& r" o; Z+ @
  ask turtles [
0 o: T4 N# r- K2 D) }9 A0 h7 q    if energy <= 0 [ die ]
4 K6 q  H: W1 b% t' E' E$ G1 s    ]: |/ l* d5 I3 E& ]+ l
end4 j. k* f6 c; y; N" Z
to regrow-grass. C! [' N3 Z- q0 T: p! \1 P
  ask patches [
0 I; x9 W0 x! n; @  Q    if random 100 < 3 [ set pcolor green ]. \! w9 b8 B% A7 }' {/ Z
    ]
' B0 p9 Q# x; R9 p/ Eend
. s% R9 h( Y/ r8 K0 Z9 ^to do-plots1 p" x% c( l" Y& Y: l
  set-current-plot "Totals"
" D  ^$ ]$ h- r- ~  set-current-plot-pen "turtles") h- O/ u9 }: ?# S: q$ V
  plot count turtles
7 p# G8 X; U) Q9 A  set-current-plot-pen "grass"
/ M" T& p$ E! s: v  plot count patches with [pcolor = green]; n1 @! ?4 w$ e: N, e0 a! E# Q( k
end
0 x$ Z) B+ m* S' _4 v可是运行时提示no such plot: "Totals"& C" P$ x( |( t1 h  V
error while observer running SET-CURRENT-PLOT; I* W$ q2 B/ I4 b3 A1 ?/ o7 c9 V
  called by procedure DO-PLOTS
3 G" U) {$ A6 m% a8 N  called by procedure SETUP0 Q0 u& J2 d3 C' N# ^+ t
  called by 按钮 'setup'
, T- P$ m& }6 A4 l+ e求大神解答啊
发表于 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
# w6 ~: v) _, r- \3 m, H5 X建一个叫做叫做Totals的绘图框就行了
  G8 E% F  M: @% A
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-1 14:44 , Processed in 0.068602 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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