设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12327|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
- J3 Z* C) f+ {1 ^) @to setup
6 O. ?8 }1 G6 Q. l7 {  clear-all5 A/ Z" [9 }2 R' j1 z  R' B5 ]# k
  setup-patches5 u' Z  m$ n4 y( D1 a1 |2 }
  create-turtles 100
- g, B& s) W" G8 k- V  do-plots9 k. i( C& X- E9 O  Q
  ask turtles [ setxy random-xcor random-ycor ]* ^, }4 ]  ]1 M% J
end' a5 S3 W* w0 R5 d# w
to go2 e6 t: R& _7 N6 M1 {( N
  move-turtles0 A8 N3 ?+ n& j& l. k  x; L/ m: G
  eat-grass) G8 a3 i9 @: a  n7 V  _4 y. q
  reproduce/ ^+ G# O6 ]+ p& h
  check-death" L: ?2 K( U) c& K' S+ ^
  regrow-grass' l0 @. F# _) Q0 Z
  do-plots
$ ?" t8 i$ n( C! k* eend
; R$ \- v7 y2 j% Z7 S0 ~to move-turtles
& ]) N1 M% }- o2 m3 v2 y  ask turtles [, r  \: ~6 @, D5 E( O1 q
    right random 360! C8 e1 k- v4 P; Y/ q* f; s
    forward 1
7 C) Y3 _5 ]8 A. E+ O; t% x9 E, M; B    set energy energy - 1
* M3 R" z; F! M, r7 g; l6 V2 }    ]
, k# b. a  B& r1 Lend
  m. {. I" d* B9 D- Yto setup-patches& Q$ L1 e0 k: U, l) d' x7 d
  ask patches [ set pcolor green ]! `- l7 _( O) b  I8 w, Z3 Y2 T
end' [8 T9 S+ \# z( [6 U
to setup-turtles6 D5 d! M# X/ |! d( l; n
  create-turtles 100% L1 a% s7 d5 E- ]/ E
  ask turtles [ setxy random-xcor random-ycor ]6 b7 E) S( o7 V3 v9 D( G. Q
end
4 Q+ s* A, H& i, ?/ ?& n  ?to eat-grass$ d* O; {$ Q+ a: i! ?6 X
  ask turtles [
1 l9 `+ b" h* \* F* n* R    if pcolor = green [2 E0 w  u% [2 H. s0 I; a
      set pcolor black% ]. y/ D: J4 U+ \0 x; z4 n
      set energy (energy + 10)+ I- D0 L: v; u1 ~
      ]
) W4 R5 w, ~0 i% x    ifelse show-energy?1 ~4 o* ]4 L9 ~9 L7 W3 S
      [ set label energy ]
* X$ B% n; ~$ v      [ set label "" ]
2 |4 Z* n# M9 t+ Q    ]
. W! F( f, t2 W, f) F' B7 L) m0 jend
( g7 N8 o, C/ q' l) M$ E: }to reproduce
- E: ^) }& z) |0 \1 g  ask turtles [
- h4 T4 q+ V1 j! k5 }3 p    if energy > 50 [6 }- M# k$ d9 Q5 m* l  }! h; ]% x
      set energy energy - 501 v8 J5 c( H% t" H
      hatch 1 [ set energy 50 ]7 H/ v, v( ~8 k2 V4 e$ P1 r
      ]9 S# h. n  l# o' L" U3 v  A
    ]
3 X% n3 n$ ^% Y; g/ K/ zend
/ F8 F/ A: _1 j! b! E+ c; c1 o. oto check-death% h; S$ s* t% u. s. n" w6 j
  ask turtles [
$ y( G! _9 R& [! c    if energy <= 0 [ die ]
3 h: j9 l) s0 G" X, `# |    ]( t) [* ~6 G8 i' ^% c) s
end
$ A. ?( f% ?$ @/ Eto regrow-grass! g( I' T3 A8 j" V  U& Y* `
  ask patches [
6 Z6 K  w( V- N9 Q; F& ?. C    if random 100 < 3 [ set pcolor green ]' s7 T3 Y- }3 z( N0 c3 c
    ]5 O9 [$ N8 Q% @  [4 D
end
/ W/ @/ Y9 t4 S/ j! ^- n% hto do-plots+ I  u1 r2 K8 `! r7 |" X: z
  set-current-plot "Totals"" M/ F* j- s4 G3 ?, H" D! R
  set-current-plot-pen "turtles"" O1 Y/ Z- I4 B! Z' Z+ r% y: y
  plot count turtles; k/ \7 W! o; @) ~4 l
  set-current-plot-pen "grass"& }! W% {4 V4 J( z% F
  plot count patches with [pcolor = green]# F( R2 y0 Z! v5 F0 |
end
% }( Y3 m% P6 b' b7 U可是运行时提示no such plot: "Totals"
9 q% \2 O1 V- T' D# n" `error while observer running SET-CURRENT-PLOT" F: v( w+ A0 H$ m5 ]3 Q" y( M
  called by procedure DO-PLOTS
/ }7 b1 m! ?" S& k  called by procedure SETUP$ ]6 C  @3 p) Z8 S( }3 ]. Q* h4 ^
  called by 按钮 'setup'. |4 b8 ^# y1 @, j; E" ~
求大神解答啊
发表于 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 ; \% p8 P% P+ h/ w! T
建一个叫做叫做Totals的绘图框就行了
$ ~; ~/ e2 I  J% B+ f2 Y+ E* h
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-10 17:02 , Processed in 0.021141 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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