设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11178|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 G" F( X9 X8 I* l0 r0 t% Bto setup/ [7 O! O0 j. b, a( a, u" Y! T! _0 ?
  clear-all/ L) _. w  H; f) O& A/ Q( s
  setup-patches7 w/ Z' q! M8 n
  create-turtles 100
7 F- t4 P% Z6 w  do-plots5 v0 C# D( O* ^$ e" `
  ask turtles [ setxy random-xcor random-ycor ]
  b9 U! j& E: A  ^end
) [% S6 k9 i$ S8 \' |0 vto go
  p' l% {* g, N  move-turtles; V$ G4 t) ^' f
  eat-grass  J/ A. j. X% s; E) J/ ?
  reproduce6 K0 G' j9 D% ]* l3 s, l
  check-death
* D2 |7 L6 R! E+ K" l1 p+ m9 J  regrow-grass
2 y. J3 r: ]: s: }  do-plots
; G' J8 ?4 i/ O0 h% b6 [end4 C; E8 U6 G5 `' ~
to move-turtles
) b4 _: u/ X- D' u* ]2 K; @$ g7 P6 n  ask turtles [
9 `# A6 N' r* Z9 K    right random 360- _; E/ m3 u9 Y  k1 ^$ n
    forward 1# K' N' m5 [+ p8 J
    set energy energy - 14 T" N6 t8 f' O. M
    ]
# U7 F! b( u3 L" i. [end
* U# W0 N( V8 gto setup-patches
$ C  O6 l+ y& q9 `+ S; h# e) x  ask patches [ set pcolor green ]
: K( f( A: I5 R7 |+ U' h! w* z2 Iend
, T  u# G& }% ]2 m8 t1 c# Bto setup-turtles7 Z. j1 u* l4 f; S: \3 |- I
  create-turtles 100
& ~7 X: K" }4 S* a* i" S  ask turtles [ setxy random-xcor random-ycor ]
! X  N1 {- v3 S; X( Gend  D4 B# E- [3 c  t( B# g: K2 H
to eat-grass
0 `1 A& b3 S/ W  A; k5 x  ask turtles [
* S# p+ r5 |2 l, I% f# L    if pcolor = green [3 r, Z" {( t; O( t# b: ?$ D; C
      set pcolor black- T+ d* S) }, d5 r8 z) ^9 N& B7 ?/ M
      set energy (energy + 10). M/ `6 ~' t. \5 ~
      ]
* O) l' G7 i6 {3 I- }    ifelse show-energy?2 O# C$ |& ?. Q" ?
      [ set label energy ]! M* E, `8 [; s3 K9 B" `
      [ set label "" ]
9 b5 @- O( @& A; \! p+ G' I" y, g    ]
+ H1 L4 `5 Q$ a3 S0 k6 J5 oend
, l1 b& g: B% c- [* X9 A" kto reproduce
' d7 |  M! p* j+ u2 r* ~* [6 z  ask turtles [; }' Y2 ]' A% R# {7 Y: H8 |
    if energy > 50 [
. V( v6 C9 c; l: }' u" k5 _      set energy energy - 503 X9 {4 U7 M. h) \  C+ T- V) z
      hatch 1 [ set energy 50 ]4 k$ u" [( r+ z( f" F0 ^! W( N" i1 [
      ]; Y( B. C. ]  B3 i4 e7 y( q$ Q6 ]0 N
    ]" ~6 t  b/ F0 }0 [2 N0 p/ g8 d2 g
end1 i# ~8 E3 |: U+ _# Y6 X
to check-death
. f% G; J) y1 B( X5 a  ask turtles [, j3 S% @" l' ]6 d1 c5 B* y" T
    if energy <= 0 [ die ]" o3 h( x" k9 i1 j$ q& D9 |7 Q, B, e
    ]
3 E8 \& ?4 P& V9 p5 Kend% e1 R0 T1 }# I) c, N) m5 N! i
to regrow-grass+ y7 N( B$ r4 b6 J
  ask patches [( d8 p. v$ H# f, k' q
    if random 100 < 3 [ set pcolor green ]
& ?8 r1 j# ?3 g! ]    ]
: N% t  H1 R" K6 xend+ F: G$ R( p. t6 F$ ]5 F( g3 i
to do-plots
9 Z6 a" @0 E# s. D+ ~" X  set-current-plot "Totals"
4 w. d* `$ K  G8 a% }0 X1 L  set-current-plot-pen "turtles") @' M& `3 L" u/ G
  plot count turtles4 j. Y! i2 }. J5 _) T
  set-current-plot-pen "grass"
$ Q1 M: w4 \: l  plot count patches with [pcolor = green]
, q& Q% p* e# f' W' X: tend7 T0 U7 n5 }+ L% u, B
可是运行时提示no such plot: "Totals"3 \7 v0 h: J( }
error while observer running SET-CURRENT-PLOT
1 z  \; x. |* d" A0 X* A  called by procedure DO-PLOTS
; S9 P+ X. q5 o- q) c" O+ c  called by procedure SETUP" {$ L2 K7 U3 ]. V1 j# Y* T3 F- W# P
  called by 按钮 'setup'
5 @) N6 W* t% k( r/ F, A1 @8 X' Y求大神解答啊
发表于 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
" M/ ^5 r2 r; b* i% i. O; x建一个叫做叫做Totals的绘图框就行了
, S& G' R, F8 q! D$ g
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-5 20:52 , Processed in 0.017253 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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