设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11334|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
) z  u: B# w6 V$ u* n% Oto setup( |* S+ ^) d% o3 [! Z) e. d* l1 t
  clear-all% }0 b7 e# G. ]( b1 y
  setup-patches0 U0 U+ e7 N7 K1 ^! Z; l
  create-turtles 100- S( I7 \6 e. ~
  do-plots
5 \' m% t6 H; ^, \8 r  ask turtles [ setxy random-xcor random-ycor ]
/ J1 z& u/ N& T/ S9 u3 Lend' U' H. y# m$ N) I( u
to go
" @# ~; J5 O6 l: ^, Z& W  move-turtles
& m0 B4 E0 _- L' D: T, g  eat-grass
! C/ _8 s$ K" c+ R! n! j1 R6 L  reproduce
5 N, i; e0 R! ]- k% w6 W( j  check-death
$ d3 h- s' C4 p/ F  regrow-grass
7 U: ^- I' Z. g& G! U% l* G/ U# W  do-plots
4 d' [' o" y2 ^% c, i3 d; ~3 Tend: F5 Y1 d& s' o) J2 I( I) |  m7 @
to move-turtles
+ R8 b2 y0 z/ h- d  ask turtles [5 L/ x/ t" {5 ?4 l: ]" h7 I
    right random 360( X( l: I4 E7 v/ o
    forward 1# Y! ]2 t# o* K* g/ `
    set energy energy - 1
$ C; n9 s8 i) S' i1 f6 F    ]
# ?. u) `8 Z! r" `3 Vend
( H. \% U) Q- `' }1 L/ w+ b/ lto setup-patches
; T! {; _4 z! x4 v: l$ L5 ?  ask patches [ set pcolor green ]. Z$ E3 G) _: {
end
9 ?1 ~' g& `- T* I3 r: k( L, oto setup-turtles5 _8 A+ j% G5 Y+ c3 ^
  create-turtles 100. X% o4 o9 b1 o( i1 ^8 E, S' }
  ask turtles [ setxy random-xcor random-ycor ]1 {' g& ^, z. }5 M" c+ N7 M" u% R
end
. e6 n' Z1 X! _/ ]1 T9 pto eat-grass
* I; V. w+ z) m- V* E; l( w  ask turtles [
' M$ [6 F* R& T1 a; _+ o    if pcolor = green [
" ?: M! G! q, N/ T& N      set pcolor black
# Q" s. y3 V, q      set energy (energy + 10)  P0 x  W! }& @; h, i3 P' N$ Z- L
      ]1 v( Q1 e& j8 M  C9 i  Y  O- R
    ifelse show-energy?
) G) Y# J6 C, G; c8 {) q0 r8 T      [ set label energy ]
8 n: G$ N( _8 Y( ~2 b) O+ w      [ set label "" ]
2 o' a* P/ j) t- N' q    ]
4 |6 h3 ~  m1 d' x5 S- J# Fend
8 [5 q$ ?- W+ G) f0 nto reproduce
4 ?! b1 o6 a- m1 ?, ~+ o+ u2 A  ask turtles [+ L4 o) i& z4 M/ i7 F
    if energy > 50 [
. W  z8 ~6 f2 M5 L7 y3 N) F      set energy energy - 50$ ^5 {' m! l1 D" \7 ~+ H
      hatch 1 [ set energy 50 ]% P9 u8 R8 g$ N6 |% j
      ]5 z$ _0 y& J8 l, Q3 b. p- Q
    ]
$ b+ X6 `& j9 j' I; Lend
" ~* u& M( e" [# y7 l$ e5 C1 ^to check-death
' [6 z+ n& E' a( |% B3 ^6 l: K  ask turtles [
: l3 i. K* z. D* \0 |    if energy <= 0 [ die ]
% G  T; E8 C. I- A# g: c, D/ ]9 t    ]
; P( g; h" A( `0 C* O3 kend
" R. W) b6 j" A; j. o8 f9 Zto regrow-grass
5 ^9 t/ Y2 T( `& Z" A  M! i+ S  ask patches [
; O0 U; M" |8 L5 r    if random 100 < 3 [ set pcolor green ]. J% {/ F. U' H* n1 s" z
    ]
1 `! U4 o+ G- mend
' F+ U9 j3 j9 a+ M: x: }7 z  Qto do-plots
9 @. a/ Z+ F& r" Q/ h- ^+ r; k  set-current-plot "Totals"$ s  ?& w1 V1 _1 O, S7 z
  set-current-plot-pen "turtles"8 ]$ ^8 m) f/ V2 Q; J1 A* Z
  plot count turtles8 g0 ~3 b- Y( y8 q, _- z" l% s! w
  set-current-plot-pen "grass"$ }8 T6 t% a' _
  plot count patches with [pcolor = green]% F7 s* o* U$ [! i6 I) [$ Q. P
end: \! o7 l. [8 `8 h! {
可是运行时提示no such plot: "Totals"& C% v8 I5 N3 a; n9 ~+ _
error while observer running SET-CURRENT-PLOT/ E8 g# _( n2 R5 s% k- o4 w
  called by procedure DO-PLOTS7 O  j% o3 {  m! d+ k5 E
  called by procedure SETUP3 g1 ~+ N4 {' l2 A) ~; p
  called by 按钮 'setup'
) n& Q( ]8 H9 p: V0 Z求大神解答啊
发表于 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
; k" p1 _* G, c7 t- Z4 F, ~" Y, ?9 Z建一个叫做叫做Totals的绘图框就行了

! l" n, M2 c) ^# H3 n# }. i哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-19 13:07 , Processed in 0.026388 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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