设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10876|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]4 {% J0 [- D" P6 d7 Z
to setup' _' {4 d) L5 A/ _; G! `
  clear-all
7 }0 X; K: g) o) _% ^  setup-patches
& i* z6 h5 m8 Z$ O1 m  create-turtles 100+ d  |/ a3 |9 r9 @0 q
  do-plots
- m9 E3 y+ Z2 H+ b  ask turtles [ setxy random-xcor random-ycor ]
& ?( g5 M' _: O- Y# X4 D( Dend
/ K# L. X: K0 p9 P0 yto go
8 N$ w: h7 P- T6 Y1 B  move-turtles8 {1 Q/ C5 z. v8 h/ A
  eat-grass
4 U' ^- G; W6 a: z) i) I  reproduce
; y; s" s# m5 E( C  check-death- _! S1 T- s4 Q0 g2 d9 u
  regrow-grass
& s7 l! L) q: ?" z# d7 c  do-plots
# H/ g; L; @) ]' Hend
+ G: w$ H/ s, d4 ^to move-turtles
$ g  p9 V2 c5 q. U* x9 d  ask turtles [" g; R# J2 `, d' L
    right random 360
( j! a& R! O% D' ?    forward 1
, N) }) `) Z) [% C0 Z9 |    set energy energy - 1
8 T4 J0 G; F, e0 a4 q    ]6 p# N/ T9 C( W" ^. s
end2 K6 J2 [. G% r0 l, I( I
to setup-patches1 i: H1 f* K2 _; C5 B0 i' }
  ask patches [ set pcolor green ]
' `: t- a' s+ q: f$ s/ Xend9 e" L# A% }8 r8 Z5 M5 d% ?. `6 Z8 F
to setup-turtles
9 t! Y& ?, W! Q" I; Y0 V* \* J  create-turtles 1008 t+ W' y1 c( \3 F& q& k  P
  ask turtles [ setxy random-xcor random-ycor ]
* c, U0 I, S: |: Jend5 A7 M3 x  M2 i5 j: Q
to eat-grass
. r8 s8 M, l$ X) ]  ask turtles [0 A8 S5 n$ H! Y. C8 l& v$ Z
    if pcolor = green [
7 u: y/ L! i$ z7 g      set pcolor black6 o& ~: `# L" u( S. G
      set energy (energy + 10)$ A) I! U3 f4 @4 S' `$ o: V( \
      ]( r2 p* \! U& U- b2 U
    ifelse show-energy?
7 ^3 \- H) X; ~: w5 {6 o      [ set label energy ]6 ?" Y+ f5 G( T4 b3 [# c
      [ set label "" ]2 e% p- v2 w) y2 n+ e" S. y8 \
    ]
' {! }5 U& \& n5 Dend! G4 E) v. ^. T' `) Y4 `3 b4 E
to reproduce
7 t! L1 N; b, Z* s) p  ?  ask turtles [
* X4 f: ^1 e- R$ c. L    if energy > 50 [5 n! j- y  J5 O. X! T9 \
      set energy energy - 50* `! [4 x( ?, T* x' s' T  C, E
      hatch 1 [ set energy 50 ]
( y6 O8 R. k7 _# K, W% p      ]" G$ V7 e! E# o6 H# W" `
    ]
, f1 _# U0 ]. ]7 |$ I* @% s1 tend- i+ b' s2 ^. ^7 G
to check-death6 K/ E& |+ a4 h  V  J( x0 H/ u
  ask turtles [
% h4 q4 X5 U7 F0 n    if energy <= 0 [ die ]# `  ~! U0 T4 O
    ]+ r* r) {: O  h+ W4 Z
end
4 b; k# M3 a1 Wto regrow-grass1 N: y3 s( V- H$ u$ c
  ask patches [
2 Y7 i. K" J& Z8 ]% n    if random 100 < 3 [ set pcolor green ]
/ O6 |# Z. n& ?/ h    ]- n3 r# e- F' K
end
" f$ ^# x# S: O( ?' P8 Y; A* fto do-plots+ n4 X" k) }, X# B) |
  set-current-plot "Totals"
$ [2 [) ?& \' Y1 J  set-current-plot-pen "turtles"
( |5 l# ]$ n( M8 W" X) ^* b. m  plot count turtles4 v: P) n& a8 |/ s
  set-current-plot-pen "grass"/ u4 }! N1 a1 r' ?
  plot count patches with [pcolor = green]
! O" J% D2 M' H& D0 Z2 n3 Lend
' ^9 v7 M7 u+ Z! B1 i9 }" ]) K可是运行时提示no such plot: "Totals"
( F' ~4 S3 o. I3 d% e/ uerror while observer running SET-CURRENT-PLOT
: l1 Y) G9 x! Y, @% t  called by procedure DO-PLOTS0 C+ D; W, F0 y- _  y
  called by procedure SETUP
3 W: |" N6 A: \# N1 j  called by 按钮 'setup'- p/ Y3 Q$ _% k: 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
) d, M3 J  j1 T# g5 o8 z+ Z+ E建一个叫做叫做Totals的绘图框就行了
3 U# X8 M7 _+ V0 g5 \
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-17 17:28 , Processed in 0.016020 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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