设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10194|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]0 j! W5 w: Z9 |0 G! p. e
to setup
5 x- j( T/ H; j2 h: N+ u, q' J  clear-all& s# y4 ~' Z3 a. n4 |0 s( Z+ G
  setup-patches$ \1 ^+ V  \6 W
  create-turtles 1007 K) i" ?" X# D% V7 @! S( k- B
  do-plots- \3 F  {" N% I" N$ ?& |
  ask turtles [ setxy random-xcor random-ycor ]
# I* G" q  ^- Cend
) |9 p% {4 \' t! a3 F) I  Q! Vto go' ]5 e& K. T! W5 R) e$ c
  move-turtles
7 p( P: l. F$ @$ s+ z1 _  eat-grass- B/ w# @+ \4 `
  reproduce+ l6 x7 z$ i' t5 m0 [# C2 y
  check-death
8 O- I! o( g  S  regrow-grass
2 @$ ]# ^, r/ j% l; Z+ l" X" \$ [" l  do-plots0 }  J2 F, S% I- p& d3 t
end
% n4 w- P1 c& Y- Vto move-turtles
2 ^( A  T5 ?5 W& V  ask turtles [
. |* W& y/ ?3 e6 {* m9 t8 [    right random 360
* ]9 m3 K- s0 Z: j& ~2 X    forward 1" T; B3 r0 Y/ C$ O0 G
    set energy energy - 1
) k" S+ Y9 Y1 L: v    ]. H$ M& @( }+ M  O
end1 }* {$ v5 O: T: p
to setup-patches
" w5 N, D; n# E* Q/ A8 l7 ~  ask patches [ set pcolor green ]
9 N. ~' m+ R% o7 Qend; G/ \& ^. g3 G: w% O( q$ V# g
to setup-turtles9 Y6 P) @( b( H
  create-turtles 100
6 j9 H* C+ ?$ D- Z: _5 E  ask turtles [ setxy random-xcor random-ycor ]
' f1 F2 B7 H% H7 V0 k/ |$ Wend
  @: s* M$ q( v, X, `to eat-grass$ {. B8 x( n4 @' z
  ask turtles [
) n' ?8 o) Z' t/ g1 U! m    if pcolor = green [
4 f0 S/ K$ Z! v4 |# g" R      set pcolor black! ?2 f8 ?7 |, k: }
      set energy (energy + 10)
0 J8 s" ]7 u9 ^' V1 n  }8 u9 U      ]
# A( Y: v, l: k. S    ifelse show-energy?2 a, g' ]( E8 c7 X
      [ set label energy ]# w: G7 Q) i0 t6 u1 _' [
      [ set label "" ]
6 S" Z+ A' f( e    ]
! K# L  G) ^1 ^6 O- a; F: xend, Z4 J# P- o  w% W: x" H/ @, D
to reproduce: l+ w: n  G1 c3 m+ Q/ X
  ask turtles [+ E: r$ ]  J' @1 \5 V7 U
    if energy > 50 [
, i4 l. l1 S& K6 q      set energy energy - 50. e% |) a  @5 z6 U! n
      hatch 1 [ set energy 50 ]3 P' T, h$ ]& M* A
      ]
: r+ e$ H' v' D    ]1 D; i' C" P* v
end
6 k1 T2 }, _2 u" @( fto check-death
$ c* o, C9 A; O  e' f: ~  ask turtles [0 A2 H/ W" H% \+ g$ G
    if energy <= 0 [ die ]
2 h; F7 a4 Y* [' X+ B. r* f    ]4 s8 s- d3 \: n8 V
end
( h% t, ?3 N) @5 Dto regrow-grass7 g* p9 T5 \7 J- g+ s# u+ [
  ask patches [
. |* B% T: ]3 F6 h! @    if random 100 < 3 [ set pcolor green ]9 Q" Z8 P( f7 H( d4 q* {8 z5 A* m
    ]
2 n5 Q; a5 c; H6 Send8 W4 n( z9 B, a- a2 j
to do-plots0 O' a) y% C- e; L0 h, p( e
  set-current-plot "Totals"6 y/ n$ ?- y, ?$ t/ ]' ]
  set-current-plot-pen "turtles"
5 j3 Z0 \1 I, }; v  plot count turtles
7 I5 Q+ w5 C7 h$ r9 Y9 M  set-current-plot-pen "grass"
, o% L  h  Z! u  v( D( ]  plot count patches with [pcolor = green]) m4 A! T  R; V% {
end0 O0 \, J; D3 D( I9 k9 p9 T+ Z
可是运行时提示no such plot: "Totals"1 m  K, I# c; B4 J' ]
error while observer running SET-CURRENT-PLOT
6 O7 i$ \0 I- T, B0 H1 p4 B* ~' V  called by procedure DO-PLOTS
& i5 j" A- t1 _8 h9 _0 R, _8 t  called by procedure SETUP
$ j, f/ q: x' N$ E& V, g  called by 按钮 'setup'
) W% E8 ]$ S- D求大神解答啊
发表于 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
9 [* p* g$ A+ M# D$ O4 `建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-22 02:58 , Processed in 0.018540 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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