设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10112|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
0 V. @- g. k4 d; O3 n+ n7 Bto setup+ T0 \& J6 Z- ]
  clear-all
, Z$ Q% [  ^! }7 y$ ?) ]% o/ H6 q  setup-patches9 P3 }3 g+ k. x- H4 X; B$ U
  create-turtles 100$ r' m8 T* y) ~  `) x1 |* r
  do-plots
' j$ Z7 y' P$ s( q  ask turtles [ setxy random-xcor random-ycor ]' _2 a: R' K4 A1 D: a# ~1 E
end
1 x6 M7 _) ?% t% ?to go
3 @$ J% ]5 C3 M4 s  move-turtles
2 ^8 }0 m/ D( u- k: |  eat-grass
2 \  e0 r' S9 Z8 f  P2 j% i" p  reproduce
$ u- z4 |/ ~% U* f1 H5 R  g/ Q: U  check-death8 [. G1 O; ?9 n0 Q! {- X
  regrow-grass
: i! m5 a6 `: n) b3 {! U- w  do-plots
+ s: V2 Y2 V  s, w' j/ f, S% v7 W( B5 Vend- d$ T7 ^/ Q; C5 z3 Y3 _2 j
to move-turtles
6 h* L3 j$ j5 L; i: ?$ I  ask turtles [7 z# F( T2 g9 N6 T
    right random 360
4 z% g; m4 L; A    forward 1, r5 Y6 G1 {# k9 o9 O
    set energy energy - 11 |* ?1 e' t% Z3 R1 c
    ]5 r( p( o7 D$ B/ H1 I9 F
end
  G9 d7 S) l+ P' O. W" _$ I9 R3 m6 \to setup-patches
0 p2 y0 \2 S) f9 j  ask patches [ set pcolor green ]
* i5 k" N" T# u+ P5 g2 Send8 H6 F+ S3 T+ x# m
to setup-turtles
1 r3 `9 G! n# B2 \  create-turtles 100
9 ~& R0 w; B! J# e7 o. Q. K  ask turtles [ setxy random-xcor random-ycor ]
& |: t+ h. L  h+ |: Aend
. [- {4 T" L; E. q' w3 f  Hto eat-grass8 O) N4 r- Q# w5 A( _8 y; ^+ H
  ask turtles [; g/ n' V" j- e; Y! A4 u2 X- Z% |
    if pcolor = green [( T& @* d3 r, b  z4 H
      set pcolor black7 q0 N8 }, l7 j: ]% o* f' e
      set energy (energy + 10)* ]5 B4 y2 z- F. ~  p9 _( x
      ]/ L+ m/ F' Y, ]1 b
    ifelse show-energy?
. Q, m, ]# a: l! [& f1 v, a1 a: U      [ set label energy ]; ?7 E: r$ U* h+ w" s- O* h
      [ set label "" ]
4 M; n9 Z( `6 C' a7 s" e+ d) ~    ]
* |8 o+ y/ p/ j' D" v. Iend6 S$ [3 g7 x* O' g( v0 s$ p
to reproduce
& y/ n. {0 r) c. t0 Z  J  ask turtles [
$ n% O- s4 K' |# V- q5 \0 n    if energy > 50 [, s$ a6 k$ X% y
      set energy energy - 50, L2 ^' B" p% }
      hatch 1 [ set energy 50 ]
$ J# V6 Y# ?; x3 L3 W& X      ]
0 E  k5 l; n0 h0 p' b/ E    ]% \! m; F: a2 G& _5 X/ t5 [! X  w
end
. j9 I7 T' P* _- q9 R7 Ato check-death3 `  F0 u0 r6 r7 M$ [
  ask turtles [
8 R- _  }8 `3 H5 ?    if energy <= 0 [ die ]/ `. v. m& }# F. W$ |0 T, i7 a8 a& h
    ]  j& t$ z% v6 |) ~
end; M9 t, u9 D' {4 J6 z
to regrow-grass% ~: k4 |- C8 M6 @7 _4 L
  ask patches [
5 F0 d2 D( H( z! \( z  W" A3 I    if random 100 < 3 [ set pcolor green ]
) H. B( S8 q/ G    ]
% J; W% j' E3 n, tend4 ~2 `/ z+ f& w- b/ p2 n" n* `2 r" e
to do-plots; g3 O& p7 }7 m& F: b, ?6 V
  set-current-plot "Totals"
1 f5 G# Z+ ?9 t5 @% f% c7 P  set-current-plot-pen "turtles"
! e, Q+ C, w' M/ c' A8 r0 h  plot count turtles
# \8 E; [  F2 n: a9 I; g3 \  set-current-plot-pen "grass"
  {4 L; l9 b5 y4 ]; L7 [$ E4 Y  plot count patches with [pcolor = green]
; m  p1 {7 @1 F6 ^" F& I2 x- W/ send; l! ?0 d  U# h
可是运行时提示no such plot: "Totals"
- H- Z* Z0 F+ m' ~, A7 r) @error while observer running SET-CURRENT-PLOT# i8 `& e' E, u/ a0 L: j1 T$ V
  called by procedure DO-PLOTS4 u  d" c, Y1 p
  called by procedure SETUP0 A8 B" s  F, a# X( M" ^, M
  called by 按钮 'setup'8 [. f  D! m  [  e+ }1 v7 ^2 B. h
求大神解答啊
发表于 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 5 P7 L0 U( P- t* l
建一个叫做叫做Totals的绘图框就行了
0 O8 ^9 b9 E5 W( i1 s+ G
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-14 01:04 , Processed in 0.023581 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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