设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9909|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
2 `/ _8 ]4 \  L9 b, gto setup
7 j, ?/ N& M$ W  clear-all1 g. Y. _, Q  @1 H6 E- d
  setup-patches
+ b6 Q+ `6 H; x8 H% @9 G) s0 @+ w  create-turtles 100
: [' F. X; A% _. V0 D. h  do-plots; o5 ~5 F5 F/ b
  ask turtles [ setxy random-xcor random-ycor ]! S; q- [5 `; C  L4 U
end0 d# ^. ]/ }2 J/ s5 s1 g
to go
5 s3 W+ @/ m9 s. A) N8 T  move-turtles
4 F. y; R* r6 w$ m  eat-grass
6 {3 b9 B/ U/ |, ^; r  reproduce
! X0 ~. c1 Q' z  check-death
$ Y* k! E. V( Y, w% F  regrow-grass9 v3 }; T( J; h$ `
  do-plots- q, _  D' n3 n) T: g
end! s- W* E" E/ w/ B7 a2 b
to move-turtles
5 k7 U# H. c7 E$ C' S6 r! @. L+ s1 p  ask turtles [+ M; d6 j2 V1 }2 ~" w6 S, Y* Q
    right random 360& s# c* q( T% S  h2 k4 o
    forward 1) n' \# m6 K. I) a& ?+ l& e
    set energy energy - 1
4 V6 v+ K# b$ X0 C4 \: X% \0 y    ]' f/ N: V6 r2 v( I, n0 c9 v/ t
end& Z. A4 J9 S: K# Q
to setup-patches
2 C: k5 f% b+ V# k  ask patches [ set pcolor green ]
2 Z* n) u& w; R  w+ wend6 q+ @* l4 [" Z7 ]! r
to setup-turtles5 z6 ~' B% c3 H$ [
  create-turtles 100$ ?  J, z: w+ [
  ask turtles [ setxy random-xcor random-ycor ]
- I3 O4 G1 \# }3 D  v  j$ U3 send
# I- F( C0 i# B5 Lto eat-grass
# |3 a# l8 z% V2 }6 s  ask turtles [
2 D' J4 z' t1 m) N* L/ r0 |    if pcolor = green [
( p* Q8 ?2 o3 i' i      set pcolor black
  j8 D/ J( H& y4 e3 S: O. I      set energy (energy + 10)
- n0 q4 o) A( [! N, d      ]; s! w+ y# m8 Z8 p  X1 S
    ifelse show-energy?, K4 ~6 T) q" O  c$ |* }
      [ set label energy ]5 h/ z% V4 S5 Z
      [ set label "" ]
7 m* o( q9 ^: M6 O1 o; H    ]
5 ~3 P" S6 g/ m% ?5 [end
; d3 J0 Y, Z) R2 N2 Uto reproduce
% Q; S" i6 ]8 E# V- P  ask turtles [
6 x# c5 w+ J% ^    if energy > 50 [2 R0 K8 r* w4 Z4 q
      set energy energy - 50
% p7 {8 }. K/ e      hatch 1 [ set energy 50 ]
  l% j( M: p3 G( U7 R      ], v! `3 ?, f% d$ s" l" I
    ]
! z  V1 \6 ^3 g2 s2 @6 }end
$ O7 U2 d* s3 \% l9 ^$ jto check-death
1 H. d' d6 |! Z0 v$ N3 f  ask turtles [- d8 \5 ~6 g) q* P5 {
    if energy <= 0 [ die ]' \3 P! M+ k( e: p6 A0 g" [
    ]
$ F7 z8 @+ F' `9 t/ G2 @end& n' i6 H* w& F+ Z# o8 }! ]
to regrow-grass
+ Q" w, s) d# j/ v  ask patches [
- ]/ Z& v' {7 y' W    if random 100 < 3 [ set pcolor green ]0 y. G  S9 w9 i4 A/ q# K* Y8 p- a
    ]
* z! f' K- ?6 r! Mend
% O8 O+ G  J2 Xto do-plots. q0 L4 ?, ~& ?! p. c& x
  set-current-plot "Totals"
# V& |8 }. `$ B  l  Y# Z" s  set-current-plot-pen "turtles"
! g+ F7 x! i' {# G9 G  plot count turtles
/ n% I. I- Q1 w" Y' y  set-current-plot-pen "grass"8 L! [7 h6 M: P2 J9 [' ]' T
  plot count patches with [pcolor = green]
1 O  Y4 B- h/ G! T0 [3 f! uend8 q9 x. v5 l" K$ p* j9 g) L
可是运行时提示no such plot: "Totals", S0 X+ ?5 l0 B& w! @! d; G
error while observer running SET-CURRENT-PLOT
1 J7 f' E+ p$ g, G9 ^, P  called by procedure DO-PLOTS: L/ [9 e) O( V; N! {3 x& r
  called by procedure SETUP5 ^! I. s' ^( P' H
  called by 按钮 'setup'9 W/ B# x  ?$ W; A5 B" N
求大神解答啊
发表于 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
* q. x: x% b+ o' h* _1 Q( K& X建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-1-30 05:53 , Processed in 0.019991 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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