设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11447|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]$ F, g- g& J" q$ z7 X% {
to setup* s; _# B, D" B: D+ s
  clear-all4 ~& a2 @" J* W. D2 |, p1 S; ~
  setup-patches0 p; P* X  v2 }" W& D; N, O6 O7 S
  create-turtles 100
& l% l  e2 a2 c. A  do-plots
2 Q" l. i0 L0 L, ~  ask turtles [ setxy random-xcor random-ycor ]  v- L9 f" s' c$ z6 o: M0 }
end) L! ~, F$ Q' x4 ]& ]
to go
' \8 A' R" M; X  move-turtles3 f$ v6 P, [) `$ I3 }1 H0 N
  eat-grass) l6 Z3 ~0 {- q* N% g. o
  reproduce- S3 l8 X. ?5 s" w* [
  check-death. A/ ]$ M$ }4 @/ T; H! {
  regrow-grass
7 `3 u0 E) P! Q* F- i, H  do-plots# U/ Y) m( O( X
end9 y0 Y# i  q- c: @& ?6 W% m4 q2 d
to move-turtles
/ S5 ?% {1 s  @+ ?  ask turtles [" o& z. i7 V6 T) w4 Q
    right random 360
& p' I1 O5 Y$ y% l3 X& P$ |& k    forward 1
" l% [; K6 P/ Z7 R    set energy energy - 1: _6 M. y2 }1 Y4 |
    ]( P- y' j: ?6 P3 n: K* c* U
end8 _5 ?( V  Q7 u
to setup-patches% @( `' I1 z" M( {5 P' c
  ask patches [ set pcolor green ]
! }/ a# P6 {% ^+ e) bend' E9 B6 T7 Y. q  w3 s
to setup-turtles* X) X1 ?, J2 o0 s. b
  create-turtles 100
, C3 }, a: l9 h: U/ ]; P  ask turtles [ setxy random-xcor random-ycor ]1 R. ]8 [8 }2 T: a
end, |% @7 E) l4 r. L) y+ i
to eat-grass) _# J- V# F( ?& ?: C
  ask turtles [4 S/ v# P0 a& ?- k* r0 n3 A
    if pcolor = green [: p6 Y, ?, \2 {# q8 U- O& a
      set pcolor black8 N1 |. q' ~5 q
      set energy (energy + 10)
9 ?; L& h* S, f. E7 o$ L  u      ]1 f8 }" J9 E$ E; x- ^- V
    ifelse show-energy?
+ ^" z2 x$ p1 E' m      [ set label energy ]
2 B4 h8 H, g4 j7 S2 l- e# _% i+ A/ e      [ set label "" ]
$ ^- ?: b( {; R+ M; F% P( Z    ]) l* F( ]$ g% s( C; {6 M+ |
end: v8 u2 [6 R* t5 E3 I) D1 h
to reproduce. x+ o+ I1 ]7 c1 u9 q# _) q+ g
  ask turtles [
0 @; C$ c3 G0 v. [9 Y! i  j* _    if energy > 50 [' L# T9 P9 h; J9 N, S8 \- x
      set energy energy - 50
; H6 J. f% l: F4 N2 k      hatch 1 [ set energy 50 ]
$ ]( E. C- M  q$ a8 H6 A' |0 O4 i. J      ]
2 c1 n  a& r# c    ]
8 d  K! z+ n7 Zend5 U; q5 L2 E% V) |1 w3 J: M
to check-death
4 b( G; u2 ?4 ^  ]" Z2 _( H  ask turtles [2 r4 w' P; Z  f* A. y5 x; K
    if energy <= 0 [ die ]
0 X/ Z* O; p( h9 F+ D8 B& b5 g    ]
% r+ L& K& S2 j9 |% ^; g% Lend% f) E5 X6 F' t9 s  Z
to regrow-grass
- H7 D) A6 Q0 ^: K$ @# x- l  ask patches [
" ]. D! e8 N: B! A* M! T* y    if random 100 < 3 [ set pcolor green ], A* X) F  D, `9 D' l/ L
    ]/ P* J+ [1 n5 c+ |$ z
end
8 N1 E4 g* {) X3 n+ N' Bto do-plots4 p! h4 y4 e3 X% s; C) d
  set-current-plot "Totals"; g" V' b9 U: ]/ f' f0 B# G" i5 N0 I" ~
  set-current-plot-pen "turtles"8 ?5 A+ m% g9 Q: \: m" r
  plot count turtles
& j; I# h1 Z; F! u, Z  set-current-plot-pen "grass"
4 i0 l# ~: b/ ?0 Q) h# P  plot count patches with [pcolor = green]- _* Q5 D9 D/ \- w5 V; a
end
8 Z7 b6 r, i" ^; O* R8 p" G可是运行时提示no such plot: "Totals"
  [4 [6 c" c# {error while observer running SET-CURRENT-PLOT' w8 I4 ^3 j% z6 t: A; y! c( Q
  called by procedure DO-PLOTS! [- ?% ?" d: z6 l9 }: M
  called by procedure SETUP
+ ~& b! g; O% Z9 U9 F1 c  called by 按钮 'setup'
; v0 X1 T1 \/ a+ t6 X' C" f9 Y求大神解答啊
发表于 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 ( k/ H1 `4 j7 x& |) L: w: b
建一个叫做叫做Totals的绘图框就行了
! j6 U# c4 m! M' o( t
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-30 16:58 , Processed in 0.016801 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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