设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9784|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
; h/ I- `8 @2 E* f6 o- X0 u2 `to setup( T: Z* ^4 f$ n$ q
  clear-all3 f0 b  C$ h& ^+ l
  setup-patches
5 x6 _' M: @) l  create-turtles 100
5 t5 _7 u8 z* ^4 N  do-plots& z  l$ K6 E' }: W5 b3 p7 |' L
  ask turtles [ setxy random-xcor random-ycor ]
$ a; K+ I' S- Y4 zend
8 T1 v; Y) ^: C+ p& ato go& ~+ y6 D3 v: B! y3 t
  move-turtles+ Q1 T! h! k7 c4 @
  eat-grass
8 V& s3 n/ Q3 w- ~  reproduce/ H0 J2 ^* N  o' ~
  check-death  B& ?6 R) ]) ]
  regrow-grass; M* ^% o5 y+ a
  do-plots
0 d) I1 `; ?9 D  Oend4 W# Z8 z# s1 d
to move-turtles, ?  Q0 m8 K" k
  ask turtles [# j* e+ L# I0 |, A8 F: N
    right random 360( `, Q9 _6 B+ j* `9 s% S
    forward 14 A! G8 T% W* ~7 z* }, C( J) f% M
    set energy energy - 1. K# D6 |: `2 Y' R8 \3 ~' a* k
    ]
! z) @8 `4 h8 x. l, Wend+ a- h# B! T; ~8 n
to setup-patches( U* d. W4 z5 U& b' V8 F
  ask patches [ set pcolor green ]
# ~* ^; K2 g% Vend
: R2 Z) ?9 n/ }& T9 s. }to setup-turtles& N; v: K# o8 }  S  n' _- p) `2 [
  create-turtles 100! X( N; n6 Z+ T; j+ o+ K& Y
  ask turtles [ setxy random-xcor random-ycor ]! O6 h# Y' X6 a2 R6 a4 k8 y
end+ e& w) G" e9 T4 r- d
to eat-grass  T9 ~+ w, h/ R; N- I' {
  ask turtles [
& e  q8 h5 u& x* ?2 d    if pcolor = green [
9 w! x5 l) o5 I2 [      set pcolor black! u( m- P! D( i  I8 E" H
      set energy (energy + 10)
) H. o' r: w0 b3 L8 ]      ]( s, {. @0 s6 ^7 _+ P
    ifelse show-energy?" A) z/ o7 L: t6 B) E
      [ set label energy ]
  q1 L" q( Y; M. R# D- O6 I      [ set label "" ]
/ B" ~+ K+ U9 t    ]
+ Z0 S2 m- s! b; Cend
( t. J/ Z+ h2 W# ^to reproduce
; g" e% _( t9 V: A( ]% W  ask turtles [
4 j8 ]* }% z' E    if energy > 50 [$ ~7 B+ O  ?! W
      set energy energy - 50
9 ~% |( |2 y7 R0 r9 }+ {      hatch 1 [ set energy 50 ]
3 h. L. n/ I, v      ]+ }* a. J; P1 s- X2 b/ w
    ]1 y4 C) S9 A  E# Z1 ^
end4 B9 p* b" j7 z% e% n2 d( V
to check-death8 q8 D" y) M* A* [, a; @- q
  ask turtles [3 r1 `$ Y, R" ~( c4 q' j4 q
    if energy <= 0 [ die ]$ a/ _% V- O) q6 f5 Y; f" S; s$ n
    ]
2 h0 X- b) M, `2 ^' b9 Eend: X) ?+ i/ `. D5 G/ J2 |! Y
to regrow-grass9 y' v( a, s, T+ _2 a3 U
  ask patches [
6 g* `8 v0 h' F! U    if random 100 < 3 [ set pcolor green ]* G3 h; c* f1 J) \5 W
    ]6 x; f* a- R3 A% t  s0 Z! a
end5 b+ J! L5 {3 B5 g$ X  D# E
to do-plots6 X; v* {" z2 I7 x, z  c$ A
  set-current-plot "Totals"& m, d9 B5 I) Z' w2 Q
  set-current-plot-pen "turtles"
  u- k( B) K6 T% l" F% c  plot count turtles
! z, t5 u* d6 r8 x  C: P' y- @  set-current-plot-pen "grass": m/ Y  F# w/ l5 I+ i+ @, e7 e6 E+ z
  plot count patches with [pcolor = green]* x8 D9 g1 a0 o' H5 Z# C1 ~. b
end
5 z! F( e7 k; C3 a可是运行时提示no such plot: "Totals"
8 Y: o5 W/ i3 z: werror while observer running SET-CURRENT-PLOT
0 q. @$ t/ I. [  A5 S  called by procedure DO-PLOTS
+ M  Z0 o9 w+ R  called by procedure SETUP
% v- x) h( z# `: E! E  g  called by 按钮 'setup'
& p1 e6 U1 p: w: y& X6 K求大神解答啊
发表于 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 + t% r) N# ]& q
建一个叫做叫做Totals的绘图框就行了
/ b' e$ `( j. U$ S; t
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-21 00:07 , Processed in 0.020711 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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