设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10187|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
, x5 S( H) [7 p; h7 v8 gto setup
8 V; o+ @6 ~9 O$ ~) O; T  clear-all
  \, q- ?# _, U; c/ _$ d% c1 d  setup-patches1 L5 p; ~9 u. O1 H2 d' Z
  create-turtles 100, I9 ^7 r, |* K4 n/ S+ Y
  do-plots  J* W7 \. e. G' W) B2 d0 k3 P- K
  ask turtles [ setxy random-xcor random-ycor ]
$ p. u6 f+ N" E' Z% Bend
( m' j7 K" Q. P7 Cto go1 I" e1 h# m- l  r
  move-turtles& [/ T; v$ n% X2 E7 Z5 T
  eat-grass
7 `' k  i4 k( q1 S9 G  reproduce
- M3 w$ u" Q6 m- @  check-death; g7 V$ s3 l+ {: c+ ]7 |
  regrow-grass: [- d8 O5 M( O# ?5 z6 c" d
  do-plots& C5 K! X# j# K" r# p
end
6 B. Z: F7 M1 l: S  H) b8 J  hto move-turtles5 B; w" h0 M" A- Q* X5 `
  ask turtles [" o% |- s% ]& L8 b. R0 {* e
    right random 360$ Q- g, s. |- L* L1 V- ~5 b
    forward 1
( e2 P0 o& s- [8 Y& ]# S    set energy energy - 1
% g/ S7 h8 n8 r$ o7 {8 j    ]
3 T0 h2 ^* T, r, D8 j! V' J7 qend% B3 ?- u4 Q* o
to setup-patches
5 X+ s  i- `3 s  ask patches [ set pcolor green ]* |; F3 r7 }* @1 D
end" ^! M: o# z0 X0 e' j$ Q$ h
to setup-turtles: z- e% l9 E" ~, B* e" p0 A
  create-turtles 100
/ n/ ~( P; ~6 v( `( M* V  ask turtles [ setxy random-xcor random-ycor ]
* h; q- w0 p/ g" y9 I: fend: l8 z6 X  x1 H: S* }3 J8 T
to eat-grass
0 c* G1 ~2 N8 m/ |; O5 X2 Y3 B  ask turtles [
9 l! Z- H' p( ~3 t" b. ^    if pcolor = green [
* D) Q0 Z# E; Z% @) u5 a& c      set pcolor black) u* T) z) A1 ~' I4 o7 S$ j
      set energy (energy + 10)# {* T6 `( p! x( l; r
      ]
# Y0 c! L- y2 I    ifelse show-energy?, h# t9 j' N6 y3 B# M4 a" a
      [ set label energy ]
: \: n2 m! p- S# |# i1 L      [ set label "" ]
9 F* g+ y$ M( u5 y    ]
3 x0 V& K% [# eend3 f' t0 N# E5 o/ t
to reproduce' x8 D* q# m. |/ i, m8 J' n8 n
  ask turtles [
8 }# M, U; l4 K& C8 ^- l8 \    if energy > 50 [
; x3 Y# Y- m$ Z4 Z3 F8 E      set energy energy - 50
+ w6 u  A# o! c- ]8 s4 p8 t' X% o& O      hatch 1 [ set energy 50 ]$ c6 T% T( F' Q: M$ y: e( @
      ]
! m$ r4 P4 V) q8 U* ]4 ]+ m5 K    ]* N! `2 u4 t9 d2 z
end
$ a' j6 e0 X3 j7 hto check-death
2 d! i, O4 h6 r5 t( J, r. @  ask turtles [
7 @% g: V& i% p+ a  [. _/ U+ g    if energy <= 0 [ die ]
4 |( r; y" X  A% S    ]( h3 T/ a* d. {5 @% b/ W
end
7 z) J  N3 J. y1 W0 Uto regrow-grass
/ K$ t+ [7 t4 }, }# w$ n; x" j  ask patches [
4 B' S. D+ d/ n# f, g7 J) {    if random 100 < 3 [ set pcolor green ]7 Q6 |5 S! U0 ?7 ^- k
    ]
* F5 D0 C# ~+ o' I+ ~# qend
' S! P, v' l9 h# F. j) Gto do-plots4 o. R2 u( C8 R# ?1 ^# ?1 z
  set-current-plot "Totals"# O' U! X8 P6 @4 v- k* t1 o
  set-current-plot-pen "turtles"3 y0 j: u& r3 o$ @- ?1 y/ q
  plot count turtles
+ R3 i" t, U% t& ^5 ]- m  set-current-plot-pen "grass"
. P: r5 V) T+ T6 R  plot count patches with [pcolor = green]
9 V# V8 a6 P! z3 v! L2 o8 q$ D; u( bend
  G0 m8 r- n) f6 ?# K+ Z  z可是运行时提示no such plot: "Totals"
4 u5 _% r. k( v1 g" m9 ierror while observer running SET-CURRENT-PLOT
* }% J3 Y' q- U+ W9 g) k1 e: t  called by procedure DO-PLOTS1 d. s1 m5 y. I
  called by procedure SETUP3 i2 Z* \! B: t
  called by 按钮 'setup'/ g, _  }' y. n* {1 N9 y# i) I0 C
求大神解答啊
发表于 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
) y4 ^& X. |8 m5 `- Y+ e8 \: G建一个叫做叫做Totals的绘图框就行了
* j, V- _" n/ p7 \7 T$ Z
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-21 13:31 , Processed in 0.016734 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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