设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12014|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]5 ~4 E, c5 |- i& Q: Q/ S
to setup+ ?8 A4 {3 N4 A$ w' ^
  clear-all
1 C. s- p- M' ?* P4 A  setup-patches$ G  j) ^5 \8 A' F
  create-turtles 1002 a  G& A4 Q3 ^% E4 g
  do-plots
! [/ w, U# D$ m1 N/ d  ask turtles [ setxy random-xcor random-ycor ]
1 ]' k" E  r! j# `end
3 z+ v* I: |& X7 [  Ato go
  @& U" ?  R/ e3 @& c2 e  move-turtles
" U/ T9 _% |1 {. [' r1 ]% |  eat-grass
4 m* D! ?0 \8 ~7 U! z4 Z  reproduce
1 D7 B5 `* e: M9 u  check-death
0 P# n7 I0 W  o$ L$ Q  regrow-grass- A" c1 l, T  l3 Q3 L, C* }* t& o
  do-plots
7 e! z$ e* n, ]3 g' uend
. d0 h3 Y9 D0 r7 D0 ito move-turtles
9 x0 S, V: H! K& X3 [2 r5 Y' g  ask turtles [
; `- s$ S0 i4 @* H    right random 360/ H, |# ]$ s; V2 S  Q' C( U
    forward 1
  c, {1 W; o8 h    set energy energy - 1
9 b- X5 H. L: }# O% ~1 H    ]- [. V1 s, }/ b$ Y2 Q% u" I
end
* A5 h5 h% ^9 f: M& @; dto setup-patches9 p" Y/ m( b) M1 u5 ^
  ask patches [ set pcolor green ], q) a9 C, Q/ U3 R! }& T5 {+ i
end2 g" n* Y/ X7 E* z, |
to setup-turtles
3 D  x; R$ a7 G1 I# A  create-turtles 1004 u3 `+ N- z+ w0 q; E
  ask turtles [ setxy random-xcor random-ycor ]
2 {: [1 A$ s- q1 y: ]+ ~end
2 x3 N4 @# D2 `; G* X5 Z) Bto eat-grass
1 T* i  g6 |9 e- [  ask turtles [
% Q% ^! h0 B5 o: H, p, W. x% ~    if pcolor = green [5 [8 J1 K, n, K; N
      set pcolor black8 F0 D6 ]- d( u7 j
      set energy (energy + 10)
" j: x' k3 K; o8 x4 @7 b      ]
0 W7 f. z. |" S9 \% S- r! Q9 v    ifelse show-energy?
( y5 X% ?$ D* ?      [ set label energy ]; [* ?- s0 J' Y3 a* j
      [ set label "" ]
* d) j  l2 j" ^" B    ]4 U, e8 A$ Y. `
end
# W! v" |9 k. Ito reproduce
! f5 t1 f3 B. Z: K  ask turtles [
" J, F4 u' x' E& x! x    if energy > 50 [
! l" N. D; u7 x      set energy energy - 503 e$ a( f0 y: i
      hatch 1 [ set energy 50 ]$ G. \8 `* l7 u
      ]
! h: U5 C# i  f    ]3 ]9 i( r% Y! }% ~7 b
end" m) T' O' U6 }' X/ S* H, T
to check-death
1 a% d. u$ d- d/ p2 o  i1 p  ask turtles [
. i5 e3 j0 b: {& ^5 C6 Y( M    if energy <= 0 [ die ]0 k% ^) n, }4 J* U! Y3 J+ o$ V6 i
    ]
3 Q/ k, B! ?0 \0 @' K! Rend
; ?9 P2 Q" U( a1 p$ ]to regrow-grass
9 N% p+ V2 W3 g2 |: E* v+ r; v  ask patches [, n2 R0 k6 t7 x+ V! T4 f' S* }8 @& a
    if random 100 < 3 [ set pcolor green ]
6 G! R2 V. L3 T9 [" a    ]4 `  F! X2 E# I2 e; W
end
. Q8 I) v" D" ]: p( }: i0 a8 hto do-plots
9 r: u' }7 V6 L4 n  set-current-plot "Totals"
9 f/ X2 d" J: b: @  set-current-plot-pen "turtles"% A( _* m; E* z3 G
  plot count turtles% Z; m4 S& O! X9 I8 D' Y
  set-current-plot-pen "grass"
6 ?$ f6 d, M' _4 R  plot count patches with [pcolor = green]
% u0 }  O* h* D2 Y% Jend! {; ^+ s! p) @" o8 t
可是运行时提示no such plot: "Totals") c$ x7 O& e* q# x$ J
error while observer running SET-CURRENT-PLOT7 B' y7 C$ \7 l3 x3 g( O$ u: ?( E
  called by procedure DO-PLOTS9 O8 l& l! d2 @& T0 f# o/ L* }
  called by procedure SETUP
6 j  C1 X' H) v" @: Q% x- u9 H' f  called by 按钮 'setup'
! n9 k4 Y; [, x2 G; O求大神解答啊
发表于 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 ; Z$ k" Y# ~" C2 w
建一个叫做叫做Totals的绘图框就行了
6 j* {, `* D5 U) M
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-20 11:31 , Processed in 0.018679 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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