设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12138|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
, y# d% P# c! s. v3 l" U3 |; Qto setup
) P# ?3 A- S" m  j: O  clear-all1 b' `$ m! K# u/ Q8 W
  setup-patches2 w3 U" ?7 D6 a6 |- N8 G
  create-turtles 100, J& B4 P6 u, f" g" I) N1 x
  do-plots5 v1 l' W, {8 L
  ask turtles [ setxy random-xcor random-ycor ]: U" M* h! c6 o0 h; @- ?6 U( b
end7 a$ `6 H" k, E
to go8 X' X# V, f' l/ [3 X% K
  move-turtles
3 b5 e" l- h& ]( D4 g( o* d% E' R* v  eat-grass
7 h0 V( A6 d. `; ?, B  Z. G  reproduce, a1 `% f! S, e! k: H3 S
  check-death
, d( d& E) K9 c9 @1 ^' H5 S  regrow-grass
, ~7 k- y3 f2 i  do-plots
2 z3 G$ ?' P4 A% w  h, m0 rend
0 Q. j4 G+ W8 t( Sto move-turtles: o/ v9 a1 d( \" f* x
  ask turtles [
- w7 |" A7 D2 R    right random 360$ ~% Z. Y/ }, C* ]  V2 |5 R
    forward 13 g1 }+ k* G+ K/ @' C* z) Z
    set energy energy - 1
4 H) @' ?1 @2 t) U/ w# ?    ]
  g/ F7 [( d3 ?6 J1 r* T6 H6 Lend
! M- v) K3 |- c! K. V, ^to setup-patches+ C% A' d0 m7 a- d  B8 i
  ask patches [ set pcolor green ]
7 r1 H! U' \$ ]% q' w# fend
; K7 ?2 o; l! ^6 `- a( X# T, Ato setup-turtles
* D" n8 m2 C9 B+ S  create-turtles 100
5 z/ n- q; ^7 ]7 P0 E/ d' c  ask turtles [ setxy random-xcor random-ycor ]
+ z, U* S. w! U9 [4 O3 @7 D6 m3 d1 [end, W! y- z; m7 m' n4 R1 A3 `
to eat-grass
0 V6 H" ~: D! `' U  ask turtles [6 _; ~7 }4 I1 T/ ^2 B: ~
    if pcolor = green [
* k" D  _- X2 U, g2 V+ z+ L      set pcolor black
& Q+ j# w: V9 ~3 T8 v! N      set energy (energy + 10)
& \& Z' s, M$ n+ |& Q      ]
( [# a( P* D! F    ifelse show-energy?) G. ?, @6 Y' E  r
      [ set label energy ]
; j* y. \6 M& |% @9 ?      [ set label "" ]
) s; O! D8 |* p    ]* V8 j2 F) F, s5 @5 n& S
end
# S5 g2 P# E2 h/ Mto reproduce
9 b  S: F  U5 W5 T1 C! x. E/ m  ask turtles [) m+ P* h/ r6 R4 D, W$ F* x( ]3 r
    if energy > 50 [. Y( |5 e, [; z3 R' B
      set energy energy - 50
, d: \1 @" P) W$ F: X5 M/ _1 R      hatch 1 [ set energy 50 ]
! l; d2 Q: M% o: A( g+ `8 d      ]
; u: q) a7 \5 t4 ^  Y    ]( j) Z1 Z2 Y( d
end
4 p7 q% E) o  n1 x9 E8 eto check-death
. b4 s" R# K( @! _  ask turtles [
  p0 D0 I" J& |- t6 J* _: W. u    if energy <= 0 [ die ]
6 C* i$ w0 d5 ?, ^/ h5 b! g% c- m    ]
2 |3 q9 w# M0 ?) [end  y! Y3 o* \- o: K3 ]& ~* f
to regrow-grass( ~& J$ b6 f" I, D# b( d! ~; f( j0 {
  ask patches [
* Y) _5 B4 v" _/ C9 r: A) s' W    if random 100 < 3 [ set pcolor green ]8 `. D0 q, b( j  `
    ]
, S# P# K2 _7 u6 Y$ |end
& t$ @0 @: D: U6 L6 \to do-plots
: t/ j- }6 Q- Z  set-current-plot "Totals"
. a8 z! s$ V, L) A$ X! A, q  set-current-plot-pen "turtles"
5 d0 x2 w; z" w! W5 ]* N% i5 r  plot count turtles
" H4 }5 _2 A$ f& w" n) K& I# ?2 D  set-current-plot-pen "grass"- T% L" e0 L; W' E* C) L& O: n: [
  plot count patches with [pcolor = green]# U& `# d8 ^% ?7 t9 _0 L% S
end0 D; X2 w4 @" q" D5 y- V
可是运行时提示no such plot: "Totals"- [+ i: v3 }  T- A+ y
error while observer running SET-CURRENT-PLOT- P) \3 T. u: |8 Q9 c3 K/ ]2 D
  called by procedure DO-PLOTS
8 Q! `- [/ b! c  m1 k. T# a  called by procedure SETUP+ z+ v) O" v9 ^- p
  called by 按钮 'setup'
& @' S/ |2 p  I: `& V, H" q求大神解答啊
发表于 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
4 Y' |! f( o( S6 E( s( q建一个叫做叫做Totals的绘图框就行了
6 s+ n( o! D" b2 L; k
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-28 15:51 , Processed in 0.016287 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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