设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10248|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]% E9 h5 h" W. t) m; p
to setup
$ F8 M; k. \3 N) M' P  clear-all% z2 Z# k$ t6 W8 j
  setup-patches7 @; m2 C9 p: ^6 O
  create-turtles 100
2 z' P! ~+ R0 S5 d1 i; W' [& T, G- N  do-plots
# R! t" t) l( g; P- e! \7 M  ask turtles [ setxy random-xcor random-ycor ]( W, q; f2 C" p) g. J% W, O
end
" k- N- E+ K0 r7 }  Jto go: J: A. }2 y6 r: o; X  n
  move-turtles6 v$ V* n, h# J* o- _9 P
  eat-grass4 `3 v& b. G- o5 s
  reproduce
- _# r) W  G  @, E! u  check-death* b" Q7 s' A" q, H
  regrow-grass
" T0 ~; B; u4 a  do-plots8 U/ f$ o! k' F
end6 w# H9 ~6 _  `" |4 {1 M
to move-turtles, c/ A' z4 h5 v3 v! x
  ask turtles [7 @2 w$ A/ C8 u' E. n
    right random 360
$ R# _6 r3 o+ Z    forward 1
+ R. M6 s6 N, |    set energy energy - 1( Q) F4 f1 q3 d. H: h: r- {* j( J, A, D
    ]
7 f) B. \# ]6 H& Dend. B5 S" r' I" C% v7 a1 x( K
to setup-patches
3 c0 {& v& `% {2 U' T+ n  ask patches [ set pcolor green ]
4 ?2 U1 i$ m7 b0 t7 wend
  A0 q; c7 f* m1 ~to setup-turtles
+ i5 Q4 s  A" ?6 E  create-turtles 100
0 r& C, N/ i( n% g) }1 X0 A( z7 d  ask turtles [ setxy random-xcor random-ycor ]
/ P4 s1 q+ h8 eend$ w" X9 S. V' C. w
to eat-grass5 b! x; K- o2 Y& q9 M0 ]1 h
  ask turtles [/ ~% F5 b4 R# [$ I* s
    if pcolor = green [
. D* r/ p8 q: h% t  }      set pcolor black
8 f4 b% Y9 x4 E5 c+ Y5 J& U( X% b      set energy (energy + 10): ]7 }1 A2 i0 s' O8 K& r) o3 l6 D
      ]/ n! C! V' y1 W4 ]/ F& A
    ifelse show-energy?, I6 m9 ]+ z- o4 k# I8 [# W$ ]
      [ set label energy ]
. a; u) ?$ `9 c1 d      [ set label "" ]
/ d7 Y6 J  g1 S/ e3 F0 Y3 ~    ]
) X, x7 |6 y3 c, Gend
: ^. }" y, F7 t* Rto reproduce' `0 P0 Q) w7 `+ k5 I- B
  ask turtles [
, v* L  }) J7 [( P/ A/ H3 V& N    if energy > 50 [2 ?2 l0 B- n- p2 H& L
      set energy energy - 50) x1 J, c% |+ {" w' @- ]! J
      hatch 1 [ set energy 50 ]
9 B* C$ `- B! Y- e+ ]/ V      ]
5 V) k1 ^6 q4 A! w8 @! D" n    ]
% q" M' w. e; Y" c; r! F  w! j# mend
5 v) ]4 {; R9 j8 }! i1 p. Qto check-death
6 h% L2 f  e, E6 Y  ask turtles [
5 m- V4 F2 n, }; c6 R    if energy <= 0 [ die ]
# a# r" k5 u! w, V    ]
9 r* j7 n% g* ?end
5 o2 ~$ W2 m; Y" w6 Sto regrow-grass
1 z; c8 |* A! m! y  ask patches [
4 l# o" D' P1 J) u    if random 100 < 3 [ set pcolor green ]; F. `0 Q( [  ~& ?# C* C
    ]9 e) c# [5 Y2 A2 e; z
end- u, b- j* L8 F/ A
to do-plots% e7 c7 m; Y7 L. R
  set-current-plot "Totals"
( C- B) z$ O* x0 z" o  set-current-plot-pen "turtles"7 i: L5 N! ^( A, F
  plot count turtles" k5 [7 s' o2 Y- K( ?
  set-current-plot-pen "grass"1 U8 @6 V6 D+ F9 }7 Q6 @0 j
  plot count patches with [pcolor = green]/ G4 T* [6 A( J: ~) }
end
& @/ }! u% g) x可是运行时提示no such plot: "Totals"& ]# v) K+ k) J2 v  I0 c! \
error while observer running SET-CURRENT-PLOT
  O1 r. A, n& e" V1 ]5 I" ^, a  called by procedure DO-PLOTS
+ Q0 e$ v) J/ ]7 ~& @  called by procedure SETUP/ F) k: C8 C0 z; t, h$ i: |
  called by 按钮 'setup'
* I$ S# C5 t0 ?+ B8 S) J求大神解答啊
发表于 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 / i9 y% G6 E1 L$ s
建一个叫做叫做Totals的绘图框就行了
* A. J/ E% ?* X# c! Z
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-27 06:19 , Processed in 0.016714 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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