设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9994|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
: N  A. c2 g# Y* cto setup1 T5 X0 E# }: y+ u  k
  clear-all
8 V/ f3 o5 v, Q8 H) F+ l  setup-patches- v, a  F; P' U
  create-turtles 100; e$ y& y! y7 N( H
  do-plots
! k/ w# |$ p: P& r  ask turtles [ setxy random-xcor random-ycor ]% z# q) i- g+ o4 D
end
3 c, G% Q* Z% Z4 [% u3 Bto go
/ I- n; K7 L4 H8 M1 K. ~. x  move-turtles3 {  D4 V7 n' ^. U: g* y, `
  eat-grass
1 t% Y3 D" N$ [$ \  reproduce
" R, `& M) A4 t" l6 ]! N  check-death
4 L- F+ T5 o3 O6 z  regrow-grass
4 l& W1 c$ r& T& z* N* n: j, l$ c1 c  do-plots
, p/ r& ]- l2 _, Vend
; u5 a/ x' |! W# c# ]to move-turtles0 p  }! E. [0 X
  ask turtles [
1 G9 U  \5 {+ L' D4 l8 Z    right random 360
3 |3 K& ~+ {/ l1 }2 u9 E    forward 1" ^, N0 c7 H3 `4 t7 G# \
    set energy energy - 1
7 p4 t/ b' S& q! N) f. Y$ I3 ^  v3 y6 J    ]+ H" [1 b2 S  l6 ~3 Z
end
* s* L, {+ Z  ~to setup-patches' \1 C+ c7 i* k' ^; ]* W
  ask patches [ set pcolor green ]/ V8 G9 O) Z: ^- S1 ~
end2 k8 ~3 \+ m' S1 T% M: c. W
to setup-turtles
+ O* ^7 f; P! b  create-turtles 100
3 v5 S: k- M$ U7 i& ?, A  ask turtles [ setxy random-xcor random-ycor ]
1 S2 V, r. c: z) @* Q  t( p% oend" W  y3 _5 a/ d( u5 c8 M& _
to eat-grass
( P' u6 R8 N9 C& b7 B; a  ask turtles [
$ M8 h" L: J4 t' W" m1 W    if pcolor = green [
0 {9 Q- t5 V1 i      set pcolor black
. H6 V: T( J  N; Y# k6 Q& b      set energy (energy + 10)! C2 m3 N' D" g: W' V
      ]
9 Y7 j7 }/ e( @! E    ifelse show-energy?
4 \. B% _& B) P& w      [ set label energy ]
4 `; s6 _) U: d! Y& `$ O( c: f      [ set label "" ]
$ l- i6 j- V+ w8 T    ]
, q7 H' E( ^6 \  J  b) x! y/ dend8 `, Z; V0 P9 A: u" X8 V& |/ Q
to reproduce9 C0 u# A  B5 u
  ask turtles [, l6 k" |) k3 n0 O, J& }
    if energy > 50 [
( Y3 r6 F% ?5 S% ]$ h, `      set energy energy - 50
4 b7 e6 y/ A% i+ H      hatch 1 [ set energy 50 ]* G0 S: m" _+ K) U" {7 @2 R
      ]
& A% i" |! ^% @6 o) ?    ]
: J6 D5 j. i4 P' xend9 M7 c& h0 S3 X7 q/ y7 z
to check-death
' W8 K7 h9 \/ [. [/ t+ c8 k, a  ask turtles [( z0 D0 M* D% M% r
    if energy <= 0 [ die ]- w& j# `- M$ L8 Z0 h, m: h* E
    ]
3 e& t& N1 `4 v! |# Kend8 g8 k4 C9 z/ O/ P3 C, k# L: q
to regrow-grass, U- w8 ^) F7 ?; \
  ask patches [
6 e$ Z, U7 J: ^' s9 A, I) J    if random 100 < 3 [ set pcolor green ]% [5 a! Q6 ~9 w7 @
    ]
3 O9 o( O( S5 H* R$ t3 hend" X( ?8 E6 G6 p4 F7 t7 `( A
to do-plots2 S7 f* j: L6 }% O1 L+ v% p- l# D
  set-current-plot "Totals"
  Q9 N6 e! a( d9 D: Z  C  set-current-plot-pen "turtles"7 i; i5 r" [' z( t2 c% T4 }
  plot count turtles
8 G% V9 G/ Y7 k+ a  set-current-plot-pen "grass"
* s# Y% u7 D: [( W  plot count patches with [pcolor = green]+ P% Z) K0 `+ a: Y1 l
end4 I8 h7 O( n5 t- Z) c$ R$ L
可是运行时提示no such plot: "Totals": S; |3 v" C3 O0 T( }2 ]7 `
error while observer running SET-CURRENT-PLOT7 t* ~$ ]0 A5 b# j
  called by procedure DO-PLOTS; o! ?) M0 F0 s* ^6 f# @( Z1 l0 S# J
  called by procedure SETUP3 J+ {* w3 t5 b  B
  called by 按钮 'setup'+ X5 A) I- S% N/ }8 D/ W/ `
求大神解答啊
发表于 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 ! c& a, J" u5 O4 ?9 \+ ~
建一个叫做叫做Totals的绘图框就行了

- R- U  o& j) ]: A+ D哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-4 22:27 , Processed in 0.023255 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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