设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11729|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
. [/ A; p  n/ q2 yto setup
" T# d3 U6 C/ @& j/ Z4 h$ O  clear-all
9 `" _1 Q" ]! y; H' E. t7 Y( V/ G  setup-patches
! E7 Q6 a# a2 f0 p  create-turtles 100; G' y1 F6 q0 w4 s$ M9 v
  do-plots% S$ `% J2 Y. N0 y  K% l/ w
  ask turtles [ setxy random-xcor random-ycor ]
! H) F/ ]3 H9 \; oend
; U* ~+ y$ d; T; K2 _* Zto go5 \- Z3 |$ @- l1 e( {% P5 g
  move-turtles
8 e2 _; T$ R9 g/ ?# {  eat-grass
* t1 @- }! R0 X) z8 p  reproduce* E. l' u+ y5 [3 l6 g
  check-death
* v+ g0 h# F7 w, }4 V4 \) J" f  regrow-grass# a* j* ~+ B4 k2 J/ z# H
  do-plots( C+ w8 L' X! \7 ~
end
, K1 G& p, A: S4 Nto move-turtles
8 N5 Y6 {/ B6 G7 w  ask turtles [
$ Q" O/ O3 x- s* d8 b( a    right random 360
$ n% E6 M: B: q. |9 c    forward 18 f. t  W: b2 ^3 f4 N
    set energy energy - 1/ {! i! Q7 O* }1 j
    ]3 S3 f( o+ {6 A
end- K* R7 @- q3 r3 u4 J0 ^5 `
to setup-patches
2 z3 {7 K  k! T* P  ask patches [ set pcolor green ]
+ G* w! O+ y! F+ p& lend
* L4 Q$ o6 ~5 X, |# o  xto setup-turtles2 h/ W0 w5 N3 n# T
  create-turtles 100
8 d! b3 H2 L" `" `- B, l  ask turtles [ setxy random-xcor random-ycor ]* v8 K+ {' V. W( u; m( n
end6 L( q- M& Z7 A: h1 `0 ]
to eat-grass
8 F+ t3 e3 Q! q( T' E/ S2 B  ask turtles [
8 T% O. R" p7 s3 W! s$ X    if pcolor = green [0 W  B& ?' f3 d
      set pcolor black. z& g" W0 P1 ^" k7 s* i* v
      set energy (energy + 10)
; \# [5 K) i8 l/ V      ]- _0 k; G- o3 e, g. H
    ifelse show-energy?
9 \7 U+ [( X$ ]# |! N      [ set label energy ]+ V5 S* w5 h0 A+ k7 c, Y* T
      [ set label "" ]
6 d& ~: O6 y2 p1 h    ]2 r0 Q; f, C2 N+ Z' X$ {  \  X
end
( I/ r$ j/ i( k. ?to reproduce
' O: z, f- o" @' ?4 U/ h  ask turtles [8 s& L/ Z( b/ x3 `. N6 T8 @6 E
    if energy > 50 [
+ X# n) S1 }) S1 y0 j6 c      set energy energy - 50- S5 ~* \$ [; i( @( ]* \4 [9 B5 p
      hatch 1 [ set energy 50 ]. j7 W4 }- r+ n5 i5 g
      ]. c7 ?! f/ T+ c' M8 B4 v
    ]
3 w! P& R; r# U9 mend
, R, G" L5 W# a# cto check-death
  c4 {7 I, @0 E% t9 C6 K  ask turtles [
3 {/ _) F/ b9 N2 ^6 c0 _7 J    if energy <= 0 [ die ], m2 \  q3 z2 k5 I
    ]; v- U3 X: c' w& t' Y4 j
end1 ]6 i" q- h% }: i) `7 Y- A1 C. A
to regrow-grass& x4 t0 I3 }; Y: G3 Y1 K) d* Y
  ask patches [
4 T  E2 K: S' i+ d* S+ k+ D: J    if random 100 < 3 [ set pcolor green ]
4 X% X0 L. `8 }: C  I% ^1 i    ]" m6 _; `: S6 Q9 m5 w( h
end
* w& n/ f' @( P/ j8 C) L6 n3 {to do-plots
- E% g- O$ o% o* [  v' R; B  set-current-plot "Totals"
: f) n' b- l9 b- f  V9 d( x  set-current-plot-pen "turtles"- _8 l' J3 t6 e8 e8 ^2 F; c
  plot count turtles8 C9 ]3 A/ o- C4 @+ p: z4 E3 k) ^
  set-current-plot-pen "grass"% R1 R3 {- B, `! O
  plot count patches with [pcolor = green]3 r! O  ]$ i* x! S  M; @* {0 d# Z
end* B# W. h6 E( X1 v) V7 z1 i4 P
可是运行时提示no such plot: "Totals"/ p; ?4 v" Y& G4 _! \' w, [8 w9 G0 y, U
error while observer running SET-CURRENT-PLOT
# s0 M$ S. U5 k  called by procedure DO-PLOTS
( t& I4 Y6 _. l+ k8 |  called by procedure SETUP
! ~9 X+ k& S1 P/ B  P  called by 按钮 'setup'/ w* |, v3 s* Z" y9 w
求大神解答啊
发表于 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 & S/ {! ?, r  @8 _/ y2 r& `
建一个叫做叫做Totals的绘图框就行了
3 ]4 D) r3 ?  H, p  A; @1 X
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-24 08:41 , Processed in 0.015079 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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