设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12495|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
' r* b5 p3 |$ C+ }8 ^! [7 V+ [6 b/ Bto setup
4 P# O9 O9 m1 H3 p4 E# A  clear-all
" {, j( ]& N" w) `- ?  setup-patches7 ~6 u3 e+ d: ^- P& o
  create-turtles 100
1 Z4 R4 b9 T% X- `3 `9 c9 I4 K# I. _4 \  do-plots. [9 Q7 Y# P* H
  ask turtles [ setxy random-xcor random-ycor ]
2 j6 }& {: q: R9 t- gend
) N( Q; X' x* Z. |to go3 R5 r; B( v, X! i7 M* p  Y
  move-turtles* m: \4 q1 k. y/ g
  eat-grass
# H' y8 s" v& J2 x# p7 f1 X8 D  reproduce
8 Q- z7 f2 f& r, S9 C  ]" l  check-death
6 ~8 I% e5 ]: v, j0 Y  regrow-grass
2 d5 }4 _* F( `. t* f% X  do-plots
8 r1 ^- O) \* P0 \9 Z! jend
& c3 [6 ]9 s* L6 e: }: Kto move-turtles2 [) Z3 L" t$ p1 ]
  ask turtles [  q$ k& h" p0 o" `% f
    right random 360
: F% C2 B3 {* H3 L) ~: t    forward 1
( D( I' `# _, @) }    set energy energy - 1
8 g& W# x5 V/ S+ ]8 R) t: Q    ]
6 Y) S) g$ W# P7 ]end8 U5 {' c: ?8 m& i
to setup-patches
8 e$ C+ L& t# {6 ?/ a  `  ask patches [ set pcolor green ]; x( g& M4 ]2 a5 c# L6 {0 q2 @
end6 s6 S1 }* [- a8 q! E% }7 Q* C$ I
to setup-turtles/ k1 h$ E3 y6 B8 `) z- ^
  create-turtles 100: ]. A) s: J8 [: N
  ask turtles [ setxy random-xcor random-ycor ]
+ a6 @( A+ w& O9 ]end
7 R( a4 D" Z4 Q. {to eat-grass
, e6 r2 S/ \5 _. \8 ?5 b/ E  ask turtles [
4 _$ F, _0 ], f    if pcolor = green [4 c, ~( ^5 J8 B- {4 ?' c6 H
      set pcolor black
% |% n* r, L7 E: F, O: i  }: V$ k      set energy (energy + 10)
+ V7 v3 p3 h, F' w      ], G, f- v" q! n2 ~
    ifelse show-energy?& k' N" y) M4 j3 D, J6 t1 Z
      [ set label energy ]
* }1 Q+ i' n( t9 G0 ?* o4 `      [ set label "" ]
9 H0 H, M, d# e- `9 n    ]
% m  P4 I" a7 N1 E/ Pend2 y9 ], V7 L. k
to reproduce
% X: _# N1 G& O& G4 D8 A  ask turtles [6 b& D* L- |9 m& ]. A% h
    if energy > 50 [
8 K2 q: ~! ?# c% _! i4 {$ D      set energy energy - 50
- v- U# j& Q) c6 ]) l7 a) @8 f      hatch 1 [ set energy 50 ]; F' z7 ]$ U# T7 A, a5 u9 ~
      ]
9 w( b: X8 R. i$ C    ]
7 q$ T+ u- r) F! D( n% r' m2 X! Iend( E* A  j6 H: U" v1 s  J
to check-death
% b) q6 P( w; l) E5 T  ask turtles [6 n! [# N, f" g+ t6 u
    if energy <= 0 [ die ]
  x1 x) p! c+ w. k    ]
/ v' A# ?+ M, o5 Q  ~end
+ E6 f  H+ j3 H6 f$ k3 @to regrow-grass
1 O/ g8 e0 X: N+ _6 M7 \, i; T( v  ask patches [
( S0 c' a8 d8 H6 q    if random 100 < 3 [ set pcolor green ]
% |  U4 D+ u8 M    ]2 q8 J, O! V& d
end
' t: ?5 E7 G5 H; k% o9 [5 \& M+ Bto do-plots
5 d9 P) E" ^/ k7 ?  set-current-plot "Totals"2 Q( l8 L7 h+ z' Y# r' [
  set-current-plot-pen "turtles": W  @+ Z4 a  p* T; e* A: L
  plot count turtles
1 a. ?; V2 B' \7 D; T7 Y" C6 j  set-current-plot-pen "grass"7 F1 n& x" U& Q: Q; F# b
  plot count patches with [pcolor = green]4 {$ [0 U( p% u- @2 {" v* M3 u
end/ X3 x2 v1 D+ l# C- F4 u
可是运行时提示no such plot: "Totals"
4 F4 J- V1 A4 b# kerror while observer running SET-CURRENT-PLOT
4 J! W6 _7 Y5 U- I+ |1 s  called by procedure DO-PLOTS; q. e9 g1 O( U6 X  f& W
  called by procedure SETUP8 j4 Y" ], v$ p- K& E0 }; a
  called by 按钮 'setup'9 Z' s# A4 R# g+ A. I! 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
( o$ p* N6 A/ r建一个叫做叫做Totals的绘图框就行了
7 N. v5 M6 p9 J/ N9 f1 h/ H- n
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-27 05:15 , Processed in 0.019564 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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