设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11104|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
1 m+ w1 T& b4 H9 z1 t/ }to setup
8 `' g) z9 u3 ?/ e7 K' O2 B% P  clear-all6 Q! q/ U0 \; U; J4 s
  setup-patches- Q2 w' `2 g/ }7 l$ D& P- ~
  create-turtles 100
8 ~  Q/ F* @. h0 c" r  do-plots
& a! |, X) K  l: L- K  ask turtles [ setxy random-xcor random-ycor ]8 ]" I+ i! w& \2 P, R
end
6 e" @# T* B5 J- \# k0 ^to go
5 N2 w% W! I* p8 W+ y  move-turtles* c) x" y8 P+ b
  eat-grass
3 {' p- O/ r  b: o  reproduce) x6 ?: }9 K. N- I. i, B6 D
  check-death  q0 m/ j( H" R: v6 ?6 g, H9 S
  regrow-grass
0 O2 ~& F4 W. w; O- s8 V  do-plots
0 S4 n' `( @2 Z% b+ o$ tend& W5 h' q- b2 u* S
to move-turtles
" E. K7 ?  p# N% t% }. {  ask turtles [" @, T) u9 d9 u' S$ r9 @
    right random 360
! U# X- a4 K+ M. P  b9 o    forward 1
) [$ h, U! Z3 p/ r- Y    set energy energy - 1
, ?8 A% v; q/ l9 i    ]
4 O( L  P  x: f' \0 Iend: n: T9 Q- P. g2 c% i
to setup-patches& X; o- ^3 j! U0 O+ X
  ask patches [ set pcolor green ]
" l+ b7 |( h# lend6 w- a& \) {2 y) _
to setup-turtles3 W: V9 z9 ?& j0 l, Z& \, r. u
  create-turtles 100
& A$ a9 i) o7 X2 i4 c' S  ask turtles [ setxy random-xcor random-ycor ]
! s) V, o( s/ W) [end: B, S* F$ |- G/ h9 w  t; z
to eat-grass
- I+ Z, G* \3 t- W% v  ask turtles [5 F: I5 f2 ^5 L5 q$ e4 V6 h
    if pcolor = green [# Y( J. I9 \6 j, o5 m' _
      set pcolor black
" e7 E5 J% B# b/ |$ P( K# h      set energy (energy + 10)
! c, ]# X  V: }  z0 I      ]
' Q% }  b; L% n4 D) n    ifelse show-energy?* Y3 d9 G$ J( K! s' }
      [ set label energy ]# c" }0 H; W) A
      [ set label "" ], q+ d4 N5 \, \8 z7 u$ L6 c
    ]* A1 V7 T# T3 N( W( d( B
end
/ J! Z8 v7 y. _; b' {to reproduce" c1 K1 }6 S+ F! z9 y! y; E+ Q
  ask turtles [
" K3 b+ ]) G/ t! r0 [    if energy > 50 [/ Q" F8 P& q% B  s% S( G
      set energy energy - 50% J7 }% b! e0 Y  Y+ Z0 O; Q% u& v0 s
      hatch 1 [ set energy 50 ]
5 V) P. T! E0 c, b- N" t  }      ]
# X5 A* Y% ]& {  }" f( E4 p* y    ]
  J0 M1 v  o; D2 uend4 E. o8 p2 A- d; g  j
to check-death- d) ], {5 w! z/ @, a1 D: v+ ]
  ask turtles [* \0 o* @% `9 D( z/ g) p3 K
    if energy <= 0 [ die ]
% W  y& e8 ~; v$ v    ]4 {% t/ s) e4 P. q
end$ g  y& G1 |5 H/ P. B" j! X
to regrow-grass3 |( H1 P6 Y: M7 Y( _/ O# }# i
  ask patches [% c/ J' s* r, f/ p0 G* D' [! h
    if random 100 < 3 [ set pcolor green ]4 _. v* D9 V/ I
    ]+ h% H( |& k2 O1 i
end: u! G. ]5 j4 c1 c. I. A/ _; j4 \7 O
to do-plots) F6 F) F8 g7 k. \/ t
  set-current-plot "Totals"
' e# ~( p, H2 ?" b  set-current-plot-pen "turtles"
$ {* [$ }* ^; B  plot count turtles
2 ~2 U/ o; T( E' n6 ]2 A3 r. ~  set-current-plot-pen "grass"
2 @7 i4 a. G! @  plot count patches with [pcolor = green]1 R( R7 H- E) Z/ O* l. `' B- ~
end! R) p# [2 z+ T& h+ p& X& S
可是运行时提示no such plot: "Totals"$ p  u2 T5 c4 Z9 @
error while observer running SET-CURRENT-PLOT
, B7 Y9 u: i( y$ U) ^7 J! I& u2 q  called by procedure DO-PLOTS0 s$ q. }, R; K9 p1 s
  called by procedure SETUP
* a* A: \; @7 T3 x, |2 d2 p  called by 按钮 'setup'
5 i) Z  R- e8 m* F+ U求大神解答啊
发表于 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 8 H9 c  ]2 {! v) i/ y* V
建一个叫做叫做Totals的绘图框就行了
6 z* S( w) n1 j: O; s
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-30 18:59 , Processed in 0.022863 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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