设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11356|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
) X5 V" B, _* W2 ?( ?# n1 R+ Mto setup
: A# g9 @+ Q% i6 s- v% V; l  clear-all2 z9 L- z  S- A
  setup-patches
& ^; W4 |" W6 ]3 {, i  create-turtles 100
/ o' ?; P% p: T& w0 S* d  do-plots
. ~9 x% {; t, T# `! I' r  ask turtles [ setxy random-xcor random-ycor ]( n# Q$ r% b6 ]& a5 j
end0 a! @- q) ?6 J2 X" [
to go, J# H% n( }8 p5 R
  move-turtles
# B1 A+ ^: ?7 T  eat-grass3 B3 |/ f( P: W1 a0 M! j
  reproduce5 v( Z+ Z2 t! Z# p0 }5 N
  check-death9 z" z+ ~/ v/ w
  regrow-grass
+ U/ S$ V) Q6 N' J+ \' A: j  do-plots
: }. X" e5 L) J# e; T8 Z- {. Y4 P6 s) Wend
7 l, Q. @: f, Q# j6 @+ sto move-turtles
' L# K$ V1 s" R# w  ask turtles [
2 o/ Y- e( {$ M& \* @5 l    right random 360
7 ~/ R/ r9 o( _$ T- }" F5 k. F    forward 1
5 A' s& t% @4 P' I    set energy energy - 19 P5 |. z% S( D( Z' s( H3 S1 C8 L
    ]
7 k* `3 d  r6 @9 Wend, m, j2 X; w$ p+ ?
to setup-patches
5 h) i: F& f. }9 w5 ^! E  ask patches [ set pcolor green ]
- d7 S" B, t* Q  O0 o# I+ yend, T) s) D. X( L# W0 \- ?
to setup-turtles: ]5 N/ \7 {( \, m
  create-turtles 1003 i$ W5 Y2 R, n' v
  ask turtles [ setxy random-xcor random-ycor ]
' A1 R5 j: W8 D6 send/ r: x1 Q. [9 k% j* h
to eat-grass7 B, U4 z& o0 Q  n1 c5 T/ l0 b! P
  ask turtles [& {* c. y1 @, a) d
    if pcolor = green [
; u+ a  j  K' a; A+ c, i      set pcolor black) A) K- Z: G; |$ o; F; A( W4 V
      set energy (energy + 10)
. I5 x/ ?5 e0 n6 d/ b3 U& E      ]
' P. B2 Y7 @/ i* M0 o- z    ifelse show-energy?2 S/ @/ }6 \' j/ d% {
      [ set label energy ]- @, Z7 [  A- Q. j* r9 q
      [ set label "" ]
) c0 @* S* K. v" H1 [    ]
) l6 t# j' ]/ ]+ Q9 h% Z8 Bend
$ u$ }5 v! F( v5 mto reproduce2 Q# O. e0 i& I# D6 }
  ask turtles [5 n, _% }  n  I: d: h  a
    if energy > 50 [; v8 O, ], G3 H1 \
      set energy energy - 50
8 w# ?7 ^5 Q8 ?! K6 J9 j      hatch 1 [ set energy 50 ]+ G# F0 r; M+ t7 x
      ]
2 L0 r& C( |0 e; Z* R    ]
2 s- l; X( t- s9 tend. J2 ~- T6 P  `
to check-death, g3 C* v( z8 N, L7 }- w
  ask turtles [
$ ~( \: h) e; b- j' k  U4 P7 H- P    if energy <= 0 [ die ]: V& P4 g' Y5 \4 W9 ]
    ]
) {2 @- K. V9 }  Wend. f' r$ X2 ?, P
to regrow-grass0 r7 K4 L7 [8 a& |9 S8 H
  ask patches [
. Y) f! h% `, v  ]+ C& Z6 j    if random 100 < 3 [ set pcolor green ]0 F0 [6 a0 y' P! ?  m- _7 ^% l
    ]' ^# {$ x# u* t- ]4 E# F) i0 o
end
, W+ a+ I. A) l$ O* E0 Y0 xto do-plots
2 ^0 i; y; Z! k  set-current-plot "Totals"5 O0 z5 V9 e8 X+ ^' s$ s5 Z% {
  set-current-plot-pen "turtles"
; {' A# j. x" H  W# y/ ]  plot count turtles7 b6 P2 Z( s$ s' L
  set-current-plot-pen "grass"6 x) o: @" Y- q1 Y5 u
  plot count patches with [pcolor = green]2 K# H6 @4 P7 t6 C# ~
end
. R  W/ |2 `- R" z# ^$ T可是运行时提示no such plot: "Totals"
& z( @3 s3 q8 \5 C; P" Z  _5 Serror while observer running SET-CURRENT-PLOT0 E4 W# {) h* Z9 r% K0 S, E$ g# l+ p
  called by procedure DO-PLOTS
3 c) K* q( ?0 k5 E9 v  called by procedure SETUP+ G7 ?0 u6 N# b# E
  called by 按钮 'setup'4 S5 y8 P$ N* D3 d, o/ 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 ' P8 f& U& `& F# `  R8 U
建一个叫做叫做Totals的绘图框就行了
# J. Z0 e& }1 |
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-21 06:18 , Processed in 0.019254 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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