设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9772|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]/ s: i: b$ u2 y/ f7 P
to setup+ w1 u! e( n/ o% s
  clear-all
- {7 @$ m* `3 j% E, v" @+ o  setup-patches: f: T, {5 }; \  m, H. i; ^1 o) ]: b
  create-turtles 100% B  y8 {, j8 t( y; A  {: J
  do-plots6 a& _3 t9 w+ @' {$ r" m5 }
  ask turtles [ setxy random-xcor random-ycor ]
5 G6 Q' }4 i3 V3 Bend
, _5 @' v# u  c& Z# `- Nto go
' K/ f7 V! y7 x- y, u3 s- \  move-turtles: k, I2 O3 X6 Z) d8 o/ J5 O* E* [
  eat-grass$ Q  b% ~  w/ I5 D/ l+ G( S
  reproduce
  a- M4 l; T* p# E) E9 I  check-death
; b7 K1 ^, t: Z7 f7 M  regrow-grass! o8 p# Z% q' @7 {
  do-plots
0 v. V6 a& d8 P" c% P" H( b; }end
, A8 Q! S' f/ U$ w$ Kto move-turtles
6 k" q0 V0 [0 y4 L6 z; X% X  p1 H3 U  ask turtles [
2 `( \) G8 z( s" q7 c- c/ d9 f    right random 360
  h* Y% T: d4 v; l9 |! b4 C    forward 1- k: A: }$ g- b: c: I
    set energy energy - 1$ S- E/ N2 o( r5 c
    ]6 b6 |$ x; j- u4 E
end7 @3 p2 N: i1 g' n) Q# d* L
to setup-patches
& v" C& d5 j) o( t! f9 d, v8 y  ask patches [ set pcolor green ]
& x5 Y1 {8 `2 _6 e. H0 pend
' {9 }8 f/ U" Y! p. |8 Wto setup-turtles, O! F6 W$ _1 V7 [0 E% x
  create-turtles 1009 j. _% q5 Q% t" W
  ask turtles [ setxy random-xcor random-ycor ]' _* x3 A4 e* G8 M" a! v) Y
end
$ S# D( l  x( U* vto eat-grass! g3 h' E6 D$ v; W0 ?7 |
  ask turtles [
6 Z9 h6 o1 Q! b7 g    if pcolor = green [7 y3 Y& l; m) r: z
      set pcolor black7 {5 f1 M  u  K
      set energy (energy + 10)
5 L% q: L' A  @9 H      ]
4 G  ?% H: p, L, Q& y# b; }. Z    ifelse show-energy?+ f  T0 Z# F, g$ s2 q* T# ]' c
      [ set label energy ]
7 \9 f" s" f) b: c- x: G3 m3 ]      [ set label "" ]
$ p% L/ `# s5 P; `+ @. z% [7 h    ]
; A$ F- j; \$ V6 e/ bend" ?' J5 \& C3 @' }9 }0 A# A: d' d
to reproduce' K: {$ F0 c" a, u8 U, L2 `
  ask turtles [
6 Z/ [2 d1 e( D! y: u    if energy > 50 [
! X# t# ~. J: ^# Y% Z  \" o      set energy energy - 50
, `% u7 D: S- r' M: Z7 l      hatch 1 [ set energy 50 ]- Y; Y, Q! l+ j* c# T
      ]
! F/ k$ }! r! {( @% T) k/ d6 r% F    ]& `- x, [/ D- I
end4 d) q3 {3 R# D  F* N0 V# _
to check-death
6 j5 |' {! h, _1 }  ask turtles [" M2 H7 V( R, E2 d, R( U& z' K
    if energy <= 0 [ die ]
3 l$ i! Y! D9 @( g! r    ]7 y9 w* J9 E" t) F/ f* f, U* w5 C
end* o" g- @" a2 {1 `' Y: y6 X
to regrow-grass
; L2 Q0 x) \. Q( z  ask patches [6 W: Y7 q3 m4 V/ D  z
    if random 100 < 3 [ set pcolor green ]1 [# ]5 a7 P( J
    ]! n: J) o% M1 B; n6 G; C4 d
end! F! U' H6 L1 ?* t
to do-plots
! K( l  R9 Z/ H4 T6 N0 t# W$ P  set-current-plot "Totals"' S. _5 @6 l$ k+ R
  set-current-plot-pen "turtles"
: z8 {6 G: `; l- \) P& E  plot count turtles
% ]- J3 w" ]; |3 [/ y- I9 E  set-current-plot-pen "grass"
; K8 u. h# Z" z+ x5 ?# [6 ^  plot count patches with [pcolor = green]
. Z% [0 ^. B/ t  M0 W8 Jend0 |; e3 V3 t2 l+ [* F" u5 W( a
可是运行时提示no such plot: "Totals"
9 h. d' @  \! n9 b. ]error while observer running SET-CURRENT-PLOT
1 b: p7 @! s$ x  a9 s/ {5 z# |& X  called by procedure DO-PLOTS# }/ F& J' S3 ?  }% P  _
  called by procedure SETUP
, \- t) l1 F' p4 D# W( \8 _6 P  called by 按钮 'setup': h4 c- ~% F" r  z9 U1 E  m
求大神解答啊
发表于 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 7 ~; I  B# y( H- r5 `
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-1-20 04:43 , Processed in 0.020873 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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