设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11316|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
3 W) x' `; W2 ^1 ~% _to setup
7 n( k) j6 D- b  clear-all3 B9 F$ h4 M/ v0 g& K/ [+ Q
  setup-patches
- ]5 M* _; `0 |/ j$ E) u  create-turtles 1002 d; |; N0 k1 m9 T7 d. R. T$ Y3 ?
  do-plots. _- n& e; R; J/ `
  ask turtles [ setxy random-xcor random-ycor ]% s9 t* v% O. R& f! p) ]* A
end
# ~, f- E2 Q3 a6 G! X5 e; t! I! F$ U/ Sto go+ v$ M3 P6 n# v% s, s+ _- f) z: o
  move-turtles
8 E: I# @/ Q3 Y  eat-grass
3 [8 K) n6 h: `8 S$ J  reproduce
  C# k' m/ c& J: T5 E  check-death4 L7 }' U4 j! Z7 q3 g* ~; t
  regrow-grass
$ Y8 B6 S+ O" v7 e3 o9 \. f0 |  do-plots6 N5 c* e3 N, z6 H# Q
end8 H3 T% G# z  x" ]$ c
to move-turtles
; J3 W- {, |) n% v" I. W  ask turtles [
+ l6 A# n8 O5 }1 F$ @    right random 360, F, b0 l4 {$ f% ?
    forward 1) a. e: ]7 p- ^, q# w
    set energy energy - 1/ z! E" b4 X4 Z4 t
    ]
9 r( }1 d, q% q( Aend
8 d. h, u& @* W0 \" d% Qto setup-patches
9 o* g; I) V4 s- Z0 @+ V: j  ask patches [ set pcolor green ]
! k( i; S; h- ], R4 K- `end
: p$ j' F; }9 x, vto setup-turtles3 n9 f3 i- E$ h' Q; V) {$ O
  create-turtles 100
. D: z. c1 h' F$ U1 K  ask turtles [ setxy random-xcor random-ycor ]
0 [% [  k0 |3 ^( Jend8 P" X: J" [8 B+ Z7 i' P$ H
to eat-grass
9 @. J% g2 ]1 c  i$ @  ask turtles [) Q- |- M' D& X  [& c0 D5 }
    if pcolor = green [
3 b7 ~- g- R* t      set pcolor black0 T- A: _" i8 K0 G
      set energy (energy + 10)' u* }5 E7 o/ ~8 W% l
      ]
4 L8 L/ r* E; |+ F% x    ifelse show-energy?$ x& ^) v0 ~7 i( O/ w4 H$ z
      [ set label energy ]
; G  v% ?" W0 N  r      [ set label "" ]) }3 h$ W! M% ]$ [/ F2 L" [% N
    ]  v6 G' W. \5 ]/ b
end5 s& @' E: F4 C0 h! d
to reproduce
" P$ o: U: u9 ~: \4 t. k" |  ask turtles [
5 s* t$ u* d* y; V    if energy > 50 [
3 I8 w3 Z7 g, l1 c  U( j, D! l4 r      set energy energy - 501 L/ c% R% E. v) m
      hatch 1 [ set energy 50 ]3 y6 y6 S" r6 A, D* v
      ]
) c2 Q. X7 g2 r) Q8 o- T: f    ]
5 b' `2 b! k/ w% l+ Hend
7 x# p' w7 @2 b( K9 xto check-death% L- v7 D5 x& x& p, j* g2 B
  ask turtles [+ U8 g0 b, V, }. h$ S' Z
    if energy <= 0 [ die ]
$ F8 K/ q7 a7 @    ]; l; Q* t' c% w! e% u
end
  I1 R3 O8 F$ x" j! R# }to regrow-grass+ J: [  V. s: v. }
  ask patches [
* G% |, q( m* g9 R4 n: \    if random 100 < 3 [ set pcolor green ]
7 F2 G) e7 P5 c  }8 K; F    ]1 c* ?! A4 `$ F7 o" D, R
end( N) X4 z4 X# b6 m6 w
to do-plots8 W3 T4 r/ l6 F8 y& \
  set-current-plot "Totals": ]6 U) h0 S3 t' _3 z
  set-current-plot-pen "turtles"
# h: l- u$ [! X+ R; L! H" H% D( \  plot count turtles
7 Y0 f1 \$ A: X8 w3 g, o  set-current-plot-pen "grass"9 V4 h  {% b2 R% b+ P) l% Q- S6 y
  plot count patches with [pcolor = green]
* i* L: d8 P* [9 w% z* z  U; Hend
, J$ t$ e2 Z. a; |; `5 f) l可是运行时提示no such plot: "Totals". g6 Y) C' i; W4 R) ?9 _
error while observer running SET-CURRENT-PLOT% f; F- H: I$ }' C# w& a
  called by procedure DO-PLOTS( l+ h' |7 W2 x8 G6 f7 F
  called by procedure SETUP8 Y/ b* k  e$ G4 N7 w8 |3 T' x
  called by 按钮 'setup'
- V* p( ?6 P  c2 c4 r# s求大神解答啊
发表于 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
+ v# \8 A! @% d# i+ ?4 v建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-18 01:19 , Processed in 0.019568 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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