设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10001|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]4 G1 P8 G3 r$ k+ k4 L
to setup# ~& K% a( o7 v9 E
  clear-all
1 Q( m6 H8 O2 r! ?" J  setup-patches
  R7 T( d' _! q9 n9 q  create-turtles 100
9 d+ K3 {( M1 r9 [  do-plots
1 i9 M6 i/ L& a  ]  ask turtles [ setxy random-xcor random-ycor ]
; \' F& ]# u3 @end% C* S; A. M- _  }3 p
to go$ _  h. ~8 G. D5 `
  move-turtles, H+ G! |' x4 {' z/ g& o
  eat-grass' P! ?, T7 \5 ^) n6 x! a
  reproduce$ f2 ]- X: a# e3 l
  check-death
* `2 R1 D/ ^; F3 K3 V# ?& Q  regrow-grass' ~$ u8 ?  |$ \8 \& F
  do-plots/ Y; r7 y; h- E
end
; x' t  }% N$ ?to move-turtles
/ u+ o" Q) d& _! m  ask turtles [
5 e8 R0 L2 s  a& V( ~    right random 360% j- C4 x6 E2 E0 N  _
    forward 1, g* v/ X( ^5 _3 t0 f) F+ s
    set energy energy - 1
; H* v  R7 K* L8 K0 I9 c1 i. Y5 \    ]
1 }* i, O0 {$ ^end
2 A, r" t1 a6 B$ fto setup-patches
9 {6 m  B4 }$ T/ e  ask patches [ set pcolor green ]
; A: ~: P# o8 x( Q5 `# Eend
7 j& t& b: R) `to setup-turtles
1 ^6 K3 b* o! a9 f  create-turtles 100( K4 E$ p" F7 L
  ask turtles [ setxy random-xcor random-ycor ]
7 S, x, n( N8 C* X' \end
/ W+ z7 p0 l$ Dto eat-grass" V! q# c* q8 W7 n, l! c0 N
  ask turtles [
7 A. T/ g/ i6 A2 J6 n" E$ g1 m    if pcolor = green [" z* x  c$ g4 v+ L
      set pcolor black. L/ }/ e! ~! g5 b' V- R
      set energy (energy + 10)
5 k  @* C/ m' v      ]
/ X6 g+ \' u. ^$ z% \    ifelse show-energy?
- b5 W) H3 X" a/ @. G4 F      [ set label energy ]$ Z& W9 C8 }  B3 T
      [ set label "" ]9 t! p9 p" M; i" u* x. K3 |9 R
    ]3 ^- C  s+ B: U1 N8 ]
end0 I3 h; Q/ y- B% t5 G+ K. @7 {, T. z
to reproduce; ]1 L0 |( e! s* ~/ M
  ask turtles [
* v( `, z$ |2 |! b    if energy > 50 [
. u% x4 L  c4 v) _9 p' k      set energy energy - 50$ L' |% h/ z' Q# I/ v8 s
      hatch 1 [ set energy 50 ]  _) Z3 h& m  {5 d
      ]/ V) Q- r' Q% b! J' A4 d' \
    ]
8 l* z9 O1 {2 D$ Aend( M0 a: w* F' c, u! \4 S( I0 ~! j! n+ @
to check-death
2 g4 U9 u& ~* D# j4 v! D  ask turtles [, I4 x" S' y# H: c  |
    if energy <= 0 [ die ]1 a+ @0 d- J, X  L& X' T
    ]8 b! w& K& X) U/ K1 Y0 W7 `
end8 w% C2 w: ]: a$ {9 i! G3 ~, x
to regrow-grass8 x% o0 f) @% E4 c5 ~' [* W
  ask patches [
3 r/ K& _% C: V' F- n& S# t    if random 100 < 3 [ set pcolor green ]5 y; _) X" }4 i0 L, k
    ]. V! Z  _8 m0 k" w& g( Y
end" p1 X. H! n$ Y9 q, {3 r$ z
to do-plots
$ b: t5 G# V5 N6 m* h) F* h1 a  set-current-plot "Totals"7 _0 l4 Q6 C2 t/ \" x
  set-current-plot-pen "turtles"
  \% r! |; x9 l/ U4 o  plot count turtles
6 i, w$ q. a5 c% V1 x, }, w! J  set-current-plot-pen "grass"/ D' l" Q5 e1 O! q6 n
  plot count patches with [pcolor = green]2 j# ~5 d& h1 ?' _' ?* ]% P+ n6 o
end& P8 W2 ^8 {# a+ @5 O2 P
可是运行时提示no such plot: "Totals"0 g2 Y4 Q( V( I" _& X# J
error while observer running SET-CURRENT-PLOT
- N4 w: x& g( R9 j7 K; I) N  called by procedure DO-PLOTS: R8 _/ z/ c7 O: P+ |2 f( U$ d
  called by procedure SETUP
0 g2 c' j6 V4 Z& M$ h* z$ y  called by 按钮 'setup'
  p& ?  l8 E1 g& M9 L7 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 3 ]/ w' X( X+ d+ N, e6 Z7 F: r
建一个叫做叫做Totals的绘图框就行了
" y" b7 _- l2 Y7 V
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-5 11:03 , Processed in 0.021840 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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