设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10352|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
3 L4 n. b- Q& \0 jto setup
0 o2 x2 Q+ S1 s  clear-all) \7 c2 a3 m, w4 o
  setup-patches. i. G  O% L# l8 Q& c) L5 |
  create-turtles 100$ {" s  W: [' Q" S# F( @0 T
  do-plots
9 I. ?" E& y1 \" u5 R  ask turtles [ setxy random-xcor random-ycor ]
2 _0 i* C+ ~' g5 H& U9 d4 U8 v$ Tend
/ }# {/ {2 r( D+ D$ V8 Oto go, M3 b4 w6 v+ r
  move-turtles
0 `5 M' a7 \$ p* o4 X1 Y  eat-grass& B7 Z& X: {2 V# l- c! X
  reproduce
" |" l' U* J. X5 j' Q, v  check-death
. _& L0 x+ L) }/ e  regrow-grass6 a6 X# N/ p0 G: d/ M4 u
  do-plots
" s9 J: `( ]) B/ r- ^% Cend
! i' A4 J3 G: g- s8 [to move-turtles
( d4 H5 ?+ K& j  ask turtles [
0 l1 r) v9 W2 l. P+ z8 x    right random 360; {7 P# l4 B* c4 O1 W) A/ Z
    forward 1
( a* E/ h0 e- V+ S4 n9 F    set energy energy - 1
4 J( c* s! }  \7 B! U& Q* V    ]; j1 Z/ }4 {* y* G' {8 g
end% C8 O* d& O5 X% h* F
to setup-patches
6 I$ S; \" T$ T3 X$ T4 E% Q  ask patches [ set pcolor green ]
* E5 i7 f8 M, m' H( i0 @5 d4 jend1 }; W- i+ I1 x! g0 {) o; \
to setup-turtles
3 v6 p. Q8 j- E+ i- B+ q( o  create-turtles 100
9 U4 b7 N2 \- J) N3 M  ask turtles [ setxy random-xcor random-ycor ]
( e4 u1 K# `+ wend
3 o# I$ s' I/ S: |% \& lto eat-grass  x. Q1 D& m. e7 ~
  ask turtles [
9 ]5 W  [8 Q1 o    if pcolor = green [
4 Z  L+ Y+ {2 \* d# v3 O      set pcolor black
1 E& r+ L+ E& o; N# |2 e0 Y      set energy (energy + 10)
- z( ?5 P2 ?. d5 w0 W+ {      ]9 X& N* i" b2 A! Q
    ifelse show-energy?
. d1 p5 e1 K) j, q! F' P      [ set label energy ]
2 B' q* P% H% |' J* \' ?+ a- C      [ set label "" ], C) I4 J. n- i; M% q
    ]
2 ]5 u' B3 {+ R5 x* Bend
- k' P7 B" E, v9 Zto reproduce" b& M4 ^! {7 Q: R
  ask turtles [
/ ~- |( B1 z; n3 |! C  v8 h. o    if energy > 50 [
- M* H/ q- v. F# t3 a: y      set energy energy - 50
* l; e7 [' u! E+ X0 ]  ^. M( [      hatch 1 [ set energy 50 ]' f4 I9 ?1 [1 n" G% T" g
      ]
5 I! x  h; d0 V* \! X% T    ]
; j# _/ {8 B  g( l& d7 oend  Q$ T6 l0 ]$ Z  o2 v5 n/ ~8 C
to check-death
3 w; R7 }# T- V! ~4 }  ask turtles [
: T, R2 Q3 m0 [( b5 a    if energy <= 0 [ die ]. R+ \- _, S5 G9 h' a+ \% n
    ]
" P9 ]1 T; c+ H# J- u' C$ n! B" J  ]end# M8 R# q. S- T- P/ b. T: `' I
to regrow-grass
2 [5 G" s- P5 X9 y" A7 Y  ask patches [
9 w4 ~. k) Y1 }8 i: ?' J. W, U    if random 100 < 3 [ set pcolor green ]6 r6 F. z! J  j* j
    ]
4 a3 h- B6 G* J0 ?& e6 m( V5 k' P- ~end
6 d9 D0 r0 c" d3 g9 h4 Zto do-plots
+ W3 m* L. k) g" j7 ?3 a) M* C  set-current-plot "Totals"
" s  I* {( \' o, J$ S$ o  set-current-plot-pen "turtles"7 W9 M5 W( i. o0 d: G; ?
  plot count turtles
1 e+ \  b& n3 P$ F  set-current-plot-pen "grass"
+ r5 i" z. `6 z7 O8 e  plot count patches with [pcolor = green], T/ F8 I# O- S* ]3 [5 G. w
end
: [3 O3 g5 x3 j8 @/ ?$ y可是运行时提示no such plot: "Totals"
  {5 X0 w1 e- o* O3 G. e6 u* l: Ierror while observer running SET-CURRENT-PLOT
2 Y+ p- r8 `4 E: h  called by procedure DO-PLOTS# v$ E# R( @  q; Q# M
  called by procedure SETUP) g( U" a) q$ ^( w0 i# `5 m+ C
  called by 按钮 'setup'
0 }: w9 l7 Y5 V求大神解答啊
发表于 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
# {! p! p+ U% A$ V8 `建一个叫做叫做Totals的绘图框就行了
( ~% ?! [- M3 ?
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-7 08:51 , Processed in 0.016782 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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