设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8421|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
( z4 A" ]7 A9 V( m8 t0 Oto setup. c  q9 E  t. u7 I: I7 `, s) _
  clear-all
0 O. r  t" I4 D  setup-patches
$ v+ X" a2 Y3 v6 i* `; C  create-turtles 100
1 l1 T+ E3 _9 _  n1 D3 X  n  do-plots
& }+ q+ a* k/ K& N) E0 L9 I  ask turtles [ setxy random-xcor random-ycor ]
) f" E  H0 A( {& [1 cend% _8 E0 U) K$ A8 N  p
to go" }+ K6 ]' \2 z. V, A. n
  move-turtles7 L! f& T9 A: |9 l. G
  eat-grass- y% [" ~- z! b- F2 b; J5 v. V: G
  reproduce
; P& L) s$ R. }  check-death
$ E7 _7 o$ g! M) P1 Z: \  regrow-grass5 Z0 `% y- x, F! b6 Q( [8 l
  do-plots7 Q! V0 @- K' {( A; N  L6 j6 m
end, c( T5 U7 V/ ?+ w& Y0 j/ {
to move-turtles5 J/ R5 u- B5 ^3 H' A% I& r
  ask turtles [0 b, q4 X8 p( L, y
    right random 360  P8 g' Y8 h1 e& y9 }: n4 `
    forward 10 [4 D, U+ z4 k- [
    set energy energy - 1
+ O3 M& `% p# t    ]
7 E- A8 g$ Q) w3 I( Q+ z% qend
7 u2 J! j' y* X$ Z; j# J& w4 W1 Tto setup-patches. ]  H5 d$ D! O2 X6 O
  ask patches [ set pcolor green ], a" I9 u; M- ?6 k1 Z4 I+ F4 R7 [5 m
end. O$ f9 [# V2 k- g3 h
to setup-turtles: r; R' Q3 Q: l. c
  create-turtles 100+ x! ?6 s: f' H, Q, r( n" {. G
  ask turtles [ setxy random-xcor random-ycor ]8 \4 z/ Q; Q$ I( ?) d& g$ _
end
1 x3 V/ D1 p" g) q1 M+ z$ U4 X* sto eat-grass# u5 b+ N: a8 e
  ask turtles [
. g8 G% X# e4 j) f+ v    if pcolor = green [
. D5 ~& u. \* [* u      set pcolor black, E" H. }0 L7 K) m+ o5 ]
      set energy (energy + 10)
4 l; i0 C9 P1 g1 C4 G      ]7 r) Y' T- j1 r( |" {2 S
    ifelse show-energy?! V' O+ K! S% ^- X: a' _
      [ set label energy ]" M6 H6 q: B1 o/ X  J  P# Y
      [ set label "" ]6 d3 X! Q, l; o# g! i
    ]' B( ^; I1 ]1 A$ a. K9 b
end
' u% y; F+ p% f; p( e' xto reproduce
" J7 m/ T, {8 j- T. c8 w  ask turtles [0 y" o/ P6 {; ?! D, g+ h7 m
    if energy > 50 [; W. D! j# c" G2 v8 m& x* g
      set energy energy - 50
* b: l  C/ ]5 T9 \- s! m- D' w      hatch 1 [ set energy 50 ]# ]2 q4 l3 D% d
      ]" A5 Q% ]/ K3 [, N
    ]
' a* |3 d0 F/ }9 Xend
, X; k4 Z; S/ d; @1 i% Z8 yto check-death
- ]; H# ?( {  i# \' g7 @  ask turtles [
# c7 A0 [; X# t$ c/ g( g3 k& e    if energy <= 0 [ die ]
, b0 f5 j5 a' V    ]
: h3 t% `0 p' Jend, s3 s& O5 x# Y6 A! n2 ]
to regrow-grass
/ V+ _1 @5 g. B; J6 w- G  ask patches [1 R3 ]; P; B! }* i) `) t; [/ o" h
    if random 100 < 3 [ set pcolor green ]& r* |! {: c5 Y. x, O- E3 i
    ]
7 ^2 ^/ i2 H. d9 f) v& p. J, Iend3 @: D& U: {& j' Z* r
to do-plots
" [8 L5 Z3 O6 X3 L  set-current-plot "Totals"+ ]! f$ J6 c$ g1 P% W. b  ^* I
  set-current-plot-pen "turtles"
+ ~7 X5 D' n: v4 f  plot count turtles& ]5 q$ I7 ^& Q# R7 b. T5 ^0 o: z) h
  set-current-plot-pen "grass"3 x+ \6 T: N( k, m- l
  plot count patches with [pcolor = green]
9 g6 n$ v7 ]# T  J8 O' f" B7 I$ Eend' S7 l: o' H  h* I4 @+ h4 y/ s8 i  J
可是运行时提示no such plot: "Totals"8 m% P  c% y# @, P4 m( n! ]
error while observer running SET-CURRENT-PLOT9 i* p1 z4 W0 u6 ^. A0 l8 i1 V' ]5 b
  called by procedure DO-PLOTS
, f8 V8 Y& {. i& J2 k0 H  called by procedure SETUP
  ?1 y2 q7 x: g! \3 f  called by 按钮 'setup'* m! Q; {3 s- l# ~  g6 L& j5 Z
求大神解答啊
发表于 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 - U2 X8 k% S8 p' K2 B5 b- f
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-9-6 13:59 , Processed in 0.018343 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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