设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11786|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
0 a9 k0 x$ p7 C" W+ j& w3 U5 \to setup
: Y  ~4 S" r, D, \7 }& v  clear-all3 `; H6 U/ w& h7 [( u4 g. F
  setup-patches
2 P/ W9 o+ Y1 h$ g7 w0 y7 O4 r7 R  create-turtles 100
7 D# K3 b, T" z# |& ^: p  do-plots
0 F) f$ E$ f; U* b  ask turtles [ setxy random-xcor random-ycor ]
7 i1 \% D0 \) s. i; m) `, [8 N9 k  {: Mend
0 L, |# H! ?, V# A) e+ w5 _to go
/ H2 N8 a( d5 }- D! V3 a  move-turtles
7 J8 |# U2 I8 \, C" A/ A$ m  eat-grass/ D9 e' S/ P. L4 t
  reproduce
: z2 w- s3 A8 [" }0 N: }7 O  check-death
* r9 |: L& s7 Q. W" Z  l1 j  regrow-grass
, `# m! _5 q8 o* w; n  n  do-plots  m" \: P% U) r/ h$ Q) n( g
end/ m( H: K1 O# U& F( g( \
to move-turtles
) m7 }- n! N, o6 i' f  ask turtles [
7 [6 d; N! L, P    right random 3602 R# J% h7 M* x
    forward 1
) a' m% O  x$ B0 I9 X    set energy energy - 1$ V% M# b- O3 P; w: X
    ]1 k  M1 {( k# W
end
' l7 _- |0 c* R& d3 e6 s- H5 dto setup-patches
6 G" p3 J; f9 q9 G1 F- n  ask patches [ set pcolor green ]3 Q( Y# t8 G4 y" u
end
9 k1 R  j, x% X2 m  S& ^& {- Pto setup-turtles
+ {6 z7 s& u; R3 e- j3 k2 Z9 z! Z0 E  create-turtles 100
3 I9 U3 _+ X9 N  ask turtles [ setxy random-xcor random-ycor ]+ a: C0 {1 ]- F; T4 y& Z! P
end
1 ]6 I; K, ^" j8 Q+ rto eat-grass& H' g/ Q: R" y+ P0 l7 g
  ask turtles [' G- S5 J4 A/ M! X, V7 J; C& u% g
    if pcolor = green [) \$ ~5 Z2 H$ a
      set pcolor black
* ~- m  I/ L' i0 p* O, }6 M      set energy (energy + 10)
5 d9 U, ^2 @7 c+ B      ]1 e& J% }) F, `3 r
    ifelse show-energy?
" i( D5 o* l0 U. I5 z* K3 @3 s      [ set label energy ]
6 m$ l6 e7 z; j/ k( q' i4 m      [ set label "" ]
& u$ \& ~1 \. D& ^    ]; L. b) A6 }% k' p
end
5 d9 ^1 K2 s% ^/ lto reproduce- f* a% S: U  ?
  ask turtles [
0 L6 \* j% g6 E9 b. c1 @    if energy > 50 [
) F$ [6 N) \+ d' {* f2 P  U      set energy energy - 50
9 X& ?9 n9 z, n& F% T2 z      hatch 1 [ set energy 50 ]
5 U$ n7 Q$ g1 u1 X7 a      ]( B/ T, v  x% C3 i
    ]
  z# ]! T1 P) Yend
" i0 {3 ?; H, Ito check-death5 \+ A) Z/ a7 o6 x( H& }
  ask turtles [0 X  U6 `$ Z% J; u( m
    if energy <= 0 [ die ]1 z; u& S3 \' O
    ]7 X  R( P6 r7 u: O. b
end
# o$ ~1 ~+ ^/ a/ Hto regrow-grass  b# [( b; O& ~! H& M- U, b
  ask patches [
3 u, S1 G9 L4 e/ l: H& X    if random 100 < 3 [ set pcolor green ]
7 ?* ?, }; ^" O' p    ]
7 E( u' T: Z8 t5 @. x  G& b2 ?end
( W  {8 _' j% C. p" Wto do-plots6 l; y& i) d# b# D
  set-current-plot "Totals"
7 F( [1 _# N! I. [- h0 G  set-current-plot-pen "turtles"" o) Y/ {9 W- f) y2 G
  plot count turtles
: y' j3 W" N- c) `# j% r: i5 i3 M  set-current-plot-pen "grass"
  ]# }) ^% a  Y$ K- S# c/ ?: @/ H8 Z  plot count patches with [pcolor = green]5 v" o; \( o# q% ~
end
0 `1 o+ a  i9 ^2 B  e可是运行时提示no such plot: "Totals"
; O4 b: _# r" |% c. [" x3 ?error while observer running SET-CURRENT-PLOT) N( ^, k+ G9 @0 s7 F3 V& o: u7 b
  called by procedure DO-PLOTS
) L( F( l6 c1 q& R# ]- a: v  called by procedure SETUP6 S. J% _+ Z$ K! ~, n& _
  called by 按钮 'setup') [1 K1 [0 f7 @7 H! P( {
求大神解答啊
发表于 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 # I' p* [# B+ t% W
建一个叫做叫做Totals的绘图框就行了
; P3 ~$ O" M9 ?9 R5 w
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-30 03:15 , Processed in 0.016892 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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