设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10347|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
2 G2 ], k3 z) c7 d" d2 Zto setup! o6 C& k! i7 w6 W* z" u8 K* l- X
  clear-all
+ c! U' T5 G1 x' I; k/ I" n  setup-patches5 l0 W& {4 _5 m" J$ l; A( ?
  create-turtles 1000 X7 Q  D, z9 d$ r. ?
  do-plots6 G% b$ ~. M1 X" ]& n' ]4 ~; O. j
  ask turtles [ setxy random-xcor random-ycor ]$ e! D" }8 `4 E" B  [
end" |* Z2 q' z/ C  Y0 g
to go( h3 J6 A1 D: ~% ]1 r2 K
  move-turtles
% V* n: ^# w0 M2 h& N: E" B( B0 q$ x4 d  eat-grass
  \* Q! ^; o4 t8 u) \! v+ U3 E  reproduce% h' K+ f: c2 w1 k
  check-death
3 x8 [( d: _0 d/ v4 A  }# [  regrow-grass! I: ]3 `$ M1 |
  do-plots8 o+ Y- S2 y! W3 ^
end
( D0 ]3 ^6 c) R- l( fto move-turtles
2 P* w# E4 n7 s5 V) m  ask turtles [
/ q/ a3 J: t/ u    right random 3606 H/ f8 w5 q- c( [) e3 q: W
    forward 1  D6 ?( f3 f; P( C
    set energy energy - 1+ x" K; ~' p. z# n* ~" w
    ]  m8 r+ F, N& W7 b% j, ?* a
end& r# i$ q/ ]; f# j
to setup-patches3 m. \+ C: F# ?1 s, G, U
  ask patches [ set pcolor green ]) w+ V# K8 ]+ b
end$ q$ \  h, _0 d3 i! O
to setup-turtles+ H& \' J& b6 Y
  create-turtles 100
* ~' N. f- X8 G+ y# n  ask turtles [ setxy random-xcor random-ycor ]
0 D' n( q+ y3 o5 c& ~  U8 \end
) p: o$ Q/ o5 y: e( D  hto eat-grass
# A8 \- H1 a+ _! M  ask turtles [
) [+ l# z) a0 ~  _% e* N9 |    if pcolor = green [
1 ?8 i! M1 t( `5 N      set pcolor black
' Z; g5 [! T6 i      set energy (energy + 10)
8 @7 t5 @/ A8 j      ]
  A- C0 t  T" N0 {9 E, x    ifelse show-energy?
( E  E6 K; `0 o% |/ m) P6 r      [ set label energy ]
6 k8 }/ y9 U. o5 O. l/ M0 p      [ set label "" ]
& Z+ O  f  {$ B  w5 b    ]6 Q+ E+ X/ a2 C8 F5 q0 o
end
( o0 Y6 S2 Q% q& eto reproduce" E( Y1 R1 |' X% {: s% s: S+ X8 ?
  ask turtles [+ m& s: U% |; {% ^
    if energy > 50 [/ ?- ~( _" B2 B  G5 C# R! m  C( v
      set energy energy - 50
' J* j- n4 x7 V8 d% f      hatch 1 [ set energy 50 ]& \; J! `& o+ B% g* ^6 N
      ]/ I5 s9 Y3 w; \5 n4 \
    ]: i4 x- ^2 {2 v
end  Z% b1 X; b9 J7 Q! W
to check-death
0 k2 ?- J% d7 X' j3 J  ask turtles [5 ~2 p* P1 c$ [, h& i
    if energy <= 0 [ die ]  v6 B: V4 p; o; g& H7 i3 I5 n2 C
    ]
- P4 s! ?8 s' h" g2 R& Uend1 i' n( [$ i, B; @
to regrow-grass
. B( y# d1 H# `4 n! M& j  ask patches [
# J" L( z/ }5 c9 h4 b% P    if random 100 < 3 [ set pcolor green ]
. H: A5 `& U  _) Z    ]
8 X7 u: H6 m. Y+ t: F6 N1 [! Aend& J7 W: ]" ?$ L# m6 a
to do-plots" ~: [4 }3 l, O2 w
  set-current-plot "Totals"
" o& u: _, [; a* q, W  w! M  set-current-plot-pen "turtles"
5 I) i3 D- s, h% E  plot count turtles
+ l3 t: ]. Y! J: V" }/ h7 H  set-current-plot-pen "grass"7 b# {8 R; r0 Y* U4 t
  plot count patches with [pcolor = green]
' R% @- R3 i% |5 h  t' Mend
% ]- ^5 ~! z% a- [/ ]; _3 J可是运行时提示no such plot: "Totals"
7 G( I3 L- ~3 ~" rerror while observer running SET-CURRENT-PLOT$ O# e  G, g3 L7 i$ i5 q3 j
  called by procedure DO-PLOTS
/ j2 N" x6 S# j+ d  called by procedure SETUP# a; y" ]& C, }) A
  called by 按钮 'setup'
3 g2 H/ s# u6 c求大神解答啊
发表于 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 + x# H2 T% s4 [7 v& }7 d- a, w( A3 \
建一个叫做叫做Totals的绘图框就行了
6 n# M. z0 `' D4 N4 G5 ]
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-6 22:44 , Processed in 0.022403 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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