设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9765|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
5 ^0 k* U" H: Q' Tto setup) x0 Q% U; H4 D6 h" ~$ |) F8 e
  clear-all
# X9 E" N) w1 ]2 q  setup-patches9 m0 D# j* ]- A5 Q" y; p, a
  create-turtles 100
& q6 ~- Z7 x& `! p  L8 M4 k  do-plots1 L1 D2 P- t- Z- ~. ^5 p
  ask turtles [ setxy random-xcor random-ycor ]6 `* f/ L3 D5 `! a7 B
end) {: |* {0 U) k: u9 Q3 R+ M0 O: Q
to go
2 U/ s# K/ E  L2 [* |  l  move-turtles
+ \$ x# Q7 }% ?3 c% a  eat-grass
, w# ~! ?2 K6 C+ Q3 g8 c  reproduce  S3 U5 i- h' g# G1 @, q) n
  check-death1 ~  F& F0 \5 h5 h7 _5 ~
  regrow-grass& {3 J0 z; V7 y0 t  k9 \1 _- B
  do-plots
9 ^0 `' T! e+ T( C( u4 O, x2 Tend
* i/ L- T+ e) ato move-turtles+ u- S. F( t. _, ~* x, `
  ask turtles [9 |4 H3 u! x! P% D- K
    right random 360- @: n2 h/ r' {9 a% Z
    forward 1
% S& d; B9 y0 s. Y3 X! s    set energy energy - 1
( L/ X! W& i  t  E% `    ]
* \' d# y8 j6 d7 Send
% E  A5 L: e: K0 Qto setup-patches2 o$ O9 N+ a" T% o
  ask patches [ set pcolor green ]
. ?1 E& N- o  \% [  ]' e1 V4 hend
0 C! ^% o5 S8 d2 a. I0 r( eto setup-turtles
; q# J3 c5 q( h) F# A3 D: N' n  create-turtles 100% c* S' b4 ~) S0 w8 M2 @
  ask turtles [ setxy random-xcor random-ycor ]- v( E  ]* A( h/ k1 `
end+ H( c: v1 d0 j/ t3 [
to eat-grass
% Q5 d" Z! c2 x( s0 S4 m; ^  ask turtles [
4 _* W" F, Y- h( d7 Z& m" J3 b    if pcolor = green [
2 Q8 c6 M: |3 r% `      set pcolor black) O, m$ a) G$ q! M
      set energy (energy + 10)8 l8 I  g9 K9 m& h5 O+ q
      ]; [# O, T* w) _. d3 m5 \: |
    ifelse show-energy?; x: ]* @0 w# @# X
      [ set label energy ]
$ z7 _' c& X2 s. r      [ set label "" ]6 v. J  ?. @# `
    ]6 U2 W' G5 [$ I1 R' v/ B
end
% G' N# E2 i% P, ?to reproduce. \; L) l% E& e& v! k- n
  ask turtles [
& ~, W# I& i& A" Z3 R    if energy > 50 [' S, a3 x. d- v0 F9 _5 X
      set energy energy - 503 Q; I5 x; P' X
      hatch 1 [ set energy 50 ]1 u) a* W  ]4 `) a
      ]+ m0 d% M$ P4 Q6 o$ p
    ]
- g1 [# j. v/ p4 `6 Gend8 S/ r& v6 ^; X# J! u* i; L9 \/ c
to check-death
3 h* U5 H1 q6 b$ X; F' u0 o% C  ask turtles [3 u! ~, V1 z+ [0 R2 h
    if energy <= 0 [ die ]
8 i/ ]  U: i4 G3 a! S    ]$ M0 F( H3 I# R
end# z) a. [# e% {
to regrow-grass/ d0 N8 t7 m; d+ o' p, c) _; n
  ask patches [
7 _0 V; f: N/ v: A5 }# [! w    if random 100 < 3 [ set pcolor green ]
+ H3 {+ B7 N8 U/ u    ]
% u( s1 `7 }4 |0 Cend: B' l& c' U1 N! L! d: x
to do-plots
8 |8 B6 U* U- D2 B1 @& q- k1 x- L  set-current-plot "Totals"7 i7 r1 N3 }; i
  set-current-plot-pen "turtles"! \3 t9 S3 v6 l, w. I4 ^
  plot count turtles
* g- v8 |1 b; P1 p2 k9 z/ h  set-current-plot-pen "grass"
' ?4 K+ O# y4 `7 [0 [  B6 M  plot count patches with [pcolor = green]0 B' g' m4 m8 |6 S% r
end$ j$ }9 w1 ~  C8 |
可是运行时提示no such plot: "Totals"
7 b# R3 o2 o3 ~! gerror while observer running SET-CURRENT-PLOT
, x2 `# _* u; F0 y" g. {  called by procedure DO-PLOTS
( ]/ S( c0 q( Z- j# K9 F  called by procedure SETUP
8 h5 I) u& z4 N1 f2 V, y: ~: n! p1 J$ ?  called by 按钮 'setup', F0 v$ H9 f0 R. u5 n8 |
求大神解答啊
发表于 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 : [8 ]% `  X6 b, [5 l+ _
建一个叫做叫做Totals的绘图框就行了
) e- r  ^* O2 c# X: V4 \6 B3 P3 O6 u5 C: l
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-19 07:37 , Processed in 0.016389 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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