设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11308|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
5 |8 C- e2 h- h# M. [! k$ t9 ito setup/ z/ j- ]! `: ~
  clear-all+ T- p& ^1 d1 ~9 c! P: ?+ E5 H1 F
  setup-patches6 P  {7 K1 e0 q( p  H/ `6 I3 n
  create-turtles 100
9 w, G9 r: |. @, p  do-plots* S: t+ g4 T& L, p* }$ y  Q
  ask turtles [ setxy random-xcor random-ycor ]# q  k9 F* j( x/ R* ^' y. _5 E
end
$ m  c3 j) L5 Q+ T" I( Qto go
8 R2 _# e0 H: C! ^( e  move-turtles
) v8 ~# H9 ]$ q  G  eat-grass
9 k% W4 _1 w8 d6 l, I  reproduce! Y5 B9 H9 ~+ N) s7 f/ W
  check-death
  p- }( O6 q1 m  ^  regrow-grass
) L* s3 P8 n) ^4 C5 T/ z' D. ^  do-plots* b: Q8 Z8 u( p: @
end
7 ]. S# U7 u. e2 p* [6 h8 Wto move-turtles
. x9 ?& X' J2 |6 p' E3 {  ask turtles [& F" v9 r1 X1 R- ~2 i+ B
    right random 360
' H9 g$ u7 n1 s- E* m: h    forward 19 d# v. g* J4 ~6 B0 x; a7 u
    set energy energy - 1' {6 B* ]4 f- d& k$ N, @
    ]
- W1 `/ }8 Q4 e$ {end
! f2 F# `- t% ]* T5 [. @to setup-patches8 y# T% `7 p% H% @' l9 W2 H
  ask patches [ set pcolor green ]  v' a  p0 Q, ]; K
end. b4 ~1 p' o  D0 }
to setup-turtles: _) T5 Z/ V/ ^3 r. M
  create-turtles 100) }4 u, y9 N1 ]; F/ K5 S
  ask turtles [ setxy random-xcor random-ycor ]
- L& ~  f# F8 H. F/ y+ B2 P& t. p. @( Xend
0 q7 v$ d# g, r# y' D3 Oto eat-grass
* K( u) ~% o" ]  H) P9 v  ask turtles [( K$ {; B3 b! C
    if pcolor = green [$ U6 R" d8 ^4 e6 {
      set pcolor black. W  w. X/ P3 [- J* W" `& G8 m' J
      set energy (energy + 10)
6 ^4 P  J# x! X: i% u9 b      ]7 U+ V, B* p+ e4 X  M
    ifelse show-energy?3 A% b4 l: L* t/ L) b3 |
      [ set label energy ]) X4 T/ j/ D; B0 H7 y" G$ L) u3 Y7 t6 J
      [ set label "" ]
0 G" W+ L' x# c/ A! h1 y4 U) K    ]; I; T' ]" K7 I: _8 `" @8 A& [6 n
end" s( {5 K  ?& P! M# |+ \
to reproduce" {+ `7 R7 B! U; J
  ask turtles [4 M& k7 p+ l' z
    if energy > 50 [
9 L7 L6 j+ P6 F3 O) {      set energy energy - 50/ S& a; G% f1 ~7 C
      hatch 1 [ set energy 50 ]
( D' w1 \5 b( _% j      ]# M4 ?3 S; h# @$ d3 F/ P
    ]% R8 `) P8 Y2 v' f
end
* l+ b( {# k) H% ~: a$ g5 Hto check-death: F( s8 {  |! U' b5 g) Z) R
  ask turtles [' e$ E; a/ R( x6 p! K. o" k( }
    if energy <= 0 [ die ]
: _5 I+ ^  r( _$ [, V0 P; r) Q    ]) Y  n% O4 u9 D- H2 E
end3 r- ]4 I: D0 y4 [. [3 y8 e5 w
to regrow-grass
1 s% G# j% C$ E$ b  F: D$ ?' b  ask patches [
/ h* f" V: Y/ y    if random 100 < 3 [ set pcolor green ]/ m8 Q8 X+ o# {' g7 M7 G
    ]
' @9 z% B; K# z* ^  n. Zend
4 v( \" H+ u6 K0 }3 X! i, Y5 |; T$ m- uto do-plots
$ U: P  C9 @1 \* @* c  set-current-plot "Totals"  q4 p( C2 d  g- F$ H
  set-current-plot-pen "turtles"
1 r& P, g7 G3 y/ t) o  plot count turtles# p2 P) g9 X8 P
  set-current-plot-pen "grass"* K- O; I: _7 ]( y* N
  plot count patches with [pcolor = green]
3 @. w+ F! S' kend; w& I( z, e3 R( d, ?- x
可是运行时提示no such plot: "Totals"3 R" a7 S3 I0 U  F
error while observer running SET-CURRENT-PLOT
% B) N* q4 _& a; [; c  called by procedure DO-PLOTS
+ |# x* @, |6 ?( k: u. \  called by procedure SETUP
9 w; I) b( I& Z, u  called by 按钮 'setup'
% u  c1 _" P% u# w# f4 a求大神解答啊
发表于 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 2 [0 Q- N0 o+ o
建一个叫做叫做Totals的绘图框就行了
. B+ d3 }! P, d0 T0 F4 U5 ]
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-17 09:00 , Processed in 0.016934 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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