设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12354|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
8 U* {' U) q0 U3 A/ bto setup7 a3 y1 e; Y* j. u3 U$ x
  clear-all
2 I6 K4 O" c- _1 p" e  setup-patches
+ Z8 {( Q9 [. W& T' E" Z/ p  create-turtles 100# `# S+ F' Y1 Z8 v2 D  p* j  ?
  do-plots
/ C# i# E9 b# H3 M( l" S6 X. j  l2 q6 G  ask turtles [ setxy random-xcor random-ycor ]
! ?( q" u6 T1 a& ?% Z  g6 M4 ?5 H: K: yend- I! |& K# C7 q5 e2 C7 S
to go) j  c) F$ r- o0 g" S0 B
  move-turtles6 a9 w3 u2 s$ H8 {
  eat-grass
. ?: h1 A$ W, v# p  reproduce, @; P# Z8 ]8 x
  check-death- v0 B( p1 b* A" m% S3 j
  regrow-grass- `' ^: G9 P# k# h
  do-plots4 r! J2 b5 y6 I* \, `# `* I# P
end
% m! E% X' f9 l. w! w% a6 {% Gto move-turtles* _- k- ^4 ^6 e
  ask turtles [
; e* |* O+ R9 v8 {% J' G& v    right random 360
+ B% b  `7 U' |' t1 b- b- v    forward 1( T4 T; h5 @0 o0 j* t* t( A
    set energy energy - 11 I  ~! i& k* z' B1 L5 T+ p
    ]
7 ~4 \/ I0 h# A9 Zend
' ~' o/ q  U8 j: ]2 H5 t4 T" Z: sto setup-patches
! o1 \; f! T7 U* ?$ p" y& l$ j  ask patches [ set pcolor green ]! ?* X; h3 e; d5 c. @
end
$ ?, |9 |: U6 s8 a; _- @; {to setup-turtles
9 {  Y# e+ t7 U3 z5 v. _  u+ I  create-turtles 100: A+ _+ m4 D' W* I$ \0 N: ~$ H
  ask turtles [ setxy random-xcor random-ycor ]
3 b" Z0 Y) w0 i, R: P2 A, ~# tend; ^6 M8 x& C1 M& c5 U# {9 x
to eat-grass
- X1 [+ h% V) P% [! j  ask turtles [
8 S' y# B- Y2 V- Z% X% ~% X: s! \, p/ D6 r    if pcolor = green [0 j0 ]6 ?2 A3 }! ^5 L7 q+ }
      set pcolor black
, e) `* a% B" f7 b      set energy (energy + 10)
4 G- s# Y2 _: x# i1 X      ]1 q$ l+ E- z$ ?* }
    ifelse show-energy?2 t& `' p0 ]3 L% G# i
      [ set label energy ]
( M. ]+ N% v; T$ p, ^8 [6 S! g      [ set label "" ]
4 i% y8 i# `+ d. g" i    ]$ M! W4 d/ [% Y* ^+ E. [! P5 {
end1 }0 b+ a3 H6 o  ?
to reproduce
9 H3 P/ c0 l) T  ask turtles [
3 j: g* L9 b. W4 S7 q    if energy > 50 [" n; s8 v% j+ y/ f
      set energy energy - 50
( F+ H2 q- b0 J4 \2 R: L      hatch 1 [ set energy 50 ]" \4 b# j1 G  \4 [6 j% q% y& X8 i. `3 d
      ]
& C0 Q7 F. a8 m    ]
3 ?4 d/ E$ `) j2 N3 C4 ^' ?, O5 mend4 i7 @1 F- ?& S
to check-death! @% }6 v4 r; u, ?) F
  ask turtles [1 {* q3 R' {( I& v
    if energy <= 0 [ die ]
) Y: y7 D  ^  b6 s    ]5 H1 d  ^  u) i
end& V6 ~# s/ S$ u8 ~
to regrow-grass
, `9 e* d( t" T" g( k  ask patches [; [. l8 q) @" F' J  j
    if random 100 < 3 [ set pcolor green ]
* \5 w5 w  j7 G' S! Z0 y6 Z    ]9 N2 X" w. O& u' W  K. e
end& y. \+ L' |. c6 c2 w' ^! r
to do-plots# j  a% C+ x! x! g/ I5 |4 S& u9 q( W
  set-current-plot "Totals"
8 ]) u; f0 U+ M. j( ]! p, B  set-current-plot-pen "turtles"
+ k+ _$ a9 W4 R1 }/ l  plot count turtles
% Z: U; y6 L  c4 z4 G  set-current-plot-pen "grass"
0 j9 G2 q( A, h" `8 }2 ~. f  plot count patches with [pcolor = green]2 B: J. j7 r5 ?/ [. q
end- X; {+ y) ^9 j+ b1 F# i0 s4 o& l
可是运行时提示no such plot: "Totals"" F+ W. u) r" u5 \# u0 a
error while observer running SET-CURRENT-PLOT
1 h" F, T) T$ m" }/ ^7 l  called by procedure DO-PLOTS# z& S. U; K* c9 T9 ~1 @; m% n- i0 e+ X1 G
  called by procedure SETUP
* `% ~8 S! h: A% ?# k5 ?( i8 Z4 I  called by 按钮 'setup'9 ]6 i4 y$ j- Q1 F
求大神解答啊
发表于 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
! c0 c; S8 c- K2 J& p; w建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-8-13 01:26 , Processed in 0.016853 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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