设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9508|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]& f7 B% e% J% o: c' g0 }; s7 u
to setup
* R  q% U5 t' \0 ^) d  clear-all3 a) _, {0 l% s% X4 X
  setup-patches
. {. Y$ l: z; k. L" ~% g( |  create-turtles 100
6 b9 K0 |+ ?( h2 }" o; }  do-plots
! C( o* R4 S% s1 Y  ask turtles [ setxy random-xcor random-ycor ]
( a7 Q! R2 V8 Pend
( I% h: A" K6 d. Z( w& ^6 a" O3 ]  ~to go
/ v+ r: [9 }. U, {; ]) E  move-turtles
. l7 X' f! D: [' k8 H5 h  eat-grass4 s7 n, I! k" G- S* ^5 X
  reproduce
1 @. D' H( w; H  check-death  O& m; D. x) H9 w9 I: H0 C3 W
  regrow-grass8 h* k( N9 |& u4 t0 y1 V- v
  do-plots
8 T! X+ X. ?) K4 g# qend1 {3 P3 V" @7 Q4 }
to move-turtles
) ?3 A) i; H8 X4 O3 ^% I8 G  ask turtles [+ Q- Y4 X2 P* c$ x, g; D* I* ~
    right random 360& y1 I% O& k4 w, P) o3 t
    forward 1
$ c  c0 h' T& }$ I. v/ R    set energy energy - 1
: |) ]. P$ a* ~5 H7 q- g) A    ]
+ ~. L- O3 O8 bend
7 B( ~, _3 q. u& {% i, Zto setup-patches
8 a$ j/ H+ X" T, J% L8 |  ask patches [ set pcolor green ]
, \( h8 v6 X$ d) B" s( |+ x0 jend$ D* {$ v$ e' z! E3 ^& w9 X, M5 _0 i
to setup-turtles# i2 K2 L+ r/ m+ F/ n
  create-turtles 100
: C. |7 C, Q8 L  ask turtles [ setxy random-xcor random-ycor ]
8 [+ i1 w/ x6 V* `  U, Dend
6 Y8 K# ?7 |6 k0 U9 Y, Oto eat-grass
& z4 N( F) C$ q5 O+ a! a! E$ @  ask turtles [4 x! x& j, ~8 c9 N
    if pcolor = green [
  \) G8 B& F9 k      set pcolor black
1 T% F, n% K4 ?1 Q      set energy (energy + 10), f* R/ }1 v& u2 k7 m3 X2 U
      ]
, N( h' b8 x5 ]( l+ n( y0 h* [    ifelse show-energy?
# H& b/ D" u1 s" C) z      [ set label energy ]8 ~* r# t8 t& W# d  T
      [ set label "" ]
0 x7 _0 x0 L6 L& Q- o# T* ~7 @    ]' t' S, o) C. S6 ]3 h! s% t
end
4 `/ a" s7 z1 e/ Y" ]7 xto reproduce
$ M' V- L) W% g7 K/ u6 u  ask turtles [9 G! L* k$ d3 ]: k
    if energy > 50 [
# j1 t4 F' V0 a      set energy energy - 507 w. _# j, X% N% C& j- x; m
      hatch 1 [ set energy 50 ]
3 A" ~$ l0 v; s7 a/ i, y/ j      ]: ]6 K6 p/ X2 P; k. }. c
    ]6 T% w/ o9 Y2 P6 N! p- y
end
' U9 i8 [. q1 v3 T7 S3 R/ U" O/ Dto check-death
1 U5 I' C" G! t7 j  ask turtles [
8 T; l$ f4 h2 b* \" n    if energy <= 0 [ die ]
( Z5 d8 i2 A* v1 c# t) Y  N    ]) u7 F. T. m# ?- p' B
end: g/ ]4 P5 i. @% B
to regrow-grass
, W2 z$ H9 n+ d% u" D! y' j" V4 }  l  ask patches [
. H2 M/ x2 `' V1 C    if random 100 < 3 [ set pcolor green ]
! l6 B2 R- w9 W  g: L    ]$ l/ H6 P5 C- R; M
end$ l9 s! l8 q) e
to do-plots
+ ]7 e$ ^/ {9 {0 D1 s( ~  set-current-plot "Totals"
7 k1 l& x( B. c/ \6 c* y  T  set-current-plot-pen "turtles"
4 r, {( \+ Y, \; F  plot count turtles+ y  m! R9 h( }4 ]9 \3 L
  set-current-plot-pen "grass"
, j6 I" ~. s; i, K- p" Q# v, m  plot count patches with [pcolor = green]
6 N- ?* q; X0 n+ E  @end3 T% |) q6 V" Q/ r+ [* x
可是运行时提示no such plot: "Totals"' I: f4 A# h- H6 c  S1 a
error while observer running SET-CURRENT-PLOT
7 F7 U2 z9 m' @- I  called by procedure DO-PLOTS" Q( T* C: A. t0 w
  called by procedure SETUP
: E& B& k  K& W; x0 e  l  called by 按钮 'setup'
7 _" K8 L# g* \求大神解答啊
发表于 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
9 A1 S' }9 C/ y2 f( t6 ]( R, T0 N建一个叫做叫做Totals的绘图框就行了
! m( Z5 F4 s  Z9 ~
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-12-21 00:39 , Processed in 0.019041 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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