设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10032|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& |) X/ b6 q' x6 j9 F' j3 Pto setup
7 w# O) h- D1 I  N) e) u  clear-all
8 O* F  d! L8 t, T( \& }8 S  setup-patches0 G# X# _4 `- z3 A; m& n
  create-turtles 100
  C) C# ~/ M) I0 I) \/ K  do-plots
- J( R1 v7 b( k8 ~  ask turtles [ setxy random-xcor random-ycor ]8 b+ R  W6 _% P, B
end; l4 H5 k+ x2 ~) F$ T
to go: ~0 F5 p. x$ q( |  |% S7 O0 W
  move-turtles* X; K. q0 v$ i1 V
  eat-grass
" ?* l% j3 ?; p5 ^1 j' G  reproduce4 M9 \4 k7 D5 ~+ Y; @
  check-death$ c2 O3 ]: \% r6 Y
  regrow-grass. P& S( N7 t/ G: j
  do-plots
! F5 T' {0 R; x: ?) m  G6 |& V2 aend
# J  g  p4 o+ K5 Dto move-turtles  D4 G% s/ [' {8 {1 K0 j
  ask turtles [7 A! N' d. V& l4 s3 P
    right random 360' q$ g: N3 }# }8 ~
    forward 1
% x2 j1 V6 {( L0 o- D: l    set energy energy - 13 I; B6 d( C6 J( o; ?6 X& q
    ]- V! {/ ~1 S1 j+ j$ I
end
0 ~9 A; j7 r# dto setup-patches& o1 P+ O' [! F2 L
  ask patches [ set pcolor green ]* r. r& \. ~! q. M8 r' m- j  o4 x
end
  ?: h* |1 }* R# U( C$ Qto setup-turtles7 `9 e8 U# v$ n% w  w
  create-turtles 100
& U- ~4 K  H% x5 E  ask turtles [ setxy random-xcor random-ycor ]
4 _* P; i! z4 X0 y( bend$ }- [6 Q, [1 h& I
to eat-grass$ Q( o9 q4 i/ y+ x& ]8 e4 s
  ask turtles [! j9 e1 e% Q) B2 ]; L  p
    if pcolor = green [
+ A: Y" Q- S; T0 ]) L: z* G( [      set pcolor black9 @. R5 l. K% F1 T1 a  t8 z
      set energy (energy + 10)
5 E+ e! l$ R1 m. s9 m: Z( j+ u      ]
+ z7 D8 ^. T9 ?$ T( h$ a$ U% \* K    ifelse show-energy?
! f& L. J; P% R. P4 s      [ set label energy ]! Q' ?# `% k/ P( \6 B
      [ set label "" ]0 O9 C" v8 G" B( F# D* k2 G: i
    ]
% F, w* N. Z% K9 A8 Eend% g+ f* m* u' ?
to reproduce% L; Z( W% a- O; u. v9 s2 L
  ask turtles [) V) m7 z8 t- [# ]# I& {3 u7 n
    if energy > 50 [% j4 g0 R( d. v" k* X
      set energy energy - 50
. J; V' R# s) A      hatch 1 [ set energy 50 ]
4 A2 V! M  l2 @+ ^      ]' k/ d5 ]/ q% |! S  U
    ]7 M3 h: U- j$ p/ z4 [, A+ e  L
end% ~% A4 z0 D# b+ @8 T  x6 l
to check-death
( e# k, l$ `1 h, [. N  ask turtles [: C" ^0 S  y7 E9 R
    if energy <= 0 [ die ]
' A$ q3 T0 e- O8 k* n    ]
) F' X: B" W: Rend
3 k' S& _! A" U- jto regrow-grass: L! ?! ~1 p' j' N9 @( i* O
  ask patches [7 l3 l) o# r4 o
    if random 100 < 3 [ set pcolor green ]+ g: _1 U. J, n
    ]
" I' ?9 |/ w9 send# z$ b% C" H7 }" L2 E
to do-plots
2 x6 ^' n7 l$ k: ]  set-current-plot "Totals"3 I& E0 r$ I/ j( |
  set-current-plot-pen "turtles"
! Z2 j  B- U+ w5 v- f8 B  plot count turtles' o3 Y* m, W4 H) m% @
  set-current-plot-pen "grass"2 [9 }. B$ `" f- p
  plot count patches with [pcolor = green]
5 _  s( m$ n  d2 c8 Jend
- f# O+ {: a+ A5 r可是运行时提示no such plot: "Totals"
5 m: y) H4 q* X: B$ ?6 M1 S& h; ^error while observer running SET-CURRENT-PLOT
0 G  ^$ n: O9 @  s# }- r, S# @  called by procedure DO-PLOTS# h% t: c4 w2 U0 L- g" H
  called by procedure SETUP
& F  S  \% y# Q4 V, b& s) b  called by 按钮 'setup'7 Y2 L- r1 @; n. r
求大神解答啊
发表于 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
0 l9 |( E( e3 l6 m4 {5 N建一个叫做叫做Totals的绘图框就行了
8 S' N+ w& q- r
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-7 23:52 , Processed in 0.016652 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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