设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10072|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]! B5 c3 j6 l* }$ ^4 a0 u* f
to setup
8 R' \1 [  A# R- ?  clear-all, s: B) l2 u. j. `, J/ G: j, Q
  setup-patches
% F! f6 c. ]# h/ \  create-turtles 100
) ^% ^$ h. Y: m1 Y6 J! g, P  do-plots. d  y8 x2 }* j5 M3 h- P
  ask turtles [ setxy random-xcor random-ycor ]: Y  M) l) P5 q' ]
end
" z; p/ v. J2 i6 K8 Eto go
; p3 h( m2 F, p4 {- R$ ~1 s8 i7 y  move-turtles
$ P7 u/ |( r  S( y  eat-grass5 p9 J$ W) e- ?% y7 `0 c
  reproduce
, v3 v! x% T1 ]" R, x& d  check-death1 l% o! j/ @: `
  regrow-grass
+ |! w# _# ^( O; L. p# c, {  do-plots
  x- ?2 A( h5 `( \! k) F- Rend
: s+ l/ J5 f: Z7 i" v1 c' D9 {4 Wto move-turtles
) s5 ~! M3 Q& V" ]  ask turtles [$ l( C* `% c' }0 q* K
    right random 360/ Y" D% p9 l" b3 f" m
    forward 1
3 t0 p/ S8 |, T6 g* {7 ?. d1 ~    set energy energy - 1
/ \. o2 Y9 p( G' h    ]$ B. j' I5 A/ M" P0 s
end
1 ]  T+ P$ y9 M* B# L- zto setup-patches( E( M- P" @( ^; F  L2 L
  ask patches [ set pcolor green ]
. u: |: |4 f0 ]2 V9 kend1 x# j5 W1 ^! d. m8 n0 X5 E
to setup-turtles
4 a' H4 M, o1 p0 r& O, d/ A, V0 P: z  create-turtles 1002 X5 T, `4 E8 u+ J) k
  ask turtles [ setxy random-xcor random-ycor ]5 j4 g/ I4 A4 D% T! }2 F6 _3 k( [
end+ M/ }3 Q: Q9 G% x+ O" g3 C! B! g
to eat-grass" I  |5 t( t) \' e  g) u# \8 R$ p
  ask turtles [) M" X. Q: j+ x+ h0 q
    if pcolor = green [
: f& q( I4 f( g8 o4 N" `      set pcolor black8 O& s5 v7 {7 a4 o" ~, d
      set energy (energy + 10)) k( R! d3 _. }" ~
      ]1 Y7 e! f; s# J, {/ N% B
    ifelse show-energy?
0 d' P, ~4 [( L& n* Q      [ set label energy ]
) e9 k, I* i% M5 z* ^4 F      [ set label "" ]/ C/ t, {( H( k
    ]$ v7 Y& b: f6 D# N( Y7 A
end
% W( _6 _0 J' M" M7 N0 S. b7 ?+ Gto reproduce
1 b8 E9 t0 t' ~2 Z8 g  ask turtles [/ a$ b! ?9 {! U6 m5 G9 U
    if energy > 50 [; b: F% Z2 Q& H$ n1 X9 U' f: u
      set energy energy - 50- x$ x+ U) b$ F
      hatch 1 [ set energy 50 ]7 X2 y) J" c9 I9 x4 o- R# l, R
      ]
$ }  k& Y4 e) h4 q/ k    ]5 {: F- m! g. C! D# F
end: b; l; \2 K+ ~* x
to check-death
' x0 G) u9 k1 Y9 N  I5 m  ask turtles [
0 {( z+ [- R9 o( v$ a    if energy <= 0 [ die ]
1 y6 _& G: B9 p6 Q    ]
" W/ C. J, r% p* }0 e0 p% fend7 _1 ~. L! K+ Z# F! ?
to regrow-grass
& |- Y  K% W1 @( X3 O2 L  ask patches [
6 T6 I5 `( L/ g0 j; \    if random 100 < 3 [ set pcolor green ]7 m: F* D0 k- G  R. h
    ]
7 W. L# h, `2 E$ u5 D) `end
* f; X! o. p' r8 `# O( K  Rto do-plots
9 j& {/ _) x+ u/ ^5 I6 S4 A  set-current-plot "Totals"
2 X" q$ U6 h8 F& v8 H2 p  set-current-plot-pen "turtles". @% t$ [6 ]4 k2 ~& C
  plot count turtles, h5 E9 T" h: C& i
  set-current-plot-pen "grass"' M; e. E+ C0 ~+ G$ j: z
  plot count patches with [pcolor = green]
! [( W( M0 e- E- ~4 Eend& t1 c' U2 x4 h# K7 z: v* u
可是运行时提示no such plot: "Totals"9 n% L3 Y5 h6 F- U+ G5 X  }' D# N) @
error while observer running SET-CURRENT-PLOT
, G. _1 v9 C. b+ H  called by procedure DO-PLOTS; V% Z- x7 {; |+ _1 l
  called by procedure SETUP
5 u: z8 x4 k9 @- k2 V9 w" a5 ^  p  called by 按钮 'setup'
$ P- Q4 @& [2 W, R% @- a! h6 ^# }) K求大神解答啊
发表于 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 ' j# d7 ^# H, f. |  |% n2 w, k( a
建一个叫做叫做Totals的绘图框就行了
8 S% K* O' o: ]
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-10 06:41 , Processed in 0.018399 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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