设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10198|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]/ \5 C* V/ ~5 o/ U
to setup- w  D/ B& W2 y" ^, S) e0 i8 I
  clear-all! q" N# f# V$ Q2 u6 T& S, I
  setup-patches' V' u) u) v3 R' q; Z* R6 @
  create-turtles 1006 d- _% M* M6 a+ N# H8 P
  do-plots
7 K0 p/ J* A1 a4 P& n  ask turtles [ setxy random-xcor random-ycor ]
4 ~0 F- h3 K! G1 Z: w- k1 b1 |& Oend, W9 r+ w/ M- k5 |, o
to go  A6 M  B# D9 {6 T/ G
  move-turtles. ^# p5 z% ?4 i1 B7 Y
  eat-grass+ O9 z: m# Z" F/ m
  reproduce2 P- c) n6 `, l6 d2 g
  check-death. @( q" v1 {5 X! j
  regrow-grass
# q" [0 M, b  e' z# N  do-plots
  e! i6 d: _  Vend
0 r5 a& z* P! M8 g( Jto move-turtles
% k7 `* o$ x! J( U* x! [1 [* b  ask turtles [! W3 `% l2 b; L8 m
    right random 3609 F* a9 e. I; C3 w$ @% g
    forward 1$ L. \0 F' A: Y
    set energy energy - 1
6 u5 s0 s" Y8 V    ]9 O8 R7 G* t( }- [5 I; m
end
$ _+ r. \/ p4 V: H  E' Z4 b) eto setup-patches
/ F% r+ V5 N8 O, h* P* F# J  ask patches [ set pcolor green ]2 H* M) q. D1 K; @/ c- P
end
9 ~0 U, H% Q& Pto setup-turtles
+ a; J1 O2 ?* c& y$ y1 T  create-turtles 100( Q; T/ p6 d. j1 G7 H: L' `$ Z- X
  ask turtles [ setxy random-xcor random-ycor ]
2 d+ I7 ~! U) B/ y( tend
% C5 Y" n8 F& G* ?to eat-grass
6 v) t/ i# }; T5 k  ask turtles [
8 q+ d7 J5 a: \7 Z4 H1 \; i    if pcolor = green [
. g  s/ N2 z+ X- V7 C9 S  A; F# v) E      set pcolor black4 a% \% r; a! |# F$ w- i2 S
      set energy (energy + 10)1 D9 R5 ]0 ^8 G" w7 d
      ]
, e5 }" K1 u7 X1 [$ E    ifelse show-energy?8 T6 c3 F: ]- ]! F: b- A
      [ set label energy ]
$ W: b, Z5 Z) o0 ~3 B      [ set label "" ]
' i6 w- Z& V: E8 w    ]
2 b$ g& K1 o% L: \, Bend  U" l) [. }) J' A' }" }$ w! O- S
to reproduce4 a- O+ k  j9 w1 p0 l' v
  ask turtles [
; s& f$ i5 }7 E8 @' F( Z& a    if energy > 50 [
1 ?% w  N7 n, Q6 F0 C# X5 P) d      set energy energy - 50
% t2 |7 W% r) G5 a4 }0 Q; S      hatch 1 [ set energy 50 ]! ?0 [- n; \* B# I8 q
      ]
* G* q# d9 S# n$ @    ]! ~' W: s) W1 W6 T( a
end2 p. q( T& Y) `: }! |
to check-death% k. i$ k  w- U* Y
  ask turtles [
5 c) H% u0 A% {4 \8 _- \( f    if energy <= 0 [ die ]
6 {2 s6 x6 L. Q# C    ]
2 u" u; X+ @: _4 k4 p/ Tend8 _+ j. D' v/ g8 @: B/ [! p4 H# Z# ?" F
to regrow-grass
  I7 q( W- J' \; t' I1 C4 a  ask patches [
% m" z" _: S' I2 a0 ^    if random 100 < 3 [ set pcolor green ]& _, w3 O) h- T) i3 R- D
    ]
2 ?/ ^% J* Z4 x/ J$ ?) h" I. }end
8 G. n2 \* s& {to do-plots
8 ~* X5 O8 E5 [# V. C  set-current-plot "Totals"% @) g2 t, d. ~
  set-current-plot-pen "turtles", y6 a7 q2 t$ f: I
  plot count turtles
8 b! G; \+ Q: s" _& B% A  set-current-plot-pen "grass"
$ X4 s. m6 K' S( D" H* c  plot count patches with [pcolor = green]
; g+ x8 `: u, M8 x0 m8 j/ @" q# _end- g& u% O7 S1 h# ?+ T
可是运行时提示no such plot: "Totals"8 ^$ c' S9 X, S7 z2 W
error while observer running SET-CURRENT-PLOT
- o. N+ W3 t+ v; z1 x  called by procedure DO-PLOTS. [4 Z, F6 o1 Q, ?# d
  called by procedure SETUP
: @' _- X' ^8 T+ @# A  called by 按钮 'setup'
4 _9 C: ]( F9 n' M4 d% ~# 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
+ I0 q' A" X. |( L" k8 x建一个叫做叫做Totals的绘图框就行了
( d* [( e9 p4 g" I& ?
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-22 16:45 , Processed in 0.018723 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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