设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12525|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
: m9 _* W6 F- a; ]1 {% B4 lto setup
5 o% v! Y# V  {7 u& n  [0 t  clear-all
* c, D& J" n, E8 b  P; G  setup-patches* d' V2 r+ F# J3 Y2 G/ [
  create-turtles 1004 v% o8 r  I5 m) I5 i; h
  do-plots9 {1 |* i6 L# |' ^2 I$ q. R
  ask turtles [ setxy random-xcor random-ycor ]! i9 b$ A% v: B% r" T; u
end1 o. j8 Q. y* e* @0 @4 c
to go
" [! _5 J2 R9 h& x, [/ r( ~+ e  move-turtles6 Y" ^8 V6 S: z
  eat-grass- c) a: L! I% S! S, b
  reproduce
8 @) D8 A- @( }2 u# l  check-death) |4 r$ Z1 E& A6 E; ?2 D: o
  regrow-grass
. x+ i. q/ W6 a. f- v" y1 p% v2 O) u  do-plots
1 i0 D4 Y/ m3 c) ]+ _end7 _1 Y* {6 Q8 J+ b  D" t& c# Q
to move-turtles
3 A5 o* ?9 R+ t- Q  s  ask turtles [
0 G, v  S  A4 T5 y/ R1 p    right random 360
3 C5 }0 I+ X. {5 f9 z9 e    forward 1
: n6 {% s9 q; l4 o; m    set energy energy - 1
& {' e/ k: ]( p2 r" o    ]
: r- t% }. @6 p4 ~2 send3 t4 S/ d* h- v  L& ?) T
to setup-patches
7 O4 P: W. P; q- F* b; e3 A4 M9 z4 A+ Y  ask patches [ set pcolor green ]; x5 P+ U8 b4 d+ t/ v) _
end& n8 G$ M* J" q/ Z0 g
to setup-turtles4 l3 I( G5 |" v/ e& O. w2 v
  create-turtles 100
6 ?6 G9 F; j- {6 W+ V" y  ask turtles [ setxy random-xcor random-ycor ]' p* V% |% a& |
end( \- k8 w  `' g& Y' `/ h6 q3 v- x
to eat-grass$ `6 l  y# \+ i, C
  ask turtles [0 o3 |0 \0 x% m8 ~
    if pcolor = green [" m# F! _7 _8 r# y
      set pcolor black
( u( ?; W* y5 H- D) K      set energy (energy + 10)
2 F* a/ r& ^& {) d2 i, Y      ]" @% p1 l; J, \- m2 X
    ifelse show-energy?6 g" v' E* I# y6 [- }$ T* d" `# S
      [ set label energy ]% o$ N' g( [8 i8 d; p
      [ set label "" ]8 P7 f7 z4 l$ S3 r
    ]4 f' T8 ^+ T" e) H
end
# E7 T! E1 w) D, m! i; Fto reproduce& H" p. K: @  T& H6 J  z& {) V; z
  ask turtles [
  n- z- a" p: p1 S    if energy > 50 [. s5 z5 H0 v. C' g/ A( G5 `
      set energy energy - 50
1 G2 H& i, U3 c% F# w8 j/ t5 [      hatch 1 [ set energy 50 ]
  V) |5 E2 j6 M8 F) i      ]5 \) f/ F5 l7 M; V7 ^8 I, f
    ]
; L% h8 m6 ~# x7 Nend
& |) p- W4 K8 [2 Ato check-death7 G: ?# D; f' _2 @
  ask turtles [
) u( p9 B2 b" j! E    if energy <= 0 [ die ]; z& N: C+ M7 m* A$ r4 ^0 C
    ]
: A' a# e- F; ~3 h; G8 vend
$ g7 V& @5 r( W1 ito regrow-grass# y5 U  s9 b( {1 X8 Y( F+ u, H. ~
  ask patches [& `; Y2 C: I! O, w* _5 b
    if random 100 < 3 [ set pcolor green ]
1 }% C9 @% V& y" X* n3 |* X    ]6 K# X% s6 `. x+ z
end
0 {8 V* f- \1 ]5 d) ?4 K1 }: wto do-plots
5 G5 s( z( U1 P1 k! g8 `7 u8 C/ M  set-current-plot "Totals"  l( B- Z. `7 O  c3 s7 g! B. q
  set-current-plot-pen "turtles"
0 ]+ t7 H# R1 W- ~  plot count turtles& m  e$ M) M1 T# W
  set-current-plot-pen "grass"" k: r- ?5 F/ a' I* Q. N4 H1 t
  plot count patches with [pcolor = green]8 v9 H0 S6 {! e8 }4 [( z/ p
end3 `5 ]' _; j2 T/ D. {# E
可是运行时提示no such plot: "Totals"; I! R; K) R+ }! `
error while observer running SET-CURRENT-PLOT( G$ Q- Q0 x* Z! K8 `
  called by procedure DO-PLOTS3 y; ]5 g: ~) K3 E
  called by procedure SETUP) C7 |! M! y/ m% I" Q
  called by 按钮 'setup'
1 E$ j% i& H3 z3 a  w5 d& O6 Q6 V$ ?求大神解答啊
发表于 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 - l& Q' b4 K5 Z9 t
建一个叫做叫做Totals的绘图框就行了
# A6 e8 M6 Y" q, ?9 q; g2 D- Y8 i
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-29 09:15 , Processed in 0.018937 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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