设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9660|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
* _% Q! L' z1 M" vto setup
: ~/ \9 d6 Q1 ^+ G" f% M9 |  clear-all9 Y0 f. E1 a  Y; D
  setup-patches
9 v' k: ^- H6 \7 A# F, k  create-turtles 1001 m/ B7 A4 I8 y
  do-plots
6 M; h. ]) }; w5 d+ _% v5 L  ask turtles [ setxy random-xcor random-ycor ]
% S! i9 u& [+ j; @end
# |/ u" @" v2 h* P0 Dto go5 ^1 C1 {6 N! U9 w4 a4 }
  move-turtles0 I3 c3 y2 u" \; p5 `/ N
  eat-grass9 T) R9 `& B6 u( {% f( q  ^! X
  reproduce
( a# [  _5 T1 l/ O4 v- |  check-death, h1 c) P* b) f* B3 y4 t
  regrow-grass& I9 M0 P# u* F8 A* A
  do-plots
5 D) c5 F* z& ~. A2 rend
0 ?) T, J' J0 ?to move-turtles+ E  j  ~  ]- Z
  ask turtles [1 `( k+ E8 ?6 w" D5 D. ~: W
    right random 360
2 O4 C' y! P: A% t    forward 1
# S& d$ ]7 R8 v  r. d    set energy energy - 1
3 [  u/ k3 K8 Q) i. P9 l0 e1 D    ]! a) `1 J0 M! m4 K- Q# ~8 o7 R- a
end
# q# `! c4 K+ B/ M% O! Nto setup-patches
) L5 i6 R# K% X7 t8 D! {8 L3 _: V  ask patches [ set pcolor green ]
8 a5 \4 o: n# b+ j. t5 E$ _end
+ P* d4 T/ U) @- |7 Q; Ato setup-turtles1 J: c. C7 z0 k( |# O9 K' _3 Q& F
  create-turtles 1004 q+ f* n7 E% {- m( t' s
  ask turtles [ setxy random-xcor random-ycor ]
6 e% ]- s6 b2 \; b( t6 F. [end
, n9 X: f* a; V/ }" M. O. f9 Eto eat-grass
4 L9 i: X, h1 D9 x$ N  ask turtles [
4 d& @4 `) D2 L    if pcolor = green [3 b: K- z7 @4 ?1 w' H
      set pcolor black6 o3 c( @% X) }/ ^  v
      set energy (energy + 10)+ }' U  Y9 s+ f
      ]) Z- R5 }. n. p  m8 i
    ifelse show-energy?6 {. N9 b0 U0 {& Z
      [ set label energy ]% a3 b. y7 D0 a
      [ set label "" ]
6 k4 m; R2 C4 C2 B. n. _0 i    ]
% T) t/ h! j5 }. t# c! N; Hend
+ W: O0 }  b: V' {to reproduce0 x$ J5 n8 L) H5 s- |9 L# h5 I
  ask turtles [: J+ U& t% l0 N& r# u, \
    if energy > 50 [
* B% m6 B/ X6 @8 B0 q      set energy energy - 50
' Q! M; j5 i& _8 N' h: w, D! T      hatch 1 [ set energy 50 ]
4 h, s! d; |$ |1 F+ Y5 |& [      ], G5 L3 Q1 x  w% z& U$ V/ M
    ]% H& e7 K2 h1 ?3 W/ t
end
7 U" h# D) D0 I" b6 |to check-death: S0 W0 i6 ]0 A0 k9 w
  ask turtles [
0 a& R* @% `& Z$ r$ N    if energy <= 0 [ die ]2 }8 w; r5 {5 E* N5 S
    ]
3 r1 \/ p6 w) G: q* f' qend2 X/ s+ z3 `, ]: V
to regrow-grass1 Q9 O5 O+ E. g# g* F, x0 G1 _& g
  ask patches [& ^3 @3 F4 @8 ~( G6 Q
    if random 100 < 3 [ set pcolor green ]
! V1 t" R3 x0 J& q, f3 V    ]
; p& z- O) E2 R5 H! Nend$ i4 C1 H0 ?. O0 S8 B6 o# ?) t
to do-plots
5 n; h) g8 Y, }* b" `' f1 i  set-current-plot "Totals"
5 q0 D; ~; f9 _0 N( o6 s6 X& P  set-current-plot-pen "turtles"
8 f  k' C' r1 I7 n6 m# B* k% I3 a+ U  plot count turtles
! J& f: c' j7 F* j  set-current-plot-pen "grass"
. Q8 @0 I: J/ G! S7 P, ?2 w  plot count patches with [pcolor = green]1 k* }2 b7 Y4 {* ~4 b! W  @6 {: ^
end* h0 h% o. }) A/ h" b' q2 R
可是运行时提示no such plot: "Totals"
, }  F; Q5 ^& q' }% M2 P* z: uerror while observer running SET-CURRENT-PLOT
: X& c9 ]/ Y# C  ]  called by procedure DO-PLOTS
( I, P# @( l( e( o3 ?0 e' b6 A  called by procedure SETUP
) x# @5 \. y  F6 h5 d4 ^2 C' C' x8 P+ |  called by 按钮 'setup'
( N1 q) Z& [2 U! G5 Y) R. X求大神解答啊
发表于 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 " [/ r- T1 B0 M8 u" R2 o
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-1-8 00:51 , Processed in 0.018159 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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