设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10281|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]$ `8 P% ^4 m- Q; g3 X/ a2 s: ]
to setup
  N/ E/ a5 T- F; O  clear-all
: c8 E9 u  E* B: y) q; A$ e  setup-patches
( e% o( I& Z" f6 A  J0 B  create-turtles 100
9 d! q: q& H: s1 _6 S1 E  do-plots4 K  ^# R4 x1 O- f& ?
  ask turtles [ setxy random-xcor random-ycor ]8 P3 l9 {( T6 G  l* I) K
end
! Z0 h4 e' E0 T( G' w7 }% O7 _: Uto go
  V% P. u7 U/ V1 f) r  q  move-turtles/ o$ l2 R0 q% J5 Y
  eat-grass
9 C; j: @8 I* `$ M8 E  reproduce8 p2 C5 `3 q1 J4 r- i
  check-death
# f/ `5 c  L$ K* z* s+ ~# y. _  regrow-grass
! i+ L' @$ V9 q0 M  do-plots" {% l5 g+ R( I) h3 j
end2 }' _" A: v9 L
to move-turtles, f* ?, c! S# G$ \( Q3 L7 e. B
  ask turtles [4 M) j  Q, k# d
    right random 360( u7 g7 O% M# l# f9 _* T+ D) i
    forward 1
! ]( X# v" s) l3 B& ^: ^    set energy energy - 1
0 I, P, u% y# q. b. `! c0 ^. B+ t    ]
$ s5 o/ K, Q# t: K4 Fend
$ B) q0 Y; ^, g. `to setup-patches
- q& P6 @. x- Y, f, o0 M, i# v  ask patches [ set pcolor green ]
7 E* {" h- U8 aend1 Q% c( c: c/ V7 [) t/ \! a% w
to setup-turtles
3 A( m6 H5 t7 `, J, I- j6 F" C  create-turtles 100# Z2 w7 r$ r# p0 S4 u7 k  n0 K
  ask turtles [ setxy random-xcor random-ycor ]( q/ |& H) f4 e. [
end6 ]# c& k+ x! l; X" E( Q$ R. ?
to eat-grass
& M2 t2 ]. F' `7 C* F3 ?  ask turtles [
. D& B! h' K4 i; r& O    if pcolor = green [
5 X7 p4 k/ S6 g8 a0 b. r! s/ ^      set pcolor black
! T  z+ L5 p- L7 b; r0 ]: G      set energy (energy + 10)
$ O6 V+ s" ]8 G/ L( }" O      ]; i8 n7 n, E7 {; z) F) j
    ifelse show-energy?9 B0 E8 B- M: l( T# t
      [ set label energy ]4 m! {* }: C, n* R9 N8 U) E/ \( q
      [ set label "" ]
/ X" ~! P, Z$ W- ~1 i7 K+ D. }    ]
/ N: y7 G, F5 E* Q/ s* o, Fend
, O- \/ ?6 ]* M( d$ xto reproduce
  g) k% E: H& G( W$ S6 }  ask turtles [' F4 R# Y& S9 z" Y. q/ ?
    if energy > 50 [
+ x/ N8 q5 Z) r' w# l1 M: H- s      set energy energy - 50/ R" \6 ]3 E1 D: G; r$ U; X
      hatch 1 [ set energy 50 ]
' N. r" d  V( v      ]& B. a  L7 N% f0 L! Q
    ]2 }' {1 w' }8 q" Q+ P
end' Y/ \) y, h9 j
to check-death, ?1 ^0 a; {8 q3 D. o" R- G6 D
  ask turtles [5 X% H* O* W7 M- s) b
    if energy <= 0 [ die ]
0 ?; h; I: v& Z; b- L( N    ]$ N; U: M& j* {+ F
end
3 T( ^$ m% W: X5 h* J: Bto regrow-grass
- _4 H4 L. }' x0 j  ask patches [. T7 u& k# q  P9 m
    if random 100 < 3 [ set pcolor green ]
4 }/ D! l+ J* I, S# w9 u  `" v/ _# t    ]# C! t6 d( n& q+ ~4 Q1 p
end
  D" s9 k1 S) O* z$ c" j; X* Hto do-plots8 c9 g$ Q5 _' ?+ B
  set-current-plot "Totals"- t, r# O( F6 {) x
  set-current-plot-pen "turtles"
# V$ H" k* ^. z- W7 h  plot count turtles+ ~/ w  `. j' X
  set-current-plot-pen "grass"7 W, }/ A( Q6 c: g# w4 k
  plot count patches with [pcolor = green]9 m: |# D- c+ n
end
* S2 g% ~$ j1 R可是运行时提示no such plot: "Totals"  v# d8 l7 I$ f! |
error while observer running SET-CURRENT-PLOT
% ?. T" }. Z! Y$ ^9 L& N# y  called by procedure DO-PLOTS( V; Z) [$ [$ p' o6 y0 [/ w
  called by procedure SETUP
, a. v7 G% e' z  called by 按钮 'setup'
4 L; I6 f8 @5 r! u+ k5 ?6 t- W& j求大神解答啊
发表于 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 ) s; T: E: P4 X
建一个叫做叫做Totals的绘图框就行了
; s' G$ `4 Y. `+ s; j
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-1 16:43 , Processed in 0.021067 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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