设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12720|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
8 ~! l+ k8 N/ x8 Z2 e$ ito setup
2 B! v/ z' w" q5 P! S  clear-all( Q9 Z9 a& _( M9 h9 s0 B# {
  setup-patches, p1 y. ~+ E& c3 l
  create-turtles 100
, ^/ x: u7 G! M! H( b8 N& T( I8 i# f  do-plots& \" O( `! [( L$ s1 m0 \
  ask turtles [ setxy random-xcor random-ycor ]: Y( ~; ?8 W8 b0 K. g5 X4 C8 E) C
end
/ O4 j+ }, F9 u% Q, o/ Zto go3 T" w7 n& t/ H3 ^9 g
  move-turtles' f8 U9 R; O2 e8 S3 M. b
  eat-grass. }# o1 g& i# t1 a, @
  reproduce, E7 G3 W  _: Y- Q% p* F2 N4 l
  check-death( C- j+ ]$ y+ |4 W* o5 L5 f
  regrow-grass
+ ^) z3 a' f5 C0 P# c( ^6 L  do-plots2 V" l2 Y' \: b& A+ H0 D7 }0 R" e
end+ W. C1 E% Q& \" B
to move-turtles' s$ j) \( G( f
  ask turtles [
; z! S4 H( D/ j& Y9 m' j9 ?7 Z8 P    right random 360
& U( O7 w- S. n( p: P+ P0 W    forward 1: z3 m% p; K% T6 h* j7 {) f
    set energy energy - 1
6 S& ~( a% L+ A, O2 P0 W' R    ], |# l4 k8 e$ d( Y
end
: X% o3 j% N/ X- x0 Wto setup-patches4 m3 ^3 e0 h5 K5 o- @
  ask patches [ set pcolor green ]: u1 Z) Q% ?% H6 |- E! u% Z
end
) I) r) a& y) {* B, M) c( @8 gto setup-turtles
4 G" o$ x+ d4 B/ Y  create-turtles 100" ~, M5 p0 U% z$ s; \8 C' x3 a
  ask turtles [ setxy random-xcor random-ycor ]: O: U1 ^3 C; a
end& }( u8 G1 s7 j  B* _
to eat-grass/ B0 I1 h. I1 N& L: `3 H
  ask turtles [
5 A) h: ?' x/ G' P, I3 k    if pcolor = green [
2 l4 c+ m7 a% R( _6 G      set pcolor black* y/ x( H6 v. `1 t- K8 l3 O
      set energy (energy + 10)/ [/ Y% W8 `$ c+ C8 n
      ]  L$ k5 C# q2 i; q+ z+ ]- }( d9 g
    ifelse show-energy?
# S1 i7 A8 q* n7 r4 L      [ set label energy ]$ n- _6 `3 T: N* @# l
      [ set label "" ]  t+ I- s4 G9 y2 f1 ^' o
    ], L, F  R: y6 K/ {  t  w  C- S
end
: r7 Z; Y5 x1 v+ y0 w. hto reproduce" L& s* o2 r/ Z- z
  ask turtles [, V; d. `2 t! _
    if energy > 50 [, O- M3 v/ e! u: t! p+ ^
      set energy energy - 50& S: {! B$ t' @; l" T
      hatch 1 [ set energy 50 ]- o' @) {) R% r6 L  V) i
      ]
2 d. o, [+ K4 T7 _    ]
4 L1 p4 V$ p" X2 D' W$ u' U9 l9 R5 nend; I. {4 ?$ v' V' O' D4 Y
to check-death
2 ?# d/ ^4 Q" p: G$ @5 ?  ask turtles [
1 b0 G  r$ z0 X" t8 G% _+ ~! k    if energy <= 0 [ die ]; K: o' ]! q5 v6 b: U
    ]- c1 Y) x% `' b/ C2 H
end
* w$ {$ q! Q. [9 ito regrow-grass3 v( k- R9 a  e7 I
  ask patches [1 F( t9 D" w5 o
    if random 100 < 3 [ set pcolor green ]
& H# v, @! y4 B    ]) w$ q. o7 b; `2 v, u
end* t5 h5 }4 O. i
to do-plots
) u1 H9 v4 ?* w8 z8 C  set-current-plot "Totals"
4 c% k. ?7 d% r- o& W9 N  set-current-plot-pen "turtles"
6 V% ]2 A, E& u/ p  plot count turtles
% y5 {& X) r0 g' D; F0 C! J  set-current-plot-pen "grass"  S6 x# s' ?3 q+ R* q6 w( Q
  plot count patches with [pcolor = green]2 Q% ]2 O: g! ^2 |
end7 n! s( z1 R; S' }4 J9 v
可是运行时提示no such plot: "Totals"9 y) w: p4 E# P1 l% g+ s
error while observer running SET-CURRENT-PLOT
$ p; t6 O- Z& C9 C4 z8 R- P  called by procedure DO-PLOTS
% ^) U, d3 H6 Q/ {5 @  called by procedure SETUP$ [7 M; ?% k* F. M& V6 H$ ^- |! N
  called by 按钮 'setup'3 [+ `! ]$ `1 z* d
求大神解答啊
发表于 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 2 v/ k7 a: X2 s) J1 p8 s
建一个叫做叫做Totals的绘图框就行了

0 W2 ?7 T& |; n) u6 X& T0 _1 u哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-12 20:49 , Processed in 0.015017 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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