设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9907|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
1 _  j! I1 t- ^" T1 `' k; @8 jto setup2 b  d/ U1 A5 G! S$ I" }) U
  clear-all. }& {) @% C; X% g0 y2 n2 K7 ]* K
  setup-patches
3 w  ?- y( U- d* |7 f7 q  create-turtles 1006 m# v1 t+ C. P3 }
  do-plots' F# t* }9 b  |2 b  J
  ask turtles [ setxy random-xcor random-ycor ]4 P% r6 |9 g' r- J4 O5 P
end
- U0 h0 h6 ?3 i8 U+ y7 g, Wto go2 Y/ u& e. b3 C. e- }( I9 ]
  move-turtles+ s& v, N4 F8 c: N' ]
  eat-grass
2 ]$ [& v5 A4 X* b: M! s2 k  reproduce
0 x. h3 n: X' f. u4 C; Q  check-death5 n: u( ~/ C$ u& |4 u) e* J; c
  regrow-grass& C3 O, u# A( Q$ k. g
  do-plots
% T! I; u. F8 Y. f! Kend4 H& j& C2 g- ^2 Q
to move-turtles
" L& C8 N9 a( h  ask turtles [8 l( E3 `+ z' ^" g- v+ p5 c
    right random 360
7 @7 j! H! t( z3 Z" ]! f& A    forward 1: R/ R+ E  W8 ]  V9 T$ I+ G
    set energy energy - 1( X7 q9 w9 T5 `; M" M( t
    ]; r8 Y) ?6 f+ Z3 h4 z
end
% @0 O& |5 Q, N7 h; ?to setup-patches
$ x( n+ Q' ~: T8 m4 K  ask patches [ set pcolor green ]6 r; `; r( z. |( p3 {- g- d
end
& B/ r) d6 J1 I- V. L1 Ito setup-turtles
1 h/ f4 D$ m8 Q. v# x  S" J0 H" I" d  create-turtles 100
1 L' J  W. _4 n5 R$ l9 Z2 _  ask turtles [ setxy random-xcor random-ycor ]" q* V0 r/ N* J' u  \' W
end
  T# k3 @0 D1 N% Ito eat-grass* r5 n, {( ^% Q* ]  ?" ~' M
  ask turtles [* \3 \+ T7 o0 _' c" |, {, |
    if pcolor = green [
- z0 ^7 Y3 O' j% W7 V, o* ^. H, Y! G      set pcolor black5 c9 C5 z6 @+ v3 R% h) m
      set energy (energy + 10)
) {7 [( [4 c) u7 j3 I; B      ]
! X/ @: Y2 m. Y" O8 h. H# S    ifelse show-energy?
0 L0 e; a- w/ j" C2 m      [ set label energy ]1 r, b9 n# ]3 F( F% Z4 L
      [ set label "" ]
. Z: p' z" i* z$ n2 J/ U; d7 a4 d" _    ]
4 r! S" h% G# j# \end1 g$ M, j9 K: ^- M' b
to reproduce
7 H% s7 [; y7 c, H, D3 ^$ `  ask turtles [* \$ j3 D' n0 X. ?- N- F1 n
    if energy > 50 [
/ g- A) H- y8 d; K: ~& [* f      set energy energy - 50
9 m4 k/ W+ y8 l% k! }3 p      hatch 1 [ set energy 50 ]
  K; W2 c+ z, D+ M      ]
) ^. q/ ^4 |  ?$ G/ d    ]
- w" _* H1 K+ t/ P8 A3 O+ P0 Dend/ R$ A) y) F: |) _; a; D0 I
to check-death
/ _) ]5 b: |# r8 a2 T! W. D  ask turtles [; g. t, [* ?5 n, z$ S
    if energy <= 0 [ die ]' W& O! ]# y) R' h6 S) K
    ]
7 ~# w4 h+ |6 Y' f7 X3 q- Eend
5 J7 g# P" F, n* g6 dto regrow-grass" t1 |6 [/ R. `- f
  ask patches [
2 Z0 O4 y) i- k    if random 100 < 3 [ set pcolor green ]5 Q0 ~3 C5 k( Q* b2 T9 t
    ]
1 s, `2 A6 n9 N& \end
% P+ s4 m" ?. F8 z) ^) w2 E) Eto do-plots' j6 C8 F6 o! p- ^& R0 D, k' e
  set-current-plot "Totals"4 a& v$ Q1 Z  L1 e8 y
  set-current-plot-pen "turtles"& C- _( o- j* S4 `( T# ^8 O, B
  plot count turtles
- ?( ~9 P; f$ d4 F* Q# @  set-current-plot-pen "grass"
4 D( A" n1 c/ m$ e* [+ k. z' ~  plot count patches with [pcolor = green]
- m2 {" O' Q) @4 Pend8 o, @7 E6 x$ `5 _  T6 p
可是运行时提示no such plot: "Totals"; p& e2 k1 Z9 u1 Y( f
error while observer running SET-CURRENT-PLOT# t& i# K5 e$ O6 ~8 Y
  called by procedure DO-PLOTS. D5 T- N2 ~- e* ^3 x6 J
  called by procedure SETUP& B7 y( C( R7 O$ \0 \( T  q
  called by 按钮 'setup'
3 ?: ^* _9 }9 B9 Y  |求大神解答啊
发表于 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 y0 @7 z0 ^- ]- W4 j8 \$ g! Z# X
建一个叫做叫做Totals的绘图框就行了

- W. X' C, p. U3 ~. N: O* ]哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-30 02:06 , Processed in 0.017872 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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