设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12733|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
6 B; w. W: s3 D. ]! dto setup/ L7 g1 T2 t: _6 k) t
  clear-all# I% B7 [. w% n! e1 M) ~' I
  setup-patches
  {: S; |5 W- i& J* C  create-turtles 100. _6 L: I5 d5 @* N6 l- g) [/ p
  do-plots
; {% |/ D' H/ O- E6 w, X$ |$ k6 h1 Q  ask turtles [ setxy random-xcor random-ycor ]
$ O4 g/ \5 H( d, W; K* X# xend+ z3 Y+ h5 m3 H" ]+ o) I
to go
/ ?. e6 l- H" U* S# f( m  move-turtles8 ^1 Q0 t' M* h" a; E
  eat-grass
2 Z$ p4 S0 t8 v6 y6 ^' m+ `6 ?  reproduce
: k7 L5 U* R2 f- F! F5 T6 C  check-death/ h/ d# \% O9 U& S6 L
  regrow-grass: u; ~5 K" i0 W4 T! i
  do-plots- T" Z- o" H/ M5 I. m9 ]- Z
end
  |* a( X1 u& e  V# zto move-turtles
( V, L8 k" `5 d# c, _3 D; X& u  ask turtles [) m( _; f1 n: m5 _8 d  m6 j$ a
    right random 360
. ]3 \$ ^5 Z) x: F; p2 m. @    forward 1
& U) C1 `5 l/ E% U, i    set energy energy - 1
# Z/ O$ w8 [+ T4 o    ]
  R7 a6 W8 ?- r9 I( s( fend
( w% @! G5 m7 Vto setup-patches' k1 {4 M; T) N0 m- v4 o' s8 ?
  ask patches [ set pcolor green ], j9 Y" K) E; y
end
+ W, Q" {( g- bto setup-turtles
) p, M" l: G4 l7 ?5 r3 [  create-turtles 100
# q% ?4 A  n" @+ O; d+ w  ask turtles [ setxy random-xcor random-ycor ]  C( s8 O! \2 P. U3 J% k
end
( m! N* C) _5 l" V( fto eat-grass7 v8 c2 l( F8 ]2 V5 r
  ask turtles [; @$ a/ \5 F; ]. u. m+ M  Z
    if pcolor = green [
8 ^3 q1 F$ _5 H' L+ W      set pcolor black1 m9 O; a, }' F: N$ @. l
      set energy (energy + 10)
) H. V2 r+ ^8 n! ]" Y; U4 O      ]
# Q$ Y. A$ C  S5 [2 h    ifelse show-energy?+ g$ d0 y0 J& d4 z8 G7 u  \
      [ set label energy ]
; p6 R. P5 |4 q      [ set label "" ]
* M1 v1 {! p+ _0 x1 M7 N    ]
8 ]* w/ d2 V1 g  c) G2 {7 Q$ zend
/ T7 S: a7 L* h) Q! g' }: I/ yto reproduce
$ T6 v; Y; q8 v0 T& r8 T  ask turtles [
; d) h1 l1 M3 z    if energy > 50 [$ e8 d% v6 u) k2 R8 v: `' o& {2 L
      set energy energy - 50: u, s& T( U9 `7 W$ }
      hatch 1 [ set energy 50 ]: R0 P6 A; B' b2 @
      ]# S# G# N  e& K1 J' j
    ]
9 [, K, a6 g* i4 m; n. Z! ?# `/ Uend
% f) d! \, H0 d, `to check-death
- P; R3 |* X' z# V. \' @  ask turtles [& H* }/ N* w3 V% H' y( L- v! m
    if energy <= 0 [ die ]
3 v: ~5 n! Y$ L- {: r    ]
1 B) @/ ]! h7 |end1 X6 O/ @# X; G; D, Y! h3 H' ?
to regrow-grass
6 _: J7 L7 ]$ l1 n( U" |  ask patches [
+ D6 e( R% X5 g2 s6 x  y    if random 100 < 3 [ set pcolor green ]" x# H) b7 j4 E) |* ~, j* B& k, i
    ]: s: W) P' \- w( b
end9 O. n3 ~1 r% p* o/ ]" [) ?7 ]& m
to do-plots4 I4 K) ]7 o& }
  set-current-plot "Totals"5 J; E% h* t5 M1 }( C* G) x& D  m$ m
  set-current-plot-pen "turtles"0 I8 l$ r  q" U- |. v
  plot count turtles. n7 n" X  F" m8 w, ~5 g
  set-current-plot-pen "grass"  i: p  h8 W1 ]- k
  plot count patches with [pcolor = green]
# v& g% ]! ?; hend1 S4 o) c7 f9 G; Y: w% |
可是运行时提示no such plot: "Totals"2 ^) u) ^/ w/ ?) q6 A1 j2 y0 ~
error while observer running SET-CURRENT-PLOT: z3 F) _+ E1 I( W) o7 C
  called by procedure DO-PLOTS
+ @1 U5 W# q3 {' {! J/ s7 d$ V  called by procedure SETUP2 `# E( Z6 ^* O- Y! g
  called by 按钮 'setup'
, g* D! j, ~* t* z* j9 M求大神解答啊
发表于 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 ! x3 ^1 J4 U- U0 `0 X6 W4 X
建一个叫做叫做Totals的绘图框就行了

/ K$ i4 m8 H/ {3 V! B+ B9 a1 }哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-13 16:33 , Processed in 0.470791 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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